OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
uaccess.F File Reference
#include "implicit_f.inc"
#include "com01_c.inc"
#include "my_real.inc"
#include "com08_c.inc"
#include "scr05_c.inc"
#include "com04_c.inc"
#include "warn_c.inc"
#include "userlib.inc"
#include "r4r8_p.inc"
#include "param_c.inc"
#include "mvsiz_p.inc"
#include "usrplas_c.inc"
#include "units_c.inc"
#include "vec_spring_num.inc"
#include "vect01_c.inc"

Go to the source code of this file.

Functions/Subroutines

subroutine uaccess_dum (ierr)
integer function get_u_cycle ()
program __uaccess_f__
integer function get_u_accel (nacc, ax, ay, az)
integer function get_u_numacc (idacc)
integer function get_u_numnod (iu)
integer function get_u_nod_x (nod, x, y, z)
integer function get_u_nod_d (nod, dx, dy, dz)
integer function get_u_nod_v (nod, vx, vy, vz)
integer function get_u_nod_a (nod, ax, ay, az)
integer function get_u_skew (idskw, n1, n2, n3, vect)
program __uaccess_f__1__
subroutine set_spring_elnum (jft, jlt, ixr)
integer function get_spring_elnum (iel)
subroutine mat_solid_get_nod_x (user_x)
subroutine mat_solid_get_nod_v (user_v)

Function/Subroutine Documentation

◆ __uaccess_f__()

program __uaccess_f__

Definition at line 58 of file uaccess.F.

◆ __uaccess_f__1__()

program __uaccess_f__1__

Definition at line 652 of file uaccess.F.

◆ get_spring_elnum()

integer function get_spring_elnum ( integer iel)

Definition at line 735 of file uaccess.F.

737C---------+---------+---+---+--------------------------------------------
738C This routine is called by SIGEPS29, SIGEPS30, SIGEPS31 ...
739C Gives external element number
740C---------+---------+---+---+--------------------------------------------
741C I m p l i c i t T y p e s
742C-----------------------------------------------
743#include "implicit_f.inc"
744C-----------------------------------------------
745C G l o b a l P a r a m e t e r s
746C-----------------------------------------------
747#include "mvsiz_p.inc"
748C-----------------------------------------------
749C C o m m o n B l o c k s
750C-----------------------------------------------
751#include "vec_spring_num.inc"
752C-----------------------------------------------
753C D u m m y A r g u m e n t s
754C-----------------------------------------------
755 INTEGER IEL,NUM
756C-----------------------------------------------
757C S o u r c e L i n e s
758C-----------------------------------------------
759 num = nint(spr_num(iel))
760 get_spring_elnum = num
761 RETURN
get_spring_elnum
integer function get_spring_elnum(iel)
Definition uaccess.F:737

◆ get_u_accel()

integer function get_u_accel ( integer nacc,
ax,
ay,
az )

Definition at line 77 of file uaccess.F.

78C-----------------------------------------------
79C I m p l i c i t T y p e s
80C-----------------------------------------------
81#include "implicit_f.inc"
82C-----------------------------------------------
83C C o m m o n B l o c k s
84C-----------------------------------------------
85#include "scr05_c.inc"
86C-----------------------------------------------
87C D u m m y A r g u m e n t s
88C-----------------------------------------------
89 INTEGER NACC
90 my_real ax,ay,az
91C-----------------------------------------------
92C L o c a l V a r i a b l e s
93C-----------------------------------------------
94 INTEGER I, K, L, IACC,D1,D2,D3
95C-----------------------------------------------
96 IF (nacc<=0) THEN
97 ax = zero
98 ay = zero
99 az = zero
100 get_u_accel = -1
101 ELSE
102 l = (nacc-1)*25
103 d1 = l+20
104 d2 = l+21
105 d3 = l+22
106 IF (iresp == 1) THEN
107 CALL get_var_user_f_sp(12,d1,ax)
108 CALL get_var_user_f_sp(12,d2,ay)
109 CALL get_var_user_f_sp(12,d3,az)
110 ELSE
111 CALL get_var_user_f(12,d1,ax)
112 CALL get_var_user_f(12,d2,ay)
113 CALL get_var_user_f(12,d3,az)
114 ENDIF
115 get_u_accel = 0
116 ENDIF
117C
118 RETURN
my_real
#define my_real
Definition cppsort.cpp:32
get_var_user_f
void get_var_user_f(int *buf, int *decalage, double *resultat)
Definition eng_callback_c.c:88
get_var_user_f_sp
void get_var_user_f_sp(int *buf, int *decalage, float *resultat)
Definition eng_callback_c.c:108
get_u_accel
integer function get_u_accel(nacc, ax, ay, az)
Definition uaccess.F:78

