Next: NOT, Previous: NINT, Up: Intrinsic Procedures
NORM2
— Euclidean vector normsRESULT = NORM2(ARRAY[, DIM])
|
ARRAY | Shall be an array of type REAL
|
DIM | (Optional) shall be a scalar of type
INTEGER with a value in the range from 1 to n, where n
equals the rank of ARRAY.
|
If DIM is absent, a scalar with the square root of the sum of all
elements in ARRAY squared is returned. Otherwise, an array of
rank n-1, where n equals the rank of ARRAY, and a
shape similar to that of ARRAY with dimension DIM dropped
is returned.
PROGRAM test_sum REAL :: x(5) = [ real :: 1, 2, 3, 4, 5 ] print *, NORM2(x) ! = sqrt(55.) ~ 7.416 END PROGRAM