OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
uaccess.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
25!||====================================================================
26!|| st_uaccess_dum ../starter/source/user_interface/uaccess.F
27!||--- called by ------------------------------------------------------
28!|| starter0 ../starter/source/starter/starter0.F
29!||====================================================================
30 SUBROUTINE st_uaccess_dum(IERR)
31#include "implicit_f.inc"
32 INTEGER IERR
33 ierr=0
34 END
35C
36!||====================================================================
37!|| set_u_geo ../starter/source/user_interface/uaccess.F
38!||--- called by ------------------------------------------------------
39!|| hm_read_prop28 ../starter/source/properties/xelem/hm_read_prop28.F
40!|| hm_read_prop32 ../starter/source/properties/spring/hm_read_prop32.F
41!|| hm_read_prop33_cyl_jnt ../starter/source/properties/spring/hm_read_prop33_cyl_jnt.F
42!|| hm_read_prop33_fix_jnt ../starter/source/properties/spring/hm_read_prop33_fix_jnt.F
43!|| hm_read_prop33_free_jnt ../starter/source/properties/spring/hm_read_prop33_free_jnt.F
44!|| hm_read_prop33_old_jnt ../starter/source/properties/spring/hm_read_prop33_old_jnt.F
45!|| hm_read_prop33_plan_jnt ../starter/source/properties/spring/hm_read_prop33_plan_jnt.F
46!|| hm_read_prop33_rev_jnt ../starter/source/properties/spring/hm_read_prop33_rev_jnt.F
47!|| hm_read_prop33_sph_jnt ../starter/source/properties/spring/hm_read_prop33_sph_jnt.F
48!|| hm_read_prop33_trans_jnt ../starter/source/properties/spring/hm_read_prop33_trans_jnt.F
49!|| hm_read_prop33_univ_jnt ../starter/source/properties/spring/hm_read_prop33_univ_jnt.F
50!|| hm_read_prop34 ../starter/source/properties/sph/hm_read_prop34.F
51!|| hm_read_prop35 ../starter/source/properties/spring/hm_read_prop35.F
52!|| hm_read_prop36 ../starter/source/properties/spring/hm_read_prop36.F
53!|| hm_read_prop44 ../starter/source/properties/spring/hm_read_prop44.F
54!|| hm_read_prop45 ../starter/source/properties/spring/hm_read_prop45.F
55!|| hm_read_prop46 ../starter/source/properties/spring/hm_read_prop46.F
56!|| hm_read_prop_user4 ../starter/source/properties/user_spring_solid/hm_read_prop_user4.F
57!|| lec_dof_jnt ../starter/source/properties/spring/hm_read_prop45.F
58!||--- calls -----------------------------------------------------
59!|| ancmsg ../starter/source/output/message/message.F
60!||--- uses -----------------------------------------------------
61!|| message_mod ../starter/share/message_module/message_mod.F
62!||====================================================================
63 INTEGER FUNCTION set_u_geo(IVAR,A)
64C-----------------------------------------------
65C M o d u l e s
66C-----------------------------------------------
67 USE message_mod
68C-----------------------------------------------
69C I m p l i c i t T y p e s
70C-----------------------------------------------
71#include "implicit_f.inc"
72C-----------------------------------------------
73C C o m m o n B l o c k s
74C-----------------------------------------------
75#include "scr19_c.inc"
76C-----------------------------------------------
77C D u m m y A r g u m e n t s
78C-----------------------------------------------
79 INTEGER ivar
80 my_real
81 . a
82C-----------------------------------------------
83 IF(ivar>bgeosize)THEN
84 CALL ancmsg(msgid=374,
85 . msgtype=msgerror,
86 . anmode=aninfo,
87 . i1=ivar,
88 . i2=bgeosize)
89 set_u_geo = bgeosize
90 RETURN
91 ENDIF
92 nuparam = max(nuparam,ivar)
93 bufgeo0(ivar) = a
94 set_u_geo = 0
95C
96 RETURN
97 END
98C
99!||====================================================================
100!|| set_u_pnu ../starter/source/user_interface/uaccess.F
101!||--- called by ------------------------------------------------------
102!|| hm_read_prop28 ../starter/source/properties/xelem/hm_read_prop28.F
103!|| hm_read_prop32 ../starter/source/properties/spring/hm_read_prop32.F
104!|| hm_read_prop33_cyl_jnt ../starter/source/properties/spring/hm_read_prop33_cyl_jnt.F
105!|| hm_read_prop33_fix_jnt ../starter/source/properties/spring/hm_read_prop33_fix_jnt.F
106!|| hm_read_prop33_free_jnt ../starter/source/properties/spring/hm_read_prop33_free_jnt.F
107!|| hm_read_prop33_old_jnt ../starter/source/properties/spring/hm_read_prop33_old_jnt.F
108!|| hm_read_prop33_plan_jnt ../starter/source/properties/spring/hm_read_prop33_plan_jnt.F
109!|| hm_read_prop33_rev_jnt ../starter/source/properties/spring/hm_read_prop33_rev_jnt.F
110!|| hm_read_prop33_sph_jnt ../starter/source/properties/spring/hm_read_prop33_sph_jnt.F
111!|| hm_read_prop33_trans_jnt ../starter/source/properties/spring/hm_read_prop33_trans_jnt.F
112!|| hm_read_prop33_univ_jnt ../starter/source/properties/spring/hm_read_prop33_univ_jnt.F
113!|| hm_read_prop34 ../starter/source/properties/sph/hm_read_prop34.F
114!|| hm_read_prop35 ../starter/source/properties/spring/hm_read_prop35.F
115!|| hm_read_prop36 ../starter/source/properties/spring/hm_read_prop36.F
116!|| hm_read_prop44 ../starter/source/properties/spring/hm_read_prop44.F
117!|| hm_read_prop45 ../starter/source/properties/spring/hm_read_prop45.F
118!|| hm_read_prop46 ../starter/source/properties/spring/hm_read_prop46.F
119!|| hm_read_prop_user4 ../starter/source/properties/user_spring_solid/hm_read_prop_user4.F
120!|| lec_dof_jnt ../starter/source/properties/spring/hm_read_prop45.F
121!||--- calls -----------------------------------------------------
122!|| ancmsg ../starter/source/output/message/message.F
123!||--- uses -----------------------------------------------------
124!|| message_mod ../starter/share/message_module/message_mod.F
125!||====================================================================
126 INTEGER FUNCTION set_u_pnu(IVAR,IP,K)
127C-----------------------------------------------
128C M o d u l e s
129C-----------------------------------------------
130 USE message_mod
131C-----------------------------------------------
132C I m p l i c i t T y p e s
133C-----------------------------------------------
134#include "implicit_f.inc"
135C-----------------------------------------------
136C C o m m o n B l o c k s
137C-----------------------------------------------
138#include "scr19_c.inc"
139C-----------------------------------------------
140C D u m m y A r g u m e n t s
141C-----------------------------------------------
142 INTEGER ivar,ip,k
143C-----------------------------------------------
144C L o c a l V a r i a b l e s
145C-----------------------------------------------
146 INTEGER kfunc,kmat,kpid,ktab
147 parameter(kfunc=29)
148 parameter(kmat=31)
149 parameter(kpid=33)
150 parameter(ktab=37)
151C-----------------------------------------------
152C
153 IF(k==kpid)THEN
154 IF(ivar>maxpid)THEN
155 CALL ancmsg(msgid=375,
156 . msgtype=msgerror,
157 . anmode=aninfo,
158 . i2=ivar,
159 . c2='PID',
160 . i3=maxpid,
161 . c3='MAXPID')
162 set_u_pnu = njpid
163 RETURN
164 ENDIF
165 njpid = max(njpid,ivar)
166 jpid(ivar) = ip
167 ELSEIF(k==kmat)THEN
168 IF(ivar>maxmat)THEN
169 CALL ancmsg(msgid=375,
170 . msgtype=msgerror,
171 . anmode=aninfo,
172 . i2=ivar,
173 . c2='MAT',
174 . i3=maxmat,
175 . c3='MAXMAT')
176 set_u_pnu = njmat
177 RETURN
178 ENDIF
179 njmat = max(njmat,ivar)
180 jmat(ivar) = ip
181 ELSEIF(k==kfunc)THEN
182 IF(ivar>maxfunc)THEN
183 CALL ancmsg(msgid=375,
184 . msgtype=msgerror,
185 . anmode=aninfo,
186 . c2='FUNC',
187 . i2=ivar,
188 . c3='MAXFUNC',
189 . i3=maxfunc)
190 set_u_pnu = njfunc
191 RETURN
192 ENDIF
193 njfunc = max(njfunc,ivar)
194 jfunc(ivar) = ip
195 ELSEIF(k==ktab)THEN
196 IF(ivar>maxtab)THEN
197 CALL ancmsg(msgid=375,
198 . msgtype=msgerror,
199 . anmode=aninfo,
200 . i2=ivar,
201 . c2='TAB',
202 . i3=maxtab,
203 . c3='MAXTAB')
204 set_u_pnu = njtab
205 RETURN
206 ENDIF
207 njtab = max(njtab,ivar)
208 jtab(ivar) = ip
209 ENDIF
210 set_u_pnu = 0
211C
212 RETURN
213 END
214C
215!||====================================================================
216!|| get_u_mat ../starter/source/user_interface/uaccess.F
217!||--- called by ------------------------------------------------------
218!|| rini32 ../starter/source/properties/spring/hm_read_prop32.F
219!|| rini35 ../starter/source/elements/spring/rini35.F
220!|| rini36 ../starter/source/properties/spring/hm_read_prop36.F
221!|| rini44 ../starter/source/elements/spring/rini44.F
222!|| rini46 ../starter/source/elements/spring/rini46.F
223!|| spinit3 ../starter/source/elements/sph/spinit3.F
224!|| xini28 ../starter/source/elements/xelem/xini28.F
225!|| xini29 ../starter/source/elements/xelem/xini29.F
226!|| xini30 ../starter/source/elements/xelem/xini30.F
227!|| xini31 ../starter/source/elements/xelem/xini31.F
228!||--- calls -----------------------------------------------------
229!|| ancmsg ../starter/source/output/message/message.F
230!||--- uses -----------------------------------------------------
231!|| message_mod ../starter/share/message_module/message_mod.F
232!||====================================================================
233 my_real FUNCTION get_u_mat(IVAR,IM)
234C-----------------------------------------------
235C M o d u l e s
236C-----------------------------------------------
237 USE message_mod
238C-----------------------------------------------
239C I m p l i c i t T y p e s
240C-----------------------------------------------
241#include "implicit_f.inc"
242C-----------------------------------------------
243C C o m m o n B l o c k s
244C-----------------------------------------------
245#include "param_c.inc"
246#include "scr05_c.inc"
247C-----------------------------------------------
248C D u m m y A r g u m e n t s
249C-----------------------------------------------
250 INTEGER ivar,im
251C-----------------------------------------------
252C L o c a l V a r i a b l e s
253C-----------------------------------------------
254 INTEGER nvar,DEPLA,iadbuf
255C=======================================================================
256C
257 depla = 9+(im-1)*npropmi
258 CALL get_var_user_i(11,depla,nvar)
259C
260 IF(ivar==0)THEN
261C GET_U_MAT = PM(1,IM)
262 depla = (im-1)*npropm+1
263 IF (iresp==1) THEN
264 CALL get_var_user_f_sp(1,depla,get_u_mat)
265 ELSE
266 CALL get_var_user_f(1,depla,get_u_mat)
267 ENDIF
268 ELSEIF(ivar>nvar)THEN
269 CALL ancmsg(msgid=376,
270 . msgtype=msgerror,
271 . anmode=aninfo,
272 . i2=ivar,
273 . c2='MATERIAL',
274 . i3=nvar,
275 . c3='NUPARAM')
276 ELSE
277C
278 depla = 7+(im-1)*npropmi
279 CALL get_var_user_i(11,depla,iadbuf)
280 depla = iadbuf-1+ivar
281 IF (iresp==1) THEN
282 CALL get_var_user_f_sp(2,depla,get_u_mat)
283 ELSE
284 CALL get_var_user_f(2,depla,get_u_mat)
285 ENDIF
286 ENDIF
287C
288 RETURN
289 END
290C
291!||====================================================================
292!|| get_u_geo ../starter/source/user_interface/uaccess.F
293!||--- called by ------------------------------------------------------
294!|| hm_read_part ../starter/source/model/assembling/hm_read_part.F
295!|| hm_read_sphio ../starter/source/loads/sph/hm_read_sphio.F
296!|| i11sti3 ../starter/source/interfaces/inter3d1/i11sti3.F
297!|| i20sti3e ../starter/source/interfaces/inter3d1/i20sti3.F
298!|| init_skew45 ../starter/source/elements/joint/rjoint/rini45.F
299!|| inspcnd ../starter/source/elements/sph/inspcnd.f
300!|| rini32 ../starter/source/properties/spring/hm_read_prop32.F
301!|| rini33 ../starter/source/elements/joint/rjoint/rini33.F
302!|| rini33_rb ../starter/source/elements/joint/rjoint/rini33_rb.F
303!|| rini35 ../starter/source/elements/spring/rini35.F
304!|| rini36 ../starter/source/properties/spring/hm_read_prop36.f
305!|| rini44 ../starter/source/elements/spring/rini44.F
306!|| rini45 ../starter/source/elements/joint/rjoint/rini45.F
307!|| rini45_rb ../starter/source/elements/joint/rjoint/rini45_rb.F
308!|| rini46 ../starter/source/elements/spring/rini46.F
309!|| spgrhead ../starter/source/elements/sph/spgrhead.F
310!|| spgrtails ../starter/source/elements/sph/spgrtails.F
311!|| spinih ../starter/source/elements/sph/spinih.F
312!|| spinit3 ../starter/source/elements/sph/spinit3.F
313!|| xini28 ../starter/source/elements/xelem/xini28.F
314!|| xini29 ../starter/source/elements/xelem/xini29.F
315!|| xini30 ../starter/source/elements/xelem/xini30.F
316!|| xini31 ../starter/source/elements/xelem/xini31.F
317!||--- calls -----------------------------------------------------
318!|| ancmsg ../starter/source/output/message/message.F
319!||--- uses -----------------------------------------------------
320!|| message_mod ../starter/share/message_module/message_mod.F
321!||====================================================================
322 my_real FUNCTION get_u_geo(IVAR,IP)
323C-----------------------------------------------
324C M o d u l e s
325C-----------------------------------------------
326 USE message_mod
327C-----------------------------------------------
328C I m p l i c i t T y p e s
329C-----------------------------------------------
330#include "implicit_f.inc"
331C-----------------------------------------------
332C C o m m o n B l o c k s
333C-----------------------------------------------
334#include "param_c.inc"
335#include "scr05_c.inc"
336C-----------------------------------------------
337C D u m m y A r g u m e n t s
338C-----------------------------------------------
339 INTEGER ivar,ip
340C-----------------------------------------------
341C L o c a l V a r i a b l e s
342C-----------------------------------------------
343 INTEGER nvar,depla
344 my_real nv
345 DOUBLE PRECISION nv2
346C-----------------------------------------------
347 depla = 26+(ip-1)*npropg
348 IF (iresp==1) THEN
349 CALL get_var_user_f_sp(3,depla,nv)
350 ELSE
351 CALL get_var_user_f(3,depla,nv)
352 ENDIF
353 nvar = nint(nv)
354C
355 IF(ivar>nvar)THEN
356 CALL ancmsg(msgid=376,
357 . msgtype=msgerror,
358 . anmode=aninfo,
359 . i2=ivar,
360 . c2='PROPERTY',
361 . i3=nvar,
362 . c3='NUPARAG')
363 ELSE
364C
365 depla = 27+(ip-1)*npropg
366 IF (iresp==1) THEN
367 CALL get_var_user_f_sp(3,depla,nv)
368 depla=nint(nv)-1+ivar
369C Sav Buf Point = 4 is BUFGEO which is now in Double precision
370 CALL get_var_user_f(4,depla,nv2)
371 nv = nv2
372 ELSE
373 CALL get_var_user_f(3,depla,nv)
374 depla=nint(nv)-1+ivar
375 CALL get_var_user_f(4,depla,nv)
376 ENDIF
377 get_u_geo = nv
378C
379 ENDIF
380C
381 RETURN
382 END
383C
384!||====================================================================
385!|| reset_u_geo ../starter/source/user_interface/uaccess.F
386!||--- called by ------------------------------------------------------
387!|| rini33_rb ../starter/source/elements/joint/rjoint/rini33_rb.F
388!|| rini45_rb ../starter/source/elements/joint/rjoint/rini45_rb.F
389!||--- calls -----------------------------------------------------
390!|| ancmsg ../starter/source/output/message/message.F
391!||--- uses -----------------------------------------------------
392!|| message_mod ../starter/share/message_module/message_mod.F
393!||====================================================================
394 INTEGER FUNCTION reset_u_geo(IVAR,IP,A)
395C-----------------------------------------------
396C M o d u l e s
397C-----------------------------------------------
398 USE message_mod
399C-----------------------------------------------
400C I m p l i c i t T y p e s
401C-----------------------------------------------
402#include "implicit_f.inc"
403C-----------------------------------------------
404C C o m m o n B l o c k s
405C-----------------------------------------------
406#include "param_c.inc"
407#include "scr05_c.inc"
408C-----------------------------------------------
409C D u m m y A r g u m e n t s
410C-----------------------------------------------
411 INTEGER ivar,ip
412C-----------------------------------------------
413C L o c a l V a r i a b l e s
414C-----------------------------------------------
415 INTEGER nvar,ier,depla
416 my_real a,nv
417 DOUBLE PRECISION a2
418C-----------------------------------------------
419C
420 ier = 0
421C
422 depla = 26+(ip-1)*npropg
423 IF (iresp==1) THEN
424 CALL get_var_user_f_sp(3,depla,nv)
425 ELSE
426 CALL get_var_user_f(3,depla,nv)
427 ENDIF
428 nvar = nint(nv)
429C
430 IF(ivar>nvar)THEN
431 CALL ancmsg(msgid=376,
432 . msgtype=msgerror,
433 . anmode=aninfo,
434 . i2=ivar,
435 . c2='PROPERTY',
436 . i3=nvar,
437 . c3='NUPARAG')
438 ier = 1
439 ELSE
440C
441 depla = 27+(ip-1)*npropg
442 IF (iresp==1) THEN
443 CALL get_var_user_f_sp(3,depla,nv)
444 depla=nint(nv)-1+ivar
445C Sav Buf Point = 4 is BUFGEO which is now in Double precision
446 a2 = a
447 CALL set_var_user_f(4,depla,a2)
448 ELSE
449 CALL get_var_user_f(3,depla,nv)
450 depla=nint(nv)-1+ivar
451 CALL set_var_user_f(4,depla,a)
452 ENDIF
453C
454 ENDIF
455C
456 reset_u_geo=ier
457 RETURN
458 END
459C
460!||====================================================================
461!|| get_u_pnu ../starter/source/user_interface/uaccess.F
462!||--- called by ------------------------------------------------------
463!|| rini32 ../starter/source/properties/spring/hm_read_prop32.F
464!|| rini33 ../starter/source/elements/joint/rjoint/rini33.F
465!|| rini35 ../starter/source/elements/spring/rini35.F
466!|| rini36 ../starter/source/properties/spring/hm_read_prop36.F
467!|| rini44 ../starter/source/elements/spring/rini44.F
468!|| rini45 ../starter/source/elements/joint/rjoint/rini45.F
469!|| rini46 ../starter/source/elements/spring/rini46.F
470!|| spinit3 ../starter/source/elements/sph/spinit3.F
471!|| xini28 ../starter/source/elements/xelem/xini28.F
472!|| xini29 ../starter/source/elements/xelem/xini29.F
473!|| xini30 ../starter/source/elements/xelem/xini30.F
474!|| xini31 ../starter/source/elements/xelem/xini31.F
475!||--- calls -----------------------------------------------------
476!|| ancmsg ../starter/source/output/message/message.F
477!||--- uses -----------------------------------------------------
478!|| message_mod ../starter/share/message_module/message_mod.F
479!||====================================================================
480 INTEGER FUNCTION get_u_pnu(IVAR,IP,K)
481C-----------------------------------------------
482C M o d u l e s
483C-----------------------------------------------
484 USE message_mod
485C-----------------------------------------------
486C I m p l i c i t T y p e s
487C-----------------------------------------------
488#include "implicit_f.inc"
489C-----------------------------------------------
490C C o m m o n B l o c k s
491C-----------------------------------------------
492#include "param_c.inc"
493#include "scr05_c.inc"
494C-----------------------------------------------
495C D u m m y A r g u m e n t s
496C-----------------------------------------------
497 INTEGER ivar,ip,k
498C-----------------------------------------------
499C L o c a l V a r i a b l e s
500C-----------------------------------------------
501 INTEGER nvar,depla
502 DOUBLE PRECISION nv2
503 my_real nv
504C-----------------------------------------------
505 depla = k-1+(ip-1)*npropg
506 IF (iresp==1) THEN
507 CALL get_var_user_f_sp(3,depla,nv)
508 ELSE
509 CALL get_var_user_f(3,depla,nv)
510 ENDIF
511 nvar = nint(nv)
512C
513 IF(ivar>nvar)THEN
514C
515 CALL ancmsg(msgid=377,
516 . msgtype=msgerror,
517 . anmode=aninfo,
518 . c1='GET_U_PNU',
519 . c2='IVAR,IP,K',
520 . c3='IVAR',i1=ivar,
521 . c4='K',i2=k,
522 . c5='IVAR',i3=ivar,
523 . i4=nvar)
524C
525 ELSE
526C
527 depla = k+(ip-1)*npropg
528 IF (iresp==1) THEN
529 CALL get_var_user_f_sp(3,depla,nv)
530 depla = nint(nv)-1+ivar
531C Sav Buf Point = 4 is BUFGEO which is now in Double precision
532 CALL get_var_user_f(4,depla,nv2)
533 nv=nv2
534 ELSE
535 CALL get_var_user_f(3,depla,nv)
536 depla = nint(nv)-1+ivar
537 CALL get_var_user_f(4,depla,nv)
538 ENDIF
539 get_u_pnu = nint(nv)
540C
541 ENDIF
542C
543 RETURN
544 END
545!||====================================================================
546!|| get_u_mnu ../starter/source/user_interface/uaccess.F
547!||--- called by ------------------------------------------------------
548!|| rini32 ../starter/source/properties/spring/hm_read_prop32.F
549!|| rini35 ../starter/source/elements/spring/rini35.F
550!|| rini36 ../starter/source/properties/spring/hm_read_prop36.F
551!|| rini44 ../starter/source/elements/spring/rini44.F
552!|| rini46 ../starter/source/elements/spring/rini46.F
553!|| spinit3 ../starter/source/elements/sph/spinit3.F
554!|| xini28 ../starter/source/elements/xelem/xini28.F
555!|| xini29 ../starter/source/elements/xelem/xini29.F
556!|| xini30 ../starter/source/elements/xelem/xini30.F
557!|| xini31 ../starter/source/elements/xelem/xini31.F
558!||--- calls -----------------------------------------------------
559!|| ancmsg ../starter/source/output/message/message.F
560!||--- uses -----------------------------------------------------
561!|| message_mod ../starter/share/message_module/message_mod.F
562!||====================================================================
563 INTEGER FUNCTION get_u_mnu(IVAR,IM,K)
564C-----------------------------------------------
565C M o d u l e s
566C-----------------------------------------------
567 USE message_mod
568C-----------------------------------------------
569C I m p l i c i t T y p e s
570C-----------------------------------------------
571#include "implicit_f.inc"
572C------------------------------------------
573C C o m m o n B l o c k s
574C-----------------------------------------------
575#include "param_c.inc"
576C-----------------------------------------------
577C D u m m y A r g u m e n t s
578C-----------------------------------------------
579 INTEGER ivar,im,k
580C-----------------------------------------------
581C L o c a l V a r i a b l e s
582C-----------------------------------------------
583 INTEGER kfunc,depla,nfunc
584 parameter(kfunc=29)
585C=======================================================================
586C
587 depla = 10+(im-1)*npropmi
588 CALL get_var_user_i(11,depla,nfunc)
589 IF(ivar > nfunc)THEN
590 CALL ancmsg(msgid=377,
591 . msgtype=msgerror,
592 . anmode=aninfo,
593 . c1='GET_U_MNU',
594 . c2='IVAR,IM,K',
595 . c3='IVAR',i1=ivar,
596 . c4='K',i2=k,
597 . c5='IVAR',i3=ivar,
598 . i4=nfunc)
599 ELSEIF(k==kfunc) THEN
600C
601 depla = 10+ivar+(im-1)*npropmi
602 CALL get_var_user_i(11,depla,get_u_mnu)
603 ENDIF
604C
605 RETURN
606 END
607C
608!||====================================================================
609!|| get_u_pid ../starter/source/user_interface/uaccess.F
610!||--- called by ------------------------------------------------------
611!|| get_u_p ../starter/source/user_interface/uaccess.F
612!|| rini32 ../starter/source/properties/spring/hm_read_prop32.F
613!|| rini35 ../starter/source/elements/spring/rini35.F
614!|| rini36 ../starter/source/properties/spring/hm_read_prop36.F
615!|| rini44 ../starter/source/elements/spring/rini44.F
616!|| rini46 ../starter/source/elements/spring/rini46.F
617!|| spinit3 ../starter/source/elements/sph/spinit3.F
618!|| xini28 ../starter/source/elements/xelem/xini28.F
619!|| xini29 ../starter/source/elements/xelem/xini29.F
620!|| xini30 ../starter/source/elements/xelem/xini30.F
621!|| xini31 ../starter/source/elements/xelem/xini31.F
622!||--- calls -----------------------------------------------------
623!||====================================================================
624 INTEGER FUNCTION get_u_pid(IP)
625C-----------------------------------------------
626C I m p l i c i t T y p e s
627C-----------------------------------------------
628#include "implicit_f.inc"
629C-----------------------------------------------
630C C o m m o n B l o c k s
631C-----------------------------------------------
632#include "param_c.inc"
633C-----------------------------------------------
634C D u m m y A r g u m e n t s
635C-----------------------------------------------
636 INTEGER ip
637C-----------------------------------------------
638C L o c a l V a r i a b l e s
639C-----------------------------------------------
640 INTEGER depla,nv
641C---------------------------------------------------------------
642C
643 depla = 1+(ip-1)*npropgi
644 CALL get_var_user_i(12,depla,nv)
645 get_u_pid = nv
646C
647 RETURN
648 END
649C
650!||====================================================================
651!|| get_u_mid ../starter/source/user_interface/uaccess.F
652!||--- called by ------------------------------------------------------
653!|| get_u_m ../starter/source/user_interface/uaccess.F
654!|| rini32 ../starter/source/properties/spring/hm_read_prop32.F
655!|| rini35 ../starter/source/elements/spring/rini35.F
656!|| rini36 ../starter/source/properties/spring/hm_read_prop36.F
657!|| rini44 ../starter/source/elements/spring/rini44.F
658!|| rini46 ../starter/source/elements/spring/rini46.F
659!|| spinit3 ../starter/source/elements/sph/spinit3.F
660!|| xini28 ../starter/source/elements/xelem/xini28.F
661!|| xini29 ../starter/source/elements/xelem/xini29.F
662!|| xini30 ../starter/source/elements/xelem/xini30.F
663!|| xini31 ../starter/source/elements/xelem/xini31.F
664!||--- calls -----------------------------------------------------
665!||====================================================================
666 INTEGER FUNCTION get_u_mid(IM)
667C-----------------------------------------------
668C I m p l i c i t T y p e s
669C-----------------------------------------------
670#include "implicit_f.inc"
671C-----------------------------------------------
672C C o m m o n B l o c k s
673C-----------------------------------------------
674#include "param_c.inc"
675C-----------------------------------------------
676C D u m m y A r g u m e n t s
677C-----------------------------------------------
678 INTEGER im
679C-----------------------------------------------
680C L o c a l V a r i a b l e s
681C-----------------------------------------------
682 INTEGER depla,mid
683C-------------------------------------------------
684 depla = 1+(im-1)*npropmi
685 CALL get_var_user_i(11,depla,mid)
686 get_u_mid = mid
687C
688 RETURN
689 END
690!||====================================================================
691!|| get_u_func_n ../starter/source/user_interface/uaccess.F
692!||--- calls -----------------------------------------------------
693!||====================================================================
694 INTEGER FUNCTION get_u_func_n(IFUNC)
695C-----------------------------------------------
696C I m p l i c i t T y p e s
697C-----------------------------------------------
698#include "implicit_f.inc"
699C-----------------------------------------------
700C D u m m y A r g u m e n t s
701C-----------------------------------------------
702 INTEGER ifunc
703C-----------------------------------------------
704C L o c a l V a r i a b l e s
705C-----------------------------------------------
706 INTEGER i,npfi,npfip
707C-----------------------------------------------
708 CALL get_var_user_i(5,ifunc,npfi)
709 CALL get_var_user_i(5,ifunc+1,npfip)
710 get_u_func_n=(npfip-npfi)/2
711 RETURN
712 END
713!||====================================================================
714!|| get_u_func_y ../starter/source/user_interface/uaccess.F
715!||--- calls -----------------------------------------------------
716!|| ancmsg ../starter/source/output/message/message.F
717!|| get_u_numfun ../starter/source/user_interface/uaccess.F
718!||--- uses -----------------------------------------------------
719!|| message_mod ../starter/share/message_module/message_mod.F
720!||====================================================================
721 my_real FUNCTION get_u_func_y(IFUNC,N)
722C-----------------------------------------------
723C M o d u l e s
724C-----------------------------------------------
725 USE message_mod
726C-----------------------------------------------
727C I m p l i c i t T y p e s
728C-----------------------------------------------
729#include "implicit_f.inc"
730C-----------------------------------------------
731C C o m m o n B l o c k s
732C-----------------------------------------------
733#include "scr05_c.inc"
734C-----------------------------------------------
735C D u m m y A r g u m e n t s
736C-----------------------------------------------
737 INTEGER ifunc,n
738C-----------------------------------------------
739C L o c a l V a r i a b l e s
740C-----------------------------------------------
741 INTEGER i,npfi,npfip,nmax
742 my_real
743 . yy
744 INTEGER get_u_numfun
745 EXTERNAL get_u_numfun
746C-----------------------------------------------
747 CALL get_var_user_i(5,ifunc,npfi)
748 CALL get_var_user_i(5,ifunc+1,npfip)
749 nmax=(npfip-npfi)/2
750 i=npfi+(n-1)*2
751 IF (n>nmax.OR.n<=0) THEN
752 CALL ancmsg(msgid=841,
753 . msgtype=msgerror,
754 . anmode=aninfo_blind_2,
755 . c2='X',
756 . i2=n,
757 . i3=nmax)
758 END IF
759 IF (iresp==1) THEN
760 CALL get_var_user_f_sp(6,i+1,yy)
761 ELSE
762 CALL get_var_user_f(6,i+1,yy)
763 ENDIF
764 get_u_func_y=yy
765 RETURN
766 END
767!||====================================================================
768!|| get_u_func ../starter/source/user_interface/uaccess.F
769!||--- called by ------------------------------------------------------
770!|| hm_read_retractor ../starter/source/tools/seatbelts/hm_read_retractor.F
771!|| rini33 ../starter/source/elements/joint/rjoint/rini33.F
772!|| rini45 ../starter/source/elements/joint/rjoint/rini45.F
773!|| spinit3 ../starter/source/elements/sph/spinit3.F
774!|| xini28 ../starter/source/elements/xelem/xini28.F
775!|| xini29 ../starter/source/elements/xelem/xini29.F
776!|| xini30 ../starter/source/elements/xelem/xini30.F
777!|| xini31 ../starter/source/elements/xelem/xini31.F
778!||--- calls -----------------------------------------------------
779!||====================================================================
780 my_real FUNCTION get_u_func(IFUNC,XX,DERI)
781C-----------------------------------------------
782C I m p l i c i t T y p e s
783C-----------------------------------------------
784#include "implicit_f.inc"
785C-----------------------------------------------
786C C o m m o n B l o c k s
787C-----------------------------------------------
788#include "scr05_c.inc"
789C-----------------------------------------------
790C D u m m y A r g u m e n t s
791C-----------------------------------------------
792 INTEGER ifunc
793 my_real
794 . deri,xx
795C-----------------------------------------------
796C L o c a l V a r i a b l e s
797C-----------------------------------------------
798 INTEGER i,npfi,NPFIP
799 my_real abc,dx1,dx2,tfi,tfi1,tfi2,tfip
800C-----------------------------------------------
801
802 CALL get_var_user_i(5,ifunc,npfi)
803 CALL get_var_user_i(5,ifunc+1,npfip)
804 IF (iresp==1) THEN
805 CALL get_var_user_f_sp(6,npfi,dx2)
806 ELSE
807 CALL get_var_user_f(6,npfi,dx2)
808 ENDIF
809 dx2=dx2-xx
810 DO 100 i=npfi+2,npfip-2,2
811 IF (iresp==1) THEN
812 CALL get_var_user_f_sp(6,i,tfi)
813 CALL get_var_user_f_sp(6,i+1,tfip)
814 CALL get_var_user_f_sp(6,i-1,tfi1)
815 CALL get_var_user_f_sp(6,i-2,tfi2)
816
817 ELSE
818 CALL get_var_user_f(6,i,tfi)
819 CALL get_var_user_f(6,i+1,tfip)
820 CALL get_var_user_f(6,i-1,tfi1)
821 CALL get_var_user_f(6,i-2,tfi2)
822 ENDIF
823 dx1 = -dx2
824 dx2 = tfi - xx
825 IF(dx2>=zero.OR.i==npfip-2)THEN
826 deri = (tfip - tfi1) / (tfi - tfi2)
827 IF(dx1<=dx2)THEN
828 get_u_func = tfi1 + dx1 * deri
829 ELSE
830 get_u_func = tfip - dx2 * deri
831 ENDIF
832 RETURN
833 ENDIF
834 100 CONTINUE
835 RETURN
836 END
837!||====================================================================
838!|| get_u_func_deri ../starter/source/user_interface/uaccess.F
839!||--- called by ------------------------------------------------------
840!|| rini45 ../starter/source/elements/joint/rjoint/rini45.F
841!||--- calls -----------------------------------------------------
842!||====================================================================
843 my_real FUNCTION get_u_func_deri(IFUNC)
844C-----------------------------------------------
845C I m p l i c i t T y p e s
846C-----------------------------------------------
847#include "implicit_f.inc"
848C-----------------------------------------------
849C C o m m o n B l o c k s
850C-----------------------------------------------
851#include "scr05_c.inc"
852C-----------------------------------------------
853C D u m m y A r g u m e n t s
854C-----------------------------------------------
855 INTEGER ifunc
856C-----------------------------------------------
857C L o c a l V a r i a b l e s
858C-----------------------------------------------
859 INTEGER i,npfi,npfip
860 my_real
861 . abc,deri,dx1,dx2,tfi,tfi1,tfi2,tfip,
862 . derimax
863C-----------------------------------------------
864 get_u_func_deri = 0
865 CALL get_var_user_i(5,ifunc,npfi)
866 CALL get_var_user_i(5,ifunc+1,npfip)
867
868 DO i=npfi+2,npfip-2,2
869 IF (iresp==1) THEN
870 CALL get_var_user_f_sp(6,i,tfi)
871 CALL get_var_user_f_sp(6,i+1,tfip)
872 CALL get_var_user_f_sp(6,i-1,tfi1)
873 CALL get_var_user_f_sp(6,i-2,tfi2)
874 ELSE
875 CALL get_var_user_f(6,i,tfi)
876 CALL get_var_user_f(6,i+1,tfip)
877 CALL get_var_user_f(6,i-1,tfi1)
878 CALL get_var_user_f(6,i-2,tfi2)
879 ENDIF
880 deri = abs((tfip - tfi1) / (tfi - tfi2))
881 get_u_func_deri = max(get_u_func_deri,deri)
882 END DO
883
884 RETURN
885 END
886!||====================================================================
887!|| get_u_m ../starter/source/user_interface/uaccess.F
888!||--- calls -----------------------------------------------------
889!|| get_u_mid ../starter/source/user_interface/uaccess.F
890!||====================================================================
891 INTEGER FUNCTION get_u_m(MID)
892C-----------------------------------------------
893C I m p l i c i t T y p e s
894C-----------------------------------------------
895#include "implicit_f.inc"
896C-----------------------------------------------
897C C o m m o n B l o c k s
898C-----------------------------------------------
899#include "com04_c.inc"
900C-----------------------------------------------
901C D u m m y A r g u m e n t s
902C-----------------------------------------------
903 INTEGER mid
904C-----------------------------------------------
905C L o c a l V a r i a b l e s
906C-----------------------------------------------
907 INTEGER i,get_u_mid
908 EXTERNAL get_u_mid
909C-----------------------------------------------
910 get_u_m = 0
911 DO i=1,nummat
912 IF(get_u_mid(i)==mid)THEN
913 get_u_m = i
914 RETURN
915 ENDIF
916 ENDDO
917 RETURN
918 END
919!||====================================================================
920!|| get_u_p ../starter/source/user_interface/uaccess.F
921!||--- calls -----------------------------------------------------
922!|| get_u_pid ../starter/source/user_interface/uaccess.F
923!||====================================================================
924 INTEGER FUNCTION get_u_p(PID)
925C-----------------------------------------------
926C I m p l i c i t T y p e s
927C-----------------------------------------------
928#include "implicit_f.inc"
929C-----------------------------------------------
930C C o m m o n B l o c k s
931C-----------------------------------------------
932#include "com04_c.inc"
933C-----------------------------------------------
934C D u m m y A r g u m e n t s
935C-----------------------------------------------
936 INTEGER pid
937C-----------------------------------------------
938C L o c a l V a r i a b l e s
939C-----------------------------------------------
940 INTEGER i,get_u_pid
941 EXTERNAL get_u_pid
942C-----------------------------------------------
943 get_u_p = 0
944 DO i=1,numgeo
945 IF(get_u_pid(i)==pid)THEN
946 get_u_p = i
947 RETURN
948 ENDIF
949 ENDDO
950 RETURN
951 END
952!||====================================================================
953!|| set_u_sens_ipar ../starter/source/user_interface/uaccess.F
954!||--- calls -----------------------------------------------------
955!|| ancmsg ../starter/source/output/message/message.F
956!||--- uses -----------------------------------------------------
957!|| message_mod ../starter/share/message_module/message_mod.F
958!|| user_interface_mod ../starter/source/modules/user_interface_mod.F90
959!|| user_sensor_mod ../starter/source/modules/user_interface_mod.F90
960!||====================================================================
961 INTEGER FUNCTION set_u_sens_ipar(IVAR,VAR)
962C-----------------------------------------------
963C M o d u l e s
964C-----------------------------------------------
965 USE message_mod
966 USE sensor_mod
967 USE user_interface_mod
968 USE user_sensor_mod
969C-----------------------------------------------
970C I m p l i c i t T y p e s
971C-----------------------------------------------
972#include "implicit_f.inc"
973C-----------------------------------------------
974C D u m m y A r g u m e n t s
975C-----------------------------------------------
976 INTEGER ivar, var
977C-----------------------------------------------
978C L o c a l V a r i a b l e s
979C-----------------------------------------------
980 INTEGER nsens,k,l,ityp
981C-----------------------------------------------
982 nsens = ksens_cur
983C
984 set_u_sens_ipar = -1
985 IF(ivar>nsenpari)THEN
986C
987 CALL ancmsg(msgid=374,
988 . msgtype=msgerror,
989 . anmode=aninfo,
990 . i1=ivar,
991 . i2=nsenpari)
992C
993 set_u_sens_ipar = nsenpari
994 RETURN
995 ENDIF
996C
997 ityp = sensors%SENSOR_TAB(nsens)%TYPE
998
999C
1000 IF (ityp>=29 .AND. ityp<=31)THEN
1001 sensors%SENSOR_TAB(nsens)%INTEGER_USERPARAM(ivar)=var
1002 set_u_sens_ipar = 0
1003 ENDIF
1004C
1005 RETURN
1006 END
1007C
1008!||====================================================================
1009!|| set_u_sens_fpar ../starter/source/user_interface/uaccess.F
1010!||--- calls -----------------------------------------------------
1011!|| ancmsg ../starter/source/output/message/message.F
1012!||--- uses -----------------------------------------------------
1013!|| message_mod ../starter/share/message_module/message_mod.F
1014!|| user_interface_mod ../starter/source/modules/user_interface_mod.F90
1015!|| user_sensor_mod ../starter/source/modules/user_interface_mod.F90
1016!||====================================================================
1017 INTEGER FUNCTION set_u_sens_fpar(IVAR,VAR)
1018C-----------------------------------------------
1019C M o d u l e s
1020C-----------------------------------------------
1021 USE message_mod
1022 USE sensor_mod
1023 USE user_interface_mod
1024 USE user_sensor_mod
1025C-----------------------------------------------
1026C I m p l i c i t T y p e s
1027C-----------------------------------------------
1028#include "implicit_f.inc"
1029C-----------------------------------------------
1030C D u m m y A r g u m e n t s
1031C-----------------------------------------------
1032 INTEGER ivar
1033 my_real
1034 . var,nv
1035C-----------------------------------------------
1036C L o c a l V a r i a b l e s
1037C-----------------------------------------------
1038 INTEGER nsens,k,l,ityp,depla
1039C-----------------------------------------------
1040c
1041 nsens = ksens_cur
1042C
1043 set_u_sens_fpar = -1
1044 IF(ivar>nsenparr)THEN
1045
1046 CALL ancmsg(msgid=374,
1047 . msgtype=msgerror,
1048 . anmode=aninfo,
1049 . i1=ivar,
1050 . i2=nsenparr)
1051 set_u_sens_fpar = nsenparr
1052 RETURN
1053
1054 ENDIF
1055C
1056 ityp = sensors%SENSOR_TAB(nsens)%TYPE
1057
1058 IF (ityp>=29 .AND. ityp<=31)THEN
1059 sensors%SENSOR_TAB(nsens)%FLOAT_USERPARAM(ivar)=var
1060 set_u_sens_fpar = 0
1061 ENDIF
1062C
1063 RETURN
1064 END
1065C
1066!||====================================================================
1067!|| get_u_numfun ../starter/source/user_interface/uaccess.F
1068!||--- called by ------------------------------------------------------
1069!|| get_u_func_y ../starter/source/user_interface/uaccess.F
1070!||--- calls -----------------------------------------------------
1071!||--- uses -----------------------------------------------------
1072!|| message_mod ../starter/share/message_module/message_mod.F
1073!||====================================================================
1074 INTEGER FUNCTION get_u_numfun(IDFUN)
1075C-----------------------------------------------
1076C M o d u l e s
1077C-----------------------------------------------
1078 USE message_mod
1079C-----------------------------------------------
1080C I m p l i c i t T y p e s
1081C-----------------------------------------------
1082#include "implicit_f.inc"
1083C-----------------------------------------------
1084C C o m m o n B l o c k s
1085C-----------------------------------------------
1086#include "com04_c.inc"
1087#include "scr03_c.inc"
1088C-----------------------------------------------
1089C D u m m y A r g u m e n t s
1090C-----------------------------------------------
1091 INTEGER idfun
1092C-----------------------------------------------
1093C L o c a l V a r i a b l e s
1094C-----------------------------------------------
1095 INTEGER j,id,depla
1096C-----------------------------------------------
1097C
1098 get_u_numfun = 0
1099 IF(idfun<=0)THEN
1100 RETURN
1101 ENDIF
1102C
1103 DO j=1,nfunct
1104C
1105 depla=nfunct+1+j
1106 CALL get_var_user_i(5,depla,id)
1107 IF(idfun==id)THEN
1108 get_u_numfun = j
1109 RETURN
1110 ENDIF
1111 ENDDO
1112C
1113 RETURN
1114 END
1115
1116C
1117!||====================================================================
1118!|| get_u_skew ../starter/source/user_interface/uaccess.F
1119!||--- called by ------------------------------------------------------
1120!|| get_skew ../starter/source/elements/joint/rjoint/rini33.F
1121!|| init_skew45 ../starter/source/elements/joint/rjoint/rini45.F
1122!|| rini33_rb ../starter/source/elements/joint/rjoint/rini33_rb.F
1123!|| rini45_rb ../starter/source/elements/joint/rjoint/rini45_rb.F
1124!||--- calls -----------------------------------------------------
1125!||====================================================================
1126 INTEGER FUNCTION get_u_skew(IDSKW,N1,N2,N3,V)
1127C-----------------------------------------------
1128C I m p l i c i t T y p e s
1129C-----------------------------------------------
1130#include "implicit_f.inc"
1131C-----------------------------------------------
1132C C o m m o n B l o c k s
1133C-----------------------------------------------
1134#include "com04_c.inc"
1135#include "scr05_c.inc"
1136#include "param_c.inc"
1137C-----------------------------------------------
1138C D u m m y A r g u m e n t s
1139C-----------------------------------------------
1140 INTEGER idskw,n1,n2,n3
1141 my_real
1142 . v(*)
1143C-----------------------------------------------
1144C L o c a l V a r i a b l e s
1145C-----------------------------------------------
1146 INTEGER i,id,nskw,depla
1147C=======================================================================
1148 DO i=1,numskw
1149C
1150 depla = 4+i*liskn
1151 CALL get_var_user_i(7,depla,id)
1152 IF(id==idskw) THEN
1153C
1154 depla=i*liskn
1155 CALL get_var_user_i(7,depla+1,n1)
1156 CALL get_var_user_i(7,depla+2,n2)
1157 CALL get_var_user_i(7,depla+3,n3)
1158C
1159 depla=i*lskew+1
1160 IF (iresp==1) THEN
1161 CALL get_array_user_f_sp(8,depla,v,lskew)
1162 ELSE
1163 CALL get_array_user_f(8,depla,v,lskew)
1164 ENDIF
1165 get_u_skew = i
1166 RETURN
1167C
1168 ENDIF
1169C
1170 ENDDO
1171 get_u_skew = 0
1172 RETURN
1173 END
1174
1175!||====================================================================
1176!|| uelt_spmd_additional_node ../starter/source/user_interface/uaccess.F
1177!||--- calls -----------------------------------------------------
1178!|| ifrontplus ../starter/source/spmd/node/frontplus.F
1179!|| usr2sys ../starter/source/system/sysfus.F
1180!||--- uses -----------------------------------------------------
1181!|| restmod ../starter/share/modules1/restart_mod.F
1182!||====================================================================
1183 SUBROUTINE uelt_spmd_additional_node(NODID)
1184C-----------------------------------------------
1185C M o d u l e s
1186C-----------------------------------------------
1187 USE restmod
1188C-----------------------------------------------
1189C I m p l i c i t T y p e s
1190C-----------------------------------------------
1191#include "implicit_f.inc"
1192C-----------------------------------------------
1193C C o m m o n B l o c k s
1194C-----------------------------------------------
1195#include "com01_c.inc"
1196#include "userlib.inc"
1197C-----------------------------------------------
1198C D u m m y A r g u m e n t s
1199C-----------------------------------------------
1200 INTEGER NODID
1201C-----------------------------------------------
1202C L o c a l V a r i a b l e s
1203C-----------------------------------------------
1204 INTEGER INODID,P
1205 CHARACTER MESS*40
1206 INTEGER USR2SYS
1207 EXTERNAL usr2sys
1208 DATA mess/'USER NODES CONVERSION '/
1209C-----------------------------------------------
1210
1211 inodid=usr2sys(nodid,itabm1,mess,nodid)
1212
1213 IF(inodid/=0)THEN
1214 IF(user_grp_domain/=0)THEN
1215 CALL ifrontplus(inodid,user_grp_domain)
1216 ELSE
1217 DO p=1,nspmd
1218 CALL ifrontplus(inodid,p)
1219 ENDDO
1220 ENDIF
1221 ENDIF
1222
1223 RETURN
1224 END
1225
1226!||====================================================================
1227!|| write_iout ../starter/source/user_interface/uaccess.F
1228!||====================================================================
1229 SUBROUTINE write_iout(LINE,LEN1)
1230C-----------------------------------------------
1231C I m p l i c i t T y p e s
1232C-----------------------------------------------
1233#include "implicit_f.inc"
1234C-----------------------------------------------
1235C C o m m o n B l o c k s
1236C-----------------------------------------------
1237#include "units_c.inc"
1238C-----------------------------------------------
1239C D u m m y A r g u m e n t s
1240C-----------------------------------------------
1241 INTEGER LEN1
1242 CHARACTER(len=LEN1) LINE
1243C-----------------------------------------------
1244
1245 WRITE(iout,'(A)') line(1:len1)
1246
1247 END
1248C-----------------------------------------------
my_real
#define my_real
Definition cppsort.cpp:32
depla
subroutine depla(v, d, x, vr, dr, xdp, ddp, numnod)
Definition displacement.F:29
set_var_user_f
void set_var_user_f(int *buf, int *decalage, double *variable)
Definition eng_callback_c.c:127
get_var_user_f
void get_var_user_f(int *buf, int *decalage, double *resultat)
Definition eng_callback_c.c:88
get_array_user_f
void get_array_user_f(int *buf, int *decalage, double *array, int *array_lenght)
Definition eng_callback_c.c:203
get_array_user_f_sp
void get_array_user_f_sp(int *buf, int *decalage, float *array, int *array_lenght)
Definition eng_callback_c.c:247
get_var_user_i
void get_var_user_i(int *buf, int *decalage, int *resultat)
Definition eng_callback_c.c:163
get_var_user_f_sp
void get_var_user_f_sp(int *buf, int *decalage, float *resultat)
Definition eng_callback_c.c:108
ifrontplus
subroutine ifrontplus(n, p)
Definition frontplus.F:101
rini36
subroutine rini36(nel, iout, iprop, xl, mass, xiner, stifm, stifr, viscm, viscr, uvar, nuvar)
Definition hm_read_prop36.F:264
hm_read_prop36
subroutine hm_read_prop36(iout, nuvar, pargeo, unitab, iskn, ig, titr, igtyp, prop_tag, geo, lsubmodel, sub_id)
Definition hm_read_prop36.F:41
inspcnd
subroutine inspcnd(ispcond, igrnod, kxsp, ixsp, nod2sp, itab, icode, iskew, iskn, skew, xframe, x, ispsym, isptag, pm, geo, ipart, ipartsp)
Definition inspcnd.F:39
max
#define max(a, b)
Definition macros.h:21
id
initmumps id
Definition multiplerhs_example.m:4
message_mod
Definition message_mod.F:1257
restmod::itabm1
integer, dimension(:), allocatable, target itabm1
Definition restart_mod.F:60
nvar
integer function nvar(text)
Definition nvar.F:32
ancmsg
subroutine ancmsg(msgid, msgtype, anmode, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, r1, r2, r3, r4, r5, r6, r7, r8, r9, c1, c2, c3, c4, c5, c6, c7, c8, c9, prmode)
Definition message.F:895
get_u_skew
integer function get_u_skew(idskw, n1, n2, n3, v)
Definition uaccess.F:1127
uelt_spmd_additional_node
subroutine uelt_spmd_additional_node(nodid)
Definition uaccess.F:1184
get_u_m
integer function get_u_m(mid)
Definition uaccess.F:892
set_u_pnu
integer function set_u_pnu(ivar, ip, k)
Definition uaccess.F:127
get_u_func_n
integer function get_u_func_n(ifunc)
Definition uaccess.F:695
get_u_p
integer function get_u_p(pid)
Definition uaccess.F:925
get_u_pid
integer function get_u_pid(ip)
Definition uaccess.F:625
get_u_pnu
integer function get_u_pnu(ivar, ip, k)
Definition uaccess.F:481
get_u_numfun
integer function get_u_numfun(idfun)
Definition uaccess.F:1075
write_iout
subroutine write_iout(line, len1)
Definition uaccess.F:1230
set_u_sens_ipar
integer function set_u_sens_ipar(ivar, var)
Definition uaccess.F:962
reset_u_geo
integer function reset_u_geo(ivar, ip, a)
Definition uaccess.F:395
set_u_geo
integer function set_u_geo(ivar, a)
Definition uaccess.F:64
get_u_mid
integer function get_u_mid(im)
Definition uaccess.F:667
get_u_mnu
integer function get_u_mnu(ivar, im, k)
Definition uaccess.F:564
st_uaccess_dum
subroutine st_uaccess_dum(ierr)
Definition uaccess.F:31
set_u_sens_fpar
integer function set_u_sens_fpar(ivar, var)
Definition uaccess.F:1018
starter
program starter
Definition starter.F:39