Discussion :

[rAyyy]

Bonjour,

Je débute sur FORTRAN et je ne comprend pas certaine déclaration de variable
Sur les exemple suivant que signifie les parenthèse et à quoi serve t il?
(J'ai chercher mais je n'ai rien trouver dessus)

DOUBLE PRECISION a( b, * )

INTEGER truc( * )

[Grame]

Bonjour,

DOUBLE PRECISION a( b, * )

Ca signfie que a est une matrice de dimension b par * de réels double précision.

INTEGER truc( * )

truc est un vecteur d'entiers de dimension *

On en déduit 2 choses :
1) ces 2 instructions ne peuvent être écrites que dans un sous programme puisqu'elles donnent des dimensions implicites (notées *) qui doivent être définies explicitement dans le programme principal.

2) La syntaxe est celle du FORTRAN 77. En Fortran 90 (ou plus) on écrira :

Code :

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

1
2
3
 
double precision, dimension(b,*) :: a
integer, dimension(*) :: truc

[Sylvain Bergeron]

...La syntaxe est celle du FORTRAN 77. En Fortran 90 (ou plus) on écrira :

Code :

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

1
2
3
 
double precision, dimension(b,*) :: a
integer, dimension(*) :: truc

Petite précision : La syntaxe integer truc(*) est toujours valide en Fortran 90, et il y a des indécrottables comme moi qui la préfèrent à la plus « moderne »...

[Grame]

Bonsoir Sylvain,

Petite précision : La syntaxe integer truc(*) est toujours valide en Fortran 90, et il y a des indécrottables comme moi qui la préfèrent à la plus « moderne »..

J'entend bien, c'est pourquoi j'ai écrit

on écrira :

et pas

on doit écrire

Comme rAyyy nous dit

Je débute sur FORTRAN

je pense qu'il vaut mieux lui conseiller une écriture « moderne » plutôt qu'une écriture qui risque de devenir obsolète dans les prochaines versions.

Ceci dit, très cordialement, bien sûr.

[Sylvain Bergeron]

Devenir obsolète ? À mon avis, la syntaxe « type variable(dim) » va mourir en même temps que le langage...

Je viens de relire la documentation de John Reid sur les coarrays (ftp://ftp.nag.co.uk/sc22wg5/N1801-N1850/N1824.pdf). On parle d'une version très moderne de Fortran et l'auteur utilise presque exclusivement l'« ancienne » syntaxe.

J'ai lu je ne sais plus où que la différence de syntaxe est philosophique :

• integer, dimension(dim) :: variable signifie que la variable est du type « tableau d'integer »
• integer :: variable(dim) signifie que la variable est un tableau de type integer

La première syntaxe signifie que la dimension fait parti du type, ce qui n'est pas le cas dans la deuxième.

Sur ce, bonne soirée (?).