Normalize vector.
The normalization is made by means of norm L2. If the norm L2 of the vector is less than the parameter smallRPP the
normalization value is set to normL2 + smallRPP.
type(vector_R4P) :: pt
pt = ex_R4P + ey_R4P
call pt%normalize
print "(3(F4.2,1X))", abs(pt%x), abs(pt%y), abs(pt%z)
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(vector_R4P), | intent(inout) | :: | self | Vector. |