7dbd17a5aa
Former-commit-id:133dc97f67[formerlya02aeb236c] [formerly9f19e3f712] [formerly133dc97f67[formerlya02aeb236c] [formerly9f19e3f712] [formerly06a8b51d6d[formerly9f19e3f712[formerly 64fa9254b946eae7e61bbc3f513b7c3696c4f54f]]]] Former-commit-id:06a8b51d6dFormer-commit-id:9bb8decbcf[formerly8e80217e59] [formerly377dcd10b9[formerly3360eb6c5f]] Former-commit-id:377dcd10b9Former-commit-id:e2ecdcfe33
44 lines
1.4 KiB
Fortran
44 lines
1.4 KiB
Fortran
C$PRAGMA C (GETCPU)
|
|
C =====================================================================
|
|
C pgm: URTIMR .. Get lapse and total CPU time
|
|
C
|
|
C use: CALL URTIMR(ITLAPS,ITTOT)
|
|
C
|
|
C out: ITLAPS ........ lapse CPU time in 0.01 seconds since last call
|
|
C out: to this routine - INT
|
|
C out: ITTOT ......... total CPU time in 0.01 seconds since the first
|
|
C out: call to this routine - INT
|
|
C =====================================================================
|
|
SUBROUTINE URTIMR(ITLAPS,ITTOT)
|
|
|
|
CC EXTERNAL GETCPU
|
|
INTEGER ITLAPS,ITTOT,ITBEG,ITLAS,ITXX
|
|
|
|
SAVE ITBEG,ITLAS
|
|
C
|
|
C ================================= RCS keyword statements ==========
|
|
CHARACTER*68 RCSKW1,RCSKW2
|
|
DATA RCSKW1,RCSKW2 / '
|
|
.$Source: /fs/hseb/ob72/wfo_rfc/precip_proc/source/gribit/src/RCS/urtimr.f,v $
|
|
. $', '
|
|
.$Id: urtimr.f,v 1.1 2006/05/03 13:44:00 gsood Exp $
|
|
. $' /
|
|
C ===================================================================
|
|
C
|
|
|
|
DATA ITBEG / -1 /
|
|
|
|
CALL GETCPU(ITXX)
|
|
ITXX = ITXX/10
|
|
|
|
IF (ITBEG .LT. 0) THEN
|
|
ITBEG = ITXX
|
|
ITLAS = ITXX
|
|
ENDIF
|
|
|
|
ITLAPS = ITXX-ITLAS
|
|
ITTOT = ITXX-ITBEG
|
|
ITLAS = ITXX
|
|
|
|
RETURN
|
|
END
|