I have a file with text and adjacent to it, the number i want to read. Below is the format. I was wondering how to read just the numbers without touching the text.
trhy 30.0
difje 30.0
sdjk 66.5
xmb 15.0
dcos 15.0
fjvm 2.573e-4
srht 9.05e-3
art3...
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
I am looking for a way to create the files with names name according to value of variable in a loop.
For example (not actual code):
do i=1,11
open(10,file=name 'i'//".txt")
...
...
enddo
where 11 files with names: name1.txt, name2.txt...name11.txt will be created with the content.
Do you...