Home
last modified time | relevance | path

Searched refs:i1 (Results 1 – 25 of 48) sorted by relevance

12

/petsc/src/mat/tests/
H A Dex241f.F9012 PetscInt :: istart, iend, row, i1, i0
21 i1 = 1
27 PetscCallA(MatSeqAIJSetPreallocation(L, i1, PETSC_NULL_INTEGER_ARRAY, ierr))
28 …PetscCallA(MatMPIAIJSetPreallocation(L, i1, PETSC_NULL_INTEGER_ARRAY, i0, PETSC_NULL_INTEGER_ARRAY…
39 PetscCallA(MatSetValues(L, i1, rows, i1, cols, vals, ADD_VALUES, ierr))
57 PetscCallA(MatSetValues(L, i1, rows, i1, cols, vals, ADD_VALUES, ierr))
60 PetscCallA(MatSetValues(L, i1, rows, i1, cols, vals, ADD_VALUES, ierr))
H A Dex266.c19 …PetscInt i1[] = {8, 5, 15, 16, 6, 13, 4, 17, 8, 9, 9, 10, -6, 12, 7, 3, -4, 1, 1, 2, 5, 5, 6, 1… in main() local
32 {i1, j1, PETSC_STATIC_ARRAY_LENGTH(i1)}, in main()
H A Dex90.c48 PetscInt i1[] = {0, 3, 5}, i2[] = {0, 2, 5}; in main() local
63 …PetscCall(MatCreateMPIAIJWithArrays(comm, 2, 2, PETSC_DETERMINE, PETSC_DETERMINE, rank ? i2 : i1, … in main()
/petsc/src/vec/is/is/utils/
H A Disdiff.c35 const PetscInt *i1, *i2; in ISDifference() local
48 PetscCall(ISGetIndices(is1, &i1)); in ISDifference()
56 if (i1[i] < 0) continue; in ISDifference()
57 imin = PetscMin(imin, i1[i]); in ISDifference()
58 imax = PetscMax(imax, i1[i]); in ISDifference()
65 if (i1[i] < 0) continue; in ISDifference()
66 PetscCall(PetscBTSet(mask, i1[i] - imin)); in ISDifference()
68 PetscCall(ISRestoreIndices(is1, &i1)); in ISDifference()
123 const PetscInt *i1, *i2; in ISSum() local
142 PetscCall(ISGetIndices(is1, &i1)); in ISSum()
[all …]
/petsc/src/ksp/ksp/tutorials/
H A Dex15f.F90133 PetscInt Iend, m, n, i1, its, five
144 i1 = 1
189 PetscCallA(MatSetValues(A, i1, [II], i1, [JJ], [v], ADD_VALUES, ierr))
193 PetscCallA(MatSetValues(A, i1, [II], i1, [JJ], [v], ADD_VALUES, ierr))
197 PetscCallA(MatSetValues(A, i1, [II], i1, [JJ], [v], ADD_VALUES, ierr))
201 PetscCallA(MatSetValues(A, i1, [II], i1, [JJ], [v], ADD_VALUES, ierr))
204 PetscCallA(MatSetValues(A, i1, [II], i1, [II], [v], ADD_VALUES, ierr))
225 …PetscCallA(VecCreateFromOptions(PETSC_COMM_WORLD, PETSC_NULL_CHARACTER, i1, PETSC_DECIDE, m*n, u, …
H A Dex52f.F9020 PetscInt Iend, m, n, i1, its, five
36 i1 = 1
70 PetscCallA(MatSetValues(A, i1, [II], i1, [JJ], [v], ADD_VALUES, ierr))
74 PetscCallA(MatSetValues(A, i1, [II], i1, [JJ], [v], ADD_VALUES, ierr))
78 PetscCallA(MatSetValues(A, i1, [II], i1, [JJ], [v], ADD_VALUES, ierr))
82 PetscCallA(MatSetValues(A, i1, [II], i1, [JJ], [v], ADD_VALUES, ierr))
85 PetscCallA(MatSetValues(A, i1, [II], i1, [II], [v], ADD_VALUES, ierr))
93 …PetscCallA(VecCreateFromOptions(PETSC_COMM_WORLD, PETSC_NULL_CHARACTER, i1, PETSC_DECIDE, m*n, u, …
H A Dex22f.F9043 PetscInt ym, zm, xs, ys, zs, i1, i7
49 i1 = 1
70 PetscCall(MatSetValuesStencil(jac, i1, row, i1, row, v, INSERT_VALUES, ierr))
100 PetscCall(MatSetValuesStencil(jac, i1, row, i7, col, v, INSERT_VALUES, ierr))
119 PetscInt i1, i3
125 i1 = 1
127 …DMDA_STENCIL_STAR, i3, i3, i3, PETSC_DECIDE, PETSC_DECIDE, PETSC_DECIDE, i1, i1, PETSC_NULL_INTEGE…
H A Dex1f.F9053 PetscInt i, n, col(3), its, i1, i2, i3
70 i1 = 1
102 PetscCallA(MatSetValues(A, i1, [i], i3, col, value, INSERT_VALUES, ierr))
107 PetscCallA(MatSetValues(A, i1, [i], i2, col, value, INSERT_VALUES, ierr))
113 PetscCallA(MatSetValues(A, i1, [i], i2, col, value, INSERT_VALUES, ierr))
H A Dex45f.F9050 PetscInt ym, xs, ys, i1, i5
55 i1 = 1
71 PetscCall(MatSetValuesStencil(B, i1, row, i1, row, v, INSERT_VALUES, ierr))
88 PetscCall(MatSetValuesStencil(B, i1, row, i5, col, v, INSERT_VALUES, ierr))
H A Dex51.c265 PetscInt i1, j1, i2, j2; in Form2DElementMass() local
272 for (i1 = 0; i1 < (P + 1); ++i1) { in Form2DElementMass()
273 indx1 = j1 * (P + 1) + i1; in Form2DElementMass()
275 indx3 = (j2 * (P + 1) + j1) * (P + 1) * (P + 1) + (i2 * (P + 1) + i1); in Form2DElementMass()
289 PetscInt i1, j1, i2, j2; in Form2DElementStiffness() local
296 for (i1 = 0; i1 < (P + 1); ++i1) { in Form2DElementStiffness()
297 indx1 = j1 * (P + 1) + i1; in Form2DElementStiffness()
299 indx3 = (j2 * (P + 1) + j1) * (P + 1) * (P + 1) + (i2 * (P + 1) + i1); in Form2DElementStiffness()
/petsc/src/snes/tests/
H A Dex12f.F90144 PetscInt i, j, n, end, start, i1
150 i1 = 1
162 PetscCall(MatSetValues(jac, i1, [start], i1, [start], [A], INSERT_VALUES, ierr))
170 PetscCall(MatSetValues(jac, i1, [i], i1, [i], [A], INSERT_VALUES, ierr))
178 PetscCall(MatSetValues(jac, i1, [ii], i1, [j], [d], INSERT_VALUES, ierr))
180 PetscCall(MatSetValues(jac, i1, [ii], i1, [j], [d], INSERT_VALUES, ierr))
182 PetscCall(MatSetValues(jac, i1, [ii], i1, [ii], [A], INSERT_VALUES, ierr))
198 PetscInt ii, its, i1, i0, i3
208 i1 = 1
221 …PetscCallA(DMDACreate1d(PETSC_COMM_WORLD, DM_BOUNDARY_NONE, N, i1, i1, PETSC_NULL_INTEGER_ARRAY, c…
[all …]
/petsc/src/mat/impls/aij/seq/
H A Dinode.c57 PetscInt *tns, *tvc, *ns_row = a->inode.size_csr, *ns_col, nsz, i1, i2; in MatGetRowIJ_SeqAIJ_Inode_Symmetric() local
73 …for (i1 = 0, tns[0] = 0; i1 < nslim_col; ++i1) tns[i1 + 1] = tns[i1] + (ns_row[i1 + 1] - ns_row[i1… in MatGetRowIJ_SeqAIJ_Inode_Symmetric()
75 for (i1 = 0, col = 0; i1 < nslim_col; ++i1) { in MatGetRowIJ_SeqAIJ_Inode_Symmetric()
76 nsz = ns_col[i1 + 1] - ns_col[i1]; in MatGetRowIJ_SeqAIJ_Inode_Symmetric()
77 for (i2 = 0; i2 < nsz; ++i2, ++col) tvc[col] = i1; in MatGetRowIJ_SeqAIJ_Inode_Symmetric()
86 for (i1 = 0; i1 < nslim_row; i1++) { in MatGetRowIJ_SeqAIJ_Inode_Symmetric()
87 row = ns_row[i1]; in MatGetRowIJ_SeqAIJ_Inode_Symmetric()
93 while (i2 < i1 && j < jmax) { /* 1.[-xx-d-xx--] 2.[-xx-------],off-diagonal elements */ in MatGetRowIJ_SeqAIJ_Inode_Symmetric()
94 ia[i1 + 1]++; in MatGetRowIJ_SeqAIJ_Inode_Symmetric()
100 if (i2 == i1) ia[i2 + 1]++; /* now the diagonal element */ in MatGetRowIJ_SeqAIJ_Inode_Symmetric()
[all …]
/petsc/src/tao/unconstrained/tutorials/
H A Deptorsion2f.F9059 PetscInt i1
61 i1 = 1
77 PetscCall(VecSetValuesLocal(X, i1, [k], [val], ADD_VALUES, ierr))
125 PetscInt i1
127 i1 = 1
191 PetscCall(VecSetValuesLocal(G, i1, [k], [val], ADD_VALUES, ierr))
196 PetscCall(VecSetValuesLocal(G, i1, [ind], [val], ADD_VALUES, ierr))
201 PetscCall(VecSetValuesLocal(G, i1, [ind], [val], ADD_VALUES, ierr))
224 PetscCall(VecSetValuesLocal(G, i1, [ind], [val], ADD_VALUES, ierr))
229 PetscCall(VecSetValuesLocal(G, i1, [ind], [val], ADD_VALUES, ierr))
[all …]
/petsc/src/mat/impls/aij/seq/bas/
H A Dspbas.c144 static int spbas_row_order_icol(PetscInt i1, PetscInt i2, PetscInt *irow_in, PetscInt *icol_in, Pet… in spbas_row_order_icol() argument
147 PetscInt nnz1 = irow_in[i1 + 1] - irow_in[i1]; in spbas_row_order_icol()
149 PetscInt *icol1 = &icol_in[irow_in[i1]]; in spbas_row_order_icol()
162 if (icol1[j] - i1 < icol2[j] - i2) return -1; in spbas_row_order_icol()
163 if (icol1[j] - i1 > icol2[j] - i2) return 1; in spbas_row_order_icol()
182 PetscInt i, i1, i2; /* Loop counters for (partly) sorted arrays */ in spbas_mergesort_icols() local
208 i1 = istart; in spbas_mergesort_icols()
209 i1end = i1 + istep; in spbas_mergesort_icols()
217 …if (i1 < i1end && i2 < i2end && spbas_row_order_icol(ihlp2[i1], ihlp2[i2], irow_in, icol_in, col_i… in spbas_mergesort_icols()
218 ihlp1[i] = ihlp2[i1]; in spbas_mergesort_icols()
[all …]
/petsc/src/snes/tutorials/
H A Dex5f.F90256 PetscInt row, col(5), i, j, i1, i5
262 i1 = 1
296 call MatSetValuesLocal(jac, i1, [row], i1, [col], [v], INSERT_VALUES, ierr)
310 call MatSetValuesLocal(jac, i1, [row], i5, [col], [v], INSERT_VALUES, ierr)
366 PetscInt its, i1, i4
384 i1 = 1
423 i1, i1, PETSC_NULL_INTEGER_ARRAY, PETSC_NULL_INTEGER_ARRAY, da, ierr)
/petsc/src/ksp/pc/tests/
H A Dex9f.F9015 PetscInt i, n, col(3), its, i1, i2, i3
34 i1 = 1
63 PetscCallA(MatSetValues(A, i1, [i], i3, col, value, INSERT_VALUES, ierr))
68 PetscCallA(MatSetValues(A, i1, [i], i2, col, value, INSERT_VALUES, ierr))
74 PetscCallA(MatSetValues(A, i1, [i], i2, col, value, INSERT_VALUES, ierr))
/petsc/src/vec/is/sf/tests/
H A Dex1f.F909 PetscInt nlocal, row, i1
19 i1 = 1
20 …PetscCallA(VecCreateFromOptions(PETSC_COMM_WORLD, PETSC_NULL_CHARACTER, i1, nlocal, PETSC_DECIDE, …
/petsc/src/vec/vec/tests/
H A Dex30f.F9011 PetscInt nlocal, n, row, i1
32 i1 = 1
33 …PetscCallA(VecCreateFromOptions(PETSC_COMM_WORLD, PETSC_NULL_CHARACTER, i1, nlocal2, n2, v1, ierr))
34 PetscCallA(VecCreateFromOptions(PETSC_COMM_WORLD, PETSC_NULL_CHARACTER, i1, nlocal, n, v2, ierr))
H A Dex61.c15 …PetscInt i1[] = {8, 5, 15, 16, 6, 13, 4, 17, 8, 9, 9, 10, 6, 12, 7, 3, 4, 1, 1, 2, 5, 5, 6, 14, 17… in main() local
23 {i1, PETSC_STATIC_ARRAY_LENGTH(i1)}, in main()
/petsc/src/ksp/ksp/tests/
H A Dex71f.F908 PetscInt :: M, M2, NSubx, dof, overlap, NSub, i1
21 i1 = 1
22 …PetscCallA(MatCreateFromOptions(PETSC_COMM_WORLD, PETSC_NULL_CHARACTER, i1, PETSC_DECIDE, PETSC_DE…
H A Dex15.c10 PetscInt i, n = 10, col[3], its, i1, i2; in main() local
27 PetscCall(VecGetOwnershipRange(u, &i1, &i2)); in main()
28 for (i = i1; i < i2; i++) { in main()
/petsc/src/dm/impls/plex/tests/
H A Dex2f90.F9015 PetscInt i0, i1, i2, i3, i6, i7
20 i1 = 1
43 PetscCallA(DMPlexSetConeSize(dm, i1, i3, ierr))
62 PetscCallA(DMPlexSetCone(dm, i1, pEC, ierr))
/petsc/src/ksp/pc/impls/tfs/
H A Dxxt.c189 PetscBLASInt i1 = 1, dlen; in xxt_generate() local
293 PetscCallBLAS("BLASdot", uu[k] = BLASdot_(&dlen, u + off, &i1, x_ptr, &i1)); in xxt_generate()
308 PetscCallBLAS("BLASaxpy", BLASaxpy_(&dlen, &uu[k], x_ptr, &i1, z + off, &i1)); in xxt_generate()
315 PetscCallBLAS("BLASaxpy", BLASaxpy_(&dlen, &dm1, z, &i1, v, &i1)); in xxt_generate()
324 PetscCallBLAS("BLASdot", alpha = BLASdot_(&dlen, u, &i1, v, &i1)); in xxt_generate()
419 PetscBLASInt i1 = 1, dlen; in do_xxt_solve() local
431 PetscCallBLAS("BLASdot", *uu_ptr++ = BLASdot_(&dlen, uc + off, &i1, x_ptr, &i1)); in do_xxt_solve()
445 PetscCallBLAS("BLASaxpy", BLASaxpy_(&dlen, uu_ptr++, x_ptr, &i1, uc + off, &i1)); in do_xxt_solve()
H A Dxyt.c245 PetscBLASInt i1 = 1, dlen; in xyt_generate() local
362 PetscCallBLAS("BLASdot", uu[k] = BLASdot_(&dlen, u + off, &i1, y_ptr, &i1)); in xyt_generate()
377 PetscCallBLAS("BLASaxpy", BLASaxpy_(&dlen, &uu[k], x_ptr, &i1, z + off, &i1)); in xyt_generate()
384 PetscCallBLAS("BLASaxpy", BLASaxpy_(&dlen, &dm1, z, &i1, v, &i1)); in xyt_generate()
393 PetscCallBLAS("BLASdot", alpha = BLASdot_(&dlen, u, &i1, u, &i1)); in xyt_generate()
530 PetscBLASInt i1 = 1, dlen; in do_xyt_solve() local
542 PetscCallBLAS("BLASdot", *uu_ptr++ = BLASdot_(&dlen, uc + off, &i1, y_ptr, &i1)); in do_xyt_solve()
555 PetscCallBLAS("BLASaxpy", BLASaxpy_(&dlen, uu_ptr++, x_ptr, &i1, uc + off, &i1)); in do_xyt_solve()
/petsc/src/ts/tutorials/
H A Dex1f.F9089 PetscInt col(5), i1, i5
97 i1 = 1
121 PetscCall(MatSetValues(jac, i1, [row], i1, [row], [one], INSERT_VALUES, ierr))
133 PetscCall(MatSetValues(jac, i1, [row], i5, col, v, INSERT_VALUES, ierr))

12