|||
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
Archiver|手机版|科学网 ( 京ICP备07017567号-12 )
GMT+8, 2024-9-25 06:54
Powered by ScienceNet.cn
Copyright © 2007- 中国科学报社