402 static PetscErrorCode MatSolve_SeqDense_Internal_LU(Mat A, PetscScalar *x, PetscBLASInt ldx, PetscB…  in MatSolve_SeqDense_Internal_LU()  argument
416 static PetscErrorCode MatSolve_SeqDense_Internal_Cholesky(Mat A, PetscScalar *x, PetscBLASInt ldx, …  in MatSolve_SeqDense_Internal_Cholesky()  argument
448 static PetscErrorCode MatSolve_SeqDense_Internal_QR(Mat A, PetscScalar *x, PetscBLASInt ldx, PetscB…  in MatSolve_SeqDense_Internal_QR()  argument
465 …rmqr_("L", &trans, &m, &nrhs, &mat->rank, mat->v, &mat->lda, mat->tau, x, &ldx, &fwork, &lfwork, &…  in MatSolve_SeqDense_Internal_QR()
473 …rmqr_("L", &trans, &m, &nrhs, &mat->rank, mat->v, &mat->lda, mat->tau, x, &ldx, mat->fwork, &mat->…  in MatSolve_SeqDense_Internal_QR()
477 …("LAPACKtrtrs", LAPACKtrtrs_("U", "N", "N", &mat->rank, &nrhs, mat->v, &mat->lda, x, &ldx, &info));  in MatSolve_SeqDense_Internal_QR()
481     for (PetscInt i = mat->rank; i < k; i++) x[j * ldx + i] = 0.;  in MatSolve_SeqDense_Internal_QR()
487 …MatSolveTranspose_SeqDense_Internal_QR(Mat A, PetscScalar *x, PetscBLASInt ldx, PetscBLASInt m, Pe…  in MatSolveTranspose_SeqDense_Internal_QR()  argument
495 …PetscCallBLAS("LAPACKtrtrs", LAPACKtrtrs_("U", "T", "N", &m, &nrhs, mat->v, &mat->lda, x, &ldx, &i…  in MatSolveTranspose_SeqDense_Internal_QR()
503 …CKormqr_("L", "N", &m, &nrhs, &mat->rank, mat->v, &mat->lda, mat->tau, x, &ldx, &fwork, &lfwork, &…  in MatSolveTranspose_SeqDense_Internal_QR()
512 …CKormqr_("L", "N", &m, &nrhs, &mat->rank, mat->v, &mat->lda, mat->tau, x, &ldx, mat->fwork, &mat->…  in MatSolveTranspose_SeqDense_Internal_QR()
643   PetscBLASInt       nrhs = 0, m = 0, k = 0, ldb = 0, ldx = 0, ldy = 0;  in MatMatSolve_SeqDense_SetUp()  local
658   PetscCall(PetscBLASIntCast(_ldx, &ldx));  in MatMatSolve_SeqDense_SetUp()
659   if (ldx < m) {  in MatMatSolve_SeqDense_SetUp()
670     if (ldb == ldx) {  in MatMatSolve_SeqDense_SetUp()
676       for (PetscInt j = 0; j < nrhs; j++) PetscCall(PetscArraycpy(&y[j * ldx], &b[j * ldb], m));  in MatMatSolve_SeqDense_SetUp()
679     ldy = ldx;  in MatMatSolve_SeqDense_SetUp()
693   PetscBLASInt k, ldy, nrhs, ldx = 0;  in MatMatSolve_SeqDense_TearDown()  local
702   PetscCall(PetscBLASIntCast(_ldx, &ldx));  in MatMatSolve_SeqDense_TearDown()
703   if (ldx != ldy) {  in MatMatSolve_SeqDense_TearDown()
706     for (PetscInt j = 0; j < nrhs; j++) PetscCall(PetscArraycpy(&xv[j * ldx], &y[j * ldy], k));  in MatMatSolve_SeqDense_TearDown()