format d'écriture pour write(unit, namelist)

Bonjour,

j'ai un vieux programme écrit en fortran 77 qui utilise des instructions

Code:

---

namelist /prout/ a,b,c

---

et qui ensuite les écrit:

Code:

---

write(unit,nml=prout)

---

J'ai recompilé le programme sur une plateforme 64 bits et voilà qu'il m'affiche les réels avec un format un peu lourd (plein de chiffres et surtout des exposants "D" au lieu des exposants "E").

du coup je me demandais si il existait des options de compilation (ou autre moyen) permettant de contrôler l'affichage de ces write.

J'utilise sunstudio version 12 avec les options de compilation:

Code:

---

f77 -xtypemap=integer:64,real:64 -aligncommon=8 nom_fichiers.f

---

Je peux éventuellement utiliser un autre compilo, mais sunstudio en priorité.

J'ai farfouillé un peu partout sans succès... peut-être que les spécialistes du coin pourront m'aider? ;)

Bonjour,

Citation:

---

J'ai farfouillé un peu partout sans succès...

---

Et as-tu pensé à consulter un cours de Fortran? Je doute qu'il y en ait un seul qui ne décrive pas la fonction "write" et l'utilisation des formats.
Le poly disponible sur cette page, particulièrement complet, devrait t'être utile.

Bonne continuation.

Citation:

---

Envoyé par Ehouarn

Bonjour,


Et as-tu pensé à consulter un cours de Fortran? Je doute qu'il y en ait un seul qui ne décrive pas la fonction "write" et l'utilisation des formats.
Le poly disponible sur cette page, particulièrement complet, devrait t'être utile.

Bonne continuation.

---

oh merci je n'y avais pas pensé, comment ais-je pu être aussi bête....

Tu notera (mais tu le sais probablement déjà car vu le ton condescendant employé tu dois connaitre le fortran sur le bout des doigts) que l'utilisation des arguments nml et fmt simultanément est interdite.

Code:

---

1 2 3

WRITE (IU3,NML=PROUT,FMT=('F8.2')) ^ "SRC/mon_fichier.f", Line = 1097, Column = 31: ERROR: The FMT and NML specifiers must not be specified in the same I/O control list.

---

En l'occurence ma question s'adresse aux spécialistes qui connaitront (peut-être) un moyen de contourner ce problème (option de compilation ou autre), et qui auront la gentillesse de m'aider.

bien cordialement

Les namelists ont les avantages et les inconvénients des list-directed : simples, mais (presque) aucun contrôle...

J'ai cherché un peu, et je ne vois pas de solution directe.

Le "D" vient du fait que la variable est double. Peux-tu la déclarer simple ?

Autre piste : La très classique « écris dans une chaîne, édites la chaîne, puis imprime la ». C'est risqué dans la mesure où écrire un namelist dans un internal file est une extension je crois. De plus, à partir du moment où tu fais ce genre de manipulation, tu perds tous les avantages de simplicité du namelist. La vraie solution devient alors :

write(unit, '(...)') '&prout a=',a,', b='...

Merci pour ton aide Sylvain. Malheureusement je ne peux pas modifier le code. Tant pis, je marque résolu: pas moyen de le faire de manière simple :)