OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
i21tri.F File Reference
#include "implicit_f.inc"
#include "mvsiz_p.inc"
#include "com01_c.inc"
#include "com04_c.inc"
#include "param_c.inc"
#include "vect07_c.inc"

Go to the source code of this file.

Functions/Subroutines

subroutine i21tri (bpe, pe, bpn, pn, add, irect, x, nb_nc, nb_ec, xyzm, i_add, nsv, i_amax, xmax, ymax, zmax, maxsiz, i_stok, i_mem, nb_n_b, cand_n, cand_e, nsn, noint, tzinf, maxbox, minbox, j_stok, msr, xm0, multimp, itab, gap, gap_s, igap, gapmin, gapmax, marge, depth, drad, id, titr, ix1, ix2, ix3, ix4, nsvg, x1, x2, x3, x4, y1, y2, y3, y4, z1, z2, z3, z4, xi, yi, zi, x0, y0, z0, stif, nx1, ny1, nz1, nx2, ny2, nz2, nx3, ny3, nz3, nx4, ny4, nz4, p1, p2, p3, p4, lb1, lb2, lb3, lb4, lc1, lc2, lc3, lc4, pene, prov_n, prov_e, n11, n21, n31, dgapload)

Function/Subroutine Documentation

◆ i21tri()

subroutine i21tri ( integer, dimension(*) bpe,
integer, dimension(*) pe,
integer, dimension(*) bpn,
integer, dimension(*) pn,
integer, dimension(2,0:*) add,
integer, dimension(4,*) irect,
x,
integer nb_nc,
integer nb_ec,
xyzm,
integer i_add,
integer, dimension(*) nsv,
integer i_amax,
xmax,
ymax,
zmax,
integer maxsiz,
integer i_stok,
integer i_mem,
integer nb_n_b,
integer, dimension(*) cand_n,
integer, dimension(*) cand_e,
integer nsn,
integer noint,
tzinf,
maxbox,
minbox,
integer j_stok,
integer, dimension(*) msr,
xm0,
integer multimp,
integer, dimension(*) itab,
gap,
gap_s,
integer igap,
gapmin,
gapmax,
marge,
depth,
drad,
integer id,
character(len=nchartitle) titr,
integer, dimension(mvsiz), intent(inout) ix1,
integer, dimension(mvsiz), intent(inout) ix2,
integer, dimension(mvsiz), intent(inout) ix3,
integer, dimension(mvsiz), intent(inout) ix4,
integer, dimension(mvsiz), intent(inout) nsvg,
intent(inout) x1,
intent(inout) x2,
intent(inout) x3,
intent(inout) x4,
intent(inout) y1,
intent(inout) y2,
intent(inout) y3,
intent(inout) y4,
intent(inout) z1,
intent(inout) z2,
intent(inout) z3,
intent(inout) z4,
intent(inout) xi,
intent(inout) yi,
intent(inout) zi,
intent(inout) x0,
intent(inout) y0,
intent(inout) z0,
intent(inout) stif,
intent(inout) nx1,
intent(inout) ny1,
intent(inout) nz1,
intent(inout) nx2,
intent(inout) ny2,
intent(inout) nz2,
intent(inout) nx3,
intent(inout) ny3,
intent(inout) nz3,
intent(inout) nx4,
intent(inout) ny4,
intent(inout) nz4,
intent(inout) p1,
intent(inout) p2,
intent(inout) p3,
intent(inout) p4,
intent(inout) lb1,
intent(inout) lb2,
intent(inout) lb3,
intent(inout) lb4,
intent(inout) lc1,
intent(inout) lc2,
intent(inout) lc3,
intent(inout) lc4,
intent(inout) pene,
integer, dimension(mvsiz), intent(inout) prov_n,
integer, dimension(mvsiz), intent(inout) prov_e,
intent(inout) n11,
intent(inout) n21,
intent(inout) n31,
intent(in) dgapload )

Definition at line 37 of file i21tri.F.

