Fortran OOP 함수 오버로드

Question

두 개의 함수가 있습니다. 하나는 구분 된 문자열을 정수 배열 배열로, 다른 하나는 실제 배열로 나눕니다. 나는 과부하하려고 노력하고있다.

Interface split 
    Module Procedure split_to_int_unidim 
    Module Procedure split_to_real_unidim 
End Interface split 

Function split_to_int_unidim (a, delim, pos) Result (b) 
    Character(len=*), Intent (in) :: a, delim 
    Character(len=*), Intent (in), Optional :: pos 
    Integer, Allocatable :: b(:) 
End Function 

Function split_to_real_unidim (a, delim, pos) Result (b) 
    Character(len=*), Intent (in) :: a, delim 
    Character(len=*), Intent (in), Optional :: pos 
    Real, Allocatable :: b(:) 
End Function 

나는 오류

gfortran -o build/lib/foul.o -c -ffree-form -g -J./build/lib lib/foul.f 
lib/foul.f:22.41: 

Module Procedure split_to_real_unidim 
            1 
Error: Ambiguous interfaces 'split_to_real_unidim' and 'split_to_int_unidim' 
in generic interface 'split' at (1) 

나는 기능의 반환은 다른 유형의이기 때문에, 내가 확인 될 것이라고 기대했다을 얻고있다. 그러나 나는 오류를보고 착각 한 것 같습니다. 같은 이름을 사용하여 전화 할 수있는 방법이 있습니까? 그렇다면 어떤 수정을해야합니까?

Answer 1

이 두 함수를 사용할 때의 한 가지 문제점은 에 변수의 모호성을 해결하기위한 추가 변수를 포함하면 이 직관적이지 않게 사용된다는 것입니다. 이 문제는 이 정수가 아닌 실제 배열로 구분 된 문자열을 분할하기를 원하기 때문에 발생합니다. 은 직관적이지 않은 변수를 포함해야한다는 것을 기억해야합니다.

첫 번째 출력 요소 인 b1을 출력 인수로 포함하는 것이 좋습니다. 두 함수를 모두 사용하면 모호성 문제도 해결됩니다.

Interface split 
    Module Procedure split_to_int_unidim 
    Module Procedure split_to_real_unidim 
End Interface split 

Function split_to_int_unidim (a, delim, b1, pos) Result (b) 
    Character(len=*), Intent (in) :: a, delim 
    Character(len=*), Intent (in), Optional :: pos 
    Integer, Intent(out) :: b1 
    Integer, Allocatable :: b(:) 

    ... 

    b1 = b(1) 

End Function 

Function split_to_real_unidim (a, delim, b1, pos) Result (b) 
    Character(len=*), Intent (in) :: a, delim 
    Character(len=*), Intent (in), Optional :: pos 
    Real, Intent(out) :: b1 
    Real, Allocatable :: b(:) 

    ... 

    b1 = b(1) 

End Function