Fortran Coder

标题: 在使用type时如何将变量顺便设置成整型？ [打印本页]

作者: caimaxwell 时间: 2023-3-8 17:11
标题: 在使用type时如何将变量顺便设置成整型？
大神们我又来了。代码如下：

[Fortran] 纯文本查看 复制代码

  type Subblocks

    integer*4  :: row

    integer*4  :: coL

  end type Subblocks

[Fortran] 纯文本查看 复制代码

  type blocks

    integer*4  :: row1,row2,coL1,coL2

    integer*4  :: rowm,coLm

    integer*4  :: dad

    integer*4  :: son(4)

    integer*4  :: bnum

    type(Subblocks), allocatable :: iSubblocks(:)

  end type blocks

[Fortran] 纯文本查看 复制代码

type(blocks), allocatable :: iblocks(:)

这段声明我是想完成这样一个操作：iblocks(i)%isubblocks(j)%coL

我想输出iblocks(i)、iblock(i)%isubblocks(j)、isubblocks(i)都是整数，想问问应该怎么声明呢？

作者: caimaxwell 时间: 2023-3-8 17:12

[Fortran] 纯文本查看 复制代码

type(Subblocks), allocatable  :: iSubblocks(:)

作者: 风平老涡 时间: 2023-3-8 21:26
本帖最后由风平老涡于 2023-3-8 23:38 编辑

caimaxwell 发表于 2023-3-8 17:12

[Fortran] 纯文本查看 复制代码



type Subblocks  

    integer*4  :: row 

    integer*4  :: coL

end type Subblocks



type blocks  

    integer*4  :: row1,row2,coL1,coL2 

    integer*4  :: rowm,coLm

    integer*4  :: dad

    integer*4  :: son(4)

    integer*4  :: bnum

    type(Subblocks), allocatable :: iSubblocks(:)

end type blocks



type(blocks), allocatable :: iblocks(:)

type(Subblocks), allocatable  :: iSubblocks(:)

integer :: i, n, m







n = 10

m = 20



allocate(iblocks(n))



do i = 1, n

   allocate(iblocks(i) % isubblocks(m))

end do



allocate(isubblocks(m))



print *, iblocks(3) % colm, iblocks % isubblocks(2) % col, isubblocks(3) % col

衍生类型的变量名（iblocks % isubblocks) 与变量名（isubblocks）不存在冲突。

作者: fcode 时间: 2023-3-9 08:41
iblocks(i)、iblock(i)%isubblocks(j)、isubblocks(i) 这些都是结构体（或叫派生类型），怎么能是整数呢？做不到的。

作者: caimaxwell 时间: 2023-3-9 11:20

风平老涡发表于 2023-3-8 21:26
[mw_shl_code=fortran,true]
type Subblocks
integer*4 :: row

太厉害了，我想了好久，才想明白问题所在，做出差不多得声明类型。但是不及您的美观、透彻。感谢!

作者: caimaxwell 时间: 2023-3-9 11:21

fcode 发表于 2023-3-9 08:41
iblocks(i)、iblock(i)%isubblocks(j)、isubblocks(i) 这些都是结构体（或叫派生类型），怎么能是整数呢？ ...

是的，后来我才稍微想明白，现在理解了，十分感谢您的解惑！

欢迎光临 Fortran Coder (http://bbs.fcode.cn/)