rpl/lapack/blas/dzasum.f - diff

Return to dzasum.f CVS log

Up to [local] / rpl / lapack / blas

version 1.16, 2018/05/29 07:19:42	version 1.17, 2023/08/07 08:38:44
Line 24	Line 24
*> \verbatim	*> \verbatim
*>	*>
*> DZASUM takes the sum of the (\|Re(.)\| + \|Im(.)\|)'s of a complex vector and	*> DZASUM takes the sum of the (\|Re(.)\| + \|Im(.)\|)'s of a complex vector and
*> returns a single precision result.	*> returns a double precision result.
*> \endverbatim	*> \endverbatim
*	*
* Arguments:	* Arguments:
Line 55	Line 55
*> \author Univ. of Colorado Denver	*> \author Univ. of Colorado Denver
*> \author NAG Ltd.	*> \author NAG Ltd.
*	*
*> \date November 2017
*
*> \ingroup double_blas_level1	*> \ingroup double_blas_level1
*	*
*> \par Further Details:	*> \par Further Details:
Line 72	Line 70
* =====================================================================	* =====================================================================
DOUBLE PRECISION FUNCTION DZASUM(N,ZX,INCX)	DOUBLE PRECISION FUNCTION DZASUM(N,ZX,INCX)
*	*
* -- Reference BLAS level1 routine (version 3.8.0) --	* -- Reference BLAS level1 routine --
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --	* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--	* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
* November 2017
*	*
* .. Scalar Arguments ..	* .. Scalar Arguments ..
INTEGER INCX,N	INTEGER INCX,N
Line 115	Line 112
END IF	END IF
DZASUM = STEMP	DZASUM = STEMP
RETURN	RETURN
	*
	* End of DZASUM
	*
END	END