snrm2 - Return the Euclidian norm of a vector.
REAL FUNCTION SNRM2(N, X, INCX) INTEGER N, INCX REAL X(*) REAL FUNCTION SNRM2_64(N, X, INCX) INTEGER*8 N, INCX REAL X(*) F95 INTERFACE REAL FUNCTION NRM2(N, X, INCX) INTEGER :: N, INCX REAL, DIMENSION(:) :: X REAL FUNCTION NRM2_64(N, X, INCX) INTEGER(8) :: N, INCX REAL, DIMENSION(:) :: X C INTERFACE #include <sunperf.h> float snrm2(int n, float *x, int incx); float snrm2_64(long n, float *x, long incx);
Oracle Solaris Studio Performance Library snrm2(3P) NAME snrm2 - Return the Euclidian norm of a vector. SYNOPSIS REAL FUNCTION SNRM2(N, X, INCX) INTEGER N, INCX REAL X(*) REAL FUNCTION SNRM2_64(N, X, INCX) INTEGER*8 N, INCX REAL X(*) F95 INTERFACE REAL FUNCTION NRM2(N, X, INCX) INTEGER :: N, INCX REAL, DIMENSION(:) :: X REAL FUNCTION NRM2_64(N, X, INCX) INTEGER(8) :: N, INCX REAL, DIMENSION(:) :: X C INTERFACE #include <sunperf.h> float snrm2(int n, float *x, int incx); float snrm2_64(long n, float *x, long incx); PURPOSE snrm2 Return the Euclidian norm of a vector x where x is an n-vector. ARGUMENTS N (input) On entry, N specifies the number of elements in the vector. N must be at least one for the subroutine to have any visible effect. Unchanged on exit. X (input) ( 1 + ( n - 1 )*abs( INCX ) ). On entry, the incremented array X must contain the vector x. Unchanged on exit. INCX (input) On entry, INCX specifies the increment for the elements of X. If INCX < 1 then SNRM2 returns 0. Unchanged on exit. 7 Nov 2015 snrm2(3P)