<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=us-ascii">
</head>
<body>
<div class="BodyFragment"><font size="2"><span style="font-size:11pt;">
<div class="PlainText"><br>
  Fande,<br>
<br>
    I have done something similar in the branch <a href="https://bitbucket.org/petsc/petsc/pull-requests/845/added-matsnesmfsetreusebase-at-request-of/diff">
https://bitbucket.org/petsc/petsc/pull-requests/845/added-matsnesmfsetreusebase-at-request-of/diff</a> attached is your test case.
</div>
</span></font></div>
<div class="BodyFragment"><font size="2"><span style="font-size:11pt;">
<div class="PlainText"><br>
<br>
I don't think a command line option makes sense for this functionality.<br>
<br>
    Barry<br>
<br>
I didn't do it with a SNESSetReuseBaseMFFD() because I didn't want the functionality of the MatSNESMFCreate() function to "bleed over" into the SNES object. That is, it is not the business of the SNES object to even know about details of specific matrix types
 it might use.<br>
<br>
<br>
> On Jan 27, 2018, at 11:18 AM, Fande Kong <fdkong.jd@gmail.com> wrote:<br>
> <br>
> Hi Barry,<br>
> <br>
> Thanks so much! <br>
> <br>
> Does this requires us to attach a shell function "MatAssemblyEnd_SNESMF"? We need to maintain "MatAssemblyEnd_SNESMF" in the moose side?<br>
> <br>
> <br>
> <br>
> Could we just add a flag into the original routine "MatAssemblyEnd_SNESMF" in PETSc?<br>
> <br>
> <br>
> static PetscErrorCode MatAssemblyEnd_SNESMF(Mat J,MatAssemblyType mt)<br>
> {<br>
>   PetscErrorCode ierr;<br>
>   MatMFFD        j    = (MatMFFD)J->data;<br>
>   SNES           snes = (SNES)j->ctx;<br>
>   PetscBool    refuse;<br>
>   Vec            u,f;<br>
> <br>
>   PetscFunctionBegin;<br>
>   ierr = MatAssemblyEnd_MFFD(J,mt);CHKERRQ(ierr);<br>
>  <br>
>   ierr = SNESGetReuseBaseMFFD(SNES snes, & refuse);CHKERRQ(ierr);<br>
> <br>
>   ierr = SNESGetSolution(snes,&u);CHKERRQ(ierr);<br>
>   if (j->func == (PetscErrorCode (*)(void*,Vec,Vec))SNESComputeFunction || reuse) {<br>
>     ierr = SNESGetFunction(snes,&f,NULL,NULL);CHKERRQ(ierr);<br>
>     ierr = MatMFFDSetBase_MFFD(J,u,f);CHKERRQ(ierr);<br>
>   } else {<br>
>     /* f value known by SNES is not correct for other differencing function */<br>
>     ierr = MatMFFDSetBase_MFFD(J,u,NULL);CHKERRQ(ierr);<br>
>   }<br>
>   PetscFunctionReturn(0);<br>
> }<br>
> <br>
> <br>
> <br>
> We may need new  APIs SNESGetReuseBaseMFFD and SNESSetReuseBaseMFFD, and a command line option "-snes_reuse_base_mffd".  "reuse" is false by default, and it is consistent with current setting.<br>
> <br>
> <br>
> Please let me know what do you think. If you agree, I can make a PR on this.<br>
> <br>
> Fande,<br>
> <br>
> <br>
> On Fri, Jan 26, 2018 at 10:47 PM, Smith, Barry F. <bsmith@mcs.anl.gov> wrote:<br>
> <br>
>   Thanks, I now understand the situation.<br>
> <br>
>   I have a tentative solution for you that does not require complex new APIs. I have added one function to the master branch MatSNESMFGetSNES() and attach a modified example that utilizes this to avoid the extra function evaluations.
<br>
> <br>
> <br>
> <br>
>    Please let me know if it works for you and what you think,<br>
> <br>
>    Barry<br>
> <br>
> <br>
> <br>
> > On Jan 26, 2018, at 5:54 PM, Alexander Lindsay <alexlindsay239@gmail.com> wrote:<br>
> > <br>
> > We are doing something non-standard. We set different functions for snes and mffd. When a function is called through snes, we know we are doing a non-linear residual evaluation and we allow an update of our mechanical contact nodes. When a function is called
 through mffd, we know we are within the linear solve, and we do not allow our contact state to change. If after a contact update our non-linear residual is not deemed to be converged, then we would hope to be able to re-use it for the zeroth-linear residual.
