배열 배열을 정의하는 방법은 무엇입니까?

Question

각 요소가 치수 (taille, taille)의 행렬 인 phi0(ngrains)의 배열을 정의하려고합니다. 예를 들어 phi0(1)을 찾을 때 예를 들어 taille*taille 요소의 행렬과 phi0(2) .... phi0(ngrains)의 경우를 표시해야합니다. .

어떻게 Fortran에서 수행 할 수 있습니까?

이것은 내가 지금까지 시도한 것입니다 :하지만 난 점점 오류 메시지

PROGRAM DERIVED_TYP 

    INTEGER :: i,ngrains,nmax=4 

    TYPE INITIAL   
     REAL, DIMENSION(:,:), ALLOCATABLE :: zeros(:,:) 
    END TYPE INITIAL 

    TYPE (INITIAL), dimension(:), allocatable :: phi0 


    ALLOCATE (phi0(1)%zeros(nmax,nmax)) 
    ALLOCATE (phi0(2)%zeros(nmax,nmax)) 

    print*,phi0(1)%zeros 

    !phi0(2)=INITIAL(0.) 


END PROGRAM DERIVED_TYP 

Answer 1

앞에서 코멘트에 언급 한 바와 같이 당신이 회원의 할당하기 전에, 당신이 phi0를 할당하지 않습니다를 유지한다. 내 컴파일러는 원래 불평하지 않았지만 내가 @PVitt에 의해 주석의 라인을 따라,뿐만 아니라 INITIAL 정의를 수정 한

PROGRAM DERIVED_TYP 

    INTEGER :: i 
    INTEGER, parameter :: ngrains=2 ,nmax=4 

    TYPE INITIAL   
     REAL, DIMENSION(:,:), ALLOCATABLE :: zeros 
    END TYPE INITIAL 

    TYPE (INITIAL), dimension(:), allocatable :: phi0 

    !First allocate ngrains elements in our container array 
    ALLOCATE (phi0(ngrains)) 
    !Now allocate our nmax by nmax zeros array in each of our 
    !container elements. 
    do i=1,ngrains 
     ALLOCATE (phi0(i)%zeros(nmax,nmax)) 
    end do 

    print*,phi0(1)%zeros 

END PROGRAM DERIVED_TYP 

참고 : 무언가 같이이 문제를 방지 코드의 수정 된 버전입니다 형태.

우리는 0을 할당하는 동안 실제로 아무것도 설정하지 않으므로 배열을 인쇄 할 때 얻는 결과는 잘 정의되지 않았고 반복적이지 않을 수 있으며 또한 컴파일러.