Discussion :

[Rémirem]

Bonjour!!

De nouveau un problème incompréhensible avec mon petit programme...

les lignes de commande:

Code :

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

1
2
3
4
5
6
7
8
WRITE(*,*)FICH
 
      OPEN(UNIT=40,
     $     FILE=FICH,
     $     STATUS='OLD',
     $     ACCESS='DIRECT',
     $     FORM='FORMATTED',
     $     RECL=12)

me donnent:

☺ ☺ +" ( Ó*" ö\└w0F¥w****?☼┴wı┘@ *┐µ♥á³┬wÉ+"
open: Invalid argument
apparent state: unit 40 named ☺
last format: list io
lately writing sequential formatted external IO

This application has requested the Runtime to terminate it in an unusual way.
Please contact the application's support team for more information.

La ligne avec les petites tetes correspondant au write(*,*)FICH
Avec:
CHARACTER*52 FICH
CHARACTER*52 CHEMIN
LT=len_trim(CHEMIN)
FICH=CHEMIN(1:LT)//'hea.txt'

Si vous pouvez m'aider...
Merci d'avance!

[Ehouarn]

Bonjour,

De ce que tu montres, tu n'initialise pas 'CHEMIN' ...
Que vaut alors LT ?

Ehouarn

[Rémirem]

Bonjour!

Chemin est initialisé par une routine du type write/read.
J'ai déjà fait un write(*,*)chemin, LT au même endroit que write(*,*)FICH et cela me redonné les bonnes infos.

[Ehouarn]

Bon, si ce n'est pas le nom du fichier, ça doit venir des autres arguments du 'OPEN'.

Es-tu bien sûr de ceux que tu utilises?
Pour mémoire, le STATUS='OLD' implique que le fichier existe déjà; si ce n'est pas le cas, le programme s'arrête là (avec un message plus ou moins explicite selon les compilateurs).

Bon courage,

Ehouarn

[Sylvain Bergeron]

Il y a évidemment une erreur dans ta routine, mais les brides d'info que tu nous donne ne nous permettent pas de trouver l'erreur. Si tu veux de l'aide, tu dois donc nous fournir le code au complet de la routine. Tu devrais aussi ajouter Chemin et LT au write Fich et nous fournir le résultat.

[Rémirem]

Bonjour tous le monde!!

Erhouan était dans le juste, encore un problème dans la déclaration des variables, ou plutot, dans la reconnaissance...

Je m'explique, mon programme va lire dans un fichier texte la variable fich, ainsi par exemple, si le fichier texte indique "COR", FICH sera égale à 'cor.txt'.
Mais mon fichier contenais "cor" et c'est là que ca bloque, passage en majuscule et problème résolu...

Je croyais que F77 ne différencié pas les miniscules des majuscules!?

[Ehouarn]

Ravi d'apprendre que ton problème est résolu.

Pour répondre à ta question, Fortran 77 ne différencie pas minuscules et majuscules en ce qui concerne les instructions; mais il traite correctement les contenus des caractères et chaînes de caractères et n'a pas plus de raison de confondre les caractères 'A' et 'a' que les caractères '6' et '-'.

Bonne continuation.