Patrick Corde & Anne Fouilloux

Fichier texte séquentiel 102
Dans cet exemple, on demande l’ouverture du fichier
dont le nom est data txt seq. C’est un fichier texte
séquentiel (formatted, sequential) existant (old)
que l’on désire écraser (rewind).
Comme précédemment, à l’issue de l’OPEN on teste
la valeur de retour contenue dans l’entier ios.
Si l’ouverture s’est bien passée on lance, à l’aide
de l’instruction WRITE, l’écriture en caractères d’un
enregistrement comportant un tableau de réels (tab)
suivi d’un entier puis d’un réel (i, r).
Le format d’édition spécifié sous la forme d’une
constante chaîne de caractères (’(10F8.4,I3,F6.3)’)
permet de convertir en caractères les variables cidessus
:
☞ 10F8.4 : écriture des 10 éléments du tableau tab.
Chacun a un gabarit de 8 caractères avec 4 chiffres
en partie décimale,
☞ I3 : écriture de l’entier i sur 3 caractères,
☞ F6.3 : écriture du réel r sur 6 caractères avec 3
chiffres en partie décimale.
INSTITUT DU DÉVELOPPEMENT
ET DES RESSOURCES
EN INFORMATIQUE SCIENTIFIQUE
Cours langage Fortran – 27 janvier 2006
Patrick Corde et Anne Fouilloux