Class solver_parameter_class
In: LatticeClass/solver_parameter_class.F90
constants_module counter_class solver_parameter_class dot/f_257.png

Solver parameter class used in HMC program

Version

$Id: solver_parameter_class.F90,v 1.6 2010/07/31 13:41:36 ishikawa Exp $

Methods

Included Modules

constants_module counter_class

Public Instance methods

Function :
ave :real(DP)
this :type(solver_parameter), intent(inout)

[Source]

function get_average_solver(this) result(ave)
  implicit none
  type(solver_parameter), intent(inout) :: this
  real(DP) :: ave
  ave = get_average(this%solver_counter)
  return
end function
Subroutine :
this :type(solver_parameter), intent(inout)
incl :integer, optional, intent(in)

[Source]

subroutine inc_solver(this,incl)
  implicit none
  type(solver_parameter), intent(inout) :: this
  integer, optional, intent(in) :: incl
  if (present(incl)) then
    call inc(this%solver_counter,incl)
  else
    call inc(this%solver_counter)
  endif
  return
end subroutine
Subroutine :
this :type(solver_parameter), intent(out)

[Source]

subroutine new_solver(this)
  implicit none
  type(solver_parameter), intent(out) :: this
  this%tol=EPSILON(this%tol)
  call new(this%solver_counter)
  return
end subroutine
solver_parameter
Derived Type :
tol :real(DP), public
: solver tolerance

solver parameter