// Calcule les matrice ADRESS, NUMER et UC 
// si on des conditions aux limites de Diriclet 
// sur toute la frontiere


function cond_limit_1D();
//
   global CONNEC COOR NUMER ADRESS UC Nelt Nno Npt NI;
   global XG PG Ng;
//
//
//  creation du vecteur NUMER
//
NUMER=zeros(Npt,1);
NI = 0;
nc = 0;
for i=1:Npt
   x = COOR(i,1);
   if x <> 0 & x <> 1  then            
     NI = NI+1;
     NUMER(i) = NI;
   else
     NUMER(i) = Npt-nc;
     nc = nc + 1;   
   end;
end;      
//
//  creation de la matrice ADRESS
//
ADRESS = zeros(Nelt,Nno);
for i =1:Nelt
  for j = 1:Nno
    ADRESS(i,j) = NUMER(CONNEC(i,j));
  end;
end;
//
//  creation du vecteur UC
//  
UC = zeros(Npt-NI,1);  


endfunction;
