Tagging the 2.0 release of scilab2crelease-2.0

1 files changed, 25 insertions, 0 deletions

diff --git a/tests/unit_tests/test_CDG/cs.sci b/tests/unit_tests/test_CDG/cs.sci
new file mode 100644
index 00000000..496b23a9
--- /dev/null
+++ b/tests/unit_tests/test_CDG/cs.sci
@@ -0,0 +1,25 @@
+//
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2010-2010 - DIGITEO - Vincent LEJEUNE
+//
+// This file must be used under the terms of the CeCILL.
+// This source file is licensed as described in the file COPYING, which
+// you should have received as part of this distribution.  The terms
+// are also available at
+// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
+//
+//
+
+function ret=cs(A,m1,m2)
+  [m,n]=size(A);
+  rettmp=zeros(m,n);
+  ret=zeros(m,n);
+  for i=1:m
+    id=pmodulo(i-m1-1,m)+1;
+    rettmp(i,:)=A(id,:);
+  end
+  for j=1:n
+    jd=pmodulo(j-m2-1,n)+1;
+    ret(:,j)=rettmp(:,jd);
+  end
+endfunction
\ No newline at end of file