update_peak_walker_number Subroutine

public subroutine update_peak_walker_number()

Uses

Arguments

None

Contents


Source Code

    subroutine update_peak_walker_number()
        use FciMCData, only: AllTotParts
        implicit none
        integer :: run

        do run = 1, inum_runs
            TotPartsPeak(run) = max(AllTotParts(min_part_type(run)) + AllTotParts(max_part_type(run)) &
                                    , TotPartsPeak(run))
        end do
    end subroutine update_peak_walker_number