| /petsc/src/vec/is/tests/ |
| H A D | ex2.c | 14 IS isx[3], il; in main() local 34 PetscCall(ISCreate(PETSC_COMM_WORLD, &il)); in main() 35 PetscCall(ISLoad(il, vl)); in main() 36 PetscCall(ISEqual(il, isx[0], &equal)); in main() 38 PetscCall(ISDestroy(&il)); in main() 48 PetscCall(ISCreate(PETSC_COMM_WORLD, &il)); in main() 49 PetscCall(ISLoad(il, vl)); in main() 50 PetscCall(ISEqual(il, isx[i], &equal)); in main() 52 PetscCall(ISDestroy(&il)); in main() 58 PetscCall(ISCreateGeneral(PETSC_COMM_WORLD, n, izero, PETSC_COPY_VALUES, &il)); in main() [all …]
|
| /petsc/src/ts/tests/ |
| H A D | ex3.c | 310 PetscScalar bspl(PetscScalar *x, PetscScalar xx, PetscInt il, PetscInt iq, PetscInt nll[][2], Petsc… in bspl() argument 321 i1 = nll[il][iq1]; in bspl() 322 i2 = nll[il][iq2]; in bspl() 339 PetscInt i, j, jj, il, ip, ipp, ipq, iq, iquad, iqq; in femBg() local 368 for (il = 0; il < nz - 1; il++) { in femBg() 374 zquad[il][0] = zip; in femBg() 375 zquad[il][1] = (0.5) * (zip + zipq); in femBg() 376 zquad[il][2] = zipq; in femBg() 377 dlen[il] = PetscAbsScalar(dl); in femBg() 378 nli[il][0] = ip; in femBg() [all …]
|
| /petsc/src/mat/graphops/order/ |
| H A D | qmdupd.c | 38 PetscInt inhd, irch, node, mark, j, inode, nabor, jstop, jstrt, il; in SPARSEPACKqmdupd() local 62 for (il = 1; il <= i__1; ++il) { in SPARSEPACKqmdupd() 63 node = list[il]; in SPARSEPACKqmdupd() 83 for (il = 1; il <= i__1; ++il) { in SPARSEPACKqmdupd() 84 node = list[il]; in SPARSEPACKqmdupd()
|
| /petsc/src/mat/tests/ |
| H A D | ex120.c | 20 PetscBLASInt nn, nevs, il, iu, *iwork, *ifail, lwork, lierr, bn, one = 1; in main() local 147 il = 1; in main() 151 il = 1; in main() 153 …ll(PetscPrintf(PETSC_COMM_WORLD, " LAPACKsyevx: compute %d to %d-th eigensolutions...\n", il, iu)); in main() 163 …LAPACKsyevx_("V", "I", "U", &bn, arrayA, &bn, &vl, &vu, &il, &iu, &abstol, &nevs, evals, evecs_arr… in main() 175 il = 1; in main() 181 il = 1; in main() 183 …all(PetscPrintf(PETSC_COMM_WORLD, " LAPACKsygv: compute %d to %d-th eigensolutions...\n", il, iu)); in main() 192 …LAPACKsygvx_(&one, "V", "I", "U", &bn, arrayA, &bn, arrayB, &bn, &vl, &vu, &il, &iu, &abstol, &nev… in main() 204 …i++) PetscCall(PetscPrintf(PETSC_COMM_WORLD, "%" PetscInt_FMT " %g\n", i + il, (double)evals[i])); in main() [all …]
|
| H A D | ex116.c | 26 PetscBLASInt nevs, il, iu, in; in main() local 76 il = 1; in main() 79 il = 1; in main() 82 …ACKsyevx: compute %" PetscBLASInt_FMT " to %" PetscBLASInt_FMT "-th eigensolutions...\n", il, iu)); in main() 90 …LAPACKsyevx_("V", "I", "U", &bn, arrayA, &bn, &vl, &vu, &il, &iu, &abstol, &nevs, evals, evecs_arr… in main() 100 …all(PetscPrintf(PETSC_COMM_SELF, "%" PetscInt_FMT " %g\n", (PetscInt)(i + il), (double)evals[i])); in main() 113 PetscCall(CkEigenSolutions(cklvl, A, il - 1, iu - 1, evals, evecs, tols)); in main() 196 PetscErrorCode CkEigenSolutions(PetscInt cklvl, Mat A, PetscInt il, PetscInt iu, PetscReal *eval, V… in CkEigenSolutions() argument 203 nev = iu - il; in CkEigenSolutions() 213 for (i = il; i < iu; i++) { in CkEigenSolutions() [all …]
|
| H A D | ex118.c | 17 PetscBLASInt n, il = 1, iu = 5, *iblock, *isplit, *iwork, nevs, *ifail, cklvl = 2; in main() 32 nevs = iu - il; in main() 49 …LAPACKstebz_("I", "E", &n, &vl, &vu, &il, &iu, &tol, (PetscReal *)D, (PetscReal *)E, &nevs, &nspli… in main() 90 PetscCall(CkEigenSolutions(cklvl, T, il - 1, iu - 1, evals, evecs, tols)); in main() 125 PetscErrorCode CkEigenSolutions(PetscInt cklvl, Mat A, PetscInt il, PetscInt iu, PetscScalar *eval,… in CkEigenSolutions() argument 134 nev = iu - il; in CkEigenSolutions() 143 for (i = il; i < iu; i++) { in CkEigenSolutions() 145 for (j = il; j < iu; j++) { in CkEigenSolutions() 165 for (i = il; i < iu; i++) { in CkEigenSolutions()
|
| /petsc/src/mat/impls/sbaij/seq/ |
| H A D | sbaijfact.c | 228 PetscInt *jl, jmin, jmax, nzk, *ui, k, j, *il, nextprow; in MatCholeskyFactorSymbolic_SeqSBAIJ() local 256 PetscCall(PetscMalloc4(mbs, &ui_ptr, mbs, &il, mbs, &jl, mbs, &cols)); in MatCholeskyFactorSymbolic_SeqSBAIJ() 259 il[i] = 0; in MatCholeskyFactorSymbolic_SeqSBAIJ() 288 jmin = il[prow] + 1; /* index of the 2nd nzero entry in U(prow,k:mbs-1) */ in MatCholeskyFactorSymbolic_SeqSBAIJ() 297 il[prow] = jmin; in MatCholeskyFactorSymbolic_SeqSBAIJ() 321 il[k] = ui[k] + 1; in MatCholeskyFactorSymbolic_SeqSBAIJ() 333 PetscCall(PetscFree4(ui_ptr, il, jl, cols)); in MatCholeskyFactorSymbolic_SeqSBAIJ() 393 PetscInt *jl, jmin, jmax, nzk, *ui, k, j, *il, nextprow; in MatCholeskyFactorSymbolic_SeqSBAIJ_inplace() local 431 PetscCall(PetscMalloc4(mbs, &ui_ptr, mbs, &il, mbs, &jl, mbs, &cols)); in MatCholeskyFactorSymbolic_SeqSBAIJ_inplace() 434 il[i] = 0; in MatCholeskyFactorSymbolic_SeqSBAIJ_inplace() [all …]
|
| H A D | sbaijfact4.c | 11 PetscInt *ai, *aj, k, k1, jmin, jmax, *jl, *il, vj, nexti, ili; in MatCholeskyFactorNumeric_SeqSBAIJ_3_NaturalOrdering() local 21 PetscCall(PetscMalloc2(mbs, &il, mbs, &jl)); in MatCholeskyFactorNumeric_SeqSBAIJ_3_NaturalOrdering() 22 il[0] = 0; in MatCholeskyFactorNumeric_SeqSBAIJ_3_NaturalOrdering() 52 ili = il[i]; /* index of first nonzero element in U(i,k:bms-1) */ in MatCholeskyFactorNumeric_SeqSBAIJ_3_NaturalOrdering() 111 il[i] = jmin; /* update il(i) in column k+1, ... mbs-1 */ in MatCholeskyFactorNumeric_SeqSBAIJ_3_NaturalOrdering() 141 il[k] = jmin; in MatCholeskyFactorNumeric_SeqSBAIJ_3_NaturalOrdering() 149 PetscCall(PetscFree2(il, jl)); in MatCholeskyFactorNumeric_SeqSBAIJ_3_NaturalOrdering()
|
| H A D | sbaijfact3.c | 10 PetscInt *a2anew, i, j, k, k1, jmin, jmax, *jl, *il, vj, nexti, ili; in MatCholeskyFactorNumeric_SeqSBAIJ_3() local 20 PetscCall(PetscMalloc2(mbs, &il, mbs, &jl)); in MatCholeskyFactorNumeric_SeqSBAIJ_3() 21 il[0] = 0; in MatCholeskyFactorNumeric_SeqSBAIJ_3() 90 ili = il[i]; /* index of first nonzero element in U(i,k:bms-1) */ in MatCholeskyFactorNumeric_SeqSBAIJ_3() 149 il[i] = jmin; /* update il(i) in column k+1, ... mbs-1 */ in MatCholeskyFactorNumeric_SeqSBAIJ_3() 179 il[k] = jmin; in MatCholeskyFactorNumeric_SeqSBAIJ_3() 187 PetscCall(PetscFree2(il, jl)); in MatCholeskyFactorNumeric_SeqSBAIJ_3()
|
| H A D | sbaijfact5.c | 11 PetscInt *ai, *aj, k, k1, jmin, jmax, *jl, *il, vj, nexti, ili; in MatCholeskyFactorNumeric_SeqSBAIJ_4_NaturalOrdering() local 22 PetscCall(PetscMalloc2(mbs, &il, mbs, &jl)); in MatCholeskyFactorNumeric_SeqSBAIJ_4_NaturalOrdering() 23 il[0] = 0; in MatCholeskyFactorNumeric_SeqSBAIJ_4_NaturalOrdering() 53 ili = il[i]; /* index of first nonzero element in U(i,k:bms-1) */ in MatCholeskyFactorNumeric_SeqSBAIJ_4_NaturalOrdering() 136 il[i] = jmin; /* update il(i) in column k+1, ... mbs-1 */ in MatCholeskyFactorNumeric_SeqSBAIJ_4_NaturalOrdering() 170 il[k] = jmin; in MatCholeskyFactorNumeric_SeqSBAIJ_4_NaturalOrdering() 178 PetscCall(PetscFree2(il, jl)); in MatCholeskyFactorNumeric_SeqSBAIJ_4_NaturalOrdering()
|
| H A D | sbaijfact6.c | 10 PetscInt i, j, *a2anew, k, k1, jmin, jmax, *jl, *il, vj, nexti, ili; in MatCholeskyFactorNumeric_SeqSBAIJ_4() local 21 PetscCall(PetscMalloc2(mbs, &il, mbs, &jl)); in MatCholeskyFactorNumeric_SeqSBAIJ_4() 22 il[0] = 0; in MatCholeskyFactorNumeric_SeqSBAIJ_4() 91 ili = il[i]; /* index of first nonzero element in U(i,k:bms-1) */ in MatCholeskyFactorNumeric_SeqSBAIJ_4() 174 il[i] = jmin; /* update il(i) in column k+1, ... mbs-1 */ in MatCholeskyFactorNumeric_SeqSBAIJ_4() 209 il[k] = jmin; in MatCholeskyFactorNumeric_SeqSBAIJ_4() 217 PetscCall(PetscFree2(il, jl)); in MatCholeskyFactorNumeric_SeqSBAIJ_4()
|
| H A D | sbaijfact8.c | 11 PetscInt *ai, *aj, k, k1, jmin, jmax, *jl, *il, vj, nexti, ili, ipvt[5]; in MatCholeskyFactorNumeric_SeqSBAIJ_5_NaturalOrdering() local 21 PetscCall(PetscMalloc2(mbs, &il, mbs, &jl)); in MatCholeskyFactorNumeric_SeqSBAIJ_5_NaturalOrdering() 22 il[0] = 0; in MatCholeskyFactorNumeric_SeqSBAIJ_5_NaturalOrdering() 52 ili = il[i]; /* index of first nonzero element in U(i,k:bms-1) */ in MatCholeskyFactorNumeric_SeqSBAIJ_5_NaturalOrdering() 165 il[i] = jmin; /* update il(i) in column k+1, ... mbs-1 */ in MatCholeskyFactorNumeric_SeqSBAIJ_5_NaturalOrdering() 195 il[k] = jmin; in MatCholeskyFactorNumeric_SeqSBAIJ_5_NaturalOrdering() 203 PetscCall(PetscFree2(il, jl)); in MatCholeskyFactorNumeric_SeqSBAIJ_5_NaturalOrdering()
|
| H A D | sbaijfact7.c | 10 PetscInt i, j, *a2anew, k, k1, jmin, jmax, *jl, *il, vj, nexti, ili, ipvt[5]; in MatCholeskyFactorNumeric_SeqSBAIJ_5() local 20 PetscCall(PetscMalloc2(mbs, &il, mbs, &jl)); in MatCholeskyFactorNumeric_SeqSBAIJ_5() 21 il[0] = 0; in MatCholeskyFactorNumeric_SeqSBAIJ_5() 90 ili = il[i]; /* index of first nonzero element in U(i,k:bms-1) */ in MatCholeskyFactorNumeric_SeqSBAIJ_5() 203 il[i] = jmin; /* update il(i) in column k+1, ... mbs-1 */ in MatCholeskyFactorNumeric_SeqSBAIJ_5() 233 il[k] = jmin; in MatCholeskyFactorNumeric_SeqSBAIJ_5() 241 PetscCall(PetscFree2(il, jl)); in MatCholeskyFactorNumeric_SeqSBAIJ_5()
|
| H A D | sbaijfact9.c | 10 PetscInt i, j, *a2anew, k, k1, jmin, jmax, *jl, *il, vj, nexti, ili; in MatCholeskyFactorNumeric_SeqSBAIJ_6() local 22 PetscCall(PetscMalloc2(mbs, &il, mbs, &jl)); in MatCholeskyFactorNumeric_SeqSBAIJ_6() 23 il[0] = 0; in MatCholeskyFactorNumeric_SeqSBAIJ_6() 92 ili = il[i]; /* index of first nonzero element in U(i,k:bms-1) */ in MatCholeskyFactorNumeric_SeqSBAIJ_6() 316 il[i] = jmin; /* update il(i) in column k+1, ... mbs-1 */ in MatCholeskyFactorNumeric_SeqSBAIJ_6() 346 il[k] = jmin; in MatCholeskyFactorNumeric_SeqSBAIJ_6() 354 PetscCall(PetscFree2(il, jl)); in MatCholeskyFactorNumeric_SeqSBAIJ_6()
|
| H A D | sbaijfact10.c | 11 PetscInt *ai, *aj, k, k1, jmin, jmax, *jl, *il, vj, nexti, ili; in MatCholeskyFactorNumeric_SeqSBAIJ_6_NaturalOrdering() local 29 PetscCall(PetscMalloc2(mbs, &il, mbs, &jl)); in MatCholeskyFactorNumeric_SeqSBAIJ_6_NaturalOrdering() 30 il[0] = 0; in MatCholeskyFactorNumeric_SeqSBAIJ_6_NaturalOrdering() 60 ili = il[i]; /* index of first nonzero element in U(i,k:bms-1) */ in MatCholeskyFactorNumeric_SeqSBAIJ_6_NaturalOrdering() 321 il[i] = jmin; /* update il(i) in column k+1, ... mbs-1 */ in MatCholeskyFactorNumeric_SeqSBAIJ_6_NaturalOrdering() 351 il[k] = jmin; in MatCholeskyFactorNumeric_SeqSBAIJ_6_NaturalOrdering() 359 PetscCall(PetscFree2(il, jl)); in MatCholeskyFactorNumeric_SeqSBAIJ_6_NaturalOrdering()
|
| H A D | sbaijfact12.c | 11 PetscInt *ai, *aj, k, k1, jmin, jmax, *jl, *il, vj, nexti, ili; in MatCholeskyFactorNumeric_SeqSBAIJ_7_NaturalOrdering() local 24 PetscCall(PetscMalloc2(mbs, &il, mbs, &jl)); in MatCholeskyFactorNumeric_SeqSBAIJ_7_NaturalOrdering() 25 il[0] = 0; in MatCholeskyFactorNumeric_SeqSBAIJ_7_NaturalOrdering() 56 ili = il[i]; /* index of first nonzero element in U(i,k:bms-1) */ in MatCholeskyFactorNumeric_SeqSBAIJ_7_NaturalOrdering() 348 il[i] = jmin; /* update il(i) in column k+1, ... mbs-1 */ in MatCholeskyFactorNumeric_SeqSBAIJ_7_NaturalOrdering() 378 il[k] = jmin; in MatCholeskyFactorNumeric_SeqSBAIJ_7_NaturalOrdering() 386 PetscCall(PetscFree2(il, jl)); in MatCholeskyFactorNumeric_SeqSBAIJ_7_NaturalOrdering()
|
| H A D | sbaijfact11.c | 10 PetscInt *a2anew, k, k1, jmin, jmax, *jl, *il, vj, nexti, ili, i, j, mbs = a->mbs; in MatCholeskyFactorNumeric_SeqSBAIJ_7() local 23 PetscCall(PetscMalloc2(mbs, &il, mbs, &jl)); in MatCholeskyFactorNumeric_SeqSBAIJ_7() 24 il[0] = 0; in MatCholeskyFactorNumeric_SeqSBAIJ_7() 93 ili = il[i]; /* index of first nonzero element in U(i,k:bms-1) */ in MatCholeskyFactorNumeric_SeqSBAIJ_7() 385 il[i] = jmin; /* update il(i) in column k+1, ... mbs-1 */ in MatCholeskyFactorNumeric_SeqSBAIJ_7() 415 il[k] = jmin; in MatCholeskyFactorNumeric_SeqSBAIJ_7() 423 PetscCall(PetscFree2(il, jl)); in MatCholeskyFactorNumeric_SeqSBAIJ_7()
|
| H A D | sbaijfact2.c | 2477 PetscInt jmin, jmax, nzk, k, j, *jl, prow, *il, nextprow; in MatICCFactorSymbolic_SeqSBAIJ() local 2524 PetscCall(PetscMalloc4(am, &uj_ptr, am, &uj_lvl_ptr, am, &il, am, &jl)); in MatICCFactorSymbolic_SeqSBAIJ() 2527 il[i] = 0; in MatICCFactorSymbolic_SeqSBAIJ() 2559 jmin = il[prow] + 1; /* index of the 2nd nzero entry in U(prow,k:am-1) */ in MatICCFactorSymbolic_SeqSBAIJ() 2572 il[prow] = jmin; in MatICCFactorSymbolic_SeqSBAIJ() 2599 il[k] = ui[k] + 1; in MatICCFactorSymbolic_SeqSBAIJ() 2615 PetscCall(PetscFree4(uj_ptr, uj_lvl_ptr, il, jl)); in MatICCFactorSymbolic_SeqSBAIJ() 2679 PetscInt jmin, jmax, nzk, k, j, *jl, prow, *il, nextprow; in MatICCFactorSymbolic_SeqSBAIJ_inplace() local 2722 PetscCall(PetscMalloc4(am, &uj_ptr, am, &uj_lvl_ptr, am, &il, am, &jl)); in MatICCFactorSymbolic_SeqSBAIJ_inplace() 2725 il[i] = 0; in MatICCFactorSymbolic_SeqSBAIJ_inplace() [all …]
|
| H A D | sbaij2.c | 1279 … i, j, k, bs = A->rmap->bs, bs2 = a->bs2, k1, mbs = a->mbs, jmin, jmax, nexti, ik, *jl, *il; in MatNorm_SeqSBAIJ() local 1309 PetscCall(PetscMalloc3(bs, &sum, mbs, &il, mbs, &jl)); in MatNorm_SeqSBAIJ() 1311 il[0] = 0; in MatNorm_SeqSBAIJ() 1322 ik = il[i]; /* block index of A(i,k) in the array a */ in MatNorm_SeqSBAIJ() 1334 il[i] = jmin; in MatNorm_SeqSBAIJ() 1357 il[k] = jmin; in MatNorm_SeqSBAIJ() 1366 PetscCall(PetscFree3(sum, il, jl)); in MatNorm_SeqSBAIJ()
|
| /petsc/src/sys/classes/random/impls/curand/ |
| H A D | curand2.cu | 14 PetscReal il, iw; member 19 il = PetscImaginaryPart(low); in complexscalelw() 24 …Real, size_t> x) { return thrust::get<1>(x) % 2 ? thrust::get<0>(x) * iw + il : thrust::get<0>(x) … in operator ()()
|
| /petsc/src/mat/impls/baij/seq/ |
| H A D | baijfact.c | 755 PetscInt k, jmin, jmax, *jl, *il, col, nexti, ili, nz; in MatCholeskyFactorNumeric_SeqBAIJ_N() local 776 PetscCall(PetscMalloc3(mbs, &rtmp, mbs, &il, mbs, &jl)); in MatCholeskyFactorNumeric_SeqBAIJ_N() 785 il[0] = 0; in MatCholeskyFactorNumeric_SeqBAIJ_N() 812 ili = il[i]; /* index of first nonzero element in U(i,k:bms-1) */ in MatCholeskyFactorNumeric_SeqBAIJ_N() 823 il[i] = jmin; in MatCholeskyFactorNumeric_SeqBAIJ_N() 861 il[k] = jmin; in MatCholeskyFactorNumeric_SeqBAIJ_N() 868 PetscCall(PetscFree3(rtmp, il, jl)); in MatCholeskyFactorNumeric_SeqBAIJ_N() 892 PetscInt k, jmin, *jl, *il, nexti, ili, *acol, *bcol, nz; in MatCholeskyFactorNumeric_SeqBAIJ_N_NaturalOrdering() local 901 PetscCall(PetscMalloc3(am, &rtmp, am, &il, am, &jl)); in MatCholeskyFactorNumeric_SeqBAIJ_N_NaturalOrdering() 908 il[0] = 0; in MatCholeskyFactorNumeric_SeqBAIJ_N_NaturalOrdering() [all …]
|
| /petsc/src/mat/impls/aij/seq/ |
| H A D | aijfact.c | 1712 PetscInt k, jmin, jmax, *c2r, *il, col, nexti, ili, nz; in MatCholeskyFactorNumeric_SeqAIJ() local 1751 PetscCall(PetscMalloc3(mbs, &rtmp, mbs, &il, mbs, &c2r)); in MatCholeskyFactorNumeric_SeqAIJ() 1757 if (mbs) il[0] = 0; in MatCholeskyFactorNumeric_SeqAIJ() 1787 ili = il[i]; /* index of first nonzero element in U(i,k:bms-1) */ in MatCholeskyFactorNumeric_SeqAIJ() 1798 il[i] = jmin; in MatCholeskyFactorNumeric_SeqAIJ() 1817 il[k] = jmin; in MatCholeskyFactorNumeric_SeqAIJ() 1835 PetscCall(PetscFree3(rtmp, il, c2r)); in MatCholeskyFactorNumeric_SeqAIJ() 1879 PetscInt k, jmin, jmax, *jl, *il, col, nexti, ili, nz; in MatCholeskyFactorNumeric_SeqAIJ_inplace() local 1915 PetscCall(PetscMalloc3(mbs, &rtmp, mbs, &il, mbs, &jl)); in MatCholeskyFactorNumeric_SeqAIJ_inplace() 1921 il[0] = 0; in MatCholeskyFactorNumeric_SeqAIJ_inplace() [all …]
|
| /petsc/src/dm/dt/dualspace/impls/lagrange/ |
| H A D | dspacelagrange.c | 1048 PetscInt iT, iF, jT, jF, il, jl; in MatTensorAltV() local 1119 for (il = 0; il < dF; il++) { in MatTensorAltV() 1121 …for (jl = 0; jl < NkFiber; jl++) val += projFstar[il * NkFiber + jl] * PetscRealPart(valsF[jF * Nk… in MatTensorAltV() 1122 workF[il] = val; in MatTensorAltV() 1125 for (il = 0; il < dF; il++) workF2[il] = workF[il]; in MatTensorAltV() 1134 for (il = 0; il < dT; il++) { in MatTensorAltV() 1136 …for (jl = 0; jl < NkTrace; jl++) val += projTstar[il * NkTrace + jl] * PetscRealPart(valsT[jT * Nk… in MatTensorAltV() 1137 workT[il] = val; in MatTensorAltV() 1140 for (il = 0; il < dT; il++) workT2[il] = workT[il]; in MatTensorAltV() 1144 for (il = 0; il < Nk; il++) { in MatTensorAltV() [all …]
|
| /petsc/src/dm/impls/da/ |
| H A D | dageometry.c | 28 …const PetscInt il = s.i - da->Xs / da->w, jl = dim > 1 ? s.j - da->Ys : 0, kl = dim > 2 ? s.k - da… in DMDAConvertToCell() local 35 *cell = (kl * my + jl) * mx + il; in DMDAConvertToCell()
|
| /petsc/src/ksp/ksp/impls/cg/gltr/ |
| H A D | gltr.c | 77 PetscBLASInt t_size = 0, l_size = 0, il, iu, info; in KSPCGSolve_GLTR() 653 il = 1; in KSPCGSolve_GLTR() 656 …PetscCallBLAS("LAPACKstebz", LAPACKstebz_("I", "E", &t_size, &vl, &vu, &il, &iu, &cg->eigen_tol, c… in KSPCGSolve_GLTR()
|