File Coverage

lib/PDL/Primitive-pp-innerwt.c

Criterion	Covered	Total	%
statement	0	317	0.0
branch	0	1950	0.0
condition			n/a
subroutine			n/a
pod			n/a
total	0	2267	0.0

line	stmt	bran	code
1
2			#line 453 "lib/PDL/PP.pm"
3			/*
4			* THIS FILE WAS GENERATED BY PDL::PP from lib/PDL/Primitive.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_Primitive
21			extern Core* PDL; /* Structure hold core C functions */
22
23			#line 1857 "lib/PDL/PP.pm"
24			pdl_error pdl_innerwt_readdata(pdl_trans *__privtrans) {
25			pdl_error PDL_err = {0, NULL, 0};
26			#line 27 "lib/PDL/Primitive-pp-innerwt.c"
27	0		register PDL_Indx __n_size = __privtrans->ind_sizes[0];
28	0	0	if (!__privtrans->broadcast.incs) return PDL->make_error(PDL_EUSERERROR, "Error in innerwt:" "broadcast.incs NULL");
29			/* broadcastloop declarations */
30			int __brcloopval;
31			register PDL_Indx __tind0,__tind1; /* counters along dim */
32	0		register PDL_Indx __tnpdls = __privtrans->broadcast.npdls;
33			/* dims here are how many steps along those dims */
34	0		register PDL_Indx __tinc0_a = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,0,0);
35	0		register PDL_Indx __tinc0_b = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,1,0);
36	0		register PDL_Indx __tinc0_c = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,2,0);
37	0		register PDL_Indx __tinc0_d = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,3,0);
38	0		register PDL_Indx __tinc1_a = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,0,1);
39	0		register PDL_Indx __tinc1_b = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,1,1);
40	0		register PDL_Indx __tinc1_c = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,2,1);
41	0		register PDL_Indx __tinc1_d = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,3,1);
42			#define PDL_BROADCASTLOOP_START_innerwt_readdata PDL_BROADCASTLOOP_START( \
43			readdata, \
44			__privtrans->broadcast, \
45			__privtrans->vtable, \
46			a_datap += __offsp[0]; \
47			b_datap += __offsp[1]; \
48			c_datap += __offsp[2]; \
49			d_datap += __offsp[3]; \
50			, \
51			( ,a_datap += __tinc1_a - __tinc0_a * __tdims0 \
52			,b_datap += __tinc1_b - __tinc0_b * __tdims0 \
53			,c_datap += __tinc1_c - __tinc0_c * __tdims0 \
54			,d_datap += __tinc1_d - __tinc0_d * __tdims0 \
55			), \
56			( ,a_datap += __tinc0_a \
57			,b_datap += __tinc0_b \
58			,c_datap += __tinc0_c \
59			,d_datap += __tinc0_d \
60			) \
61			)
62			#define PDL_BROADCASTLOOP_END_innerwt_readdata PDL_BROADCASTLOOP_END( \
63			__privtrans->broadcast, \
64			a_datap -= __tinc1_a * __tdims1 + __offsp[0]; \
65			b_datap -= __tinc1_b * __tdims1 + __offsp[1]; \
66			c_datap -= __tinc1_c * __tdims1 + __offsp[2]; \
67			d_datap -= __tinc1_d * __tdims1 + __offsp[3]; \
68			)
69	0		register PDL_Indx __inc_a_n = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,0,0)]; (void)__inc_a_n;
70	0		register PDL_Indx __inc_b_n = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,1,0)]; (void)__inc_b_n;
71	0		register PDL_Indx __inc_c_n = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,2,0)]; (void)__inc_c_n;
72			#ifndef PDL_DECLARE_PARAMS_innerwt_1
73			#define PDL_DECLARE_PARAMS_innerwt_1(PDL_TYPE_OP,PDL_PPSYM_OP) \
74			PDL_DECLARE_PARAMETER_BADVAL(PDL_TYPE_OP, a, (__privtrans->pdls[0]), 1, PDL_PPSYM_OP) \
75			PDL_DECLARE_PARAMETER_BADVAL(PDL_TYPE_OP, b, (__privtrans->pdls[1]), 1, PDL_PPSYM_OP) \
76			PDL_DECLARE_PARAMETER_BADVAL(PDL_TYPE_OP, c, (__privtrans->pdls[2]), 1, PDL_PPSYM_OP) \
77			PDL_DECLARE_PARAMETER_BADVAL(PDL_TYPE_OP, d, (__privtrans->pdls[3]), 1, PDL_PPSYM_OP)
78			#endif
79	0	0	if ( __privtrans->bvalflag ) { /* do 'bad' Code */
80			#define PDL_BAD_CODE
81			#define PDL_IF_BAD(t,f) t
82	0		switch (__privtrans->__datatype) { /* Start generic switch */
83	0		case PDL_SB: {
84	0	0	PDL_DECLARE_PARAMS_innerwt_1(PDL_SByte,A)
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
85	0	0	PDL_BROADCASTLOOP_START_innerwt_readdata {complex long double tmp = 0;
		0
		0
		0
		0
		0
		0
86	0		PDL_IF_BAD(int flag = 0;,)
87	0	0	{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
88	0	0	PDL_IF_BAD(if (PDL_ISBAD2((a_datap)[0+(__inc_a_n(n))],a_badval,A,a_badval_isnan) \|\| PDL_ISBAD2((b_datap)[0+(__inc_b_n(n))],b_badval,A,b_badval_isnan) \|\| PDL_ISBAD2((c_datap)[0+(__inc_c_n*(n))],c_badval,A,c_badval_isnan)) continue;flag = 1;,)
		0
		0
		0
		0
		0
89	0		tmp += (a_datap)[0+(__inc_a_n(n))] (b_datap)[0+(__inc_b_n(n))] (c_datap)[0+(__inc_c_n*(n))];
90			}} /* Close n */
91	0	0	PDL_IF_BAD(if (!flag) { (d_datap)[0]=d_badval; }
92	0		else,) { (d_datap)[0] = tmp; }
93	0	0	}PDL_BROADCASTLOOP_END_innerwt_readdata
		0
94	0		} break;
95	0		case PDL_B: {
96	0	0	PDL_DECLARE_PARAMS_innerwt_1(PDL_Byte,B)
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
97	0	0	PDL_BROADCASTLOOP_START_innerwt_readdata {complex long double tmp = 0;
		0
		0
		0
		0
		0
		0
98	0		PDL_IF_BAD(int flag = 0;,)
99	0	0	{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
100	0	0	PDL_IF_BAD(if (PDL_ISBAD2((a_datap)[0+(__inc_a_n(n))],a_badval,B,a_badval_isnan) \|\| PDL_ISBAD2((b_datap)[0+(__inc_b_n(n))],b_badval,B,b_badval_isnan) \|\| PDL_ISBAD2((c_datap)[0+(__inc_c_n*(n))],c_badval,B,c_badval_isnan)) continue;flag = 1;,)
		0
		0
		0
		0
		0
101	0		tmp += (a_datap)[0+(__inc_a_n(n))] (b_datap)[0+(__inc_b_n(n))] (c_datap)[0+(__inc_c_n*(n))];
102			}} /* Close n */
103	0	0	PDL_IF_BAD(if (!flag) { (d_datap)[0]=d_badval; }
104	0		else,) { (d_datap)[0] = tmp; }
105	0	0	}PDL_BROADCASTLOOP_END_innerwt_readdata
		0
106	0		} break;
107	0		case PDL_S: {
108	0	0	PDL_DECLARE_PARAMS_innerwt_1(PDL_Short,S)
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
109	0	0	PDL_BROADCASTLOOP_START_innerwt_readdata {complex long double tmp = 0;
		0
		0
		0
		0
		0
		0
110	0		PDL_IF_BAD(int flag = 0;,)
111	0	0	{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
112	0	0	PDL_IF_BAD(if (PDL_ISBAD2((a_datap)[0+(__inc_a_n(n))],a_badval,S,a_badval_isnan) \|\| PDL_ISBAD2((b_datap)[0+(__inc_b_n(n))],b_badval,S,b_badval_isnan) \|\| PDL_ISBAD2((c_datap)[0+(__inc_c_n*(n))],c_badval,S,c_badval_isnan)) continue;flag = 1;,)
		0
		0
		0
		0
		0
113	0		tmp += (a_datap)[0+(__inc_a_n(n))] (b_datap)[0+(__inc_b_n(n))] (c_datap)[0+(__inc_c_n*(n))];
114			}} /* Close n */
115	0	0	PDL_IF_BAD(if (!flag) { (d_datap)[0]=d_badval; }
116	0		else,) { (d_datap)[0] = tmp; }
117	0	0	}PDL_BROADCASTLOOP_END_innerwt_readdata
		0
