function [ RE, RP] = lee_fichero(fid,nh)

g = 0;
k = fscanf(fid, '%f', [1, 1])';
while ~isempty(k)
    g = g + 1;
    s = fscanf(fid, '%s', [1, 1])';
    V = fscanf(fid, '%f', [1, 2*nh]);
    RE(g,:) = V(1:2:2*nh);
    RP(g,:) = V(2:2:2*nh);
    k = fscanf(fid, '%f', [1, 1])';
end
