CCCCCCCCCCCCC
C  
      program testtime
  
C
C illustrates intrinsic time call in fortran
C
      implicit none

      real*8 time1,time2

      integer i,j
      real x
      x = 0.
      call cpu_time(time1)
      print*,' CPU time (absolute) is now ',time1
      do i = 1,10
        do j = 1,100000000
           x = x+1.1
        enddo
        call cpu_time(time2)
        print*,' time used so far is ',time2-time1
      enddo
      call cpu_time(time2)
      print*,' CPU time (absolute) is now ',time2
      end