rpl/lapack/lapack/ztrevc3.f - diff

Return to ztrevc3.f CVS log

Up to [local] / rpl / lapack / lapack

Diff for /rpl/lapack/lapack/ztrevc3.f between versions 1.6 and 1.7

version 1.6, 2018/05/29 07:18:40	version 1.7, 2023/08/07 08:39:42
Line 222	Line 222
*> \author Univ. of Colorado Denver	*> \author Univ. of Colorado Denver
*> \author NAG Ltd.	*> \author NAG Ltd.
*	*
*> \date November 2017
*
* @precisions fortran z -> c
*
*> \ingroup complex16OTHERcomputational	*> \ingroup complex16OTHERcomputational
*	*
*> \par Further Details:	*> \par Further Details:
Line 247	Line 243
$ LDVR, MM, M, WORK, LWORK, RWORK, LRWORK, INFO)	$ LDVR, MM, M, WORK, LWORK, RWORK, LRWORK, INFO)
IMPLICIT NONE	IMPLICIT NONE
*	*
* -- LAPACK computational routine (version 3.8.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..--
* November 2017
*	*
* .. Scalar Arguments ..	* .. Scalar Arguments ..
CHARACTER HOWMNY, SIDE	CHARACTER HOWMNY, SIDE
Line 291	Line 286
$ ZGEMM, DLABAD, ZLASET, ZLACPY	$ ZGEMM, DLABAD, ZLASET, ZLACPY
* ..	* ..
* .. Intrinsic Functions ..	* .. Intrinsic Functions ..
INTRINSIC ABS, DBLE, DCMPLX, CONJG, AIMAG, MAX	INTRINSIC ABS, DBLE, DCMPLX, CONJG, DIMAG, MAX
* ..	* ..
* .. Statement Functions ..	* .. Statement Functions ..
DOUBLE PRECISION CABS1	DOUBLE PRECISION CABS1
* ..	* ..
* .. Statement Function definitions ..	* .. Statement Function definitions ..
CABS1( CDUM ) = ABS( DBLE( CDUM ) ) + ABS( AIMAG( CDUM ) )	CABS1( CDUM ) = ABS( DBLE( CDUM ) ) + ABS( DIMAG( CDUM ) )
* ..	* ..
* .. Executable Statements ..	* .. Executable Statements ..
*	*

CVSweb interface <joel.bertrand@systella.fr>

Removed from v.1.6
changed lines
	Added in v.1.7