◆ get_u_cycle()

integer function get_u_cycle

Definition at line 39 of file uaccess.F.

40C-----------------------------------------------
41C I m p l i c i t T y p e s
42C-----------------------------------------------
43#include "implicit_f.inc"
44C-----------------------------------------------
45C C o m m o n B l o c k s
46C-----------------------------------------------
47#include "com01_c.inc"
48C-----------------------------------------------
49 get_u_cycle = ncycle
50 RETURN
get_u_cycle
integer function get_u_cycle()
Definition uaccess.F:40

◆ get_u_nod_a()

integer function get_u_nod_a ( integer nod,
ax,
ay,
az )

Definition at line 510 of file uaccess.F.

511C En SPMD, tous les procs doivent appeler cette fonction
512C sinon blocage
513C-----------------------------------------------
514C I m p l i c i t T y p e s
515C-----------------------------------------------
516#include "implicit_f.inc"
517C-----------------------------------------------
518C C o m m o n B l o c k s
519C-----------------------------------------------
520#include "com01_c.inc"
521#include "scr05_c.inc"
522#include "userlib.inc"
523C-----------------------------------------------
524C D u m m y A r g u m e n t s
525C-----------------------------------------------
526 INTEGER NOD
527 my_real ax,ay,az
528C-----------------------------------------------
529C L o c a l V a r i a b l e s
530C-----------------------------------------------
531 INTEGER L,D1,D2,D3, P
532 my_real bufs(6)
533C-----------------------------------------------
534C S o u r c e L i n e s
535C-----------------------------------------------
536 IF (nod>0) THEN
537 IF(nspmd>1) THEN
538C get_proc_user_f retourne 1 si weight(nod) = 1, , 0 sinon
539C weight : pointeur 18 (cf resol.F)
540 CALL get_var_user_i(18,nod,p)
541 ELSE
542 p = 1
543 ENDIF
544 IF(p==1) THEN
545 l=(nod-1)*3
546 d1=l+1
547 d2=l+2
548 d3=l+3
549 IF (iresp == 1) THEN
550 CALL get_var_user_f_sp(17,d1,ax)
551 CALL get_var_user_f_sp(17,d2,ay)
552 CALL get_var_user_f_sp(17,d3,az)
553 ELSE
554 CALL get_var_user_f(17,d1,ax)
555 CALL get_var_user_f(17,d2,ay)
556 CALL get_var_user_f(17,d3,az)
557 ENDIF
558 ENDIF
559C
560C SPMD communication du resultat a ts les procs
561C
562 IF(nspmd>1.AND.getunod_nocom==0) THEN
563 IF(p==1) THEN
564 bufs(1) = ax
565 bufs(2) = ay
566 bufs(3) = az
567 ELSE
568 bufs(1) = zero
569 bufs(2) = zero
570 bufs(3) = zero
571 ENDIF
572 CALL spmd_glob_dsum(bufs,3,bufs(4))
573 CALL spmd_rbcast(bufs,bufs,3,1,0,2)
574 ax = bufs(1)
575 ay = bufs(2)
576 az = bufs(3)
577 ENDIF
578C
579C Fin SPMD
580C
581 get_u_nod_a= 0
582 RETURN
583 ENDIF
584 get_u_nod_a= -1
585 ax = zero
586 ay = zero
587 az = zero
588C
589 RETURN
get_var_user_i
void get_var_user_i(int *buf, int *decalage, int *resultat)
Definition eng_callback_c.c:163
get_u_nod_a
integer function get_u_nod_a(nod, ax, ay, az)
Definition uaccess.F:511
spmd_rbcast
subroutine spmd_rbcast(tabi, tabr, n1, n2, from, add)
Definition spmd_rbcast.F:62
spmd_glob_dsum
subroutine spmd_glob_dsum(v, len, vtmp)
Definition spmd_th.F:87

◆ get_u_nod_d()

integer function get_u_nod_d ( integer, intent(in) nod,
intent(inout) dx,
intent(inout) dy,
intent(inout) dz )

Definition at line 328 of file uaccess.F.

