37   coo_data mycoo;  in main()  local
45   mycoo.n = 0;  in main()
54     for (PetscInt i = 0; i < ncoos; i++) mycoo.n += coos[i % 3].n;  in main()
55     PetscCall(PetscMalloc2(mycoo.n, &mycoo.i, mycoo.n, &mycoo.j));  in main()
56     mycoo.n = 0;  in main()
58       PetscCall(PetscArraycpy(mycoo.i + mycoo.n, coos[i % 3].i, coos[i % 3].n));  in main()
59       PetscCall(PetscArraycpy(mycoo.j + mycoo.n, coos[i % 3].j, coos[i % 3].n));  in main()
60       mycoo.n += coos[i % 3].n;  in main()
63   } else if (ncoos == 1 && PetscGlobalRank < 3) mycoo = coos[PetscGlobalRank];  in main()
65   if (missing_diagonal && PetscGlobalRank == 0) mycoo = coos[1];  in main()
76   PetscCall(PetscMalloc1(mycoo.n, &vals));  in main()
77   for (k = 0; k < mycoo.n; k++) {  in main()
78     vals[k] = mycoo.j[k];  in main()
79     PetscCall(MatSetValue(A, mycoo.i[k], mycoo.j[k], vals[k], ADD_VALUES));  in main()
89   PetscCall(MatSetPreallocationCOO(B, mycoo.n, mycoo.i, mycoo.j));  in main()
114   if (freecoo) PetscCall(PetscFree2(mycoo.i, mycoo.j));  in main()