rpl/lapack/lapack/zsytri2.f - diff

Return to zsytri2.f CVS log

Up to [local] / rpl / lapack / lapack

version 1.15, 2018/05/29 07:18:37	version 1.16, 2020/05/21 21:46:11
Line 62	Line 62
*> \param[in,out] A	*> \param[in,out] A
*> \verbatim	*> \verbatim
> A is COMPLEX16 array, dimension (LDA,N)	> A is COMPLEX16 array, dimension (LDA,N)
*> On entry, the NB diagonal matrix D and the multipliers	*> On entry, the block diagonal matrix D and the multipliers
*> used to obtain the factor U or L as computed by ZSYTRF.	*> used to obtain the factor U or L as computed by ZSYTRF.
*>	*>
*> On exit, if INFO = 0, the (symmetric) inverse of the original	*> On exit, if INFO = 0, the (symmetric) inverse of the original
Line 82	Line 82
*> \param[in] IPIV	*> \param[in] IPIV
*> \verbatim	*> \verbatim
*> IPIV is INTEGER array, dimension (N)	*> IPIV is INTEGER array, dimension (N)
*> Details of the interchanges and the NB structure of D	*> Details of the interchanges and the block structure of D
*> as determined by ZSYTRF.	*> as determined by ZSYTRF.
*> \endverbatim	*> \endverbatim
*>	*>
Line 163	Line 163
UPPER = LSAME( UPLO, 'U' )	UPPER = LSAME( UPLO, 'U' )
LQUERY = ( LWORK.EQ.-1 )	LQUERY = ( LWORK.EQ.-1 )
* Get blocksize	* Get blocksize
NBMAX = ILAENV( 1, 'ZSYTRF', UPLO, N, -1, -1, -1 )	NBMAX = ILAENV( 1, 'ZSYTRI2', UPLO, N, -1, -1, -1 )
IF ( NBMAX .GE. N ) THEN	IF ( NBMAX .GE. N ) THEN
MINSIZE = N	MINSIZE = N
ELSE	ELSE