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 : Sélectionner tout - Visualiser dans une fenêtre à part
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.