Assignation dans variable complexe

Bonjour

Je calcule la valeur de la partie réelle de 'result'.
Le résultat du calcul est placé dans 'x'.
Ensuite, je voudrais assigner 'x' dans la partie réelle de 'result' avec 0 pour la partie imaginaire.

Mes variables sont définies ainsi :

Code:

---

1 2	COMPLEX(KIND=8) :: result REAL(KIND=8) :: x

---

Si j'écris :

Code:

---

result=(0.0d0,0.0d0)

---

Le programme compile sans erreur. Par contre, si j'écris :

Code:

---

result=(x,0.0d0)

---

j'obtiens l'erreur suivante :

Citation:

---

A symbol must be a defined parameter in this context. [X]
result=(x,0.0d0)

---

Quelle est mon erreur ?

Merci d'avance

Jean-Francois

Salut!
Si j'en crois ton message, tu as imposé le type de la variable x, mais pas sa valeur. D'autre part, je pense qu'il n'est pas judicieux de faire des calculs dans les instructions de déclaration. Leur place normale est dans les instructions exécutables.
Jean-Marc Blanc

Citation:

---

Envoyé par FR119492

Si j'en crois ton message, tu as imposé le type de la variable x, mais pas sa valeur.

---

Rebonjour

Merci pour la réponse

Je précise que la valeur de 'x' était d'abord calculée. Par exemple :

Code:

---

1 2	x=1.0d0 result=(x,0.0d0)

---

donne le même message d'erreur.

Mais j'ai trouvé la solution :D:

Code:

---

result=cmplx(x,0.0d0)

---

ou encore

Code:

---

result=cmplx(x)

---

qui assigne automatiquement 0 à la partie imaginaire.

Jean-françois