#include "petsc.h"
int main(int argc,char **argv)
{
  PetscErrorCode      ierr;
  PetscInt            sz = 10;
  Vec                 v1,v2;  
  Mat                 m1,m2;

  ierr = PetscInitialize(&argc,&argv,(char*)0,"");CHKERRQ(ierr);
  ierr = VecCreate(PETSC_COMM_WORLD,&v1);
  ierr = VecSetType(v1,VECMPI);
  ierr = VecSetSizes(v1,sz,PETSC_DECIDE);
  ierr = VecSetFromOptions(v1);
  ierr = VecCreate(PETSC_COMM_WORLD,&v2);
  ierr = VecSetType(v2,VECMPI);
  ierr = VecSetSizes(v2,sz,PETSC_DECIDE);
  ierr = VecSetFromOptions(v2);
  
  ierr = MatCreate(PETSC_COMM_SELF,&m1);
  ierr = MatSetSizes(m1,sz,sz,sz,sz);
  ierr = MatSetType(m1,MATSEQAIJ);
  ierr = MatSetFromOptions(m1);

  ierr = MatCreate(PETSC_COMM_SELF,&m2);
  ierr = MatSetSizes(m2,sz,sz,sz,sz);
  ierr = MatSetType(m2,MATSEQAIJ);
  ierr = MatSetFromOptions(m2);
  
  ierr = VecDestroy(&v1);
  ierr = VecDestroy(&v2);
  ierr = MatDestroy(&m1);
  ierr = MatDestroy(&m2);
  PetscFinalize();
}