rpl/lapack/lapack/dorbdb.f - diff

Return to dorbdb.f CVS log

Up to [local] / rpl / lapack / lapack

version 1.10, 2014/01/27 09:28:24	version 1.11, 2015/11/26 11:44:18
Line 255	Line 255
*> \author Univ. of Colorado Denver	*> \author Univ. of Colorado Denver
*> \author NAG Ltd.	*> \author NAG Ltd.
*	*
*> \date November 2013	*> \date November 2015
*	*
*> \ingroup doubleOTHERcomputational	*> \ingroup doubleOTHERcomputational
*	*
Line 287	Line 287
$ X21, LDX21, X22, LDX22, THETA, PHI, TAUP1,	$ X21, LDX21, X22, LDX22, THETA, PHI, TAUP1,
$ TAUP2, TAUQ1, TAUQ2, WORK, LWORK, INFO )	$ TAUP2, TAUQ1, TAUQ2, WORK, LWORK, INFO )
*	*
* -- LAPACK computational routine (version 3.5.0) --	* -- LAPACK computational routine (version 3.6.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..--
* November 2013	* November 2015
*	*
* .. Scalar Arguments ..	* .. Scalar Arguments ..
CHARACTER SIGNS, TRANS	CHARACTER SIGNS, TRANS
Line 512	Line 512
END IF	END IF
X12(I,I) = ONE	X12(I,I) = ONE
*	*
IF ( P. GT. I ) THEN	IF ( P .GT. I ) THEN
CALL DLARF( 'R', P-I, M-Q-I+1, X12(I,I), LDX12, TAUQ2(I),	CALL DLARF( 'R', P-I, M-Q-I+1, X12(I,I), LDX12, TAUQ2(I),
$ X12(I+1,I), LDX12, WORK )	$ X12(I+1,I), LDX12, WORK )
END IF	END IF