Searched refs:snesm (Results 1 – 1 of 1) sorted by relevance
| /petsc/src/snes/tests/ |
| H A D | ex12f.F90 | 100 subroutine FormMonitor(snes, its, norm, snesm, ierr) argument
105 type(monctx) :: snesm
112 if (mod(snesm%its, snesm%lag) == 0) then
119 snesm%its = snesm%its + 1
205 type(monctx) :: snesm
262 snesm%its = 0
263 PetscCallA(SNESGetLagJacobian(snes, snesm%lag, ierr))
264 PetscCallA(SNESMonitorSet(snes, FormMonitor, snesm, PETSC_NULL_FUNCTION, ierr))
|