Opening new file

[fanta2]

I want to open new files named from 1 to 100 e.g. 1.txt, 2.txt, ... I tried the following but no success...can any one help me plz..

do i=1, 100
open (i, File = '//i//.txt')
code...
close(i)
end do

 

[xwb]

character*7 str
do i=1, 100
   write (str, 100) i
100 format (I3,'.txt')
   open (i, File = ltrim (str))
   code...
   close(i)
end do

 

[fanta2]

XWB ... I would like to thank you so much for the immediate, precise and perfect answer. It simply solved my problem... thanks!