225   TS         ts_nrl   = (TS)ctx->data;  in Monitor()  local
299   if (n_cm3[NUM_TEMPS / 2 - 1] < 0 && ts_nrl) {  in Monitor()
300     PetscCall(TSDestroy(&ts_nrl));  in Monitor()
303   } else if (ts_nrl) {  in Monitor()
309     PetscCall(TSGetSolution(ts_nrl, &U));  in Monitor()
319     PetscCall(TSSetTimeStep(ts_nrl, dt_real));  in Monitor()
320     PetscCall(TSSetMaxSteps(ts_nrl, stepi + 1)); // next step  in Monitor()
321     PetscCall(TSSolve(ts_nrl, NULL));  in Monitor()
332   TS          ts, ts_nrl = NULL;  in main()  local
409   ts_nrl = (TS)ctx->data;  in main()
416     PetscCall(TSSetTimeStep(ts_nrl, dt_real));  in main()
419     PetscCall(TSSetMaxTime(ts_nrl, finalTime));  in main()
421     PetscCall(TSSetMaxSteps(ts_nrl, nsteps));  in main()
422     PetscCall(TSSetStepNumber(ts_nrl, 0));  in main()
423     PetscCall(TSSetTime(ts_nrl, tstart));  in main()
424     PetscCall(TSGetSolution(ts_nrl, &U));  in main()
428     PetscCall(TSMonitorSet(ts_nrl, Monitor_nrl, ctx, NULL));  in main()
429     PetscCall(TSSolve(ts_nrl, NULL));  in main()
433   PetscCall(TSDestroy(&ts_nrl));  in main()