如下：
Real time_begin , time_end1 , time_end2
Integer i , j
call CPU_TIME(time_begin)
write(*,*) time_begin
do j = ,
Do i = ,
End Do
call CPU_TIME(time_end1)
write(*,*) j , time_end1 , time_end1 - time_begin
end do
call CPU_TIME(time_end2)
write(*,*) 't' , time_end2 , time_end2 - time_beginend
输出为：
1.5600100E-02
1 1.248008 1.232408
2 2.496016 2.480416
3 3.697224 3.681623
4 4.914032 4.898431
5 6.099639 6.084039
6 7.316447 7.300847
7 8.517654 8.502054
8 9.734463 9.718863
9 10.92007 10.90447
10 12.13688 12.12128
11 13.33809 13.32248
12 14.53929 14.52369
13 15.74050 15.72490
14 16.97291 16.95731
15 18.18972 18.17412
16 19.39092 19.37532
17 20.59213 20.57653
18 21.77774 21.76214
19 22.96335 22.94775
20 24.19576 24.18015
21 25.39696 25.38136
22 26.59817 26.58257
23 27.81498 27.79938
24 29.01619 29.00059
25 30.21739 30.20179
26 31.43420 31.41860
27 32.65101 32.63541
28 33.83662 33.82102
29 35.02222 35.00663
30 36.22343 36.20783
t 36.22343 36.20783
请按任意键继续. . .