OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
create_box_clause.F File Reference
#include "implicit_f.inc"
#include "radioss_maptable.inc"
#include "com04_c.inc"
#include "param_c.inc"
#include "scr17_c.inc"

Go to the source code of this file.

Functions/Subroutines

subroutine create_box_clause (clause, jclause, is_available, lsubmodel, keyset, itabm1, ibox, x, skew, ixs10, set_title, ipart, sh4tree, sh3tree, iparts, ipartq, ipartc, ipartg, ipartt, ipartp, ipartr, ixs, ixq, ixc, ixtg, ixt, ixp, ixr, knod2els, nod2els, knod2elc, nod2elc, knod2eltg, nod2eltg, knod2elq, nod2elq, opt_a, opt_o, opt_e, delbuf, rby_msn, irbodym)

Function/Subroutine Documentation

◆ create_box_clause()

subroutine create_box_clause ( type (set_) clause,
integer jclause,
logical is_available,
type(submodel_data), dimension(*), intent(in) lsubmodel,
character(len=ncharfield) keyset,
integer, dimension(numnod,2), intent(in) itabm1,
type (box_), dimension(nbbox) ibox,
x,
skew,
integer, dimension(6,*), intent(in) ixs10,
character(len=nchartitle) set_title,
integer, dimension(lipart1,*), intent(in) ipart,
integer, dimension(*), intent(in) sh4tree,
integer, dimension(*), intent(in) sh3tree,
integer, dimension(*), intent(in) iparts,
integer, dimension(*), intent(in) ipartq,
integer, dimension(*), intent(in) ipartc,
integer, dimension(*), intent(in) ipartg,
integer, dimension(*), intent(in) ipartt,
integer, dimension(*), intent(in) ipartp,
integer, dimension(*), intent(in) ipartr,
integer, dimension(nixs,*), intent(in) ixs,
integer, dimension(nixq,*), intent(in) ixq,
integer, dimension(nixc,*), intent(in) ixc,
integer, dimension(nixtg,*), intent(in) ixtg,
integer, dimension(nixt,*), intent(in) ixt,
integer, dimension(nixp,*), intent(in) ixp,
integer, dimension(nixr,*), intent(in) ixr,
integer, dimension(*), intent(in) knod2els,
integer, dimension(*), intent(in) nod2els,
integer, dimension(*), intent(in) knod2elc,
integer, dimension(*), intent(in) nod2elc,
integer, dimension(*), intent(in) knod2eltg,
integer, dimension(*), intent(in) nod2eltg,
integer, dimension(*), intent(in) knod2elq,
integer, dimension(*), intent(in) nod2elq,
integer opt_a,
integer opt_o,
integer opt_e,
type (set_scratch) delbuf,
integer, dimension(2,nrbody), intent(in) rby_msn,
integer, dimension(nrbody,2), intent(in) irbodym )

Definition at line 39 of file create_box_clause.F.

