OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
ini_msg.F File Reference
#include "implicit_f.inc"
#include "chara_c.inc"
#include "engine_message_description.inc"

Go to the source code of this file.

Functions/Subroutines

subroutine ini_msg ()

Function/Subroutine Documentation

◆ ini_msg()

subroutine ini_msg

Definition at line 31 of file ini_msg.F.

32C-----------------------------------------------
33C M o d u l e s
34C-----------------------------------------------
35 USE message_mod
37C-----------------------------------------------
38C I m p l i c i t T y p e s
39C-----------------------------------------------
40#include "implicit_f.inc"
41C-----------------------------------------------
42C C o m m o n B l o c k s
43C-----------------------------------------------
44#include "chara_c.inc"
45C-----------------------------------------------
46C D u m m y A r g u m e n t s
47C-----------------------------------------------
48 INTEGER I,J
49C-----------------------------------------------
50C L o c a l V a r i a b l e s
51C-----------------------------------------------
52#include "engine_message_description.inc"
53 ALLOCATE(messagesfile(smessagesfile))
54 DO i=1,smessagesfile
55 messagesfile(i)=messagesdata(i)
56 END DO
integer, parameter ncharline