nrmliz Subroutine

public subroutine nrmliz(n, r, rn)

Normalizes vectors

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	n	number of vectors
real(kind=dp),	intent(in),		dimension(3,*)	::	r	Input vector
real(kind=dp),	intent(out),		dimension(3,*)	::	rn	Normalized vector