cut_and_update_squares Subroutine

private subroutine cut_and_update_squares(ncut, nCub3, nmarked, imarked)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	ncut
integer,	intent(inout)			::	nCub3(3)
integer,	intent(inout)			::	nmarked
integer,	intent(inout),		allocatable	::	imarked(:)