Fortran 函数语法
示例
可以使用几种类型的语法编写函数
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