|
version 1.17, 2017/06/17 10:53:57
|
version 1.21, 2023/08/07 08:38:59
|
|
Line 135
|
Line 135
|
| *> \author Univ. of Colorado Denver |
*> \author Univ. of Colorado Denver |
| *> \author NAG Ltd. |
*> \author NAG Ltd. |
| * |
* |
| *> \date June 2016 |
|
| * |
|
| *> \ingroup auxOTHERcomputational |
*> \ingroup auxOTHERcomputational |
| * |
* |
| *> \par Further Details: |
*> \par Further Details: |
|
Line 151
|
Line 149
|
| SUBROUTINE DLASQ4( I0, N0, Z, PP, N0IN, DMIN, DMIN1, DMIN2, DN, |
SUBROUTINE DLASQ4( I0, N0, Z, PP, N0IN, DMIN, DMIN1, DMIN2, DN, |
| $ DN1, DN2, TAU, TTYPE, G ) |
$ DN1, DN2, TAU, TTYPE, G ) |
| * |
* |
| * -- LAPACK computational routine (version 3.7.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..-- |
| * June 2016 |
|
| * |
* |
| * .. Scalar Arguments .. |
* .. Scalar Arguments .. |
| INTEGER I0, N0, N0IN, PP, TTYPE |
INTEGER I0, N0, N0IN, PP, TTYPE |
|
Line 240
|
Line 237
|
| NP = NN - 9 |
NP = NN - 9 |
| ELSE |
ELSE |
| NP = NN - 2*PP |
NP = NN - 2*PP |
| B2 = Z( NP-2 ) |
|
| GAM = DN1 |
GAM = DN1 |
| IF( Z( NP-4 ) .GT. Z( NP-2 ) ) |
IF( Z( NP-4 ) .GT. Z( NP-2 ) ) |
| $ RETURN |
$ RETURN |
![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to dlasq4.f CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [local] / rpl / lapack / lapack