Searched refs:Kcpl (Results 1 – 1 of 1) sorted by relevance
| /petsc/src/ts/tutorials/ |
| H A D | ex14.c | 1116 PetscScalar Ke[8 * NODE_SIZE][8 * NODE_SIZE], Kcpl[8 * NODE_SIZE][4 * PRMNODE_SIZE]; in THIJacobianLocal_Momentum() local
1122 PetscCall(PetscMemzero(Kcpl, sizeof(Kcpl))); in THIJacobianLocal_Momentum()
1158 … Kcpl[FieldIndex(Node, l, u)][FieldIndex(PrmNode, ll, h)] += pp * jw * thi->rhog * dpl[0]; in THIJacobianLocal_Momentum()
1159 … Kcpl[FieldIndex(Node, l, u)][FieldIndex(PrmNode, ll, b)] += pp * jw * thi->rhog * dpl[0]; in THIJacobianLocal_Momentum()
1160 … Kcpl[FieldIndex(Node, l, v)][FieldIndex(PrmNode, ll, h)] += pp * jw * thi->rhog * dpl[1]; in THIJacobianLocal_Momentum()
1161 … Kcpl[FieldIndex(Node, l, v)][FieldIndex(PrmNode, ll, b)] += pp * jw * thi->rhog * dpl[1]; in THIJacobianLocal_Momentum()
1218 …luesLocal(Bcpl, 8 * NODE_SIZE, row3scalar, 4 * PRMNODE_SIZE, col2scalar, &Kcpl[0][0], ADD_VALUES)); in THIJacobianLocal_Momentum()
|