version 1.1, 2017/06/17 11:02:52
|
version 1.4, 2023/08/07 08:39:14
|
Line 35
|
Line 35
|
*> \verbatim |
*> \verbatim |
*> |
*> |
*> This program sets problem and machine dependent parameters |
*> This program sets problem and machine dependent parameters |
*> useful for xHETRD_2STAGE, xHETRD_H@2HB, xHETRD_HB2ST, |
*> useful for xHETRD_2STAGE, xHETRD_HE2HB, xHETRD_HB2ST, |
*> xGEBRD_2STAGE, xGEBRD_GE2GB, xGEBRD_GB2BD |
*> xGEBRD_2STAGE, xGEBRD_GE2GB, xGEBRD_GB2BD |
*> and related subroutines for eigenvalue problems. |
*> and related subroutines for eigenvalue problems. |
*> It is called whenever ILAENV is called with 17 <= ISPEC <= 21 |
*> It is called whenever ILAENV is called with 17 <= ISPEC <= 21. |
|
*> It is called whenever ILAENV2STAGE is called with 1 <= ISPEC <= 5 |
|
*> with a direct conversion ISPEC + 16. |
*> \endverbatim |
*> \endverbatim |
* |
* |
* Arguments: |
* Arguments: |
Line 51
|
Line 53
|
*> return. |
*> return. |
*> |
*> |
*> ISPEC=17: the optimal blocksize nb for the reduction to |
*> ISPEC=17: the optimal blocksize nb for the reduction to |
* BAND |
*> BAND |
*> |
*> |
*> ISPEC=18: the optimal blocksize ib for the eigenvectors |
*> ISPEC=18: the optimal blocksize ib for the eigenvectors |
*> singular vectors update routine |
*> singular vectors update routine |
Line 88
|
Line 90
|
*> \param[in] NBI |
*> \param[in] NBI |
*> \verbatim |
*> \verbatim |
*> NBI is INTEGER which is the used in the reduciton, |
*> NBI is INTEGER which is the used in the reduciton, |
* (e.g., the size of the band), needed to compute workspace |
*> (e.g., the size of the band), needed to compute workspace |
* and LHOUS2. |
*> and LHOUS2. |
*> \endverbatim |
*> \endverbatim |
*> |
*> |
*> \param[in] IBI |
*> \param[in] IBI |
*> \verbatim |
*> \verbatim |
*> IBI is INTEGER which represent the IB of the reduciton, |
*> IBI is INTEGER which represent the IB of the reduciton, |
* needed to compute workspace and LHOUS2. |
*> needed to compute workspace and LHOUS2. |
*> \endverbatim |
*> \endverbatim |
*> |
*> |
*> \param[in] NXI |
*> \param[in] NXI |
Line 111
|
Line 113
|
*> \author Univ. of Colorado Denver |
*> \author Univ. of Colorado Denver |
*> \author NAG Ltd. |
*> \author NAG Ltd. |
* |
* |
*> \date June 2016 |
|
* |
|
*> \ingroup auxOTHERauxiliary |
*> \ingroup auxOTHERauxiliary |
* |
* |
*> \par Further Details: |
*> \par Further Details: |
Line 157
|
Line 157
|
#endif |
#endif |
IMPLICIT NONE |
IMPLICIT NONE |
* |
* |
* -- LAPACK auxiliary routine (version 3.7.0) -- |
* -- LAPACK auxiliary 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..-- |
* June 2016 |
|
* |
* |
* .. Scalar Arguments .. |
* .. Scalar Arguments .. |
CHARACTER*( * ) NAME, OPTS |
CHARACTER*( * ) NAME, OPTS |
Line 172
|
Line 171
|
INTEGER I, IC, IZ, KD, IB, LHOUS, LWORK, NTHREADS, |
INTEGER I, IC, IZ, KD, IB, LHOUS, LWORK, NTHREADS, |
$ FACTOPTNB, QROPTNB, LQOPTNB |
$ FACTOPTNB, QROPTNB, LQOPTNB |
LOGICAL RPREC, CPREC |
LOGICAL RPREC, CPREC |
CHARACTER PREC*1, ALGO*3, STAG*5, SUBNAM*12, VECT*3 |
CHARACTER PREC*1, ALGO*3, STAG*5, SUBNAM*12, VECT*1 |
* .. |
* .. |
* .. Intrinsic Functions .. |
* .. Intrinsic Functions .. |
INTRINSIC CHAR, ICHAR, MAX |
INTRINSIC CHAR, ICHAR, MAX |