Fortran Coder

查看: 65|回复: 11

[派生类型] 参数化类型如何绑定

[复制链接]

6

帖子

1

主题

0

精华

入门

F 币
31 元
贡献
17 点
发表于 6 天前 | 显示全部楼层 |阅读模式
本帖最后由 lookbook 于 2018-11-8 13:23 编辑

各位大佬好,代码如下:

      module m_a
         implicit none

         type :: bar(p, q)
            integer, kind :: p=4
            integer, len  :: q=10
            real(kind=p),dimension(q) :: x
         contains
            procedure,pass(this) :: barsub
         end type bar

      contains
         subroutine barsub(this)
            class(bar), intent(in) :: this
            write (*,*) this%x
         end subroutine barsub
      end module


gfortran编译错误如下:
       procedure,pass :: barsub
               1
Error: Argument ‘this’ of ‘barsub’ with PASS(this) at (1) must be of the derived-type ‘bar’

小白还望大佬们赐教,谢谢!



回复

使用道具 举报

21

帖子

3

主题

0

精华

熟手

F 币
117 元
贡献
62 点
发表于 6 天前 | 显示全部楼层
参数化派生类型是个坑,
目前还不知道有哪个编译器能很好的支持所有参数化派生类型的标准,
我反正是放弃找别的路子
我也坐等大佬看有什么办法没有……

6

帖子

1

主题

0

精华

入门

F 币
31 元
贡献
17 点
 楼主| 发表于 6 天前 | 显示全部楼层
liudy02 发表于 2018-11-8 14:43
参数化派生类型是个坑,
目前还不知道有哪个编译器能很好的支持所有参数化派生类型的标准,
我反正是放弃找 ...

感觉你就是大佬呀。。。

21

帖子

3

主题

0

精华

熟手

F 币
117 元
贡献
62 点
发表于 6 天前 | 显示全部楼层
lookbook 发表于 2018-11-8 16:38
感觉你就是大佬呀。。。

你看我的级别积分什么的就知道不是啊……
和你一样的萌新菜鸟……

611

帖子

4

主题

0

精华

大师

农村外出务工人员

F 币
297 元
贡献
147 点

新人勋章爱心勋章水王勋章元老勋章

发表于 5 天前 | 显示全部楼层
kind的参数必须要编译时确定,不能假定
len的参数可以假定。
所以,多个kind,就要写多个函数。

[Fortran] 纯文本查看 复制代码
module m_a
  implicit none
  type :: bar(p, q)
    integer, kind :: p=4
    integer, len  :: q=10
    real(kind=p),dimension(q) :: x
  contains
    procedure:: barsub => barsub4 , barsub8
  end type bar

contains

  subroutine barsub4(this)
    type(bar(p=4,q=*)), intent(in) :: this
    write (*,*) this%q , this%p
  end subroutine barsub4
  
  subroutine barsub8(this)
    type(bar(p=8,q=*)), intent(in) :: this
    write (*,*) this%q , this%p
  end subroutine barsub8
  
end module

Program Main
  use m_a
  type(bar(4,30)) :: x4_30
  type(bar(4,20)) :: x4_20
  type(bar(8,30)) :: x8_30
  type(bar(8,20)) :: x8_20
  call x4_30%barsub()
  call x4_20%barsub()
  call x8_30%barsub()
  call x8_20%barsub()
End Program Main  

21

帖子

3

主题

0

精华

熟手

F 币
117 元
贡献
62 点
发表于 5 天前 | 显示全部楼层
本帖最后由 liudy02 于 2018-11-9 10:18 编辑
楚香饭 发表于 2018-11-9 00:55
kind的参数必须要编译时确定,不能假定
len的参数可以假定。
所以,多个kind,就要写多个函数。

因为IVF和gfortran都没有支持对参数化派生类型中(Len=:)对象的Allocate语句
所以原来我已经觉得参数化派生类型废掉了,
版主却向我展示了它的另外一种用法,确实可以用一种类型涵盖事实上的多种数据
不过这里我有一点点疑惑:
不同的Kind在这里的处理方式实际上还是用的不同的函数
并没有让程序写起来变得更为简洁
从减小单个文件或单个Module的角度,怎么感觉还是写成不同的TYPE封装进不同的Module文件更合适呢
这种参数化派生类型的优势或者是巧妙应用是什么呢……

611

帖子

4

主题

0

精华

大师

农村外出务工人员

F 币
297 元
贡献
147 点

新人勋章爱心勋章水王勋章元老勋章

发表于 5 天前 | 显示全部楼层
不同的kind,需要用不同的函数。这是肯定的,毕竟二进制代码(指令)完全不同。
如果你有很高的通用编程需求,可以考虑用C++,模板会让通用编程更方便。
(事实上,模板也是产生了多个目标代码的函数的)

Fortran在OOP方面还刚刚起步,尚需时间和契机来成熟。
这主要还是取决于需求,至少,我还没有太多这方面的需求。

至于哪个合适,就要自己斟酌了。写成不同type,可能在维护性上会有欠缺。
PS:我在实际应用中,参数化type也很少使用。

21

帖子

3

主题

0

精华

熟手

F 币
117 元
贡献
62 点
发表于 5 天前 | 显示全部楼层
本帖最后由 liudy02 于 2018-11-9 12:40 编辑
楚香饭 发表于 2018-11-9 11:16
不同的kind,需要用不同的函数。这是肯定的,毕竟二进制代码(指令)完全不同。
如果你有很高的通用编程需 ...

原来如此,版主的解释让我终于明了Kind参数和Len参数为什么在编程上有不同之处了
写成不同的Type寻找上应该是要困难点,所以同一类型不同kind就要分别去找文件
另外如果对与这几种Kind的相关过程有一致性要求,确实也容易顾此失彼,不过反正自己一个人维护的话还好
但是写在不同文件里边,从编辑灵活性上还是好些啊
非常感谢版主的理论解释和经验分享,对我相当具有启发性

6

帖子

1

主题

0

精华

入门

F 币
31 元
贡献
17 点
 楼主| 发表于 5 天前 | 显示全部楼层
liudy02 发表于 2018-11-9 12:38
原来如此,版主的解释让我终于明了Kind参数和Len参数为什么在编程上有不同之处了
写成不同的Type寻找上应 ...

其实有一个方法,只需要多一个module就行。就是在最底层定义一个kind常量,然后每个module都包含使用它即可。

module style
integer,parameter :: nnn=8
end module

module another

type anything
real(kind=nnn) :: a,b
balabala.....
.......
这样的话,关于绑定的函数也只要写一遍就行,但记得更改nnn之后要clean一下,然后再make。
我是这样处理的。

6

帖子

1

主题

0

精华

入门

F 币
31 元
贡献
17 点
 楼主| 发表于 5 天前 | 显示全部楼层
楚香饭 发表于 2018-11-9 00:55
kind的参数必须要编译时确定,不能假定
len的参数可以假定。
所以,多个kind,就要写多个函数。

大佬就是大佬,学习了,我去试试。
您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

QQ|捐赠本站|Archiver|关于我们 About Us|群聊|Fcode

GMT+8, 2018-11-14 06:11

Powered by Discuz! X3.2

© 2001-2017 Comsenz Inc.

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