Discussion :

[Bénarès77]

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

Code :

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

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

ou directement comme ça :

Code :

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

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

[Sylvain Bergeron]

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 :

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

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 :

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

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

[FR119492]

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

[Bénarès77]

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é ).