329C En SPMD, tous les procs doivent appeler cette fonction
330C sinon blocage
331C-----------------------------------------------
332C I m p l i c i t T y p e s
333C-----------------------------------------------
334#include "implicit_f.inc"
335C-----------------------------------------------
336C C o m m o n B l o c k s
337C-----------------------------------------------
338#include "com01_c.inc"
339#include "scr05_c.inc"
340#include "userlib.inc"
341C-----------------------------------------------
342C D u m m y A r g u m e n t s
343C-----------------------------------------------
344 INTEGER,INTENT(IN) :: NOD
345 my_real,INTENT(INOUT) :: dx,dy,dz
346C-----------------------------------------------
347C L o c a l V a r i a b l e s
348C-----------------------------------------------
349 INTEGER L,D1,D2,D3, P
350 my_real bufs(6)
351C-----------------------------------------------
352C S o u r c e L i n e s
353C-----------------------------------------------
354 IF (nod>0) THEN
355 IF(nspmd>1) THEN
356C get_proc_user_f retourne 1 si weight(nod) = 1, , 0 sinon
357C weight : pointeur 18 (cf resol.F)
358 CALL get_var_user_i(18,nod,p)
359 ELSE
360 p = 1
361 ENDIF
362 IF(p==1) THEN
363 l=(nod-1)*3
364 d1=l+1
365 d2=l+2
366 d3=l+3
367 IF (iresp == 1) THEN
368 CALL get_var_user_f_sp(15,d1,dx)
369 CALL get_var_user_f_sp(15,d2,dy)
370 CALL get_var_user_f_sp(15,d3,dz)
371 ELSE
372 CALL get_var_user_f(15,d1,dx)
373 CALL get_var_user_f(15,d2,dy)
374 CALL get_var_user_f(15,d3,dz)
375 ENDIF
376 ENDIF
377C
378C SPMD communication du resultat a ts les procs
379C
380 IF(nspmd>1.AND.getunod_nocom==0) THEN
381 IF(p==1) THEN
382 bufs(1) = dx
383 bufs(2) = dy
384 bufs(3) = dz
385 ELSE
386 bufs(1) = zero
387 bufs(2) = zero
388 bufs(3) = zero
389 ENDIF
390 CALL spmd_glob_dsum(bufs,3,bufs(4))
391 CALL spmd_rbcast(bufs,bufs,3,1,0,2)
392 dx = bufs(1)
393 dy = bufs(2)
394 dz = bufs(3)
395 ENDIF
396C
397C Fin SPMD
398C
399 get_u_nod_d= 0
400 RETURN
401 ENDIF
402 get_u_nod_d= -1
403 dx = zero
404 dy = zero
405 dz = zero
406C
407 RETURN
get_u_nod_d
integer function get_u_nod_d(nod, dx, dy, dz)
Definition uaccess.F:329

◆ get_u_nod_v()

integer function get_u_nod_v ( integer nod,
vx,
vy,
vz )

Definition at line 418 of file uaccess.F.

419C En SPMD, tous les procs doivent appeler cette fonction
420C sinon blocage
421C-----------------------------------------------
422C I m p l i c i t T y p e s
423C-----------------------------------------------
424#include "implicit_f.inc"
425C-----------------------------------------------
426C C o m m o n B l o c k s
427C-----------------------------------------------
428#include "com01_c.inc"
429#include "scr05_c.inc"
430#include "userlib.inc"
431C-----------------------------------------------
432C D u m m y A r g u m e n t s
433C-----------------------------------------------
434 INTEGER NOD
435 my_real
436 . vx,vy,vz
437C-----------------------------------------------
438C L o c a l V a r i a b l e s
439C-----------------------------------------------
440 INTEGER L,D1,D2,D3, P
441 my_real
442 . bufs(6)
443C-----------------------------------------------
444C S o u r c e L i n e s
445C-----------------------------------------------
446 IF (nod>0) THEN
447 IF(nspmd>1) THEN
448C get_proc_user_f retourne 1 si weight(nod) = 1, , 0 sinon
449C weight : pointeur 18 (cf resol.F)
450 CALL get_var_user_i(18,nod,p)
451 ELSE
452 p = 1
453 ENDIF
454 IF(p==1) THEN
455 l=(nod-1)*3
456 d1=l+1
457 d2=l+2
458 d3=l+3
459 IF (iresp == 1) THEN
460 CALL get_var_user_f_sp(16,d1,vx)
461 CALL get_var_user_f_sp(16,d2,vy)
462 CALL get_var_user_f_sp(16,d3,vz)
463 ELSE
464 CALL get_var_user_f(16,d1,vx)
465 CALL get_var_user_f(16,d2,vy)
466 CALL get_var_user_f(16,d3,vz)
467 ENDIF
468C
469C SPMD communication du resultat a ts les procs
470C
471 ENDIF
472 IF(nspmd>1.AND.getunod_nocom==0) THEN
473 IF(p==1) THEN
474 bufs(1) = vx
475 bufs(2) = vy
476 bufs(3) = vz
477 ELSE
478 bufs(1) = zero
479 bufs(2) = zero
480 bufs(3) = zero
481 ENDIF
482 CALL spmd_glob_dsum(bufs,3,bufs(4))
483 CALL spmd_rbcast(bufs,bufs,3,1,0,2)
484 vx = bufs(1)
485 vy = bufs(2)
486 vz = bufs(3)
487 ENDIF
488C
489C Fin SPMD
490C
491 get_u_nod_v= 0
492 RETURN
493 ENDIF
494 get_u_nod_v= -1
495 vx = zero
496 vy = zero
497 vz = zero
498C
499 RETURN
get_u_nod_v
integer function get_u_nod_v(nod, vx, vy, vz)
Definition uaccess.F:419

