Searched refs:Me1D (Results 1 – 1 of 1) sorted by relevance
| /petsc/src/ksp/ksp/tutorials/ |
| H A D | ex51.c | 31 PetscScalar *Ke1D, *Ke2D, *Me1D, *Me2D; in main() local
74 PetscCall(PetscMalloc1(num1Dnodes * num1Dnodes, &Me1D)); in main()
86 PetscCall(Form1DElementMass(h, p, gllNode, gllWgts, Me1D)); in main()
88 PetscCall(Form2DElementMass(p, Me1D, Me2D)); in main()
89 PetscCall(Form2DElementStiffness(p, Ke1D, Me1D, Ke2D)); in main()
105 PetscCall(PetscFree(Me1D)); in main()
225 …rCode Form1DElementMass(PetscReal H, PetscInt P, PetscReal *gqn, PetscReal *gqw, PetscScalar *Me1D) in Form1DElementMass() argument
234 Me1D[indx] = 0.0; in Form1DElementMass()
235 …for (k = 0; k < (P + 1); ++k) Me1D[indx] += H * gqw[k] * polyBasisFunc(P, i, gqn, gqn[k]) * polyBa… in Form1DElementMass()
263 static PetscErrorCode Form2DElementMass(PetscInt P, PetscScalar *Me1D, PetscScalar *Me2D) in Form2DElementMass() argument
[all …]
|