Fortran의 개인 기능

Question

Fortran에서 개인 기능을 어떻게 선언합니까?

Answer 1

이 단지 포트란 90 모듈과 함께 작동합니다. 모듈 선언에서 "public"및 "private"키워드를 사용하여 변수 및 루틴 목록에 대한 액세스 제한을 지정할 수 있습니다. 일반적으로 처음에는 private 키워드를 사용하는 것이 도움이되는 것으로 나타났습니다.이 키워드는 명시 적으로 public으로 표시하지 않는 한 모듈 내의 모든 항목이 private임을 지정합니다.

아래 코드 샘플에서 subroutine_1() 및 function_1()은 필수 "사용"문을 통해 모듈 외부에서 액세스 할 수 있지만 다른 변수/서브 루틴/함수는 private이됩니다. 외부에서 액세스 할 수 있습니다 PUBLIC에 나열된 개인에 나와

PUBLIC :: subname-1, funname-2, ... 

PRIVATE :: subname-1, funname-2, ... 

모든 개체가 모듈의 외부에서 액세스 할 수 없습니다 및 모든 엔티티 : 당신이 모듈을 사용하는 경우

module so_example 
    implicit none 

    private 

    public :: subroutine_1 
    public :: function_1 

contains 

    ! Implementation of subroutines and functions goes here 

end module so_example 

Answer 2

나는 FORTRAN 라인을 작성한 적이 없지만 this thread about "Private module procedures"은 화제 인 것으로 보인다. 적어도 그렇게되기를 바란다. 최소한 답을 포함하고있는 것 같습니다.

---

jaredor 요약 :

공개/개인 속성이 포트란 90 모듈 내에 존재하고 나중에. Fortran 77 이전 버전 - 운이 좋지 않습니다.

Answer 3

Private xxx, yyy, zzz 

real function xxx (v) 
    ... 
end function xxx 

integer function yyy() 
    ... 
end function yyy 

subroutine zzz (a,b,c) 
    ... 
end subroutine zzz 

... 
other stuff that calls them 
... 

Answer 4

, 여기에 구문 모듈. 기본적으로 다른 모든 엔티티는 모듈 외부에서 액세스 할 수 있습니다.

MODULE Field 
    IMPLICIT NONE 

    Integer :: Dimen 

    PUBLIC :: Gravity 
    PRIVATE :: Electric, Magnetic 

CONTAINS 

    INTEGER FUNCTION Gravity() 
    .......... 
    END FUNCTION Gravity 


    REAL FUNCTION Electric() 
    .......... 
    END FUNCTION 


    REAL FUNCTION Magnetic() 
    .......... 
    END FUNCTION 

    .......... 

END MODULE Field