OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
h3d_solid_scalar.F
Go to the documentation of this file.
1Copyright> OpenRadioss
2Copyright> Copyright (C) 1986-2025 Altair Engineering Inc.
3Copyright>
4Copyright> This program is free software: you can redistribute it and/or modify
5Copyright> it under the terms of the GNU Affero General Public License as published by
6Copyright> the Free Software Foundation, either version 3 of the License, or
7Copyright> (at your option) any later version.
8Copyright>
9Copyright> This program is distributed in the hope that it will be useful,
10Copyright> but WITHOUT ANY WARRANTY; without even the implied warranty of
11Copyright> MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
12Copyright> GNU Affero General Public License for more details.
13Copyright>
14Copyright> You should have received a copy of the GNU Affero General Public License
15Copyright> along with this program. If not, see <https://www.gnu.org/licenses/>.
16Copyright>
17Copyright>
18Copyright> Commercial Alternative: Altair Radioss Software
19Copyright>
20Copyright> As an alternative to this open-source version, Altair also offers Altair Radioss
21Copyright> software under a commercial license. Contact Altair to discuss further if the
22Copyright> commercial version may interest you: https://www.altair.com/radioss/.
23!||====================================================================
24!|| h3d_solid_scalar ../engine/source/output/h3d/h3d_results/h3d_solid_scalar.F
25!||--- called by ------------------------------------------------------
26!|| genh3d ../engine/source/output/h3d/h3d_results/genh3d.f
27!||--- calls -----------------------------------------------------
28!|| h3d_solid_scalar_1 ../engine/source/output/h3d/h3d_results/h3d_solid_scalar_1.F
29!|| schlieren_buffer_gathering ../engine/source/output/anim/generate/schlieren_buffer_gathering.F
30!||--- uses -----------------------------------------------------
31!|| ale_connectivity_mod ../common_source/modules/ale/ale_connectivity_mod.F
32!|| aleanim_mod ../common_source/modules/aleanim_mod.F
33!|| elbufdef_mod ../common_source/modules/mat_elem/elbufdef_mod.F90
34!|| element_mod ../common_source/modules/elements/element_mod.F90
35!|| h3d_mod ../engine/share/modules/h3d_mod.f
36!|| initbuf_mod ../engine/share/resol/initbuf.F
37!|| matparam_def_mod ../common_source/modules/mat_elem/matparam_def_mod.F90
38!|| multi_fvm_mod ../common_source/modules/ale/multi_fvm_mod.F90
39!|| names_and_titles_mod ../common_source/modules/names_and_titles_mod.F
40!|| schlieren_mod ../engine/share/modules/schlieren_mod.F
41!||====================================================================
42 SUBROUTINE h3d_solid_scalar(
43 . ELBUF_TAB ,SOLID_SCALAR ,IPARG ,
44 . IXS ,PM ,BUFMAT ,
45 . EHOUR ,
46 . IPM ,
47 . X ,V ,W ,ALE_CONNECT,
48 . NERCVOIS,NESDVOIS, LERCVOIS,LESDVOIS,
49 . ID_ELEM ,ITY_ELEM ,IPARTS ,LAYER_INPUT ,
50 . IR_INPUT ,IS_INPUT ,IT_INPUT ,IUVAR_INPUT ,H3D_PART ,
51 . IS_WRITTEN_SOLID,INFO1 ,KEYWORD ,ITHERM ,FANI_CELL ,
52 . MULTI_FVM , IDMDS ,IMDSVAR ,
53 . ID ,MAT_PARAM ,MODE )
54C-----------------------------------------------
55C M o d u l e s
56C-----------------------------------------------
57 USE initbuf_mod
58 USE elbufdef_mod
59 USE schlieren_mod
60 USE h3d_mod
61 USE multi_fvm_mod
62 USE ale_connectivity_mod
63 USE aleanim_mod , ONLY : fani_cell_
64 USE names_and_titles_mod, ONLY: ncharline100
65 USE matparam_def_mod
66 use element_mod , only : nixs
67C-----------------------------------------------
68C I m p l i c i t T y p e s
69C-----------------------------------------------
70#include "implicit_f.inc"
71C-----------------------------------------------
72C C o m m o n B l o c k s
73C-----------------------------------------------
74#include "mvsiz_p.inc"
75#include "com01_c.inc"
76#include "com04_c.inc"
77#include "param_c.inc"
78C-----------------------------------------------
79C D u m m y A r g u m e n t s
80C-----------------------------------------------
81 my_real
82 . solid_scalar(*),x(3,*),v(3,*),w(3,*),ehour(*),
83 . pm(npropm,*)
84 my_real, INTENT(IN),TARGET :: bufmat(*)
85 INTEGER, INTENT(IN) :: ITHERM
86 INTEGER IPARG(NPARG,*),IXS(NIXS,*),
87 . IPM(NPROPMI,*),
88 . ID_ELEM(*),ITY_ELEM(*),IPARTS(*),ID,
89 . H3D_PART(*),IS_WRITTEN_SOLID(*),INFO1,LAYER_INPUT,IR_INPUT,IS_INPUT,IT_INPUT,
90 . IUVAR_INPUT,IDMDS,IMDSVAR,NERCVOIS(*),NESDVOIS(*),
91 . LERCVOIS(*),LESDVOIS(*)
92 TYPE (ELBUF_STRUCT_), DIMENSION(NGROUP), TARGET :: ELBUF_TAB
93 CHARACTER(LEN=NCHARLINE100) :: KEYWORD
94 TYPE(FANI_CELL_),INTENT(IN) :: FANI_CELL
95 TYPE(multi_fvm_struct), INTENT(IN) :: MULTI_FVM
96 TYPE(t_ale_connectivity), INTENT(IN) :: ALE_CONNECT
97 TYPE (MATPARAM_STRUCT_) ,DIMENSION(NUMMAT) ,INTENT(IN) :: MAT_PARAM
98 INTEGER ,INTENT(IN) :: MODE
99C-----------------------------------------------
100C L o c a l V a r i a b l e s
101C-----------------------------------------------
102 INTEGER I,NG
103C-----------------------------------------------
104 DO i=1,numels
105 is_written_solid(i) = 0
106 ENDDO
107C
108 !-------------------------------------------------------!
109 ! INITIALIZATION IF SCHLIEREN DEFINED !
110 !-------------------------------------------------------!
111 IF(keyword == 'SCHLIEREN')THEN
112 CALL schlieren_buffer_gathering(nercvois ,nesdvois ,lercvois ,lesdvois, iparg, elbuf_tab, multi_fvm,itherm)
113 ENDIF
114c
115 DO 900 ng=1,ngroup
116
117 CALL h3d_solid_scalar_1(.false.,
118 . elbuf_tab ,solid_scalar ,iparg ,
119 . ixs ,pm ,bufmat ,
120 . ehour ,
121 . ipm ,
122 . x ,v ,w ,ale_connect,
123 . id_elem ,ity_elem ,iparts ,layer_input ,
124 . ir_input ,is_input ,it_input ,iuvar_input ,h3d_part ,
125 . is_written_solid,info1 ,keyword ,fani_cell ,
126 . multi_fvm , ng ,idmds ,imdsvar ,
127 . id ,mat_param ,mode )
128
129
130 900 CONTINUE ! NG
131C-----------------------------------------------
132 RETURN
133 END
my_real
#define my_real
Definition cppsort.cpp:32
genh3d
subroutine genh3d(output, timers, x, d, v, a, bufel, ixs, ixq, ixc, ixt, ixp, ixr, ixtg, swaft, smas, sxnorm, siad, iparg, pm, geo, ms, sinvert, cont, smater, icut, skew, xcut, fint, itab, sel2fa, fext, fopt, lpby, npby, nstrf, rwbuf, nprw, tani, elbuf_tab, mat_param, dd_iad, weight, eani, ipart, cluster, iparts, ipartq, ipartc, ipartt, ipartp, ipartr, ipartur, iparttg, rby, swa4, tors, nom_opt, bufsf, idata, rdata, siadg, bufmat, bufgeo, kxx, ixx, ipartx, suix, sxusr, snfacptx, sixedge, sixfacet, sixsolid, snumx1, snumx2, snumx3, soffx1, soffx2, soffx3, smass1, smass2, smass3, sfunc1, sfunc2, sfunc3, kxsp, ixsp, nod2sp, ipartsp, spbuf, ixs10, ixs20, ixs16, vr, monvol, volmon, ipm, igeo, nodglob, iad_elem, fr_elem, fr_sec, fr_rby2, iad_rby2, fr_wall, iflow, rflow, fncont, ftcont, temp, thke, err_thk_sh4, err_thk_sh3, diag_sms, ipari, fncont2, dr, ale_connect, irbe2, irbe3, lrbe2, lrbe3, fr_rbe2, fr_rbe3m, iad_rbe2, dxancg, nod_pxfem, iel_pxfem, zi_ply, vgaz, fcontg, fncontg, ftcontg, fanreac, inod_crk, iel_crk, elcutc, iadc_crk, pdama2, res_sms, weight_md, nodglobxfe, nodedge, fcluster, mcluster, xfem_tab, w, nv46, ipartig3d, kxig3d, ixig3d, sig3dsolid, knot, wige, nercvois, nesdvois, lercvois, lesdvois, crkedge, indx_crk, xedge4n, xedge3n, stack, sph2sol, stifn, stifr, igrnod, sh4tree, sh3tree, h3d_data, multi_fvm, subset, pskids, tag_skins6, tf, npf, fcont_max, mds_matid, fncontp2, ftcontp2, ibcl, iloadp, lloadp, fac, sensors, tagncont, loadp_hyd_inter, xframe, forc, ar, csefric, csefricg, csefric_stamp, csefricg_stamp, table, iframe, loads, drape_sh4n, drape_sh3n, drapeg, x_c, glob_therm, pblast)
Definition genh3d.F:213
h3d_solid_scalar
subroutine h3d_solid_scalar(elbuf_tab, solid_scalar, iparg, ixs, pm, bufmat, ehour, ipm, x, v, w, ale_connect, nercvois, nesdvois, lercvois, lesdvois, id_elem, ity_elem, iparts, layer_input, ir_input, is_input, it_input, iuvar_input, h3d_part, is_written_solid, info1, keyword, itherm, fani_cell, multi_fvm, idmds, imdsvar, id, mat_param, mode)
Definition h3d_solid_scalar.F:54
h3d_solid_scalar_1
subroutine h3d_solid_scalar_1(called_from_python, elbuf_tab, solid_scalar, iparg, ixs, pm, bufmat, ehour, ipm, x, v, w, ale_connect, id_elem, ity_elem, iparts, layer_input, ir_input, is_input, it_input, iuvar_input, h3d_part, is_written_solid, info1, keyword, fani_cell, multi_fvm, ng, idmds, imdsvar, id, mat_param, mode)
Definition h3d_solid_scalar_1.F:62
ale_connectivity_mod
Definition ale_connectivity_mod.F:225
aleanim_mod
Definition aleanim_mod.F:39
h3d_mod
Definition h3d_mod.F:311
initbuf_mod
Definition initbuf.F:160
names_and_titles_mod
Definition names_and_titles_mod.F:1002
names_and_titles_mod::ncharline100
integer, parameter ncharline100
Definition names_and_titles_mod.F:1007
schlieren_mod
Definition schlieren_mod.F:46
schlieren_buffer_gathering
subroutine schlieren_buffer_gathering(nercvois, nesdvois, lercvois, lesdvois, iparg, elbuf_tab, multi_fvm, itherm)
Definition schlieren_buffer_gathering.F:44
ale_connectivity_mod::t_ale_connectivity
Definition ale_connectivity_mod.F:256
aleanim_mod::fani_cell_
Definition aleanim_mod.F:43