Bonjour,
j'ai un petit souci pour concaténer un character et un chiffre, lorsque j'imprime le resultat sur l'écran ça me donne des caractères en plus !
Je vous remercie pour l'aide.
Mon programme est le suivant :
Résultat :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11 debut = 1 Write (fichier(12:17),'(I6)') 100000+debut fichier(1:12)='CCRL161-anm-' fichier(18:21)='.dat' print*,fichier 8888 if(filename.ne.fichier)then read(29,*) filename goto 8888 endif
D'ailleurs j'ai une autre erreur sur le fichier d'après mais je pense c'est parce que la boucle ne trouve pas le nom de fichier d'avant !CCRL161-anm-00001.datIE ÿÿÿÿÿÿÿÿ
PGFIO-F-217/list-directed read/unit=29/attempt to read past end of file.
File name = anm.lis formatted, sequential access record = 2055
In source file amine.f, at line number 36
Une autre question au fait, sur le test de chararcter, est-ce que c'est correct de faire un test comme ça :
Merci beaucoup pour votre aide !
Code : Sélectionner tout - Visualiser dans une fenêtre à part if(filename.ne.fichier)then
Partager