Discussion :

[Sphost]

Bonjour,

Je suis actuellement sous une plateforme linux.
En effectuant des premiers tests de compilation avec gfortran, il semblerait qu'il n'accepte pas les variables de type structure.
En cherchant un peu j'ai appris que g77 (utilisé par gfortran pour le fortran 77) ne les accepte pas.
Quid du fortran 95 ? Connaissez-vous une possibilité (option de compilation) afin de permettre l'utilisation de structure avec gfortran.

Sinon connaissez-vous un compilateur Fortran les acceptant ?

Merci d'avance.

[afrancisco]

Salut,

Je ne comprends pas ta question : par "structure" sous-entends-tu "type" comme par exemple :

Code :

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

1
2
3
type fissure
	real(kind=4) :: x, xmin, xmax
end type fissure

Si c'est le cas, il n'y a aucun problème : gfortran intègre presque toutes les fonctionnalités de fortran2003, donc a fortiori f95, f90, f77 il faut simplement préciser la bonne extension.

[Sphost]

Salut,

Je ne comprends pas ta question : par "structure" sous-entends-tu "type" comme par exemple :

Code :

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

1
2
3
type fissure
	real(kind=4) :: x, xmin, xmax
end type fissure

Si c'est le cas, il n'y a aucun problème : gfortran intègre presque toutes les fonctionnalités de fortran2003, donc a fortiori f95, f90, f77 il faut simplement préciser la bonne extension.

J'entends structure dans le sens :

Code :

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

1
2
3
4
5
6
7
 
STRUCTURE /TEST/
	    REAL*4	X
	    REAL*4	Y
END STRUCTURE
RECORD/TEST/REC
REC.X = ...

Il s'agit en fait de code Fortran issu du monde VAX VMS que je souhaiterais passer sous Linux.

[DaZumba]

Il s'agit en fait de code Fortran issu du monde VAX VMS que je souhaiterais passer sous Linux.

Pas de chance, le mot-cle structure est une extension DEC au Fortran, donc des que tu utilises un autre compilateur, ca ne marche plus (c'est le probleme lorsqu'on utilise des extensions au standard).
Heureusement, la modification n'est pas trop lourde.

Code :

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

1
2
3
4
5
6
7
 
STRUCTURE /TEST/
	    REAL*4	X
	    REAL*4	Y
END STRUCTURE
RECORD/TEST/REC
REC.X = ...

devient

Code :

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

1
2
3
4
5
6
7
8
9
10
 
type test
  sequence
  real(kind=4) :: x
  real(kind=4) :: y
end type test
 
type (test) :: rec
 
rec%x = ...

Note que le mot-cle sequence est la pour indiquer que l'ordre dans lequel les variables sont donnees dans la structure doit etre conserve. C'etait implicite pour le mot-cle structure sous VMS.