Discussion :

[sandra3434i]

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

[FR119492]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Ehouarn]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

A propos, on peut également utiliser des guillemets:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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" ?

[FR119492]

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

[sandra3434i]

MERCI

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