rpl/lapack/lapack/dlagv2.f - diff

Return to dlagv2.f CVS log

Up to [local] / rpl / lapack / lapack

version 1.8, 2010/12/21 13:53:29	version 1.9, 2011/07/22 07:38:06
Line 242	Line 242
CALL DLASV2( B( 1, 1 ), B( 1, 2 ), B( 2, 2 ), R, T, SNR,	CALL DLASV2( B( 1, 1 ), B( 1, 2 ), B( 2, 2 ), R, T, SNR,
$ CSR, SNL, CSL )	$ CSR, SNL, CSL )
*	*
* Form (A,B) := Q(A,B)Z' where Q is left rotation matrix and	* Form (A,B) := Q(A,B)Z**T where Q is left rotation matrix and
* Z is right rotation matrix computed from DLASV2	* Z is right rotation matrix computed from DLASV2
*	*
CALL DROT( 2, A( 1, 1 ), LDA, A( 2, 1 ), LDA, CSL, SNL )	CALL DROT( 2, A( 1, 1 ), LDA, A( 2, 1 ), LDA, CSL, SNL )