OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
i7cor3.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!|| i7cor3 ../starter/source/interfaces/inter3d1/i7cor3.F
25!||--- called by ------------------------------------------------------
26!|| i20ini3 ../starter/source/interfaces/inter3d1/i20ini3.F
27!|| i24buc1 ../starter/source/interfaces/inter3d1/i24buc1.F
28!|| i24tri ../starter/source/interfaces/inter3d1/i24tri.F
29!|| i7buc1 ../starter/source/interfaces/inter3d1/i7buc1.f
30!|| i7tri ../starter/source/interfaces/inter3d1/i7tri.F
31!|| i7trivox1 ../starter/source/interfaces/inter3d1/i7trivox1.F
32!|| inint3 ../starter/source/interfaces/inter3d1/inint3.F
33!||====================================================================
34 SUBROUTINE i7cor3(X ,IRECT ,NSV ,CAND_E ,CAND_N,
35 2 STF ,STFN ,GAPV ,IGAP ,GAP ,
36 3 GAP_S ,GAP_M ,ISTF ,GAPMIN ,GAPMAX,
37 4 GAP_S_L,GAP_M_L,DRAD,IX1 ,IX2 ,
38 5 IX3 ,IX4 ,NSVG,X1 ,X2 ,
39 6 X3 ,X4 ,Y1 ,Y2 ,Y3 ,
40 7 Y4 ,Z1 ,Z2 ,Z3 ,Z4 ,
41 8 XI ,YI ,ZI ,STIF ,DGAPLOAD,
42 9 LAST)
43C============================================================================
44C-----------------------------------------------
45C I m p l i c i t T y p e s
46C-----------------------------------------------
47#include "implicit_f.inc"
48C-----------------------------------------------
49C G l o b a l P a r a m e t e r s
50C-----------------------------------------------
51#include "mvsiz_p.inc"
52C-----------------------------------------------
53C D u m m y A r g u m e n t s
54C-----------------------------------------------
55 INTEGER IGAP, IRECT(4,*), NSV(*), CAND_E(*), CAND_N(*),ISTF
56 INTEGER, INTENT(IN) :: LAST !< last candidate
57C REAL
58 my_real
59 . GAP, GAPMIN, GAPMAX,DRAD
60 my_real , INTENT(IN) :: DGAPLOAD
61 my_real
62 . X(3,*), STF(*), STFN(*), GAPV(*), GAP_S(*), GAP_M(*),
63 . gap_s_l(*), gap_m_l(*)
64 INTEGER, DIMENSION(MVSIZ), INTENT(INOUT) :: IX1,IX2,IX3,IX4,NSVG
65 my_real, DIMENSION(MVSIZ), INTENT(INOUT) :: X1,X2,X3,X4
66 my_real, DIMENSION(MVSIZ), INTENT(INOUT) :: y1,y2,y3,y4
67 my_real, DIMENSION(MVSIZ), INTENT(INOUT) :: z1,z2,z3,z4
68 my_real, DIMENSION(MVSIZ), INTENT(OUT) :: xi,yi,zi
69 my_real, DIMENSION(MVSIZ), INTENT(INOUT) :: stif
70C-----------------------------------------------
71C L o c a l V a r i a b l e s
72C-----------------------------------------------
73 INTEGER I, L, NN, IG
74C REAL
75C-----------------------------------------------
76C
77 DO i=1,last
78 ig = nsv(cand_n(i))
79 nsvg(i) = ig
80 xi(i) = x(1,ig)
81 yi(i) = x(2,ig)
82 zi(i) = x(3,ig)
83 ENDDO
84C
85 IF(igap==0)THEN
86 DO i=1,last
87 gapv(i) = max(gap+dgapload,drad)
88 ENDDO
89 ELSE
90 DO i=1,last
91 gapv(i) = gap_s(cand_n(i))+gap_m(cand_e(i))
92 IF(igap == 3)
93 . gapv(i)=min(gap_s_l(cand_n(i))+gap_m_l(cand_e(i)),gapv(i))
94 gapv(i) = min(gapmax,gapv(i))
95 gapv(i) = max(gapmin,gapv(i))
96C
97 gapv(i) = max(drad,gapv(i)+dgapload)
98 ENDDO
99 ENDIF
100C
101 IF(istf/=0)THEN
102 DO i=1,last
103 stif(i)=stf(cand_e(i))*stfn(cand_n(i))
104 ENDDO
105 ENDIF
106C
107 DO i=1,last
108C
109 l = cand_e(i)
110C
111 ix1(i)=irect(1,l)
112 ix2(i)=irect(2,l)
113 ix3(i)=irect(3,l)
114 ix4(i)=irect(4,l)
115C
116 ENDDO
117C
118 DO i=1,last
119C
120 nn=ix1(i)
121 x1(i)=x(1,nn)
122 y1(i)=x(2,nn)
123 z1(i)=x(3,nn)
124C
125 nn=ix2(i)
126 x2(i)=x(1,nn)
127 y2(i)=x(2,nn)
128 z2(i)=x(3,nn)
129C
130 nn=ix3(i)
131 x3(i)=x(1,nn)
132 y3(i)=x(2,nn)
133 z3(i)=x(3,nn)
134C
135 nn=ix4(i)
136 x4(i)=x(1,nn)
137 y4(i)=x(2,nn)
138 z4(i)=x(3,nn)
139C
140 ENDDO
141C
142 RETURN
143 END
i7buc1
subroutine i7buc1(x, irect, nsv, bumult, nseg, nmn, nrtm, mwa, nsn, cand_e, cand_n, gap, xyzm, noint, i_stok, dist, tzinf, maxbox, minbox, msr, stf, stfn, multimp, istf, iddlevel, itab, gap_s, gap_m, igap, gapmin, gapmax, inacti, gap_s_l, gap_m_l, i_mem, id, titr, it19, prov_n, prov_e, nsvg, ix1, ix2, ix3, ix4, n11, n12, n13, pene, x1, x2, x3, x4, y1, y2, y3, y4, z1, z2, z3, z4, xi, yi, zi, x0, y0, z0, nx1, ny1, nz1, nx2, ny2, nz2, nx3, ny3, nz3, nx4, ny4, nz4, p1, p2, p3, p4, lb1, lb2, lb3, lb4, lc1, lc2, lc3, lc4, stif)
Definition i7buc1.F:58
min
#define min(a, b)
Definition macros.h:20
max
#define max(a, b)
Definition macros.h:21
i7cor3
subroutine i7cor3(x, irect, nsv, cand_e, cand_n, stf, stfn, gapv, igap, gap, gap_s, gap_m, istf, gapmin, gapmax, gap_s_l, gap_m_l, drad, ix1, ix2, ix3, ix4, nsvg, x1, x2, x3, x4, y1, y2, y3, y4, z1, z2, z3, z4, xi, yi, zi, stif, dgapload, last)
Definition i7cor3.F:43
starter
program starter
Definition starter.F:39