| /petsc/src/ksp/ksp/utils/lmvm/blas_cyclic/cupm/ |
| H A D | blas_cyclic_cupm_impl.hpp | 98 const auto trans = hermitian_transpose ? CUPMBLAS_OP_C : CUPMBLAS_OP_N; in dmv() local 110 PetscCallCUPMBLAS(cupmBlasXgbmv(handle, trans, m, m, 0, 0, calpha, A_, 1, x_, 1, cbeta, y_, 1)); in dmv() 114 …PetscCallCUPMBLAS(cupmBlasXgbmv(handle, trans, diff, diff, 0, 0, calpha, &A_[i_oldest], 1, &x_[i_o… in dmv() 118 …if (i_next) PetscCallCUPMBLAS(cupmBlasXgbmv(handle, trans, i_next, i_next, 0, 0, calpha, A_, 1, x_… in dmv() 119 …if (diff) PetscCallCUPMBLAS(cupmBlasXgbmv(handle, trans, diff, diff, 0, 0, calpha, &A_[i_oldest], … in dmv() 138 auto trans = hermitian_transpose ? CUPMBLAS_OP_C : CUPMBLAS_OP_N; in dsv() local 151 …PetscCallCUPMBLAS(cupmBlasXtbsv(handle, CUPMBLAS_FILL_MODE_UPPER, trans, CUPMBLAS_DIAG_NON_UNIT, m… in dsv() 156 …PetscCallCUPMBLAS(cupmBlasXtbsv(handle, CUPMBLAS_FILL_MODE_UPPER, trans, CUPMBLAS_DIAG_NON_UNIT, d… in dsv() 162 …PetscCallCUPMBLAS(cupmBlasXtbsv(handle, CUPMBLAS_FILL_MODE_UPPER, trans, CUPMBLAS_DIAG_NON_UNIT, i… in dsv() 166 …PetscCallCUPMBLAS(cupmBlasXtbsv(handle, CUPMBLAS_FILL_MODE_UPPER, trans, CUPMBLAS_DIAG_NON_UNIT, d… in dsv() [all …]
|
| /petsc/src/mat/utils/ |
| H A D | isltog.c | 3 …balMapping(ISLocalToGlobalMapping lgmap, Mat A, PetscBool cols, PetscBool trans, MatType ptype, Ma… in MatCreateFromISLocalToGlobalMapping() argument 14 PetscValidLogicalCollectiveBool(A, trans, 4); in MatCreateFromISLocalToGlobalMapping() 40 if (trans) PetscCall(VecScatterCreate(lv, NULL, v, is, &sct)); in MatCreateFromISLocalToGlobalMapping() 70 if (trans) { in MatCreateFromISLocalToGlobalMapping()
|
| /petsc/src/ksp/ksp/tutorials/ |
| H A D | ex10.c | 141 PetscBool flg, preload = PETSC_FALSE, trans = PETSC_FALSE, permute = PETSC_FALSE; in main() local 153 … PetscCall(PetscOptionsBool("-trans", "Solve transpose system instead", "", trans, &trans, &flg)); in main() 222 if (trans) PetscCall(KSPSolveTranspose(ksp, b, x)); in main() 252 if (trans) PetscCall(KSPSolveTranspose(ksp, b, x)); in main()
|
| H A D | ex72.c | 41 PetscBool table = PETSC_FALSE, flg, trans = PETSC_FALSE, initialguess = PETSC_FALSE; in main() local 55 PetscCall(PetscOptionsGetBool(NULL, NULL, "-trans", &trans, NULL)); in main() 328 if (trans) { in main() 342 if (trans) { in main() 367 if (trans) { in main()
|
| /petsc/src/dm/dt/dualspace/interface/ |
| H A D | dualspace.c | 1884 PetscErrorCode PetscDualSpaceTransform(PetscDualSpace dsp, PetscDualSpaceTransformType trans, Petsc… in PetscDualSpaceTransform() argument 1940 …ualSpaceTransformGradient(PetscDualSpace dsp, PetscDualSpaceTransformType trans, PetscBool isInver… in PetscDualSpaceTransformGradient() argument 1976 switch (trans) { in PetscDualSpaceTransformGradient() 2073 PetscErrorCode PetscDualSpaceTransformHessian(PetscDualSpace dsp, PetscDualSpaceTransformType trans… in PetscDualSpaceTransformHessian() argument 2109 switch (trans) { in PetscDualSpaceTransformHessian() 2144 PetscDualSpaceTransformType trans; in PetscDualSpacePullback() local 2156 trans = IDENTITY_TRANSFORM; in PetscDualSpacePullback() 2159 trans = COVARIANT_PIOLA_TRANSFORM; in PetscDualSpacePullback() 2163 trans = CONTRAVARIANT_PIOLA_TRANSFORM; in PetscDualSpacePullback() 2168 PetscCall(PetscDualSpaceTransform(dsp, trans, PETSC_TRUE, fegeom, Nq, Nc, pointEval)); in PetscDualSpacePullback() [all …]
|
| /petsc/src/ksp/ksp/tests/ |
| H A D | ex30.c | 32 …PetscBool table = PETSC_FALSE, flg, flgB = PETSC_FALSE, trans = PETSC_FALSE, partition = PETSC_F… in main() local 45 PetscCall(PetscOptionsGetBool(NULL, NULL, "-trans", &trans, NULL)); in main() 276 if (trans) { in main() 286 if (trans) { in main() 296 if (ckerror && !trans) { /* Check error for each rhs */ in main()
|
| H A D | ex32.c | 28 PetscBool flg, trans = PETSC_FALSE, sbaij = PETSC_FALSE; in main() local 34 PetscCall(PetscOptionsGetBool(NULL, NULL, "-trans", &trans, NULL)); in main() 83 if (trans) { in main()
|
| /petsc/src/ksp/ksp/utils/lmvm/blas_cyclic/ |
| H A D | blas_cyclic.c | 261 const char *trans = hermitian_transpose ? "C" : "N"; in TRSVCyclic_Private() local 264 …PetscCallBLAS("BLAStrsv", BLAStrsv_("U", trans, "N", &bn, &A[i_oldest * (lda + 1)], &blda, &y[i_ol… in TRSVCyclic_Private() 425 const char *trans = hermitian_transpose ? "C" : "N"; in GEMVCyclic_Private() local 433 …PetscCallBLAS("BLASgemv", BLASgemv_(trans, &bm, &bm, &alpha, A, &blda, x, &b_one, &beta, y, &b_one… in GEMVCyclic_Private() 437 …PetscCallBLAS("BLASgemv", BLASgemv_(trans, &bn, &bn, &alpha, &A[i_oldest * (lda + 1)], &blda, &x[i… in GEMVCyclic_Private() 440 …if (i_next > 0) PetscCallBLAS("BLASgemv", BLASgemv_(trans, &i_next, &i_next, &alpha, A, &blda, x, … in GEMVCyclic_Private() 441 …if (bn > 0) PetscCallBLAS("BLASgemv", BLASgemv_(trans, &bn, &bn, &alpha, &A[i_oldest * (lda + 1)],… in GEMVCyclic_Private()
|
| /petsc/src/ksp/pc/impls/bddc/ |
| H A D | bddcfetidp.c | 856 static PetscErrorCode FETIDPMatMult_Kernel(Mat fetimat, Vec x, Vec y, PetscBool trans) in FETIDPMatMult_Kernel() argument 877 if (trans) { in FETIDPMatMult_Kernel() 883 if (trans) { in FETIDPMatMult_Kernel() 893 PetscCall(PCBDDCApplyInterfacePreconditioner(mat_ctx->pc, trans)); in FETIDPMatMult_Kernel() 908 if (trans) { in FETIDPMatMult_Kernel() 921 if (trans) { in FETIDPMatMult_Kernel() 928 if (trans) { in FETIDPMatMult_Kernel() 956 static PetscErrorCode FETIDPPCApply_Kernel(PC fetipc, Vec x, Vec y, PetscBool trans) in FETIDPPCApply_Kernel() argument 970 if (trans) { in FETIDPPCApply_Kernel()
|
| H A D | bddc.c | 324 static PetscErrorCode PCBDDCSetDivergenceMat_BDDC(PC pc, Mat divudotp, PetscBool trans, IS vl2l) in PCBDDCSetDivergenceMat_BDDC() argument 332 pcbddc->divudotp_trans = trans; in PCBDDCSetDivergenceMat_BDDC() 363 PetscErrorCode PCBDDCSetDivergenceMat(PC pc, Mat divudotp, PetscBool trans, IS vl2l) in PCBDDCSetDivergenceMat() argument 371 PetscValidLogicalCollectiveBool(pc, trans, 3); in PCBDDCSetDivergenceMat() 375 …PetscTryMethod(pc, "PCBDDCSetDivergenceMat_C", (PC, Mat, PetscBool, IS), (pc, divudotp, trans, vl2… in PCBDDCSetDivergenceMat()
|
| /petsc/src/dm/impls/plex/tests/ |
| H A D | ex8.c | 269 PetscScalar trans[3]; in CheckCell() local 278 for (d = 0; d < cdim; ++d) PetscCall(PetscRandomGetValue(r, &trans[d])); in CheckCell() 315 v0ExT[d] += PetscRealPart(trans[d]); in CheckCell() 353 centroidExT[d] += PetscRealPart(trans[d]); in CheckCell() 375 newCoords[p * cdim + d] += trans[d]; in CheckCell() 403 faceCentroidExT[d] += PetscRealPart(trans[d]); in CheckCell()
|
| /petsc/share/petsc/datafiles/meshes/ |
| H A D | testcase3D.cas | 27 (rp-trans-one-eqn? #f) 28 (rp-trans-sst? #f) 3595 (trans-intermit/max-limit 1.) 3596 (trans-retheta/min-limit 1e-07) 3597 (trans-intermit/min-limit 1e-07) 4032 (mp/mt/boil/trans-func/coeff 20.) 4232 (mp/mass-trans-type 0) 4491 (mp/reg-trans/gentop/cc-extension-factor 1.) 4492 (mp/reg-trans/gentop/cc-extension-factor-on? #f) 4493 (mp/reg-trans/gentop/clustering-reconstructed-gradients? #t) [all …]
|
| /petsc/src/mat/impls/htool/ |
| H A D | htool.cxx | 919 template <char trans> 928 …type == MAT_FACTOR_LU ? "LU" : "Cholesky", X.nb_cols() == 1 ? "" : "Mat", trans == 'N' ? "" : "Tra… in MatSolve_Private() 930 if (A->factortype == MAT_FACTOR_LU) htool::lu_solve(trans, *B, X); in MatSolve_Private() 935 template <char trans, class Type, typename std::enable_if<std::is_same<Type, Vec>::value>::type * =… 948 PetscCall(MatSolve_Private<trans>(A, v)); in MatSolve_Htool() 952 template <char trans, class Type, typename std::enable_if<std::is_same<Type, Mat>::value>::type * =… 966 PetscCall(MatSolve_Private<trans>(A, v)); in MatSolve_Htool()
|
| /petsc/src/mat/impls/nest/ |
| H A D | matnest.c | 1787 Mat *trans; in MatConvert_Nest_SeqAIJ_fast() local 1807 …est->nc, &aii, nest->nr * nest->nc, &ajj, nest->nr * nest->nc, &avv, nest->nr * nest->nc, &trans)); in MatConvert_Nest_SeqAIJ_fast() 1821 PetscCall(MatTranspose(Bt, MAT_INITIAL_MATRIX, &trans[i * nest->nc + j])); in MatConvert_Nest_SeqAIJ_fast() 1822 B = trans[i * nest->nc + j]; in MatConvert_Nest_SeqAIJ_fast() 1829 PetscCall(MatHermitianTranspose(Bt, MAT_INITIAL_MATRIX, &trans[i * nest->nc + j])); in MatConvert_Nest_SeqAIJ_fast() 1830 B = trans[i * nest->nc + j]; in MatConvert_Nest_SeqAIJ_fast() 1887 if (trans[i * nest->nc + j]) { in MatConvert_Nest_SeqAIJ_fast() 1917 B = (trans[k] ? trans[k] : B); in MatConvert_Nest_SeqAIJ_fast() 1921 PetscCall(MatDestroy(&trans[k])); in MatConvert_Nest_SeqAIJ_fast() 1925 PetscCall(PetscFree4(aii, ajj, avv, trans)); in MatConvert_Nest_SeqAIJ_fast()
|
| /petsc/src/mat/impls/h2opus/cuda/ |
| H A D | math2opus.cu | 516 static PetscErrorCode MatMultKernel_H2OPUS(Mat A, Vec x, PetscScalar sy, Vec y, PetscBool trans) in MatMultKernel_H2OPUS() argument 561 …PetscCheck(!trans || A->symmetric, PetscObjectComm((PetscObject)A), PETSC_ERR_SUP, "MatMultTranspo… in MatMultKernel_H2OPUS() 567 …hgemv(trans ? H2Opus_Trans : H2Opus_NoTrans, h2opus->s, *h2opus->hmatrix, uxx, n, sy, uyy, n, 1, h… in MatMultKernel_H2OPUS() 604 …PetscCheck(!trans || A->symmetric, PetscObjectComm((PetscObject)A), PETSC_ERR_SUP, "MatMultTranspo… in MatMultKernel_H2OPUS() 610 …hgemv(trans ? H2Opus_Trans : H2Opus_NoTrans, h2opus->s, *h2opus->hmatrix_gpu, uxx, n, sy, uyy, n, … in MatMultKernel_H2OPUS()
|
| /petsc/src/vec/vec/impls/seq/ |
| H A D | dvec2.c | 520 const char *trans = conjugate ? "C" : "T"; in VecMultiDot_Seq_GEMV() local 557 …PetscCallBLAS("BLASgemv", BLASgemv_(trans, &n, &m, &one, yarray, &lda2, xarray, &ione, &zero, z + … in VecMultiDot_Seq_GEMV()
|
| /petsc/src/mat/impls/dense/seq/ |
| H A D | dense.c | 452 char trans; in MatSolve_SeqDense_Internal_QR() local 456 trans = 'C'; in MatSolve_SeqDense_Internal_QR() 458 trans = 'T'; in MatSolve_SeqDense_Internal_QR() 465 …PetscCallBLAS("LAPACKormqr", LAPACKormqr_("L", &trans, &m, &nrhs, &mat->rank, mat->v, &mat->lda, m… in MatSolve_SeqDense_Internal_QR() 473 …PetscCallBLAS("LAPACKormqr", LAPACKormqr_("L", &trans, &m, &nrhs, &mat->rank, mat->v, &mat->lda, m… in MatSolve_SeqDense_Internal_QR() 1045 …_SeqDense(Mat A, Vec xx, Vec yy, PetscInt c_start, PetscInt c_end, PetscBool trans, PetscBool herm) in MatMultColumnRangeKernel_SeqDense() argument 1059 if (trans) in MatMultColumnRangeKernel_SeqDense() 1064 if (trans) { in MatMultColumnRangeKernel_SeqDense() 1105 …e(Mat A, Vec xx, Vec zz, Vec yy, PetscInt c_start, PetscInt c_end, PetscBool trans, PetscBool herm) in MatMultAddColumnRangeKernel_SeqDense() argument 1119 if (trans) { in MatMultAddColumnRangeKernel_SeqDense()
|
| /petsc/lib/petsc/bin/maint/ |
| H A D | toclapack.sh | 4800 integer *trans) 4829 if (*trans == 111) { 4831 } else if (*trans == 112) { 4833 } else if (*trans == 113) {
|
| /petsc/src/mat/impls/hypre/ |
| H A D | mhypre.c | 1344 …MatHYPRE_MultKernel_Private(Mat A, HYPRE_Complex a, Vec x, HYPRE_Complex b, Vec y, PetscBool trans) argument 1351 if (trans) { 1365 if (trans) {
|
| /petsc/src/binding/petsc4py/src/petsc4py/PETSc/ |
| H A D | PC.pyx | 2143 def setBDDCDivergenceMat(self, Mat div, trans: bool = False, IS l2l=None) -> None: 2152 trans 2164 cdef PetscBool ptrans = trans
|
| /petsc/src/vec/vec/impls/seq/kokkos/ |
| H A D | veckok.kokkos.cxx | 537 const char *trans = conjugate ? "C" : "T"; in VecMultiDot_SeqKokkos_GEMV() local 579 …PetscCallCXX(KokkosBlas::gemv(PetscGetKokkosExecutionSpace(), trans, 1.0, Y, xv, 0.0, zv.view_devi… in VecMultiDot_SeqKokkos_GEMV()
|
| /petsc/src/mat/interface/ |
| H A D | matrix.c | 3683 static PetscErrorCode MatMatSolve_Basic(Mat A, Mat B, Mat X, PetscBool trans) in MatMatSolve_Basic() argument 3696 …f = (!trans || (!A->ops->solvetranspose && A->symmetric)) ? A->ops->solve : A->ops->solvetranspose; in MatMatSolve_Basic() 8821 PetscBool trans = PETSC_TRUE; in MatMatInterpolateAdd() local 8832 if (N == Mx) trans = PETSC_FALSE; in MatMatInterpolateAdd() 8834 Mo = trans ? N : M; in MatMatInterpolateAdd() 8865 if (!trans) { in MatMatInterpolateAdd()
|
| /petsc/src/mat/impls/aij/seq/seqhipsparse/ |
| H A D | aijhipsparse.hip.cxx | 3021 …de MatMultAddKernel_SeqAIJHIPSPARSE(Mat A, Vec xx, Vec yy, Vec zz, PetscBool trans, PetscBool herm) in MatMultAddKernel_SeqAIJHIPSPARSE() argument 3032 …PetscCheck(!herm || trans, PetscObjectComm((PetscObject)A), PETSC_ERR_GPU, "Hermitian and not tran… in MatMultAddKernel_SeqAIJHIPSPARSE() 3040 if (!trans) { in MatMultAddKernel_SeqAIJHIPSPARSE()
|
| /petsc/src/mat/impls/aij/seq/seqcusparse/ |
| H A D | aijcusparse.cu | 3555 …ode MatMultAddKernel_SeqAIJCUSPARSE(Mat A, Vec xx, Vec yy, Vec zz, PetscBool trans, PetscBool herm) in MatMultAddKernel_SeqAIJCUSPARSE() argument 3568 …PetscCheck(!herm || trans, PetscObjectComm((PetscObject)A), PETSC_ERR_GPU, "Hermitian and not tran… in MatMultAddKernel_SeqAIJCUSPARSE() 3576 if (!trans) { in MatMultAddKernel_SeqAIJCUSPARSE()
|