rpl/lapack/lapack/dla_wwaddw.f - diff

Return to dla_wwaddw.f CVS log

Up to [local] / rpl / lapack / lapack

version 1.12, 2017/06/17 10:53:52	version 1.16, 2023/08/07 08:38:52
Line 36	Line 36
*> DLA_WWADDW adds a vector W into a doubled-single vector (X, Y).	*> DLA_WWADDW adds a vector W into a doubled-single vector (X, Y).
*>	*>
*> This works for all extant IBM's hex and binary floating point	*> This works for all extant IBM's hex and binary floating point
*> arithmetics, but not for decimal.	*> arithmetic, but not for decimal.
*> \endverbatim	*> \endverbatim
*	*
* Arguments:	* Arguments:
Line 74	Line 74
*> \author Univ. of Colorado Denver	*> \author Univ. of Colorado Denver
*> \author NAG Ltd.	*> \author NAG Ltd.
*	*
*> \date December 2016
*
*> \ingroup doubleOTHERcomputational	*> \ingroup doubleOTHERcomputational
*	*
* =====================================================================	* =====================================================================
SUBROUTINE DLA_WWADDW( N, X, Y, W )	SUBROUTINE DLA_WWADDW( N, X, Y, W )
*	*
* -- LAPACK computational routine (version 3.7.0) --	* -- LAPACK computational routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --	* -- LAPACK 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..--
* December 2016
*	*
* .. Scalar Arguments ..	* .. Scalar Arguments ..
INTEGER N	INTEGER N
Line 108	Line 105
X(I) = S	X(I) = S
10 CONTINUE	10 CONTINUE
RETURN	RETURN
	*
	* End of DLA_WWADDW
	*
END	END