catmull_rom_interpolate Subroutine

public pure subroutine catmull_rom_interpolate(t, x0, y0, x1, y1, x2, y2, x3, y3, px, py)

Catmull-Rom spline interpolation between P1 and P2 t in [0,1], P0/P3 are control points

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=wp),	intent(in)			::	t
real(kind=wp),	intent(in)			::	x0
real(kind=wp),	intent(in)			::	y0
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(out)			::	px
real(kind=wp),	intent(out)			::	py