changeset 11707:017b7c79bd3c release-3-0-x

Ensure k is an integer scalar in rotdim
author David Bateman <dbateman@free.fr>
date Thu, 20 Mar 2008 12:12:43 -0400
parents b16ad51511aa
children 7a5439d343da
files scripts/ChangeLog scripts/general/rotdim.m
diffstat 2 files changed, 6 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/scripts/ChangeLog
+++ b/scripts/ChangeLog
@@ -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.
--- a/scripts/general/rotdim.m
+++ b/scripts/general/rotdim.m
@@ -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;