Question

我正在做一个程序，其中main包含许多子程序和函数。为了构造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

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

Answer 2

通常，您将所有程序放在module然后use模块中。

如果您的问题建议将所有程序作为主程序的内部程序，则调用它们没有问题。只需使用call语句或使用带有参数列表的函数名称来正常调用它们。

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

2 个答案: