76   Mat                    Jac;                 /* Jacobian matrix */  in main()  local
369   PetscCall(MatCreate(MPI_COMM_WORLD, &Jac));  in main()
370   PetscCall(MatSetSizes(Jac, PETSC_DECIDE, PETSC_DECIDE, N, N));  in main()
371   PetscCall(MatSetFromOptions(Jac));  in main()
372   PetscCall(MatSetUp(Jac));  in main()
378   PetscCall(MatSetLocalToGlobalMapping(Jac, isl2g, isl2g));  in main()
394     PetscCall(SNESSetJacobian(snes, Jac, Jac, FormJacobian, (void *)&user));  in main()
400     PetscCall(FormJacobian(snes, x, Jac, Jac, &user));  in main()
402     PetscCall(MatColoringCreate(Jac, &mc));  in main()
407     PetscCall(MatFDColoringCreate(Jac, iscoloring, &matfdcoloring));  in main()
410     PetscCall(MatFDColoringSetUp(Jac, iscoloring, matfdcoloring));  in main()
412     PetscCall(SNESSetJacobian(snes, Jac, Jac, SNESComputeJacobianDefaultColor, matfdcoloring));  in main()
478   PetscCall(MatDestroy(&Jac));  in main()