libsim Versione 7.1.11

◆ getunit()

integer function getunit
private

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))
336ENDIF
337
338END SUBROUTINE csv_record_init
339
340
342SUBROUTINE csv_record_delete(this)
343TYPE(csv_record), INTENT(INOUT) :: this
344
345DEALLOCATE(this%record)
346
347END SUBROUTINE csv_record_delete

Generated with Doxygen.