clock.F

Go to the documentation of this file.

      FUNCTION clock()
!
!     clock() returns the amount of CPU time (in microseconds) used since
!     the first call to clock().  The time reported is the sum of the user
!     and system times of the calling process and its terminated child
!     processes for which it has executed wait() or system() (see wait(2)
!     and system(3S)).  To determine the time in seconds, the value returned
!     by clock() should be divided by the value of the macro CLOCKS_PER_SEC.
!
!     INTRODUCE A PROPER CLCOK ROUTINE HERE
!
!      IMPLICIT LOGICAL (L)
      USE parkind1, ONLY : jpim, jprb
!
      IMPLICIT NONE
!
      INTEGER(KIND=JPIM) :: CLOCK
      INTEGER(KIND=JPIM) :: IC, ICR, ICM
      CALL system_clock(ic,icr,icm)
      IF(icm.EQ.0) THEN
        print *,' no system clock'
        clock=-99
      ELSE
#ifdef VPP
        clock=ic
#else
        clock=int(1000.0_jprb*REAL(ic,kind=jprb)/icr)
#endif
      ENDIF
      RETURN
      ENDFUNCTION clock