Discussion :

[bagogan]

bonjour
je débute en fortran et j'ai un code que je dois expliciter;je passe par les instruction write pour stocker les vitesses u et v ,la pression la pression corrigée et la température dans un fichier nommé 'res':

Code :

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

1
2
3
4
5
6
open(50,file='res.dat')
write(50,*) ((u(i,j),i=1,imax),j=1,jmax+1)
write(50,*) ((v(i,j),i=1,imax+1),j=1,jmax)
write(50,*) ((p(i,j),i=1,imax+1),j=1,jmax+1)
write(50,*) ((pp(i,j),i=1,imax+1),j=1,jmax+1)
write(50,*) ((te(i,j),i=1,imax),j=1,jmax+1)

mais une fois j'obtient ces valeurs je n'arrive pas à distinguer qui est qui?
en fait le résutat est un fichier avec 3 colonne chacune avec des milliers de valeurs!
Pouvez vous m'aidez svp c'est très urgent!
merci

[FR119492]

Salut!
Ce que tu cherches à faire n'est pas clair:

• Quelle est la signification des compteurs i et j, ainsi que des paramètres imax et jmax?
• Pourquoi certains compteurs vont-ils jusqu'à imax et jmax, et d'autres jusqu'à imax+1 et jmax+1?
• Pourquoi n'utilises-tu pas un format explicite à la place du * ?

Enfin, pour gagner du temps, dis-nous avec précision ce que tu souhaiterais obtenir fans ton fichier.
Jean-Marc Blanc

[mipicard]

Commence par mettre une ligne vide entre l'écriture des variables. Cela separera ton fichers en blocs par variable.

Code :

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

write(50,*)

Sinon il ecrit u(1,1)u(2,1),u(3,1)... les un a la suite des autres. Les changements de ligne ne sont pas imposés donc le programme les mets ou il veut.

[bagogan]

merci por votre aide!
i,j sont des compteurs spatiaux du maillage mais problème reside en fait dans l'affichage au niveau du fichier.dat
les valeurs sont sous forme de 3 grande colonnes et je ne peux pas ditinguer les variables les uns des autres
merci encore

[FR119492]

Salut!
En fait, tu ne comprends pas ce que ton programme fait en réalité. Alors, prenons un cas simple, par exemple avec imax=2 et jmax=3. Ton fichier comportera 5 "lignes" parce que tu as 5 instructions write.
La première "ligne" contiendra imax*(jmax+1)=8 valeurs:
u(1,1) u(2,1) u(1,2) u(2,2) u(1,3) u(2,3) u(1,4) u(2,4)
La deuxième "ligne" contiendra (imax+1)*jmax=9 valeurs:
v(1,1) v(2,1) v(3,1) v(1,2) v(2,2) v(3,2) v(1,3) v(2,3) v(3,3)
Je passe par dessus les "lignes" correspondant à p, pp et te. Ensuite, pense que ton fichier res.dat est sur le disque dur de ton ordinateur; tu ne peux donc pas le voir directement. Pour le visualiser, tu utilises un "éditeur de texte" qui va considérer chacune de tes valeurs comme un "mot" d'une vingtaine de caractères. Or cet éditeur est programmé pour n'admettre des lignes de longueur limitée; c'est pourquoi il insère automatiquement un saut de ligne après une valeur sur trois.

Alors, je le répète parce que tu ne m'as pas répondu sur ce point, dis-nous ce que tu veux obtenir.

Jean-Marc Blanc

[Sylvain Bergeron]

Jean-Marc, sans remettre en question ta réponse, si jmax et imax sont plus élevés, le fait d'utiliser un format libre fait en sorte que le résultats de chaque write sera écrit sur plusieurs lignes. Il devient alors difficile de se retrouver. Imagine si imax et jmax sont de l'ordre de 100, le fichier peut facilement avoir 5000 lignes...

Pour bagogan : compte tenu du « très urgent », ma suggestion arrive probablement trop tard, mais il y a plusieurs pistes de solution :

• écrire les résultats comme un long ruban de "NomDuVecteur",i,j,Valeur(i,j). Tu peux alors utiliser un outil externe pour tabuler le résultat.
• écrire les résultats en forçant une tabulation. Par exemple : générer une ligne d'indice comme entête de colonnes, puis écrire chaque rang dans la forme: j,valeur(1,j),valeur(2,j),... Tu devras alors utiliser des formats explicites pour éviter le retour à la ligne des formats libres lorsque la ligne est trop longue.

[mipicard]

Il me semble que remplacer la ligne d'écriture de u par

Code :

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

1
2
3
4
do j= 1,jmax+1
    write(50,'10(1x,g10.4),/') (u(i,j),i=1,imax)
end do
write(50,*)

permet d'écrire u en mettant 10 valeurs par ligne