baij/mpi/mmbaij.c

16   PetscHMapI    gid1_lid1 = NULL;
26   PetscCall(PetscHMapICreateWithSize(B->mbs, &gid1_lid1));
30       PetscCall(PetscHMapIGetWithDefault(gid1_lid1, gid1, 0, &data));
33         PetscCall(PetscHMapISet(gid1_lid1, gid1, ++ec));
39   PetscHashIterBegin(gid1_lid1, tpos);
40   while (!PetscHashIterAtEnd(gid1_lid1, tpos)) {
41     PetscHashIterGetKey(gid1_lid1, tpos, gid);
42     PetscHashIterGetVal(gid1_lid1, tpos, lid);
43     PetscHashIterNext(gid1_lid1, tpos);
49   PetscCall(PetscHMapIClear(gid1_lid1));
50   for (i = 0; i < ec; i++) PetscCall(PetscHMapISet(gid1_lid1, garray[i] + 1, i + 1));
55       PetscCall(PetscHMapIGetWithDefault(gid1_lid1, gid1, 0, &lid));
63   PetscCall(PetscHMapIDestroy(&gid1_lid1));