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