OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
optiondef_mod.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!|| optiondef_mod ../common_source/modules/optiondef_mod.F
25!||--- called by ------------------------------------------------------
26!|| addmaspart ../starter/source/tools/admas/addmaspart.F
27!|| bigbox ../starter/source/model/box/bigbox.F
28!|| bigbox2 ../starter/source/model/box/bigbox.F
29!|| bigsbox ../starter/source/model/box/bigbox.F
30!|| box_surf_sh ../starter/source/model/box/bigbox.F
31!|| boxassem1 ../starter/source/model/box/bigbox.F
32!|| boxassem2 ../starter/source/model/box/bigbox.F
33!|| boxassem3 ../starter/source/model/box/bigbox.F
34!|| boxassem4 ../starter/source/model/box/bigbox.F
35!|| boxbox ../starter/source/model/box/boxbox.F
36!|| boxbox2 ../starter/source/model/box/boxbox.F
37!|| boxboxs ../starter/source/model/box/boxbox.F
38!|| boxtage ../starter/source/model/box/bigbox.F
39!|| boxtagn ../starter/source/model/box/bigbox.F
40!|| create_box_clause ../starter/source/model/sets/create_box_clause.F
41!|| create_elt_box ../starter/source/model/sets/create_elt_box.F
42!|| create_elt_clause ../starter/source/model/sets/create_element_clause.F
43!|| create_node_box ../starter/source/model/sets/create_node_box.F
44!|| create_node_clause ../starter/source/model/sets/create_node_clause.F
45!|| create_nodens_clause ../starter/source/model/sets/create_nodens_clause.F90
46!|| create_rbody_box ../starter/source/model/sets/create_rbody_box.F
47!|| create_rbody_clause ../starter/source/model/sets/create_rbody_clause.F
48!|| elstagbox ../starter/source/model/box/bigbox.F
49!|| elstagboxbox ../starter/source/model/box/boxbox.F
50!|| elt_box ../starter/source/model/sets/fill_clause_elt_box.F
51!|| facebox ../starter/source/model/box/bigbox.F
52!|| fill_clause_elt_box ../starter/source/model/sets/fill_clause_elt_box.F
53!|| fill_clause_node_box ../starter/source/model/sets/fill_clause_node_box.F
54!|| fill_clause_rbody_box ../starter/source/model/sets/fill_clause_rbody_box.F
55!|| hm_bigbox ../starter/source/model/box/hm_bigbox.F
56!|| hm_bigbox2 ../starter/source/model/box/hm_bigbox2.F
57!|| hm_bigsbox ../starter/source/groups/hm_bigsbox.F
58!|| hm_lecgre ../starter/source/groups/hm_lecgre.F
59!|| hm_lecgrn ../starter/source/groups/hm_lecgrn.F
60!|| hm_read_admas ../starter/source/tools/admas/hm_read_admas.F
61!|| hm_read_box ../starter/source/model/box/hm_read_box.F
62!|| hm_read_inicrack ../starter/source/initial_conditions/inicrack/hm_read_inicrack.F
63!|| hm_read_lines ../starter/source/groups/hm_read_lines.F
64!|| hm_read_surf ../starter/source/groups/hm_read_surf.F
65!|| hm_set ../starter/source/model/sets/hm_set.F
66!|| inicrkfill ../starter/source/elements/xfem/inicrkfill.F
67!|| initia ../starter/source/elements/initia/initia.F
68!|| lecgroup ../starter/source/groups/lecgroup.F
69!|| lectur ../engine/source/input/lectur.F
70!|| node_box ../starter/source/model/sets/fill_clause_node_box.F
71!|| option_mod ../starter/share/modules1/options_mod.F
72!|| printgroup ../starter/source/output/outfile/printgroup.F
73!|| rbody_box ../starter/source/model/sets/fill_clause_rbody_box.F
74!|| read_box_box ../starter/source/model/box/read_box_box.F
75!|| read_box_cyl ../starter/source/model/box/read_box_cyl.F
76!|| read_box_rect ../starter/source/model/box/read_box_rect.F
77!|| read_box_spher ../starter/source/model/box/read_box_spher.F
78!|| read_clause_box ../starter/source/model/sets/read_clause_box.F
79!|| sboxboxsurf ../starter/source/model/box/bigbox.F
80!|| simple_elt_box ../starter/source/model/sets/simpl_elt_box.F
81!|| simple_node_box ../starter/source/model/sets/simple_node_box.F
82!|| simple_rbody_box ../starter/source/model/sets/simple_rbody_box.F
83!|| spmd_msin_addmass ../starter/source/elements/initia/spmd_msin_addmass.F
84!|| st_qaprint_driver ../starter/source/output/qaprint/st_qaprint_driver.F
85!|| st_qaprint_initial_conditions ../starter/source/output/qaprint/st_qaprint_initial_conditions.F
86!|| st_qaprint_model_tools ../starter/source/output/qaprint/st_qaprint_model_tools.F
87!||--- uses -----------------------------------------------------
88!|| names_and_titles_mod ../common_source/modules/names_and_titles_mod.F
89!||====================================================================
91!-----------------------------------------------------------------------
93!-----------------------------------------------------------------------
94#include "my_real.inc"
95!-----------------------------------------------------------------------
96!--------------
97!--------------
98! /INICRACK
99!--------------
100!--------------
101 TYPE seg_
102 INTEGER, DIMENSION(:),ALLOCATABLE :: nodes ! - 2 nodes of the segment for /SURF
103 my_real :: ratio ! - INICRACK RATIO OF ONE SEGMENT
104 END TYPE seg_
105!--------------
107 INTEGER :: id ! - INICRACK IDENTIFIER
108 CHARACTER(LEN=NCHARTITLE) :: title ! INICRACK title
109 INTEGER :: nseg ! - INICRACK NUMBER OF SEGMENTS
110!
111 TYPE (seg_) ,DIMENSION(:) ,ALLOCATABLE :: seg ! SEGMENTS OF INICRACK
112!--------------
113 END TYPE inicrack_
114!-----------------------------------------------------------------------
115!--------------
116!--------------
117! /ADMAS
118!--------------
119!--------------
120 TYPE part_
121 my_real :: rpmas ! ADMAS added to PARTS (or NODES)
122 END TYPE part_
123!--------------
125 INTEGER :: id ! - ADMAS IDENTIFIER
126 CHARACTER(LEN=NCHARTITLE) :: title ! ADMAS title
127 INTEGER :: TYPE ! ADMAS type
128! = 0 ! Mass is added to each node of node group
129! = 1 ! Mass/N is added to each node of node group.
130! N being the total number of nodes in the node group
131! = 2 ! Mass/Area - additional surface mass applied on the shell area
132! = 3 ! Additional mass distributed on the part-group
133! = 4 ! Final mass distributed on the part-group
134! = 5 ! Mass is added to each single node
135! = 6 ! Additional mass distributed on each single part
136! = 7 ! Final mass distributed on each single part
137 INTEGER :: weight_flag ! Flag to switch between area weighted distribution and volume
138! weighted distribution of the added mass to parts)
139! = 0 ! Volume weighted distribution (shell and solid parts) (default)
140! = 1 ! Area weighted distribution (shell parts only)
141 INTEGER :: npart ! NUMBER of parts to get ADMAS
142 INTEGER, DIMENSION(:),ALLOCATABLE :: partid ! PART_ID to get ADMAS
143 TYPE (part_) ,DIMENSION(:) ,ALLOCATABLE :: part ! PARTS get ADMAS
144 END TYPE admas_
145!-----------------------------------------------------------------------
146!--------------
147! /BOX
148!--------------
149!--------------
150 TYPE box_
151 INTEGER :: id ! - BOX IDENTIFIER
152 CHARACTER(LEN=NCHARTITLE) :: title ! BOX title
153 INTEGER :: iskbox ! BOX SKEW_ID (RECTA + CYLIN)
154 INTEGER :: nod1 ! FIRST NODE for box limit definition - N1 -
155 INTEGER :: nod2 ! SECOND NODE for box limit definition - N2 -
156 INTEGER :: TYPE ! BOX SHAPE (1='RECTA',2='CYLIN' ,3='SPHER')
157 INTEGER :: nblevels ! TEMPORARY LEVEL NB OF BOXES
158 INTEGER :: level ! FLAG "SUBLEVEL DONE" FOR BOX OF BOXES
159 INTEGER :: actibox ! FLAG FOR ACTIVATED BOX FOR (GRNOD,GRSHEL,LINE,SURF...)
160 INTEGER :: surfiad ! temporary address for solid external surface (in box)
161 INTEGER :: boxiad ! temporary address
162 my_real :: diam ! BOX diameter (CYLIN + SPHER)
163 my_real :: x1 ! coord. for - N1 -
164 my_real :: y1 ! coord. for - N1 -
165 my_real :: z1 ! coord. for - N1 -
166 my_real :: x2 ! coord. for - N2 -
167 my_real :: y2 ! coord. for - N2 -
168 my_real :: z2 ! coord. for - N2 -
169 INTEGER :: nboxbox ! NUMBER OF SUB BOXES (BOXES OF BOXES)
170 INTEGER ,DIMENSION(:) ,ALLOCATABLE :: iboxbox ! SUB BOXES (BOX OF BOXES)
171 INTEGER :: nentity ! NUMBER OF BOX ENTITIES (NODES,ELEMS,LINES,SURF)
172! WITHIN ACTIVATED BOX
173 INTEGER ,DIMENSION(:) ,ALLOCATABLE :: entity ! BOX entity storage
174 END TYPE box_
175!--------------
176 END MODULE optiondef_mod
#define my_real
Definition cppsort.cpp:32
initmumps id
integer, parameter nchartitle