Fortran에서 일반 블록 배열 크기를 서브 루틴으로 전달

Question

배열 차원을 서브 루틴에 더미 변수로 전달하고 싶습니다. 배열 자체는 Common 블록에 있습니다. 이 코드입니다 :

real x(jj), y(jj), zq(jj) 
         1 

오류 : 변수 'JJ'에서 (1)이 문맥에서 일정

내가해야

PROGRAM test 
integer i, nn 
integer PARAMETER(Nt=10) 
real x(Nt), y(nt), z(Nt) 
Common /Bdat/ z 
nn=Nt 
do i=1,Nt 
x(i)=i+1 
z(i)=i-1 
enddo 
call estimate(x,y,nn) 
print*, y 
return 
end 

subroutine estimate(x,y,jj) 
integer i,jj 
real x(jj), y(jj), zq(jj) 
COMMON /Bdat/ zq 
do i=1, jj 
y(i)=x(i)+zq(i) 
enddo 
return 
end 

이 나는 ​​서브 루틴에서 얻을 오류입니다 아무도이 일을하는 방법을 도울 수 있다면 정말로 감사 할 것입니다.

Answer 1

범위 문제가 있습니다. 읽기 : Scope in Fortran. 즉, 서브 루틴 estimate은 추가 인수로 전달해야하는 변수 Nt에 대한 액세스가 필요하거나 contains 문을 사용하여 프로그램 내 전체 서브 루틴을 이동할 수 있습니다. 이렇게하면 프로그램이 성공적으로 실행될 수 있지만 common 블록을 기권 해 주시기 바랍니다. 이 때문에 기존의 코드로 피할 수없는 경우 참조 : 대신 Improve your FORTRAN 77 programs using some Fortran 90 features

에 한번 사용 모듈 :

module bdat 

     implicit none 

     private 
     public :: NT, z 

     integer, parameter :: NT = 10 
     real    :: z(NT) 

    end module bdat 

    module my_sub 

     use bdat, only: & 
      zq => z ! You're free to rename the variable 

     implicit none 
     private 
     public :: estimate 

    contains 

     subroutine estimate(x,y) 
     ! calling arguments 
     real, intent (in) :: x(:) 
     real, intent (out) :: y(:) 

     ! local variables 
     integer :: i, jj 

     jj = size(x) 

     do i=1, jj 
      y(i)=x(i)+zq(i) 
     end do 

     end subroutine estimate 

    end module my_sub 

    program test 

     use bdat, only: & 
      NT, z 

     use my_sub, only: & 
      estimate 

     implicit none 

     integer :: i 
     real :: x(NT), y(NT) 

     do i=1,NT 
     x(i)=i+1 
     z(i)=i-1 
     end do 

     call estimate(x,y) 

     print *, y 

    end program test