122 SUBROUTINE zlaev2( A, B, C, RT1, RT2, CS1, SN1 )
130 DOUBLE PRECISION cs1, rt1, rt2
131 COMPLEX*16 a,
b, c, sn1
137 DOUBLE PRECISION zero
138 parameter( zero = 0.0d0 )
140 parameter( one = 1.0d0 )
150 INTRINSIC abs, dble, dconjg
154 IF( abs(
b ).EQ.zero )
THEN
157 w = dconjg(
b ) / abs(
b )
159 CALL
dlaev2( dble( a ), abs(
b ), dble( c ), rt1, rt2, cs1, t )
set ue cd $ADTTMP cat<< EOF > tmp f Program LinearEquations Implicit none Real b(3) integer i
subroutine dlaev2(A, B, C, RT1, RT2, CS1, SN1)
DLAEV2 computes the eigenvalues and eigenvectors of a 2-by-2 symmetric/Hermitian matrix.
subroutine zlaev2(A, B, C, RT1, RT2, CS1, SN1)
ZLAEV2 computes the eigenvalues and eigenvectors of a 2-by-2 symmetric/Hermitian matrix.