122 SUBROUTINE claev2( A, B, C, RT1, RT2, CS1, SN1 )
138 parameter( zero = 0.0e0 )
140 parameter( one = 1.0e0 )
150 INTRINSIC abs, conjg, real
154 IF( abs(
b ).EQ.zero )
THEN
157 w = conjg(
b ) / abs(
b )
159 CALL
slaev2(
REAL( A ), abs(
b ),
REAL( C ), rt1, rt2, cs1, t )
subroutine slaev2(A, B, C, RT1, RT2, CS1, SN1)
SLAEV2 computes the eigenvalues and eigenvectors of a 2-by-2 symmetric/Hermitian matrix.
set ue cd $ADTTMP cat<< EOF > tmp f Program LinearEquations Implicit none Real b(3) integer i
subroutine claev2(A, B, C, RT1, RT2, CS1, SN1)
CLAEV2 computes the eigenvalues and eigenvectors of a 2-by-2 symmetric/Hermitian matrix.