Test cpuTime to verify operation
Nodes of different colours represent the following:
Solid arrows point from a procedure to one which it calls. Dashed arrows point from an interface to procedures which implement that interface. This could include the module procedures in a generic interface or the implementation in a submodule of an interface in a parent module.
Nodes of different colours represent the following:
Solid arrows point from a procedure to one which it calls. Dashed arrows point from an interface to procedures which implement that interface. This could include the module procedures in a generic interface or the implementation in a submodule of an interface in a parent module.
subroutine testCpuTime
!! Test cpuTime to verify operation
real(wp)::t0,t1
t0 = cpuTime()
call wait(0.1_wp)
t1 = cpuTime()
if( t1-t0>0.01_wp ) error stop "Failed cpuTime check"
end subroutine testCpuTime