Fortran 的計時程式

cpp 代码

1. ! main()   
2. implicit none   
3.   
4. real t1, t2   
5. integer*4 no, sum, i   
6.   
7. pause   
8. t1= secnds(0.0)   
9.   
10. pause   
11. t2= secnds(t1)   
12. print *, 't1= ', t1, ', t2= ', t2   
13. pause   
14.   
15. no= 10   
16. do while (no .GT. 0)   
17.    t1= secnds(0.0)   
18.   
19.        sum= 0   
20.        do i=1, no   
21.           sum= sum + i   
22.        end do  
23.    t2= secnds(t1)   
24.   
25.    if (t2 .GT. 0.0) then   
26.       print *, '*** no= ', no, ', sum= ', sum, ', t2= ', t2   
27.    else  
28.       print *, '    no= ', no, ', sum= ', sum, ', t2= ', t2   
29.    end if  
30.   
31.    no= no + no    
32. end do  
33.   
34. end !of main()   
35. ! -----------------------------------------------