◆ get_u_nod_x()

integer function get_u_nod_x ( integer, intent(in) nod,
intent(inout) x,
intent(inout) y,
intent(inout) z )

Definition at line 238 of file uaccess.F.

239C En SPMD, tous les procs doivent appeler cette fonction
240C sinon blocage
241C-----------------------------------------------
242C I m p l i c i t T y p e s
243C-----------------------------------------------
244#include "implicit_f.inc"
245C-----------------------------------------------
246C C o m m o n B l o c k s
247C-----------------------------------------------
248#include "com01_c.inc"
249#include "scr05_c.inc"
250#include "userlib.inc"
251C-----------------------------------------------
252C D u m m y A r g u m e n t s
253C-----------------------------------------------
254 INTEGER,INTENT(IN) :: NOD
255 my_real,INTENT(INOUT) :: x,y,z
256C-----------------------------------------------
257C L o c a l V a r i a b l e s
258C-----------------------------------------------
259 INTEGER L,D1,D2,D3, P
260 my_real bufs(6)
261C-----------------------------------------------
262C S o u r c e L i n e s
263C-----------------------------------------------
264 IF (nod>0) THEN
265 IF(nspmd>1) THEN
266C get_proc_user_f retourne 1 si weight(nod) = 1, , 0 sinon
267C weight : pointeur 18 (cf resol.F)
268 CALL get_var_user_i(18,nod,p)
269 ELSE
270 p = 1
271 ENDIF
272 IF(p==1) THEN
273 l=(nod-1)*3
274 d1=l+1
275 d2=l+2
276 d3=l+3
277 IF (iresp == 1) THEN
278 CALL get_var_user_f_sp(14,d1,x)
279 CALL get_var_user_f_sp(14,d2,y)
280 CALL get_var_user_f_sp(14,d3,z)
281 ELSE
282 CALL get_var_user_f(14,d1,x)
283 CALL get_var_user_f(14,d2,y)
284 CALL get_var_user_f(14,d3,z)
285 ENDIF
286 ENDIF
287C
288C SPMD communication du resultat a ts les procs
289C
290 IF(nspmd>1.AND.getunod_nocom==0) THEN
291 IF(p==1) THEN
292 bufs(1) = x
293 bufs(2) = y
294 bufs(3) = z
295 ELSE
296 bufs(1) = zero
297 bufs(2) = zero
298 bufs(3) = zero
299 ENDIF
300 CALL spmd_glob_dsum(bufs,3,bufs(4))
301 CALL spmd_rbcast(bufs,bufs,3,1,0,2)
302 x = bufs(1)
303 y = bufs(2)
304 z = bufs(3)
305 ENDIF
306C
307C Fin SPMD
308C
309 get_u_nod_x = 0
310 RETURN
311 ENDIF
312 get_u_nod_x = -1
313 x = zero
314 y = zero
315 z = zero
316C
317 RETURN
get_u_nod_x
integer function get_u_nod_x(nod, x, y, z)
Definition uaccess.F:239

◆ get_u_numacc()

integer function get_u_numacc ( integer, intent(in) idacc)

