求改正，输出多个子程序返回值的问题

vvt

输出多个，你需要循环啊。在 sub2 中循环，类似这样

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

do i = 1 , ...
  do j = 1 , ...
    do k = 1 , ...
      if (ans(i,j,k)>-0.01.and.ans(i,j,k)<0.01) then
       write(11,"('(',f5.2,',',f5.2,','f5.2')=',(2X,F9.6),(2X,F9.6),(2X,F9.6),(2X,F9.6),(2X,F9.6))") X,Y,T,a(i,j,k),b(i,j,k),c(i,j,k),d(i,j,k),ans(i,j,k)
      end if
    end do
  end do
end do