OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
int2poff.F File Reference
#include "implicit_f.inc"
#include "param_c.inc"
#include "com01_c.inc"
#include "scr18_c.inc"
#include "vectorize.inc"

Go to the source code of this file.

Functions/Subroutines

subroutine int2poff (ipari, x, v, a, vr, ar, ms, in, weight, stifn, stifr, mcp, condn, fthe, intbuf_tab, itherm_fe, nodadt_therm)
subroutine int2poffh (ipari, x, v, a, vr, ar, ms, in, weight, stifn, stifr, tagnod, intbuf_tab)
subroutine i2ipoff (nmn, a, msr, ms, weight, ar, in, stifn, stifr, ilev, mcp, condn, mmass, fthe, itherm_fe, nodadt_therm)
subroutine i2ipoffh (nmn, a, msr, ms, weight, ar, in, stifn, stifr, ilev, mmass, tagnod)

Function/Subroutine Documentation

◆ i2ipoff()

subroutine i2ipoff ( integer nmn,
a,
integer, dimension(*) msr,
ms,
integer, dimension(*) weight,
ar,
in,
stifn,
stifr,
integer ilev,
mcp,
condn,
mmass,
fthe,
integer, intent(in) itherm_fe,
integer, intent(in) nodadt_therm )

Definition at line 150 of file int2poff.F.

