unitize Subroutine

public subroutine unitize(a)

Normalizes a vector in-place. If the magnitude of the vector is nearly zero, no normalization takes place and the vector is returned as is with a warning message.

Arguments

Type IntentOptional Attributes Name
real(kind=rp), intent(inout), dimension(:) :: a

(m,) array