function [IM n g P E] = lee_entrada(fid,nh)

g = 0;
k = fscanf(fid, '%f', [1, 1])';

while ~isempty(k)
    g = g + 1;
    s = k;
    n{g} = fscanf(fid, '%s', [1, 1]);
    V = fscanf(fid, '%f', [1, 4*25*nh])';
    c = fscanf(fid, '%f', [1, 1])';
    IM(g,:) = fscanf(fid, '%f', [1, 2])';
    r = fscanf(fid, '%f', [1, 4])';
    f = fscanf(fid, '%f', [1, 6])';
    
    P(g,:) = V(1:4:4*25*nh);
    E(g,:) = V(2:4:4*25*nh);
  k = fscanf(fid, '%f', [1, 1])';
    
end
