function
   
petsc-3.4.1 2013-06-10
[] = PetscCHKERRQ(err) if (err) error('Errors generated on calling Petsc library function'); end