rpl/lapack/lapack/zhetri2x.f - diff

Return to zhetri2x.f CVS log

Up to [local] / rpl / lapack / lapack

version 1.10, 2017/06/17 11:06:49	version 1.11, 2018/05/29 06:55:23
Line 113	Line 113
*> \author Univ. of Colorado Denver	*> \author Univ. of Colorado Denver
*> \author NAG Ltd.	*> \author NAG Ltd.
*	*
*> \date December 2016	*> \date June 2017
*	*
*> \ingroup complex16HEcomputational	*> \ingroup complex16HEcomputational
*	*
* =====================================================================	* =====================================================================
SUBROUTINE ZHETRI2X( UPLO, N, A, LDA, IPIV, WORK, NB, INFO )	SUBROUTINE ZHETRI2X( UPLO, N, A, LDA, IPIV, WORK, NB, INFO )
*	*
* -- LAPACK computational routine (version 3.7.0) --	* -- LAPACK computational routine (version 3.7.1) --
* -- 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	* June 2017
*	*
* .. Scalar Arguments ..	* .. Scalar Arguments ..
CHARACTER UPLO	CHARACTER UPLO
Line 137	Line 137
* =====================================================================	* =====================================================================
*	*
* .. Parameters ..	* .. Parameters ..
REAL ONE	DOUBLE PRECISION ONE
COMPLEX*16 CONE, ZERO	COMPLEX*16 CONE, ZERO
PARAMETER ( ONE = 1.0D+0,	PARAMETER ( ONE = 1.0D+0,
$ CONE = ( 1.0D+0, 0.0D+0 ),	$ CONE = ( 1.0D+0, 0.0D+0 ),