Discussion :

[jfjobidon]

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 :

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

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

Si j'écris :

Code :

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

     result=(0.0d0,0.0d0)

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

Code :

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

   result=(x,0.0d0)

j'obtiens l'erreur suivante :

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

Quelle est mon erreur ?

Merci d'avance

Jean-Francois

[FR119492]

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

[jfjobidon]

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 :

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

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

donne le même message d'erreur.

Mais j'ai trouvé la solution :

Code :

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

    result=cmplx(x,0.0d0)

ou encore

Code :

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

    result=cmplx(x)

qui assigne automatiquement 0 à la partie imaginaire.

Jean-françois