set_all_max_ratios Subroutine

    subroutine set_all_max_ratios(ms_vals, ndets, initial)
        ! Set the maximum ratios stored to the values in ms_vals
        ! Input: ms_vals - Ratios to be stored. Has to be of size 1 x ndets
        !        ndets - number of values to be read in
        !        initial - index of the first entry to fill (everything before will be unchanged
        implicit none
        real(dp), intent(in) :: ms_vals(:, :)
        integer, intent(in) :: ndets
        integer, intent(in), optional :: initial

        integer :: j, start

        def_default(start, initial, 1)

        do j = 1, ndets
            call set_max_ratio(ms_vals(1, j), j + start - 1)
        end do

    end subroutine set_all_max_ratios