disp('spcplot')    %('eval_son_rhb_07')
fclose('all');
load f:\AMMA_2007\RHB\flux\raw\spc18
        figure;
        loglog(Fsu(length(Fsu)-31:length(Fsu)),((Fsu(length(Fsu)-31:length(Fsu))).^(-2/3))./(Fsu(length(Fsu)-18).^(-2/3)).*Sus(length(Fsu)-18).*Fsu(length(Fsu)-18),'r');
        hold
        loglog(Fsu,Sus.*Fsu,'b');
        loglog(Fsw,Sws.*Fsw,'g');
        title(['Sonic Anemometer Spectra:   Day ',num2str(ddd),'   Hour ',num2str(hhh),]);
        legend('Spd','W','5/3' );
        xlabel('Frequency in Hz');
        ylabel('Spectrum * Frequency');
        print_buffer = ['F:\AMMA_2007\RHB\flux\Raw_Images\',jdr ,num2str(hhh), '_spc.jpg'];
        print('-djpeg90 ', print_buffer);
        if 0  % dew 5/15/2007
        %if hhh==12,  % Print out spectra file for hr 12
            specfile=[way_spec_data, '\w_sp',jdr,num2str(hhh),'.txt'];
            fspec=fopen(specfile,'w');
            specs=[Fsu
                Sus
                Fsw
                Sws];
            fprintf(fspec,'%11.5f %11.5f %11.5f %11.5f \r\n',specs);
            fclose(fspec);
            clear fspec specs specfile
        end;%end hhh=12
