Go to the source code of this file.
|
subroutine | user_clock (PELAPSED_TIME, PELAPSED_TIME_SINCE, PVECTOR_CP, PTOTAL_CP) |
|
subroutine user_clock |
( |
real(kind=jprb), intent(out), optional |
PELAPSED_TIME, |
|
|
real(kind=jprb), intent(inout), optional |
PELAPSED_TIME_SINCE, |
|
|
real(kind=jprb), intent(out), optional |
PVECTOR_CP, |
|
|
real(kind=jprb), intent(out), optional |
PTOTAL_CP |
|
) |
| |