Lines Matching refs:NODES_PER_EL
19 #define NODES_PER_EL 8 /* nodes per element */ macro
119 static void ShapeFunctionQ13D_Evaluate_dxi(PetscScalar _xi[], PetscScalar GNi[][NODES_PER_EL]) in ShapeFunctionQ13D_Evaluate_dxi() argument
179 … void ShapeFunctionQ13D_Evaluate_dx(PetscScalar GNi[][NODES_PER_EL], PetscScalar GNx[][NODES_PER_E… in ShapeFunctionQ13D_Evaluate_dx() argument
188 for (n = 0; n < NODES_PER_EL; n++) { in ShapeFunctionQ13D_Evaluate_dx()
221 for (n = 0; n < NODES_PER_EL; n++) { in ShapeFunctionQ13D_Evaluate_dx()
565 for (n = 0; n < NODES_PER_EL; n++) { in DMDASetValuesLocalStencil3D_ADD_VALUES()
598 PetscScalar GNi_p[NSD][NODES_PER_EL], GNx_p[NSD][NODES_PER_EL]; in FormStressOperatorQ13D()
600 PetscScalar B[6][U_DOFS * NODES_PER_EL]; in FormStressOperatorQ13D()
601 const PetscInt nvdof = U_DOFS * NODES_PER_EL; in FormStressOperatorQ13D()
611 for (i = 0; i < NODES_PER_EL; i++) { in FormStressOperatorQ13D()
671 PetscScalar Ni_p[NODES_PER_EL]; in FormGradientOperatorQ13D()
672 PetscScalar GNi_p[NSD][NODES_PER_EL], GNx_p[NSD][NODES_PER_EL]; in FormGradientOperatorQ13D()
685 for (i = 0; i < NODES_PER_EL; i++) { /* u nodes */ in FormGradientOperatorQ13D()
687 for (j = 0; j < NODES_PER_EL; j++) { /* p nodes, p dofs = 1 (ie no loop) */ in FormGradientOperatorQ13D()
689 IJ = ASS_MAP_wIwDI_uJuDJ(i, di, NODES_PER_EL, 3, j, 0, NODES_PER_EL, 1); in FormGradientOperatorQ13D()
700 PetscScalar Ge[U_DOFS * NODES_PER_EL * P_DOFS * NODES_PER_EL]; in FormDivergenceOperatorQ13D()
707 nr_g = U_DOFS * NODES_PER_EL; in FormDivergenceOperatorQ13D()
708 nc_g = P_DOFS * NODES_PER_EL; in FormDivergenceOperatorQ13D()
721 PetscScalar Ni_p[NODES_PER_EL]; in FormStabilisationOperatorQ13D()
722 PetscScalar GNi_p[NSD][NODES_PER_EL], GNx_p[NSD][NODES_PER_EL]; in FormStabilisationOperatorQ13D()
742 for (i = 0; i < NODES_PER_EL; i++) { in FormStabilisationOperatorQ13D()
743 …for (j = 0; j < NODES_PER_EL; j++) Ke[NODES_PER_EL * i + j] -= fac * (Ni_p[i] * Ni_p[j] - 0.015625… in FormStabilisationOperatorQ13D()
764 for (i = 0; i < NODES_PER_EL; i++) { in FormStabilisationOperatorQ13D()
765 for (j = 0; j < NODES_PER_EL; j++) Ke[NODES_PER_EL * i + j] = fac * Ke[NODES_PER_EL * i + j]; in FormStabilisationOperatorQ13D()
775 PetscScalar Ni_p[NODES_PER_EL]; in FormScaledMassMatrixOperatorQ13D()
776 PetscScalar GNi_p[NSD][NODES_PER_EL], GNx_p[NSD][NODES_PER_EL]; in FormScaledMassMatrixOperatorQ13D()
797 for (i = 0; i < NODES_PER_EL; i++) { in FormScaledMassMatrixOperatorQ13D()
798 …for (j = 0; j < NODES_PER_EL; j++) Ke[NODES_PER_EL * i + j] = Ke[NODES_PER_EL * i + j] - fac * Ni_… in FormScaledMassMatrixOperatorQ13D()
818 for (i = 0; i < NODES_PER_EL; i++) { in FormScaledMassMatrixOperatorQ13D()
819 for (j = 0; j < NODES_PER_EL; j++) Ke[NODES_PER_EL * i + j] = fac * Ke[NODES_PER_EL * i + j]; in FormScaledMassMatrixOperatorQ13D()
829 PetscScalar Ni_p[NODES_PER_EL]; in FormMomentumRhsQ13D()
830 PetscScalar GNi_p[NSD][NODES_PER_EL], GNx_p[NSD][NODES_PER_EL]; in FormMomentumRhsQ13D()
843 for (i = 0; i < NODES_PER_EL; i++) { in FormMomentumRhsQ13D()
857 PetscScalar Ni_p[NODES_PER_EL]; in FormContinuityRhsQ13D()
858 PetscScalar GNi_p[NSD][NODES_PER_EL], GNx_p[NSD][NODES_PER_EL]; in FormContinuityRhsQ13D()
871 for (i = 0; i < NODES_PER_EL; i++) Fe[i] -= fac * Ni_p[i] * hc[p]; in FormContinuityRhsQ13D()
901 MatStencil u_eqn[NODES_PER_EL * U_DOFS]; in AssembleA_Stokes()
902 MatStencil p_eqn[NODES_PER_EL * P_DOFS]; in AssembleA_Stokes()
905 PetscScalar Ae[NODES_PER_EL * U_DOFS * NODES_PER_EL * U_DOFS]; in AssembleA_Stokes()
906 PetscScalar Ge[NODES_PER_EL * U_DOFS * NODES_PER_EL * P_DOFS]; in AssembleA_Stokes()
907 PetscScalar De[NODES_PER_EL * P_DOFS * NODES_PER_EL * U_DOFS]; in AssembleA_Stokes()
908 PetscScalar Ce[NODES_PER_EL * P_DOFS * NODES_PER_EL * P_DOFS]; in AssembleA_Stokes()
909 PetscScalar el_coords[NODES_PER_EL * NSD]; in AssembleA_Stokes()
949 for (n = 0; n < NODES_PER_EL; n++) { in AssembleA_Stokes()
968 …PetscCall(MatSetValuesStencil(A, NODES_PER_EL * U_DOFS, u_eqn, NODES_PER_EL * U_DOFS, u_eqn, Ae, A… in AssembleA_Stokes()
969 …PetscCall(MatSetValuesStencil(A, NODES_PER_EL * U_DOFS, u_eqn, NODES_PER_EL * P_DOFS, p_eqn, Ge, A… in AssembleA_Stokes()
970 …PetscCall(MatSetValuesStencil(A, NODES_PER_EL * P_DOFS, p_eqn, NODES_PER_EL * U_DOFS, u_eqn, De, A… in AssembleA_Stokes()
971 …PetscCall(MatSetValuesStencil(A, NODES_PER_EL * P_DOFS, p_eqn, NODES_PER_EL * P_DOFS, p_eqn, Ce, A… in AssembleA_Stokes()
987 MatStencil u_eqn[NODES_PER_EL * U_DOFS]; in AssembleA_PCStokes()
988 MatStencil p_eqn[NODES_PER_EL * P_DOFS]; in AssembleA_PCStokes()
991 PetscScalar Ae[NODES_PER_EL * U_DOFS * NODES_PER_EL * U_DOFS]; in AssembleA_PCStokes()
992 PetscScalar Ge[NODES_PER_EL * U_DOFS * NODES_PER_EL * P_DOFS]; in AssembleA_PCStokes()
993 PetscScalar De[NODES_PER_EL * P_DOFS * NODES_PER_EL * U_DOFS]; in AssembleA_PCStokes()
994 PetscScalar Ce[NODES_PER_EL * P_DOFS * NODES_PER_EL * P_DOFS]; in AssembleA_PCStokes()
995 PetscScalar el_coords[NODES_PER_EL * NSD]; in AssembleA_PCStokes()
1034 for (n = 0; n < NODES_PER_EL; n++) { in AssembleA_PCStokes()
1053 …PetscCall(MatSetValuesStencil(A, NODES_PER_EL * U_DOFS, u_eqn, NODES_PER_EL * U_DOFS, u_eqn, Ae, A… in AssembleA_PCStokes()
1054 …PetscCall(MatSetValuesStencil(A, NODES_PER_EL * U_DOFS, u_eqn, NODES_PER_EL * P_DOFS, p_eqn, Ge, A… in AssembleA_PCStokes()
1056 …PetscCall(MatSetValuesStencil(A, NODES_PER_EL * P_DOFS, p_eqn, NODES_PER_EL * P_DOFS, p_eqn, Ce, A… in AssembleA_PCStokes()
1072 MatStencil u_eqn[NODES_PER_EL * U_DOFS]; in AssembleF_Stokes()
1073 MatStencil p_eqn[NODES_PER_EL * P_DOFS]; in AssembleF_Stokes()
1076 PetscScalar Fe[NODES_PER_EL * U_DOFS]; in AssembleF_Stokes()
1077 PetscScalar He[NODES_PER_EL * P_DOFS]; in AssembleF_Stokes()
1078 PetscScalar el_coords[NODES_PER_EL * NSD]; in AssembleF_Stokes()
1122 for (n = 0; n < NODES_PER_EL; n++) { in AssembleF_Stokes()
1268 PetscScalar el_coords[NODES_PER_EL * NSD]; in DMDAIntegrateErrors3D()
1270 StokesDOF stokes_analytic_e[NODES_PER_EL], stokes_e[NODES_PER_EL]; in DMDAIntegrateErrors3D()
1272 PetscScalar GNi_p[NSD][NODES_PER_EL], GNx_p[NSD][NODES_PER_EL]; in DMDAIntegrateErrors3D()
1273 PetscScalar Ni_p[NODES_PER_EL]; in DMDAIntegrateErrors3D()
1330 for (i = 0; i < NODES_PER_EL; i++) { in DMDAIntegrateErrors3D()
1384 for (i = 0; i < NODES_PER_EL; i++) { in DMDAIntegrateErrors3D()
1827 PetscScalar el_coords[NSD * NODES_PER_EL]; in solve_stokes_3d_coupled()
1835 PetscScalar xi_p[NSD], Ni_p[NODES_PER_EL]; in solve_stokes_3d_coupled()
1845 for (n = 0; n < NODES_PER_EL; n++) { in solve_stokes_3d_coupled()