smooth_contour_chain Subroutine

public subroutine smooth_contour_chain(n_in, x_in, y_in, subdivisions, n_out, x_out, y_out)

Smooth a polyline using Catmull-Rom spline interpolation

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	n_in
real(kind=wp),	intent(in)			::	x_in(:)
real(kind=wp),	intent(in)			::	y_in(:)
integer,	intent(in)			::	subdivisions
integer,	intent(out)			::	n_out
real(kind=wp),	intent(out),		allocatable	::	x_out(:)
real(kind=wp),	intent(out),		allocatable	::	y_out(:)