Problème en interfacant C et Fortran

Bonjour à tous,

je voudrais appeler une fonction Fortran depuis un fichier c. Je me suis donc renseigné sur la question.

J'ai vu que la principale vigilance à avoir est le fait que le compilo Fortran suffixe le nom des fonctions avec un tiret bas. Donc lors de l'appel en C, il faut appeler en fait le nom de la fonction fortran concaténé au tiret bas.

Donc voici l'appel que je fais en C :

Code:

---

1 2 3 4 5 6 7 8

extern void fsim_(int *i, float *r); void main() { int i=100; float r; fsim_(&i, &r); }

---

et la fonction Fortran toute bête sur laquelle je fais le test :

Code:

---

1 2 3 4 5 6 7

subroutine FSim(i,r) integer i real r r = i return end

---

Si je compile les 2 fichiers indépendamment, pas d'erreurs, pas d'avertissements, tout à l'air de bien se passer.
Mais c'est au moment d'effectuer l'éxécution :

Citation:

---

error LNK2001: unresolved external symbol _fsim_
Debug/main.exe : fatal error LNK1120: 1 unresolved externals

---

Ce qui m'a tout l'air d'être une erreur de linkage. Pourtant j'ai bien inclus le fichier fortran au projet (je suis sous VC6.0).

Toute suggestion sera la bienvenue !
Merci,

karl3i.

Bonjour,

Un exemple trouvé dans MSDN reprenant les declarations en C et en FORTRAN

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33

/* File CMAIN.C */   #include <stdio.h>   extern int __stdcall FACT (int n); extern void __stdcall PYTHAGORAS (float a, float b, float *c);   main() { float c; printf("Factorial of 7 is: %d\n", FACT(7)); PYTHAGORAS (30, 40, &c); printf("Hypotenuse if sides 30, 40 is: %f\n", c); }   C File FORSUBS.FOR C INTEGER*4 FUNCTION Fact (n) INTEGER*4 n [VALUE] INTEGER*4 i, amt amt = 1 DO i = 1, n amt = amt * i END DO Fact = amt END   SUBROUTINE Pythagoras (a, b, c) REAL*4 a [VALUE] REAL*4 b [VALUE] REAL*4 c [REFERENCE] c = SQRT (a * a + b * b) END

---

Cordialement

Salut

Je sais que pour faire appel à des fonctions en assembleur depuis un programme c, il faut mettre le tiret avant le nom de la fonction. As-tu essayé ?

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

// MODULE FORTRAN subroutine _FSim(i,r) // Avec un tiret integer i real r r = i return end   // MODULE C extern void fsim(int *i, float *r); // Sans le tiret void main() { int i=100; float r; fsim(&i, &r); // Sans le tiret }

---

On sait jamais :wink:

Merci pour vos aides !
Elijha : En Fortran, un tiret bas ne peut pas commencer le nom d'une fonction.
Pipin : Merci pour le code.

Voilà la solution pour ceux que ca intéresse :

main.c

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

#include <stdio.h> #include <stdlib.h> #include "fsim_.h"   void main() { int i=100; float r; FSIM(i, &r); printf("is has the value %d and r has the value %f \n",i,r); }

---

fsim_.h

Code:

---

1 2	extern void __stdcall FSIM (int i, float *r);

---

Et enfin FSim.f

Code:

---

1 2 3 4 5 6

subroutine Fsim (a,c) integer*4 a [VALUE] real*4 c [REFERENCE] c = a end

---

Karl3i.

Bonjour,

En fait, le tiret bas, c'est pour les compilos type gcc...

Pour VC++, qui ne peut rien faire comme tout le monde, il faut mettre dans le code C le nom de la routine ou de la fonction en majuscules.

Exact, merci de la précision.

Bonjour,

Je suis un débutant sur Visual C++. J'ai ce meme probleme c'est à dire appeler des routines Fortran depuis Visual C++.

Je voudrais savoir comment on compile une routine Fortran sous VC 6.0 et comment faire le linkage apres.

Merci.