modification code fortran impossible

Version imprimable

12/10/2011, 12h48
poustou

modification code fortran impossible

Bonjour,

Je dois faire la modification d'un code fortran. Cependant la moindre modification est impossible.
Par exemple l'une des modifications à faire est la lecture d'un fichier text. Cependant même la simple ouverture et fermeture du fichier avec :
OPEN(UNIT=5,FILE='TEST1.DAT',STATUS='OLD')
CLOSE(5)
m'affiche le message d'erreur :

run time error
error 57, attempt to read past end of file
main - in file cwind3_version1.f at line 85 [+0b78]

je ne comprend pas pourquoi il m'indique une erreur à la ligne 85 alors que l'ouverture et la fermeture du fichier ne l'affecte pas. (le fichier en question n'est pas utilisé dans le code de départ, et il existe bien)

Merci pour votre aide.
12/10/2011, 13h48
FR119492

Salut!
Vérifie que le répertoire dans lequel tu essaies d'ouvrir ton fichier est bien celui dans lequel il se trouve réellement.
Jean-Marc Blanc
12/10/2011, 14h01
Sylvain Bergeron

Il est fortement recommandé de ne jamais ouvrir ou fermer les units plus petits que 10, surtout les units 0, 5 et 6.

Ton erreur peut très bien venir d'un read (* tentant d'accéder au unit 5 fermé.

Donc, étape #1 : change le unit 5 pour 15.
12/10/2011, 16h46
poustou

Bonjour,

j'ai bien vérifié pour le répertoire il n'y a pas de problème. J'ai d'ailleurs essayé un autre petit programme pour voir si ce n'était pas un problème avec le fichier, et j'ai réussi à l'ouvrir et même à le lire sans message d'erreur.

sinon j'ai aussi changé le numéro du fichier mais il apparait toujours le même message d'erreur.
14/10/2011, 10h53
bobbyboy

Bonjour,
Je n'ai pas très bien compris , la ligne 85 de ton code est bien celle de l'ouverture du fichier ?
Si non , peux-tu poster la ligne en question ?
14/10/2011, 11h00
poustou

La ligne 85 est une ligne de code quelconque dans le programme, elle ne correspond pas a la ligne de l'ouverture du fichier. Par ailleurs quand je compile sans les 2 lignes pour ouvrir et fermer le fichier, cette ligne n'est pas indiquee comme contenant une erreur.

Salut,

Est-ce qu'on peut jeter un coup d'oeil au code ? Est-ce que ton fichier existe ? Si oui est-ce qu'il contient quelque chose. Pour travailler avec ton fichier tu peux faire un truc plus sympathique (tu peux rajouter status and cie aussi) ierr est un entier
Code:

1 2 3 4 5 6 7 8 9 OPEN(UNIT = 1001, FILE ="file_name", IOSTAT=ierr) IF (ierr/=0) THEN ! il y a eu un problème à l'ouverture donc tu ne peux pas travailler ! tu peux faire STOP pour arrêter le programme ou traiter l'erreur ! autrement ELSE ! Tu peux faire des trucs avec ton fichier END IF
D'autre part si en supprimant des lignes de ton code, je veux dire des lignes vierges ou contenant simplement des print, tu passes d'un code qui compile et s'exécute à un code qui plante lamentablement, tu peux essayer de chercher des erreurs de pointer (l'outil valgrind peut d'aider à trouver les erreurs)

Bonne journée

14/10/2011, 15h08
Sylvain Bergeron

Citation:

Envoyé par poustou

La ligne 85 est une ligne de code quelconque dans le programme, elle ne correspond pas a la ligne de l'ouverture du fichier. Par ailleurs quand je compile sans les 2 lignes pour ouvrir et fermer le fichier, cette ligne n'est pas indiquee comme contenant une erreur.

Et l'erreur se produit au run (et non à la compilation) ? C'est un cas classique de corruption de mémoire.

Le fait d'ouvrir et fermer modifie l'organisation du code et du data, et le débordement inoffensif dans un cas devient catastrophique dans l'autre...

Tu dois donc recompiler en activant tous les tests (Bound check, ...) et en désactivant l'optimisation.
14/10/2011, 15h56
poustou

Oui je peux t'envoyer le code, le fichier existe bien et il contient 3 entiers. J'ai essayé ce que tu m'avais conseillé en écrivant

OPEN(UNIT=100,FILE='TEST1.DAT',STATUS='OLD',IOSTAT=9)
IF (9/=0) THEN
STOP
ELSE
CLOSE(100)
END IF

et je reçois :

C:\Users\stage\FORUM.FOR(30) : error 831 - This expression cannot receive a value, from the I/O keyword IOSTAT

En fait le programme plante bien lamentablement même quand je ne fais que supprimer des lignes print.

Oui l'erreur apparait lors du run effectivement. Une autre personne m'avait parlée d'un problème de mémoire aussi. Je ne trouve pas l'optimisation qu'il faudrait que j'enlève lors de la compilation... Sinon cette même personne m'a dit que si c'était un problème de mémoire, la solution serait de reprendre toutes les procédures une à une et de les tester...
14/10/2011, 16h14
Sylvain Bergeron

Citation:

Envoyé par poustou

...J'ai essayé ce que tu m'avais conseillé en écrivant

OPEN(UNIT=100,FILE='TEST1.DAT',STATUS='OLD',IOSTAT=9)
IF (9/=0) THEN

et je reçois :

C:\Users\stage\FORUM.FOR(30) : error 831 - This expression cannot receive a value, from the I/O keyword IOSTAT

La clause iostat= sert à indiquer une variable dans laquelle mettre le code d'erreur, qui ne peut évidemment pas être une constante... if (9 /= 0) devrait être vrai assez souvent !!!

Citation:

Envoyé par poustou

Oui l'erreur apparait lors du run effectivement. Une autre personne m'avait parlée d'un problème de mémoire aussi. Je ne trouve pas l'optimisation qu'il faudrait que j'enlève lors de la compilation... Sinon cette même personne m'a dit que si c'était un problème de mémoire, la solution serait de reprendre toutes les procédures une à une et de les tester...

Tu dois te taper le manuel pour ajuster les switches de compilation.

Tu peux également mettre tout ce que tu peux dans des modules pour profiter des validations découlant des interfaces explicites (et automatiques des modules). C'est beaucoup plus rapide et efficace que de tester toutes tes routines une par une séparément.

Dernière piste : utilise un autre compilateur. Il y en a plusieurs gratuits (ou avec essai 30 jours). Comme l'organisation du code et du data dépendent du compilateur, le bogue de ton programme produira une erreur apparente différente. En recoupant avec ce que tu sais déjà, ça permet souvent d'isoler le problème.
14/10/2011, 17h56
rogue-spectre
voici quelques options pour debugger pour ifort et gfortran

ifort :
-g -fpe0 -traceback -warn all -check all
gfortran :
-g -ffpe-trap=list -fbacktrace -Wall -fcheck=all -fbounds=check

avec la petite page en anglais qui explique ce que fait chaque option pour ifort http://docs.notur.no/uit/files-uit/i...rt-9-x-options

En utilisant un makefile tu peux également faire
Code:

1 2 make > log 2&>1
ce qui permet de générer un fichier log de ta compilation car l'option warn all ou Wall est très bavarde si tu as des erreurs dans ton code
17/10/2011, 13h16
poustou

Merci pour les réponses, je vous tiendrais au courant de la suite.