Fortran 계단식 다형성

Question

유형에 따라 선택하는 두 개의 루틴을 하나씩 호출합니다.
matc_a은 takano입니다. 내가 를 필요, matc_a에서 takano 호출 할 때

Case ("takano") 
    Call takano (a) 

을 다음과 같이 두 가지 루틴이 있습니다 그래서 Select Type 내 takano에 대한 호출을 래핑 또는 그냥 호출 할 수 있습니다 입니다

Subroutine takano & 
    (    & 
    a    & 
) 

Class (*), Intent (out) :: a 

Select Type (a) 
Type Is (Real (Real32)) 
    a = atan (Real(1,Real32)/Real(49,Real32)) 

Type Is (Real (Real64)) 
    a = atan (Real(1,Real64)/Real(49,Real64)) 

Type Is (Real (Real128)) 
    a = atan (Real(1,Real128)/Real(49,Real128)) 

End Select 

End Subroutine takano 


Subroutine matc_a & 
    (    & 
    a, strategy & 
) 

Class (*), Intent (out) :: a 
Character (len=*) :: strategy 

Select Case (Trim (strategy)) 

    Case ("takano") 

    Select Type (a) 
    Type Is (Real (Real32)) 
     Call takano (a) 
    Type Is (Real (Real64)) 
     Call takano (a) 
    Type Is (Real (Real128)) 
     Call takano (a) 
    End Select 

End Select 

End Subroutine matc_a 

Answer 1

예, 짧은 버전을 사용하고 첫 번째 유형 선택을 피할 수 있습니다.

takano 중 하나를 사용하는지 여부는 중요하지 않습니다. 중요한 것은 다형성 가짜 인수를 허용한다는 것입니다.

사실, Fortran에서 동적 유형 지정 언어를 모방 한 것으로 보입니다. 그게 현명한 일인지 확실하지 않습니다.