Bonjour,

J'ai un tableau à 4 dimension et je voudrais le remplir (en une ligne) de valeurs toutes différentes et en fixant 2 dimensions sur les 4.
Pour être plus clair, je voudrait quelque chose qui ressemble à ça :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
 
      DOUBLE PRECISION, DIMENSION(6,4,5,3) :: Tab1
      INTEGER i,j
 
      ((Tab1(1,i,j,1),i=1,4),j=1,5) = (/1018,1083,1138,1181,986.7,
     & 1052,1105,1148,943.9,1008,1060,1101,917.5,980.9,1032,1072,886.9,
     & 949.3,999.3,1038/)
Cependant cela ne fonctionne pas. Je suis obligé de passer par "DATA" :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
 
      DOUBLE PRECISION, DIMENSION(6,4,5,3) :: Tab1
      INTEGER i,j
 
      DATA ((Tab1(1,i=1,4,j=1,5,1),i=1,4),j=1,5) /1018,1083,1138,1181,986.7,
     & 1052,1105,1148,943.9,1008,1060,1101,917.5,980.9,1032,1072,886.9,
     & 949.3,999.3,1038/
Ce qui m'empêche de modifier mon Tab1 par la suite avec la même instruction DATA (et puis en plus c'est pas propre !)

Voilà merci de votre aide