libsim  Versione 7.1.8

◆ getunit()

integer function file_utilities::getunit

Returns the number of a Fortran input/output unit currently unused.

It returns -1 in case of error. Example of use:

...
INTEGER :: n
...
n=getunit()
IF (n /= -1) THEN
OPEN(n, file='ostregheta.txt')
...
Utilities for managing files.

Definizione alla linea 334 del file file_utilities.F90.

335  ALLOCATE(this%record(csv_basereclen))
336 ENDIF
337 
338 END SUBROUTINE csv_record_init
339 
340 
342 SUBROUTINE csv_record_delete(this)
343 TYPE(csv_record), INTENT(INOUT) :: this
344 
345 DEALLOCATE(this%record)
346 
347 END SUBROUTINE csv_record_delete

Generated with Doxygen.