testTime_prg Program

  1. testTime.f90
  2. testTime_prg
program~~testtime_prg~~UsesGraph program~testtime_prg testTime_prg module~kinds_mod kinds_mod module~kinds_mod->program~testtime_prg module~time_mod time_mod module~kinds_mod->module~time_mod module~time_mod->program~testtime_prg iso_c_binding iso_c_binding iso_c_binding->module~time_mod
Help


Test program for time_mod

Calls

program~~testtime_prg~~CallsGraph program~testtime_prg testTime_prg proc~testwalltime testWallTime program~testtime_prg->proc~testwalltime proc~testcputime testCpuTime program~testtime_prg->proc~testcputime proc~walltime wallTime proc~testwalltime->proc~walltime proc~cputime cpuTime proc~testcputime->proc~cputime
Help

Subroutines

Source Code

testTime_prg

Subroutines

subroutine testCpuTime()

Test cpuTime to verify operation

Arguments

None

subroutine testWallTime()

Test wallTime to verify operation

Arguments

None

Source Code

program testTime_prg
	!! Test program for time_mod
	use kinds_mod
	use time_mod
	implicit none
	
	call testCpuTime
	call testWallTime
	
contains

	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 

	subroutine testWallTime
		!! Test wallTime to verify operation
		real(wp)::t0,t1
		
		t0 = wallTime()
		call wait(0.1_wp)
		t1 = wallTime()
		
		if( t1-t0<0.1_wp ) error stop "Failed wallTime check"
	end subroutine testWallTime 

end program testTime_prg

All Programs