function [coord_int,modosin,modocon,sdf]=modos_todo_punto(tipo_interp,matsin,matcon,coord,n_elem,nbarra,n_puntos_barra);

puntos_barra=[1;n_puntos_barra];
[fil,col]=size(matsin);

%matsin=4.2619*matsin;matcon=4.2619*matcon;
coord_int=[];sdf=[];auxiliar=0;
a=0;b=0;
if tipo_interp==1
    for j=1:1:nbarra
        a=puntos_barra(j)+a;b=b+puntos_barra(j+1);
        for i=1:1:col
            modosin((j-1)*n_elem+j:j*(n_elem+1),i)=interp1(coord(a:b),...
                matsin(a:b,i),coord(a):(coord(b)-coord(a))/n_elem:coord(b),'cubic')';
            modocon((j-1)*n_elem+j:j*(n_elem+1),i)=interp1(coord(a:b),...
                matcon(a:b,i),coord(a):(coord(b)-coord(a))/n_elem:coord(b),'cubic')';
        end
        coord_inta=[coord(a):(coord(b)-coord(a))/n_elem:coord(b)];
        coord_int=[coord_int;coord_inta'];
        sdf=[sdf;(coord_inta+auxiliar*ones(1,length(coord_inta)))'];
        auxiliar=coord_inta(length(coord_inta))+auxiliar;
    end
end

if tipo_interp==2
    for j=1:1:nbarra
        a=puntos_barra(j)+a;b=b+puntos_barra(j+1);
        for i=1:1:col                                
            modosin((j-1)*n_elem+j:j*(n_elem+1),i)=interp1(coord(a:b),...
                matsin(a:b,i),coord(a):(coord(b)-coord(a))/n_elem:coord(b),'spline')';
            modocon((j-1)*n_elem+j:j*(n_elem+1),i)=interp1(coord(a:b),...
                matcon(a:b,i),coord(a):(coord(b)-coord(a))/n_elem:coord(b),'spline')';
        end
        coord_inta=[coord(a):(coord(b)-coord(a))/n_elem:coord(b)];
        coord_int=[coord_int;coord_inta'];
        auxiliar=coord_inta(length(coord_inta))+auxiliar;
        sdf=[sdf;(coord_inta+auxiliar*ones(1,length(coord_inta)))'];
        
    end
end
