포트란 - 명시 적 인터페이스

Question

저는 Fortran을 처음 접했고 연구를 위해 모델 러닝 괴물을 구해야하므로 계속 진행하면서 배우고 있습니다. 그래서 "어리석은"질문을하면 유감입니다. 커맨드 라인에서 (Mac OSX,) 컴파일하려고하는데 이미 몇 가지 문제를 해결할 수 있었지만 지금은 해결 방법을 모르겠습니다. 나는 오류 뒤에 아이디어를 얻은 것 같지만, 다시 고칠 방법을 모르겠습니다.

모델이 거대하기 때문에 관련성이 있다고 생각하는 코드 섹션 만 게시합니다 (잘못된 것일 수도 있음). 20.54 :

실제, 외부 :: compute_co2_storage 1
내가

budget_utils.f90의 라인을 따라 오류 메시지를받을

!==========================================================================================! 
! This subroutine simply updates the budget variables.         ! 
!------------------------------------------------------------------------------------------! 
subroutine update_budget(csite,lsl,ipaa,ipaz) 

    use ed_state_vars, only : sitetype  ! ! structure 
    implicit none 

    !----- Arguments -----------------------------------------------------------------------! 
    type(sitetype) , target  :: csite 
    integer   , intent(in) :: lsl 
    integer   , intent(in) :: ipaa 
    integer   , intent(in) :: ipaz 
    !----- Local variables. ----------------------------------------------------------------! 
    integer      :: ipa 
    !----- External functions. -------------------------------------------------------------! 
    real   , external :: compute_water_storage 
    real   , external :: compute_energy_storage 
    real   , external :: compute_co2_storage 
    !---------------------------------------------------------------------------------------! 


    do ipa=ipaa,ipaz 
     !------------------------------------------------------------------------------------! 
     !  Computing the storage terms for CO2, energy, and water budgets.    ! 
     !------------------------------------------------------------------------------------! 
     csite%co2budget_initialstorage(ipa) = compute_co2_storage(csite,ipa) 
     csite%wbudget_initialstorage(ipa) = compute_water_storage(csite,lsl,ipa) 
     csite%ebudget_initialstorage(ipa) = compute_energy_storage(csite,lsl,ipa) 
    end do 

    return 
end subroutine update_budget 
!==========================================================================================! 
!==========================================================================================! 

: 나는으로 시작하는 여러 서브 루틴을 가진 파일이 오류 : (1)에서 프로 시저 'compute_co2_storage'의 더미 인수 'csite'에이 프로 시저에 대한 명시 적 인터페이스가 필요한 속성이 있습니다.

(I ge 그러나 그들은 본질적으로 모두 동일합니다. 이것은 또 다른 500 개 라인 정도에 대해 하나의 이동 - 이제 (서브 루틴에서 "사용"하는) ed_state_vars.f90보고, 나는 기타 등

!============================================================================! 
!============================================================================! 
    !---------------------------------------------------------------------------! 
    ! Site type: 
    ! The following are the patch level arrays that populate the current site. 
    !---------------------------------------------------------------------------! 

type sitetype 


    integer :: npatches 

    ! The global index of the first cohort in all patches 
    integer,pointer,dimension(:) :: paco_id 

    ! The number of cohorts in each patch 
    integer,pointer,dimension(:) :: paco_n 

    ! Global index of the first patch in this vector, across all patches 
    ! on the grid 

    integer :: paglob_id 

    ! The patches containing the cohort arrays 
    type(patchtype),pointer,dimension(:) :: patch 

을 찾을 수 있습니다. 요점을 알려면 원래의 서브 루틴은 (더미) 인수 csite를 사용할 수 있도록 프로 시저에 대한 명시 적 인터페이스가 필요합니다. 다시 말하지만, 저는 Fortran에게 새로운 것이지만, 실제로 어떻게 생각하는지 이해하려고합니다. 나는 그것을 (그리고 어떻게 사용 하는가?) 명백한 인터페이스를 갖는 것이 무엇을 의미 하는지를 조사해왔다. 그러나 그것이 내 경우에 어떻게 적용되는지는 알 수 없다. 다른 컴파일러 (Intel?)를 사용해야할까요? 어떤 힌트?

편집 : 그래서 csite는 모든 절차에서 target을 선언하고 sitetype에 규정 된 선언에서 type(site type)는 pointer s의 전체 무리가 포함되어 있습니다. 그러나 모든 절차에서 sitetype이 다른 모듈 (ed_state_vars.f90)의 use d 일 수 있습니다. 그래서 나에게 명백한 인터페이스 오류를주는 이유는 아직도 혼란 스럽다.

Answer 1

"명시 적 인터페이스"는 프로 시저 (서브 루틴 또는 함수)에 대한 인터페이스가 컴파일러에 선언됨을 의미합니다. 따라서 컴파일러는 프로 시저 호출과 실제 프로 시저 사이의 인수 일관성을 검사 할 수 있습니다. 이것은 많은 프로그래머 실수를 발견 할 수 있습니다. 이 작업을 interface 문을 사용하여 인터페이스를 작성할 수 있지만 훨씬 쉬운 방법이 있습니다. 프로 시저를 모듈에 넣고 use 그 모듈을 호출하는 다른 엔티티의 모듈 - 주 프로그램 또는 자체가 아닌 프로 시저에서 가져 오기 모듈에. 그러나 동일한 모듈에있는 다른 프로 시저의 프로 시저는 use이 아니며 서로에게 자동으로 알려집니다.

프로 시저를 모듈에 배치하면 해당 인터페이스가 컴파일러에 자동으로 알려지고 use 인 경우 교차 검사를 사용할 수 있습니다. 이것은 인터페이스를 작성하는 것보다 쉽고 실수도 적습니다. 인터페이스를 사용하면 프로 시저 인수 목록을 복제해야합니다. 그런 다음 절차를 수정하면 호출 (물론!)뿐 아니라 인터페이스도 수정해야합니다.

"고급"인수를 사용하는 경우 명시 적 인터페이스 (interface 문 또는 모듈)가 필요합니다.그렇지 않으면 컴파일러에서 올바른 호출을 생성하지 못합니다.

use이라는 프로 시저가있는 경우 external으로 설명하면 안됩니다. 현대 Fortran에서는 external을 거의 사용하지 않습니다. 따라서 external 속성을 제거하고 모든 프로 시저를 모듈에 넣고 use을 입력하십시오.

Answer 2

내 Mac 10.9에 ED2를 설치하는 동안 발생한 동일한 문제가 발생했습니다. 나는 모듈에서 해당 파일의 모든 서브 루틴을 포함하여 고정, 즉 :

module mymodule 
contains 
subroutine update_budget(csite,lsl,ipaa,ipaz) 
other subroutines ecc. 
end module mymodule 

같은 일이 패키지의 일부 10 ~ 15 다른 파일을 수행해야했습니다. 모든 파일을 컴파일하고 해당 오브젝트 파일을 생성했지만 이제는 정의되지 않은 심볼에 대한 오류가 발생합니다. 그러나 나는 이것들이 수정들에 독립적이라고 생각한다. 그래서 누군가가 인내심을 가지고 있다면 적어도 이것은 인터페이스 문제를 해결할 방법이 될 것이다.