Searched refs:DD1 (Results 1 – 3 of 3) sorted by relevance
20 PetscScalar DD1[4][4] = { in main() local60 DD1[0][0] = 0.66666666666666663; in main()61 DD1[0][1] = -0.16666666666666669; in main()62 DD1[0][2] = -0.33333333333333343; in main()63 DD1[0][3] = -0.16666666666666666; in main()64 DD1[1][0] = -0.16666666666666669; in main()65 DD1[1][1] = 0.66666666666666663; in main()66 DD1[1][2] = -0.16666666666666666; in main()67 DD1[1][3] = -0.33333333333333343; in main()68 DD1[2][0] = -0.33333333333333343; in main()[all …]
23 PetscScalar DD1[8][8] = { in main() local138 if (i == j) DD2[i][j] = .1 * DD1[i][j]; in main()140 } else DD2[i][j] = DD1[i][j]; in main()168 for (jj = 0; jj < 8; jj++) DD[ii][jj] = alpha * DD1[ii][jj]; in main()
36 PetscScalar DD1[24][24]; in main() local143 if (i == j) DD1[i][j] = 1.0; in main()144 else DD1[i][j] = -.25; in main()149 PetscCall(elem_3d_elast_v_25((PetscScalar *)DD1)); in main()156 if (i == j) DD2[i][j] = 0.1 * DD1[i][j]; in main()158 } else DD2[i][j] = DD1[i][j]; in main()224 for (jx = 0; jx < 24; jx++) DD[ix][jx] = alpha * DD1[ix][jx]; in main()