Index | Rundeck: P1SoM40 | Created: Thu May 9 03:30:17 EDT 2024 |
timer | Module: | File: MODEL_COM.f |
Author : Gary Russell
Version:
Declaration:
subroutine timer (now, msum)
- now :
real*8, intent(out)
- current CPU time (seconds)
- msum :
integer, intent(inout)
- index for running total
- inc :
real*8
- time since last call
- last :
real*8, save
- last CPU time
Initial Value= 0
- cmax :
real*8
- max.count before 0-reset