File Coverage

lib/PDL/Primitive-pp-inner2.c

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