OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
int2poff.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!|| int2poff ../engine/source/interfaces/interf/int2poff.F
25!||--- called by ------------------------------------------------------
26!|| intti1 ../engine/source/interfaces/interf/intti1.F
27!||--- calls -----------------------------------------------------
28!|| i2ipoff ../engine/source/interfaces/interf/int2poff.F
29!||--- uses -----------------------------------------------------
30!|| intbufdef_mod ../common_source/modules/interfaces/intbufdef_mod.F90
31!||====================================================================
32 SUBROUTINE int2poff(IPARI,X ,V ,
33 . A ,VR ,AR ,MS ,IN ,
34 . WEIGHT,STIFN,STIFR,MCP ,CONDN ,
35 . FTHE,INTBUF_TAB,ITHERM_FE,NODADT_THERM)
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
93 END
94C
95!||====================================================================
96!|| int2poffh ../engine/source/interfaces/interf/int2poff.F
97!||--- called by ------------------------------------------------------
98!|| intti1 ../engine/source/interfaces/interf/intti1.F
99!||--- calls -----------------------------------------------------
100!|| i2ipoffh ../engine/source/interfaces/interf/int2poff.F
101!||--- uses -----------------------------------------------------
102!|| intbufdef_mod ../common_source/modules/interfaces/intbufdef_mod.f90
103!||====================================================================
104 SUBROUTINE int2poffh(IPARI,X ,V ,
105 . A ,VR ,AR ,MS ,IN ,
106 . WEIGHT,STIFN,STIFR ,TAGNOD,INTBUF_TAB)
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
143 END
144
145!||====================================================================
146!|| i2ipoff ../engine/source/interfaces/interf/int2poff.F
147!||--- called by ------------------------------------------------------
148!|| int2poff ../engine/source/interfaces/interf/int2poff.F
149!||====================================================================
150 SUBROUTINE i2ipoff(NMN ,A ,MSR ,MS ,WEIGHT,
151 2 AR ,IN ,STIFN ,STIFR ,ILEV ,
152 3 MCP ,CONDN ,MMASS ,FTHE ,ITHERM_FE,NODADT_THERM)
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
347 END
348
349!||====================================================================
350!|| i2ipoffh ../engine/source/interfaces/interf/int2poff.F
351!||--- called by ------------------------------------------------------
352!|| int2poffh ../engine/source/interfaces/interf/int2poff.F
353!||====================================================================
354 SUBROUTINE i2ipoffh(NMN ,A ,MSR ,MS ,WEIGHT,
355 2 AR ,IN ,STIFN,STIFR ,ILEV ,
356 3 MMASS,TAGNOD )
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
540 END
my_real
#define my_real
Definition cppsort.cpp:32
int2poff
subroutine int2poff(ipari, x, v, a, vr, ar, ms, in, weight, stifn, stifr, mcp, condn, fthe, intbuf_tab, itherm_fe, nodadt_therm)
Definition int2poff.F:36
int2poffh
subroutine int2poffh(ipari, x, v, a, vr, ar, ms, in, weight, stifn, stifr, tagnod, intbuf_tab)
Definition int2poff.F:107
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
i2ipoffh
subroutine i2ipoffh(nmn, a, msr, ms, weight, ar, in, stifn, stifr, ilev, mmass, tagnod)
Definition int2poff.F:357
max
#define max(a, b)
Definition macros.h:21