Actual source code: dmdasnes.c

petsc-3.13.6 2020-09-29
Report Typos and Errors
  1:  #include <petscdmda.h>
  2:  #include <petsc/private/dmimpl.h>
  3:  #include <petsc/private/snesimpl.h>

  5: /* This structure holds the user-provided DMDA callbacks */
  6: typedef struct {
  7:   PetscErrorCode (*residuallocal)(DMDALocalInfo*,void*,void*,void*);
  8:   PetscErrorCode (*jacobianlocal)(DMDALocalInfo*,void*,Mat,Mat,void*);
  9:   PetscErrorCode (*objectivelocal)(DMDALocalInfo*,void*,PetscReal*,void*);
 10:   void       *residuallocalctx;
 11:   void       *jacobianlocalctx;
 12:   void       *objectivelocalctx;
 13:   InsertMode residuallocalimode;

 15:   /*   For Picard iteration defined locally */
 16:   PetscErrorCode (*rhsplocal)(DMDALocalInfo*,void*,void*,void*);
 17:   PetscErrorCode (*jacobianplocal)(DMDALocalInfo*,void*,Mat,Mat,void*);
 18:   void *picardlocalctx;
 19: } DMSNES_DA;

 21: static PetscErrorCode DMSNESDestroy_DMDA(DMSNES sdm)
 22: {

 26:   PetscFree(sdm->data);
 27:   return(0);
 28: }

 30: static PetscErrorCode DMSNESDuplicate_DMDA(DMSNES oldsdm,DMSNES sdm)
 31: {

 35:   PetscNewLog(sdm,(DMSNES_DA**)&sdm->data);
 36:   if (oldsdm->data) {
 37:     PetscMemcpy(sdm->data,oldsdm->data,sizeof(DMSNES_DA));
 38:   }
 39:   return(0);
 40: }


 43: static PetscErrorCode DMDASNESGetContext(DM dm,DMSNES sdm,DMSNES_DA  **dmdasnes)
 44: {

 48:   *dmdasnes = NULL;
 49:   if (!sdm->data) {
 50:     PetscNewLog(dm,(DMSNES_DA**)&sdm->data);
 51:     sdm->ops->destroy   = DMSNESDestroy_DMDA;
 52:     sdm->ops->duplicate = DMSNESDuplicate_DMDA;
 53:   }
 54:   *dmdasnes = (DMSNES_DA*)sdm->data;
 55:   return(0);
 56: }

 58: static PetscErrorCode SNESComputeFunction_DMDA(SNES snes,Vec X,Vec F,void *ctx)
 59: {
 61:   DM             dm;
 62:   DMSNES_DA      *dmdasnes = (DMSNES_DA*)ctx;
 63:   DMDALocalInfo  info;
 64:   Vec            Xloc;
 65:   void           *x,*f;

 71:   if (!dmdasnes->residuallocal) SETERRQ(PetscObjectComm((PetscObject)snes),PETSC_ERR_PLIB,"Corrupt context");
 72:   SNESGetDM(snes,&dm);
 73:   DMGetLocalVector(dm,&Xloc);
 74:   DMGlobalToLocalBegin(dm,X,INSERT_VALUES,Xloc);
 75:   DMGlobalToLocalEnd(dm,X,INSERT_VALUES,Xloc);
 76:   DMDAGetLocalInfo(dm,&info);
 77:   DMDAVecGetArray(dm,Xloc,&x);
 78:   switch (dmdasnes->residuallocalimode) {
 79:   case INSERT_VALUES: {
 80:     DMDAVecGetArray(dm,F,&f);
 81:     PetscLogEventBegin(SNES_FunctionEval,snes,X,F,0);
 82:     CHKMEMQ;
 83:     (*dmdasnes->residuallocal)(&info,x,f,dmdasnes->residuallocalctx);
 84:     CHKMEMQ;
 85:     PetscLogEventEnd(SNES_FunctionEval,snes,X,F,0);
 86:     DMDAVecRestoreArray(dm,F,&f);
 87:   } break;
 88:   case ADD_VALUES: {
 89:     Vec Floc;
 90:     DMGetLocalVector(dm,&Floc);
 91:     VecZeroEntries(Floc);
 92:     DMDAVecGetArray(dm,Floc,&f);
 93:     PetscLogEventBegin(SNES_FunctionEval,snes,X,F,0);
 94:     CHKMEMQ;
 95:     (*dmdasnes->residuallocal)(&info,x,f,dmdasnes->residuallocalctx);
 96:     CHKMEMQ;
 97:     PetscLogEventEnd(SNES_FunctionEval,snes,X,F,0);
 98:     DMDAVecRestoreArray(dm,Floc,&f);
 99:     VecZeroEntries(F);
100:     DMLocalToGlobalBegin(dm,Floc,ADD_VALUES,F);
101:     DMLocalToGlobalEnd(dm,Floc,ADD_VALUES,F);
102:     DMRestoreLocalVector(dm,&Floc);
103:   } break;
104:   default: SETERRQ1(PetscObjectComm((PetscObject)snes),PETSC_ERR_ARG_INCOMP,"Cannot use imode=%d",(int)dmdasnes->residuallocalimode);
105:   }
106:   DMDAVecRestoreArray(dm,Xloc,&x);
107:   DMRestoreLocalVector(dm,&Xloc);
108:   if (snes->domainerror) {
109:     VecSetInf(F);
110:   }
111:   return(0);
112: }

