File Coverage

lib/PDL/Primitive-pp-inner2d.c
Criterion Covered Total %
statement 0 314 0.0
branch 0 1662 0.0
condition n/a
subroutine n/a
pod n/a
total 0 1976 0.0


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