function [nombre] = lee_nomgen(fid,nh,x)

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

while g<x
    g = g + 1;
    s = k;
    w = fscanf(fid, '%s', [1, 1]);
    V = fscanf(fid, '%f', [1, 4*25*nh])';
    c = fscanf(fid, '%f', [1, 1])';
    IM= fscanf(fid, '%f', [1, 2])';
    r = fscanf(fid, '%f', [1, 4])';
    f = fscanf(fid, '%f', [1, 6])';
    k = fscanf(fid, '%f', [1, 1])';
    
    
end