/dports/science/code_saturne/code_saturne-7.1.0/src/cdo/ |
H A D | cs_equation_param.c | 1219 return eqp; in cs_equation_param_create() 1416 eqp->bc_defs[i] = cs_xdef_free(eqp->bc_defs[i]); in cs_equation_param_clear() 1467 eqp->ic_defs[i] = cs_xdef_free(eqp->ic_defs[i]); in cs_equation_param_clear() 1939 BFT_REALLOC(eqp->ic_defs, eqp->n_ic_defs, cs_xdef_t *); in cs_equation_add_ic_by_value() 1987 BFT_REALLOC(eqp->ic_defs, eqp->n_ic_defs, cs_xdef_t *); in cs_equation_add_ic_by_qov() 2039 BFT_REALLOC(eqp->ic_defs, eqp->n_ic_defs, cs_xdef_t *); in cs_equation_add_ic_by_analytic() 2065 BFT_REALLOC(eqp->bc_defs, eqp->n_bc_defs, cs_xdef_t *); in cs_equation_add_xdef_bc() 2120 BFT_REALLOC(eqp->bc_defs, eqp->n_bc_defs, cs_xdef_t *); in cs_equation_add_bc_by_value() 2510 eqp->bc_defs[j] = cs_xdef_free(eqp->bc_defs[j]); in cs_equation_remove_bc() 2512 eqp->bc_defs[i-1] = eqp->bc_defs[i]; in cs_equation_remove_bc() [all …]
|
H A D | cs_equation_param.h | 1141 assert(eqp != NULL); in cs_equation_param_set_flag() 1142 eqp->flag |= flag; in cs_equation_param_set_flag() 1158 assert(eqp != NULL); in cs_equation_param_has_diffusion() 1178 assert(eqp != NULL); in cs_equation_param_has_curlcurl() 1198 assert(eqp != NULL); in cs_equation_param_has_graddiv() 1218 assert(eqp != NULL); in cs_equation_param_has_convection() 1238 assert(eqp != NULL); in cs_equation_param_has_reaction() 1258 assert(eqp != NULL); in cs_equation_param_has_time() 1278 assert(eqp != NULL); in cs_equation_param_has_sourceterm() 1299 assert(eqp != NULL); in cs_equation_param_has_internal_enforcement() [all …]
|
H A D | cs_cdovb_scaleq.c | 269 eqp, in _svb_init_cell_system() 846 if (eqp->space_scheme != CS_SPACE_SCHEME_CDOVB && eqp->dim != 1) in cs_cdovb_scaleq_init_context() 1080 switch (eqp->adv_scheme) { in cs_cdovb_scaleq_init_context() 1111 switch (eqp->adv_scheme) { in cs_cdovb_scaleq_init_context() 1163 if (eqp->do_lumping) { in cs_cdovb_scaleq_init_context() 1196 if (eqp->do_lumping) { in cs_cdovb_scaleq_init_context() 1299 eqp->name); in cs_cdovb_scaleq_init_context() 1392 if (eqp->n_ic_defs > 0) { in cs_cdovb_scaleq_init_values() 2583 switch (eqp->time_scheme) { in cs_cdovb_scaleq_balance() 2596 p_theta[v] = eqp->theta*p_cur[v] + (1-eqp->theta)*p_prev[v]; in cs_cdovb_scaleq_balance() [all …]
|
H A D | cs_cdovb_vecteq.c | 204 eqp, in _vvb_setup() 270 eqp, in _vvb_init_cell_system() 375 if (cs_dbg_cw_test(eqp, cm, csys)) in _vvb_conv_diff_reac() 803 if (eqp->space_scheme != CS_SPACE_SCHEME_CDOVB || eqp->dim != 3) in cs_cdovb_vecteq_init_context() 963 if (eqp->do_lumping) { in cs_cdovb_vecteq_init_context() 996 if (eqp->do_lumping) { in cs_cdovb_vecteq_init_context() 1081 eqp->name); in cs_cdovb_vecteq_init_context() 1172 if (eqp->n_ic_defs > 0) { in cs_cdovb_vecteq_init_values() 1501 CS_UNUSED(eqp); in cs_cdovb_vecteq_update_field() 1614 CS_UNUSED(eqp); in cs_cdovb_vecteq_current_to_previous() [all …]
|
H A D | cs_cdofb_vecteq.c | 204 if (cs_dbg_cw_test(eqp, cm, csys)) in _vfb_apply_bc_partly() 261 if (cs_dbg_cw_test(eqp, cm, csys)) in _vfb_apply_remaining_bc() 406 eqp, in cs_cdofb_vecteq_init_cell_system() 482 if (cs_dbg_cw_test(eqp, cm, csys)) in cs_cdofb_vecteq_diffusion() 1667 if (eqp->space_scheme != CS_SPACE_SCHEME_CDOFB || eqp->dim != 3) in cs_cdofb_vecteq_init_context() 1845 if (eqp->do_lumping) in cs_cdofb_vecteq_init_context() 1885 if (eqp->verbosity > 1) { in cs_cdofb_vecteq_init_context() 1888 eqp->name); in cs_cdofb_vecteq_init_context() 1972 if (eqp->n_ic_defs > 0) { in cs_cdofb_vecteq_init_values() 2080 CS_UNUSED(eqp); in cs_cdofb_vecteq_current_to_previous() [all …]
|
H A D | cs_cdofb_scaleq.c | 243 eqp, in _sfb_init_cell_system() 834 if (eqp->space_scheme != CS_SPACE_SCHEME_CDOFB && eqp->dim != 1) in cs_cdofb_scaleq_init_context() 1007 if (eqp->do_lumping) in cs_cdofb_scaleq_init_context() 1036 if (eqp->verbosity > 1) { in cs_cdofb_scaleq_init_context() 1039 eqp->name); in cs_cdofb_scaleq_init_context() 1140 if (eqp->n_ic_defs > 0) { in cs_cdofb_scaleq_init_values() 2441 switch (eqp->time_scheme) { in cs_cdofb_scaleq_balance() 2553 switch (eqp->time_scheme) { in cs_cdofb_scaleq_balance() 2565 p_theta[i] = eqp->theta*p_cur[i] + (1-eqp->theta)*p_prev[i]; in cs_cdofb_scaleq_balance() 2858 CS_UNUSED(eqp); in cs_cdofb_scaleq_current_to_previous() [all …]
|
H A D | cs_cdo_advection.h | 71 (cs_cdofb_adv_open_hook_t)(const cs_equation_param_t *eqp, 116 (cs_cdofb_adv_build_t)(const cs_equation_param_t *eqp, 136 (cs_cdofb_adv_close_hook_t)(const cs_equation_param_t *eqp, 161 (cs_cdovb_advection_t)(const cs_equation_param_t *eqp, 183 const cs_equation_param_t *eqp, 374 cs_cdofb_advection(const cs_equation_param_t *eqp, 535 cs_cdo_advection_vb_upwcsv(const cs_equation_param_t *eqp, 559 cs_cdo_advection_vb_cencsv(const cs_equation_param_t *eqp, 697 cs_cdo_advection_vcb(const cs_equation_param_t *eqp, 718 const cs_equation_param_t *eqp, [all …]
|
H A D | cs_cdovcb_scaleq.c | 335 eqp, in _svcb_init_cell_system() 1006 if (eqp->space_scheme != CS_SPACE_SCHEME_CDOVCB && eqp->dim != 1) in cs_cdovcb_scaleq_init_context() 1111 switch (eqp->adv_scheme) { in cs_cdovcb_scaleq_init_context() 1115 _set_cip_coef(eqp); in cs_cdovcb_scaleq_init_context() 1126 _set_cip_coef(eqp); in cs_cdovcb_scaleq_init_context() 1156 if (eqp->do_lumping) { in cs_cdovcb_scaleq_init_context() 1189 if (eqp->do_lumping) { in cs_cdovcb_scaleq_init_context() 1269 eqp->name); in cs_cdovcb_scaleq_init_context() 1361 if (eqp->n_ic_defs > 0) { in cs_cdovcb_scaleq_init_values() 3572 CS_UNUSED(eqp); in cs_cdovcb_scaleq_current_to_previous() [all …]
|
H A D | cs_equation.c | 377 assert(eqp != NULL && eqp->name != NULL); in cs_equation_by_name() 565 if (eqp == NULL) in cs_equation_get_name() 568 return eqp->name; in cs_equation_get_name() 811 assert(eqp != NULL); in cs_equation_add_user_hook() 3040 assert(eqp != NULL); in cs_equation_integrate_variable() 3041 if (eqp->dim > 1) in cs_equation_integrate_variable() 3150 assert(eqp != NULL); in cs_equation_compute_boundary_diff_flux() 3151 if (eqp->dim > 1) in cs_equation_compute_boundary_diff_flux() 3249 if (eqp->dim > 1) in cs_equation_compute_flux_across_plane() 3307 assert(eqp != NULL); in cs_equation_compute_diff_flux_cellwise() [all …]
|
H A D | cs_cdofb_priv.c | 90 cs_cdofb_set_advection_function(const cs_equation_param_t *eqp, in cs_cdofb_set_advection_function() argument 98 assert(eqp != NULL); in cs_cdofb_set_advection_function() 109 if (cs_equation_param_has_convection(eqp) == false) in cs_cdofb_set_advection_function() 112 const cs_xdef_t *adv_def = eqp->adv_field->definition; in cs_cdofb_set_advection_function() 127 switch (eqp->adv_formulation) { in cs_cdofb_set_advection_function() 130 switch (eqp->adv_scheme) { in cs_cdofb_set_advection_function() 149 switch (eqp->adv_scheme) { in cs_cdofb_set_advection_function() 175 if (cs_equation_param_has_diffusion(eqp)) in cs_cdofb_set_advection_function() 183 cs_equation_param_has_implicit_advection(eqp)) in cs_cdofb_set_advection_function() 195 if (cs_equation_param_has_implicit_advection(eqp)) { in cs_cdofb_set_advection_function() [all …]
|
H A D | cs_cdoeb_vecteq.c | 177 eqp, in _eb_init_cell_system() 281 if (cs_dbg_cw_test(eqp, cm, csys)) in _eb_curlcurl() 324 if (cs_dbg_cw_test(eqp, cm, csys)) in _eb_enforce_values() 338 if (cs_dbg_cw_test(eqp, cm, csys)) in _eb_enforce_values() 616 assert(eqp != NULL && eqb != NULL); in cs_cdoeb_vecteq_init_context() 621 if (eqp->space_scheme != CS_SPACE_SCHEME_CDOEB || eqp->dim != 3) in cs_cdoeb_vecteq_init_context() 689 switch (eqp->default_enforcement) { in cs_cdoeb_vecteq_init_context() 722 if (eqp->do_lumping || in cs_cdoeb_vecteq_init_context() 819 if (eqp->n_ic_defs > 0) { in cs_cdoeb_vecteq_init_values() 1129 CS_UNUSED(eqp); in cs_cdoeb_vecteq_current_to_previous() [all …]
|
H A D | cs_cdo_diffusion.h | 92 cs_cdo_diffusion_pena_dirichlet(const cs_equation_param_t *eqp, 150 cs_cdo_diffusion_alge_dirichlet(const cs_equation_param_t *eqp, 209 cs_cdo_diffusion_sfb_weak_dirichlet(const cs_equation_param_t *eqp, 236 cs_cdo_diffusion_vfb_weak_dirichlet(const cs_equation_param_t *eqp, 261 cs_cdo_diffusion_sfb_wsym_dirichlet(const cs_equation_param_t *eqp, 313 cs_cdo_diffusion_vfb_wsym_sliding(const cs_equation_param_t *eqp, 337 cs_cdo_diffusion_sfb_cost_robin(const cs_equation_param_t *eqp, 361 cs_cdo_diffusion_svb_cost_robin(const cs_equation_param_t *eqp, 387 cs_cdo_diffusion_svb_cost_generic(const cs_equation_param_t *eqp, 463 cs_cdo_diffusion_vvb_ocs_sliding(const cs_equation_param_t *eqp, [all …]
|
H A D | cs_cdo_field_interpolation.c | 124 cs_equation_param_t *eqp in cs_cdo_field_interpolation_activate() local 128 cs_equation_param_set(eqp, CS_EQKEY_PRECOND, "amg"); in cs_cdo_field_interpolation_activate() 129 cs_equation_param_set(eqp, CS_EQKEY_AMG_TYPE, "k_cycle"); in cs_cdo_field_interpolation_activate() 130 cs_equation_param_set(eqp, CS_EQKEY_ITSOL, "cg"); in cs_cdo_field_interpolation_activate() 131 cs_equation_param_set(eqp, CS_EQKEY_ITSOL_EPS, "1e-4"); in cs_cdo_field_interpolation_activate() 134 cs_equation_add_diffusion(eqp, pty); in cs_cdo_field_interpolation_activate() 148 cs_equation_param_t *eqp in cs_cdo_field_interpolation_activate() local 152 cs_equation_param_set(eqp, CS_EQKEY_PRECOND, "amg"); in cs_cdo_field_interpolation_activate() 154 cs_equation_param_set(eqp, CS_EQKEY_ITSOL, "cg"); in cs_cdo_field_interpolation_activate() 155 cs_equation_param_set(eqp, CS_EQKEY_ITSOL_EPS, "1e-4"); in cs_cdo_field_interpolation_activate() [all …]
|
H A D | cs_equation_bc.c | 306 switch (eqp->dim) { in cs_equation_init_boundary_flux_from_bc() 389 const int d = eqp->dim; in cs_equation_vb_set_cell_bc() 484 CS_UNUSED(eqp); in cs_equation_eb_set_cell_bc() 555 const int d = eqp->dim; in cs_equation_fb_set_cell_bc() 749 if (eqp->dim == 1) { in cs_equation_compute_dirichlet_vb() 775 memset(bcvals + eqp->dim*v_id, 0, eqp->dim*sizeof(cs_real_t)); in cs_equation_compute_dirichlet_vb() 798 eqp->dim*quant->n_vertices, bcvals, 6*eqp->dim); in cs_equation_compute_dirichlet_vb() 1213 assert(eqp->dim == 1 || eqp->dim == 3); in cs_equation_compute_neumann_fb() 1227 if (eqp->dim == 1) in cs_equation_compute_neumann_fb() 1236 if (eqp->dim == 1) in cs_equation_compute_neumann_fb() [all …]
|
H A D | cs_cdovb_scaleq.h | 126 cs_cdovb_scaleq_init_context(const cs_equation_param_t *eqp, 163 const cs_equation_param_t *eqp, 186 const cs_equation_param_t *eqp, 210 const cs_equation_param_t *eqp, 234 const cs_equation_param_t *eqp, 290 cs_cdovb_scaleq_balance(const cs_equation_param_t *eqp, 313 const cs_equation_param_t *eqp, 338 const cs_equation_param_t *eqp, 362 const cs_equation_param_t *eqp, 385 const cs_equation_param_t *eqp, [all …]
|
H A D | cs_cdovcb_scaleq.h | 126 cs_cdovcb_scaleq_init_context(const cs_equation_param_t *eqp, 163 const cs_equation_param_t *eqp, 187 const cs_equation_param_t *eqp, 210 const cs_equation_param_t *eqp, 234 const cs_equation_param_t *eqp, 258 const cs_equation_param_t *eqp, 320 const cs_equation_param_t *eqp, 346 const cs_equation_param_t *eqp, 369 const cs_equation_param_t *eqp, 391 const cs_equation_param_t *eqp, [all …]
|
H A D | cs_equation_bc.h | 69 const cs_equation_param_t *eqp, 89 (cs_cdo_enforce_bc_t)(const cs_equation_param_t *eqp, 137 const cs_equation_param_t *eqp, 161 const cs_equation_param_t *eqp, 183 const cs_equation_param_t *eqp, 211 const cs_equation_param_t *eqp, 237 const cs_equation_param_t *eqp, 295 const cs_equation_param_t *eqp, 317 const cs_equation_param_t *eqp, 338 const cs_equation_param_t *eqp, [all …]
|
H A D | cs_cdofb_vecteq.h | 156 cs_cdofb_vecteq_init_context(const cs_equation_param_t *eqp, 193 const cs_equation_param_t *eqp, 244 const cs_equation_param_t *eqp, 263 cs_cdofb_vecteq_diffusion(const cs_equation_param_t *eqp, 290 cs_cdofb_vecteq_conv_diff_reac(const cs_equation_param_t *eqp, 319 const cs_equation_param_t *eqp, in cs_cdofb_vecteq_sourceterm() argument 331 cs_source_term_compute_cellwise(eqp->n_source_terms, in cs_cdofb_vecteq_sourceterm() 332 (cs_xdef_t *const *)eqp->source_terms, in cs_cdofb_vecteq_sourceterm() 435 const cs_equation_param_t *eqp, 458 const cs_equation_param_t *eqp, [all …]
|
H A D | cs_cdofb_scaleq.h | 154 cs_cdofb_scaleq_init_context(const cs_equation_param_t *eqp, 191 const cs_equation_param_t *eqp, 215 const cs_equation_param_t *eqp, 238 const cs_equation_param_t *eqp, 262 const cs_equation_param_t *eqp, 286 const cs_equation_param_t *eqp, 305 cs_cdofb_scaleq_balance(const cs_equation_param_t *eqp, 326 const cs_equation_param_t *eqp, 345 cs_cdofb_scaleq_current_to_previous(const cs_equation_param_t *eqp, 360 cs_cdofb_scaleq_extra_post(const cs_equation_param_t *eqp,
|
/dports/science/code_saturne/code_saturne-7.1.0/src/user_examples/ |
H A D | cs_user_parameters-cdo-condif.c | 382 cs_equation_param_set(eqp, CS_EQKEY_VERBOSITY, "2"); in cs_user_parameters() 389 cs_equation_param_set(eqp, CS_EQKEY_ITSOL, "cg"); in cs_user_parameters() 390 cs_equation_param_set(eqp, CS_EQKEY_PRECOND, "amg"); in cs_user_parameters() 394 cs_equation_param_set(eqp, CS_EQKEY_ITSOL, "cg"); in cs_user_parameters() 420 cs_equation_param_t *eqp = cs_equation_get_param(eq); in cs_user_linear_solvers() local 540 cs_equation_add_bc_by_analytic(eqp, in cs_user_finalize_setup() 557 cs_equation_add_time(eqp, rhocp); in cs_user_finalize_setup() 560 cs_equation_add_diffusion(eqp, conductivity); in cs_user_finalize_setup() 563 cs_equation_add_advection(eqp, adv); in cs_user_finalize_setup() 585 cs_equation_param_t *eqp = cs_equation_get_param(eq); in cs_user_finalize_setup() local [all …]
|
H A D | cs_user_parameters-base.c | 745 eqp->verbosity = 2; in cs_user_parameters() 788 eqp->blencv = 1.; in cs_user_parameters() 804 eqp->epsilo = 1.e-6; in cs_user_parameters() 819 eqp->iswdyn = 2; in cs_user_parameters() 829 cs_equation_param_t *eqp; in cs_user_parameters() local 832 eqp->ircflu = 0; in cs_user_parameters() 835 eqp->ircflu = 0; in cs_user_parameters() 859 cs_equation_param_t *eqp; in cs_user_parameters() local 862 eqp->ischcv = 1; in cs_user_parameters() 863 eqp->isstpc = 0; in cs_user_parameters() [all …]
|
/dports/science/code_saturne/code_saturne-7.1.0/src/base/ |
H A D | cs_parameters.c | 628 eqp->iconv = vcopt->iconv; in _var_cal_opt_to_equation_params() 629 eqp->istat = vcopt->istat; in _var_cal_opt_to_equation_params() 630 eqp->idircl = vcopt->idircl; in _var_cal_opt_to_equation_params() 631 eqp->ndircl = vcopt->ndircl; in _var_cal_opt_to_equation_params() 632 eqp->idiff = vcopt->idiff; in _var_cal_opt_to_equation_params() 744 vcopt->iconv = eqp->iconv; in cs_f_field_get_key_struct_var_cal_opt() 745 vcopt->istat = eqp->istat; in cs_f_field_get_key_struct_var_cal_opt() 748 vcopt->idiff = eqp->idiff; in cs_f_field_get_key_struct_var_cal_opt() 794 cs_equation_param_t *eqp in cs_f_field_set_key_struct_var_cal_opt() local 827 return &eqp; in cs_f_equation_param_from_var_cal_opt() [all …]
|
H A D | cs_field_operator.c | 571 if (eqp != NULL) in cs_field_gradient_scalar() 572 imrgra = eqp->imrgra; in cs_field_gradient_scalar() 574 eqp = &eqp_default; in cs_field_gradient_scalar() 689 if (eqp != NULL) in cs_field_gradient_potential() 690 imrgra = eqp->imrgra; in cs_field_gradient_potential() 692 eqp = &eqp_default; in cs_field_gradient_potential() 787 if (eqp != NULL) in cs_field_gradient_vector() 788 imrgra = eqp->imrgra; in cs_field_gradient_vector() 790 eqp = &eqp_default; in cs_field_gradient_vector() 886 if (eqp != NULL) in cs_field_gradient_tensor() [all …]
|
/dports/lang/ocaml/ocaml-4.05.0/testsuite/tests/typing-gadts/ |
H A D | pr6993_bad.ml | 1 type (_, _) eqp = Y : ('a, 'a) eqp | N : string -> ('a, 'b) eqp type 2 let f : ('a list, 'a) eqp -> unit = function N s -> print_string s;; 6 and B : sig type t val eq : (B.t list, t) eqp end = 15 type (_, _) eqp = Y : ('a, 'a) eqp | N : string -> ('a, 'b) eqp type 20 val f : ('a list, 'a) eqp -> unit = <fun> 22 and B : sig type t val eq : (B.t list, t) eqp end
|
/dports/lang/ocaml-nox11/ocaml-4.05.0/testsuite/tests/typing-gadts/ |
H A D | pr6993_bad.ml | 1 type (_, _) eqp = Y : ('a, 'a) eqp | N : string -> ('a, 'b) eqp type 2 let f : ('a list, 'a) eqp -> unit = function N s -> print_string s;; 6 and B : sig type t val eq : (B.t list, t) eqp end = 15 type (_, _) eqp = Y : ('a, 'a) eqp | N : string -> ('a, 'b) eqp type 20 val f : ('a list, 'a) eqp -> unit = <fun> 22 and B : sig type t val eq : (B.t list, t) eqp end
|