Searched refs:Mcopy (Results 1 – 1 of 1) sorted by relevance
| /petsc/src/dm/dt/tests/ |
| H A D | ex13.c | 58 PetscScalar *Mcopy; in test() local
80 PetscCall(PetscMalloc1(Nbpt * Nbpt, &Mcopy)); in test()
92 PetscCall(PetscArraycpy(Mcopy, M_trimmed, Nbpt * Nbpt)); in test()
94 …PetscCallBLAS("LAPACKgesvd", LAPACKgesvd_("N", "N", &n, &n, Mcopy, &n, S, NULL, &n, NULL, &n, work… in test()
119 PetscCall(PetscArraycpy(Mcopy, M_trimmed, Nbpt * Nbpt)); in test()
128 …"BLASgemm", BLASgemm_("N", "T", &m, &n, &k, &mone, M_moments, &m, M_moments, &m, &one, Mcopy, &m)); in test()
132 …etscInt i = 0; i < Nbpt * Nbpt; i++) frob_err += PetscRealPart(Mcopy[i]) * PetscRealPart(Mcopy[i]); in test()
277 PetscCall(PetscFree(Mcopy)); in test()
|