Home
last modified time | relevance | path

Searched refs:JJ (Results 1 – 21 of 21) sorted by relevance

/petsc/src/ksp/ksp/tutorials/
H A Dex5f.F9018 PetscInt :: Ii, JJ, ldim, low, high, iglobal, Istart, Iend
83 JJ = Ii - n
84 PetscCallA(MatSetValues(C, one, [Ii], one, [JJ], [v], ADD_VALUES, ierr))
88 JJ = Ii + n
89 PetscCallA(MatSetValues(C, one, [Ii], one, [JJ], [v], ADD_VALUES, ierr))
93 JJ = Ii - 1
94 PetscCallA(MatSetValues(C, one, [Ii], one, [JJ], [v], ADD_VALUES, ierr))
98 JJ = Ii + 1
99 PetscCallA(MatSetValues(C, one, [Ii], one, [JJ], [v], ADD_VALUES, ierr))
111 JJ = Ii - n - 1
[all …]
H A Dex13f90.F9086 PetscInt i, j, II, JJ
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
125 PetscCall(MatSetValues(A, one, [II], one, [JJ], [v], INSERT_VALUES, ierr))
[all …]
H A Dex6f.F9023 PetscInt i, j, II, JJ, m, 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))
77 JJ = II + 1
78 PetscCallA(MatSetValues(A, one, [II], one, [JJ], [v], ADD_VALUES, ierr))
H A Dex11f.F9046 PetscInt Iend, i, j, II, JJ, one
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))
124 JJ = II + 1
125 PetscCallA(MatSetValues(A, one, [II], one, [JJ], [v], ADD_VALUES, ierr))
H A Dex52f.F9019 PetscInt i, j, II, JJ, Istart
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))
81 JJ = II + 1
82 PetscCallA(MatSetValues(A, i1, [II], i1, [JJ], [v], ADD_VALUES, ierr))
H A Dex7f.F9024 PetscInt :: i, j, Ii, JJ, n
66 JJ = Ii - n
67 PetscCallA(MatSetValues(A, one, [Ii], one, [JJ], [v], ADD_VALUES, ierr))
71 JJ = Ii + n
72 PetscCallA(MatSetValues(A, one, [Ii], one, [JJ], [v], ADD_VALUES, ierr))
76 JJ = Ii - 1
77 PetscCallA(MatSetValues(A, one, [Ii], one, [JJ], [v], ADD_VALUES, ierr))
81 JJ = Ii + 1
82 PetscCallA(MatSetValues(A, one, [Ii], one, [JJ], [v], ADD_VALUES, ierr))
H A Dex15f.F90132 PetscInt i, j, II, JJ, Istart
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))
200 JJ = II + 1
201 PetscCallA(MatSetValues(A, i1, [II], i1, [JJ], [v], ADD_VALUES, ierr))
H A Dex4.c19 PetscInt i, j, Ii, J, Istart, Iend, m = 8, n = 7, its, bs = 1, II, JJ, jj; in main() local
53 JJ = J * bs + jj; in main()
54 PetscCall(MatSetValues(A, 1, &II, 1, &JJ, &v, ADD_VALUES)); in main()
61 JJ = J * bs + jj; in main()
62 PetscCall(MatSetValues(A, 1, &II, 1, &JJ, &v, ADD_VALUES)); in main()
69 JJ = J * bs + jj; in main()
70 PetscCall(MatSetValues(A, 1, &II, 1, &JJ, &v, ADD_VALUES)); in main()
77 JJ = J * bs + jj; in main()
78 PetscCall(MatSetValues(A, 1, &II, 1, &JJ, &v, ADD_VALUES)); in main()
H A Dex57f.F90114 PetscInt i, j, II, JJ, m, n, its
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))
198 JJ = II + 1
199 PetscCallA(MatSetValues(A, ione, [II], ione, [JJ], [v], INSERT_VALUES, ierr))
H A Dex2f.F90108 PetscInt i, j, II, JJ, m, n, its
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))
200 JJ = II + 1
201 PetscCallA(MatSetValues(A, ione, [II], ione, [JJ], [v], INSERT_VALUES, ierr))
H A Dex34.c272 Mat JJ; in ComputeMatrix() local
274 PetscCall(MatComputeOperator(jac, MATAIJ, &JJ)); in ComputeMatrix()
276 PetscCall(MatView(JJ, PETSC_VIEWER_STDOUT_WORLD)); in ComputeMatrix()
277 PetscCall(MatDestroy(&JJ)); in ComputeMatrix()
H A Dex22f.F9036 subroutine ComputeMatrix(ksp, JJ, jac, ctx, ierr) argument
38 Mat jac, JJ
H A Dex42.c183 PetscScalar iJ[3][3], JJ[3][3]; in ShapeFunctionQ13D_Evaluate_dx() local
207 JJ[0][0] = J00; in ShapeFunctionQ13D_Evaluate_dx()
208 JJ[0][1] = J01; in ShapeFunctionQ13D_Evaluate_dx()
209 JJ[0][2] = J02; in ShapeFunctionQ13D_Evaluate_dx()
210 JJ[1][0] = J10; in ShapeFunctionQ13D_Evaluate_dx()
211 JJ[1][1] = J11; in ShapeFunctionQ13D_Evaluate_dx()
212 JJ[1][2] = J12; in ShapeFunctionQ13D_Evaluate_dx()
213 JJ[2][0] = J20; in ShapeFunctionQ13D_Evaluate_dx()
214 JJ[2][1] = J21; in ShapeFunctionQ13D_Evaluate_dx()
215 JJ[2][2] = J22; in ShapeFunctionQ13D_Evaluate_dx()
[all …]
/petsc/src/mat/tests/
H A Dex126f.F9012 PetscInt i, j, II, JJ, 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))
59 JJ = II + 1
60 PetscCallA(MatSetValues(A, ione, [II], ione, [JJ], [v], INSERT_VALUES, ierr))
/petsc/src/ksp/pc/tests/
H A Dex8f.F9090 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
103 PetscCallA(MatSetValues(A, one, [II], one, [JJ], [v], ADD_VALUES, ierr))
/petsc/src/ksp/ksp/tests/
H A Dex62f.F90118 PetscInt i, j, II, JJ, Istart
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))
184 JJ = II + 1
185 PetscCallA(MatSetValues(A, ione, [II], ione, [JJ], [v], ADD_VALUES, ierr))
/petsc/src/dm/impls/da/
H A Ddasub.c33 …M da, PetscScalar x, PetscScalar y, PetscScalar z, PetscInt *II, PetscInt *JJ, PetscInt *KK, Petsc… in DMDAGetLogicalCoordinate() argument
47 *JJ = -1; in DMDAGetLogicalCoordinate()
59 *JJ = j; in DMDAGetLogicalCoordinate()
66 *JJ = -1; in DMDAGetLogicalCoordinate()
69 *X = c[*JJ][*II].x; in DMDAGetLogicalCoordinate()
70 *Y = c[*JJ][*II].y; in DMDAGetLogicalCoordinate()
/petsc/src/ts/tutorials/
H A Dex1f.F9080 subroutine FormJacobian(ts, ctime, X, JJ, B, user, ierr) argument
84 Mat JJ, B
/petsc/src/mat/impls/sbaij/mpi/
H A Dmpisbaij.c1979 const PetscInt *JJ = NULL; in MatMPISBAIJSetPreallocationCSR_MPISBAIJ() local
2001 JJ = jj + ii[i]; in MatMPISBAIJSetPreallocationCSR_MPISBAIJ()
2004 if (*JJ >= i + rstart) break; in MatMPISBAIJSetPreallocationCSR_MPISBAIJ()
2005 JJ++; in MatMPISBAIJSetPreallocationCSR_MPISBAIJ()
2010 if (*JJ++ >= cend) break; in MatMPISBAIJSetPreallocationCSR_MPISBAIJ()
/petsc/src/mat/impls/baij/mpi/
H A Dmpibaij.c2549 const PetscInt *JJ = NULL; in MatMPIBAIJSetPreallocationCSR_MPIBAIJ() local
2573 JJ = jj + ii[i]; in MatMPIBAIJSetPreallocationCSR_MPIBAIJ()
2575 if (*JJ < cstart || *JJ >= cend) olen++; in MatMPIBAIJSetPreallocationCSR_MPIBAIJ()
2577 JJ++; in MatMPIBAIJSetPreallocationCSR_MPIBAIJ()
/petsc/src/mat/impls/aij/mpi/
H A Dmpiaij.c3870 const PetscInt *JJ; in MatMPIAIJSetPreallocationCSR_MPIAIJ() local
3888 JJ = PetscSafePointerPlusOffset(J, Ii[i] - irstart); in MatMPIAIJSetPreallocationCSR_MPIAIJ()
3890 …nnz || !(JJ[0] < 0), PETSC_COMM_SELF, PETSC_ERR_ARG_WRONGSTATE, "Row %" PetscInt_FMT " starts with… in MatMPIAIJSetPreallocationCSR_MPIAIJ()
3891 …JJ[nnz - 1] >= B->cmap->N), PETSC_COMM_SELF, PETSC_ERR_ARG_WRONGSTATE, "Row %" PetscInt_FMT " ends… in MatMPIAIJSetPreallocationCSR_MPIAIJ()
3897 JJ = PetscSafePointerPlusOffset(J, Ii[i] - irstart); in MatMPIAIJSetPreallocationCSR_MPIAIJ()
3901 if (cstart <= JJ[j] && JJ[j] < cend) d++; in MatMPIAIJSetPreallocationCSR_MPIAIJ()