1 files changed, 72 insertions, 0 deletions
diff --git a/2.3-1/src/c/auxiliaryFunctions/interfaces/int_size.h b/2.3-1/src/c/auxiliaryFunctions/interfaces/int_size.h
new file mode 100644
index 00000000..c529a97d
--- /dev/null
+++ b/2.3-1/src/c/auxiliaryFunctions/interfaces/int_size.h
@@ -0,0 +1,72 @@
+/*
+ * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+ * Copyright (C) 2008-2008 - INRIA - Bruno JOFRET
+ *
+ * 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
+ *
+ */
+/* ADDED BY NUTRICATO, BUT WAITING FOR THE AUTOMATIC GENERATION OF IT
+   AS SHOWN BELOW MANY CASES ARE MISSING. SCALAR RANDOM GENERATOR NOT
+   IMPLEMENTED YET, SEE DRANDS.C
+*/
+
+
+#ifndef __INT_SIZE_H__
+#define __INT_SIZE_H__
+
+#define s0sizes2(in,out)				out[0]=1.0f;out[1]=1.0f;
+
+#define d0sized2(in,out)				out[0]=1.0;out[1]=1.0;
+
+#define c0sizes2(in,out)				out[0]=1.0f;out[1]=1.0f;
+
+#define z0sized2(in,out)				out[0]=1.0;out[1]=1.0;
+
+#define s2sizes2(in,size,out)				out[0]=size[0];out[1]=size[1];
+
+#define d2sized2(in,size,out)				out[0]=size[0];out[1]=size[1];
+
+#define c2sizes2(in,size,out)				out[0]=size[0];out[1]=size[1];
+
+#define z2sized2(in,size,out)				out[0]=size[0];out[1]=size[1];
+
+#define s0sizes0s0(in,out1,out2)			out1=1.0f;out2=1.0f;
+
+#define d0sized0d0(in,out1,out2)			out1=1.0;out2=1.0;
+
+#define c0sizes0s0(in,out1,out2)			out1=1.0f;out2=1.0f;
+
+#define z0sized0d0(in,out1,out2)			out1=1.0;out2=1.0;
+
+#define s2sizes0s0(in,size,out1,out2)		out1=size[0];out2=size[1];
+
+#define d2sized0d0(in,size,out1,out2)		out1=size[0];out2=size[1];
+
+#define c2sizes0s0(in,size,out1,out2)		out1=size[0];out2=size[1];
+
+#define z2sized0d0(in,size,out1,out2)		out1=size[0];out2=size[1];
+
+#define s0s0sizes0(in1,in2)				1.0f
+
+#define d0d0sized0(in1,in2)				1.
+
+#define c0s0sizes0(in1,in2)				1.0f
+
+#define z0d0sized0(in1,in2)				1.
+
+#define s2s0sizes0(in1,size,in2)			(in2==1) ? size[0] : size[1]
+
+#define d2d0sized0(in1,size,in2)			(in2==1) ? size[0] : size[1]
+
+#define c2s0sizes0(in1,size,in2)			(in2==1) ? size[0] : size[1]
+
+#define z2d0sized0(in1,size,in2)			(in2==1) ? size[0] : size[1]
+
+#define d2g2sized0(in1,size1,in2,size2)     dallsizea(size1, in2)
+#endif /* !__INT_SIZE_H__ */
+
+