====================================================================
dznrm2 examples
====================================================================

dznrm2 computes the complex norm of the input vector.
For each element it computes the sum
    a.i*conjugate(a.i)
for all i. Then it returns the square root of the final sum.

If the count or increment are negative, the result is 0.0


a:PRIMARR(COMPLEX(DFLOAT)):=_
  [[3.+4.*%i, -4.+5.*%i, 5.+6.*%i, 7.-8.*%i, -9.-2.*%i]] 

  [3. + 4. %i,- 4. + 5. %i,5. + 6. %i,7. - 8. %i,- 9. - 2. %i]

dznrm2(5,a,1)

  18.027756377319946

dznrm2(3,a,2)

  13.076696830622021

dznrm2(3,a,1)

  11.269427669584644

dznrm2(3,a,-1)

  0.

dznrm2(-3,a,-1)

  0.

dznrm2(1,a,1)

  5.

dznrm2(1,a,2)
  5.

====================================================================
Man Page Details
====================================================================

NAME
       DZNRM2 - BLAS level one, computes the Euclidean norm of a vector

SYNOPSIS
       DOUBLE PRECISION FUNCTION DZNRM2 ( n, x, incx )

           INTEGER                        n, incx

           DOUBLE COMPLEX                 x


DESCRIPTION
       DZNRM2  computes  the Euclidean (L2) norm of a double precision complex
       vector:

               DZNRM2 <-- ||x||
                               2

       where x is a double precision complex vector.


ARGUMENTS
       n       INTEGER (input)
               Number of elements in the operand vector.

       x       DOUBLE COMPLEX (input)
               Array of dimension (n-1) * |incx| + 1.
               Array x contains the operand vector.

       incx    INTEGER (input)
               Increment between elements of x.
               If incx = 0, the results will be unpredictable.

RETURN VALUES
       DZNRM2  DOUBLE PRECISION Result (Euclidean norm). (output)
               If n <= 0, DZNRM2 is set to 0d0.

NOTES
       When  working backward (incx < 0), DZNRM2 starts at the end of the vec-
       tor and moves backward, as follows:

               x(1-incx * (n-1)), x(1-incx * (n-2)), ..., x(1)

