Searched refs:M_moments (Results 1 – 1 of 1) sorted by relevance
| /petsc/src/dm/dt/tests/ |
| H A D | ex13.c | 59 PetscScalar *M_moments; in test() local
103 PetscCall(PetscCalloc1(Nbpt * Nbp * Nf, &M_moments)); in test()
112 M_moments[(i * Nf + f) * Nbpt + j] += v; in test()
128 …PetscCallBLAS("BLASgemm", BLASgemm_("N", "T", &m, &n, &k, &mone, M_moments, &m, M_moments, &m, &on… in test()
140 PetscCall(MatCreateSeqDense(PETSC_COMM_SELF, Nbpt, Nbm1 * Nf, M_moments, &mat_moments_T)); in test()
254 for (PetscInt i = 0; i < Nbp * Nf * Nbpt; i++) M_moment_real[i] = PetscRealPart(M_moments[i]); in test()
278 PetscCall(PetscFree(M_moments)); in test()
|