Previous: slasr Up: ../lapack-s.html Next: slasv2

slassq

 NAME
      SLASSQ - return the values scl and smsq such that   ( scl**2
      )*smsq = x( 1 )**2 +...+ x( n )**2 + ( scale**2 )*sumsq,

 SYNOPSIS
      SUBROUTINE SLASSQ( N, X, INCX, SCALE, SUMSQ )

          INTEGER        INCX, N

          REAL           SCALE, SUMSQ

          REAL           X( * )

 PURPOSE
      SLASSQ  returns the values  scl  and  smsq  such that

      where  x( i ) = X( 1 + ( i - 1 )*INCX ). The value of  sumsq
      is assumed to be non-negative and  scl  returns the value

         scl = max( scale, abs( x( i ) ) ).

      scale and sumsq must be supplied in SCALE and SUMSQ and
      scl and smsq are overwritten on SCALE and SUMSQ respec-
      tively.

      The routine makes only one pass through the vector x.

 ARGUMENTS
      N       (input) INTEGER
              The number of elements to be used from the vector X.

      X       (input) REAL
              The vector for which a scaled sum of squares is com-
              puted.  x( i )  = X( 1 + ( i - 1 )*INCX ), 1 <= i <=
              n.

      INCX    (input) INTEGER
              The increment between successive values of the vec-
              tor X.  INCX > 0.

      SCALE   (input/output) REAL
              On entry, the value  scale  in the equation above.
              On exit, SCALE is overwritten with  scl , the scal-
              ing factor for the sum of squares.

      SUMSQ   (input/output) REAL
              On entry, the value  sumsq  in the equation above.
              On exit, SUMSQ is overwritten with  smsq , the basic
              sum of squares from which  scl  has been factored
              out.