FrontISTR 5.2.0
Large-scale structural analysis program with finit element method
Loading...
Searching...
No Matches
hecmw_msg_f.f90
Go to the documentation of this file.
1!-------------------------------------------------------------------------------
2! Copyright (c) 2019 FrontISTR Commons
3! This software is released under the MIT License, see LICENSE.txt
4!-------------------------------------------------------------------------------
6
8 ! use hecmw_util
10
11contains
12
13 subroutine hecmw_strmsg(msgno, msg)
14 integer(kind=kint) :: msgno
15 character(len=HECMW_MSG_LEN) :: msg
16
17 call hecmw_strmsg_if(msgno, msg)
18 end subroutine hecmw_strmsg
19end module hecmw_msg
void hecmw_strmsg_if(int *msgno, char *dst, int dstlen)
Definition: hecmw_msg.c:48
I/O and Utility.
Definition: hecmw_msg_f.f90:7
subroutine hecmw_strmsg(msgno, msg)
Definition: hecmw_msg_f.f90:14