114: static PetscErrorCode SNESComputeObjective_DMDA(SNES snes,Vec X,PetscReal *ob,void *ctx)
115: {
117:   DM             dm;
118:   DMSNES_DA      *dmdasnes = (DMSNES_DA*)ctx;
119:   DMDALocalInfo  info;
120:   Vec            Xloc;
121:   void           *x;

127:   if (!dmdasnes->objectivelocal) SETERRQ(PetscObjectComm((PetscObject)snes),PETSC_ERR_PLIB,"Corrupt context");
128:   SNESGetDM(snes,&dm);
129:   DMGetLocalVector(dm,&Xloc);
130:   DMGlobalToLocalBegin(dm,X,INSERT_VALUES,Xloc);
131:   DMGlobalToLocalEnd(dm,X,INSERT_VALUES,Xloc);
132:   DMDAGetLocalInfo(dm,&info);
133:   DMDAVecGetArray(dm,Xloc,&x);
134:   CHKMEMQ;
135:   (*dmdasnes->objectivelocal)(&info,x,ob,dmdasnes->objectivelocalctx);
136:   CHKMEMQ;
137:   DMDAVecRestoreArray(dm,Xloc,&x);
138:   DMRestoreLocalVector(dm,&Xloc);
139:   return(0);
140: }


143: /* Routine is called by example, hence must be labeled PETSC_EXTERN */
144: PETSC_EXTERN PetscErrorCode SNESComputeJacobian_DMDA(SNES snes,Vec X,Mat A,Mat B,void *ctx)
145: {
147:   DM             dm;
148:   DMSNES_DA      *dmdasnes = (DMSNES_DA*)ctx;
149:   DMDALocalInfo  info;
150:   Vec            Xloc;
151:   void           *x;

154:   if (!dmdasnes->residuallocal) SETERRQ(PetscObjectComm((PetscObject)snes),PETSC_ERR_PLIB,"Corrupt context");
155:   SNESGetDM(snes,&dm);

157:   if (dmdasnes->jacobianlocal) {
158:     DMGetLocalVector(dm,&Xloc);
159:     DMGlobalToLocalBegin(dm,X,INSERT_VALUES,Xloc);
160:     DMGlobalToLocalEnd(dm,X,INSERT_VALUES,Xloc);
161:     DMDAGetLocalInfo(dm,&info);
162:     DMDAVecGetArray(dm,Xloc,&x);
163:     CHKMEMQ;
164:     (*dmdasnes->jacobianlocal)(&info,x,A,B,dmdasnes->jacobianlocalctx);
165:     CHKMEMQ;
166:     DMDAVecRestoreArray(dm,Xloc,&x);
167:     DMRestoreLocalVector(dm,&Xloc);
168:   } else {
169:     MatFDColoring fdcoloring;
170:     PetscObjectQuery((PetscObject)dm,"DMDASNES_FDCOLORING",(PetscObject*)&fdcoloring);
171:     if (!fdcoloring) {
172:       ISColoring coloring;

174:       DMCreateColoring(dm,dm->coloringtype,&coloring);
175:       MatFDColoringCreate(B,coloring,&fdcoloring);
176:       switch (dm->coloringtype) {
177:       case IS_COLORING_GLOBAL:
178:         MatFDColoringSetFunction(fdcoloring,(PetscErrorCode (*)(void))SNESComputeFunction_DMDA,dmdasnes);
179:         break;
180:       default: SETERRQ1(PetscObjectComm((PetscObject)snes),PETSC_ERR_SUP,"No support for coloring type '%s'",ISColoringTypes[dm->coloringtype]);
181:       }
182:       PetscObjectSetOptionsPrefix((PetscObject)fdcoloring,((PetscObject)dm)->prefix);
183:       MatFDColoringSetFromOptions(fdcoloring);
184:       MatFDColoringSetUp(B,coloring,fdcoloring);
185:       ISColoringDestroy(&coloring);
186:       PetscObjectCompose((PetscObject)dm,"DMDASNES_FDCOLORING",(PetscObject)fdcoloring);
187:       PetscObjectDereference((PetscObject)fdcoloring);

189:       /* The following breaks an ugly reference counting loop that deserves a paragraph. MatFDColoringApply() will call
190:        * VecDuplicate() with the state Vec and store inside the MatFDColoring. This Vec will duplicate the Vec, but the
191:        * MatFDColoring is composed with the DM. We dereference the DM here so that the reference count will eventually
192:        * drop to 0. Note the code in DMDestroy() that exits early for a negative reference count. That code path will be
193:        * taken when the PetscObjectList for the Vec inside MatFDColoring is destroyed.
194:        */
195:       PetscObjectDereference((PetscObject)dm);
196:     }
197:     MatFDColoringApply(B,fdcoloring,X,snes);
198:   }
199:   /* This will be redundant if the user called both, but it's too common to forget. */
200:   if (A != B) {
201:     MatAssemblyBegin(A,MAT_FINAL_ASSEMBLY);
202:     MatAssemblyEnd(A,MAT_FINAL_ASSEMBLY);
203:   }
204:   return(0);
205: }

