function [dettes,creancier,nomcreancier,I,J]=dettes_gite(L)

% detérminer le nom des créancier et les dettes pour le fichier de données de nom L

B=dlmread(L,' ',3,1);
% un peu bourrin mais passe !
fid=fopen(L);
dudu=textscan(fid,'%s');
fclose(fid);
dudu=dudu{1};
nom=cell(1,length(dudu)/7-1);
for i=1:length(dudu)/7-1
    nom{i}=dudu{7*i+1};
end
p=size(B,1);
I=2+find(B(3:end,end)==1);
J=2+find(B(3:end,end)==2);
G=sum(B(1:2,end-1));
nuu=B(:,1);
a=B(:,2);
e=B(:,3);
n=B(:,4);
N=sum(n);
g=B(1:2,end-1);
s1=nuu.*(a+e);
s2=nuu.*(a+e/2);
s=G*s1/sum(s1)+N*s2/sum(s2);
dettes=zeros(p,1);
dettes(3:end)=s(3:end)-n(3:end);
alphaa=n(1)-sum(s(I)-n(I))+g(1);
gammaa=s(1)-alphaa;
dettes(1)=gammaa;
creancier=zeros(p,1);
creancier(I)=1;
creancier(J)=2;
creancier(2)=1;
nomcreancier=cell(1,p);
for i=I.'
    nomcreancier{i}=nom{1};    
end
for i=J.'
    nomcreancier{i}=nom{2};    
end
nomcreancier{1}=nom{2};
nomcreancier{2}=[];