OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
i1tid3.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!|| i1tid3 ../starter/source/interfaces/inter3d1/i1tid3.F
25!||--- called by ------------------------------------------------------
26!|| inint3 ../starter/source/interfaces/inter3d1/inint3.f
27!||--- calls -----------------------------------------------------
28!|| ancmsg ../starter/source/output/message/message.F
29!|| inist3 ../starter/source/interfaces/inter3d1/inist3.F
30!|| kinset ../starter/source/constraints/general/kinset.F
31!||--- uses -----------------------------------------------------
32!|| format_mod ../starter/share/modules1/format_mod.F90
33!|| message_mod ../starter/share/message_module/message_mod.F
34!||====================================================================
35 SUBROUTINE i1tid3(X ,IRECT,CRST ,MSR ,NSV,
36 1 ILOC ,IRTL ,NSN ,ITAB ,IKINE,
37 2 IKINE1,ID ,TITR ,ILEV ,NTY, CSTS_BIS)
38C-----------------------------------------------
39C D e s c r i p t i o n
40C-----------------------------------------------
41C INTERFACE TIED CALCULATION DE S,T
42C-----------------------------------------------
43C M o d u l e s
44C-----------------------------------------------
45 USE message_mod
46 USE format_mod , ONLY : fmw_7i_2f
47 USE names_and_titles_mod , ONLY : nchartitle
48C-----------------------------------------------
49C I m p l i c i t T y p e s
50C-----------------------------------------------
51#include "implicit_f.inc"
52C-----------------------------------------------
53C C o m m o n B l o c k s
54C-----------------------------------------------
55#include "units_c.inc"
56#include "scr03_c.inc"
57C-----------------------------------------------
58C D u m m y A r g u m e n t s
59C-----------------------------------------------
60 INTEGER NSN
61 INTEGER IRECT(4,*), MSR(*), NSV(*), ILOC(*), IRTL(*), ITAB(*),IKINE(*),IKINE1(*),ILEV,NTY
62 my_real x(3,*), crst(2,*), csts_bis(2,*)
63 INTEGER ID
64 CHARACTER(LEN=NCHARTITLE) :: TITR
65C-----------------------------------------------
66C L o c a l V a r i a b l e s
67C-----------------------------------------------
68 INTEGER II, I, J, K, L, JJ, NN, IER
69 my_real
70 . n1, n2, n3, ss, tt, alp
71 my_real :: xx1(4),xx2(4),xx3(4),xs1,ys1,zs1,xc,yc,zc
72C-----------------------------------------------
73C S o u r c e L i n e s
74C-----------------------------------------------
75 alp = twoem2
76 DO ii=1,nsn
77 i=nsv(ii)
78 IF ((nty==1).OR.((nty==2).AND.(ilev /= 25 .and. ilev /= 26 .and. ilev /= 27 .and. ilev /= 28))) THEN
79 CALL kinset(2,itab(i),ikine(i),1,0,ikine1(i))
80 CALL kinset(2,itab(i),ikine(i),2,0,ikine1(i))
81 CALL kinset(2,itab(i),ikine(i),3,0,ikine1(i))
82 CALL kinset(2,itab(i),ikine(i),4,0,ikine1(i))
83 CALL kinset(2,itab(i),ikine(i),5,0,ikine1(i))
84 CALL kinset(2,itab(i),ikine(i),6,0,ikine1(i))
85 ENDIF
86 j=iloc(ii)
87 k=msr(j)
88 l=irtl(ii)
89 DO jj=1,4
90 nn=msr(irect(jj,l))
91 xx1(jj)=x(1,nn)
92 xx2(jj)=x(2,nn)
93 xx3(jj)=x(3,nn)
94 ENDDO
95 xs1=x(1,i)
96 ys1=x(2,i)
97 zs1=x(3,i)
98 CALL inist3(n1,n2,n3,ss,tt,ier,alp,xx1,xx2,xx3,xs1,ys1,zs1,xc,yc,zc)
99 IF(ipri>=1)WRITE(iout,fmt=fmw_7i_2f)
100 . itab(i),itab(k),
101 . l,(itab(msr(irect(jj,l))),jj=1,4),ss,tt
102 IF(ier==-1)THEN
103 CALL ancmsg(msgid=85,
104 . msgtype=msgerror,
105 . anmode=aninfo,
106 . i1=id,
107 . c1=titr,
108 . i2=itab(i),
109 . i3=itab(k),
110 . i4=l,
111 . i5=itab(nsv(irect(1,l))),
112 . i6=itab(nsv(irect(2,l))),
113 . i7=itab(nsv(irect(3,l))),
114 . i8=itab(nsv(irect(4,l))))
115 ELSE IF(ier==1)THEN
116 CALL ancmsg(msgid=86,
117 . msgtype=msgwarning,
118 . anmode=aninfo_blind_2,
119 . i1=id,
120 . c1=titr,
121 . i2=itab(i),
122 . i3=itab(k),
123 . i4=l,
124 . i5=itab(msr(irect(1,l))),
125 . i6=itab(msr(irect(2,l))),
126 . i7=itab(msr(irect(3,l))),
127 . i8=itab(msr(irect(4,l))),
128 . r1=ss,
129 . r2=tt)
130 ENDIF
131 crst(1,ii)=ss
132 crst(2,ii)=tt
133 IF (nty == 2) THEN
134 csts_bis(1,ii)=ss
135 csts_bis(2,ii)=tt
136 ENDIF
137 enddo!next II
138C-----------------------------------------------
139 RETURN
140 END
my_real
#define my_real
Definition cppsort.cpp:32
i1tid3
subroutine i1tid3(x, irect, crst, msr, nsv, iloc, irtl, nsn, itab, ikine, ikine1, id, titr, ilev, nty, csts_bis)
Definition i1tid3.F:38
inint3
subroutine inint3(inscr, x, ixs, ixc, pm, geo, ipari, nin, itab, ms, mwa, rwa, ixtg, iwrn, ikine, ixt, ixp, ixr, nelemint, iddlevel, ifiend, ale_connectivity, nsnet, nmnet, igrbric, iwcont, nsnt, nmnt, nsn2t, nmn2t, iwcin2, knod2els, knod2elc, knod2eltg, nod2els, nod2elc, nod2eltg, igrsurf, ikine1, ielem21, sh4tree, sh3tree, ipart, ipartc, iparttg, thk, thk_part, nod2el1d, knod2el1d, ixs10, i_mem, resort, inter_cand, ixs16, ixs20, id, titr, iremnode, nremnode, iparts, kxx, ixx, igeo, intercep, lelx, intbuf_tab, fillsol, stack, iworksh, kxig3d, ixig3d, tagprt_fric, intbuf_fric_tab, ipartt, ipartp, ipartx, ipartr, nsn_multi_connec, t2_add_connec, t2_nb_connec, t2_connec, nom_opt, icode, iskew, iremnode_edg, s_append_array, x_append, mass_append, n2d, flag_removed_node, nspmd, inter_type2_number, elem_linked_to_segment, sinscr, sicode, sitab, nin25, flag_elem_inter25, multi_fvm, iresp)
Definition inint3.F:147
inist3
subroutine inist3(n1, n2, n3, ssc, ttc, ier, alp, xx1, xx2, xx3, xs1, ys1, zs1, xc, yc, zc)
Definition inist3.F:33
kinset
subroutine kinset(ik, node, ikine, idir, isk, ikine1)
Definition kinset.F:57
message_mod
Definition message_mod.F:1257
names_and_titles_mod
Definition names_and_titles_mod.F:1002
names_and_titles_mod::nchartitle
integer, parameter nchartitle
Definition names_and_titles_mod.F:1008
ancmsg
subroutine ancmsg(msgid, msgtype, anmode, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, r1, r2, r3, r4, r5, r6, r7, r8, r9, c1, c2, c3, c4, c5, c6, c7, c8, c9, prmode)
Definition message.F:895
starter
program starter
Definition starter.F:39