207: /*@C
208:    DMDASNESSetFunctionLocal - set a local residual evaluation function

210:    Logically Collective

212:    Input Arguments:
213: +  dm - DM to associate callback with
214: .  imode - INSERT_VALUES if local function computes owned part, ADD_VALUES if it contributes to ghosted part
215: .  func - local residual evaluation
216: -  ctx - optional context for local residual evaluation

218:    Calling sequence:
219:    For PetscErrorCode (*func)(DMDALocalInfo *info,void *x, void *f, void *ctx),
220: +  info - DMDALocalInfo defining the subdomain to evaluate the residual on
221: .  x - dimensional pointer to state at which to evaluate residual (e.g. PetscScalar *x or **x or ***x)
222: .  f - dimensional pointer to residual, write the residual here (e.g. PetscScalar *f or **f or ***f)
223: -  ctx - optional context passed above

225:    Level: beginner

227: .seealso: DMDASNESSetJacobianLocal(), DMSNESSetFunction(), DMDACreate1d(), DMDACreate2d(), DMDACreate3d()
228: @*/
229: PetscErrorCode DMDASNESSetFunctionLocal(DM dm,InsertMode imode,PetscErrorCode (*func)(DMDALocalInfo*,void*,void*,void*),void *ctx)
230: {
232:   DMSNES         sdm;
233:   DMSNES_DA      *dmdasnes;

237:   DMGetDMSNESWrite(dm,&sdm);
238:   DMDASNESGetContext(dm,sdm,&dmdasnes);

240:   dmdasnes->residuallocalimode = imode;
241:   dmdasnes->residuallocal      = func;
242:   dmdasnes->residuallocalctx   = ctx;

244:   DMSNESSetFunction(dm,SNESComputeFunction_DMDA,dmdasnes);
245:   if (!sdm->ops->computejacobian) {  /* Call us for the Jacobian too, can be overridden by the user. */
246:     DMSNESSetJacobian(dm,SNESComputeJacobian_DMDA,dmdasnes);
247:   }
248:   return(0);
249: }

