/dports/science/code_saturne/code_saturne-7.1.0/src/cdo/ |
H A D | cs_equation_bc.c | 148 csys->bf_ids[f] = bf_id; in _init_cell_sys_bc() 966 for (cs_lnum_t bf_id = 0; bf_id < quant->n_b_faces; bf_id++) in cs_equation_compute_dirichlet_fb() local 1007 for (cs_lnum_t bf_id = 0; bf_id < n_b_faces; bf_id++) { in cs_equation_set_vertex_bc_flag() local 1010 for (cs_lnum_t j = bf2v->idx[bf_id]; j < bf2v->idx[bf_id+1]; j++) { in cs_equation_set_vertex_bc_flag() 1017 for (cs_lnum_t bf_id = 0; bf_id < n_b_faces; bf_id++) { in cs_equation_set_vertex_bc_flag() local 1018 for (cs_lnum_t j = bf2v->idx[bf_id]; j < bf2v->idx[bf_id+1]; j++) { in cs_equation_set_vertex_bc_flag() 1067 f_id++, bf_id++) { in cs_equation_set_edge_bc_flag() 1077 for (cs_lnum_t bf_id = n_i_faces; bf_id < n_faces; bf_id++) { in cs_equation_set_edge_bc_flag() local 1078 for (cs_lnum_t j = f2e->idx[bf_id]; j < f2e->idx[bf_id+1]; j++) { in cs_equation_set_edge_bc_flag() 1155 assert(bf_id > -1); in cs_equation_compute_neumann_sv() [all …]
|
H A D | cs_gwf_priv.c | 484 const cs_lnum_t bf_id = z->elt_ids[i]; in cs_gwf_darcy_flux_balance() local 485 is_counted[bf_id] = true; in cs_gwf_darcy_flux_balance() 486 for (cs_lnum_t j = bf2v->idx[bf_id]; j < bf2v->idx[bf_id+1]; j++) in cs_gwf_darcy_flux_balance() 494 const cs_lnum_t bf_id = z->elt_ids[i]; in cs_gwf_darcy_flux_balance() local 495 is_counted[bf_id] = true; in cs_gwf_darcy_flux_balance() 496 balances[ibc] += flux_val[bf_id]; in cs_gwf_darcy_flux_balance() 508 for (cs_lnum_t bf_id = 0; bf_id < n_b_faces; bf_id++) { in cs_gwf_darcy_flux_balance() local 509 if (is_counted[bf_id] == false) { in cs_gwf_darcy_flux_balance() 514 for (cs_lnum_t j = bf2v->idx[bf_id]; j < bf2v->idx[bf_id+1]; j++) in cs_gwf_darcy_flux_balance() 519 balances[eqp->n_bc_defs] += flux_val[bf_id]; in cs_gwf_darcy_flux_balance()
|
H A D | cs_advection_field.c | 2083 for (cs_lnum_t bf_id = 0; bf_id < n_b_faces; bf_id++) { in cs_advection_field_across_boundary() local 2086 for (cs_lnum_t i = ac->index[bf_id]; i < ac->index[bf_id+1]; in cs_advection_field_across_boundary() 2171 assert(bf_id > -1); in cs_advection_field_cw_boundary_face_flux() 2339 for (cs_lnum_t i = bf2v->idx[bf_id]; i < bf2v->idx[bf_id+1]; i++) in cs_advection_field_cw_boundary_face_flux() 2425 assert(bf_id > -1); in cs_advection_field_cw_boundary_f2v_flux() 2485 for (cs_lnum_t i = bf2v->idx[bf_id]; i < bf2v->idx[bf_id+1]; i++) { in cs_advection_field_cw_boundary_f2v_flux() 3401 for (cs_lnum_t bf_id = 0; bf_id < cdoq->n_b_faces; bf_id++) in cs_advection_field_divergence_at_vertices() local 3402 _fill_uniform_boundary_flux(cdoq, f2e, e2v, bf_id, val[bf_id], in cs_advection_field_divergence_at_vertices() 3412 for (cs_lnum_t bf_id = 0; bf_id < cdoq->n_b_faces; bf_id++) { in cs_advection_field_divergence_at_vertices() local 3413 for (cs_lnum_t i = idx[bf_id]; i < idx[bf_id+1]; i++) { in cs_advection_field_divergence_at_vertices() [all …]
|
H A D | cs_cdo_bc.c | 214 const cs_lnum_t bf_id = z->elt_ids[i]; in cs_cdo_bc_face_define() local 216 assert(bc->flag[bf_id] < 1); /* Not already set */ in cs_cdo_bc_face_define() 217 assert(bc->def_ids[bf_id] == CS_CDO_BC_DEFAULT_DEF); /* Not already set */ in cs_cdo_bc_face_define() 218 bc->flag[bf_id] = d->meta; in cs_cdo_bc_face_define() 219 bc->def_ids[bf_id] = ii; /* definition id */ in cs_cdo_bc_face_define()
|
H A D | cs_cdo_quantities.c | 692 const cs_lnum_t bf_id = f_id - quant->n_i_faces; in _compute_dcell_quantities() local 695 if (bf_id > -1) in _compute_dcell_quantities() 696 xf = quant->b_face_center + 3*bf_id; in _compute_dcell_quantities() 1502 const cs_real_t *xf = cdoq->b_face_center + 3*bf_id; in cs_cdo_quantities_compute_b_tef() 1503 const cs_lnum_t *idx = connect->bf2v->idx + bf_id; in cs_cdo_quantities_compute_b_tef() 1593 const cs_real_t *xf = cdoq->b_face_center + 3*bf_id; in cs_cdo_quantities_compute_b_wvf() 1594 const cs_lnum_t *idx = connect->bf2v->idx + bf_id; in cs_cdo_quantities_compute_b_wvf() 1616 const cs_real_t coef = 0.5/cdoq->b_face_surf[bf_id]; in cs_cdo_quantities_compute_b_wvf() 1655 const cs_lnum_t bf_id = f_id - cdoq->n_i_faces; in cs_quant_set_face() local 1657 q.meas = cdoq->b_face_surf[bf_id]; in cs_quant_set_face() [all …]
|
H A D | cs_cdo_connect.c | 646 for (cs_lnum_t bf_id = 0; bf_id < n_b_faces; bf_id++) { in _build_cell_flag() local 647 for (cs_lnum_t j = bf2v->idx[bf_id]; j < bf2v->idx[bf_id+1]; j++) { in _build_cell_flag() 684 for (cs_lnum_t bf_id = n_i_faces; bf_id < n_i_faces + n_b_faces; bf_id++) { in _build_cell_flag() local 685 for (cs_lnum_t j = f2e->idx[bf_id]; j < f2e->idx[bf_id+1]; j++) { in _build_cell_flag()
|
H A D | cs_cdo_quantities.h | 439 cs_lnum_t bf_id, 479 cs_lnum_t bf_id,
|
H A D | cs_cdovb_scaleq.c | 2712 if (bf_id > -1) { /* Border face */ in cs_cdovb_scaleq_balance() 2726 eb->boundary_term[bf_id] += adv_flux; in cs_cdovb_scaleq_balance() 2744 eb->boundary_term[bf_id] += cb->values[v]; in cs_cdovb_scaleq_balance() 2888 for (cs_lnum_t bf_id = 0; bf_id < quant->n_b_faces; bf_id++) { in cs_cdovb_scaleq_boundary_diff_flux() local 2890 const cs_lnum_t f_id = bf_id + quant->n_i_faces; in cs_cdovb_scaleq_boundary_diff_flux() 2891 const cs_lnum_t c_id = f2c->ids[bf_id + fidx_shift]; in cs_cdovb_scaleq_boundary_diff_flux() 2892 const cs_lnum_t *idx = bf2v->idx + bf_id; in cs_cdovb_scaleq_boundary_diff_flux() 2896 switch (face_bc->flag[bf_id]) { in cs_cdovb_scaleq_boundary_diff_flux() 2941 face_bc->def_ids[bf_id], in cs_cdovb_scaleq_boundary_diff_flux() 3077 const cs_lnum_t f_id = n_i_faces + bf_id; in cs_cdovb_scaleq_flux_across_plane() [all …]
|
H A D | cs_xdef_eval.c | 1356 for (cs_lnum_t bf_id = 0; bf_id < quant->n_b_faces; bf_id++) { in cs_xdef_eval_avg_at_b_faces_by_analytic() local 1358 const cs_lnum_t f_id = quant->n_i_faces + bf_id; in cs_xdef_eval_avg_at_b_faces_by_analytic() 1361 double *val_i = eval + dim*bf_id; in cs_xdef_eval_avg_at_b_faces_by_analytic() 1406 const cs_lnum_t bf_id = elt_ids[i]; in cs_xdef_eval_avg_at_b_faces_by_analytic() local 1407 const cs_lnum_t f_id = quant->n_i_faces + bf_id; in cs_xdef_eval_avg_at_b_faces_by_analytic() 1411 double *val_i = dense_output ? eval + dim*i : eval + dim*bf_id; in cs_xdef_eval_avg_at_b_faces_by_analytic()
|
H A D | cs_cdovcb_scaleq.c | 2817 for (cs_lnum_t bf_id = 0; bf_id < quant->n_b_faces; bf_id++) { in cs_cdovcb_scaleq_boundary_diff_flux() local 2819 const cs_lnum_t f_id = bf_id + quant->n_i_faces; in cs_cdovcb_scaleq_boundary_diff_flux() 2820 const cs_lnum_t c_id = f2c->ids[bf_id + fidx_shift]; in cs_cdovcb_scaleq_boundary_diff_flux() 2821 const cs_lnum_t *idx = bf2v->idx + bf_id; in cs_cdovcb_scaleq_boundary_diff_flux() 2825 switch (face_bc->flag[bf_id]) { in cs_cdovcb_scaleq_boundary_diff_flux() 2842 face_bc->def_ids[bf_id], in cs_cdovcb_scaleq_boundary_diff_flux() 2865 const cs_real_t f_area = quant->b_face_surf[bf_id]; in cs_cdovcb_scaleq_boundary_diff_flux() 2870 face_bc->def_ids[bf_id], in cs_cdovcb_scaleq_boundary_diff_flux() 3016 const cs_lnum_t bf_id = elt_ids[id]; in cs_cdovcb_scaleq_flux_across_plane() local 3017 const cs_lnum_t f_id = n_i_faces + bf_id; in cs_cdovcb_scaleq_flux_across_plane() [all …]
|
H A D | cs_cdofb_scaleq.c | 2767 for (cs_lnum_t bf_id = 0; bf_id < quant->n_b_faces; bf_id++) { in cs_cdofb_scaleq_boundary_diff_flux() local 2769 const cs_lnum_t f_id = bf_id + quant->n_i_faces; in cs_cdofb_scaleq_boundary_diff_flux() 2770 const cs_lnum_t c_id = f2c->ids[bf_id + fidx_shift]; in cs_cdofb_scaleq_boundary_diff_flux() 2772 switch (face_bc->flag[bf_id]) { in cs_cdofb_scaleq_boundary_diff_flux() 2775 bflux[bf_id] = 0.; in cs_cdofb_scaleq_boundary_diff_flux() 2789 face_bc->def_ids[bf_id], in cs_cdofb_scaleq_boundary_diff_flux() 2795 bflux[bf_id] = neu_values[f]; in cs_cdofb_scaleq_boundary_diff_flux() 2826 cb, bflux + bf_id); in cs_cdofb_scaleq_boundary_diff_flux()
|
H A D | cs_cdofb_navsto.c | 365 const cs_lnum_t bf_id = cm->f_ids[f] - cm->bface_shift; in cs_cdofb_navsto_define_builder() local 369 nsb->bf_type[i] = bf_type[bf_id]; in cs_cdofb_navsto_define_builder() 379 const short int def_id = pr_bc->def_ids[bf_id]; in cs_cdofb_navsto_define_builder() 396 nsb->pressure_bc_val[i] = c->values[bf_id]; in cs_cdofb_navsto_define_builder() 1014 const cs_lnum_t bf_id = z->elt_ids[i]; in cs_cdofb_navsto_extra_op() local 1015 belong_to_default[bf_id] = false; in cs_cdofb_navsto_extra_op() 1016 boundary_fluxes[b_id] += bmass_flux[bf_id]; in cs_cdofb_navsto_extra_op()
|
/dports/science/elmerfem/elmerfem-release-9.0/elmerice/UserFunctions/ |
H A D | Buoyancy.F90 | 70 INTEGER :: Nn, i, j, p, n, Nmax, bf_id, DIM, bf_id_FS local 144 DO bf_id=1,Model % NumberOFBodyForces 145 IF( ListCheckPresent( Model % BodyForces(bf_id) % Values, & 146 TRIM(BottomSurfaceName)//' Accumulation') ) bf_id_FS = bf_id 157 bf_id = ListGetInteger( Model % Bodies(1) % Values,& 163 gravity = -GetConstReal( Model % BodyForces(bf_id) % Values, 'Flow BodyForce 2',Gotit) 166 gravity = -GetConstReal( Model % BodyForces(bf_id) % Values, 'Flow BodyForce 3',Gotit) 381 INTEGER :: Nn, i, j, p, n, Nmax, bf_id, DIM, OldMeshTag local 456 bf_id = ListGetInteger( Model % Bodies(1) % Values,& 461 gravity = -GetConstReal( Model % BodyForces(bf_id) % Values, 'Flow BodyForce 2',Gotit) [all …]
|
H A D | USF_WaterTransfer.F90 | 68 INTEGER :: material_id, bf_id local 194 bf_id = GetBodyForceId() 196 g(1,1:N) = GetConstReal( Model % BodyForces(bf_id) % Values, 'Flow BodyForce 1',Found) 197 g(2,1:N) = GetConstReal( Model % BodyForces(bf_id) % Values, 'Flow BodyForce 2',Found) 198 g(3,1:N) = GetConstReal( Model % BodyForces(bf_id) % Values, 'Flow BodyForce 3',Found)
|
/dports/science/elmerfem/elmerfem-release-9.0/fem/src/modules/ |
H A D | StatMagSolve.F90 | 83 INTEGER :: body_id, eq_id, bf_id, LocalNodes, NonlinearIter local 291 bf_id = ListGetInteger( Model % Bodies(body_id) % Values, & 296 IF ( bf_id > 0 ) THEN 298 Model % BodyForces(bf_id) % Values,'Current Density',n,NodeIndexes,GotIt ) 304 IF(bf_id > 0) THEN 306 Model % BodyForces(bf_id) % Values,'Current Phase Angle',n,NodeIndexes,GotIt ) 315 IF ( bf_id > 0 ) THEN 317 Model % BodyForces(bf_id) % Values, & 321 Model % BodyForces(bf_id) % Values, & 325 Model % BodyForces(bf_id) % Values, &
|
H A D | HeatSolve.F90 | 428 bf_id = 0 433 bf_id = i 672 bf_id = GetBodyForceId() 674 IF( .NOT. (SmartHeaters(bf_id) .OR. IntegralHeaters(bf_id) ) ) CYCLE 688 HeaterSource(bf_id) = HeaterSource(bf_id) + s * SUM(Density(1:n) * Load(1:n)) / n 689 HeaterArea(bf_id) = HeaterArea(bf_id) + s 690 HeaterDensity(bf_id) = HeaterDensity(bf_id) + s * SUM( Density(1:n) ) / n 929 bf_id = GetBodyForceId() 945 IF( SmartHeaters(bf_id) ) THEN 949 HeaterScaling(bf_id) = PrevPowerScaling [all …]
|
H A D | PoissonBoltzmannSolve.F90 | 92 INTEGER :: i, j, k, n, t, istat, bf_id, DIM local 334 bf_id = ListGetInteger( Model % Bodies(CurrentElement % BodyId) % & 338 Load(1:n) = ListGetReal( Model % BodyForces(bf_id) % Values, & 784 bf_id = ListGetInteger( Model % Bodies(CurrentElement % BodyId) % & 788 Load(1:n) = ListGetReal( Model % BodyForces(bf_id) % Values, &
|
H A D | RigidMeshMapper.F90 | 66 INTEGER :: i,j,k,n,m,t,dim,elem,bf_id,istat,node,nodei,RotateOrder(3) local 299 bf_id = ListGetInteger( Model % Bodies(Element % BodyId) % Values,'Body Force',Found ) 302 BodyForce => Model % BodyForces(bf_id) % Values
|
/dports/science/elmerfem/elmerfem-release-9.0/elmerice/Solvers/ |
H A D | EPLSolver.F90 | 115 body_id, material_id, bf_id, bc_id local 488 bf_id = GetBodyForceId() 490 g(1,1:N) = GetConstReal( Model % BodyForces(bf_id) % Values, 'Flow BodyForce 1',Found) 491 g(2,1:N) = GetConstReal( Model % BodyForces(bf_id) % Values, 'Flow BodyForce 2',Found) 492 g(3,1:N) = GetConstReal( Model % BodyForces(bf_id) % Values, 'Flow BodyForce 3',Found) 522 bf_id = GetBodyForceId()
|
H A D | IDSSolver.F90 | 115 body_id, material_id, bf_id, bc_id, ierr local 491 bf_id = GetBodyForceId() 493 g(1,1:N) = GetConstReal( Model % BodyForces(bf_id) % Values, 'Flow BodyForce 1',Found) 494 g(2,1:N) = GetConstReal( Model % BodyForces(bf_id) % Values, 'Flow BodyForce 2',Found) 495 g(3,1:N) = GetConstReal( Model % BodyForces(bf_id) % Values, 'Flow BodyForce 3',Found) 514 bf_id = GetBodyForceId()
|
H A D | EnthalpySolver.F90 | 405 bf_id = 0 410 bf_id = i 701 bf_id = GetBodyForceId() 703 IF( .NOT. (SmartHeaters(bf_id) .OR. IntegralHeaters(bf_id) ) ) CYCLE 717 HeaterSource(bf_id) = HeaterSource(bf_id) + s * SUM(Density(1:n) * Load(1:n)) / n 718 HeaterArea(bf_id) = HeaterArea(bf_id) + s 719 HeaterDensity(bf_id) = HeaterDensity(bf_id) + s * SUM( Density(1:n) ) / n 988 bf_id = GetBodyForceId() 1001 IF( SmartHeaters(bf_id) ) THEN 1005 HeaterScaling(bf_id) = PrevPowerScaling [all …]
|
/dports/science/code_saturne/code_saturne-7.1.0/src/base/ |
H A D | cs_interpolate.c | 272 int bf_id = cs_field_get_key_int(f, kbf); in cs_interpolate_from_location_p1() local 273 if (bf_id > -1) { in cs_interpolate_from_location_p1() 274 const cs_field_t *bf = cs_field_by_id(bf_id); in cs_interpolate_from_location_p1()
|
/dports/science/elmerfem/elmerfem-release-9.0/elmerice/Solvers/MeshAdaptation_2D/ |
H A D | MMG2D_MetricAniso.F90 | 120 INTEGER :: k,node,bf_id local 266 DO bf_id=1,CurrentModel % NumberOfBodyForces 267 BodyForce => CurrentModel % BodyForces(bf_id) % Values 272 if (bf_id.GT.CurrentModel % NumberOfBodyForces) &
|
/dports/security/silktools/silk-3.19.1/src/rwstats/ |
H A D | rwstatssetup.c | 89 sk_fieldid_t bf_id; member 2502 if (SK_FIELD_CALLER != bf->bf_id) { in parseValueFields() 2592 switch (bf->bf_id) { in parseValueFieldsAndThresholds() 2594 bf->bf_id = SK_FIELD_SIPv6; in parseValueFieldsAndThresholds() 2597 bf->bf_id = SK_FIELD_DIPv6; in parseValueFieldsAndThresholds() 2607 switch (bf->bf_id) { in parseValueFieldsAndThresholds() 2619 switch (bf->bf_id) { in parseValueFieldsAndThresholds() 2621 bf->bf_id = SK_FIELD_MIN_STARTTIME_MSEC; in parseValueFieldsAndThresholds() 2625 bf->bf_id = SK_FIELD_MAX_ENDTIME_MSEC; in parseValueFieldsAndThresholds() 2647 if (SK_FIELD_RECORDS == bf->bf_id) { in parseValueFieldsAndThresholds() [all …]
|
/dports/science/elmerfem/elmerfem-release-9.0/fem/src/modules/LevelSet/ |
H A D | LevelSetSolver.F90 | 59 INTEGER :: i,j,k,n,t,iter,istat,bf_id,CoordinateSystem local 197 bf_id = ListGetInteger( Model % Bodies(CurrentElement % BodyId) % & 200 SurfaceFlux(1:n) = ListGetReal( Model % BodyForces(bf_id) % Values, &
|