dlacpy function

void dlacpy(
  1. String UPLO,
  2. int M,
  3. int N,
  4. Matrix<double> A_,
  5. int LDA,
  6. Matrix<double> B_,
  7. int LDB,
)

Implementation

void dlacpy(
  final String UPLO,
  final int M,
  final int N,
  final Matrix<double> A_,
  final int LDA,
  final Matrix<double> B_,
  final int LDB,
) {
  final A = A_.having(ld: LDA);
  final B = B_.having(ld: LDB);
  if (lsame(UPLO, 'U')) {
    for (var J = 1; J <= N; J++) {
      for (var I = 1; I <= min(J, M); I++) {
        B[I][J] = A[I][J];
      }
    }
  } else if (lsame(UPLO, 'L')) {
    for (var J = 1; J <= N; J++) {
      for (var I = J; I <= M; I++) {
        B[I][J] = A[I][J];
      }
    }
  } else {
    for (var J = 1; J <= N; J++) {
      for (var I = 1; I <= M; I++) {
        B[I][J] = A[I][J];
      }
    }
  }
}