Indexation d'un fichier de sortie redondant

Bonjour,

Besoin d'inspiration, je débute en fortran et me heurte à un problème sur lequel je tourne en rond depuis quelques temps.

Voila, je fais des calculs redondants sur un tableau dont souhaite sauver le contenu toutes les "n" itérations dans un fichier de sortie "exit.pdb". Mon problème réside dans le fait que le fichier de sortie sauvé à l'itération "i" est écrasé par celui de l'itération "i+n".
J'ai donc pensé à un call system pour indexer ces fichiers ("exit1.pdb","exit2.pdb",...) par exemple :

Code:

---

1 2 3 4 5 6 7

call system('i=0')   DO iter=1,X WRITE(1,*) mon_tableau call system('let i=i+1') call system('exit$i.pdb') ENDDO

---

Mais de cette manière l'indéxation ne fonctionne pas, le fichier de sortie reste enregistrer sous "exit.pdb".
Auriez-vous une idée ?

Merci beaucoup,
Bon week-end.
Yann.

Tu peux modifier la chaine de caractères correspondant au nom de fichier en fonction de l'itération en cours.
Tu peux t'inspirer de http://www.developpez.net/forums/sho...d.php?t=403807.
Si ça peux t'aider...

Huuuuumm, j'avais pourtant cherché, mais visiblement assez mal :roll:
Merci beaucoup à toi ainsi qu'à Jean Marc Blanc pour la solution, je vais tester ça d'ici à demain.

Merci beaucoup,
bonne journée.

redondant<>contandant (kaamelott) et surtout <> recurcifs

tu fais des calculs récurcifs ou itératifs.....

Salut,
ce sont des calculs itératifs, des sorties de code Monte Carlo.
J'ai trouvé un moyen d'y parvenir.

Je déclare :

Code:

---

1 2 3

INTEGER (KIND=4) :: number CHARACTER (LEN=5) :: tmp CHARACTER (LEN=50) :: name

---

!Incrémentation du nom de fichier de sortie avec N_it_prog le numéro d'itération !au moment de la sauvegarde

Code:

---

1 2 3

number=N_it_prog+10000 WRITE(tmp,'(I5)') number name='out'//TRIM(tmp)

---

!Ecriture du fichier config_ incrémenté

Code:

---

OPEN(unit=1,file='OUT/data_'//trim(name)//'.pdb')

---

Voila en gros le bout de code. name est ainsi associé à un bout de texte 'out' ainsi qu'au numéro d'itération. Dans le OPEN j'indique de placer le fichier de sortie.pdb "data_out10001" pour la première itération, "data_out10002" pour la seconde, etc... dans un dossier OUT crée au préalable avec la commande CALL SYSTEM.

Voila, c'est pas grand chose mais je n'ai pas trouvé beaucoup de tuto traitant du problème.

Merci à vous en tout cas,
Bonne journée à plus tard.