118	0		} break;
119	0		case PDL_US: {
120	0	0	PDL_DECLARE_PARAMS_innerwt_1(PDL_Ushort,U)
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
121	0	0	PDL_BROADCASTLOOP_START_innerwt_readdata {complex long double tmp = 0;
		0
		0
		0
		0
		0
		0
122	0		PDL_IF_BAD(int flag = 0;,)
123	0	0	{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
124	0	0	PDL_IF_BAD(if (PDL_ISBAD2((a_datap)[0+(__inc_a_n(n))],a_badval,U,a_badval_isnan) \|\| PDL_ISBAD2((b_datap)[0+(__inc_b_n(n))],b_badval,U,b_badval_isnan) \|\| PDL_ISBAD2((c_datap)[0+(__inc_c_n*(n))],c_badval,U,c_badval_isnan)) continue;flag = 1;,)
		0
		0
		0
		0
		0
125	0		tmp += (a_datap)[0+(__inc_a_n(n))] (b_datap)[0+(__inc_b_n(n))] (c_datap)[0+(__inc_c_n*(n))];
126			}} /* Close n */
127	0	0	PDL_IF_BAD(if (!flag) { (d_datap)[0]=d_badval; }
128	0		else,) { (d_datap)[0] = tmp; }
129	0	0	}PDL_BROADCASTLOOP_END_innerwt_readdata
		0
130	0		} break;
131	0		case PDL_L: {
132	0	0	PDL_DECLARE_PARAMS_innerwt_1(PDL_Long,L)
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
133	0	0	PDL_BROADCASTLOOP_START_innerwt_readdata {complex long double tmp = 0;
		0
		0
		0
		0
		0
		0
134	0		PDL_IF_BAD(int flag = 0;,)
135	0	0	{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
136	0	0	PDL_IF_BAD(if (PDL_ISBAD2((a_datap)[0+(__inc_a_n(n))],a_badval,L,a_badval_isnan) \|\| PDL_ISBAD2((b_datap)[0+(__inc_b_n(n))],b_badval,L,b_badval_isnan) \|\| PDL_ISBAD2((c_datap)[0+(__inc_c_n*(n))],c_badval,L,c_badval_isnan)) continue;flag = 1;,)
		0
		0
		0
		0
		0
137	0		tmp += (a_datap)[0+(__inc_a_n(n))] (b_datap)[0+(__inc_b_n(n))] (c_datap)[0+(__inc_c_n*(n))];
138			}} /* Close n */
139	0	0	PDL_IF_BAD(if (!flag) { (d_datap)[0]=d_badval; }
140	0		else,) { (d_datap)[0] = tmp; }
141	0	0	}PDL_BROADCASTLOOP_END_innerwt_readdata
		0
