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 |