
    clear all;
    close all;

    %w=what('D:\RHB_AMMA07_process_progs\PMS\');
    %days =input('Input day to evaluate (01, 02, 10....): ','s');
    fnpcasp = 'A3-firstdwnldci-500.csv';
    %fnpcasp(5:6) = days;
    %a=dir([w.path fnpcasp]);


    j = 0;
        %a(i).name
        %temp=importdata([fnpcasp],',');

        %hr=str2num(a(i).name(7:8));
        time1=[];
        fid=fopen([fnpcasp],'r');
                    dmp1=fgetl(fid)  % Head in header line
        %while ~feof(fid)
             % j = j + 1;
        for j=1:499   %length(temp.textdata)
            dmp1=fgetl(fid);
              [dt]=fscanf(fid,'%2d/%2d/%4d,%2d:%2d:%2d, \n',[6 1]);
              name=fscanf(fid,'%7s \n',[1 1]);
              tmp=fscanf(fid,'%d, \n',[1 1]);
              [data]=fscanf(fid,'%d,%d,%d,%d,%d,%d \n',[6 1]);

    jd(j) = datenum(dt(3,1),dt(1,1),dt(2,1),dt(4,1),dt(5,1),dt(6,1))-datenum(2006,12,31);

        chn(j,1)=data(1);
        chn(j,2)=data(2);
        chn(j,3)=data(3);
        chn(j,4)=data(4);
        chn(j,5)=data(5);
        chn(j,6)=data(6);

  

        end


        %flow_rate=vertcat(flow_rate,temp.data(:,9));

        %clear temp hour time1;



    figure(1)
    set(gcf,'defaultaxesfonts',12)
    set(gca,'fontname','time','fontsize',10);
    %subplot(2,1,1)
   
    % DEW Oct 18,2006
    semilogy(jd,chn(:,1),'b.')
    hold on
    semilogy(jd,chn(:,2),'r.')
    semilogy(jd,chn(:,3),'k.')
    semilogy(jd,chn(:,4),'g.')
    %semilogy(jd,chn(:,5),'c.')
    %semilogy(jd,chn(:,6),'k.')
        %h=legend('0.3 \mum','0.5 \mum','0.7 \mum','0.1.2 \mum','5 \mum','10 \mum','orientation','horizontal','location','bestoutside');
    h=legend('0.3 \mum','0.5 \mum','0.7 \mum','0.1.2 \mum','orientation','horizontal','location','bestoutside');
    set(h,'fontsize',8)
    ylabel('Particles (m^{-3})');
    %ylim([10^0 10^6])
    title(['AMMA 2007 U of HowardPMS '])
    xlabel('UTC Time (Hour)')
   
    %xlim([0 24]);
    %ylim([1000 1000000])
    print_buffer = ['-djpeg90 F:\AMMA_2007\RHB\aerosol\Raw_Images\AMMA07_UH_PMS1.' '.jpg'];
eval(['print ',print_buffer]);
    
    
 % DEW Oct 18,2006
 figure(2)
    semilogy(jd,chn(:,5),'b.')
    hold on
    semilogy(jd,chn(:,6),'r.')
    %semilogy(jd,chn(:,4),'y.')
    %semilogy(jd,chn(:,5),'c.')
    %semilogy(jd,chn(:,6),'k.')
        h=legend('5 \mum','10 \mum','orientation','horizontal','location','bestoutside');
    set(h,'fontsize',8)
    ylabel('Particles (m^{-3})');
    %ylim([10^0 10^6])
    title(['AMMA 2007 U of HowardPMS '])
    xlabel('UTC Time (Hour)')
   
    %xlim([0 24]);
    %ylim([1000 1000000])
print_buffer = ['-djpeg90 F:\AMMA_2007\RHB\aerosol\Raw_Images\AMMA07_UH_PMS1' '.jpg'];
eval(['print ',print_buffer]);

save d:\RHB_AMMA07_process_progs\UH_PMS  jd chn 
    
    
