Discussion :

[vince3320]

Bonjour,

Voilà j'ai un petit souci.
J'ai un programme fortran qui prend en paramètre un nom de fichier à ouvrir.

Code :

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

1
2
 
character arg*80

J'ouvre bien ce fichier (dont le nom fait moins de 80 caractères) et, ensuite, je fais appel à une fonction C avec ce nom de fichier en paramètre.
Or, dans ma fonction C, je n'ai aucune idée de la taille de ma chaîne et je n'ai pas non plus '\0' à la fin.
Ma question est de savoir comment initialiser proprement dans mon code Fortran ma variable arg avec 80 '\0' pour pouvoir la traiter normalement dans mon code C...
Ou alors, il existe une solution moins mauvaise....

Merci !

[Sylvain Bergeron]

Avant f2003, l'appel à une fonction C dépend totalement du compilateur.

En général, tu dois insérer manuellement à la fin de la chaîne un caractère nul :

Code :

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

call C(trim(MaChaine)//char(0),...)

De plus, la plupart des compilateurs passent la longueur de la chaine à la fin de la liste (by value). Le code C doit le prévoir. Certains compilateurs offrent des fonctions permettant d'éviter le passage de la longueur. Tu dois vraiment lire le manuel !

[vince3320]

Bonjour,
Merci de ta réponse!

Par contre, je ne suis pas sûre de bien la comprendre.
La fonction trim existe t'elle en fortran 77?
Sinon, existe t'il un équivalent?

Comment connaitre la taille de ma chaine de caractere?
Comme c'est un argument et que je n'ai qu'un tableau static, je ne vois pas comment savoir ou s'arrete ma chaine...

De quel manuel parles tu?

Merci

[DaZumba]

Par contre, je ne suis pas sûre de bien la comprendre.
La fonction trim existe t'elle en fortran 77?

Ca depend du compilateur. A verifier avec le tien.

Comment connaitre la taille de ma chaine de caractere?

La methode classique est d'utiliser cette petite fonction:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
 
      INTEGER FUNCTION strlen(st)
      INTEGER   i
      CHARACTER st*(*)
 
      i = len(st)
      DO WHILE (st(i:i) .eq. ' ')
        i = i - 1
      ENDDO
      strlen = i
 
      RETURN
      END

De quel manuel parles tu?

Sylvain Bergeron parlait du manuel de ton compilateur Fortran.

[vince3320]

Merci pour ta reponse.

En fait, j'ai initialise la chaine avec des espaces.
Je recupere ensuite mon nom de fichier et j'utilise la fonction len_trim qui me permet de savoir la taille exacte de ma chaine. (la fonction trim n'etant pas reconnu par mon compilateur).
Ensuite, je passe mon nom de fichier et ma taille a ma fonction externe C et tout va bien!

Merci encore!