Discussion :

[Kuroro]

Bonjour.

J'essaye actuellement d'utiliser des fichiers Fortran dans mon code C++. Utilisant Visual Studio 2005 j'ai réussi à générer une dll et un .lib de mon code Fortran.

Cependant je ne sais pas de un comment l'insérer dans mon projet C++ et de deux comment appeler les fonctions définies dans ma librairie.

Si quelqu'un pouvait m'aider ca serait tres gentil parceque je m'en sors pas

Merci d'avance

[Médinoc]

Eh bien normalement, il suffit d'ajouter le .lib au projet et de déclarer les fonctions correspondantes (généralement dans un fichier d'en-tête)...

[Kuroro]

Avant tout merci pour ton aide. Sinon c'est ce que j'ai fait mais pour une obscure raison cela ne marche pas.

J'ai rajouter mon .lib dans le projet (Properties->Configuration Properties->C/C++->General->Additionnal Include Directories sous Visual Studio 2005).

Mon code fortran est le suivant:

Code :

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

1
2
3
4
5
6
7
8
9
10
 
        MODULE FONCTION_mod
          INTERFACE 
            SUBROUTINE FONCTION(CHAINE,LG_CHAINE,REEL)
              INTEGER(KIND=4), INTENT(INOUT) :: LG_CHAINE
              CHARACTER(LEN=LG_CHAINE), INTENT(INOUT) :: CHAINE
              REAL(KIND=4), INTENT(INOUT) :: REEL
            END SUBROUTINE FONCTION
          END INTERFACE 
        END MODULE FONCTION_mod

Le lanczos.h

Code :

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

extern "C" void fonction_ (char *, int*, float*);

le lanczos.cpp

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
 
#include <iostream> 
#include "lanczos.h"
 
using namespace std;
 
void main()
{
  int   lg_chaine  = 0;
  float reel       = 0.0;
  char  chaine[]   = "chaine_C++";
 
  lg_chaine = strlen(chaine);
  fonction_ (chaine, &lg_chaine, &reel);
 
  cout << "chaîne finale          = " << chaine << endl;
  cout << "longueur de la chaîne  = " << lg_chaine << endl;
  cout << "réel passé par adresse = " << reel << endl;
}

Et enfin mon erreur:

Code :

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

1
2
3
4
5
6
7
8
9
 
1>------ Début de la génération : Projet : testFortran, Configuration : Debug Win32 ------
1>Édition des liens en cours...
1>lanczos.obj : error LNK2019: symbole externe non résolu _fonction_ référencé dans la fonction _main
1>MSVCRTD.lib(crtexew.obj) : error LNK2019: symbole externe non résolu _WinMain@16 référencé dans la fonction ___tmainCRTStartup
1>C:\Documents and Settings\Fabien\Mes documents\Visual Studio 2005\Projects\testFortran\Debug\testFortran.exe : fatal error LNK1120: 2 externes non résolus
1>Le journal de génération a été enregistré à l'emplacement "file://c:\Documents and Settings\Fabien\Mes documents\Visual Studio 2005\Projects\testFortran\testFortran\Debug\BuildLog.htm"
1>testFortran - 3 erreur(s), 0 avertissement(s)
========== Génération : 0 a réussi, 1 a échoué, 0 mis à jour, 0 a été ignoré ==========

[Médinoc]

Include != Library.

Tu dois rajouter le .lib dans Properties->Configuration Properties->Linker->Input->Additional Dependencies.

[Kuroro]

Je l'ai fait aussi mais ca ne change rien

[Médinoc]

Change le sous-système de ton projet de WINDOWS à CONSOLE (dans les options du linker), puisque tu as un main() et non un WinMain().