nextun5.F

Go to the documentation of this file. Or view the newest version in sPHENIX GitHub for file nextun5.F

      Function nextun5()
C                                 Returns an unallocated FORTRAN i/o unit.
      Logical ex
C
      Do 10 n = 10, 300
         INQUIRE (unit=n, opened=ex)
         If (.NOT. ex) then
            nextun5 = n
            Return
         Endif
 10   Continue
      stop ' There is no available I/O unit. '
C               *************************
      End