slasq4 (3p)

Name

slasq4 - ues of d from the previous transform. Used by sbdsqr

Synopsis

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


INTEGER I0, N0, N0IN, PP, TTYPE

REAL DMIN, DMIN1, DMIN2, DN, DN1, DN2, G, TAU

REAL Z(*)


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


INTEGER*8 I0, N0, N0IN, PP, TTYPE

REAL DMIN, DMIN1, DMIN2, DN, DN1, DN2, G, TAU

REAL Z(*)


F95 INTERFACE
SUBROUTINE LASQ4(I0, N0, Z, PP, N0IN, DMIN, DMIN1, DMIN2, DN, DN1, DN2,
TAU, TTYPE, G)


INTEGER :: I0, N0, PP, N0IN, TTYPE

REAL, DIMENSION(:) :: Z

REAL :: DMIN, DMIN1, DMIN2, DN, DN1, DN2, TAU, G


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


INTEGER(8) :: I0, N0, PP, N0IN, TTYPE

REAL, DIMENSION(:) :: Z

REAL :: DMIN, DMIN1, DMIN2, DN, DN1, DN2, TAU, G


C INTERFACE
#include <sunperf.h>

void slasq4 (int i0, int n0, float *z, int pp, int  n0in,  float  dmin,
float  dmin1,  float  dmin2,  float dn, float dn1, float dn2,
float *tau, int *ttype, float *g);


void slasq4_64 (long i0, long n0, float *z, long pp, long  n0in,  float
dmin,  float  dmin1,  float dmin2, float dn, float dn1, float
dn2, float *tau, long *ttype, float *g);

Description

Oracle Solaris Studio Performance Library                           slasq4(3P)



NAME
       slasq4 - compute an approximation to the smallest eigenvalue using val-
       ues of d from the previous transform. Used by sbdsqr


SYNOPSIS
       SUBROUTINE SLASQ4(I0, N0, Z, PP, N0IN, DMIN,  DMIN1,  DMIN2,  DN,  DN1,
                 DN2, TAU, TTYPE, G)


       INTEGER I0, N0, N0IN, PP, TTYPE

       REAL DMIN, DMIN1, DMIN2, DN, DN1, DN2, G, TAU

       REAL Z(*)


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


       INTEGER*8 I0, N0, N0IN, PP, TTYPE

       REAL DMIN, DMIN1, DMIN2, DN, DN1, DN2, G, TAU

       REAL Z(*)


   F95 INTERFACE
       SUBROUTINE LASQ4(I0, N0, Z, PP, N0IN, DMIN, DMIN1, DMIN2, DN, DN1, DN2,
                 TAU, TTYPE, G)


       INTEGER :: I0, N0, PP, N0IN, TTYPE

       REAL, DIMENSION(:) :: Z

       REAL :: DMIN, DMIN1, DMIN2, DN, DN1, DN2, TAU, G


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


       INTEGER(8) :: I0, N0, PP, N0IN, TTYPE

       REAL, DIMENSION(:) :: Z

       REAL :: DMIN, DMIN1, DMIN2, DN, DN1, DN2, TAU, G


   C INTERFACE
       #include <sunperf.h>

       void slasq4 (int i0, int n0, float *z, int pp, int  n0in,  float  dmin,
                 float  dmin1,  float  dmin2,  float dn, float dn1, float dn2,
                 float *tau, int *ttype, float *g);


       void slasq4_64 (long i0, long n0, float *z, long pp, long  n0in,  float
                 dmin,  float  dmin1,  float dmin2, float dn, float dn1, float
                 dn2, float *tau, long *ttype, float *g);


PURPOSE
       slasq4 computes an approximation TAU to the smallest  eigenvalue  using
       values of d from the previous transform.


ARGUMENTS
       I0 (input)
                 I0 is INTEGER
                 First index.


       N0 (input)
                 N0 is INTEGER
                 Last index.


       Z (input)
                 Z is REAL array, dimension (4*N)
                 Z holds the qd array.


       PP (input)
                 PP is INTEGER
                 PP=0 for ping, PP=1 for pong.


       N0IN (input)
                 N0IN is INTEGER
                 The value of N0 at start of EIGTEST.


       DMIN (input)
                 DMIN is REAL
                 Minimum value of d.


       DMIN1 (input)
                 DMIN1 is REAL
                 Minimum value of d, excluding D(N0).


       DMIN2 (input)
                 DMIN2 is REAL
                 Minimum value of d, excluding D(N0) and D(N0-1).


       DN (input)
                 DN is REAL
                 d(N)


       DN1 (input)
                 DN1 is REAL
                 d(N-1)


       DN2 (input)
                 DN2 is REAL
                 d(N-2)


       TAU (output)
                 TAU is REAL
                 This is the shift.


       TTYPE (output)
                 TTYPE is INTEGER
                 Shift type.


       G (input/output)
                 G is REAL
                 G is passed as an argument in order to save its value between
                 calls to SLASQ4.




                                  7 Nov 2015                        slasq4(3P)