Searched refs:matcheck (Results 1 – 1 of 1) sorted by relevance
| /petsc/src/dm/dt/tests/ |
| H A D | ex7.c | 378 PetscReal *intv0mat, *matcheck; in main() local
382 …alloc5(Nkm, &wIntv0, Nkm, &wIntv0check, Nk * Nkm, &intv0mat, Nk * Nkm, &matcheck, Nk * k, &indices… in main()
398 for (l = 0; l < Nkm * Nk; l++) matcheck[l] = 0.; in main()
405 matcheck[row * Nk + col] = -v[-(x + 1)]; in main()
407 matcheck[row * Nk + col] = v[x]; in main()
413 diffMat += PetscSqr(PetscAbsReal(matcheck[l] - intv0mat[l])); in main()
414 normMat += PetscSqr(matcheck[l]) + PetscSqr(intv0mat[l]); in main()
447 PetscCall(PetscFree5(wIntv0, wIntv0check, intv0mat, matcheck, indices)); in main()
|