Enlever l'étiquette d'un format

Version imprimable

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:

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:

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

08/07/2009, 12h36
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 = "(
08/07/2009, 15h11
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:

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

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

Code:

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)

09/07/2009, 10h02
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:

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
09/07/2009, 15h34
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.
09/07/2009, 17h03
you_go

Merci beaucoup Sylvain, ça marche en effet.

A bientôt

Tant qu'à moderniser, j'aurais personnellement (et c'est vraiment personnel) utilisé le stratégie suivante :

Code:

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

10/07/2009, 08h52
you_go

Oui tu as raison, je dois reconnaitre que le code est plus lisible ainsi.

Encore merci