.TH "lasq3" 3 "Wed Feb 7 2024 11:30:40" "Version 3.12.0" "LAPACK" \" -*- nroff -*- .ad l .nh .SH NAME lasq3 \- lasq3: dqds step .SH SYNOPSIS .br .PP .SS "Functions" .in +1c .ti -1c .RI "subroutine \fBdlasq3\fP (i0, n0, z, pp, dmin, sigma, desig, qmax, nfail, iter, ndiv, ieee, ttype, dmin1, dmin2, dn, dn1, dn2, g, tau)" .br .RI "\fBDLASQ3\fP checks for deflation, computes a shift and calls dqds\&. Used by sbdsqr\&. " .ti -1c .RI "subroutine \fBslasq3\fP (i0, n0, z, pp, dmin, sigma, desig, qmax, nfail, iter, ndiv, ieee, ttype, dmin1, dmin2, dn, dn1, dn2, g, tau)" .br .RI "\fBSLASQ3\fP checks for deflation, computes a shift and calls dqds\&. Used by sbdsqr\&. " .in -1c .SH "Detailed Description" .PP .SH "Function Documentation" .PP .SS "subroutine dlasq3 (integer i0, integer n0, double precision, dimension( * ) z, integer pp, double precision dmin, double precision sigma, double precision desig, double precision qmax, integer nfail, integer iter, integer ndiv, logical ieee, integer ttype, double precision dmin1, double precision dmin2, double precision dn, double precision dn1, double precision dn2, double precision g, double precision tau)" .PP \fBDLASQ3\fP checks for deflation, computes a shift and calls dqds\&. Used by sbdsqr\&. .PP \fBPurpose:\fP .RS 4 .PP .nf 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\&. .fi .PP .RE .PP \fBParameters\fP .RS 4 \fII0\fP .PP .nf I0 is INTEGER First index\&. .fi .PP .br \fIN0\fP .PP .nf N0 is INTEGER Last index\&. .fi .PP .br \fIZ\fP .PP .nf Z is DOUBLE PRECISION array, dimension ( 4*N0 ) Z holds the qd array\&. .fi .PP .br \fIPP\fP .PP .nf PP is INTEGER 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\&. .fi .PP .br \fIDMIN\fP .PP .nf DMIN is DOUBLE PRECISION Minimum value of d\&. .fi .PP .br \fISIGMA\fP .PP .nf SIGMA is DOUBLE PRECISION Sum of shifts used in current segment\&. .fi .PP .br \fIDESIG\fP .PP .nf DESIG is DOUBLE PRECISION Lower order part of SIGMA .fi .PP .br \fIQMAX\fP .PP .nf QMAX is DOUBLE PRECISION Maximum value of q\&. .fi .PP .br \fINFAIL\fP .PP .nf NFAIL is INTEGER Increment NFAIL by 1 each time the shift was too big\&. .fi .PP .br \fIITER\fP .PP .nf ITER is INTEGER Increment ITER by 1 for each iteration\&. .fi .PP .br \fINDIV\fP .PP .nf NDIV is INTEGER Increment NDIV by 1 for each division\&. .fi .PP .br \fIIEEE\fP .PP .nf IEEE is LOGICAL Flag for IEEE or non IEEE arithmetic (passed to DLASQ5)\&. .fi .PP .br \fITTYPE\fP .PP .nf TTYPE is INTEGER Shift type\&. .fi .PP .br \fIDMIN1\fP .PP .nf DMIN1 is DOUBLE PRECISION .fi .PP .br \fIDMIN2\fP .PP .nf DMIN2 is DOUBLE PRECISION .fi .PP .br \fIDN\fP .PP .nf DN is DOUBLE PRECISION .fi .PP .br \fIDN1\fP .PP .nf DN1 is DOUBLE PRECISION .fi .PP .br \fIDN2\fP .PP .nf DN2 is DOUBLE PRECISION .fi .PP .br \fIG\fP .PP .nf G is DOUBLE PRECISION .fi .PP .br \fITAU\fP .PP .nf TAU is DOUBLE PRECISION These are passed as arguments in order to save their values between calls to DLASQ3\&. .fi .PP .RE .PP \fBAuthor\fP .RS 4 Univ\&. of Tennessee .PP Univ\&. of California Berkeley .PP Univ\&. of Colorado Denver .PP NAG Ltd\&. .RE .PP .SS "subroutine slasq3 (integer i0, integer n0, real, dimension( * ) z, integer pp, real dmin, real sigma, real desig, real qmax, integer nfail, integer iter, integer ndiv, logical ieee, integer ttype, real dmin1, real dmin2, real dn, real dn1, real dn2, real g, real tau)" .PP \fBSLASQ3\fP checks for deflation, computes a shift and calls dqds\&. Used by sbdsqr\&. .PP \fBPurpose:\fP .RS 4 .PP .nf SLASQ3 checks for deflation, computes a shift (TAU) and calls dqds\&. In case of failure it changes shifts, and tries again until output is positive\&. .fi .PP .RE .PP \fBParameters\fP .RS 4 \fII0\fP .PP .nf I0 is INTEGER First index\&. .fi .PP .br \fIN0\fP .PP .nf N0 is INTEGER Last index\&. .fi .PP .br \fIZ\fP .PP .nf Z is REAL array, dimension ( 4*N0 ) Z holds the qd array\&. .fi .PP .br \fIPP\fP .PP .nf PP is INTEGER 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\&. .fi .PP .br \fIDMIN\fP .PP .nf DMIN is REAL Minimum value of d\&. .fi .PP .br \fISIGMA\fP .PP .nf SIGMA is REAL Sum of shifts used in current segment\&. .fi .PP .br \fIDESIG\fP .PP .nf DESIG is REAL Lower order part of SIGMA .fi .PP .br \fIQMAX\fP .PP .nf QMAX is REAL Maximum value of q\&. .fi .PP .br \fINFAIL\fP .PP .nf NFAIL is INTEGER Increment NFAIL by 1 each time the shift was too big\&. .fi .PP .br \fIITER\fP .PP .nf ITER is INTEGER Increment ITER by 1 for each iteration\&. .fi .PP .br \fINDIV\fP .PP .nf NDIV is INTEGER Increment NDIV by 1 for each division\&. .fi .PP .br \fIIEEE\fP .PP .nf IEEE is LOGICAL Flag for IEEE or non IEEE arithmetic (passed to SLASQ5)\&. .fi .PP .br \fITTYPE\fP .PP .nf TTYPE is INTEGER Shift type\&. .fi .PP .br \fIDMIN1\fP .PP .nf DMIN1 is REAL .fi .PP .br \fIDMIN2\fP .PP .nf DMIN2 is REAL .fi .PP .br \fIDN\fP .PP .nf DN is REAL .fi .PP .br \fIDN1\fP .PP .nf DN1 is REAL .fi .PP .br \fIDN2\fP .PP .nf DN2 is REAL .fi .PP .br \fIG\fP .PP .nf G is REAL .fi .PP .br \fITAU\fP .PP .nf TAU is REAL These are passed as arguments in order to save their values between calls to SLASQ3\&. .fi .PP .RE .PP \fBAuthor\fP .RS 4 Univ\&. of Tennessee .PP Univ\&. of California Berkeley .PP Univ\&. of Colorado Denver .PP NAG Ltd\&. .RE .PP .SH "Author" .PP Generated automatically by Doxygen for LAPACK from the source code\&.