fortran - 如何在fortran的另一个子程序中调用和使用一个子程序？

Question

我正在做一个程序，其中 main 包含许多子例程和函数。为了构建主程序的这些子程序之一(比如说子程序 A)，我需要使用另一个子程序(比如说 B)。我的问题是，我怎样才能调用子程序 A 并使用子程序 B？我是初学者，我搜索了很多，但没有找到我清楚理解的东西......

任何帮助将不胜感激，在此先感谢!

Answer 1

布局示例，在一个文件中:

module MySubs

contains

subroutine A (..)

end subroutine A

subroutine B (..)

   call subroutine A (..)

end subroutine B

function C (..)

end function C

end module MySubs

program MyProg

  use MySubs

  call A (..)

  X = C (..)

end program MyProg

您还可以将模块和主程序放在不同的文件中。在这种情况下，首先用模块编译文件。