summaryrefslogtreecommitdiff
path: root/interfaces/int_length.h
diff options
context:
space:
mode:
Diffstat (limited to 'interfaces/int_length.h')
-rw-r--r--interfaces/int_length.h70
1 files changed, 0 insertions, 70 deletions
diff --git a/interfaces/int_length.h b/interfaces/int_length.h
deleted file mode 100644
index fe84a92..0000000
--- a/interfaces/int_length.h
+++ /dev/null
@@ -1,70 +0,0 @@
-/*
-** -*- C -*-
-**
-** int_length.h
-** Made by Raffaele Nutricato <raffaele.nutricato@tiscali.it>
-**
-**
-** Copyright POLIBA 2008
-*/
-/*
- 1. Search for length 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('g0'+ArgSeparator+'s0',ClassFileName,'file','y');
- PrintStringInfo('g0'+ArgSeparator+'d0',ClassFileName,'file','y');
-
- PrintStringInfo('s2'+ArgSeparator+'s0',ClassFileName,'file','y');
- PrintStringInfo('d2'+ArgSeparator+'d0',ClassFileName,'file','y');
- PrintStringInfo('c2'+ArgSeparator+'s0',ClassFileName,'file','y');
- PrintStringInfo('z2'+ArgSeparator+'d0',ClassFileName,'file','y');
- PrintStringInfo('g2'+ArgSeparator+'s0',ClassFileName,'file','y');
- PrintStringInfo('g2'+ArgSeparator+'d0',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_LENGTH_H__
-#define __INT_LENGTH_H__
-
-#define s0lengths0(in) \
-slengths(in)
-
-#define d0lengthd0(in) \
-dlengths(in)
-
-#define c0lengths0(in) \
-clengths(in)
-
-#define z0lengthd0(in) \
-zlengths(in)
-
-#define g0lengths0(in) \
-slengths(in)
-
-#define g0lengthd0(in) \
-dlengths(in)
-
-#define s2lengths0(inptr,insizeptr) \
-slengtha(inptr, insizeptr[0]*insizeptr[1])
-
-#define d2lengthd0(inptr,insizeptr) \
-dlengtha(inptr, insizeptr[0]*insizeptr[1])
-
-#define c2lengths0(inptr,insizeptr) \
-clengtha(inptr, insizeptr[0]*insizeptr[1])
-
-#define z2lengthd0(inptr,insizeptr) \
-zlengtha(inptr, insizeptr[0]*insizeptr[1])
-
-#define g2lengths0(inptr,insizeptr) \
-slengtha(inptr, insizeptr[0]*insizeptr[1])
-
-#define g2lengthd0(inptr,insizeptr) \
-dlengtha(inptr, insizeptr[0]*insizeptr[1])
-#endif /* !__INT_LENGTH_H__ */