Definition at line 125 of file uaccess.F.

126C-----------------------------------------------
127C I m p l i c i t T y p e s
128C-----------------------------------------------
129#include "implicit_f.inc"
130C-----------------------------------------------
131C C o m m o n B l o c k s
132C-----------------------------------------------
133#include "com04_c.inc"
134C-----------------------------------------------
135C D u m m y A r g u m e n t s
136C-----------------------------------------------
137 INTEGER, INTENT(IN) :: IDACC
138C-----------------------------------------------
139C L o c a l V a r i a b l e s
140C-----------------------------------------------
141 INTEGER DEPLA,J,ID
142C-----------------------------------------------
143C S o u r c e L i n e s
144C-----------------------------------------------
145 get_u_numacc = 0
146 IF(idacc<=0)THEN
147 RETURN
148 ENDIF
149C---
150 DO j=1,naccelm
151 depla = (j-1)*3+1
152 CALL get_var_user_i(5,depla,id)
153 IF(idacc==id)THEN
154 get_u_numacc = j
155 RETURN
156 ENDIF
157 ENDDO
158C---
159 RETURN
depla
subroutine depla(v, d, x, vr, dr, xdp, ddp, numnod)
Definition depla.F:29
get_u_numacc
integer function get_u_numacc(idacc)
Definition uaccess.F:126
id
initmumps id
Definition multiplerhs_example.m:4

◆ get_u_numnod()

integer function get_u_numnod ( integer, intent(in) iu)

Definition at line 169 of file uaccess.F.

170C-----------------------------------------------
171C M o d u l e s
172C-----------------------------------------------
173 USE message_mod
174C-----------------------------------------------
175C I m p l i c i t T y p e s
176C-----------------------------------------------
177#include "implicit_f.inc"
178C-----------------------------------------------
179C C o m m o n B l o c k s
180C-----------------------------------------------
181#include "com01_c.inc"
182#include "com04_c.inc"
183#include "warn_c.inc"
184C-----------------------------------------------
185C D u m m y A r g u m e n t s
186C-----------------------------------------------
187 INTEGER,INTENT(IN) :: IU
188C-----------------------------------------------
189C L o c a l V a r i a b l e s
190C-----------------------------------------------
191 INTEGER J, JINF, JSUP, ITAB1, ITAB2
192 CHARACTER MESS*40
193 DATA mess/'USER SENSOR '/
194C-----------------------------------------------
195C S o u r c e L i n e s
196C-----------------------------------------------
197 jinf=1
198 jsup=numnod
199 j=(jsup+jinf)/2
200 10 CALL get_var_user_i(13,j,itab1)
201 IF(jsup<=jinf.AND.(iu-itab1)/=0) THEN
202 IF(nspmd==1) THEN
203 CALL ancmsg(msgid=186,anmode=aninfo_blind,
204 . i1=iu,c1=mess)
205 ierr=ierr+1
206 END IF
207C en SPMD la valeur 0 n indique pas une erreur mais l absence du noeud sur le proc
208 get_u_numnod=0
209 RETURN
210 ENDIF
211 IF((iu-itab1)==0)THEN
212C >CAS IU=TABM FIN DE LA RECHERCHE
213 CALL get_var_user_i(13,j+numnod,itab2)
214 get_u_numnod=itab2
215 RETURN
216 ELSE IF (iu-itab1<0) THEN
217C >CAS IU<TABM
218 jsup=j-1
219 ELSE
220C >CAS IU>TABM
221 jinf=j+1
222 ENDIF
223 j=(jsup+jinf)/2
224 GO TO 10
225C---
226 RETURN
get_u_numnod
integer function get_u_numnod(iu)
Definition uaccess.F:170
message_mod
Definition message_mod.F:1249
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 ( integer, intent(in) idskw,
integer, intent(in) n1,
integer, intent(in) n2,
integer, intent(in) n3,
dimension(lskew), intent(in) vect )

Definition at line 601 of file uaccess.F.

