Incrémenter un n° dans un nom de fichier

**pandore** · 27/04/2006, 17h34

bonjour,

Je travaille sur un programme fortran ou je cherche a faire la chose suivante:

sur un temps de 100 s, pour l'instant mon programme me cree et ecrit dans un fichier appeler optics.out, mais je desire en faite qu'il me creer 100 fichiers (un pour chaque seconde) avec mes resultats a l'interieur. Le seul soucis , c'est que je n'arrive pas a changer le nom du fichier a chaque fois que ma boucle do..enddo implemente de 1. Je desirerai avoir 100 fichiers texte du type optics1.out, optics2.out, optics3.out etc... mais je ne sais absolument pas comment faire incrementer le numero dans le nom du fichier avec OPEN(unit=84, file='optics.out').

Si quelqu'un a une idee, qu'il m'en fasse part.

Merci d'avance

**Jannus** · 27/04/2006, 19h28

Mes notions de Fortran sont loin, mais tu dois pouvoir concaténer des chaines :
définir comptage comme chaine
comptage = convertenchaine(incrément de boucle)
nomfichier="optics"+comptage+".out"

**DaZumba** · 27/04/2006, 19h40

Non, l'opérateur de concaténation de chaîne en Fortran est //. Mais si ton compteur est de type integer, cela ne fonctionnera pas.
Le truc est de faire une écriture formattée dans le nom du fichier:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
character*13 filename
integer i
integer n
parameter(n=100)
 
do i = 1, n 
  write(filename, '(a6,I3.3,a4)') 'optics', i, '.out'
  open(unit=17, file=filename)
  ...
  close(17)
enddo

Ainsi, tu auras des fichiers nommés optics001.out à optics100.out.