OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
freform.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/.
23C
24!||====================================================================
25!|| fredec0 ../starter/source/starter/freform.f
26!||--- called by ------------------------------------------------------
27!|| lecig3d ../starter/source/elements/ige3d/lecig3d.F
28!|| nbadigemesh ../starter/source/elements/ige3d/nbadigemesh.F
29!||--- calls -----------------------------------------------------
30!|| ancmsg ../starter/source/output/message/message.F
31!|| freerr ../starter/source/starter/freform.F
32!|| my_exit ../starter/source/output/analyse/analyse.c
33!||--- uses -----------------------------------------------------
34!|| format_mod ../starter/share/modules1/format_mod.F90
35!|| message_mod ../starter/share/message_module/message_mod.F
36!|| reader_old_mod ../starter/share/modules1/reader_old_mod.F90
37!||====================================================================
38 SUBROUTINE fredec0(ID)
39C-----------------------------------------------
40C M o d u l e s
41C-----------------------------------------------
42 USE message_mod
44 USE format_mod , ONLY : lfield, fmt_i
45 USE reader_old_mod , ONLY : kline
46 USE user_id_mod , ONLY : id_limit
47C-----------------------------------------------
48C I m p l i c i t T y p e s
49C-----------------------------------------------
50#include "implicit_f.inc"
51C-----------------------------------------------
52C C o m m o n B l o c k s
53C-----------------------------------------------
54#include "scr17_c.inc"
55C-----------------------------------------------
56 INTEGER IOP,ID
57 CHARACTER(LEN=NCHARFIELD) :: MOT1
58 INTEGER I,J1,J2
59C-----------------------------------------------
60C /KEYW/int_id
61C-----------------------------------------------
62 i=2
63 DO WHILE(kline(i:i)/='/')
64 i=i+1
65 IF(i>ncharline)CALL freerr(0)
66 ENDDO
67 i=i+1
68 IF(i>ncharline)CALL freerr(0)
69 j1=i
70 mot1=kline(j1:j1-1+lfield)
71 READ(mot1,err=999,fmt=fmt_i)id
72 IF (id>id_limit%GLOBAL.OR.id<=0) THEN
73 CALL ancmsg(msgid=510,anmode=aninfo,msgtype=msgerror,
74 . i1=id,c1=kline)
75 ENDIF
76C
77 RETURN
78 999 CALL freerr(0)
79 CALL my_exit(2)
80 END
81C
82!||====================================================================
83!|| fredec4 ../starter/source/starter/freform.F
84!||--- calls -----------------------------------------------------
85!|| freerr ../starter/source/starter/freform.F
86!||--- uses -----------------------------------------------------
87!|| reader_old_mod ../starter/share/modules1/reader_old_mod.F90
88!||====================================================================
89 SUBROUTINE fredec4(COPT)
90C-----------------------------------------------
91C M o d u l e s
92C-----------------------------------------------
94 USE reader_old_mod , ONLY : kline
95C-----------------------------------------------
96C I m p l i c i t T y p e s
97C-----------------------------------------------
98#include "implicit_f.inc"
99C-----------------------------------------------
100C C o m m o n B l o c k s
101C-----------------------------------------------
102#include "scr17_c.inc"
103C
104 CHARACTER(LEN=NCHARFIELD) :: COPT
105C
106 INTEGER I,J1,J2,J
107C-----------------------------------------------
108C /KEYW/int_type/int_id
109C-----------------------------------------------
110 i=2
111 DO WHILE(kline(i:i)/='/')
112 i=i+1
113
114 IF(i>ncharline)CALL freerr(0)
115 ENDDO
116 i=i+1
117
118 IF(i>ncharline)CALL freerr(0)
119 j1=i
120 DO WHILE(kline(i:i)/='/')
121 i=i+1
122 IF(i>ncharline)CALL freerr(0)
123
124 ENDDO
125 j2=i-1
126 copt=kline(j1:j2)
127C
128 RETURN
129 END
130!||====================================================================
131!|| fredec5 ../starter/source/starter/freform.F
132!||--- calls -----------------------------------------------------
133!|| ancmsg ../starter/source/output/message/message.F
134!|| my_exit ../starter/source/output/analyse/analyse.c
135!||--- uses -----------------------------------------------------
136!|| format_mod ../starter/share/modules1/format_mod.F90
137!|| message_mod ../starter/share/message_module/message_mod.f
138!|| reader_old_mod ../starter/share/modules1/reader_old_mod.F90
139!||====================================================================
140 SUBROUTINE fredec5(COPT,ID)
141C-----------------------------------------------
142C M o d u l e s
143C-----------------------------------------------
144 USE reader_old_mod , ONLY : kline
145 USE message_mod
147 USE format_mod , ONLY : lfield, fmt_i
148 USE user_id_mod , ONLY : id_limit
149C-----------------------------------------------
150C I m p l i c i t T y p e s
151C-----------------------------------------------
152#include "implicit_f.inc"
153C-----------------------------------------------
154C C o m m o n B l o c k s
155C-----------------------------------------------
156#include "scr17_c.inc"
157C-----------------------------------------------
158 INTEGER ID
159 CHARACTER(LEN=NCHARKEY) :: COPT
160C-----------------------------------------------
161 CHARACTER(LEN=NCHARFIELD) :: MOT1
162 INTEGER I,J1,J2,J
163C-----------------------------------------------
164C /KEYW ou
165C /KEYW/KEYW2/int_id
166C-----------------------------------------------
167 i=2
168
169 DO WHILE(kline(i:i)/='/'.AND.i<ncharline)
170 i=i+1
171 ENDDO
172 copt=' '
173 i=i+1
174
175 IF(i>ncharline)RETURN
176 j1=i
177
178 DO WHILE(kline(i:i)/='/'.AND.i<ncharline)
179 i=i+1
180 ENDDO
181 j2=i-1
182 copt=kline(j1:j2)
183C
184 id=0
185 i=i+1
186 i=min(i,ncharline)
187 IF(i>ncharline-lfield+1)RETURN
188 j1=i
189 DO WHILE(kline(i:i)/='/')
190 i=i+1
191 IF(i>ncharline)EXIT
192 ENDDO
193 j2=i-1
194
195 j2=min(i-1+lfield,j2)
196 mot1=kline(j1:j2)
197
198 READ(mot1,err=999,fmt=fmt_i)id
199C
200 IF (id>id_limit%GLOBAL.OR.id<=0) THEN
201 CALL ancmsg(msgid=510,anmode=aninfo,msgtype=msgerror,
202 . i1=id,c1=kline)
203 ENDIF
204
205C
206 RETURN
207 999 CALL freerr(0)
208 CALL my_exit(2)
209 END
210!||====================================================================
211!|| fredec6 ../starter/source/starter/freform.F
212!||--- calls -----------------------------------------------------
213!|| my_exit ../starter/source/output/analyse/analyse.c
214!||--- uses -----------------------------------------------------
215!|| reader_old_mod ../starter/share/modules1/reader_old_mod.F90
216!||====================================================================
217 SUBROUTINE fredec6(COPT,COPT2)
218C-----------------------------------------------
219C M o d u l e s
220C-----------------------------------------------
222 USE reader_old_mod , ONLY : kline
223C-----------------------------------------------
224C I m p l i c i t T y p e s
225C-----------------------------------------------
226#include "implicit_f.inc"
227C-----------------------------------------------
228C C o m m o n B l o c k s
229C-----------------------------------------------
230#include "scr17_c.inc"
231C-----------------------------------------------
232 CHARACTER(LEN=NCHARKEY) :: COPT,COPT2
233C-----------------------------------------------
234 INTEGER I,J1,J2,J
235C-----------------------------------------------
236C /KEYW/KEYW2/KEYW3
237C-----------------------------------------------
238 i=2
239
240 DO WHILE(kline(i:i)/='/'.AND.i<ncharline)
241 i=i+1
242 ENDDO
243 copt=' '
244 i=i+1
245
246 IF(i>ncharline)RETURN
247 j1=i
248
249 DO WHILE(kline(i:i)/='/'.AND.i<ncharline)
250 i=i+1
251 ENDDO
252 j2=i-1
253 copt=kline(j1:j2)
254C
255 copt2=' '
256 i=i+1
257 i=min(i,ncharline)
258 j1=i
259
260 DO WHILE(kline(i:i)/='/'.AND.i<ncharline)
261 i=i+1
262 ENDDO
263
264 IF(i>ncharline)RETURN
265 j2=i-1
266 copt2=kline(j1:j2)
267C
268 RETURN
269 999 CALL freerr(0)
270 CALL my_exit(2)
271 END
272!||====================================================================
273!|| nodgrnr5 ../starter/source/starter/freform.F
274!||--- called by ------------------------------------------------------
275!|| hm_read_bcs_wall ../starter/source/boundary_conditions/hm_read_bcs_wall.F90
276!|| hm_read_cload ../starter/source/loads/general/cload/hm_read_cload.F
277!|| hm_read_cyljoint ../starter/source/constraints/general/cyl_joint/hm_read_cyljoint.F
278!|| hm_read_grav ../starter/source/loads/general/grav/hm_read_grav.F
279!|| hm_read_impacc ../starter/source/constraints/general/impvel/hm_read_impacc.f
280!|| hm_read_imptemp ../starter/source/constraints/thermic/hm_read_imptemp.F
281!|| hm_read_load_centri ../starter/source/loads/general/load_centri/hm_read_load_centri.F
282!|| hm_read_merge ../starter/source/constraints/general/merge/hm_read_merge.F
283!|| hm_read_rbe3 ../starter/source/constraints/general/rbe3/hm_read_rbe3.F
284!|| hm_read_xelem ../starter/source/elements/reader/hm_read_xelem.F
285!|| lecig3d ../starter/source/elements/ige3d/lecig3d.F
286!|| lecsec42 ../starter/source/tools/sect/hm_read_sect.F
287!|| lecsec4bolt ../starter/source/tools/sect/lecsec4bolt.F
288!|| read_dfs_detcord ../starter/source/initial_conditions/detonation/read_dfs_detcord.F
289!|| read_dfs_detline ../starter/source/initial_conditions/detonation/read_dfs_detline.F
290!|| read_dfs_detplan ../starter/source/initial_conditions/detonation/read_dfs_detplan.F
291!|| read_dfs_detpoint ../starter/source/initial_conditions/detonation/read_dfs_detpoint.F
292!|| read_dfs_wave_shaper ../starter/source/initial_conditions/detonation/read_dfs_wave_shaper.F
293!|| read_impdisp ../starter/source/constraints/general/impvel/read_impdisp.F
294!|| read_impvel ../starter/source/constraints/general/impvel/read_impvel.f
295!|| read_impvel_lagmul ../starter/source/constraints/general/impvel/read_impvel_lagmul.F
296!||--- calls -----------------------------------------------------
297!|| ancmsg ../starter/source/output/message/message.F
298!||--- uses -----------------------------------------------------
299!|| message_mod ../starter/share/message_module/message_mod.F
300!||====================================================================
301 INTEGER FUNCTION nodgrnr5(IGU ,IGS ,IBUF,IGRNOD,
302 . ITABM1 ,MESS )
303C-----------------------------------------------
304C M o d u l e s
305C-----------------------------------------------
306 USE groupdef_mod
307 USE message_mod
308C-----------------------------------------------
309C I m p l i c i t T y p e s
310C-----------------------------------------------
311#include "implicit_f.inc"
312C-----------------------------------------------
313C C o m m o n B l o c k s
314C-----------------------------------------------
315#include "com04_c.inc"
316C-----------------------------------------------
317 INTEGER igu,igs,ibuf(*),itabm1(*)
318 CHARACTER mess*40
319C-----------------------------------------------
320 TYPE (group_) , DIMENSION(NGRNOD) :: igrnod
321C-----------------------------------------------
322 INTEGER i
323C=======================================================================
324 nodgrnr5 = 0
325 IF (igu > 0) THEN
326 igs=0
327 DO i=1,ngrnod
328 IF(igrnod(i)%ID == igu) THEN
329 igs=i
330 nodgrnr5 = igrnod(igs)%NENTITY
331 EXIT
332 ENDIF
333 ENDDO
334C
335 IF (igs == 0)THEN
336 CALL ancmsg(msgid=53,
337 . msgtype=msgerror,
338 . anmode=aninfo,
339 . c1= mess,
340 . i1=igu)
341 RETURN
342 ENDIF
343C
344 DO i=1,nodgrnr5
345 ibuf(i)=igrnod(igs)%ENTITY(i)
346 ENDDO
347 ENDIF
348C---
349 RETURN
350 END
351!||====================================================================
352!|| nodgrnr6 ../starter/source/starter/freform.F
353!||--- called by ------------------------------------------------------
354!|| hm_read_rbe2 ../starter/source/constraints/general/rbe2/hm_read_rbe2.F
355!|| hm_read_rbody ../starter/source/constraints/general/rbody/hm_read_rbody.F
356!|| hm_read_rbody_lagmul ../starter/source/constraints/general/rbody/hm_read_rbody_lagmul.F
357!||--- calls -----------------------------------------------------
358!|| ancmsg ../starter/source/output/message/message.F
359!||--- uses -----------------------------------------------------
360!|| message_mod ../starter/share/message_module/message_mod.F
361!||====================================================================
362 INTEGER FUNCTION nodgrnr6(M ,IGU ,IGS ,IBUF,IGRNOD,
363 . ITABM1 ,MESS ,ID )
364C-----------------------------------------------
365C M o d u l e s
366C-----------------------------------------------
367 USE groupdef_mod
368 USE message_mod
369C-----------------------------------------------
370C I m p l i c i t T y p e s
371C-----------------------------------------------
372#include "implicit_f.inc"
373C-----------------------------------------------
374C C o m m o n B l o c k s
375C-----------------------------------------------
376#include "com04_c.inc"
377C-----------------------------------------------
378C THIS FUNCTION REMOVES main NODE FROM SECND NODAL SET
379C IN THE KINEMATIC CONSTRAINT DEFINITION
380C-----------------------------------------------
381 INTEGER m,igu,igs,id,ibuf(*),itabm1(*)
382 CHARACTER mess*40
383C-----------------------------------------------
384 TYPE (group_) , DIMENSION(NGRNOD) :: igrnod
385C-----------------------------------------------
386 INTEGER i, mflag
387C=======================================================================
388 nodgrnr6 = 0
389 IF (igu > 0) THEN
390 igs=0
391 DO i=1,ngrnod
392 IF(igrnod(i)%ID == igu) THEN
393 igs=i
394 nodgrnr6 = igrnod(igs)%NENTITY
395 EXIT
396 ENDIF
397 ENDDO
398C
399 IF (igs == 0)THEN
400 CALL ancmsg(msgid=53,
401 . msgtype=msgerror,
402 . anmode=aninfo,
403 . c1= mess,
404 . i1=igu)
405 RETURN
406 ENDIF
407C
408 mflag=0
409 DO i=1,nodgrnr6
410 IF(igrnod(igs)%ENTITY(i)==m) THEN
411 mflag=1
412 ELSE
413 ibuf(i-mflag)=igrnod(igs)%ENTITY(i)
414 ENDIF
415 ENDDO
416 IF(mflag==1) THEN
418 CALL ancmsg(msgid=1624,
419 . msgtype=msgwarning,
420 . anmode=aninfo_blind_1,
421 . i1=id)
422 ENDIF
423 ENDIF
424C---
425 RETURN
426 END
427!||====================================================================
428!|| grfind ../starter/source/starter/freform.F
429!||--- called by ------------------------------------------------------
430!|| r2r_check ../starter/source/coupling/rad2rad/r2r_check.F
431!||--- calls -----------------------------------------------------
432!|| ancmsg ../starter/source/output/message/message.F
433!||--- uses -----------------------------------------------------
434!|| message_mod ../starter/share/message_module/message_mod.F
435!||====================================================================
436 INTEGER FUNCTION grfind(IGU,IGRNOD,MESS)
437C-----------------------------------------------
438C M o d u l e s
439C-----------------------------------------------
440 USE message_mod
441 USE groupdef_mod
442C-----------------------------------------------
443C I m p l i c i t T y p e s
444C-----------------------------------------------
445#include "implicit_f.inc"
446C-----------------------------------------------
447C C o m m o n B l o c k s
448C-----------------------------------------------
449#include "com04_c.inc"
450C-----------------------------------------------
451 INTEGER igu
452 CHARACTER mess*40
453C-----------------------------------------------
454 TYPE (group_) ,DIMENSION(NGRNOD) :: igrnod
455C-----------------------------------------------
456 INTEGER i,ig
457C-----------------------------------------------
458 ig=0
459 DO i=1,ngrnod
460 IF(igrnod(i)%ID==igu)THEN
461 ig=i
462 ENDIF
463 ENDDO
464C
465 IF(ig==0)THEN
466 CALL ancmsg(msgid=53,
467 . msgtype=msgerror,
468 . anmode=aninfo,
469 . i1=igu,
470 . c1='IN NODE GROUP SEARCH')
471 RETURN
472 ENDIF
473 grfind = ig
474C----
475 RETURN
476 END
477C
478C
479!||====================================================================
480!|| freerr ../starter/source/starter/freform.F
481!||--- called by ------------------------------------------------------
482!|| fredec0 ../starter/source/starter/freform.F
483!|| fredec4 ../starter/source/starter/freform.F
484!|| fredec_2key_4id ../starter/source/starter/freform.F
485!|| fredec_2key_4id_t ../starter/source/starter/freform.F
486!|| fredec_key_3id_t ../starter/source/starter/freform.F
487!|| hm_read_inivel ../starter/source/initial_conditions/general/inivel/hm_read_inivel.F
488!|| hm_read_monvol_type1 ../starter/source/airbag/hm_read_monvol_type1.F
489!|| hm_read_monvol_type10 ../starter/source/airbag/hm_read_monvol_type10.F
490!|| hm_read_monvol_type11 ../starter/source/airbag/hm_read_monvol_type11.F
491!|| hm_read_monvol_type2 ../starter/source/airbag/hm_read_monvol_type2.F
492!|| hm_read_monvol_type3 ../starter/source/airbag/hm_read_monvol_type3.F
493!|| hm_read_monvol_type4 ../starter/source/airbag/hm_read_monvol_type4.F
494!|| hm_read_monvol_type5 ../starter/source/airbag/hm_read_monvol_type5.F
495!|| hm_read_monvol_type6 ../starter/source/airbag/hm_read_monvol_type6.F
496!|| hm_read_monvol_type7 ../starter/source/airbag/hm_read_monvol_type7.F
497!|| hm_read_monvol_type8 ../starter/source/airbag/hm_read_monvol_type8.F
498!|| hm_read_monvol_type9 ../starter/source/airbag/hm_read_monvol_type9.f
499!||--- calls -----------------------------------------------------
500!|| ancmsg ../starter/source/output/message/message.F
501!||--- uses -----------------------------------------------------
502!|| message_mod ../starter/share/message_module/message_mod.F
503!|| reader_old_mod ../starter/share/modules1/reader_old_mod.F90
504!||====================================================================
505 SUBROUTINE freerr(IT)
506C-----------------------------------------------
507C M o d u l e s
508C-----------------------------------------------
509 USE reader_old_mod , ONLY : kline, line, key0, kcur, irec
510 USE message_mod
511C-----------------------------------------------
512C I m p l i c i t T y p e s
513C-----------------------------------------------
514#include "implicit_f.inc"
515C-----------------------------------------------
516C C o m m o n B l o c k s
517C-----------------------------------------------
518#include "scr17_c.inc"
519#include "units_c.inc"
520C-----------------------------------------------
521C D u m m y A r g u m e n t s
522C-----------------------------------------------
523 INTEGER IT
524C-----------------------------------------------
525C L o c a l V a r i a b l e s
526C-----------------------------------------------
527 INTEGER IT1
528C=======================================================================
529 it1 = it
530 IF(it1==3)THEN
531 it1=0
532 READ(iin,rec=irec,err=999,fmt='(A)')line
533 it1=1
534 999 CONTINUE
535 ENDIF
536 IF(it1==0)THEN
537 CALL ancmsg(msgid=54,
538 . anmode=aninfo,
539 . msgtype=msgerror,
540 . c1=kline)
541 ELSEIF(it1==1)THEN
542 CALL ancmsg(msgid=55,
543 . anmode=aninfo,
544 . msgtype=msgerror,
545 . c1=key0(kcur),
546 . c2=kline,
547 . c3=line)
548 ENDIF
549 END
550!||====================================================================
551!|| fretitl ../starter/source/starter/freform.F
552!||--- called by ------------------------------------------------------
553!|| hm_preread_bcscyc ../starter/source/constraints/general/bcs/lecbcscyc.F
554!|| hm_preread_sphio ../starter/source/loads/sph/hm_preread_sphio.F
555!|| hm_read_bcs ../starter/source/constraints/general/bcs/hm_read_bcs.F
556!|| hm_read_cluster ../starter/source/output/cluster/hm_read_cluster.F
557!|| hm_read_cyljoint ../starter/source/constraints/general/cyl_joint/hm_read_cyljoint.F
558!|| hm_read_friction ../starter/source/interfaces/friction/reader/hm_read_friction.F
559!|| hm_read_frm ../starter/source/tools/skew/hm_read_frm.F
560!|| hm_read_funct ../starter/source/tools/curve/hm_read_funct.F
561!|| hm_read_fxb1 ../starter/source/constraints/fxbody/hm_read_fxb.F
562!|| hm_read_gauge ../starter/source/output/gauge/hm_read_gauge.F
563!|| hm_read_gjoint ../starter/source/constraints/general/gjoint/hm_read_gjoint.F
564!|| hm_read_inter_fsi ../starter/source/interfaces/reader/hm_read_inter_fsi.F
565!|| hm_read_inter_lagdt_type07 ../starter/source/interfaces/int07/hm_read_inter_lagdt_type07.F
566!|| hm_read_inter_lagmul ../starter/source/interfaces/reader/hm_read_inter_lagmul.F
567!|| hm_read_inter_struct ../starter/source/interfaces/reader/hm_read_inter_struct.F
568!|| hm_read_intsub ../starter/source/output/subinterface/hm_read_intsub.f
569!|| hm_read_link ../starter/source/constraints/rigidlink/hm_read_rlink.F
570!|| hm_read_mat ../starter/source/materials/mat/hm_read_mat.F90
571!|| hm_read_merge ../starter/source/constraints/general/merge/hm_read_merge.F
572!|| hm_read_mpc ../starter/source/constraints/general/mpc/hm_read_mpc.F
573!|| hm_read_nbcs ../starter/source/constraints/general/bcs/hm_read_nbcs.F
574!|| hm_read_part ../starter/source/model/assembling/hm_read_part.F
575!|| hm_read_properties ../starter/source/properties/hm_read_properties.F
576!|| hm_read_rbe2 ../starter/source/constraints/general/rbe2/hm_read_rbe2.F
577!|| hm_read_rbe3 ../starter/source/constraints/general/rbe3/hm_read_rbe3.F
578!|| hm_read_rbody ../starter/source/constraints/general/rbody/hm_read_rbody.f
579!|| hm_read_rbody_lagmul ../starter/source/constraints/general/rbody/hm_read_rbody_lagmul.F
580!|| hm_read_retractor ../starter/source/tools/seatbelts/hm_read_retractor.F
581!|| hm_read_rwall_cyl ../starter/source/constraints/general/rwall/hm_read_rwall_cyl.F
582!|| hm_read_rwall_lagmul ../starter/source/constraints/general/rwall/hm_read_rwall_lagmul.F
583!|| hm_read_rwall_paral ../starter/source/constraints/general/rwall/hm_read_rwall_paral.F
584!|| hm_read_rwall_plane ../starter/source/constraints/general/rwall/hm_read_rwall_plane.F
585!|| hm_read_rwall_spher ../starter/source/constraints/general/rwall/hm_read_rwall_spher.F
586!|| hm_read_rwall_therm ../starter/source/constraints/general/rwall/hm_read_rwall_therm.F
587!|| hm_read_skw ../starter/source/tools/skew/hm_read_skw.F
588!|| hm_read_slipring ../starter/source/tools/seatbelts/hm_read_slipring.F
589!|| hm_read_spcnd ../starter/source/constraints/sph/hm_read_spcnd.F
590!|| hm_read_thchecksum ../starter/source/output/th/hm_read_thchecksum.F90
591!|| hm_read_thgrne ../starter/source/output/th/hm_read_thgrne.F
592!|| hm_read_thgrns ../starter/source/output/th/hm_read_thgrns.F
593!|| hm_read_thgrou ../starter/source/output/th/hm_read_thgrou.f
594!|| hm_read_thgrsens ../starter/source/output/th/hm_read_thgrsens.F
595!|| hm_read_thgrsurf ../starter/source/output/th/hm_read_thgrsurf.F
596!|| hm_read_thpart ../starter/source/output/thpart/hm_read_thpart.F
597!|| hm_thgrki_vent ../starter/source/output/th/hm_thgrki_vent.F
598!|| lecacc ../starter/source/tools/accele/lecacc.F
599!|| lecsec42 ../starter/source/tools/sect/hm_read_sect.F
600!|| lecstack_ply ../starter/source/properties/composite_options/stack/lecstack_ply.F
601!|| prelecsec ../starter/source/tools/sect/prelecsec.F
602!|| prelecsec4bolt ../starter/source/tools/sect/prelecsec4bolt.F
603!|| r2r_void ../starter/source/coupling/rad2rad/r2r_void.F
604!|| read_impdisp ../starter/source/constraints/general/impvel/read_impdisp.F
605!|| read_impdisp_fgeo ../starter/source/constraints/general/impvel/read_impdisp_fgeo.F
606!|| read_impvel ../starter/source/constraints/general/impvel/read_impvel.F
607!|| read_impvel_fgeo ../starter/source/constraints/general/impvel/read_impvel_fgeo.F
608!|| read_impvel_lagmul ../starter/source/constraints/general/impvel/read_impvel_lagmul.F
609!|| read_monvol ../starter/source/airbag/read_monvol.F
610!|| w_gr_entity_e ../starter/source/restart/ddsplit/w_gr_entity.F
611!|| w_gr_entity_n ../starter/source/restart/ddsplit/w_gr_entity.F
612!|| w_gr_entity_p ../starter/source/restart/ddsplit/w_gr_entity.f
613!|| w_islin_str ../starter/source/restart/ddsplit/w_islin_str.F
614!|| w_isurf_str ../starter/source/restart/ddsplit/w_isurf_str.F
615!|| w_subset_str ../starter/source/restart/ddsplit/w_subset_str.F
616!|| write_sensors ../starter/source/tools/sensor/write_sensors.F
617!||--- uses -----------------------------------------------------
618!||====================================================================
619 SUBROUTINE fretitl(TITR,IASC,L)
620C-----------------------------------------------
621C M o d u l e s
622C-----------------------------------------------
624C-----------------------------------------------
625C I m p l i c i t T y p e s
626C-----------------------------------------------
627#include "implicit_f.inc"
628C-----------------------------------------------
629C D u m m y A r g u m e n t s
630C-----------------------------------------------
631 INTEGER L,IASC(*)
632 CHARACTER TITR*(*)
633C-----------------------------------------------
634C L o c a l V a r i a b l e s
635C-----------------------------------------------
636 INTEGER I,J, JMAX
637C-----------------------------------------------
638 j=1
639 jmax=min(ncharline,len(titr))
640 DO i=1,l
641 iasc(i)= ichar(titr(j:j))*65536
642 j = j+1
643 IF(j>jmax) EXIT ! Replacing ncharline by JMAX
644 iasc(i)= iasc(i) + ichar(titr(j:j))*256
645 j = j+1
646 IF(j>jmax) EXIT
647 iasc(i)= iasc(i) + ichar(titr(j:j))
648 j = j+1
649 IF(j>jmax) EXIT
650 ENDDO
651 RETURN
652 END
653!||====================================================================
654!|| fretitl2 ../starter/source/starter/freform.F
655!||--- called by ------------------------------------------------------
656!|| addmaspart ../starter/source/tools/admas/addmaspart.F
657!|| ale_euler_init ../starter/source/materials/ale/ale_euler_init.F
658!|| bsigini ../starter/source/elements/beam/bsigini.F
659!|| buserini ../starter/source/elements/beam/buserini.F
660!|| c3grhead ../starter/source/elements/sh3n/coque3n/c3grhead.F
661!|| c3grtails ../starter/source/elements/sh3n/coque3n/c3grtails.F
662!|| c3init3 ../starter/source/elements/sh3n/coque3n/c3init3.F
663!|| c3inmas ../starter/source/elements/sh3n/coque3n/c3inmas.F
664!|| cbainit3 ../starter/source/elements/shell/coqueba/cbainit3.F
665!|| cgrtails ../starter/source/elements/shell/coque/cgrtails.F
666!|| checkmp ../starter/source/elements/initia/initia.F
667!|| checkrby ../starter/source/constraints/general/rbody/checkrby.F
668!|| chekmp2 ../starter/source/elements/initia/initia.F
669!|| chkfunct ../starter/source/tools/curve/lecfun.F
670!|| chktyp2 ../starter/source/interfaces/interf1/chktyp2.F
671!|| cinit3 ../starter/source/elements/shell/coque/cinit3.F
672!|| cinmas ../starter/source/elements/shell/coque/cinmas.F
673!|| cm27in3 ../starter/source/materials/mat/mat027/cm27in3.F
674!|| cmatini4 ../starter/source/materials/mat_share/cmatini4.F
675!|| corthini ../starter/source/elements/shell/coque/corthini.F
676!|| csigini ../starter/source/elements/shell/coque/csigini.F
677!|| csigini4 ../starter/source/elements/shell/coqueba/scigini4.F
678!|| cuserini4 ../starter/source/elements/shell/coqueba/cuserini4.f
679!|| desout ../starter/source/output/outp/desout.F
680!|| ecrsub2 ../starter/source/model/assembling/hm_read_subset.F
681!|| fsdcod ../starter/source/system/fsdcod.F
682!|| genani1 ../starter/source/output/anim/genani1.F
683!|| hireorbe3 ../starter/source/constraints/general/rbe3/hm_read_rbe3.F
684!|| hm_read_fxb1 ../starter/source/constraints/fxbody/hm_read_fxb.F
685!|| hm_read_inistate_d00 ../starter/source/elements/initia/hm_read_inistate_d00.F
686!|| hm_read_intsub ../starter/source/output/subinterface/hm_read_intsub.F
687!|| hm_read_merge ../starter/source/constraints/general/merge/hm_read_merge.F
688!|| hm_read_nonlocal ../starter/source/materials/nonlocal/hm_read_nonlocal.F
689!|| hm_read_part ../starter/source/model/assembling/hm_read_part.F
690!|| hm_read_prop04 ../starter/source/properties/spring/hm_read_prop04.F
691!|| hm_read_prop09 ../starter/source/properties/shell/hm_read_prop09.F
692!|| hm_read_prop10 ../starter/source/properties/shell/hm_read_prop10.F
693!|| hm_read_prop11 ../starter/source/properties/shell/hm_read_prop11.F
694!|| hm_read_prop16 ../starter/source/properties/shell/hm_read_prop16.F
695!|| hm_read_prop17 ../starter/source/properties/shell/hm_read_prop17.F
696!|| hm_read_prop19 ../starter/source/properties/shell/hm_read_prop19.F
697!|| hm_read_prop26 ../starter/source/properties/spring/hm_read_prop26.F
698!|| hm_read_prop_generic ../starter/source/properties/hm_read_prop_generic.F
699!|| hm_read_properties ../starter/source/properties/hm_read_properties.F
700!|| hm_read_rbody ../starter/source/constraints/general/rbody/hm_read_rbody.F
701!|| hm_read_sphcel ../starter/source/elements/reader/hm_read_sphcel.F
702!|| hm_read_subset ../starter/source/model/assembling/hm_read_subset.F
703!|| hm_read_thchecksum ../starter/source/output/th/hm_read_thchecksum.F90
704!|| hm_read_thgrki ../starter/source/output/th/hm_read_thgrki.F
705!|| hm_read_thgrki_rbody ../starter/source/output/th/hm_read_thgrki_rbody.F
706!|| hm_read_thgrne ../starter/source/output/th/hm_read_thgrne.F
707!|| hm_read_thgrns ../starter/source/output/th/hm_read_thgrns.F
708!|| hm_read_thgrsens ../starter/source/output/th/hm_read_thgrsens.F
709!|| hm_read_thgrsurf ../starter/source/output/th/hm_read_thgrsurf.F
710!|| hm_read_xref ../starter/source/loads/reference_state/xref/hm_read_xref.F
711!|| hm_thgrki_vent ../starter/source/output/th/hm_thgrki_vent.F
712!|| ini_fxbody ../starter/source/constraints/fxbody/ini_fxbody.F
713!|| iniguser ../starter/source/system/iniguser.F
714!|| inintr ../starter/source/interfaces/interf1/inintr.F
715!|| inintr2 ../starter/source/interfaces/inter3d1/inintr2.F
716!|| inintr_thkvar ../starter/source/interfaces/interf1/inintr_thkvar.F
717!|| inintsub ../starter/source/interfaces/interf1/inintsub.F
718!|| inintsub_11 ../starter/source/output/subinterface/inintsub_11.F
719!|| inintsub_25 ../starter/source/output/subinterface/inintsub_25.F
720!|| inintsub_7 ../starter/source/output/subinterface/inintsub_7.F
721!|| inirbe2 ../starter/source/constraints/general/rbe2/hm_read_rbe2.f
722!|| inirbe3 ../starter/source/constraints/general/rbe3/hm_read_rbe3.F
723!|| initia ../starter/source/elements/initia/initia.F
724!|| inivoid ../starter/source/elements/initia/inivoid.F
725!|| inter_dcod_friction ../starter/source/interfaces/reader/inter_dcod_friction.F
726!|| inter_dcod_function ../starter/source/interfaces/reader/inter_dcod_function.F
727!|| inter_dcod_sensor ../starter/source/interfaces/reader/inter_dcod_sensor.F
728!|| itagsl2 ../starter/source/interfaces/inter3d1/itagsl2.F
729!|| kinchk ../starter/source/constraints/general/kinchk.F
730!|| lcgeo19 ../starter/source/elements/shell/coque/lcgeo19.F
731!|| lecins ../starter/source/interfaces/interf1/lecins.F
732!|| lecint ../starter/source/interfaces/interf1/lecint.F
733!|| lecstack_ply ../starter/source/properties/composite_options/stack/lecstack_ply.F
734!|| lecstamp ../starter/source/interfaces/interf1/lecstamp.F
735!|| lgmini_bc ../starter/source/tools/lagmul/lgmini_bc.F
736!|| lgmini_fxv ../starter/source/tools/lagmul/lgmini_fxv.F
737!|| lgmini_gj ../starter/source/tools/lagmul/lgmini_gj.F
738!|| lgmini_i2 ../starter/source/tools/lagmul/lgmini_i2.F
739!|| lgmini_i7 ../starter/source/tools/lagmul/lgmini_i7.F
740!|| lgmini_mpc ../starter/source/tools/lagmul/lgmini_mpc.F
741!|| lgmini_rby ../starter/source/tools/lagmul/lgmini_rby.F
742!|| lgmini_rwl ../starter/source/tools/lagmul/lgmini_rwl.F
743!|| m20dcod ../starter/source/system/fsdcod.F
744!|| matini ../starter/source/materials/mat_share/matini.F
745!|| multifluid_init3 ../starter/source/multifluid/multifluid_init3.F
746!|| newdbl2 ../starter/source/system/sysfus.F
747!|| outpart ../starter/source/elements/initia/initia.F
748!|| outpart5 ../starter/source/elements/initia/initia.F
749!|| pgrtails ../starter/source/elements/beam/pgrtails.F
750!|| pornod ../starter/source/ale/pornod.F
751!|| q4init2 ../starter/source/elements/solid_2d/quad4/q4init2.F
752!|| qgrhead ../starter/source/elements/solid_2d/quad/qgrhead.F
753!|| qgrtails ../starter/source/elements/solid_2d/quad/qgrtails.F
754!|| qinit2 ../starter/source/elements/solid_2d/quad/qinit2.F
755!|| qmorth2 ../starter/source/elements/solid_2d/quad/qmorth2.F
756!|| rcheckmass ../starter/source/elements/spring/rcheckmass.F
757!|| remn_i2op ../starter/source/interfaces/inter3d1/i7remnode.f
758!|| remn_i2op_edg25 ../starter/source/interfaces/int25/i25remlin.f
759!|| remn_self24 ../starter/source/interfaces/inter3d1/remn_self24.F
760!|| ri2_int24p_ini ../starter/source/interfaces/inter3d1/i7remnode.F
761!|| rigid_mat ../starter/source/materials/mat/mat019/rigid_mat.F
762!|| rini33_rb ../starter/source/elements/joint/rjoint/rini33_rb.F
763!|| rini45_rb ../starter/source/elements/joint/rjoint/rini45_rb.F
764!|| rinit3 ../starter/source/elements/spring/rinit3.F
765!|| rkini3 ../starter/source/elements/spring/rkini3.F
766!|| s10init3 ../starter/source/elements/solid/solide10/s10init3.F
767!|| s16init3 ../starter/source/elements/thickshell/solide16/s16init3.F
768!|| s20init3 ../starter/source/elements/solid/solide20/s20init3.F
769!|| s4init3 ../starter/source/elements/solid/solide4/s4init3.F
770!|| s4refsta3 ../starter/source/elements/solid/solide4/s4refsta3.F
771!|| s6cinit3 ../starter/source/elements/thickshell/solide6c/s6cinit3.F
772!|| s8cinit3 ../starter/source/elements/thickshell/solide8c/s8cinit3.F
773!|| s8zinit3 ../starter/source/elements/solid/solide8z/s8zinit3.F
774!|| scaleini ../starter/source/elements/initia/scaleini.F
775!|| scinit3 ../starter/source/elements/thickshell/solidec/scinit3.F
776!|| scmorth3 ../starter/source/elements/thickshell/solidec/scmorth3.F
777!|| sgrtails ../starter/source/elements/solid/solide/sgrtails.f
778!|| sinit3 ../starter/source/elements/solid/solide/sinit3.F
779!|| smorth3 ../starter/source/elements/solid/solide/smorth3.F
780!|| sms_init ../starter/source/ams/sms_init.F
781!|| spgrtails ../starter/source/elements/sph/spgrtails.F
782!|| sphdcod ../starter/source/elements/sph/sphdcod.F
783!|| st_qaprint_clusters ../starter/source/output/qaprint/st_qaprint_clusters.F
784!|| st_qaprint_constraints ../starter/source/output/qaprint/st_qaprint_constraints.F
785!|| st_qaprint_friction ../starter/source/output/qaprint/st_qaprint_friction.F
786!|| st_qaprint_interfaces ../starter/source/output/qaprint/st_qaprint_interfaces.F
787!|| st_qaprint_loads ../starter/source/output/qaprint/st_qaprint_loads.F
788!|| st_qaprint_materials ../starter/source/output/qaprint/st_qaprint_materials.F
789!|| st_qaprint_model_tools ../starter/source/output/qaprint/st_qaprint_model_tools.F
790!|| st_qaprint_output_databases ../starter/source/output/qaprint/st_qaprint_output_databases.F
791!|| st_qaprint_properties ../starter/source/output/qaprint/st_qaprint_properties.F
792!|| st_qaprint_thgrou ../starter/source/output/qaprint/st_qaprint_time_histories.F
793!|| suinit3 ../starter/source/elements/elbuf_init/suinit3.F
794!|| t3grhead ../starter/source/elements/solid_2d/tria/t3grhead.F
795!|| t3grtails ../starter/source/elements/solid_2d/tria/t3grtails.F
796!|| thprin ../starter/source/output/th/thprin.F
797!|| tinit3 ../starter/source/elements/truss/tinit3.F
798!|| updmat ../starter/source/materials/updmat.F
799!|| write_i_c_debug ../starter/source/output/tools/write_debug.F
800!|| xinit3 ../starter/source/elements/xelem/xinit3.F
801!||--- uses -----------------------------------------------------
802!||====================================================================
803 SUBROUTINE fretitl2(TITR,IASC,L)
804C-----------------------------------------------
805C M o d u l e s
806C-----------------------------------------------
808C-----------------------------------------------
809C I m p l i c i t T y p e s
810C-----------------------------------------------
811#include "implicit_f.inc"
812C-----------------------------------------------
813C D u m m y A r g u m e n t s
814C-----------------------------------------------
815 INTEGER L,IASC(*)
816 CHARACTER TITR*(*)
817C-----------------------------------------------
818C L o c a l V a r i a b l e s
819C-----------------------------------------------
820 INTEGER I,J
821C-----------------------------------------------
822 j=1
823 DO i=1,l
824 titr(j:j)=char(iasc(i)/65536)
825 j=j+1
826 IF(j>nchartitle) EXIT
827 titr(j:j)=char(mod(iasc(i),65536)/256)
828 j=j+1
829 IF(j>nchartitle) EXIT
830 titr(j:j)=char(mod(iasc(i),256))
831 j=j+1
832 IF(j>nchartitle) EXIT
833 ENDDO
834 RETURN
835 END
836!||====================================================================
837!|| nextsla ../starter/source/starter/freform.F
838!||--- called by ------------------------------------------------------
839!|| sz_r2r ../starter/source/coupling/rad2rad/routines_r2r.F
840!||--- calls -----------------------------------------------------
841!|| my_exit ../starter/source/output/analyse/analyse.c
842!||--- uses -----------------------------------------------------
843!|| reader_old_mod ../starter/share/modules1/reader_old_mod.F90
844!||====================================================================
845 SUBROUTINE nextsla
846C-----------------------------------------------
847C M o d u l e s
848C-----------------------------------------------
849 USE reader_old_mod , ONLY : line, kline, key0, kcur, lkey0, irec
850C-----------------------------------------------
851C I m p l i c i t T y p e s
852C-----------------------------------------------
853#include "implicit_f.inc"
854C-----------------------------------------------
855C C o m m o n B l o c k s
856C-----------------------------------------------
857#include "scr17_c.inc"
858#include "units_c.inc"
859C-----------------------------------------------
860 IF (irec<=0) THEN
861 irec=1
862 READ(iin,rec=irec,err=999,fmt='(A)')line
863 ELSE
864 READ(iin,rec=irec,err=999,fmt='(a)')LINE
865 DO WHILE(LINE(1:1)/='/')
866 IREC=IREC+1
867 READ(IIN,REC=IREC,ERR=999,FMT='(a)')LINE
868 ENDDO
869 END IF
870 IF(LINE(2:1+LKEY0(KCUR))/=KEY0(KCUR)(1:LKEY0(KCUR)))GOTO 999
871 KLINE=LINE
872 RETURN
873 999 CALL FREERR(1)
874 CALL MY_EXIT(2)
875 END
876
877!||====================================================================
878!|| fredec_2key_id_or_key_id ../starter/source/starter/freform.F
879!||--- calls -----------------------------------------------------
880!|| ancmsg ../starter/source/output/message/message.F
881!|| my_exit ../starter/source/output/analyse/analyse.c
882!||--- uses -----------------------------------------------------
883!|| format_mod ../starter/share/modules1/format_mod.F90
884!|| message_mod ../starter/share/message_module/message_mod.F
885!|| reader_old_mod ../starter/share/modules1/reader_old_mod.F90
886!||====================================================================
887 SUBROUTINE FREDEC_2KEY_ID_OR_KEY_ID(KEY2,KEY3,UID,SUB_ID)
888C-----------------------------------------------
889C M o d u l e s
890C-----------------------------------------------
891 USE MESSAGE_MOD
892 USE NAMES_AND_TITLES_MOD , ONLY : NCHARTITLE, NCHARKEY, NCHARFIELD, NCHARLINE
893 USE FORMAT_MOD , ONLY : FMT_I
894 USE READER_OLD_MOD , ONLY : KLINE
895 USE USER_ID_MOD , ONLY : ID_LIMIT
896C-----------------------------------------------
897C I m p l i c i t T y p e s
898C-----------------------------------------------
899#include "implicit_f.inc"
900C-----------------------------------------------
901C C o m m o n B l o c k s
902C-----------------------------------------------
903#include "scr17_c.inc"
904C-----------------------------------------------
905 INTEGER UID,SUB_ID
906 CHARACTER(LEN=NCHARTITLE) :: TITR
907 CHARACTER(LEN=NCHARKEY) :: KEY2,KEY3
908C-----------------------------------------------
909 INTEGER I,J1,J2,J3,J, JMAX
910 CHARACTER(LEN=NCHARFIELD) :: MOT1
911C-----------------------------------------------
912C /KEYW/KEY2/KEY3/u_id
913C /KEYW/KEY2/u_id
914C /KEYW/u_id
915C-----------------------------------------------
916
917 JMAX = ncharline
918
919C Pass KEY1
920 UID=0
921 SUB_ID = 0
922 I=2
923 DO WHILE(KLINE(I:I)/='/.AND.'I<ncharline)
924 I=I+1
925 ENDDO
926 KEY2=' '
927 KEY3=' '
928 I=I+1
929 IF(I>ncharline)RETURN
930C Read KEY2
931 J1=I
932 DO WHILE(KLINE(I:I)/='/.AND.'I<ncharline)
933 I=I+1
934 ENDDO
935 IF (I>=ncharline) THEN
936 MOT1=KLINE(J1:I)
937 IF (KLINE(J1:MIN(JMAX,J1+2))/='aux.AND.'
938 . KLINE(J1:MIN(JMAX,J1+3))/='epsp.AND.'
939 . KLINE(J1:MIN(JMAX,J1+5))/='epsp_f.AND.'
940 . KLINE(J1:MIN(JMAX,J1+4))/='ortho.AND.'
941 . KLINE(J1:MIN(JMAX,J1+5))/='stra_f.AND.'
942 . KLINE(J1:MIN(JMAX,J1+5))/='strs_f.AND.'
943 . KLINE(J1:MIN(JMAX,J1+4))/='thick.AND.'
944 . KLINE(J1:MIN(JMAX,J1+7))/='orth_loc.AND.'
945 . KLINE(J1:MIN(JMAX,J1+5))/='stress.AND.'
946 . KLINE(J1:MIN(JMAX,J1+9))/='scale_yld.AND.'
947 . KLINE(J1:MIN(JMAX,J1+4))/='fail.AND.'
948 . KLINE(J1:MIN(JMAX,J1+4))/='fill.AND.'
949 . KLINE(J1:MIN(JMAX,J1+4))/='full.AND.'
950 . KLINE(J1:MIN(JMAX,J1+3))/='dens.AND.'
951 . KLINE(J1:MIN(JMAX,J1+3))/='eref.AND.'
952 . KLINE(J1:MIN(JMAX,J1+3))/='ener' ) THEN
953 READ(MOT1,ERR=999,FMT=FMT_I)UID
954.OR. IF (UID > ID_LIMIT%GLOBAL UID < 0) THEN
955 CALL ANCMSG(MSGID=510,ANMODE=ANINFO,MSGTYPE=MSGERROR,I1=UID,C1=KLINE)
956 RETURN
957 ENDIF
958 RETURN
959 ENDIF
960 ENDIF
961 IF (KLINE(J1:MIN(JMAX,J1+2))=='aux') THEN
962 J2=J1+3
963 ENDIF
964 IF (KLINE(J1:MIN(JMAX,J1+3))=='epsp') THEN
965 J2=J1+4
966 ENDIF
967 IF (KLINE(J1:MIN(JMAX,J1+5))=='epsp_f') THEN
968 J2=J1+6
969 ENDIF
970 IF (KLINE(J1:MIN(JMAX,J1+4))=='ortho') THEN
971 J2=J1+5
972 ENDIF
973 IF (KLINE(J1:MIN(JMAX,J1+8))=='stra_fglo') THEN
974 J2=J1+6
975 ELSEIF (KLINE(J1:MIN(JMAX,J1+5))=='stra_f') THEN
976 J2=J1+6
977 ENDIF
978 IF (KLINE(J1:MIN(JMAX,J1+8))=='strs_fglo') THEN
979 J2=J1+9
980 ELSEIF (KLINE(J1:MIN(JMAX,J1+5))=='strs_f') THEN
981 J2=J1+6
982 ENDIF
983 IF (KLINE(J1:MIN(JMAX,J1+4))=='thick') THEN
984 J2=J1+5
985 ENDIF
986 IF (KLINE(J1:MIN(JMAX,J1+7))=='orth_loc') THEN
987 J2=J1+8
988 ENDIF
989 IF (KLINE(J1:MIN(JMAX,J1+5))=='stress') THEN
990 J2=J1+6
991 ENDIF
992 IF (KLINE(J1:MIN(JMAX,J1+9))=='scale_yld') THEN
993 J2=J1+9
994 ENDIF
995 IF (KLINE(J1:MIN(JMAX,J1+5))=='fail') THEN
996 J2=J1+4
997 ENDIF
998 IF (KLINE(J1:MIN(JMAX,J1+5))=='fill') THEN
999 J2=J1+4
1000 ENDIF
1001 IF (KLINE(J1:MIN(JMAX,J1+5))=='full') THEN
1002 J2=J1+4
1003 ENDIF
1004 IF (KLINE(J1:MIN(JMAX,J1+3))=='dens') THEN
1005 J2=J1+4
1006 ENDIF
1007 IF (KLINE(J1:MIN(JMAX,J1+3))=='ener') THEN
1008 J2=J1+4
1009 ENDIF
1010 IF (KLINE(J1:MIN(JMAX,J1+3))=='eref') THEN
1011 J2=J1+4
1012 ENDIF
1013 KEY2=KLINE(J1:MIN(JMAX,J2-1))
1014C Read KEY3
1015 DO WHILE(KLINE(I:I)/='/.AND.'I<ncharline)
1016 I=I+1
1017 ENDDO
1018 J2 = I+1
1019 J2 = MIN(JMAX,J2)
1020 IF (I>=ncharline) THEN
1021 MOT1=KLINE(J2:I)
1022 IF (KLINE(J2:MIN(JMAX,J2+5))/='stra_f.AND.'
1023 . KLINE(J2:MIN(JMAX,J2+5))/='strs_f') THEN
1024 READ(MOT1,ERR=999,FMT=FMT_I)UID
1025.OR. IF (UID > ID_LIMIT%GLOBAL UID < 0) THEN
1026 CALL ANCMSG(MSGID=510,ANMODE=ANINFO,MSGTYPE=MSGERROR,
1027 . I1=UID,C1=KLINE)
1028 RETURN
1029 ENDIF
1030 RETURN
1031 ENDIF
1032 ENDIF
1033 IF (KLINE(J2:MIN(JMAX,J2+3))=='glob') THEN
1034 J3=J2+3
1035 J3 = MIN(JMAX,J3)
1036 I = J3
1037 KEY3=KLINE(J2:J3)
1038 DO WHILE(KLINE(I:I)/='/.AND.' I<ncharline)
1039 I=I+1
1040 ENDDO
1041 I=I+1
1042 I=MIN(ncharline,I)
1043 ELSEIF (KLINE(J2:MIN(JMAX,J2+8))=='stra_fglo.OR.'
1044 . KLINE(J2:MIN(JMAX,J2+8))=='strs_fglo' ) THEN
1045 J3=J2+8
1046 J3 = MIN(JMAX,J3)
1047 I = J3
1048 KEY3=KLINE(J2:J3)
1049 DO WHILE(KLINE(I:I)/='/.AND.' I<ncharline)
1050 I=I+1
1051 ENDDO
1052 I=I+1
1053 I=MIN(JMAX,I)
1054 ELSEIF (KLINE(J2:MIN(JMAX,J2+5))=='stra_f' .OR.
1055 . kline(j2:min(jmax,j2+5))=='STRS_F' ) THEN
1056 j3=j2+5
1057 j3 = min(jmax,j3)
1058 i = j3
1059 key3=kline(j2:j3)
1060 DO WHILE(kline(i:i)/='/' .AND. i<ncharline)
1061 i=i+1
1062 ENDDO
1063 i=i+1
1064 i = min(jmax,i)
1065 ELSE
1066 j3=j2
1067 i=i+1
1068 i = min(jmax,i)
1069 key3=' '
1070 ENDIF
1071C--- read UID
1072 j1=i
1073 DO WHILE(kline(i:i)/='/' .AND. i<ncharline)
1074 i=i+1
1075 ENDDO
1076 mot1=kline(j1:i-1)
1077 READ(mot1,err=999,fmt=fmt_i)uid
1078 IF (uid > id_limit%GLOBAL .OR. uid < 0) THEN
1079 CALL ancmsg(msgid=510,anmode=aninfo,msgtype=msgerror,
1080 . i1=uid,c1=kline)
1081 ENDIF
1082C--- read SUB_ID
1083 i=i+1
1084 i = min(jmax,i)
1085 j1=i
1086 DO WHILE(kline(i:i)/='/' .AND. i<ncharline)
1087 i=i+1
1088 ENDDO
1089 mot1=kline(j1:i-1)
1090 READ(mot1,err=999,fmt=fmt_i)sub_id
1091C---
1092 RETURN
1093 999 CALL freerr(0)
1094 CALL my_exit(2)
1095 END
1096!||====================================================================
1097!|| fredec_2key_4id_t ../starter/source/starter/freform.F
1098!||--- called by ------------------------------------------------------
1099!|| nbadigemesh ../starter/source/elements/ige3d/nbadigemesh.F
1100!||--- calls -----------------------------------------------------
1101!|| ancmsg ../starter/source/output/message/message.F
1102!|| freerr ../starter/source/starter/freform.F
1103!|| my_exit ../starter/source/output/analyse/analyse.c
1104!||--- uses -----------------------------------------------------
1105!|| format_mod ../starter/share/modules1/format_mod.F90
1106!|| message_mod ../starter/share/message_module/message_mod.F
1107!|| reader_old_mod ../starter/share/modules1/reader_old_mod.F90
1108!||====================================================================
1109 SUBROUTINE fredec_2key_4id_t(KEY2,ID,UID,VERS,SUB_ID,TITR)
1110C-----------------------------------------------
1111C M o d u l e s
1112C-----------------------------------------------
1113 USE reader_old_mod , ONLY : kline, irec
1114 USE message_mod
1116 USE format_mod , ONLY : fmt_i
1117 USE user_id_mod , ONLY : id_limit
1118C-----------------------------------------------
1119C I m p l i c i t T y p e s
1120C-----------------------------------------------
1121#include "implicit_f.inc"
1122C-----------------------------------------------
1123C C o m m o n B l o c k s
1124C-----------------------------------------------
1125#include "scr17_c.inc"
1126#include "units_c.inc"
1127C-----------------------------------------------
1128 INTEGER ID,UID,VERS,SUB_ID
1129 CHARACTER(LEN=NCHARTITLE) :: TITR
1130 CHARACTER(LEN=NCHARKEY) :: KEY2
1131C-----------------------------------------------
1132 INTEGER I,J1,J2,J
1133 CHARACTER(LEN=NCHARFIELD) :: MOT1
1134C-----------------------------------------------
1135C /KEYW/KEY2/int_id/u_id/VERS
1136C + char_title
1137C-----------------------------------------------
1138C Pass KEY1
1139 i=2
1140 DO WHILE(kline(i:i)/='/')
1141 i=i+1
1142 IF(i>ncharline)CALL freerr(0)
1143 ENDDO
1144 i=i+1
1145C Read KEY2
1146 j1=i
1147 DO WHILE(kline(i:i)/='/')
1148 i=i+1
1149 IF(i>ncharline)CALL freerr(0)
1150 ENDDO
1151 j2=i-1
1152 key2=kline(j1:j2)
1153 i=i+1
1154C--- read ID
1155 j1=i
1156 DO WHILE(kline(i:i)/='/' .AND. i-j1 <= ncharfield)
1157 i=i+1
1158 ENDDO
1159 IF (i > ncharline) CALL freerr(0)
1160 j2 = i-1
1161 mot1=kline(j1:j2)
1162 READ(mot1,err=999,fmt=fmt_i)id
1163 IF (id > id_limit%GLOBAL .OR. id <= 0) THEN
1164 CALL ancmsg(msgid=510,anmode=aninfo,msgtype=msgerror,i1=id,c1=kline)
1165 ENDIF
1166 i =i+1
1167C--- read UID
1168 j1=i
1169 DO WHILE(kline(i:i)/='/' .AND. i-j1 <= ncharfield)
1170 i=i+1
1171 ENDDO
1172 IF (i > ncharline) CALL freerr(0)
1173 j2 = i-1
1174 mot1=kline(j1:j2)
1175 READ(mot1,err=999,fmt=fmt_i)uid
1176 IF (uid > id_limit%GLOBAL .OR. uid < 0) THEN
1177 CALL ancmsg(msgid=510,anmode=aninfo,msgtype=msgerror,i1=uid,c1=kline)
1178 ENDIF
1179 i =i+1
1180C--- read VERS
1181 j1=i
1182 DO WHILE(kline(i:i)/='/' .AND. i-j1 <= ncharfield)
1183 i=i+1
1184 ENDDO
1185 j2 = i-1
1186 mot1=kline(j1:j2)
1187 READ(mot1,err=999,fmt=fmt_i)vers
1188C--- read SUB_ID
1189 i =i+1
1190 j1=i
1191 DO WHILE(kline(i:i)/='/' .AND. i-j1 <= ncharfield)
1192 i=i+1
1193 ENDDO
1194 j2 = i-1
1195 mot1=kline(j1:j2)
1196 READ(mot1,err=999,fmt=fmt_i)sub_id
1197C--- read TITR
1198 irec=irec+1
1199 READ(iin,rec=irec,err=999,fmt='(A)') titr
1200C---
1201 RETURN
1202 999 CALL freerr(0)
1203 CALL my_exit(2)
1204 END
1205!||====================================================================
1206!|| fredec_key_3id_t ../starter/source/starter/freform.F
1207!||--- called by ------------------------------------------------------
1208!|| nbadigemesh ../starter/source/elements/ige3d/nbadigemesh.F
1209!||--- calls -----------------------------------------------------
1210!|| ancmsg ../starter/source/output/message/message.F
1211!|| freerr ../starter/source/starter/freform.F
1212!|| my_exit ../starter/source/output/analyse/analyse.c
1213!||--- uses -----------------------------------------------------
1214!|| format_mod ../starter/share/modules1/format_mod.F90
1215!|| message_mod ../starter/share/message_module/message_mod.F
1216!|| reader_old_mod ../starter/share/modules1/reader_old_mod.F90
1217!||====================================================================
1218 SUBROUTINE fredec_key_3id_t(ID,UID,VERS,TITR)
1219C-----------------------------------------------
1220C M o d u l e s
1221C-----------------------------------------------
1222 USE message_mod
1224 USE format_mod , ONLY : fmt_i
1225 USE reader_old_mod , ONLY : kline, irec
1226 USE user_id_mod , ONLY : id_limit
1227C-----------------------------------------------
1228C I m p l i c i t T y p e s
1229C-----------------------------------------------
1230#include "implicit_f.inc"
1231C-----------------------------------------------
1232C C o m m o n B l o c k s
1233C-----------------------------------------------
1234#include "scr17_c.inc"
1235#include "units_c.inc"
1236C-----------------------------------------------
1237 INTEGER IOP,ID,UID,VERS
1238 CHARACTER(LEN=NCHARFIELD) :: MOT1
1239 CHARACTER(LEN=NCHARTITLE) :: TITR
1240 INTEGER I,J1,J2
1241C-----------------------------------------------
1242C /KEYW/int_id/uid/VERS
1243C-----------------------------------------------
1244 i=2
1245 DO WHILE(kline(i:i)/='/')
1246 i=i+1
1247 IF (i > ncharline)CALL freerr(0)
1248 ENDDO
1249 i=i+1
1250 IF (i > ncharline)CALL freerr(0)
1251C--- read ID
1252 j1=i
1253 DO WHILE(kline(i:i)/='/' .AND. i-j1 <= ncharfield)
1254 i=i+1
1255 ENDDO
1256 IF (i > ncharline) CALL freerr(0)
1257 j2 = i-1
1258 mot1=kline(j1:j2)
1259 READ(mot1,err=999,fmt=fmt_i)id
1260 IF (id > id_limit%GLOBAL .OR. id <= 0) THEN
1261 CALL ancmsg(msgid=510,anmode=aninfo,msgtype=msgerror,i1=id,c1=kline)
1262 ENDIF
1263 i =i+1
1264C--- read UID
1265 j1=i
1266 DO WHILE(kline(i:i)/='/' .AND. i-j1 <= ncharfield)
1267 i=i+1
1268 ENDDO
1269 IF (i > ncharline) CALL freerr(0)
1270 j2 = i-1
1271 mot1=kline(j1:j2)
1272 READ(mot1,err=999,fmt=fmt_i)uid
1273 IF (uid > id_limit%GLOBAL .OR. uid < 0) THEN
1274 CALL ancmsg(msgid=510,anmode=aninfo,msgtype=msgerror,i1=uid,c1=kline)
1275 ENDIF
1276 i =i+1
1277C--- read VERS
1278 j1=i
1279 DO WHILE(kline(i:i)/='/' .AND. i-j1 <= ncharfield)
1280 i=i+1
1281 ENDDO
1282 j2 = i-1
1283 mot1=kline(j1:j2)
1284 READ(mot1,err=999,fmt=fmt_i)vers
1285C--- read TITR
1286 irec=irec+1
1287 READ(iin,rec=irec,err=999,fmt='(A)') titr
1288C---
1289 RETURN
1290 999 CALL freerr(0)
1291 CALL my_exit(2)
1292 END
1293!||====================================================================
1294!|| fredec_2key_4id ../starter/source/starter/freform.F
1295!||--- calls -----------------------------------------------------
1296!|| ancmsg ../starter/source/output/message/message.F
1297!|| freerr ../starter/source/starter/freform.F
1298!|| my_exit ../starter/source/output/analyse/analyse.c
1299!||--- uses -----------------------------------------------------
1300!|| format_mod ../starter/share/modules1/format_mod.F90
1301!|| message_mod ../starter/share/message_module/message_mod.F
1302!|| reader_old_mod ../starter/share/modules1/reader_old_mod.F90
1303!||====================================================================
1304 SUBROUTINE fredec_2key_4id(KEY2,ID,UID,VERS,SUB_ID)
1305C-----------------------------------------------
1306C M o d u l e s
1307C-----------------------------------------------
1308 USE message_mod
1310 USE format_mod , ONLY : fmt_i
1311 USE reader_old_mod , ONLY : kline
1312 USE user_id_mod , ONLY : id_limit
1313C-----------------------------------------------
1314C I m p l i c i t T y p e s
1315C-----------------------------------------------
1316#include "implicit_f.inc"
1317C-----------------------------------------------
1318C C o m m o n B l o c k s
1319C-----------------------------------------------
1320#include "scr17_c.inc"
1321C-----------------------------------------------
1322 INTEGER ID,UID,VERS,SUB_ID
1323 CHARACTER(LEN=NCHARTITLE) :: TITR
1324 CHARACTER(LEN=NCHARKEY) :: KEY2
1325C-----------------------------------------------
1326 INTEGER I,J1,J2,J
1327 CHARACTER(LEN=NCHARFIELD) :: MOT1
1328C-----------------------------------------------
1329C /KEYW/KEY2/int_id/u_id/VERS
1330C-----------------------------------------------
1331C Pass KEY1
1332 i=2
1333 DO WHILE(kline(i:i)/='/')
1334 i=i+1
1335 IF(i>ncharline)CALL freerr(0)
1336 ENDDO
1337 i=i+1
1338C Read KEY2
1339 j1=i
1340 DO WHILE(kline(i:i)/='/')
1341 i=i+1
1342 IF(i>ncharline)CALL freerr(0)
1343 ENDDO
1344 j2=i-1
1345 key2=kline(j1:j2)
1346 i=i+1
1347C--- read ID
1348 j1=i
1349 DO WHILE(kline(i:i)/='/' .AND. i-j1 <= ncharfield)
1350 i=i+1
1351 ENDDO
1352 IF (i > ncharline) CALL freerr(0)
1353 j2 = i-1
1354 mot1=kline(j1:j2)
1355 READ(mot1,err=999,fmt=fmt_i)id
1356 IF (id > id_limit%GLOBAL .OR. id <= 0) THEN
1357 CALL ancmsg(msgid=510,anmode=aninfo,msgtype=msgerror,
1358 . i1=id,c1=kline)
1359 ENDIF
1360 i =i+1
1361C--- read UID
1362 j1=i
1363 DO WHILE(kline(i:i)/='/' .AND. i-j1 <= ncharfield)
1364 i=i+1
1365 ENDDO
1366 IF (i > ncharline) CALL freerr(0)
1367 j2 = i-1
1368 mot1=kline(j1:j2)
1369 READ(mot1,err=999,fmt=fmt_i)uid
1370 IF (uid > id_limit%GLOBAL .OR. uid < 0) THEN
1371 CALL ancmsg(msgid=510,anmode=aninfo,msgtype=msgerror,
1372 . i1=uid,c1=kline)
1373 ENDIF
1374C--- read VERS
1375 i=i+1
1376 j1=i
1377 DO WHILE(kline(i:i)/='/' .AND. i-j1 <= ncharfield)
1378 i=i+1
1379 ENDDO
1380 j2=i-1
1381 mot1=kline(j1:j2)
1382 READ(mot1,err=999,fmt=fmt_i) vers
1383C--- read SUB_ID
1384 i=i+1
1385 j1=i
1386 DO WHILE(kline(i:i)/='/.AND.' I-J1 <= ncharfield)
1387 I=I+1
1388 ENDDO
1389 J2=I-1
1390 MOT1=KLINE(J1:J2)
1391 READ(MOT1,ERR=999,FMT=FMT_I) SUB_ID
1392C---
1393 RETURN
1394 999 CALL FREERR(0)
1395 CALL MY_EXIT(2)
1396 END
void my_exit(int *i)
Definition analyse.c:1038
subroutine cuserini4(elbuf_str, jft, jlt, nft, nel, istrain, sigsh, nsigsh, numel, ix, nix, numsh, ptsh, ir, is, npt, igtyp, igeo, nlay, npg, ipg)
Definition cuserini4.F:39
subroutine ddsplit(p, cep, cel, igeo, mat_elem, ipm, icode, iskew, iskn, insel, ibcslag, ipart, iparts, ipartq, ipartc, ipartt, ipartp, ipartr, iparttg, detonators, ipartx, npc, ixtg, group_param_tab, ixtg6, ixs, ixs10, ixs20, ixs16, ixq, ixc, ixt, ixp, ixr, itab, itabm1, gjbufi, nale, ale_connectivity, kxx, ixx, ibcl, ibfv, las, laccelm, nnlink, lllink, iparg, igrav, lgrav, ibvel, lbvel, iactiv, factiv, kinet, ipari, nprw, lprw, iexmad, npby, lpby, ixri, nstrf, ljoint, pornod, monvol, icontact, lagbuf, fr_iad, x, d, v, vr, dr, thke, dampr, damp, ms, in, tf, pm, skew, xframe, geo, eani, bufmat, bufgeo, bufsf, brmpc, gjbufr, w, veul, fill, dfill, wb, dsav, asav, msnf, spbuf, fac, vel, fsav, fzero, xlas, accelm, fbvel, gravfac, fr_wave, failwave, parts0, elbuf, rwl, rwsav, rby, rivet, secbuf, rvolu, rconx, nloc_dmg, fvmain, libagale, lenthg, lbufmat, lbufgeo, lbufsf, lenxlas, lnom_opt, lenlas, lenvolu, npts, cne, lcne, addcne, cni2, lcni2g, addcni2, cepi2, celi2, i2nsnt, probint, ddstat, pm1shf, dd_iad, kxsp, ixsp, nod2sp, cepsp, nthwa, nairwa, nmnt, l_mul_lag1, l_mul_lag, lwaspio, ipartsp, ispcond, pm1sph, wma, eigipm, eigibuf, eigrpm, iflow, rflow, memflow, iexlnk, fasolfr, iparth, fxbipm, fxbrpm, fxbnod, fxbmod, fxbglm, fxbcpm, fxbcps, fxblm, fxbfls, fxbdls, fxbdep, fxbvit, fxbacc, fxbelm, fxbsig, fxbgrvi, fxbgrvr, iadll, lll, ibmpc, lambda, lrbagale, iskwp, nskwp, isensp, nsensp, iaccp, naccp, ipart_state, mcp, temp, unitab, intstamp, iframe, clusters, partsav, ibft, fbft, ibcv, fconv, irbe3, lrbe3, frbe3, front_rm, rbym, irbym, lcrbym, inoise, fnoise, ms0, admsms, nom_sect, ispsym, sh4tree, sh3tree, ipadmesh, ibfflux, fbfflux, sh4trim, sh3trim, padmesh, msc, mstg, inc, intg, ptg, mcpc, mcptg, rcontact, acontact, pcontact, mscnd, incnd, mssa, mstr, msp, msrt, ibcr, fradia, dmelc, dmeltg, dmels, dmeltr, dmelp, dmelrt, res_sms, isphio, lprtsph, lonfsph, vsphio, sphveln, alph, ifill, ims, irbe2, lrbe2, ms_ply, zi_ply, inod_pxfem, iel_pxfem, icodply, iskwply, addcne_pxfem, cne_pxfem, cel_pxfem, ithvar, xdp, table, celsph, icfield, lcfield, cfield, msz2, itask, diag_sms, iloadp, lloadp, loadp, inod_crkxfem, iel_crkxfem, addcne_crkxfem, cne_crkxfem, cel_crkxfem, ibufssg_io, intercep, ibordnode, iedgesh, ibordedge, linale, nodedge, iedge, cep_crkxfem, iedge_tmp, crknodiad, elbuf_tab, nom_opt, lgauge, gauge, igaup, ngaup, nodlevxf, frontb_r2r, dflow, vflow, wflow, sph2sol, sol2sph, irst, elcutc, nodenr, kxfenod2elc, enrtag, intbuf_tab, i11flag, xfem_tab, lenthgr, rthbuf, ixig3d, kxig3d, knot, ipartig3d, wige, ncrkpart, indx_crk, crklvset, crkshell, crksky, crkavx, crkedge, sensors, stack, xfem_phantom, t8, tab_ump, poin_ump, sol2sph_typ, addcsrect, csrect, drape, loads, itagnd, icnds10, addcncnd, cepcnd, celcnd, cncnd, nativ_sms, i24maxnsne, multi_fvm, segquadfr, intbuf_fric_tab, subset, igrnod, igrbric, igrquad, igrsh4n, igrsh3n, igrtruss, igrbeam, igrspring, igrpart, igrsurf, igrslin, poin_part_shell, poin_part_tri, poin_part_sol, mid_pid_shell, mid_pid_tri, mid_pid_sol, tag_nm, nindx_nm, indx_nm, tag_scratch, nindx_scrt, indx_scrt, flag_24_25, numnod_l, tag_skn, multiple_skew, igrsurf_proc, knotlocpc, knotlocel, ale_elm, size_ale_elm, pinch_data, tag_skins6, ibcscyc, lbcscyc, t_monvol, indx_s, indx_q, indx_tg, face_elm_s, face_elm_q, face_elm_tg, nbr_th_monvol, ebcs_tab, kloadpinter, loadpinter, dgaploadint, s_loadpinter, len_cep, dynain_data, drapeg, user_windows, output, interfaces, number_load_cyl, loads_per_proc, python, dpl0cld, vel0cld, names_and_titles, bcs_per_proc, constraint_struct, glob_therm, pblast)
Definition ddsplit.F:336
subroutine freform(irunn, irfl, irfe, h3d_data, flag_cst_ams, dynain_data, sensors, dt, output, glob_therm)
Definition freform.F:88
subroutine w_gr_entity(igr, ngr, lenigr)
Definition w_gr_entity.F:36
subroutine hm_read_impacc(fac, ibfv, nfxvel0, itab, itabm1, ikine, igrnod, iskn, unitab, lsubmodel, num, nimpacc)
subroutine hm_read_intsub(igrnod, igrsurf, nom_opt, igrslin, lsubmodel)
subroutine hm_read_rbe2(irbe2, lrbe2, itab, itabm1, igrnod, iskn, ikine, iddlevel, nom_opt, itagnd, icdns10, lsubmodel)
subroutine inirbe2(irbe2, lrbe2, itab, x, ms, in, stifn, stifr, totmas, xgt, ygt, zgt, b1, b2, b3, b5, b6, b9, nom_opt, itagnd)
subroutine hm_read_rbody(rby, npby, lpby, itab, itabm1, igrnod, igrsurf, ibfv, igrv, ibgr, sensors, imerge, unitab, iskn, nom_opt, numsl, knod2els, knod2elc, knod2eltg, knod2el1d, knod2elq, itagnd, icdns10, lsubmodel, icfield, lcfield)
subroutine hm_read_thgrou(ithgrp, ithbuf, itab, itabm1, ixtg, ixs, ixq, ixc, ixt, ixp, ixr, kxx, ixx, ipart, ifi, nthwa, kxsp, ixri, iskwn, iframe, nthgrp2, pathid, suthid, fxbipm, iparth, nparth, nvparth, nvsubth, imerge, ithvar, flagabf, nvarabf, nom_opt, ptr_nopt_fxby, ptr_nopt_inter, ptr_nopt_rwall, ptr_nopt_sect, ptr_nopt_joint, ptr_nopt_monv, ptr_nopt_acc, ptr_nopt_skw, ptr_nopt_gau, ptr_nopt_clus, ptr_nopt_sphio, isphio, rfi, t_monvol, igrsurf, subset, ithflag, npby, lsubmodel, iparg, iparts, ipartq, ipartc, ipartt, ipartp, ipartr, ipartg, ipartx, ipartsp, ipartig3d, lithbufmx, map_tables, iflag, ptr_nopt_slipring, ptr_nopt_retractor, sensors, interfaces, ipari, dump_thnms1_file, itherm_fe, checksum, nsubdom, ipri)
subroutine remn_i2op_edg25(n, flagremnode, ipari, intbuf_tab, i2node, points_i2n, i2node_size, nom_opt, itab, flag_output)
Definition i25remlin.F:434
subroutine remn_i2op(lower_bound, upper_bound, ipari, intbuf_tab, itab, nom_opt, nremov, iddlevel, skip_type25_edge_2_edge)
Definition i7remnode.F:675
subroutine i7remnode(iremnode, noint, titr, intbuf_tab, numnod, x, nrtm, irect, nsv, nsn, itab, gap_s, gap_m, gapmin, gapmax, gap_s_l, gap_m_l, igap, gap, drad, nremnode, nty, ipari, i_mem_rem, gapm_mx, gaps_mx, gapm_l_mx, gaps_l_mx, ilev, nbinflg, mbinflg, dgapload, npari)
Definition i7remnode.F:43
#define min(a, b)
Definition macros.h:20
initmumps id
integer, parameter nchartitle
integer, parameter ncharkey
integer, parameter ncharfield
integer, parameter ncharline
subroutine read_impvel(nfvel, inum, iopt, fbfvel, ibfvel, itab, itabm1, ikine, ikine1lag, nom_opt, igrnod, iskn, unitab, lsubmodel)
Definition read_impvel.F:48
subroutine sgrtails(ixs, pm, iparg, geo, eadd, nd, iparts, dd_iad, idx, isolnod, inum, index, cep, itr1, ixs10, igrsurf, igrbric, ixs20, ixs16, igeo, iddlevel, ipm, nod2els, isoloff, isolnod1, tagprt_sms, inivol, sph2sol, sol2sph, sol2sph_typ, iflag_bpreload, clusters, matparam_tab, rnoise, print_flag, damp_range_part)
Definition sgrtails.F:51
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
subroutine w_gr_entity_p(igr, ngr, len_ia, lenigr, cep, cel, proc)
subroutine fredec_key_3id_t(id, uid, vers, titr)
Definition freform.F:1219
subroutine fredec4(copt)
Definition freform.F:90
subroutine fredec_2key_4id_t(key2, id, uid, vers, sub_id, titr)
Definition freform.F:1110
subroutine nextsla
Definition freform.F:846
subroutine freerr(it)
Definition freform.F:506
integer function nodgrnr5(igu, igs, ibuf, igrnod, itabm1, mess)
Definition freform.F:303
integer function nodgrnr6(m, igu, igs, ibuf, igrnod, itabm1, mess, id)
Definition freform.F:364
subroutine fredec6(copt, copt2)
Definition freform.F:218
subroutine fretitl(titr, iasc, l)
Definition freform.F:620
subroutine fredec_2key_4id(key2, id, uid, vers, sub_id)
Definition freform.F:1305
subroutine fredec0(id)
Definition freform.F:39
subroutine fretitl2(titr, iasc, l)
Definition freform.F:804
integer function grfind(igu, igrnod, mess)
Definition freform.F:437
subroutine fredec5(copt, id)
Definition freform.F:141
program starter
Definition starter.F:39