Discussion :

[pdufranc]

Bonjour
Je cherhce a pouvoir acceder quaisment en meme temps par 2 exe différents au même fichier de données.
Quand le premier ouvre le fichier, pas de pb, quand le 2ieme veut y acceder, j'ai un retour d'erreur.
Est ce que quelqu'une à une solution pour pouvoir faire un acces simultanée au fichier par mes 2 appli fortran ?
Merci par avance

[Ehouarn]

Bonjour,

Quand le premier ouvre le fichier, pas de pb, quand le 2ieme veut y acceder, j'ai un retour d'erreur.

Quel retour d'erreur exactement?
Tu devrais également fournir les lignes de code incriminées, cela aiderait à cerner le problème.

Quoi qu'il en soit, il n'y a en principe aucun problème pour que deux programmes différents lisent un même fichier (si les deux tentent simultanément d'écrire dans un même fichier, c'est bien évidement une autre histoire...).

[pdufranc]

Voila le morceau de code, il est identique pour les 2 appli.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
	program Op1
 
	implicit none
	integer :: uid
	integer :: err
               character*2048 mot
	uid =111
	open(uid,file=FileTest.txt',status='unknown',err=7770)
 
 
10      read(uid,*,err=60) mot 
      write(*,*) 'Op1 read :', mot 
      goto 10 
 
7770   continue
      write(*,*) 'Erreur open'
60     continue
      write(*,*) 'End'
 
 
	close (uid)
 
	end program Op1

[Ehouarn]

Bonjour,

A priori rien de choquant dans ton code. J'imagine que les deux programmes sont bien dans le même répertoire que le fichier 'Filetest.txt'.

Pour cerner le problème tu devrais utiliser l'argument optionnel 'iostat', aussi bien au niveau de l'ouverture du fichier que lors de la lecture, et afficher sa valeur: si égale à zero alors tout s'est bien déroulé; si différente de zéro, il y a problème et la valeur renvoyée précise quel problème a été rencontré. Mais il faudra voir du coté de la doc de ton compilateur, car la correspondance valeur de iostat / problème rencontré n'est pas standardisée.

[Sylvain Bergeron]

J'ajouterais une clause « action='read' » au open. Par défaut, c'est read-write et il y a alors bien peu de chance que l'accès ne soit pas exclusif.

[pdufranc]

Merci, je vais faire les tests.

[FR119492]

Salut!

Il existe, pour l'instruction Open un paramètre Share qui n'est, semble-t-il, pas dans la norme officielle, mais qui est disponible avec divers compilateurs (Compaq, Watcom, Intel, Silverfrost, ...).

Share='DenyRW': Aucun autre processus ne peut ouvrir le fichier.
Share='DenyWR': Un autre processus ne peut ouvrir le fichier qu'en mode "lecture".
Share='DenyRD': Un autre processus ne peut ouvrir le fichier qu'en mode "écriture".
Share='DenyNone': Un autre processus peut ouvrir le fichier dans n'importe quel mode.

En tous les cas, fais attention de ne pas écrire en même temps sur un fichier à partir de deux programmes.

Jean-Marc Blanc