fixed broken compatibility with MATLAB 2015b

dl.m

@@ -26,6 +26,9 @@ function [a_out, b_out]=dl(x)
 % $Revision$
 %
 % $Log$
+% Revision 3.4  2009/03/24 08:32:09  marwan
+% copyright address changed
+%
 % Revision 3.3  2005/11/23 07:29:14  marwan
 % help text updated
 %
@@ -89,7 +92,7 @@ if any(x(:))
     
   %  for i1=-ceil(N(2)/2):ceil(N(2)/2); temp=diag(x,i1); X(1:length(temp),1+i1+ceil(N(2)/2))=temp;
   %  end, x=double(X);
-    x1=spdiags(x);
+    x1=spdiags(double(x));
     z=reshape(x1,size(x1,1)*size(x1,2),1);
     z2(2:length(z)+1)=z;z2(1)=0;z2(end+1)=0;
     z=diff(z2);