|
version 1.3, 2018/05/29 07:18:12
|
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 |
![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to iparam2stage.F CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [local] / rpl / lapack / lapack