Discussion :

[Wire.Less]

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

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

Code :

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

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 :

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

(/ 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 :

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

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

plutot que de devoir écrire :

Code :

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

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.

[Sylvain Bergeron]

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 :

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

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)

[Wire.Less]

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/) )

Du coup maintenant j'ai :

Code :

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

X = MERGE( ARRAY_1 , ARRAY_2 , MASK_BOOLEAN_ARRAY)

et j'en suis heureux