Discussion :

[jeanluc31300]

Bonjour,

J'ai vu dans le FAQ FORTRAN comment tester l'existence d'un fichier avec INQUIRE.
Apparemment, on pourrait utiliser également INQUIRE pour tester l'existence d'un dossier mais cela ne marche pas pour moi sous WINDOWS.

logical :: file_exists
INQUIRE(File='E:/root/folder1/folder2', exist = file_exists)

J'ai lu aussi que cela pouvait marcher mieux en rajoutant un '.' mais cela ne marche pas non plus...

logical :: file_exists
INQUIRE(File='E:/root/folder1/folder2/.', exist = file_exists)

Est-ce que quelqu'un peut m'éclairer ?

La solution doit marcher sous Windows, SUN, Linux.

Merci d'avance.

[rogue-spectre]

Salut,

Une idée serait peut être de passer par une variable temporaire. Du style tu crées :

Code :

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

1
2
3
4
5
6
 
character(len=1024) :: tmpString
 
tmpString="E:/root/folder1/folder2/."
 
INQUIRE(File=trim(tmpString), exist = file_exists)

la fonction "trim" c'est pour enlever les blancs en début et fin de chaîne normalement. Comme ça tu peux même faire un traitement de ta chaine pour que les chemins puissent être valides sur chaque O.S. Ça reste à tester. Tu utilises quoi pour programmer en fortran sous WIN, je risque peut être d'y passer pour les quelques jours de vacances. En espérant que l'idée soit bonne.

Bonne soirée

[bobbyboy]

Bonjour,

il me semble que, sous Windows, le séparateur de dossier soit "\" et non pas "/" .

[rogue-spectre]

un problème similaire :
http://www.developpez.net/forums/d11...sence-dossier/

avec ifort il est possible d'utiliser la syntaxe

Code :

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

  INQUIRE (DIRECTORY="path/du/dossier", EXIST=L_EXISTS)

mais gfortran ne l'accepte pas aujourd'hui mais marche avec "FILE", je n'ai pas d'autre compilateur pour vérifier leur comportement.

Bonne journée

[shadock0]

Si tu veux une solution portable qui fonctionne avec plusieurs compilateur, je te conseil de créer plusieurs fichier par exemple inquire_g95.f90, inquire_ifort.f90, etc...

dans chacun d'eux tu mets une sous-routine qui a le même nom et fait la même chose, mais dans le fichier ifort tu met la syntaxe ifort, dans le fichier g95 celle de g95, etc...

Puis...tu met en place un test dans le makefile, ainsi, lorsque l'utilisateur compile avec ifort, ce sera la subroutine dans le fichier ifort qui sera compilé, etc...

ainsi, quel que soit le compilateur, tu pourra utiliser ta subroutine qui aura été compilée toujours avec le compilateur qui lui correspond.

Ça fait un peu usine à gaz, mais c'est la seule solution que j'ai trouvé pour le moment pour rendre le code le plus portable possible.

[rogue-spectre]

ou
http://www.developpez.net/forums/d11...sence-dossier/