Ecriture formatée d'un tableau de taille variable

Bonjour à tous,
Mon problème est très simple : j'aimerais écrire des tableaux dans un fichier de cette façon :

Code:

---

1 2 3 4

do i=1,n write(50,*) (a(j,i),j=1,n) enddo

---

ou directement comme ça :

Code:

---

1 2	write(50,*) a

---

Mais en spécifiant un format différent de *. Or "a" n'a pas un taille donnée, donc je ne peux pas la deviner avant et écrire (10e10.3) par exemple. Quelqu'un a-t-il une idée ?
Merci d'avance

En fouillant le forum, tu trouveras certainement une réponse élaborée, mais voici les 2 principales solutions :

Solution très simple

Le nombre d'éléments à écrire et le nombre d'éléments prévu par le format n'ont pas à correspondre.

Si le nombre d'éléments à écrire est plus grand que le nombre d'éléments prévu par le format, le programme va « boucler » sur le format, en introduisant une nouvelle ligne à chaque itération (si ma mémoire est fidèle).

Le cas intéressant pour toi est l'autre, si le nombre d'éléments à écrire est plus petit que le nombre d'éléments prévu par le format. Le programme va alors simplement arrêter d'écrire au premier élément du format n'ayant pas de correspondance dans la liste des variables.

Ton exemple devient donc :

Code:

---

1 2 3 4

do i=1,n write(50,'(9999e10.3)') (a(j,i),j=1,n) enddo

---

Solution compliquée

Tu dois déclarer une variable caractère pour stocker le format et utiliser un write pour générer le format. Par exemple :

Code:

---

1 2 3 4 5 6 7

character (20) :: FmtRequis ... write(FmtRequis,'(a,i0,a)') '(',n,'e10.3)' do i=1,n write(50,FmtRequis) (a(j,i),j=1,n) enddo

---

Salut!
Il y a encore une solution (compliquée): jouer avec des Advance='No'.
Jean-Marc Blanc

Merci de vos réponses, je vais effectivement opter pour la première solution simple pour l'instant (j'aurais pu essayer avant mais j'ai pas pensé :P).