Lines Matching refs:wf
101 static PetscErrorCode PetscWeakFormGetFunction_Private(PetscWeakForm wf, PetscHMapForm ht, DMLabel … in PetscWeakFormGetFunction_Private() argument
117 *func = (PetscVoidFn **)&wf->funcs->array[chunk.start]; in PetscWeakFormGetFunction_Private()
123 static PetscErrorCode PetscWeakFormSetFunction_Private(PetscWeakForm wf, PetscHMapForm ht, DMLabel … in PetscWeakFormSetFunction_Private() argument
139 PetscCall(PetscChunkBufferCreateChunk(wf->funcs, n, &chunk)); in PetscWeakFormSetFunction_Private()
142 PetscCall(PetscChunkBufferEnlargeChunk(wf->funcs, n - chunk.size, &chunk)); in PetscWeakFormSetFunction_Private()
145 for (i = 0; i < n; ++i) ((PetscVoidFn **)&wf->funcs->array[chunk.start])[i] = func[i]; in PetscWeakFormSetFunction_Private()
149 static PetscErrorCode PetscWeakFormAddFunction_Private(PetscWeakForm wf, PetscHMapForm ht, DMLabel … in PetscWeakFormAddFunction_Private() argument
162 PetscCall(PetscChunkBufferCreateChunk(wf->funcs, 1, &chunk)); in PetscWeakFormAddFunction_Private()
164 ((PetscVoidFn **)&wf->funcs->array[chunk.start])[0] = func; in PetscWeakFormAddFunction_Private()
166 PetscCall(PetscChunkBufferEnlargeChunk(wf->funcs, 1, &chunk)); in PetscWeakFormAddFunction_Private()
168 ((PetscVoidFn **)&wf->funcs->array[chunk.start])[chunk.size - 1] = func; in PetscWeakFormAddFunction_Private()
173 static PetscErrorCode PetscWeakFormGetIndexFunction_Private(PetscWeakForm wf, PetscHMapForm ht, DML… in PetscWeakFormGetIndexFunction_Private() argument
188 *func = ((PetscVoidFn **)&wf->funcs->array[chunk.start])[ind]; in PetscWeakFormGetIndexFunction_Private()
194 static PetscErrorCode PetscWeakFormSetIndexFunction_Private(PetscWeakForm wf, PetscHMapForm ht, DML… in PetscWeakFormSetIndexFunction_Private() argument
207 PetscCall(PetscChunkBufferCreateChunk(wf->funcs, ind + 1, &chunk)); in PetscWeakFormSetIndexFunction_Private()
210 PetscCall(PetscChunkBufferEnlargeChunk(wf->funcs, ind - chunk.size + 1, &chunk)); in PetscWeakFormSetIndexFunction_Private()
213 ((PetscVoidFn **)&wf->funcs->array[chunk.start])[ind] = func; in PetscWeakFormSetIndexFunction_Private()
217 static PetscErrorCode PetscWeakFormClearIndexFunction_Private(PetscWeakForm wf, PetscHMapForm ht, D… in PetscWeakFormClearIndexFunction_Private() argument
236 ((PetscVoidFn **)&wf->funcs->array[chunk.start])[ind] = NULL; in PetscWeakFormClearIndexFunction_Private()
255 PetscErrorCode PetscWeakFormCopy(PetscWeakForm wf, PetscWeakForm wfNew) in PetscWeakFormCopy() argument
260 wfNew->Nf = wf->Nf; in PetscWeakFormCopy()
262 PetscCall(PetscChunkBufferDuplicate(wf->funcs, &wfNew->funcs)); in PetscWeakFormCopy()
265 PetscCall(PetscHMapFormDuplicate(wf->form[f], &wfNew->form[f])); in PetscWeakFormCopy()
282 PetscErrorCode PetscWeakFormClear(PetscWeakForm wf) in PetscWeakFormClear() argument
287 for (f = 0; f < PETSC_NUM_WF; ++f) PetscCall(PetscHMapFormClear(wf->form[f])); in PetscWeakFormClear()
291 static PetscErrorCode PetscWeakFormRewriteKeys_Internal(PetscWeakForm wf, PetscHMapForm hmap, DMLab… in PetscWeakFormRewriteKeys_Internal() argument
307 …PetscCall(PetscWeakFormGetFunction_Private(wf, hmap, keys[i].label, keys[i].value, keys[i].field, … in PetscWeakFormRewriteKeys_Internal()
318 …PetscCall(PetscWeakFormGetFunction_Private(wf, hmap, keys[i].label, keys[i].value, keys[i].field, … in PetscWeakFormRewriteKeys_Internal()
321 …PetscCall(PetscWeakFormSetFunction_Private(wf, hmap, keys[i].label, values[v], keys[i].field, keys… in PetscWeakFormRewriteKeys_Internal()
324 …if (clear) PetscCall(PetscWeakFormSetFunction_Private(wf, hmap, keys[i].label, keys[i].value, keys… in PetscWeakFormRewriteKeys_Internal()
350 PetscErrorCode PetscWeakFormRewriteKeys(PetscWeakForm wf, DMLabel label, PetscInt Nv, const PetscIn… in PetscWeakFormRewriteKeys() argument
355 …for (f = 0; f < PETSC_NUM_WF; ++f) PetscCall(PetscWeakFormRewriteKeys_Internal(wf, wf->form[f], la… in PetscWeakFormRewriteKeys()
359 static PetscErrorCode PetscWeakFormReplaceLabel_Internal(PetscWeakForm wf, PetscHMapForm hmap, DMLa… in PetscWeakFormReplaceLabel_Internal() argument
382 …PetscCall(PetscWeakFormGetFunction_Private(wf, hmap, keys[i].label, keys[i].value, keys[i].field, … in PetscWeakFormReplaceLabel_Internal()
399 …PetscCall(PetscWeakFormGetFunction_Private(wf, hmap, keys[i].label, keys[i].value, keys[i].field, … in PetscWeakFormReplaceLabel_Internal()
401 …PetscCall(PetscWeakFormSetFunction_Private(wf, hmap, label, keys[i].value, keys[i].field, keys[i].… in PetscWeakFormReplaceLabel_Internal()
402 …PetscCall(PetscWeakFormSetFunction_Private(wf, hmap, keys[i].label, keys[i].value, keys[i].field, … in PetscWeakFormReplaceLabel_Internal()
426 PetscErrorCode PetscWeakFormReplaceLabel(PetscWeakForm wf, DMLabel label) in PetscWeakFormReplaceLabel() argument
431 …for (f = 0; f < PETSC_NUM_WF; ++f) PetscCall(PetscWeakFormReplaceLabel_Internal(wf, wf->form[f], l… in PetscWeakFormReplaceLabel()
435 PetscErrorCode PetscWeakFormClearIndex(PetscWeakForm wf, DMLabel label, PetscInt val, PetscInt f, P… in PetscWeakFormClearIndex() argument
438 PetscCall(PetscWeakFormClearIndexFunction_Private(wf, wf->form[kind], label, val, f, part, ind)); in PetscWeakFormClearIndex()
442 PetscErrorCode PetscWeakFormGetObjective(PetscWeakForm wf, DMLabel label, PetscInt val, PetscInt f,… in PetscWeakFormGetObjective() argument
445 …PetscCall(PetscWeakFormGetFunction_Private(wf, wf->form[PETSC_WF_OBJECTIVE], label, val, f, part, … in PetscWeakFormGetObjective()
449 PetscErrorCode PetscWeakFormSetObjective(PetscWeakForm wf, DMLabel label, PetscInt val, PetscInt f,… in PetscWeakFormSetObjective() argument
452 …PetscCall(PetscWeakFormSetFunction_Private(wf, wf->form[PETSC_WF_OBJECTIVE], label, val, f, part, … in PetscWeakFormSetObjective()
456 PetscErrorCode PetscWeakFormAddObjective(PetscWeakForm wf, DMLabel label, PetscInt val, PetscInt f,… in PetscWeakFormAddObjective() argument
459 …PetscCall(PetscWeakFormAddFunction_Private(wf, wf->form[PETSC_WF_OBJECTIVE], label, val, f, part, … in PetscWeakFormAddObjective()
463 PetscErrorCode PetscWeakFormGetIndexObjective(PetscWeakForm wf, DMLabel label, PetscInt val, PetscI… in PetscWeakFormGetIndexObjective() argument
466 …PetscCall(PetscWeakFormGetIndexFunction_Private(wf, wf->form[PETSC_WF_OBJECTIVE], label, val, f, p… in PetscWeakFormGetIndexObjective()
470 PetscErrorCode PetscWeakFormSetIndexObjective(PetscWeakForm wf, DMLabel label, PetscInt val, PetscI… in PetscWeakFormSetIndexObjective() argument
473 …PetscCall(PetscWeakFormSetIndexFunction_Private(wf, wf->form[PETSC_WF_OBJECTIVE], label, val, f, p… in PetscWeakFormSetIndexObjective()
477 PetscErrorCode PetscWeakFormGetResidual(PetscWeakForm wf, DMLabel label, PetscInt val, PetscInt f, … in PetscWeakFormGetResidual() argument
480 …PetscCall(PetscWeakFormGetFunction_Private(wf, wf->form[PETSC_WF_F0], label, val, f, part, n0, (vo… in PetscWeakFormGetResidual()
481 …PetscCall(PetscWeakFormGetFunction_Private(wf, wf->form[PETSC_WF_F1], label, val, f, part, n1, (vo… in PetscWeakFormGetResidual()
485 PetscErrorCode PetscWeakFormAddResidual(PetscWeakForm wf, DMLabel label, PetscInt val, PetscInt f, … in PetscWeakFormAddResidual() argument
488 …PetscCall(PetscWeakFormAddFunction_Private(wf, wf->form[PETSC_WF_F0], label, val, f, part, (PetscV… in PetscWeakFormAddResidual()
489 …PetscCall(PetscWeakFormAddFunction_Private(wf, wf->form[PETSC_WF_F1], label, val, f, part, (PetscV… in PetscWeakFormAddResidual()
493 PetscErrorCode PetscWeakFormSetResidual(PetscWeakForm wf, DMLabel label, PetscInt val, PetscInt f, … in PetscWeakFormSetResidual() argument
496 …PetscCall(PetscWeakFormSetFunction_Private(wf, wf->form[PETSC_WF_F0], label, val, f, part, n0, (Pe… in PetscWeakFormSetResidual()
497 …PetscCall(PetscWeakFormSetFunction_Private(wf, wf->form[PETSC_WF_F1], label, val, f, part, n1, (Pe… in PetscWeakFormSetResidual()
501 PetscErrorCode PetscWeakFormSetIndexResidual(PetscWeakForm wf, DMLabel label, PetscInt val, PetscIn… in PetscWeakFormSetIndexResidual() argument
504 …PetscCall(PetscWeakFormSetIndexFunction_Private(wf, wf->form[PETSC_WF_F0], label, val, f, part, i0… in PetscWeakFormSetIndexResidual()
505 …PetscCall(PetscWeakFormSetIndexFunction_Private(wf, wf->form[PETSC_WF_F1], label, val, f, part, i1… in PetscWeakFormSetIndexResidual()
509 PetscErrorCode PetscWeakFormGetBdResidual(PetscWeakForm wf, DMLabel label, PetscInt val, PetscInt f… in PetscWeakFormGetBdResidual() argument
512 …PetscCall(PetscWeakFormGetFunction_Private(wf, wf->form[PETSC_WF_BDF0], label, val, f, part, n0, (… in PetscWeakFormGetBdResidual()
513 …PetscCall(PetscWeakFormGetFunction_Private(wf, wf->form[PETSC_WF_BDF1], label, val, f, part, n1, (… in PetscWeakFormGetBdResidual()
517 PetscErrorCode PetscWeakFormAddBdResidual(PetscWeakForm wf, DMLabel label, PetscInt val, PetscInt f… in PetscWeakFormAddBdResidual() argument
520 …PetscCall(PetscWeakFormAddFunction_Private(wf, wf->form[PETSC_WF_BDF0], label, val, f, part, (Pets… in PetscWeakFormAddBdResidual()
521 …PetscCall(PetscWeakFormAddFunction_Private(wf, wf->form[PETSC_WF_BDF1], label, val, f, part, (Pets… in PetscWeakFormAddBdResidual()
525 PetscErrorCode PetscWeakFormSetBdResidual(PetscWeakForm wf, DMLabel label, PetscInt val, PetscInt f… in PetscWeakFormSetBdResidual() argument
528 …PetscCall(PetscWeakFormSetFunction_Private(wf, wf->form[PETSC_WF_BDF0], label, val, f, part, n0, (… in PetscWeakFormSetBdResidual()
529 …PetscCall(PetscWeakFormSetFunction_Private(wf, wf->form[PETSC_WF_BDF1], label, val, f, part, n1, (… in PetscWeakFormSetBdResidual()
533 PetscErrorCode PetscWeakFormSetIndexBdResidual(PetscWeakForm wf, DMLabel label, PetscInt val, Petsc… in PetscWeakFormSetIndexBdResidual() argument
536 …PetscCall(PetscWeakFormSetIndexFunction_Private(wf, wf->form[PETSC_WF_BDF0], label, val, f, part, … in PetscWeakFormSetIndexBdResidual()
537 …PetscCall(PetscWeakFormSetIndexFunction_Private(wf, wf->form[PETSC_WF_BDF1], label, val, f, part, … in PetscWeakFormSetIndexBdResidual()
541 PetscErrorCode PetscWeakFormHasJacobian(PetscWeakForm wf, PetscBool *hasJac) in PetscWeakFormHasJacobian() argument
546 PetscValidHeaderSpecific(wf, PETSCWEAKFORM_CLASSID, 1); in PetscWeakFormHasJacobian()
548 PetscCall(PetscHMapFormGetSize(wf->form[PETSC_WF_G0], &n0)); in PetscWeakFormHasJacobian()
549 PetscCall(PetscHMapFormGetSize(wf->form[PETSC_WF_G1], &n1)); in PetscWeakFormHasJacobian()
550 PetscCall(PetscHMapFormGetSize(wf->form[PETSC_WF_G2], &n2)); in PetscWeakFormHasJacobian()
551 PetscCall(PetscHMapFormGetSize(wf->form[PETSC_WF_G3], &n3)); in PetscWeakFormHasJacobian()
556 PetscErrorCode PetscWeakFormGetJacobian(PetscWeakForm wf, DMLabel label, PetscInt val, PetscInt f, … in PetscWeakFormGetJacobian() argument
558 PetscInt find = f * wf->Nf + g; in PetscWeakFormGetJacobian()
561 …PetscCall(PetscWeakFormGetFunction_Private(wf, wf->form[PETSC_WF_G0], label, val, find, part, n0, … in PetscWeakFormGetJacobian()
562 …PetscCall(PetscWeakFormGetFunction_Private(wf, wf->form[PETSC_WF_G1], label, val, find, part, n1, … in PetscWeakFormGetJacobian()
563 …PetscCall(PetscWeakFormGetFunction_Private(wf, wf->form[PETSC_WF_G2], label, val, find, part, n2, … in PetscWeakFormGetJacobian()
564 …PetscCall(PetscWeakFormGetFunction_Private(wf, wf->form[PETSC_WF_G3], label, val, find, part, n3, … in PetscWeakFormGetJacobian()
568 PetscErrorCode PetscWeakFormAddJacobian(PetscWeakForm wf, DMLabel label, PetscInt val, PetscInt f, … in PetscWeakFormAddJacobian() argument
570 PetscInt find = f * wf->Nf + g; in PetscWeakFormAddJacobian()
573 …PetscCall(PetscWeakFormAddFunction_Private(wf, wf->form[PETSC_WF_G0], label, val, find, part, (Pet… in PetscWeakFormAddJacobian()
574 …PetscCall(PetscWeakFormAddFunction_Private(wf, wf->form[PETSC_WF_G1], label, val, find, part, (Pet… in PetscWeakFormAddJacobian()
575 …PetscCall(PetscWeakFormAddFunction_Private(wf, wf->form[PETSC_WF_G2], label, val, find, part, (Pet… in PetscWeakFormAddJacobian()
576 …PetscCall(PetscWeakFormAddFunction_Private(wf, wf->form[PETSC_WF_G3], label, val, find, part, (Pet… in PetscWeakFormAddJacobian()
580 PetscErrorCode PetscWeakFormSetJacobian(PetscWeakForm wf, DMLabel label, PetscInt val, PetscInt f, … in PetscWeakFormSetJacobian() argument
582 PetscInt find = f * wf->Nf + g; in PetscWeakFormSetJacobian()
585 …PetscCall(PetscWeakFormSetFunction_Private(wf, wf->form[PETSC_WF_G0], label, val, find, part, n0, … in PetscWeakFormSetJacobian()
586 …PetscCall(PetscWeakFormSetFunction_Private(wf, wf->form[PETSC_WF_G1], label, val, find, part, n1, … in PetscWeakFormSetJacobian()
587 …PetscCall(PetscWeakFormSetFunction_Private(wf, wf->form[PETSC_WF_G2], label, val, find, part, n2, … in PetscWeakFormSetJacobian()
588 …PetscCall(PetscWeakFormSetFunction_Private(wf, wf->form[PETSC_WF_G3], label, val, find, part, n3, … in PetscWeakFormSetJacobian()
592 PetscErrorCode PetscWeakFormSetIndexJacobian(PetscWeakForm wf, DMLabel label, PetscInt val, PetscIn… in PetscWeakFormSetIndexJacobian() argument
594 PetscInt find = f * wf->Nf + g; in PetscWeakFormSetIndexJacobian()
597 …PetscCall(PetscWeakFormSetIndexFunction_Private(wf, wf->form[PETSC_WF_G0], label, val, find, part,… in PetscWeakFormSetIndexJacobian()
598 …PetscCall(PetscWeakFormSetIndexFunction_Private(wf, wf->form[PETSC_WF_G1], label, val, find, part,… in PetscWeakFormSetIndexJacobian()
599 …PetscCall(PetscWeakFormSetIndexFunction_Private(wf, wf->form[PETSC_WF_G2], label, val, find, part,… in PetscWeakFormSetIndexJacobian()
600 …PetscCall(PetscWeakFormSetIndexFunction_Private(wf, wf->form[PETSC_WF_G3], label, val, find, part,… in PetscWeakFormSetIndexJacobian()
604 PetscErrorCode PetscWeakFormHasJacobianPreconditioner(PetscWeakForm wf, PetscBool *hasJacPre) in PetscWeakFormHasJacobianPreconditioner() argument
609 PetscValidHeaderSpecific(wf, PETSCWEAKFORM_CLASSID, 1); in PetscWeakFormHasJacobianPreconditioner()
611 PetscCall(PetscHMapFormGetSize(wf->form[PETSC_WF_GP0], &n0)); in PetscWeakFormHasJacobianPreconditioner()
612 PetscCall(PetscHMapFormGetSize(wf->form[PETSC_WF_GP1], &n1)); in PetscWeakFormHasJacobianPreconditioner()
613 PetscCall(PetscHMapFormGetSize(wf->form[PETSC_WF_GP2], &n2)); in PetscWeakFormHasJacobianPreconditioner()
614 PetscCall(PetscHMapFormGetSize(wf->form[PETSC_WF_GP3], &n3)); in PetscWeakFormHasJacobianPreconditioner()
619 PetscErrorCode PetscWeakFormGetJacobianPreconditioner(PetscWeakForm wf, DMLabel label, PetscInt val… in PetscWeakFormGetJacobianPreconditioner() argument
621 PetscInt find = f * wf->Nf + g; in PetscWeakFormGetJacobianPreconditioner()
624 …PetscCall(PetscWeakFormGetFunction_Private(wf, wf->form[PETSC_WF_GP0], label, val, find, part, n0,… in PetscWeakFormGetJacobianPreconditioner()
625 …PetscCall(PetscWeakFormGetFunction_Private(wf, wf->form[PETSC_WF_GP1], label, val, find, part, n1,… in PetscWeakFormGetJacobianPreconditioner()
626 …PetscCall(PetscWeakFormGetFunction_Private(wf, wf->form[PETSC_WF_GP2], label, val, find, part, n2,… in PetscWeakFormGetJacobianPreconditioner()
627 …PetscCall(PetscWeakFormGetFunction_Private(wf, wf->form[PETSC_WF_GP3], label, val, find, part, n3,… in PetscWeakFormGetJacobianPreconditioner()
631 PetscErrorCode PetscWeakFormAddJacobianPreconditioner(PetscWeakForm wf, DMLabel label, PetscInt val… in PetscWeakFormAddJacobianPreconditioner() argument
633 PetscInt find = f * wf->Nf + g; in PetscWeakFormAddJacobianPreconditioner()
636 …PetscCall(PetscWeakFormAddFunction_Private(wf, wf->form[PETSC_WF_GP0], label, val, find, part, (Pe… in PetscWeakFormAddJacobianPreconditioner()
637 …PetscCall(PetscWeakFormAddFunction_Private(wf, wf->form[PETSC_WF_GP1], label, val, find, part, (Pe… in PetscWeakFormAddJacobianPreconditioner()
638 …PetscCall(PetscWeakFormAddFunction_Private(wf, wf->form[PETSC_WF_GP2], label, val, find, part, (Pe… in PetscWeakFormAddJacobianPreconditioner()
639 …PetscCall(PetscWeakFormAddFunction_Private(wf, wf->form[PETSC_WF_GP3], label, val, find, part, (Pe… in PetscWeakFormAddJacobianPreconditioner()
643 PetscErrorCode PetscWeakFormSetJacobianPreconditioner(PetscWeakForm wf, DMLabel label, PetscInt val… in PetscWeakFormSetJacobianPreconditioner() argument
645 PetscInt find = f * wf->Nf + g; in PetscWeakFormSetJacobianPreconditioner()
648 …PetscCall(PetscWeakFormSetFunction_Private(wf, wf->form[PETSC_WF_GP0], label, val, find, part, n0,… in PetscWeakFormSetJacobianPreconditioner()
649 …PetscCall(PetscWeakFormSetFunction_Private(wf, wf->form[PETSC_WF_GP1], label, val, find, part, n1,… in PetscWeakFormSetJacobianPreconditioner()
650 …PetscCall(PetscWeakFormSetFunction_Private(wf, wf->form[PETSC_WF_GP2], label, val, find, part, n2,… in PetscWeakFormSetJacobianPreconditioner()
651 …PetscCall(PetscWeakFormSetFunction_Private(wf, wf->form[PETSC_WF_GP3], label, val, find, part, n3,… in PetscWeakFormSetJacobianPreconditioner()
655 PetscErrorCode PetscWeakFormSetIndexJacobianPreconditioner(PetscWeakForm wf, DMLabel label, PetscIn… in PetscWeakFormSetIndexJacobianPreconditioner() argument
657 PetscInt find = f * wf->Nf + g; in PetscWeakFormSetIndexJacobianPreconditioner()
660 …PetscCall(PetscWeakFormSetIndexFunction_Private(wf, wf->form[PETSC_WF_GP0], label, val, find, part… in PetscWeakFormSetIndexJacobianPreconditioner()
661 …PetscCall(PetscWeakFormSetIndexFunction_Private(wf, wf->form[PETSC_WF_GP1], label, val, find, part… in PetscWeakFormSetIndexJacobianPreconditioner()
662 …PetscCall(PetscWeakFormSetIndexFunction_Private(wf, wf->form[PETSC_WF_GP2], label, val, find, part… in PetscWeakFormSetIndexJacobianPreconditioner()
663 …PetscCall(PetscWeakFormSetIndexFunction_Private(wf, wf->form[PETSC_WF_GP3], label, val, find, part… in PetscWeakFormSetIndexJacobianPreconditioner()
667 PetscErrorCode PetscWeakFormHasBdJacobian(PetscWeakForm wf, PetscBool *hasJac) in PetscWeakFormHasBdJacobian() argument
672 PetscValidHeaderSpecific(wf, PETSCWEAKFORM_CLASSID, 1); in PetscWeakFormHasBdJacobian()
674 PetscCall(PetscHMapFormGetSize(wf->form[PETSC_WF_BDG0], &n0)); in PetscWeakFormHasBdJacobian()
675 PetscCall(PetscHMapFormGetSize(wf->form[PETSC_WF_BDG1], &n1)); in PetscWeakFormHasBdJacobian()
676 PetscCall(PetscHMapFormGetSize(wf->form[PETSC_WF_BDG2], &n2)); in PetscWeakFormHasBdJacobian()
677 PetscCall(PetscHMapFormGetSize(wf->form[PETSC_WF_BDG3], &n3)); in PetscWeakFormHasBdJacobian()
682 PetscErrorCode PetscWeakFormGetBdJacobian(PetscWeakForm wf, DMLabel label, PetscInt val, PetscInt f… in PetscWeakFormGetBdJacobian() argument
684 PetscInt find = f * wf->Nf + g; in PetscWeakFormGetBdJacobian()
687 …PetscCall(PetscWeakFormGetFunction_Private(wf, wf->form[PETSC_WF_BDG0], label, val, find, part, n0… in PetscWeakFormGetBdJacobian()
688 …PetscCall(PetscWeakFormGetFunction_Private(wf, wf->form[PETSC_WF_BDG1], label, val, find, part, n1… in PetscWeakFormGetBdJacobian()
689 …PetscCall(PetscWeakFormGetFunction_Private(wf, wf->form[PETSC_WF_BDG2], label, val, find, part, n2… in PetscWeakFormGetBdJacobian()
690 …PetscCall(PetscWeakFormGetFunction_Private(wf, wf->form[PETSC_WF_BDG3], label, val, find, part, n3… in PetscWeakFormGetBdJacobian()
694 PetscErrorCode PetscWeakFormAddBdJacobian(PetscWeakForm wf, DMLabel label, PetscInt val, PetscInt f… in PetscWeakFormAddBdJacobian() argument
696 PetscInt find = f * wf->Nf + g; in PetscWeakFormAddBdJacobian()
699 …PetscCall(PetscWeakFormAddFunction_Private(wf, wf->form[PETSC_WF_BDG0], label, val, find, part, (P… in PetscWeakFormAddBdJacobian()
700 …PetscCall(PetscWeakFormAddFunction_Private(wf, wf->form[PETSC_WF_BDG1], label, val, find, part, (P… in PetscWeakFormAddBdJacobian()
701 …PetscCall(PetscWeakFormAddFunction_Private(wf, wf->form[PETSC_WF_BDG2], label, val, find, part, (P… in PetscWeakFormAddBdJacobian()
702 …PetscCall(PetscWeakFormAddFunction_Private(wf, wf->form[PETSC_WF_BDG3], label, val, find, part, (P… in PetscWeakFormAddBdJacobian()
706 PetscErrorCode PetscWeakFormSetBdJacobian(PetscWeakForm wf, DMLabel label, PetscInt val, PetscInt f… in PetscWeakFormSetBdJacobian() argument
708 PetscInt find = f * wf->Nf + g; in PetscWeakFormSetBdJacobian()
711 …PetscCall(PetscWeakFormSetFunction_Private(wf, wf->form[PETSC_WF_BDG0], label, val, find, part, n0… in PetscWeakFormSetBdJacobian()
712 …PetscCall(PetscWeakFormSetFunction_Private(wf, wf->form[PETSC_WF_BDG1], label, val, find, part, n1… in PetscWeakFormSetBdJacobian()
713 …PetscCall(PetscWeakFormSetFunction_Private(wf, wf->form[PETSC_WF_BDG2], label, val, find, part, n2… in PetscWeakFormSetBdJacobian()
714 …PetscCall(PetscWeakFormSetFunction_Private(wf, wf->form[PETSC_WF_BDG3], label, val, find, part, n3… in PetscWeakFormSetBdJacobian()
718 PetscErrorCode PetscWeakFormSetIndexBdJacobian(PetscWeakForm wf, DMLabel label, PetscInt val, Petsc… in PetscWeakFormSetIndexBdJacobian() argument
720 PetscInt find = f * wf->Nf + g; in PetscWeakFormSetIndexBdJacobian()
723 …PetscCall(PetscWeakFormSetIndexFunction_Private(wf, wf->form[PETSC_WF_BDG0], label, val, find, par… in PetscWeakFormSetIndexBdJacobian()
724 …PetscCall(PetscWeakFormSetIndexFunction_Private(wf, wf->form[PETSC_WF_BDG1], label, val, find, par… in PetscWeakFormSetIndexBdJacobian()
725 …PetscCall(PetscWeakFormSetIndexFunction_Private(wf, wf->form[PETSC_WF_BDG2], label, val, find, par… in PetscWeakFormSetIndexBdJacobian()
726 …PetscCall(PetscWeakFormSetIndexFunction_Private(wf, wf->form[PETSC_WF_BDG3], label, val, find, par… in PetscWeakFormSetIndexBdJacobian()
730 PetscErrorCode PetscWeakFormHasBdJacobianPreconditioner(PetscWeakForm wf, PetscBool *hasJacPre) in PetscWeakFormHasBdJacobianPreconditioner() argument
735 PetscValidHeaderSpecific(wf, PETSCWEAKFORM_CLASSID, 1); in PetscWeakFormHasBdJacobianPreconditioner()
737 PetscCall(PetscHMapFormGetSize(wf->form[PETSC_WF_BDGP0], &n0)); in PetscWeakFormHasBdJacobianPreconditioner()
738 PetscCall(PetscHMapFormGetSize(wf->form[PETSC_WF_BDGP1], &n1)); in PetscWeakFormHasBdJacobianPreconditioner()
739 PetscCall(PetscHMapFormGetSize(wf->form[PETSC_WF_BDGP2], &n2)); in PetscWeakFormHasBdJacobianPreconditioner()
740 PetscCall(PetscHMapFormGetSize(wf->form[PETSC_WF_BDGP3], &n3)); in PetscWeakFormHasBdJacobianPreconditioner()
745 PetscErrorCode PetscWeakFormGetBdJacobianPreconditioner(PetscWeakForm wf, DMLabel label, PetscInt v… in PetscWeakFormGetBdJacobianPreconditioner() argument
747 PetscInt find = f * wf->Nf + g; in PetscWeakFormGetBdJacobianPreconditioner()
750 …PetscCall(PetscWeakFormGetFunction_Private(wf, wf->form[PETSC_WF_BDGP0], label, val, find, part, n… in PetscWeakFormGetBdJacobianPreconditioner()
751 …PetscCall(PetscWeakFormGetFunction_Private(wf, wf->form[PETSC_WF_BDGP1], label, val, find, part, n… in PetscWeakFormGetBdJacobianPreconditioner()
752 …PetscCall(PetscWeakFormGetFunction_Private(wf, wf->form[PETSC_WF_BDGP2], label, val, find, part, n… in PetscWeakFormGetBdJacobianPreconditioner()
753 …PetscCall(PetscWeakFormGetFunction_Private(wf, wf->form[PETSC_WF_BDGP3], label, val, find, part, n… in PetscWeakFormGetBdJacobianPreconditioner()
757 PetscErrorCode PetscWeakFormAddBdJacobianPreconditioner(PetscWeakForm wf, DMLabel label, PetscInt v… in PetscWeakFormAddBdJacobianPreconditioner() argument
759 PetscInt find = f * wf->Nf + g; in PetscWeakFormAddBdJacobianPreconditioner()
762 …PetscCall(PetscWeakFormAddFunction_Private(wf, wf->form[PETSC_WF_BDGP0], label, val, find, part, (… in PetscWeakFormAddBdJacobianPreconditioner()
763 …PetscCall(PetscWeakFormAddFunction_Private(wf, wf->form[PETSC_WF_BDGP1], label, val, find, part, (… in PetscWeakFormAddBdJacobianPreconditioner()
764 …PetscCall(PetscWeakFormAddFunction_Private(wf, wf->form[PETSC_WF_BDGP2], label, val, find, part, (… in PetscWeakFormAddBdJacobianPreconditioner()
765 …PetscCall(PetscWeakFormAddFunction_Private(wf, wf->form[PETSC_WF_BDGP3], label, val, find, part, (… in PetscWeakFormAddBdJacobianPreconditioner()
769 PetscErrorCode PetscWeakFormSetBdJacobianPreconditioner(PetscWeakForm wf, DMLabel label, PetscInt v… in PetscWeakFormSetBdJacobianPreconditioner() argument
771 PetscInt find = f * wf->Nf + g; in PetscWeakFormSetBdJacobianPreconditioner()
774 …PetscCall(PetscWeakFormSetFunction_Private(wf, wf->form[PETSC_WF_BDGP0], label, val, find, part, n… in PetscWeakFormSetBdJacobianPreconditioner()
775 …PetscCall(PetscWeakFormSetFunction_Private(wf, wf->form[PETSC_WF_BDGP1], label, val, find, part, n… in PetscWeakFormSetBdJacobianPreconditioner()
776 …PetscCall(PetscWeakFormSetFunction_Private(wf, wf->form[PETSC_WF_BDGP2], label, val, find, part, n… in PetscWeakFormSetBdJacobianPreconditioner()
777 …PetscCall(PetscWeakFormSetFunction_Private(wf, wf->form[PETSC_WF_BDGP3], label, val, find, part, n… in PetscWeakFormSetBdJacobianPreconditioner()
781 PetscErrorCode PetscWeakFormSetIndexBdJacobianPreconditioner(PetscWeakForm wf, DMLabel label, Petsc… in PetscWeakFormSetIndexBdJacobianPreconditioner() argument
783 PetscInt find = f * wf->Nf + g; in PetscWeakFormSetIndexBdJacobianPreconditioner()
786 …PetscCall(PetscWeakFormSetIndexFunction_Private(wf, wf->form[PETSC_WF_BDGP0], label, val, find, pa… in PetscWeakFormSetIndexBdJacobianPreconditioner()
787 …PetscCall(PetscWeakFormSetIndexFunction_Private(wf, wf->form[PETSC_WF_BDGP1], label, val, find, pa… in PetscWeakFormSetIndexBdJacobianPreconditioner()
788 …PetscCall(PetscWeakFormSetIndexFunction_Private(wf, wf->form[PETSC_WF_BDGP2], label, val, find, pa… in PetscWeakFormSetIndexBdJacobianPreconditioner()
789 …PetscCall(PetscWeakFormSetIndexFunction_Private(wf, wf->form[PETSC_WF_BDGP3], label, val, find, pa… in PetscWeakFormSetIndexBdJacobianPreconditioner()
793 PetscErrorCode PetscWeakFormHasDynamicJacobian(PetscWeakForm wf, PetscBool *hasDynJac) in PetscWeakFormHasDynamicJacobian() argument
798 PetscValidHeaderSpecific(wf, PETSCWEAKFORM_CLASSID, 1); in PetscWeakFormHasDynamicJacobian()
800 PetscCall(PetscHMapFormGetSize(wf->form[PETSC_WF_GT0], &n0)); in PetscWeakFormHasDynamicJacobian()
801 PetscCall(PetscHMapFormGetSize(wf->form[PETSC_WF_GT1], &n1)); in PetscWeakFormHasDynamicJacobian()
802 PetscCall(PetscHMapFormGetSize(wf->form[PETSC_WF_GT2], &n2)); in PetscWeakFormHasDynamicJacobian()
803 PetscCall(PetscHMapFormGetSize(wf->form[PETSC_WF_GT3], &n3)); in PetscWeakFormHasDynamicJacobian()
808 PetscErrorCode PetscWeakFormGetDynamicJacobian(PetscWeakForm wf, DMLabel label, PetscInt val, Petsc… in PetscWeakFormGetDynamicJacobian() argument
810 PetscInt find = f * wf->Nf + g; in PetscWeakFormGetDynamicJacobian()
813 …PetscCall(PetscWeakFormGetFunction_Private(wf, wf->form[PETSC_WF_GT0], label, val, find, part, n0,… in PetscWeakFormGetDynamicJacobian()
814 …PetscCall(PetscWeakFormGetFunction_Private(wf, wf->form[PETSC_WF_GT1], label, val, find, part, n1,… in PetscWeakFormGetDynamicJacobian()
815 …PetscCall(PetscWeakFormGetFunction_Private(wf, wf->form[PETSC_WF_GT2], label, val, find, part, n2,… in PetscWeakFormGetDynamicJacobian()
816 …PetscCall(PetscWeakFormGetFunction_Private(wf, wf->form[PETSC_WF_GT3], label, val, find, part, n3,… in PetscWeakFormGetDynamicJacobian()
820 PetscErrorCode PetscWeakFormAddDynamicJacobian(PetscWeakForm wf, DMLabel label, PetscInt val, Petsc… in PetscWeakFormAddDynamicJacobian() argument
822 PetscInt find = f * wf->Nf + g; in PetscWeakFormAddDynamicJacobian()
825 …PetscCall(PetscWeakFormAddFunction_Private(wf, wf->form[PETSC_WF_GT0], label, val, find, part, (Pe… in PetscWeakFormAddDynamicJacobian()
826 …PetscCall(PetscWeakFormAddFunction_Private(wf, wf->form[PETSC_WF_GT1], label, val, find, part, (Pe… in PetscWeakFormAddDynamicJacobian()
827 …PetscCall(PetscWeakFormAddFunction_Private(wf, wf->form[PETSC_WF_GT2], label, val, find, part, (Pe… in PetscWeakFormAddDynamicJacobian()
828 …PetscCall(PetscWeakFormAddFunction_Private(wf, wf->form[PETSC_WF_GT3], label, val, find, part, (Pe… in PetscWeakFormAddDynamicJacobian()
832 PetscErrorCode PetscWeakFormSetDynamicJacobian(PetscWeakForm wf, DMLabel label, PetscInt val, Petsc… in PetscWeakFormSetDynamicJacobian() argument
834 PetscInt find = f * wf->Nf + g; in PetscWeakFormSetDynamicJacobian()
837 …PetscCall(PetscWeakFormSetFunction_Private(wf, wf->form[PETSC_WF_GT0], label, val, find, part, n0,… in PetscWeakFormSetDynamicJacobian()
838 …PetscCall(PetscWeakFormSetFunction_Private(wf, wf->form[PETSC_WF_GT1], label, val, find, part, n1,… in PetscWeakFormSetDynamicJacobian()
839 …PetscCall(PetscWeakFormSetFunction_Private(wf, wf->form[PETSC_WF_GT2], label, val, find, part, n2,… in PetscWeakFormSetDynamicJacobian()
840 …PetscCall(PetscWeakFormSetFunction_Private(wf, wf->form[PETSC_WF_GT3], label, val, find, part, n3,… in PetscWeakFormSetDynamicJacobian()
844 PetscErrorCode PetscWeakFormSetIndexDynamicJacobian(PetscWeakForm wf, DMLabel label, PetscInt val, … in PetscWeakFormSetIndexDynamicJacobian() argument
846 PetscInt find = f * wf->Nf + g; in PetscWeakFormSetIndexDynamicJacobian()
849 …PetscCall(PetscWeakFormSetIndexFunction_Private(wf, wf->form[PETSC_WF_GT0], label, val, find, part… in PetscWeakFormSetIndexDynamicJacobian()
850 …PetscCall(PetscWeakFormSetIndexFunction_Private(wf, wf->form[PETSC_WF_GT1], label, val, find, part… in PetscWeakFormSetIndexDynamicJacobian()
851 …PetscCall(PetscWeakFormSetIndexFunction_Private(wf, wf->form[PETSC_WF_GT2], label, val, find, part… in PetscWeakFormSetIndexDynamicJacobian()
852 …PetscCall(PetscWeakFormSetIndexFunction_Private(wf, wf->form[PETSC_WF_GT3], label, val, find, part… in PetscWeakFormSetIndexDynamicJacobian()
856 PetscErrorCode PetscWeakFormGetRiemannSolver(PetscWeakForm wf, DMLabel label, PetscInt val, PetscIn… in PetscWeakFormGetRiemannSolver() argument
859 …PetscCall(PetscWeakFormGetFunction_Private(wf, wf->form[PETSC_WF_R], label, val, f, part, n, (void… in PetscWeakFormGetRiemannSolver()
863 PetscErrorCode PetscWeakFormSetRiemannSolver(PetscWeakForm wf, DMLabel label, PetscInt val, PetscIn… in PetscWeakFormSetRiemannSolver() argument
866 …PetscCall(PetscWeakFormSetFunction_Private(wf, wf->form[PETSC_WF_R], label, val, f, part, n, (Pets… in PetscWeakFormSetRiemannSolver()
870 PetscErrorCode PetscWeakFormSetIndexRiemannSolver(PetscWeakForm wf, DMLabel label, PetscInt val, Pe… in PetscWeakFormSetIndexRiemannSolver() argument
873 …PetscCall(PetscWeakFormSetIndexFunction_Private(wf, wf->form[PETSC_WF_R], label, val, f, part, i, … in PetscWeakFormSetIndexRiemannSolver()
892 PetscErrorCode PetscWeakFormGetNumFields(PetscWeakForm wf, PetscInt *Nf) in PetscWeakFormGetNumFields() argument
895 PetscValidHeaderSpecific(wf, PETSCWEAKFORM_CLASSID, 1); in PetscWeakFormGetNumFields()
897 *Nf = wf->Nf; in PetscWeakFormGetNumFields()
914 PetscErrorCode PetscWeakFormSetNumFields(PetscWeakForm wf, PetscInt Nf) in PetscWeakFormSetNumFields() argument
917 PetscValidHeaderSpecific(wf, PETSCWEAKFORM_CLASSID, 1); in PetscWeakFormSetNumFields()
918 wf->Nf = Nf; in PetscWeakFormSetNumFields()
934 PetscErrorCode PetscWeakFormDestroy(PetscWeakForm *wf) in PetscWeakFormDestroy() argument
939 if (!*wf) PetscFunctionReturn(PETSC_SUCCESS); in PetscWeakFormDestroy()
940 PetscValidHeaderSpecific(*wf, PETSCWEAKFORM_CLASSID, 1); in PetscWeakFormDestroy()
942 if (--((PetscObject)*wf)->refct > 0) { in PetscWeakFormDestroy()
943 *wf = NULL; in PetscWeakFormDestroy()
946 ((PetscObject)*wf)->refct = 0; in PetscWeakFormDestroy()
947 PetscCall(PetscChunkBufferDestroy(&(*wf)->funcs)); in PetscWeakFormDestroy()
948 for (f = 0; f < PETSC_NUM_WF; ++f) PetscCall(PetscHMapFormDestroy(&(*wf)->form[f])); in PetscWeakFormDestroy()
949 PetscCall(PetscFree((*wf)->form)); in PetscWeakFormDestroy()
950 PetscCall(PetscHeaderDestroy(wf)); in PetscWeakFormDestroy()
954 static PetscErrorCode PetscWeakFormViewTable_Ascii(PetscWeakForm wf, PetscViewer viewer, PetscBool … in PetscWeakFormViewTable_Ascii() argument
956 PetscInt Nf = wf->Nf, Nk, k; in PetscWeakFormViewTable_Ascii()
1008 …PetscCall(PetscWeakFormGetFunction_Private(wf, map, keys[i].label, keys[i].value, keys[i].field, k… in PetscWeakFormViewTable_Ascii()
1044 static PetscErrorCode PetscWeakFormView_Ascii(PetscWeakForm wf, PetscViewer viewer) in PetscWeakFormView_Ascii() argument
1051 …PetscCall(PetscViewerASCIIPrintf(viewer, "Weak Form System with %" PetscInt_FMT " fields\n", wf->N… in PetscWeakFormView_Ascii()
1053 …NUM_WF; ++f) PetscCall(PetscWeakFormViewTable_Ascii(wf, viewer, PETSC_TRUE, PetscWeakFormKinds[f],… in PetscWeakFormView_Ascii()
1071 PetscErrorCode PetscWeakFormView(PetscWeakForm wf, PetscViewer v) in PetscWeakFormView() argument
1076 PetscValidHeaderSpecific(wf, PETSCWEAKFORM_CLASSID, 1); in PetscWeakFormView()
1077 if (!v) PetscCall(PetscViewerASCIIGetStdout(PetscObjectComm((PetscObject)wf), &v)); in PetscWeakFormView()
1080 if (isascii) PetscCall(PetscWeakFormView_Ascii(wf, v)); in PetscWeakFormView()
1081 PetscTryTypeMethod(wf, view, v); in PetscWeakFormView()
1100 PetscErrorCode PetscWeakFormCreate(MPI_Comm comm, PetscWeakForm *wf) in PetscWeakFormCreate() argument
1106 PetscAssertPointer(wf, 2); in PetscWeakFormCreate()
1114 *wf = p; in PetscWeakFormCreate()