<br>
> > <br>
> > I know that you don't like this way of handling contact, but it integrates well for us into our multiphysics framework and works well in many cases.
<br>
> > <br>
> > On Jan 26, 2018, at 5:34 PM, Kong, Fande <fande.kong@inl.gov> wrote:<br>
> > <br>
> >> Hi Barry,<br>
> >> <br>
> >> I made minor changes on src/snes/examples/tutorials/ex2.c to demonstrate this issue.  Please see the attachment.<br>
> >> <br>
> >> ./ex2 -snes_monitor -ksp_monitor -snes_mf_operator 1<br>
> >> <br>
> >> <br>
> >> atol=1e-50, rtol=1e-08, stol=1e-08, maxit=50, maxf=10000<br>
> >>  FormFunction is called <br>
> >>   0 SNES Function norm 5.414682427127e+00 <br>
> >>     0 KSP Residual norm 9.559082033938e-01 <br>
> >>  FormFunction is called <br>
> >>  FormFunction is called <br>
> >>     1 KSP Residual norm 1.703870633386e-09 <br>
> >>  FormFunction is called <br>
> >>  FormFunction is called <br>
> >>   1 SNES Function norm 2.952582481151e-01 <br>
> >>     0 KSP Residual norm 2.672054855433e-02 <br>
> >>  FormFunction is called <br>
> >>  FormFunction is called <br>
> >>     1 KSP Residual norm 1.519298012177e-10 <br>
> >>  FormFunction is called <br>
> >>  FormFunction is called <br>
> >>   2 SNES Function norm 4.502289047587e-04 <br>
> >>     0 KSP Residual norm 4.722075651268e-05 <br>
> >>  FormFunction is called <br>
> >>  FormFunction is called <br>
> >>     1 KSP Residual norm 3.834927363659e-14 <br>
> >>  FormFunction is called <br>
> >>  FormFunction is called <br>
> >>   3 SNES Function norm 1.390073376131e-09 <br>
> >> number of SNES iterations = 3<br>
> >> <br>
> >> Norm of error 1.49795e-10, Iterations 3<br>
> >> <br>
> >> "FormFunction" is called TWICE at "0 KSP". <br>
> >> <br>
> >> If we comment out MatMFFDSetFunction:<br>
> >> <br>
> >> /* ierr = MatMFFDSetFunction(Jacobian,FormFunction_MFFD,(void*)snes);CHKERRQ(ierr); */<br>
> >> <br>
> >> <br>
> >> ./ex2 -snes_monitor -ksp_monitor -snes_mf_operator 1<br>
> >> <br>
> >> atol=1e-50, rtol=1e-08, stol=1e-08, maxit=50, maxf=10000<br>
> >>  FormFunction is called <br>
> >>   0 SNES Function norm 5.414682427127e+00 <br>
> >>     0 KSP Residual norm 9.559082033938e-01 <br>
> >>  FormFunction is called <br>
> >>     1 KSP Residual norm 1.703870633386e-09 <br>
> >>  FormFunction is called <br>
> >>  FormFunction is called <br>
> >>   1 SNES Function norm 2.952582481151e-01 <br>
> >>     0 KSP Residual norm 2.672054855433e-02 <br>
> >>  FormFunction is called <br>
> >>     1 KSP Residual norm 1.519298012177e-10 <br>
> >>  FormFunction is called <br>
> >>  FormFunction is called <br>
> >>   2 SNES Function norm 4.502289047587e-04 <br>
> >>     0 KSP Residual norm 4.722075651268e-05 <br>
> >>  FormFunction is called <br>
> >>     1 KSP Residual norm 3.834927363659e-14 <br>
> >>  FormFunction is called <br>
> >>  FormFunction is called <br>
> >>   3 SNES Function norm 1.390073376131e-09 <br>
> >> number of SNES iterations = 3<br>
> >> <br>
> >> Norm of error 1.49795e-10, Iterations 3<br>
> >> <br>
> >> "FormFunction" is called ONCE at "0 KSP". <br>
> >> <br>
> >> Hopefully, this example makes the point clear.<br>
> >> <br>
> >> <br>
> >> Fande,<br>
> >> <br>
> >> On Fri, Jan 26, 2018 at 3:50 PM, Smith, Barry F. <bsmith@mcs.anl.gov> wrote:<br>
> >> <br>
> >> <br>
> >>   So you are doing something non-standard? Are you not just using -snes_mf or -snes_mf_operator? Can you send me a sample code that has the extra function evaluations? Because if you run through regular usage with the debugger you will see there is no
 extra evaluation.<br>