142	0		} break;
143	0		case PDL_UL: {
144	0	0	PDL_DECLARE_PARAMS_innerwt_1(PDL_ULong,K)
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
145	0	0	PDL_BROADCASTLOOP_START_innerwt_readdata {complex long double tmp = 0;
		0
		0
		0
		0
		0
		0
146	0		PDL_IF_BAD(int flag = 0;,)
147	0	0	{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
148	0	0	PDL_IF_BAD(if (PDL_ISBAD2((a_datap)[0+(__inc_a_n(n))],a_badval,K,a_badval_isnan) \|\| PDL_ISBAD2((b_datap)[0+(__inc_b_n(n))],b_badval,K,b_badval_isnan) \|\| PDL_ISBAD2((c_datap)[0+(__inc_c_n*(n))],c_badval,K,c_badval_isnan)) continue;flag = 1;,)
		0
		0
		0
		0
		0
149	0		tmp += (a_datap)[0+(__inc_a_n(n))] (b_datap)[0+(__inc_b_n(n))] (c_datap)[0+(__inc_c_n*(n))];
150			}} /* Close n */
151	0	0	PDL_IF_BAD(if (!flag) { (d_datap)[0]=d_badval; }
152	0		else,) { (d_datap)[0] = tmp; }
153	0	0	}PDL_BROADCASTLOOP_END_innerwt_readdata
		0
154	0		} break;
155	0		case PDL_IND: {
156	0	0	PDL_DECLARE_PARAMS_innerwt_1(PDL_Indx,N)
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
157	0	0	PDL_BROADCASTLOOP_START_innerwt_readdata {complex long double tmp = 0;
		0
		0
		0
		0
		0
		0
158	0		PDL_IF_BAD(int flag = 0;,)
159	0	0	{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
160	0	0	PDL_IF_BAD(if (PDL_ISBAD2((a_datap)[0+(__inc_a_n(n))],a_badval,N,a_badval_isnan) \|\| PDL_ISBAD2((b_datap)[0+(__inc_b_n(n))],b_badval,N,b_badval_isnan) \|\| PDL_ISBAD2((c_datap)[0+(__inc_c_n*(n))],c_badval,N,c_badval_isnan)) continue;flag = 1;,)
		0
		0
		0
		0
		0
161	0		tmp += (a_datap)[0+(__inc_a_n(n))] (b_datap)[0+(__inc_b_n(n))] (c_datap)[0+(__inc_c_n*(n))];
162			}} /* Close n */
163	0	0	PDL_IF_BAD(if (!flag) { (d_datap)[0]=d_badval; }
164	0		else,) { (d_datap)[0] = tmp; }
165	0	0	}PDL_BROADCASTLOOP_END_innerwt_readdata
		0
166	0		} break;
167	0		case PDL_ULL: {
168	0	0	PDL_DECLARE_PARAMS_innerwt_1(PDL_ULongLong,P)
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
169	0	0	PDL_BROADCASTLOOP_START_innerwt_readdata {complex long double tmp = 0;
		0
		0
		0
		0
		0
		0
170	0		PDL_IF_BAD(int flag = 0;,)
171	0	0	{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
172	0	0	PDL_IF_BAD(if (PDL_ISBAD2((a_datap)[0+(__inc_a_n(n))],a_badval,P,a_badval_isnan) \|\| PDL_ISBAD2((b_datap)[0+(__inc_b_n(n))],b_badval,P,b_badval_isnan) \|\| PDL_ISBAD2((c_datap)[0+(__inc_c_n*(n))],c_badval,P,c_badval_isnan)) continue;flag = 1;,)
		0
		0
		0
		0
		0
173	0		tmp += (a_datap)[0+(__inc_a_n(n))] (b_datap)[0+(__inc_b_n(n))] (c_datap)[0+(__inc_c_n*(n))];
174			}} /* Close n */
175	0	0	PDL_IF_BAD(if (!flag) { (d_datap)[0]=d_badval; }
176	0		else,) { (d_datap)[0] = tmp; }
177	0	0	}PDL_BROADCASTLOOP_END_innerwt_readdata
		0
178	0		} break;
179	0		case PDL_LL: {
180	0	0	PDL_DECLARE_PARAMS_innerwt_1(PDL_LongLong,Q)
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
181	0	0	PDL_BROADCASTLOOP_START_innerwt_readdata {complex long double tmp = 0;
		0
		0
		0
		0
		0
		0
182	0		PDL_IF_BAD(int flag = 0;,)
183	0	0	{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
184	0	0	PDL_IF_BAD(if (PDL_ISBAD2((a_datap)[0+(__inc_a_n(n))],a_badval,Q,a_badval_isnan) \|\| PDL_ISBAD2((b_datap)[0+(__inc_b_n(n))],b_badval,Q,b_badval_isnan) \|\| PDL_ISBAD2((c_datap)[0+(__inc_c_n*(n))],c_badval,Q,c_badval_isnan)) continue;flag = 1;,)
		0
		0
		0
		0
		0
185	0		tmp += (a_datap)[0+(__inc_a_n(n))] (b_datap)[0+(__inc_b_n(n))] (c_datap)[0+(__inc_c_n*(n))];
186			}} /* Close n */
187	0	0	PDL_IF_BAD(if (!flag) { (d_datap)[0]=d_badval; }
188	0		else,) { (d_datap)[0] = tmp; }
189	0	0	}PDL_BROADCASTLOOP_END_innerwt_readdata
		0
190	0		} break;
191	0		case PDL_F: {
192	0	0	PDL_DECLARE_PARAMS_innerwt_1(PDL_Float,F)
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
193	0	0	PDL_BROADCASTLOOP_START_innerwt_readdata {complex long double tmp = 0;
		0
		0
		0
		0
		0
		0
194	0		PDL_IF_BAD(int flag = 0;,)
195	0	0	{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
196	0	0	PDL_IF_BAD(if (PDL_ISBAD2((a_datap)[0+(__inc_a_n(n))],a_badval,F,a_badval_isnan) \|\| PDL_ISBAD2((b_datap)[0+(__inc_b_n(n))],b_badval,F,b_badval_isnan) \|\| PDL_ISBAD2((c_datap)[0+(__inc_c_n*(n))],c_badval,F,c_badval_isnan)) continue;flag = 1;,)
		0
		0
		0
		0
		0
		0
		0
		0
197	0		tmp += (a_datap)[0+(__inc_a_n(n))] (b_datap)[0+(__inc_b_n(n))] (c_datap)[0+(__inc_c_n*(n))];
198			}} /* Close n */
199	0	0	PDL_IF_BAD(if (!flag) { (d_datap)[0]=d_badval; }
200	0		else,) { (d_datap)[0] = tmp; }
201	0	0	}PDL_BROADCASTLOOP_END_innerwt_readdata
		0
