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