F95 - constructeur de tableau :

Bonjour, je souhaite alléger mon écriture en fortran :

par exemple, j'ai 10 paramètres à initialiser :

Code:

---

REAL :: X1, X2, X3, X4, Y5, Z6, A7, B8, C9, D10

---

Est-il possible de réaliser celà via le constructeur de tableau comme sous l'écriture suivante ? (ou une forme approché ?)

Code:

---

(/ X1, X2, X3, X4, Y5, Z6, A7, B8, C9, D10 /) = (/ 1, 2, 3, 4, 5, 6, 7, 8, 9, 10 /)

---

?

J'ai l'impression que le contructeur de tableau ne peut pas figurer à gauche de l'initialisation ? me tromperais-je ?

Merci tout le monde.


(
Pour être exacte, mon problème réel est un peu plus complexe, il consiste, j'essais de simplifier l'expression suivante :

Code:

---

(/X1, X2, X3, X4, X5 /) = MERGE( ARRAY_1 , ARRAY_2 , MASK_BOOLEAN_ARRAY)

---

plutot que de devoir écrire :

Code:

---

1 2 3

X1 = MERGE( ARRAY_1(1) , ARRAY_2(1) , MASK_BOOLEAN_ARRAY(1)) ... X1 = MERGE( ARRAY_1(5) , ARRAY_2(5) , MASK_BOOLEAN_ARRAY(5))

---

avec MERGE une fonction intrinsèque F95

)

Re-MERCI.

Ce n'est pas possible d'avoir plusieurs variables à gauche du =.

Et personnellement, je ne vois pas très bien l'intérêt. La minimisation du coût à long terme d'un code s'atteint rarement en minimisant le nombre de ligne. (Le langage APL est le langage le plus compact que je connaisse et l'un des plus couteux d'entretien. Idem pour l'assembleur.)

Cela dit, tu pourrais utiliser un vecteur temporaire :

Code:

---

1 2 3 4 5 6 7 8 9 10

<<Type>> VectTemp(size(ARRAY_1))   ...   VectTemp = MERGE( ARRAY_1 , ARRAY_2 , MASK_BOOLEAN_ARRAY) X1 = VectTemp(1) X2 = VectTemp(2) X3 = VectTemp(3) X4 = VectTemp(4)

---

Merci Sylvain. Oui, en effet ma question n'était pas très intelligente ... Mais l'avantage des forums c'est qu'on parviens souvant à avoir des réponses beaucoup plus intelligente que ses questions !
:-D
Donc ...
j'ai faut à peut près se que tu m'as dit ... je me suis autorisé à remplacer X1, X2, X3, X4, X5 par X( (/1, 2, 3, 4, 5/) ) :ccool:

Du coup maintenant j'ai :

Code:

---

X = MERGE( ARRAY_1 , ARRAY_2 , MASK_BOOLEAN_ARRAY)

---

et j'en suis heureux :ptdr: :love: :love: