zlaev2 function

void zlaev2(
  1. Complex A,
  2. Complex B,
  3. Complex C,
  4. Box<double> RT1,
  5. Box<double> RT2,
  6. Box<double> CS1,
  7. Box<Complex> SN1,
)

Implementation

void zlaev2(
  final Complex A,
  final Complex B,
  final Complex C,
  final Box<double> RT1,
  final Box<double> RT2,
  final Box<double> CS1,
  final Box<Complex> SN1,
) {
  const ZERO = 0.0;
  final T = Box(0.0);
  Complex W;

  if (B.abs() == ZERO) {
    W = Complex.one;
  } else {
    W = B.conjugate() / B.abs().toComplex();
  }
  dlaev2(A.real, B.abs(), C.real, RT1, RT2, CS1, T);
  SN1.value = W * T.value.toComplex();
}