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 722 of file uaccess.F.

◆ __uaccess_f__3__()

program __uaccess_f__3__

Definition at line 781 of file uaccess.F.

◆ __uaccess_f__4__()

program __uaccess_f__4__

Definition at line 844 of file uaccess.F.

◆ get_u_func_n()

integer function get_u_func_n ( integer ifunc)

Definition at line 695 of file uaccess.F.

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
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:696

◆ get_u_m()

integer function get_u_m ( integer mid)

Definition at line 892 of file uaccess.F.

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

◆ get_u_mid()

integer function get_u_mid ( integer im)

Definition at line 667 of file uaccess.F.

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

◆ get_u_mnu()

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

Definition at line 564 of file uaccess.F.

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

◆ get_u_numfun()

integer function get_u_numfun ( integer idfun)

Definition at line 1075 of file uaccess.F.

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

◆ get_u_p()

integer function get_u_p ( integer pid)

Definition at line 925 of file uaccess.F.

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

integer function get_u_pid ( integer ip)

Definition at line 625 of file uaccess.F.

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

◆ get_u_pnu()

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

Definition at line 481 of file uaccess.F.

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
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:482

◆ get_u_skew()

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

Definition at line 1127 of file uaccess.F.

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
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:1128

◆ reset_u_geo()

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

Definition at line 395 of file uaccess.F.

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
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:396

◆ 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 1018 of file uaccess.F.

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

◆ set_u_sens_ipar()

integer function set_u_sens_ipar ( integer ivar,
integer var )

Definition at line 962 of file uaccess.F.

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

◆ 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 1184 of file uaccess.F.

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

◆ write_iout()

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

Definition at line 1230 of file uaccess.F.

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