Types dérivés (TYPE)

Il est souvent utile de pouvoir manipuler des objets plus sophistiqués que ceux fournis par les types intrinsèques. Par exemple, nous souhaitons travailler sur des objets représentant des personnes.

Exemple de déclaration du type personne.

       TYPE personne
          CHARACTER (len = 20)  :: nom
          REAL                  :: age 
          INTEGER               :: ID
       END TYPE personne

Pour créer une structure de ce type :

       type(personne) :: VOUS, MOI

' VOUS ' est de type personne contenant trois composantes distinctes. On accède à une composante via ($\%$). Par exemple

       VOUS%nom = 'Lea'
       VOUS%age = 1.6
       VOUS%ID = 1001 

On peut initialiser le type VOUS de façon équivalente

 
       VOUS = personne ('Lea', 1.6,1001)

On peut effectuer des opérations :

       x = VOUS%age + MOI%age