Discussion :

[lilly_79]

Bonjour,

Je suis en train d'écrire un programme en fortran qui appelle des fonctions en C.
Le programme en fortran ouvre et écrit dans un fichier texte certains résultats, et je voudrais que les programmes en c contiunent à écrire dans ce fichier en le laissant ouvert le temps de l'exécution du programme.
Le problème est que le fortran utilise un logical unit number pour identifier ce fichier alors que le c utilise un file descriptor.

Comment convertir un logical unit number en file descriptor ?

J'ai trouvé sur le net certaines fonctions : getfd, getfilep... qui ne fonctionnent pas chez moi.

[DaZumba]

Comme c'est une extension au language, il faut utiliser les fonctions ajoutees par ton compilateur. g77 par exemple propose fnum. Voir la doc de ton compilateur, ou revoir la conception de ton programme.

[Sylvain Bergeron]

Au delà du problème identifié par DaZumba (solution propriétaire), il y a le problème des buffers pouvant être distincts dans chaque librairie. Il est hautement recommandé d'éviter de faire des accès sur un fichier avec 2 langages distincts en même temps.

Je te propose la solution suivante :

• Fait toutes tes écritures en C.
• En Fortran, au lieu d'écrire directement dans le fichier, tu écris dans des variables charactères
• Tu écris les variables caractères Fortran en appelant une fonction C qui se chargera d'écrire directement la chaîne dans le fichier

N.B. : Il ne faut jamais sous-estimer les problèmes pouvant découler des solutions propriétaires : il arrive toujours un jour où un programme doit être porté sur un autre système ou OS ou environnement, le tout devant être fait par une autre personne (qui n'y connait rien) et avec un autre compilateur (qui ne supporte pas l'extension)...

[lilly_79]

Merci à vous deux pour vos réponses.

Ta solution, Sylvain, me semble envisageable, même si elle n'est pas la plus simple.
J'ai 9 fonctions en Fortran et 1 seule d'entre elles appelle une fonction en C. Il faudra faire toutes les écritures en C pour ces 9 fonctions si je veux écrire les résultats dans un seul et même fichier, donc d'avantage de mixe C-Fortran et un programme moins cohérent pour la personne qui continuera à programmer.
Mais bon, je réfléchis quand même à cette éventualité, étant donné que je n'en ai pas d'autre.

[Sylvain Bergeron]

La solution proposée n'est pas si lourde qu'elle en a l'air. Par exemple :

Code :

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

1
2
3
4
 
...
write(20,30)VarA,VarB,VarC,...
...

Devient :

Code :

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

1
2
3
4
5
6
7
 
...
character (AssezLong) Buf
...
write(Buf,30)VarA,VarB,VarC,...
call EcritViaC(Buf)
...

et tu ajoutes la subroutine EcritViaC qui est la seule à faire le véritable appel à C :

Code :

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

1
2
3
subroutine EcritViaC(S)
   character (*), intent(in) :: S
   appelle C pour écrire...

Une alternative : tu fais exactement le contraire. Tu modifies uniquement la partie C actuelle pour qu'elle retourne la chaîne à imprimer à Fortran plutôt que de l'impimer elle même...

[lilly_79]

oui, ok, c'est fait et ça fonctionne. Le problème est réglé!

C'était un peu compliqué au départ parce que je développe sous Open VMS sur un serveur alpha. Il a donc fallu que je me familiarise avec les descripteurs.