OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
hm_read_inter_type02.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!|| hm_read_inter_type02 ../starter/source/interfaces/int02/hm_read_inter_type02.F
25!||--- called by ------------------------------------------------------
26!|| hm_read_inter_struct ../starter/source/interfaces/reader/hm_read_inter_struct.F
27!||--- calls -----------------------------------------------------
28!|| ancmsg ../starter/source/output/message/message.F
29!|| definter ../starter/source/interfaces/interf1/definter.F
30!|| hm_get_floatv ../starter/source/devtools/hm_reader/hm_get_floatv.F
31!|| hm_get_floatv_dim ../starter/source/devtools/hm_reader/hm_get_floatv_dim.F
32!|| hm_get_intv ../starter/source/devtools/hm_reader/hm_get_intv.F
33!|| hm_option_is_encrypted ../starter/source/devtools/hm_reader/hm_option_is_encrypted.F
34!|| ngr2usr ../starter/source/system/nintrr.F
35!||--- uses -----------------------------------------------------
36!|| message_mod ../starter/share/message_module/message_mod.F
37!|| submodel_mod ../starter/share/modules1/submodel_mod.F
38!||====================================================================
39 SUBROUTINE hm_read_inter_type02(
40 1 IPARI ,STFAC ,FRIGAP ,NOINT ,IGRNOD ,
41 2 IGRSURF ,I2RUPT ,AREASL ,DEF_INTER,NPC1 ,
42 3 TITR ,UNITAB ,LSUBMODEL ,NPARI ,NPARIR ,
43 4 SNPC1 ,INTHEAT )
44C============================================================================
45C
46C-----------------------------------------------
47C M o d u l e s
48C-----------------------------------------------
49 USE message_mod
50 USE groupdef_mod
51 USE submodel_mod , ONLY : submodel_data, nsubmod
52 USE ale_mod
53 USE names_and_titles_mod , ONLY : nchartitle, ncharkey
54 USE unitab_mod
55C-----------------------------------------------
56C I m p l i c i t T y p e s
57C-----------------------------------------------
58#include "implicit_f.inc"
59C-----------------------------------------------
60C C o m m o n B l o c k s
61C-----------------------------------------------
62#include "com01_c.inc"
63#include "com04_c.inc"
64#include "com09_c.inc"
65#include "units_c.inc"
66#include "scr12_c.inc"
67C-----------------------------------------------
68C D u m m y A r g u m e n t s
69C-----------------------------------------------
70 INTEGER,INTENT(IN) :: NPARI,NPARIR,SNPC1 !< array sizes
71 INTEGER,INTENT(INOUT) :: INTHEAT
72 INTEGER NOINT
73 INTEGER IPARI(NPARI),DEF_INTER(100),NPC1(SNPC1)
74 my_real stfac,areasl !,UNITAB(*)
75 TYPE (UNIT_TYPE_),INTENT(IN) ::UNITAB
76 my_real frigap(nparir),i2rupt(6)
77 CHARACTER(LEN=NCHARTITLE) :: TITR
78C-----------------------------------------------
79 TYPE (GROUP_) ,TARGET, DIMENSION(NGRNOD) :: IGRNOD
80 TYPE (SURF_) ,TARGET , DIMENSION(NSURF) :: IGRSURF
81 TYPE(submodel_data),INTENT(IN) :: LSUBMODEL(NSUBMOD)
82C-----------------------------------------------
83C L o c a l V a r i a b l e s
84C-----------------------------------------------
85 INTEGER J,IBUC, NTYP, IGSTI,IS1, IS2,PID,IPRINT,
86 . ILEV, HIERA,IDEL2,INT2DEF,INTTH,IMOD,IFILTR,IGNORE,
87 . IFUNS,IFUNN,IFUNT,NUVAR,ISYM,INTKG,IPROJ,IASSIGN,
88 . PENFLAG,IROT,OK,ISU1,ISU2,ISI1,ISI2,ISU3,ISI3
89 my_real
90 . startt,stopt,kthe,visc,dnmax,dtmax,scal_f,
91 . scal_sr,scal_d,alpha,area,f_unit,sr_unit,d_unit
92 CHARACTER(LEN=NCHARKEY) :: KEY1
93!
94 INTEGER, DIMENSION(:), POINTER :: INGR2USR
95 LOGICAL IS_AVAILABLE, IS_ENCRYPTED
96C-----------------------------------------------
97C E x t e r n a l F u n c t i o n s
98C-----------------------------------------------
99 INTEGER,EXTERNAL :: NGR2USR
100C-----------------------------------------------
101 DATA INT2DEF/5/
102C=======================================================================
103C READING INTERFACE /INTER/TYPE02
104C=======================================================================
105
106C Initializations
107
108 is1=0
109 is2=0
110 ibuc=0
111 imod = 0
112 igsti = 0
113 intth = 0
114 idel2 = 0
115 intkg = 0
116 ilev = 0
117
118C
119 stopt=ep30
120 startt = zero
121 visc = zero
122 kthe = zero
123C
124 iassign = 1
125C
126 ntyp = 2
127 ipari(15)=noint
128 ipari(7)=ntyp
129C
130 is_encrypted = .false.
131 is_available = .false.
132C--------------------------------------------------
133C EXTRACT DATA (IS OPTION CRYPTED)
134C--------------------------------------------------
135 CALL hm_option_is_encrypted(is_encrypted)
136C
137C------------------------------------------------------------
138C Card1 :flags
139C------------------------------------------------------------
140C
141C--------------------------------------------------
142C EXTRACT DATAS (INTEGER VALUES)
143C--------------------------------------------------
144 CALL hm_get_intv('secondaryentityids',isi1,is_available,lsubmodel)
145 CALL hm_get_intv('mainentityids',isi2,is_available,lsubmodel)
146 CALL hm_get_intv('SECONDARY_NODES_TO_DELETE',ignore,is_available,lsubmodel)
147 CALL hm_get_intv('WFLAG',ilev,is_available,lsubmodel)
148 CALL hm_get_intv('LEVEL',hiera,is_available,lsubmodel)
149 CALL hm_get_intv('Isearch',ibuc,is_available,lsubmodel)
150 CALL hm_get_intv('NodDel2',idel2,is_available,lsubmodel)
151 CALL hm_get_intv('secondarysurfids',isi3,is_available,lsubmodel)
152C -- Hidden flag - PID -
153 pid = 0
154C--------------------------------------------------
155C EXTRACT DATAS (REAL VALUES)
156C--------------------------------------------------
157 CALL hm_get_floatv('dsearch',frigap(4),is_available,lsubmodel,unitab)
158C----------------------
159C
160C.....* Default values definition *........
161
162 iprint = 0
163C
164 key1='IGNORE'
165 CALL definter(key1 ,ignore ,iassign ,iprint ,ntyp ,def_inter)
166C
167 key1='ILEV'
168 CALL definter(key1 ,ilev ,iassign ,iprint ,ntyp ,def_inter)
169C
170 key1='IBUC'
171 CALL definter(key1 ,ibuc ,iassign ,iprint ,ntyp ,def_inter)
172C
173 key1='IDEL2'
174 CALL definter(key1 ,idel2 ,iassign ,iprint ,ntyp ,def_inter)
175
176C....* CHECKS AND Storage IPARI FRIGAP *.............
177C
178 is1=2
179 is2=1
180 ingr2usr => igrnod(1:ngrnod)%ID
181 isu1=ngr2usr(isi1,ingr2usr,ngrnod)
182 ingr2usr => igrsurf(1:nsurf)%ID
183 isu2=ngr2usr(isi2,ingr2usr,nsurf)
184C
185 isu3 = 0
186 IF (isi3>0) THEN
187 isu3=ngr2usr(isi3,ingr2usr,nsurf)
188 IF(isu3 == 0) THEN
189 CALL ancmsg(msgid=1725,
190 . anmode=aninfo_blind_1,
191 . msgtype=msgerror,
192 . i1=noint,
193 . i2=isi3,
194 . c1=titr)
195 END IF
196 IF (ilev /= 25 .and. ilev /= 26 .and. ilev /= 27 .and. ilev /= 28) THEN
197 CALL ancmsg(msgid=3078,
198 . anmode=aninfo_blind_1,
199 . msgtype=msgwarning,
200 . i1=noint,
201 . i2=ilev,
202 . i3=isi3,
203 . c1=titr)
204 isu3 = 0
205 END IF
206 END IF
207C-------*CHECKS*-------------------
208
209 IF (isu1==0.AND.isu3 == 0) THEN
210 CALL ancmsg(msgid=1726,
211 . anmode=aninfo_blind_1,
212 . msgtype=msgerror,
213 . i1=noint,
214 . i2=isi1,
215 . c1=titr)
216 is1=0
217 END IF
218 IF(isu2 == 0) THEN
219 CALL ancmsg(msgid=1725,
220 . anmode=aninfo_blind_1,
221 . msgtype=msgerror,
222 . i1=noint,
223 . i2=isi2,
224 . c1=titr)
225 is2=0
226 END IF
227C
228 IF (isu1 > 0.AND.isu3== 0) THEN
229 IF (igrnod(isu1)%NENTITY == 0)
230 . CALL ancmsg(msgid=1131,
231 . anmode=aninfo_blind_1,
232 . msgtype=msgerror,
233 . i1=noint,
234 . c1=titr)
235 END IF
236C
237 IF (isu3 > 0) THEN
238 ipari(45) = isu2
239 ipari(46) = isu3
240 is1=-1
241 is2=-1
242 ELSE
243 ipari(45) = isu1
244 ipari(46) = isu2
245 END IF
246 ipari(13) = is1*10+is2
247C
248! ILEV
249 IF (ilev /= 0 .AND. ilev /= 1 .AND. ilev /= 2 .AND.
250 . ilev /= 3 .and .ilev /= 4 .AND. ilev /= 5 .AND.
251 . ilev /= 10 .AND. ilev /= 11 .AND. ilev /= 12 .AND.
252 . ilev /= 20 .AND. ilev /= 21 .AND. ilev /= 22 .AND.
253 . ilev /= 25 .AND. ilev /= 26 .AND. ilev /= 27 .AND.
254 . ilev /= 28 .AND. ilev /= 30) THEN
255
256 CALL ancmsg(msgid=1614,
257 . msgtype=msgerror,
258 . anmode=aninfo_blind_2,
259 . i1=noint,
260 . c1=titr,
261 . c2='SPOTFLAG',
262 . c3='TYPE2',
263 . i2=ilev)
264 ENDIF
265 IF (ale%GLOBAL%ICAA == 1 .AND. ilev == 0) ilev=4
266 IF (ilev == 5) ilev=0
267
268! IDEL2
269 IF ((ilev/=0 .AND. ilev/=1 .AND. ilev/=5 .AND. ilev/=25 .AND. ilev/=26 .AND. ilev/=27 .AND. ilev/=28)) idel2 = 0
270 IF (n2d == 1) idel2 = 0
271 ipari(17) = idel2
272C
273 IF ((n2d > 0).AND.(ilev/=0)) THEN
274 CALL ancmsg(msgid=3015,
275 . anmode=aninfo_blind_1,
276 . msgtype=msgerror,
277 . i1=noint,
278 . c1=titr,
279 . i2=ilev)
280 ENDIF
281C
282 IF(ibuc==0)ibuc=2
283 ipari(12) = ibuc
284
285CC--- Hierarchy useless for interface type2 with penalty - hiera set to 0
286 IF (ilev == 25 .or. ilev == 26 .or. ilev == 27 .or. ilev == 28) hiera = 0
287
288 ipari(20)=ilev
289
290 nhin2=max(nhin2,hiera)
291
292C.....* Storage IPARI FRIGAP *.........
293 ipari(43) = pid
294 ipari(26) = hiera
295 ipari(34) = ignore
296
297C------------------------------------------------------------
298C Optional Card2 :ILEV = 25,26,27,28
299C------------------------------------------------------------
300C
301 IF (ilev == 25 .or. ilev == 26 .or. ilev == 27 .or. ilev == 28) THEN
302C
303 i7stifs=1
304C
305C--------------------------------------------------
306C EXTRACT DATAS (INTEGER VALUES)
307C--------------------------------------------------
308 CALL hm_get_intv('Istf',igsti,is_available,lsubmodel)
309 IF (.NOT. is_available) igsti = 0
310C -- Hidden flag - PENFLAG,IROT -
311 penflag = 0
312 irot = 0
313C--------------------------------------------------
314C EXTRACT DATAS (REAL VALUES)
315C--------------------------------------------------
316 CALL hm_get_floatv('STFAC',stfac,is_available,lsubmodel,unitab)
317 CALL hm_get_floatv('MAT_MaxVisc',visc,is_available,lsubmodel,unitab)
318C----------------------
319C
320 IF (stfac == zero) stfac=one
321 IF (visc == zero) visc=fiveem2
322C
323C.....* Default values definition *........
324C
325 key1='IGSTI'
326 CALL definter(key1 ,igsti ,iassign ,iprint ,
327 . ntyp ,def_inter)
328
329 IF (igsti == 0) igsti=2
330
331C.....* Storage IPARI FRIGAP *.........
332 ipari(58) = igsti
333 ipari(43) = penflag
334 ipari(48) = irot
335 frigap(14)= visc
336C
337 ENDIF
338C
339C------------------------------------------------------------
340C Optional Card3 Card4:ILEV = 20,21,22
341C------------------------------------------------------------
342C
343 IF (ilev==20 .OR. ilev==21 .OR. ilev==22) THEN
344C
345C--------------------------------------------------
346C EXTRACT DATAS (INTEGER VALUES)
347C--------------------------------------------------
348 CALL hm_get_intv('RUPT',imod,is_available,lsubmodel)
349 CALL hm_get_intv('Ifiltr',ifiltr,is_available,lsubmodel)
350 CALL hm_get_intv('FUNCT_ID_sr',ifuns,is_available,lsubmodel)
351 CALL hm_get_intv('FUNCT_ID_sn',ifunn,is_available,lsubmodel)
352 CALL hm_get_intv('FUNCT_ID_st',ifunt,is_available,lsubmodel)
353 CALL hm_get_intv('Ismstr',isym,is_available,lsubmodel)
354C--------------------------------------------------
355C EXTRACT DATAS (REAL VALUES)
356C--------------------------------------------------
357 CALL hm_get_floatv('MAX_N_DIST',dnmax,is_available,lsubmodel,unitab)
358 CALL hm_get_floatv('MAX_T_DIST',dtmax,is_available,lsubmodel,unitab)
359 CALL hm_get_floatv('FScale11',scal_f,is_available,lsubmodel,unitab)
360 CALL hm_get_floatv('FScale22',scal_sr,is_available,lsubmodel,unitab)
361 CALL hm_get_floatv('FScale33',scal_d,is_available,lsubmodel,unitab)
362 CALL hm_get_floatv('Alpha',alpha,is_available,lsubmodel,unitab)
363 CALL hm_get_floatv('AREA',area,is_available,lsubmodel,unitab)
364C
365 CALL hm_get_floatv_dim('FScale11',f_unit,is_available,lsubmodel,unitab)
366 CALL hm_get_floatv_dim('FScale22',sr_unit,is_available,lsubmodel,unitab)
367 CALL hm_get_floatv_dim('FScale33',d_unit,is_available,lsubmodel,unitab)
368C----------------------
369C
370C.....* CHECK AND Storage IPARI FRIGAP *.........
371
372 IF (imod == 0) imod = 2 ! default value
373 IF (scal_f == zero) scal_f = one*f_unit
374 IF (scal_sr == zero) scal_sr = one*sr_unit
375 IF (scal_d == zero) scal_d = one*d_unit
376 IF (dnmax == zero) dnmax = ep20
377 IF (dtmax == zero) dtmax = ep20
378C
379 IF (ifiltr == 1) THEN
380 IF (alpha == zero) alpha = one
381 alpha = min(alpha,one)
382 alpha = max(alpha,zero)
383 ENDIF
384 IF (ifunn == 0) THEN
385 CALL ancmsg(msgid=848,
386 . msgtype=msgerror,
387 . anmode=aninfo,
388 . i1=noint,
389 . c1=titr,
390 . i2=ifunn,
391 . c2='Func_sn')
392 ENDIF
393 IF (ifunt == 0) THEN
394 CALL ancmsg(msgid=848,
395 . msgtype=msgerror,
396 . anmode=aninfo,
397 . i1=noint,
398 . c1=titr,
399 . i2=ifunt,
400 . c2='Func_st')
401 ENDIF
402 nuvar = 2
403
404C.....* Storage IPARI FRIGAP *.........
405 ipari(35) = nuvar
406 ipari(43) = imod
407 ipari(44) = isym
408 ipari(59) = ifiltr
409 ipari(48) = ifuns
410 ipari(49) = ifunn
411 ipari(50) = ifunt
412 i2rupt(1) = scal_f
413 i2rupt(2) = scal_d
414 i2rupt(3) = scal_sr
415 i2rupt(4) = alpha
416 i2rupt(5) = dnmax
417 i2rupt(6) = dtmax
418 areasl = area
419C
420 ENDIF
421C
422C------------------------------------------------------------
423C Optional Card5 :THERMAL MODELLING & projection flag (hidden)
424C------------------------------------------------------------
425C
426 iproj = 1
427C
428C--------------------------------------------------
429C EXTRACT DATAS (INTEGER VALUES)
430C--------------------------------------------------
431 CALL hm_get_intv('I_TH',intth,is_available,lsubmodel)
432 CALL hm_get_intv('Iproj',iproj,is_available,lsubmodel)
433C--------------------------------------------------
434C EXTRACT DATAS (REAL VALUES)
435C--------------------------------------------------
436 CALL hm_get_floatv('Kthe',kthe,is_available,lsubmodel,unitab)
437C----------------------
438C
439 IF (iproj==0) iproj = 1
440 IF (intth > 0 ) intheat = 1
441
442 ipari(47) = intth
443 frigap(15) = kthe
444 ipari(57) = iproj
445C-----
446 IF (stfac == zero )stfac = one_fifth
447
448 frigap(3)=startt
449 IF (stopt == zero) stopt = ep30
450 frigap(11)=stopt
451 ipari(65) = intkg
452C
453C------------------------------------------------------------
454C RENUMBERING OF FUNCTIONS - USER TO INTERNAL ID
455C------------------------------------------------------------
456
457 IF (ipari(20)==20.OR.ipari(20)==21.OR.ipari(20)==22) THEN
458c INTERFACE TYPE2 - sptflg 20/21/22
459C--------------------------------
460C
461 ok = 0
462 DO j=1,nfunct
463 IF (ipari(48) == npc1(j)) THEN
464 ipari(48)=j
465 EXIT
466 ENDIF
467 ENDDO
468 DO j=1,nfunct
469 IF (ipari(49) == npc1(j)) THEN
470 ipari(49)=j
471 ok = 1
472 EXIT
473 ENDIF
474 ENDDO
475 DO j=1,nfunct
476 IF (ipari(50) == npc1(j)) THEN
477 ipari(50)=j
478 ok = 1
479 EXIT
480 ENDIF
481 ENDDO
482 IF (ok == 0) THEN
483 CALL ancmsg(msgid=121,
484 . msgtype=msgerror,
485 . anmode=aninfo_blind_1,
486 . i1=noint,
487 . c1=titr,
488 . i2=ipari(11))
489 ENDIF
490C
491 ENDIF
492C
493C------------------------------------------------------------
494C PRINTOUT
495C------------------------------------------------------------
496C
497 iprint = 1
498C........* PRINT DEFAULT VALUES *.....................
499C
500 key1='IGNORE'
501 CALL definter(key1 ,ignore ,iassign ,iprint ,
502 . ntyp ,def_inter)
503C
504 key1='ILEV'
505 CALL definter(key1 ,ilev ,iassign ,iprint ,
506 . ntyp ,def_inter)
507C
508 key1='IBUC'
509 CALL definter(key1 ,ibuc ,iassign ,iprint ,
510 . ntyp ,def_inter)
511C
512 key1='IDEL2'
513 CALL definter(key1 ,idel2 ,iassign ,iprint ,
514 . ntyp ,def_inter)
515C
516 key1='IGSTI'
517 CALL definter(key1 ,igsti ,iassign ,iprint ,
518 . ntyp ,def_inter)
519C
520C........* PRINT INTERFACES INPUT *.....................
521
522 IF (ilev == 20 .OR. ilev == 21 .OR. ilev == 22) THEN
523 WRITE(iout,1502)ilev,hiera,ibuc,frigap(4),ignore
524 WRITE(iout,2502)scal_f,scal_d,scal_sr,alpha,areasl,
525 . dnmax,dtmax,ifunn,ifunt,ifuns,imod,isym,ifiltr
526 ELSEIF (ilev == 25 .or. ilev == 26 .or. ilev == 27 .or. ilev == 28) THEN
527 WRITE(iout,1532) ilev,hiera,ibuc,frigap(4),stfac,igsti,
528 . visc,ignore
529 ELSEIF (ilev /= 0) THEN
530 WRITE(iout,1502)ipari(20),hiera,ibuc,frigap(4),ignore
531 ELSE
532 WRITE(iout,1502)int2def,hiera,ibuc,frigap(4),ignore
533 END IF
534 IF (ilev/=1 .and. ilev/=30 .and. ilev/=26) THEN
535 WRITE(iout,1533) iproj
536 END IF
537 WRITE(iout,'(A,A,I5/)')
538 . ' DELETION FLAG CASE FAILURE OF MAIN ELEMENT',
539 . ' SET TO ',idel2
540 IF (intth > 0) THEN
541 WRITE(iout,1534) kthe
542 END IF
543
544C--------------------------------------------------------------
545 IF(is1==0)THEN
546 WRITE(iout,'(6X,A)')'NO SECONDARY SURFACE INPUT'
547 ELSEIF(is1==1)THEN
548 WRITE(iout,'(6X,A)')'SECONDARY SURFACE INPUT BY SEGMENTS'
549 ELSEIF(is1==2)THEN
550 WRITE(iout,'(6X,A)')'SECONDARY SURFACE INPUT BY NODES'
551 ELSEIF(is1==3)THEN
552 WRITE(iout,'(6X,A)')'SECONDARY SURFACE INPUT BY SEGMENTS'
553 ELSEIF(is1==4 )THEN
554 WRITE(iout,'(6X,A)')'SECONDARY SIDE INPUT BY BRICKS'
555 ELSEIF(is1==5 )THEN
556 WRITE(iout,'(6X,A)')'SECONDARY SIDE INPUT BY SOLID ELEMENTS'
557 ENDIF
558 IF(is2==0)THEN
559 WRITE(iout,'(6X,A)')'NO MAIN SURFACE INPUT'
560 ELSEIF(is2==1)THEN
561 WRITE(iout,'(6X,A)')'MAIN SURFACE INPUT BY SEGMENTS'
562 ELSEIF(is2==2)THEN
563 WRITE(iout,'(6X,A)')'MAIN SURFACE INPUT BY NODES'
564 ELSEIF(is2==3)THEN
565 WRITE(iout,'(6X,A)')'MAIN SURFACE INPUT BY SEGMENTS'
566 ELSEIF(is2==4)THEN
567 WRITE(iout,'(6X,A)')'MAIN SURFACE REFERS ',
568 . 'TO HYPER-ELLIPSOIDAL SURFACE'
569 ENDIF
570 IF(is1<0.AND.is2<0) WRITE(iout,'(4X,A)')'SURFACE TO SURFACE INPUT'
571C
572C--------------------------------------------------------------
573 1000 FORMAT(/1x,' INTERFACE NUMBER :',i10,1x,a)
574 1300 FORMAT( /1x,' INTERFACES ' /
575 . 1x,' -------------- '// )
576C------------
577 RETURN
578 1502 FORMAT(//
579 . ' TYPE==2 TIED SLIDING ' //
580 . ' FORMULATION LEVEL . . . . . . . . . . . . ',i5/,
581 . ' HIERARCHICAL SOLVING LEVEL. . . . . . . . ',i5/,
582 . ' SEARCH FORMULATION. . . . . . . . . . . . ',i5/,
583 . ' SEARCH DISTANCE . . . . . . . . . . . . . ',1pg20.13/,
584 . ' IGNORE FLAG . . . . . . . . . . . . . . . ',i5/)
585 1532 FORMAT(//
586 . ' TYPE==2 TIED SLIDING ' //
587 . ' FORMULATION LEVEL . . . . . . . . . . . . ',i5/,
588 . ' HIERARCHICAL SOLVING LEVEL. . . . . . . . ',i5/,
589 . ' SEARCH FORMULATION. . . . . . . . . . . . ',i5/,
590 . ' SEARCH DISTANCE . . . . . . . . . . . . . ',1pg20.13/,
591 . ' STIFFNESS FACTOR. . . . . . . . . . . . . ',1pg20.13/,
592 . ' STIFFNESS FORMULATION . . . . . . . . . . ',i1/,
593 .' 1 : STIFFNESS IS COMPUTED ON MAIN SEGMENT'/,
594 .' 2,3,4,5 : STIFFNESS IS COMPUTED FROM MAIN SEGMENT'/,
595 .' AND SECONDARY NODE'/,
596 . ' CRITICAL DAMPING FACTOR . . . . . . . . . ',1pg20.13/,
597 . ' IGNORE FLAG . . . . . . . . . . . . . . . ',i5/)
598 1533 FORMAT(
599 . ' PROJECTION FLAG . . . . . . . . . . . . . ',i1/)
600 1534 FORMAT(
601 . ' THERMAL INTERFACE . . . . . . . . . . . . . ',//
602 . ' THERMAL heat exchange coefficient .. . . . .',1pg20.13/)
603 2502 FORMAT(' RUPTURE PARAMETERS '
604 . /10x,'SCAL_F . . . . . . . . . . . . . . ',1pg20.13
605 . /10x,'SCAL_DISP . . . . . . . . . . . . . ',1pg20.13
606 . /10x,'SCAL_SR . . . . . . . . . . . . . . ',1pg20.13
607 . /10x,'FILTERING COEFF . . . . . . . . . . ',1pg20.13
608 . /10x,'DEFAULT SECONDARY AREA. . . . . . . . . ',1pg20.13
609 . /10x,'DN_MAX . . . . . . . . . . . . . . ',1pg20.13
610 . /10x,'DT_MAX . . . . . . . . . . . . . . ',1pg20.13
611 . /10x,'IFUNN . . . . . . . . . . . . . . ',i10
612 . /10x,'IFUNT . . . . . . . . . . . . . . ',i10
613 . /10x,'IFUNS . . . . . . . . . . . . . . ',i10
614 . /10x,'IMOD . . . . . . . . . . . . . . ',i10
615 . /10x,'ISYM . . . . . . . . . . . . . . ',i10
616 . /10x,'IFILTR . . . . . . . . . . . . . . ',i10//)
617 END
my_real
#define my_real
Definition cppsort.cpp:32
definter
subroutine definter(key, ival, flag, iprint, ityp, def_inter)
Definition definter.F:46
alpha
#define alpha
Definition eval.h:35
hm_get_floatv
subroutine hm_get_floatv(name, rval, is_available, lsubmodel, unitab)
Definition hm_get_floatv.F:415
hm_get_floatv_dim
subroutine hm_get_floatv_dim(name, dim_fac, is_available, lsubmodel, unitab)
Definition hm_get_floatv_dim.F:159
hm_get_intv
subroutine hm_get_intv(name, ival, is_available, lsubmodel)
Definition hm_get_intv.F:523
hm_option_is_encrypted
subroutine hm_option_is_encrypted(is_encrypted)
Definition hm_option_is_encrypted.F:284
hm_read_inter_type02
subroutine hm_read_inter_type02(ipari, stfac, frigap, noint, igrnod, igrsurf, i2rupt, areasl, def_inter, npc1, titr, unitab, lsubmodel, npari, nparir, snpc1, intheat)
Definition hm_read_inter_type02.F:44
area
subroutine area(d1, x, x2, y, y2, eint, stif0)
Definition hm_read_prop32.F:567
i2rupt
subroutine i2rupt(x, v, a, ms, in, stifn, fsav, weight, irect, nsv, msr, irtl, irupt, crst, mmass, miner, smass, siner, area, uvar, xsm0, dsm, fsm, prop, ipari, nsn, nmn, nuvar, igtyp, pid, npf, tf, itab, fncont, pdama2, isym, inorm, h3d_data, fncontp, ftcontp)
Definition int2rupt.F:122
min
#define min(a, b)
Definition macros.h:20
max
#define max(a, b)
Definition macros.h:21
ale_mod
Definition ale_mod.F:149
ale_mod::ale
type(ale_) ale
Definition ale_mod.F:249
groupdef_mod
Definition groupdef_mod.F:662
message_mod
Definition message_mod.F:1249
names_and_titles_mod
Definition names_and_titles_mod.F:997
names_and_titles_mod::nchartitle
integer, parameter nchartitle
Definition names_and_titles_mod.F:1003
names_and_titles_mod::ncharkey
integer, parameter ncharkey
Definition names_and_titles_mod.F:1000
submodel_mod
Definition submodel_mod.F:712
submodel_mod::nsubmod
integer nsubmod
Definition submodel_mod.F:720
unitab_mod
Definition unitab_mod.F:513
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:889
submodel_mod::submodel_data
Definition submodel_mod.F:723