Discussion :

[Truth]

Bonjour,

j'ai le code suivant :

Code :

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

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 :

Error: Unexpected element in format string

comment corriger cette erreur ?
merci.

[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 :

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

1
2
3
4
5
 
100 format(2x,f4.2$)
do i=1,n
   write(*,100) monNombre
enddo

[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 !

[Signus]

ca je ne peux pas te dire pourquoi disons que g95 est un peu plus regardant !!!

[Grame]

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 :

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

1
2
3
4
 
   do i=1,n
      write (*,  fmt = '(2x,f4.2)', advance = 'no') x(i)
   end do

[Sylvain Bergeron]

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 :

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

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

Code :

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

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).