pzderrscal()

subroutine pzderrscal	(	double precision	errbnd,
		double precision	pusclr,
		complex*16	x,
		double precision	prec
	)

Definition at line 3708 of file pzblas1tst.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 ..
      DOUBLE PRECISION   ERRBND, PREC, PUSCLR
      COMPLEX*16         X
*     ..
*
*  Purpose
*  =======
*
*  PZDERRSCAL  serially  computes  the  product PUSCLR * X and returns a
*  scaled relative acceptable error bound on the result.
*
*  Notes
*  =====
*
*  If s1 = PUSCLR*X and s2 are two different computed results, and s1 is
*  being assumed to be correct, we require
*
*        abs( s1 - s2 ) <= ERRBND = ERRFACT * abs( s1 ),
*
*  where ERRFACT is computed as two times the machine precision.
*
*  Arguments
*  =========
*
*  ERRBND  (global output) DOUBLE PRECISION
*          On exit, ERRBND  specifies the scaled relative acceptable er-
*          ror bound.
*
*  PUSCLR  (global input) DOUBLE PRECISION
*          On entry, PUSCLR specifies the real scale factor.
*
*  X       (global input/global output) COMPLEX*16
*          On entry, X  specifies the scalar to be scaled. On exit, X is
*          the scaled entry.
*
*  PREC    (global input) DOUBLE PRECISION
*          On entry, PREC specifies the machine precision.
*
*  -- Written on April 1, 1998 by
*     Antoine Petitet, University  of  Tennessee, Knoxville 37996, USA.
*
*  =====================================================================
*
*     .. Parameters ..
      DOUBLE PRECISION   TWO
      parameter( two = 2.0d+0 )
*     ..
*     .. Intrinsic Functions ..
      INTRINSIC          abs, dble, dcmplx, dimag
*     ..
*     .. Executable Statements ..
*
      x = dcmplx( pusclr * dble( x ), pusclr * dimag( x ) )
*
      errbnd = ( two * prec ) * abs( x )
*
      RETURN
*
*     End of PZDERRSCAL
*

Here is the caller graph for this function: