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