# HG changeset patch
# User David Bateman <dbateman@free.fr>
# Date 1206029563 14400
# Node ID 017b7c79bd3c3bcccb401525237e0c61b76effff
# Parent  b16ad51511aae3118ae3a3c26ee61152a380cb7c
Ensure k is an integer scalar in rotdim

diff -r b16ad51511aa -r 017b7c79bd3c scripts/ChangeLog
--- a/scripts/ChangeLog	Wed Mar 19 16:28:23 2008 -0400
+++ b/scripts/ChangeLog	Thu Mar 20 12:12:43 2008 -0400
@@ -1,3 +1,7 @@
+2008-03-20  David Bateman  <dbateman@free.fr>
+
+	* general/rotdim.m: Ensure k is an integer scale.
+ 
 2008-03-19  Emil Lucretiu  <emil@la.mine.nu>
 
 	* signal/sinetone.m: Ensure integral number of samples.
diff -r b16ad51511aa -r 017b7c79bd3c scripts/general/rotdim.m
--- a/scripts/general/rotdim.m	Wed Mar 19 16:28:23 2008 -0400
+++ b/scripts/general/rotdim.m	Thu Mar 20 12:12:43 2008 -0400
@@ -58,8 +58,8 @@
   endif
 
   if (nargin > 1 && ! isempty(k))
-    if (imag (k) != 0 || fix (k) != k)
-      error ("rotdim: k must be an integer");
+    if (!isscalar (k) || imag (k) != 0 || fix (k) != k)
+      error ("rotdim: k must be an scalar integer");
     endif
   else
     k = 1;