testIterate_prg Program

  1. testIterate.f90
  2. testIterate_prg
program~~testiterate_prg~~UsesGraph program~testiterate_prg testIterate_prg module~kinds_mod kinds_mod module~kinds_mod->program~testiterate_prg module~time_mod time_mod module~kinds_mod->module~time_mod module~text_mod text_mod module~kinds_mod->module~text_mod module~iterate_mod iterate_mod module~kinds_mod->module~iterate_mod module~time_mod->program~testiterate_prg module~time_mod->module~text_mod module~text_mod->program~testiterate_prg module~iterate_mod->program~testiterate_prg iso_c_binding iso_c_binding iso_c_binding->module~time_mod iso_fortran_env iso_fortran_env iso_fortran_env->module~text_mod
Help


Test program for iterate_mod

Calls

program~~testiterate_prg~~CallsGraph program~testiterate_prg testIterate_prg proc~testnext testNext program~testiterate_prg->proc~testnext proc~showprogress showProgress proc~testnext->proc~showprogress proc~newiterator newIterator proc~testnext->proc~newiterator proc~walltime wallTime proc~showprogress->proc~walltime proc~realtochar realToChar proc~showprogress->proc~realtochar proc~colormap colorMap proc~showprogress->proc~colormap proc~realtotime realToTime proc~showprogress->proc~realtotime proc~colorize colorize proc~showprogress->proc~colorize proc~inttochar intToChar proc~realtotime->proc~inttochar proc~colorize->proc~inttochar
Help

Subroutines

Source Code

testIterate_prg

Subroutines

subroutine testNext()

Verify operation of next

Arguments

None

Source Code

program testIterate_prg
	!! Test program for iterate_mod
	use kinds_mod
	use iterate_mod
	use text_mod
	use time_mod
	implicit none
	
	call testNext
	
contains

	subroutine testNext
		!! Verify operation of next
		type(iterator_t)::iter
		
		iter = newIterator([5,5],[0.0_wp,0.0_wp],[1.0_wp,1.0_wp])
		do while(.not.iter%isDone)
			call showProgress('Testing',iter%getProgress())
			call wait(0.02_wp)
			call iter%next()
		end do
	end subroutine testNext

end program testIterate_prg

All Programs