537   BlockDesc        newblock, next = mb->blocks;  in SNESMultiblockSetFields_Default()  local
550   PetscCall(PetscNew(&newblock));  in SNESMultiblockSetFields_Default()
552     PetscCall(PetscStrallocpy(name, &newblock->name));  in SNESMultiblockSetFields_Default()
556     PetscCall(PetscMalloc1(len + 1, &newblock->name));  in SNESMultiblockSetFields_Default()
557     PetscCall(PetscSNPrintf(newblock->name, len, "%" PetscInt_FMT, mb->numBlocks));  in SNESMultiblockSetFields_Default()
559   newblock->nfields = n;  in SNESMultiblockSetFields_Default()
561   PetscCall(PetscMalloc1(n, &newblock->fields));  in SNESMultiblockSetFields_Default()
562   PetscCall(PetscArraycpy(newblock->fields, fields, n));  in SNESMultiblockSetFields_Default()
564   newblock->next = NULL;  in SNESMultiblockSetFields_Default()
566   PetscCall(SNESCreate(PetscObjectComm((PetscObject)snes), &newblock->snes));  in SNESMultiblockSetFields_Default()
567   PetscCall(PetscObjectIncrementTabLevel((PetscObject)newblock->snes, (PetscObject)snes, 1));  in SNESMultiblockSetFields_Default()
568   PetscCall(SNESSetType(newblock->snes, SNESNRICHARDSON));  in SNESMultiblockSetFields_Default()
569 …smultiblock_%s_", ((PetscObject)snes)->prefix ? ((PetscObject)snes)->prefix : "", newblock->name));  in SNESMultiblockSetFields_Default()
570   PetscCall(SNESSetOptionsPrefix(newblock->snes, prefix));  in SNESMultiblockSetFields_Default()
573     mb->blocks         = newblock;  in SNESMultiblockSetFields_Default()
574     newblock->previous = NULL;  in SNESMultiblockSetFields_Default()
577     next->next         = newblock;  in SNESMultiblockSetFields_Default()
578     newblock->previous = next;  in SNESMultiblockSetFields_Default()
587   BlockDesc        newblock, next = mb->blocks;  in SNESMultiblockSetIS_Default()  local
595   PetscCall(PetscNew(&newblock));  in SNESMultiblockSetIS_Default()
597     PetscCall(PetscStrallocpy(name, &newblock->name));  in SNESMultiblockSetIS_Default()
601     PetscCall(PetscMalloc1(len + 1, &newblock->name));  in SNESMultiblockSetIS_Default()
602     PetscCall(PetscSNPrintf(newblock->name, len, "%" PetscInt_FMT, mb->numBlocks));  in SNESMultiblockSetIS_Default()
604   newblock->is = is;  in SNESMultiblockSetIS_Default()
608   newblock->next = NULL;  in SNESMultiblockSetIS_Default()
610   PetscCall(SNESCreate(PetscObjectComm((PetscObject)snes), &newblock->snes));  in SNESMultiblockSetIS_Default()
611   PetscCall(PetscObjectIncrementTabLevel((PetscObject)newblock->snes, (PetscObject)snes, 1));  in SNESMultiblockSetIS_Default()
612   PetscCall(SNESSetType(newblock->snes, SNESNRICHARDSON));  in SNESMultiblockSetIS_Default()
613 …smultiblock_%s_", ((PetscObject)snes)->prefix ? ((PetscObject)snes)->prefix : "", newblock->name));  in SNESMultiblockSetIS_Default()
614   PetscCall(SNESSetOptionsPrefix(newblock->snes, prefix));  in SNESMultiblockSetIS_Default()
617     mb->blocks         = newblock;  in SNESMultiblockSetIS_Default()
618     newblock->previous = NULL;  in SNESMultiblockSetIS_Default()
621     next->next         = newblock;  in SNESMultiblockSetIS_Default()
622     newblock->previous = next;  in SNESMultiblockSetIS_Default()