GETFREEUNIT Function

public function GETFREEUNIT() result(GetFreeUnit)

Get unused file unit number

Arguments

None

Return Value integer

File unit number


Source Code

FUNCTION GETFREEUNIT()
  ! MODULES
  IMPLICIT NONE
  ! INPUT/OUTPUT VARIABLES ------------------------------------------------------------------------------------------------------!
  INTEGER :: GetFreeUnit !! File unit number
  ! LOCAL VARIABLES -------------------------------------------------------------------------------------------------------------!
  LOGICAL :: connected
  ! CODE ------------------------------------------------------------------------------------------------------------------------!
  GetFreeUnit=55
  INQUIRE(UNIT=GetFreeUnit, OPENED=connected)
  IF(connected)THEN
    DO
      GetFreeUnit=GetFreeUnit+1
      INQUIRE(UNIT=GetFreeUnit, OPENED=connected)
      IF(.NOT.connected)EXIT
    END DO
  END IF
END FUNCTION GETFREEUNIT