複数の値を返す関数

Question

Fortranでは、以下のような複数の値を返す関数を定義できますか？

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

Answer 1

これは... functionsによって、異なる2つの機能結果を持つことはできません。ただし、関数から返された長さ2の配列を持つことができます。

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

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

次の2つの異なる変数への2つの戻り値が必要な場合は、使用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