49C-----------------------------------------------
50C ROUTINE DESCRIPTION :
51C ===================
52C Treat the Elmeent Clause, read Elements from HM_READER & fill clause
53C------------------------------------------------------------------
54C DUMMY ARGUMENTS DESCRIPTION:
55C ===================
56C
57C NAME DESCRIPTION
58C
59C CLAUSE (SET structure) Clause to be treated
60C IPARTM1 MAP Table UID -> LocalID
61C JCLAUSE parameter with HM_READER (current clause read)
62C IS_AVAILABLE Bool / Result of HM_interface
63C LSUBMODEL SUBMODEL Structure.
64C============================================================================
65C-----------------------------------------------
66C M o d u l e s
67C-----------------------------------------------
68 USE setdef_mod
69 USE submodel_mod
70 USE message_mod
71 USE hm_option_read_mod
72 USE optiondef_mod
73 USE set_scratch_mod
74 USE names_and_titles_mod , ONLY : nchartitle, ncharfield
75C-----------------------------------------------
76C I m p l i c i t T y p e s
77C-----------------------------------------------
78#include "implicit_f.inc"
79C-----------------------------------------------
80C C o m m o n B l o c k s
81C-----------------------------------------------
82#include "radioss_maptable.inc"
83#include "com04_c.inc"
84#include "param_c.inc"
85#include "scr17_c.inc"
86C-----------------------------------------------
87C D u m m y A r g u m e n t s
88C-----------------------------------------------
89 INTEGER, INTENT(IN) :: IPART(LIPART1,*),SH4TREE(*),
90 . SH3TREE(*),IXS(NIXS,*),IXC(NIXC,*),IXTG(NIXTG,*),IXS10(6,*),
91 . IXQ(NIXQ,*),IXT(NIXT,*),IXP(NIXP,*),IXR(NIXR,*),IPARTS(*),
92 . IPARTQ(*),IPARTC(*),IPARTG(*),IPARTT(*),IPARTP(*),IPARTR(*),
93 . KNOD2ELS(*),KNOD2ELC(*),KNOD2ELTG(*),NOD2ELS(*),NOD2ELC(*),
94 . NOD2ELTG(*),NOD2ELQ(*),KNOD2ELQ(*)
95 INTEGER ELTYP,JCLAUSE,OPT_A,OPT_O,OPT_E
96!
97 INTEGER, INTENT(IN), DIMENSION(NUMNOD,2) :: ITABM1
98 INTEGER, INTENT(IN), DIMENSION(NRBODY,2) :: IRBODYM
99 INTEGER, INTENT(IN), DIMENSION(2,NRBODY) :: RBY_MSN
100
101! INTEGER, INTENT(IN) :: MAPSIZE
102! INTEGER, DIMENSION(MAPSIZE,2) :: MAP
103 LOGICAL :: IS_AVAILABLE
104 my_real
105 . x(3,*),skew(lskew,*)
106 CHARACTER(LEN=NCHARFIELD) :: KEYSET
107 CHARACTER(LEN=NCHARTITLE) :: SET_TITLE
108 TYPE (SET_SCRATCH) :: DELBUF
109C-----------------------------------------------
110 TYPE (SET_) :: CLAUSE
111 TYPE(SUBMODEL_DATA),INTENT(IN) :: LSUBMODEL(*)
112 TYPE (BOX_) , DIMENSION(NBBOX) :: IBOX
113C-----------------------------------------------
114C L o c a l V a r i a b l e s
115C-----------------------------------------------
116 INTEGER BOXTYPE,SURF_LIST,LINE_LIST_1D,ELTYP_ALL
117!
118 INTEGER ADMBID
119 DATA admbid/0/
120C-----------------------------------------------
121C L o c a l V a r i a b l e s
122C-----------------------------------------------
123!
124 IF (keyset == 'box') BOXTYPE = 1
125 IF (KEYSET == 'box2') BOXTYPE = 2
126!
127!
128 ! ---------------------
129 ! Fill Boxes
130 ! ---------------------
131!
132!
133 ! NODE box
134 CALL CREATE_NODE_BOX(
135 . CLAUSE ,ITABM1 ,JCLAUSE ,IS_AVAILABLE ,LSUBMODEL,
136 . IBOX ,X ,SKEW ,SET_TITLE ,KEYSET )
137
138
139 ! Solid's in box
140 IF (numels > 0)
141 * CALL create_elt_box(
142 * clause ,iparts ,jclause ,is_available ,lsubmodel,
143 * ibox ,x ,skew ,set_title ,keyset ,
144 * boxtype ,numels ,nixs ,ixs ,8 ,
145 * ipart ,admbid ,admbid ,admbid ,elt_solid)
146
147 ! Quad's in box
148 IF (numelq > 0)
149 * CALL create_elt_box(
150 * clause ,ipartq ,jclause ,is_available ,lsubmodel,
151 * ibox ,x ,skew ,set_title ,keyset ,
152 * boxtype ,numelq ,nixq ,ixq ,4 ,
153 * ipart ,admbid ,admbid ,admbid ,elt_quad )
154
155 ! Shell's in box
156 IF (numelc > 0)
157 * CALL create_elt_box(
158 * clause ,ipartc ,jclause ,is_available ,lsubmodel,
159 * ibox ,x ,skew ,set_title ,keyset ,
160 * boxtype ,numelc ,nixc ,ixc ,4 ,
161 * ipart ,sh4tree ,3 ,ksh4tree ,elt_sh4n )
162
163 ! She3n's in box
164 IF (numeltg > 0 .AND. numeltria == 0)
165 * CALL create_elt_box(
166 * clause ,ipartg ,jclause ,is_available ,lsubmodel,
167 * ibox ,x ,skew ,set_title ,keyset ,
168 * boxtype ,numeltg ,nixtg ,ixtg ,3 ,
169 * ipart ,sh3tree ,3 ,ksh3tree ,elt_sh3n )
170
171 ! Tria's in box
172 IF (numeltria > 0)
173 * CALL create_elt_box(
174 * clause ,ipartg ,jclause ,is_available ,lsubmodel,
175 * ibox ,x ,skew ,set_title ,keyset ,
176 * boxtype ,numeltria,nixtg ,ixtg ,3 ,
177 * ipart ,admbid ,admbid ,admbid ,elt_tria )
178
179 ! Truss's in box
180 IF (numelt > 0)
181 * CALL create_elt_box(
182 * clause ,ipartt ,jclause ,is_available ,lsubmodel,
183 * ibox ,x ,skew ,set_title ,keyset ,
184 * boxtype ,numelt ,nixt ,ixt ,2 ,
185 * ipart ,admbid ,admbid ,admbid ,elt_truss)
186
187 ! Beam's in box
188 IF (numelp > 0)
189 * CALL create_elt_box(
190 * clause ,ipartp ,jclause ,is_available ,lsubmodel,
191 * ibox ,x ,skew ,set_title ,keyset ,
192 * boxtype ,numelp ,nixp ,ixp ,2 ,
193 * ipart ,admbid ,admbid ,admbid ,elt_beam )
194
195 ! Spring's in box
196 IF (numelr > 0)
197 * CALL create_elt_box(
198 * clause ,ipartr ,jclause ,is_available ,lsubmodel,
199 * ibox ,x ,skew ,set_title ,keyset ,
200 * boxtype ,numelr ,nixr ,ixr ,2 ,
201 * ipart ,admbid ,admbid ,admbid ,elt_spring)
202!------------------------------------------------------
203!------------------------------------------------------
204 ! Line's --- 1D --- in box
205 line_list_1d = clause%NB_TRUSS + clause%NB_BEAM + clause%NB_SPRING
206 IF (line_list_1d > 0)
207 ! Line from 1D_ELEMENT
208 !-------------------
209 * CALL create_line_from_element(ixt ,ixp ,ixr ,clause,delbuf,
210 * .false. )
211!------------------------------------------------------
212!------------------------------------------------------
213 ! Surface's in box
214 surf_list = clause%NB_SOLID + clause%NB_QUAD +
215 + clause%NB_SH4N + clause%NB_SH3N
216 IF (surf_list > 0) THEN
217 ! Surface from ELEMENT
218 !-------------------
219 CALL create_surface_from_element(
220 * ixs ,ixs10 ,sh4tree ,sh3tree ,ixc ,
221 * ixtg ,knod2els ,nod2els ,knod2elc ,nod2elc ,
222 * knod2eltg ,nod2eltg ,ipartc ,ipartg ,iparts ,
223 * ipart ,clause ,opt_a ,opt_o ,ixq ,
224 * knod2elq ,nod2elq ,x ,keyset ,delbuf ,
225 * .false. )
226!
227 ! Line from SURFACE
228 CALL create_line_from_surface(clause ,keyset,opt_a,opt_e,delbuf,
229 . .false.)
230 ENDIF ! IF (SURF_LIST > 0)
231!------------------------------------------------------
232!------------------------------------------------------
233 ! Rbodys in box
234 IF (clause%NB_RBODY > 0) THEN
235 CALL create_rbody_box(clause ,irbodym ,jclause ,is_available ,lsubmodel,
236 . ibox ,x ,skew ,set_title ,keyset ,
237 . rby_msn )
238 ENDIF ! IF (CLAUSE%NB_RBODY > 0)
239C-----------------------------------------------
my_real
#define my_real
Definition cppsort.cpp:32
create_elt_box
subroutine create_elt_box(clause, iparte, jclause, is_available, lsubmodel, ibox, x, skew, set_title, keyset, boxtype, numel, nix, ix, nix1, ipart, eltree, klevtree, keltree, eltyp)
Definition create_elt_box.F:43
create_line_from_element
subroutine create_line_from_element(ixt, ixp, ixr, clause, delbuf, go_in_array)
Definition create_line_from_element.F:36
create_line_from_surface
subroutine create_line_from_surface(clause, keyset, opt_a, opt_e, delbuf, go_in_array)
Definition create_line_from_surface.F:35
create_rbody_box
subroutine create_rbody_box(clause, irbodym, jclause, is_available, lsubmodel, ibox, x, skew, set_title, keyset, rby_msn)
Definition create_rbody_box.F:41
create_surface_from_element
subroutine create_surface_from_element(ixs, ixs10, sh4tree, sh3tree, ixc, ixtg, knod2els, nod2els, knod2elc, nod2elc, knod2eltg, nod2eltg, ipartc, ipartg, iparts, ipart, clause, opt_a, opt_o, ixq, knod2elq, nod2elq, x, keyset, delbuf, go_in_array)
Definition create_surface_from_element.F:42
hm_option_read_mod
Definition hm_option_read_mod.F:408
message_mod
Definition message_mod.F:1249
names_and_titles_mod
Definition names_and_titles_mod.F:997
names_and_titles_mod::nchartitle
integer, parameter nchartitle
Definition names_and_titles_mod.F:1003
names_and_titles_mod::ncharfield
integer, parameter ncharfield
Definition names_and_titles_mod.F:1005
optiondef_mod
Definition optiondef_mod.F:90
set_scratch_mod
Definition setdef_mod.F:247
setdef_mod
Definition setdef_mod.F:107
submodel_mod
Definition submodel_mod.F:712