rpl/lapack/lapack/zhbgst.f - diff

Return to zhbgst.f CVS log

Up to [local] / rpl / lapack / lapack

version 1.4, 2010/08/06 15:32:41	version 1.5, 2010/08/07 13:18:09
Line 1	Line 1
SUBROUTINE ZHBGST( VECT, UPLO, N, KA, KB, AB, LDAB, BB, LDBB, X,	SUBROUTINE ZHBGST( VECT, UPLO, N, KA, KB, AB, LDAB, BB, LDBB, X,
$ LDX, WORK, RWORK, INFO )	$ LDX, WORK, RWORK, INFO )
*	*
* -- LAPACK routine (version 3.2) --	* -- LAPACK routine (version 3.2.2) --
* -- 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 2006	* June 2010
*	*
* .. Scalar Arguments ..	* .. Scalar Arguments ..
CHARACTER UPLO, VECT	CHARACTER UPLO, VECT
Line 507	Line 507
230 CONTINUE	230 CONTINUE
*	*
IF( KB.GT.1 ) THEN	IF( KB.GT.1 ) THEN
DO 240 J = N - 1, I2 + KA, -1	DO 240 J = N - 1, J2 + KA, -1
RWORK( J-M ) = RWORK( J-KA-M )	RWORK( J-M ) = RWORK( J-KA-M )
WORK( J-M ) = WORK( J-KA-M )	WORK( J-M ) = WORK( J-KA-M )
240 CONTINUE	240 CONTINUE
Line 771	Line 771
460 CONTINUE	460 CONTINUE
*	*
IF( KB.GT.1 ) THEN	IF( KB.GT.1 ) THEN
DO 470 J = N - 1, I2 + KA, -1	DO 470 J = N - 1, J2 + KA, -1
RWORK( J-M ) = RWORK( J-KA-M )	RWORK( J-M ) = RWORK( J-KA-M )
WORK( J-M ) = WORK( J-KA-M )	WORK( J-M ) = WORK( J-KA-M )
470 CONTINUE	470 CONTINUE