rpl/lapack/lapack/zgetrs.f - diff

Return to zgetrs.f CVS log

Up to [local] / rpl / lapack / lapack

version 1.7, 2010/12/21 13:53:44	version 1.8, 2011/07/22 07:38:14
Line 1	Line 1
SUBROUTINE ZGETRS( TRANS, N, NRHS, A, LDA, IPIV, B, LDB, INFO )	SUBROUTINE ZGETRS( TRANS, N, NRHS, A, LDA, IPIV, B, LDB, INFO )
*	*
* -- LAPACK routine (version 3.2) --	* -- LAPACK 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 128	Line 128
*	*
* Solve A*T X = B or A*H X = B.	* Solve A*T X = B or A*H X = B.
*	*
* Solve U'*X = B, overwriting B with X.	* Solve U*T X = B or U*H X = B, overwriting B with X.
*	*
CALL ZTRSM( 'Left', 'Upper', TRANS, 'Non-unit', N, NRHS, ONE,	CALL ZTRSM( 'Left', 'Upper', TRANS, 'Non-unit', N, NRHS, ONE,
$ A, LDA, B, LDB )	$ A, LDA, B, LDB )
*	*
* Solve L'*X = B, overwriting B with X.	* Solve L*T X = B, or L*H X = B overwriting B with X.
*	*
CALL ZTRSM( 'Left', 'Lower', TRANS, 'Unit', N, NRHS, ONE, A,	CALL ZTRSM( 'Left', 'Lower', TRANS, 'Unit', N, NRHS, ONE, A,
$ LDA, B, LDB )	$ LDA, B, LDB )