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