I get an error in PetscCommGetNewTag. So I copied the test to may main and
I get the same problem. So this code fails:

int main( int argc, char **args )
{
  PetscErrorCode   ierr;
  ierr = PetscInitialize( &argc, &args, "./.petscrc", NULL );CHKERRQ(ierr);
  { // debug
    PetscCommCounter *counter;
    PetscMPIInt      flg;
    ierr =
MPI_Attr_get(PETSC_COMM_WORLD,Petsc_Counter_keyval,&counter,&flg);CHKERRQ(ierr);
    if (!flg) SETERRQ(PETSC_COMM_SELF,PETSC_ERR_ARG_CORRUPT,"Bad MPI
communicator supplied ???????????????");
  }

Any ideas?

Mark

Reply via email to