disp('***********************START**************************************** ')
disp(['OPEN DATA FILES FOR DAY ',num2str(ddd),' and HOUR ',num2str(hhh)]),
if ddd==9,
   if hhh>20,
      camp_yes;    %    Channel 1          YES RAIN  13 fields
   else,
      camp_no;     %    Channel 1           NO RAIN  12 fields
   end;
elseif ddd>9 & ddd<300,
   camp_yes;       %    Channel 1          YES RAIN  13 fields
else,
   camp_no;        %    Channel 1           NO RAIN  12 fields
end;
opengyro;          %    Channel 3
openmoti;          %    Channel 5
openship;          %    Channel 6
openradi;          %    Channel 2
opensons;          %    Channel 0
openophi;          %    Channel 4
opengps;           %    Channel 7
fastex07;
fastpr07;
fclose('all');
disp(['         COMPLETED DAY ',num2str(ddd),'  HOUR ',num2str(hhh)]),
disp('***********************END**************************************** ')
