OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
uaccess.F File Reference
#include "implicit_f.inc"
#include "scr19_c.inc"
#include "param_c.inc"
#include "scr05_c.inc"
#include "com04_c.inc"
#include "scr03_c.inc"
#include "com01_c.inc"
#include "userlib.inc"
#include "units_c.inc"

Go to the source code of this file.

Functions/Subroutines

subroutine st_uaccess_dum (ierr)
integer function set_u_geo (ivar, a)
integer function set_u_pnu (ivar, ip, k)
program __uaccess_f__
program __uaccess_f__1__
integer function reset_u_geo (ivar, ip, a)
integer function get_u_pnu (ivar, ip, k)
integer function get_u_mnu (ivar, im, k)
integer function get_u_pid (ip)
integer function get_u_mid (im)
integer function get_u_func_n (ifunc)
program __uaccess_f__2__
program __uaccess_f__3__
program __uaccess_f__4__
integer function get_u_m (mid)
integer function get_u_p (pid)
integer function set_u_sens_ipar (ivar, var)
integer function set_u_sens_fpar (ivar, var)
integer function get_u_numfun (idfun)
integer function get_u_skew (idskw, n1, n2, n3, v)
subroutine uelt_spmd_additional_node (nodid)
subroutine write_iout (line, len1)

Function/Subroutine Documentation

◆ __uaccess_f__()

program __uaccess_f__

Definition at line 233 of file uaccess.F.

◆ __uaccess_f__1__()

program __uaccess_f__1__

Definition at line 322 of file uaccess.F.

◆ __uaccess_f__2__()

program __uaccess_f__2__

Definition at line 721 of file uaccess.F.

◆ __uaccess_f__3__()

program __uaccess_f__3__

Definition at line 780 of file uaccess.F.

◆ __uaccess_f__4__()

program __uaccess_f__4__

Definition at line 843 of file uaccess.F.

◆ get_u_func_n()

integer function get_u_func_n ( integer ifunc)

Definition at line 694 of file uaccess.F.

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
get_var_user_i
void get_var_user_i(int *buf, int *decalage, int *resultat)
Definition eng_callback_c.c:163
get_u_func_n
integer function get_u_func_n(ifunc)
Definition uaccess.F:695

◆ get_u_m()

integer function get_u_m ( integer mid)

Definition at line 891 of file uaccess.F.

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
get_u_m
integer function get_u_m(mid)
Definition uaccess.F:892
get_u_mid
integer function get_u_mid(im)
Definition uaccess.F:667

◆ get_u_mid()

integer function get_u_mid ( integer im)

Definition at line 666 of file uaccess.F.

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
depla
subroutine depla(v, d, x, vr, dr, xdp, ddp, numnod)
Definition displacement.F:29

◆ get_u_mnu()

integer function get_u_mnu ( integer ivar,
integer im,
integer k )

Definition at line 563 of file uaccess.F.

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
message_mod
Definition message_mod.F:1257
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_mnu
integer function get_u_mnu(ivar, im, k)
Definition uaccess.F:564

◆ get_u_numfun()

integer function get_u_numfun ( integer idfun)

Definition at line 1074 of file uaccess.F.

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
id
initmumps id
Definition multiplerhs_example.m:4
get_u_numfun
integer function get_u_numfun(idfun)
Definition uaccess.F:1075

◆ get_u_p()

integer function get_u_p ( integer pid)

Definition at line 924 of file uaccess.F.

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
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_pid()

integer function get_u_pid ( integer ip)

Definition at line 624 of file uaccess.F.

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

◆ get_u_pnu()

integer function get_u_pnu ( integer ivar,
integer ip,
integer k )

Definition at line 480 of file uaccess.F.

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
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
nvar
integer function nvar(text)
Definition nvar.F:32
get_u_pnu
integer function get_u_pnu(ivar, ip, k)
Definition uaccess.F:481

◆ get_u_skew()

integer function get_u_skew ( integer idskw,
integer n1,
integer n2,
integer n3,
v )

Definition at line 1126 of file uaccess.F.

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
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, v)
Definition uaccess.F:1127

◆ reset_u_geo()

integer function reset_u_geo ( integer ivar,
integer ip,
a )

Definition at line 394 of file uaccess.F.

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
set_var_user_f
void set_var_user_f(int *buf, int *decalage, double *variable)
Definition eng_callback_c.c:127
reset_u_geo
integer function reset_u_geo(ivar, ip, a)
Definition uaccess.F:395

◆ set_u_geo()

integer function set_u_geo ( integer ivar,
a )

Definition at line 63 of file uaccess.F.

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
max
#define max(a, b)
Definition macros.h:21
set_u_geo
integer function set_u_geo(ivar, a)
Definition uaccess.F:64

◆ set_u_pnu()

integer function set_u_pnu ( integer ivar,
integer ip,
integer k )

Definition at line 126 of file uaccess.F.

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
set_u_pnu
integer function set_u_pnu(ivar, ip, k)
Definition uaccess.F:127

◆ set_u_sens_fpar()

integer function set_u_sens_fpar ( integer ivar,
var )

Definition at line 1017 of file uaccess.F.

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
set_u_sens_fpar
integer function set_u_sens_fpar(ivar, var)
Definition uaccess.F:1018

◆ set_u_sens_ipar()

integer function set_u_sens_ipar ( integer ivar,
integer var )

Definition at line 961 of file uaccess.F.

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
set_u_sens_ipar
integer function set_u_sens_ipar(ivar, var)
Definition uaccess.F:962

◆ st_uaccess_dum()

subroutine st_uaccess_dum ( integer ierr)

Definition at line 30 of file uaccess.F.

31#include "implicit_f.inc"
32 INTEGER IERR
33 ierr=0

◆ uelt_spmd_additional_node()

subroutine uelt_spmd_additional_node ( integer nodid)

Definition at line 1183 of file uaccess.F.

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
ifrontplus
subroutine ifrontplus(n, p)
Definition frontplus.F:101
restmod::itabm1
integer, dimension(:), allocatable, target itabm1
Definition restart_mod.F:60
usr2sys
integer function usr2sys(iu, itabm1, mess, id)
Definition sysfus.F:146

◆ write_iout()

subroutine write_iout ( character(len=len1) line,
integer len1 )

Definition at line 1229 of file uaccess.F.

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