Home
last modified time | relevance | path

Searched refs:II (Results 1 – 25 of 35) sorted by relevance

12

/petsc/src/ksp/ksp/tests/
H A Dex33.c15 PetscInt N, n = 10, m, Istart, Iend, II, J, i, j; in main() local
56 for (II = Istart; II < Iend; II++) { in main()
58 i = II / n; in main()
59 j = II - i * n; in main()
61 J = II - n; in main()
62 PetscCall(MatSetValues(A, 1, &II, 1, &J, &v, INSERT_VALUES)); in main()
65 J = II + n; in main()
66 PetscCall(MatSetValues(A, 1, &II, 1, &J, &v, INSERT_VALUES)); in main()
69 J = II - 1; in main()
70 PetscCall(MatSetValues(A, 1, &II, 1, &J, &v, INSERT_VALUES)); in main()
[all …]
H A Dex62f.F90118 PetscInt i, j, II, JJ, Istart
167 do II = Istart, Iend - 1
169 i = II/n
170 j = II - i*n
172 JJ = II - n
173 PetscCallA(MatSetValues(A, ione, [II], ione, [JJ], [v], ADD_VALUES, ierr))
176 JJ = II + n
177 PetscCallA(MatSetValues(A, ione, [II], ione, [JJ], [v], ADD_VALUES, ierr))
180 JJ = II - 1
181 PetscCallA(MatSetValues(A, ione, [II], ione, [JJ], [v], ADD_VALUES, ierr))
[all …]
/petsc/src/mat/tests/
H A Dex71.c7 PetscInt m = 4, n = 5, i, j, II, J; in main() local
25 II = j + n * i; in main()
27 J = II - n; in main()
28 PetscCall(MatSetValues(A, 1, &II, 1, &J, &v, INSERT_VALUES)); in main()
31 J = II + n; in main()
32 PetscCall(MatSetValues(A, 1, &II, 1, &J, &v, INSERT_VALUES)); in main()
35 J = II - 1; in main()
36 PetscCall(MatSetValues(A, 1, &II, 1, &J, &v, INSERT_VALUES)); in main()
39 J = II + 1; in main()
40 PetscCall(MatSetValues(A, 1, &II, 1, &J, &v, INSERT_VALUES)); in main()
[all …]
H A Dex126f.F9012 PetscInt i, j, II, JJ, m
42 do II = Istart, Iend - 1
44 i = II/m
45 j = II - i*m
47 JJ = II - m
48 PetscCallA(MatSetValues(A, ione, [II], ione, [JJ], [v], INSERT_VALUES, ierr))
51 JJ = II + m
52 PetscCallA(MatSetValues(A, ione, [II], ione, [JJ], [v], INSERT_VALUES, ierr))
55 JJ = II - 1
56 PetscCallA(MatSetValues(A, ione, [II], ione, [JJ], [v], INSERT_VALUES, ierr))
[all …]
/petsc/src/ksp/ksp/tutorials/
H A Dex6f.F9023 PetscInt i, j, II, JJ, m, n
60 do II = Istart, Iend - 1
62 i = II/n
63 j = II - i*n
65 JJ = II - n
66 PetscCallA(MatSetValues(A, one, [II], one, [JJ], [v], ADD_VALUES, ierr))
69 JJ = II + n
70 PetscCallA(MatSetValues(A, one, [II], one, [JJ], [v], ADD_VALUES, ierr))
73 JJ = II - 1
74 PetscCallA(MatSetValues(A, one, [II], one, [JJ], [v], ADD_VALUES, ierr))
[all …]
H A Dex13f90.F9086 PetscInt i, j, II, JJ
109 II = 0
113 JJ = II - m
114 v = -0.5*(rho(II + 1) + rho(JJ + 1))*hy2
115 PetscCall(MatSetValues(A, one, [II], one, [JJ], [v], INSERT_VALUES, ierr))
118 JJ = II + m
119 v = -0.5*(rho(II + 1) + rho(JJ + 1))*hy2
120 PetscCall(MatSetValues(A, one, [II], one, [JJ], [v], INSERT_VALUES, ierr))
123 JJ = II - 1
124 v = -0.5*(rho(II + 1) + rho(JJ + 1))*hx2
[all …]
H A Dex11f.F9046 PetscInt Iend, i, j, II, JJ, one
107 do II = Istart, Iend - 1
109 i = II/n
110 j = II - i*n
112 JJ = II - n
113 PetscCallA(MatSetValues(A, one, [II], one, [JJ], [v], ADD_VALUES, ierr))
116 JJ = II + n
117 PetscCallA(MatSetValues(A, one, [II], one, [JJ], [v], ADD_VALUES, ierr))
120 JJ = II - 1
121 PetscCallA(MatSetValues(A, one, [II], one, [JJ], [v], ADD_VALUES, ierr))
[all …]
H A Dex52f.F9019 PetscInt i, j, II, JJ, Istart
64 do II = Istart, Iend - 1
66 i = II/n
67 j = II - i*n
69 JJ = II - n
70 PetscCallA(MatSetValues(A, i1, [II], i1, [JJ], [v], ADD_VALUES, ierr))
73 JJ = II + n
74 PetscCallA(MatSetValues(A, i1, [II], i1, [JJ], [v], ADD_VALUES, ierr))
77 JJ = II - 1
78 PetscCallA(MatSetValues(A, i1, [II], i1, [JJ], [v], ADD_VALUES, ierr))
[all …]
H A Dex15f.F90132 PetscInt i, j, II, JJ, Istart
183 do II = Istart, Iend - 1
185 i = II/n
186 j = II - i*n
188 JJ = II - n
189 PetscCallA(MatSetValues(A, i1, [II], i1, [JJ], [v], ADD_VALUES, ierr))
192 JJ = II + n
193 PetscCallA(MatSetValues(A, i1, [II], i1, [JJ], [v], ADD_VALUES, ierr))
196 JJ = II - 1
197 PetscCallA(MatSetValues(A, i1, [II], i1, [JJ], [v], ADD_VALUES, ierr))
[all …]
H A Dex57f.F90114 PetscInt i, j, II, JJ, m, n, its
181 do II = Istart, Iend - 1
183 i = II/n
184 j = II - i*n
186 JJ = II - n
187 PetscCallA(MatSetValues(A, ione, [II], ione, [JJ], [v], INSERT_VALUES, ierr))
190 JJ = II + n
191 PetscCallA(MatSetValues(A, ione, [II], ione, [JJ], [v], INSERT_VALUES, ierr))
194 JJ = II - 1
195 PetscCallA(MatSetValues(A, ione, [II], ione, [JJ], [v], INSERT_VALUES, ierr))
[all …]
H A Dex4.c19 PetscInt i, j, Ii, J, Istart, Iend, m = 8, n = 7, its, bs = 1, II, JJ, jj; in main() local
52 II = Ii * bs + jj; in main()
54 PetscCall(MatSetValues(A, 1, &II, 1, &JJ, &v, ADD_VALUES)); in main()
60 II = Ii * bs + jj; in main()
62 PetscCall(MatSetValues(A, 1, &II, 1, &JJ, &v, ADD_VALUES)); in main()
68 II = Ii * bs + jj; in main()
70 PetscCall(MatSetValues(A, 1, &II, 1, &JJ, &v, ADD_VALUES)); in main()
76 II = Ii * bs + jj; in main()
78 PetscCall(MatSetValues(A, 1, &II, 1, &JJ, &v, ADD_VALUES)); in main()
83 II = Ii * bs + jj; in main()
[all …]
H A Dex2f.F90108 PetscInt i, j, II, JJ, m, n, its
183 do II = Istart, Iend - 1
185 i = II/n
186 j = II - i*n
188 JJ = II - n
189 PetscCallA(MatSetValues(A, ione, [II], ione, [JJ], [v], INSERT_VALUES, ierr))
192 JJ = II + n
193 PetscCallA(MatSetValues(A, ione, [II], ione, [JJ], [v], INSERT_VALUES, ierr))
196 JJ = II - 1
197 PetscCallA(MatSetValues(A, ione, [II], ione, [JJ], [v], INSERT_VALUES, ierr))
[all …]
H A Dex42.c87 PetscErrorCode CellPropertiesGetCell(CellProperties C, PetscInt II, PetscInt J, PetscInt K, GaussPo… in CellPropertiesGetCell() argument
90 *G = &C->gpc[(II - C->sex) + (J - C->sey) * C->mx + (K - C->sez) * C->mx * C->my]; in CellPropertiesGetCell()
562 PetscInt n, II, J, K; in DMDASetValuesLocalStencil3D_ADD_VALUES() local
566 II = u_eqn[NSD * n].i; in DMDASetValuesLocalStencil3D_ADD_VALUES()
570 fields_F[K][J][II].u_dof = fields_F[K][J][II].u_dof + Fe_u[NSD * n]; in DMDASetValuesLocalStencil3D_ADD_VALUES()
572 II = u_eqn[NSD * n + 1].i; in DMDASetValuesLocalStencil3D_ADD_VALUES()
576 fields_F[K][J][II].v_dof = fields_F[K][J][II].v_dof + Fe_u[NSD * n + 1]; in DMDASetValuesLocalStencil3D_ADD_VALUES()
578 II = u_eqn[NSD * n + 2].i; in DMDASetValuesLocalStencil3D_ADD_VALUES()
581 fields_F[K][J][II].w_dof = fields_F[K][J][II].w_dof + Fe_u[NSD * n + 2]; in DMDASetValuesLocalStencil3D_ADD_VALUES()
583 II = p_eqn[n].i; in DMDASetValuesLocalStencil3D_ADD_VALUES()
[all …]
/petsc/src/ksp/pc/tests/
H A Dex8f.F9085 do II = Istart, Iend - 1
87 i = II/n
88 j = II - i*n
90 JJ = II - n
91 PetscCallA(MatSetValues(A, one, [II], one, [JJ], [v], ADD_VALUES, ierr))
94 JJ = II + n
95 PetscCallA(MatSetValues(A, one, [II], one, [JJ], [v], ADD_VALUES, ierr))
98 JJ = II - 1
99 PetscCallA(MatSetValues(A, one, [II], one, [JJ], [v], ADD_VALUES, ierr))
102 JJ = II + 1
[all …]
/petsc/src/ksp/pc/impls/mat/tests/
H A Dex1.c83 Mat A, AT, AH, II, Ainv, AinvT; in main() local
125 PetscCall(MatDuplicate(A, MAT_DO_NOT_COPY_VALUES, &II)); in main()
127 PetscCall(MatZeroEntries(II)); in main()
128 PetscCall(MatShift(II, 1.0)); in main()
130 PetscCall(MatMatSolve(A, II, Ainv)); in main()
140 PetscCall(MatDestroy(&II)); in main()
/petsc/src/dm/tests/
H A Dex36.c315 Mat II, INTERP; in da_test_RefineCoords1D() local
341 PetscCall(DMCreateInterpolation(cdac, cdaf, &II, &scale)); in da_test_RefineCoords1D()
342 PetscCall(MatInterpolate(II, coordsc, coordsf)); in da_test_RefineCoords1D()
343 PetscCall(MatDestroy(&II)); in da_test_RefineCoords1D()
395 Mat II, INTERP; in da_test_RefineCoords2D() local
427 PetscCall(DMCreateInterpolation(cdac, cdaf, &II, &scale)); in da_test_RefineCoords2D()
428 PetscCall(MatInterpolate(II, coordsc, coordsf)); in da_test_RefineCoords2D()
429 PetscCall(MatDestroy(&II)); in da_test_RefineCoords2D()
481 Mat II, INTERP; in da_test_RefineCoords3D() local
517 PetscCall(DMCreateInterpolation(cdac, cdaf, &II, &scale)); in da_test_RefineCoords3D()
[all …]
/petsc/src/dm/impls/da/
H A Ddasub.c33 …alCoordinate(DM da, PetscScalar x, PetscScalar y, PetscScalar z, PetscInt *II, PetscInt *JJ, Petsc… in DMDAGetLogicalCoordinate() argument
46 *II = -1; in DMDAGetLogicalCoordinate()
58 *II = i; in DMDAGetLogicalCoordinate()
65 *II = -1; in DMDAGetLogicalCoordinate()
69 *X = c[*JJ][*II].x; in DMDAGetLogicalCoordinate()
70 *Y = c[*JJ][*II].y; in DMDAGetLogicalCoordinate()
/petsc/src/ksp/pc/impls/wb/
H A Dwb.c19 …nt, Nface, Nwire, Nsurf, *Iint, *Isurf, cint = 0, csurf = 0, istart, jstart, kstart, *II, N, c = 0; in DMDAGetWireBasketInterpolation() local
139 PetscCall(PetscMalloc3(N, &II, Nint, &Iint, Nsurf, &Isurf)); in DMDAGetWireBasketInterpolation()
144 II[c++] = i + j * mwidth + k * mwidth * nwidth; in DMDAGetWireBasketInterpolation()
161 PetscCall(ISLocalToGlobalMappingApply(ltg, N, II, II)); in DMDAGetWireBasketInterpolation()
165 PetscCall(ISCreateGeneral(comm, N, II, PETSC_COPY_VALUES, &is)); in DMDAGetWireBasketInterpolation()
168 PetscCall(PetscFree3(II, Iint, Isurf)); in DMDAGetWireBasketInterpolation()
367 …nt, Nface, Nwire, Nsurf, *Iint, *Isurf, cint = 0, csurf = 0, istart, jstart, kstart, *II, N, c = 0; in DMDAGetFaceInterpolation() local
459 PetscCall(PetscMalloc3(N, &II, Nint, &Iint, Nsurf, &Isurf)); in DMDAGetFaceInterpolation()
464 II[c++] = i + j * mwidth + k * mwidth * nwidth; in DMDAGetFaceInterpolation()
481 PetscCall(ISLocalToGlobalMappingApply(ltg, N, II, II)); in DMDAGetFaceInterpolation()
[all …]
/petsc/src/sys/tutorials/output/
H A Dex2f_1.out3 0 Synchronized Hello World - Part II
H A Dex2_1.out3 [0] Synchronized Hello World - Part II.
/petsc/src/ts/tests/
H A Dex13.c26 PetscInt II[10] = {1, 4, 9, 2, 3, 6, 5, 8, 0, 7}; in main() local
54 if (sort) PetscCall(PetscSortInt(10, II)); in main()
60 PetscCall(TSSetStepNumber(ts, II[i])); in main()
61 PetscCall(TSTrajectorySet(tj, ts, II[i], TT[i], W)); in main()
/petsc/src/mat/interface/ftn-custom/
H A Dzmatrixf90.c57 const PetscInt *II = NULL; in matgetrow_() local
65 *ierr = MatGetRow(*B, *row, &n, &II, NULL); in matgetrow_()
67 *ierr = MatGetRow(*B, *row, &n, &II, &A); in matgetrow_()
70 if (II) *ierr = F90Array1dCreate((void *)II, MPIU_INT, 1, n, ia PETSC_F90_2PTR_PARAM(iad)); in matgetrow_()
/petsc/src/ksp/ksp/impls/fetidp/
H A Dfetidp.c589 IS lP = NULL, II, pII, lPall, Pall, is1, is2; in KSPFETIDPSetUpOperators() local
609 PetscCall(ISCreateGeneral(PETSC_COMM_SELF, j, count, PETSC_OWN_POINTER, &II)); in KSPFETIDPSetUpOperators()
612 II = pcis->is_I_local; in KSPFETIDPSetUpOperators()
618 PetscCall(ISGetLocalSize(II, &ni)); in KSPFETIDPSetUpOperators()
619 PetscCall(ISGetIndices(II, &idxs)); in KSPFETIDPSetUpOperators()
621 PetscCall(ISRestoreIndices(II, &idxs)); in KSPFETIDPSetUpOperators()
680 PetscCall(ISDifference(II, lPall, &nII)); in KSPFETIDPSetUpOperators()
681 PetscCall(ISDestroy(&II)); in KSPFETIDPSetUpOperators()
682 II = nII; in KSPFETIDPSetUpOperators()
691 PetscCall(ISDifference(lPall, II, &lP)); in KSPFETIDPSetUpOperators()
[all …]
/petsc/src/mat/impls/adj/mpi/
H A Dmpiadj.c796 PetscInt M, N, *II, *J, NZ, nz, m, nzstart, i; in MatMPIAdjToSeq_MPIAdj() local
825 PetscCall(PetscMalloc1(M + 1, &II)); in MatMPIAdjToSeq_MPIAdj()
831 …PetscCallMPI(MPI_Allgatherv(adj->i, mm, MPIU_INT, II, allm, dispm, MPIU_INT, PetscObjectComm((Pets… in MatMPIAdjToSeq_MPIAdj()
833 II[M] = NZ; in MatMPIAdjToSeq_MPIAdj()
836 PetscCall(MatCreateMPIAdj(PETSC_COMM_SELF, M, N, II, J, Values, B)); in MatMPIAdjToSeq_MPIAdj()
842 PetscInt M, N, *II, *J, NZ, nz, m, nzstart, i; in MatMPIAdjToSeqRankZero_MPIAdj() local
879 PetscCall(PetscMalloc1(M + 1, &II)); in MatMPIAdjToSeqRankZero_MPIAdj()
884 …PetscCallMPI(MPI_Gatherv(adj->i, mm, MPIU_INT, II, allm, dispm, MPIU_INT, 0, PetscObjectComm((Pets… in MatMPIAdjToSeqRankZero_MPIAdj()
886 II[M] = NZ; in MatMPIAdjToSeqRankZero_MPIAdj()
893 if (!rank) PetscCall(MatCreateMPIAdj(PETSC_COMM_SELF, M, N, II, J, Values, B)); in MatMPIAdjToSeqRankZero_MPIAdj()
/petsc/src/dm/impls/stag/tests/
H A Dex18.c172 Mat II, R; in main() local
175 PetscCall(DMCreateInterpolation(dmSolc, dmSol, &II, NULL)); in main()
177 PetscCall(MatCreateSubMatrix(II, isuf, isuc, MAT_INITIAL_MATRIX, &IIu)); in main()
179 PetscCall(DMCreateInterpolationScale(dmSolc, dmSol, II, &s)); in main()
185 PetscCall(MatDestroy(&II)); in main()

12