Discussion :

[you_go]

Bonjour,

Je débute en fortran (fortran 90 plus précisément) et j'ai un petit problème concernant l'instruction format et la gestion des étiquettes.
En fait, j'ai lu que l'utilisation des étiquettes était un aspect obsolète, et j'aimerais par conséquent les supprimer, ce que je n'arrive pas à faire.

Voici mon code (qui certes marche, mais n'est pas très élégant en f90) :

Code :

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

1
2
3
4
5
6
  write (3, 300) trim(output_filename)
300 format ( '# Gnuplot file which contains plotting instructions', /, &
         'set clip two' , /,  'set grid' , /, &
         'set tics out', /, ' set notime', /, &
         'plot "',a,'" with lines', /, &
         'pause -1 "Press ENTER to continue"' )

J'ai bien essayé d'écrire :

Code :

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

1
2
3
4
5
6
7
8
character (len=200)  :: my_format
 
my_format = "( '# Gnuplot file which contains plotting instructions', /, &
         'set clip two' , /,  'set grid' , /, &
         'set tics out', /, ' set notime', /, &
         'plot "',a,'" with lines', /, &
         'pause -1 "Press ENTER to continue"' )"
write(3, my_format) trim(output_filename)

mais ça ne marche pas ... Quelqu'un a-t-il une idée ?

Merci pour votre aide

[mipicard]

Essaie avec un format simple avant de tester un compliqué !

A mon avis ce qui coince est le caractère " au milieu du string, cela peut perturber avec le premier caractère my_format = "(

[you_go]

Tout d'abord, merci pour ta réponse mipicard.
En effet, les guillemets internes semblent provoquer un conflit. Le problème est que si je fais :

Code :

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

my_format = "( 'plot ',a,' with lines' )"

alors ça écrit dans mon fichier : plot filename.dat with lines
Or je veux écrire dans mon fichier :
plot 'filename.dat' with lines ou plot "filename.dat" with lines
(les deux sont équivalents pour Gnuplot)

Avez-vous une idée ?

Merci

[Sylvain Bergeron]

Tu y étais presque. Tu dois simplement doubler les " intercalés dans la chaine :

Code :

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

1
2
3
4
5
6
7
8
9
 
character (len=200)  :: my_format
 
my_format = "( '# Gnuplot file which contains plotting instructions', /, &
         'set clip two' , /,  'set grid' , /, &
         'set tics out', /, ' set notime', /, &
         'plot ""',a,'"" with lines', /, &
         'pause -1 ""Press ENTER to continue""' )"
write(3, my_format) trim(output_filename)

[you_go]

Merci pour ta réponse Sylvain, mais ça ne marche toujours pas ...

Si la compilation se fait sans erreur (j'utilise ifort), j'ai cependant des erreurs lorsque j'exécute mon programme ; de plus, rien ne s'écrit dans mon fichier ...

Voici ce que j'obtiens :

Code :

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

forrtl: severe (62): syntax error in format, unit 3, file /...

où ... est le chemin du fichier dans lequel je veux écrire.

Qu'en pensez-vous ?

Merci pour votre aide

[Sylvain Bergeron]

C'est parce que le format a plus de 200 caractères. J'ai changé la déclaration pour 256 et ça fonctionne.