关于批处理文件 - Fortran Coder

[Fortran] 纯文本查看 复制代码
program main

    implicit none

    integer i , m

    integer , allocatable :: site(:) , lat(:) , lon(:) ,height(:) , year(:) , month(:) , day(:) , rain1(:) , rain2(:) , rain3(:)

    character(len=37) :: line , filename

!=================================================

!批量读取文件

!=================================================

    open(11,file='1.dat')

    do

        read(11,*) filename



        open(10,file=filename)

!=================================================

!获取文件行数

!=================================================

        i = 0

        Do

          Read (10, *, End=100) line

          i = i + 1

        End Do

        100 m = i

        Rewind (10)

!=================================================

!数据写入test.txt

!=================================================

        allocate(site(m) , lat(m) , lon(m) ,height(m) , year(m) , month(m) , day(m) , rain1(m) , rain2(m) , rain3(m) )

        open (7,file="test.txt")

        do i=1,m

             read (10,*)site(i) , lat(i) , lon(i) ,height(i) , year(i) , month(i) ,day(i) , rain1(i) , rain2(i) , rain3(i)

             write(7,*) site(i),lat(i),lon(i) , year(i) , month(i) , day(i) , rain3(i)

        end do

    end do

end program