Searched refs:Ni_p (Results 1 – 4 of 4) sorted by relevance
| /dports/science/PETSc/petsc-3.14.1/src/ksp/ksp/tutorials/ |
| H A D | ex42.c | 518 PetscScalar Ni_p[NODES_PER_EL]; in FormGradientOperatorQ13D() local
570 PetscScalar Ni_p[NODES_PER_EL]; in FormStabilisationOperatorQ13D() local
593 Ke[NODES_PER_EL*i+j] -= fac*(Ni_p[i]*Ni_p[j]-0.015625); in FormStabilisationOperatorQ13D()
628 PetscScalar Ni_p[NODES_PER_EL]; in FormScaledMassMatrixOperatorQ13D() local
652 Ke[NODES_PER_EL*i+j] = Ke[NODES_PER_EL*i+j]-fac*Ni_p[i]*Ni_p[j]; in FormScaledMassMatrixOperatorQ13D()
686 PetscScalar Ni_p[NODES_PER_EL]; in FormMomentumRhsQ13D() local
701 Fe[NSD*i] -= fac*Ni_p[i]*fx[p]; in FormMomentumRhsQ13D()
702 Fe[NSD*i+1] -= fac*Ni_p[i]*fy[p]; in FormMomentumRhsQ13D()
703 Fe[NSD*i+2] -= fac*Ni_p[i]*fz[p]; in FormMomentumRhsQ13D()
714 PetscScalar Ni_p[NODES_PER_EL]; in FormContinuityRhsQ13D() local
[all …]
|
| H A D | ex43.c | 522 PetscScalar Ni_p[NODES_PER_EL]; in FormGradientOperatorQ1() local
531 ConstructQ12D_Ni(gp_xi[p],Ni_p); in FormGradientOperatorQ1()
574 PetscScalar Ni_p[NODES_PER_EL]; in FormStabilisationOperatorQ1() local
583 ConstructQ12D_Ni(gp_xi[p],Ni_p); in FormStabilisationOperatorQ1()
590 Ke[NODES_PER_EL*i+j] = Ke[NODES_PER_EL*i+j]-fac*(Ni_p[i]*Ni_p[j]-0.0625); in FormStabilisationOperatorQ1()
613 PetscScalar Ni_p[NODES_PER_EL]; in FormScaledMassMatrixOperatorQ1() local
622 ConstructQ12D_Ni(gp_xi[p],Ni_p); in FormScaledMassMatrixOperatorQ1()
629 Ke[NODES_PER_EL*i+j] = Ke[NODES_PER_EL*i+j]-fac*Ni_p[i]*Ni_p[j]; in FormScaledMassMatrixOperatorQ1()
652 PetscScalar Ni_p[NODES_PER_EL]; in FormMomentumRhsQ1() local
661 ConstructQ12D_Ni(gp_xi[p],Ni_p); in FormMomentumRhsQ1()
[all …]
|
| H A D | ex70.c | 189 PetscScalar Ni_p[NODES_PER_EL],GNi_p[NSD][NODES_PER_EL],GNx_p[NSD][NODES_PER_EL]; in BForm_Grad() local
198 EvaluateBasis_Q1(gp_xi[p],Ni_p); in BForm_Grad()
209 Ke[IJ] -= GNx_p[di][i]*Ni_p[j]*fac; in BForm_Grad()
237 PetscScalar Ni_p[NODES_PER_EL],GNi_p[NSD][NODES_PER_EL],GNx_p[NSD][NODES_PER_EL]; in BForm_Stabilisation() local
246 EvaluateBasis_Q1(gp_xi[p],Ni_p); in BForm_Stabilisation()
253 Ke[NODES_PER_EL*i+j] -= fac*(Ni_p[i]*Ni_p[j]-0.0625); in BForm_Stabilisation()
273 PetscScalar Ni_p[NODES_PER_EL],GNi_p[NSD][NODES_PER_EL],GNx_p[NSD][NODES_PER_EL]; in BForm_ScaledMassMatrix() local
282 EvaluateBasis_Q1(gp_xi[p],Ni_p); in BForm_ScaledMassMatrix()
289 Ke[NODES_PER_EL*i+j] -= fac*Ni_p[i]*Ni_p[j]; in BForm_ScaledMassMatrix()
318 EvaluateBasis_Q1(gp_xi[p],Ni_p); in LForm_MomentumRHS()
[all …]
|
| H A D | ex49.c | 487 PetscScalar Ni_p[NODES_PER_EL]; in FormMomentumRhsQ1() local
496 ConstructQ12D_Ni(gp_xi[p],Ni_p); in FormMomentumRhsQ1()
502 Fe[NSD*i] += fac*Ni_p[i]*fx[p]; in FormMomentumRhsQ1()
503 Fe[NSD*i+1] += fac*Ni_p[i]*fy[p]; in FormMomentumRhsQ1()
790 PetscScalar xi_p[2],Ni_p[4]; in solve_elasticity_2d() local
794 ConstructQ12D_Ni(xi_p,Ni_p); in solve_elasticity_2d()
799 gp_x = gp_x+Ni_p[n]*el_coords[2*n]; in solve_elasticity_2d()
800 gp_y = gp_y+Ni_p[n]*el_coords[2*n+1]; in solve_elasticity_2d()
|