>
> if (sml_mype/sml_pe_per_plane .gt. 0) then ! not first, no monitor
> call SNESMonitorCancel(solver%snes,ierr)
> CHKERRQ(ierr)
> call SNESGetKSP(solver%snes,ksp,ierr)
> CHKERRQ(ierr)
> call KSPMonitorCancel(ksp,ierr)
> CHKERRQ(ierr)
> endif
>
> First, a quick
On Sun, Sep 1, 2013 at 6:31 PM, Mark F. Adams wrote:
> I have a code that has several concurrent solves (with their own
> communicators) and I want to turn off monitors for all but one. My setup
> code looks something like this:
>
> call DMSetFromOptions(solver%dalam,ierr)
> call DMComposite
I have a code that has several concurrent solves (with their own communicators)
and I want to turn off monitors for all but one. My setup code looks something
like this:
call DMSetFromOptions(solver%dalam,ierr)
call DMCompositeAddDM(solver%da,solver%dalam,ierr)
call DMSetFromOptions(solve