202	0		} break;
203	0		case PDL_D: {
204	0	0	PDL_DECLARE_PARAMS_innerwt_1(PDL_Double,D)
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
205	0	0	PDL_BROADCASTLOOP_START_innerwt_readdata {complex long double tmp = 0;
		0
		0
		0
		0
		0
		0
206	0		PDL_IF_BAD(int flag = 0;,)
207	0	0	{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
208	0	0	PDL_IF_BAD(if (PDL_ISBAD2((a_datap)[0+(__inc_a_n(n))],a_badval,D,a_badval_isnan) \|\| PDL_ISBAD2((b_datap)[0+(__inc_b_n(n))],b_badval,D,b_badval_isnan) \|\| PDL_ISBAD2((c_datap)[0+(__inc_c_n*(n))],c_badval,D,c_badval_isnan)) continue;flag = 1;,)
		0
		0
		0
		0
		0
		0
		0
		0
209	0		tmp += (a_datap)[0+(__inc_a_n(n))] (b_datap)[0+(__inc_b_n(n))] (c_datap)[0+(__inc_c_n*(n))];
210			}} /* Close n */
211	0	0	PDL_IF_BAD(if (!flag) { (d_datap)[0]=d_badval; }
212	0		else,) { (d_datap)[0] = tmp; }
213	0	0	}PDL_BROADCASTLOOP_END_innerwt_readdata
		0
214	0		} break;
215	0		case PDL_LD: {
216	0	0	PDL_DECLARE_PARAMS_innerwt_1(PDL_LDouble,E)
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
217	0	0	PDL_BROADCASTLOOP_START_innerwt_readdata {complex long double tmp = 0;
		0
		0
		0
		0
		0
		0
218	0		PDL_IF_BAD(int flag = 0;,)
219	0	0	{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
220	0	0	PDL_IF_BAD(if (PDL_ISBAD2((a_datap)[0+(__inc_a_n(n))],a_badval,E,a_badval_isnan) \|\| PDL_ISBAD2((b_datap)[0+(__inc_b_n(n))],b_badval,E,b_badval_isnan) \|\| PDL_ISBAD2((c_datap)[0+(__inc_c_n*(n))],c_badval,E,c_badval_isnan)) continue;flag = 1;,)
		0
		0
		0
		0
		0
		0
		0
		0
221	0		tmp += (a_datap)[0+(__inc_a_n(n))] (b_datap)[0+(__inc_b_n(n))] (c_datap)[0+(__inc_c_n*(n))];
222			}} /* Close n */
223	0	0	PDL_IF_BAD(if (!flag) { (d_datap)[0]=d_badval; }
224	0		else,) { (d_datap)[0] = tmp; }
225	0	0	}PDL_BROADCASTLOOP_END_innerwt_readdata
		0
226	0		} break;
227	0		case PDL_CF: {
228	0	0	PDL_DECLARE_PARAMS_innerwt_1(PDL_CFloat,G)
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
229	0	0	PDL_BROADCASTLOOP_START_innerwt_readdata {complex long double tmp = 0;
		0
		0
		0
		0
		0
		0
230	0		PDL_IF_BAD(int flag = 0;,)
231	0	0	{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
232	0	0	PDL_IF_BAD(if (PDL_ISBAD2((a_datap)[0+(__inc_a_n(n))],a_badval,G,a_badval_isnan) \|\| PDL_ISBAD2((b_datap)[0+(__inc_b_n(n))],b_badval,G,b_badval_isnan) \|\| PDL_ISBAD2((c_datap)[0+(__inc_c_n*(n))],c_badval,G,c_badval_isnan)) continue;flag = 1;,)
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
233	0		tmp += (a_datap)[0+(__inc_a_n(n))] (b_datap)[0+(__inc_b_n(n))] (c_datap)[0+(__inc_c_n*(n))];
234			}} /* Close n */
235	0	0	PDL_IF_BAD(if (!flag) { (d_datap)[0]=d_badval; }
236	0		else,) { (d_datap)[0] = tmp; }
237	0	0	}PDL_BROADCASTLOOP_END_innerwt_readdata
		0
238	0		} break;
239	0		case PDL_CD: {
240	0	0	PDL_DECLARE_PARAMS_innerwt_1(PDL_CDouble,C)
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
241	0	0	PDL_BROADCASTLOOP_START_innerwt_readdata {complex long double tmp = 0;
		0
		0
		0
		0
		0
		0
242	0		PDL_IF_BAD(int flag = 0;,)
243	0	0	{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
244	0	0	PDL_IF_BAD(if (PDL_ISBAD2((a_datap)[0+(__inc_a_n(n))],a_badval,C,a_badval_isnan) \|\| PDL_ISBAD2((b_datap)[0+(__inc_b_n(n))],b_badval,C,b_badval_isnan) \|\| PDL_ISBAD2((c_datap)[0+(__inc_c_n*(n))],c_badval,C,c_badval_isnan)) continue;flag = 1;,)
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
245	0		tmp += (a_datap)[0+(__inc_a_n(n))] (b_datap)[0+(__inc_b_n(n))] (c_datap)[0+(__inc_c_n*(n))];
246			}} /* Close n */
247	0	0	PDL_IF_BAD(if (!flag) { (d_datap)[0]=d_badval; }
248	0		else,) { (d_datap)[0] = tmp; }
249	0	0	}PDL_BROADCASTLOOP_END_innerwt_readdata
		0
