[交流] Fortran 函数中的循环无法进行 已有4人参与

最近初学fortran，遇到一个比较怪异的问题，调试了一天也没法解决，故请教大家一下。 程序已经简化，估计里面有多余的语句，不过不是重点。 程序代码如下 ------------------------------------------------------------------------------------ module aa   type coordinate         integer :: number, x, y, z   end type end module program bb   use aa   implicit none   integer, parameter :: y=4   integer, parameter :: h=11   integer k k=6 call sp(k,y) if (k==1) then write (*,*) "ok!" end if      stop end program subroutine sp(k,p) implicit none type surf integer :: t, x, y, z end type integer, parameter :: v=22 integer,intent(in):: p integer k,n type(surf) :: s(p) k=0 open(v, file="a.txt",status="old" do n=1,p    read(v,*) s(n)%t, s(n)%x, s(n)%y, s(n)%z    if ( s(n)%t == k ) then     k=1    end if end do return end -------------------------------------------------------------------------------------------- 其中 a.txt 数据如下            8          79          65           0            3          79          65           0            4          79          65          0            52         79          65          0 -------------------------------------------------------------------------------------------- 经调试后，发现函数只循环一次便出错了。 即 读取完 s(1)%t, s(2)%x, s(3)%y, s(4)%z  后继续读取 s(2)%t 便开始出错了。 请问为什么会出现这样的问题，同样的语句放在主函数上运行没有问题，可以完整读取a. txt的数据， 结果放进函数里面就出问题了。 谢谢大家的关注和指导

回复此楼