FrontISTR 5.2.0
Large-scale structural analysis program with finit element method
Loading...
Searching...
No Matches
hecmw_logging.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
9 implicit none
10
11 integer(kind=kint),parameter :: hecmw_log_none = 0
12 integer(kind=kint),parameter :: hecmw_log_error = 1
13 integer(kind=kint),parameter :: hecmw_log_warn = 2
14 integer(kind=kint),parameter :: hecmw_log_info = 4
15 integer(kind=kint),parameter :: hecmw_log_debug = 8
16 integer(kind=kint),parameter :: hecmw_log_all = 15
17
18contains
19
20 subroutine hecmw_log(loglv, msg)
21 integer(kind=kint) :: loglv
22 character(len=HECMW_MSG_LEN) :: msg
23
24 call hecmw_log_if(loglv, msg)
25 end subroutine hecmw_log
26
27
28 subroutine hecmw_setloglv(loglv)
29 integer(kind=kint) :: loglv
30
31 call hecmw_setloglv_if(loglv)
32 end subroutine hecmw_setloglv
33
34
35 subroutine hecmw_log_set_enable(from, to, true_or_false )
36 integer(kind=kint) :: from, to, true_or_false
37
38 call hecmw_log_set_enable_if(from, to, true_or_false)
39 end subroutine hecmw_log_set_enable
40
41
42 subroutine hecmw_openlog(logfile, loglv, options, id, ierror)
43 character(len=HECMW_FILENAME_LEN) :: logfile
44 integer(kind=kint) :: loglv,options,id,ierror
45
46 call hecmw_openlog_if(logfile, loglv, options, id, ierror)
47 end subroutine hecmw_openlog
48
49
50 subroutine hecmw_closelog(id, ierror)
51 integer(kind=kint) :: id,ierror
52
53 call hecmw_closelog_if(id, ierror)
54 end subroutine hecmw_closelog
55end module hecmw_logging
void hecmw_log_if(int *loglv, char *msg, int len)
Definition: hecmw_log.c:276
void hecmw_openlog_if(char *logfile, int *loglv, int *options, int *id, int *ierror, int len)
Definition: hecmw_log.c:329
void hecmw_closelog_if(int *id, int *ierror)
Definition: hecmw_log.c:360
void hecmw_setloglv_if(int *loglv)
Definition: hecmw_log.c:301
void hecmw_log_set_enable_if(int *from, int *to, int *true_or_false)
Definition: hecmw_log.c:311
I/O and Utility.
integer(kind=kint), parameter hecmw_log_warn
subroutine hecmw_openlog(logfile, loglv, options, id, ierror)
subroutine hecmw_log_set_enable(from, to, true_or_false)
subroutine hecmw_closelog(id, ierror)
subroutine hecmw_log(loglv, msg)
integer(kind=kint), parameter hecmw_log_error
integer(kind=kint), parameter hecmw_log_debug
subroutine hecmw_setloglv(loglv)
integer(kind=kint), parameter hecmw_log_none
integer(kind=kint), parameter hecmw_log_info
integer(kind=kint), parameter hecmw_log_all
I/O and Utility.
Definition: hecmw_util_f.F90:7