update_max_ratio Subroutine

    subroutine update_max_ratio(spawn, j)
        ! Update the maximum ratio Hij/pgen for the determinant j when spawning spawn walkers
        ! Input: j - index of the determinant
        !        spawn - walkers to spawn in this attempt
        implicit none
        real(dp), intent(in) :: spawn
        integer, intent(in) :: j

        if (abs(spawn) > get_max_ratio(j)) &
            call set_max_ratio(abs(spawn), j)
    end subroutine update_max_ratio