fortran中子程序do循环中能调用另一个子程序吗

是的，Fortran中的子程序可以在do循环中调用另一个子程序。在子程序中调用其他子程序的方法与在主程序中调用相同，只需要在子程序中添加调用语句即可。例如：

subroutine sub1()
  do i = 1, 10
    call sub2()
  end do
end subroutine

subroutine sub2()
  ! do something
end subroutine

在上面的例子中，sub1子程序中使用do循环调用sub2子程序。