pcerrasum()

subroutine pcerrasum	(	real	errbnd,
		integer	n,
		real	usclr,
		complex, dimension( * )	x,
		integer	incx,
		real	prec
	)

Definition at line 3558 of file pcblas1tst.f.

*
*  -- PBLAS test routine (version 2.0) --
*     University of Tennessee, Knoxville, Oak Ridge National Laboratory,
*     and University of California, Berkeley.
*     April 1, 1998
*
*     .. Scalar Arguments ..
      INTEGER            INCX, N
      REAL               ERRBND, PREC, USCLR
*     ..
*     .. Array Arguments ..
      COMPLEX            X( * )
*     ..
*
*  Purpose
*  =======
*
*  PCERRASUM  serially computes the sum of absolute values of the vector
*  X and returns a scaled relative acceptable error bound on the result.
*
*  Arguments
*  =========
*
*  ERRBND  (global output) REAL
*          On exit, ERRBND  specifies a scaled relative acceptable error
*          bound. In this case the error bound is just the absolute  sum
*          multiplied  by  a constant proportional to the machine preci-
*          sion.
*
*  N       (global input) INTEGER
*          On entry, N specifies the length of the vector operand.
*
*  USCLR   (global output) REAL
*          On exit, USCLR  specifies  the  sum of absolute values of the
*          vector X.
*
*  X       (global input) COMPLEX array
*          On   entry,   X   is   an   array   of   dimension  at  least
*          ( 1 + ( n - 1 )*abs( INCX ) ).  Before  entry,  the incremen-
*          ted array X must contain the vector x.
*
*  INCX    (global input) INTEGER.
*          On entry, INCX specifies the increment for the elements of X.
*          INCX must not be zero.
*
*  PREC    (global input) REAL
*          On entry, PREC specifies the machine precision.
*
*  -- Written on April 1, 1998 by
*     Antoine Petitet, University  of  Tennessee, Knoxville 37996, USA.
*
*  =====================================================================
*
*     .. Parameters ..
      REAL               TWO, ZERO
      parameter( two = 2.0e+0, zero = 0.0e+0 )
*     ..
*     .. Local Scalars ..
      INTEGER            IX
      REAL               ADDBND
*     ..
*     .. Intrinsic Functions ..
      INTRINSIC          abs, aimag, real
*     ..
*     .. Executable Statements ..
*
      ix = 1
      usclr = zero
      addbnd = two * two * two * prec
*
      DO 10 ix = 1, 1 + ( n - 1 )*incx, incx
         usclr = usclr + abs( real( x( ix ) ) ) +
     $                   abs( aimag( x( ix ) ) )
   10 CONTINUE
*
      errbnd = addbnd * usclr
*
      RETURN
*
*     End of PCERRASUM
*

Here is the caller graph for this function: