Appel de fonction Fortran via un programme C

Bonjour

Depuis un programme écrit en C, j'appelle des fonctions Fortran. J'ai eu quelques soucis parce que le C passe les paramètres par valeurs tandis que le fortran les attend par adresse. Le problème que j'ai est pour récupérer la valeur retournée par la fonction Fortran.

Voici le code C de ma fonction :

Code:

---

1 2 3

double sortie2; sortie2 = hspt_ (0.08, 0.08, 1);

---

Voici le code Fortran :

Code:

---

1 2 3 4 5

real*8 function hspt (a,b,c) hspt=a+b+c return end

---

Normalement, sortie2 devrait valoir 1.16. Mais en sortie j'ai une valeur de type 1073741824.
Est-ce que quelqu'un pourrait m'aider ?
Merci d'avance

salut,

Regarde dans la doc de ton compilateur l'attribut VALUE (je ne sais pas si cet attribut est implémenté partout) pour tes variables a, b, c.

Si ton compilateur supporte la norme 2003, jette un œil à www.idris.fr/data/cours/lang/fortran/f2003/Fortran_2003.pdf

Bonjour,

Une idée en passant: tu ne spécifie pas les types de a, b et c dans ta fonction fortran; il sont probablement (sauf option de compilation spécifiques) considéré comme des réels simple précision.
Et si je ne m'abuse, en C les constantes littérales (telles tes '0.08' et '1' des arguments mis à l'appel de ta fonction fortran) sont par défaut en double précision...

Rajouter une saine déclaration explicite des types des arguments

Code:

---

1 2	real*8 a,b,c

---

dans ta fonction fortran te permettras de voir si le problème est bien là.

Bonne continuation.

hspt dans le code fortran en mode debug vaut bien 1.16.
Je ne pense pas que le problème vinne de la déclaration de a,b,c.