Patrick Corde & Anne Fouilloux

Fichier interne 142
PROGRAM fichier_interne
CHARACTER(len=80) enreg
INTEGER
ios
REAL
x, y, z
NAMELIST/liste/x, y, z
OPEN( UNIT=1,
FILE="data_txt_seq", &
FORM="formatted", ACTION="read", &
STATUS="old", POSITION="rewind", &
IOSTAT=ios )
IF ( ios /= 0 ) STOP 4
READ( UNIT=1, FMT=’(a)’, IOSTAT=ios ) enreg
DO WHILE( ios == 0 )
IF ( VERIFY( enreg, &
" ,+-0123456789.eEdD" ) == 0 ) THEN
READ( enreg, FMT=*, iostat=ios ) x, y, z
!----------------------------------------
WRITE( UNIT=*, NML=liste )
END IF
READ( UNIT=1, FMT=’(a)’, iostat=ios ) enreg
END DO
CLOSE( UNIT=1 )
END PROGRAM fichier_interne
Dans cet exemple on lit un fichier en ne traitant que
les enregistrements constitués de réels et en ignorant
tous les autres.
INSTITUT DU DÉVELOPPEMENT
ET DES RESSOURCES
EN INFORMATIQUE SCIENTIFIQUE
Cours langage Fortran – 27 janvier 2006
Patrick Corde et Anne Fouilloux