set_max_ratio Subroutine

    subroutine set_max_ratio(val, j)
        ! Set the maximum ratio Hij/pgen for the determinant j to val
        ! Input: j - index of the determinant
        !        val - new maximum Hij/pgen ratio
        implicit none
        real(dp), intent(in) :: val
        integer, intent(in) :: j

        global_determinant_data(pos_max_ratio, j) = val
    end subroutine set_max_ratio