Fortran Coder

查看: 10034|回复: 8
打印 上一主题 下一主题

[通用算法] 自己编写的链表类

[复制链接]

1967

帖子

12

主题

5

精华

论坛跑堂

臭石头雪球

F 币
1370 元
贡献
581 点

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

楼主
发表于 2018-9-1 08:13:59 | 显示全部楼层
不错,有三个建议:
1. 为什么 ToArray 不使用 people%ToArray(a) 的形式?
2. 对于封装类的 Module 来说,最好是 private 的。所以建议第3 行,加一个 private。
这样多个类里,就可以同时有 destory、Create 函数而互不影响。

3. 作为 final 的函数,不应该显示调用它,而应该让编译器自动调用。
你只需要
type(list),allocatable::people
Allocate(people)
当 Deallocate(people) 时,就会自动 final 而调用 Destory

1967

帖子

12

主题

5

精华

论坛跑堂

臭石头雪球

F 币
1370 元
贡献
581 点

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

沙发
发表于 2018-9-1 09:32:19 | 显示全部楼层
今年手边有个项目挺急的。做完会有一些时间。

资料的话可以看《modern fortran explained》

1967

帖子

12

主题

5

精华

论坛跑堂

臭石头雪球

F 币
1370 元
贡献
581 点

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

板凳
发表于 2018-9-1 23:16:31 | 显示全部楼层
楼上给出的模板类还是不错的,适合多种数据类型。值得借鉴
您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

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

GMT+8, 2024-5-19 17:46

Powered by Tencent X3.4

© 2013-2024 Tencent

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