| /petsc/src/ts/trajectory/utils/ |
| H A D | reconstruct.c | 67 …PetscCall(PetscMalloc5(o, &tj->lag.L, o, &tj->lag.T, o, &tj->lag.WW, 2 * o, &tj->lag.TT, o, &tj->l… in TSTrajectoryReconstruct_Private()
72 PetscCall(PetscArrayzero(tj->lag.TT, 2 * (tj->lag.order + 1))); in TSTrajectoryReconstruct_Private()
84 PetscInt tid = LagrangeGetId(t, tj->lag.order + 1, tj->lag.T, tj->lag.TT); in TSTrajectoryReconstruct_Private()
87 tj->lag.TT[tid] = PETSC_TRUE; in TSTrajectoryReconstruct_Private()
90 tj->lag.TT[tj->lag.order + 1 + s - low] = PETSC_TRUE; /* tell the next loop to skip it */ in TSTrajectoryReconstruct_Private()
99 if (tj->lag.TT[tj->lag.order + 1 + s - low]) continue; in TSTrajectoryReconstruct_Private()
100 tid = LagrangeGetId(t, tj->lag.order + 1, tj->lag.T, tj->lag.TT); in TSTrajectoryReconstruct_Private()
114 tj->lag.TT[tid] = PETSC_TRUE; in TSTrajectoryReconstruct_Private()
117 tj->lag.TT[tj->lag.order + 1 + s - low] = PETSC_TRUE; in TSTrajectoryReconstruct_Private()
122 PetscCall(PetscArrayzero(tj->lag.TT, tj->lag.order + 1)); in TSTrajectoryReconstruct_Private()
[all …]
|
| /petsc/src/ts/tests/ |
| H A D | ex13.c | 24 PetscReal TT[10] = {2, 9, 1, 3, 6, 7, 5, 10, 4, 8}; in main() local
51 if (sort) PetscCall(PetscSortReal(10, TT)); in main()
59 PetscCall(VecSet(W, func(p, TT[i]))); in main()
61 PetscCall(TSTrajectorySet(tj, ts, II[i], TT[i], W)); in main()
136 PetscCall(PetscSortReal(10, TT)); in main()
139 PetscCall(VecSet(W, func(p, TT[i]))); in main()
140 PetscCall(TSTrajectorySet(tj, ts, i, TT[i], W)); in main()
144 PetscReal testtime = TT[i], serr, derr; in main()
|
| /petsc/src/tao/quadratic/impls/gpcg/ |
| H A D | gpcg.h | 49 IS TT; /* Indices of local variables equal to upper bound */ member
|
| /petsc/src/ksp/ksp/impls/gmres/dgmres/ |
| H A D | dgmres.c | 78 TT = NULL; in KSPSetUp_DGMRES()
275 PetscCall(PetscFree(TT)); in KSPDestroy_DGMRES()
604 if (!TT) PetscCall(PetscMalloc1(max_neig * max_neig, &TT)); in KSPDGMRESComputeDeflationData_DGMRES()
607 for (j = 0; j < r; j++) PetscCall(PetscArraycpy(&TT[max_neig * j + r], &XMU[neig1 * j], neig)); in KSPDGMRESComputeDeflationData_DGMRES()
611 PetscCall(PetscArraycpy(&TT[max_neig * k], &UMX[max_neig * j], r)); in KSPDGMRESComputeDeflationData_DGMRES()
612 PetscCall(PetscArraycpy(&TT[max_neig * k + r], &XMX[neig1 * j], neig)); in KSPDGMRESComputeDeflationData_DGMRES()
615 for (j = 0; j < neig; j++) PetscCall(PetscArraycpy(&TT[max_neig * j], &XMX[neig1 * j], neig)); in KSPDGMRESComputeDeflationData_DGMRES()
625 PetscCall(PetscArraycpy(TTF, TT, bmax * r)); in KSPDGMRESComputeDeflationData_DGMRES()
817 …PetscCallBLAS("LAPACKgerfs", LAPACKgerfs_("N", &br, &nrhs, TT, &bmax, TTF, &bmax, INVP, X2, &bmax,… in KSPDGMRESApplyDeflation_DGMRES()
956 for (j = 0; j < r; j++) PetscCall(VecMDot(MU[j], r, UU, &TT[j * bmax])); in KSPDGMRESImproveEig_DGMRES()
[all …]
|
| H A D | dgmresimpl.h | 70 #define TT dgmres->T macro
|
| /petsc/src/ts/trajectory/interface/ |
| H A D | traj.c | 413 t->lag.TT = NULL; in TSTrajectoryCreate()
574 PetscCall(PetscFree5((*tj)->lag.L, (*tj)->lag.T, (*tj)->lag.WW, (*tj)->lag.TT, (*tj)->lag.TW)); in TSTrajectoryDestroy()
|
| /petsc/include/petsc/private/ |
| H A D | tsimpl.h | 102 PetscBool *TT; /* workspace for Lagrange */ member
|
| /petsc/doc/ |
| H A D | petsc.bib | 3250 Fabio Luporini and Andrew TT McRae and Gheorghe-Teodor Bercea and Graham R Markall
3274 author = {Andrew TT McRae and Gheorghe-Teodor Bercea and Lawrence Mitchell and David A Ham
3287 author = {Gheorghe-Teodor Bercea and Andrew TT McRae and David A Ham and Lawrence Mitchell
21471 Luporini, Fabio and McRae, Andrew TT and Bercea, Gheorghe-Teodor and Markall,
21618 author = {Rognes, Marie E and Ham, David A and Cotter, Colin J and McRae, Andrew TT},
|