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!|| spinih ../starter/source/elements/sph/spinih.F
390!||--- calls -----------------------------------------------------
391!|| ancmsg ../starter/source/output/message/message.F
392!||--- uses -----------------------------------------------------
393!|| message_mod ../starter/share/message_module/message_mod.F
394!||====================================================================
395 INTEGER FUNCTION reset_u_geo(IVAR,IP,A)
396C-----------------------------------------------
397C M o d u l e s
398C-----------------------------------------------
399 USE message_mod
400C-----------------------------------------------
401C I m p l i c i t T y p e s
402C-----------------------------------------------
403#include "implicit_f.inc"
404C-----------------------------------------------
405C C o m m o n B l o c k s
406C-----------------------------------------------
407#include "param_c.inc"
408#include "scr05_c.inc"
409C-----------------------------------------------
410C D u m m y A r g u m e n t s
411C-----------------------------------------------
412 INTEGER ivar,ip
413C-----------------------------------------------
414C L o c a l V a r i a b l e s
415C-----------------------------------------------
416 INTEGER nvar,ier,depla
417 my_real a,nv
418 DOUBLE PRECISION a2
419C-----------------------------------------------
420C
421 ier = 0
422C
423 depla = 26+(ip-1)*npropg
424 IF (iresp==1) THEN
425 CALL get_var_user_f_sp(3,depla,nv)
426 ELSE
427 CALL get_var_user_f(3,depla,nv)
428 ENDIF
429 nvar = nint(nv)
430C
431 IF(ivar>nvar)THEN
432 CALL ancmsg(msgid=376,
433 . msgtype=msgerror,
434 . anmode=aninfo,
435 . i2=ivar,
436 . c2='PROPERTY',
437 . i3=nvar,
438 . c3='NUPARAG')
439 ier = 1
440 ELSE
441C
442 depla = 27+(ip-1)*npropg
443 IF (iresp==1) THEN
444 CALL get_var_user_f_sp(3,depla,nv)
445 depla=nint(nv)-1+ivar
446C Sav Buf Point = 4 is BUFGEO which is now in Double precision
447 a2 = a
448 CALL set_var_user_f(4,depla,a2)
449 ELSE
450 CALL get_var_user_f(3,depla,nv)
451 depla=nint(nv)-1+ivar
452 CALL set_var_user_f(4,depla,a)
453 ENDIF
454C
455 ENDIF
456C
457 reset_u_geo=ier
458 RETURN
459 END
460C
461!||====================================================================
462!|| get_u_pnu ../starter/source/user_interface/uaccess.F
463!||--- called by ------------------------------------------------------
464!|| rini32 ../starter/source/properties/spring/hm_read_prop32.F
465!|| rini33 ../starter/source/elements/joint/rjoint/rini33.F
466!|| rini35 ../starter/source/elements/spring/rini35.F
467!|| rini36 ../starter/source/properties/spring/hm_read_prop36.F
468!|| rini44 ../starter/source/elements/spring/rini44.F
469!|| rini45 ../starter/source/elements/joint/rjoint/rini45.F
470!|| rini46 ../starter/source/elements/spring/rini46.F
471!|| spinit3 ../starter/source/elements/sph/spinit3.F
472!|| xini28 ../starter/source/elements/xelem/xini28.F
473!|| xini29 ../starter/source/elements/xelem/xini29.F
474!|| xini30 ../starter/source/elements/xelem/xini30.F
475!|| xini31 ../starter/source/elements/xelem/xini31.F
476!||--- calls -----------------------------------------------------
477!|| ancmsg ../starter/source/output/message/message.F
478!||--- uses -----------------------------------------------------
479!|| message_mod ../starter/share/message_module/message_mod.F
480!||====================================================================
481 INTEGER FUNCTION get_u_pnu(IVAR,IP,K)
482C-----------------------------------------------
483C M o d u l e s
484C-----------------------------------------------
485 USE message_mod
486C-----------------------------------------------
487C I m p l i c i t T y p e s
488C-----------------------------------------------
489#include "implicit_f.inc"
490C-----------------------------------------------
491C C o m m o n B l o c k s
492C-----------------------------------------------
493#include "param_c.inc"
494#include "scr05_c.inc"
495C-----------------------------------------------
496C D u m m y A r g u m e n t s
497C-----------------------------------------------
498 INTEGER ivar,ip,k
499C-----------------------------------------------
500C L o c a l V a r i a b l e s
501C-----------------------------------------------
502 INTEGER nvar,depla
503 DOUBLE PRECISION nv2
504 my_real nv
505C-----------------------------------------------
506 depla = k-1+(ip-1)*npropg
507 IF (iresp==1) THEN
508 CALL get_var_user_f_sp(3,depla,nv)
509 ELSE
510 CALL get_var_user_f(3,depla,nv)
511 ENDIF
512 nvar = nint(nv)
513C
514 IF(ivar>nvar)THEN
515C
516 CALL ancmsg(msgid=377,
517 . msgtype=msgerror,
518 . anmode=aninfo,
519 . c1='GET_U_PNU',
520 . c2='IVAR,IP,K',
521 . c3='IVAR',i1=ivar,
522 . c4='K',i2=k,
523 . c5='IVAR',i3=ivar,
524 . i4=nvar)
525C
526 ELSE
527C
528 depla = k+(ip-1)*npropg
529 IF (iresp==1) THEN
530 CALL get_var_user_f_sp(3,depla,nv)
531 depla = nint(nv)-1+ivar
532C Sav Buf Point = 4 is BUFGEO which is now in Double precision
533 CALL get_var_user_f(4,depla,nv2)
534 nv=nv2
535 ELSE
536 CALL get_var_user_f(3,depla,nv)
537 depla = nint(nv)-1+ivar
538 CALL get_var_user_f(4,depla,nv)
539 ENDIF
540 get_u_pnu = nint(nv)
541C
542 ENDIF
543C
544 RETURN
545 END
546!||====================================================================
547!|| get_u_mnu ../starter/source/user_interface/uaccess.F
548!||--- called by ------------------------------------------------------
549!|| rini32 ../starter/source/properties/spring/hm_read_prop32.F
550!|| rini35 ../starter/source/elements/spring/rini35.F
551!|| rini36 ../starter/source/properties/spring/hm_read_prop36.F
552!|| rini44 ../starter/source/elements/spring/rini44.F
553!|| rini46 ../starter/source/elements/spring/rini46.F
554!|| spinit3 ../starter/source/elements/sph/spinit3.F
555!|| xini28 ../starter/source/elements/xelem/xini28.F
556!|| xini29 ../starter/source/elements/xelem/xini29.F
557!|| xini30 ../starter/source/elements/xelem/xini30.F
558!|| xini31 ../starter/source/elements/xelem/xini31.F
559!||--- calls -----------------------------------------------------
560!|| ancmsg ../starter/source/output/message/message.F
561!||--- uses -----------------------------------------------------
562!|| message_mod ../starter/share/message_module/message_mod.F
563!||====================================================================
564 INTEGER FUNCTION get_u_mnu(IVAR,IM,K)
565C-----------------------------------------------
566C M o d u l e s
567C-----------------------------------------------
568 USE message_mod
569C-----------------------------------------------
570C I m p l i c i t T y p e s
571C-----------------------------------------------
572#include "implicit_f.inc"
573C------------------------------------------
574C C o m m o n B l o c k s
575C-----------------------------------------------
576#include "param_c.inc"
577C-----------------------------------------------
578C D u m m y A r g u m e n t s
579C-----------------------------------------------
580 INTEGER ivar,im,k
581C-----------------------------------------------
582C L o c a l V a r i a b l e s
583C-----------------------------------------------
584 INTEGER kfunc,depla,nfunc
585 parameter(kfunc=29)
586C=======================================================================
587C
588 depla = 10+(im-1)*npropmi
589 CALL get_var_user_i(11,depla,nfunc)
590 IF(ivar > nfunc)THEN
591 CALL ancmsg(msgid=377,
592 . msgtype=msgerror,
593 . anmode=aninfo,
594 . c1='GET_U_MNU',
595 . c2='IVAR,IM,K',
596 . c3='IVAR',i1=ivar,
597 . c4='K',i2=k,
598 . c5='IVAR',i3=ivar,
599 . i4=nfunc)
600 ELSEIF(k==kfunc) THEN
601C
602 depla = 10+ivar+(im-1)*npropmi
603 CALL get_var_user_i(11,depla,get_u_mnu)
604 ENDIF
605C
606 RETURN
607 END
608C
609!||====================================================================
610!|| get_u_pid ../starter/source/user_interface/uaccess.F
611!||--- called by ------------------------------------------------------
612!|| get_u_p ../starter/source/user_interface/uaccess.F
613!|| rini32 ../starter/source/properties/spring/hm_read_prop32.F
614!|| rini35 ../starter/source/elements/spring/rini35.F
615!|| rini36 ../starter/source/properties/spring/hm_read_prop36.F
616!|| rini44 ../starter/source/elements/spring/rini44.F
617!|| rini46 ../starter/source/elements/spring/rini46.F
618!|| spinit3 ../starter/source/elements/sph/spinit3.f
619!|| xini28 ../starter/source/elements/xelem/xini28.F
620!|| xini29 ../starter/source/elements/xelem/xini29.F
621!|| xini30 ../starter/source/elements/xelem/xini30.F
622!|| xini31 ../starter/source/elements/xelem/xini31.F
623!||--- calls -----------------------------------------------------
624!||====================================================================
625 INTEGER FUNCTION get_u_pid(IP)
626C-----------------------------------------------
627C I m p l i c i t T y p e s
628C-----------------------------------------------
629#include "implicit_f.inc"
630C-----------------------------------------------
631C C o m m o n B l o c k s
632C-----------------------------------------------
633#include "param_c.inc"
634C-----------------------------------------------
635C D u m m y A r g u m e n t s
636C-----------------------------------------------
637 INTEGER ip
638C-----------------------------------------------
639C L o c a l V a r i a b l e s
640C-----------------------------------------------
641 INTEGER depla,nv
642C---------------------------------------------------------------
643C
644 depla = 1+(ip-1)*npropgi
645 CALL get_var_user_i(12,depla,nv)
646 get_u_pid = nv
647C
648 RETURN
649 END
650C
651!||====================================================================
652!|| get_u_mid ../starter/source/user_interface/uaccess.F
653!||--- called by ------------------------------------------------------
654!|| get_u_m ../starter/source/user_interface/uaccess.F
655!|| rini32 ../starter/source/properties/spring/hm_read_prop32.F
656!|| rini35 ../starter/source/elements/spring/rini35.F
657!|| rini36 ../starter/source/properties/spring/hm_read_prop36.F
658!|| rini44 ../starter/source/elements/spring/rini44.F
659!|| rini46 ../starter/source/elements/spring/rini46.F
660!|| spinit3 ../starter/source/elements/sph/spinit3.F
661!|| xini28 ../starter/source/elements/xelem/xini28.F
662!|| xini29 ../starter/source/elements/xelem/xini29.F
663!|| xini30 ../starter/source/elements/xelem/xini30.F
664!|| xini31 ../starter/source/elements/xelem/xini31.F
665!||--- calls -----------------------------------------------------
666!||====================================================================
667 INTEGER FUNCTION get_u_mid(IM)
668C-----------------------------------------------
669C I m p l i c i t T y p e s
670C-----------------------------------------------
671#include "implicit_f.inc"
672C-----------------------------------------------
673C C o m m o n B l o c k s
674C-----------------------------------------------
675#include "param_c.inc"
676C-----------------------------------------------
677C D u m m y A r g u m e n t s
678C-----------------------------------------------
679 INTEGER im
680C-----------------------------------------------
681C L o c a l V a r i a b l e s
682C-----------------------------------------------
683 INTEGER depla,mid
684C-------------------------------------------------
685 depla = 1+(im-1)*npropmi
686 CALL get_var_user_i(11,depla,mid)
687 get_u_mid = mid
688C
689 RETURN
690 END
691!||====================================================================
692!|| get_u_func_n ../starter/source/user_interface/uaccess.F
693!||--- calls -----------------------------------------------------
694!||====================================================================
695 INTEGER FUNCTION get_u_func_n(IFUNC)
696C-----------------------------------------------
697C I m p l i c i t T y p e s
698C-----------------------------------------------
699#include "implicit_f.inc"
700C-----------------------------------------------
701C D u m m y A r g u m e n t s
702C-----------------------------------------------
703 INTEGER ifunc
704C-----------------------------------------------
705C L o c a l V a r i a b l e s
706C-----------------------------------------------
707 INTEGER i,npfi,npfip
708C-----------------------------------------------
709 CALL get_var_user_i(5,ifunc,npfi)
710 CALL get_var_user_i(5,ifunc+1,npfip)
711 get_u_func_n=(npfip-npfi)/2
712 RETURN
713 END
714!||====================================================================
715!|| get_u_func_y ../starter/source/user_interface/uaccess.F
716!||--- calls -----------------------------------------------------
717!|| ancmsg ../starter/source/output/message/message.F
718!|| get_u_numfun ../starter/source/user_interface/uaccess.F
719!||--- uses -----------------------------------------------------
720!|| message_mod ../starter/share/message_module/message_mod.f
721!||====================================================================
722 my_real FUNCTION get_u_func_y(IFUNC,N)
723C-----------------------------------------------
724C M o d u l e s
725C-----------------------------------------------
726 USE message_mod
727C-----------------------------------------------
728C I m p l i c i t T y p e s
729C-----------------------------------------------
730#include "implicit_f.inc"
731C-----------------------------------------------
732C C o m m o n B l o c k s
733C-----------------------------------------------
734#include "scr05_c.inc"
735C-----------------------------------------------
736C D u m m y A r g u m e n t s
737C-----------------------------------------------
738 INTEGER ifunc,n
739C-----------------------------------------------
740C L o c a l V a r i a b l e s
741C-----------------------------------------------
742 INTEGER i,npfi,npfip,nmax
743 my_real
744 . yy
745 INTEGER get_u_numfun
746 EXTERNAL get_u_numfun
747C-----------------------------------------------
748 CALL get_var_user_i(5,ifunc,npfi)
749 CALL get_var_user_i(5,ifunc+1,npfip)
750 nmax=(npfip-npfi)/2
751 i=npfi+(n-1)*2
752 IF (n>nmax.OR.n<=0) THEN
753 CALL ancmsg(msgid=841,
754 . msgtype=msgerror,
755 . anmode=aninfo_blind_2,
756 . c2='X',
757 . i2=n,
758 . i3=nmax)
759 END IF
760 IF (iresp==1) THEN
761 CALL get_var_user_f_sp(6,i+1,yy)
762 ELSE
763 CALL get_var_user_f(6,i+1,yy)
764 ENDIF
765 get_u_func_y=yy
766 RETURN
767 END
768!||====================================================================
769!|| get_u_func ../starter/source/user_interface/uaccess.F
770!||--- called by ------------------------------------------------------
771!|| hm_read_retractor ../starter/source/tools/seatbelts/hm_read_retractor.F
772!|| rini33 ../starter/source/elements/joint/rjoint/rini33.F
773!|| rini45 ../starter/source/elements/joint/rjoint/rini45.F
774!|| spinit3 ../starter/source/elements/sph/spinit3.F
775!|| xini28 ../starter/source/elements/xelem/xini28.F
776!|| xini29 ../starter/source/elements/xelem/xini29.F
777!|| xini30 ../starter/source/elements/xelem/xini30.F
778!|| xini31 ../starter/source/elements/xelem/xini31.F
779!||--- calls -----------------------------------------------------
780!||====================================================================
781 my_real FUNCTION get_u_func(IFUNC,XX,DERI)
782C-----------------------------------------------
783C I m p l i c i t T y p e s
784C-----------------------------------------------
785#include "implicit_f.inc"
786C-----------------------------------------------
787C C o m m o n B l o c k s
788C-----------------------------------------------
789#include "scr05_c.inc"
790C-----------------------------------------------
791C D u m m y A r g u m e n t s
792C-----------------------------------------------
793 INTEGER ifunc
794 my_real
795 . deri,xx
796C-----------------------------------------------
797C L o c a l V a r i a b l e s
798C-----------------------------------------------
799 INTEGER i,npfi,npfip
800 my_real abc,dx1,dx2,tfi,tfi1,tfi2,tfip
801C-----------------------------------------------
802
803 CALL get_var_user_i(5,ifunc,npfi)
804 CALL get_var_user_i(5,ifunc+1,npfip)
805 IF (iresp==1) THEN
806 CALL get_var_user_f_sp(6,npfi,dx2)
807 ELSE
808 CALL get_var_user_f(6,npfi,dx2)
809 ENDIF
810 dx2=dx2-xx
811 DO 100 i=npfi+2,npfip-2,2
812 IF (iresp==1) THEN
813 CALL get_var_user_f_sp(6,i,tfi)
814 CALL get_var_user_f_sp(6,i+1,tfip)
815 CALL get_var_user_f_sp(6,i-1,tfi1)
816 CALL get_var_user_f_sp(6,i-2,tfi2)
817
818 ELSE
819 CALL get_var_user_f(6,i,tfi)
820 CALL get_var_user_f(6,i+1,tfip)
821 CALL get_var_user_f(6,i-1,tfi1)
822 CALL get_var_user_f(6,i-2,tfi2)
823 ENDIF
824 dx1 = -dx2
825 dx2 = tfi - xx
826 IF(dx2>=zero.OR.i==npfip-2)THEN
827 deri = (tfip - tfi1) / (tfi - tfi2)
828 IF(dx1<=dx2)THEN
829 get_u_func = tfi1 + dx1 * deri
830 ELSE
831 get_u_func = tfip - dx2 * deri
832 ENDIF
833 RETURN
834 ENDIF
835 100 CONTINUE
836 RETURN
837 END
838!||====================================================================
839!|| get_u_func_deri ../starter/source/user_interface/uaccess.F
840!||--- called by ------------------------------------------------------
841!|| rini45 ../starter/source/elements/joint/rjoint/rini45.F
842!||--- calls -----------------------------------------------------
843!||====================================================================
844 my_real FUNCTION get_u_func_deri(IFUNC)
845C-----------------------------------------------
846C I m p l i c i t T y p e s
847C-----------------------------------------------
848#include "implicit_f.inc"
849C-----------------------------------------------
850C C o m m o n B l o c k s
851C-----------------------------------------------
852#include "scr05_c.inc"
853C-----------------------------------------------
854C D u m m y A r g u m e n t s
855C-----------------------------------------------
856 INTEGER ifunc
857C-----------------------------------------------
858C L o c a l V a r i a b l e s
859C-----------------------------------------------
860 INTEGER i,npfi,npfip
861 my_real
862 . abc,deri,dx1,dx2,tfi,tfi1,tfi2,tfip,
863 . derimax
864C-----------------------------------------------
865 get_u_func_deri = 0
866 CALL get_var_user_i(5,ifunc,npfi)
867 CALL get_var_user_i(5,ifunc+1,npfip)
868
869 DO i=npfi+2,npfip-2,2
870 IF (iresp==1) THEN
871 CALL get_var_user_f_sp(6,i,tfi)
872 CALL get_var_user_f_sp(6,i+1,tfip)
873 CALL get_var_user_f_sp(6,i-1,tfi1)
874 CALL get_var_user_f_sp(6,i-2,tfi2)
875 ELSE
876 CALL get_var_user_f(6,i,tfi)
877 CALL get_var_user_f(6,i+1,tfip)
878 CALL get_var_user_f(6,i-1,tfi1)
879 CALL get_var_user_f(6,i-2,tfi2)
880 ENDIF
881 deri = abs((tfip - tfi1) / (tfi - tfi2))
882 get_u_func_deri = max(get_u_func_deri,deri)
883 END DO
884
885 RETURN
886 END
887!||====================================================================
888!|| get_u_m ../starter/source/user_interface/uaccess.F
889!||--- calls -----------------------------------------------------
890!|| get_u_mid ../starter/source/user_interface/uaccess.F
891!||====================================================================
892 INTEGER FUNCTION get_u_m(MID)
893C-----------------------------------------------
894C I m p l i c i t T y p e s
895C-----------------------------------------------
896#include "implicit_f.inc"
897C-----------------------------------------------
898C C o m m o n B l o c k s
899C-----------------------------------------------
900#include "com04_c.inc"
901C-----------------------------------------------
902C D u m m y A r g u m e n t s
903C-----------------------------------------------
904 INTEGER mid
905C-----------------------------------------------
906C L o c a l V a r i a b l e s
907C-----------------------------------------------
908 INTEGER i,get_u_mid
909 EXTERNAL get_u_mid
910C-----------------------------------------------
911 get_u_m = 0
912 DO i=1,nummat
913 IF(get_u_mid(i)==mid)THEN
914 get_u_m = i
915 RETURN
916 ENDIF
917 ENDDO
918 RETURN
919 END
920!||====================================================================
921!|| get_u_p ../starter/source/user_interface/uaccess.F
922!||--- calls -----------------------------------------------------
923!|| get_u_pid ../starter/source/user_interface/uaccess.F
924!||====================================================================
925 INTEGER FUNCTION get_u_p(PID)
926C-----------------------------------------------
927C I m p l i c i t T y p e s
928C-----------------------------------------------
929#include "implicit_f.inc"
930C-----------------------------------------------
931C C o m m o n B l o c k s
932C-----------------------------------------------
933#include "com04_c.inc"
934C-----------------------------------------------
935C D u m m y A r g u m e n t s
936C-----------------------------------------------
937 INTEGER pid
938C-----------------------------------------------
939C L o c a l V a r i a b l e s
940C-----------------------------------------------
941 INTEGER i,get_u_pid
942 EXTERNAL get_u_pid
943C-----------------------------------------------
944 get_u_p = 0
945 DO i=1,numgeo
946 IF(get_u_pid(i)==pid)THEN
947 get_u_p = i
948 RETURN
949 ENDIF
950 ENDDO
951 RETURN
952 END
953!||====================================================================
954!|| set_u_sens_ipar ../starter/source/user_interface/uaccess.F
955!||--- calls -----------------------------------------------------
956!|| ancmsg ../starter/source/output/message/message.F
957!||--- uses -----------------------------------------------------
958!|| message_mod ../starter/share/message_module/message_mod.F
959!|| user_interface_mod ../starter/source/modules/user_interface_mod.F90
960!|| user_sensor_mod ../starter/source/modules/user_interface_mod.F90
961!||====================================================================
962 INTEGER FUNCTION set_u_sens_ipar(IVAR,VAR)
963C-----------------------------------------------
964C M o d u l e s
965C-----------------------------------------------
966 USE message_mod
967 USE sensor_mod
968 USE user_interface_mod
969 USE user_sensor_mod
970C-----------------------------------------------
971C I m p l i c i t T y p e s
972C-----------------------------------------------
973#include "implicit_f.inc"
974C-----------------------------------------------
975C D u m m y A r g u m e n t s
976C-----------------------------------------------
977 INTEGER ivar, var
978C-----------------------------------------------
979C L o c a l V a r i a b l e s
980C-----------------------------------------------
981 INTEGER nsens,k,l,ityp
982C-----------------------------------------------
983 nsens = ksens_cur
984C
985 set_u_sens_ipar = -1
986 IF(ivar>nsenpari)THEN
987C
988 CALL ancmsg(msgid=374,
989 . msgtype=msgerror,
990 . anmode=aninfo,
991 . i1=ivar,
992 . i2=nsenpari)
993C
994 set_u_sens_ipar = nsenpari
995 RETURN
996 ENDIF
997C
998 ityp = sensors%SENSOR_TAB(nsens)%TYPE
999
1000C
1001 IF (ityp>=29 .AND. ityp<=31)THEN
1002 sensors%SENSOR_TAB(nsens)%INTEGER_USERPARAM(ivar)=var
1003 set_u_sens_ipar = 0
1004 ENDIF
1005C
1006 RETURN
1007 END
1008C
1009!||====================================================================
1010!|| set_u_sens_fpar ../starter/source/user_interface/uaccess.F
1011!||--- calls -----------------------------------------------------
1012!|| ancmsg ../starter/source/output/message/message.F
1013!||--- uses -----------------------------------------------------
1014!|| message_mod ../starter/share/message_module/message_mod.F
1015!|| user_interface_mod ../starter/source/modules/user_interface_mod.F90
1016!|| user_sensor_mod ../starter/source/modules/user_interface_mod.F90
1017!||====================================================================
1018 INTEGER FUNCTION set_u_sens_fpar(IVAR,VAR)
1019C-----------------------------------------------
1020C M o d u l e s
1021C-----------------------------------------------
1022 USE message_mod
1023 USE sensor_mod
1024 USE user_interface_mod
1025 USE user_sensor_mod
1026C-----------------------------------------------
1027C I m p l i c i t T y p e s
1028C-----------------------------------------------
1029#include "implicit_f.inc"
1030C-----------------------------------------------
1031C D u m m y A r g u m e n t s
1032C-----------------------------------------------
1033 INTEGER ivar
1034 my_real
1035 . var,nv
1036C-----------------------------------------------
1037C L o c a l V a r i a b l e s
1038C-----------------------------------------------
1039 INTEGER nsens,k,l,ityp,depla
1040C-----------------------------------------------
1041C
1042 nsens = ksens_cur
1043C
1044 set_u_sens_fpar = -1
1045 IF(ivar>nsenparr)THEN
1046
1047 CALL ancmsg(msgid=374,
1048 . msgtype=msgerror,
1049 . anmode=aninfo,
1050 . i1=ivar,
1051 . i2=nsenparr)
1052 set_u_sens_fpar = nsenparr
1053 RETURN
1054
1055 ENDIF
1056C
1057 ityp = sensors%SENSOR_TAB(nsens)%TYPE
1058
1059 IF (ityp>=29 .AND. ityp<=31)THEN
1060 sensors%SENSOR_TAB(nsens)%FLOAT_USERPARAM(ivar)=var
1061 set_u_sens_fpar = 0
1062 ENDIF
1063C
1064 RETURN
1065 END
1066C
1067!||====================================================================
1068!|| get_u_numfun ../starter/source/user_interface/uaccess.F
1069!||--- called by ------------------------------------------------------
1070!|| get_u_func_y ../starter/source/user_interface/uaccess.F
1071!||--- calls -----------------------------------------------------
1072!||--- uses -----------------------------------------------------
1073!|| message_mod ../starter/share/message_module/message_mod.F
1074!||====================================================================
1075 INTEGER FUNCTION get_u_numfun(IDFUN)
1076C-----------------------------------------------
1077C M o d u l e s
1078C-----------------------------------------------
1079 USE message_mod
1080C-----------------------------------------------
1081C I m p l i c i t T y p e s
1082C-----------------------------------------------
1083#include "implicit_f.inc"
1084C-----------------------------------------------
1085C C o m m o n B l o c k s
1086C-----------------------------------------------
1087#include "com04_c.inc"
1088#include "scr03_c.inc"
1089C-----------------------------------------------
1090C D u m m y A r g u m e n t s
1091C-----------------------------------------------
1092 INTEGER idfun
1093C-----------------------------------------------
1094C L o c a l V a r i a b l e s
1095C-----------------------------------------------
1096 INTEGER j,id,depla
1097C-----------------------------------------------
1098C
1099 get_u_numfun = 0
1100 IF(idfun<=0)THEN
1101 RETURN
1102 ENDIF
1103C
1104 DO j=1,nfunct
1105C
1106 depla=nfunct+1+j
1107 CALL get_var_user_i(5,depla,id)
1108 IF(idfun==id)THEN
1109 get_u_numfun = j
1110 RETURN
1111 ENDIF
1112 ENDDO
1113C
1114 RETURN
1115 END
1116
1117C
1118!||====================================================================
1119!|| get_u_skew ../starter/source/user_interface/uaccess.F
1120!||--- called by ------------------------------------------------------
1121!|| get_skew ../starter/source/elements/joint/rjoint/rini33.F
1122!|| init_skew45 ../starter/source/elements/joint/rjoint/rini45.F
1123!|| rini33_rb ../starter/source/elements/joint/rjoint/rini33_rb.F
1124!|| rini45_rb ../starter/source/elements/joint/rjoint/rini45_rb.F
1125!||--- calls -----------------------------------------------------
1126!||====================================================================
1127 INTEGER FUNCTION get_u_skew(IDSKW,N1,N2,N3,V)
1128C-----------------------------------------------
1129C I m p l i c i t T y p e s
1130C-----------------------------------------------
1131#include "implicit_f.inc"
1132C-----------------------------------------------
1133C C o m m o n B l o c k s
1134C-----------------------------------------------
1135#include "com04_c.inc"
1136#include "scr05_c.inc"
1137#include "param_c.inc"
1138C-----------------------------------------------
1139C D u m m y A r g u m e n t s
1140C-----------------------------------------------
1141 INTEGER idskw,n1,n2,n3
1142 my_real
1143 . v(*)
1144C-----------------------------------------------
1145C L o c a l V a r i a b l e s
1146C-----------------------------------------------
1147 INTEGER i,id,nskw,depla
1148C=======================================================================
1149 DO i=1,numskw
1150C
1151 depla = 4+i*liskn
1152 CALL get_var_user_i(7,depla,id)
1153 IF(id==idskw) THEN
1154C
1155 depla=i*liskn
1156 CALL get_var_user_i(7,depla+1,n1)
1157 CALL get_var_user_i(7,depla+2,n2)
1158 CALL get_var_user_i(7,depla+3,n3)
1159C
1160 depla=i*lskew+1
1161 IF (iresp==1) THEN
1162 CALL get_array_user_f_sp(8,depla,v,lskew)
1163 ELSE
1164 CALL get_array_user_f(8,depla,v,lskew)
1165 ENDIF
1166 get_u_skew = i
1167 RETURN
1168C
1169 ENDIF
1170C
1171 ENDDO
1172 get_u_skew = 0
1173 RETURN
1174 END
1175
1176!||====================================================================
1177!|| uelt_spmd_additional_node ../starter/source/user_interface/uaccess.F
1178!||--- calls -----------------------------------------------------
1179!|| ifrontplus ../starter/source/spmd/node/frontplus.F
1180!|| usr2sys ../starter/source/system/sysfus.F
1181!||--- uses -----------------------------------------------------
1182!|| restmod ../starter/share/modules1/restart_mod.F
1183!||====================================================================
1184 SUBROUTINE uelt_spmd_additional_node(NODID)
1185C-----------------------------------------------
1186C M o d u l e s
1187C-----------------------------------------------
1188 USE restmod
1189C-----------------------------------------------
1190C I m p l i c i t T y p e s
1191C-----------------------------------------------
1192#include "implicit_f.inc"
1193C-----------------------------------------------
1194C C o m m o n B l o c k s
1195C-----------------------------------------------
1196#include "com01_c.inc"
1197#include "userlib.inc"
1198C-----------------------------------------------
1199C D u m m y A r g u m e n t s
1200C-----------------------------------------------
1201 INTEGER NODID
1202C-----------------------------------------------
1203C L o c a l V a r i a b l e s
1204C-----------------------------------------------
1205 INTEGER INODID,P
1206 CHARACTER MESS*40
1207 INTEGER USR2SYS
1208 EXTERNAL usr2sys
1209 DATA mess/'USER NODES CONVERSION '/
1210C-----------------------------------------------
1211
1212 inodid=usr2sys(nodid,itabm1,mess,nodid)
1213
1214 IF(inodid/=0)THEN
1215 IF(user_grp_domain/=0)THEN
1216 CALL ifrontplus(inodid,user_grp_domain)
1217 ELSE
1218 DO p=1,nspmd
1219 CALL ifrontplus(inodid,p)
1220 ENDDO
1221 ENDIF
1222 ENDIF
1223
1224 RETURN
1225 END
1226
1227!||====================================================================
1228!|| write_iout ../starter/source/user_interface/uaccess.F
1229!||====================================================================
1230 SUBROUTINE write_iout(LINE,LEN1)
1231C-----------------------------------------------
1232C I m p l i c i t T y p e s
1233C-----------------------------------------------
1234#include "implicit_f.inc"
1235C-----------------------------------------------
1236C C o m m o n B l o c k s
1237C-----------------------------------------------
1238#include "units_c.inc"
1239C-----------------------------------------------
1240C D u m m y A r g u m e n t s
1241C-----------------------------------------------
1242 INTEGER LEN1
1243 CHARACTER(len=LEN1) LINE
1244C-----------------------------------------------
1245
1246 WRITE(iout,'(A)') line(1:len1)
1247
1248 END
1249C-----------------------------------------------
my_real
#define my_real
Definition cppsort.cpp:32
depla
subroutine depla(v, d, x, vr, dr, xdp, ddp, numnod)
Definition depla.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:100
hm_read_prop32
subroutine hm_read_prop32(iout, nuvar, pargeo, unitab, ig, igtyp, prop_tag, titr, lsubmodel)
Definition hm_read_prop32.F:42
hm_read_prop33_trans_jnt
subroutine hm_read_prop33_trans_jnt(iout, ityp, skflag, pargeo, is_encrypted, unitab, iunit, id, titr, lsubmodel)
Definition hm_read_prop33_trans_jnt.F:39
hm_read_prop33_univ_jnt
subroutine hm_read_prop33_univ_jnt(iout, ityp, pargeo, is_encrypted, unitab, iunit, id, titr, lsubmodel)
Definition hm_read_prop33_univ_jnt.F:39
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
hm_read_prop46
subroutine hm_read_prop46(iout, nuvar, pargeo, unitab, igtyp, id, prop_tag, titr, lsubmodel, iunit)
Definition hm_read_prop46.F:41
max
#define max(a, b)
Definition macros.h:21
id
initmumps id
Definition multiplerhs_example.m:4
message_mod
Definition message_mod.F:1249
restmod::itabm1
integer, dimension(:), allocatable, target itabm1
Definition restart_mod.F:60
nvar
integer function nvar(text)
Definition nvar.F:32
spinit3
subroutine spinit3(igrtyp, spbuf, kxsp, x, geo, xmas, npc, pld, xin, skew, dtelem, nel, stifn, stifr, igeo, partsav, v, ipartsp, bufmat, pm, itab, msr, inr, ixsp, nod2sp, iparg, ale_connectivity, detonators, sigsph, isptag, ipart, ipm, nsigsph, ptsph, npf, tf, elbuf_str, mcp, temp, iloadp, facload, stifint, i7stifs, glob_therm)
Definition spinit3.F:52
ancmsg
subroutine ancmsg(msgid, msgtype, anmode, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, r1, r2, r3, r4, r5, r6, r7, r8, r9, c1, c2, c3, c4, c5, c6, c7, c8, c9, prmode)
Definition message.F:889
get_u_skew
integer function get_u_skew(idskw, n1, n2, n3, v)
Definition uaccess.F:1128
uelt_spmd_additional_node
subroutine uelt_spmd_additional_node(nodid)
Definition uaccess.F:1185
get_u_m
integer function get_u_m(mid)
Definition uaccess.F:893
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:696
get_u_p
integer function get_u_p(pid)
Definition uaccess.F:926
get_u_pid
integer function get_u_pid(ip)
Definition uaccess.F:626
get_u_pnu
integer function get_u_pnu(ivar, ip, k)
Definition uaccess.F:482
get_u_numfun
integer function get_u_numfun(idfun)
Definition uaccess.F:1076
write_iout
subroutine write_iout(line, len1)
Definition uaccess.F:1231
set_u_sens_ipar
integer function set_u_sens_ipar(ivar, var)
Definition uaccess.F:963
reset_u_geo
integer function reset_u_geo(ivar, ip, a)
Definition uaccess.F:396
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:668
get_u_mnu
integer function get_u_mnu(ivar, im, k)
Definition uaccess.F:565
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:1019
starter
program starter
Definition starter.F:39