Concaténer un character et un chiffre

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 :

Code:

---

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

---

Résultat :

Citation:

---

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

---

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 !

Une autre question au fait, sur le test de chararcter, est-ce que c'est correct de faire un test comme ça :

Code:

---

if(filename.ne.fichier)then

---

Merci beaucoup pour votre aide !

Salut!
Ton problème provient d'une particularité des instructions Print et Write en Fortran: lorsque tu les utilises avec une variable de type Character, elles écrivent toute la chaîne déclarée et non seulement la partie utile. Dans ton cas, tu devrais soit la déclarer par

Code:

---

Character*21 Fichier

---

soit, si elle est déclarée plus longue, l'écrire par:

Code:

---

Print*,Fichier(1:21)

---

Jean-Marc Blanc

Réponse alternative à celle de Jean-Marc:

Une variable caractère en Fortran occupe tout l'espace pour lequel elle est déclarée. Si tu fais :

character (20) :: VarCar
VarCar = 'ABC'

VarCar contiendra ABC suivit de 17 espaces.

Dans ton cas, tu initialises seulement la section 1 à 21 de la variable. Ce qui suit le caractère 21 n'est jamais initialisé. Une correction facile consiste à ajouter la ligne « Fichier = ' ' » juste après debut=1

merci pour vos reponses ca marche!:D