Home
last modified time | relevance | path

Searched refs:factorx (Results 1 – 4 of 4) sorted by relevance

/petsc/src/dm/impls/stag/
H A Dstagmulti.c450 PetscInt Mc, Mf, factorx, dof[2]; in DMStagPopulateInterpolation1d_Internal() local
460 factorx = Mf / Mc; in DMStagPopulateInterpolation1d_Internal()
476 colc[count].i = i / factorx; in DMStagPopulateInterpolation1d_Internal()
481 PetscCall(SetInterpolationCoefficientVertex_Private(i, factorx, &ax)); in DMStagPopulateInterpolation1d_Internal()
496 colc[0].i = i / factorx; in DMStagPopulateInterpolation1d_Internal()
509 PetscInt Mc, Nc, Mf, Nf, factorx, factory, dof[3]; in DMStagPopulateInterpolation2d_Internal() local
519 factorx = Mf / Mc; in DMStagPopulateInterpolation2d_Internal()
538 colc[count].i = i / factorx; in DMStagPopulateInterpolation2d_Internal()
546 PetscCall(SetInterpolationCoefficientVertex_Private(i, factorx, &ax)); in DMStagPopulateInterpolation2d_Internal()
567 colc[count].i = i / factorx; in DMStagPopulateInterpolation2d_Internal()
[all …]
H A Dstag1d.c53 PetscInt Mf, Mc, factorx, dof[2]; in DMStagRestrictSimple_1d() local
62 factorx = Mf / Mc; 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()
H A Dstag2d.c59 PetscInt Mf, Nf, Mc, Nc, factorx, factory, dof[3]; in DMStagRestrictSimple_2d() local
68 factorx = Mf / Mc; in DMStagRestrictSimple_2d()
88 const PetscInt ii = factorx * i, jj = factory * j; in DMStagRestrictSimple_2d()
96 const PetscInt ii = factorx * i, jj = factory * j + factory / 2; in DMStagRestrictSimple_2d()
105 const PetscInt ii = factorx * i + factorx / 2, jj = factory * j; 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()
114 const PetscInt ii = factorx * i + factorx / 2, jj = factory * j + factory / 2; 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()
H A Dstag3d.c66 PetscInt Mf, Nf, Pf, Mc, Nc, Pc, factorx, factory, factorz, dof[4]; in DMStagRestrictSimple_3d() local
76 factorx = Mf / Mc; in DMStagRestrictSimple_3d()
106 const PetscInt ii = i * factorx, jj = j * factory, kk = k * factorz; in DMStagRestrictSimple_3d()
115 const PetscInt ii = i * factorx + factorx / 2, jj = j * factory, kk = k * factorz; 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()
125 const PetscInt ii = i * factorx, jj = j * factory + factory / 2, kk = k * factorz; in DMStagRestrictSimple_3d()
135 const PetscInt ii = i * factorx, jj = j * factory, kk = k * factorz + factorz / 2; in DMStagRestrictSimple_3d()
145 … const PetscInt ii = i * factorx + factorx / 2, jj = j * factory + factory / 2, kk = k * factorz; 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()
148 …else if (factorx % 2 == 0) arrc[k][j][i][ibackc + d] = 0.5 * (arrf[kk][jj][ii - 1][ibackf + d] + a… in DMStagRestrictSimple_3d()
[all …]