timef.F

Go to the documentation of this file.

#if defined ( VPP )
      FUNCTION timef()
      DATA ifirst/0/
      SAVE ifirst,zfirst
!
!   fujitsu special
!
      CALL gettod(ztimef)
      ztimef=ztimef/1000.0
!
      IF(ifirst.EQ.0) THEN
         ifirst=1
         zfirst=ztimef
         timef=0.0
      ELSE
         timef=(ztimef-zfirst)
      ENDIF
!
      RETURN
      ENDFUNCTION timef
#elif defined ( RS6K )
      REAL*8 FUNCTION timef()
      INTEGER*8 IRTC
      EXTERNAL irtc
      DATA ifirst/0/
      SAVE ifirst,zfirst
!
      ztimef=irtc()*1.0e-6
!
      IF(ifirst.EQ.0) THEN
         ifirst=1
         zfirst=ztimef
         timef=0.0
      ELSE
         timef=(ztimef-zfirst)
      ENDIF
!
      RETURN
      ENDFUNCTION timef
#elif defined ( _CRAYFTN )
      REAL*8 FUNCTION timef()
      INTEGER*8 I_TIME1,I_RATE
      REAL*8 ZTIMEF,ZFIRST
      DATA ifirst/0/
      SAVE ifirst,zfirst

C     THIS IS A REAL TIME CLOCK IN MILLISECONDS.
C     USAGE OF FORTRAN90 INTRINSIC FUNCTION.
      CALL system_clock (count=i_time1,count_rate=i_rate)
      ztimef=dfloat(i_time1)/dfloat(i_rate)

      IF(ifirst.EQ.0) THEN
         ifirst=1
         zfirst=ztimef
         timef=0.0
      ELSE
         timef=1000.0*(ztimef-zfirst)
      ENDIF

      RETURN
      ENDFUNCTION timef

#else
      FUNCTION timef()
      USE parkind1, ONLY : jpim, jprb
      IMPLICIT NONE
      REAL(KIND=JPRB)         :: TIMEF
      INTEGER(KIND=JPIM),SAVE :: IFIRST
      INTEGER(KIND=JPIM)      :: I_RATE, I_TIME1
      REAL(KIND=JPRB),SAVE    :: ZFIRST
      REAL(KIND=JPRB)         :: ZTIMEF
      DATA ifirst/0/
!RJ       save ifirst,zfirst
!
!     This is a real time clock in milliseconds.
!     Usage of Fortran90 intrinsic function.
      CALL system_clock (count=i_time1,count_rate=i_rate)
      ztimef=REAL(i_time1,kind=jprb)/REAL(i_rate,kind=jprb)

      IF(ifirst.EQ.0) THEN
         ifirst=1
         zfirst=ztimef
         timef=0.0
      ELSE
         timef=1000.0*(ztimef-zfirst)
      ENDIF

      RETURN
      ENDFUNCTION timef
#endif