Les structures de la meme classe

Pour pouvoir travailler simultanéement sur plusieurs structures de meme type, il faut avoir plusieurs variables-pointeurs : MONS1 et des autres. L'appartenance des variables à une structure ou à l'autre se faisant par le préfixe. Dans l'instruction POINTEUR, plusieurs nom-de-variables-pointeur peuvent etre définis.

Pour travailler séquentiellement sur des structures de la meme classe on peut conserver la valeur de la variable-pointeur dans une variable fortran de type INTEGER. Par exemple :

		  

subroutine sp1 (ll,lc,...) 

segment monseg 

             integer ijk,nomb(ll,lc),jlc 

             real x,xx(n) 

             real*8 y,yy(3,mm) 

             character*nbca icha(8,ik),chai 

endsegment 

pointeur mons1.monseg  

INTEGER IUYT,IUYR  

          . 

          . 

MM=4 

SEGINI MONS1 

          . 

MONS1.XX(3)= 36  

          . 

          . 

IUYT = MONS1  

MM=8 

SEGINI MONS1 

IUYR = MONS1  

          . 

MONS1.XX(3)= 10  

          . 

          . 

MONS1 = IUYT 

YTR = MONS1.XX(3)  

** ytr vaut dans cet exemple 36  

SEGDES MONS1 

          . 

          . 

MONS1 = IUYR 

TEN = MONS1.XX(3)  

** ten vaut dans cet exemple 10  

SEGDES MONS1 


etc....