function
   
petsc-3.3-p3 2012-08-29
comm = PETSC_COMM_SELF() [err,comm] = calllib('libpetsc', 'PetscGetPETSC_COMM_SELF',0);PetscCHKERRQ(err);