rpl/lapack/blas/dscal.f - diff

Return to dscal.f CVS log

Up to [local] / rpl / lapack / blas

Diff for /rpl/lapack/blas/dscal.f between versions 1.15 and 1.16

version 1.15, 2018/05/29 07:19:41	version 1.16, 2023/08/07 08:38:43
Line 62	Line 62
*> \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 79	Line 77
* =====================================================================	* =====================================================================
SUBROUTINE DSCAL(N,DA,DX,INCX)	SUBROUTINE DSCAL(N,DA,DX,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 ..
DOUBLE PRECISION DA	DOUBLE PRECISION DA
Line 96	Line 93
*	*
* .. Local Scalars ..	* .. Local Scalars ..
INTEGER I,M,MP1,NINCX	INTEGER I,M,MP1,NINCX
	* .. Parameters ..
	DOUBLE PRECISION ONE
	PARAMETER (ONE=1.0D+0)
* ..	* ..
* .. Intrinsic Functions ..	* .. Intrinsic Functions ..
INTRINSIC MOD	INTRINSIC MOD
* ..	* ..
IF (N.LE.0 .OR. INCX.LE.0) RETURN	IF (N.LE.0 .OR. INCX.LE.0 .OR. DA.EQ.ONE) RETURN
IF (INCX.EQ.1) THEN	IF (INCX.EQ.1) THEN
*	*
* code for increment equal to 1	* code for increment equal to 1
Line 133	Line 133
END DO	END DO
END IF	END IF
RETURN	RETURN
	*
	* End of DSCAL
	*
END	END

CVSweb interface <joel.bertrand@systella.fr>

Removed from v.1.15
changed lines
	Added in v.1.16