如下: Real time_begin , time_end1 , time_end2 Integer i , j call CPU_TIME(time_begin) write(*,*) time_begin , 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' , ti