251: /*@C
252:    DMDASNESSetJacobianLocal - set a local Jacobian evaluation function

254:    Logically Collective

256:    Input Arguments:
257: +  dm - DM to associate callback with
258: .  func - local Jacobian evaluation
259: -  ctx - optional context for local Jacobian evaluation

261:    Calling sequence:
262:    For PetscErrorCode (*func)(DMDALocalInfo *info,void *x,Mat J,Mat M,void *ctx),
263: +  info - DMDALocalInfo defining the subdomain to evaluate the Jacobian at
264: .  x - dimensional pointer to state at which to evaluate Jacobian (e.g. PetscScalar *x or **x or ***x)
265: .  J - Mat object for the Jacobian
266: .  M - Mat object for the Jacobian preconditioner matrix
267: -  ctx - optional context passed above

269:    Level: beginner

271: .seealso: DMDASNESSetFunctionLocal(), DMSNESSetJacobian(), DMDACreate1d(), DMDACreate2d(), DMDACreate3d()
272: @*/
273: PetscErrorCode DMDASNESSetJacobianLocal(DM dm,PetscErrorCode (*func)(DMDALocalInfo*,void*,Mat,Mat,void*),void *ctx)
274: {
276:   DMSNES         sdm;
277:   DMSNES_DA      *dmdasnes;

281:   DMGetDMSNESWrite(dm,&sdm);
282:   DMDASNESGetContext(dm,sdm,&dmdasnes);

284:   dmdasnes->jacobianlocal    = func;
285:   dmdasnes->jacobianlocalctx = ctx;

287:   DMSNESSetJacobian(dm,SNESComputeJacobian_DMDA,dmdasnes);
288:   return(0);
289: }


292: /*@C
293:    DMDASNESSetObjectiveLocal - set a local residual evaluation function

295:    Logically Collective

297:    Input Arguments:
298: +  dm - DM to associate callback with
299: .  func - local objective evaluation
300: -  ctx - optional context for local residual evaluation

302:    Calling sequence for func:
303: +  info - DMDALocalInfo defining the subdomain to evaluate the residual on
304: .  x - dimensional pointer to state at which to evaluate residual
305: .  ob - eventual objective value
306: -  ctx - optional context passed above

308:    Level: beginner

310: .seealso: DMSNESSetFunction(), DMDASNESSetJacobianLocal(), DMDACreate1d(), DMDACreate2d(), DMDACreate3d()
311: @*/
312: PetscErrorCode DMDASNESSetObjectiveLocal(DM dm,DMDASNESObjective func,void *ctx)
313: {
315:   DMSNES         sdm;
316:   DMSNES_DA      *dmdasnes;

320:   DMGetDMSNESWrite(dm,&sdm);
321:   DMDASNESGetContext(dm,sdm,&dmdasnes);

323:   dmdasnes->objectivelocal    = func;
324:   dmdasnes->objectivelocalctx = ctx;

326:   DMSNESSetObjective(dm,SNESComputeObjective_DMDA,dmdasnes);
327:   return(0);
328: }

330: static PetscErrorCode SNESComputePicard_DMDA(SNES snes,Vec X,Vec F,void *ctx)
331: {
333:   DM             dm;
334:   DMSNES_DA      *dmdasnes = (DMSNES_DA*)ctx;
335:   DMDALocalInfo  info;
336:   Vec            Xloc;
337:   void           *x,*f;

343:   if (!dmdasnes->rhsplocal) SETERRQ(PetscObjectComm((PetscObject)snes),PETSC_ERR_PLIB,"Corrupt context");
344:   SNESGetDM(snes,&dm);
345:   DMGetLocalVector(dm,&Xloc);
346:   DMGlobalToLocalBegin(dm,X,INSERT_VALUES,Xloc);
347:   DMGlobalToLocalEnd(dm,X,INSERT_VALUES,Xloc);
348:   DMDAGetLocalInfo(dm,&info);
349:   DMDAVecGetArray(dm,Xloc,&x);
350:   switch (dmdasnes->residuallocalimode) {
351:   case INSERT_VALUES: {
352:     DMDAVecGetArray(dm,F,&f);
353:     CHKMEMQ;
354:     (*dmdasnes->rhsplocal)(&info,x,f,dmdasnes->picardlocalctx);
355:     CHKMEMQ;
356:     DMDAVecRestoreArray(dm,F,&f);
357:   } break;
358:   case ADD_VALUES: {
359:     Vec Floc;
360:     DMGetLocalVector(dm,&Floc);
361:     VecZeroEntries(Floc);
362:     DMDAVecGetArray(dm,Floc,&f);
363:     CHKMEMQ;
364:     (*dmdasnes->rhsplocal)(&info,x,f,dmdasnes->picardlocalctx);
365:     CHKMEMQ;
366:     DMDAVecRestoreArray(dm,Floc,&f);
367:     VecZeroEntries(F);
368:     DMLocalToGlobalBegin(dm,Floc,ADD_VALUES,F);
369:     DMLocalToGlobalEnd(dm,Floc,ADD_VALUES,F);
370:     DMRestoreLocalVector(dm,&Floc);
371:   } break;
372:   default: SETERRQ1(PetscObjectComm((PetscObject)snes),PETSC_ERR_ARG_INCOMP,"Cannot use imode=%d",(int)dmdasnes->residuallocalimode);
373:   }
374:   DMDAVecRestoreArray(dm,Xloc,&x);
375:   DMRestoreLocalVector(dm,&Xloc);
376:   return(0);
377: }

