Fortran Coder

查看: 215|回复: 5

[派生类型] 在使用type时如何将变量顺便设置成整型?

[复制链接]

21

帖子

6

主题

0

精华

入门

F 币
79 元
贡献
48 点
发表于 2023-3-8 17:11:18 | 显示全部楼层 |阅读模式
大神们我又来了。代码如下:
[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)都是整数,想问问应该怎么声明呢?

21

帖子

6

主题

0

精华

入门

F 币
79 元
贡献
48 点
 楼主| 发表于 2023-3-8 17:12:15 | 显示全部楼层
[Fortran] 纯文本查看 复制代码
type(Subblocks), allocatable  :: iSubblocks(:)

185

帖子

2

主题

0

精华

宗师

F 币
1846 元
贡献
822 点

规矩勋章

发表于 2023-3-8 21:26:06 | 显示全部楼层
本帖最后由 风平老涡 于 2023-3-8 23:38 编辑

[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)不存在冲突。

1836

帖子

12

主题

5

精华

论坛跑堂

臭石头雪球

F 币
829 元
贡献
335 点

美女勋章热心勋章星光勋章新人勋章贡献勋章管理勋章帅哥勋章爱心勋章规矩勋章元老勋章水王勋章

发表于 2023-3-9 08:41:19 | 显示全部楼层
iblocks(i)、iblock(i)%isubblocks(j)、isubblocks(i) 这些都是结构体(或叫派生类型),怎么能是整数呢?做不到的。

21

帖子

6

主题

0

精华

入门

F 币
79 元
贡献
48 点
 楼主| 发表于 2023-3-9 11:20:29 | 显示全部楼层
风平老涡 发表于 2023-3-8 21:26
[mw_shl_code=fortran,true]
type Subblocks  
    integer*4  :: row

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

21

帖子

6

主题

0

精华

入门

F 币
79 元
贡献
48 点
 楼主| 发表于 2023-3-9 11:21:41 | 显示全部楼层
fcode 发表于 2023-3-9 08:41
iblocks(i)、iblock(i)%isubblocks(j)、isubblocks(i) 这些都是结构体(或叫派生类型),怎么能是整数呢? ...

是的,后来我才稍微想明白,现在理解了,十分感谢您的解惑!
您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

捐赠本站|Archiver|关于我们 About Us|小黑屋|Fcode ( 京ICP备18005632-2号 )

GMT+8, 2023-3-24 02:52

Powered by Tencent X3.4

© 2013-2023 Tencent

快速回复 返回顶部 返回列表