统计fortran计算过程所耗时间的小代码

蛋蛋的笨笨

              我是温度控，对cpu的温度其敏感，各种DIY....代价是烧掉了一块老U
              我是时间控，总想知道某一个程序打开到底需要多久（开机时间除外，木有装360，对yy的开机时间木有兴趣）
              受论坛风云银物清风（其实，第一次打出来，显示的是淫物，为了偶的纯洁形象，改了一下）的委托，我来写两行小代码，来分享一个统计某段fortran运算所耗时间的小代码，就那么几行，凑合用啊
               先定义一下这个东东，timeoff表示所耗费的时间

1. integer :: time(0:1),timeOff

复制代码

然后是定义起始的计时位置

1. CALL system_clock(time(0))

复制代码

中间的就是你的运算过程啦，不再多啰嗦了

1. 
   
2. CALL SYSTEM_CLOCk(TIME(1))
   
3. timeoff=time(1)-time(0)
   
4. print*,timeoff

复制代码

显示出来的timeoff就是运算时间啦，简单哇  time（1）是结束时间，time（0）是开始时间，单位都是秒

说明一下，这个call system_clock 其实使计算当前的时间与某个fortran内部的标准时间之间的描述差的，忘记了是哪年的元月一日的零点零秒了，然后统计这之间的秒数，两次的秒数差，就是计算所用的时间啦

晒一下我的运算时间，

记得最长一次，花了3000多s

大侠们 给我加分哇，写死我了

mofangbao

楼主的平台是fortran power station4.0

topmad

@mofangbao清风怎么看出来的，我咋没看出来呢？

artmunich

同ls，难道其他版本的子函数不同？

天目神眉

又学到一招

topmad

artmunich 发表于 2011-11-12 15:33

                               
登录/注册后可看大图

同ls，难道其他版本的子函数不同？

可能是那个文件夹已经存在的  powerstation中可以显示中文，cvf中不能吧

wlzhongouc

嗯 这个可以用来检查大程序

蛋蛋的笨笨

对啊对啊 我就是用的powerstation 清风如何发现的啊

空谷幽竹

LZ,我觉得是不是应该统计CPU的用时，才能反映程序代码的耗费时间呢

liutaoz21

额~膜拜一下~感谢楼主