function Input = Input_tot(KAPPA,PHI,GAMMA,LAMBDA,ALPHAk,ALPHA,ETA,DELT,DELTT,e,SIGMAv,BETA)
   N = length(ALPHA);
   In = zeros(N,N);
   Leo = Leontieffbis(KAPPA,GAMMA)';
   Inter=Input_one(KAPPA,PHI,GAMMA,LAMBDA,ALPHAk,ALPHA,ETA,DELT,DELTT,e,SIGMAv,BETA,Leo');
     for i=1:N
       for j=1:N
           for k=1:N
             In(j,i)=In(j,i)+1/LAMBDA(j)*Leo(j,k)*Inter(k,i);
           end
       end
     end
  
Input = In;
 
end 