OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
i5cork3.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!|| i5cork3 ../engine/source/interfaces/inter3d/i5cork3.F
25!||--- called by ------------------------------------------------------
26!|| i5ke3 ../engine/source/interfaces/inter3d/i5ke3.F
27!|| ud_int5 ../engine/source/implicit/upd_glob_k.f
28!||====================================================================
29 SUBROUTINE i5cork3(
30 1 X, IRECT, MSR, NSV,
31 2 IRTL, I_N, I_E, NSVG,
32 3 JX1, JX2, JX3, JX4,
33 4 X1, X2, X3, X4,
34 5 Y1, Y2, Y3, Y4,
35 6 Z1, Z2, Z3, Z4,
36 7 XFACE, XI, YI, ZI,
37 8 IX1, IX2, IX3, IX4,
38 9 LFT, LLT, NFT)
39C-----------------------------------------------
40C I m p l i c i t T y p e s
41C-----------------------------------------------
42#include "implicit_f.inc"
43C-----------------------------------------------
44C G l o b a l P a r a m e t e r s
45C-----------------------------------------------
46#include "mvsiz_p.inc"
47C-----------------------------------------------
48C D u m m y A r g u m e n t s
49C-----------------------------------------------
50 INTEGER, INTENT(INOUT) :: LFT
51 INTEGER, INTENT(INOUT) :: LLT
52 INTEGER, INTENT(IN) :: NFT
53 INTEGER IRECT(4,*), MSR(*), NSV(*), IRTL(*),I_N(*),I_E(*)
54 INTEGER JX1(MVSIZ), JX2(MVSIZ), JX3(MVSIZ), JX4(MVSIZ),
55 . NSVG(MVSIZ)
56 INTEGER, DIMENSION(MVSIZ), INTENT(OUT) :: IX1,IX2,IX3,IX4
57C REAL
58 my_real
59 . x(3,*)
60 my_real, DIMENSION(MVSIZ), INTENT(OUT) :: x1,x2,x3,x4
61 my_real, DIMENSION(MVSIZ), INTENT(OUT) :: y1,y2,y3,y4
62 my_real, DIMENSION(MVSIZ), INTENT(OUT) :: z1,z2,z3,z4
63 my_real, DIMENSION(MVSIZ), INTENT(OUT) :: xface,xi,yi,zi
64C-----------------------------------------------
65C C o m m o n B l o c k s
66C-----------------------------------------------
67C-----------------------------------------------
68C L o c a l V a r i a b l e s
69C-----------------------------------------------
70 INTEGER I, IL, IG, L, NN
71C REAL
72C-----------------------------------------------
73 DO 100 i=lft,llt
74 il=i_n(i)
75 ig=nsv(il)
76 nsvg(i)=ig
77 xi(i)=x(1,ig)
78 yi(i)=x(2,ig)
79 zi(i)=x(3,ig)
80 l=i_e(i)
81 xface(i)=one
82C
83 nn=msr(irect(1,l))
84 ix1(i)=nn
85 x1(i)=x(1,nn)
86 y1(i)=x(2,nn)
87 z1(i)=x(3,nn)
88C
89 nn=msr(irect(2,l))
90 ix2(i)=nn
91 x2(i)=x(1,nn)
92 y2(i)=x(2,nn)
93 z2(i)=x(3,nn)
94C
95 nn=msr(irect(3,l))
96 ix3(i)=nn
97 x3(i)=x(1,nn)
98 y3(i)=x(2,nn)
99 z3(i)=x(3,nn)
100C
101 nn=msr(irect(4,l))
102 ix4(i)=nn
103 x4(i)=x(1,nn)
104 y4(i)=x(2,nn)
105 z4(i)=x(3,nn)
106C
107 jx1(i)=ix1(i)
108 jx2(i)=ix2(i)
109 jx3(i)=ix3(i)
110 jx4(i)=ix4(i)
111 100 CONTINUE
112C
113 RETURN
114 END
my_real
#define my_real
Definition cppsort.cpp:32
i5cork3
subroutine i5cork3(x, irect, msr, nsv, irtl, i_n, i_e, nsvg, jx1, jx2, jx3, jx4, x1, x2, x3, x4, y1, y2, y3, y4, z1, z2, z3, z4, xface, xi, yi, zi, ix1, ix2, ix3, ix4, lft, llt, nft)
Definition i5cork3.F:39
ud_int5
subroutine ud_int5(ipari, intbuf_tab, x, num_imp, cand_n, cand_e, ud)
Definition upd_glob_k.F:1541
upd_glob_k
subroutine upd_glob_k(icodt, icodr, iskew, ibfv, npc, tf, vel, xframe, rby, x, skew, lpby, npby, itab, weight, ms, in, nrbyac, irbyac, nsc, isij, nmc, imij, nss, iss, nint2, iint2, nsc2, isij2, nss2, iss2, ipari, intbuf_tab, nddl, nnz, iadk, jdik, diag_k, lt_k, ndof, iddl, ikc, ud, b, nkud, ikud, bkud, nmc2, imij2, nt_rw, rd, lj, irbe3, lrbe3, frbe3, iss3, irbe2, lrbe2, isb2, nsrb2)
Definition upd_glob_k.F:66