OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
i9wale.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!|| i9wale ../engine/source/interfaces/int09/i9wale.f
25!||--- called by ------------------------------------------------------
26!|| intal3 ../engine/source/ale/inter/intal3.F
27!||--- calls -----------------------------------------------------
28!|| i9wal2 ../engine/source/interfaces/int09/i9wal2.F
29!|| i9wal3 ../engine/source/interfaces/int09/i9wal3.F
30!||--- uses -----------------------------------------------------
31!|| elbufdef_mod ../common_source/modules/mat_elem/elbufdef_mod.F90
32!|| intbufdef_mod ../common_source/modules/interfaces/intbufdef_mod.F90
33!||====================================================================
34 SUBROUTINE i9wale(IPARI,INTBUF_TAB,X ,V ,
35 2 A ,VG ,ICODE ,ISKEW ,SKEW ,
36 3 IXS ,IXQ ,ELBUF_TAB,IPARG ,
37 4 PM ,NALE )
38C-----------------------------------------------
39C M o d u l e s
40C-----------------------------------------------
41 USE elbufdef_mod
42 USE intbufdef_mod
43C-----------------------------------------------
44C I m p l i c i t T y p e s
45C-----------------------------------------------
46#include "implicit_f.inc"
47C-----------------------------------------------
48C C o m m o n B l o c k s
49C-----------------------------------------------
50#include "com01_c.inc"
51#include "param_c.inc"
52C-----------------------------------------------
53C D u m m y A r g u m e n t s
54C-----------------------------------------------
55 INTEGER IPARI(*), ICODE(*), ISKEW(*) ,IXS(NIXS,*),
56 . IXQ(NIXQ,*),IPARG(NPARG,*),
57 . NALE(*)
58C REAL
59 my_real
60 . a(*), x(*), v(*), vg(*), skew(lskew,*),pm(npropm,*)
61 TYPE(elbuf_struct_), DIMENSION(NGROUP) :: ELBUF_TAB
62 TYPE(intbuf_struct_) INTBUF_TAB
63C-----------------------------------------------
64C L o c a l V a r i a b l e s
65C-----------------------------------------------
66 INTEGER INTTH, IEULT, ISIZES, ISIZEM
67 my_real
68 . UPW, STENS
69 INTEGER :: NRTS,NRTM,NMN,NSN
70C-----------------------------------------------
71C
72 nrts =ipari(3)
73 nrtm =ipari(4)
74 nsn =ipari(5)
75 nmn =ipari(6)
76 intth =ipari(12)
77 ieult =ipari(14)
78C
79 upw = intbuf_tab%VARIABLES(14)
80 stens = intbuf_tab%VARIABLES(15)
81 isizes = nrts
82 isizem = nrtm
83 IF(n2d==0)THEN
84 CALL i9wal3
85 1 (x ,v ,vg ,a ,intbuf_tab%CSTS,
86 2 intbuf_tab%NSV,intbuf_tab%ILOCS,intbuf_tab%IRTLM,icode ,iskew,
87 3 skew ,intbuf_tab%MSR,intbuf_tab%LNSV,intbuf_tab%NSEGS,intbuf_tab%IRECTS,
88 4 intbuf_tab%IRECTM,upw ,ixs ,elbuf_tab ,
89 5 iparg ,pm ,nale ,intbuf_tab%STFNS,intbuf_tab%IELES,
90 6 intbuf_tab%IELEM,intbuf_tab%STFAC(1),intth ,ieult ,stens ,
91 7 intbuf_tab%N,isizes ,isizem, nrts, nrtm, nsn,nmn )
92 ELSE
93 CALL i9wal2
94 1 (x ,v ,vg ,a ,intbuf_tab%CSTS,
95 2 intbuf_tab%NSV,intbuf_tab%ILOCS,intbuf_tab%IRTLM,icode ,iskew ,
96 3 skew ,intbuf_tab%MSR,intbuf_tab%LNSV,intbuf_tab%NSEGS,intbuf_tab%IRECTS,
97 4 intbuf_tab%IRECTM,upw ,ixq ,elbuf_tab ,
98 5 iparg ,pm ,nale ,intbuf_tab%STFNS,intbuf_tab%IELES,
99 6 intbuf_tab%IELEM,intbuf_tab%STFAC(1),intth ,ieult ,stens ,
100 7 isizes ,isizem, nrts,nrtm,nsn,nmn )
101 ENDIF
102C
103 RETURN
104 END
my_real
#define my_real
Definition cppsort.cpp:32
i9wal2
subroutine i9wal2(x, v, w, a, crst, nsv, iloc, irtl, icode, iskew, skew, msr, lmsr, nseg, irects, irect, upw, ixq, elbuf_tab, iparg, pm, nale, ee, ieles, ielem, tstif, intth, ieult, stens, isizes, isizem, nrts, nrtm, nsn, nmn)
Definition i9wal2.F:44
i9wal3
subroutine i9wal3(x, v, w, a, crst, nsv, iloc, irtl, icode, iskew, skew, msr, lmsr, nseg, irects, irect, upw, ixs, elbuf_tab, iparg, pm, nale, ee, ieles, ielem, tstif, intth, ieult, stens, nor, isizes, isizem, nrts, nrtm, nsn, nmn)
Definition i9wal3.F:45
i9wale
subroutine i9wale(ipari, intbuf_tab, x, v, a, vg, icode, iskew, skew, ixs, ixq, elbuf_tab, iparg, pm, nale)
Definition i9wale.F:38