1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26
|
program pleindefichiers
implicit none
integer :: i
integer :: nb ! nombre de fichier
real :: val ! valeur a ecrire dans le fichier
character(len=100) :: nom ! nom du fichier
write(*,*) "nombre de fichiers? (maximum 99)"
read(*,*) nb
do i=1,nb
! creation du nom du fichier
write(nom,'(a,i2.2)') "fichier_",i
! ouverture du fichier
open(42,file=nom,form="formatted")
! construction de la valeur a mettre dans le fichier
val=345+(i/4.5)**3
write(42,*) val
! fermeture du fichier
close(42)
enddo
end program pleindefichiers |
Partager