To obtain the CPU time, the elapsed (wall) time and the time spent waiting for I/O to complete since FMSINI was called. The CPU time includes the parent and all children.
CALL FMSTIM (TCPU, TWALL, TIO)
- TCPU = Real
CPU time in seconds used by the parent and all children since FMSINI was called.
- TWALL = Real
Elapsed (wall) time in seconds used since FMSINI was called.
- TIO = Real
Time spent waiting for I/O to complete, in seconds since FMSINI was called.
This subroutine returns the CPU, elapsed and I/O wait times since FMSINI was called.
You may use it to obtain and print timing information within your application.
To compute the time required by your routine FOO,
REAL*8 TCPU, TCPU1, TCPU2
REAL*8 TWALL, TWALL1, TWALL2
REAL*8 TIO, TIO1, TIO2
CALL FMSTIM (TCPU1, TWALL1, TIO1)
CALL FMSTIM (TCPU2, TWALL2, TIO2)
TCPU = TCPU2 - TCPU1
TWALL = TWALL2 - TWALL1
TIO = TIO2 - TIO1
PSPEED = TCPU/(TWALL - TIO)
PRINT *,'CPU time used by FOO........(Sec.)=', TCPU
PRINT *,'Wall time used by FOO........(Sec.)=', TWALL
PRINT *,'Time spent waiting for I/O...(Sec.)=', TIO
PRINT *,'Parallel speedup in FOO............=', PSPEED