602C-----------------------------------------------
603C I m p l i c i t T y p e s
604C-----------------------------------------------
605#include "implicit_f.inc"
606C-----------------------------------------------
607C C o m m o n B l o c k s
608C-----------------------------------------------
609#include "com04_c.inc"
610#include "scr05_c.inc"
611#include "r4r8_p.inc"
612#include "param_c.inc"
613C-----------------------------------------------
614C D u m m y A r g u m e n t s
615C-----------------------------------------------
616 my_real,INTENT(IN) :: vect(lskew)
617 INTEGER,INTENT(IN) :: IDSKW,N1,N2,N3
618C-----------------------------------------------
619C L o c a l V a r i a b l e s
620C-----------------------------------------------
621 INTEGER I,ID,DEPLA
622C-----------------------------------------------
623C S o u r c e L i n e s
624C-----------------------------------------------
625C
626 get_u_skew = 0
627C
628 DO i=1,numskw
629 depla = 4+i*liskn
630 CALL get_var_user_i(9,depla,id)
631C
632 IF(id==idskw) THEN
633 get_u_skew = i
634C
635 CALL get_var_user_i(9,i+1 ,n1)
636 CALL get_var_user_i(9,i+2*2,n2)
637 CALL get_var_user_i(9,i+3*3,n3)
638C
639 depla = i*lskew+1
640 IF (iresp==1) THEN
641 CALL get_array_user_f_sp (10,depla,vect,lskew)
642 ELSE
643 CALL get_array_user_f (10,depla,vect,lskew)
644 ENDIF
645 RETURN
646C
647 ENDIF
648C
649 ENDDO
650 RETURN
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_u_skew
integer function get_u_skew(idskw, n1, n2, n3, vect)
Definition uaccess.F:602

◆ mat_solid_get_nod_v()

subroutine mat_solid_get_nod_v ( user_v)

Definition at line 894 of file uaccess.F.

895C---------+---------+---+---+--------------------------------------------
896 USE restmod
897 USE user_interface_mod
898C-----------------------------------------------
899C I m p l i c i t T y p e s
900C-----------------------------------------------
901#include "implicit_f.inc"
902C-----------------------------------------------
903C C o m m o n B l o c k s
904C-----------------------------------------------
905#include "vect01_c.inc"
906C-----------------------------------------------
907C D u m m y A r g u m e n t s
908C-----------------------------------------------
909 my_real user_v(llt,8,3)
910C-----------------------------------------------
911C L o c a l V a r i a b l e s
912C-----------------------------------------------
913 INTEGER ND1,ND2,ND3,ND4,ND5,ND6,ND7,ND8,ELEM,I
914C-----------------------------------------------
915C S o u r c e L i n e s
916C-----------------------------------------------
917 DO i=1,llt
918 elem=nft+i
919 nd1=ixs(nixs*(elem-1)+2)
920 nd2=ixs(nixs*(elem-1)+3)
921 nd3=ixs(nixs*(elem-1)+4)
922 nd4=ixs(nixs*(elem-1)+5)
923 nd5=ixs(nixs*(elem-1)+6)
924 nd6=ixs(nixs*(elem-1)+7)
925 nd7=ixs(nixs*(elem-1)+8)
926 nd8=ixs(nixs*(elem-1)+9)
927C
928 IF(nd1 > 0)THEN
929 user_v(i,1,1)=user_interface_nodes%V(1,nd1)
930 user_v(i,1,2)=user_interface_nodes%V(2,nd1)
931 user_v(i,1,3)=user_interface_nodes%V(3,nd1)
932 ELSE
933 user_v(i,1,1)=zero
934 user_v(i,1,2)=zero
935 user_v(i,1,3)=zero
936 ENDIF
937C
938 IF(nd2 > 0)THEN
939 user_v(i,2,1)=user_interface_nodes%V(1,nd2)
940 user_v(i,2,2)=user_interface_nodes%V(2,nd2)
941 user_v(i,2,3)=user_interface_nodes%V(3,nd2)
942 ELSE
943 user_v(i,2,1)=zero
944 user_v(i,2,2)=zero
945 user_v(i,2,3)=zero
946 ENDIF
947C
948 IF(nd3 > 0)THEN
949 user_v(i,3,1)=user_interface_nodes%V(1,nd3)
950 user_v(i,3,2)=user_interface_nodes%V(2,nd3)
951 user_v(i,3,3)=user_interface_nodes%V(3,nd3)
952 ELSE
953 user_v(i,3,1)=zero
954 user_v(i,3,2)=zero
955 user_v(i,3,3)=zero
956 ENDIF
957C
958 IF(nd4 > 0)THEN
959 user_v(i,4,1)=user_interface_nodes%V(1,nd4)
960 user_v(i,4,2)=user_interface_nodes%V(2,nd4)
961 user_v(i,4,3)=user_interface_nodes%V(3,nd4)
962 ELSE
963 user_v(i,4,1)=zero
964 user_v(i,4,2)=zero
965 user_v(i,4,3)=zero
966 ENDIF
967C
968 IF(nd5 > 0)THEN
969 user_v(i,5,1)=user_interface_nodes%V(1,nd5)
970 user_v(i,5,2)=user_interface_nodes%V(2,nd5)
971 user_v(i,5,3)=user_interface_nodes%V(3,nd5)
972 ELSE
973 user_v(i,5,1)=zero
974 user_v(i,5,2)=zero
975 user_v(i,5,3)=zero
976 ENDIF
977C
978 IF(nd6 > 0)THEN
979 user_v(i,6,1)=user_interface_nodes%V(1,nd6)
980 user_v(i,6,2)=user_interface_nodes%V(2,nd6)
981 user_v(i,6,3)=user_interface_nodes%V(3,nd6)
982 ELSE
983 user_v(i,6,1)=zero
984 user_v(i,6,2)=zero
985 user_v(i,6,3)=zero
986 ENDIF
987C
988 IF(nd7 > 0)THEN
989 user_v(i,7,1)=user_interface_nodes%V(1,nd7)
990 user_v(i,7,2)=user_interface_nodes%V(2,nd7)
991 user_v(i,7,3)=user_interface_nodes%V(3,nd7)
992 ELSE
993 user_v(i,7,1)=zero
994 user_v(i,7,2)=zero
995 user_v(i,7,3)=zero
996 ENDIF
997C
998 IF(nd8 > 0)THEN
999 user_v(i,8,1)=user_interface_nodes%V(1,nd8)
1000 user_v(i,8,2)=user_interface_nodes%V(2,nd8)
1001 user_v(i,8,3)=user_interface_nodes%V(3,nd8)
1002 ELSE
1003 user_v(i,8,1)=zero
1004 user_v(i,8,2)=zero
1005 user_v(i,8,3)=zero
1006 ENDIF
1007
1008 ENDDO
1009
restmod::ixs
integer, dimension(:), allocatable, target ixs
Definition restart_mod.F:60

