Il Linguaggio Fortran 90/95

8.2 Le specifiche di I/O 419
• ACTION=act assegna alla variabile stringaact uno dei valori’READ’,’WRITE’ o’READWRITE’
a seconda di quanto specificato nella corrispondente istruzione OPEN, oppure ’UNDEFINED’
se non esiste una connessione.
• READ=rd [risp. WRITE=wr ] assegna alla variabile stringa rd [risp. wr ] il valore ’YES’ o
’NO’ a seconda che il file interrogato possa essere o meno usato per operazioni di lettura
[risp. di scrittura], oppure ’UNDEFINED’ se questa informazione non è disponibile.
• READWRITE=rw assegna alla variabile stringa rw il valore ’YES’ o ’NO’ a seconda che
il file interrogato possa essere o meno usato per operazioni di lettura/scrittura, oppure
’UNDEFINED’ se questa informazione non è disponibile.
• DELIM=del assegna alla variabile stringa del uno dei valori ’QUOTE’, ’APOSTROPHE’
o ’NONE’ a seconda di quanto specificato nella corrispondente istruzione OPEN (o dalla
condizione di default), oppure ’UNDEFINED’ se non esiste una connessione oppure se il file
in oggetto non è connesso per operazioni di I/O formattate.
• PAD=pad assegna alla variabile stringa pad il valore YES o NO a seconda a seconda di
quanto specificato nella corrispondente istruzione OPEN (o dalla condizione di default).
Si noti che una stessa variabile può essere associata ad un solo specificatore nell’ambito
della medesima istruzione INQUIRE.
Un esempio di utilizzo di istruzione INQUIRE è il seguente:
LOGICAL :: ex, op
CHARACTER(LEN=11) :: nam, acc, seq, frm
INTEGER :: ios, irec, nr
...
OPEN(UNIT=2,IOSTAT=ios,FILE=’database’,STATUS=’NEW’, &
ACCESS=’DIRECT’,RECL=100)
...
INQUIRE(UNIT=2,EXIST=ex,OPENED=op,NAME=nam,ACCESS=acc, &
SEQUENTIAL=seq,FORM=frm,RECL=irec,NEXTREC=nr)
WRITE(*,100) ex,op,nam,acc,seq,frm,irec,nr
100 FORMAT(2(1X,L1,/),4(1X,A11,/),2(1X,I3,/))
Supponendo, ad esempio, che fra le istruzioni OPEN e INQUIRE non abbiano avuto luogo
istruzioni di lettura o scrittura, l’output del precedente frammento di programma sarebbe:
T
T
database
DIRECT
NO
UNFORMATTED
100