get_contour_lines Subroutine

public subroutine get_contour_lines(config, x1, y1, x2, y2, x3, y3, x4, y4, z1, z2, z3, z4, level, line_points, num_lines)

Extract contour lines from a cell using marching squares

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	config
real(kind=wp),	intent(in)			::	x1
real(kind=wp),	intent(in)			::	y1
real(kind=wp),	intent(in)			::	x2
real(kind=wp),	intent(in)			::	y2
real(kind=wp),	intent(in)			::	x3
real(kind=wp),	intent(in)			::	y3
real(kind=wp),	intent(in)			::	x4
real(kind=wp),	intent(in)			::	y4
real(kind=wp),	intent(in)			::	z1
real(kind=wp),	intent(in)			::	z2
real(kind=wp),	intent(in)			::	z3
real(kind=wp),	intent(in)			::	z4
real(kind=wp),	intent(in)			::	level
real(kind=wp),	intent(out)			::	line_points(8)
integer,	intent(out)			::	num_lines