apply_marching_squares_lookup Subroutine

public subroutine apply_marching_squares_lookup(config, xa, ya, xb, yb, xc, yc, xd, yd, line_points, num_lines)

Apply marching squares lookup table to get line segments

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	config
real(kind=wp),	intent(in)			::	xa
real(kind=wp),	intent(in)			::	ya
real(kind=wp),	intent(in)			::	xb
real(kind=wp),	intent(in)			::	yb
real(kind=wp),	intent(in)			::	xc
real(kind=wp),	intent(in)			::	yc
real(kind=wp),	intent(in)			::	xd
real(kind=wp),	intent(in)			::	yd
real(kind=wp),	intent(out)			::	line_points(8)
integer,	intent(out)			::	num_lines