From 8b44229ef44f0558ce045e46ff833fb44df913c9 Mon Sep 17 00:00:00 2001
From: jofret
Date: Mon, 21 Jun 2010 06:24:38 +0000
Subject: Tagging the 2.0 release of scilab2c

---
 src/c/matrixOperations/jmat/sjmata.c | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)
 create mode 100644 src/c/matrixOperations/jmat/sjmata.c

(limited to 'src/c/matrixOperations/jmat/sjmata.c')

diff --git a/src/c/matrixOperations/jmat/sjmata.c b/src/c/matrixOperations/jmat/sjmata.c
new file mode 100644
index 00000000..b969fd7a
--- /dev/null
+++ b/src/c/matrixOperations/jmat/sjmata.c
@@ -0,0 +1,22 @@
+#include <jmat.h>
+
+void sjmata(float n, float m, float *out){
+	int i,nn,mm,j;
+	mm=(int) m;
+	nn=(int) n;
+
+	
+	for (i=0;i<n;i++){/*We work by blocs*/
+		for(j=0;j<m;j++){/*then by column*/
+			/*
+			 * i*mm*nn : advance to the good column
+			 * mm*(nn-(i+1)) : take the first element of the column to be 1, when j=0
+			 * j*(mm*nn+1) : advance to the next to be 1
+			 * */
+			out[i*mm*mm*nn+(mm*(nn-(i+1))+j*(mm*nn+1))]=1;
+		}
+	}
+	
+}
+
+
-- 
cgit