Lines Matching refs:jac_prec
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))
454 PetscCallA(MatSetValuesLocal(jac_prec, ione, [row], ifive, col, v, INSERT_VALUES, ierr))