Fortran Coder

查看: 3953|回复: 6
打印 上一主题 下一主题

高难度的三维以上数值如何快速存储问题

[复制链接]

799

帖子

2

主题

0

精华

大宗师

F 币
3797 元
贡献
2270 点
楼主
发表于 2021-2-4 15:51:12 | 显示全部楼层
计算量太小,讨论效率没有意义。程序启动时间占比太大。

799

帖子

2

主题

0

精华

大宗师

F 币
3797 元
贡献
2270 点
沙发
发表于 2021-2-4 16:00:58 | 显示全部楼层
这个代码就是错的,根本不能运行,那你怎么对比的时间呢。
[Fortran] 纯文本查看 复制代码
MODULE mod
REAL,DIMENSION(:,:,:),ALLOCATABLE :: indt,ce
ENDMODULE mod

PROGRAM ceshi
USE mod
IMPLICIT NONE
integer maxx,maxy,maxz
real dzz
dzz=0.6
maxz=80;maxy=80;maxx=80
allocate(indt(maxx,maxy,maxz),ce(maxx,maxy,maxz))
indt=0;ce=0
indt(:39,:,:)=1
ce(:39,:,:)=dzz

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

本版积分规则

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

GMT+8, 2024-5-9 03:16

Powered by Tencent X3.4

© 2013-2024 Tencent

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