Mes write ne compilent pas

Bonjour,

J'ai récupéré un code fortran, que je dois interfacer avec mon propre programme C++. Après un certain nombre de recherche sur Internet, j'ai finalement compris comment cela doit se faire. Cependant, je n'arrive à rien car il semblerait qu'aucune fonction "write" ne compile! 8O
Je m'explique. Je compile mes .cpp en .o avec g++ .Pas de problème.
Je compile mes fortranX.f en .o avec f77. Pas de problème.
Je lie tout ça avec g++, et j'obtiens le message d'erreur suivant:

Code:

---

1 2 3

fortranX.o: undefined reference to '__s_wsFe_pv' fortranX.o: undefined reference to '__do_f_out_pv' fortranX.o: undefined reference to '__e_wsfe_pv'

---

Et quand je mets les "write" en commentaires, cela compile parfaitement. Mais cela ne sert à rien puisque j'ai besoin des writes (ce ne sont pas que des sorties écrans). Ils m'ont l'air syntaxiquement correct pourtant (ce qui ne veux pas dire grand chose, j'ai lu ma première ligne de fortran avant-hier :oops: ) Ils sont presque tous de la forme:

Code:

---

1 2 3

if(x.gt.0) write(nout,9821) 9821 format(/48h exit qpdf2. inform=0 after sensitivity analysis)

---

Comme les personnes qui m'ont donné le code assure qu'il fonctionne, j'en ai déduits qu'il me manque une librairie ou une option de compilation. Eux utilisent

Code:

---

isort -O -c -w -openmp -openmp_report2 -fpp2 -tpp7 -pc64 -i4 -prec_div

---

Moi, je n'ai que gcc/g++ et f77/f90 à ma disposition car isort est payant.
Est-ce que quelqu'un aurait déjà vu cette erreur? Au bureau, tout le monde sêche sur le problème depuis déjà deux jours, et je commence à trouver le temps long ;)

Merci d'avance
Drude

Dans la suite GCC (qui comprend g++ et g77), les fonctions standard du Fortran sont inclues dans la bibliotheque libg2c. Il faut lier ton executable avec cette bibliotheque explicitement (flag -lg2c lors de ton appel final a g++).

Non, merci de ta réponse DaZumba, mais cela ne marche pas chez moi :( . Je viens d'essayer à l'instant, et j'obtiens le même message d'erreur.

Code:

---

1 2 3 4 5

g++ fortran1.o fortran2.o cpp1.o cpp2.o main.o -I/users/include/ -o prog -lm -lg2c fortran1.o: In function 'fct1_' fortran1.o: undefined reference to '__s_wsFe_pv' fortran1.o: undefined reference to '__do_f_out_pv' fortran1.o: undefined reference to '__e_wsfe_pv'

---

Grumpf. Je commence à haïr les _, moi ;)

Etrange. Sous quelle plateforme es-tu ? Si tu es sous SUN, tu peux essayer de lier avec -lf77compat (je ne suis pas certain qu'il la trouvera, ceci dit).
Essaie egalement de faire des write() plus modernes. g77 accepte ton utilisation (Hollerith constants) mais c'est un peu obsolete.
Remplace le

Code:

---

1 2 3

if(x.gt.0) write(nout,9821) 9821 format(/48h )

---

par

Code:

---

1 2	if(x .gt. 0) write(nout, '(A47)') 'exit qpdf2. inform=0 after sensitivity analysis'

---

pour voir si cela arrange les choses...

Sinon, essaie de construire un executable simple:
forfunc.f:

Code:

---

1 2 3 4 5 6 7 8 9 10 11

SUBROUTINE display(a, b) IMPLICIT NONE   REAL a INTEGER b   WRITE(6,'(A2,1X,F5.2)') 'a=', a WRITE(6,'(A2,1X,I1.1)') 'b=', b   END

---

forfunc.h:

Code:

---

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

#ifndef H_FORFUNC #define H_FORFUNC   #define FDEC(x) x##_   extern "C" { void FDEC(display)(float *a, int *b); }   #endif

---

(la macro FDEC sert a ajouter le underscore que mon compilateur Fortran ajoute systematiquement, et le extern "C" empeche le compilateur C++ de decorer la fonction comme il le faut d'habitude).
cppfunc.cpp:

Code:

---

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

#include "forfunc.h"   int main(void) { float a = 17.0; int b = 6;   FDEC(display)(&a , &b);   return 0; }

---

On compile et on edite les liens:

Code:

---

1 2 3 4

g77 -c forfunc.f g++ -c cppfunc.cpp g++ cppfunc.o forfunc.o -o cppfor -lg2c

---

Sur ma plateforme (RedHat Linux), je n'ai aucun probleme et j'obtiens bien:

Citation:

---

a= 17.00
b= 6

---

Ca y est, ça marche! :D Youpi!

J'ai essayé ton exemple simple DaZumba, et cela compilait correctement. En fait, il suffisait de prendre g77 comme compilateur fortran, et non f77. Pourquoi l'un et pas l'autre? Je n'en sais rien, mais maintenant, mon programme compile.

Merci encore pour ton aide.

Citation:

---

Envoyé par Drude

En fait, il suffisait de prendre g77 comme compilateur fortran, et non f77.

---

Chez moi, f77 est un alias de g77, et j'avais suppose a tort que c'etait egalement le cas chez toi.

Citation:

---

Envoyé par Drude

Pourquoi l'un et pas l'autre?

---

Les compilateurs sont livres avec leur version de la bibliotheque standard du Fortran (i.e. toutes les fonctions que le Fortran apporte par defaut, dont WRITE). Dans le cas de la collection GCC, les bibliotheques standard du Fortran et du C++ sont basees sur la bibliotheque C. Pour f77, l'organisation interne de la bibliotheque est differente - l'editeur de lien ne pouvait pas trouver ces fonctions internes differentes.

Il y a d'autres raisons pour lesquelles il faut utiliser des compilateurs compatibles (notamment la facon dont les fonctions interagissent avec le systeme, les autres bibliotheques et entre elles - cf. application binary interface).