Version imprimable
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
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 !
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.
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
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.
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
Comment sont déclarées ces différentes variables ? Y-a t'il des pointeurs, des allocatables ? Des vecteurs ?Citation:
Envoyé par bil31
Est-ce bien le résultat du print ? Ces valeurs sont-elles toutes les 3 dans le fichier ?Citation:
Envoyé par 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?
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é ?
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???
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 :
Une fois ainsi réduit, y a t'il encore un problème ? Si ce n'est pas corrigé, continue à réduire en amont.Code:
2
3
4
5
6
7
8
9
10
11
12
Et j'oubliais: As-tu activé toutes les switches "debug", "bound checking", ... ?
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
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