Home
last modified time | relevance | path

Searched refs:ione (Results 1 – 23 of 23) sorted by relevance

/petsc/src/vec/vec/tutorials/ !
H A Dex2f.F9018 PetscInt N, i, ione
35 ione = 1
36 …PetscCallA(VecCreateFromOptions(PETSC_COMM_WORLD, PETSC_NULL_CHARACTER, ione, N, PETSC_DECIDE, x, …
51 ione = 1
53 PetscCallA(VecSetValues(x, ione, [i], [one], ADD_VALUES, ierr))
66 ione = 0
67 PetscCallA(VecGetValues(x, ione, [i], value, ierr))
H A Dex14f.F9019 PetscInt i, rstart, rend, bs, ione
89 ione = 1
92 PetscCallA(VecSetValues(gx, ione, [i], [value], INSERT_VALUES, ierr))
H A Dex9f.F9020 PetscInt i, rstart, rend, ione
87 ione = 1
90 PetscCallA(VecSetValues(gx, ione, [i], [value], INSERT_VALUES, ierr))
H A Dex3f.F9019 PetscInt, parameter :: ione = 1, n = 50
46 PetscCallA(VecSetValues(x, ione, [i], [v], INSERT_VALUES, ierr))
/petsc/src/mat/tests/ !
H A Dex126f.F9014 PetscInt ione, ifive
25 ione = 1
48 PetscCallA(MatSetValues(A, ione, [II], ione, [JJ], [v], INSERT_VALUES, ierr))
52 PetscCallA(MatSetValues(A, ione, [II], ione, [JJ], [v], INSERT_VALUES, ierr))
56 PetscCallA(MatSetValues(A, ione, [II], ione, [JJ], [v], INSERT_VALUES, ierr))
60 PetscCallA(MatSetValues(A, ione, [II], ione, [JJ], [v], INSERT_VALUES, ierr))
63 PetscCallA(MatSetValues(A, ione, [II], ione, [II], [v], INSERT_VALUES, ierr))
/petsc/src/ksp/ksp/tests/ !
H A Dex62f.F90119 PetscInt Iend, m, n, its, ione
133 ione = 1
173 PetscCallA(MatSetValues(A, ione, [II], ione, [JJ], [v], ADD_VALUES, ierr))
177 PetscCallA(MatSetValues(A, ione, [II], ione, [JJ], [v], ADD_VALUES, ierr))
181 PetscCallA(MatSetValues(A, ione, [II], ione, [JJ], [v], ADD_VALUES, ierr))
185 PetscCallA(MatSetValues(A, ione, [II], ione, [JJ], [v], ADD_VALUES, ierr))
188 PetscCallA(MatSetValues(A, ione, [II], ione, [II], [v], ADD_VALUES, ierr))
209 …PetscCallA(VecCreateFromOptions(PETSC_COMM_WORLD, PETSC_NULL_CHARACTER, ione, PETSC_DECIDE, m*n, u…
H A Dex16f.F9021 PetscInt its, ione, ifive, izero
34 ione = 1
73 PetscCallA(ISCreateStride(PETSC_COMM_SELF, ifive, izero, ione, isrow, ierr))
/petsc/src/ksp/ksp/tutorials/ !
H A Dex2f.F90109 PetscInt Istart, Iend, izero, ione, itwo, ithree, col(3)
137 ione = 1
189 PetscCallA(MatSetValues(A, ione, [II], ione, [JJ], [v], INSERT_VALUES, ierr))
193 PetscCallA(MatSetValues(A, ione, [II], ione, [JJ], [v], INSERT_VALUES, ierr))
197 PetscCallA(MatSetValues(A, ione, [II], ione, [JJ], [v], INSERT_VALUES, ierr))
201 PetscCallA(MatSetValues(A, ione, [II], ione, [JJ], [v], INSERT_VALUES, ierr))
204 PetscCallA(MatSetValues(A, ione, [II], ione, [II], [v], INSERT_VALUES, ierr))
225 …PetscCallA(VecCreateFromOptions(PETSC_COMM_WORLD, PETSC_NULL_CHARACTER, ione, PETSC_DECIDE, m*n, u…
327 PetscCallA(MatSetValues(AA, ione, [izero], itwo, [izero, ione], val(2:3), INSERT_VALUES, ierr))
330 PetscCallA(MatSetValues(AA, ione, [i], itwo, col, val, INSERT_VALUES, ierr))
[all …]
H A Dex57f.F90115 PetscInt Istart, Iend, ione
140 ione = 1
187 PetscCallA(MatSetValues(A, ione, [II], ione, [JJ], [v], INSERT_VALUES, ierr))
191 PetscCallA(MatSetValues(A, ione, [II], ione, [JJ], [v], INSERT_VALUES, ierr))
195 PetscCallA(MatSetValues(A, ione, [II], ione, [JJ], [v], INSERT_VALUES, ierr))
199 PetscCallA(MatSetValues(A, ione, [II], ione, [JJ], [v], INSERT_VALUES, ierr))
202 PetscCallA(MatSetValues(A, ione, [II], ione, [II], [v], INSERT_VALUES, ierr))
225 …PetscCallA(VecCreateFromOptions(PETSC_COMM_WORLD, PETSC_NULL_CHARACTER, ione, PETSC_DECIDE, m*n, u…
H A Dex14f.F90235 PetscInt row, ione
244 ione = 1
294 PetscCall(MatSetValues(jac, ione, grow, ione, grow, [one], INSERT_VALUES, ierr))
307 PetscCall(MatSetValues(jac, ione, grow, ifive, col, v, INSERT_VALUES, ierr))
/petsc/src/vec/vec/tests/ !
H A Dex17f.F9013 PetscInt iglobal, i, ione
32 ione = 1
33 …PetscCallA(VecCreateFromOptions(PETSC_COMM_WORLD, PETSC_NULL_CHARACTER, ione, PETSC_DECIDE, NN, y,…
34 PetscCallA(VecCreateFromOptions(PETSC_COMM_SELF, PETSC_NULL_CHARACTER, ione, NN, NN, x, ierr))
38 ione = 1
42 PetscCallA(VecSetValues(y, ione, [iglobal], [value], INSERT_VALUES, ierr))
H A Dex20f.F9011 PetscInt n, i, ione
19 ione = 1
32 PetscCallA(PetscBinaryWrite(fd, vecclassid, ione, PETSC_INT, ierr))
34 PetscCallA(PetscBinaryWrite(fd, n, ione, PETSC_INT, ierr))
H A Dex34.c12 PetscInt ione = 1; in main() local
42 PetscCall(VecSetValues(V, 1, &ione, &one, INSERT_VALUES)); in main()
105 PetscCall(VecSetValues(V, 1, &ione, &one, INSERT_VALUES)); in main()
/petsc/src/snes/tutorials/ !
H A Dex73f90t.F90103 PetscInt:: izero, ione, itwo
106 ione = 1
144 PetscInt row, i, j, ione, low, high
149 ione = 1
167 PetscCall(VecSetValues(X1, ione, [row], [v], INSERT_VALUES, ierr))
196 PetscInt ione
198 ione = 1
200 PetscCall(DMCompositeGetAccessArray(solver%da, X, ione, PETSC_NULL_INTEGER_ARRAY, Xsub, ierr))
207 … PetscCall(DMCompositeRestoreAccessArray(solver%da, X, ione, PETSC_NULL_INTEGER_ARRAY, Xsub, ierr))
248 PetscInt ione, ifive, low, high, ii
[all …]
H A Dex5f90t.F90395 PetscInt ione, ifive
400 ione = 1
430 PetscCallA(MatSetValuesLocal(jac_prec, ione, [row], ione, col, v, INSERT_VALUES, ierr))
443 PetscCallA(MatSetValuesLocal(jac_prec, ione, [row], ifive, col, v, INSERT_VALUES, ierr))
474 PetscInt ione, nfour
490 ione = 1
508 …DARY_NONE, DMDA_STENCIL_BOX, nfour, nfour, PETSC_DECIDE, PETSC_DECIDE, ione, ione, PETSC_NULL_INTE…
H A Dex5f90.F90406 PetscInt ione, ifive
411 ione = 1
441 PetscCallA(MatSetValuesLocal(jac_prec, ione, [row], ione, col, v, INSERT_VALUES, ierr))
454 PetscCallA(MatSetValuesLocal(jac_prec, ione, [row], ifive, col, v, INSERT_VALUES, ierr))
486 PetscInt ione, nfour
501 ione = 1
519 …DARY_NONE, DMDA_STENCIL_BOX, nfour, nfour, PETSC_DECIDE, PETSC_DECIDE, ione, ione, PETSC_NULL_INTE…
/petsc/src/tao/leastsquares/impls/pounders/ !
H A Dpounders.c151 PetscBLASInt blasn, blasn2, blasm, ione = 1; in pounders_update_res() local
167 …allBLAS("BLASaxpy", BLASaxpy_(&blasn, &factor, &mfqP->Fdiff[blasn * i], &ione, mfqP->Gres, &ione)); in pounders_update_res()
177 … PetscCallBLAS("BLASaxpy", BLASaxpy_(&blasn2, &factor, &mfqP->H[i], &blasm, mfqP->Hres, &ione)); in pounders_update_res()
180 …PetscCallBLAS("BLASgemm", BLASgemm_("N", "T", &blasn, &blasn, &ione, &wii, &mfqP->Fdiff[blasn * i]… in pounders_update_res()
189 …lBLAS("BLASaxpy", BLASaxpy_(&blasn, &factor, &mfqP->Fdiff[blasn * row], &ione, mfqP->Gres, &ione)); in pounders_update_res()
191 …lBLAS("BLASaxpy", BLASaxpy_(&blasn, &factor, &mfqP->Fdiff[blasn * col], &ione, mfqP->Gres, &ione)); in pounders_update_res()
201 …PetscCallBLAS("BLASgemm", BLASgemm_("N", "T", &blasn, &blasn, &ione, &factor, &mfqP->Fdiff[blasn *… in pounders_update_res()
202 …PetscCallBLAS("BLASgemm", BLASgemm_("N", "T", &blasn, &blasn, &ione, &factor, &mfqP->Fdiff[blasn *… in pounders_update_res()
211 … PetscCallBLAS("BLASaxpy", BLASaxpy_(&blasn2, &factor, &mfqP->H[row], &blasm, mfqP->Hres, &ione)); in pounders_update_res()
215 … PetscCallBLAS("BLASaxpy", BLASaxpy_(&blasn2, &factor, &mfqP->H[col], &blasm, mfqP->Hres, &ione)); in pounders_update_res()
[all …]
/petsc/src/ksp/ksp/impls/bcgsl/ !
H A Dbcgsl.c164 PetscBLASInt ione = 1, bell; in KSPSolve_BCGSL() local
201 …PetscCallBLAS("LAPACKpotrs", LAPACKpotrs_("Lower", &bell, &ione, &MZa[1 + ldMZ], &ldMZ, &AY0c[1], … in KSPSolve_BCGSL()
204 PetscBLASInt ione = 1; in KSPSolve_BCGSL() local
215 …PetscCallBLAS("LAPACKpotrs", LAPACKpotrs_("Lower", &neqs, &ione, &MZa[1 + ldMZ], &ldMZ, &AY0c[1], … in KSPSolve_BCGSL()
220 …PetscCallBLAS("LAPACKpotrs", LAPACKpotrs_("Lower", &neqs, &ione, &MZa[1 + ldMZ], &ldMZ, &AYlc[1], … in KSPSolve_BCGSL()
225 …("BLASgemv", BLASgemv_("NoTr", &ldMZ, &ldMZ, &aone, MZb, &ldMZ, AY0c, &ione, &azero, AYtc, &ione)); in KSPSolve_BCGSL()
227 kappa0 = PetscRealPart(BLASdot_(&ldMZ, AY0c, &ione, AYtc, &ione)); in KSPSolve_BCGSL()
233 kappaA = PetscRealPart(BLASdot_(&ldMZ, AYlc, &ione, AYtc, &ione)); in KSPSolve_BCGSL()
235 …("BLASgemv", BLASgemv_("noTr", &ldMZ, &ldMZ, &aone, MZb, &ldMZ, AYlc, &ione, &azero, AYtc, &ione)); in KSPSolve_BCGSL()
237 kappa1 = PetscRealPart(BLASdot_(&ldMZ, AYlc, &ione, AYtc, &ione)); in KSPSolve_BCGSL()
/petsc/src/ksp/pc/tests/ !
H A Dex9f.F9016 PetscInt ione, izero, nksp
116 ione = 1
117 PetscCallA(ISCreateStride(PETSC_COMM_SELF, n, izero, ione, isin, ierr))
/petsc/src/binding/petsc4py/demo/legacy/wrap-f2py/ !
H A DBratu2D.F90134 PetscInt ione, ifive
137 ione = 1
155 PetscCall(MatSetValuesLocal(Jac, ione, row, ione, col, v, INSERT_VALUES, ierr))
168 PetscCall(MatSetValuesLocal(Jac, ione, row, ifive, col, v, INSERT_VALUES, ierr))
/petsc/src/ksp/ksp/utils/lmvm/symbrdn/ !
H A Dsymbrdn.c256 PetscBLASInt ione = 1; in SymBroydenCompactDenseUpdateArrays() local
299 …etscCallBLAS("BLASgemv", BLASgemv_("N", &m, &m, &sone, M00, &lda00, q0, &ione, &szero, p0, &ione)); in SymBroydenCompactDenseUpdateArrays()
300 …PetscCallBLAS("BLASgemv", BLASgemv_("N", &m, &m, &sone, M01, &lda01, q1, &ione, &sone, p0, &ione)); in SymBroydenCompactDenseUpdateArrays()
301 …etscCallBLAS("BLASgemv", BLASgemv_("C", &m, &m, &sone, M01, &lda01, q0, &ione, &szero, p1, &ione)); in SymBroydenCompactDenseUpdateArrays()
302 …PetscCallBLAS("BLASgemv", BLASgemv_("N", &m, &m, &sone, M11, &lda11, q1, &ione, &sone, p1, &ione)); in SymBroydenCompactDenseUpdateArrays()
305 PetscCallBLAS("BLASdot", qp = BLASdot_(&m, q0, &ione, p0, &ione)); in SymBroydenCompactDenseUpdateArrays()
306 PetscCallBLAS("BLASdot", qp += BLASdot_(&m, q1, &ione, p1, &ione)); in SymBroydenCompactDenseUpdateArrays()
321 PetscCallBLAS("LAPACKgerc", LAPACKgerc_(&m, &m, &alpha, p0, &ione, p0, &ione, M00, &lda00)); in SymBroydenCompactDenseUpdateArrays()
326 PetscCallBLAS("LAPACKgerc", LAPACKgerc_(&m, &m, &alpha, p0, &ione, p1, &ione, M01, &lda01)); in SymBroydenCompactDenseUpdateArrays()
331 PetscCallBLAS("LAPACKgerc", LAPACKgerc_(&m, &m, &alpha, p1, &ione, p1, &ione, M11, &lda11)); in SymBroydenCompactDenseUpdateArrays()
/petsc/src/ksp/ksp/guess/impls/pod/ !
H A Dpod.c143 PetscBLASInt bN, ione = 1, bNen, lierr; in KSPGuessFormGuess_POD() local
159 …n, &one, pod->eigv + pod->st * pod->n, &bN, pod->swork + pod->n, &ione, &zero, pod->swork, &ione)); in KSPGuessFormGuess_POD()
192 …PetscCallBLAS("LAPACKgetrs", LAPACKgetrs_(tsolve ? "T" : "N", &bNen, &ione, pod->low, &bNen, pod->… in KSPGuessFormGuess_POD()
196 …n, &one, pod->eigv + pod->st * pod->n, &bN, pod->swork, &ione, &zero, pod->swork + pod->n, &ione)); in KSPGuessFormGuess_POD()
378 PetscBLASInt bNen, ione = 1; in KSPGuessUpdate_POD() local
383 …e, pod->eigv + pod->st * pod->n, &bN, pod->corr + pod->maxn * i, &ione, &zero, pod->swork, &ione)); in KSPGuessUpdate_POD()
384 …n, &one, pod->eigv + pod->st * pod->n, &bN, pod->swork, &ione, &zero, pod->swork + pod->n, &ione)); in KSPGuessUpdate_POD()
/petsc/src/vec/vec/impls/seq/ !
H A Ddvec2.c554 …PetscBLASInt ione = 1, lda2 = (PetscBLASInt)lda; // the cast is safe since we've screened out thos… in VecMultiDot_Seq_GEMV() local
557 …LAS("BLASgemv", BLASgemv_(trans, &n, &m, &one, yarray, &lda2, xarray, &ione, &zero, z + i, &ione)); in VecMultiDot_Seq_GEMV()