337 static PetscErrorCode StackDumpAll(TSTrajectory tj, TS ts, Stack *stack, PetscInt id)  in StackDumpAll()  argument
342   TJScheduler *tjsch = (TJScheduler *)tj->data;  in StackDumpAll()
348   if (tj->monitor) {  in StackDumpAll()
349     PetscCall(PetscViewerASCIIPushTab(tj->monitor));  in StackDumpAll()
350     PetscCall(PetscViewerASCIIPrintf(tj->monitor, "Dump stack id %" PetscInt_FMT " to file\n", id));  in StackDumpAll()
351     PetscCall(PetscViewerASCIIPopTab(tj->monitor));  in StackDumpAll()
353 …PetscCall(PetscSNPrintf(filename, sizeof(filename), "%s/TS-STACK%06" PetscInt_FMT ".bin", tj->dirn…  in StackDumpAll()
362     PetscCall(PetscLogEventBegin(TSTrajectory_DiskWrite, tj, ts, 0, 0));  in StackDumpAll()
364     PetscCall(PetscLogEventEnd(TSTrajectory_DiskWrite, tj, ts, 0, 0));  in StackDumpAll()
370   PetscCall(PetscLogEventBegin(TSTrajectory_DiskWrite, tj, ts, 0, 0));  in StackDumpAll()
372   PetscCall(PetscLogEventEnd(TSTrajectory_DiskWrite, tj, ts, 0, 0));  in StackDumpAll()
377 static PetscErrorCode StackLoadAll(TSTrajectory tj, TS ts, Stack *stack, PetscInt id)  in StackLoadAll()  argument
386   if (tj->monitor) {  in StackLoadAll()
387     PetscCall(PetscViewerASCIIAddTab(tj->monitor, ((PetscObject)tj)->tablevel));  in StackLoadAll()
388     PetscCall(PetscViewerASCIIPrintf(tj->monitor, "Load stack from file\n"));  in StackLoadAll()
389     PetscCall(PetscViewerASCIISubtractTab(tj->monitor, ((PetscObject)tj)->tablevel));  in StackLoadAll()
391 …PetscCall(PetscSNPrintf(filename, sizeof filename, "%s/TS-STACK%06" PetscInt_FMT ".bin", tj->dirna…  in StackLoadAll()
392 …PetscCall(PetscViewerBinaryOpen(PetscObjectComm((PetscObject)tj), filename, FILE_MODE_READ, &viewe…  in StackLoadAll()
400     PetscCall(PetscLogEventBegin(TSTrajectory_DiskRead, tj, ts, 0, 0));  in StackLoadAll()
402     PetscCall(PetscLogEventEnd(TSTrajectory_DiskRead, tj, ts, 0, 0));  in StackLoadAll()
407   PetscCall(PetscLogEventBegin(TSTrajectory_DiskRead, tj, ts, 0, 0));  in StackLoadAll()
409   PetscCall(PetscLogEventEnd(TSTrajectory_DiskRead, tj, ts, 0, 0));  in StackLoadAll()
417 static PetscErrorCode StackLoadLast(TSTrajectory tj, TS ts, Stack *stack, PetscInt id)  in StackLoadLast()  argument
430   if (tj->monitor) {  in StackLoadLast()
431     PetscCall(PetscViewerASCIIAddTab(tj->monitor, ((PetscObject)tj)->tablevel));  in StackLoadLast()
432     PetscCall(PetscViewerASCIIPrintf(tj->monitor, "Load last stack element from file\n"));  in StackLoadLast()
433     PetscCall(PetscViewerASCIISubtractTab(tj->monitor, ((PetscObject)tj)->tablevel));  in StackLoadLast()
440 …PetscCall(PetscSNPrintf(filename, sizeof filename, "%s/TS-STACK%06" PetscInt_FMT ".bin", tj->dirna…  in StackLoadLast()
441 …PetscCall(PetscViewerBinaryOpen(PetscObjectComm((PetscObject)tj), filename, FILE_MODE_READ, &viewe…  in StackLoadLast()
448 …PetscCall(PetscBinarySynchronizedSeek(PetscObjectComm((PetscObject)tj), fd, off, PETSC_BINARY_SEEK…  in StackLoadLast()
457   PetscCall(PetscLogEventBegin(TSTrajectory_DiskRead, tj, ts, 0, 0));  in StackLoadLast()
459   PetscCall(PetscLogEventEnd(TSTrajectory_DiskRead, tj, ts, 0, 0));  in StackLoadLast()
467 static PetscErrorCode DumpSingle(TSTrajectory tj, TS ts, Stack *stack, PetscInt id)  in DumpSingle()  argument
471   TJScheduler *tjsch = (TJScheduler *)tj->data;  in DumpSingle()
477   if (tj->monitor) {  in DumpSingle()
478     PetscCall(PetscViewerASCIIAddTab(tj->monitor, ((PetscObject)tj)->tablevel));  in DumpSingle()
479     PetscCall(PetscViewerASCIIPrintf(tj->monitor, "Dump a single point from file\n"));  in DumpSingle()
480     PetscCall(PetscViewerASCIISubtractTab(tj->monitor, ((PetscObject)tj)->tablevel));  in DumpSingle()
483 …PetscCall(PetscSNPrintf(filename, sizeof(filename), "%s/TS-CPS%06" PetscInt_FMT ".bin", tj->dirnam…  in DumpSingle()
488   PetscCall(PetscLogEventBegin(TSTrajectory_DiskWrite, tj, ts, 0, 0));  in DumpSingle()
490   PetscCall(PetscLogEventEnd(TSTrajectory_DiskWrite, tj, ts, 0, 0));  in DumpSingle()
495 static PetscErrorCode LoadSingle(TSTrajectory tj, TS ts, Stack *stack, PetscInt id)  in LoadSingle()  argument
502   if (tj->monitor) {  in LoadSingle()
503     PetscCall(PetscViewerASCIIAddTab(tj->monitor, ((PetscObject)tj)->tablevel));  in LoadSingle()
504     PetscCall(PetscViewerASCIIPrintf(tj->monitor, "Load a single point from file\n"));  in LoadSingle()
505     PetscCall(PetscViewerASCIISubtractTab(tj->monitor, ((PetscObject)tj)->tablevel));  in LoadSingle()
507 …PetscCall(PetscSNPrintf(filename, sizeof filename, "%s/TS-CPS%06" PetscInt_FMT ".bin", tj->dirname…  in LoadSingle()
508 …PetscCall(PetscViewerBinaryOpen(PetscObjectComm((PetscObject)tj), filename, FILE_MODE_READ, &viewe…  in LoadSingle()
512   PetscCall(PetscLogEventBegin(TSTrajectory_DiskRead, tj, ts, 0, 0));  in LoadSingle()
514   PetscCall(PetscLogEventEnd(TSTrajectory_DiskRead, tj, ts, 0, 0));  in LoadSingle()
576 static PetscErrorCode TopLevelStore(TSTrajectory tj, TS ts, TJScheduler *tjsch, PetscInt stepnum, P…  in TopLevelStore()  argument
591         PetscCall(StackDumpAll(tj, ts, stack, stridenum + 1));  in TopLevelStore()
597         PetscCall(DumpSingle(tj, ts, stack, stridenum + 1));  in TopLevelStore()
605         PetscCall(StackDumpAll(tj, ts, stack, stridenum));  in TopLevelStore()
611         PetscCall(DumpSingle(tj, ts, stack, stridenum + 1));  in TopLevelStore()
715 static PetscErrorCode TSTrajectoryMemorySet_TLNR(TSTrajectory tj, TS ts, TJScheduler *tjsch, PetscI…  in TSTrajectoryMemorySet_TLNR()  argument
734     PetscCall(TopLevelStore(tj, ts, tjsch, stepnum, localstepnum, laststridesize, &done));  in TSTrajectoryMemorySet_TLNR()
747 static PetscErrorCode TSTrajectoryMemoryGet_TLNR(TSTrajectory tj, TS ts, TJScheduler *tjsch, PetscI…  in TSTrajectoryMemoryGet_TLNR()  argument
767         PetscCall(StackLoadAll(tj, ts, stack, id));  in TSTrajectoryMemoryGet_TLNR()
773         PetscCall(LoadSingle(tj, ts, stack, id));  in TSTrajectoryMemoryGet_TLNR()
792         PetscCall(StackLoadAll(tj, ts, stack, id));  in TSTrajectoryMemoryGet_TLNR()
794         PetscCall(LoadSingle(tj, ts, stack, id));  in TSTrajectoryMemoryGet_TLNR()
974 static PetscErrorCode TSTrajectoryMemorySet_ROF(TSTrajectory tj, TS ts, TJScheduler *tjsch, PetscIn…  in TSTrajectoryMemorySet_ROF()  argument
987 …PetscCall(ApplyRevolve(tj->monitor, tjsch->stype, tjsch->rctx, rtotal_steps, rstepnum, rstepnum, P…  in TSTrajectoryMemorySet_ROF()
998 static PetscErrorCode TSTrajectoryMemoryGet_ROF(TSTrajectory tj, TS ts, TJScheduler *tjsch, PetscIn…  in TSTrajectoryMemoryGet_ROF()  argument
1021     PetscCall(printwhattodo(tj->monitor, whattodo, tjsch->rctx, shift));  in TSTrajectoryMemoryGet_ROF()
1023 …PetscCall(ApplyRevolve(tj->monitor, tjsch->stype, tjsch->rctx, rtotal_steps, rstepnum, rstepnum, P…  in TSTrajectoryMemoryGet_ROF()
1024     if (tj->monitor) {  in TSTrajectoryMemoryGet_ROF()
1025       PetscCall(PetscViewerASCIIAddTab(tj->monitor, ((PetscObject)tj)->tablevel));  in TSTrajectoryMemoryGet_ROF()
1026 …PetscCall(PetscViewerASCIIPrintf(tj->monitor, "Skip the step from %d to %d (stage values already c…  in TSTrajectoryMemoryGet_ROF()
1027       PetscCall(PetscViewerASCIISubtractTab(tj->monitor, ((PetscObject)tj)->tablevel));  in TSTrajectoryMemoryGet_ROF()
1040 static PetscErrorCode TSTrajectoryMemorySet_RON(TSTrajectory tj, TS ts, TJScheduler *tjsch, PetscIn…  in TSTrajectoryMemorySet_RON()  argument
1056 …PetscCall(ApplyRevolve(tj->monitor, tjsch->stype, rctx, rtotal_steps, rstepnum, rstepnum, PETSC_FA…  in TSTrajectoryMemorySet_RON()
1080 static PetscErrorCode TSTrajectoryMemoryGet_RON(TSTrajectory tj, TS ts, TJScheduler *tjsch, PetscIn…  in TSTrajectoryMemoryGet_RON()  argument
1098   PetscCall(printwhattodo(tj->monitor, whattodo, tjsch->rctx, shift));  in TSTrajectoryMemoryGet_RON()
1106     PetscCall(printwhattodo(tj->monitor, whattodo, tjsch->rctx, shift));  in TSTrajectoryMemoryGet_RON()
1109     if (tj->monitor) {  in TSTrajectoryMemoryGet_RON()
1110       PetscCall(PetscViewerASCIIAddTab(tj->monitor, ((PetscObject)tj)->tablevel));  in TSTrajectoryMemoryGet_RON()
1111 …PetscCall(PetscViewerASCIIPrintf(tj->monitor, "Skip the step from %d to %d (stage values already c…  in TSTrajectoryMemoryGet_RON()
1112       PetscCall(PetscViewerASCIISubtractTab(tj->monitor, ((PetscObject)tj)->tablevel));  in TSTrajectoryMemoryGet_RON()
1124 static PetscErrorCode TSTrajectoryMemorySet_TLR(TSTrajectory tj, TS ts, TJScheduler *tjsch, PetscIn…  in TSTrajectoryMemorySet_TLR()  argument
1142     PetscCall(TopLevelStore(tj, ts, tjsch, stepnum, localstepnum, laststridesize, &done));  in TSTrajectoryMemorySet_TLR()
1162 …PetscCall(ApplyRevolve(tj->monitor, tjsch->stype, tjsch->rctx, rtotal_steps, rstepnum, rlocalstepn…  in TSTrajectoryMemorySet_TLR()
1173 static PetscErrorCode TSTrajectoryMemoryGet_TLR(TSTrajectory tj, TS ts, TJScheduler *tjsch, PetscIn…  in TSTrajectoryMemoryGet_TLR()  argument
1198         PetscCall(StackLoadAll(tj, ts, stack, stridenum));  in TSTrajectoryMemoryGet_TLR()
1206         PetscCall(LoadSingle(tj, ts, stack, stridenum));  in TSTrajectoryMemoryGet_TLR()
1221     PetscCall(printwhattodo(tj->monitor, whattodo, tjsch->rctx, shift));  in TSTrajectoryMemoryGet_TLR()
1229         PetscCall(StackLoadAll(tj, ts, stack, stridenum));  in TSTrajectoryMemoryGet_TLR()
1234         PetscCall(LoadSingle(tj, ts, stack, stridenum));  in TSTrajectoryMemoryGet_TLR()
1237 …PetscCall(ApplyRevolve(tj->monitor, tjsch->stype, tjsch->rctx, rtotal_steps, rnum, 1, PETSC_FALSE,…  in TSTrajectoryMemoryGet_TLR()
1238         if (tj->monitor) {  in TSTrajectoryMemoryGet_TLR()
1239           PetscCall(PetscViewerASCIIAddTab(tj->monitor, ((PetscObject)tj)->tablevel));  in TSTrajectoryMemoryGet_TLR()
1241 …PetscViewerASCIIPrintf(tj->monitor, "Skip the step from %" PetscInt_FMT " to %" PetscInt_FMT " (st…  in TSTrajectoryMemoryGet_TLR()
1242           PetscCall(PetscViewerASCIISubtractTab(tj->monitor, ((PetscObject)tj)->tablevel));  in TSTrajectoryMemoryGet_TLR()
1257 …PetscCall(ApplyRevolve(tj->monitor, tjsch->stype, tjsch->rctx, rtotal_steps, rstepnum, rlocalstepn…  in TSTrajectoryMemoryGet_TLR()
1258     if (tj->monitor) {  in TSTrajectoryMemoryGet_TLR()
1259       PetscCall(PetscViewerASCIIAddTab(tj->monitor, ((PetscObject)tj)->tablevel));  in TSTrajectoryMemoryGet_TLR()
1260 …PetscCall(PetscViewerASCIIPrintf(tj->monitor, "Skip the step from %" PetscInt_FMT " to %" PetscInt…  in TSTrajectoryMemoryGet_TLR()
1261       PetscCall(PetscViewerASCIISubtractTab(tj->monitor, ((PetscObject)tj)->tablevel));  in TSTrajectoryMemoryGet_TLR()
1274 static PetscErrorCode TSTrajectoryMemorySet_TLTR(TSTrajectory tj, TS ts, TJScheduler *tjsch, PetscI…  in TSTrajectoryMemorySet_TLTR()  argument
1293 …PetscCall(ApplyRevolve(tj->monitor, tjsch->stype, tjsch->rctx2, rtotal_steps, rstepnum, rstepnum, …  in TSTrajectoryMemorySet_TLTR()
1299 …PetscCall(ApplyRevolve(tj->monitor, tjsch->stype, tjsch->rctx2, rtotal_steps, rstepnum, rstepnum, …  in TSTrajectoryMemorySet_TLTR()
1303     PetscCall(TopLevelStore(tj, ts, tjsch, stepnum, localstepnum, laststridesize, &done));  in TSTrajectoryMemorySet_TLTR()
1318 …PetscCall(ApplyRevolve(tj->monitor, tjsch->stype, tjsch->rctx, rtotal_steps, rstepnum, rlocalstepn…  in TSTrajectoryMemorySet_TLTR()
1330 static PetscErrorCode TSTrajectoryMemoryGet_TLTR(TSTrajectory tj, TS ts, TJScheduler *tjsch, PetscI…  in TSTrajectoryMemoryGet_TLTR()  argument
1367       PetscCall(printwhattodo2(tj->monitor, whattodo, tjsch->rctx2, shift));  in TSTrajectoryMemoryGet_TLTR()
1371 …PetscCall(ApplyRevolve(tj->monitor, tjsch->stype, tjsch->rctx2, rtotal_steps, rstepnum, rstepnum, …  in TSTrajectoryMemoryGet_TLTR()
1372       if (tj->monitor) {  in TSTrajectoryMemoryGet_TLTR()
1373         PetscCall(PetscViewerASCIIAddTab(tj->monitor, ((PetscObject)tj)->tablevel));  in TSTrajectoryMemoryGet_TLTR()
1374 …PetscCall(PetscViewerASCIIPrintf(tj->monitor, "[Top Level] Skip the stride from %d to %d (stage va…  in TSTrajectoryMemoryGet_TLTR()
1375         PetscCall(PetscViewerASCIISubtractTab(tj->monitor, ((PetscObject)tj)->tablevel));  in TSTrajectoryMemoryGet_TLTR()
1383           PetscCall(StackLoadLast(tj, ts, stack, restoredstridenum));  in TSTrajectoryMemoryGet_TLTR()
1385           PetscCall(StackLoadAll(tj, ts, stack, restoredstridenum));  in TSTrajectoryMemoryGet_TLTR()
1401         PetscCall(LoadSingle(tj, ts, stack, restoredstridenum));  in TSTrajectoryMemoryGet_TLTR()
1409           PetscCall(StackLoadLast(tj, ts, stack, restoredstridenum));  in TSTrajectoryMemoryGet_TLTR()
1415           PetscCall(StackLoadAll(tj, ts, stack, restoredstridenum));  in TSTrajectoryMemoryGet_TLTR()
1420         PetscCall(LoadSingle(tj, ts, stack, restoredstridenum));  in TSTrajectoryMemoryGet_TLTR()
1428 …PetscCall(ApplyRevolve(tj->monitor, tjsch->stype, tjsch->rctx, rtotal_steps, rstepnum, 1, PETSC_FA…  in TSTrajectoryMemoryGet_TLTR()
1429           if (tj->monitor) {  in TSTrajectoryMemoryGet_TLTR()
1430             PetscCall(PetscViewerASCIIAddTab(tj->monitor, ((PetscObject)tj)->tablevel));  in TSTrajectoryMemoryGet_TLTR()
1431 …PetscCall(PetscViewerASCIIPrintf(tj->monitor, "Skip the step from %" PetscInt_FMT " to %" PetscInt…  in TSTrajectoryMemoryGet_TLTR()
1432             PetscCall(PetscViewerASCIISubtractTab(tj->monitor, ((PetscObject)tj)->tablevel));  in TSTrajectoryMemoryGet_TLTR()
1458     PetscCall(printwhattodo(tj->monitor, whattodo, tjsch->rctx, shift));  in TSTrajectoryMemoryGet_TLTR()
1471 …PetscCall(ApplyRevolve(tj->monitor, tjsch->stype, tjsch->rctx, rtotal_steps, rstepnum, rlocalstepn…  in TSTrajectoryMemoryGet_TLTR()
1472     if (tj->monitor) {  in TSTrajectoryMemoryGet_TLTR()
1473       PetscCall(PetscViewerASCIIAddTab(tj->monitor, ((PetscObject)tj)->tablevel));  in TSTrajectoryMemoryGet_TLTR()
1474 …PetscCall(PetscViewerASCIIPrintf(tj->monitor, "Skip the step from %" PetscInt_FMT " to %" PetscInt…  in TSTrajectoryMemoryGet_TLTR()
1475       PetscCall(PetscViewerASCIISubtractTab(tj->monitor, ((PetscObject)tj)->tablevel));  in TSTrajectoryMemoryGet_TLTR()
1488 static PetscErrorCode TSTrajectoryMemorySet_RMS(TSTrajectory tj, TS ts, TJScheduler *tjsch, PetscIn…  in TSTrajectoryMemorySet_RMS()  argument
1500 …PetscCall(ApplyRevolve(tj->monitor, tjsch->stype, tjsch->rctx, rtotal_steps, rstepnum, rstepnum, P…  in TSTrajectoryMemorySet_RMS()
1509     PetscCall(DumpSingle(tj, ts, stack, tjsch->rctx->check + 1));  in TSTrajectoryMemorySet_RMS()
1514 static PetscErrorCode TSTrajectoryMemoryGet_RMS(TSTrajectory tj, TS ts, TJScheduler *tjsch, PetscIn…  in TSTrajectoryMemoryGet_RMS()  argument
1533   PetscCall(printwhattodo(tj->monitor, whattodo, tjsch->rctx, shift));  in TSTrajectoryMemoryGet_RMS()
1538     PetscCall(LoadSingle(tj, ts, stack, tjsch->rctx->check + 1));  in TSTrajectoryMemoryGet_RMS()
1549     PetscCall(printwhattodo(tj->monitor, whattodo, tjsch->rctx, shift));  in TSTrajectoryMemoryGet_RMS()
1552     if (tj->monitor) {  in TSTrajectoryMemoryGet_RMS()
1553       PetscCall(PetscViewerASCIIAddTab(tj->monitor, ((PetscObject)tj)->tablevel));  in TSTrajectoryMemoryGet_RMS()
1554 …PetscCall(PetscViewerASCIIPrintf(tj->monitor, "Skip the step from %d to %d (stage values already c…  in TSTrajectoryMemoryGet_RMS()
1555       PetscCall(PetscViewerASCIISubtractTab(tj->monitor, ((PetscObject)tj)->tablevel));  in TSTrajectoryMemoryGet_RMS()
1572 static PetscErrorCode TSTrajectoryMemorySet_AOF(TSTrajectory tj, TS ts, TJScheduler *tjsch, PetscIn…  in TSTrajectoryMemorySet_AOF()  argument
1595 …if (tj->monitor) PetscCall(PetscViewerASCIIPrintf(tj->monitor, "Store in checkpoint number %" Pets…  in TSTrajectoryMemorySet_AOF()
1600 …if (tj->monitor) PetscCall(PetscViewerASCIIPrintf(tj->monitor, "Store in checkpoint number %" Pets…  in TSTrajectoryMemorySet_AOF()
1605 …if (tj->monitor) PetscCall(PetscViewerASCIIPrintf(tj->monitor, "Store in checkpoint number %" Pets…  in TSTrajectoryMemorySet_AOF()
1626 static PetscErrorCode TSTrajectoryMemoryGet_AOF(TSTrajectory tj, TS ts, TJScheduler *tjsch, PetscIn…  in TSTrajectoryMemoryGet_AOF()  argument
1648 …if (tj->monitor) PetscCall(PetscViewerASCIIPrintf(tj->monitor, "Restore in checkpoint number %" Pe…  in TSTrajectoryMemoryGet_AOF()
1652 …if (tj->monitor) PetscCall(PetscViewerASCIIPrintf(tj->monitor, "Restore in checkpoint number %" Pe…  in TSTrajectoryMemoryGet_AOF()
1689 static PetscErrorCode TSTrajectorySet_Memory(TSTrajectory tj, TS ts, PetscInt stepnum, PetscReal ti…  in TSTrajectorySet_Memory()  argument
1691   TJScheduler *tjsch = (TJScheduler *)tj->data;  in TSTrajectorySet_Memory()
1701     if (tj->adjoint_solve_mode) {  in TSTrajectorySet_Memory()
1708 …PetscCheck(tj->adjoint_solve_mode, PetscObjectComm((PetscObject)tj), PETSC_ERR_SUP, "Not implement…  in TSTrajectorySet_Memory()
1709     PetscCall(TSTrajectoryMemorySet_TLNR(tj, ts, tjsch, stepnum, time, X));  in TSTrajectorySet_Memory()
1713 …PetscCheck(tj->adjoint_solve_mode, PetscObjectComm((PetscObject)tj), PETSC_ERR_SUP, "Not implement…  in TSTrajectorySet_Memory()
1714     PetscCall(TSTrajectoryMemorySet_TLR(tj, ts, tjsch, stepnum, time, X));  in TSTrajectorySet_Memory()
1717 …PetscCheck(tj->adjoint_solve_mode, PetscObjectComm((PetscObject)tj), PETSC_ERR_SUP, "Not implement…  in TSTrajectorySet_Memory()
1718     PetscCall(TSTrajectoryMemorySet_TLTR(tj, ts, tjsch, stepnum, time, X));  in TSTrajectorySet_Memory()
1721 …PetscCheck(tj->adjoint_solve_mode, PetscObjectComm((PetscObject)tj), PETSC_ERR_SUP, "Not implement…  in TSTrajectorySet_Memory()
1722     PetscCall(TSTrajectoryMemorySet_ROF(tj, ts, tjsch, stepnum, time, X));  in TSTrajectorySet_Memory()
1725 …PetscCheck(tj->adjoint_solve_mode, PetscObjectComm((PetscObject)tj), PETSC_ERR_SUP, "Not implement…  in TSTrajectorySet_Memory()
1726     PetscCall(TSTrajectoryMemorySet_RON(tj, ts, tjsch, stepnum, time, X));  in TSTrajectorySet_Memory()
1729 …PetscCheck(tj->adjoint_solve_mode, PetscObjectComm((PetscObject)tj), PETSC_ERR_SUP, "Not implement…  in TSTrajectorySet_Memory()
1730     PetscCall(TSTrajectoryMemorySet_RMS(tj, ts, tjsch, stepnum, time, X));  in TSTrajectorySet_Memory()
1735 …PetscCheck(tj->adjoint_solve_mode, PetscObjectComm((PetscObject)tj), PETSC_ERR_SUP, "Not implement…  in TSTrajectorySet_Memory()
1736     PetscCall(TSTrajectoryMemorySet_AOF(tj, ts, tjsch, stepnum, time, X));  in TSTrajectorySet_Memory()
1745 static PetscErrorCode TSTrajectoryGet_Memory(TSTrajectory tj, TS ts, PetscInt stepnum, PetscReal *t)  in TSTrajectoryGet_Memory()  argument
1747   TJScheduler *tjsch = (TJScheduler *)tj->data;  in TSTrajectoryGet_Memory()
1750   if (tj->adjoint_solve_mode && stepnum == 0) {  in TSTrajectoryGet_Memory()
1751 …PetscCall(TSTrajectoryReset(tj)); /* reset TSTrajectory so users do not need to reset TSTrajectory…  in TSTrajectoryGet_Memory()
1756     if (tj->adjoint_solve_mode) {  in TSTrajectoryGet_Memory()
1763 …PetscCheck(tj->adjoint_solve_mode, PetscObjectComm((PetscObject)tj), PETSC_ERR_SUP, "Not implement…  in TSTrajectoryGet_Memory()
1764     PetscCall(TSTrajectoryMemoryGet_TLNR(tj, ts, tjsch, stepnum));  in TSTrajectoryGet_Memory()
1768 …PetscCheck(tj->adjoint_solve_mode, PetscObjectComm((PetscObject)tj), PETSC_ERR_SUP, "Not implement…  in TSTrajectoryGet_Memory()
1769     PetscCall(TSTrajectoryMemoryGet_TLR(tj, ts, tjsch, stepnum));  in TSTrajectoryGet_Memory()
1772 …PetscCheck(tj->adjoint_solve_mode, PetscObjectComm((PetscObject)tj), PETSC_ERR_SUP, "Not implement…  in TSTrajectoryGet_Memory()
1773     PetscCall(TSTrajectoryMemoryGet_TLTR(tj, ts, tjsch, stepnum));  in TSTrajectoryGet_Memory()
1776 …PetscCheck(tj->adjoint_solve_mode, PetscObjectComm((PetscObject)tj), PETSC_ERR_SUP, "Not implement…  in TSTrajectoryGet_Memory()
1777     PetscCall(TSTrajectoryMemoryGet_ROF(tj, ts, tjsch, stepnum));  in TSTrajectoryGet_Memory()
1780 …PetscCheck(tj->adjoint_solve_mode, PetscObjectComm((PetscObject)tj), PETSC_ERR_SUP, "Not implement…  in TSTrajectoryGet_Memory()
1781     PetscCall(TSTrajectoryMemoryGet_RON(tj, ts, tjsch, stepnum));  in TSTrajectoryGet_Memory()
1784 …PetscCheck(tj->adjoint_solve_mode, PetscObjectComm((PetscObject)tj), PETSC_ERR_SUP, "Not implement…  in TSTrajectoryGet_Memory()
1785     PetscCall(TSTrajectoryMemoryGet_RMS(tj, ts, tjsch, stepnum));  in TSTrajectoryGet_Memory()
1790 …PetscCheck(tj->adjoint_solve_mode, PetscObjectComm((PetscObject)tj), PETSC_ERR_SUP, "Not implement…  in TSTrajectoryGet_Memory()
1791     PetscCall(TSTrajectoryMemoryGet_AOF(tj, ts, tjsch, stepnum));  in TSTrajectoryGet_Memory()
1800 PETSC_UNUSED static PetscErrorCode TSTrajectorySetStride_Memory(TSTrajectory tj, PetscInt stride)  in TSTrajectorySetStride_Memory()  argument
1802   TJScheduler *tjsch = (TJScheduler *)tj->data;  in TSTrajectorySetStride_Memory()
1809 static PetscErrorCode TSTrajectorySetMaxCpsRAM_Memory(TSTrajectory tj, PetscInt max_cps_ram)  in TSTrajectorySetMaxCpsRAM_Memory()  argument
1811   TJScheduler *tjsch = (TJScheduler *)tj->data;  in TSTrajectorySetMaxCpsRAM_Memory()
1818 static PetscErrorCode TSTrajectorySetMaxCpsDisk_Memory(TSTrajectory tj, PetscInt max_cps_disk)  in TSTrajectorySetMaxCpsDisk_Memory()  argument
1820   TJScheduler *tjsch = (TJScheduler *)tj->data;  in TSTrajectorySetMaxCpsDisk_Memory()
1827 static PetscErrorCode TSTrajectorySetMaxUnitsRAM_Memory(TSTrajectory tj, PetscInt max_units_ram)  in TSTrajectorySetMaxUnitsRAM_Memory()  argument
1829   TJScheduler *tjsch = (TJScheduler *)tj->data;  in TSTrajectorySetMaxUnitsRAM_Memory()
1832 …PetscCheck(tjsch->max_cps_ram, PetscObjectComm((PetscObject)tj), PETSC_ERR_ARG_INCOMP, "Conflict w…  in TSTrajectorySetMaxUnitsRAM_Memory()
1837 static PetscErrorCode TSTrajectorySetMaxUnitsDisk_Memory(TSTrajectory tj, PetscInt max_units_disk)  in TSTrajectorySetMaxUnitsDisk_Memory()  argument
1839   TJScheduler *tjsch = (TJScheduler *)tj->data;  in TSTrajectorySetMaxUnitsDisk_Memory()
1842 …PetscCheck(tjsch->max_cps_disk, PetscObjectComm((PetscObject)tj), PETSC_ERR_ARG_INCOMP, "Conflict …  in TSTrajectorySetMaxUnitsDisk_Memory()
1847 static PetscErrorCode TSTrajectoryMemorySetType_Memory(TSTrajectory tj, TSTrajectoryMemoryType tj_m…  in TSTrajectoryMemorySetType_Memory()  argument
1849   TJScheduler *tjsch = (TJScheduler *)tj->data;  in TSTrajectoryMemorySetType_Memory()
1852 …PetscCheck(!tj->setupcalled, PetscObjectComm((PetscObject)tj), PETSC_ERR_ARG_WRONGSTATE, "Cannot c…  in TSTrajectoryMemorySetType_Memory()
1858 PETSC_UNUSED static PetscErrorCode TSTrajectorySetRevolveOnline(TSTrajectory tj, PetscBool use_onli…  in TSTrajectorySetRevolveOnline()  argument
1860   TJScheduler *tjsch = (TJScheduler *)tj->data;  in TSTrajectorySetRevolveOnline()
1868 PETSC_UNUSED static PetscErrorCode TSTrajectorySetSaveStack(TSTrajectory tj, PetscBool save_stack)  in TSTrajectorySetSaveStack()  argument
1870   TJScheduler *tjsch = (TJScheduler *)tj->data;  in TSTrajectorySetSaveStack()
1877 PETSC_UNUSED static PetscErrorCode TSTrajectorySetUseDRAM(TSTrajectory tj, PetscBool use_dram)  in TSTrajectorySetUseDRAM()  argument
1879   TJScheduler *tjsch = (TJScheduler *)tj->data;  in TSTrajectorySetUseDRAM()
1902 PetscErrorCode TSTrajectoryMemorySetType(TSTrajectory tj, TSTrajectoryMemoryType tj_memory_type)  in TSTrajectoryMemorySetType()  argument
1905 …PetscTryMethod(tj, "TSTrajectoryMemorySetType_C", (TSTrajectory, TSTrajectoryMemoryType), (tj, tj_…  in TSTrajectoryMemorySetType()
1924 PetscErrorCode TSTrajectorySetMaxCpsRAM(TSTrajectory tj, PetscInt max_cps_ram)  in TSTrajectorySetMaxCpsRAM()  argument
1927   PetscUseMethod(tj, "TSTrajectorySetMaxCpsRAM_C", (TSTrajectory, PetscInt), (tj, max_cps_ram));  in TSTrajectorySetMaxCpsRAM()
1946 PetscErrorCode TSTrajectorySetMaxCpsDisk(TSTrajectory tj, PetscInt max_cps_disk)  in TSTrajectorySetMaxCpsDisk()  argument
1949   PetscUseMethod(tj, "TSTrajectorySetMaxCpsDisk_C", (TSTrajectory, PetscInt), (tj, max_cps_disk));  in TSTrajectorySetMaxCpsDisk()
1968 PetscErrorCode TSTrajectorySetMaxUnitsRAM(TSTrajectory tj, PetscInt max_units_ram)  in TSTrajectorySetMaxUnitsRAM()  argument
1971   PetscUseMethod(tj, "TSTrajectorySetMaxUnitsRAM_C", (TSTrajectory, PetscInt), (tj, max_units_ram));  in TSTrajectorySetMaxUnitsRAM()
1990 PetscErrorCode TSTrajectorySetMaxUnitsDisk(TSTrajectory tj, PetscInt max_units_disk)  in TSTrajectorySetMaxUnitsDisk()  argument
1993 …PetscUseMethod(tj, "TSTrajectorySetMaxUnitsDisk_C", (TSTrajectory, PetscInt), (tj, max_units_disk)…  in TSTrajectorySetMaxUnitsDisk()
1997 static PetscErrorCode TSTrajectorySetFromOptions_Memory(TSTrajectory tj, PetscOptionItems PetscOpti…  in TSTrajectorySetFromOptions_Memory()  argument
1999   TJScheduler *tjsch = (TJScheduler *)tj->data;  in TSTrajectorySetFromOptions_Memory()
2008     if (flg) PetscCall(TSTrajectorySetMaxCpsRAM(tj, max_cps_ram));  in TSTrajectorySetFromOptions_Memory()
2010     if (flg) PetscCall(TSTrajectorySetMaxCpsDisk(tj, max_cps_disk));  in TSTrajectorySetFromOptions_Memory()
2012     if (flg) PetscCall(TSTrajectorySetMaxUnitsRAM(tj, max_units_ram));  in TSTrajectorySetFromOptions_Memory()
2014     if (flg) PetscCall(TSTrajectorySetMaxUnitsDisk(tj, max_units_disk));  in TSTrajectorySetFromOptions_Memory()
2022     if (flg) PetscCall(TSTrajectoryMemorySetType(tj, (TSTrajectoryMemoryType)etmp));  in TSTrajectorySetFromOptions_Memory()
2028 static PetscErrorCode TSTrajectorySetUp_Memory(TSTrajectory tj, TS ts)  in TSTrajectorySetUp_Memory()  argument
2030   TJScheduler *tjsch = (TJScheduler *)tj->data;  in TSTrajectorySetUp_Memory()
2050   tjsch->stack.solution_only = tj->solution_only;  in TSTrajectorySetUp_Memory()
2194     PetscCall(TSTrajectorySetUp_Basic(tj, ts));  in TSTrajectorySetUp_Memory()
2203 static PetscErrorCode TSTrajectoryReset_Memory(TSTrajectory tj)  in TSTrajectoryReset_Memory()  argument
2206   TJScheduler *tjsch = (TJScheduler *)tj->data;  in TSTrajectoryReset_Memory()
2233 static PetscErrorCode TSTrajectoryDestroy_Memory(TSTrajectory tj)  in TSTrajectoryDestroy_Memory()  argument
2235   TJScheduler *tjsch = (TJScheduler *)tj->data;  in TSTrajectoryDestroy_Memory()
2240   PetscCall(PetscObjectComposeFunction((PetscObject)tj, "TSTrajectorySetMaxCpsRAM_C", NULL));  in TSTrajectoryDestroy_Memory()
2241   PetscCall(PetscObjectComposeFunction((PetscObject)tj, "TSTrajectorySetMaxCpsDisk_C", NULL));  in TSTrajectoryDestroy_Memory()
2242   PetscCall(PetscObjectComposeFunction((PetscObject)tj, "TSTrajectorySetMaxUnitsRAM_C", NULL));  in TSTrajectoryDestroy_Memory()
2243   PetscCall(PetscObjectComposeFunction((PetscObject)tj, "TSTrajectorySetMaxUnitsDisk_C", NULL));  in TSTrajectoryDestroy_Memory()
2244   PetscCall(PetscObjectComposeFunction((PetscObject)tj, "TSTrajectoryMemorySetType_C", NULL));  in TSTrajectoryDestroy_Memory()
2256 PETSC_EXTERN PetscErrorCode TSTrajectoryCreate_Memory(TSTrajectory tj, TS ts)  in TSTrajectoryCreate_Memory()  argument
2261   tj->ops->set            = TSTrajectorySet_Memory;  in TSTrajectoryCreate_Memory()
2262   tj->ops->get            = TSTrajectoryGet_Memory;  in TSTrajectoryCreate_Memory()
2263   tj->ops->setup          = TSTrajectorySetUp_Memory;  in TSTrajectoryCreate_Memory()
2264   tj->ops->setfromoptions = TSTrajectorySetFromOptions_Memory;  in TSTrajectoryCreate_Memory()
2265   tj->ops->reset          = TSTrajectoryReset_Memory;  in TSTrajectoryCreate_Memory()
2266   tj->ops->destroy        = TSTrajectoryDestroy_Memory;  in TSTrajectoryCreate_Memory()
2278   tjsch->stack.solution_only = tj->solution_only;  in TSTrajectoryCreate_Memory()
2279   PetscCall(PetscViewerCreate(PetscObjectComm((PetscObject)tj), &tjsch->viewer));  in TSTrajectoryCreate_Memory()
2284 …PetscCall(PetscObjectComposeFunction((PetscObject)tj, "TSTrajectorySetMaxCpsRAM_C", TSTrajectorySe…  in TSTrajectoryCreate_Memory()
2285 …PetscCall(PetscObjectComposeFunction((PetscObject)tj, "TSTrajectorySetMaxCpsDisk_C", TSTrajectoryS…  in TSTrajectoryCreate_Memory()
2286 …PetscCall(PetscObjectComposeFunction((PetscObject)tj, "TSTrajectorySetMaxUnitsRAM_C", TSTrajectory…  in TSTrajectoryCreate_Memory()
2287 …PetscCall(PetscObjectComposeFunction((PetscObject)tj, "TSTrajectorySetMaxUnitsDisk_C", TSTrajector…  in TSTrajectoryCreate_Memory()
2288 …PetscCall(PetscObjectComposeFunction((PetscObject)tj, "TSTrajectoryMemorySetType_C", TSTrajectoryM…  in TSTrajectoryCreate_Memory()
2289   tj->data = tjsch;  in TSTrajectoryCreate_Memory()