function
   
petsc-3.3-p2 2012-07-13
[] = PetscCHKERRQ(err) if (err) error('Errors generated on calling Petsc library function'); end