153C-----------------------------------------------
154C I m p l i c i t T y p e s
155C-----------------------------------------------
156#include "implicit_f.inc"
157C-----------------------------------------------
158C D u m m y A r g u m e n t s
159C-----------------------------------------------
160 INTEGER ,INTENT(IN) :: ITHERM_FE
161 INTEGER ,INTENT(IN) :: NODADT_THERM
162 INTEGER NMN,ILEV,
163 . MSR(*), WEIGHT(*)
164C REAL
165 my_real
166 . a(3,*) ,ar(3,*) ,mmass(*) ,
167 . ms(*) ,in(*) ,stifn(*) ,stifr(*),
168 . mcp(*) ,condn(*),fthe(*)
169C-----------------------------------------------
170C C o m m o n B l o c k s
171C-----------------------------------------------
172#include "com01_c.inc"
173#include "scr18_c.inc"
174
175C-----------------------------------------------
176C L o c a l V a r i a b l e s
177C-----------------------------------------------
178 INTEGER I, II
179C-----------------------------------------------
180 IF((ilev == 1.OR.ilev == 3).AND.iroddl/=0)THEN
181#include "vectorize.inc"
182 DO ii=1,nmn
183 i=msr(ii)
184 a(1,i)=a(1,i)*weight(i)
185 a(2,i)=a(2,i)*weight(i)
186 a(3,i)=a(3,i)*weight(i)
187 ar(1,i)=ar(1,i)*weight(i)
188 ar(2,i)=ar(2,i)*weight(i)
189 ar(3,i)=ar(3,i)*weight(i)
190 ms(i)=ms(i)*weight(i)
191 in(i)=in(i)*weight(i)
192 stifn(i)=stifn(i)*weight(i)
193 stifr(i)=stifr(i)*weight(i)
194 ENDDO
195 ELSEIF((ilev == 1.OR.ilev == 3).AND.iroddl == 0)THEN
196#include "vectorize.inc"
197 DO ii=1,nmn
198 i=msr(ii)
199 a(1,i)=a(1,i)*weight(i)
200 a(2,i)=a(2,i)*weight(i)
201 a(3,i)=a(3,i)*weight(i)
202 ms(i)=ms(i)*weight(i)
203 stifn(i)=stifn(i)*weight(i)
204 ENDDO
205 ELSEIF((ilev == 0.OR.ilev == 2.OR.ilev == 4).AND.iroddl /= 0) THEN
206#include "vectorize.inc"
207 DO ii=1,nmn
208 i=msr(ii)
209 a(1,i)=a(1,i)*weight(i)
210 a(2,i)=a(2,i)*weight(i)
211 a(3,i)=a(3,i)*weight(i)
212 mmass(ii)=ms(i)
213 ms(i)=ms(i)*weight(i)
214 stifn(i)=stifn(i)*weight(i)
215 ar(1,i)=ar(1,i)*weight(i)
216 ar(2,i)=ar(2,i)*weight(i)
217 ar(3,i)=ar(3,i)*weight(i)
218 in(i)=max(em20,in(i))
219 in(i)=in(i)*weight(i)
220 stifr(i)=stifr(i)*weight(i)
221 ENDDO
222 ELSEIF((ilev == 0.OR.ilev == 2.OR.ilev == 4).AND.iroddl == 0) THEN
223#include "vectorize.inc"
224 DO ii=1,nmn
225 i=msr(ii)
226 a(1,i)=a(1,i)*weight(i)
227 a(2,i)=a(2,i)*weight(i)
228 a(3,i)=a(3,i)*weight(i)
229 mmass(ii)=ms(i)
230 ms(i)=ms(i)*weight(i)
231 stifn(i)=stifn(i)*weight(i)
232 ENDDO
233 ELSEIF ((ilev == 10.OR.ilev == 11.OR.ilev == 12 .OR.
234 . ilev == 20.OR.ilev == 21.OR.ilev == 22).AND.
235 . iroddl /= 0) THEN
236#include "vectorize.inc"
237 DO ii=1,nmn
238 i=msr(ii)
239 a(1,i)=a(1,i)*weight(i)
240 a(2,i)=a(2,i)*weight(i)
241 a(3,i)=a(3,i)*weight(i)
242 ms(i)=ms(i)*weight(i)
243 in(i)=max(em20,in(i))
244 in(i)=in(i)*weight(i)
245 ar(1,i)=ar(1,i)*weight(i)
246 ar(2,i)=ar(2,i)*weight(i)
247 ar(3,i)=ar(3,i)*weight(i)
248 stifn(i)=stifn(i)*weight(i)
249 stifr(i)=stifr(i)*weight(i)
250 ENDDO
251 ELSEIF ((ilev == 25 .or. ilev == 26) .AND. iroddl /= 0) THEN
252#include "vectorize.inc"
253 DO ii=1,nmn
254 i=msr(ii)
255 a(1,i)=a(1,i)*weight(i)
256 a(2,i)=a(2,i)*weight(i)
257 a(3,i)=a(3,i)*weight(i)
258 ms(i)=ms(i)*weight(i)
259 in(i)=in(i)*weight(i)
260 ar(1,i)=ar(1,i)*weight(i)
261 ar(2,i)=ar(2,i)*weight(i)
262 ar(3,i)=ar(3,i)*weight(i)
263 stifn(i)=stifn(i)*weight(i)
264 stifr(i)=stifr(i)*weight(i)
265 ENDDO
266 ELSEIF ((ilev == 27) .AND. iroddl /= 0) THEN
267#include "vectorize.inc"
268 DO ii=1,nmn
269 i=msr(ii)
270 a(1,i)=a(1,i)*weight(i)
271 a(2,i)=a(2,i)*weight(i)
272 a(3,i)=a(3,i)*weight(i)
273 mmass(ii)=ms(i)
274 ms(i)=ms(i)*weight(i)
275 in(i)=in(i)*weight(i)
276 ar(1,i)=ar(1,i)*weight(i)
277 ar(2,i)=ar(2,i)*weight(i)
278 ar(3,i)=ar(3,i)*weight(i)
279 stifn(i)=stifn(i)*weight(i)
280 stifr(i)=stifr(i)*weight(i)
281 ENDDO
282 ELSEIF ((ilev == 28) .AND. iroddl /= 0) THEN
283#include "vectorize.inc"
284 DO ii=1,nmn
285 i=msr(ii)
286 a(1,i)=a(1,i)*weight(i)
287 a(2,i)=a(2,i)*weight(i)
288 a(3,i)=a(3,i)*weight(i)
289 mmass(ii)=ms(i)
290 ms(i)=ms(i)*weight(i)
291 in(i)=in(i)*weight(i)
292 ar(1,i)=ar(1,i)*weight(i)
293 ar(2,i)=ar(2,i)*weight(i)
294 ar(3,i)=ar(3,i)*weight(i)
295 stifn(i)=stifn(i)*weight(i)
296 stifr(i)=stifr(i)*weight(i)
297 ENDDO
298 ELSEIF ((ilev == 10 .OR. ilev == 11 .OR. ilev == 12 .OR.
299 . ilev == 20 .OR. ilev == 21 .OR. ilev == 22 .OR.
300 . ilev == 25 .or. ilev == 26 .or. ilev == 28 .OR.
301 . ilev == 27 ) .AND. iroddl == 0) THEN
302#include "vectorize.inc"
303 DO ii=1,nmn
304 i=msr(ii)
305 a(1,i)=a(1,i)*weight(i)
306 a(2,i)=a(2,i)*weight(i)
307 a(3,i)=a(3,i)*weight(i)
308 ms(i)=ms(i)*weight(i)
309 stifn(i)=stifn(i)*weight(i)
310 ENDDO
311 ELSEIF(ilev == 30 .AND. iroddl /= 0) THEN
312#include "vectorize.inc"
313 DO ii=1,nmn
314 i=msr(ii)
315 a(1,i)=a(1,i)*weight(i)
316 a(2,i)=a(2,i)*weight(i)
317 a(3,i)=a(3,i)*weight(i)
318 ar(1,i)=ar(1,i)*weight(i)
319 ar(2,i)=ar(2,i)*weight(i)
320 ar(3,i)=ar(3,i)*weight(i)
321 mmass(ii)=ms(i)
322 ms(i)=ms(i)*weight(i)
323 in(i)=max(em20,in(i))
324 in(i)=in(i)*weight(i)
325 stifn(i)=stifn(i)*weight(i)
326 stifr(i)=stifr(i)*weight(i)
327 ENDDO
328C---
329 ENDIF
330C-----------------------------------------------
331C Thermal Analysis (quelque soit ILEV et IRODDL)
332C-----------------------------------------------
333 IF(itherm_fe > 0) THEN
334 DO ii=1,nmn
335 i=msr(ii)
336 fthe(i) = fthe(i) * weight(i)
337 ENDDO
338 ENDIF
339 IF(nodadt_therm == 1) THEN
340 DO ii=1,nmn
341 i=msr(ii)
342 condn(i) = condn(i) * weight(i)
343 ENDDO
344 ENDIF
345C-----------
346 RETURN
my_real
#define my_real
Definition cppsort.cpp:32
max
#define max(a, b)
Definition macros.h:21

