View Single Post
dealove
dealove is offline
#3
Jun20-08, 02:42 PM
P: 3
that works, with little modification.

program int2str



character(40) :: numchr
integer j,n

n=2

do j = 1,n

write(numchr,*) j

open (10, file = "foo" // trim(adjustl(numchr)) // ".dat")

enddo

end