%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%Programa de analisis modal de edificios %
%Calcula auto valores y auto vectores    %
%Para la vibracion libre de la estructura%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

% Modulo de entrada de datos
function [npis,K,M,hpis]=lecdat (fid)

npis= fscanf (fid,'%f',[1,1]);
K= fscanf (fid,'%f',[npis,npis]);
M= fscanf (fid,'%f',[npis,npis]);
hpis= fscanf (fid,'%f',[npis,1]);