Lines Matching refs:Ni_p

671   PetscScalar Ni_p[NODES_PER_EL];
680     ShapeFunctionQ13D_Evaluate(gp_xi[p], Ni_p);
691           Ke[IJ] = Ke[IJ] - GNx_p[di][i] * Ni_p[j] * fac;
721   PetscScalar Ni_p[NODES_PER_EL];
730     ShapeFunctionQ13D_Evaluate(gp_xi[p], Ni_p);
737      Ke[NODES_PER_EL*i+j] -= fac*(Ni_p[i]*Ni_p[j]-0.015625);
743       for (j = 0; j < NODES_PER_EL; j++) Ke[NODES_PER_EL * i + j] -= fac * (Ni_p[i] * Ni_p[j] - 0.015625);
775   PetscScalar Ni_p[NODES_PER_EL];
784     ShapeFunctionQ13D_Evaluate(gp_xi[p], Ni_p);
792      Ke[NODES_PER_EL*i+j] = Ke[NODES_PER_EL*i+j]-fac*Ni_p[i]*Ni_p[j];
798       for (j = 0; j < NODES_PER_EL; j++) Ke[NODES_PER_EL * i + j] = Ke[NODES_PER_EL * i + j] - fac * Ni_p[i] * Ni_p[j];
829   PetscScalar Ni_p[NODES_PER_EL];
838     ShapeFunctionQ13D_Evaluate(gp_xi[p], Ni_p);
844       Fe[NSD * i] -= fac * Ni_p[i] * fx[p];
845       Fe[NSD * i + 1] -= fac * Ni_p[i] * fy[p];
846       Fe[NSD * i + 2] -= fac * Ni_p[i] * fz[p];
857   PetscScalar Ni_p[NODES_PER_EL];
866     ShapeFunctionQ13D_Evaluate(gp_xi[p], Ni_p);
871     for (i = 0; i < NODES_PER_EL; i++) Fe[i] -= fac * Ni_p[i] * hc[p];
1273   PetscScalar Ni_p[NODES_PER_EL];
1325           ShapeFunctionQ13D_Evaluate(gp_xi[p], Ni_p);
1331             tint_p_ms = tint_p_ms + fac * Ni_p[i] * stokes_analytic_e[i].p_dof;
1332             tint_p    = tint_p + fac * Ni_p[i] * stokes_e[i].p_dof;
1379           ShapeFunctionQ13D_Evaluate(gp_xi[p], Ni_p);
1387             p_e_L2 = p_e_L2 + fac * Ni_p[i] * (stokes_e[i].p_dof - stokes_analytic_e[i].p_dof) * (stokes_e[i].p_dof - stokes_analytic_e[i].p_dof);
1392             u_e_L2 += fac * Ni_p[i] * (u_error * u_error + v_error * v_error + w_error * w_error);
1835           PetscScalar xi_p[NSD], Ni_p[NODES_PER_EL];
1842           ShapeFunctionQ13D_Evaluate(xi_p, Ni_p);
1846             gp_x = gp_x + Ni_p[n] * el_coords[NSD * n];
1847             gp_y = gp_y + Ni_p[n] * el_coords[NSD * n + 1];
1848             gp_z = gp_z + Ni_p[n] * el_coords[NSD * n + 2];