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


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

          

          
	
          
	


          
	    
    




          





          


          

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


          

		          		
		
          
		
          			
		
		
		
		
          
		
          
		
		
          
		
          
			網站導航:
		
		
          
		
          
			
		
          	
		
          
			 
		
          
		
          
			
		
          
		
          
			
				
		
          		
	
          	

          



          

				
			
          
		          		
	
          
	
          
		
			


		
	
          

          



    







          
        
	




主站蜘蛛池模板：
阿图什市|
兴国县|
新竹县|
邯郸县|
名山县|
锡林浩特市|
剑河县|
沙田区|
绍兴市|
喀喇|
新兴县|
沂源县|
海城市|
南溪县|
若尔盖县|
黄浦区|
安岳县|
曲阳县|
鹿邑县|
台东市|
盘锦市|
新邵县|
察雅县|
当涂县|
永丰县|
株洲县|
镇康县|
梁河县|
旅游|
彭水|
龙胜|
韶关市|
泸溪县|
洪湖市|
宁津县|
资溪县|
松溪县|
台北市|
兴业县|
苏尼特右旗|
承德市|