Searched refs:DD2 (Results 1 – 3 of 3) sorted by relevance
21 PetscScalar DD[8][8], DD2[8][8]; in main() local138 if (i == j) DD2[i][j] = .1 * DD1[i][j]; in main()139 else DD2[i][j] = 0.0; in main()140 } else DD2[i][j] = DD1[i][j]; in main()175 for (jj = 0; jj < 8; jj++) DD[ii][jj] = alpha * DD2[ii][jj]; in main()
17 PetscScalar DD[4][4], DD2[4][4]; in main() local81 if (i == j) DD2[i][j] = .1 * DD1[i][j]; in main()82 else DD2[i][j] = 0.0; in main()83 } else DD2[i][j] = DD1[i][j]; in main()121 for (jj = 0; jj < 4; jj++) DD[ii][jj] = alpha * DD2[ii][jj]; in main()
34 PetscScalar DD[24][24], DD2[24][24]; in main() local156 if (i == j) DD2[i][j] = 0.1 * DD1[i][j]; in main()157 else DD2[i][j] = 0.0; in main()158 } else DD2[i][j] = DD1[i][j]; in main()242 for (jx = 0; jx < 24; jx++) DD[ix][jx] = alpha * DD2[ix][jx]; in main()