LAPACK  3.4.2
LAPACK: Linear Algebra PACKage
 All Files Functions Groups
slaqr1.f File Reference

Go to the source code of this file.

Functions/Subroutines

subroutine slaqr1 (N, H, LDH, SR1, SI1, SR2, SI2, V)
 SLAQR1 sets a scalar multiple of the first column of the product of 2-by-2 or 3-by-3 matrix H and specified shifts.

Function/Subroutine Documentation

subroutine slaqr1 ( integer  N,
real, dimension( ldh, * )  H,
integer  LDH,
real  SR1,
real  SI1,
real  SR2,
real  SI2,
real, dimension( * )  V 
)

SLAQR1 sets a scalar multiple of the first column of the product of 2-by-2 or 3-by-3 matrix H and specified shifts.

Download SLAQR1 + dependencies [TGZ] [ZIP] [TXT]
Purpose:
      Given a 2-by-2 or 3-by-3 matrix H, SLAQR1 sets v to a
      scalar multiple of the first column of the product

      (*)  K = (H - (sr1 + i*si1)*I)*(H - (sr2 + i*si2)*I)

      scaling to avoid overflows and most underflows. It
      is assumed that either

              1) sr1 = sr2 and si1 = -si2
          or
              2) si1 = si2 = 0.

      This is useful for starting double implicit shift bulges
      in the QR algorithm.
Parameters:
[in]N
          N is integer
              Order of the matrix H. N must be either 2 or 3.
[in]H
          H is REAL array of dimension (LDH,N)
              The 2-by-2 or 3-by-3 matrix H in (*).
[in]LDH
          LDH is integer
              The leading dimension of H as declared in
              the calling procedure.  LDH.GE.N
[in]SR1
          SR1 is REAL
[in]SI1
          SI1 is REAL
[in]SR2
          SR2 is REAL
[in]SI2
          SI2 is REAL
              The shifts in (*).
[out]V
          V is REAL array of dimension N
              A scalar multiple of the first column of the
              matrix K in (*).
Author:
Univ. of Tennessee
Univ. of California Berkeley
Univ. of Colorado Denver
NAG Ltd.
Date:
September 2012
Contributors:
Karen Braman and Ralph Byers, Department of Mathematics, University of Kansas, USA

Definition at line 122 of file slaqr1.f.

Here is the caller graph for this function: