Discussion :

[bybby83]

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 C :

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

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

Voici le code Fortran :

Code :

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

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

[afrancisco]

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

[Ehouarn]

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 :

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

1
2
 
      real*8 a,b,c

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

Bonne continuation.

[bybby83]

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.