OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
i25main_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!|| i25main_crit_tri ../engine/source/interfaces/intsort/i25main_crit_tri.f
25!||--- called by ------------------------------------------------------
26!|| inttri ../engine/source/interfaces/intsort/inttri.f
27!||--- calls -----------------------------------------------------
28!|| i25buce_crit ../engine/source/interfaces/intsort/i25buce_crit.F
29!||--- uses -----------------------------------------------------
30!|| intbufdef_mod ../common_source/modules/interfaces/intbufdef_mod.F90
31!||====================================================================
32 SUBROUTINE i25main_crit_tri(
33 1 IPARI ,INTBUF_TAB ,X ,NIN ,
34 2 ITASK ,V ,XSLV_L ,XMSR_L ,VSLV_L ,
35 3 VMSR_L ,DELTA_PMAX_GAP,DELTA_PMAX_DGAP,
36 4 DELTA_PMAX_GAP_NODE,ITAB)
37C-----------------------------------------------
38C M o d u l e s
39C-----------------------------------------------
40 USE intbufdef_mod
41C-----------------------------------------------
42C I m p l i c i t T y p e s
43C-----------------------------------------------
44#include "implicit_f.inc"
45C-----------------------------------------------
46C C o m m o n B l o c k s
47C-----------------------------------------------
48#include "com04_c.inc"
49#include "com08_c.inc"
50#include "param_c.inc"
51C-----------------------------------------------
52C D u m m y A r g u m e n t s
53C-----------------------------------------------
54 INTEGER NIN,ITASK,
55 . IPARI(NPARI,NINTER),DELTA_PMAX_GAP_NODE,ITAB(*)
56C REAL
57 my_real
58 . x(3,*), v(3,*),delta_pmax_gap,
59 . xslv_l(*), xmsr_l(*), vslv_l(*), vmsr_l(*),
60 . delta_pmax_dgap
61 TYPE(intbuf_struct_) INTBUF_TAB
62C-----------------------------------------------
63C L o c a l V a r i a b l e s
64C-----------------------------------------------
65 my_real
66 . stopt
67 INTEGER :: ISENS, NMN, NSN
68C-----------------------------------------------
69C S o u r c e L i n e s
70C-----------------------------------------------
71C
72 nsn =ipari(5,nin)
73 nmn =ipari(6,nin)
74C
75 isens = ipari(64,nin)
76 IF(isens == 0) THEN
77 stopt =intbuf_tab%VARIABLES(11)
78 IF(tt > stopt) RETURN
79 ENDIF
80
81 CALL i25buce_crit(
82 1 x ,intbuf_tab%NSV,intbuf_tab%MSR,nsn ,nmn ,
83 2 itask ,intbuf_tab%XSAV,nin ,intbuf_tab%STFNS,v ,
84 3 xslv_l ,xmsr_l ,vslv_l ,vmsr_l )
85C
86 RETURN
87 END
i25buce_crit
subroutine i25buce_crit(x, nsv, msr, nsn, nmn, itask, xsav, nin, stfn, v, xslv_g, xmsr_g, vslv_g, vmsr_g)
Definition i25buce_crit.F:32
i25main_crit_tri
subroutine i25main_crit_tri(ipari, intbuf_tab, x, nin, itask, v, xslv_l, xmsr_l, vslv_l, vmsr_l, delta_pmax_gap, delta_pmax_dgap, delta_pmax_gap_node, itab)
Definition i25main_crit_tri.F:37
inttri
subroutine inttri(output, 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:135