3 files changed, 55 insertions, 150 deletions
diff --git a/src/elementaryFunctions/includes/sqrt.h b/src/elementaryFunctions/includes/sqrt.h
deleted file mode 100644
index 01175948..00000000
--- a/src/elementaryFunctions/includes/sqrt.h
+++ /dev/null
@@ -1,79 +0,0 @@
-/*
-**  -*- C -*-
-**
-** sqrt.h
-** Made by  Bruno JOFRET <bruno.jofret@inria.fr>
-**
-** Started on  Thu Mar 22 08:54:39 2007 jofret
-** Last update Mon Oct 22 10:02:53 2007 bruno
-**
-** Copyright INRIA 2007
-*/
-
-#ifndef __SQRT_H__
-#define __SQRT_H__
-
-#include "floatComplex.h"
-#include "doubleComplex.h"
-
-/*
-** Compute Square Root for different types .
-*/
-
-/*
-** \brief Float Square Root function
-** \param in : input value.
-*/
-float		ssqrts(float in);
-
-/*
-** \brief Double Square Root function
-** \param in : input value.
-*/
-double		dsqrts(double in);
-
-/*
-** \brief Float Complex Square Root function
-** \param in : input value.
-*/
-floatComplex	csqrts(floatComplex in);
-
-/*
-** \brief Double Complex Square Root function
-** \param in : input value.
-*/
-doubleComplex	zsqrts(doubleComplex in);
-
-/*
-** \brief Float Matrix Square Root function
-** \param in : input array value.
-** \param out : output array value.
-** \param size : the size of in and out arrays.
-*/
-void		ssqrta(float* in, int size, float* out);
-
-/*
-** \brief Double Matrix Square Root function
-** \param in : input array value.
-** \param out : output array value.
-** \param size : the size of in and out arrays.
-*/
-void		dsqrta(double* in, int size, double* out);
-
-/*
-** \brief Float Complex Matrix Square Root function
-** \param in : input array value.
-** \param out : output array value.
-** \param size : the size of in and out arrays.
-*/
-void		csqrta(floatComplex* in, int size, floatComplex* out);
-
-/*
-** \brief Double Complex Matrix Square Root function
-** \param in : input array value.
-** \param out : output array value.
-** \param size : the size of in and out arrays.
-*/
-void		zsqrta(doubleComplex* in, int size, doubleComplex* out);
-
-#endif /* !__SQRT_H__ */
diff --git a/src/elementaryFunctions/interfaces/int_exp.h b/src/elementaryFunctions/interfaces/int_exp.h
new file mode 100644
index 00000000..7998e015
--- /dev/null
+++ b/src/elementaryFunctions/interfaces/int_exp.h
@@ -0,0 +1,55 @@
+/*
+**  -*- C -*-
+**
+** int_sqrt.h
+** Made by  Raffaele Nutricato <raffaele.nutricato@tiscali.it>
+**
+**
+** Copyright POLIBA 2008
+*/
+/* 
+   1. Search for exp in INIT_FillSCI2LibCDirs.sci
+   2. Search for // --- Function List Class. --- in INIT_FillSCI2LibCDirs.sci
+   3. You will find 
+      PrintStringInfo('s0'+ArgSeparator+'s0',ClassFileName,'file','y');
+      PrintStringInfo('d0'+ArgSeparator+'d0',ClassFileName,'file','y');
+      PrintStringInfo('c0'+ArgSeparator+'c0',ClassFileName,'file','y');
+      PrintStringInfo('z0'+ArgSeparator+'z0',ClassFileName,'file','y');
+      PrintStringInfo('s2'+ArgSeparator+'s2',ClassFileName,'file','y');
+      PrintStringInfo('d2'+ArgSeparator+'d2',ClassFileName,'file','y');
+      PrintStringInfo('c2'+ArgSeparator+'c2',ClassFileName,'file','y');
+      PrintStringInfo('z2'+ArgSeparator+'z2',ClassFileName,'file','y');
+   4. These are all the functions to be implemented.
+   5. According to functions available in src you have to generate the mapping between
+      functions in step3 and functions in src.
+*/
+
+#ifndef __INT_EXP_H__
+#define __INT_EXP_H__
+
+
+#define s0exps0(in) \
+sexps(in)
+
+#define d0expd0(in) \
+dexps(in)
+
+#define c0expc0(in) \
+cexps(in)
+
+#define z0expz0(in) \
+zexps(in)
+
+#define s2exps2(inptr,insizeptr,outptr) \
+sexpa(inptr, insizeptr[0]*insizeptr[1], outptr)
+
+#define d2expd2(inptr,insizeptr,outptr) \
+dexpa(inptr, insizeptr[0]*insizeptr[1], outptr)
+
+#define c2expc2(inptr,insizeptr,outptr) \
+cexpa(inptr, insizeptr[0]*insizeptr[1], outptr)
+
+#define z2expz2(inptr,insizeptr,outptr) \
+zexpa(inptr, insizeptr[0]*insizeptr[1], outptr)
+
+#endif /* !__INT_EXP_H__ */
diff --git a/src/elementaryFunctions/interfaces/int_sqrt.h b/src/elementaryFunctions/interfaces/int_sqrt.h
deleted file mode 100644
index 99376a28..00000000
--- a/src/elementaryFunctions/interfaces/int_sqrt.h
+++ /dev/null
@@ -1,71 +0,0 @@
-/*
-**  -*- C -*-
-**
-** int_sqrt.h
-** Made by  Raffaele Nutricato <raffaele.nutricato@tiscali.it>
-**
-**
-** Copyright POLIBA 2008
-*/
-/* 
-   1. Search for sqrt in INIT_FillSCI2LibCDirs.sci
-   2. Search for // --- Function List Class. --- in INIT_FillSCI2LibCDirs.sci
-   3. You will find 
-      PrintStringInfo('s0'+ArgSeparator+'s0',ClassFileName,'file','y');
-      PrintStringInfo('s0'+ArgSeparator+'c0',ClassFileName,'file','y');
-      PrintStringInfo('d0'+ArgSeparator+'d0',ClassFileName,'file','y');
-      PrintStringInfo('d0'+ArgSeparator+'z0',ClassFileName,'file','y');
-      PrintStringInfo('c0'+ArgSeparator+'c0',ClassFileName,'file','y');
-      PrintStringInfo('z0'+ArgSeparator+'z0',ClassFileName,'file','y');
-      
-      PrintStringInfo('s2'+ArgSeparator+'s2',ClassFileName,'file','y');
-      PrintStringInfo('s2'+ArgSeparator+'c2',ClassFileName,'file','y');
-      PrintStringInfo('d2'+ArgSeparator+'d2',ClassFileName,'file','y');
-      PrintStringInfo('d2'+ArgSeparator+'z2',ClassFileName,'file','y');
-      PrintStringInfo('c2'+ArgSeparator+'c2',ClassFileName,'file','y');
-      PrintStringInfo('z2'+ArgSeparator+'z2',ClassFileName,'file','y');
-   4. These are all the functions to be implemented.
-   5. According to functions available in src you have to generate the mapping between
-      functions in step3 and functions in src.
-*/
-
-#ifndef __INT_SQRT_H__
-#define __INT_SQRT_H__
-
-#define s0sqrts0(in) \
-ssqrts(in)
-
-#define s0sqrtc0(in) \
-/* BRUNO IT IS NOT AVAILABLE, PLEASE IMPLEMENT IT */
-
-#define d0sqrtd0(in) \
-dsqrts(in)
-
-#define d0sqrtz0(in) \
-/* BRUNO IT IS NOT AVAILABLE, PLEASE IMPLEMENT IT */
-
-#define c0sqrtc0(in) \
-csqrts(in)
-
-#define z0sqrtz0(in) \
-zsqrts(in)
-
-#define s2sqrts2(inptr,insize,outptr) \
-ssqrta(inptr, insize[0]*insize[1], outptr)
-
-#define s2sqrtc2(inptr,insize,outptr) \
-/* BRUNO IT IS NOT AVAILABLE, PLEASE IMPLEMENT IT */
-
-#define d2sqrtd2(inptr,insizeptr,outptr) \
-dsqrta(inptr, insize[0]*insize[1], outptr)
-
-#define d2sqrtz2(inptr,insize,outptr) \
-/* BRUNO IT IS NOT AVAILABLE, PLEASE IMPLEMENT IT */
-
-#define c2sqrtc2(inptr,insizeptr,outptr) \
-csqrta(inptr, insize[0]*insize[1], outptr)
-
-#define z2sqrtz2(inptr,insizeptr,outptr) \
-zsqrta(inptr, insize[0]*insize[1], outptr)
-
-#endif /* !__INT_SQRT_H__ */