Construction et initialisation de tableaux

Fortran offre une notion dite 'constructeur' permettant de regrouper les valeurs de différents éléments d'un tableau. La liste des valeurs est encadrée par $(/$ et $/)$. Exemples

       V = (/ 3., 5., 1., 8., 12. /)

est équivalent à $V(1) = 3.$, $V(2) = 5.$, $V(3) = 1.$, $V(4) = 8.$, $V(5) = 12.$

       V = 2.* (/ 3., 5., 1., 8., 12. /) + 19.

est équivalent à $V(1) = 2. * 3. +19.$, $V(2) = 2. * 5. + 19.$,...

Utilisation de listes à boucles implicites dans un constructeur de tableau.

       V = (/ I*0.1 , I=1,5/)

est équivalent à

       DO i = 1, 5
          V(i) = I*0.1
       ENDDO

un autre exemple.

       V = (/ (3.*I+17., I=1,6,2), 20., 8./)

est équivalent à $V(1) = 3.*1+17.$, $V(2) = 3.*3+17.$, $V(3) = 3.*5+17.$, $V(4) = 20.$,$V(5) = 8.$

On peut utiliser le constructeur pour une section du tableau :

       Q(1:8) = (/ I*0.9, I=2,9/)

La notion $Q(~~ (/ 1,3,7,10/)~~)$ représente une section du tableau $Q$ de quatre éléments constitué des éléments d'indices $1$, $3$, $7$, $10$.

       V(2:5) = Q( (/ 1, 3, 7, 10/) )

est équivalent à $V(2)=Q(1)$, $V(3)=Q(3)$, $V(4)=Q(7)$, $V(5)=Q(10)$.