Intégrer une boucle à write

Bonjour,
Désolé pour cette quesstion qui va surement vous paraître très bête, mais comment fait on pour intégré une boucle à un write. Je sais qu'on peut le faire je l'ai déja vu mais je ne me souvient plus et je ne le trouve pas sur le net.
J'espère être clair sinon dites le moi :)
Merci

Edit :
Je veux un truc du style

Code:

---

1 2 3 4

do k=1,15 write(*,*) H(m,k) enddo

---

et que m aille de 1 a 3 par exemple de sorte que ca m'ecrivent :
H(1,k) H(2,k) H(3,k)
sur la même ligne.

Citation:

---

Envoyé par lock42

Bonjour,
Désolé pour cette quesstion qui va surement vous paraître très bête, mais comment fait on pour intégré une boucle à un write. Je sais qu'on peut le faire je l'ai déja vu mais je ne me souvient plus et je ne le trouve pas sur le net.
J'espère être clair sinon dites le moi :)
Merci

Edit :
Je veux un truc du style

Code:

---

1 2 3 4

do k=1,15 write(*,*) H(m,k) enddo

---

et que m aille de 1 a 3 par exemple de sorte que ca m'ecrivent :
H(1,k) H(2,k) H(3,k)
sur la même ligne.

---

Code:

---

1 2 3 4

do k=1,15 write(*,*) (H(m,k), m=1, 3) enddo

---

Tu peux même faire 2 boucles :

Code:

---

1 2	write(*,*) ((H(m,k), m=1, 3), k=1,15)

---

Dans ce dernier cas, il n'y aura cependant pas de changement de ligne à chaque "k". Il faudrait alors utiliser un format explicite pour forcer le changement de ligne. Par exemple : (3f8.4)

ok merci bcp de ta réponse :)

En réalité j'utilise qq chose de formater et ca a l'air de pas marcher. Je m'explique :

Code:

---

1 2 3 4 5 6 7

do k=1,15 !! cette boucle je la garde write(6,15)x,y,H(1,k),H(2,k),H(3,k),H(4,k),H(5,k),H(6,k)   15 format(F4.1,2x,A1,' : ', 6(F6.3,x)/)   enddo

---

Ceci n'est pas tres beau et je voudrai bouclé ds le write jusqu'a 6. (En réalité j'en ai meme 15 et je voudrai que ca soit extensible, voici la raison...

Si tu veux obtenir exactement le même format de sortie, il faut décomposer l'écriture.

Par exemple quelquechose comme celà devrait aller :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

do k=1,15 !! cette boucle je la garde !debut de l'écriture write(6,'(f4.2,2x,a1,a3)',advance="no")x,y," : " !advance="no" empêche le passage à la ligne do j=1,6 write(6,'(F6.3,x)',advance="no")H(j,k) endo !une fois tes H(j,k) écrit on passe à une nouvelle ligne write(6,'(x)',advance="yes") !fin de ligne endo

---

Merci beaucoup ca marche du tonnerre