OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
matfun_usr2sys.F File Reference
#include "implicit_f.inc"
#include "com04_c.inc"

Go to the source code of this file.

Functions/Subroutines

subroutine matfun_usr2sys (titr, mat_id, nfunc, ifunc, func_id)

Function/Subroutine Documentation

◆ matfun_usr2sys()

subroutine matfun_usr2sys ( character(len=nchartitle), intent(in) titr,
integer, intent(in) mat_id,
integer nfunc,
integer, dimension(nfunc) ifunc,
integer, dimension(nfunct), intent(in) func_id )

Definition at line 35 of file matfun_usr2sys.F.

36C-----------------------------------------------
37C M o d u l e s
38C-----------------------------------------------
39 USE message_mod
40 USE table_mod
42C-----------------------------------------------
43C I m p l i c i t T y p e s
44C-----------------------------------------------
45#include "implicit_f.inc"
46C-----------------------------------------------
47C C o m m o n B l o c k s
48C-----------------------------------------------
49#include "com04_c.inc"
50C-----------------------------------------------
51C D u m m y A r g u m e n t s
52C-----------------------------------------------
53 CHARACTER(LEN=NCHARTITLE) :: TITR
54 INTEGER , DIMENSION(NFUNC) :: IFUNC
55 INTEGER , DIMENSION(NFUNCT) :: FUNC_ID
56 INTEGER :: MAT_ID, NFUNC
57! TYPE(TTABLE) TABLE(*)
58C-----------------------------------------------
59 INTENT(IN) :: titr,mat_id,func_id
60 !INTENT(INOUT) :: IFUNC
61C-----------------------------------------------
62C L o c a l V a r i a b l e s
63C-----------------------------------------------
64 INTEGER I,J,ID,OK
65C=======================================================================
66 !NFUNC = IPM(10,IMAT)+IPM(6,IMAT)in updmat.f
67 !IFUNC => IPM(10+1:10+NFUNC,IMAT) in updmat.f
68c-----------------------------------------------------
69 DO i=1,nfunc
70 id = ifunc(i)
71 ok = 0
72 IF (id > 0) THEN
73 DO j=1,nfunct ! total number of functions
74 IF (id == func_id(j)) THEN
75 ifunc(i) = j
76 ok = 1
77 EXIT
78 ENDIF
79 ENDDO
80 IF (ok == 0) THEN
81 CALL ancmsg(msgid = 126,
82 . msgtype=msgerror,
83 . anmode=aninfo_blind_1,
84 . i1 = mat_id,
85 . c1 = titr ,
86 . i2 = id )
87 ENDIF
88 ENDIF
89c-----------
90 ENDDO ! I=1,NFUNC
91c-----------
92 RETURN
initmumps id
integer, parameter nchartitle
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