Question

在Fortran中，是否可以定义一个返回多个值的函数，如下所示？

[a, b] = myfunc(x, y)

Answer 1

这取决于... functions，不可能有两个不同的功能结果。但是，您可以从函数返回一个长度为2的数组。

  function myfunc(x, y)
    implicit none
    integer, intent(in) :: x,y
    integer             :: myfunc(2)

    myfunc = [ 2*x, 3*y ]
  end function

如果您需要两个不同变量的两个返回值，请使用subroutine代替：

  subroutine myfunc(x, y, a, b)
    implicit none
    integer, intent(in) :: x,y
    integer, intent(out):: a,b

    a = 2*x
    b = 3*y
  end subroutine

返回多个值的函数

1 个答案: