function
   
petsc-3.3-p2 2012-07-13
comm = PETSC_COMM_SELF() [err,comm] = calllib('libpetsc', 'PetscGetPETSC_COMM_SELF',0);PetscCHKERRQ(err);