affecter une variable d'environnement en fortran

Bonjour à tous,
J'aimerais affecter une variable d'environnement dans un programme fortran.

Voici le code que je tente (je compile avec sunstudio f90 version 12):

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

program test implicit none character*20 var character*20 home   call getenv('HOME',home) print *, "home = ",home call getenv('MON_ENV',var) print *, "MON_ENV = ",var call system('export MON_ENV="BONJOUR"') print *, "MON_ENV = ",var   end program test

---

Et voici la sortie:

Code:

---

1 2 3

home = /home/tiresias54 MON_ENV = MON_ENV =

---

Du coup mon

Code:

---

call system('export MON_ENV="BONJOUR"')

---

n'a pas l'air de fonctionner... A priori en fortran il existe des fonctione internes permettant de lire des variables d'environnement (getenv), mais pas d'écrire dedans (wtf!?).

Auriez-vous une dée svp ? :)

Bonjour,

call system() lance un shell, qui se termine avec la fin de ce même call system().
La variable d'environnement MON_ENV est bien affectée, mais sa portée ne dépasse pas le temps de vie du shell dans lequel elle est définie.

Bonjour, et merci pour ta réponse.

Bon après moulte recherche, je pense qu'on ne peut pas faire ça en fortran :/

du coup j'ai linké avec une petite routine C que j'ai écrit à coté (on pourrais l'améliorer, mais pas besoin pour ce que je veux faire):

Code:

---

1 2 3 4 5

int set_var_(void) { putenv("MON_ENV=BONJOUR"); return 0; }

---

Bonjour,

Tant mieux si tu peux y parvenir via du C, mais je ne peux m'empêcher de poser la question: pourquoi diable vouloir affecter une variable d'environnement en cour d'exécution? C'est "très dangereux" au sens où si un autre processus modifier également la variable d'environnement pendant que ton programme s'exécute... et ce n'est pas du domaine de l'improbable: pense au cas où plusieurs instances de ton programme sont conjointement en cours d’exécution.

Désolé de ne pas avoir répondu avant.
Mon client est grande boite industrielle qui utilise des programmes ayant des couches, surcouches et sursurcouches, écrites en C, en C++, en fortran77, en fortran 90, etc .... J'avais signalé la dangerosité de la chose au client, qui a décidé (comme souvent, et après moultes discussions) "de faire au plus simple, de toute façon on n'a pas le budget" :/ Et au final on en arrive à être obligé de faire ce genre de m... car on ne peut pas faire autrement: c'est le client qui décide. Ceci dit, quand ça plantera ça nous fera du boulot, mais bon c'est pas très gratifiant de faire ça.