| /petsc/include/petsc/private/kernels/ |
| H A D | blockinvert.h | 63 PetscCall(PetscBLASIntCast(bs, &_bbs)); \ 81 PetscCall(PetscBLASIntCast(bs, &_bbs)); \ 98 PetscCall(PetscBLASIntCast(bs, &_bbs)); \ 116 PetscCall(PetscBLASIntCast(bs, &_bbs)); \ 134 PetscCall(PetscBLASIntCast(bs, &_bbs)); \ 152 PetscCall(PetscBLASIntCast(bs, &_bbs)); \ 170 PetscCall(PetscBLASIntCast(bs, &_bbs)); \ 188 PetscCall(PetscBLASIntCast(bs, &_bbs)); \ 189 PetscCall(PetscBLASIntCast(ncols, &_bncols)); \ 207 PetscCall(PetscBLASIntCast(bs, &_bbs)); \ [all …]
|
| /petsc/src/ksp/ksp/impls/gmres/ |
| H A D | gmreig.c | 13 PetscCall(PetscBLASIntCast(n, &bn)); in KSPComputeExtremeSingularValues_GMRES() 14 PetscCall(PetscBLASIntCast(N, &bN)); in KSPComputeExtremeSingularValues_GMRES() 15 PetscCall(PetscBLASIntCast(5 * N, &lwork)); in KSPComputeExtremeSingularValues_GMRES() 16 PetscCall(PetscBLASIntCast(N, &idummy)); in KSPComputeExtremeSingularValues_GMRES() 52 PetscCall(PetscBLASIntCast(n, &bn)); in KSPComputeEigenvalues_GMRES() 53 PetscCall(PetscBLASIntCast(N, &bN)); in KSPComputeEigenvalues_GMRES() 54 PetscCall(PetscBLASIntCast(5 * N, &lwork)); in KSPComputeEigenvalues_GMRES() 55 PetscCall(PetscBLASIntCast(N, &idummy)); in KSPComputeEigenvalues_GMRES() 84 PetscCall(PetscBLASIntCast(n, &bn)); in KSPComputeEigenvalues_GMRES() 85 PetscCall(PetscBLASIntCast(N, &bN)); in KSPComputeEigenvalues_GMRES() [all …]
|
| /petsc/src/mat/tests/ |
| H A D | ex116.c | 65 PetscCall(PetscBLASIntCast(8 * n, &lwork)); in main() 66 PetscCall(PetscBLASIntCast(n, &bn)); in main() 75 PetscCall(PetscBLASIntCast(m, &nevs)); in main() 77 PetscCall(PetscBLASIntCast(m, &iu)); in main() 80 PetscCall(PetscBLASIntCast(0.2 * m, &iu)); in main() 81 PetscCall(PetscBLASIntCast(n, &in)); in main() 135 PetscCall(PetscBLASIntCast(PetscMin(m, n), &minMN)); in main() 136 PetscCall(PetscBLASIntCast(PetscMax(m, n), &maxMN)); in main() 137 PetscCall(PetscBLASIntCast(5 * minMN + maxMN, &lwork)); in main() 150 PetscCall(PetscBLASIntCast(m, &im)); in main() [all …]
|
| H A D | ex120.c | 133 PetscCall(PetscBLASIntCast(2 * n, &lwork)); in main() 134 PetscCall(PetscBLASIntCast(n, &bn)); in main() 152 PetscCall(PetscBLASIntCast(0.2 * m, &iu)); in main() 162 PetscCall(PetscBLASIntCast(n, &nn)); in main() 182 PetscCall(PetscBLASIntCast(0.2 * m, &iu)); in main() 191 PetscCall(PetscBLASIntCast(n, &nn)); in main()
|
| /petsc/src/tao/leastsquares/impls/pounders/ |
| H A D | gqt.c | 11 PetscCall(PetscBLASIntCast(n, &blasn)); in estsv() 12 PetscCall(PetscBLASIntCast(ldr, &blasldr)); in estsv() 44 PetscCall(PetscBLASIntCast(n - i - 1, &blasnmi)); in estsv() 72 PetscCall(PetscBLASIntCast(j, &blasj)); in estsv() 223 PetscCall(PetscBLASIntCast(n, &blasn)); in gqt() 224 PetscCall(PetscBLASIntCast(lda, &blaslda)); in gqt() 225 PetscCall(PetscBLASIntCast(lda + 1, &blasldap1)); in gqt() 238 PetscCall(PetscBLASIntCast(n - j - 1, &iblas)); in gqt() 285 PetscCall(PetscBLASIntCast(n - j - 1, &iblas)); in gqt() 418 PetscCall(PetscBLASIntCast(n - j - 1, &iblas)); in gqt() [all …]
|
| H A D | pounders.c | 155 PetscCall(PetscBLASIntCast(mfqP->n, &blasn)); in pounders_update_res() 156 PetscCall(PetscBLASIntCast(mfqP->m, &blasm)); in pounders_update_res() 157 PetscCall(PetscBLASIntCast(mfqP->n * mfqP->n, &blasn2)); in pounders_update_res() 271 PetscCall(PetscBLASIntCast(mfqP->npmax, &blasnpmax)); in getquadpounders() 272 PetscCall(PetscBLASIntCast(mfqP->n + 1, &blasnplus1)); in getquadpounders() 273 PetscCall(PetscBLASIntCast(np, &blasnp)); in getquadpounders() 274 PetscCall(PetscBLASIntCast(mfqP->n * (mfqP->n + 1) / 2, &blasint)); in getquadpounders() 275 PetscCall(PetscBLASIntCast(np - mfqP->n - 1, &blasint2)); in getquadpounders() 344 PetscCall(PetscBLASIntCast(mfqP->npmax, &blasnpmax)); in morepoints() 345 PetscCall(PetscBLASIntCast(mfqP->n, &blasn)); in morepoints() [all …]
|
| /petsc/src/dm/dt/tests/ |
| H A D | ex13.c | 88 PetscCall(PetscBLASIntCast(Nbpt, &n)); in test() 89 PetscCall(PetscBLASIntCast(5 * Nbpt, &lwork)); in test() 125 PetscCall(PetscBLASIntCast(Nbpt, &m)); in test() 126 PetscCall(PetscBLASIntCast(Nbpt, &n)); in test() 127 PetscCall(PetscBLASIntCast(Nbp * Nf, &k)); in test() 260 PetscCall(PetscBLASIntCast(Nk * npoints, &m)); in test() 261 PetscCall(PetscBLASIntCast(Nbpt, &n)); in test() 262 PetscCall(PetscBLASIntCast(Nbp, &k)); in test() 263 PetscCall(PetscBLASIntCast(Nk * npoints, &lda)); in test() 264 PetscCall(PetscBLASIntCast(Nf * Nbpt, &ldb)); in test() [all …]
|
| /petsc/src/mat/impls/aij/seq/essl/ |
| H A D | essl.c | 44 PetscCall(PetscBLASIntCast(A->cmap->n, &nessl)); in MatSolve_Essl() 59 PetscCall(PetscBLASIntCast(A->rmap->n, &nessl)); in MatLUFactorNumeric_Essl() 95 PetscCall(PetscBLASIntCast(a->nz, &essl->nz)); in MatLUFactorSymbolic_Essl() 96 PetscCall(PetscBLASIntCast((PetscInt)(a->nz * f), &essl->lna)); in MatLUFactorSymbolic_Essl() 97 PetscCall(PetscBLASIntCast(100 + 10 * A->rmap->n, &essl->naux)); in MatLUFactorSymbolic_Essl()
|
| /petsc/src/ksp/ksp/impls/gmres/agmres/ |
| H A D | agmresdeflation.c | 120 PetscCall(PetscBLASIntCast(MAXKSPSIZE, &N)); in KSPAGMRESSchurForm() 121 PetscCall(PetscBLASIntCast(PetscMax(8 * N + 16, 4 * neig * (N - neig)), &lwork)); in KSPAGMRESSchurForm() 122 PetscCall(PetscBLASIntCast(2 * N * neig, &liwork)); in KSPAGMRESSchurForm() 204 PetscCall(PetscBLASIntCast(KspSize, &bKspSize)); in KSPAGMRESComputeDeflationData() 205 PetscCall(PetscBLASIntCast(lC, &blC)); in KSPAGMRESComputeDeflationData() 206 PetscCall(PetscBLASIntCast(N, &bN)); in KSPAGMRESComputeDeflationData() 223 PetscCall(PetscBLASIntCast(KspSize, &iKspSize)); in KSPAGMRESComputeDeflationData()
|
| H A D | agmresorthog.c | 132 PetscCall(PetscBLASIntCast(MAXKSPSIZE + 1, &N)); in KSPAGMRESRoddec() 139 PetscCall(PetscBLASIntCast(nloc, &bnloc)); in KSPAGMRESRoddec() 150 PetscCall(PetscBLASIntCast(nloc - j, &len)); in KSPAGMRESRoddec() 170 PetscCall(PetscBLASIntCast(nloc - j, &len)); in KSPAGMRESRoddec() 212 PetscCall(PetscBLASIntCast(pos, &bpos)); in KSPAGMRESRoddec() 251 PetscCall(PetscBLASIntCast(nvec, &bnvec)); in KSPAGMRESRodvec() 299 PetscCall(PetscBLASIntCast(len, &blen)); in KSPAGMRESRodvec()
|
| H A D | agmres.c | 347 PetscCall(PetscBLASIntCast(it + 1, &ldH)); in KSPAGMRESBuildSoln() 348 PetscCall(PetscBLASIntCast(KSPSIZE, &KspSize)); in KSPAGMRESBuildSoln() 349 PetscCall(PetscBLASIntCast(4 * (KspSize + 1), &lwork)); in KSPAGMRESBuildSoln() 350 PetscCall(PetscBLASIntCast(KspSize + 1, &lC)); in KSPAGMRESBuildSoln() 351 PetscCall(PetscBLASIntCast(MAXKSPSIZE + 1, &N)); in KSPAGMRESBuildSoln() 352 PetscCall(PetscBLASIntCast(N + 1, &ldH)); in KSPAGMRESBuildSoln()
|
| /petsc/src/mat/impls/scalapack/ |
| H A D | matscalapack.c | 124 PetscCall(PetscBLASIntCast(rows[i] + 1, &gridx)); in MatSetValues_ScaLAPACK() 127 PetscCall(PetscBLASIntCast(cols[j] + 1, &gcidx)); in MatSetValues_ScaLAPACK() 170 PetscCall(PetscBLASIntCast(ranges[1], &mb)); /* x block size */ in MatMultXXXYYY_ScaLAPACK() 171 PetscCall(PetscBLASIntCast(PetscMax(1, A->rmap->n), &xlld)); in MatMultXXXYYY_ScaLAPACK() 175 PetscCall(PetscBLASIntCast(ranges[1], &nb)); /* y block size */ in MatMultXXXYYY_ScaLAPACK() 184 PetscCall(PetscBLASIntCast(PetscMax(1, lszx), &xlld)); in MatMultXXXYYY_ScaLAPACK() 209 PetscCall(PetscBLASIntCast(ranges[1], &nb)); /* x block size */ in MatMultXXXYYY_ScaLAPACK() 214 PetscCall(PetscBLASIntCast(ranges[1], &mb)); /* y block size */ in MatMultXXXYYY_ScaLAPACK() 215 PetscCall(PetscBLASIntCast(PetscMax(1, A->rmap->n), &ylld)); in MatMultXXXYYY_ScaLAPACK() 223 PetscCall(PetscBLASIntCast(PetscMax(1, lszy), &ylld)); in MatMultXXXYYY_ScaLAPACK() [all …]
|
| /petsc/src/mat/utils/hpl/ |
| H A D | hplcreate.c | 29 PetscCall(PetscBLASIntCast(M, &bM)); in MatSetHPL() 30 PetscCall(PetscBLASIntCast(N, &bN)); in MatSetHPL() 32 PetscCall(PetscBLASIntCast(LDA, &bLDA)); in MatSetHPL()
|
| /petsc/src/ksp/ksp/utils/lmvm/dense/ |
| H A D | cd_utils.c | 101 PetscCall(PetscBLASIntCast(N, &n)); in MatUpperTriangularSolveInPlace_Internal() 102 PetscCall(PetscBLASIntCast(lda, &lda_blas)); in MatUpperTriangularSolveInPlace_Internal() 116 PetscCall(PetscBLASIntCast(m - oldest_index, &n_old)); in MatUpperTriangularSolveInPlace_Internal() 117 PetscCall(PetscBLASIntCast(next_index, &n_new)); in MatUpperTriangularSolveInPlace_Internal() 118 PetscCall(PetscBLASIntCast(lda, &lda_blas)); in MatUpperTriangularSolveInPlace_Internal()
|
| /petsc/src/ksp/ksp/interface/ |
| H A D | eige.c | 161 PetscCall(PetscBLASIntCast(n, &idummy)); in KSPComputeEigenvaluesExplicitly() 162 PetscCall(PetscBLASIntCast(5 * n, &lwork)); in KSPComputeEigenvaluesExplicitly() 170 PetscCall(PetscBLASIntCast(n, &bn)); in KSPComputeEigenvaluesExplicitly() 195 PetscCall(PetscBLASIntCast(n, &idummy)); in KSPComputeEigenvaluesExplicitly() 196 PetscCall(PetscBLASIntCast(5 * n, &lwork)); in KSPComputeEigenvaluesExplicitly() 204 PetscCall(PetscBLASIntCast(n, &nb)); in KSPComputeEigenvaluesExplicitly()
|
| /petsc/src/mat/graphops/order/ |
| H A D | spectral.c | 139 PetscCall(PetscBLASIntCast(n, &bn)); in MatGetOrdering_Spectral() 140 PetscCall(PetscBLASIntCast(n, &bN)); in MatGetOrdering_Spectral() 141 PetscCall(PetscBLASIntCast(5 * n, &lwork)); in MatGetOrdering_Spectral() 142 PetscCall(PetscBLASIntCast(1, &idummy)); in MatGetOrdering_Spectral()
|
| /petsc/src/ksp/ksp/impls/cg/ |
| H A D | cgeig.c | 33 PetscCall(PetscBLASIntCast(n, &bn)); in KSPComputeEigenvalues_CG() 66 PetscCall(PetscBLASIntCast(n, &bn)); in KSPComputeExtremeSingularValues_CG()
|
| /petsc/src/ksp/ksp/utils/lmvm/blas_cyclic/ |
| H A D | blas_cyclic.c | 255 PetscCall(PetscBLASIntCast(lda, &blda)); in TRSVCyclic_Private() 256 PetscCall(PetscBLASIntCast(m, &bm)); in TRSVCyclic_Private() 257 PetscCall(PetscBLASIntCast(oldest % m, &i_oldest)); in TRSVCyclic_Private() 258 PetscCall(PetscBLASIntCast(((next - 1) % m) + 1, &i_next)); in TRSVCyclic_Private() 350 PetscCall(PetscBLASIntCast(lda, &blda)); in HEMVCyclic_Private() 351 PetscCall(PetscBLASIntCast(m, &bm)); in HEMVCyclic_Private() 352 PetscCall(PetscBLASIntCast(oldest % m, &i_oldest)); in HEMVCyclic_Private() 353 PetscCall(PetscBLASIntCast(((next - 1) % m) + 1, &i_next)); in HEMVCyclic_Private() 428 PetscCall(PetscBLASIntCast(lda, &blda)); in GEMVCyclic_Private() 429 PetscCall(PetscBLASIntCast(m, &bm)); in GEMVCyclic_Private() [all …]
|
| /petsc/src/vec/vec/impls/seq/ |
| H A D | bvec1.c | 21 PetscCall(PetscBLASIntCast(n, &bn)); in VecXDot_Seq_Private() 61 PetscCall(PetscBLASIntCast(xin->map->n, &bn)); in VecScale_Seq() 80 PetscCall(PetscBLASIntCast(yin->map->n, &bn)); in VecAXPY_Seq()
|
| /petsc/src/ksp/ksp/guess/impls/pod/ |
| H A D | pod.c | 84 PetscCall(PetscBLASIntCast(pod->maxn, &bN)); in KSPGuessSetUp_POD() 91 PetscCall(PetscBLASIntCast((PetscInt)PetscRealPart(sdummy), &pod->lwork)); in KSPGuessSetUp_POD() 157 PetscCall(PetscBLASIntCast(pod->n, &bN)); in KSPGuessFormGuess_POD() 158 PetscCall(PetscBLASIntCast(pod->nen, &bNen)); in KSPGuessFormGuess_POD() 311 PetscCall(PetscBLASIntCast(pod->n, &bN)); in KSPGuessUpdate_POD() 348 PetscCall(PetscBLASIntCast(pod->nen, &bNen)); in KSPGuessUpdate_POD() 349 PetscCall(PetscBLASIntCast(pod->maxn, &bMaxN)); in KSPGuessUpdate_POD() 382 PetscCall(PetscBLASIntCast(pod->nen, &bNen)); in KSPGuessUpdate_POD()
|
| /petsc/src/ksp/ksp/impls/gmres/dgmres/ |
| H A D | dgmres.c | 620 PetscCall(PetscBLASIntCast(r, &nr)); in KSPDGMRESComputeDeflationData_DGMRES() 623 PetscCall(PetscBLASIntCast(max_neig, &bmax)); in KSPDGMRESComputeDeflationData_DGMRES() 671 PetscCall(PetscBLASIntCast(n, &bn)); in KSPDGMRESComputeSchurForm_DGMRES() 672 PetscCall(PetscBLASIntCast(N, &ldA)); in KSPDGMRESComputeSchurForm_DGMRES() 674 PetscCall(PetscBLASIntCast(5 * N, &lwork)); in KSPDGMRESComputeSchurForm_DGMRES() 786 PetscCall(PetscBLASIntCast(r, &br)); in KSPDGMRESApplyDeflation_DGMRES() 787 PetscCall(PetscBLASIntCast(max_neig, &bmax)); in KSPDGMRESApplyDeflation_DGMRES() 880 PetscCall(PetscBLASIntCast(aug1, &ldA)); in KSPDGMRESImproveEig_DGMRES() 881 PetscCall(PetscBLASIntCast(aug, &N)); in KSPDGMRESImproveEig_DGMRES() 915 if (NbrEig > bmax) PetscCall(PetscBLASIntCast(bmax - 1, &NbrEig)); in KSPDGMRESImproveEig_DGMRES() [all …]
|
| /petsc/src/mat/impls/dense/seq/ |
| H A D | dense.c | 42 PetscCall(PetscBLASIntCast(A->cmap->n, &n)); in MatSeqDenseInvertFactors_Private() 247 PetscCall(PetscBLASIntCast(X->rmap->n * X->cmap->n, &N)); in MatAXPY_SeqDense() 248 PetscCall(PetscBLASIntCast(X->rmap->n, &m)); in MatAXPY_SeqDense() 249 PetscCall(PetscBLASIntCast(x->lda, &ldax)); in MatAXPY_SeqDense() 250 PetscCall(PetscBLASIntCast(y->lda, &lday)); in MatAXPY_SeqDense() 288 PetscCall(PetscBLASIntCast(a->lda, &lda)); in MatScale_SeqDense() 290 PetscCall(PetscBLASIntCast(A->rmap->n, &nz)); in MatScale_SeqDense() 293 PetscCall(PetscBLASIntCast(A->rmap->n * A->cmap->n, &nz)); in MatScale_SeqDense() 528 PetscCall(PetscBLASIntCast(A->rmap->n, &m)); in MatSolve_SeqDense_SetUp() 529 PetscCall(PetscBLASIntCast(A->cmap->n, &k)); in MatSolve_SeqDense_SetUp() [all …]
|
| /petsc/src/ksp/pc/impls/tfs/ |
| H A D | xxt.c | 292 PetscCall(PetscBLASIntCast(len, &dlen)); in xxt_generate() 307 PetscCall(PetscBLASIntCast(len, &dlen)); in xxt_generate() 314 PetscCall(PetscBLASIntCast(n, &dlen)); in xxt_generate() 323 PetscCall(PetscBLASIntCast(n, &dlen)); in xxt_generate() 430 PetscCall(PetscBLASIntCast(len, &dlen)); in do_xxt_solve() 444 PetscCall(PetscBLASIntCast(len, &dlen)); in do_xxt_solve()
|
| H A D | xyt.c | 361 PetscCall(PetscBLASIntCast(len, &dlen)); in xyt_generate() 376 PetscCall(PetscBLASIntCast(len, &dlen)); in xyt_generate() 383 PetscCall(PetscBLASIntCast(n, &dlen)); in xyt_generate() 392 PetscCall(PetscBLASIntCast(n, &dlen)); in xyt_generate() 541 PetscCall(PetscBLASIntCast(len, &dlen)); in do_xyt_solve() 554 PetscCall(PetscBLASIntCast(len, &dlen)); in do_xyt_solve()
|
| /petsc/src/ksp/ksp/impls/bcgsl/ |
| H A D | bcgsl.c | 42 PetscCall(PetscBLASIntCast(ell + 1, &ldMZ)); in KSPSolve_BCGSL() 165 PetscCall(PetscBLASIntCast(bcgsl->ell, &bell)); in KSPSolve_BCGSL() 207 PetscCall(PetscBLASIntCast(bcgsl->ell - 1, &neqs)); in KSPSolve_BCGSL() 501 PetscCall(PetscBLASIntCast(5 * ell, &bcgsl->lwork)); in KSPSetUp_BCGSL()
|