배열을 서브 루틴의 이런 종류의 정의 배열에 전달하는 방법

Question

최근에 많은 특수 기능을 포함하고있는 f90 파일을 발견했습니다. subroutine pbdv (v, x, dv, dp, pdf, pdd)을 사용해야하고,이 6 가지 변수의 정의를 살펴 보겠습니다. dp 및 dv의 정의는 다음과 같습니다.

real (kind = 8) dp(0:*) 
real (kind = 8) dv(0:*) 

어떻게 배열의 정의 어떤 종류의이 서브 루틴을 호출? 이 서브 루틴의 전체 정의는 here입니다.

Answer 1

여기는 간단합니다. 또한 할당 할 수 없도록 할 수 있으며 할당 할 수있는 모든 요소를 ​​삭제할 수 있습니다.

PROGRAM MAIN 
... 
real (kind = 8), DIMENSION(:), ALLOCATABLE :: dp 
real (kind = 8), DIMENSION(-2:80)   :: dv 
... 
ALLOCATE(dp(0:100)) 
... 
CALL yourSub1('dp', dp) 
CALL yourSub2('dv', dv) 
... 
IF(ALLOCATED(DP)) DEALLOCATE(DP) 
END PROGRAM 

SUBROUTINE YourSub1(Label, ddd) 
IMPLICIT NONE 
CHARACTER(LEN=*)      , INTENT(IN ) :: Label 
real(kind=8), DIMENSION(:), ALLOCATABLE, INTENT(INOUT) :: ddd 

WRITE(*,22) Label, LBOUND(DDD, DIM=1), label, LBOUND(DDD, DIM=1) 
22 FORMAT(' LBOUND(',A,')=',I7,' UBOUND(',A,'=',I6) 

RETURN 
END SUBROUTINE YourSub1 

SUBROUTINE YourSub2(Label, ddd) 
IMPLICIT NONE 
CHARACTER(LEN=*)   , INTENT(IN ) :: Label 
real(kind=8), DIMENSION(:), INTENT(INOUT) :: ddd 

WRITE(*,22) Label, LBOUND(DDD, DIM=1), label, LBOUND(DDD, DIM=1) 
22 FORMAT(' LBOUND(',A,')=',I7,' UBOUND(',A,'=',I6) 

RETURN 
END SUBROUTINE YourSub2