Next: CSHIFT, Previous: COUNT, Up: Intrinsic Procedures
CPU_TIME
— CPU elapsed time in secondsREAL
value representing the elapsed CPU time in seconds. This
is useful for testing segments of code to determine execution time.
CPU_TIME(X)
X | The type shall be REAL with INTENT(OUT) .
|
program test_cpu_time real :: start, finish call cpu_time(start) ! put code to test here call cpu_time(finish) print '("Time = ",f6.3," seconds.")',finish-start end program test_cpu_time