Pointeurs sur les tableaux

On va voir qu'un même pointeur pourra être associé à des tableaux de profil différent à condition qu'ils soient de même rang.

PROGRAM  Ptr_tab
   IMPLICIT NONE
   integer, dimension (3),target  :: t1 = 1
   integer, dimension (5),target  :: t2 = 2
   integer, dimension (:),pointer :: p1, p2
   p1 => t1
   p2 => t2
   p1(2:3) = p2(4:5)
   print*,t1,t2,p1,p2

   p1 => t1(1:2)
   p1 = 3
   print*,t1,t2,p1,p2
END PROGRAM  Ptr_tab

 
   p1 => t1
   p2 => t2

signifie que $p1$ est associé à $t1$ et $p2$ est associé à $t2$

 
   p1(2:3) = p2(4:5)

est une affectation de la section du tableau $t1(2:3)$ à la section du tableau $t2(4:5)$

 
  print*,t1,t2,p1,p2

donne t1=p1 = 1 2 2 et t2=p2 = 2 2 2 2 2

 
   p1 => t1(1:2)

signifie que $p1$ est asscocié à la section $t1(1:2)$ et que l'instruction

 
   p1 =3

modifie uniquement cette section (très fort)

 
  print*,t1,t2,p1,p2

donne t1=p1 = 3 3 2 et t2=p2 = 2 2 2 2 2