530   Parameter *param = (Parameter *)ctx;  in pipe_u()  local
532   u[0] = (0.5 * param->Reynolds / param->mu) * X[1] * (1.0 - X[1]);  in pipe_u()
556   Parameter *param = (Parameter *)ctx;  in pipe_T()  local
558   T[0] = X[1] * (1.0 - X[1]) + param->T_in;  in pipe_T()
646   Parameter *param = (Parameter *)ctx;  in pipe_wiggly_u()  local
648 …u[0] = (0.5 * param->Reynolds / param->mu) * (X[1] * (1.0 - X[1]) + param->epsilon * PetscSinReal(…  in pipe_wiggly_u()
672   Parameter *param = (Parameter *)ctx;  in pipe_wiggly_T()  local
674   T[0] = X[1] * (1.0 - X[1]) + param->epsilon * PetscSinReal(PETSC_PI * X[1]) + param->T_in;  in pipe_wiggly_T()
1389     Parameter  *param;  in SetupProblem()  local
1392     PetscCall(PetscBagGetData(user->bag, &param));  in SetupProblem()
1394     constants[STROUHAL] = param->Strouhal;  in SetupProblem()
1395     constants[FROUDE]   = param->Froude;  in SetupProblem()
1396     constants[REYNOLDS] = param->Reynolds;  in SetupProblem()
1397     constants[PECLET]   = param->Peclet;  in SetupProblem()
1398     constants[P_TH]     = param->p_th;  in SetupProblem()
1399     constants[MU]       = param->mu;  in SetupProblem()
1400     constants[NU]       = param->nu;  in SetupProblem()
1401     constants[C_P]      = param->c_p;  in SetupProblem()
1402     constants[K]        = param->k;  in SetupProblem()
1403     constants[ALPHA]    = param->alpha;  in SetupProblem()
1404     constants[T_IN]     = param->T_in;  in SetupProblem()
1405     constants[G_DIR]    = param->g_dir;  in SetupProblem()
1406     constants[EPSILON]  = param->epsilon;  in SetupProblem()
1462   Parameter     *param;  in SetupDiscretization()  local
1490   PetscCall(PetscBagGetData(user->bag, &param));  in SetupDiscretization()