Re: [petsc-dev] getting parts of a field split PC at setup time

2013-09-01 Thread Mark F. Adams
> > 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

Re: [petsc-dev] getting parts of a field split PC at setup time

2013-09-01 Thread Matthew Knepley
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

[petsc-dev] getting parts of a field split PC at setup time

2013-09-01 Thread Mark F. Adams
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