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

          



          

				
			
          
		          		
	
          
	
          
		
			


		
	
          

          



    







          
        
	




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