Discussion :

[mr_samurai]

Salut ,

j'utilise une bibliotheque Fortran dans un programme C++ , et je veux gérer les erreurs.

Voila, la fonction Fortran :

Code :

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

1
2
3
4
5
6
7
8
      SUBROUTINE XERBLA(SRNAME,INFO)
* Generated on Fri Oct  5 13:14:06 RDT 2007 by libs/lapack/build.sh 
* Calls a C function on run-time error inside Lapack/Blas
      INTEGER INFO
      CHARACTER*6 SRNAME
      Call xerbla_c(SRNAME,INFO)
      RETURN
      END

Et dans mon code C++ :

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
static void
xerbla_cpp(const char *srname, const int *info)
{
 //
 // TRAITEMENT : un printf() par exemple. 
 //
}
 
extern "C"
{
 
void
xerbla_c__(const char *srname, const int *info)
{
  xerbla_cpp(srname, info);
}
 
}

Je veux convertir SRNAME pour que mon programme tiens la route

Merci,

[mr_samurai]

Je bloque encore sur le même probléme :

Si j'ai dans mon code fortran :
CHARACTER*6 SRNAME

Comment je peux reccuperer la taille depuis le c ?

[Sylvain Bergeron]

Tu dois consulter la documentation de ton compilateur.

Généralement (mais pas toujours), la longueur est passé en valeur à la fin de la liste d'argument.

Si c'est le cas, ta fonction C devrait avoir la forme :

Code :

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

1
2
3
4
5
6
7
8
9
 
extern "C"
{
 
void
xerbla_c__(const char *srname, const int *info, int Lng)
{
  xerbla_cpp(srname, info);
}

[mr_samurai]

Merci pour votre réponse,

J'avais deja trouver cela, mais cela ne marchais pas. Je suis sous GCC qui supporte en principe ceci.

En fait, je viens de trouver la solution :

Code :

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

xerbla_c__(const char *srname, const int *info, long int Lng)

la taille est un long int, avec un int cela ne marche pas.

Merci .

++

[Thyb1]

En fortran, la fonction

Code :

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

LEN(srname)

renvoie la longueur de la châine, mais attention, telle que tu l'as déclarée au départ (ici 6 si j'ai bien compris)

[mr_samurai]

salut Thyb1,

Pour le moment c'est le compilateur qui gére la taille de la chaine, je pense que c'est mieux à long terme. Avec une nouvelle version de la bibliothéque fortran que j'utilise, mon code reste inchagé.

++