OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
i20main_crit_tri.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!|| i20main_crit_tri ../engine/source/interfaces/intsort/i20main_crit_tri.F
25!||--- called by ------------------------------------------------------
26!|| inttri ../engine/source/interfaces/intsort/inttri.f
27!||--- calls -----------------------------------------------------
28!|| i20buce_crit ../engine/source/interfaces/intsort/i20buce_crit.F
29!||--- uses -----------------------------------------------------
30!|| h3d_mod ../engine/share/modules/h3d_mod.F
31!|| intbufdef_mod ../common_source/modules/interfaces/intbufdef_mod.F90
32!||====================================================================
33 SUBROUTINE i20main_crit_tri(
34 1 IPARI ,X ,NIN ,
35 2 ITASK ,V ,XSLV_L ,XMSR_L ,VSLV_L ,
36 3 VMSR_L ,MS ,DXANCG ,IKINE ,DIAG_SMS,
37 4 INTBUF_TAB,H3D_DATA)
38C-----------------------------------------------
39C M o d u l e s
40C-----------------------------------------------
41 USE intbufdef_mod
42 USE h3d_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 "com04_c.inc"
51#include "com08_c.inc"
52#include "param_c.inc"
53C-----------------------------------------------
54C D u m m y A r g u m e n t s
55C-----------------------------------------------
56 INTEGER NIN,ITASK,I,
57 . IPARI(NPARI,NINTER), IKINE(NUMNOD)
58C REAL
59 my_real
60 . x(3,*), v(3,*),ms(*),dxancg(3,*),
61 . xslv_l(*), xmsr_l(*), vslv_l(*), vmsr_l(*),
62 . diag_sms(*)
63
64 TYPE(intbuf_struct_) INTBUF_TAB
65 TYPE (H3D_DATABASE) :: H3D_DATA
66C-----------------------------------------------
67C L o c a l V a r i a b l e s
68C-----------------------------------------------
69 INTEGER NLN
70C REAL
71 my_real
72 . STARTT, STOPT
73C-----------------------------------------------
74C S o u r c e L i n e s
75C-----------------------------------------------
76 INTEGER :: NMN,NRTM,NSN,NTY
77 INTEGER :: NLINSA,NLINMA,NSNE, NMNE,NLINS, NLINM
78C
79 NRTM =ipari(4,nin)
80 nsn =ipari(5,nin)
81 nmn =ipari(6,nin)
82 nty = ipari(7,nin)
83 nln =ipari(35,nin)
84 nlins =ipari(51,nin)
85 nlinm =ipari(52,nin)
86 nlinsa =ipari(53,nin)
87 nlinma =ipari(54,nin)
88 nsne =ipari(55,nin)
89 nmne =ipari(56,nin)
90
91 startt=intbuf_tab%VARIABLES(3)
92 stopt =intbuf_tab%VARIABLES(11)
93 IF(startt>tt) RETURN
94 IF(tt>stopt) RETURN
95C
96C
97 IF(intbuf_tab%VARIABLES(16)==zero)intbuf_tab%VARIABLES(16)=ep30
98 CALL i20buce_crit(
99 1 itask ,x ,v ,ms ,
100 2 nty ,nin ,ipari(22,nin),nsn ,
101 3 nmn ,intbuf_tab%NSV,intbuf_tab%MSR,intbuf_tab%XSAV,
102 4 intbuf_tab%STFA,xslv_l ,xmsr_l ,vslv_l ,
103 5 vmsr_l ,intbuf_tab%DAANC6,intbuf_tab%AVX_ANCR,intbuf_tab%AVX_ANCR(1+3*nln),
104 6 nsne ,nmne ,nlinsa ,nlinma ,
105 7 intbuf_tab%NSVL,intbuf_tab%MSRL,intbuf_tab%CRITX,intbuf_tab%PENISE,
106 8 intbuf_tab%PENIME,intbuf_tab%STFS,intbuf_tab%XA,intbuf_tab%VA,
107 9 ipari(35,nin),intbuf_tab%NLG,intbuf_tab%PENIS,intbuf_tab%PENIM,
108 a intbuf_tab%PENIA,nrtm ,intbuf_tab%IXLINS,dxancg ,
109 b ikine ,diag_sms ,intbuf_tab%ALPHAK,intbuf_tab%AVX_ANCR(1+6*nln) ,
110 c intbuf_tab%STFAC(1),h3d_data)
111
112 RETURN
113 END
i20buce_crit
subroutine i20buce_crit(itask, x, v, ms, nty, nin, inacti, nsn, nmn, nsv, msr, xsav, stfa, xslv_g, xmsr_g, vslv_g, vmsr_g, daanc6, dxanc, dvanc, nsne, nmne, nlinsa, nlinma, nsve, msre, xsave, penise, penime, stfes, xa, va, nln, nlg, penis, penim, penia, nrtm, ixlins, dxancg, ikine, diag_sms, alphak, daanc, stfac, h3d_data)
Definition i20buce_crit.F:46
i20main_crit_tri
subroutine i20main_crit_tri(ipari, x, nin, itask, v, xslv_l, xmsr_l, vslv_l, vmsr_l, ms, dxancg, ikine, diag_sms, intbuf_tab, h3d_data)
Definition i20main_crit_tri.F:38
inttri
subroutine inttri(timers, ipari, x, w, errors, v, ms, in, iad_elem, fr_elem, vr, isendto, irecvfrom, newfront, itask, wag, dt2t, itab, neltst, ityptst, weight, intlist, nbintc, kinet, dretri, islen7, irlen7, islen11, irlen11, temp, igrbric, igrsh3n, eminx, ixs, ixs16, ixs20, islen17, irlen17, irlen7t, islen7t, num_imp, ind_imp, intstamp, thknod, irlen20, islen20, irlen20t, islen20t, irlen20e, islen20e, renum, nsnfiold, xslv, xmsr, vslv, vmsr, size_t, nodnx_sms, dxancg, ikine, diag_sms, count_remslv, count_remslve, ale_connectivity, ixtg, sensors, delta_pmax_gap, intbuf_tab, delta_pmax_gap_node, iad_frnor, fr_nor, nb25_candt, nb25_impct, nb25_dst1, nb25_dst2, intlist25, iad_fredg, fr_edg, main_proc, nativ_sms, i_opt_stok, multi_fvm, iparg, elbuf_tab, h3d_data, t2main_sms, lskyi_sms_new, forneqs, int7itied, idel7nok_sav, maxdgap, t2fac_sms, icodt, iskew, fskyn25, addcsrect, procnor, inter_struct, sort_comm, renum_siz, nodnx_sms_siz, temp_siz, interfaces, glob_therm, component)
Definition inttri.F:133
h3d_mod
Definition h3d_mod.F:308