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
          

          

          
	
          
	


          
	    
    




          





          


          

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


          

		          		
		
          
		
          			
		
		
		
		
          
		
          
		
		
          
		
          
			網站導航:
		
		
          
		
          
			
		
          	
		
          
			 
		
          
		
          
			
		
          
		
          
			
				
		
          		
	
          	

          



          

				
			
          
		          		
	
          
	
          
		
			


		
	
          

          



    







          
        
	




主站蜘蛛池模板：
长岭县|
革吉县|
屏东市|
阳春市|
正蓝旗|
新密市|
双流县|
盘锦市|
军事|
内丘县|
固安县|
阿瓦提县|
黑水县|
垫江县|
灯塔市|
岐山县|
始兴县|
淮南市|
嘉黎县|
四平市|
北流市|
志丹县|
常山县|
岳阳市|
响水县|
吉水县|
岚皋县|
青龙|
门头沟区|
定远县|
玉环县|
应城市|
岳池县|
龙州县|
黔江区|
三门县|
安徽省|
宜兰县|
兴义市|
龙南县|
锡林浩特市|