◆ mat_solid_get_nod_x()

subroutine mat_solid_get_nod_x ( user_x)

Definition at line 769 of file uaccess.F.

770C---------+---------+---+---+--------------------------------------------
771 USE restmod
772 USE user_interface_mod
773C-----------------------------------------------
774C I m p l i c i t T y p e s
775C-----------------------------------------------
776#include "implicit_f.inc"
777C-----------------------------------------------
778C C o m m o n B l o c k s
779C-----------------------------------------------
780#include "vect01_c.inc"
781C-----------------------------------------------
782C D u m m y A r g u m e n t s
783C-----------------------------------------------
784 my_real user_x(llt,8,3)
785C-----------------------------------------------
786C L o c a l V a r i a b l e s
787C-----------------------------------------------
788 INTEGER ND1,ND2,ND3,ND4,ND5,ND6,ND7,ND8,ELEM,I
789C-----------------------------------------------
790C S o u r c e L i n e s
791C-----------------------------------------------
792 DO i=1,llt
793 elem=nft+i
794 nd1=ixs(nixs*(elem-1)+2)
795 nd2=ixs(nixs*(elem-1)+3)
796 nd3=ixs(nixs*(elem-1)+4)
797 nd4=ixs(nixs*(elem-1)+5)
798 nd5=ixs(nixs*(elem-1)+6)
799 nd6=ixs(nixs*(elem-1)+7)
800 nd7=ixs(nixs*(elem-1)+8)
801 nd8=ixs(nixs*(elem-1)+9)
802C
803 IF(nd1 > 0)THEN
804 user_x(i,1,1)=user_interface_nodes%X(1,nd1)
805 user_x(i,1,2)=user_interface_nodes%X(2,nd1)
806 user_x(i,1,3)=user_interface_nodes%X(3,nd1)
807 ELSE
808 user_x(i,1,1)=zero
809 user_x(i,1,2)=zero
810 user_x(i,1,3)=zero
811 ENDIF
812C
813 IF(nd2 > 0)THEN
814 user_x(i,2,1)=user_interface_nodes%X(1,nd2)
815 user_x(i,2,2)=user_interface_nodes%X(2,nd2)
816 user_x(i,2,3)=user_interface_nodes%X(3,nd2)
817 ELSE
818 user_x(i,2,1)=zero
819 user_x(i,2,2)=zero
820 user_x(i,2,3)=zero
821 ENDIF
822C
823 IF(nd3 > 0)THEN
824 user_x(i,3,1)=user_interface_nodes%X(1,nd3)
825 user_x(i,3,2)=user_interface_nodes%X(2,nd3)
826 user_x(i,3,3)=user_interface_nodes%X(3,nd3)
827 ELSE
828 user_x(i,3,1)=zero
829 user_x(i,3,2)=zero
830 user_x(i,3,3)=zero
831 ENDIF
832C
833 IF(nd4 > 0)THEN
834 user_x(i,4,1)=user_interface_nodes%X(1,nd4)
835 user_x(i,4,2)=user_interface_nodes%X(2,nd4)
836 user_x(i,4,3)=user_interface_nodes%X(3,nd4)
837 ELSE
838 user_x(i,4,1)=zero
839 user_x(i,4,2)=zero
840 user_x(i,4,3)=zero
841 ENDIF
842C
843 IF(nd5 > 0)THEN
844 user_x(i,5,1)=user_interface_nodes%X(1,nd5)
845 user_x(i,5,2)=user_interface_nodes%X(2,nd5)
846 user_x(i,5,3)=user_interface_nodes%X(3,nd5)
847 ELSE
848 user_x(i,5,1)=zero
849 user_x(i,5,2)=zero
850 user_x(i,5,3)=zero
851 ENDIF
852C
853 IF(nd6 > 0)THEN
854 user_x(i,6,1)=user_interface_nodes%X(1,nd6)
855 user_x(i,6,2)=user_interface_nodes%X(2,nd6)
856 user_x(i,6,3)=user_interface_nodes%X(3,nd6)
857 ELSE
858 user_x(i,6,1)=zero
859 user_x(i,6,2)=zero
860 user_x(i,6,3)=zero
861 ENDIF
862C
863 IF(nd7 > 0)THEN
864 user_x(i,7,1)=user_interface_nodes%X(1,nd7)
865 user_x(i,7,2)=user_interface_nodes%X(2,nd7)
866 user_x(i,7,3)=user_interface_nodes%X(3,nd7)
867 ELSE
868 user_x(i,7,1)=zero
869 user_x(i,7,2)=zero
870 user_x(i,7,3)=zero
871 ENDIF
872C
873 IF(nd8 > 0)THEN
874 user_x(i,8,1)=user_interface_nodes%X(1,nd8)
875 user_x(i,8,2)=user_interface_nodes%X(2,nd8)
876 user_x(i,8,3)=user_interface_nodes%X(3,nd8)
877 ELSE
878 user_x(i,8,1)=zero
879 user_x(i,8,2)=zero
880 user_x(i,8,3)=zero
881 ENDIF
882
883 ENDDO
884C
885

