dlascl2 function

void dlascl2(
  1. int M,
  2. int N,
  3. Array<double> D_,
  4. Matrix<double> X_,
  5. int LDX,
)

Implementation

void dlascl2(
  final int M,
  final int N,
  final Array<double> D_,
  final Matrix<double> X_,
  final int LDX,
) {
  final D = D_.having();
  final X = X_.having(ld: LDX);
  int I, J;

  for (J = 1; J <= N; J++) {
    for (I = 1; I <= M; I++) {
      X[I][J] *= D[I];
    }
  }
}