Discussion :

[hammah]

Bonjour,

J'ai un petit soucis. Je code en Fortran95 (avec SilverFrost), et lors de la compilation je n'ai pas d'erreur. Or, dans mon code je dois lire des données dans un fichier .txt et les affecter dans des variables (des INTGERS et des REAL).

Problème: j'ai l'impression que le fichier n'est pas lu! j'ai tout essayé (j'ai verifié les noms du fichier, etc..) J'ai essayé de mettre des print*, pour debugger mais rien ne s'affiche dans le petite fenetre noire lors de l'execution!

il se peut que je n'ai pas utilisé la bonne syntaxe... voici ce que j'ai utilisé pour lire le fichier:

Code :

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

1
2
3
OPEN (UNIT=60, FILE="data_source.txt", STATUS="unknown", Position="rewind")
read(60,*) N,l,k,he,hw,sp,sc,qce,qcw,Text
CLOSE (60)

Sans le fichier texte j'ai cela :
6 0.5 10 100000 100000 0 0 0 0 310
(avec un retour à la ligne à la fin)

Plus loin dans le programme je dois ecrire dans un autre fichier... et là encore, rien ne s'affiche dans le fichier .txt! la variable "x" est un tableau de dimension 6.

Code :

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

1
2
OPEN(UNIT=13,FILE='data_resultat.txt',STATUS="unknown",position="rewind")
WRITE (13,FMT = "(6F8.2)") x

Avant d'aborder ce problème, je me suis dis que peut être j'ai mal débuté lors de lecture...

Merci d'avance

[genteur slayer]

à priori, tes read/write sont bons... as-tu des erreurs lors de l'éxécution?

le fichier "data_source.txt" existe-t-il bien et est dans le repertoire où tu lance ton exécutable?

si par exemple ton exec est dans un rep genre ./bin/

la commande pour le lancer sera ./bin/prog et il va chercher ton fichier texte dans le repertoire . et non dans le rep ./bin, comme tu as mis unknown dans le open il le créra et vide....

essaye de mettre "old" dans le premier open pour voir si il trouve bien ton fichier texte... si tu as une erreur d'exécution c'est que ton fichier texte n'est pas dans le répertoire courrant....

[pdufranc]

Ajoute essaie : OPEN (UNIT=60, FILE="data_source.txt", STATUS="unknown", iostat = ok)
regarde l'etat de iostat, s'il est different de 0, c'est que tu as une erreur avec ton fichier (droit, chemin, ....)

Verifie que tu cherches dans le bon tes fichiers ?

Essaie de retire "rewind" et met apres l'ouverture rewind(60)

[hammah]

effectivement j'avais considéré la possibilité que le fichier texte ne soit pas dans le bon répertoire... mais comme j'avais des fichiers du même nom dans des répertoires différents, j'ai confondu les deux!

Moral de l'histoire: faire plus attention en nomant les fichiers et surtout de bien les placer dans le bon reprtoire.

Merci les gars! Enfin, j'ai mon petit programme qui marche et ça fait vraiment plaisir