swap(a, l1, l2)

function a = swap(a, l1, l2)
%swap     change des lignes l1 et l2 de a;
%         swap(a, l1, l2)
  la1 = a(l1,:);
  a(l1,:) = a(l2,:);
  a(l2,:) = la1;