function testplot_spec(mnum)
files=dir(sprintf('//Tower/oasisnt/oasis/%s/specprr',mnum));
specdat = [];
for k= 1:length(files)
    
    if files(k).isdir < 1 & files(k).name ~= '1999001'
        fid=fopen([sprintf('//Tower/oasisnt/oasis/%s/specprr/',mnum) files(k).name]);%open file
        Dat_Loc=rm_oasis_header(fid);%remove the header
        fseek(fid,(Dat_Loc),'bof');%start of the data
        i=1;
        while ~feof(fid) %read in the numbers
            X=fgetl(fid);
            tmp=sscanf(X,'%f');
            [r c]=size(tmp);
            if r ~= 53
                fill = -999.0000;
                tmpx = tmp(45:end);
                tmp = [tmp(1:44);fill;tmpx];
            end;
            dat(:,i)=tmp;
            clear tmp;
            i=i+1;
        end;
        fclose(fid);
        specdat=[specdat dat];        
        clear dat;
    end
end

[y,m,d,h,mi,s]=datevec(now);
specdat(1,:)=jul2date(specdat(1,:),y);
[r c]=size(specdat)

for k=1:r
    x=find(specdat(k,:)==-999);
    specdat(k,x)=NaN;
end

subplot(4,1,1)
plot(specdat(1,:),specdat(2:6,:))
title('Spec Readings');ylabel('[Surface  PRR]');set(gca,'XTickLabels',[]);
subplot(4,1,2)
plot(specdat(1,:),specdat(30:35,:))
ylabel('[SubSurfaceIrr PRR]');set(gca,'XTickLabels',[]);
subplot(4,1,3)
plot(specdat(1,:),specdat(46:52,:))
ylabel('[SubSurfaceRad PRR]');set(gca,'XTickLabels',[]);
subplot(4,1,4)
plotyy(specdat(1,:),specdat(8,:),specdat(1,:),specdat(36,:))
datetick('x');ylabel('[PAR(0m,20m)]');

figure
subplot(2,1,1)
plot(specdat(1,:),specdat(14:20,:))
datetick('x');ylabel('OCRA Rad]');set(gca,'XTickLabels',[]);
subplot(2,1,2)
plot(specdat(1,:),specdat(22:28,:))
datetick('x');ylabel('OCRB Rad]');

