|
version 1.20, 2020/05/21 21:46:03
|
version 1.21, 2023/08/07 08:39:14
|
|
Line 100
|
Line 100
|
| *> IPARMQ(ISPEC=16)=1 may be more efficient than |
*> IPARMQ(ISPEC=16)=1 may be more efficient than |
| *> IPARMQ(ISPEC=16)=2 despite the greater level of |
*> IPARMQ(ISPEC=16)=2 despite the greater level of |
| *> arithmetic work implied by the latter choice.) |
*> arithmetic work implied by the latter choice.) |
| |
*> |
| |
*> ISPEC=17: (ICOST) An estimate of the relative cost of flops |
| |
*> within the near-the-diagonal shift chase compared |
| |
*> to flops within the BLAS calls of a QZ sweep. |
| *> \endverbatim |
*> \endverbatim |
| *> |
*> |
| *> \param[in] NAME |
*> \param[in] NAME |
|
Line 147
|
Line 151
|
| *> \author Univ. of Colorado Denver |
*> \author Univ. of Colorado Denver |
| *> \author NAG Ltd. |
*> \author NAG Ltd. |
| * |
* |
| *> \date June 2017 |
|
| * |
|
| *> \ingroup OTHERauxiliary |
*> \ingroup OTHERauxiliary |
| * |
* |
| *> \par Further Details: |
*> \par Further Details: |
|
Line 217
|
Line 219
|
| *> IPARMQ(ISPEC=16) Select structured matrix multiply. |
*> IPARMQ(ISPEC=16) Select structured matrix multiply. |
| *> (See ISPEC=16 above for details.) |
*> (See ISPEC=16 above for details.) |
| *> Default: 3. |
*> Default: 3. |
| |
*> |
| |
*> IPARMQ(ISPEC=17) Relative cost heuristic for blocksize selection. |
| |
*> Expressed as a percentage. |
| |
*> Default: 10. |
| *> \endverbatim |
*> \endverbatim |
| *> |
*> |
| * ===================================================================== |
* ===================================================================== |
| INTEGER FUNCTION IPARMQ( ISPEC, NAME, OPTS, N, ILO, IHI, LWORK ) |
INTEGER FUNCTION IPARMQ( ISPEC, NAME, OPTS, N, ILO, IHI, LWORK ) |
| * |
* |
| * -- LAPACK auxiliary routine (version 3.7.1) -- |
* -- 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 2017 |
|
| * |
* |
| * .. Scalar Arguments .. |
* .. Scalar Arguments .. |
| INTEGER IHI, ILO, ISPEC, LWORK, N |
INTEGER IHI, ILO, ISPEC, LWORK, N |
|
Line 233
|
Line 238
|
| * |
* |
| * ================================================================ |
* ================================================================ |
| * .. Parameters .. |
* .. Parameters .. |
| INTEGER INMIN, INWIN, INIBL, ISHFTS, IACC22 |
INTEGER INMIN, INWIN, INIBL, ISHFTS, IACC22, ICOST |
| PARAMETER ( INMIN = 12, INWIN = 13, INIBL = 14, |
PARAMETER ( INMIN = 12, INWIN = 13, INIBL = 14, |
| $ ISHFTS = 15, IACC22 = 16 ) |
$ ISHFTS = 15, IACC22 = 16, ICOST = 17 ) |
| INTEGER NMIN, K22MIN, KACMIN, NIBBLE, KNWSWP |
INTEGER NMIN, K22MIN, KACMIN, NIBBLE, KNWSWP, RCOST |
| PARAMETER ( NMIN = 75, K22MIN = 14, KACMIN = 14, |
PARAMETER ( NMIN = 75, K22MIN = 14, KACMIN = 14, |
| $ NIBBLE = 14, KNWSWP = 500 ) |
$ NIBBLE = 14, KNWSWP = 500, RCOST = 10 ) |
| REAL TWO |
REAL TWO |
| PARAMETER ( TWO = 2.0 ) |
PARAMETER ( TWO = 2.0 ) |
| * .. |
* .. |
|
Line 384
|
Line 389
|
| $ IPARMQ = 2 |
$ IPARMQ = 2 |
| END IF |
END IF |
| * |
* |
| |
ELSE IF( ISPEC.EQ.ICOST ) THEN |
| |
* |
| |
* === Relative cost of near-the-diagonal chase vs |
| |
* BLAS updates === |
| |
* |
| |
IPARMQ = RCOST |
| ELSE |
ELSE |
| * ===== invalid value of ispec ===== |
* ===== invalid value of ispec ===== |
| IPARMQ = -1 |
IPARMQ = -1 |
![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to iparmq.f CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [local] / rpl / lapack / lapack