Patrick Corde & Anne Fouilloux

Fichier interne 141
Exemples
INTEGER, PARAMETER :: n = 4, m = 6
REAL, DIMENSION(n,m) :: tab
CHARACTER(LEN=8) :: fmt = "( F8.3)"
INTEGER
:: i, j, ios
WRITE( fmt(2:3), ’(I2)’ ) n ! fichier interne
OPEN( UNIT=1,
&
FILE="data_txt_seq", &
POSITION="rewind", &
ACTION="write", &
STATUS="new", &
IOSTAT=ios )
if ( ios /= 0 ) then ! Problème à l’ouverture
...
else
WRITE( UNIT=1, FMT=fmt ) &
((tab(i,j),i=1,n),j=1,m)
end if
CLOSE( UNIT=1 )
Dans un format le facteur de répétition doit obligatoirement
être précisé à l’aide d’une constante littérale. Cet
exemple montre comment le générer dynamiquement
en utilisant un fichier interne.
INSTITUT DU DÉVELOPPEMENT
ET DES RESSOURCES
EN INFORMATIQUE SCIENTIFIQUE
Cours langage Fortran – 27 janvier 2006
Patrick Corde et Anne Fouilloux