250	0		} break;
251	0		case PDL_CLD: {
252	0	0	PDL_DECLARE_PARAMS_innerwt_1(PDL_CLDouble,H)
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
253	0	0	PDL_BROADCASTLOOP_START_innerwt_readdata {complex long double tmp = 0;
		0
		0
		0
		0
		0
		0
254	0		PDL_IF_BAD(int flag = 0;,)
255	0	0	{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
256	0	0	PDL_IF_BAD(if (PDL_ISBAD2((a_datap)[0+(__inc_a_n(n))],a_badval,H,a_badval_isnan) \|\| PDL_ISBAD2((b_datap)[0+(__inc_b_n(n))],b_badval,H,b_badval_isnan) \|\| PDL_ISBAD2((c_datap)[0+(__inc_c_n*(n))],c_badval,H,c_badval_isnan)) continue;flag = 1;,)
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
257	0		tmp += (a_datap)[0+(__inc_a_n(n))] (b_datap)[0+(__inc_b_n(n))] (c_datap)[0+(__inc_c_n*(n))];
258			}} /* Close n */
259	0	0	PDL_IF_BAD(if (!flag) { (d_datap)[0]=d_badval; }
260	0		else,) { (d_datap)[0] = tmp; }
261	0	0	}PDL_BROADCASTLOOP_END_innerwt_readdata
		0
262	0		} break;
263	0		default: return PDL->make_error(PDL_EUSERERROR, "PP INTERNAL ERROR in innerwt: unhandled datatype(%d), only handles (ABSULKNPQFDEGCH)! PLEASE MAKE A BUG REPORT\n", __privtrans->__datatype);
264			}
265			#undef PDL_BAD_CODE
266			#undef PDL_IF_BAD
267			} else { /* else do 'good' Code */
268			#define PDL_IF_BAD(t,f) f
269	0		switch (__privtrans->__datatype) { /* Start generic switch */
270	0		case PDL_SB: {
271	0	0	PDL_DECLARE_PARAMS_innerwt_1(PDL_SByte,A)
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
272	0	0	PDL_BROADCASTLOOP_START_innerwt_readdata {complex long double tmp = 0;
		0
		0
		0
		0
		0
		0
273			PDL_IF_BAD(int flag = 0;,)
274	0	0	{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
275			PDL_IF_BAD(if (PDL_ISBAD2((a_datap)[0+(__inc_a_n(n))],a_badval,A,a_badval_isnan) \|\| PDL_ISBAD2((b_datap)[0+(__inc_b_n(n))],b_badval,A,b_badval_isnan) \|\| PDL_ISBAD2((c_datap)[0+(__inc_c_n*(n))],c_badval,A,c_badval_isnan)) continue;flag = 1;,)
276	0		tmp += (a_datap)[0+(__inc_a_n(n))] (b_datap)[0+(__inc_b_n(n))] (c_datap)[0+(__inc_c_n*(n))];
277			}} /* Close n */
278			PDL_IF_BAD(if (!flag) { (d_datap)[0]=d_badval; }
279	0		else,) { (d_datap)[0] = tmp; }
280	0	0	}PDL_BROADCASTLOOP_END_innerwt_readdata
		0
281	0		} break;
282	0		case PDL_B: {
283	0	0	PDL_DECLARE_PARAMS_innerwt_1(PDL_Byte,B)
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
284	0	0	PDL_BROADCASTLOOP_START_innerwt_readdata {complex long double tmp = 0;
		0
		0
		0
		0
		0
		0
285			PDL_IF_BAD(int flag = 0;,)
286	0	0	{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
287			PDL_IF_BAD(if (PDL_ISBAD2((a_datap)[0+(__inc_a_n(n))],a_badval,B,a_badval_isnan) \|\| PDL_ISBAD2((b_datap)[0+(__inc_b_n(n))],b_badval,B,b_badval_isnan) \|\| PDL_ISBAD2((c_datap)[0+(__inc_c_n*(n))],c_badval,B,c_badval_isnan)) continue;flag = 1;,)
288	0		tmp += (a_datap)[0+(__inc_a_n(n))] (b_datap)[0+(__inc_b_n(n))] (c_datap)[0+(__inc_c_n*(n))];
289			}} /* Close n */
290			PDL_IF_BAD(if (!flag) { (d_datap)[0]=d_badval; }
291	0		else,) { (d_datap)[0] = tmp; }
292	0	0	}PDL_BROADCASTLOOP_END_innerwt_readdata
		0
293	0		} break;
294	0		case PDL_S: {
295	0	0	PDL_DECLARE_PARAMS_innerwt_1(PDL_Short,S)
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
296	0	0	PDL_BROADCASTLOOP_START_innerwt_readdata {complex long double tmp = 0;
		0
		0
		0
		0
		0
		0
297			PDL_IF_BAD(int flag = 0;,)
298	0	0	{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
299			PDL_IF_BAD(if (PDL_ISBAD2((a_datap)[0+(__inc_a_n(n))],a_badval,S,a_badval_isnan) \|\| PDL_ISBAD2((b_datap)[0+(__inc_b_n(n))],b_badval,S,b_badval_isnan) \|\| PDL_ISBAD2((c_datap)[0+(__inc_c_n*(n))],c_badval,S,c_badval_isnan)) continue;flag = 1;,)
300	0		tmp += (a_datap)[0+(__inc_a_n(n))] (b_datap)[0+(__inc_b_n(n))] (c_datap)[0+(__inc_c_n*(n))];
301			}} /* Close n */
302			PDL_IF_BAD(if (!flag) { (d_datap)[0]=d_badval; }
303	0		else,) { (d_datap)[0] = tmp; }
304	0	0	}PDL_BROADCASTLOOP_END_innerwt_readdata
		0
