40   PetscInt     i, start, end, *ifrom, x, y, xm, ym;  in main()  local
63   PetscCall(PetscMalloc1(xm, &ifrom));  in main()
64   for (i = x; i < x + xm; i++) ifrom[i - x] = M * i;  in main()
66   PetscCall(AOApplicationToPetsc(ao, xm, ifrom));  in main()
68     PetscCall(ISCreateGeneral(PETSC_COMM_WORLD, xm, ifrom, PETSC_OWN_POINTER, &from));  in main()
70     PetscCall(PetscFree(ifrom));  in main()
83   PetscCall(PetscMalloc1(ym, &ifrom));  in main()
84   for (i = y; i < y + ym; i++) ifrom[i - y] = i;  in main()
86   PetscCall(AOApplicationToPetsc(ao, ym, ifrom));  in main()
88     PetscCall(ISCreateGeneral(PETSC_COMM_WORLD, ym, ifrom, PETSC_OWN_POINTER, &from));  in main()
90     PetscCall(PetscFree(ifrom));  in main()