2 files changed, 125 insertions, 0 deletions
diff --git a/src/auxiliaryFunctions/interfaces/int_abs.h b/src/auxiliaryFunctions/interfaces/int_abs.h
new file mode 100644
index 00000000..cb097f95
--- /dev/null
+++ b/src/auxiliaryFunctions/interfaces/int_abs.h
@@ -0,0 +1,54 @@
+/*
+**  -*- C -*-
+**
+** int_sqrt.h
+** Made by  Raffaele Nutricato <raffaele.nutricato@tiscali.it>
+**
+**
+** Copyright POLIBA 2008
+*/
+/* 
+   1. Search for abs 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+'s0',ClassFileName,'file','y');
+      PrintStringInfo('z0'+ArgSeparator+'d0',ClassFileName,'file','y');
+      PrintStringInfo('s2'+ArgSeparator+'s2',ClassFileName,'file','y');
+      PrintStringInfo('d2'+ArgSeparator+'d2',ClassFileName,'file','y');
+      PrintStringInfo('c2'+ArgSeparator+'s2',ClassFileName,'file','y');
+      PrintStringInfo('z2'+ArgSeparator+'d2',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_ABS_H__
+#define __INT_ABS_H__
+
+#define s0abss0(in) \
+sabss(in);
+
+#define d0absd0(in) \
+dabss(in);
+
+#define c0abss0(in) \
+cabss(in);
+
+#define z0absd0(in) \
+zabss(in);
+
+#define s2abss2(inptr,insizeptr,outptr) \
+sabsa(inptr, insizeptr[0]*insizeptr[1], outptr);
+
+#define d2absd2(inptr,insizeptr,outptr) \
+dabsa(inptr, insizeptr[0]*insizeptr[1], outptr);
+
+#define c2abss2(inptr,insizeptr,outptr) \
+cabsa(inptr, insizeptr[0]*insizeptr[1], outptr);
+
+#define z2absd2(inptr,insizeptr,outptr) \
+zabsa(inptr, insizeptr[0]*insizeptr[1], outptr);
+
+#endif /* !__INT_ABS_H__ */
diff --git a/src/auxiliaryFunctions/interfaces/int_sqrt.h b/src/auxiliaryFunctions/interfaces/int_sqrt.h
new file mode 100644
index 00000000..e8bd7e97
--- /dev/null
+++ b/src/auxiliaryFunctions/interfaces/int_sqrt.h
@@ -0,0 +1,71 @@
+/*
+**  -*- 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,insizeptr,outptr) \
+ssqrta(inptr, insizeptr[0]*insizeptr[1], outptr)
+
+#define s2sqrtc2(inptr,insizeptr,outptr) \
+/* BRUNO IT IS NOT AVAILABLE, PLEASE IMPLEMENT IT */
+
+#define d2sqrtd2(inptr,insizeptr,outptr) \
+dsqrta(inptr, insizeptr[0]*insizeptr[1], outptr)
+
+#define d2sqrtz2(inptr,insizeptr,outptr) \
+/* BRUNO IT IS NOT AVAILABLE, PLEASE IMPLEMENT IT */
+
+#define c2sqrtc2(inptr,insizeptr,outptr) \
+csqrta(inptr, insizeptr[0]*insizeptr[1], outptr)
+
+#define z2sqrtz2(inptr,insizeptr,outptr) \
+zsqrta(inptr, insizeptr[0]*insizeptr[1], outptr)
+
+#endif /* !__INT_SQRT_H__ */