rpl/lapack/lapack/zgetc2.f - diff

Return to zgetc2.f CVS log

Up to [local] / rpl / lapack / lapack

version 1.12, 2012/12/14 14:22:45	version 1.13, 2014/01/27 09:24:36
Line 98	Line 98
*> \author Univ. of Colorado Denver	*> \author Univ. of Colorado Denver
*> \author NAG Ltd.	*> \author NAG Ltd.
*	*
*> \date September 2012	*> \date November 2013
*	*
*> \ingroup complex16GEauxiliary	*> \ingroup complex16GEauxiliary
*	*
Line 111	Line 111
* =====================================================================	* =====================================================================
SUBROUTINE ZGETC2( N, A, LDA, IPIV, JPIV, INFO )	SUBROUTINE ZGETC2( N, A, LDA, IPIV, JPIV, INFO )
*	*
* -- LAPACK auxiliary routine (version 3.4.2) --	* -- LAPACK auxiliary routine (version 3.5.0) --
* -- 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..--
* September 2012	* November 2013
*	*
* .. Scalar Arguments ..	* .. Scalar Arguments ..
INTEGER INFO, LDA, N	INTEGER INFO, LDA, N
Line 203	Line 203
INFO = N	INFO = N
A( N, N ) = DCMPLX( SMIN, ZERO )	A( N, N ) = DCMPLX( SMIN, ZERO )
END IF	END IF
	*
	* Set last pivots to N
	*
	IPIV( N ) = N
	JPIV( N ) = N
	*
RETURN	RETURN
*	*
* End of ZGETC2	* End of ZGETC2