Patrick Corde & Anne Fouilloux

Instructions de positionnement 144
Exemple : troncature contrôlée d’un fichier
program troncature
REAL, dimension(100) :: tab
INTEGER ios
LOGICAL flag/.false./
...
OPEN( UNIT=1,
&
FILE="data_txt_seq", &
ACTION="readwrite", &
POSITION="append", &
STATUS="old", &
IOSTAT=ios )
IF ( ios /= 0 ) then ! Problème à l’ouverture
...
ELSE
tab(:) = acos(-1.)
WRITE( UNIT=1, FMT=’(100F6.3)’ ) tab
REWIND( UNIT=1 )
END IF
Le fichier dont le nom est data txt seq est
ouvert avec un positionnement en fin de fichier
(POSITION="append"). Après écriture d’un enregistrement,
on se repositionne en tête (REWIND).
INSTITUT DU DÉVELOPPEMENT
ET DES RESSOURCES
EN INFORMATIQUE SCIENTIFIQUE
Cours langage Fortran – 27 janvier 2006
Patrick Corde et Anne Fouilloux