Discussion :

[Grhum18]

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

[genteur slayer]

perso, je ferai un truc genre:

Code :

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

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 :

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

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'

[Grhum18]

merci,
je vais essayer de suite

[Grhum18]

Rebonjour,

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

merci pour votre réponse

[Sylvain Bergeron]

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.