Discussion :

[Olivier.D]

Bonjour à tous,

A partir d'un logiciel de Calcul Eléments Finis, j'essaie de créer une procédure en fortran 77 (langage utilisé par le logiciel) me permettant de créer un fichier .txt et d'y stocker des données.

Jusque là tout va bien, mon problème commence lorsqu'une fois le fichier .txt créé et fermé après écriture, je souhaite l'actualiser en y rajoutant des données : tout ce qui aurait été écrit précédemment est remplacé par les nouvelles données !!

J'ai essayé plusieurs méthodes à partir des divers tutaux présents sur le net mais sans succès. Pourriez vous m'aidez, s'il vous plait ?

Merci par avance

voici le code :

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
	 logical::existe
C
C	 on teste l'existance de test_01.txt
	 inquire( file="test_01.txt", exist=existe)
C
	 If    ( .NOT. existe ) Then
	    open(11,file='test_01.txt', status='new')
	 Endif
	 close(11)
C
C	 Je symbolise la réécriture par une boucle for
      	 do 10 k1=1,3
      	 	open( 11 , file='test_01.txt',
     + 	 		status='old',
     +			access='sequential',
     +			form='formatted',
     +                  position='append')
		write(11,*) k1
		close(11, status='keep')
 10	 continue
C
	end

[kango]

bonjour,

c'est étonnant, chez moi ce bout de code fonctionne parfaitement.

[Olivier.D]

Vraiment ??
Les valeurs de K1 = 1, 2, 3 apparaissent écrites les unes après les autres sur des lignes différentes ?

Parceque si vous ne visualisez sur le fichier .txt que la valeur 3 c'est que les valeurs précédentes de k1 ont été supprimées !!

[Olivier.D]

bonjour,

c'est étonnant, chez moi ce bout de code fonctionne parfaitement.

kango je te remercie, en fait je dois avoir un problème sur mon compilateur gfortran parceque lorsque je le compile le programme ne fonctionne pas mais par contre quand j'intègre la procédure fortran en subroutine de mon code de calcul EF ca fonctionne !!

merci beaucoup