Class | solver_parameter_class |
In: |
LatticeClass/solver_parameter_class.F90
|
$Id: solver_parameter_class.F90,v 1.6 2010/07/31 13:41:36 ishikawa Exp $
Function : | |
ave : | real(DP) |
this : | type(solver_parameter), intent(inout) |
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) |
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) |
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