question sur les formats

bonjour,

j'ai une question sur les formats

j'ai à ecrire un fichier avec m collones mais par avance je ne connais pas le nombre de collonnes que je vais afficher, j'ecris alors une petite routine d'ecriture de fichier avec l'instruction write suivante avec les champs qui suivent et qui vont bien. c'est à dire 5 colonnes (4 float et un entier) que je souhaiterais multiplier par m le nombre d'elements présent dans une structure donnée.

Code:

---

write(12,'(m(4f,i))')

---

à la compilation il me dis qu'il ne connait pas l'identifant m pour les formats. ce qui me parrait aussi logique, mais alors comment faire pour afficher un nombre de collones donnés sans connaitre au péalable le nombre de colone

J'espaire que ma question est claire

Merci d'avance.

Solution #1

m n'a pas à être égal au nombre d'élément à imprimer. Tu n'as qu'à fixer m assez grand pour couvrir tous tes besoins. write(12,'(99999(4f...,i...))') devrait généralement faire l'affaire.

Solution #2

Plus compliquée. Tu dois stocker le format dans une variable caractère. Le format peut ainsi être construit par un write du nombre d'élément :

Code:

---

1 2 3 4 5

character (20) MonFmt ... write(MonFmt,'(a,i0,a)') '(',NbElement,'(4f...,i...))' write(12,MonFmt) ...

---

Solution à éviter

Si tu utilises un compilateur de la famille Digital / Compaq / Intel, tu peux faire write(12,'(<m>(f...,i...))') m, reste des infos

Cette solution est cependant à éviter car elle est non portable. Même Steve Lionel (Monsieur service à la clientèle de Intel Fortran) ne recommende pas cette solution...

Merci Beaucoup ca marche comme une lettre à la poste



.