aij/mpi/mmaij.c

17   PetscHMapI    gid1_lid1 = NULL;
29     PetscCall(PetscHMapICreateWithSize(aij->B->rmap->n, &gid1_lid1));
33         PetscCall(PetscHMapIGetWithDefault(gid1_lid1, gid1, 0, &data));
36           PetscCall(PetscHMapISet(gid1_lid1, gid1, ++ec));
42     PetscHashIterBegin(gid1_lid1, tpos);
43     while (!PetscHashIterAtEnd(gid1_lid1, tpos)) {
44       PetscHashIterGetKey(gid1_lid1, tpos, gid);
45       PetscHashIterGetVal(gid1_lid1, tpos, lid);
46       PetscHashIterNext(gid1_lid1, tpos);
52     PetscCall(PetscHMapIClear(gid1_lid1));
53     for (i = 0; i < ec; i++) PetscCall(PetscHMapISet(gid1_lid1, garray[i] + 1, i + 1));
58         PetscCall(PetscHMapIGetWithDefault(gid1_lid1, gid1, 0, &lid));
65     PetscCall(PetscHMapIDestroy(&gid1_lid1));