Fortran: Boucle avec OPEN

Bonjour,

je bataille un peu sur un truc en fortran77.
je souhaiterais crée une boucle qui permette d'ouvrir une succession de
fichier plutôt que de faire plein de lignes avec open...

là je vous montre ce que j'ai voulu faire pour juste deux fichiers:

DO m=7,8
OPEN(unit=m, FILE= 'questar300000',m,'-questar300000',m+1,'.res')
END DO

en fait je voudrais faire varier l'étiquette en même temps que le nom de
fichier
je ne sais pas si c'est trop possible...
Voila si vous avez une idée je suis preneur

merci d'avance

cordialement,

Grhum18

perso, je ferai un truc genre:

Code:

---

1 2 3 4 5 6

character(len=99) str do m=7,8 write(str,*)'questar300000',m,'-questar300000',m+1,'.res' OPEN(unit=m, FILE= trim(str)) end do

---

et il faut faire attention au fait que dans cette écriture, le m et le m+1 sont écrits sans '0' sur leur gauche...

pour palier ce problème:

exmple: si nt=10, ouvrir le fichier SOLUTION0000000010.res

Code:

---

1 2 3 4 5 6 7 8

write (str(1:),'(a8)') 'SOLUTION' k = len(trim(str(1:))) write (str(k+1:),'(i10)') nt m = len(trim(str(k+1:))) do i=1, m if (str(k+i:k+i)==' ') str(k+i:k+i)='0' end do write (str(k+m+1:),'(a4)') '.res'

---

merci,
je vais essayer de suite

Rebonjour,

je ne comprend pas le "FILE= trim(str)"
trim dois-il être défini avant?

merci pour votre réponse

Utilises seulement "File=Str". Trim() enlève les espaces à la fin de la variable, mais la norme Fortran prévoit déjà que les espaces à la fin de la variable contenant le nom du fichier sont ignorés...

Trim() est une fonction introduite par la norme Fortran 90 et elle n'est malheureusement pas programmable en Fortran 77 standard si elle n'est pas disponible.