rpl/lapack/lapack/dsbgvd.f - diff

Return to dsbgvd.f CVS log

Up to [local] / rpl / lapack / lapack

version 1.13, 2015/11/26 11:44:19	version 1.14, 2016/08/27 15:27:10
Line 214	Line 214
*> \author Univ. of Colorado Denver	*> \author Univ. of Colorado Denver
*> \author NAG Ltd.	*> \author NAG Ltd.
*	*
*> \date November 2015	*> \date June 2016
*	*
*> \ingroup doubleOTHEReigen	*> \ingroup doubleOTHEReigen
*	*
Line 227	Line 227
SUBROUTINE DSBGVD( JOBZ, UPLO, N, KA, KB, AB, LDAB, BB, LDBB, W,	SUBROUTINE DSBGVD( JOBZ, UPLO, N, KA, KB, AB, LDAB, BB, LDBB, W,
$ Z, LDZ, WORK, LWORK, IWORK, LIWORK, INFO )	$ Z, LDZ, WORK, LWORK, IWORK, LIWORK, INFO )
*	*
* -- LAPACK driver routine (version 3.6.0) --	* -- LAPACK driver routine (version 3.6.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 2015	* June 2016
*	*
* .. Scalar Arguments ..	* .. Scalar Arguments ..
CHARACTER JOBZ, UPLO	CHARACTER JOBZ, UPLO
Line 338	Line 338
INDWK2 = INDWRK + N*N	INDWK2 = INDWRK + N*N
LLWRK2 = LWORK - INDWK2 + 1	LLWRK2 = LWORK - INDWK2 + 1
CALL DSBGST( JOBZ, UPLO, N, KA, KB, AB, LDAB, BB, LDBB, Z, LDZ,	CALL DSBGST( JOBZ, UPLO, N, KA, KB, AB, LDAB, BB, LDBB, Z, LDZ,
$ WORK( INDWRK ), IINFO )	$ WORK, IINFO )
*	*
* Reduce to tridiagonal form.	* Reduce to tridiagonal form.
*	*