Signification fonction WRITE

Bonjour,
je ne comprends pas ce que veut dire 11, 101, '(A6)', '(A72)', 12....?

write(11,101)
write(11,'(A6)')
write(11,'(A72)')
write(11,131)

write(12,'(A13)'
write(12,'(A6)')
write(12,'(A103)')

et les formats 1X,A5....?

101 format(1X,A5,2X,I5)
102 format(2(2X,A5,D14.7))
103 format(27X,2(2X,A5,D14.7))
104 format(1X,A5,2X,I5,2X,A5,2X,A5,2x,A10,I5,1(2X,A5,D14.7))
131 format(1X,A5,2X,I5,2X,5X,2X,5X,3(2X,A5,D14.7))

Merci de m'éclairer

Salut !

Contrairement à d'autres langages, le Fortran est doté d'une syntaxe très cohérente pour les opérations de lecture et d'écriture, syntaxe qui est décrite dans la norme définissant le langage et non fournie par une librairie externe. Dans chaque opération, tu dois dire.

1. ce que tu lis/écris;
2. sur quel support tu lis/écris;
3. en quel format.

La syntaxe est donc
read (support,format) liste des variables
write (support,format) liste des variables

Code:

---

1 2 3 4 5

character*80 s integer a ... write(11,101) s(1:5),a 101 format(1X,A5,2X,I5)

---

Tu écris sur l'unité 11 (préalablement définie par une instruction open(11,...))
une ligne comportant

• une espace;
• les 5 premiers caractères de la chaîne s;
• deux espaces;
• la valeur de la variable a justifiée à droite d'un champ comportant 5 positions.

La manière plus "moderne" de faire la même chose sans utiliser cette instruction format que les néo-informaticiens honnissent est:

Code:

---

1 2 3 4

character*80 s integer a ... write(11,'1X,A5,2X,I5') s(1:5),a

---

En résumé, les principaux formats sont:

• An champ de n positions pour une chaîne de caractères.
• In champ de n positions pour un nombre entier.
• Fn.d champ de n position pour un nombre réel écrit en "virgule fixe" avec d décimales.
• En.n champ de n position pour un nombre réel écrit en "notation scientifique" avec d décimales.

Pour le reste, trouve-toi un bon manuel de Fortran.

Bonne chance.
Jean-Marc Blanc

Bonjour,

Il manque dans le dernier exemple de Jean-Marc les parenthèses qui doivent toujours englober les spécificateurs de format, lorsque celui-ci est donné comme argument du write:

Code:

---

1 2	write(11,'(1X,A5,2X,I5)') s(1:5),a

---

A propos, on peut également utiliser des guillemets:

Code:

---

1 2	write(11,"(1X,A5,2X,I5)") s(1:5),a

---

Et puisqu'on est dans l'évocation des différentes manières de faire avec les formats, il y a aussi la possibilité d'écrire les spécificateurs de formats dans une chaine de caractères. Par exemple:

Code:

---

1 2 3 4 5

character (len=80) :: monformat ! déclaration d'une chaine de caractère de 80 éléments ... monformat="(1X,A5,2X,I5)" write(11,monformat) s(1:5),a

---

Ehouarn

PS: "néo-informaticiens" ? Par opposition à "paléo-informaticiens" ?

Salut !

Ehouarn a tout à fait raison en ce qui concerne les parenthèses manquantes (pour le reste aussi d'ailleurs!). Désolé pour ce lapsus!

Jean-Marc Blanc

MERCI

Vos réponses m'ont bien aidé.
Concernant les formats, merci de m'avoir détaillé à quoi correspond A, I...

;)