◆ set_spring_elnum()

subroutine set_spring_elnum ( integer jft,
integer jlt,
integer, dimension(nixr,*) ixr )

Definition at line 703 of file uaccess.F.

704C---------+---------+---+---+--------------------------------------------
705C Saves external spring number for local element group
706C---------+---------+---+---+--------------------------------------------
707C I m p l i c i t T y p e s
708C-----------------------------------------------
709#include "implicit_f.inc"
710C-----------------------------------------------
711C G l o b a l P a r a m e t e r s
712C-----------------------------------------------
713#include "mvsiz_p.inc"
714C-----------------------------------------------
715C C o m m o n B l o c k s
716C-----------------------------------------------
717#include "vec_spring_num.inc"
718C-----------------------------------------------
719C D u m m y A r g u m e n t s
720C-----------------------------------------------
721 INTEGER JFT,JLT
722 INTEGER IXR(NIXR,*)
723C-----------------------------------------------
724C L o c a l V a r i a b l e s
725C-----------------------------------------------
726 INTEGER I,ID
727C-----------------------------------------------
728C S o u r c e L i n e s
729C-----------------------------------------------
730 DO i=jft,jlt
731 spr_num(i) = ixr(nixr,i)
732 ENDDO
733 RETURN

◆ uaccess_dum()

subroutine uaccess_dum ( integer ierr)

Definition at line 28 of file uaccess.F.

29C-----------------------------------------------
30C I m p l i c i t T y p e s
31C-----------------------------------------------
32#include "implicit_f.inc"
33 INTEGER IERR
34 ierr=0