OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
xini29.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!|| xini29 ../starter/source/elements/xelem/xini29.F
25!||--- called by ------------------------------------------------------
26!|| xinit3 ../starter/source/elements/xelem/xinit3.F
27!||--- calls -----------------------------------------------------
28!|| get_u_func ../starter/source/user_interface/uaccess.F
29!|| get_u_geo ../starter/source/user_interface/uaccess.F
30!|| get_u_mat ../starter/source/user_interface/uaccess.F
31!|| get_u_mid ../starter/source/user_interface/uaccess.F
32!|| get_u_mnu ../starter/source/user_interface/uaccess.F
33!|| get_u_pid ../starter/source/user_interface/uaccess.F
34!|| get_u_pnu ../starter/source/user_interface/uaccess.F
35!||====================================================================
36 SUBROUTINE xini29(NX ,NAX1D ,NAX2D ,NAX3D ,
37 2 XEL ,VEL ,VREL ,
38 2 IOUT ,IPROP ,IMAT ,
39 3 IX ,IDS ,MASS ,
40 4 XINER ,STIFM ,STIFR ,VISCM ,VISCR ,
41 5 UVAR ,NUVAR ,UVARN ,NUVARN ,DTE )
42C-------------------------------------------------------------------------
43C This subroutine initialize multipurpose element
44C (when element uses user property TYPE29).
45C----------+---------+---+---+--------------------------------------------
46C VAR | SIZE |TYP| RW| DEFINITION
47C----------+---------+---+---+--------------------------------------------
48C IOUT | 1 | I | R | OUTPUT FILE UNIT (L00 file)
49C IPROP | 1 | I | R | PROPERTY NUMBER
50C IMAT | 1 | I | R | MATERIAL NUMBER
51C----------+---------+---+---+--------------------------------------------
52C XEL | 3*NX | F | R | NODES COORDINATES
53C VEL | 3*NX | F | R | NODES VELOCITIES
54C VREL | 3*NX | F | R | NODES ROTATIONAL VELOCITIES
55C----------+---------+---+---+--------------------------------------------
56C NX | 1 | I | R | NUMBER OF NODES (CONSTANT IN THE GROUP)
57C----------+---------+---+---+--------------------------------------------
58C NAX1D | 1 | I | W | NUMBER OF EDGES TO BE DRAWN INTO ANIM
59C NAX2D | 1 | I | W | NUMBER OF FACETS TO BE DRAWN INTO ANIM
60C NAX3D | 1 | I | W | NUMBER OF SOLIDS TO BE DRAWN INTO ANIM
61C----------+---------+---+---+--------------------------------------------
62C IX | NX | I | R | ELEMENT CONNECTIVITY
63C | IX(J) (1<=J<=NX) : NODE J USER ID
64C IDS | 1 | I | R | ELEMENT USER IDENTIFIER
65C----------+---------+---+---+--------------------------------------------
66C MASS | NX | F | W | NODAL MASS
67C XINER | NX | F | W | NODAL INERTIA (SPHERICAL)
68C STIFM | NX | F | W | NODAL STIFNESS (TIME STEP)
69C STIFR | NX | F | W | NODAL ROTATION STIFNESS (TIME STEP)
70C VISCM | NX | F | W | NODAL VISCOSITY (TIME STEP)
71C VISCR | NX | F | W | NODAL ROTATION VISCOSITY (TIME STEP)
72C----------+---------+---+---+--------------------------------------------
73C UVAR |NUVAR | F | W | USER ELEMENT VARIABLES
74C NUVAR | 1 | I | R | NUMBER OF USER ELEMENT VARIABLES
75C UVARN |NUVARN*NX| F | W | USER ELEMENT VARIABLES
76C NUVARN | 1 | I | R | NUMBER OF USER ELEMENT VARIABLES PER NODE.
77C----------+---------+---+---+--------------------------------------------
78C-------------------------------------------------------------------------
79C FUNCTION
80C-------------------------------------------------------------------------
81C INTEGER II = GET_U_PNU(I,IP,KK)
82C IFUNCI = GET_U_PNU(I,IP,KFUNC)
83C IPROPI = GET_U_PNU(I,IP,KPROP)
84C IMATI = GET_U_PNU(I,IP,KMAT)
85C I : VARIABLE INDEX(1 for first variable,...)
86C IP : PROPERTY NUMBER
87C KK : PARAMETER KFUNC,KMAT,KPROP
88C THIS FUNCTION RETURN THE USER STORED FUNCTION(IF KK=KFUNC),
89C MATERIAL(IF KK=KMAT) OR PROPERTY(IF KK=KPROP) NUMBERS.
90C SEE LECG29 FOR CORRESPONDING ID STORAGE.
91C-------------------------------------------------------------------------
92C INTEGER IFUNCI = GET_U_MNU(I,IM,KFUNC)
93C I : VARIABLE INDEX(1 for first function)
94C IM : MATERIAL NUMBER
95C KFUNC : ONLY FUNCTION ARE YET AVAILABLE.
96C THIS FUNCTION RETURN THE USER STORED FUNCTION NUMBERS(function
97C referred by users materials).
98C SEE LECM29 FOR CORRESPONDING ID STORAGE.
99C-------------------------------------------------------------------------
100C my_real PARAMI = GET_U_GEO(I,IP)
101C I : PARAMETER INDEX(1 for first parameter,...)
102C IP : PROPERTY NUMBER
103C THIS FUNCTION RETURN THE USER GEOMETRY PARAMETERS
104C-------------------------------------------------------------------------
105C my_real PARAMI = GET_U_MAT(I,IM)
106C I : PARAMETER INDEX(1 for first parameter,...)
107C IM : MATERIAL NUMBER
108C THIS FUNCTION RETURN THE USER MATERIAL PARAMETERS
109C NOTE: GET_U_MAT(0,IMAT) RETURN THE DENSITY
110C-------------------------------------------------------------------------
111C INTEGER PID = GET_U_PID(IP)
112C IP : PROPERTY NUMBER
113C THIS FUNCTION RETURN THE USER PROPERTY ID CORRESPONDING TO
114C USER PROPERTY NUMBER IP.
115C-------------------------------------------------------------------------
116C INTEGER MID = GET_U_MID(IM)
117C IM : MATERIAL NUMBER
118C THIS FUNCTION RETURN THE USER MATERIAL ID CORRESPONDING TO
119C USER MATERIAL NUMBER IM.
120C-------------------------------------------------------------------------
121C-----------------------------------------------
122C I m p l i c i t T y p e s
123C-----------------------------------------------
124#include "implicit_f.inc"
125C----------------------------------------------------------
126C D u m m y A r g u m e n t s a n d F u n c t i o n
127C----------------------------------------------------------
128 INTEGER IOUT,NUVAR,NUVARN,IPROP,IMAT,
129 . NX ,NAX1D ,NAX2D ,NAX3D , IX(NX), IDS,
130 . GET_U_PNU,GET_U_PID,GET_U_MID,GET_U_MNU,
131 . KFUNC,KMAT,KPROP
132 my_real
133 . xel(3,nx),vel(3,nx),vrel(3,nx),
134 . mass(nx) ,xiner(nx) ,stifm(nx) ,
135 . stifr(nx),viscm(nx) ,viscr(nx) ,uvar(nuvar) ,
136 . uvarn(nuvarn*nx), dte,
137 . get_u_mat,get_u_geo,get_u_func
138 EXTERNAL get_u_pnu,get_u_mnu,get_u_mat,get_u_geo,get_u_pid,
139 . get_u_mid,get_u_func
140 parameter(kfunc=29)
141 parameter(kmat=31)
142 parameter(kprop=33)
143C-----------------------------------------------
144C L o c a l V a r i a b l e s
145C-----------------------------------------------
146 RETURN
147 END
xini29
subroutine xini29(nx, nax1d, nax2d, nax3d, xel, vel, vrel, iout, iprop, imat, ix, ids, mass, xiner, stifm, stifr, viscm, viscr, uvar, nuvar, uvarn, nuvarn, dte)
Definition xini29.F:42