685 static PetscErrorCode THIInitial(THI thi, DM pack, Vec X)  in THIInitial()  argument
695   PetscCall(DMCompositeGetEntries(pack, &da3, &da2));  in THIInitial()
696   PetscCall(DMCompositeGetAccess(pack, X, &X3g, &X2g));  in THIInitial()
725   PetscCall(DMCompositeRestoreAccess(pack, X, &X3g, &X2g));  in THIInitial()
897   DM              pack, da3, da2;  in THIFunction()  local
906   PetscCall(TSGetDM(ts, &pack));  in THIFunction()
907   PetscCall(DMCompositeGetEntries(pack, &da3, &da2));  in THIFunction()
909   PetscCall(DMCompositeGetLocalVectors(pack, &X3, &X2));  in THIFunction()
910   PetscCall(DMCompositeGetLocalVectors(pack, &Xdot3, &Xdot2));  in THIFunction()
911   PetscCall(DMCompositeScatter(pack, X, X3, X2));  in THIFunction()
913   PetscCall(DMCompositeScatter(pack, Xdot, Xdot3, Xdot2));  in THIFunction()
936   PetscCall(DMCompositeRestoreLocalVectors(pack, &X3, &X2));  in THIFunction()
937   PetscCall(DMCompositeRestoreLocalVectors(pack, &Xdot3, &Xdot2));  in THIFunction()
940   PetscCall(DMCompositeGetAccess(pack, F, &F3g, &F2g));  in THIFunction()
959   PetscCall(DMCompositeRestoreAccess(pack, F, &F3g, &F2g));  in THIFunction()
986 static PetscErrorCode THISurfaceStatistics(DM pack, Vec X, PetscReal *min, PetscReal *max, PetscRea…  in THISurfaceStatistics()  argument
996   PetscCall(DMCompositeGetEntries(pack, &da3, &da2));  in THISurfaceStatistics()
997   PetscCall(DMCompositeGetAccess(pack, X, &X3, &X2));  in THISurfaceStatistics()
1011   PetscCall(DMCompositeRestoreAccess(pack, X, &X3, &X2));  in THISurfaceStatistics()
1023   DM       pack;  in THISolveStatistics()  local
1028   PetscCall(TSGetDM(ts, &pack));  in THISolveStatistics()
1030   PetscCall(DMCompositeGetAccess(pack, X, &X3, &X2));  in THISolveStatistics()
1070       PetscCall(THISurfaceStatistics(pack, X, &umin, &umax, &umean));  in THISolveStatistics()
1081   PetscCall(DMCompositeRestoreAccess(pack, X, &X3, &X2));  in THISolveStatistics()
1274   DM              pack, da3, da2;  in THIJacobian()  local
1283   PetscCall(TSGetDM(ts, &pack));  in THIJacobian()
1284   PetscCall(DMCompositeGetEntries(pack, &da3, &da2));  in THIJacobian()
1286   PetscCall(DMCompositeGetLocalVectors(pack, &X3, &X2));  in THIJacobian()
1287   PetscCall(DMCompositeGetLocalVectors(pack, NULL, &Xdot2));  in THIJacobian()
1288   PetscCall(DMCompositeScatter(pack, X, X3, X2));  in THIJacobian()
1290   PetscCall(DMCompositeScatter(pack, Xdot, NULL, Xdot2));  in THIJacobian()
1294   PetscCall(DMCompositeGetLocalISs(pack, &isloc));  in THIJacobian()
1324   PetscCall(DMCompositeRestoreLocalVectors(pack, &X3, &X2));  in THIJacobian()
1325   PetscCall(DMCompositeRestoreLocalVectors(pack, 0, &Xdot2));  in THIJacobian()
1341 static PetscErrorCode THIDAVecView_VTK_XML(THI thi, DM pack, Vec X, const char filename[], const ch…  in THIDAVecView_VTK_XML()  argument
1355   PetscCall(DMCompositeGetEntries(pack, &da3, &da2));  in THIDAVecView_VTK_XML()
1356   PetscCall(DMCompositeGetAccess(pack, X, &X3, &X2));  in THIDAVecView_VTK_XML()
1465   PetscCall(DMCompositeRestoreAccess(pack, X, &X3, &X2));  in THIDAVecView_VTK_XML()
1476   DM   pack;  in THITSMonitor()  local
1483   PetscCall(TSGetDM(ts, &pack));  in THITSMonitor()
1486   PetscCall(THIDAVecView_VTK_XML(thi, pack, X, filename3, filename2));  in THITSMonitor()
1518   DM        pack, da3, da2;  in main()  local
1549   PetscCall(DMCompositeCreate(comm, &pack));  in main()
1550   PetscCall(DMCompositeAddDM(pack, da3));  in main()
1551   PetscCall(DMCompositeAddDM(pack, da2));  in main()
1554   PetscCall(DMSetUp(pack));  in main()
1555   PetscCall(DMCreateMatrix(pack, &B));  in main()
1562     PetscCall(DMCompositeGetEntries(pack, &da3, &da2));  in main()
1567   PetscCall(DMCreateGlobalVector(pack, &X));  in main()
1568   PetscCall(THIInitial(thi, pack, X));  in main()
1571   PetscCall(TSSetDM(ts, pack));  in main()
1594     if (flg) PetscCall(THIDAVecView_VTK_XML(thi, pack, X, filename, NULL));  in main()
1599   PetscCall(DMDestroy(&pack));  in main()