◆ i2ipoffh()

subroutine i2ipoffh ( integer nmn,
a,
integer, dimension(*) msr,
ms,
integer, dimension(*) weight,
ar,
in,
stifn,
stifr,
integer ilev,
mmass,
integer, dimension(*) tagnod )

Definition at line 354 of file int2poff.F.

357C-----------------------------------------------
358C I m p l i c i t T y p e s
359C-----------------------------------------------
360#include "implicit_f.inc"
361C-----------------------------------------------
362C D u m m y A r g u m e n t s
363C-----------------------------------------------
364 INTEGER NMN,ILEV,
365 . MSR(*), WEIGHT(*), TAGNOD(*)
366C REAL
367 my_real
368 . a(3,*),ar(3,*), mmass(*),
369 . ms(*), in(*),stifn(*),stifr(*)
370C-----------------------------------------------
371C C o m m o n B l o c k s
372C-----------------------------------------------
373#include "com01_c.inc"
374C-----------------------------------------------
375C L o c a l V a r i a b l e s
376C-----------------------------------------------
377 INTEGER I, II
378C-----------------------------------------------
379 IF((ilev == 1.OR.ilev == 3).AND.iroddl/=0)THEN
380#include "vectorize.inc"
381 DO ii=1,nmn
382 i=msr(ii)
383 a(1,i)=a(1,i)*weight(i)
384 a(2,i)=a(2,i)*weight(i)
385 a(3,i)=a(3,i)*weight(i)
386 ar(1,i)=ar(1,i)*weight(i)
387 ar(2,i)=ar(2,i)*weight(i)
388 ar(3,i)=ar(3,i)*weight(i)
389 ms(i)=ms(i)*weight(i)
390 in(i)=in(i)*weight(i)
391 stifn(i)=stifn(i)*weight(i)
392 stifr(i)=stifr(i)*weight(i)
393 tagnod(i)=1
394 ENDDO
395 ELSEIF((ilev == 1.OR.ilev == 3).AND.iroddl == 0)THEN
396#include "vectorize.inc"
397 DO ii=1,nmn
398 i=msr(ii)
399 a(1,i)=a(1,i)*weight(i)
400 a(2,i)=a(2,i)*weight(i)
401 a(3,i)=a(3,i)*weight(i)
402 ms(i)=ms(i)*weight(i)
403 stifn(i)=stifn(i)*weight(i)
404 tagnod(i)=1
405 ENDDO
406 ELSEIF((ilev == 0.OR.ilev == 2.OR.ilev == 4).AND.iroddl /= 0) THEN
407#include "vectorize.inc"
408 DO ii=1,nmn
409 i=msr(ii)
410 a(1,i) =a(1,i) *weight(i)
411 a(2,i) =a(2,i) *weight(i)
412 a(3,i) =a(3,i) *weight(i)
413 ar(1,i)=ar(1,i)*weight(i)
414 ar(2,i)=ar(2,i)*weight(i)
415 ar(3,i)=ar(3,i)*weight(i)
416 mmass(ii)=ms(i)
417 ms(i)=ms(i)*weight(i)
418 in(i)=max(em20,in(i))
419 in(i)=in(i)*weight(i)
420 stifn(i)=stifn(i)*weight(i)
421 stifr(i)=stifr(i)*weight(i)
422 tagnod(i)=1
423 ENDDO
424 ELSEIF((ilev == 0.OR.ilev == 2.OR.ilev == 4).AND.iroddl == 0) THEN
425#include "vectorize.inc"
426 DO ii=1,nmn
427 i=msr(ii)
428 a(1,i)=a(1,i)*weight(i)
429 a(2,i)=a(2,i)*weight(i)
430 a(3,i)=a(3,i)*weight(i)
431 mmass(ii)=ms(i)
432 ms(i)=ms(i)*weight(i)
433 stifn(i)=stifn(i)*weight(i)
434 tagnod(i)=1
435 ENDDO
436 ELSEIF ((ilev == 10.OR.ilev == 11.OR.ilev == 12 .OR.
437 . ilev == 20.OR.ilev == 21.OR.ilev == 22) .AND.
438 . iroddl /= 0) THEN
439#include "vectorize.inc"
440 DO ii=1,nmn
441 i=msr(ii)
442 a(1,i)=a(1,i)*weight(i)
443 a(2,i)=a(2,i)*weight(i)
444 a(3,i)=a(3,i)*weight(i)
445 ms(i)=ms(i)*weight(i)
446 in(i)=max(em20,in(i))
447 in(i)=in(i)*weight(i)
448 ar(1,i)=ar(1,i)*weight(i)
449 ar(2,i)=ar(2,i)*weight(i)
450 ar(3,i)=ar(3,i)*weight(i)
451 stifn(i)=stifn(i)*weight(i)
452 stifr(i)=stifr(i)*weight(i)
453 tagnod(i)=1
454 ENDDO
455 ELSEIF ((ilev == 25 .or. ilev == 26) .AND. iroddl /= 0)THEN
456#include "vectorize.inc"
457 DO ii=1,nmn
458 i=msr(ii)
459 a(1,i)=a(1,i)*weight(i)
460 a(2,i)=a(2,i)*weight(i)
461 a(3,i)=a(3,i)*weight(i)
462 ms(i)=ms(i)*weight(i)
463 in(i)=in(i)*weight(i)
464 ar(1,i)=ar(1,i)*weight(i)
465 ar(2,i)=ar(2,i)*weight(i)
466 ar(3,i)=ar(3,i)*weight(i)
467 stifn(i)=stifn(i)*weight(i)
468 stifr(i)=stifr(i)*weight(i)
469 tagnod(i)=1
470 ENDDO
471 ELSEIF (ilev == 27 .AND. iroddl /= 0)THEN
472#include "vectorize.inc"
473 DO ii=1,nmn
474 i=msr(ii)
475 a(1,i)=a(1,i)*weight(i)
476 a(2,i)=a(2,i)*weight(i)
477 a(3,i)=a(3,i)*weight(i)
478 mmass(ii)=ms(i)
479 ms(i)=ms(i)*weight(i)
480 in(i)=in(i)*weight(i)
481 ar(1,i)=ar(1,i)*weight(i)
482 ar(2,i)=ar(2,i)*weight(i)
483 ar(3,i)=ar(3,i)*weight(i)
484 stifn(i)=stifn(i)*weight(i)
485 stifr(i)=stifr(i)*weight(i)
486 tagnod(i)=1
487 ENDDO
488 ELSEIF (ilev == 28 .AND. iroddl /= 0)THEN
489#include "vectorize.inc"
490 DO ii=1,nmn
491 i=msr(ii)
492 a(1,i)=a(1,i)*weight(i)
493 a(2,i)=a(2,i)*weight(i)
494 a(3,i)=a(3,i)*weight(i)
495 mmass(ii)=ms(i)
496 ms(i)=ms(i)*weight(i)
497 in(i)=in(i)*weight(i)
498 ar(1,i)=ar(1,i)*weight(i)
499 ar(2,i)=ar(2,i)*weight(i)
500 ar(3,i)=ar(3,i)*weight(i)
501 stifn(i)=stifn(i)*weight(i)
502 stifr(i)=stifr(i)*weight(i)
503 tagnod(i)=1
504 ENDDO
505 ELSEIF ((ilev == 10.OR.ilev == 11.OR.ilev == 12 .OR.
506 . ilev == 20.OR.ilev == 21.OR.ilev == 22 .OR.
507 . ilev == 25.or.ilev == 26.or.ilev == 28)
508 . .AND. iroddl == 0)THEN
509#include "vectorize.inc"
510 DO ii=1,nmn
511 i=msr(ii)
512 a(1,i)=a(1,i)*weight(i)
513 a(2,i)=a(2,i)*weight(i)
514 a(3,i)=a(3,i)*weight(i)
515 ms(i)=ms(i)*weight(i)
516 stifn(i)=stifn(i)*weight(i)
517 tagnod(i)=1
518 ENDDO
519 ELSEIF(ilev == 30 .AND. iroddl /= 0) THEN
520#include "vectorize.inc"
521 DO ii=1,nmn
522 i=msr(ii)
523 a(1,i)=a(1,i)*weight(i)
524 a(2,i)=a(2,i)*weight(i)
525 a(3,i)=a(3,i)*weight(i)
526 ar(1,i)=ar(1,i)*weight(i)
527 ar(2,i)=ar(2,i)*weight(i)
528 ar(3,i)=ar(3,i)*weight(i)
529 mmass(ii)=ms(i)
530 ms(i)=ms(i)*weight(i)
531 in(i)=max(em20,in(i))
532 in(i)=in(i)*weight(i)
533 stifn(i)=stifn(i)*weight(i)
534 stifr(i)=stifr(i)*weight(i)
535 ENDDO
536C---
537 ENDIF
538C-----------
539 RETURN
tagnod
subroutine tagnod(ix, nix, nix1, nix2, numel, iparte, tagbuf, npart)
Definition tagnod.F:29

