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

Go to the source code of this file.

Functions/Subroutines

subroutine errmsg (key)

Function/Subroutine Documentation

◆ errmsg()

subroutine errmsg ( character, dimension(*) key)

Definition at line 39 of file errmsg.F.

40C-----------------------------------------------
41C M o d u l e s
42C-----------------------------------------------
43 USE message_mod
44C-----------------------------------------------
45C I m p l i c i t T y p e s
46C-----------------------------------------------
47#include "implicit_f.inc"
48C-----------------------------------------------
49C D u m m y A r g u m e n t s
50C-----------------------------------------------
51 CHARACTER KEY*(*)
52C-----------------------------------------------
53C C o m m o n B l o c k s
54C-----------------------------------------------
55#include "warn_c.inc"
56C-----------------------------------------------
57C L o c a l V a r i a b l e s
58C-----------------------------------------------
59 CHARACTER MESG*80
60C-----------------------------------------------
61 CALL ancmsg(msgid=189,anmode=aninfo,
62 . c1=key)
63 ierr=ierr+1
64 RETURN
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