function
   
petsc-3.5.3 2015-01-31
comm = PETSC_COMM_SELF() [err,comm] = calllib('libpetsc', 'PetscGetPETSC_COMM_SELF',0);PetscCHKERRQ(err);