305	0		} break;
306	0		case PDL_US: {
307	0	0	PDL_DECLARE_PARAMS_innerwt_1(PDL_Ushort,U)
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
308	0	0	PDL_BROADCASTLOOP_START_innerwt_readdata {complex long double tmp = 0;
		0
		0
		0
		0
		0
		0
309			PDL_IF_BAD(int flag = 0;,)
310	0	0	{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
311			PDL_IF_BAD(if (PDL_ISBAD2((a_datap)[0+(__inc_a_n(n))],a_badval,U,a_badval_isnan) \|\| PDL_ISBAD2((b_datap)[0+(__inc_b_n(n))],b_badval,U,b_badval_isnan) \|\| PDL_ISBAD2((c_datap)[0+(__inc_c_n*(n))],c_badval,U,c_badval_isnan)) continue;flag = 1;,)
312	0		tmp += (a_datap)[0+(__inc_a_n(n))] (b_datap)[0+(__inc_b_n(n))] (c_datap)[0+(__inc_c_n*(n))];
313			}} /* Close n */
314			PDL_IF_BAD(if (!flag) { (d_datap)[0]=d_badval; }
315	0		else,) { (d_datap)[0] = tmp; }
316	0	0	}PDL_BROADCASTLOOP_END_innerwt_readdata
		0
317	0		} break;
318	0		case PDL_L: {
319	0	0	PDL_DECLARE_PARAMS_innerwt_1(PDL_Long,L)
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
320	0	0	PDL_BROADCASTLOOP_START_innerwt_readdata {complex long double tmp = 0;
		0
		0
		0
		0
		0
		0
321			PDL_IF_BAD(int flag = 0;,)
322	0	0	{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
323			PDL_IF_BAD(if (PDL_ISBAD2((a_datap)[0+(__inc_a_n(n))],a_badval,L,a_badval_isnan) \|\| PDL_ISBAD2((b_datap)[0+(__inc_b_n(n))],b_badval,L,b_badval_isnan) \|\| PDL_ISBAD2((c_datap)[0+(__inc_c_n*(n))],c_badval,L,c_badval_isnan)) continue;flag = 1;,)
324	0		tmp += (a_datap)[0+(__inc_a_n(n))] (b_datap)[0+(__inc_b_n(n))] (c_datap)[0+(__inc_c_n*(n))];
325			}} /* Close n */
326			PDL_IF_BAD(if (!flag) { (d_datap)[0]=d_badval; }
327	0		else,) { (d_datap)[0] = tmp; }
328	0	0	}PDL_BROADCASTLOOP_END_innerwt_readdata
		0
329	0		} break;
330	0		case PDL_UL: {
331	0	0	PDL_DECLARE_PARAMS_innerwt_1(PDL_ULong,K)
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
332	0	0	PDL_BROADCASTLOOP_START_innerwt_readdata {complex long double tmp = 0;
		0
		0
		0
		0
		0
		0
333			PDL_IF_BAD(int flag = 0;,)
334	0	0	{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
335			PDL_IF_BAD(if (PDL_ISBAD2((a_datap)[0+(__inc_a_n(n))],a_badval,K,a_badval_isnan) \|\| PDL_ISBAD2((b_datap)[0+(__inc_b_n(n))],b_badval,K,b_badval_isnan) \|\| PDL_ISBAD2((c_datap)[0+(__inc_c_n*(n))],c_badval,K,c_badval_isnan)) continue;flag = 1;,)
336	0		tmp += (a_datap)[0+(__inc_a_n(n))] (b_datap)[0+(__inc_b_n(n))] (c_datap)[0+(__inc_c_n*(n))];
337			}} /* Close n */
338			PDL_IF_BAD(if (!flag) { (d_datap)[0]=d_badval; }
339	0		else,) { (d_datap)[0] = tmp; }
340	0	0	}PDL_BROADCASTLOOP_END_innerwt_readdata
		0
341	0		} break;
342	0		case PDL_IND: {
343	0	0	PDL_DECLARE_PARAMS_innerwt_1(PDL_Indx,N)
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
344	0	0	PDL_BROADCASTLOOP_START_innerwt_readdata {complex long double tmp = 0;
		0
		0
		0
		0
		0
		0
345			PDL_IF_BAD(int flag = 0;,)
346	0	0	{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
347			PDL_IF_BAD(if (PDL_ISBAD2((a_datap)[0+(__inc_a_n(n))],a_badval,N,a_badval_isnan) \|\| PDL_ISBAD2((b_datap)[0+(__inc_b_n(n))],b_badval,N,b_badval_isnan) \|\| PDL_ISBAD2((c_datap)[0+(__inc_c_n*(n))],c_badval,N,c_badval_isnan)) continue;flag = 1;,)
348	0		tmp += (a_datap)[0+(__inc_a_n(n))] (b_datap)[0+(__inc_b_n(n))] (c_datap)[0+(__inc_c_n*(n))];
349			}} /* Close n */
350			PDL_IF_BAD(if (!flag) { (d_datap)[0]=d_badval; }
351	0		else,) { (d_datap)[0] = tmp; }
352	0	0	}PDL_BROADCASTLOOP_END_innerwt_readdata
		0
353	0		} break;
354	0		case PDL_ULL: {
355	0	0	PDL_DECLARE_PARAMS_innerwt_1(PDL_ULongLong,P)
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
356	0	0	PDL_BROADCASTLOOP_START_innerwt_readdata {complex long double tmp = 0;
		0
		0
		0
		0
		0
		0
357			PDL_IF_BAD(int flag = 0;,)
358	0	0	{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
359			PDL_IF_BAD(if (PDL_ISBAD2((a_datap)[0+(__inc_a_n(n))],a_badval,P,a_badval_isnan) \|\| PDL_ISBAD2((b_datap)[0+(__inc_b_n(n))],b_badval,P,b_badval_isnan) \|\| PDL_ISBAD2((c_datap)[0+(__inc_c_n*(n))],c_badval,P,c_badval_isnan)) continue;flag = 1;,)
360	0		tmp += (a_datap)[0+(__inc_a_n(n))] (b_datap)[0+(__inc_b_n(n))] (c_datap)[0+(__inc_c_n*(n))];
361			}} /* Close n */
362			PDL_IF_BAD(if (!flag) { (d_datap)[0]=d_badval; }
363	0		else,) { (d_datap)[0] = tmp; }
364	0	0	}PDL_BROADCASTLOOP_END_innerwt_readdata
		0
