Discussion :

[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 :

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

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.

[Sylvain Bergeron]

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 :

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

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 :

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

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

Tu peux même faire 2 boucles :

Code :

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

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)

[lock42]

ok merci bcp de ta réponse

[lock42]

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

Code :

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

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

[yogitetradim]

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 :

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

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

[lock42]

Merci beaucoup ca marche du tonnerre