Fortran 90 - 将值从主子程序传输到函数和其他子程序

Question

我希望每个人都做得很好。我目前有一个项目在工作，我很难处理一些编程技术。

总结一下我的项目，我必须修改 Fortran 上的一些代码，以便它可以适应一个名为 PRO/II 的仿真软件。所有的函数和子程序都已经写好了。

但是，为了使代码与 PRO/II 兼容，我必须改变在 Fortran 上分配一些输入数据(由用户自己输入)的方式。事实上，在此之前，用户在文本文件中输入数据，然后由 fortran 子例程读取。

但是，现在，数据是直接输入到仿真软件中的。我设法编写了一个代码来记录子程序中的所有输入数据。但在 PRO/II 上运行模拟时，它只将输入数据归于“主子程序”。主子例程之外的任何函数或子例程都无法访问这些值。事实上，PRO/II 只为我的主子程序的参数提供值。

从那里开始，当从主子例程调用函数时，没有问题。问题在于调用其他函数或子例程的函数。我会尽量让自己清楚。假设我有一个子程序 X 和许多函数和子程序，如下所示:

Subroutine X


End Subroutine


Function A(variables)

Uses Functions B and C

End Function

Function B(variables)

Uses Function D and E

End Function

Function C(variables)

Uses functions D and E

End Function

Function D(variables)

End function

Function D(variables)

End Function

Function E(variables)

End Function

所以，问题是我在主子程序中计算的值或我在 PRO/II 中输入的值，这些值被传输到 Fortran 程序，函数 D 和 E 无法访问。所以，我尝试将所有需要的值复制到来自主子程序的文本文件，并每次由不同的函数和子程序读取所有值。但是 PRO/II 运行模拟需要很长时间。我有 80 个函数和 20 个子例程，每次调用它们时，它们都会打开文本文件来读取值。

有没有办法让所有函数和子例程读取值而不必从文本文件中读取？换句话说，有没有办法让我在主子程序中计算的所有变量都变成程序中的每个函数和子程序？

我真的很难弄清楚这一点。

如果你们不明白这个问题或有任何问题，请告诉我。

提前感谢您的帮助。

Answer 1

您可以将值放入 module 中的变量中, 和 use该模块在所有函数和子程序中，以及在主程序中!

这是一个小例子:

module globVar
  implicit none

  integer :: var1
end module

module calculus

contains
  function doStuff(input)
    use globVar, only: var1
    implicit none
    integer,intent(in)  :: input
    integer             :: doStuff

    doStuff = input*var1
  end function
end module calculus


program test
  use globVar
  use calculus

  implicit none

  write(*,*) 'Enter "var1"'
  read *,var1

  write(*,*) doStuff(2)
end program