【已解决】如何给这个程序加个循环

倔强的葱头

有如下文件，
196101.txt,196102.txt,....196112.txt..196201.txt...196212.txt...197012.txt（每年12个文件，共10年,120个文件）
代码如下：
real dt(360,640)
character(len=20)nouse,form,name(12),outname(12)
do lm=1,12

if(lm.lt.10)then
write(form,"(i1)") lm
write(name(lm),*) "19610",trim(form),".txt"
write(outname(lm),*) "19610",trim(form),".xls"
else
write(form,"(i2)") lm
write(name(lm),*) "1961",trim(form),".txt"
write(outname(lm),*) "1961",trim(form),".xls"
endif

open(1,file=name(lm))
do i=1,6
read(1,*)nouse
enddo
do i=1,360
read(1,*)(dt(i,j),j=1,640)
enddo
close(1)

open(2,file=outname(lm))
do i=1,360
do j=1,640
if(dt(i,j).ne.-9999.0) write(2,"(3f8.1)") 72+(j-1)*0.1,18+360*0.1-i*0.1,dt(i,j)
enddo
enddo
close(2)

enddo
end

以上程序只能处理196101.txt...196112.txt 12个文件，如何能使其批量处理所有的文件，如何加一个循环。以下是失败的。。
real dt(360,640)
character(len=20)nouse,form,name(12),outname(12)
do iyear=0,100
do i=1,12
write(form,"(i1)") lm
write(name(lm),*) lm= iyear*100+i +196000,".txt"
write(outname(lm),*) lm= iyear*100+i +196000,".xls"
enddo
enddo

open(1,file=name(lm))
do i=1,6
read(1,*)nouse
enddo
do i=1,360
read(1,*)(dt(i,j),j=1,640)
enddo
close(1)

open(2,file=outname(lm))
do i=1,360
do j=1,640
if(dt(i,j).ne.-9999.0) write(2,"(3f8.1)") 72+(j-1)*0.1,18+360*0.1-i*0.1,dt(i,j)
enddo
enddo
close(2)

enddo
end

river

去看清风批处理的帖子

倔强的葱头

river 发表于 2013-4-24 15:06

                               
登录/注册后可看大图

去看清风批处理的帖子

ok。。。。。

倔强的葱头

river 发表于 2013-4-24 15:06

                               
登录/注册后可看大图

去看清风批处理的帖子

看过了，也能明白，也试了试，还是失败，崩溃中。。。

river

倔强的葱头 发表于 2013-4-24 15:53

                               
登录/注册后可看大图

看过了，也能明白，也试了试，还是失败，崩溃中。。。

多试一下啦，没有谁一下就成功的吧

topmad

倔强的葱头 发表于 2013-4-24 15:53

                               
登录/注册后可看大图

看过了，也能明白，也试了试，还是失败，崩溃中。。。

葱头，你的失败代码是啥
个人感觉，一般这里错误，都是在文件名的地方

mofangbao

失败是成功的。。。
谁每次弄对一个之前没点错误呢

kongfeng0824

可以先把这些读进一个txt中然后处理

倔强的葱头

topmad 发表于 2013-4-24 16:32

                               
登录/注册后可看大图

葱头，你的失败代码是啥
个人感觉，一般这里错误，都是在文件名的地方

我再试试，不信这个邪

topmad

倔强的葱头 发表于 2013-4-25 09:16

                               
登录/注册后可看大图

我再试试，不信这个邪

你这样  每次组合完了文件名以后  print一下 然后pause  看看对不对 在进行下面的 一步步print 就知道错在哪里了