58 USE message_mod
59 USE names_and_titles_mod , ONLY : nchartitle
60C-----------------------------------------------
61C I m p l i c i t T y p e s
62C-----------------------------------------------
63#include "implicit_f.inc"
64C-----------------------------------------------
65C G l o b a l P a r a m e t e r s
66C-----------------------------------------------
67#include "mvsiz_p.inc"
68C-----------------------------------------------
69C C o m m o n B l o c k s
70C-----------------------------------------------
71#include "com01_c.inc"
72#include "com04_c.inc"
73#include "param_c.inc"
74#include "vect07_c.inc"
75C-----------------------------------------------
76C D u m m y A r g u m e n t s
77C-----------------------------------------------
78 INTEGER NB_NC,NB_EC,I_ADD,MAXSIZ,I_STOK,J_STOK,I_MEM
79 INTEGER I_BID, I_AMAX,NB_N_B, NOINT, NSN,MULTIMP, IGAP
80 INTEGER ADD(2,0:*),IRECT(4,*),BPE(*),PE(*),BPN(*),PN(*)
81 INTEGER NSV(*),CAND_N(*),CAND_E(*), ITAB(*), MSR(*)
82 INTEGER, DIMENSION(MVSIZ), INTENT(INOUT) ::PROV_N,PROV_E
83 INTEGER, DIMENSION(MVSIZ), INTENT(INOUT) :: IX1,IX2,IX3,IX4,NSVG
84 my_real, DIMENSION(MVSIZ), INTENT(INOUT) :: x1,x2,x3,x4
85 my_real, DIMENSION(MVSIZ), INTENT(INOUT) :: y1,y2,y3,y4
86 my_real, DIMENSION(MVSIZ), INTENT(INOUT) :: z1,z2,z3,z4
87 my_real, DIMENSION(MVSIZ), INTENT(INOUT) :: xi,yi,zi
88 my_real, DIMENSION(MVSIZ), INTENT(INOUT) :: x0,y0,z0,stif
89 my_real, DIMENSION(MVSIZ), INTENT(INOUT) :: n11,n21,n31,pene
90 my_real, DIMENSION(MVSIZ), INTENT(INOUT) :: nx1,ny1,nz1
91 my_real, DIMENSION(MVSIZ), INTENT(INOUT) :: nx2,ny2,nz2
92 my_real, DIMENSION(MVSIZ), INTENT(INOUT) :: nx3,ny3,nz3
93 my_real, DIMENSION(MVSIZ), INTENT(INOUT) :: nx4,ny4,nz4
94 my_real, DIMENSION(MVSIZ), INTENT(INOUT) :: p1,p2,p3,p4
95 my_real, DIMENSION(MVSIZ), INTENT(INOUT) :: lb1,lb2,lb3,lb4
96 my_real, DIMENSION(MVSIZ), INTENT(INOUT) :: lc1,lc2,lc3,lc4
97C REAL
98 my_real
99 . x(3,*),xyzm(6,*),tzinf,
100 . maxbox,minbox, xmax, ymax, zmax,
101 . gap, gap_s(*),
102 . gapmin, gapmax, marge, gapsmx, bgapsmx, depth, xm0(3,*), drad
103 my_real , INTENT(IN) :: dgapload
104 INTEGER ID
105 CHARACTER(LEN=NCHARTITLE) :: TITR
106C-----------------------------------------------
107C L o c a l V a r i a b l e s
108C-----------------------------------------------
109 INTEGER NB_NCN, NB_ECN, ADDNN, ADDNE, I, J
110 INTEGER INF,SUP,DIR,N1,N2,N3,N4,NN,NE
111C REAL
112 my_real
113 . dx,dy,dz,dsup,seuil,xmx,xmn,
114 . gapv(mvsiz)
115C-----------------------------------------------
116C ROLE OF THE ROUTINE:
117C ===================
118C CLASSIFIES BPE ELEMENTS AND BPN NODES INTO TWO ZONES
119C > OR < TO A HERE DEFINED BOUNDARY AND OUTPUTS EVERYTHING
120C INTO bpe,hpe, and bpn,hpn
121C-----------------------------------------------
122C D u m m y A r g u m e n t s
123C
124C NOM DESCRIPTION E/S
125C
126C BPE ARRAY OF FACETTES TO SORT E/S
127C AND OF THE RESULT ON THE MAX SIDE
128C PE ARRAY OF FACETTES S
129C RESULTAT COTE MIN
130C BPN SORTED NODES ARRAY E/S
131C AND OF THE RESULT ON THE MAX SIDE
132C PN NODES ARRAY S
133C RESULTAT COTE MIN
134C ADD(2,*) ARRAY OF ADRESSES E/S
135C 1.......ADRESSES NODES C 2.......ADRESSES ELEMENTS
136C ZYZM(6,*) ARRAY OF XYZMIN E/S
137C 1.......XMIN BOITE
138C 2.......YMIN BOITE
139C 3.......ZMIN BOITE
140C 4.......XMAX BOITE
141C 5.......YMAX BOITE
142C 6.......ZMAX BOITE
143C IRECT(4,*) ARRAY OF CONEC FACETTES E
144C X(3,*) COORDONNEES NODALES E
145C NB_NC NUMBER OF CANDIDATE NODES E/S
146C NB_EC NUMBER OF CANDIDATE ELEMENTS E/S
147C I_ADD POSITION IN THE E/S ADDRESS TABLE
148C NSV NOS SYSTEMES DES NODES E
149C Xmax larger abcisse existing e
150C XMAX largest order.existing E
151C Xmax larger existing side E
152C MAXSIZ TAILLE MEMOIRE MAX POSSIBLE E
153C I_STOK storage level of pairs
154C CANDIDATES impact E/S
155C CAND_N boites resultats nodes C CAND_E adresses des boites resultat elements
156C MULTIMP*NSN MAX SIZE NOW ALLOWED FOR THE
157C COUPLES NODES,ELT CANDIDATES
158C NOINT INTERFACE USER NUMBER
159C TZINF TAILLE ZONE INFLUENCE
160C MAXBOX TAILLE MAX BUCKET
161C MINBOX TAILLE MIN BUCKET
162C=======================================================================
163C
164C
165C 1- TEST ARRET = BOITE VIDE
166C BOITE TROP PETITE
167C BOITE NE CONTENANT QU'ONE NODE C NO MORE MEMORY AVAILABLE
168C
169C-----------------------------------------------------------
170C
171C IF(MEMX>ADD(2,1)+NB_EC)THEN
172C WRITE(ISTDO,*)' *******MEM MAX=',MEMX
173C MEMX=-1
174C ELSEIF(MEMX/=-1)THEN
175C MEMX=ADD(2,1)+NB_EC
176C ENDIF
177C--------------------TEST ON EMPTY BOXES--------------
178C
179 IF(nb_ec==0.OR.nb_nc==0) THEN
180C write(6,*)" BOITE VIDE"
181C MUST COPY THE BOTTOMS OF THE STACKS INTO CORRESPONDING BAS_DE_PILE
182C BEFORE DESCENDING AGAIN INTO THE MIDDLE BRANCH
183 CALL i7dstk(i_add,nb_nc,nb_ec,add,bpn,pn,bpe,pe)
184 RETURN
185 ENDIF
186C
187C-------------------TEST ON END OF BRANCH / MEMORY OVERFLOW------------
188C
189 dx = xyzm(4,i_add) - xyzm(1,i_add)
190 dy = xyzm(5,i_add) - xyzm(2,i_add)
191 dz = xyzm(6,i_add) - xyzm(3,i_add)
192 dsup= max(dx,dy,dz)
193C
194 IF(add(2,1)+nb_ec>=maxsiz) THEN
195C NO MORE SPACE IN THE BOXED ELEMENTS STACK, BOXES TOO SMALL
196 IF ( nb_n_b == numnod) THEN
197C WRITE(IOUT,*)'***ERROR INFINITE LOOP DETECTED '
198C WRITE(ISTDO,*)'***ERROR INFINITE LOOP DETECTED '
199C CALL ARRET(2)
200 IF (istamping == 1) THEN
201 CALL ancmsg(msgid=775,
202 . msgtype=msgerror,
203 . anmode=aninfo,
204 . i1=id,
205 . c1=titr)
206 ELSE
207 CALL ancmsg(msgid=685,
208 . msgtype=msgerror,
209 . anmode=aninfo,
210 . i1=id,
211 . c1=titr)
212 ENDIF
213 ENDIF
214 i_mem = 1
215 RETURN
216 ENDIF
217 IF(dsup<minbox.OR.
218 . nb_nc<=nb_n_b.AND.dsup<maxbox.OR.
219 . nb_nc<=nb_n_b.AND.nb_ec==1) THEN
220C
221C write(6,*)" NOUVELLE BOITE "
222C 1- STORAGE OF THE CANDIDATE NODE(S) AND CORRESPONDING ELEMENTS
223C REMOVE THE USELESS ONES
224 DO 20 i=1,nb_ec
225 ne = bpe(i)
226 n1=msr(irect(1,ne))
227 n2=msr(irect(2,ne))
228 n3=msr(irect(3,ne))
229 n4=msr(irect(4,ne))
230 DO 20 j=1,nb_nc
231 nn=nsv(bpn(j))
232 IF(nn/=n1.AND.nn/=n2.AND.nn/=n3.AND.nn/=n4) THEN
233 j_stok = j_stok + 1
234 prov_n(j_stok) = bpn(j)
235 prov_e(j_stok) = ne
236 IF(j_stok==nvsiz) THEN
237 lft = 1
238 llt = nvsiz
239 nft = 0
240 j_stok = 0
241 CALL i21cor3t(x ,irect,nsv ,prov_e ,prov_n,
242 2 gapv ,igap ,gap ,gap_s,gapmin ,
243 3 gapmax,xm0 ,depth ,drad ,ix1 ,
244 4 ix2 ,ix3 ,ix4 ,nsvg ,x1 ,
245 5 x2 ,x3 ,x4 ,y1 ,y2 ,
246 6 y3 ,y4 ,z1 ,z2 ,z3 ,
247 7 z4 ,xi ,yi ,zi ,dgapload)
248 CALL i7dst3(ix3,ix4,x1 ,x2 ,x3 ,
249 1 x4 ,y1 ,y2 ,y3 ,y4 ,
250 2 z1 ,z2 ,z3 ,z4 ,xi ,
251 3 yi ,zi ,x0 ,y0 ,z0 ,
252 4 nx1,ny1,nz1,nx2,ny2,
253 5 nz2,nx3,ny3,nz3,nx4,
254 6 ny4,nz4,p1 ,p2 ,p3 ,
255 7 p4 ,lb1,lb2,lb3,lb4,
256 8 lc1,lc2,lc3,lc4,llt)
257 CALL i7pen3(marge,gapv,n11,n21,n31,
258 1 pene ,nx1 ,ny1,nz1,nx2,
259 2 ny2 ,nz2 ,nx3,ny3,nz3,
260 3 nx4 ,ny4 ,nz4,p1 ,p2 ,
261 4 p3 ,p4,llt)
262 IF(i_stok+nvsiz<multimp*nsn) THEN
263 CALL i7cmp3(i_stok,cand_e ,cand_n,1,pene,
264 1 prov_n,prov_e)
265 ELSE
266 i_bid = 0
267 CALL i7cmp3(i_bid,cand_e,cand_n,0,pene,
268 1 prov_n,prov_e)
269 IF(i_stok+i_bid<multimp*nsn) THEN
270 CALL i7cmp3(i_stok,cand_e,cand_n,1,pene,
271 1 prov_n,prov_e)
272 ELSE
273 i_mem = 2 ! TOO MANY POSSIBLE IMPACTS : return to upgrade Multimp
274 RETURN
275 ENDIF
276 ENDIF
277 ENDIF
278C write(6,*)"Node candidat",BPN(J)
279C write(6,*)"Element candidat",NE
280 ENDIF
281 20 CONTINUE
282C MUST COPY THE BOTTOMS OF THE STACKS INTO CORRESPONDING BAS_DE_PILE
283C BEFORE DESCENDING AGAIN INTO THE MIDDLE BRANCH
284 CALL i7dstk(i_add,nb_nc,nb_ec,add,bpn,pn,bpe,pe)
285 RETURN
286 ENDIF
287C
288C-----------------------------------------------------------
289C
290C
291C 2- SORTING PHASE ON THE MEDIANE ACCORDING TO THE LARGEST DIRECTION
292C
293C
294C-----------------------------------------------------------
295C
296C
297C 1- DETERMINER LA DIRECTION A DIVISER X,Y OU Z
298C
299 dir = 1
300 IF(dy==dsup) THEN
301 dir = 2
302 ELSE IF(dz==dsup) THEN
303 dir = 3
304 ENDIF
305 seuil =(xyzm(dir+3,i_add)+xyzm(dir,i_add))/2
306C
307C 2- DIVISER LES NODES EN TWO ZONES
308C
309 nb_ncn= 0
310 addnn= add(1,1)
311 inf = 0
312 sup = 0
313 IF(igap==0)THEN
314 DO i=1,nb_nc
315 IF(x(dir,nsv(bpn(i)))<seuil) THEN
316C STORED IN THE BOTTOM OF THE BP STACK
317 addnn = addnn + 1
318 pn(addnn) = bpn(i)
319 inf = 1
320 ELSE
321 nb_ncn = nb_ncn + 1
322 bpn(nb_ncn) = bpn(i)
323C ON STOCKE EN ECRASANT PROGRESSIVEMENT BPN
324 sup = 1
325 ENDIF
326 END DO
327 ELSE
328 gapsmx = zero
329 bgapsmx = zero
330 DO i=1,nb_nc
331 IF(x(dir,nsv(bpn(i)))<seuil) THEN
332C STORED IN THE BOTTOM OF THE BP STACK
333 addnn = addnn + 1
334 pn(addnn) = bpn(i)
335 gapsmx = max(gapsmx,max(gap_s(bpn(i)),depth,drad))
336 inf = 1
337 ELSE
338C ON STOCKE EN ECRASANT PROGRESSIVEMENT BPN
339 nb_ncn = nb_ncn + 1
340 bpn(nb_ncn) = bpn(i)
341 bgapsmx = max(bgapsmx,max(gap_s(bpn(i)),depth,drad))
342 sup = 1
343 ENDIF
344 END DO
345 END IF
346CC
347CC 3- DIVISER LES ELEMENTS
348CC
349C NB_ECN= 0
350C ADDNE= ADD(2,1)
351C SEUILI = SEUIL-TZINF
352C SEUILS = SEUIL+TZINF
353C DO 85 I=1,NB_EC
354C INF = 0
355C SUP = 0
356C DO 80 J=1,4
357C IP = IRECT(J,BPE(I))
358C IF(X(DIR,IP)<SEUILS) THEN
359C INF = 1
360C IF(SUP==1) GOTO 81
361C ENDIF
362C IF(X(DIR,IP)>=SEUILI) THEN
363C SUP = 1
364C IF(INF==1) GOTO 81
365C ENDIF
366C 80 CONTINUE
367C
368C 81 CONTINUE
369C IF(INF==1) THEN
370C STORED IN THE BOTTOM OF THE BP STACK
371C ADDNE = ADDNE + 1
372C PE(ADDNE) = BPE(I)
373C ENDIF
374C IF(SUP==1) THEN
375C ON STOCKE EN ECRASANT PROGRESSIVEMENT BPE
376C NB_ECN = NB_ECN + 1
377C BPE(NB_ECN) = BPE(I)
378C ENDIF
379C 85 CONTINUE
380C
381C 3- DIVIDE THE ELEMENTS
382C
383C 2 LIGNES PROV FOR TEST
384C INF = 1
385C SUP = 1
386C
387 nb_ecn= 0
388 addne= add(2,1)
389 IF(igap==0)THEN
390 DO i=1,nb_ec
391 xmx = max(xm0(dir,irect(1,bpe(i))),xm0(dir,irect(2,bpe(i))),
392 . xm0(dir,irect(3,bpe(i))),xm0(dir,irect(4,bpe(i))))
393 . + tzinf
394 xmn = min(xm0(dir,irect(1,bpe(i))),xm0(dir,irect(2,bpe(i))),
395 . xm0(dir,irect(3,bpe(i))),xm0(dir,irect(4,bpe(i))))
396 . - tzinf
397 IF(xmn<seuil.AND.inf==1) THEN
398C STORED IN THE BOTTOM OF THE BP STACK
399 addne = addne + 1
400 pe(addne) = bpe(i)
401 ENDIF
402 IF(xmx>=seuil.AND.sup==1) THEN
403C ON STOCKE EN ECRASANT PROGRESSIVEMENT BPE
404 nb_ecn = nb_ecn + 1
405 bpe(nb_ecn) = bpe(i)
406 ENDIF
407 ENDDO
408 ELSE
409 DO i=1,nb_ec
410 xmn = min(xm0(dir,irect(1,bpe(i))),xm0(dir,irect(2,bpe(i))),
411 . xm0(dir,irect(3,bpe(i))),xm0(dir,irect(4,bpe(i))))
412 - -max(min(max(gapsmx,gapmin),gapmax)+dgapload,depth,drad)
413 - -marge
414 IF(xmn<seuil.AND.inf==1) THEN
415C STORED IN THE BOTTOM OF THE BP STACK
416 addne = addne + 1
417 pe(addne) = bpe(i)
418 ENDIF
419 xmx = max(xm0(dir,irect(1,bpe(i))),xm0(dir,irect(2,bpe(i))),
420 . xm0(dir,irect(3,bpe(i))),xm0(dir,irect(4,bpe(i))))
421 + +max(min(max(bgapsmx,gapmin),gapmax)+dgapload,depth,drad)
422 + +marge
423 IF(xmx>=seuil.AND.sup==1) THEN
424C ON STOCKE EN ECRASANT PROGRESSIVEMENT BPE
425 nb_ecn = nb_ecn + 1
426 bpe(nb_ecn) = bpe(i)
427 ENDIF
428 ENDDO
429 END IF
430C
431C 4- REMPLIR LES TABLEAUX D'ADRESSES
432C
433 add(1,2) = addnn
434 add(2,2) = addne
435C-----fill the mins of the next box and the max of the current one
436C (i.e. threshold is a max for the current)
437C We're going to go down and so we define a new box
438C fill the max of the new box
439C initialises in i7buc1 a 1.E30 comme ca on recupere
440C either XMAX or the max of the box
441 xyzm(1,i_add+1) = xyzm(1,i_add)
442 xyzm(2,i_add+1) = xyzm(2,i_add)
443 xyzm(3,i_add+1) = xyzm(3,i_add)
444 xyzm(4,i_add+1) = xyzm(4,i_add)
445 xyzm(5,i_add+1) = xyzm(5,i_add)
446 xyzm(6,i_add+1) = xyzm(6,i_add)
447 xyzm(dir,i_add+1) = seuil
448 xyzm(dir+3,i_add) = seuil
449C
450 nb_nc = nb_ncn
451 nb_ec = nb_ecn
452C increment the descent level before exiting
453 i_add = i_add + 1
454 IF(i_add>=1000) THEN
455C TROP NIVEAUX PILE ON VAS LES PRENDRE PLUS GRANDES...
456 IF ( nb_n_b == numnod) THEN
457C WRITE(IOUT,*)'***COMPUTATION STOPPED WHILE INFINITELY LOOPING'
458C WRITE(ISTDO,*)'***COMPUTATION STOPPED WHILE INFINITELY LOOPING'
459C CALL ARRET(2)
460 IF (istamping == 1) THEN
461 CALL ancmsg(msgid=775,
462 . msgtype=msgerror,
463 . anmode=aninfo,
464 . i1=id,
465 . c1=titr)
466 ELSE
467 CALL ancmsg(msgid=685,
468 . msgtype=msgerror,
469 . anmode=aninfo,
470 . i1=id,
471 . c1=titr)
472 ENDIF
473 ENDIF
474 i_mem = 1
475 RETURN
476 ENDIF
477C
478C this return is only reached if ok = 0
479 RETURN
my_real
#define my_real
Definition cppsort.cpp:32
i7cmp3
subroutine i7cmp3(i_stok, cand_e, cand_n, iflag, pene, prov_n, prov_e)
Definition i7cmp3.F:82
ymax
subroutine ymax(idn, fac, npc, pld, stiffmin, stiffmax, stiffini, stiffavg)
Definition law100_upd.F:274
min
#define min(a, b)
Definition macros.h:20
max
#define max(a, b)
Definition macros.h:21
id
initmumps id
Definition multiplerhs_example.m:4
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
i21cor3t
subroutine i21cor3t(x, irect, nsv, cand_e, cand_n, gapv, igap, gap, gap_s, gapmin, gapmax, xm0, depth, drad, ix1, ix2, ix3, ix4, nsvg, x1, x2, x3, x4, y1, y2, y3, y4, z1, z2, z3, z4, xi, yi, zi, dgapload)
Definition i21cor3t.F:36
i7dst3
subroutine i7dst3(ix3, ix4, 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, last)
Definition i7dst3.F:46
i7dstk
subroutine i7dstk(i_add, nb_nc, nb_ec, add, bpn, pn, bpe, pe)
Definition i7dstk.F:33
i7pen3
subroutine i7pen3(marge, gapv, n1, n2, n3, pene, nx1, ny1, nz1, nx2, ny2, nz2, nx3, ny3, nz3, nx4, ny4, nz4, p1, p2, p3, p4, last)
Definition i7pen3.F:43
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