1: /*$Id: jacobi.c,v 1.75 2001/08/07 03:03:32 balay Exp $*/ 3: #include src/sles/pc/pcimpl.h 5: static int PCApply_Mat(PC pc,Vec x,Vec y) 6: { 7: int ierr; 10: MatMult(pc->pmat,x,y); 11: return(0); 12: } 14: static int PCApplyTranspose_Mat(PC pc,Vec x,Vec y) 15: { 16: int ierr; 19: MatMultTranspose(pc->pmat,x,y); 20: return(0); 21: } 23: static int PCDestroy_Mat(PC pc) 24: { 26: return(0); 27: } 29: EXTERN_C_BEGIN 30: int PCCreate_Mat(PC pc) 31: { 33: pc->ops->apply = PCApply_Mat; 34: pc->ops->applytranspose = PCApplyTranspose_Mat; 35: pc->ops->setup = 0; 36: pc->ops->destroy = PCDestroy_Mat; 37: pc->ops->setfromoptions = 0; 38: pc->ops->view = 0; 39: pc->ops->applyrichardson = 0; 40: pc->ops->applysymmetricleft = 0; 41: pc->ops->applysymmetricright = 0; 42: return(0); 43: } 44: EXTERN_C_END