libsim Versione 7.2.1
|
◆ getunit()
Returns the number of a Fortran input/output unit currently unused. It returns -1 in case of error. Example of use: USE file_utilities
...
INTEGER :: n
...
n=getunit()
IF (n /= -1) THEN
OPEN(n, file='ostregheta.txt')
...
Definizione alla linea 328 del file file_utilities.F90. 329 nfield = nfield + 1
330 CALL csv_record_getfield(this)
331 ENDDO
332 this%cursor = 0 ! riazzero il cursore
333 ENDIF
334ELSE
335 ALLOCATE(this%record(csv_basereclen))
336ENDIF
337
338END SUBROUTINE csv_record_init
339
340
|