subroutine ReadArray(n,array)
    integer :: i
    real, dimension(n) :: array
    do i =1,n
        write (*,'(i2,a,1x$)') i,':'
        read (*,*) array(i)
    end do
end subroutine