hecmw_logging.f90

Go to the documentation of this file.

!-------------------------------------------------------------------------------
! Copyright (c) 2019 FrontISTR Commons
! This software is released under the MIT License, see LICENSE.txt
!-------------------------------------------------------------------------------
 
module hecmw_logging
  use hecmw_util
  implicit none
 
  integer(kind=kint),parameter :: hecmw_log_none  = 0
  integer(kind=kint),parameter :: hecmw_log_error = 1
  integer(kind=kint),parameter :: hecmw_log_warn  = 2
  integer(kind=kint),parameter :: hecmw_log_info  = 4
  integer(kind=kint),parameter :: hecmw_log_debug = 8
  integer(kind=kint),parameter :: hecmw_log_all   = 15
 
contains
 
  subroutine hecmw_log(loglv, msg)
    integer(kind=kint) :: loglv
    character(len=HECMW_MSG_LEN) :: msg
 
    call hecmw_log_if(loglv, msg)
  end subroutine hecmw_log
 
 
  subroutine hecmw_setloglv(loglv)
    integer(kind=kint) :: loglv
 
    call hecmw_setloglv_if(loglv)
  end subroutine hecmw_setloglv
 
 
  subroutine hecmw_log_set_enable(from, to, true_or_false )
    integer(kind=kint) :: from, to, true_or_false
 
    call hecmw_log_set_enable_if(from, to, true_or_false)
  end subroutine hecmw_log_set_enable
 
 
  subroutine hecmw_openlog(logfile, loglv, options, id, ierror)
    character(len=HECMW_FILENAME_LEN) :: logfile
    integer(kind=kint) :: loglv,options,id,ierror
 
    call hecmw_openlog_if(logfile, loglv, options, id, ierror)
  end subroutine hecmw_openlog
 
 
  subroutine hecmw_closelog(id, ierror)
    integer(kind=kint) :: id,ierror
 
    call hecmw_closelog_if(id, ierror)
  end subroutine hecmw_closelog
end module hecmw_logging