Incrémenter un n° dans un nom de fichier

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:P

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"

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:

---

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.

j'l'avais dit que mon Fortran était loin (1984 :lol: )

Citation:

---

Envoyé par Guardian

j'l'avais dit que mon Fortran était loin (1984 :lol: )

---

Héhé, le Fortran77 était encore tout frais! Ceci dit, il est possible que le '+' soit accepté en Fortran90, je n'ai jamais testé...

Dans le bouquin que j'avais utilisé à l'époque, il est marqué "Comprend une étude de la norme Fortran 77". :wink:
Et quand j'ai eu fini d'étudier (très rapidement), on m'a donné les sources à analyser... c'était du cobol 8O :lol:

je vous remercie pour toute ces reponses, j'en ai fait un mix et finalement j'ai reussi:P

merci a tous:mrgreen: