Class | hmc_logfile_class |
In: |
LatticeClass/hmc_logfile_class.F90
|
Logging is done only by master node (nodeid=0) file name suffix is added with hmc run number
$Id: hmc_logfile_class.F90,v 1.1 2011/06/14 11:10:12 ishikawa Exp $
Subroutine : | |
this : | type(hmc_logfile), intent(inout) |
delete logger object and close log file
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) |
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
Function : | |
flag : | logical |
this : | type(hmc_logfile), intent(in) |
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
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
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
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) |
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) |
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) |
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