rpl/lapack/lapack/zlagtm.f - diff

Return to zlagtm.f CVS log

Up to [local] / rpl / lapack / lapack

version 1.7, 2010/12/21 13:53:49	version 1.8, 2011/07/22 07:38:17
Line 1	Line 1
SUBROUTINE ZLAGTM( TRANS, N, NRHS, ALPHA, DL, D, DU, X, LDX, BETA,	SUBROUTINE ZLAGTM( TRANS, N, NRHS, ALPHA, DL, D, DU, X, LDX, BETA,
$ B, LDB )	$ B, LDB )
*	*
* -- LAPACK auxiliary routine (version 3.2) --	* -- LAPACK auxiliary routine (version 3.3.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..--
* November 2006	* -- April 2011 --
*	*
* .. Scalar Arguments ..	* .. Scalar Arguments ..
CHARACTER TRANS	CHARACTER TRANS
Line 189	Line 189
120 CONTINUE	120 CONTINUE
ELSE IF( LSAME( TRANS, 'T' ) ) THEN	ELSE IF( LSAME( TRANS, 'T' ) ) THEN
*	*
* Compute B := B - A'*X	* Compute B := B - A*T X
*	*
DO 140 J = 1, NRHS	DO 140 J = 1, NRHS
IF( N.EQ.1 ) THEN	IF( N.EQ.1 ) THEN
Line 207	Line 207
140 CONTINUE	140 CONTINUE
ELSE IF( LSAME( TRANS, 'C' ) ) THEN	ELSE IF( LSAME( TRANS, 'C' ) ) THEN
*	*
* Compute B := B - A'*X	* Compute B := B - A*H X
*	*
DO 160 J = 1, NRHS	DO 160 J = 1, NRHS
IF( N.EQ.1 ) THEN	IF( N.EQ.1 ) THEN