Fortran Coder

查看: 7189|回复: 1
打印 上一主题 下一主题

[派生类型] 定义子例程序时变量选用了派生数据类型,变量类型不匹配

[复制链接]

166

帖子

2

主题

1

精华

大师

Vim

F 币
1005 元
贡献
482 点

规矩勋章

楼主
发表于 2021-8-17 22:00:48 | 显示全部楼层
本帖最后由 Transpose 于 2021-8-17 22:01 编辑

type的定义无法传递给子程序,即使是相同的定义方式,也无法认为是同一个类型。子程序使用type必须要借助module,
[Fortran] 纯文本查看 复制代码
module mytype
    implicit none
    type m
        real::a
    end type m
end module mytype

program main
    use mytype
    implicit none
    type(m)::b
    b%a=2.0
    call test(b) 
end program main

subroutine test(b)
    use mytype
    implicit none
    type(m)::b
    write(*,*)b%a
end subroutine test

评分

参与人数 1F 币 +3 收起 理由
fcode + 3 赞一个!

查看全部评分

您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

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

GMT+8, 2024-11-1 07:46

Powered by Tencent X3.4

© 2013-2024 Tencent

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