function [anElement,Nodes,aStructure]=readFromExcel(InputFile)


nDim=xlsread([InputFile '.xlsx'],'Structure');
Coords=xlsread([InputFile '.xlsx'],'Coords');
Elements=xlsread([InputFile '.xlsx'],'Elements');
Material=xlsread([InputFile '.xlsx'],'Material');
Property=xlsread([InputFile '.xlsx'],'Property');


%Now Populate the MainFEM data structures

%Nodal Coordinates

nNodes=size(Coords,1);
for inod=1:nNodes
    Nodes{inod}.x=Coords(inod,2); 
    Nodes{inod}.y=Coords(inod,3);
end

%Elements connectivities, Properties, Materials
nElements=size(Elements,1);
for iel=1:nElements    
    anElement{iel}.iEnd(1)=Elements(iel,2);
    anElement{iel}.iEnd(2)=Elements(iel,3);
    anElement{iel}.iMaterial=Elements(iel,4);
    anElement{iel}.iProperty=Elements(iel,5);
end

%Materials
nMat=size(Material,1);
for imat=1:nMat
    aMaterial{imat}.Eyoung=Material(imat,1);
end

%Sections
nSec=size(Property,1);
for iSec=1:nSec
    aProperty{iSec}.A=Property(iSec,1);
end


%and procceed with assigning the property and material values to each
%element
for iel=1:nElements
    iMaterial=anElement{iel}.iMaterial;
    anElement{iel}.aMaterial.Eyoung=aMaterial{iMaterial}.Eyoung;    
    iProperty=anElement{iel}.iProperty;
    anElement{iel}.aProperty.A=aProperty{iProperty}.A;
end


aStructure.nElements=nElements;
aStructure.nNodes=nNodes;
aStructure.nDim=nDim;

end