Class hmc_logfile_class
In: LatticeClass/hmc_logfile_class.F90
constants_module logfile_class hmc_job_manager_class error_class hmc_logfile_class dot/f_249.png

HMC Logfile class

Defines HMC log files

Logging is done only by master node (nodeid=0) file name suffix is added with hmc run number

Version

$Id: hmc_logfile_class.F90,v 1.1 2011/06/14 11:10:12 ishikawa Exp $

Methods

Included Modules

constants_module logfile_class hmc_job_manager_class error_class

Public Instance methods

CONTEXT_RUN
Constant :
CONTEXT_RUN = 0 :integer, parameter
CONTEXT_TRAJECTORY
Constant :
CONTEXT_TRAJECTORY = 1 :integer, parameter
Subroutine :
this :type(hmc_logfile), intent(inout)

delete logger object and close log file

  • this : logfile

[Source]

subroutine delete_hlog(this)
!
! delete logger object and close log file
!
! -  this : logfile
!
  implicit none
  type(hmc_logfile), intent(inout) :: this

  this%fname_head = REPEAT(' ',LEN(this%fname_head))
  call delete(this%logfile)
  this%context = m_default_context

  return
end subroutine
Function :
iout :integer
this :type(hmc_logfile), intent(in)

[Source]

function get_file_unit_hlog(this) result(iout)
  implicit none
  type(hmc_logfile), intent(in) :: this
  integer :: iout
  iout = get_file_unit(this%logfile)
  return
end function
hmc_logfile
Derived Type :

logger object

Function :
flag :logical
this :type(hmc_logfile), intent(in)

[Source]

function is_open_hlog(this) result(flag)
  implicit none
  type(hmc_logfile), intent(in) :: this
  logical :: flag
  flag = is_open(this%logfile)
  return
end function
Subroutine :
this :type(hmc_logfile), intent(inout)
fname :character(len=*), intent(in)

Initialize logger object and open log file

  • this : logfile
  • fname : logging output file name

[Source]

subroutine new_hlog(this,fname)
!
! Initialize logger object and open log file
!
! -  this : logfile
! - fname : logging output file name 
!
  implicit none
  type(hmc_logfile), intent(inout) :: this
  character(len=*),  intent(in)    :: fname

  this%fname_head = fname
  this%context = m_default_context

  return
end subroutine
Subroutine :
this :type(hmc_logfile), intent(inout)
str :character(len=*), intent(in)

delete logger object and close log file

  • this : logfile
  • str : string to be printed

[Source]

subroutine print_hlog(this,str)
!
! delete logger object and close log file
!
! -  this : logfile
! -   str : string to be printed
!
  implicit none
  type(hmc_logfile), intent(inout) :: this
  character(len=*),  intent(in) :: str

  call delay_open(this)
  call print(this%logfile,TRIM(str))

  return
end subroutine
Subroutine :
this :type(hmc_logfile), intent(inout)
str(:) :character(len=*), intent(in)

delete logger object and close log file

  • this : logfile
  • str : string to be printed

[Source]

subroutine print_hlog_array(this,str)
!
! delete logger object and close log file
!
! -  this : logfile
! -   str : string to be printed
!
  implicit none
  type(hmc_logfile), intent(inout) :: this
  character(len=*),  intent(in) :: str(:)
  integer :: ns,is

  call delay_open(this)
  call print(this%logfile,str)

!  ns = SIZE(str(:))
!  do is=1,ns
!    call print(this,str(is))
!  enddo
  return
end subroutine
Subroutine :
this :type(hmc_logfile), intent(inout)
context :integer, intent(in)

[Source]

subroutine set_context(this,context)
  use error_class
  implicit none
  type(hmc_logfile), intent(inout) :: this
  integer,            intent(in)    :: context
  select case(context)
  case (CONTEXT_RUN)
    return
  case (CONTEXT_TRAJECTORY)
    return
  case default
    call error_stop("hmc_logfile%set_context error.")
  end select
  this%context = context
  return
end subroutine
Subroutine :
this :type(hmc_logfile), intent(inout)
context :integer, intent(in)

[Source]

subroutine set_default_context(this,context)
  use error_class
  implicit none
  type(hmc_logfile), intent(inout) :: this
  integer,            intent(in)    :: context
  select case(context)
  case (CONTEXT_RUN)
    return
  case (CONTEXT_TRAJECTORY)
    return
  case default
    call error_stop("hmc_logfile%set_default_context error.")
  end select
  m_default_context = context
  return
end subroutine
Subroutine :
this :type(hmc_logfile), intent(inout)
manager :type(hmc_job_manager), target, intent(in)

[Source]

subroutine set_hmc_job_manager(this,manager)
  implicit none
  type(hmc_logfile),             intent(inout) :: this
  type(hmc_job_manager), target, intent(in) :: manager
  if (.not.m_is_initialized) then
    m_manager => manager
  endif
  m_is_initialized = .true.
  return
end subroutine