Snowdream

posts - 403, comments - 310, trackbacks - 0, articles - 7

BlogJava :: 首頁 :: 新隨筆 :: 聯系 :: 聚合

:: 管理

Fortran 計時

Posted on 2008-01-23 20:46 ZelluX 閱讀(666) 評論(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

新用戶注冊刷新評論列表


只有注冊用戶登錄后才能發表評論。




網站導航: 博客園 IT新聞 Chat2DB C++博客博問管理

主站蜘蛛池模板：莆田市| 定兴县| 增城市| 龙里县| 茶陵县| 阿城市| 临泽县| 宁波市| 黎平县| 延津县| 鹿邑县| 美姑县| 平顺县| 威宁| 康乐县| 门头沟区| 原平市| 清河县| 枞阳县| 鹤岗市| 潞城市| 苗栗市| 永福县| 怀宁县| 库尔勒市| 阿合奇县| 新乡市| 卢龙县| 四会市| 崇文区| 漳州市| 香港| 锦屏县| 固始县| 满城县| 平果县| 金塔县| 黄大仙区| 北海市| 益阳市| 梧州市|