Unique Unit Number for openeing file

[pradeepburla]

HI Guys,
Happy New Year.
I have a library where I read the same file many times in different source files.
I want to know if there is some way through which I can set a unique Unit Number each time by checking its availability.


Thank You.

 

[FJacq]

A first solution already available in Fortran77 :

    SUBROUTINE odunit(kfile) ! Returns the first file unit which is not presently used
      INTEGER,INTENT(out) :: kfile
      LOGICAL L
      DO kfile=8,200
        INQUIRE(kfile,OPENED=L)
        IF(.NOT.L) RETURN
      ENDDO
      kfile=0
    END SUBROUTINE

The new solution of Fortran2003 : the unit is generated by the OPEN statement

open(file="...",newunit=kfile,...)

Frantois Jacq