Searched refs:arrc (Results 1 – 3 of 3) sorted by relevance
57 PetscScalar **arrc; in DMStagRestrictSimple_1d() local68 PetscCall(DMStagVecGetArray(dmc, xc_local, &arrc)); in DMStagRestrictSimple_1d()75 for (i = xc; i < xc + mc + nExtraxc; ++i) arrc[i][ileftc + d] = arrf[factorx * i][ileftf + d]; in DMStagRestrictSimple_1d()79 …if (factorx % 2 == 0) arrc[i][ielemc + d] = 0.5 * (arrf[factorx * i + factorx / 2 - 1][ielemf + d]… in DMStagRestrictSimple_1d()80 else arrc[i][ielemc + d] = arrf[factorx * i + factorx / 2][ielemf + d]; in DMStagRestrictSimple_1d()84 PetscCall(DMStagVecRestoreArray(dmc, xc_local, &arrc)); in DMStagRestrictSimple_1d()
63 PetscScalar ***arrc; in DMStagRestrictSimple_2d() local75 PetscCall(DMStagVecGetArray(dmc, xc_local, &arrc)); in DMStagRestrictSimple_2d()90 arrc[j][i][idownleftc + d] = arrf[jj][ii][idownleftf + d]; in DMStagRestrictSimple_2d()98 …if (factory % 2 == 0) arrc[j][i][ileftc + d] = 0.5 * (arrf[jj - 1][ii][ileftf + d] + arrf[jj][ii][… in DMStagRestrictSimple_2d()99 else arrc[j][i][ileftc + d] = arrf[jj][ii][ileftf + d]; in DMStagRestrictSimple_2d()107 …if (factorx % 2 == 0) arrc[j][i][idownc + d] = 0.5 * (arrf[jj][ii - 1][idownf + d] + arrf[jj][ii][… in DMStagRestrictSimple_2d()108 else arrc[j][i][idownc + d] = arrf[jj][ii][idownf + d]; in DMStagRestrictSimple_2d()116 …if (factorx % 2 == 0 && factory % 2 == 0) arrc[j][i][ielemc + d] = 0.25 * (arrf[jj - 1][ii - 1][ie… in DMStagRestrictSimple_2d()117 …else if (factorx % 2 == 0) arrc[j][i][ielemc + d] = 0.5 * (arrf[jj - 1][ii - 1][ielemf + d] + arrf… in DMStagRestrictSimple_2d()118 …else if (factory % 2 == 0) arrc[j][i][ielemc + d] = 0.5 * (arrf[jj - 1][ii - 1][ielemf + d] + arrf… in DMStagRestrictSimple_2d()[all …]
71 PetscScalar ****arrc; in DMStagRestrictSimple_3d() local84 PetscCall(DMStagVecGetArray(dmc, xc_local, &arrc)); in DMStagRestrictSimple_3d()108 arrc[k][j][i][ibackdownleftc + d] = arrf[kk][jj][ii][ibackdownleftf + d]; in DMStagRestrictSimple_3d()117 …if (factorx % 2 == 0) arrc[k][j][i][ibackdownc + d] = 0.5 * (arrf[kk][jj][ii - 1][ibackdownf + d] … in DMStagRestrictSimple_3d()118 else arrc[k][j][i][ibackdownc + d] = arrf[kk][jj][ii][ibackdownf + d]; in DMStagRestrictSimple_3d()127 …if (factory % 2 == 0) arrc[k][j][i][ibackleftc + d] = 0.5 * (arrf[kk][jj - 1][ii][ibackleftf + d] … in DMStagRestrictSimple_3d()128 else arrc[k][j][i][ibackleftc + d] = arrf[kk][jj][ii][ibackleftf + d]; in DMStagRestrictSimple_3d()137 …if (factorz % 2 == 0) arrc[k][j][i][idownleftc + d] = 0.5 * (arrf[kk - 1][jj][ii][idownleftf + d] … in DMStagRestrictSimple_3d()138 else arrc[k][j][i][idownleftc + d] = arrf[kk][jj][ii][idownleftf + d]; in DMStagRestrictSimple_3d()147 …if (factorx % 2 == 0 && factory % 2 == 0) arrc[k][j][i][ibackc + d] = 0.25 * (arrf[kk][jj - 1][ii … in DMStagRestrictSimple_3d()[all …]