summaryrefslogtreecommitdiff
path: root/src/c/matrixOperations/interfaces
diff options
context:
space:
mode:
Diffstat (limited to 'src/c/matrixOperations/interfaces')
-rw-r--r--src/c/matrixOperations/interfaces/int_spec.h71
-rw-r--r--src/c/matrixOperations/interfaces/int_toeplitz.h50
2 files changed, 50 insertions, 71 deletions
diff --git a/src/c/matrixOperations/interfaces/int_spec.h b/src/c/matrixOperations/interfaces/int_spec.h
deleted file mode 100644
index 77ab55e..0000000
--- a/src/c/matrixOperations/interfaces/int_spec.h
+++ /dev/null
@@ -1,71 +0,0 @@
-/*
- * 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
- *
- */
-
-/* THIS IS AN AUTOMATICALLY GENERATED FILE : DO NOT EDIT BY HAND. */
-
-#ifndef __INT_SPEC_H__
-#define __INT_SPEC_H__
-
-/* Only eigenvalues */
-
-#define s0specc0(in) FloatComplex (sspecs(in) , 0)
-
-#define d0specz0(in) DoubleComplex ( dspecs(in) , 0)
-
-#define c0specc0(in) cspecs(in)
-
-#define z0specz0(in) zspecs(in)
-
-#define s2specc2(in,size,out) {float* ZEROS;\
- ZEROS=malloc((uint)(size[0]*size[0]*sizeof(float)));\
- szerosa(ZEROS,size[0],size[0]);\
- cspeca(FloatComplexMatrix(in,ZEROS,size[0]*size[0]), size[0], out);\
- }
-
-#define d2specz2(in,size,out) {double* ZEROS;\
- ZEROS=malloc((uint)(size[0]*size[0]*sizeof(double)));\
- dzerosa(ZEROS,size[0],size[0]);\
- zspeca(DoubleComplexMatrix(in,ZEROS,size[0]*size[0]), size[0] , out);\
- }
-
-#define c2specc2(in,size,out) cspeca(in, size[0], out)
-
-#define z2specz2(in,size,out) zspeca(in, size[0], out)
-
-/* Eigenvalues and eigenvectors */
-
-#define s0specc0c0(in,out) cspec2s(FloatComplex( in,0) ,out)
-
-#define d0specz0z0(in,out) zspec2s(DoubleComplex(in,0) ,out)
-
-#define c0specc0c0(in,out) cspec2s(in,out)
-
-#define z0specz0z0(in,out) zspec2s(in,out)
-
-#define s2specc2c2(in,size,out1,out2) {float* ZEROS;\
- ZEROS=malloc((uint)(size[0]*size[0]*sizeof(float)));\
- szerosa(ZEROS,size[0],size[0]);\
- cspec2a(FloatComplexMatrix(in,ZEROS,size[0]*size[0]), size[0] , out1 , out2 );\
- }
-
-#define d2specz2z2(in,size,out1,out2) {double* ZEROS;\
- ZEROS=malloc((uint)(size[0]*size[0]*sizeof(double)));\
- dzerosa(ZEROS,size[0],size[0]);\
- zspec2a(DoubleComplexMatrix(in,ZEROS,size[0]*size[0]), size[0] , out1 , out2 );\
- }
-
-
-#define c2specc2c2(in,size,out1,out2) cspec2a(in, size[0], out2, out1)
-
-#define z2specz2z2(in,size,out1,out2) zspec2a(in, size[0], out2, out1)
-
-#endif /* !__INT_SPEC_H__ */
diff --git a/src/c/matrixOperations/interfaces/int_toeplitz.h b/src/c/matrixOperations/interfaces/int_toeplitz.h
new file mode 100644
index 0000000..b602e9a
--- /dev/null
+++ b/src/c/matrixOperations/interfaces/int_toeplitz.h
@@ -0,0 +1,50 @@
+ /* Copyright (C) 2017 - IIT Bombay - FOSSEE
+
+ 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
+ Author: Brijesh Gupta C R
+ Organization: FOSSEE, IIT Bombay
+ Email: toolbox@scilab.in
+ */
+#ifndef __INT_TOEPLITZ_H__
+#define __INT_TOEPLITZ_H__
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+#define d2d2toeplitzd2(in1,size1,in2,size2,out) dtoeplitza(in1,size1[1],in2,size2[1],out)
+#define d2toeplitzd2(in1,size1,out) dtoeplitza(in1,size1[1],in1,size1[1],out)
+
+#define u82u82toeplitzu82(in1,size1,in2,size2,out) u8toeplitza(in1,size1[1],in2,size2[1],out)
+#define u82toeplitzu82(in1,size1,out) u8toeplitza(in1,size1[1],in1,size1[1],out)
+
+#define u162u162toeplitzu162(in1,size1,in2,size2,out) u16toeplitza(in1,size1[1],in2,size2[1],out)
+#define u162toeplitzu162(in1,size1,out) u16toeplitza(in1,size1[1],in1,size1[1],out)
+
+#define g2g2toeplitzg2(in1,size1,in2,size2,out) gtoeplitza(in1,size1[1],in2,size2[1],out)
+#define g2toeplitzg2(in1,size1,out) gtoeplitza(in1,size1[1],in1,size1[1],out)
+
+#define z2z2toeplitzz2(in1,size1,in2,size2,out) ztoeplitza(in1,size1[1],in2,size2[1],out)
+#define z2toeplitzz2(in1,size1,out) ztoeplitza(in1,size1[1],in1,size1[1],out)
+
+#define s2s2toeplitzs2(in1,size1,in2,size2,out) stoeplitza(in1,size1[1],in2,size2[1],out)
+#define s2toeplitzs2(in1,size1,out) stoeplitza(in1,size1[1],in1,size1[1],out)
+
+#define c2c2toeplitzc2(in1,size1,in2,size2,out) ctoeplitza(in1,size1[1],in2,size2[1],out)
+#define c2toeplitzc2(in1,size1,out) ctoeplitza(in1,size1[1],in1,size1[1],out)
+
+#define i82i82toeplitzi82(in1,size1,in2,size2,out) i8toeplitza(in1,size1[1],in2,size2[1],out)
+#define i82toeplitzi82(in1,size1,out) i8toeplitza(in1,size1[1],in1,size1[1],out)
+
+#define i162i162toeplitzi162(in1,size1,in2,size2,out) i16toeplitza(in1,size1[1],in2,size2[1],out)
+#define i162toeplitzi162(in1,size1,out) i16toeplitza(in1,size1[1],in1,size1[1],out)
+
+#ifdef __cplusplus
+} /* extern "C" */
+#endif
+
+#endif /*__INT_TOEPLITZ_H__*/