function [Vout] = dicomrt_makevertical(Vin)
% dicomrt_makevertical(Vin)
%
% Returns a vector in vertical form.
%
% Copyright (C) 2002 Emiliano Spezi (emiliano.spezi@physics.org) 

if size(Vin,1)<size(Vin,2)
    Vin=Vin';
end

Vout=Vin;