Lines Matching refs:phi
110 …npts, const PetscReal *quad, PetscReal *phypts, PetscReal *jxw, PetscReal *phi, PetscReal *dphidx,… in Compute_Lagrange_Basis_1D_Internal() argument
128 phi[0 + offset] = (1.0 - r); in Compute_Lagrange_Basis_1D_Internal()
129 phi[1 + offset] = (r); in Compute_Lagrange_Basis_1D_Internal()
137 if (phypts) phypts[3 * j + 0] += phi[i + offset] * vertices[0]; in Compute_Lagrange_Basis_1D_Internal()
156 phi[0 + offset] = 1.0 + r * (2.0 * r - 3.0); in Compute_Lagrange_Basis_1D_Internal()
157 phi[1 + offset] = 4.0 * r * (1.0 - r); in Compute_Lagrange_Basis_1D_Internal()
158 phi[2 + offset] = r * (2.0 * r - 1.0); in Compute_Lagrange_Basis_1D_Internal()
166 if (phypts) phypts[3 * j + 0] += phi[i + offset] * vertices[0]; in Compute_Lagrange_Basis_1D_Internal()
220 …npts, const PetscReal *quad, PetscReal *phypts, PetscReal *jxw, PetscReal *phi, PetscReal *dphidx,… in Compute_Lagrange_Basis_2D_Internal() argument
228 PetscCall(PetscArrayzero(phi, npts)); in Compute_Lagrange_Basis_2D_Internal()
241 phi[0 + offset] = (1.0 - r) * (1.0 - s); in Compute_Lagrange_Basis_2D_Internal()
242 phi[1 + offset] = r * (1.0 - s); in Compute_Lagrange_Basis_2D_Internal()
243 phi[2 + offset] = r * s; in Compute_Lagrange_Basis_2D_Internal()
244 phi[3 + offset] = (1.0 - r) * s; in Compute_Lagrange_Basis_2D_Internal()
258 phypts[3 * j + 0] += phi[i + offset] * vertices[0]; in Compute_Lagrange_Basis_2D_Internal()
259 phypts[3 * j + 1] += phi[i + offset] * vertices[1]; in Compute_Lagrange_Basis_2D_Internal()
260 phypts[3 * j + 2] += phi[i + offset] * vertices[2]; in Compute_Lagrange_Basis_2D_Internal()
315 phi[0 + offset] = (ijacobian[0] * (phipts_x - x2) + ijacobian[1] * (phipts_y - y2)); in Compute_Lagrange_Basis_2D_Internal()
317 phi[1 + offset] = (ijacobian[2] * (phipts_x - x2) + ijacobian[3] * (phipts_y - y2)); in Compute_Lagrange_Basis_2D_Internal()
318 phi[2 + offset] = 1.0 - phi[0 + offset] - phi[1 + offset]; in Compute_Lagrange_Basis_2D_Internal()
376 …npts, const PetscReal *quad, PetscReal *phypts, PetscReal *jxw, PetscReal *phi, PetscReal *dphidx,… in Compute_Lagrange_Basis_3D_Internal() argument
385 PetscCall(PetscArrayzero(phi, npts)); in Compute_Lagrange_Basis_3D_Internal()
401 phi[offset + 0] = (1.0 - r) * (1.0 - s) * (1.0 - t); /* 0,0,0 */ in Compute_Lagrange_Basis_3D_Internal()
402 phi[offset + 1] = (r) * (1.0 - s) * (1.0 - t); /* 1,0,0 */ in Compute_Lagrange_Basis_3D_Internal()
403 phi[offset + 2] = (r) * (s) * (1.0 - t); /* 1,1,0 */ in Compute_Lagrange_Basis_3D_Internal()
404 phi[offset + 3] = (1.0 - r) * (s) * (1.0 - t); /* 0,1,0 */ in Compute_Lagrange_Basis_3D_Internal()
405 phi[offset + 4] = (1.0 - r) * (1.0 - s) * (t); /* 0,0,1 */ in Compute_Lagrange_Basis_3D_Internal()
406 phi[offset + 5] = (r) * (1.0 - s) * (t); /* 1,0,1 */ in Compute_Lagrange_Basis_3D_Internal()
407 phi[offset + 6] = (r) * (s) * (t); /* 1,1,1 */ in Compute_Lagrange_Basis_3D_Internal()
408 phi[offset + 7] = (1.0 - r) * (s) * (t); /* 0,1,1 */ in Compute_Lagrange_Basis_3D_Internal()
430 phypts[3 * j + 0] += phi[i + offset] * vertex[0]; in Compute_Lagrange_Basis_3D_Internal()
431 phypts[3 * j + 1] += phi[i + offset] * vertex[1]; in Compute_Lagrange_Basis_3D_Internal()
432 phypts[3 * j + 2] += phi[i + offset] * vertex[2]; in Compute_Lagrange_Basis_3D_Internal()
496 phi[offset + 0] = 1.0 - r - s - t; in Compute_Lagrange_Basis_3D_Internal()
497 phi[offset + 1] = r; in Compute_Lagrange_Basis_3D_Internal()
498 phi[offset + 2] = s; in Compute_Lagrange_Basis_3D_Internal()
499 phi[offset + 3] = t; in Compute_Lagrange_Basis_3D_Internal()
504 phypts[3 * j + 0] += phi[i + offset] * vertices[0]; in Compute_Lagrange_Basis_3D_Internal()
505 phypts[3 * j + 1] += phi[i + offset] * vertices[1]; in Compute_Lagrange_Basis_3D_Internal()
506 phypts[3 * j + 2] += phi[i + offset] * vertices[2]; in Compute_Lagrange_Basis_3D_Internal()
719 …t nverts, const PetscReal *coordinates, const PetscReal *xphy, PetscReal *natparam, PetscReal *phi) in DMMoabPToRMapping() argument
796 if (phi) PetscCall(PetscArraycpy(phi, phibasis, nverts)); in DMMoabPToRMapping()