posts - 403, comments - 310, trackbacks - 0, articles - 7
            BlogJava :: 首頁 :: 新隨筆 :: 聯(lián)系 :: 聚合  :: 管理

          Fortran 計(jì)時(shí)

          Posted on 2008-01-23 20:46 ZelluX 閱讀(666) 評(píng)論(0)  編輯  收藏
          幾天沒貼技術(shù)貼了,不好
          貼個(gè)簡(jiǎn)單的,熱熱身
          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

          只有注冊(cè)用戶登錄后才能發(fā)表評(píng)論。


          網(wǎng)站導(dǎo)航:
           
          主站蜘蛛池模板: 贵港市| 兴文县| 天全县| 呈贡县| 西华县| 石楼县| 宜城市| 泗洪县| 瑞金市| 通道| 融水| 高雄市| 永和县| 乌拉特中旗| 红安县| 平南县| 罗定市| 新余市| 彭阳县| 乌恰县| 勐海县| 从江县| 社旗县| 务川| 黑水县| 浦江县| 当雄县| 颍上县| 吴忠市| 温州市| 卓尼县| 诸暨市| 镇雄县| 新安县| 河间市| 永新县| 东安县| 隆昌县| 宣威市| 太白县| 米林县|