function data = read_Poynting(filename)
data = NaN(86400,37);
fid = fopen(filename,'rt');
if (fid ~= -1)
    for i = 1:40
        tline = fgets(fid); 
    end        
    tline = fgets(fid);            
    j = 1;
    while ~feof(fid)
        tline = fgets(fid);
        a = sscanf(tline,'%f');
        data(j,:) = a;
        j = j+1;
    end    
    fclose(fid);
end