fortran, 할당 할 수있는 배열을 오른쪽 경계를 가진 서브 루틴에 전달

Question

할당 가능한 배열을 서브 루틴으로 전달하는 프로그램이 필요하며, 내가하는 방식이 표준인지 아닌지를 알아야합니다.

내가 포트란 표준을 검색 할 수있는 위치를 알고 있다면 알려주십시오. 여기

, 나는 그래서 세 가지 방법이 있습니다

================================ 
    666.000000000000  214.000000000000  558.000000000000  
================================ 
    214.000000000000  558.000000000000  332.000000000000  
================================ 
    558.000000000000  332.000000000000  -521.000000000000  
================================ 

를 얻을 더 나은 모듈 화면에 modt99

module modt99 

contains 
subroutine test3(v1,v2,v3) 
    real(pr), dimension(:), intent(in) :: v1 
    real(pr), dimension(0:), intent(in) :: v2 
    real(pr), dimension(:), allocatable, intent(in) :: v3 

    print*,'================================' 
    print*,v1(1:3) 
    print*,'================================' 
    print*,v2(1:3) 
    print*,'================================' 
    print*,v3(1:3) 
    print*,'================================' 

end subroutine test3 


end module modt99 

와 단어보다

program test 

use modt99 

implicit none 

real(pr), dimension(:), allocatable :: vx 

allocate(vx(-1:6)) 
vx=(/666,214,558,332,-521,-999,120,55/) 
call test3(vx,vx,vx) 
deallocate(vx) 

end program test 

을 설명하는 작은 코드 test3 서브 루틴의 임시 인수 (포트란의 어떤 버전에서, 90, 95, 2003?)와 그들의 행동 표준?

Answer 1

첫 번째 버전은 어레이 슬라이스를 서브 루틴으로 전달합니다. 경계 정보는 이와 같이 전달되지 않으며 배열은 1에서 시작하여 size(array)으로 이동한다고 가정합니다.

두 번째 방법은 첫 번째 방법과 비슷하지만 아래쪽 경계를 수동으로 0으로 설정 했으므로 v3(1:3)을 인쇄하면 1의 오프셋 값이 제공됩니다.

세 번째 방법은 모두 배열 정보를 서브 루틴 (경계 포함)에 전달하므로 "올바른"색인 생성입니다. 합격점 allocatable 어레이가 Fortran 2003에 도입되었습니다.

별칭 문제 (동일한 변수를 3 개의 다른 더미 인수에 전달 함) 외에도 세 버전 모두 합법적입니다.

표준 here의 모든 문서를 찾을 수 있습니다.

특히, 모양 및 이연 모양 더미 인수에 배열을 가정 사이의 차이를 볼 수있는 포트란 2003 표준, Ch. 5.1.2.5 DIMENSION attribute를보십시오.