quiver_arrow_vertices Subroutine

public subroutine quiver_arrow_vertices(length, angle, width, headwidth, headlength, pivot, x, y)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=wp),	intent(in)			::	length
real(kind=wp),	intent(in)			::	angle
real(kind=wp),	intent(in)			::	width
real(kind=wp),	intent(in)			::	headwidth
real(kind=wp),	intent(in)			::	headlength
character(len=*),	intent(in)			::	pivot
real(kind=wp),	intent(out)			::	x(8)
real(kind=wp),	intent(out)			::	y(8)