Actual source code: pcmat.c

  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