function [tp]=get_campbell_TRH(fn)

fid=fopen(fn);
if (fid~=0)
    for n=1:4
        junk=fgetl(fid);
    end
    clear junk
    cc=0;
    while (~feof(fid))
        junk=fgetl(fid);
        ix=strfind(junk,'"');
        if ~isempty(ix)
            cc=cc+1;
            DT=junk(ix(1)+1:ix(2)-1);
            if ~isempty(DT)
                tp.PC_TIME(cc,1)=str2num(DT(1:4));  tp.PC_TIME(cc,2)=str2num(DT(6:7));  tp.PC_TIME(cc,3)=str2num(DT(9:10));
                tp.PC_TIME(cc,4)=str2num(DT(12:13));tp.PC_TIME(cc,5)=str2num(DT(15:16));tp.PC_TIME(cc,6)=str2num(DT(18:19));
            else
                tp.PC_TIME(cc,:)=ones(1,6).*NaN;
            end
            
            clear ix
            ix=strfind(junk,',');
            rec=junk(ix(1)+1:ix(2)-1);
            if ~isempty(rec)
                tp.record_number(cc)=str2num(rec);
            else
                tp.record_number(cc)=NaN;
            end 
            
            T1=junk(ix(2)+1:ix(3)-1);
            if ((~isempty(T1))&(strcmp('"NAN"',T1)~=1))
                tp.T1(cc)=str2num(T1);
            else
                tp.T1(cc)=NaN;
            end 
            
            RH1=junk(ix(3)+1:ix(4)-1);
            if ((~isempty(RH1))&(strcmp('"NAN"',RH1)~=1))
                tp.RH1(cc)=str2num(RH1);
            else
                tp.RH1(cc)=NaN;
            end
            
            T2=junk(ix(4)+1:ix(5)-1);
            if ((~isempty(T2))&(strcmp('"NAN"',T2)~=1))
                tp.T2(cc)=str2num(T2);
            else
                tp.T2(cc)=NaN;
            end
            
            RH2=junk(ix(5)+1:length(junk));
            if ((~isempty(RH2))&(strcmp('"NAN"',RH2)~=1))
                tp.RH2(cc)=str2num(RH2);
            else
                tp.RH2(cc)=NaN;
            end
        
            clear junk DT rec T1 RH1 T2 RH2
        end
    end
else
    tp=[];
end

 fclose('all');