Actual source code: ex1.c

  1: /*$Id: ex1.c,v 1.36 2001/03/23 23:23:25 balay Exp $*/

  3: static char help[] = "Tests the creation of a PC context.nn";

 5:  #include petscpc.h

  7: int main(int argc,char **args)
  8: {
  9:   PC  pc;
 10:   int ierr,n = 5;
 11:   Vec u;
 12:   Mat mat;

 14:   PetscInitialize(&argc,&args,(char *)0,help);
 15:   PCCreate(PETSC_COMM_WORLD,&pc);
 16:   PCSetType(pc,PCNONE);

 18:   /* Vector and matrix must be set before calling PCSetUp */
 19:   VecCreateSeq(PETSC_COMM_SELF,n,&u);
 20:   PCSetVector(pc,u);
 21:   MatCreateSeqAIJ(PETSC_COMM_SELF,n,n,3,PETSC_NULL,&mat);
 22:   PCSetOperators(pc,mat,mat,DIFFERENT_NONZERO_PATTERN);
 23:   PCSetUp(pc);

 25:   VecDestroy(u);
 26:   MatDestroy(mat);
 27:   PCDestroy(pc);
 28:   PetscFinalize();
 29:   return 0;
 30: }
 31: