string - 传递字符串以在 Fortran 子例程中执行

Question

在下面的子例程中，我想传递一个名为str. 如果是'poly', 'gaus', 'slat'，那么它有一个预定义的动作（fval =见下面的代码）。我想让用户指定一个要使用的函数并将其作为字符串变量传递。

那是 ...

如果str = '3*cos(i*t)'，那么我希望有fval等于3*cos(i*t)。如何让 Fortran 将输入的字符串解释为由 Fortran 执行的命令？

subroutine f(fval, i, t, str)
implicit none
integer, parameter :: ikind = selected_int_kind(8)
integer, parameter :: dbl = selected_real_kind(15,307)

integer(kind = ikind) :: i
real(kind = dbl) :: fval, t
character str*100

if(str .eq. 'poly') then
    fval = t**i
elseif(str .eq. 'slat') then
    fval = exp(-i*t)
elseif(str .eq. 'gaus') then
    fval = exp(-i*t*t)
else
    fval = ???
endif

end subroutine

score 2 · Accepted Answer

你不能。不容易。不过，您可以做两件事：

首先，您可以使用函数指针。在http://www.macresearch.org/advanced_fortran_90_callbacks_with_the_transfer_function有一个简单的例子- 这个想法是你可以传递在别处定义的函数的名称。这可能足以解决您的问题。
您可以调用解析字符串并评估表达式的库。我不知道 fortran 中的任何内容，但是您的 fortran 编译器可能支持调用 c 例程。对于 gfortran（也许还有其他人），这看起来会起作用 - http://www.gnu.org/s/libmatheval/ （ http://www.gnu.org/s/libmatheval/manual/上的示例 fortran 代码libmatheval.html#Fortran 示例程序）

score -5 · Accepted Answer

其实真的很简单

subroutine f(fval, i, t, str) ... character(len=*), intent(in) :: str ... end subroutine

诀窍是使用intent(in)修饰符将虚拟字符串参数定义为“未知长度”。

string - 传递字符串以在 Fortran 子例程中执行

2 回答 2

Related

Reference