function movitrak
%
%  This function plays a movie of the float tracks that one chooses 
%  interactively.
%
% ----------------------------------------------------------------
%  Written by Vassilis Zervakis, while at
%             AINCO - Interocean, Madrid, Spain, in January 1996.
%  Modified by Mike Sparrow in June, 1997.
% ----------------------------------------------------------------
%
global FLOATSREAD
time1 = input(' Enter start time of movie : ');
time2 = input(' Enter finishing time of movie : ');   
nfloats = input(' Enter number of expected floats to use : ');   
msize = time2 - time1 + 1;
latid = zeros(msize, nfloats);
longi = zeros(msize, nfloats);
times = [time1:time2];          
ans = 'YES';
lm = 0;
while ans == 'YES',
  [float,number,timer,temp,pres,lat, lon, u,v,wwww] = rfcread;   
  lm = lm + 1;
  floatread = belong( float, FLOATSREAD);
  if floatread == 'yes',
     mbox('OK', 'This float already loaded;',...
                'Choose another one.')
     clear float, timer, lat, u, v;
     [float,number,timer,temp,pres,lat, lon, u,v,wwww] = rfcread1;
     lm = lm + 1;
   else
     FLOATSREAD = str2mat(FLOATSREAD, float);
  end
  filesize = length(timer);
  time1
  time2
% -----fill a timer vector ----------------
  if ((timer >= time1) & (timer <= time2)),
     for k = 1:filesize,      
        ll = timer - time1 + 1;
        latid(ll, lm) = lat(k);
        longi(ll, lm) = lon(k);
     end
   else
        mbox('OK', 'Data are not in the time range',...
                   'Choose another one.');
        lm = lm - 1;
  end
end
