Searched refs:arrf (Results 1 – 3 of 3) sorted by relevance
70 const PetscScalar ****arrf; in DMStagRestrictSimple_3d() local83 PetscCall(DMStagVecGetArray(dmf, xf_local, &arrf)); in DMStagRestrictSimple_3d()108 arrc[k][j][i][ibackdownleftc + d] = arrf[kk][jj][ii][ibackdownleftf + d]; in DMStagRestrictSimple_3d()117 …ctorx % 2 == 0) arrc[k][j][i][ibackdownc + d] = 0.5 * (arrf[kk][jj][ii - 1][ibackdownf + d] + arrf… in DMStagRestrictSimple_3d()118 else arrc[k][j][i][ibackdownc + d] = arrf[kk][jj][ii][ibackdownf + d]; in DMStagRestrictSimple_3d()127 …ctory % 2 == 0) arrc[k][j][i][ibackleftc + d] = 0.5 * (arrf[kk][jj - 1][ii][ibackleftf + d] + arrf… in DMStagRestrictSimple_3d()128 else arrc[k][j][i][ibackleftc + d] = arrf[kk][jj][ii][ibackleftf + d]; in DMStagRestrictSimple_3d()137 …ctorz % 2 == 0) arrc[k][j][i][idownleftc + d] = 0.5 * (arrf[kk - 1][jj][ii][idownleftf + d] + arrf… in DMStagRestrictSimple_3d()138 else arrc[k][j][i][idownleftc + d] = arrf[kk][jj][ii][idownleftf + d]; in DMStagRestrictSimple_3d()147 …ackc + d] = 0.25 * (arrf[kk][jj - 1][ii - 1][ibackf + d] + arrf[kk][jj - 1][ii][ibackf + d] + arrf… in DMStagRestrictSimple_3d()[all …]
62 const PetscScalar ***arrf; in DMStagRestrictSimple_2d() local74 PetscCall(DMStagVecGetArray(dmf, xf_local, &arrf)); 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 …[i][ielemc + d] = 0.25 * (arrf[jj - 1][ii - 1][ielemf + d] + arrf[jj][ii - 1][ielemf + d] + arrf[j… in DMStagRestrictSimple_2d()117 …se if (factorx % 2 == 0) arrc[j][i][ielemc + d] = 0.5 * (arrf[jj - 1][ii - 1][ielemf + d] + arrf[j… in DMStagRestrictSimple_2d()118 …se if (factory % 2 == 0) arrc[j][i][ielemc + d] = 0.5 * (arrf[jj - 1][ii - 1][ielemf + d] + arrf[j… in DMStagRestrictSimple_2d()[all …]
56 const PetscScalar **arrf; in DMStagRestrictSimple_1d() local67 PetscCall(DMStagVecGetArray(dmf, xf_local, &arrf)); 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 … (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()83 PetscCall(DMStagVecRestoreArray(dmf, xf_local, &arrf)); in DMStagRestrictSimple_1d()