mark_cubes_FScross Subroutine

public subroutine mark_cubes_FScross(inc, lattice, cluster, tgmatrx, nCub3, nsteps, nverts, nedges, diag_ids, bounds, roottype, rooteps, nmarked, imarked)

Arguments

Type	Intent	Optional	Attributes		Name
type(inc_TYPE),	intent(in)			::	inc
type(lattice_TYPE),	intent(in)			::	lattice
type(cluster_TYPE),	intent(in)			::	cluster
type(tgmatrx_TYPE),	intent(in)			::	tgmatrx
integer,	intent(in)			::	nCub3(3)
integer,	intent(in)			::	nsteps
integer,	intent(in)			::	nverts
integer,	intent(in)			::	nedges
integer,	intent(in)			::	diag_ids(2,nedges)
double precision,	intent(in)			::	bounds(3,2)
integer,	intent(in)			::	roottype
double precision,	intent(in)			::	rooteps
integer,	intent(inout)			::	nmarked
integer,	intent(inout),		allocatable	::	imarked(:)