iusrcl.F

Go to the documentation of this file.

      INTEGER FUNCTION iusrcl()
      USE parkind1, ONLY : jprd, jpim
      INTEGER(KIND=JPIM) :: TIMENOWHIGH
!RJ       REAL(KIND=JPRB) :: AMICCLK
!
!   MACHINE-DEPENDENT TIMING ROUTINE
!
!----------------------------------------------------------------------
! Author.
! -------
!    Ute Gaertel, Wolfgang Joppich, Anton Schueller   *GMD*
!
! Modifications.
! -------------
!    Original : 93-01-15
!    Modified : 93-03-15
!    Modified : 93-08-25
!      F. Vana  05-Mar-2015  Support for single precision
!----------------------------------------------------------------------
!
!------CM 5
!
!CM5  integer cmmd_node_timer_clear,cmmd_node_timer_start,
!CM5 *        cmmd_node_timer_stop,i,istat
!CM5  double precision time,cmmd_node_timer_elapsed
!CM5  data istat /0/
!CM5  save istat
!CM5
!CM5  if (istat.eq.0) then
!CM5    istat = 1
!CM5    i = cmmd_node_timer_clear(0)
!CM5    i = cmmd_node_timer_start(0)
!CM5  endif
!CM5    i = cmmd_node_timer_stop(0)
!CM5    time = cmmd_node_timer_elapsed(0)
!CM5    iusrcl = nint(time*1.0d3)
!CM5    i = cmmd_node_timer_start(0)
      REAL(KIND=JPRD),EXTERNAL :: UTIL_WALLTIME
      REAL(KIND=JPRD),EXTERNAL :: UTIL_CPUTIME
      iusrcl = 0
!
!------iPSC/2,  iPSC/860
!
!     IUSRCL = MCLOCK()
!
!------Parsytec GCel
!
!     IUSRCL = TIMENOWHIGH()
!
!------IBM RS 6000, Meiko, SGI
!
!CSB  IUSRCL = 1000 * SECOND()
!cli  IUSRCL = 10 * MCLOCK()
!     IUSRCL =      MCLOCK()
#if defined(SGI) || defined(VPP)
      iusrcl = 1000 * util_walltime()
!      IUSRCL = 1000 * util_cputime()
#endif
!
!
!------SUN
!
!3LI  IUSRCL = 1000
!
!
!------nCUBE/2
!
!     IUSRCL = INT (AMICCLK()/1000)
#ifdef CRAY
#ifndef T3D
!
!------Cray C90
!
      iusrcl = int( rtc()*4.186e-6_jprd )
#else
!------Cray T3D
!
      iusrcl = int( rtc()*6.667e-6_jprd )
!--      IUSRCL = 1000 * util_walltime()
#endif
#endif
!


      ENDFUNCTION iusrcl