◆ int2poff()

subroutine int2poff ( integer, dimension(*) ipari,
x,
v,
a,
vr,
ar,
ms,
in,
integer, dimension(*) weight,
stifn,
stifr,
mcp,
condn,
fthe,
type(intbuf_struct_) intbuf_tab,
integer, intent(in) itherm_fe,
integer, intent(in) nodadt_therm )

Definition at line 32 of file int2poff.F.

36C-----------------------------------------------
37C M o d u l e s
38C-----------------------------------------------
39 USE intbufdef_mod
40C-----------------------------------------------
41C I m p l i c i t T y p e s
42C-----------------------------------------------
43#include "implicit_f.inc"
44C-----------------------------------------------
45C D u m m y A r g u m e n t s
46C-----------------------------------------------
47 INTEGER IPARI(*), WEIGHT(*)
48 INTEGER ,INTENT(IN) :: ITHERM_FE
49 INTEGER ,INTENT(IN) :: NODADT_THERM
50C REAL
51 my_real
52 . x(*), v(*), a(*),
53 . ms(*),in(*),ar(*),vr(*),stifn(*),stifr(*),
54 . condn(*), mcp(*),fthe(*)
55
56 TYPE(INTBUF_STRUCT_) INTBUF_TAB
57C-----------------------------------------------
58C C o m m o n B l o c k s
59C-----------------------------------------------
60#include "param_c.inc"
61C-----------------------------------------------
62C L o c a l V a r i a b l e s
63C-----------------------------------------------
64 integer
65 . k10, k11, k12, k13, k14, kfi, j10, j11, j12, j21, j22,
66 . jfi,nsn,nmn,ilev,nrts,nrtm
67C-----------------------------------------------
68 nrts =ipari(3)
69 nrtm =ipari(4)
70 nsn =ipari(5)
71 nmn =ipari(6)
72 ilev =ipari(20)
73C
74 k10=1
75 k11=k10+4*nrts
76 k12=k11+4*nrtm
77 k13=k12+nsn
78 k14=k13+nmn
79 kfi=k14+nsn
80 j10=1
81 j11=j10+1
82 j12=j11+nparir
83 j21=j12+2*nsn
84 j22=j21+7*nsn
85 jfi=j22+nmn
86C
87 CALL i2ipoff(
88 1 nmn ,a ,intbuf_tab%MSR ,ms ,weight ,
89 2 ar ,in ,stifn ,stifr ,ilev ,
90 3 mcp ,condn ,intbuf_tab%NMAS ,fthe,itherm_fe,nodadt_therm)
91C
92 RETURN
i2ipoff
subroutine i2ipoff(nmn, a, msr, ms, weight, ar, in, stifn, stifr, ilev, mcp, condn, mmass, fthe, itherm_fe, nodadt_therm)
Definition int2poff.F:153