> >> <br>
> >>    Barry<br>
> >> <br>
> >> <br>
> >> > On Jan 26, 2018, at 4:32 PM, Kong, Fande <fande.kong@inl.gov> wrote:<br>
> >> ><br>
> >> ><br>
> >> ><br>
> >> > On Fri, Jan 26, 2018 at 3:10 PM, Smith, Barry F. <bsmith@mcs.anl.gov> wrote:<br>
> >> ><br>
> >> ><br>
> >> > > On Jan 26, 2018, at 2:15 PM, Kong, Fande <fande.kong@inl.gov> wrote:<br>
> >> > ><br>
> >> > ><br>
> >> > ><br>
> >> > > On Mon, Jan 8, 2018 at 2:15 PM, Smith, Barry F. <bsmith@mcs.anl.gov> wrote:<br>
> >> > ><br>
> >> > ><br>
> >> > > > On Jan 8, 2018, at 2:59 PM, Alexander Lindsay <alexlindsay239@gmail.com> wrote:<br>
> >> > > ><br>
> >> > > > Is there any elegant way to tell whether SNESComputeFunction is being called under different conceptual contexts?<br>
> >> > > ><br>
> >> > > > E.g. non-linear residual evaluation vs. Jacobian formation from finite differencing vs. Jacobian-vector products from finite differencing?<br>
> >> > ><br>
> >> > >   Under normal usage with the options database no.<br>
> >> > ><br>
> >> > > Hi Barry,<br>
> >> > ><br>
> >> > > How difficult to provide an API? Is it possible?<br>
> >> > ><br>
> >> > ><br>
> >> > ><br>
> >> > >   If you have some reason to know you could write three functions and provide them to SNESSetFunction(), MatMFFDSetFunction(), and MatFDColoringSetFunction(). Note that these functions have slightly different calling sequences but you can have all
 of them call the same  underlying common function if you are only interested in, for example, how many times the function is used for each purpose.<br>
> >> > ><br>
> >> > > If we use this way for the Jacobian-free Newton, the function evaluation will be called twice at the first linear iteration because the computed residual vector at the nonlinear step  is not reused. Any way to reuse the function residual of the Newton
 step instead of recomputing a new residual at the first linear iteration?<br>
> >> ><br>
> >> >    It does reuse the function evaluation. Why do you think it does not? If you look at MatMult_MFFD() you will see the lines of code<br>
> >> ><br>
> >> >   /* compute func(U) as base for differencing; only needed first time in and not when provided by user */<br>
> >> >   if (ctx->ncurrenth == 1 && ctx->current_f_allocated) {<br>
> >> >     ierr = (*ctx->func)(ctx->funcctx,U,F);CHKERRQ(ierr);<br>
> >> >   }<br>
> >> ><br>
> >> > since the if is satisfied it does not compute the function at the base location.  To double check I ran src/snes/examples/tutorials/ex19 with -snes_mf in the debugger and verified that the "extra" function evaluations are not done.<br>
> >> ><br>
> >> > In MatAssemblyEnd_SNESMF,<br>
> >> ><br>
> >> >   if (j->func == (PetscErrorCode (*)(void*,Vec,Vec))SNESComputeFunction) {<br>
> >> >     ierr = SNESGetFunction(snes,&f,NULL,NULL);CHKERRQ(ierr);<br>
> >> >     ierr = MatMFFDSetBase_MFFD(J,u,f);CHKERRQ(ierr);<br>
> >> >   } else {<br>
> >> >     /* f value known by SNES is not correct for other differencing function */<br>
> >> >     ierr = MatMFFDSetBase_MFFD(J,u,NULL);CHKERRQ(ierr);<br>
> >> >   }<br>
> >> ><br>
> >> ><br>
> >> > Will hit ierr = MatMFFDSetBase_MFFD(J,u,NULL);CHKERRQ(ierr), because SNES and MAT have different function pointers.<br>
> >> ><br>
> >> > In MatMFFDSetBase_MFFD(Mat J,Vec U,Vec F),<br>
> >> ><br>
> >> >   if (F) {<br>
> >> >     if (ctx->current_f_allocated) {ierr = VecDestroy(&ctx->current_f);CHKERRQ(ierr);}<br>
> >> >     ctx->current_f           = F;<br>
> >> >     ctx->current_f_allocated = PETSC_FALSE;<br>
> >> >   } else if (!ctx->current_f_allocated) {<br>
> >> >     ierr = MatCreateVecs(J,NULL,&ctx->current_f);CHKERRQ(ierr);<br>
> >> ><br>
> >> >     ctx->current_f_allocated = PETSC_TRUE;<br>
> >> >   }<br>
> >> ><br>
> >> > Because F=NULL, we then have ctx->current_f_allocated = PETSC_TRUE.<br>
> >> ><br>
> >> > Then, the following if statement is true:<br>
> >> ><br>
> >> >   if (ctx->ncurrenth == 1 && ctx->current_f_allocated) {<br>
> >> >     ierr = (*ctx->func)(ctx->funcctx,U,F);CHKERRQ(ierr);<br>
> >> >   }<br>
> >> ><br>
> >> ><br>
> >> > Fande,<br>
> >> ><br>
> >> ><br>
> >> ><br>
> >> >   Barry<br>
> >> ><br>
> >> ><br>
> >> > ><br>
> >> > > Fande,<br>
> >> > ><br>
> >> > ><br>
> >> > ><br>
> >> > >    Barry<br>
> >> > ><br>
> >> > ><br>
> >> > ><br>
> >> > > ><br>
> >> > > > Alex<br>
> >> > ><br>
> >> > ><br>
> >> <br>
> >> <br>
> >> <ex2.c><br>
> <br>
> <br>
<br>
</div>
</span></font></div>
</body>
</html>