Discussion :

[bil31]

bonjour a tous

j'ai un petit pb en fortran 90 je suis dans une boucle do et je dois ouvrir et fermer plusieur fois le meme fichier

alors quand je l'ouvert une premiere fois tout ce passe bien ensuite je le ferme proprement avec un close mais au moment de la reouverture j'ai un segmentation fault
je ne comprend pas pour quoi
merci d'avance

[yogitetradim]

Bonjour,

à première vue ça devrait marcher et sans le code, c'est difficile de voir ce qui peut clocher.
Si tu ouvres et fermes plusieurs fois le même fichier, tu pourrais essayer un rewind(unité_fichier_à_lire) et voir si ça ne fonctionne pas mieux. Le rewind permet de remonter au premier enregistrement de ton fichier sans avoir à le fermer puis le réouvrir.
Bon courage !

[Sylvain Bergeron]

Je suspecte fortement une corruption de mémoire entre la première ouverture et la deuxième... Ce n'est pas le fait de réouvrir le fichier qui provoque l'erreur.

[bil31]

j'utilise deja le rewind mais je suis obliger de le reouvrir
je vois pas comment on peut le corompre etant donner qu'il est en lecture seul je fai que lire dans ce fichier

[Sylvain Bergeron]

Un segmentation fault, c'est que ton programme perd complètement les pédales.

Ce n'est pas le fichier qui est corrompu, mais la mémoire contenant le code d'accès au fichier.

[bil31]

open(1,file='generateur.txt',status='old',action='read',iostat=ierr)
open(2,file='utile.txt',status='old',action='read',iostat=ierr)


do i=1,3
rewind(1)
read(1,*)
read(1,*)
read(1,*,iostat=ierr) typesec,nbsection,res,tem,courant,tension,typecel
open(3,file=typesec,action='read',iostat=ierr)

read(3,*,iostat=ierr) dif
read(3,*,iostat=ierr) m

print*,typesec
close(3)


end do

close(1)
close(2)

voici un bout de mon code mais le rewind ne fonctionne pas correctement typesec ne garde pas la meme valeur l'execution me donne cela

TJ2-10
TJ2-12
Si-1

alors que typesec devrai garder la meme valeur

[Sylvain Bergeron]

read(1,*,iostat=ierr) typesec,nbsection,res,tem,courant,tension,typecel
open(3,file=typesec,action='read',iostat=ierr)

read(3,*,iostat=ierr) dif
read(3,*,iostat=ierr) m

Comment sont déclarées ces différentes variables ? Y-a t'il des pointeurs, des allocatables ? Des vecteurs ?

print*,typesec
...
voici un bout de mon code mais le rewind ne fonctionne pas correctement typesec ne garde pas la meme valeur l'execution me donne cela

TJ2-10
TJ2-12
Si-1

alors que typesec devrai garder la meme valeur

Est-ce bien le résultat du print ? Ces valeurs sont-elles toutes les 3 dans le fichier ?

[bil31]

il n'y a que des character ou des reels. Aucun pointeur ni pointeuse ni vecteur et la partie imprimée est dans le fichier mais c'est le REWIND qui ne marche pas: il ne rembobine pas le fichier.
Comprend tu d'où cela vient il?

[Sylvain Bergeron]

La section de code :

• est-elle dans un sous-programme (sub ou function) ?
• est-elle complète ? as-tu enlevé des bouts quand tu as copié ?

[bil31]

c'est le vrai code sans les declaration bien sur il y a pas de subroutine c un program je comprend pas le rewind normalement il revien au debut du fichier NON???

[Sylvain Bergeron]

Je comprends ta fixation sur le rewind, mais je crois que le fait que le rewind ne fait pas ce qu'il devrait faire découle d'un "dommage collatéral" d'une autre partie du programme. D'où mes questions.

Peux-tu enlever des bouts pour isoler le problème ? Le code que tu as copié dans le forum peux être réduit comme suit sans affecter le problème :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
open(1,file='generateur.txt',status='old',action='read',iostat=ierr)
 
do i=1,3
   rewind(1)
   read(1,*)
   read(1,*)
   read(1,*,iostat=ierr) typesec,nbsection,res,tem,courant,tension,typecel
   print*,typesec
end do
 
close(1)

Une fois ainsi réduit, y a t'il encore un problème ? Si ce n'est pas corrigé, continue à réduire en amont.

Et j'oubliais: As-tu activé toutes les switches "debug", "bound checking", ... ?

[bil31]

voila mon code en entier


program test
implicit none

integer ::ierr,i
real,dimension(7) ::lecture,lecture2

open(1,file='tata.txt',action='read',iostat=ierr)
do i=1,3

read(1,*,iostat=ierr) lecture2
read(1,*,iostat=ierr) lecture2

read(1,*,iostat=ierr) lecture


print*,lecture
rewind(1)


end do

close(1)

end program test


voila en suite mon fichier tata.txt

5 8 7 8 9 10 11
6 7 8 9 10 11 12
7 8 9 10 11 12 13
8 9 10 11 12 13 14
9 10 11 12 13 14 15
10 11 12 13 14 15 16
11 12 13 14 15 16 17
12 13 14 15 16 17 18
13 14 15 16 17 18 19


voila ce que je vois sur ma console

7., 8., 9., 10., 11., 12., 13.
10., 11., 12., 13., 14., 15., 16.
13., 14., 15., 16., 17., 18., 19.


donc je comprend pas vraiment le pour koi du commment

[Sylvain Bergeron]

Et moi, j'obtiens :

7.00000000 8.00000000 9.00000000 10.0000000 11.0000000 12.0000000 13.0000000
7.00000000 8.00000000 9.00000000 10.0000000 11.0000000 12.0000000 13.0000000
7.00000000 8.00000000 9.00000000 10.0000000 11.0000000 12.0000000 13.0000000

Il y a donc un problème avec ton compilateur. À moins que sur ton O/S, le rewind soit incompatible, donc sans effet avec le type de fichier que tu utilises.

Pout ma part, j'ai testé avec Lahey 5.6 sur WinXP SP2