Discussion :

[ZeLL]

Bonjour a tous,

je pense que le titre est assez explicit,
J ai une fonction c:
void Foo (char** name)
et j aimerai implementer une interface pour fortran 90
j'ai dejà réaliser des interfaces pour des parametres char*
exemple:
fonction c:

Code :

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

1
2
 
void Foo(char* name){...}

interface fortran (dans un .c):

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
void foo(char* fname, long int string_length){
  char* name;
  int i;
  name = (char*)malloc(sizeof(char)*(string_length+1));
  for (i=0;i<string_length;i++){
    name[i]=fname[i];
  }
  name[i]='\0';
  Foo(name);
  free(name);
}

Ceci marche sans probleme, quelqu'un sait il si il est possible d'implémenter
une interface similaire (ou pas) pour un char * *?

Merci.

[Sylvain Bergeron]

Je ne garantis rien, mais...

En Fortran :

Code :

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

1
2
3
4
5
 
integer Ptr
character (...) Str
Ptr = loc(Str) ! Attention, loc() non standard
call FonctionC(Ptr) ! Passe l'adresse de Ptr contenant l'adresse de Str.

[ZeLL]

merci sylvain
en fait je recupère l'adresse de ma liste de chaine dans le
front end c, mon probleme est plus dans le traitement c.

quand j appelle ma fonction en fortran:

Code :

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

1
2
3
4
5
6
 
CHARACTER*25 LIST(3)
LIST(1)='A'
LIST(2)='B'
LIST(3)=' '
CALL FOO(LIST)

je recupere bien l adresse dans le front end c, ainsi que la longueur
de chaque chaine (string_length=25)

Code :

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

1
2
3
4
 
void foo(char** flist, long int string_length){
...
}

Donc mon probleme serait plutot du c
(message mal placé?)
j poste la soluce des que j'y suis

Juste par curiosité, sylvain, t'aurais pas fait un bts vers la rochelle?

[ZeLL]

Bon j'ai trouver la solution,
en fait quand j appelle ma fonction en fortran:

Code :

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

1
2
3
4
5
6
 
CHARACTER*25 LIST(3) 
LIST(1)='A' 
LIST(2)='B' 
LIST(3)=' ' 
CALL FOO(LIST)

je recupere bien l adresse dans le front end c, ainsi que la longueur
de chaque chaine (string_length=25),
mais le type que je récupère n'est pas un char**
mais un char* de taille 75
donc le bon prototype pour récupérer mon appelle en c est

Code :

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

1
2
3
4
5
6
void foo(char* flist, long int string_length)
{/*avec strlen(flist)=75 et string_length=25*/}

Et non pas:
void foo(char** flist, long int string_length)

Je rappelle juste que le but était de créer une interface fortran pour appeler ma
fonction c

Code :

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

void Foo(char** list)

Voila, j'espère que le post était bien placé.