分享下求提取站点资料的fortran程序

乖小蕾

program main
implicit none
character*42:: filename(根据自己定义),newname(根据自己定义)
character*5:: ca（根据自己定义）
character*15:: zhandian
real::tim
integer:: i,j,k,year,mon,day,tm,pre,zuigao,zuidi,a（根据自己定义）
open(3000,file='filenames.txt')
do i=1,6          （根据自己需要进行修改）
        read(3000,*) filename(i)
enddo
close(3000)
open(3001,file='C:\Users\Administrator\Desktop\zhandianhao.txt')
do i=1,34  （所提站点数量，根据自己需要进行修改）
   read(3001,*)ca(i)
   newname(i)=ca(i)
   newname(i)(6:12)="-08.txt"
enddo
close(3001)
open(3002,file='C:\Users\Administrator\Desktop\zhandianhao.txt')
do i=1,34  （所提站点数量，根据自己需要进行修改）
   read(3002,*)chengdu(i)
enddo
close(3002)
do j=1,34  （所提站点数量，根据自己需要进行修改）
do i=1,6          （根据自己需要进行修改）
  open(i,file=filename(i),status='old')  
            open(j*10000,file='C:\Users\Administrator\Desktop\station\chongqing\08\'//newname(j))
9000    read(i,*,end=8000)zhandian,year,mon,day,tm,zuigao,zuidi,pre
                 if(zhandian==ca(j))then
          write(j*10000,"(a5,9i6)")zhandian,year,mon,day,tm,zuigao,zuidi
         endif
goto 9000
8000 continue
close(i)
!close(i*100)
end do
enddo
end

ningking1986

多谢分享啊。。。。

Seesea丶Youl

感谢分享   谢谢

wangxue910402

感谢分享

独角兽

赚积分不容易

ddkaka

感谢分享！！

jksuperman

感谢分享！！！

fudong

感谢！！！

fudong

这个是把每一个站点的单独提取出来吗，有没有提取特定的所需的多个站点的程序呢

努力的气象小白

您好，请问我能看看您的数据格式是什么样的吗？我最近也在处理站点资料，遇到一些问题，可以和您交流一下吗？