Discussion :

[vincent2507]

Bonjour,
je suis habitué au Java mais je dois me mettre au Fortran et je galère !
Voici mon problème :
je dois manipuler des objets (appelons-les des 'components') qui présentent des similarités : un nom, un numéro et une valeur représentative. J'aimerais pouvoir les rassembler dans une liste ou un vecteur afin de pouvoir les manipuler facilement et avoir accès à leur nom, numéro ou valeur.
En Java, j'aurais d'abord crée une classe (component) avec des attributs (name_compo,num_compo,val_degrad), puis ensuite un vecteur d'objets de type component.
Mais comment fait-on en fortran??

J'ai essayé la namelist :

Code :

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

1
2
3
4
5
 
character*6,DIMENSION(:),allocatable::name_comp(:)                                  !name of component
integer,DIMENSION(:),allocatable::num_comp(:)                                           !number of the component
real,DIMENSION(:),allocatable::val_degrad(:)                                            !value of degradation
NAMELIST /components/ name_compo,num_compo, val_degrad

mais ca ne marche pas du fait de l'allocation dynamique de mémoire dont j'ai besoin.
Je pense qu'il faudrait que je crée un module component :

Code :

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

1
2
3
4
5
6
 
MODULE component
    character*8::name_comp
    integer::num_comp
    real::value_degrad
END MODULE component

mais je ne sais pas du tout comment l'utiliser ensuite.

Merci beaucoup de votre aide

[Sylvain Bergeron]

La solution se trouve dans les « types » :

Code :

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

1
2
3
4
5
6
 
type TComponent
  character*6 :: name_comp  ! name of component
  integer     :: num_comp   ! number of the component
  real        :: val_degrad ! value of degradation
end type

De là, tu peux créer un variable de type Component et l'allouer :

Code :

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

1
2
3
4
 
type (TComponent), allocatable :: CompList(:)
...
allocate(CompList(NbrItem))

Pour accéder aux membres de CompList, tu dois utiliser l'opérateur %, par exemple CompList(i)%name_comp = ...

Finalement, il est généralement plus efficace de définir les types dans des modules et d'y insérer également les méthodes (fonctions et routines) associées. Par exemple :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
module ModuleComponent
  implicit none
  type TComponent
    character*6 :: name_comp  ! name of component
    integer     :: num_comp   ! number of the component
    real        :: val_degrad ! value of degradation
  end type
contains
  subroutine ReadComponent(Self)
    type (TComponent), intent(in out) :: Self
    ...
    end subroutine
...
end module

Ton programme utilisateur du module aura la forme :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
program Test
  use ModuleComponent
  implicit none
  type (TComponent), allocatable :: CompList(:)
  ...
  allocate(CompList(NbrItem))
  ...
  do k = 1, LongueurList
     call ReadComponent(CompList(k))
  ...