adjust_stepsAlpha Subroutine

    subroutine adjust_stepsAlpha()
        implicit none
        integer :: newStep, maxAlpha, minAlpha
        real(dp), parameter :: ratioThreshold = 0.01

        maxAlpha = int(maxval(alphaLog))
        minAlpha = int(minval(alphaLog))
    end subroutine adjust_stepsAlpha