libsim
Versione 7.1.8
|
◆ 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 334 del file file_utilities.F90. |