Patrick Corde & Anne Fouilloux

Initialisation 88
6.3.3 – L’instruction DATA
Comme pour les variables simples, on peut utiliser
l’instruction DATA pour initialiser les tableaux lors de leur
déclaration. Elle permet d’initialiser tout ou partie de
tableaux à l’aide d’une liste de constantes encadrée par le
caractère / (la notation n*valeur peut être employée pour
répéter une même valeur).
Les éléments à initialiser peuvent être spécifiés au moyen
d’une boucle DO implicite : (tab(i), i = m 1 ,m 2 [,m 3 ]).
Exemple
IMPLICIT NONE
INTEGER
:: i, j
REAL, DIMENSION(20) :: A, B
INTEGER, DIMENSION(10) :: ints
REAL, DIMENSION(2,3) :: MAT
DATA A/20*7.0/, B/10., 3.87, 10.5/
DATA (ints(i),i=1,4)/4*6.0/, A(10)/-1.0/
DATA MAT/1., 2., 3., 4., 5., 6./
DATA ((MAT(i,j),j=1,3),i=1,2)/1., 2., 3., &
4., 5., 6./
INSTITUT DU DÉVELOPPEMENT
ET DES RESSOURCES
EN INFORMATIQUE SCIENTIFIQUE
Cours langage Fortran – 27 janvier 2006
Patrick Corde et Anne Fouilloux