1、一般派生结构体数组

a、一般派生类型定义

   TYPE A

   integer,allocatable,dimension(:,:,:)::data

   real::

    ...

   ENDTYPE

b、一般派生类型申明，结构体或结构体数组

   TYPE(A)::B 或 TYPE(A),dimension(ndim)::B

c、一般派生类型动态分配

   DO i=1,ndim

   ALLOCATE(B(i)%data(n1,n2,n3))

    ENDDO

2、嵌套派生结构体数组

a、嵌套派生类型定义

   TYPE A

   real,allocatable,dimension(:,:,:)::data

  ENDTYPE

   TYPE B

   TYPE(A),dimension(ndim1)::A1

  ENDTYPE

   TYPE(B),dimension(ndim2)::B1

   ....

  依此类推

b,嵌套派生结构体动态空间分配

   DO i=1,ndim2

   DO j=1,ndim1

   ALLOCATE(B1(j)%A1(i)%data(n1,n2,n3))

   ENDDO

   ENDDO