OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
xanim31.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!|| xanim31 ../engine/source/output/anim/generate/xanim31.F
25!||--- called by ------------------------------------------------------
26!|| animx ../engine/source/output/anim/generate/animx.F
27!||--- calls -----------------------------------------------------
28!|| get_u_mid ../engine/source/user_interface/upidmid.F
29!|| get_u_mnu ../engine/source/user_interface/upidmid.f
30!|| get_u_pid ../engine/source/user_interface/upidmid.F
31!|| get_u_pnu ../engine/source/user_interface/upidmid.F
32!||====================================================================
33 SUBROUTINE xanim31(NX ,UIX ,UID ,XEL ,
34 2 IOUT ,IPROP ,IMAT ,
35 3 OFF ,MASSELE ,EINTELE ,
36 4 NEDGE ,NFACET ,NSOLID ,
37 5 IXEDGE ,IXFACET ,IXSOLID ,
38 6 XMASSED ,XMASSFA ,XMASSSO ,
39 7 XFUNCED ,XFUNCFA ,XFUNCSO ,
40 8 NUVAR ,UVAR ,NUVARN ,UVARN )
41C-------------------------------------------------------------------------
42C This subroutine returns edges, facets and solids to be written into
43C ANIMATION FILES.
44C-------------------------------------------------------------------------
45C----------+---------+---+---+--------------------------------------------
46C VAR | SIZE |TYP| RW| DEFINITION
47C----------+---------+---+---+--------------------------------------------
48C NX | 1 | I | R | NUMBER OF NODES (CONSTANT IN THE GROUP)
49C----------+---------+---+---+--------------------------------------------
50C UID | 1 | I | R | ELEMENT USER IDENTIFIER
51C UIX | NX | I | R | ELEMENT CONNECTIVITY
52C | IX(J) (1<=J<=NX) : NODE J USER ID
53C----------+---------+---+---+--------------------------------------------
54C XEL | 3*NX | F | R | NODES COORDINATES
55C----------+---------+---+---+--------------------------------------------
56C IOUT | 1 | I | R | OUTPUT FILE UNIT (L00 file)
57C IPROP | 1 | I | R | PROPERTY NUMBER
58C IMAT | 1 | I | R | MATERIAL NUMBER
59C----------+---------+---+---+--------------------------------------------
60C OFF | 1 | F | R | ELEMENT STATE (ON=1./OFF=0.)
61C MASSELE | 1 | F | R | ELEMENT (INITIAL) MASS
62C EINTELE | 1 | F | R | ELEMENT INTERNAL ENERGY
63C----------+---------+---+---+--------------------------------------------
64C NUVAR | 1 | I | R | NUMBER OF USER ELEMENT VARIABLES
65C UVAR |NUVAR | F |R/W| USER ELEMENT VARIABLES
66C | (FIX SIZE ZONE)
67C NUVARN | 1 | I | R | NUMBER OF USER ELEMENT VARIABLES PER NODE
68C UVARN |NUVARN*NX| F |R/W| USER ELEMENT VARIABLES PER NODE
69C | (NX DEPENDENT SIZE ZONE)
70C----------+---------+---+---+--------------------------------------------
71C-------------------------------------------------------------------------
72C FUNCTION
73C-------------------------------------------------------------------------
74C INTEGER II = GET_U_PNU(I,IP,KK)
75C IPROPI = GET_U_PNU(I,IP,KFUNC)
76C IMATI = GET_U_PNU(I,IP,KMAT)
77C I : VARIABLE INDEX(1 for first variable,...)
78C IP : PROPERTY NUMBER
79C KK : PARAMETER KFUNC,KMAT,KPROP
80C THIS FUNCTION RETURN THE USER STORED MATERIAL(IF KK=KMAT)
81C OR PROPERTY(IF KK=KPROP) NUMBER.
82C SEE LECG31 FOR CORRESPONDING ID STORAGE.
83C-------------------------------------------------------------------------
84C INTEGER IFUNCI = GET_U_MNU(I,IM,KFUNC)
85C I : VARIABLE INDEX(1 for first function)
86C IM : MATERIAL NUMBER
87C KFUNC : ONLY FUNCTION ARE YET AVAILABLE.
88C THIS FUNCTION RETURN THE USER STORED FUNCTION NUMBER(function
89C referred by users materials).
90C SEE LECM31 FOR CORRESPONDING ID STORAGE.
91C-------------------------------------------------------------------------
92C my_real PARAMI = GET_U_GEO(I,IP)
93C I : PARAMETER INDEX(1 for first parameter,...)
94C IP : PROPERTY NUMBER
95C THIS FUNCTION RETURN THE USER GEOMETRY PARAMETERS
96C NOTE: IF(IP==IPROP) UPARAG(I) == GET_U_GEO(I,IPROP)
97C-------------------------------------------------------------------------
98C my_real PARAMI = GET_U_MAT(I,IM)
99C I : PARAMETER INDEX(1 for first parameter,...)
100C IM : MATERIAL NUMBER
101C THIS FUNCTION RETURN THE USER MATERIAL PARAMETERS
102C NOTE: GET_U_MAT(0,IMAT) RETURN THE DENSITY
103C-------------------------------------------------------------------------
104C INTEGER PID = GET_U_PID(IP)
105C IP : PROPERTY NUMBER
106C THIS FUNCTION RETURN THE USER PROPERTY ID CORRESPONDING TO
107C USER PROPERTY NUMBER IP.
108C-------------------------------------------------------------------------
109C INTEGER MID = GET_U_MID(IM)
110C IM : MATERIAL NUMBER
111C THIS FUNCTION RETURN THE USER MATERIAL ID CORRESPONDING TO
112C USER MATERIAL NUMBER IM.
113C-------------------------------------------------------------------------
114C-----------------------------------------------
115C I m p l i c i t T y p e s
116C-----------------------------------------------
117#include "implicit_f.inc"
118C----------------------------------------------------------
119C 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
120C----------------------------------------------------------
121 INTEGER IOUT,NUVAR,NUVARN,IPROP,IMAT,
122 . NX ,UIX(NX) ,UID,
123 . NEDGE, NFACET, NSOLID,
124 . IXEDGE(2,*), IXFACET(4,*), IXSOLID(8,*),
125 . GET_U_PNU,GET_U_PID,GET_U_MID,GET_U_MNU,
126 . KMAT,KPROP
127 my_real
128 . xel(3,nx) , off, massele, eintele,
129 . xmassed(*), xmassfa(*), xmassso(*),
130 . xfunced(10,*), xfuncfa(10,*), xfuncso(10,*),
131 . uvar(nuvar),uvarn(nuvarn*nx),
132 . get_u_mat, get_u_geo
133 EXTERNAL get_u_mnu,get_u_pnu,get_u_mid,get_u_pid,
134 . get_u_mat,get_u_geo
135 parameter(kmat=31)
136 parameter(kprop=33)
137C=======================================================================
138 RETURN
139 END
get_u_mnu
integer function get_u_mnu(ivar, im, k)
Definition uaccess.F:565
xanim31
subroutine xanim31(nx, uix, uid, xel, iout, iprop, imat, off, massele, eintele, nedge, nfacet, nsolid, ixedge, ixfacet, ixsolid, xmassed, xmassfa, xmassso, xfunced, xfuncfa, xfuncso, nuvar, uvar, nuvarn, uvarn)
Definition xanim31.F:41