| Line 317... |
Line 317... |
PetscErrorCode ierr, (*f)(ST,Mat);
|
PetscErrorCode ierr, (*f)(ST,Mat);
|
|
|
PetscFunctionBegin;
|
PetscFunctionBegin;
|
PetscValidHeaderSpecific(st,ST_COOKIE,1);
|
PetscValidHeaderSpecific(st,ST_COOKIE,1);
|
PetscValidHeaderSpecific(mat,MAT_COOKIE,2);
|
PetscValidHeaderSpecific(mat,MAT_COOKIE,2);
|
ierr = PetscObjectQueryFunction((PetscObject)st,"STPrecondGetMatForPC_C",(void (**)())&f);CHKERRQ(ierr);
|
ierr = PetscObjectQueryFunction((PetscObject)st,"STPrecondSetMatForPC_C",(void (**)())&f);CHKERRQ(ierr);
|
if (f) {
|
if (f) {
|
ierr = (*f)(st,mat);CHKERRQ(ierr);
|
ierr = (*f)(st,mat);CHKERRQ(ierr);
|
}
|
}
|
PetscFunctionReturn(0);
|
PetscFunctionReturn(0);
|
}
|
}
|