OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
i9wale.F File Reference
#include "implicit_f.inc"
#include "com01_c.inc"
#include "param_c.inc"

Go to the source code of this file.

Functions/Subroutines

subroutine i9wale (ipari, intbuf_tab, x, v, a, vg, icode, iskew, skew, ixs, ixq, elbuf_tab, iparg, pm, nale)

Function/Subroutine Documentation

◆ i9wale()

subroutine i9wale ( integer, dimension(*) ipari,
type(intbuf_struct_) intbuf_tab,
x,
v,
a,
vg,
integer, dimension(*) icode,
integer, dimension(*) iskew,
skew,
integer, dimension(nixs,*) ixs,
integer, dimension(nixq,*) ixq,
type(elbuf_struct_), dimension(ngroup) elbuf_tab,
integer, dimension(nparg,*) iparg,
pm,
integer, dimension(*) nale )

Definition at line 34 of file i9wale.F.

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
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