365	0		} break;
366	0		case PDL_LL: {
367	0	0	PDL_DECLARE_PARAMS_innerwt_1(PDL_LongLong,Q)
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
368	0	0	PDL_BROADCASTLOOP_START_innerwt_readdata {complex long double tmp = 0;
		0
		0
		0
		0
		0
		0
369			PDL_IF_BAD(int flag = 0;,)
370	0	0	{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
371			PDL_IF_BAD(if (PDL_ISBAD2((a_datap)[0+(__inc_a_n(n))],a_badval,Q,a_badval_isnan) \|\| PDL_ISBAD2((b_datap)[0+(__inc_b_n(n))],b_badval,Q,b_badval_isnan) \|\| PDL_ISBAD2((c_datap)[0+(__inc_c_n*(n))],c_badval,Q,c_badval_isnan)) continue;flag = 1;,)
372	0		tmp += (a_datap)[0+(__inc_a_n(n))] (b_datap)[0+(__inc_b_n(n))] (c_datap)[0+(__inc_c_n*(n))];
373			}} /* Close n */
374			PDL_IF_BAD(if (!flag) { (d_datap)[0]=d_badval; }
375	0		else,) { (d_datap)[0] = tmp; }
376	0	0	}PDL_BROADCASTLOOP_END_innerwt_readdata
		0
377	0		} break;
378	0		case PDL_F: {
379	0	0	PDL_DECLARE_PARAMS_innerwt_1(PDL_Float,F)
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
380	0	0	PDL_BROADCASTLOOP_START_innerwt_readdata {complex long double tmp = 0;
		0
		0
		0
		0
		0
		0
381			PDL_IF_BAD(int flag = 0;,)
382	0	0	{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
383			PDL_IF_BAD(if (PDL_ISBAD2((a_datap)[0+(__inc_a_n(n))],a_badval,F,a_badval_isnan) \|\| PDL_ISBAD2((b_datap)[0+(__inc_b_n(n))],b_badval,F,b_badval_isnan) \|\| PDL_ISBAD2((c_datap)[0+(__inc_c_n*(n))],c_badval,F,c_badval_isnan)) continue;flag = 1;,)
384	0		tmp += (a_datap)[0+(__inc_a_n(n))] (b_datap)[0+(__inc_b_n(n))] (c_datap)[0+(__inc_c_n*(n))];
385			}} /* Close n */
386			PDL_IF_BAD(if (!flag) { (d_datap)[0]=d_badval; }
387	0		else,) { (d_datap)[0] = tmp; }
388	0	0	}PDL_BROADCASTLOOP_END_innerwt_readdata
		0
389	0		} break;
390	0		case PDL_D: {
391	0	0	PDL_DECLARE_PARAMS_innerwt_1(PDL_Double,D)
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
392	0	0	PDL_BROADCASTLOOP_START_innerwt_readdata {complex long double tmp = 0;
		0
		0
		0
		0
		0
		0
393			PDL_IF_BAD(int flag = 0;,)
394	0	0	{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
395			PDL_IF_BAD(if (PDL_ISBAD2((a_datap)[0+(__inc_a_n(n))],a_badval,D,a_badval_isnan) \|\| PDL_ISBAD2((b_datap)[0+(__inc_b_n(n))],b_badval,D,b_badval_isnan) \|\| PDL_ISBAD2((c_datap)[0+(__inc_c_n*(n))],c_badval,D,c_badval_isnan)) continue;flag = 1;,)
396	0		tmp += (a_datap)[0+(__inc_a_n(n))] (b_datap)[0+(__inc_b_n(n))] (c_datap)[0+(__inc_c_n*(n))];
397			}} /* Close n */
398			PDL_IF_BAD(if (!flag) { (d_datap)[0]=d_badval; }
399	0		else,) { (d_datap)[0] = tmp; }
400	0	0	}PDL_BROADCASTLOOP_END_innerwt_readdata
		0
401	0		} break;
402	0		case PDL_LD: {
403	0	0	PDL_DECLARE_PARAMS_innerwt_1(PDL_LDouble,E)
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
404	0	0	PDL_BROADCASTLOOP_START_innerwt_readdata {complex long double tmp = 0;
		0
		0
		0
		0
		0
		0
405			PDL_IF_BAD(int flag = 0;,)
406	0	0	{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
407			PDL_IF_BAD(if (PDL_ISBAD2((a_datap)[0+(__inc_a_n(n))],a_badval,E,a_badval_isnan) \|\| PDL_ISBAD2((b_datap)[0+(__inc_b_n(n))],b_badval,E,b_badval_isnan) \|\| PDL_ISBAD2((c_datap)[0+(__inc_c_n*(n))],c_badval,E,c_badval_isnan)) continue;flag = 1;,)
408	0		tmp += (a_datap)[0+(__inc_a_n(n))] (b_datap)[0+(__inc_b_n(n))] (c_datap)[0+(__inc_c_n*(n))];
409			}} /* Close n */
410			PDL_IF_BAD(if (!flag) { (d_datap)[0]=d_badval; }
411	0		else,) { (d_datap)[0] = tmp; }
412	0	0	}PDL_BROADCASTLOOP_END_innerwt_readdata
		0
413	0		} break;
414	0		case PDL_CF: {
415	0	0	PDL_DECLARE_PARAMS_innerwt_1(PDL_CFloat,G)
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
416	0	0	PDL_BROADCASTLOOP_START_innerwt_readdata {complex long double tmp = 0;
		0
		0
		0
		0
		0
		0
417			PDL_IF_BAD(int flag = 0;,)
418	0	0	{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
419			PDL_IF_BAD(if (PDL_ISBAD2((a_datap)[0+(__inc_a_n(n))],a_badval,G,a_badval_isnan) \|\| PDL_ISBAD2((b_datap)[0+(__inc_b_n(n))],b_badval,G,b_badval_isnan) \|\| PDL_ISBAD2((c_datap)[0+(__inc_c_n*(n))],c_badval,G,c_badval_isnan)) continue;flag = 1;,)
420	0		tmp += (a_datap)[0+(__inc_a_n(n))] (b_datap)[0+(__inc_b_n(n))] (c_datap)[0+(__inc_c_n*(n))];
421			}} /* Close n */
422			PDL_IF_BAD(if (!flag) { (d_datap)[0]=d_badval; }
423	0		else,) { (d_datap)[0] = tmp; }
424	0	0	}PDL_BROADCASTLOOP_END_innerwt_readdata
		0
