dlasq3.f (3) Linux Manual Page
dlasq3.f –
Synopsis
Functions/Subroutines
subroutine dlasq3 (I0, N0, Z, PP, DMIN, SIGMA, DESIG, QMAX, NFAIL, ITER, NDIV, IEEE, TTYPE, DMIN1, DMIN2, DN, DN1, DN2, G, TAU)DLASQ3 checks for deflation, computes a shift and calls dqds. Used by sbdsqr.
Function/Subroutine Documentation
subroutine dlasq3 (integerI0, integerN0, double precision, dimension( * )Z, integerPP, double precisionDMIN, double precisionSIGMA, double precisionDESIG, double precisionQMAX, integerNFAIL, integerITER, integerNDIV, logicalIEEE, integerTTYPE, double precisionDMIN1, double precisionDMIN2, double precisionDN, double precisionDN1, double precisionDN2, double precisionG, double precisionTAU)
DLASQ3 checks for deflation, computes a shift and calls dqds. Used by sbdsqr. Purpose:
DLASQ3 checks for deflation, computes a shift (TAU) and calls dqds.
In case of failure it changes shifts, and tries again until output
is positive.
Parameters:
- I0
I0 is INTEGER
N0
First index.N0 is INTEGER
Z
Last index.Z is DOUBLE PRECISION array, dimension ( 4*N )
PP
Z holds the qd array.PP is INTEGER
DMIN
PP=0 for ping, PP=1 for pong.
PP=2 indicates that flipping was applied to the Z array
and that the initial tests for deflation should not be
performed.DMIN is DOUBLE PRECISION
SIGMA
Minimum value of d.SIGMA is DOUBLE PRECISION
DESIG
Sum of shifts used in current segment.DESIG is DOUBLE PRECISION
QMAX
Lower order part of SIGMAQMAX is DOUBLE PRECISION
NFAIL
Maximum value of q.NFAIL is INTEGER
ITER
Number of times shift was too big.ITER is INTEGER
NDIV
Number of iterations.NDIV is INTEGER
IEEE
Number of divisions.IEEE is LOGICAL
TTYPE
Flag for IEEE or non IEEE arithmetic (passed to DLASQ5).TTYPE is INTEGER
DMIN1
Shift type.DMIN1 is DOUBLE PRECISION
DMIN2DMIN2 is DOUBLE PRECISION
DNDN is DOUBLE PRECISION
DN1DN1 is DOUBLE PRECISION
DN2DN2 is DOUBLE PRECISION
GG is DOUBLE PRECISION
TAUTAU is DOUBLE PRECISION
These are passed as arguments in order to save their values
between calls to DLASQ3.
Author:
- Univ. of Tennessee
Univ. of California Berkeley
Univ. of Colorado Denver
NAG Ltd.
Date:
- September 2012
Definition at line 181 of file dlasq3.f.
