mark_cubes_in_sphere Subroutine

subroutine mark_cubes_in_sphere(nverts, nCub3, bounds, kcenter, radius, nmarked, imarked)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	nverts
integer,	intent(in)			::	nCub3(3)
double precision,	intent(in)			::	bounds(3,2)
double precision,	intent(in)			::	kcenter(3)
double precision,	intent(in)			::	radius
integer,	intent(out)			::	nmarked
integer,	intent(out),		allocatable	::	imarked(:)