◆ int2poffh()

subroutine int2poffh ( integer, dimension(*) ipari,
x,
v,
a,
vr,
ar,
ms,
in,
integer, dimension(*) weight,
stifn,
stifr,
integer, dimension(*) tagnod,
type(intbuf_struct_) intbuf_tab )

Definition at line 104 of file int2poff.F.

107C-----------------------------------------------
108C M o d u l e s
109C-----------------------------------------------
110 USE intbufdef_mod
111C-----------------------------------------------
112C I m p l i c i t T y p e s
113C-----------------------------------------------
114#include "implicit_f.inc"
115C-----------------------------------------------
116C D u m m y A r g u m e n t s
117C-----------------------------------------------
118 INTEGER IPARI(*), WEIGHT(*), TAGNOD(*)
119C REAL
120 my_real
121 . x(*), v(*), a(*),
122 . ms(*),in(*),ar(*),vr(*),stifn(*),stifr(*)
123
124 TYPE(INTBUF_STRUCT_) INTBUF_TAB
125C-----------------------------------------------
126C L o c a l V a r i a b l e s
127C-----------------------------------------------
128 integer
129 . nsn,nmn,ilev,nrts,nrtm
130C-----------------------------------------------
131 nrts =ipari(3)
132 nrtm =ipari(4)
133 nsn =ipari(5)
134 nmn =ipari(6)
135 ilev =ipari(20)
136C
137 CALL i2ipoffh(
138 1 nmn ,a ,intbuf_tab%MSR,ms ,weight ,
139 2 ar ,in ,stifn ,stifr ,ilev ,
140 3 intbuf_tab%NMAS,tagnod)
141C
142 RETURN
i2ipoffh
subroutine i2ipoffh(nmn, a, msr, ms, weight, ar, in, stifn, stifr, ilev, mmass, tagnod)
Definition int2poff.F:357