Il Linguaggio Fortran 90/95

8.5 File interni 441
il quale opera la conversione di una stringa di caratteri in un reale. In sintesi, l’esempio in
esame prevede la lettura del valore della stringa string, valore che viene rappresentato nella
forma interna di rappresentazione dei reali ed associato alla variabile pigreco. Il prossimo
esempio, invece, produce la conversione del valore della variabile intera ind in una stringa di
cifre decimali e la sua successiva registrazione nella variabile str.
CHARACTER(LEN=10) :: str
INTEGER :: ind
...
ind = 31
READ(str,’(I3)’) ind
Un esempio appena più complesso, che fa uso di un file interno multirecord, è il seguente:
PROGRAM prova_file_interni
CHARACTER(5),DIMENSION(3) :: str
INTEGER, DIMENSION(3,3) :: vet
CHARACTER(12) :: fname
! ...
str = (/"1 2 3","4 5 6","7 8 9"/)
! ...
! La prossima list-directed READ esegue l’assegnazione:
! |1 4 7|
! vet=|2 5 8|
! |3 6 9|
READ(str,*) vet
! Il prossimo formatted WRITE pone fname=’FM003.DAT’.
WRITE (fname,200) vet(3,1)
200 FORMAT (’FM’,I3.3,’.DAT’)
! Viene connesso il file FM003.DAT per successive
! operazioni di I/O
OPEN(UNIT=11,FILE=fname,STATUS=’NEW’)
! ...
END PROGRAM prova_file_interni
Il programma che segue, infine, rappresenta un ulteriore esempio di utilizzo dei file interni.
Le operazioni eseguite sono assai semplici. Dapprima viene letta una stringa di cifre intervallate
dal simbolo di dollaro. Quindi, ciascun carattere $ viene sostituito da uno spazio bianco,
affinché la successiva operazione di lettura coinvolga soltanto cifre e punti decimali di modo che
sia possibile assegnare, ordinatamente, i valori letti agli elementi di un array di tipo REAL.
PROGRAM internal_file
IMPLICIT NONE
INTEGER :: k, error
REAL, DIMENSION(10) :: money