Les tableaux automatiques

Les tableaux automatiques voient leurs emplacements alloués à chaque appel.

Exemple. Echange les valeurs de deux tableaux.

 
       SUBROUTINE Echange (Ta, Tb)
          IMPLICIT NONE
          !------ arguments : tableaux de profil implicite ----
          INTEGER, DIMENSION (:), INTENT(INOUT) :: Ta, Tb 
          ! tableau automatique : tableau local de taille variable
          INTEGER, DIMENSION (SIZE(Ta))                :: Temp    
  
          Temp = Ta
          Ta = Tb
          Tb = Temp
       END SUBROUTINE Echange

Bien entendu, il est nécessaire que l'interface de cette subroutine soit explicité dans le programme principal.

$\ominus$ Le profil d'un tableau automatique doit être donné en fonction des profils des arguments.