Patrick Corde & Anne Fouilloux

Fichier texte séquentiel 101
Exemple
PROGRAM texte_sequentiel
real, dimension(10) :: tab
integer
:: i
real
:: r
integer
:: ios
OPEN( UNIT=1,
&
FILE="data_txt_seq", &
FORM="formatted", &
ACCESS="sequential", &
STATUS="old", &
ACTION="write", &
POSITION="rewind", &
IOSTAT=ios )
if ( ios /= 0 ) then ! Problème à l’ouverture
...
else
WRITE( UNIT=1, &
FMT=’(10F8.4,I3,F6.3)’) tab, i, r
...
endif
...
CLOSE( UNIT=1 )
END PROGRAM texte_sequentiel
INSTITUT DU DÉVELOPPEMENT
ET DES RESSOURCES
EN INFORMATIQUE SCIENTIFIQUE
Cours langage Fortran – 27 janvier 2006
Patrick Corde et Anne Fouilloux