| /petsc/src/snes/tutorials/ ! |
| H A D | ex5f90.F90 | 310 subroutine FormJacobian(snes, X, jac, jac_prec, ctx, ierr) argument
314 Mat jac, jac_prec
337 PetscCallA(FormJacobianLocal(lx_v, jac_prec, ctx, ierr))
345 if (jac /= jac_prec) then
346 PetscCallA(MatAssemblyBegin(jac_prec, MAT_FINAL_ASSEMBLY, ierr))
351 if (jac /= jac_prec) then
352 PetscCallA(MatAssemblyEnd(jac_prec, MAT_FINAL_ASSEMBLY, ierr))
397 subroutine FormJacobianLocal(x, jac_prec, ctx, ierr) argument
401 Mat jac_prec
441 PetscCallA(MatSetValuesLocal(jac_prec, ione, [row], ione, col, v, INSERT_VALUES, ierr))
[all …]
|
| H A D | ex5f90t.F90 | 302 subroutine FormJacobian(mysnes, X, jac, jac_prec, ctx, ierr) argument
306 type(tMat) jac, jac_prec local
327 PetscCallA(FormJacobianLocal(lx_v, jac_prec, ctx, ierr))
336 PetscCallA(MatAssemblyBegin(jac_prec, MAT_FINAL_ASSEMBLY, ierr))
342 PetscCallA(MatAssemblyEnd(jac_prec, MAT_FINAL_ASSEMBLY, ierr))
386 subroutine FormJacobianLocal(x, jac_prec, ctx, ierr) argument
390 type(tMat) jac_prec
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))
|
| H A D | ex73f90t.F90 | 185 subroutine FormJacobian(dummy, X, jac, jac_prec, solver, ierr) argument
189 Mat:: jac, jac_prec
203 …PetscCall(MatCreateSubMatrix(jac_prec, solver%isPhi, solver%isPhi, MAT_INITIAL_MATRIX, Amat, ierr))
210 PetscCall(MatAssemblyBegin(jac_prec, MAT_FINAL_ASSEMBLY, ierr))
211 PetscCall(MatAssemblyEnd(jac_prec, MAT_FINAL_ASSEMBLY, ierr))
212 if (jac /= jac_prec) then
219 PetscCall(MatSetOption(jac_prec, MAT_NEW_NONZERO_LOCATION_ERR, PETSC_TRUE, ierr))
|
| /petsc/src/snes/tests/ ! |
| H A D | ex1f.F90 | 306 subroutine FormJacobian(snes, X, jac, jac_prec, dummy, ierr) argument
311 Mat jac, jac_prec
330 PetscCallA(ApplicationJacobian(lx_v, jac, jac_prec, ierr))
338 PetscCallA(MatAssemblyBegin(jac_prec, MAT_FINAL_ASSEMBLY, ierr))
339 PetscCallA(MatAssemblyEnd(jac_prec, MAT_FINAL_ASSEMBLY, ierr))
359 subroutine ApplicationJacobian(x, jac, jac_prec, ierr) argument
368 Mat jac, jac_prec
399 PetscCallA(MatSetValues(jac_prec, i1, row, i1, row, [one], INSERT_VALUES, ierr))
412 PetscCallA(MatSetValues(jac_prec, i1, row, i5, col, v, INSERT_VALUES, ierr))
|