425	0		} break;
426	0		case PDL_CD: {
427	0	0	PDL_DECLARE_PARAMS_innerwt_1(PDL_CDouble,C)
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
428	0	0	PDL_BROADCASTLOOP_START_innerwt_readdata {complex long double tmp = 0;
		0
		0
		0
		0
		0
		0
429			PDL_IF_BAD(int flag = 0;,)
430	0	0	{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
431			PDL_IF_BAD(if (PDL_ISBAD2((a_datap)[0+(__inc_a_n(n))],a_badval,C,a_badval_isnan) \|\| PDL_ISBAD2((b_datap)[0+(__inc_b_n(n))],b_badval,C,b_badval_isnan) \|\| PDL_ISBAD2((c_datap)[0+(__inc_c_n*(n))],c_badval,C,c_badval_isnan)) continue;flag = 1;,)
432	0		tmp += (a_datap)[0+(__inc_a_n(n))] (b_datap)[0+(__inc_b_n(n))] (c_datap)[0+(__inc_c_n*(n))];
433			}} /* Close n */
434			PDL_IF_BAD(if (!flag) { (d_datap)[0]=d_badval; }
435	0		else,) { (d_datap)[0] = tmp; }
436	0	0	}PDL_BROADCASTLOOP_END_innerwt_readdata
		0
437	0		} break;
438	0		case PDL_CLD: {
439	0	0	PDL_DECLARE_PARAMS_innerwt_1(PDL_CLDouble,H)
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
440	0	0	PDL_BROADCASTLOOP_START_innerwt_readdata {complex long double tmp = 0;
		0
		0
		0
		0
		0
		0
441			PDL_IF_BAD(int flag = 0;,)
442	0	0	{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
443			PDL_IF_BAD(if (PDL_ISBAD2((a_datap)[0+(__inc_a_n(n))],a_badval,H,a_badval_isnan) \|\| PDL_ISBAD2((b_datap)[0+(__inc_b_n(n))],b_badval,H,b_badval_isnan) \|\| PDL_ISBAD2((c_datap)[0+(__inc_c_n*(n))],c_badval,H,c_badval_isnan)) continue;flag = 1;,)
444	0		tmp += (a_datap)[0+(__inc_a_n(n))] (b_datap)[0+(__inc_b_n(n))] (c_datap)[0+(__inc_c_n*(n))];
445			}} /* Close n */
446			PDL_IF_BAD(if (!flag) { (d_datap)[0]=d_badval; }
447	0		else,) { (d_datap)[0] = tmp; }
448	0	0	}PDL_BROADCASTLOOP_END_innerwt_readdata
		0
449	0		} break;
450	0		default: return PDL->make_error(PDL_EUSERERROR, "PP INTERNAL ERROR in innerwt: unhandled datatype(%d), only handles (ABSULKNPQFDEGCH)! PLEASE MAKE A BUG REPORT\n", __privtrans->__datatype);
451			}
452			#undef PDL_IF_BAD
453			}
454	0		return PDL_err;
455			}
456
457			static pdl_datatypes pdl_innerwt_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, PDL_CF, PDL_CD, PDL_CLD, -1 };
458			static PDL_Indx pdl_innerwt_vtable_realdims[] = { 1, 1, 1, 0 };
459			static char *pdl_innerwt_vtable_parnames[] = { "a","b","c","d" };
460			static short pdl_innerwt_vtable_parflags[] = {
461			0,
462			0,
463			0,
464			PDL_PARAM_ISCREAT\|PDL_PARAM_ISOUT\|PDL_PARAM_ISWRITE
465			};
466			static pdl_datatypes pdl_innerwt_vtable_partypes[] = { -1, -1, -1, -1 };
467			static PDL_Indx pdl_innerwt_vtable_realdims_starts[] = { 0, 1, 2, 3 };
468			static PDL_Indx pdl_innerwt_vtable_realdims_ind_ids[] = { 0, 0, 0 };
469			static char *pdl_innerwt_vtable_indnames[] = { "n" };
470			pdl_transvtable pdl_innerwt_vtable = {
471			PDL_TRANS_DO_BROADCAST\|PDL_TRANS_BADPROCESS, 0, pdl_innerwt_vtable_gentypes, 3, 4, NULL /CORE21/,
472			pdl_innerwt_vtable_realdims, pdl_innerwt_vtable_parnames,
473			pdl_innerwt_vtable_parflags, pdl_innerwt_vtable_partypes,
474			pdl_innerwt_vtable_realdims_starts, pdl_innerwt_vtable_realdims_ind_ids, 3,
475			1, pdl_innerwt_vtable_indnames,
476			NULL, pdl_innerwt_readdata, NULL,
477			NULL,
478			0,"PDL::Primitive::innerwt"
479			};
480
481
482	0		pdl_error pdl_run_innerwt(pdl a,pdl b,pdl c,pdl d) {
483	0		pdl_error PDL_err = {0, NULL, 0};
484	0	0	if (!PDL) return (pdl_error){PDL_EFATAL, "PDL core struct is NULL, can't continue",0};
485	0		pdl_trans *__privtrans = PDL->create_trans(&pdl_innerwt_vtable);
486	0	0	if (!__privtrans) return PDL->make_error_simple(PDL_EFATAL, "Couldn't create trans");
487	0		__privtrans->pdls[0] = a;
488	0		__privtrans->pdls[1] = b;
489	0		__privtrans->pdls[2] = c;
490	0		__privtrans->pdls[3] = d;
491	0	0	PDL_RETERROR(PDL_err, PDL->type_coerce(__privtrans));
492	0	0	PDL_RETERROR(PDL_err, PDL->make_trans_mutual(__privtrans));
493	0		return PDL_err;
494			}