Home
last modified time | relevance | path

Searched refs:bag (Results 1 – 25 of 29) sorted by relevance

12

/petsc/src/sys/classes/bag/
H A Dbag.c8 static PetscErrorCode PetscBagRegister_Private(PetscBag bag, PetscBagItem item, const char *name, c… in PetscBagRegister_Private() argument
13 if (bag->bagitems) { in PetscBagRegister_Private()
14 PetscBagItem nitem = bag->bagitems; in PetscBagRegister_Private()
18 } else bag->bagitems = item; in PetscBagRegister_Private()
19 bag->count++; in PetscBagRegister_Private()
42 PetscErrorCode PetscBagRegisterEnum(PetscBag bag, void *addr, const char *const *list, PetscEnum md… in PetscBagRegisterEnum() argument
50 PetscAssertPointer(bag, 1); in PetscBagRegisterEnum()
61 …PetscCall((*PetscHelpPrintf)(bag->bagcomm, " -%s%s <%s>: (%s) %s (choose one of) ", bag->bagprefi… in PetscBagRegisterEnum()
62 for (i = 0; list[i + 2]; i++) PetscCall((*PetscHelpPrintf)(bag->bagcomm, " %s", list[i])); in PetscBagRegisterEnum()
63 PetscCall((*PetscHelpPrintf)(bag->bagcomm, "\n")); in PetscBagRegisterEnum()
[all …]
/petsc/src/sys/tutorials/
H A Dex5.c49 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()
[all …]
H A Dex5f90.F9033 PetscBag bag
60 PetscCallA(PetscBagCreate(PETSC_COMM_WORLD, sizeofbag, bag, ierr))
61 PetscCallA(PetscBagGetData(bag, data, ierr))
62 PetscCallA(PetscBagSetName(bag, 'demo parameters', 'super secret demo parameters in a bag', ierr))
63 PetscCallA(PetscBagSetOptionsPrefix(bag, 'pbag_', ierr))
68 PetscCallA(PetscBagRegisterInt(bag, data%nxc, int56, 'nxc', 'nxc_variable help message', ierr))
69 …PetscCallA(PetscBagRegisterRealArray(bag, data%rarray, three, 'rarray', 'rarray help message', ier…
72 PetscCallA(PetscBagRegisterScalar(bag, data%x, svalue, 'x', 'x variable help message', ierr))
73 PetscCallA(PetscBagRegisterBool(bag, data%t, PETSC_TRUE, 't', 't boolean help message', ierr))
74 …PetscCallA(PetscBagRegisterBoolArray(bag, data%tarray, three, 'tarray', 'tarray help message', ier…
[all …]
/petsc/src/dm/tutorials/
H A Dex7.c17 PetscBag bag; in main() local
50 PetscCall(PetscBagCreate(PETSC_COMM_WORLD, sizeof(Parameter), &bag)); in main()
51 PetscCall(PetscBagGetData(bag, &params)); in main()
54 PetscCall(PetscBagSetName(bag, "ParameterBag", "contains problem parameters")); in main()
55 …PetscCall(PetscBagRegisterString(bag, &params->filename, PETSC_MAX_PATH_LEN, "output_file", "filen… in main()
56 PetscCall(PetscBagRegisterReal(bag, &params->ra, 1.0, "param_1", "The first parameter")); in main()
57 PetscCall(PetscBagRegisterInt(bag, &params->ia, 5, "param_2", "The second parameter")); in main()
58 …PetscCall(PetscBagRegisterBool(bag, &params->ta, PETSC_TRUE, "do_output", "Write output file (true… in main()
67 PetscCall(PetscBagView(bag, viewer)); in main()
76 PetscCall(PetscBagDestroy(&bag)); in main()
/petsc/src/snes/tutorials/
H A Dex34.c51 PetscBag bag; // Problem parameters member
110 PetscBag bag; in SetupParameters() local
115 PetscCall(PetscBagGetData(ctx->bag, &p)); in SetupParameters()
116 PetscCall(PetscBagSetName(ctx->bag, "par", "Obstacle Parameters")); in SetupParameters()
117 bag = ctx->bag; in SetupParameters()
118 PetscCall(PetscBagRegisterReal(bag, &p->r_0, 0.9, "r_0", "Ball radius, m")); in SetupParameters()
119 …PetscCall(PetscBagRegisterReal(bag, &p->r_free, 0.697965148223374, "r_free", "Ball free boundary r… in SetupParameters()
120 …PetscCall(PetscBagRegisterReal(bag, &p->A, 0.680259411891719, "A", "Logarithmic coefficient in exa… in SetupParameters()
121 …PetscCall(PetscBagRegisterReal(bag, &p->B, 0.471519893402112, "B", "Constant coefficient in exact … in SetupParameters()
122 PetscCall(PetscBagSetFromOptions(bag)); in SetupParameters()
[all …]
H A Dex71.c37 PetscBag bag; /* Holds problem parameters */ member
169 PetscBag bag; in SetupParameters() local
174 PetscCall(PetscBagGetData(user->bag, &p)); in SetupParameters()
175 PetscCall(PetscBagSetName(user->bag, "par", "Poiseuille flow parameters")); in SetupParameters()
176 bag = user->bag; in SetupParameters()
177 PetscCall(PetscBagRegisterReal(bag, &p->Delta, 1.0, "Delta", "Pressure drop per unit length")); in SetupParameters()
178 PetscCall(PetscBagRegisterReal(bag, &p->nu, 1.0, "nu", "Kinematic viscosity")); in SetupParameters()
179 PetscCall(PetscBagRegisterReal(bag, &p->u_0, 0.0, "u_0", "Tangential velocity at the wall")); in SetupParameters()
180 PetscCall(PetscBagRegisterReal(bag, &p->alpha, 0.0, "alpha", "Angle of pipe wall to x-axis")); in SetupParameters()
203 PetscCall(PetscBagGetData(user->bag, &param)); in CreateMesh()
[all …]
H A Dex17.c54 PetscBag bag; /* Problem parameters */ member
213 PetscCall(PetscBagGetData(user->bag, &param)); in axial_disp_u()
368 PetscBag bag; in SetupParameters() local
373 PetscCall(PetscBagGetData(ctx->bag, &p)); in SetupParameters()
374 PetscCall(PetscBagSetName(ctx->bag, "par", "Elastic Parameters")); in SetupParameters()
375 bag = ctx->bag; in SetupParameters()
376 PetscCall(PetscBagRegisterScalar(bag, &p->mu, 1.0, "mu", "Shear Modulus, Pa")); in SetupParameters()
377 PetscCall(PetscBagRegisterScalar(bag, &p->lambda, 1.0, "lambda", "Lame's first parameter, Pa")); in SetupParameters()
378 PetscCall(PetscBagRegisterScalar(bag, &p->N, -1.0, "N", "Tension on right wall, Pa")); in SetupParameters()
379 PetscCall(PetscBagSetFromOptions(bag)); in SetupParameters()
[all …]
H A Dex76.c43 PetscBag bag; member
301 PetscBag bag; in SetupParameters() local
306 PetscCall(PetscBagGetData(user->bag, &p)); in SetupParameters()
307 PetscCall(PetscBagSetName(user->bag, "par", "Poiseuille flow parameters")); in SetupParameters()
308 bag = user->bag; in SetupParameters()
309 PetscCall(PetscBagRegisterReal(bag, &p->nu, 1.0, "nu", "Kinematic viscosity")); in SetupParameters()
310 PetscCall(PetscBagRegisterReal(bag, &p->alpha, 1.0, "alpha", "Thermal diffusivity")); in SetupParameters()
311 PetscCall(PetscBagRegisterReal(bag, &p->theta, 0.0, "theta", "Angle of pipe wall to x-axis")); in SetupParameters()
334 PetscCall(PetscBagGetData(user->bag, &param)); in CreateMesh()
394 PetscCall(PetscBagGetData(user->bag, &param)); in SetupProblem()
[all …]
H A Dex62.c49 PetscBag bag; /* Problem parameters */ member
258 PetscCall(PetscBagCreate(PETSC_COMM_SELF, sizeof(Parameter), &ctx->bag)); in SetupParameters()
259 PetscCall(PetscBagGetData(ctx->bag, &p)); in SetupParameters()
260 PetscCall(PetscBagSetName(ctx->bag, "par", "Stokes Parameters")); in SetupParameters()
261 PetscCall(PetscBagRegisterScalar(ctx->bag, &p->mu, 1.0, "mu", "Dynamic Shear Viscosity, Pa s")); in SetupParameters()
262 PetscCall(PetscBagSetFromOptions(ctx->bag)); in SetupParameters()
271 PetscCall(PetscBagView(ctx->bag, viewer)); in SetupParameters()
321 PetscCall(PetscBagGetData(user->bag, &param)); in SetupEqn()
447 PetscCall(PetscBagDestroy(&user.bag)); in main()
H A Dex36.c44 PetscBag bag; /* Holds problem parameters */ member
128 PetscBag bag; in SetupParameters() local
132 PetscCall(PetscBagCreate(comm, sizeof(Parameter), &user->bag)); in SetupParameters()
133 PetscCall(PetscBagGetData(user->bag, &p)); in SetupParameters()
134 PetscCall(PetscBagSetName(user->bag, "par", "Homogenization parameters")); in SetupParameters()
135 bag = user->bag; in SetupParameters()
136 …PetscCall(PetscBagRegisterReal(bag, &p->epsilon, 1.0, "epsilon", "Wavelength of fine scale oscilla… in SetupParameters()
161 PetscCall(PetscBagGetData(user->bag, &ctx)); in SetupPrimalProblem()
186 PetscCall(PetscBagGetData(user->bag, &param)); in SetupPrimalProblem()
509 PetscCall(PetscBagDestroy(&user.bag)); in main()
H A Dex27.c352 static PetscErrorCode SetupParameters(PetscBag bag, AppCtx *user) in SetupParameters() argument
357 PetscCall(PetscBagGetData(bag, &param)); in SetupParameters()
358 PetscCall(PetscBagSetName(bag, "par", "Poisson parameters")); in SetupParameters()
359 PetscCall(PetscBagRegisterReal(bag, &param->k, 1.0, "k", "Thermal conductivity")); in SetupParameters()
360 PetscCall(PetscBagSetFromOptions(bag)); in SetupParameters()
H A Dex69.c42 PetscBag bag; /* Holds problem parameters */ member
3008 PetscBag bag; in SetUpParameters() local
3013 PetscCall(PetscBagGetData(user->bag, &p)); in SetUpParameters()
3014 PetscCall(PetscBagSetName(user->bag, "par", "Problem parameters")); in SetUpParameters()
3015 bag = user->bag; in SetUpParameters()
3018 PetscCall(PetscBagRegisterInt(bag, &p->n, 1, "n", "x-wavelength for forcing variation")); in SetUpParameters()
3019 PetscCall(PetscBagRegisterInt(bag, &p->m, 1, "m", "z-wavelength for forcing variation")); in SetUpParameters()
3020 …PetscCall(PetscBagRegisterReal(bag, &p->B, 1.0, "B", "Exponential scale for viscosity variation")); in SetUpParameters()
3024 PetscCall(PetscBagRegisterInt(bag, &p->n, 1, "n", "x-wavelength for forcing variation")); in SetUpParameters()
3025 PetscCall(PetscBagRegisterInt(bag, &p->m, 1, "m", "z-wavelength for forcing variation")); in SetUpParameters()
[all …]
/petsc/share/petsc/matlab/
H A DPetscBagRead.m1 function bag = PetscBagRead(fd)
3 % Reads in PETSc binary file bag object
13 bag.bag_name = deblank(char(read(fd,name_len,'uchar')'));
14 bag.help.bag_help = deblank(char(read(fd,help_len,'uchar')'));
49 bag = setfield(bag ,name,val); variable
50 bag.help = setfield(bag.help,name,help);
/petsc/src/sys/classes/bag/ftn-src/
H A Dbagenum.F906 subroutine PetscBagRegisterEnum(bag, addr, FArray, def, n, h, ierr) argument
11 PetscBag bag
49 call PetscBagRegisterEnumPrivate(bag, addr, CArray, def, n, h, ierr)
/petsc/src/sys/classes/bag/ftn-custom/
H A Dzbagf.c10 PETSC_EXTERN void petscbagregisterenumprivate_(PetscBag *bag, void *addr, const char *const *list, … in petscbagregisterenumprivate_() argument
16 *ierr = PetscBagRegisterEnum(*bag, addr, list, *def, c1, c2); in petscbagregisterenumprivate_()
H A Dzbagf90.c12 PETSC_EXTERN void petscbagregisterstring_(PetscBag *bag, char *p, char *cs1, char *s1, char *s2, Pe… in petscbagregisterstring_() argument
18 *ierr = PetscBagRegisterString(*bag, (void *)p, (PetscInt)pl, ct1, t1, t2); in petscbagregisterstring_()
/petsc/src/ts/tutorials/
H A Dex53.c62 PetscBag bag; /* Problem parameters */ member
378 PetscCall(PetscBagGetData(user->bag, &param)); in terzaghi_drainage_pressure()
401 PetscCall(PetscBagGetData(user->bag, &param)); in terzaghi_initial_u()
421 PetscCall(PetscBagGetData(user->bag, &param)); in terzaghi_initial_eps()
438 PetscCall(PetscBagGetData(user->bag, &param)); in terzaghi_2d_u()
475 PetscCall(PetscBagGetData(user->bag, &param)); in terzaghi_2d_eps()
512 PetscCall(PetscBagGetData(user->bag, &param)); in terzaghi_2d_p()
549 PetscCall(PetscBagGetData(user->bag, &param)); in terzaghi_2d_u_t()
587 PetscCall(PetscBagGetData(user->bag, &param)); in terzaghi_2d_eps_t()
623 PetscCall(PetscBagGetData(user->bag, &param)); in terzaghi_2d_p_t()
[all …]
H A Dex77.c56 PetscBag bag; /* Holds problem parameters */ member
320 PetscBag bag; in SetupParameters() local
325 PetscCall(PetscBagGetData(user->bag, &p)); in SetupParameters()
326 PetscCall(PetscBagSetName(user->bag, "par", "Low Mach flow parameters")); in SetupParameters()
327 bag = user->bag; in SetupParameters()
328 PetscCall(PetscBagRegisterReal(bag, &p->nu, 1.0, "nu", "Kinematic viscosity")); in SetupParameters()
329 PetscCall(PetscBagRegisterReal(bag, &p->alpha, 1.0, "alpha", "Thermal diffusivity")); in SetupParameters()
330 PetscCall(PetscBagRegisterReal(bag, &p->T_in, 1.0, "T_in", "Inlet temperature")); in SetupParameters()
331 PetscCall(PetscBagRegisterReal(bag, &p->omega, 1.0, "omega", "Rotation speed in MMS benchmark")); in SetupParameters()
385 PetscCall(PetscBagGetData(user->bag, &param)); in SetupProblem()
[all …]
H A Dex76.c98 PetscBag bag; /* Holds problem parameters */ member
1141 PetscBag bag; in SetupParameters() local
1150 PetscCall(PetscBagGetData(user->bag, &p)); in SetupParameters()
1151 PetscCall(PetscBagSetName(user->bag, "par", "Low Mach flow parameters")); in SetupParameters()
1152 bag = user->bag; in SetupParameters()
1153 PetscCall(PetscBagRegisterReal(bag, &p->Strouhal, 1.0, "S", "Strouhal number")); in SetupParameters()
1154 PetscCall(PetscBagRegisterReal(bag, &p->Froude, 1.0, "Fr", "Froude number")); in SetupParameters()
1155 PetscCall(PetscBagRegisterReal(bag, &p->Reynolds, 1.0, "Re", "Reynolds number")); in SetupParameters()
1156 PetscCall(PetscBagRegisterReal(bag, &p->Peclet, 1.0, "Pe", "Peclet number")); in SetupParameters()
1157 PetscCall(PetscBagRegisterReal(bag, &p->p_th, 1.0, "p_th", "Thermodynamic pressure")); in SetupParameters()
[all …]
/petsc/src/sys/tutorials/output/
H A Dex5f90_1.out1 PetscBag Object: demo parameters (pbag_) super secret demo parameters in a bag
12 PetscBag Object: demo parameters (pbag_) super secret demo parameters in a bag
23 PetscBag Object: demo parameters (pbag_) super secret demo parameters in a bag
/petsc/src/snes/tests/
H A Dex15.c42 PetscBag bag; /* Problem parameters */ member
367 PetscBag bag; in SetupParameters() local
372 PetscCall(PetscBagGetData(ctx->bag, &p)); in SetupParameters()
373 PetscCall(PetscBagSetName(ctx->bag, "par", "Parameters")); in SetupParameters()
374 bag = ctx->bag; in SetupParameters()
375 PetscCall(PetscBagRegisterScalar(bag, &p->sigma, 1.0, "sigma", "Charge per unit area, C/m^3")); in SetupParameters()
376 PetscCall(PetscBagSetFromOptions(bag)); in SetupParameters()
385 PetscCall(PetscBagView(bag, viewer)); in SetupParameters()
413 PetscCall(PetscBagGetData(user->bag, &param)); in InitializeConstants()
436 PetscCall(PetscBagGetData(user->bag, &param)); in InitializeConstants()
[all …]
/petsc/src/ts/tutorials/hamiltonian/
H A Dex3.c59 PetscBag bag; // Problem parameters member
176 PetscCall(PetscBagDestroy(&user->bag)); in DestroyContext()
728 PetscCall(PetscBagGetData(user->bag, (void **)&param)); in InitializeConstants()
755 PetscCall(PetscBagGetData(user->bag, (void **)&param)); in InitializeConstants()
774 PetscBag bag; in SetupParameters() local
779 PetscCall(PetscBagGetData(ctx->bag, (void **)&p)); in SetupParameters()
780 PetscCall(PetscBagSetName(ctx->bag, "par", "Vlasov-Poisson Parameters")); in SetupParameters()
781 bag = ctx->bag; in SetupParameters()
782 PetscCall(PetscBagRegisterScalar(bag, &p->v0, 1.0, "v0", "Velocity scale, m/s")); in SetupParameters()
783 PetscCall(PetscBagRegisterScalar(bag, &p->t0, 1.0, "t0", "Time scale, s")); in SetupParameters()
[all …]
H A Dex2.c113 PetscBag bag; // Problem parameters member
413 PetscCall(PetscBagDestroy(&ctx->bag)); in DestroyContext()
868 PetscBag bag; in SetupParameters() local
873 PetscCall(PetscBagGetData(ctx->bag, &p)); in SetupParameters()
874 PetscCall(PetscBagSetName(ctx->bag, "par", "Vlasov-Poisson Parameters")); in SetupParameters()
875 bag = ctx->bag; in SetupParameters()
876 PetscCall(PetscBagRegisterScalar(bag, &p->v0, 1.0, "v0", "Velocity scale, m/s")); in SetupParameters()
877 PetscCall(PetscBagRegisterScalar(bag, &p->t0, 1.0, "t0", "Time scale, s")); in SetupParameters()
878 PetscCall(PetscBagRegisterScalar(bag, &p->x0, 1.0, "x0", "Space scale, m")); in SetupParameters()
879 PetscCall(PetscBagRegisterScalar(bag, &p->v0, 1.0, "phi0", "Potential scale, kg*m^2/A*s^3")); in SetupParameters()
[all …]
H A Dex4.c150 PetscBag bag; // Problem parameters member
575 PetscCall(PetscBagDestroy(&ctx->bag)); in DestroyContext()
1384 PetscBag bag; in SetupParameters() local
1389 PetscCall(PetscBagGetData(ctx->bag, &p)); in SetupParameters()
1390 PetscCall(PetscBagSetName(ctx->bag, "par", "Vlasov-Poisson Parameters")); in SetupParameters()
1391 bag = ctx->bag; in SetupParameters()
1392 PetscCall(PetscBagRegisterScalar(bag, &p->v0, 1.0, "v0", "Velocity scale, m/s")); in SetupParameters()
1393 PetscCall(PetscBagRegisterScalar(bag, &p->t0, 1.0, "t0", "Time scale, s")); in SetupParameters()
1394 PetscCall(PetscBagRegisterScalar(bag, &p->x0, 1.0, "x0", "Space scale, m")); in SetupParameters()
1395 PetscCall(PetscBagRegisterScalar(bag, &p->v0, 1.0, "phi0", "Potential scale, kg*m^2/A*s^3")); in SetupParameters()
[all …]
/petsc/doc/changes/
H A D33.md220 all the records in the PETSc bag, allows loading on systems with

12