/*@C
KSPAppendOptionsPrefix - Appends to the prefix used for searching for all
KSP options in the database.
Logically Collective on KSP
Input Parameters:
+ ksp - the Krylov context
- prefix - the prefix string to prepend to all KSP option requests
Notes:
A hyphen (-) must NOT be given at the beginning of the prefix name.
The first character of all runtime options is AUTOMATICALLY the hyphen.
Level: advanced
.keywords: KSP, append, options, prefix, database
.seealso: KSPSetOptionsPrefix(), KSPGetOptionsPrefix()
@*/
PetscErrorCode KSPAppendOptionsPrefix(KSP ksp,const char prefix[])
{
PetscErrorCode ierr;
PetscFunctionBegin;
PetscValidHeaderSpecific(ksp,KSP_CLASSID,1);
if (!ksp->pc) {ierr = KSPGetPC(ksp,&ksp->pc);CHKERRQ(ierr);}
ierr = PCAppendOptionsPrefix(ksp->pc,prefix);CHKERRQ(ierr);
ierr = PetscObjectAppendOptionsPrefix((PetscObject)ksp,prefix);CHKERRQ(ierr);
PetscFunctionReturn(0);
}
static PetscErrorCode PCCompositeAddPC_Composite(PC pc,PCType type)
{
PC_Composite *jac;
PC_CompositeLink next,ilink;
PetscErrorCode ierr;
PetscInt cnt = 0;
const char *prefix;
char newprefix[8];
PetscFunctionBegin;
ierr = PetscNewLog(pc,&ilink);CHKERRQ(ierr);
ilink->next = 0;
ierr = PCCreate(PetscObjectComm((PetscObject)pc),&ilink->pc);CHKERRQ(ierr);
ierr = PetscLogObjectParent((PetscObject)pc,(PetscObject)ilink->pc);CHKERRQ(ierr);
jac = (PC_Composite*)pc->data;
next = jac->head;
if (!next) {
jac->head = ilink;
ilink->previous = NULL;
} else {
cnt++;
while (next->next) {
next = next->next;
cnt++;
}
next->next = ilink;
ilink->previous = next;
}
ierr = PCGetOptionsPrefix(pc,&prefix);CHKERRQ(ierr);
ierr = PCSetOptionsPrefix(ilink->pc,prefix);CHKERRQ(ierr);
sprintf(newprefix,"sub_%d_",(int)cnt);
ierr = PCAppendOptionsPrefix(ilink->pc,newprefix);CHKERRQ(ierr);
/* type is set after prefix, because some methods may modify prefix, e.g. pcksp */
ierr = PCSetType(ilink->pc,type);CHKERRQ(ierr);
PetscFunctionReturn(0);
}
