Interface Fortran pour fonction C avec un char** en paramètre

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:

---

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

---

interface fortran (dans un .c):

Code:

---

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:D) pour un char * *?

Merci.

Je ne garantis rien, mais...

En Fortran :

Code:

---

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.

---

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:

---

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:

---

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?

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

Code:

---

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:

---

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:

---

void Foo(char** list)

---

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