function Cal = oms_readHRCal(file_loc)

calfileID = fopen(file_loc,'r');
wave = '';
mark = 1;

while ~feof(calfileID)
    S = fgetl(calfileID);
    
    if findstr(S,'WAVE]')
        wave = S(2);
        for p = 1:3
            S = fgetl(calfileID);
            cal.W(p) = sscanf(S, '%f');
        end
    end
    
    if findstr(S,'<-name of the channel')
        endstr=findstr(S,',<-name of the channel');
        Chan = S(1:endstr-1);
    end
    
    if findstr(S, '<-F, C, epsilon,')
        pix = 1;
        while ~isempty(S)
            calstore = sscanf(S,'%f,%f,%f,%f');
            caldata(pix).F = calstore(1);
            caldata(pix).C = calstore(2);
            caldata(pix).e = calstore(3);
            caldata(pix).immer = calstore(4);
            pix = pix + 1;
            S = fgetl(calfileID);
        end
        
       
           
            Cal(mark).Hr.W=cal.W;
            Cal(mark).Hr.Chan =Chan;
            Cal(mark).Hr.Caldat=caldata;
            mark=mark+1;
            
    end
    

        
end
fclose(calfileID);