function [date_vector] = f_yyyymmdd2datevec(yyyymmdd)
% Convert date representation yyyymmdd to date vector
% E.g.
% yyyymmdd=[20010614 20010630 20010701 20010725] then 
% date_vec = f_yyyymmdd2datevec(yyyymmdd) returns
% date_vec =
%        [2001           6          14
%         2001           6          30
%         2001           7           1
%         2001           7          25]
if size(yyyymmdd,1)>1 & size(yyyymmdd,2)>1
    disp('Input must be a scalar or vector');
    return;
elseif size(yyyymmdd,2)>1
    yyyymmdd=yyyymmdd';
end
yyyy = floor(yyyymmdd/1e4);
mm = floor(yyyymmdd/1e2) - floor(yyyymmdd/1e4)*1e2;
dd = yyyymmdd - floor(yyyymmdd/1e2)*1e2;
date_vector=[yyyy mm dd];   
   
