Lines Matching refs:Ke
10 PetscErrorCode FormElementStiffness(PetscReal H, PetscScalar *Ke)
13 Ke[0] = H / 6.0;
14 Ke[1] = -.125 * H;
15 Ke[2] = H / 12.0;
16 Ke[3] = -.125 * H;
17 Ke[4] = -.125 * H;
18 Ke[5] = H / 6.0;
19 Ke[6] = -.125 * H;
20 Ke[7] = H / 12.0;
21 Ke[8] = H / 12.0;
22 Ke[9] = -.125 * H;
23 Ke[10] = H / 6.0;
24 Ke[11] = -.125 * H;
25 Ke[12] = -.125 * H;
26 Ke[13] = H / 12.0;
27 Ke[14] = -.125 * H;
28 Ke[15] = H / 6.0;
47 PetscScalar val, Ke[16], r[4];
75 PetscCall(FormElementStiffness(h * h, Ke)); /* element stiffness for Laplacian */
82 PetscCall(MatSetValues(C, 4, idx, 4, idx, Ke, ADD_VALUES));