14   ptrdiff_t       alloc_local, local_n0, local_0_start;  in main()  local
35 …alloc_local = fftw_mpi_local_size_2d_transposed(N0, N1 / 2 + 1, PETSC_COMM_WORLD, &local_n0, &loca…  in main()
38   printf("The value local_n0 is %ld from process %d\n", local_n0, rank);  in main()
52   n        = 2 * local_n0 * (N1 / 2 + 1);  in main()
102   PetscCall(VecSetSizes(ini, local_n0 * N1, N0 * N1));  in main()
103   PetscCall(VecSetSizes(final, local_n0 * N1, N0 * N1));  in main()
115   PetscCall(PetscMalloc1(local_n0 * N1, &indx3));  in main()
116   PetscCall(PetscMalloc1(local_n0 * N1, &indx4));  in main()
117   for (i = 0; i < local_n0; i++) {  in main()
129 …PetscCall(PetscMalloc2(local_n0 * N1, &x_arr, local_n0 * N1, &y_arr)); /* arr must be allocated fo…  in main()
130   PetscCall(VecGetValues(fin, local_n0 * N1, indx4, (PetscScalar *)x_arr));  in main()
131   PetscCall(VecSetValues(ini, local_n0 * N1, indx3, x_arr, INSERT_VALUES));  in main()
136   PetscCall(VecGetValues(fout1, local_n0 * N1, indx4, y_arr));  in main()
137   PetscCall(VecSetValues(final, local_n0 * N1, indx3, y_arr, INSERT_VALUES));  in main()