File Coverage

pp-Cmstack.c
Criterion Covered Total %
statement 39 219 17.8
branch 38 1166 3.2
condition n/a
subroutine n/a
pod n/a
total 77 1385 5.5


line stmt bran cond sub pod time code
1              
2             #line 453 "lib/PDL/PP.pm"
3             /*
4             * THIS FILE WAS GENERATED BY PDL::PP from complex.pd! Do not modify!
5             */
6              
7             #define PDL_FREE_CODE(trans, destroy, comp_free_code, ntpriv_free_code) \
8             if (destroy) { \
9             comp_free_code \
10             } \
11             if ((trans)->dims_redone) { \
12             ntpriv_free_code \
13             }
14              
15             #include "EXTERN.h"
16             #include "perl.h"
17             #include "XSUB.h"
18             #include "pdl.h"
19             #include "pdlcore.h"
20             #define PDL PDL_Complex
21             extern Core* PDL; /* Structure hold core C functions */
22             #line 23 "pp-Cmstack.c"
23              
24             #include
25              
26             #ifndef M_PI
27             # define M_PI 3.1415926535897932384626433832795029
28             #endif
29             #ifndef M_2PI
30             # define M_2PI (2. * M_PI)
31             #endif
32              
33             #if __GLIBC__ > 1 && (defined __USE_MISC || defined __USE_XOPEN || defined __USE_ISOC9X)
34             # define CABS(r,i) hypot (r, i)
35             #else
36             static double
37             CABS (double r, double i)
38             {
39             double t;
40              
41             if (r < 0) r = - r;
42             if (i < 0) i = - i;
43              
44             if (i > r)
45             {
46             t = r; r = i; i = t;
47             }
48              
49             if (r + i == r)
50             return r;
51              
52             t = i / r;
53             return r * sqrt (1 + t*t);
54             }
55             #endif
56              
57             #if __GLIBC__ >= 2 && __GLIBC_MINOR__ >= 1 && defined __USE_GNU
58             # define SINCOS(x,s,c) sincos ((x), &(s), &(c))
59             #else
60             # define SINCOS(x,s,c) \
61             (s) = sin (x); \
62             (c) = cos (x);
63             #endif
64              
65              
66             #define CSQRT(type,ar,ai,cr,ci) \
67             type mag = CABS ((ar), (ai)); \
68             type t; \
69             \
70             if (mag == 0) \
71             (cr) = (ci) = 0; \
72             else if ((ar) > 0) \
73             { \
74             t = sqrt (0.5 * (mag + (ar))); \
75             (cr) = t; \
76             (ci) = 0.5 * (ai) / t; \
77             } \
78             else \
79             { \
80             t = sqrt (0.5 * (mag - (ar))); \
81             \
82             if ((ai) < 0) \
83             t = -t; \
84             \
85             (cr) = 0.5 * (ai) / t; \
86             (ci) = t; \
87             }
88              
89              
90             #define CLOG(ar,ai,cr,ci) \
91             (cr) = log (CABS ((ar), (ai))); \
92             (ci) = atan2 ((ai), (ar));
93              
94              
95             #line 1857 "lib/PDL/PP.pm"
96             pdl_error pdl_Cmstack_redodims(pdl_trans *__privtrans) {
97             pdl_error PDL_err = {0, NULL, 0};
98             #line 99 "pp-Cmstack.c"
99 2           __privtrans->ind_sizes[0] = 2;
100 2           __privtrans->ind_sizes[4] = __privtrans->ind_sizes[1]+__privtrans->ind_sizes[3];
101 2 50         PDL_RETERROR(PDL_err, PDL->redodims_default(__privtrans));
102 2           return PDL_err;
103             }
104              
105              
106             #line 1857 "lib/PDL/PP.pm"
107             pdl_error pdl_Cmstack_readdata(pdl_trans *__privtrans) {
108             pdl_error PDL_err = {0, NULL, 0};
109             #line 110 "pp-Cmstack.c"
110 1           register PDL_Indx __c_size = __privtrans->ind_sizes[0];
111 1           register PDL_Indx __m_size = __privtrans->ind_sizes[1];
112 1           register PDL_Indx __n_size = __privtrans->ind_sizes[2];
113 1           register PDL_Indx __q_size = __privtrans->ind_sizes[4];
114 1 50         if (!__privtrans->broadcast.incs) return PDL->make_error(PDL_EUSERERROR, "Error in Cmstack:" "broadcast.incs NULL");
115             /* broadcastloop declarations */
116             int __brcloopval;
117             register PDL_Indx __tind0,__tind1; /* counters along dim */
118 1           register PDL_Indx __tnpdls = __privtrans->broadcast.npdls;
119             /* dims here are how many steps along those dims */
120 1           register PDL_Indx __tinc0_x = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,0,0);
121 1           register PDL_Indx __tinc0_y = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,1,0);
122 1           register PDL_Indx __tinc0_out = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,2,0);
123 1           register PDL_Indx __tinc1_x = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,0,1);
124 1           register PDL_Indx __tinc1_y = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,1,1);
125 1           register PDL_Indx __tinc1_out = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,2,1);
126             #define PDL_BROADCASTLOOP_START_Cmstack_readdata PDL_BROADCASTLOOP_START( \
127             readdata, \
128             __privtrans->broadcast, \
129             __privtrans->vtable, \
130             x_datap += __offsp[0]; \
131             y_datap += __offsp[1]; \
132             out_datap += __offsp[2]; \
133             , \
134             ( ,x_datap += __tinc1_x - __tinc0_x * __tdims0 \
135             ,y_datap += __tinc1_y - __tinc0_y * __tdims0 \
136             ,out_datap += __tinc1_out - __tinc0_out * __tdims0 \
137             ), \
138             ( ,x_datap += __tinc0_x \
139             ,y_datap += __tinc0_y \
140             ,out_datap += __tinc0_out \
141             ) \
142             )
143             #define PDL_BROADCASTLOOP_END_Cmstack_readdata PDL_BROADCASTLOOP_END( \
144             __privtrans->broadcast, \
145             x_datap -= __tinc1_x * __tdims1 + __offsp[0]; \
146             y_datap -= __tinc1_y * __tdims1 + __offsp[1]; \
147             out_datap -= __tinc1_out * __tdims1 + __offsp[2]; \
148             )
149 1           register PDL_Indx __inc_out_c = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,2,0)]; (void)__inc_out_c;register PDL_Indx __inc_out_n = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,2,1)]; (void)__inc_out_n;register PDL_Indx __inc_out_q = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,2,2)]; (void)__inc_out_q;
150 1           register PDL_Indx __inc_x_c = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,0,0)]; (void)__inc_x_c;register PDL_Indx __inc_x_n = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,0,1)]; (void)__inc_x_n;register PDL_Indx __inc_x_m = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,0,2)]; (void)__inc_x_m;
151 1           register PDL_Indx __inc_y_c = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,1,0)]; (void)__inc_y_c;register PDL_Indx __inc_y_n = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,1,1)]; (void)__inc_y_n;register PDL_Indx __inc_y_p = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,1,2)]; (void)__inc_y_p;
152             #ifndef PDL_DECLARE_PARAMS_Cmstack_1
153             #define PDL_DECLARE_PARAMS_Cmstack_1(PDL_TYPE_OP,PDL_PPSYM_OP) \
154             PDL_DECLARE_PARAMETER(PDL_TYPE_OP, x, (__privtrans->pdls[0]), 1, PDL_PPSYM_OP) \
155             PDL_DECLARE_PARAMETER(PDL_TYPE_OP, y, (__privtrans->pdls[1]), 1, PDL_PPSYM_OP) \
156             PDL_DECLARE_PARAMETER(PDL_TYPE_OP, out, (__privtrans->pdls[2]), 1, PDL_PPSYM_OP)
157             #endif
158             #define PDL_IF_BAD(t,f) f
159 1           switch (__privtrans->__datatype) { /* Start generic switch */
160 0           case PDL_SB: {
161 0 0         PDL_DECLARE_PARAMS_Cmstack_1(PDL_SByte,A)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
162 0 0         PDL_BROADCASTLOOP_START_Cmstack_readdata {
    0          
    0          
    0          
    0          
    0          
    0          
163 0 0         {/* Open m */ PDL_EXPAND2(register PDL_Indx m=0, __m_stop=(__m_size)); for(; m<__m_stop; m+=1) {{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {{/* Open c */ PDL_EXPAND2(register PDL_Indx c=0, __c_stop=(__c_size)); for(; c<__c_stop; c+=1) { (out_datap)[0+(__inc_out_c*(c))+(__inc_out_n*(n))+(__inc_out_q*(m))] = (x_datap)[0+(__inc_x_c*(c))+(__inc_x_n*(n))+(__inc_x_m*(m))]; }} /* Close m */}} /* Close n */}} /* Close c */
    0          
    0          
164 0 0         {/* Open q=__privtrans->ind_sizes[1] */ PDL_EXPAND2(register PDL_Indx q=PDLMAX((__privtrans->ind_sizes[1]),0), __q_stop=(__q_size)); for(; q<__q_stop; q+=1) {{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {{/* Open c */ PDL_EXPAND2(register PDL_Indx c=0, __c_stop=(__c_size)); for(; c<__c_stop; c+=1) { (out_datap)[0+(__inc_out_c*(c))+(__inc_out_n*(n))+(__inc_out_q*(q))] = (y_datap)[0+(__inc_y_c*(c))+(__inc_y_n*(n))+(__inc_y_p*(q-__privtrans->ind_sizes[1]))]; }} /* Close q=__privtrans->ind_sizes[1] */}} /* Close n */}} /* Close c */
    0          
    0          
165 0 0         }PDL_BROADCASTLOOP_END_Cmstack_readdata
    0          
166 0           } break;
167 0           case PDL_B: {
168 0 0         PDL_DECLARE_PARAMS_Cmstack_1(PDL_Byte,B)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
169 0 0         PDL_BROADCASTLOOP_START_Cmstack_readdata {
    0          
    0          
    0          
    0          
    0          
    0          
170 0 0         {/* Open m */ PDL_EXPAND2(register PDL_Indx m=0, __m_stop=(__m_size)); for(; m<__m_stop; m+=1) {{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {{/* Open c */ PDL_EXPAND2(register PDL_Indx c=0, __c_stop=(__c_size)); for(; c<__c_stop; c+=1) { (out_datap)[0+(__inc_out_c*(c))+(__inc_out_n*(n))+(__inc_out_q*(m))] = (x_datap)[0+(__inc_x_c*(c))+(__inc_x_n*(n))+(__inc_x_m*(m))]; }} /* Close m */}} /* Close n */}} /* Close c */
    0          
    0          
171 0 0         {/* Open q=__privtrans->ind_sizes[1] */ PDL_EXPAND2(register PDL_Indx q=PDLMAX((__privtrans->ind_sizes[1]),0), __q_stop=(__q_size)); for(; q<__q_stop; q+=1) {{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {{/* Open c */ PDL_EXPAND2(register PDL_Indx c=0, __c_stop=(__c_size)); for(; c<__c_stop; c+=1) { (out_datap)[0+(__inc_out_c*(c))+(__inc_out_n*(n))+(__inc_out_q*(q))] = (y_datap)[0+(__inc_y_c*(c))+(__inc_y_n*(n))+(__inc_y_p*(q-__privtrans->ind_sizes[1]))]; }} /* Close q=__privtrans->ind_sizes[1] */}} /* Close n */}} /* Close c */
    0          
    0          
172 0 0         }PDL_BROADCASTLOOP_END_Cmstack_readdata
    0          
173 0           } break;
174 0           case PDL_S: {
175 0 0         PDL_DECLARE_PARAMS_Cmstack_1(PDL_Short,S)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
176 0 0         PDL_BROADCASTLOOP_START_Cmstack_readdata {
    0          
    0          
    0          
    0          
    0          
    0          
177 0 0         {/* Open m */ PDL_EXPAND2(register PDL_Indx m=0, __m_stop=(__m_size)); for(; m<__m_stop; m+=1) {{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {{/* Open c */ PDL_EXPAND2(register PDL_Indx c=0, __c_stop=(__c_size)); for(; c<__c_stop; c+=1) { (out_datap)[0+(__inc_out_c*(c))+(__inc_out_n*(n))+(__inc_out_q*(m))] = (x_datap)[0+(__inc_x_c*(c))+(__inc_x_n*(n))+(__inc_x_m*(m))]; }} /* Close m */}} /* Close n */}} /* Close c */
    0          
    0          
178 0 0         {/* Open q=__privtrans->ind_sizes[1] */ PDL_EXPAND2(register PDL_Indx q=PDLMAX((__privtrans->ind_sizes[1]),0), __q_stop=(__q_size)); for(; q<__q_stop; q+=1) {{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {{/* Open c */ PDL_EXPAND2(register PDL_Indx c=0, __c_stop=(__c_size)); for(; c<__c_stop; c+=1) { (out_datap)[0+(__inc_out_c*(c))+(__inc_out_n*(n))+(__inc_out_q*(q))] = (y_datap)[0+(__inc_y_c*(c))+(__inc_y_n*(n))+(__inc_y_p*(q-__privtrans->ind_sizes[1]))]; }} /* Close q=__privtrans->ind_sizes[1] */}} /* Close n */}} /* Close c */
    0          
    0          
179 0 0         }PDL_BROADCASTLOOP_END_Cmstack_readdata
    0          
180 0           } break;
181 0           case PDL_US: {
182 0 0         PDL_DECLARE_PARAMS_Cmstack_1(PDL_Ushort,U)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
183 0 0         PDL_BROADCASTLOOP_START_Cmstack_readdata {
    0          
    0          
    0          
    0          
    0          
    0          
184 0 0         {/* Open m */ PDL_EXPAND2(register PDL_Indx m=0, __m_stop=(__m_size)); for(; m<__m_stop; m+=1) {{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {{/* Open c */ PDL_EXPAND2(register PDL_Indx c=0, __c_stop=(__c_size)); for(; c<__c_stop; c+=1) { (out_datap)[0+(__inc_out_c*(c))+(__inc_out_n*(n))+(__inc_out_q*(m))] = (x_datap)[0+(__inc_x_c*(c))+(__inc_x_n*(n))+(__inc_x_m*(m))]; }} /* Close m */}} /* Close n */}} /* Close c */
    0          
    0          
185 0 0         {/* Open q=__privtrans->ind_sizes[1] */ PDL_EXPAND2(register PDL_Indx q=PDLMAX((__privtrans->ind_sizes[1]),0), __q_stop=(__q_size)); for(; q<__q_stop; q+=1) {{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {{/* Open c */ PDL_EXPAND2(register PDL_Indx c=0, __c_stop=(__c_size)); for(; c<__c_stop; c+=1) { (out_datap)[0+(__inc_out_c*(c))+(__inc_out_n*(n))+(__inc_out_q*(q))] = (y_datap)[0+(__inc_y_c*(c))+(__inc_y_n*(n))+(__inc_y_p*(q-__privtrans->ind_sizes[1]))]; }} /* Close q=__privtrans->ind_sizes[1] */}} /* Close n */}} /* Close c */
    0          
    0          
186 0 0         }PDL_BROADCASTLOOP_END_Cmstack_readdata
    0          
187 0           } break;
188 0           case PDL_L: {
189 0 0         PDL_DECLARE_PARAMS_Cmstack_1(PDL_Long,L)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
190 0 0         PDL_BROADCASTLOOP_START_Cmstack_readdata {
    0          
    0          
    0          
    0          
    0          
    0          
191 0 0         {/* Open m */ PDL_EXPAND2(register PDL_Indx m=0, __m_stop=(__m_size)); for(; m<__m_stop; m+=1) {{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {{/* Open c */ PDL_EXPAND2(register PDL_Indx c=0, __c_stop=(__c_size)); for(; c<__c_stop; c+=1) { (out_datap)[0+(__inc_out_c*(c))+(__inc_out_n*(n))+(__inc_out_q*(m))] = (x_datap)[0+(__inc_x_c*(c))+(__inc_x_n*(n))+(__inc_x_m*(m))]; }} /* Close m */}} /* Close n */}} /* Close c */
    0          
    0          
192 0 0         {/* Open q=__privtrans->ind_sizes[1] */ PDL_EXPAND2(register PDL_Indx q=PDLMAX((__privtrans->ind_sizes[1]),0), __q_stop=(__q_size)); for(; q<__q_stop; q+=1) {{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {{/* Open c */ PDL_EXPAND2(register PDL_Indx c=0, __c_stop=(__c_size)); for(; c<__c_stop; c+=1) { (out_datap)[0+(__inc_out_c*(c))+(__inc_out_n*(n))+(__inc_out_q*(q))] = (y_datap)[0+(__inc_y_c*(c))+(__inc_y_n*(n))+(__inc_y_p*(q-__privtrans->ind_sizes[1]))]; }} /* Close q=__privtrans->ind_sizes[1] */}} /* Close n */}} /* Close c */
    0          
    0          
193 0 0         }PDL_BROADCASTLOOP_END_Cmstack_readdata
    0          
194 0           } break;
195 0           case PDL_UL: {
196 0 0         PDL_DECLARE_PARAMS_Cmstack_1(PDL_ULong,K)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
197 0 0         PDL_BROADCASTLOOP_START_Cmstack_readdata {
    0          
    0          
    0          
    0          
    0          
    0          
198 0 0         {/* Open m */ PDL_EXPAND2(register PDL_Indx m=0, __m_stop=(__m_size)); for(; m<__m_stop; m+=1) {{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {{/* Open c */ PDL_EXPAND2(register PDL_Indx c=0, __c_stop=(__c_size)); for(; c<__c_stop; c+=1) { (out_datap)[0+(__inc_out_c*(c))+(__inc_out_n*(n))+(__inc_out_q*(m))] = (x_datap)[0+(__inc_x_c*(c))+(__inc_x_n*(n))+(__inc_x_m*(m))]; }} /* Close m */}} /* Close n */}} /* Close c */
    0          
    0          
199 0 0         {/* Open q=__privtrans->ind_sizes[1] */ PDL_EXPAND2(register PDL_Indx q=PDLMAX((__privtrans->ind_sizes[1]),0), __q_stop=(__q_size)); for(; q<__q_stop; q+=1) {{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {{/* Open c */ PDL_EXPAND2(register PDL_Indx c=0, __c_stop=(__c_size)); for(; c<__c_stop; c+=1) { (out_datap)[0+(__inc_out_c*(c))+(__inc_out_n*(n))+(__inc_out_q*(q))] = (y_datap)[0+(__inc_y_c*(c))+(__inc_y_n*(n))+(__inc_y_p*(q-__privtrans->ind_sizes[1]))]; }} /* Close q=__privtrans->ind_sizes[1] */}} /* Close n */}} /* Close c */
    0          
    0          
200 0 0         }PDL_BROADCASTLOOP_END_Cmstack_readdata
    0          
201 0           } break;
202 0           case PDL_IND: {
203 0 0         PDL_DECLARE_PARAMS_Cmstack_1(PDL_Indx,N)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
204 0 0         PDL_BROADCASTLOOP_START_Cmstack_readdata {
    0          
    0          
    0          
    0          
    0          
    0          
205 0 0         {/* Open m */ PDL_EXPAND2(register PDL_Indx m=0, __m_stop=(__m_size)); for(; m<__m_stop; m+=1) {{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {{/* Open c */ PDL_EXPAND2(register PDL_Indx c=0, __c_stop=(__c_size)); for(; c<__c_stop; c+=1) { (out_datap)[0+(__inc_out_c*(c))+(__inc_out_n*(n))+(__inc_out_q*(m))] = (x_datap)[0+(__inc_x_c*(c))+(__inc_x_n*(n))+(__inc_x_m*(m))]; }} /* Close m */}} /* Close n */}} /* Close c */
    0          
    0          
206 0 0         {/* Open q=__privtrans->ind_sizes[1] */ PDL_EXPAND2(register PDL_Indx q=PDLMAX((__privtrans->ind_sizes[1]),0), __q_stop=(__q_size)); for(; q<__q_stop; q+=1) {{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {{/* Open c */ PDL_EXPAND2(register PDL_Indx c=0, __c_stop=(__c_size)); for(; c<__c_stop; c+=1) { (out_datap)[0+(__inc_out_c*(c))+(__inc_out_n*(n))+(__inc_out_q*(q))] = (y_datap)[0+(__inc_y_c*(c))+(__inc_y_n*(n))+(__inc_y_p*(q-__privtrans->ind_sizes[1]))]; }} /* Close q=__privtrans->ind_sizes[1] */}} /* Close n */}} /* Close c */
    0          
    0          
207 0 0         }PDL_BROADCASTLOOP_END_Cmstack_readdata
    0          
208 0           } break;
209 0           case PDL_ULL: {
210 0 0         PDL_DECLARE_PARAMS_Cmstack_1(PDL_ULongLong,P)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
211 0 0         PDL_BROADCASTLOOP_START_Cmstack_readdata {
    0          
    0          
    0          
    0          
    0          
    0          
212 0 0         {/* Open m */ PDL_EXPAND2(register PDL_Indx m=0, __m_stop=(__m_size)); for(; m<__m_stop; m+=1) {{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {{/* Open c */ PDL_EXPAND2(register PDL_Indx c=0, __c_stop=(__c_size)); for(; c<__c_stop; c+=1) { (out_datap)[0+(__inc_out_c*(c))+(__inc_out_n*(n))+(__inc_out_q*(m))] = (x_datap)[0+(__inc_x_c*(c))+(__inc_x_n*(n))+(__inc_x_m*(m))]; }} /* Close m */}} /* Close n */}} /* Close c */
    0          
    0          
213 0 0         {/* Open q=__privtrans->ind_sizes[1] */ PDL_EXPAND2(register PDL_Indx q=PDLMAX((__privtrans->ind_sizes[1]),0), __q_stop=(__q_size)); for(; q<__q_stop; q+=1) {{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {{/* Open c */ PDL_EXPAND2(register PDL_Indx c=0, __c_stop=(__c_size)); for(; c<__c_stop; c+=1) { (out_datap)[0+(__inc_out_c*(c))+(__inc_out_n*(n))+(__inc_out_q*(q))] = (y_datap)[0+(__inc_y_c*(c))+(__inc_y_n*(n))+(__inc_y_p*(q-__privtrans->ind_sizes[1]))]; }} /* Close q=__privtrans->ind_sizes[1] */}} /* Close n */}} /* Close c */
    0          
    0          
214 0 0         }PDL_BROADCASTLOOP_END_Cmstack_readdata
    0          
215 0           } break;
216 0           case PDL_LL: {
217 0 0         PDL_DECLARE_PARAMS_Cmstack_1(PDL_LongLong,Q)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
218 0 0         PDL_BROADCASTLOOP_START_Cmstack_readdata {
    0          
    0          
    0          
    0          
    0          
    0          
219 0 0         {/* Open m */ PDL_EXPAND2(register PDL_Indx m=0, __m_stop=(__m_size)); for(; m<__m_stop; m+=1) {{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {{/* Open c */ PDL_EXPAND2(register PDL_Indx c=0, __c_stop=(__c_size)); for(; c<__c_stop; c+=1) { (out_datap)[0+(__inc_out_c*(c))+(__inc_out_n*(n))+(__inc_out_q*(m))] = (x_datap)[0+(__inc_x_c*(c))+(__inc_x_n*(n))+(__inc_x_m*(m))]; }} /* Close m */}} /* Close n */}} /* Close c */
    0          
    0          
220 0 0         {/* Open q=__privtrans->ind_sizes[1] */ PDL_EXPAND2(register PDL_Indx q=PDLMAX((__privtrans->ind_sizes[1]),0), __q_stop=(__q_size)); for(; q<__q_stop; q+=1) {{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {{/* Open c */ PDL_EXPAND2(register PDL_Indx c=0, __c_stop=(__c_size)); for(; c<__c_stop; c+=1) { (out_datap)[0+(__inc_out_c*(c))+(__inc_out_n*(n))+(__inc_out_q*(q))] = (y_datap)[0+(__inc_y_c*(c))+(__inc_y_n*(n))+(__inc_y_p*(q-__privtrans->ind_sizes[1]))]; }} /* Close q=__privtrans->ind_sizes[1] */}} /* Close n */}} /* Close c */
    0          
    0          
221 0 0         }PDL_BROADCASTLOOP_END_Cmstack_readdata
    0          
222 0           } break;
223 0           case PDL_F: {
224 0 0         PDL_DECLARE_PARAMS_Cmstack_1(PDL_Float,F)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
225 0 0         PDL_BROADCASTLOOP_START_Cmstack_readdata {
    0          
    0          
    0          
    0          
    0          
    0          
226 0 0         {/* Open m */ PDL_EXPAND2(register PDL_Indx m=0, __m_stop=(__m_size)); for(; m<__m_stop; m+=1) {{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {{/* Open c */ PDL_EXPAND2(register PDL_Indx c=0, __c_stop=(__c_size)); for(; c<__c_stop; c+=1) { (out_datap)[0+(__inc_out_c*(c))+(__inc_out_n*(n))+(__inc_out_q*(m))] = (x_datap)[0+(__inc_x_c*(c))+(__inc_x_n*(n))+(__inc_x_m*(m))]; }} /* Close m */}} /* Close n */}} /* Close c */
    0          
    0          
227 0 0         {/* Open q=__privtrans->ind_sizes[1] */ PDL_EXPAND2(register PDL_Indx q=PDLMAX((__privtrans->ind_sizes[1]),0), __q_stop=(__q_size)); for(; q<__q_stop; q+=1) {{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {{/* Open c */ PDL_EXPAND2(register PDL_Indx c=0, __c_stop=(__c_size)); for(; c<__c_stop; c+=1) { (out_datap)[0+(__inc_out_c*(c))+(__inc_out_n*(n))+(__inc_out_q*(q))] = (y_datap)[0+(__inc_y_c*(c))+(__inc_y_n*(n))+(__inc_y_p*(q-__privtrans->ind_sizes[1]))]; }} /* Close q=__privtrans->ind_sizes[1] */}} /* Close n */}} /* Close c */
    0          
    0          
228 0 0         }PDL_BROADCASTLOOP_END_Cmstack_readdata
    0          
229 0           } break;
230 1           case PDL_D: {
231 1 50         PDL_DECLARE_PARAMS_Cmstack_1(PDL_Double,D)
    50          
    50          
    50          
    50          
    50          
    50          
    50          
    50          
232 4 50         PDL_BROADCASTLOOP_START_Cmstack_readdata {
    50          
    50          
    50          
    50          
    100          
    100          
233 31 100         {/* Open m */ PDL_EXPAND2(register PDL_Indx m=0, __m_stop=(__m_size)); for(; m<__m_stop; m+=1) {{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {{/* Open c */ PDL_EXPAND2(register PDL_Indx c=0, __c_stop=(__c_size)); for(; c<__c_stop; c+=1) { (out_datap)[0+(__inc_out_c*(c))+(__inc_out_n*(n))+(__inc_out_q*(m))] = (x_datap)[0+(__inc_x_c*(c))+(__inc_x_n*(n))+(__inc_x_m*(m))]; }} /* Close m */}} /* Close n */}} /* Close c */
    100          
    100          
234 31 100         {/* Open q=__privtrans->ind_sizes[1] */ PDL_EXPAND2(register PDL_Indx q=PDLMAX((__privtrans->ind_sizes[1]),0), __q_stop=(__q_size)); for(; q<__q_stop; q+=1) {{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {{/* Open c */ PDL_EXPAND2(register PDL_Indx c=0, __c_stop=(__c_size)); for(; c<__c_stop; c+=1) { (out_datap)[0+(__inc_out_c*(c))+(__inc_out_n*(n))+(__inc_out_q*(q))] = (y_datap)[0+(__inc_y_c*(c))+(__inc_y_n*(n))+(__inc_y_p*(q-__privtrans->ind_sizes[1]))]; }} /* Close q=__privtrans->ind_sizes[1] */}} /* Close n */}} /* Close c */
    100          
    100          
235 1 50         }PDL_BROADCASTLOOP_END_Cmstack_readdata
    50          
236 1           } break;
237 0           case PDL_LD: {
238 0 0         PDL_DECLARE_PARAMS_Cmstack_1(PDL_LDouble,E)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
239 0 0         PDL_BROADCASTLOOP_START_Cmstack_readdata {
    0          
    0          
    0          
    0          
    0          
    0          
240 0 0         {/* Open m */ PDL_EXPAND2(register PDL_Indx m=0, __m_stop=(__m_size)); for(; m<__m_stop; m+=1) {{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {{/* Open c */ PDL_EXPAND2(register PDL_Indx c=0, __c_stop=(__c_size)); for(; c<__c_stop; c+=1) { (out_datap)[0+(__inc_out_c*(c))+(__inc_out_n*(n))+(__inc_out_q*(m))] = (x_datap)[0+(__inc_x_c*(c))+(__inc_x_n*(n))+(__inc_x_m*(m))]; }} /* Close m */}} /* Close n */}} /* Close c */
    0          
    0          
241 0 0         {/* Open q=__privtrans->ind_sizes[1] */ PDL_EXPAND2(register PDL_Indx q=PDLMAX((__privtrans->ind_sizes[1]),0), __q_stop=(__q_size)); for(; q<__q_stop; q+=1) {{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {{/* Open c */ PDL_EXPAND2(register PDL_Indx c=0, __c_stop=(__c_size)); for(; c<__c_stop; c+=1) { (out_datap)[0+(__inc_out_c*(c))+(__inc_out_n*(n))+(__inc_out_q*(q))] = (y_datap)[0+(__inc_y_c*(c))+(__inc_y_n*(n))+(__inc_y_p*(q-__privtrans->ind_sizes[1]))]; }} /* Close q=__privtrans->ind_sizes[1] */}} /* Close n */}} /* Close c */
    0          
    0          
242 0 0         }PDL_BROADCASTLOOP_END_Cmstack_readdata
    0          
243 0           } break;
244 0           default: return PDL->make_error(PDL_EUSERERROR, "PP INTERNAL ERROR in Cmstack: unhandled datatype(%d), only handles (ABSULKNPQFDE)! PLEASE MAKE A BUG REPORT\n", __privtrans->__datatype);
245             }
246             #undef PDL_IF_BAD
247 1           return PDL_err;
248             }
249              
250              
251             #line 1857 "lib/PDL/PP.pm"
252             pdl_error pdl_Cmstack_writebackdata(pdl_trans *__privtrans) {
253             pdl_error PDL_err = {0, NULL, 0};
254             #line 255 "pp-Cmstack.c"
255 0           register PDL_Indx __c_size = __privtrans->ind_sizes[0];
256 0           register PDL_Indx __m_size = __privtrans->ind_sizes[1];
257 0           register PDL_Indx __n_size = __privtrans->ind_sizes[2];
258 0           register PDL_Indx __q_size = __privtrans->ind_sizes[4];
259 0 0         if (!__privtrans->broadcast.incs) return PDL->make_error(PDL_EUSERERROR, "Error in Cmstack:" "broadcast.incs NULL");
260             /* broadcastloop declarations */
261             int __brcloopval;
262             register PDL_Indx __tind0,__tind1; /* counters along dim */
263 0           register PDL_Indx __tnpdls = __privtrans->broadcast.npdls;
264             /* dims here are how many steps along those dims */
265 0           register PDL_Indx __tinc0_x = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,0,0);
266 0           register PDL_Indx __tinc0_y = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,1,0);
267 0           register PDL_Indx __tinc0_out = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,2,0);
268 0           register PDL_Indx __tinc1_x = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,0,1);
269 0           register PDL_Indx __tinc1_y = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,1,1);
270 0           register PDL_Indx __tinc1_out = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,2,1);
271             #define PDL_BROADCASTLOOP_START_Cmstack_writebackdata PDL_BROADCASTLOOP_START( \
272             writebackdata, \
273             __privtrans->broadcast, \
274             __privtrans->vtable, \
275             x_datap += __offsp[0]; \
276             y_datap += __offsp[1]; \
277             out_datap += __offsp[2]; \
278             , \
279             ( ,x_datap += __tinc1_x - __tinc0_x * __tdims0 \
280             ,y_datap += __tinc1_y - __tinc0_y * __tdims0 \
281             ,out_datap += __tinc1_out - __tinc0_out * __tdims0 \
282             ), \
283             ( ,x_datap += __tinc0_x \
284             ,y_datap += __tinc0_y \
285             ,out_datap += __tinc0_out \
286             ) \
287             )
288             #define PDL_BROADCASTLOOP_END_Cmstack_writebackdata PDL_BROADCASTLOOP_END( \
289             __privtrans->broadcast, \
290             x_datap -= __tinc1_x * __tdims1 + __offsp[0]; \
291             y_datap -= __tinc1_y * __tdims1 + __offsp[1]; \
292             out_datap -= __tinc1_out * __tdims1 + __offsp[2]; \
293             )
294 0           register PDL_Indx __inc_out_c = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,2,0)]; (void)__inc_out_c;register PDL_Indx __inc_out_n = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,2,1)]; (void)__inc_out_n;register PDL_Indx __inc_out_q = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,2,2)]; (void)__inc_out_q;
295 0           register PDL_Indx __inc_x_c = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,0,0)]; (void)__inc_x_c;register PDL_Indx __inc_x_n = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,0,1)]; (void)__inc_x_n;register PDL_Indx __inc_x_m = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,0,2)]; (void)__inc_x_m;
296 0           register PDL_Indx __inc_y_c = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,1,0)]; (void)__inc_y_c;register PDL_Indx __inc_y_n = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,1,1)]; (void)__inc_y_n;register PDL_Indx __inc_y_p = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,1,2)]; (void)__inc_y_p;
297             #ifndef PDL_DECLARE_PARAMS_Cmstack_1
298             #define PDL_DECLARE_PARAMS_Cmstack_1(PDL_TYPE_OP,PDL_PPSYM_OP) \
299             PDL_DECLARE_PARAMETER(PDL_TYPE_OP, x, (__privtrans->pdls[0]), 1, PDL_PPSYM_OP) \
300             PDL_DECLARE_PARAMETER(PDL_TYPE_OP, y, (__privtrans->pdls[1]), 1, PDL_PPSYM_OP) \
301             PDL_DECLARE_PARAMETER(PDL_TYPE_OP, out, (__privtrans->pdls[2]), 1, PDL_PPSYM_OP)
302             #endif
303             #define PDL_IF_BAD(t,f) f
304 0           switch (__privtrans->__datatype) { /* Start generic switch */
305 0           case PDL_SB: {
306 0 0         PDL_DECLARE_PARAMS_Cmstack_1(PDL_SByte,A)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
307 0 0         PDL_BROADCASTLOOP_START_Cmstack_writebackdata {
    0          
    0          
    0          
    0          
    0          
    0          
308 0 0         {/* Open m */ PDL_EXPAND2(register PDL_Indx m=0, __m_stop=(__m_size)); for(; m<__m_stop; m+=1) {{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {{/* Open c */ PDL_EXPAND2(register PDL_Indx c=0, __c_stop=(__c_size)); for(; c<__c_stop; c+=1) { (x_datap)[0+(__inc_x_c*(c))+(__inc_x_n*(n))+(__inc_x_m*(m))] = (out_datap)[0+(__inc_out_c*(c))+(__inc_out_n*(n))+(__inc_out_q*(m))]; }} /* Close m */}} /* Close n */}} /* Close c */
    0          
    0          
309 0 0         {/* Open q=__privtrans->ind_sizes[1] */ PDL_EXPAND2(register PDL_Indx q=PDLMAX((__privtrans->ind_sizes[1]),0), __q_stop=(__q_size)); for(; q<__q_stop; q+=1) {{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {{/* Open c */ PDL_EXPAND2(register PDL_Indx c=0, __c_stop=(__c_size)); for(; c<__c_stop; c+=1) { (y_datap)[0+(__inc_y_c*(c))+(__inc_y_n*(n))+(__inc_y_p*(q-__privtrans->ind_sizes[1]))] = (out_datap)[0+(__inc_out_c*(c))+(__inc_out_n*(n))+(__inc_out_q*(q))]; }} /* Close q=__privtrans->ind_sizes[1] */}} /* Close n */}} /* Close c */
    0          
    0          
310 0 0         }PDL_BROADCASTLOOP_END_Cmstack_writebackdata
    0          
311 0           } break;
312 0           case PDL_B: {
313 0 0         PDL_DECLARE_PARAMS_Cmstack_1(PDL_Byte,B)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
314 0 0         PDL_BROADCASTLOOP_START_Cmstack_writebackdata {
    0          
    0          
    0          
    0          
    0          
    0          
315 0 0         {/* Open m */ PDL_EXPAND2(register PDL_Indx m=0, __m_stop=(__m_size)); for(; m<__m_stop; m+=1) {{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {{/* Open c */ PDL_EXPAND2(register PDL_Indx c=0, __c_stop=(__c_size)); for(; c<__c_stop; c+=1) { (x_datap)[0+(__inc_x_c*(c))+(__inc_x_n*(n))+(__inc_x_m*(m))] = (out_datap)[0+(__inc_out_c*(c))+(__inc_out_n*(n))+(__inc_out_q*(m))]; }} /* Close m */}} /* Close n */}} /* Close c */
    0          
    0          
316 0 0         {/* Open q=__privtrans->ind_sizes[1] */ PDL_EXPAND2(register PDL_Indx q=PDLMAX((__privtrans->ind_sizes[1]),0), __q_stop=(__q_size)); for(; q<__q_stop; q+=1) {{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {{/* Open c */ PDL_EXPAND2(register PDL_Indx c=0, __c_stop=(__c_size)); for(; c<__c_stop; c+=1) { (y_datap)[0+(__inc_y_c*(c))+(__inc_y_n*(n))+(__inc_y_p*(q-__privtrans->ind_sizes[1]))] = (out_datap)[0+(__inc_out_c*(c))+(__inc_out_n*(n))+(__inc_out_q*(q))]; }} /* Close q=__privtrans->ind_sizes[1] */}} /* Close n */}} /* Close c */
    0          
    0          
317 0 0         }PDL_BROADCASTLOOP_END_Cmstack_writebackdata
    0          
318 0           } break;
319 0           case PDL_S: {
320 0 0         PDL_DECLARE_PARAMS_Cmstack_1(PDL_Short,S)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
321 0 0         PDL_BROADCASTLOOP_START_Cmstack_writebackdata {
    0          
    0          
    0          
    0          
    0          
    0          
322 0 0         {/* Open m */ PDL_EXPAND2(register PDL_Indx m=0, __m_stop=(__m_size)); for(; m<__m_stop; m+=1) {{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {{/* Open c */ PDL_EXPAND2(register PDL_Indx c=0, __c_stop=(__c_size)); for(; c<__c_stop; c+=1) { (x_datap)[0+(__inc_x_c*(c))+(__inc_x_n*(n))+(__inc_x_m*(m))] = (out_datap)[0+(__inc_out_c*(c))+(__inc_out_n*(n))+(__inc_out_q*(m))]; }} /* Close m */}} /* Close n */}} /* Close c */
    0          
    0          
323 0 0         {/* Open q=__privtrans->ind_sizes[1] */ PDL_EXPAND2(register PDL_Indx q=PDLMAX((__privtrans->ind_sizes[1]),0), __q_stop=(__q_size)); for(; q<__q_stop; q+=1) {{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {{/* Open c */ PDL_EXPAND2(register PDL_Indx c=0, __c_stop=(__c_size)); for(; c<__c_stop; c+=1) { (y_datap)[0+(__inc_y_c*(c))+(__inc_y_n*(n))+(__inc_y_p*(q-__privtrans->ind_sizes[1]))] = (out_datap)[0+(__inc_out_c*(c))+(__inc_out_n*(n))+(__inc_out_q*(q))]; }} /* Close q=__privtrans->ind_sizes[1] */}} /* Close n */}} /* Close c */
    0          
    0          
324 0 0         }PDL_BROADCASTLOOP_END_Cmstack_writebackdata
    0          
325 0           } break;
326 0           case PDL_US: {
327 0 0         PDL_DECLARE_PARAMS_Cmstack_1(PDL_Ushort,U)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
328 0 0         PDL_BROADCASTLOOP_START_Cmstack_writebackdata {
    0          
    0          
    0          
    0          
    0          
    0          
329 0 0         {/* Open m */ PDL_EXPAND2(register PDL_Indx m=0, __m_stop=(__m_size)); for(; m<__m_stop; m+=1) {{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {{/* Open c */ PDL_EXPAND2(register PDL_Indx c=0, __c_stop=(__c_size)); for(; c<__c_stop; c+=1) { (x_datap)[0+(__inc_x_c*(c))+(__inc_x_n*(n))+(__inc_x_m*(m))] = (out_datap)[0+(__inc_out_c*(c))+(__inc_out_n*(n))+(__inc_out_q*(m))]; }} /* Close m */}} /* Close n */}} /* Close c */
    0          
    0          
330 0 0         {/* Open q=__privtrans->ind_sizes[1] */ PDL_EXPAND2(register PDL_Indx q=PDLMAX((__privtrans->ind_sizes[1]),0), __q_stop=(__q_size)); for(; q<__q_stop; q+=1) {{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {{/* Open c */ PDL_EXPAND2(register PDL_Indx c=0, __c_stop=(__c_size)); for(; c<__c_stop; c+=1) { (y_datap)[0+(__inc_y_c*(c))+(__inc_y_n*(n))+(__inc_y_p*(q-__privtrans->ind_sizes[1]))] = (out_datap)[0+(__inc_out_c*(c))+(__inc_out_n*(n))+(__inc_out_q*(q))]; }} /* Close q=__privtrans->ind_sizes[1] */}} /* Close n */}} /* Close c */
    0          
    0          
331 0 0         }PDL_BROADCASTLOOP_END_Cmstack_writebackdata
    0          
332 0           } break;
333 0           case PDL_L: {
334 0 0         PDL_DECLARE_PARAMS_Cmstack_1(PDL_Long,L)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
335 0 0         PDL_BROADCASTLOOP_START_Cmstack_writebackdata {
    0          
    0          
    0          
    0          
    0          
    0          
336 0 0         {/* Open m */ PDL_EXPAND2(register PDL_Indx m=0, __m_stop=(__m_size)); for(; m<__m_stop; m+=1) {{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {{/* Open c */ PDL_EXPAND2(register PDL_Indx c=0, __c_stop=(__c_size)); for(; c<__c_stop; c+=1) { (x_datap)[0+(__inc_x_c*(c))+(__inc_x_n*(n))+(__inc_x_m*(m))] = (out_datap)[0+(__inc_out_c*(c))+(__inc_out_n*(n))+(__inc_out_q*(m))]; }} /* Close m */}} /* Close n */}} /* Close c */
    0          
    0          
337 0 0         {/* Open q=__privtrans->ind_sizes[1] */ PDL_EXPAND2(register PDL_Indx q=PDLMAX((__privtrans->ind_sizes[1]),0), __q_stop=(__q_size)); for(; q<__q_stop; q+=1) {{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {{/* Open c */ PDL_EXPAND2(register PDL_Indx c=0, __c_stop=(__c_size)); for(; c<__c_stop; c+=1) { (y_datap)[0+(__inc_y_c*(c))+(__inc_y_n*(n))+(__inc_y_p*(q-__privtrans->ind_sizes[1]))] = (out_datap)[0+(__inc_out_c*(c))+(__inc_out_n*(n))+(__inc_out_q*(q))]; }} /* Close q=__privtrans->ind_sizes[1] */}} /* Close n */}} /* Close c */
    0          
    0          
338 0 0         }PDL_BROADCASTLOOP_END_Cmstack_writebackdata
    0          
339 0           } break;
340 0           case PDL_UL: {
341 0 0         PDL_DECLARE_PARAMS_Cmstack_1(PDL_ULong,K)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
342 0 0         PDL_BROADCASTLOOP_START_Cmstack_writebackdata {
    0          
    0          
    0          
    0          
    0          
    0          
343 0 0         {/* Open m */ PDL_EXPAND2(register PDL_Indx m=0, __m_stop=(__m_size)); for(; m<__m_stop; m+=1) {{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {{/* Open c */ PDL_EXPAND2(register PDL_Indx c=0, __c_stop=(__c_size)); for(; c<__c_stop; c+=1) { (x_datap)[0+(__inc_x_c*(c))+(__inc_x_n*(n))+(__inc_x_m*(m))] = (out_datap)[0+(__inc_out_c*(c))+(__inc_out_n*(n))+(__inc_out_q*(m))]; }} /* Close m */}} /* Close n */}} /* Close c */
    0          
    0          
344 0 0         {/* Open q=__privtrans->ind_sizes[1] */ PDL_EXPAND2(register PDL_Indx q=PDLMAX((__privtrans->ind_sizes[1]),0), __q_stop=(__q_size)); for(; q<__q_stop; q+=1) {{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {{/* Open c */ PDL_EXPAND2(register PDL_Indx c=0, __c_stop=(__c_size)); for(; c<__c_stop; c+=1) { (y_datap)[0+(__inc_y_c*(c))+(__inc_y_n*(n))+(__inc_y_p*(q-__privtrans->ind_sizes[1]))] = (out_datap)[0+(__inc_out_c*(c))+(__inc_out_n*(n))+(__inc_out_q*(q))]; }} /* Close q=__privtrans->ind_sizes[1] */}} /* Close n */}} /* Close c */
    0          
    0          
345 0 0         }PDL_BROADCASTLOOP_END_Cmstack_writebackdata
    0          
346 0           } break;
347 0           case PDL_IND: {
348 0 0         PDL_DECLARE_PARAMS_Cmstack_1(PDL_Indx,N)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
349 0 0         PDL_BROADCASTLOOP_START_Cmstack_writebackdata {
    0          
    0          
    0          
    0          
    0          
    0          
350 0 0         {/* Open m */ PDL_EXPAND2(register PDL_Indx m=0, __m_stop=(__m_size)); for(; m<__m_stop; m+=1) {{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {{/* Open c */ PDL_EXPAND2(register PDL_Indx c=0, __c_stop=(__c_size)); for(; c<__c_stop; c+=1) { (x_datap)[0+(__inc_x_c*(c))+(__inc_x_n*(n))+(__inc_x_m*(m))] = (out_datap)[0+(__inc_out_c*(c))+(__inc_out_n*(n))+(__inc_out_q*(m))]; }} /* Close m */}} /* Close n */}} /* Close c */
    0          
    0          
351 0 0         {/* Open q=__privtrans->ind_sizes[1] */ PDL_EXPAND2(register PDL_Indx q=PDLMAX((__privtrans->ind_sizes[1]),0), __q_stop=(__q_size)); for(; q<__q_stop; q+=1) {{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {{/* Open c */ PDL_EXPAND2(register PDL_Indx c=0, __c_stop=(__c_size)); for(; c<__c_stop; c+=1) { (y_datap)[0+(__inc_y_c*(c))+(__inc_y_n*(n))+(__inc_y_p*(q-__privtrans->ind_sizes[1]))] = (out_datap)[0+(__inc_out_c*(c))+(__inc_out_n*(n))+(__inc_out_q*(q))]; }} /* Close q=__privtrans->ind_sizes[1] */}} /* Close n */}} /* Close c */
    0          
    0          
352 0 0         }PDL_BROADCASTLOOP_END_Cmstack_writebackdata
    0          
353 0           } break;
354 0           case PDL_ULL: {
355 0 0         PDL_DECLARE_PARAMS_Cmstack_1(PDL_ULongLong,P)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
356 0 0         PDL_BROADCASTLOOP_START_Cmstack_writebackdata {
    0          
    0          
    0          
    0          
    0          
    0          
357 0 0         {/* Open m */ PDL_EXPAND2(register PDL_Indx m=0, __m_stop=(__m_size)); for(; m<__m_stop; m+=1) {{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {{/* Open c */ PDL_EXPAND2(register PDL_Indx c=0, __c_stop=(__c_size)); for(; c<__c_stop; c+=1) { (x_datap)[0+(__inc_x_c*(c))+(__inc_x_n*(n))+(__inc_x_m*(m))] = (out_datap)[0+(__inc_out_c*(c))+(__inc_out_n*(n))+(__inc_out_q*(m))]; }} /* Close m */}} /* Close n */}} /* Close c */
    0          
    0          
358 0 0         {/* Open q=__privtrans->ind_sizes[1] */ PDL_EXPAND2(register PDL_Indx q=PDLMAX((__privtrans->ind_sizes[1]),0), __q_stop=(__q_size)); for(; q<__q_stop; q+=1) {{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {{/* Open c */ PDL_EXPAND2(register PDL_Indx c=0, __c_stop=(__c_size)); for(; c<__c_stop; c+=1) { (y_datap)[0+(__inc_y_c*(c))+(__inc_y_n*(n))+(__inc_y_p*(q-__privtrans->ind_sizes[1]))] = (out_datap)[0+(__inc_out_c*(c))+(__inc_out_n*(n))+(__inc_out_q*(q))]; }} /* Close q=__privtrans->ind_sizes[1] */}} /* Close n */}} /* Close c */
    0          
    0          
359 0 0         }PDL_BROADCASTLOOP_END_Cmstack_writebackdata
    0          
360 0           } break;
361 0           case PDL_LL: {
362 0 0         PDL_DECLARE_PARAMS_Cmstack_1(PDL_LongLong,Q)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
363 0 0         PDL_BROADCASTLOOP_START_Cmstack_writebackdata {
    0          
    0          
    0          
    0          
    0          
    0          
364 0 0         {/* Open m */ PDL_EXPAND2(register PDL_Indx m=0, __m_stop=(__m_size)); for(; m<__m_stop; m+=1) {{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {{/* Open c */ PDL_EXPAND2(register PDL_Indx c=0, __c_stop=(__c_size)); for(; c<__c_stop; c+=1) { (x_datap)[0+(__inc_x_c*(c))+(__inc_x_n*(n))+(__inc_x_m*(m))] = (out_datap)[0+(__inc_out_c*(c))+(__inc_out_n*(n))+(__inc_out_q*(m))]; }} /* Close m */}} /* Close n */}} /* Close c */
    0          
    0          
365 0 0         {/* Open q=__privtrans->ind_sizes[1] */ PDL_EXPAND2(register PDL_Indx q=PDLMAX((__privtrans->ind_sizes[1]),0), __q_stop=(__q_size)); for(; q<__q_stop; q+=1) {{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {{/* Open c */ PDL_EXPAND2(register PDL_Indx c=0, __c_stop=(__c_size)); for(; c<__c_stop; c+=1) { (y_datap)[0+(__inc_y_c*(c))+(__inc_y_n*(n))+(__inc_y_p*(q-__privtrans->ind_sizes[1]))] = (out_datap)[0+(__inc_out_c*(c))+(__inc_out_n*(n))+(__inc_out_q*(q))]; }} /* Close q=__privtrans->ind_sizes[1] */}} /* Close n */}} /* Close c */
    0          
    0          
366 0 0         }PDL_BROADCASTLOOP_END_Cmstack_writebackdata
    0          
367 0           } break;
368 0           case PDL_F: {
369 0 0         PDL_DECLARE_PARAMS_Cmstack_1(PDL_Float,F)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
370 0 0         PDL_BROADCASTLOOP_START_Cmstack_writebackdata {
    0          
    0          
    0          
    0          
    0          
    0          
371 0 0         {/* Open m */ PDL_EXPAND2(register PDL_Indx m=0, __m_stop=(__m_size)); for(; m<__m_stop; m+=1) {{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {{/* Open c */ PDL_EXPAND2(register PDL_Indx c=0, __c_stop=(__c_size)); for(; c<__c_stop; c+=1) { (x_datap)[0+(__inc_x_c*(c))+(__inc_x_n*(n))+(__inc_x_m*(m))] = (out_datap)[0+(__inc_out_c*(c))+(__inc_out_n*(n))+(__inc_out_q*(m))]; }} /* Close m */}} /* Close n */}} /* Close c */
    0          
    0          
372 0 0         {/* Open q=__privtrans->ind_sizes[1] */ PDL_EXPAND2(register PDL_Indx q=PDLMAX((__privtrans->ind_sizes[1]),0), __q_stop=(__q_size)); for(; q<__q_stop; q+=1) {{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {{/* Open c */ PDL_EXPAND2(register PDL_Indx c=0, __c_stop=(__c_size)); for(; c<__c_stop; c+=1) { (y_datap)[0+(__inc_y_c*(c))+(__inc_y_n*(n))+(__inc_y_p*(q-__privtrans->ind_sizes[1]))] = (out_datap)[0+(__inc_out_c*(c))+(__inc_out_n*(n))+(__inc_out_q*(q))]; }} /* Close q=__privtrans->ind_sizes[1] */}} /* Close n */}} /* Close c */
    0          
    0          
373 0 0         }PDL_BROADCASTLOOP_END_Cmstack_writebackdata
    0          
374 0           } break;
375 0           case PDL_D: {
376 0 0         PDL_DECLARE_PARAMS_Cmstack_1(PDL_Double,D)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
377 0 0         PDL_BROADCASTLOOP_START_Cmstack_writebackdata {
    0          
    0          
    0          
    0          
    0          
    0          
378 0 0         {/* Open m */ PDL_EXPAND2(register PDL_Indx m=0, __m_stop=(__m_size)); for(; m<__m_stop; m+=1) {{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {{/* Open c */ PDL_EXPAND2(register PDL_Indx c=0, __c_stop=(__c_size)); for(; c<__c_stop; c+=1) { (x_datap)[0+(__inc_x_c*(c))+(__inc_x_n*(n))+(__inc_x_m*(m))] = (out_datap)[0+(__inc_out_c*(c))+(__inc_out_n*(n))+(__inc_out_q*(m))]; }} /* Close m */}} /* Close n */}} /* Close c */
    0          
    0          
379 0 0         {/* Open q=__privtrans->ind_sizes[1] */ PDL_EXPAND2(register PDL_Indx q=PDLMAX((__privtrans->ind_sizes[1]),0), __q_stop=(__q_size)); for(; q<__q_stop; q+=1) {{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {{/* Open c */ PDL_EXPAND2(register PDL_Indx c=0, __c_stop=(__c_size)); for(; c<__c_stop; c+=1) { (y_datap)[0+(__inc_y_c*(c))+(__inc_y_n*(n))+(__inc_y_p*(q-__privtrans->ind_sizes[1]))] = (out_datap)[0+(__inc_out_c*(c))+(__inc_out_n*(n))+(__inc_out_q*(q))]; }} /* Close q=__privtrans->ind_sizes[1] */}} /* Close n */}} /* Close c */
    0          
    0          
380 0 0         }PDL_BROADCASTLOOP_END_Cmstack_writebackdata
    0          
381 0           } break;
382 0           case PDL_LD: {
383 0 0         PDL_DECLARE_PARAMS_Cmstack_1(PDL_LDouble,E)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
384 0 0         PDL_BROADCASTLOOP_START_Cmstack_writebackdata {
    0          
    0          
    0          
    0          
    0          
    0          
385 0 0         {/* Open m */ PDL_EXPAND2(register PDL_Indx m=0, __m_stop=(__m_size)); for(; m<__m_stop; m+=1) {{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {{/* Open c */ PDL_EXPAND2(register PDL_Indx c=0, __c_stop=(__c_size)); for(; c<__c_stop; c+=1) { (x_datap)[0+(__inc_x_c*(c))+(__inc_x_n*(n))+(__inc_x_m*(m))] = (out_datap)[0+(__inc_out_c*(c))+(__inc_out_n*(n))+(__inc_out_q*(m))]; }} /* Close m */}} /* Close n */}} /* Close c */
    0          
    0          
386 0 0         {/* Open q=__privtrans->ind_sizes[1] */ PDL_EXPAND2(register PDL_Indx q=PDLMAX((__privtrans->ind_sizes[1]),0), __q_stop=(__q_size)); for(; q<__q_stop; q+=1) {{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {{/* Open c */ PDL_EXPAND2(register PDL_Indx c=0, __c_stop=(__c_size)); for(; c<__c_stop; c+=1) { (y_datap)[0+(__inc_y_c*(c))+(__inc_y_n*(n))+(__inc_y_p*(q-__privtrans->ind_sizes[1]))] = (out_datap)[0+(__inc_out_c*(c))+(__inc_out_n*(n))+(__inc_out_q*(q))]; }} /* Close q=__privtrans->ind_sizes[1] */}} /* Close n */}} /* Close c */
    0          
    0          
387 0 0         }PDL_BROADCASTLOOP_END_Cmstack_writebackdata
    0          
388 0           } break;
389 0           default: return PDL->make_error(PDL_EUSERERROR, "PP INTERNAL ERROR in Cmstack: unhandled datatype(%d), only handles (ABSULKNPQFDE)! PLEASE MAKE A BUG REPORT\n", __privtrans->__datatype);
390             }
391             #undef PDL_IF_BAD
392 0           return PDL_err;
393             }
394              
395             static pdl_datatypes pdl_Cmstack_vtable_gentypes[] = { PDL_SB, PDL_B, PDL_S, PDL_US, PDL_L, PDL_UL, PDL_IND, PDL_ULL, PDL_LL, PDL_F, PDL_D, PDL_LD, -1 };
396             static PDL_Indx pdl_Cmstack_vtable_realdims[] = { 3, 3, 3 };
397             static char *pdl_Cmstack_vtable_parnames[] = { "x","y","out" };
398             static short pdl_Cmstack_vtable_parflags[] = {
399             0,
400             0,
401             PDL_PARAM_ISCREAT|PDL_PARAM_ISOUT|PDL_PARAM_ISWRITE
402             };
403             static pdl_datatypes pdl_Cmstack_vtable_partypes[] = { -1, -1, -1 };
404             static PDL_Indx pdl_Cmstack_vtable_realdims_starts[] = { 0, 3, 6 };
405             static PDL_Indx pdl_Cmstack_vtable_realdims_ind_ids[] = { 0, 2, 1, 0, 2, 3, 0, 2, 4 };
406             static char *pdl_Cmstack_vtable_indnames[] = { "c","m","n","p","q" };
407             pdl_transvtable pdl_Cmstack_vtable = {
408             PDL_TRANS_DO_BROADCAST, PDL_ITRANS_TWOWAY|PDL_ITRANS_DO_DATAFLOW_ANY, pdl_Cmstack_vtable_gentypes, 2, 3, NULL /*CORE21*/,
409             pdl_Cmstack_vtable_realdims, pdl_Cmstack_vtable_parnames,
410             pdl_Cmstack_vtable_parflags, pdl_Cmstack_vtable_partypes,
411             pdl_Cmstack_vtable_realdims_starts, pdl_Cmstack_vtable_realdims_ind_ids, 9,
412             5, pdl_Cmstack_vtable_indnames,
413             pdl_Cmstack_redodims, pdl_Cmstack_readdata, pdl_Cmstack_writebackdata,
414             NULL,
415             0,"PDL::Complex::Cmstack"
416             };
417              
418              
419 1           pdl_error pdl_run_Cmstack(pdl *x,pdl *y,pdl *out) {
420 1           pdl_error PDL_err = {0, NULL, 0};
421 1 50         if (!PDL) return (pdl_error){PDL_EFATAL, "PDL core struct is NULL, can't continue",0};
422 1           pdl_trans *__privtrans = PDL->create_trans(&pdl_Cmstack_vtable);
423 1 50         if (!__privtrans) return PDL->make_error_simple(PDL_EFATAL, "Couldn't create trans");
424 1           __privtrans->pdls[0] = x;
425 1           __privtrans->pdls[1] = y;
426 1           __privtrans->pdls[2] = out;
427 1 50         PDL_RETERROR(PDL_err, PDL->type_coerce(__privtrans));
428 1 50         PDL_RETERROR(PDL_err, PDL->make_trans_mutual(__privtrans));
429 1           return PDL_err;
430             }