Discussion :

[karl3i]

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 :

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

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 :

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

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 :

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.

[pipin]

Bonjour,

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

Code :

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

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

[Elijha]

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 :

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

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

[karl3i]

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 :

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

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 :

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

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

Et enfin FSim.f

Code :

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

1
2
3
4
5
6
 
      subroutine Fsim (a,c) 
      integer*4 a [VALUE]
      real*4 c [REFERENCE] 
      c = a 
      end

Karl3i.

[sdenis]

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.

[karl3i]

Exact, merci de la précision.

[bassabo]

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.