Remplir plusieurs valeurs d'un tableau en une instruction

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:

---

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:

---

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

Va voir reshape().

Effectivement Reshape marche bien, j'ai réussi à remplir mon tableau : voici le code que j'ai réussi à compiler

Code:

---

1 2 3 4

Tab1(1,:,:,1)=Reshape((/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./),(/4,5/))

---

Et ainsi de suite pour les autres valeurs du tableau : Tab1(1,:,:,2); Tab1(2,:,:,1) etc...

Merci beaucoup Sylvain