ESMF_DLASQ4 Subroutine

subroutine ESMF_DLASQ4(I0, N0, Z, PP, N0IN, DMIN, DMIN1, DMIN2, DN, DN1, DN2, TAU, TTYPE, G)

\brief \b ESMF_DLASQ4 \htmlonly Download ESMF_DLASQ4 + dependencies [TGZ] [ZIP] [TXT] \endhtmlonly \par Purpose:

\verbatim

ESMF_DLASQ4 computes an approximation TAU to the smallest eigenvalue using values of d from the previous transform. \endverbatim \param[in] I0 \verbatim I0 is INTEGER First index. \endverbatim

\param[in] N0 \verbatim N0 is INTEGER Last index. \endverbatim

\param[in] Z \verbatim Z is DOUBLE PRECISION array, dimension ( 4*N ) Z holds the qd array. \endverbatim

\param[in] PP \verbatim PP is INTEGER PP=0 for ping, PP=1 for pong. \endverbatim

\param[in] N0IN \verbatim N0IN is INTEGER The value of N0 at start of EIGTEST. \endverbatim

\param[in] DMIN \verbatim DMIN is DOUBLE PRECISION Minimum value of d. \endverbatim

\param[in] DMIN1 \verbatim DMIN1 is DOUBLE PRECISION Minimum value of d, excluding D( N0 ). \endverbatim

\param[in] DMIN2 \verbatim DMIN2 is DOUBLE PRECISION Minimum value of d, excluding D( N0 ) and D( N0-1 ). \endverbatim

\param[in] DN \verbatim DN is DOUBLE PRECISION d(N) \endverbatim

\param[in] DN1 \verbatim DN1 is DOUBLE PRECISION d(N-1) \endverbatim

\param[in] DN2 \verbatim DN2 is DOUBLE PRECISION d(N-2) \endverbatim

\param[out] TAU \verbatim TAU is DOUBLE PRECISION This is the shift. \endverbatim

\param[out] TTYPE \verbatim TTYPE is INTEGER Shift type. \endverbatim

\param[in,out] G \verbatim G is REAL G is passed as an argument in order to save its value between calls to ESMF_DLASQ4. \endverbatim \author Univ. of Tennessee \author Univ. of California Berkeley \author Univ. of Colorado Denver \author NAG Ltd. \date November 2011 \ingroup auxOTHERcomputational \par Further Details:

\verbatim

CNST1 = 9/16 \endverbatim

Arguments

Type IntentOptional Attributes Name
integer :: I0
integer :: N0
double precision :: Z(*)
integer :: PP
integer :: N0IN
double precision :: DMIN
double precision :: DMIN1
double precision :: DMIN2
double precision :: DN
double precision :: DN1
double precision :: DN2
double precision :: TAU
integer :: TTYPE
double precision :: G