Fortran 读取文件指定行

最新推荐文章于 2024-05-11 23:27:46 发布

zhulzy@stu

最新推荐文章于 2024-05-11 23:27:46 发布

阅读量3k

点赞数

文章标签： Fortran 数据读取文件处理数组数据匹配

本文链接：https://blog.csdn.net/m0_52395907/article/details/121060923

版权

    program main
    implicit none
    integer,parameter::m=4,n=10
    integer::a(m),b(m)
    integer::i,j,ii
    data a /1,3,6,8/
    open(12,file="data.txt")
    ii=1
    do i=1,n
        do j=ii,m
            if (i==a(j))then
                read(12,*)b(j)
                ii=j+1
                go to 23
            end if
        end do
        read(12,*)
23  end do
    write(*,*)b
    end program main

data.txt