Go to the source code of this file.
|
INTERFACE SUBROUTINE | USER_CLOCK (PELAPSED_TIME, PELAPSED_TIME_SINCE, PVECTOR_CP, PTOTAL_CP) ! *****USER_CLOCK *- interface to system dependent timer routines ! Purpose. ! -------- ! Returns elapsed and CP from the start of execution. ! Elapsed time is made relative to the first call to USER_CLOCK. ! **Interface. ! ---------- ! ZTIME |
|
INTERFACE SUBROUTINE CPTIME ! Modifications JPIM IMPLICIT NONE | REAL (KIND=JPRD) |
|
|
INTERFACE SUBROUTINE CPTIME ! Modifications | ! Original |
|
INTERFACE SUBROUTINE CPTIME ! Modifications | ONLY |
|
◆ REAL()
INTERFACE SUBROUTINE CPTIME ! Modifications JPIM IMPLICIT NONE REAL |
( |
KIND |
= JPRD | ) |
|
◆ USER_CLOCK()
INTERFACE SUBROUTINE USER_CLOCK |
( |
PELAPSED_TIME |
, |
|
|
PELAPSED_TIME_SINCE |
, |
|
|
PVECTOR_CP |
, |
|
|
PTOTAL_CP |
|
|
) |
| |
◆ ! Original
INTERFACE SUBROUTINE CPTIME ! Modifications ! Original |
◆ ONLY
INTERFACE SUBROUTINE CPTIME ! Modifications ONLY |