Lines Matching refs:ierr
19 PetscErrorCode :: ierr
33 PetscCallA(PetscInitialize(ierr))
35 PetscCallA(PetscOptionsGetInt(PETSC_NULL_OPTIONS, PETSC_NULL_CHARACTER, '-orthog', orthog, flg, ierr))
36 PetscCallA(PetscOptionsGetInt(PETSC_NULL_OPTIONS, PETSC_NULL_CHARACTER, '-m', m, flg, ierr))
37 PetscCallMPIA(MPI_Comm_rank(PETSC_COMM_WORLD, rank, ierr))
38 PetscCallMPIA(MPI_Comm_size(PETSC_COMM_WORLD, size, ierr))
43 PetscCallA(PetscOptionsGetBool(PETSC_NULL_OPTIONS, PETSC_NULL_CHARACTER, '-mat_nonsym', mat_nonsymmetric, flg, ierr))
44 PetscCallA(PetscOptionsGetBool(PETSC_NULL_OPTIONS, PETSC_NULL_CHARACTER, '-test_scaledMat', testscaledMat, flg, ierr))
50 PetscCallA(PetscLogStageRegister('Original Solve', stages(0), ierr))
51 PetscCallA(PetscLogStageRegister('Second Solve', stages(1), ierr))
56 PetscCallA(PetscLogStagePush(stages(0), ierr))
63 PetscCallA(MatCreate(PETSC_COMM_WORLD, C, ierr))
64 PetscCallA(MatSetSizes(C, PETSC_DECIDE, PETSC_DECIDE, m*n, m*n, ierr))
65 PetscCallA(MatSetFromOptions(C, ierr))
66 PetscCallA(MatSetUp(C, ierr))
72 PetscCallA(MatGetOwnershipRange(C, Istart, Iend, ierr))
84 PetscCallA(MatSetValues(C, one, [Ii], one, [JJ], [v], ADD_VALUES, ierr))
89 PetscCallA(MatSetValues(C, one, [Ii], one, [JJ], [v], ADD_VALUES, ierr))
94 PetscCallA(MatSetValues(C, one, [Ii], one, [JJ], [v], ADD_VALUES, ierr))
99 PetscCallA(MatSetValues(C, one, [Ii], one, [JJ], [v], ADD_VALUES, ierr))
103 PetscCallA(MatSetValues(C, one, [Ii], one, [Ii], [v], ADD_VALUES, ierr))
112 PetscCallA(MatSetValues(C, one, [Ii], one, [JJ], [v], ADD_VALUES, ierr))
116 PetscCallA(MatSetOption(C, MAT_SYMMETRIC, PETSC_TRUE, ierr))
117 PetscCallA(MatSetOption(C, MAT_SYMMETRY_ETERNAL, PETSC_TRUE, ierr))
125 PetscCallA(MatAssemblyBegin(C, MAT_FINAL_ASSEMBLY, ierr))
126 PetscCallA(MatAssemblyEnd(C, MAT_FINAL_ASSEMBLY, ierr))
133 PetscCallA(VecCreate(PETSC_COMM_WORLD, u, ierr))
134 PetscCallA(VecSetSizes(u, PETSC_DECIDE, m*n, ierr))
135 PetscCallA(VecSetFromOptions(u, ierr))
136 PetscCallA(VecDuplicate(u, b, ierr))
137 PetscCallA(VecDuplicate(b, x, ierr))
143 PetscCallA(VecGetOwnershipRange(x, low, high, ierr))
151 PetscCallA(VecGetLocalSize(x, ldim, ierr))
155 PetscCallA(VecSetValues(u, one, [iglobal], [v], INSERT_VALUES, ierr))
162 PetscCallA(VecAssemblyBegin(u, ierr))
163 PetscCallA(VecAssemblyEnd(u, ierr))
167 PetscCallA(MatMult(C, u, b, ierr))
171 PetscCallA(KSPCreate(PETSC_COMM_WORLD, ksp, ierr))
176 PetscCallA(KSPSetOperators(ksp, C, C, ierr))
180 PetscCallA(KSPSetFromOptions(ksp, ierr))
188 PetscCallA(KSPSetUp(ksp, ierr))
192 PetscCallA(KSPGMRESSetOrthogonalization(ksp, KSPGMRESModifiedGramSchmidtOrthogonalization, ierr))
194 PetscCallA(KSPGMRESSetOrthogonalization(ksp, KSPGMRESClassicalGramSchmidtOrthogonalization, ierr))
197 PetscCallA(KSPSolve(ksp, b, x, ierr))
200 PetscCallA(VecAXPY(x, myNone, u, ierr))
201 PetscCallA(VecNorm(x, NORM_2, norm, ierr))
202 PetscCallA(VecNorm(b, NORM_2, bnorm, ierr))
204 PetscCallA(KSPGetIterationNumber(ksp, its, ierr))
207 PetscCallA(PetscPrintf(PETSC_COMM_WORLD, outputString, ierr))
220 PetscCallA(PetscLogStagePop(ierr))
221 PetscCallA(PetscLogStagePush(stages(1), ierr))
226 PetscCallA(MatZeroEntries(C, ierr))
237 PetscCallA(MatSetValues(C, one, [Ii], one, [JJ], [v], ADD_VALUES, ierr))
242 PetscCallA(MatSetValues(C, one, [Ii], one, [JJ], [v], ADD_VALUES, ierr))
247 PetscCallA(MatSetValues(C, one, [Ii], one, [JJ], [v], ADD_VALUES, ierr))
252 PetscCallA(MatSetValues(C, one, [Ii], one, [JJ], [v], ADD_VALUES, ierr))
256 PetscCallA(MatSetValues(C, one, [Ii], one, [Ii], [v], ADD_VALUES, ierr))
267 PetscCallA(MatSetValues(C, one, [Ii], one, [JJ], [v], ADD_VALUES, ierr))
277 PetscCallA(MatAssemblyBegin(C, MAT_FINAL_ASSEMBLY, ierr))
278 PetscCallA(MatAssemblyEnd(C, MAT_FINAL_ASSEMBLY, ierr))
285 PetscCallA(MatSetValues(C, one, [Ii], one, [JJ], [v], INSERT_VALUES, ierr))
288 PetscCallA(MatSetValues(C, one, [Ii], one, [JJ], [v], INSERT_VALUES, ierr))
292 PetscCallA(MatAssemblyBegin(C, MAT_FINAL_ASSEMBLY, ierr))
293 PetscCallA(MatAssemblyEnd(C, MAT_FINAL_ASSEMBLY, ierr))
297 PetscCallA(VecDestroy(u, ierr))
298 PetscCallA(VecCreate(PETSC_COMM_WORLD, u, ierr))
299 PetscCallA(VecSetSizes(u, PETSC_DECIDE, m*n, ierr))
300 PetscCallA(VecSetFromOptions(u, ierr))
302 PetscCallA(PetscRandomCreate(PETSC_COMM_WORLD, rctx, ierr))
303 PetscCallA(PetscRandomSetFromOptions(rctx, ierr))
304 PetscCallA(VecSetRandom(u, rctx, ierr))
305 PetscCallA(PetscRandomDestroy(rctx, ierr))
306 PetscCallA(VecAssemblyBegin(u, ierr))
307 PetscCallA(VecAssemblyEnd(u, ierr))
311 PetscCallA(PetscOptionsGetBool(PETSC_NULL_OPTIONS, PETSC_NULL_CHARACTER, '-test_newMat', testnewC, flg, ierr))
317 PetscCallA(MatDuplicate(C, MAT_COPY_VALUES, Ctmp, ierr))
318 PetscCallA(MatDestroy(C, ierr))
319 PetscCallA(MatDuplicate(Ctmp, MAT_COPY_VALUES, C, ierr))
320 PetscCallA(MatDestroy(Ctmp, ierr))
323 PetscCallA(MatMult(C, u, b, ierr))
328 PetscCallA(KSPSetOperators(ksp, C, C, ierr))
331 PetscCallA(KSPSetUp(ksp, ierr))
332 PetscCallA(KSPSolve(ksp, b, x, ierr))
335 PetscCallA(VecAXPY(x, myNone, u, ierr))
336 PetscCallA(VecNorm(x, NORM_2, norm, ierr))
337 PetscCallA(VecNorm(b, NORM_2, bnorm, ierr))
338 PetscCallA(KSPGetIterationNumber(ksp, its, ierr))
341 PetscCallA(PetscPrintf(PETSC_COMM_WORLD, outputString, ierr))
347 PetscCallA(KSPDestroy(ksp, ierr))
348 PetscCallA(VecDestroy(u, ierr))
349 PetscCallA(VecDestroy(x, ierr))
350 PetscCallA(VecDestroy(b, ierr))
351 PetscCallA(MatDestroy(C, ierr))
355 PetscCallA(PetscLogStagePop(ierr))
356 PetscCallA(PetscFinalize(ierr))