Discussion :

[makro]

Bonjour,

Je voudrais pouvoir accéder aux résultats d'un de mes programmes. Mais mon problème est que j'utilise Cygwin, et que Cygwin ne me permet pas de sélectionner ce qui est affiché sur le terminal (la souris est désactivée quand on est sur le terminal), donc je souhaiterais ecrire mes résultats dans un fichier texte, mais que je pourrais lire ensuite (en double cliquant sur le fichier).
Je précise que les resultats en question sont des double precisions (deux vecteurs).

Code :

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

1
2
3
4
5
OPEN(3,FILE='resultats.txt',STATUS='old',FORM='formatted',ACCESS='sequential',POSITION='rewind')
         DO i=1,3
            WRITE(3) i,YPAD(i)*HAUTEUR,W(i)
         END DO
        CLOSE(3)

quand je vais les lire dans mon fichier texte, je vois:


G&cOPi¾ˆêG:ªÖC¿   G&cOPi>ˆêG:ªÖC?   Wò·¢ç‡‡>µ6®ûÇ×C?

alors que ça marche plus ou moins quand il s'agit de texte.
que mettre dans le OPEN() pour qu'il me les mettent dans un format directement lisible?! pasque je ne suis pas sur que ce soit possible avec fortran.

Merci pour votre aide.

PS : j'ai déjà regardé sur les forums (car il est vrai que beaucoup en parlent), mais je ne trouve pas de solution claire!!)

PS2 : lorsque je change en 'formatted', il m'indique une erreur non à la compilation mais à l'execution :

Traceback: not available, compile with -ftrace=frame or -ftrace=full
Fortran runtime error: Missing format for FORMATTED data transfert.

Si quelqu'un comprend ce message ??...

[Sylvain Bergeron]

Tu dois effectivement utiliser un fichier formaté. Tu dois alors indiquer que tu veux un fichier formaté au open(), mais tu dois également fournir un format pour le write(). Tu élimineras alors le message d'erreur « Missing format ... ».

Pour le format du write, tu peux utiliser un format explicite comme par exemple :

Code :

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

1
2
 
write(3,'(i3,2f8.4)') i,YPAD(i)*HAUTEUR,W(i)

ou un format libre (list-directed) :

Code :

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

1
2
 
write(3,*) i,YPAD(i)*HAUTEUR,W(i)