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
e-REdING. Biblioteca de la Escuela Superior de Ingenieros de Sevilla.