379: static PetscErrorCode SNESComputePicardJacobian_DMDA(SNES snes,Vec X,Mat A,Mat B,void *ctx)
380: {
382:   DM             dm;
383:   DMSNES_DA      *dmdasnes = (DMSNES_DA*)ctx;
384:   DMDALocalInfo  info;
385:   Vec            Xloc;
386:   void           *x;

389:   if (!dmdasnes->jacobianplocal) SETERRQ(PetscObjectComm((PetscObject)snes),PETSC_ERR_PLIB,"Corrupt context");
390:   SNESGetDM(snes,&dm);

392:   DMGetLocalVector(dm,&Xloc);
393:   DMGlobalToLocalBegin(dm,X,INSERT_VALUES,Xloc);
394:   DMGlobalToLocalEnd(dm,X,INSERT_VALUES,Xloc);
395:   DMDAGetLocalInfo(dm,&info);
396:   DMDAVecGetArray(dm,Xloc,&x);
397:   CHKMEMQ;
398:   (*dmdasnes->jacobianplocal)(&info,x,A,B,dmdasnes->picardlocalctx);
399:   CHKMEMQ;
400:   DMDAVecRestoreArray(dm,Xloc,&x);
401:   DMRestoreLocalVector(dm,&Xloc);
402:   if (A != B) {
403:     MatAssemblyBegin(A,MAT_FINAL_ASSEMBLY);
404:     MatAssemblyEnd(A,MAT_FINAL_ASSEMBLY);
405:   }
406:   return(0);
407: }

409: /*@C
410:    DMDASNESSetPicardLocal - set a local right hand side and matrix evaluation function for Picard iteration

412:    Logically Collective

414:    Input Arguments:
415: +  dm - DM to associate callback with
416: .  imode - INSERT_VALUES if local function computes owned part, ADD_VALUES if it contributes to ghosted part
417: .  func - local residual evaluation
418: -  ctx - optional context for local residual evaluation

420:    Calling sequence for func:
421: +  info - DMDALocalInfo defining the subdomain to evaluate the residual on
422: .  x - dimensional pointer to state at which to evaluate residual
423: .  f - dimensional pointer to residual, write the residual here
424: -  ctx - optional context passed above

426:    Notes:
427:     The user must use
428:     SNESSetFunction(snes,NULL,SNESPicardComputeFunction,&user);
429:     in their code before calling this routine.


432:    Level: beginner

434: .seealso: DMSNESSetFunction(), DMDASNESSetJacobian(), DMDACreate1d(), DMDACreate2d(), DMDACreate3d()
435: @*/
436: PetscErrorCode DMDASNESSetPicardLocal(DM dm,InsertMode imode,PetscErrorCode (*func)(DMDALocalInfo*,void*,void*,void*),
437:                                       PetscErrorCode (*jac)(DMDALocalInfo*,void*,Mat,Mat,void*),void *ctx)
438: {
440:   DMSNES         sdm;
441:   DMSNES_DA      *dmdasnes;

445:   DMGetDMSNESWrite(dm,&sdm);
446:   DMDASNESGetContext(dm,sdm,&dmdasnes);

448:   dmdasnes->residuallocalimode = imode;
449:   dmdasnes->rhsplocal          = func;
450:   dmdasnes->jacobianplocal     = jac;
451:   dmdasnes->picardlocalctx     = ctx;

453:   DMSNESSetPicard(dm,SNESComputePicard_DMDA,SNESComputePicardJacobian_DMDA,dmdasnes);
454:   return(0);
455: }