linux fortran 结构体,科学网—Fortran派生结构体数组的动态空间分配 - 何建辉的博文...

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

转载本文请联系原作者获取授权，同时请注明本文来自何建辉科学网博客。

链接地址：http://blog.sciencenet.cn/blog-3373882-1095553.html

上一篇：[转载]linux centos 系统PGI Netcdf 下载安装