1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
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__ */
|
