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
72
|
/*
* 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
*
*/
/* ADDED BY NUTRICATO, BUT WAITING FOR THE AUTOMATIC GENERATION OF IT
AS SHOWN BELOW MANY CASES ARE MISSING. SCALAR RANDOM GENERATOR NOT
IMPLEMENTED YET, SEE DRANDS.C
*/
#ifndef __INT_SIZE_H__
#define __INT_SIZE_H__
#define s0sizes2(in,out) out[0]=1.0f;out[1]=1.0f;
#define d0sized2(in,out) out[0]=1.0;out[1]=1.0;
#define c0sizes2(in,out) out[0]=1.0f;out[1]=1.0f;
#define z0sized2(in,out) out[0]=1.0;out[1]=1.0;
#define s2sizes2(in,size,out) out[0]=size[0];out[1]=size[1];
#define d2sized2(in,size,out) out[0]=size[0];out[1]=size[1];
#define c2sizes2(in,size,out) out[0]=size[0];out[1]=size[1];
#define z2sized2(in,size,out) out[0]=size[0];out[1]=size[1];
#define s0sizes0s0(in,out1,out2) out1=1.0f;out2=1.0f;
#define d0sized0d0(in,out1,out2) out1=1.0;out2=1.0;
#define c0sizes0s0(in,out1,out2) out1=1.0f;out2=1.0f;
#define z0sized0d0(in,out1,out2) out1=1.0;out2=1.0;
#define s2sizes0s0(in,size,out1,out2) out1=size[0];out2=size[1];
#define d2sized0d0(in,size,out1,out2) out1=size[0];out2=size[1];
#define c2sizes0s0(in,size,out1,out2) out1=size[0];out2=size[1];
#define z2sized0d0(in,size,out1,out2) out1=size[0];out2=size[1];
#define s0s0sizes0(in1,in2) 1.0f
#define d0d0sized0(in1,in2) 1.
#define c0s0sizes0(in1,in2) 1.0f
#define z0d0sized0(in1,in2) 1.
#define s2s0sizes0(in1,size,in2) (in2==1) ? size[0] : size[1]
#define d2d0sized0(in1,size,in2) (in2==1) ? size[0] : size[1]
#define c2s0sizes0(in1,size,in2) (in2==1) ? size[0] : size[1]
#define z2d0sized0(in1,size,in2) (in2==1) ? size[0] : size[1]
#define d2g2sized0(in1,size1,in2,size2) dallsizea(size1, in2)
#endif /* !__INT_SIZE_H__ */
|
