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)航:
		
		
          
		
          
			
		
          	
		
          
			 
		
          
		
          
			
		
          
		
          
			
				
		
          		
	
          	

          



          

				
			
          
		          		
	
          
	
          
		
			


		
	
          

          



    







          
        
	




主站蜘蛛池模板：
岳普湖县|
安达市|
米泉市|
玉溪市|
梧州市|
桑日县|
渝北区|
彰化市|
怀集县|
依兰县|
清新县|
杭锦后旗|
南华县|
彰化市|
维西|
游戏|
新建县|
昆明市|
弥勒县|
阿勒泰市|
宽城|
探索|
扶沟县|
蒙城县|
饶阳县|
延边|
滨州市|
宿迁市|
五寨县|
香格里拉县|
惠水县|
抚州市|
伊通|
湖州市|
碌曲县|
滨海县|
五峰|
讷河市|
萝北县|
阳春市|
镇安县|