Fortran 函数语法

2024-04-13 15:39:03 515

示例

可以使用几种类型的语法编写函数

function name() integer name name = 42 end function

integer function name() name = 42 end function

function name() result(res) integer res res = 42 end function

函数通过函数结果返回值。除非函数语句具有result子句，否则函数的结果与函数的名称相同。随着result功能的结果是，由给定result。在上面的前两个示例中，每个函数的结果由给出name；在第三条中res。

函数结果必须在函数执行期间定义。

函数允许使用一些特殊的前缀。

纯函数意味着该函数没有副作用：

pure real function square(x) real, intent(in) :: x square = x * x end function

元素函数定义为标量运算符，但可以使用数组作为实际参数来调用它，在这种情况下，该函数将逐元素应用。除非指定了impure前缀（在Fortran2008中引入），否则元素函数也是纯函数。

elemental real function square(x) real, intent(in) :: x square = x * x end function

示例