Return the square of the norm of vector.
The square norm if defined as .
type(vector_R16P) :: pt
pt = ex_R16P + ey_R16P
print "(F3.1)", pt%sq_norm()
type(vector_R16P) :: pt
pt = ex_R16P + ey_R16P
print "(F3.1)", sq_norm_R16P(pt)
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(vector_R16P), | intent(in) | :: | self | Vector. |
Square of the Norm.