OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
i23main_opt_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!|| i23main_opt_tri ../engine/source/interfaces/intsort/i23main_opt_tri.F
25!||--- called by ------------------------------------------------------
26!|| inttri ../engine/source/interfaces/intsort/inttri.f
27!||--- calls -----------------------------------------------------
28!|| i23optcd ../engine/source/interfaces/int23/i23optcd.F
29!||--- uses -----------------------------------------------------
30!|| intbufdef_mod ../common_source/modules/interfaces/intbufdef_mod.F90
31!||====================================================================
32 SUBROUTINE i23main_opt_tri(
33 1 IPARI ,INTBUF_TAB ,NIN ,ITASK ,
34 2 COUNT_REMSLV,X )
35C-----------------------------------------------
36C M o d u l e s
37C-----------------------------------------------
38 USE intbufdef_mod
39C-----------------------------------------------
40C I m p l i c i t T y p e s
41C-----------------------------------------------
42#include "implicit_f.inc"
43#include "comlock.inc"
44C-----------------------------------------------
45C C o m m o n B l o c k s
46C-----------------------------------------------
47#include "com04_c.inc"
48#include "com08_c.inc"
49#include "param_c.inc"
50C-----------------------------------------------
51C D u m m y A r g u m e n t s
52C-----------------------------------------------
53 INTEGER IPARI(NPARI,NINTER), ITASK, NIN,
54 . COUNT_REMSLV(*)
55C REAL
56 my_real
57 . x(3,*)
58 TYPE(intbuf_struct_) INTBUF_TAB
59C-----------------------------------------------
60C L o c a l V a r i a b l e s
61C-----------------------------------------------
62 INTEGER INACTI, I_STOK, NSN
63C REAL
64 my_real
65 . startt,gap,stopt, gapmin
66C-----------------------------------------------
67C
68 nsn =ipari(5,nin)
69 inacti =ipari(22,nin)
70C
71 startt=intbuf_tab%VARIABLES(3)
72 stopt =intbuf_tab%VARIABLES(11)
73 IF(startt>tt) goto 999
74 IF(tt>stopt) goto 999
75C
76 gap =intbuf_tab%VARIABLES(2)
77 gapmin =intbuf_tab%VARIABLES(13)
78C
79C-----------------------------------------------------------
80C Filtrage des CANDIDATES a l'impact
81C (si candidat retenu, cand_n(i) = - cand_n(i))
82C-----------------------------------------------------------
83 i_stok = intbuf_tab%I_STOK(1)
84 CALL i23optcd(
85 1 intbuf_tab%CAND_E,intbuf_tab%CAND_N,x ,i_stok,intbuf_tab%IRECTM,
86 2gap ,intbuf_tab%GAP_S,ipari(21,nin),ipari(5,nin) ,intbuf_tab%STFNS,
87 3itask ,intbuf_tab%STFM,inacti ,intbuf_tab%FTSAVX,
88 4intbuf_tab%FTSAVY,intbuf_tab%FTSAVZ,intbuf_tab%CAND_P,nin ,intbuf_tab%VARIABLES(16),
89 5ipari(39,nin),count_remslv,intbuf_tab%GAP_M,
90 . intbuf_tab%MSR,intbuf_tab%NSV,
91 .gapmin)
92C-----------------------------------------------------------
93C
94 999 continue
95 RETURN
96 END
my_real
#define my_real
Definition cppsort.cpp:32
i23main_opt_tri
subroutine i23main_opt_tri(ipari, intbuf_tab, nin, itask, count_remslv, x)
Definition i23main_opt_tri.F:35
i23optcd
subroutine i23optcd(cand_e, cand_n, x, i_stok, irect, gap, gap_s, igap, nsn, stfn, itask, stf, inacti, ftxsav, ftysav, ftzsav, cand_p, nin, gapmax, icurv, count_remslv, gap_m, msr, nsv, gapmin)
Definition i23optcd.F:38
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