version 1.3, 2018/05/29 06:55:21
|
version 1.6, 2023/08/07 08:39:10
|
Line 123
|
Line 123
|
*> |
*> |
*> \param[out] HOUS2 |
*> \param[out] HOUS2 |
*> \verbatim |
*> \verbatim |
*> HOUS2 is DOUBLE PRECISION array, dimension LHOUS2, that |
*> HOUS2 is DOUBLE PRECISION array, dimension (LHOUS2) |
*> store the Householder representation of the stage2 |
*> Stores the Householder representation of the stage2 |
*> band to tridiagonal. |
*> band to tridiagonal. |
*> \endverbatim |
*> \endverbatim |
*> |
*> |
*> \param[in] LHOUS2 |
*> \param[in] LHOUS2 |
*> \verbatim |
*> \verbatim |
*> LHOUS2 is INTEGER |
*> LHOUS2 is INTEGER |
*> The dimension of the array HOUS2. LHOUS2 = MAX(1, dimension) |
*> The dimension of the array HOUS2. |
*> If LWORK = -1, or LHOUS2=-1, |
*> If LWORK = -1, or LHOUS2 = -1, |
*> then a query is assumed; the routine |
*> then a query is assumed; the routine |
*> only calculates the optimal size of the HOUS2 array, returns |
*> only calculates the optimal size of the HOUS2 array, returns |
*> this value as the first entry of the HOUS2 array, and no error |
*> this value as the first entry of the HOUS2 array, and no error |
*> message related to LHOUS2 is issued by XERBLA. |
*> message related to LHOUS2 is issued by XERBLA. |
*> LHOUS2 = MAX(1, dimension) where |
*> If VECT='N', LHOUS2 = max(1, 4*n); |
*> dimension = 4*N if VECT='N' |
*> if VECT='V', option not yet available. |
*> not available now if VECT='H' |
|
*> \endverbatim |
*> \endverbatim |
*> |
*> |
*> \param[out] WORK |
*> \param[out] WORK |
Line 183
|
Line 182
|
*> \author Univ. of Colorado Denver |
*> \author Univ. of Colorado Denver |
*> \author NAG Ltd. |
*> \author NAG Ltd. |
* |
* |
*> \date November 2017 |
|
* |
|
*> \ingroup doubleSYcomputational |
*> \ingroup doubleSYcomputational |
* |
* |
*> \par Further Details: |
*> \par Further Details: |
Line 227
|
Line 224
|
* |
* |
IMPLICIT NONE |
IMPLICIT NONE |
* |
* |
* -- LAPACK computational routine (version 3.8.0) -- |
* -- LAPACK computational routine -- |
* -- 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 2017 |
|
* |
* |
* .. Scalar Arguments .. |
* .. Scalar Arguments .. |
CHARACTER VECT, UPLO |
CHARACTER VECT, UPLO |