File Coverage

pp-Cprodover.c

Criterion	Covered	Total	%
statement	39	205	19.0
branch	26	396	6.5
condition			n/a
subroutine			n/a
pod			n/a
total	65	601	10.8

line	stmt	bran	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-Cprodover.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_Cprodover_redodims(pdl_trans *__privtrans) {
97			pdl_error PDL_err = {0, NULL, 0};
98			#line 99 "pp-Cprodover.c"
99	11		__privtrans->ind_sizes[0] = 2;
100	11	50	PDL_RETERROR(PDL_err, PDL->redodims_default(__privtrans));
101	11		return PDL_err;
102			}
103
104
105			#line 1857 "lib/PDL/PP.pm"
106			pdl_error pdl_Cprodover_readdata(pdl_trans *__privtrans) {
107			pdl_error PDL_err = {0, NULL, 0};
108			#line 109 "pp-Cprodover.c"
109	11		register PDL_Indx __n_size = __privtrans->ind_sizes[1];
110	11	50	if (!__privtrans->broadcast.incs) return PDL->make_error(PDL_EUSERERROR, "Error in Cprodover:" "broadcast.incs NULL");
111			/* broadcastloop declarations */
112			int __brcloopval;
113			register PDL_Indx __tind0,__tind1; /* counters along dim */
114	11		register PDL_Indx __tnpdls = __privtrans->broadcast.npdls;
115			/* dims here are how many steps along those dims */
116	11		register PDL_Indx __tinc0_a = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,0,0);
117	11		register PDL_Indx __tinc0_c = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,1,0);
118	11		register PDL_Indx __tinc1_a = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,0,1);
119	11		register PDL_Indx __tinc1_c = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,1,1);
120			#define PDL_BROADCASTLOOP_START_Cprodover_readdata PDL_BROADCASTLOOP_START( \
121			readdata, \
122			__privtrans->broadcast, \
123			__privtrans->vtable, \
124			a_datap += __offsp[0]; \
125			c_datap += __offsp[1]; \
126			, \
127			( ,a_datap += __tinc1_a - __tinc0_a * __tdims0 \
128			,c_datap += __tinc1_c - __tinc0_c * __tdims0 \
129			), \
130			( ,a_datap += __tinc0_a \
131			,c_datap += __tinc0_c \
132			) \
133			)
134			#define PDL_BROADCASTLOOP_END_Cprodover_readdata PDL_BROADCASTLOOP_END( \
135			__privtrans->broadcast, \
136			a_datap -= __tinc1_a * __tdims1 + __offsp[0]; \
137			c_datap -= __tinc1_c * __tdims1 + __offsp[1]; \
138			)
139	11		register PDL_Indx __inc_a_m = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,0,0)]; (void)__inc_a_m;register PDL_Indx __inc_a_n = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,0,1)]; (void)__inc_a_n;
140	11		register PDL_Indx __inc_c_m = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,1,0)]; (void)__inc_c_m;
141			#ifndef PDL_DECLARE_PARAMS_Cprodover_1
142			#define PDL_DECLARE_PARAMS_Cprodover_1(PDL_TYPE_OP,PDL_PPSYM_OP) \
143			PDL_DECLARE_PARAMETER(PDL_TYPE_OP, a, (__privtrans->pdls[0]), 1, PDL_PPSYM_OP) \
144			PDL_DECLARE_PARAMETER(PDL_TYPE_OP, c, (__privtrans->pdls[1]), 1, PDL_PPSYM_OP)
145			#endif
146			#define PDL_IF_BAD(t,f) f
147	11		switch (__privtrans->__datatype) { /* Start generic switch */
148	0		case PDL_SB: {
149	0	0	PDL_DECLARE_PARAMS_Cprodover_1(PDL_SByte,A)
		0
		0
		0
		0
		0
150	0	0	PDL_BROADCASTLOOP_START_Cprodover_readdata {
		0
		0
		0
		0
		0
		0
151			PDL_SByte br, bi, cr, ci,tmp;
152	0		cr = (a_datap)[0+(__inc_a_m(0))+(__inc_a_n(0))];
153	0		ci = (a_datap)[0+(__inc_a_m(1))+(__inc_a_n(0))];
154	0	0	{/* Open n=1 */ PDL_EXPAND2(register PDL_Indx n=PDLMAX((1),0), __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
155	0		br = (a_datap)[0+(__inc_a_m(0))+(__inc_a_n(n))];
156	0		bi = (a_datap)[0+(__inc_a_m(1))+(__inc_a_n(n))];
157	0		tmp = crbi + cibr;
158	0		cr = crbr - cibi;
159	0		ci = tmp;
160			}} /* Close n=1 */
161	0		(c_datap)[0+(__inc_c_m*(0))] = cr;
162	0		(c_datap)[0+(__inc_c_m*(1))] = ci;
163	0	0	}PDL_BROADCASTLOOP_END_Cprodover_readdata
		0
164	0		} break;
165	0		case PDL_B: {
166	0	0	PDL_DECLARE_PARAMS_Cprodover_1(PDL_Byte,B)
		0
		0
		0
		0
		0
167	0	0	PDL_BROADCASTLOOP_START_Cprodover_readdata {
		0
		0
		0
		0
		0
		0
168			PDL_Byte br, bi, cr, ci,tmp;
169	0		cr = (a_datap)[0+(__inc_a_m(0))+(__inc_a_n(0))];
170	0		ci = (a_datap)[0+(__inc_a_m(1))+(__inc_a_n(0))];
171	0	0	{/* Open n=1 */ PDL_EXPAND2(register PDL_Indx n=PDLMAX((1),0), __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
172	0		br = (a_datap)[0+(__inc_a_m(0))+(__inc_a_n(n))];
173	0		bi = (a_datap)[0+(__inc_a_m(1))+(__inc_a_n(n))];
174	0		tmp = crbi + cibr;
175	0		cr = crbr - cibi;
176	0		ci = tmp;
177			}} /* Close n=1 */
178	0		(c_datap)[0+(__inc_c_m*(0))] = cr;
179	0		(c_datap)[0+(__inc_c_m*(1))] = ci;
180	0	0	}PDL_BROADCASTLOOP_END_Cprodover_readdata
		0
181	0		} break;
182	0		case PDL_S: {
183	0	0	PDL_DECLARE_PARAMS_Cprodover_1(PDL_Short,S)
		0
		0
		0
		0
		0
184	0	0	PDL_BROADCASTLOOP_START_Cprodover_readdata {
		0
		0
		0
		0
		0
		0
185			PDL_Short br, bi, cr, ci,tmp;
186	0		cr = (a_datap)[0+(__inc_a_m(0))+(__inc_a_n(0))];
187	0		ci = (a_datap)[0+(__inc_a_m(1))+(__inc_a_n(0))];
188	0	0	{/* Open n=1 */ PDL_EXPAND2(register PDL_Indx n=PDLMAX((1),0), __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
189	0		br = (a_datap)[0+(__inc_a_m(0))+(__inc_a_n(n))];
190	0		bi = (a_datap)[0+(__inc_a_m(1))+(__inc_a_n(n))];
191	0		tmp = crbi + cibr;
192	0		cr = crbr - cibi;
193	0		ci = tmp;
194			}} /* Close n=1 */
195	0		(c_datap)[0+(__inc_c_m*(0))] = cr;
196	0		(c_datap)[0+(__inc_c_m*(1))] = ci;
197	0	0	}PDL_BROADCASTLOOP_END_Cprodover_readdata
		0
198	0		} break;
199	0		case PDL_US: {
200	0	0	PDL_DECLARE_PARAMS_Cprodover_1(PDL_Ushort,U)
		0
		0
		0
		0
		0
201	0	0	PDL_BROADCASTLOOP_START_Cprodover_readdata {
		0
		0
		0
		0
		0
		0
202			PDL_Ushort br, bi, cr, ci,tmp;
203	0		cr = (a_datap)[0+(__inc_a_m(0))+(__inc_a_n(0))];
204	0		ci = (a_datap)[0+(__inc_a_m(1))+(__inc_a_n(0))];
205	0	0	{/* Open n=1 */ PDL_EXPAND2(register PDL_Indx n=PDLMAX((1),0), __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
206	0		br = (a_datap)[0+(__inc_a_m(0))+(__inc_a_n(n))];
207	0		bi = (a_datap)[0+(__inc_a_m(1))+(__inc_a_n(n))];
208	0		tmp = crbi + cibr;
209	0		cr = crbr - cibi;
210	0		ci = tmp;
211			}} /* Close n=1 */
212	0		(c_datap)[0+(__inc_c_m*(0))] = cr;
213	0		(c_datap)[0+(__inc_c_m*(1))] = ci;
214	0	0	}PDL_BROADCASTLOOP_END_Cprodover_readdata
		0
215	0		} break;
216	0		case PDL_L: {
217	0	0	PDL_DECLARE_PARAMS_Cprodover_1(PDL_Long,L)
		0
		0
		0
		0
		0
218	0	0	PDL_BROADCASTLOOP_START_Cprodover_readdata {
		0
		0
		0
		0
		0
		0
219			PDL_Long br, bi, cr, ci,tmp;
220	0		cr = (a_datap)[0+(__inc_a_m(0))+(__inc_a_n(0))];
221	0		ci = (a_datap)[0+(__inc_a_m(1))+(__inc_a_n(0))];
222	0	0	{/* Open n=1 */ PDL_EXPAND2(register PDL_Indx n=PDLMAX((1),0), __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
223	0		br = (a_datap)[0+(__inc_a_m(0))+(__inc_a_n(n))];
224	0		bi = (a_datap)[0+(__inc_a_m(1))+(__inc_a_n(n))];
225	0		tmp = crbi + cibr;
226	0		cr = crbr - cibi;
227	0		ci = tmp;
228			}} /* Close n=1 */
229	0		(c_datap)[0+(__inc_c_m*(0))] = cr;
230	0		(c_datap)[0+(__inc_c_m*(1))] = ci;
231	0	0	}PDL_BROADCASTLOOP_END_Cprodover_readdata
		0
232	0		} break;
233	0		case PDL_UL: {
234	0	0	PDL_DECLARE_PARAMS_Cprodover_1(PDL_ULong,K)
		0
		0
		0
		0
		0
235	0	0	PDL_BROADCASTLOOP_START_Cprodover_readdata {
		0
		0
		0
		0
		0
		0
236			PDL_ULong br, bi, cr, ci,tmp;
237	0		cr = (a_datap)[0+(__inc_a_m(0))+(__inc_a_n(0))];
238	0		ci = (a_datap)[0+(__inc_a_m(1))+(__inc_a_n(0))];
239	0	0	{/* Open n=1 */ PDL_EXPAND2(register PDL_Indx n=PDLMAX((1),0), __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
240	0		br = (a_datap)[0+(__inc_a_m(0))+(__inc_a_n(n))];
241	0		bi = (a_datap)[0+(__inc_a_m(1))+(__inc_a_n(n))];
242	0		tmp = crbi + cibr;
243	0		cr = crbr - cibi;
244	0		ci = tmp;
245			}} /* Close n=1 */
246	0		(c_datap)[0+(__inc_c_m*(0))] = cr;
247	0		(c_datap)[0+(__inc_c_m*(1))] = ci;
248	0	0	}PDL_BROADCASTLOOP_END_Cprodover_readdata
		0
249	0		} break;
250	0		case PDL_IND: {
251	0	0	PDL_DECLARE_PARAMS_Cprodover_1(PDL_Indx,N)
		0
		0
		0
		0
		0
252	0	0	PDL_BROADCASTLOOP_START_Cprodover_readdata {
		0
		0
		0
		0
		0
		0
253			PDL_Indx br, bi, cr, ci,tmp;
254	0		cr = (a_datap)[0+(__inc_a_m(0))+(__inc_a_n(0))];
255	0		ci = (a_datap)[0+(__inc_a_m(1))+(__inc_a_n(0))];
256	0	0	{/* Open n=1 */ PDL_EXPAND2(register PDL_Indx n=PDLMAX((1),0), __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
257	0		br = (a_datap)[0+(__inc_a_m(0))+(__inc_a_n(n))];
258	0		bi = (a_datap)[0+(__inc_a_m(1))+(__inc_a_n(n))];
259	0		tmp = crbi + cibr;
260	0		cr = crbr - cibi;
261	0		ci = tmp;
262			}} /* Close n=1 */
263	0		(c_datap)[0+(__inc_c_m*(0))] = cr;
264	0		(c_datap)[0+(__inc_c_m*(1))] = ci;
265	0	0	}PDL_BROADCASTLOOP_END_Cprodover_readdata
		0
266	0		} break;
267	0		case PDL_ULL: {
268	0	0	PDL_DECLARE_PARAMS_Cprodover_1(PDL_ULongLong,P)
		0
		0
		0
		0
		0
269	0	0	PDL_BROADCASTLOOP_START_Cprodover_readdata {
		0
		0
		0
		0
		0
		0
270			PDL_ULongLong br, bi, cr, ci,tmp;
271	0		cr = (a_datap)[0+(__inc_a_m(0))+(__inc_a_n(0))];
272	0		ci = (a_datap)[0+(__inc_a_m(1))+(__inc_a_n(0))];
273	0	0	{/* Open n=1 */ PDL_EXPAND2(register PDL_Indx n=PDLMAX((1),0), __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
274	0		br = (a_datap)[0+(__inc_a_m(0))+(__inc_a_n(n))];
275	0		bi = (a_datap)[0+(__inc_a_m(1))+(__inc_a_n(n))];
276	0		tmp = crbi + cibr;
277	0		cr = crbr - cibi;
278	0		ci = tmp;
279			}} /* Close n=1 */
280	0		(c_datap)[0+(__inc_c_m*(0))] = cr;
281	0		(c_datap)[0+(__inc_c_m*(1))] = ci;
282	0	0	}PDL_BROADCASTLOOP_END_Cprodover_readdata
		0
283	0		} break;
284	0		case PDL_LL: {
285	0	0	PDL_DECLARE_PARAMS_Cprodover_1(PDL_LongLong,Q)
		0
		0
		0
		0
		0
286	0	0	PDL_BROADCASTLOOP_START_Cprodover_readdata {
		0
		0
		0
		0
		0
		0
287			PDL_LongLong br, bi, cr, ci,tmp;
288	0		cr = (a_datap)[0+(__inc_a_m(0))+(__inc_a_n(0))];
289	0		ci = (a_datap)[0+(__inc_a_m(1))+(__inc_a_n(0))];
290	0	0	{/* Open n=1 */ PDL_EXPAND2(register PDL_Indx n=PDLMAX((1),0), __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
291	0		br = (a_datap)[0+(__inc_a_m(0))+(__inc_a_n(n))];
292	0		bi = (a_datap)[0+(__inc_a_m(1))+(__inc_a_n(n))];
293	0		tmp = crbi + cibr;
294	0		cr = crbr - cibi;
295	0		ci = tmp;
296			}} /* Close n=1 */
297	0		(c_datap)[0+(__inc_c_m*(0))] = cr;
298	0		(c_datap)[0+(__inc_c_m*(1))] = ci;
299	0	0	}PDL_BROADCASTLOOP_END_Cprodover_readdata
		0
300	0		} break;
301	0		case PDL_F: {
302	0	0	PDL_DECLARE_PARAMS_Cprodover_1(PDL_Float,F)
		0
		0
		0
		0
		0
303	0	0	PDL_BROADCASTLOOP_START_Cprodover_readdata {
		0
		0
		0
		0
		0
		0
304			PDL_Float br, bi, cr, ci,tmp;
305	0		cr = (a_datap)[0+(__inc_a_m(0))+(__inc_a_n(0))];
306	0		ci = (a_datap)[0+(__inc_a_m(1))+(__inc_a_n(0))];
307	0	0	{/* Open n=1 */ PDL_EXPAND2(register PDL_Indx n=PDLMAX((1),0), __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
308	0		br = (a_datap)[0+(__inc_a_m(0))+(__inc_a_n(n))];
309	0		bi = (a_datap)[0+(__inc_a_m(1))+(__inc_a_n(n))];
310	0		tmp = crbi + cibr;
311	0		cr = crbr - cibi;
312	0		ci = tmp;
313			}} /* Close n=1 */
314	0		(c_datap)[0+(__inc_c_m*(0))] = cr;
315	0		(c_datap)[0+(__inc_c_m*(1))] = ci;
316	0	0	}PDL_BROADCASTLOOP_END_Cprodover_readdata
		0
317	0		} break;
318	11		case PDL_D: {
319	11	100	PDL_DECLARE_PARAMS_Cprodover_1(PDL_Double,D)
		50
		50
		50
		50
		50
320	44	50	PDL_BROADCASTLOOP_START_Cprodover_readdata {
		50
		50
		50
		50
		100
		100
321			PDL_Double br, bi, cr, ci,tmp;
322	11		cr = (a_datap)[0+(__inc_a_m(0))+(__inc_a_n(0))];
323	11		ci = (a_datap)[0+(__inc_a_m(1))+(__inc_a_n(0))];
324	33	100	{/* Open n=1 */ PDL_EXPAND2(register PDL_Indx n=PDLMAX((1),0), __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
325	22		br = (a_datap)[0+(__inc_a_m(0))+(__inc_a_n(n))];
326	22		bi = (a_datap)[0+(__inc_a_m(1))+(__inc_a_n(n))];
327	22		tmp = crbi + cibr;
328	22		cr = crbr - cibi;
329	22		ci = tmp;
330			}} /* Close n=1 */
331	11		(c_datap)[0+(__inc_c_m*(0))] = cr;
332	11		(c_datap)[0+(__inc_c_m*(1))] = ci;
333	11	50	}PDL_BROADCASTLOOP_END_Cprodover_readdata
		50
334	11		} break;
335	0		case PDL_LD: {
336	0	0	PDL_DECLARE_PARAMS_Cprodover_1(PDL_LDouble,E)
		0
		0
		0
		0
		0
337	0	0	PDL_BROADCASTLOOP_START_Cprodover_readdata {
		0
		0
		0
		0
		0
		0
338			PDL_LDouble br, bi, cr, ci,tmp;
339	0		cr = (a_datap)[0+(__inc_a_m(0))+(__inc_a_n(0))];
340	0		ci = (a_datap)[0+(__inc_a_m(1))+(__inc_a_n(0))];
341	0	0	{/* Open n=1 */ PDL_EXPAND2(register PDL_Indx n=PDLMAX((1),0), __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
342	0		br = (a_datap)[0+(__inc_a_m(0))+(__inc_a_n(n))];
343	0		bi = (a_datap)[0+(__inc_a_m(1))+(__inc_a_n(n))];
344	0		tmp = crbi + cibr;
345	0		cr = crbr - cibi;
346	0		ci = tmp;
347			}} /* Close n=1 */
348	0		(c_datap)[0+(__inc_c_m*(0))] = cr;
349	0		(c_datap)[0+(__inc_c_m*(1))] = ci;
350	0	0	}PDL_BROADCASTLOOP_END_Cprodover_readdata
		0
351	0		} break;
352	0		default: return PDL->make_error(PDL_EUSERERROR, "PP INTERNAL ERROR in Cprodover: unhandled datatype(%d), only handles (ABSULKNPQFDE)! PLEASE MAKE A BUG REPORT\n", __privtrans->__datatype);
353			}
354			#undef PDL_IF_BAD
355	11		return PDL_err;
356			}
357
358			static pdl_datatypes pdl_Cprodover_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 };
359			static PDL_Indx pdl_Cprodover_vtable_realdims[] = { 2, 1 };
360			static char *pdl_Cprodover_vtable_parnames[] = { "a","c" };
361			static short pdl_Cprodover_vtable_parflags[] = {
362			0,
363			PDL_PARAM_ISCREAT\|PDL_PARAM_ISOUT\|PDL_PARAM_ISWRITE
364			};
365			static pdl_datatypes pdl_Cprodover_vtable_partypes[] = { -1, -1 };
366			static PDL_Indx pdl_Cprodover_vtable_realdims_starts[] = { 0, 2 };
367			static PDL_Indx pdl_Cprodover_vtable_realdims_ind_ids[] = { 0, 1, 0 };
368			static char *pdl_Cprodover_vtable_indnames[] = { "m","n" };
369			pdl_transvtable pdl_Cprodover_vtable = {
370			PDL_TRANS_DO_BROADCAST, 0, pdl_Cprodover_vtable_gentypes, 1, 2, NULL /CORE21/,
371			pdl_Cprodover_vtable_realdims, pdl_Cprodover_vtable_parnames,
372			pdl_Cprodover_vtable_parflags, pdl_Cprodover_vtable_partypes,
373			pdl_Cprodover_vtable_realdims_starts, pdl_Cprodover_vtable_realdims_ind_ids, 3,
374			2, pdl_Cprodover_vtable_indnames,
375			pdl_Cprodover_redodims, pdl_Cprodover_readdata, NULL,
376			NULL,
377			0,"PDL::Complex::Cprodover"
378			};
379
380
381	11		pdl_error pdl_run_Cprodover(pdl a,pdl c) {
382	11		pdl_error PDL_err = {0, NULL, 0};
383	11	50	if (!PDL) return (pdl_error){PDL_EFATAL, "PDL core struct is NULL, can't continue",0};
384	11		pdl_trans *__privtrans = PDL->create_trans(&pdl_Cprodover_vtable);
385	11	50	if (!__privtrans) return PDL->make_error_simple(PDL_EFATAL, "Couldn't create trans");
386	11		__privtrans->pdls[0] = a;
387	11		__privtrans->pdls[1] = c;
388	11	50	PDL_RETERROR(PDL_err, PDL->type_coerce(__privtrans));
389	11	50	PDL_RETERROR(PDL_err, PDL->make_trans_mutual(__privtrans));
390	11		return PDL_err;
391			}