posts - 403, comments - 310, trackbacks - 0, articles - 7
  BlogJava :: 首页 :: 新随笔 :: 联系 :: 聚合  :: 管理

Fortran 计时

Posted on 2008-01-23 20:46 ZelluX 阅读(648) 评论(0)  编辑  收藏
几天没贴技术贴了,不好
贴个简单的,热热身
program addvector

parameter n 
= 10000000

real 
:: a(n)
real 
:: b(n)
real 
:: result1(n)



call system_clock(
time(0))

do i = 1, n, 1
    result1(i) 
= a(i) + b(i)
end do

call system_clock(
time(1))



write (
*,*'Elapsed time: ', (time(1- time(0))

end

只有注册用户登录后才能发表评论。


网站导航: