function
   
petsc-3.3-p0 2012-06-05
comm = PETSC_COMM_SELF() [err,comm] = calllib('libpetsc', 'PetscGetPETSC_COMM_SELF',0);PetscCHKERRQ(err);