Warning: file_get_contents(/data/phpspider/zhask/data//catemap/5/fortran/2.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
子例程名称Fortran名称_Fortran_Fortran90 - Fatal编程技术网

子例程名称Fortran名称

子例程名称Fortran名称,fortran,fortran90,Fortran,Fortran90,我有一个存储子例程名称的变量。是否有一种方法可以使用“call[variable]”调用子例程 我有几个子程序(示例名称:X_1、X_2、X_3等),用户提供数字(1、2、3等),然后代码应该操作与数字相关的子程序。编译器无法自动执行此操作。您必须准备一个存储数字或名称的表,根据这些数字或名称选择这些数字或名称,然后调用正确的子例程 之后,您可以使用select case构造选择正确的函数 select case (n) case (1) call subroutine_1 ca

我有一个存储子例程名称的变量。是否有一种方法可以使用“call[variable]”调用子例程


我有几个子程序(示例名称:X_1、X_2、X_3等),用户提供数字(1、2、3等),然后代码应该操作与数字相关的子程序。

编译器无法自动执行此操作。您必须准备一个存储数字或名称的表,根据这些数字或名称选择这些数字或名称,然后调用正确的子例程

之后,您可以使用select case构造选择正确的函数

select case (n)
  case (1)
    call subroutine_1
  case (2)
    call subroutine_2
end select


还可以使用带有函数指针的表。所需的工作量将是相似的。

编译器无法自动执行此操作。您必须准备一个存储数字或名称的表,根据这些数字或名称选择这些数字或名称,然后调用正确的子例程

之后,您可以使用select case构造选择正确的函数

select case (n)
  case (1)
    call subroutine_1
  case (2)
    call subroutine_2
end select


还可以使用带有函数指针的表。所需的工作量将是相似的。

谢谢,这解决了我的问题谢谢,这解决了我的问题