interpolate_edge_crossings Subroutine

public subroutine interpolate_edge_crossings(x1, y1, x2, y2, x3, y3, x4, y4, z1, z2, z3, z4, level, xa, ya, xb, yb, xc, yc, xd, yd)

Interpolate the positions where contour crosses cell edges

Arguments

Type	Intent	Optional	Attributes		Name
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)			::	xa
real(kind=wp),	intent(out)			::	ya
real(kind=wp),	intent(out)			::	xb
real(kind=wp),	intent(out)			::	yb
real(kind=wp),	intent(out)			::	xc
real(kind=wp),	intent(out)			::	yc
real(kind=wp),	intent(out)			::	xd
real(kind=wp),	intent(out)			::	yd