Discussion :

[feynman]

Bonjour,
Moi je suis en train de traiter la commande DATA: j'aimerais bien savoir quel est son rôle dans la déclaration des tableaux, pour cela je veux savoir ce que signifie la commande suivante (Data (ints(i),i=1,4)/4*6.0/, A(10)/-1.0/) dans le programme ci-dessous :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
program test
implicit none
integer :: i,j
real, dimension(20) :: A,B
integer , dimension(10) :: ints
real , dimension(2,3) :: MAT
 
Data (ints(i),i=1,4)/4*6.0/, A(10)/-1.0/
end

Je n'arrive pas à l'afficher sur l'écran, alors comment l'afficher aussi ?
Merci pour votre aide

[Sylvain Bergeron]

L'instruction DATA est une instruction d'initialisation. Elle défini la valeur initiale des variables.

Dans l'exemple Data (ints(i),i=1,4)/4*6.0/, A(10)/-1.0/, elle initialise les 4 premiers éléments de inst à 6, puis a(10) à -1.0

J'insiste sur le terme initial. Si elle est utilisée dans un sous-programme, il n'y aura pas réinitialisation à chaque invocation, mais uniquement avant la première. On ne peut donc pas remplacer l'instruction data par des instructions d'affectation standard. Dans l'exemple suivant, L'affichage sera 4 la première fois et 10 les fois suivantes :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
subroutine test
integer k
data k/4/
write (*,*) k
k = 10
end

C'est une instruction qui date de Fortran 66. Depuis F90, la forme :

type :: Variable = ValeurInitiale

est plus populaire.

[feynman]

Merci pour ta reponse,
si j ai bien compris , dans l exemple Data (ints(i),i=1,4)/4*6.0/, A(10)/-1.0/ , Data initialise seulement le 10eme element de A!? et si je veux initialiser tout les elements de A en utilisant DATA?

[Sylvain Bergeron]

data a /10*-1./

ou

data a /1.,2.,3.,4.,5.,6.,7.,8.,9.,10./

ou tout combinaison...