Quel format pour écrire un tableau dans un fichier ?

Bonjour,
Voila mon problème, je veux écrire un tableau de n lignes et m colonnes dans un fichier avec le format E14.7 pour chaque valeur de mon tableau. J'ai regardé sur la toile et j'ai trouvé que le format pouvait être répété mais dans mon cas je ne connais pas le nombre de colonnes a l'avance.

Voila ce que je pense faire mais je ne sais pas quoi mettre dans le format :

Code:

---

1 2 3 4 5 6 7 8 9

open(11,file="test.txt")   100 format (???)   do i=1,n write(11,100) A(i,:) end do   close(11)

---

Merci d'avance a tous ceux qui me répondront

Salut!
Tu mets dans ton format le plus grand nombre de colonnes que tu risques de rencontrer. Si le nombre réel de colonnes est plus petit, ça n'a pas d'importance.
Jean-Marc Blanc

La taille de ma matrice peut être très grande (de l'ordre du milliard). Cela ne gène pas de mettre une taille de 10^30 dans le format ?

Pour le nombre maximal je n'ai pas de réponse. Je ne sais pas si tu peux mettre 10^9 dans le format mais à priori je ne vois pas pourquoi tu ne pourrais pas. Ce qui risque de bloquer mais là encore je ne suis pas sur, c'est que le nombre de colonne dans un fichier peut être limité. Mais ça ça va dépendre de ton système.

Pour ce qui est d'adapter le format je peux te conseiller la chose suivante :

Tu déclare fmt une chaine de caractère et avant d'imprimer ton tableau tu écrit
dans fmt le bon format. Si tu as m colonnes :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

character(len=100)::fmt,num   ! tu testes la taille de m if ( m < 10 ) then write(num,"(i1)")m else if (m < 100) then write(num,"(i2)")m .... end if   fmt = trim( adjustl( num ) )//"E14.7"   do i=1,n write(11,fmt) (A(i,k),k=1,m) end do

---

Bien sur si tu as facilement une borne supérieure de m la méthode de JM Blanc est plus efficace.

J'attire juste ton attention sur le fait que si tu as 10^9 lignes, dans tous les cas ton tableau sera illisible. Pour ce genre de matrice, l'impression dans un fichier se fait souvent dans l'ordre croissant de i+j avec un nombre donné d'élément par ligne

Code:

---

1 2	write(11,"(5E14.7)")( ( A(i,k),k=1,m) i=1,n)

---

Certains codes vont même jusqu'à remplacer la matrice par un vecteur ligne.

PS : de façon générale il vaut mieux écrire les boucles implicites. D'ailleurs ifort te sortiras un warning si tu ne le fais pas.

Merci beaucoup à vous deux pour vos réponses.