Verify operation of next
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 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