Go to the source code of this file.
|
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 |
|
SUBROUTINE CPTIME!Modifications JPRB IMPLICIT NONE | REAL (KIND=JPRB) |
|
|
SUBROUTINE CPTIME!Modifications | !Original |
|
SUBROUTINE CPTIME!Modifications | ONLY |
|
SUBROUTINE CPTIME ! Modifications JPRB IMPLICIT NONE REAL |
( |
KIND |
= JPRB | ) |
|
SUBROUTINE USER_CLOCK |
( |
PELAPSED_TIME |
, |
|
|
PELAPSED_TIME_SINCE |
, |
|
|
PVECTOR_CP |
, |
|
|
PTOTAL_CP |
|
|
) |
| |
SUBROUTINE CPTIME ! Modifications !Original |
SUBROUTINE CPTIME ! Modifications ONLY |