50   Parameter  *params;  in main()  local
69   PetscCall(PetscBagGetData(bag, &params));  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()
79   params->iarray[0] = 1;  in main()
80   params->iarray[1] = 2;  in main()
81   params->iarray[2] = 3;  in main()
83 …PetscCall(PetscBagRegisterIntArray(bag, &params->iarray, 3, "int_array", "Int array with 3 locatio…  in main()
85   params->rarray[0] = -1.0;  in main()
86   params->rarray[1] = -2.0;  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()
106   PetscCall(PetscMemzero(params, sizeof(Parameter)));  in main()
116   PetscCall(PetscBagGetData(bag, &params));  in main()
117 …PetscCall(PetscPrintf(PETSC_COMM_WORLD, "The value of rho after loading is: %f\n", (double)params-…  in main()