49   PetscBag    bag;  in main()  local
68   PetscCall(PetscBagCreate(PETSC_COMM_WORLD, sizeof(Parameter), &bag));  in main()
69   PetscCall(PetscBagGetData(bag, &params));  in main()
72 …PetscCall(PetscBagSetName(bag, "ParameterBag", "contains parameters for simulations of top-secret,…  in main()
73   PetscCall(PetscBagSetOptionsPrefix(bag, "pbag_"));  in main()
74 …PetscCall(PetscBagRegisterString(bag, &params->filename, PETSC_MAX_PATH_LEN, "myfile", "filename",…  in main()
75   PetscCall(PetscBagRegisterReal(bag, &params->rho, 3.0, "rho", "Density, kg/m^3"));  in main()
76   PetscCall(PetscBagRegisterScalar(bag, &params->W, 5.0, "W", "Vertical velocity, m/sec"));  in main()
77   PetscCall(PetscBagRegisterInt(bag, &params->Ii, 2, "modes_x", "Number of modes in x-direction"));  in main()
83 …PetscCall(PetscBagRegisterIntArray(bag, &params->iarray, 3, "int_array", "Int array with 3 locatio…  in main()
88 …PetscCall(PetscBagRegisterRealArray(bag, &params->rarray, 2, "real_array", "Real array with 2 loca…  in main()
89 …PetscCall(PetscBagRegisterBool(bag, &params->T, PETSC_FALSE, "do_output", "Write output file (yes/…  in main()
90 …PetscCall(PetscBagRegisterBoolArray(bag, &params->Tarray, 3, "bool_array", "Bool array with 3 loca…  in main()
91 …PetscCall(PetscBagRegisterEnum(bag, &params->dt, PetscDataTypes, (PetscEnum)PETSC_INT, "dt", "mean…  in main()
92   PetscCall(PetscBagRegisterReal(bag, &params->pos.x1, 1.0, "x1", "x position"));  in main()
93   PetscCall(PetscBagRegisterReal(bag, &params->pos.x2, 1.9, "x2", "y position"));  in main()
94 …PetscCall(PetscBagRegisterEnum(bag, &params->which, EnumeratedChoices, (PetscEnum)THAT, "choose", …  in main()
100     PetscCall(PetscBagView(bag, PETSC_VIEWER_STDOUT_WORLD));  in main()
102     PetscCall(PetscBagView(bag, viewer));  in main()
110   PetscCall(PetscBagLoad(viewer, bag));  in main()
112   PetscCall(PetscBagSetFromOptions(bag));  in main()
113   PetscCall(PetscBagView(bag, PETSC_VIEWER_STDOUT_WORLD));  in main()
116   PetscCall(PetscBagGetData(bag, &params));  in main()
120   PetscCall(PetscBagDestroy(&bag));  in main()