[g95] Erreur 'Unexpected element in format string'

Version imprimable

23/04/2008, 00h41
Truth

[g95] Erreur 'Unexpected element in format string'
Bonjour,

j'ai le code suivant :
Code:

1 2 100 FORMAT(<n>(2x,f4.2))
où n est le nombre de repétitions du format pour "write", n correspond au nombre d'éléments d'un vecteur que je dois écrire dans un fichier de sortie.
Il me donne le message suivant :

Citation:

Error: Unexpected element in format string

comment corriger cette erreur ?
merci.
23/04/2008, 09h09
Signus
Si n est une variabe, je ne pense pas que tu puisse l'inculre dans la definition du format tel quel!

Si tu souhaite simplement ecrite les elements de ton vecteur sans retour a la ligne entre eux, tu peux utiliser une boucle, et un $ en fin de definition du format :
Code:

1 2 3 4 5 100 format(2x,f4.2$) do i=1,n write(*,100) monNombre enddo
23/04/2008, 09h20
Truth

merci bien Signus,
c'est drole mais la méme syntaxe qui fait erreur dans g95 compile tres bien dans compaq visual fortran 6.6, je ne c pas pourqoi !
23/04/2008, 09h38
Signus

ca je ne peux pas te dire pourquoi disons que g95 est un peu plus regardant !!!
23/04/2008, 11h28
Grame
Citation:

c'est drole mais la méme syntaxe qui fait erreur dans g95 compile tres bien dans compaq visual fortran 6.6, je ne c pas pourqoi !

Parce qu'il me semble que $ dans un format ne fait pas partie de la norme ISO.
Et par rapport à la norme, certains compilateurs offrent des choses en plus.

Pour écrire sans retour à la ligne, il vaut mieux utilise advance=no

Exemple :
Code:

1 2 3 4 do i=1,n write (*, fmt = '(2x,f4.2)', advance = 'no') x(i) end do
23/04/2008, 13h08
Sylvain Bergeron
Citation:

Envoyé par Truth

merci bien Signus,
c'est drole mais la méme syntaxe qui fait erreur dans g95 compile tres bien dans compaq visual fortran 6.6, je ne c pas pourqoi !

Parce que <n> est une extension Compaq.

En plus des solutions proposées :
Code:

1 2 100 FORMAT(999(2x,f4.2))
Code:

1 2 3 4 5 character (40) :: Fmt ... write(Fmt,*) '(',n,'(2x,f4.2))' write(?,Fmt) Nombres ...
La première fonctionne parce que le format peut prévoir plus d'élément que la liste de variables. Le programme va cependant ajouter 2 espaces à la fin de la ligne (2x) avant de manquer de données (f4.2).