quat_rand Subroutine

public subroutine quat_rand(q)

Returns a random unit quaternion.

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=rp),	intent(out),		dimension(4)	::	q	Unit quaternion.