Ajustement d'un SEGMENT

L'instruction :

		    

SEGADJ nom-variable-pointeur  

s'emploie comme SEGINI. c'est à dire que toutes les variables dimensionnantes des tableaux du segment doivent etre définies préalablement à l'appel.

ESOPE, suivant les demandes tronquera ou agrandira les tableaux en conservant les valeurs des variables qui existent avant et après l'instruction.

Exemple :

		   subroutine sp1 (ll,lc,n,mm,inter,...) 

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 

          . 

          . 

MONS1=INTER 

N=36 

IK=18 

SEGADJ MONS1