File Coverage

lib/PDL/MatrixOps-pp-mstack.c
Criterion Covered Total %
statement 37 258 14.3
branch 34 1334 2.5
condition n/a
subroutine n/a
pod n/a
total 71 1592 4.4


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/MatrixOps.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_MatrixOps
21             extern Core* PDL; /* Structure hold core C functions */
22             #line 23 "lib/PDL/MatrixOps-pp-mstack.c"
23              
24             #include
25              
26             #line 1857 "lib/PDL/PP.pm"
27             pdl_error pdl_mstack_redodims(pdl_trans *__privtrans) {
28             pdl_error PDL_err = {0, NULL, 0};
29             #line 30 "lib/PDL/MatrixOps-pp-mstack.c"
30 1           __privtrans->ind_sizes[3] = __privtrans->ind_sizes[0]+__privtrans->ind_sizes[2];
31 1 50         PDL_RETERROR(PDL_err, PDL->redodims_default(__privtrans));
32 1           return PDL_err;
33             }
34              
35              
36             #line 1857 "lib/PDL/PP.pm"
37             pdl_error pdl_mstack_readdata(pdl_trans *__privtrans) {
38             pdl_error PDL_err = {0, NULL, 0};
39             #line 40 "lib/PDL/MatrixOps-pp-mstack.c"
40 1           register PDL_Indx __m_size = __privtrans->ind_sizes[0];
41 1           register PDL_Indx __n_size = __privtrans->ind_sizes[1];
42 1           register PDL_Indx __q_size = __privtrans->ind_sizes[3];
43 1 50         if (!__privtrans->broadcast.incs) return PDL->make_error(PDL_EUSERERROR, "Error in mstack:" "broadcast.incs NULL");
44             /* broadcastloop declarations */
45             int __brcloopval;
46             register PDL_Indx __tind0,__tind1; /* counters along dim */
47 1           register PDL_Indx __tnpdls = __privtrans->broadcast.npdls;
48             /* dims here are how many steps along those dims */
49 1           register PDL_Indx __tinc0_x = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,0,0);
50 1           register PDL_Indx __tinc0_y = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,1,0);
51 1           register PDL_Indx __tinc0_out = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,2,0);
52 1           register PDL_Indx __tinc1_x = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,0,1);
53 1           register PDL_Indx __tinc1_y = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,1,1);
54 1           register PDL_Indx __tinc1_out = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,2,1);
55             #define PDL_BROADCASTLOOP_START_mstack_readdata PDL_BROADCASTLOOP_START( \
56             readdata, \
57             __privtrans->broadcast, \
58             __privtrans->vtable, \
59             x_datap += __offsp[0]; \
60             y_datap += __offsp[1]; \
61             out_datap += __offsp[2]; \
62             , \
63             ( ,x_datap += __tinc1_x - __tinc0_x * __tdims0 \
64             ,y_datap += __tinc1_y - __tinc0_y * __tdims0 \
65             ,out_datap += __tinc1_out - __tinc0_out * __tdims0 \
66             ), \
67             ( ,x_datap += __tinc0_x \
68             ,y_datap += __tinc0_y \
69             ,out_datap += __tinc0_out \
70             ) \
71             )
72             #define PDL_BROADCASTLOOP_END_mstack_readdata PDL_BROADCASTLOOP_END( \
73             __privtrans->broadcast, \
74             x_datap -= __tinc1_x * __tdims1 + __offsp[0]; \
75             y_datap -= __tinc1_y * __tdims1 + __offsp[1]; \
76             out_datap -= __tinc1_out * __tdims1 + __offsp[2]; \
77             )
78 1           register PDL_Indx __inc_out_n = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,2,0)]; (void)__inc_out_n;register PDL_Indx __inc_out_q = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,2,1)]; (void)__inc_out_q;
79 1           register PDL_Indx __inc_x_n = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,0,0)]; (void)__inc_x_n;register PDL_Indx __inc_x_m = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,0,1)]; (void)__inc_x_m;
80 1           register PDL_Indx __inc_y_n = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,1,0)]; (void)__inc_y_n;register PDL_Indx __inc_y_p = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,1,1)]; (void)__inc_y_p;
81             #ifndef PDL_DECLARE_PARAMS_mstack_1
82             #define PDL_DECLARE_PARAMS_mstack_1(PDL_TYPE_OP,PDL_PPSYM_OP) \
83             PDL_DECLARE_PARAMETER(PDL_TYPE_OP, x, (__privtrans->pdls[0]), 1, PDL_PPSYM_OP) \
84             PDL_DECLARE_PARAMETER(PDL_TYPE_OP, y, (__privtrans->pdls[1]), 1, PDL_PPSYM_OP) \
85             PDL_DECLARE_PARAMETER(PDL_TYPE_OP, out, (__privtrans->pdls[2]), 1, PDL_PPSYM_OP)
86             #endif
87             #define PDL_IF_BAD(t,f) f
88 1           switch (__privtrans->__datatype) { /* Start generic switch */
89 0           case PDL_SB: {
90 0 0         PDL_DECLARE_PARAMS_mstack_1(PDL_SByte,A)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
91 0 0         PDL_BROADCASTLOOP_START_mstack_readdata {
    0          
    0          
    0          
    0          
    0          
    0          
92 0 0         {/* Open m */ PDL_EXPAND2(register PDL_Indx m=0, __m_stop=(__m_size)); for(; m<__m_stop; m+=1) {{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) { (out_datap)[0+(__inc_out_n*(n))+(__inc_out_q*(m))] = (x_datap)[0+(__inc_x_n*(n))+(__inc_x_m*(m))]; }} /* Close m */}} /* Close n */
    0          
93 0 0         {/* Open q=__privtrans->ind_sizes[0] */ PDL_EXPAND2(register PDL_Indx q=PDLMAX((__privtrans->ind_sizes[0]),0), __q_stop=(__q_size)); for(; q<__q_stop; q+=1) {{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) { (out_datap)[0+(__inc_out_n*(n))+(__inc_out_q*(q))] = (y_datap)[0+(__inc_y_n*(n))+(__inc_y_p*(q-__privtrans->ind_sizes[0]))]; }} /* Close q=__privtrans->ind_sizes[0] */}} /* Close n */
    0          
94 0 0         }PDL_BROADCASTLOOP_END_mstack_readdata
    0          
95 0           } break;
96 0           case PDL_B: {
97 0 0         PDL_DECLARE_PARAMS_mstack_1(PDL_Byte,B)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
98 0 0         PDL_BROADCASTLOOP_START_mstack_readdata {
    0          
    0          
    0          
    0          
    0          
    0          
99 0 0         {/* Open m */ PDL_EXPAND2(register PDL_Indx m=0, __m_stop=(__m_size)); for(; m<__m_stop; m+=1) {{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) { (out_datap)[0+(__inc_out_n*(n))+(__inc_out_q*(m))] = (x_datap)[0+(__inc_x_n*(n))+(__inc_x_m*(m))]; }} /* Close m */}} /* Close n */
    0          
100 0 0         {/* Open q=__privtrans->ind_sizes[0] */ PDL_EXPAND2(register PDL_Indx q=PDLMAX((__privtrans->ind_sizes[0]),0), __q_stop=(__q_size)); for(; q<__q_stop; q+=1) {{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) { (out_datap)[0+(__inc_out_n*(n))+(__inc_out_q*(q))] = (y_datap)[0+(__inc_y_n*(n))+(__inc_y_p*(q-__privtrans->ind_sizes[0]))]; }} /* Close q=__privtrans->ind_sizes[0] */}} /* Close n */
    0          
101 0 0         }PDL_BROADCASTLOOP_END_mstack_readdata
    0          
102 0           } break;
103 0           case PDL_S: {
104 0 0         PDL_DECLARE_PARAMS_mstack_1(PDL_Short,S)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
105 0 0         PDL_BROADCASTLOOP_START_mstack_readdata {
    0          
    0          
    0          
    0          
    0          
    0          
106 0 0         {/* Open m */ PDL_EXPAND2(register PDL_Indx m=0, __m_stop=(__m_size)); for(; m<__m_stop; m+=1) {{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) { (out_datap)[0+(__inc_out_n*(n))+(__inc_out_q*(m))] = (x_datap)[0+(__inc_x_n*(n))+(__inc_x_m*(m))]; }} /* Close m */}} /* Close n */
    0          
107 0 0         {/* Open q=__privtrans->ind_sizes[0] */ PDL_EXPAND2(register PDL_Indx q=PDLMAX((__privtrans->ind_sizes[0]),0), __q_stop=(__q_size)); for(; q<__q_stop; q+=1) {{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) { (out_datap)[0+(__inc_out_n*(n))+(__inc_out_q*(q))] = (y_datap)[0+(__inc_y_n*(n))+(__inc_y_p*(q-__privtrans->ind_sizes[0]))]; }} /* Close q=__privtrans->ind_sizes[0] */}} /* Close n */
    0          
108 0 0         }PDL_BROADCASTLOOP_END_mstack_readdata
    0          
109 0           } break;
110 0           case PDL_US: {
111 0 0         PDL_DECLARE_PARAMS_mstack_1(PDL_Ushort,U)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
112 0 0         PDL_BROADCASTLOOP_START_mstack_readdata {
    0          
    0          
    0          
    0          
    0          
    0          
113 0 0         {/* Open m */ PDL_EXPAND2(register PDL_Indx m=0, __m_stop=(__m_size)); for(; m<__m_stop; m+=1) {{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) { (out_datap)[0+(__inc_out_n*(n))+(__inc_out_q*(m))] = (x_datap)[0+(__inc_x_n*(n))+(__inc_x_m*(m))]; }} /* Close m */}} /* Close n */
    0          
114 0 0         {/* Open q=__privtrans->ind_sizes[0] */ PDL_EXPAND2(register PDL_Indx q=PDLMAX((__privtrans->ind_sizes[0]),0), __q_stop=(__q_size)); for(; q<__q_stop; q+=1) {{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) { (out_datap)[0+(__inc_out_n*(n))+(__inc_out_q*(q))] = (y_datap)[0+(__inc_y_n*(n))+(__inc_y_p*(q-__privtrans->ind_sizes[0]))]; }} /* Close q=__privtrans->ind_sizes[0] */}} /* Close n */
    0          
115 0 0         }PDL_BROADCASTLOOP_END_mstack_readdata
    0          
116 0           } break;
117 0           case PDL_L: {
118 0 0         PDL_DECLARE_PARAMS_mstack_1(PDL_Long,L)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
119 0 0         PDL_BROADCASTLOOP_START_mstack_readdata {
    0          
    0          
    0          
    0          
    0          
    0          
120 0 0         {/* Open m */ PDL_EXPAND2(register PDL_Indx m=0, __m_stop=(__m_size)); for(; m<__m_stop; m+=1) {{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) { (out_datap)[0+(__inc_out_n*(n))+(__inc_out_q*(m))] = (x_datap)[0+(__inc_x_n*(n))+(__inc_x_m*(m))]; }} /* Close m */}} /* Close n */
    0          
121 0 0         {/* Open q=__privtrans->ind_sizes[0] */ PDL_EXPAND2(register PDL_Indx q=PDLMAX((__privtrans->ind_sizes[0]),0), __q_stop=(__q_size)); for(; q<__q_stop; q+=1) {{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) { (out_datap)[0+(__inc_out_n*(n))+(__inc_out_q*(q))] = (y_datap)[0+(__inc_y_n*(n))+(__inc_y_p*(q-__privtrans->ind_sizes[0]))]; }} /* Close q=__privtrans->ind_sizes[0] */}} /* Close n */
    0          
122 0 0         }PDL_BROADCASTLOOP_END_mstack_readdata
    0          
123 0           } break;
124 0           case PDL_UL: {
125 0 0         PDL_DECLARE_PARAMS_mstack_1(PDL_ULong,K)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
126 0 0         PDL_BROADCASTLOOP_START_mstack_readdata {
    0          
    0          
    0          
    0          
    0          
    0          
127 0 0         {/* Open m */ PDL_EXPAND2(register PDL_Indx m=0, __m_stop=(__m_size)); for(; m<__m_stop; m+=1) {{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) { (out_datap)[0+(__inc_out_n*(n))+(__inc_out_q*(m))] = (x_datap)[0+(__inc_x_n*(n))+(__inc_x_m*(m))]; }} /* Close m */}} /* Close n */
    0          
128 0 0         {/* Open q=__privtrans->ind_sizes[0] */ PDL_EXPAND2(register PDL_Indx q=PDLMAX((__privtrans->ind_sizes[0]),0), __q_stop=(__q_size)); for(; q<__q_stop; q+=1) {{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) { (out_datap)[0+(__inc_out_n*(n))+(__inc_out_q*(q))] = (y_datap)[0+(__inc_y_n*(n))+(__inc_y_p*(q-__privtrans->ind_sizes[0]))]; }} /* Close q=__privtrans->ind_sizes[0] */}} /* Close n */
    0          
129 0 0         }PDL_BROADCASTLOOP_END_mstack_readdata
    0          
130 0           } break;
131 0           case PDL_IND: {
132 0 0         PDL_DECLARE_PARAMS_mstack_1(PDL_Indx,N)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
133 0 0         PDL_BROADCASTLOOP_START_mstack_readdata {
    0          
    0          
    0          
    0          
    0          
    0          
134 0 0         {/* Open m */ PDL_EXPAND2(register PDL_Indx m=0, __m_stop=(__m_size)); for(; m<__m_stop; m+=1) {{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) { (out_datap)[0+(__inc_out_n*(n))+(__inc_out_q*(m))] = (x_datap)[0+(__inc_x_n*(n))+(__inc_x_m*(m))]; }} /* Close m */}} /* Close n */
    0          
135 0 0         {/* Open q=__privtrans->ind_sizes[0] */ PDL_EXPAND2(register PDL_Indx q=PDLMAX((__privtrans->ind_sizes[0]),0), __q_stop=(__q_size)); for(; q<__q_stop; q+=1) {{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) { (out_datap)[0+(__inc_out_n*(n))+(__inc_out_q*(q))] = (y_datap)[0+(__inc_y_n*(n))+(__inc_y_p*(q-__privtrans->ind_sizes[0]))]; }} /* Close q=__privtrans->ind_sizes[0] */}} /* Close n */
    0          
136 0 0         }PDL_BROADCASTLOOP_END_mstack_readdata
    0          
137 0           } break;
138 0           case PDL_ULL: {
139 0 0         PDL_DECLARE_PARAMS_mstack_1(PDL_ULongLong,P)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
140 0 0         PDL_BROADCASTLOOP_START_mstack_readdata {
    0          
    0          
    0          
    0          
    0          
    0          
141 0 0         {/* Open m */ PDL_EXPAND2(register PDL_Indx m=0, __m_stop=(__m_size)); for(; m<__m_stop; m+=1) {{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) { (out_datap)[0+(__inc_out_n*(n))+(__inc_out_q*(m))] = (x_datap)[0+(__inc_x_n*(n))+(__inc_x_m*(m))]; }} /* Close m */}} /* Close n */
    0          
142 0 0         {/* Open q=__privtrans->ind_sizes[0] */ PDL_EXPAND2(register PDL_Indx q=PDLMAX((__privtrans->ind_sizes[0]),0), __q_stop=(__q_size)); for(; q<__q_stop; q+=1) {{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) { (out_datap)[0+(__inc_out_n*(n))+(__inc_out_q*(q))] = (y_datap)[0+(__inc_y_n*(n))+(__inc_y_p*(q-__privtrans->ind_sizes[0]))]; }} /* Close q=__privtrans->ind_sizes[0] */}} /* Close n */
    0          
143 0 0         }PDL_BROADCASTLOOP_END_mstack_readdata
    0          
144 0           } break;
145 0           case PDL_LL: {
146 0 0         PDL_DECLARE_PARAMS_mstack_1(PDL_LongLong,Q)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
147 0 0         PDL_BROADCASTLOOP_START_mstack_readdata {
    0          
    0          
    0          
    0          
    0          
    0          
148 0 0         {/* Open m */ PDL_EXPAND2(register PDL_Indx m=0, __m_stop=(__m_size)); for(; m<__m_stop; m+=1) {{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) { (out_datap)[0+(__inc_out_n*(n))+(__inc_out_q*(m))] = (x_datap)[0+(__inc_x_n*(n))+(__inc_x_m*(m))]; }} /* Close m */}} /* Close n */
    0          
149 0 0         {/* Open q=__privtrans->ind_sizes[0] */ PDL_EXPAND2(register PDL_Indx q=PDLMAX((__privtrans->ind_sizes[0]),0), __q_stop=(__q_size)); for(; q<__q_stop; q+=1) {{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) { (out_datap)[0+(__inc_out_n*(n))+(__inc_out_q*(q))] = (y_datap)[0+(__inc_y_n*(n))+(__inc_y_p*(q-__privtrans->ind_sizes[0]))]; }} /* Close q=__privtrans->ind_sizes[0] */}} /* Close n */
    0          
150 0 0         }PDL_BROADCASTLOOP_END_mstack_readdata
    0          
151 0           } break;
152 0           case PDL_F: {
153 0 0         PDL_DECLARE_PARAMS_mstack_1(PDL_Float,F)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
154 0 0         PDL_BROADCASTLOOP_START_mstack_readdata {
    0          
    0          
    0          
    0          
    0          
    0          
155 0 0         {/* Open m */ PDL_EXPAND2(register PDL_Indx m=0, __m_stop=(__m_size)); for(; m<__m_stop; m+=1) {{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) { (out_datap)[0+(__inc_out_n*(n))+(__inc_out_q*(m))] = (x_datap)[0+(__inc_x_n*(n))+(__inc_x_m*(m))]; }} /* Close m */}} /* Close n */
    0          
156 0 0         {/* Open q=__privtrans->ind_sizes[0] */ PDL_EXPAND2(register PDL_Indx q=PDLMAX((__privtrans->ind_sizes[0]),0), __q_stop=(__q_size)); for(; q<__q_stop; q+=1) {{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) { (out_datap)[0+(__inc_out_n*(n))+(__inc_out_q*(q))] = (y_datap)[0+(__inc_y_n*(n))+(__inc_y_p*(q-__privtrans->ind_sizes[0]))]; }} /* Close q=__privtrans->ind_sizes[0] */}} /* Close n */
    0          
157 0 0         }PDL_BROADCASTLOOP_END_mstack_readdata
    0          
158 0           } break;
159 1           case PDL_D: {
160 1 50         PDL_DECLARE_PARAMS_mstack_1(PDL_Double,D)
    50          
    50          
    50          
    50          
    50          
    50          
    50          
    50          
161 4 50         PDL_BROADCASTLOOP_START_mstack_readdata {
    50          
    50          
    50          
    50          
    100          
    100          
162 13 100         {/* Open m */ PDL_EXPAND2(register PDL_Indx m=0, __m_stop=(__m_size)); for(; m<__m_stop; m+=1) {{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) { (out_datap)[0+(__inc_out_n*(n))+(__inc_out_q*(m))] = (x_datap)[0+(__inc_x_n*(n))+(__inc_x_m*(m))]; }} /* Close m */}} /* Close n */
    100          
163 13 100         {/* Open q=__privtrans->ind_sizes[0] */ PDL_EXPAND2(register PDL_Indx q=PDLMAX((__privtrans->ind_sizes[0]),0), __q_stop=(__q_size)); for(; q<__q_stop; q+=1) {{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) { (out_datap)[0+(__inc_out_n*(n))+(__inc_out_q*(q))] = (y_datap)[0+(__inc_y_n*(n))+(__inc_y_p*(q-__privtrans->ind_sizes[0]))]; }} /* Close q=__privtrans->ind_sizes[0] */}} /* Close n */
    100          
164 1 50         }PDL_BROADCASTLOOP_END_mstack_readdata
    50          
165 1           } break;
166 0           case PDL_LD: {
167 0 0         PDL_DECLARE_PARAMS_mstack_1(PDL_LDouble,E)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
168 0 0         PDL_BROADCASTLOOP_START_mstack_readdata {
    0          
    0          
    0          
    0          
    0          
    0          
169 0 0         {/* Open m */ PDL_EXPAND2(register PDL_Indx m=0, __m_stop=(__m_size)); for(; m<__m_stop; m+=1) {{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) { (out_datap)[0+(__inc_out_n*(n))+(__inc_out_q*(m))] = (x_datap)[0+(__inc_x_n*(n))+(__inc_x_m*(m))]; }} /* Close m */}} /* Close n */
    0          
170 0 0         {/* Open q=__privtrans->ind_sizes[0] */ PDL_EXPAND2(register PDL_Indx q=PDLMAX((__privtrans->ind_sizes[0]),0), __q_stop=(__q_size)); for(; q<__q_stop; q+=1) {{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) { (out_datap)[0+(__inc_out_n*(n))+(__inc_out_q*(q))] = (y_datap)[0+(__inc_y_n*(n))+(__inc_y_p*(q-__privtrans->ind_sizes[0]))]; }} /* Close q=__privtrans->ind_sizes[0] */}} /* Close n */
    0          
171 0 0         }PDL_BROADCASTLOOP_END_mstack_readdata
    0          
172 0           } break;
173 0           case PDL_CF: {
174 0 0         PDL_DECLARE_PARAMS_mstack_1(PDL_CFloat,G)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
175 0 0         PDL_BROADCASTLOOP_START_mstack_readdata {
    0          
    0          
    0          
    0          
    0          
    0          
176 0 0         {/* Open m */ PDL_EXPAND2(register PDL_Indx m=0, __m_stop=(__m_size)); for(; m<__m_stop; m+=1) {{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) { (out_datap)[0+(__inc_out_n*(n))+(__inc_out_q*(m))] = (x_datap)[0+(__inc_x_n*(n))+(__inc_x_m*(m))]; }} /* Close m */}} /* Close n */
    0          
177 0 0         {/* Open q=__privtrans->ind_sizes[0] */ PDL_EXPAND2(register PDL_Indx q=PDLMAX((__privtrans->ind_sizes[0]),0), __q_stop=(__q_size)); for(; q<__q_stop; q+=1) {{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) { (out_datap)[0+(__inc_out_n*(n))+(__inc_out_q*(q))] = (y_datap)[0+(__inc_y_n*(n))+(__inc_y_p*(q-__privtrans->ind_sizes[0]))]; }} /* Close q=__privtrans->ind_sizes[0] */}} /* Close n */
    0          
178 0 0         }PDL_BROADCASTLOOP_END_mstack_readdata
    0          
179 0           } break;
180 0           case PDL_CD: {
181 0 0         PDL_DECLARE_PARAMS_mstack_1(PDL_CDouble,C)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
182 0 0         PDL_BROADCASTLOOP_START_mstack_readdata {
    0          
    0          
    0          
    0          
    0          
    0          
183 0 0         {/* Open m */ PDL_EXPAND2(register PDL_Indx m=0, __m_stop=(__m_size)); for(; m<__m_stop; m+=1) {{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) { (out_datap)[0+(__inc_out_n*(n))+(__inc_out_q*(m))] = (x_datap)[0+(__inc_x_n*(n))+(__inc_x_m*(m))]; }} /* Close m */}} /* Close n */
    0          
184 0 0         {/* Open q=__privtrans->ind_sizes[0] */ PDL_EXPAND2(register PDL_Indx q=PDLMAX((__privtrans->ind_sizes[0]),0), __q_stop=(__q_size)); for(; q<__q_stop; q+=1) {{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) { (out_datap)[0+(__inc_out_n*(n))+(__inc_out_q*(q))] = (y_datap)[0+(__inc_y_n*(n))+(__inc_y_p*(q-__privtrans->ind_sizes[0]))]; }} /* Close q=__privtrans->ind_sizes[0] */}} /* Close n */
    0          
185 0 0         }PDL_BROADCASTLOOP_END_mstack_readdata
    0          
186 0           } break;
187 0           case PDL_CLD: {
188 0 0         PDL_DECLARE_PARAMS_mstack_1(PDL_CLDouble,H)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
189 0 0         PDL_BROADCASTLOOP_START_mstack_readdata {
    0          
    0          
    0          
    0          
    0          
    0          
190 0 0         {/* Open m */ PDL_EXPAND2(register PDL_Indx m=0, __m_stop=(__m_size)); for(; m<__m_stop; m+=1) {{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) { (out_datap)[0+(__inc_out_n*(n))+(__inc_out_q*(m))] = (x_datap)[0+(__inc_x_n*(n))+(__inc_x_m*(m))]; }} /* Close m */}} /* Close n */
    0          
191 0 0         {/* Open q=__privtrans->ind_sizes[0] */ PDL_EXPAND2(register PDL_Indx q=PDLMAX((__privtrans->ind_sizes[0]),0), __q_stop=(__q_size)); for(; q<__q_stop; q+=1) {{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) { (out_datap)[0+(__inc_out_n*(n))+(__inc_out_q*(q))] = (y_datap)[0+(__inc_y_n*(n))+(__inc_y_p*(q-__privtrans->ind_sizes[0]))]; }} /* Close q=__privtrans->ind_sizes[0] */}} /* Close n */
    0          
192 0 0         }PDL_BROADCASTLOOP_END_mstack_readdata
    0          
193 0           } break;
194 0           default: return PDL->make_error(PDL_EUSERERROR, "PP INTERNAL ERROR in mstack: unhandled datatype(%d), only handles (ABSULKNPQFDEGCH)! PLEASE MAKE A BUG REPORT\n", __privtrans->__datatype);
195             }
196             #undef PDL_IF_BAD
197 1           return PDL_err;
198             }
199              
200              
201             #line 1857 "lib/PDL/PP.pm"
202             pdl_error pdl_mstack_writebackdata(pdl_trans *__privtrans) {
203             pdl_error PDL_err = {0, NULL, 0};
204             #line 205 "lib/PDL/MatrixOps-pp-mstack.c"
205 0           register PDL_Indx __m_size = __privtrans->ind_sizes[0];
206 0           register PDL_Indx __n_size = __privtrans->ind_sizes[1];
207 0           register PDL_Indx __q_size = __privtrans->ind_sizes[3];
208 0 0         if (!__privtrans->broadcast.incs) return PDL->make_error(PDL_EUSERERROR, "Error in mstack:" "broadcast.incs NULL");
209             /* broadcastloop declarations */
210             int __brcloopval;
211             register PDL_Indx __tind0,__tind1; /* counters along dim */
212 0           register PDL_Indx __tnpdls = __privtrans->broadcast.npdls;
213             /* dims here are how many steps along those dims */
214 0           register PDL_Indx __tinc0_x = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,0,0);
215 0           register PDL_Indx __tinc0_y = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,1,0);
216 0           register PDL_Indx __tinc0_out = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,2,0);
217 0           register PDL_Indx __tinc1_x = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,0,1);
218 0           register PDL_Indx __tinc1_y = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,1,1);
219 0           register PDL_Indx __tinc1_out = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,2,1);
220             #define PDL_BROADCASTLOOP_START_mstack_writebackdata PDL_BROADCASTLOOP_START( \
221             writebackdata, \
222             __privtrans->broadcast, \
223             __privtrans->vtable, \
224             x_datap += __offsp[0]; \
225             y_datap += __offsp[1]; \
226             out_datap += __offsp[2]; \
227             , \
228             ( ,x_datap += __tinc1_x - __tinc0_x * __tdims0 \
229             ,y_datap += __tinc1_y - __tinc0_y * __tdims0 \
230             ,out_datap += __tinc1_out - __tinc0_out * __tdims0 \
231             ), \
232             ( ,x_datap += __tinc0_x \
233             ,y_datap += __tinc0_y \
234             ,out_datap += __tinc0_out \
235             ) \
236             )
237             #define PDL_BROADCASTLOOP_END_mstack_writebackdata PDL_BROADCASTLOOP_END( \
238             __privtrans->broadcast, \
239             x_datap -= __tinc1_x * __tdims1 + __offsp[0]; \
240             y_datap -= __tinc1_y * __tdims1 + __offsp[1]; \
241             out_datap -= __tinc1_out * __tdims1 + __offsp[2]; \
242             )
243 0           register PDL_Indx __inc_out_n = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,2,0)]; (void)__inc_out_n;register PDL_Indx __inc_out_q = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,2,1)]; (void)__inc_out_q;
244 0           register PDL_Indx __inc_x_n = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,0,0)]; (void)__inc_x_n;register PDL_Indx __inc_x_m = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,0,1)]; (void)__inc_x_m;
245 0           register PDL_Indx __inc_y_n = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,1,0)]; (void)__inc_y_n;register PDL_Indx __inc_y_p = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,1,1)]; (void)__inc_y_p;
246             #ifndef PDL_DECLARE_PARAMS_mstack_1
247             #define PDL_DECLARE_PARAMS_mstack_1(PDL_TYPE_OP,PDL_PPSYM_OP) \
248             PDL_DECLARE_PARAMETER(PDL_TYPE_OP, x, (__privtrans->pdls[0]), 1, PDL_PPSYM_OP) \
249             PDL_DECLARE_PARAMETER(PDL_TYPE_OP, y, (__privtrans->pdls[1]), 1, PDL_PPSYM_OP) \
250             PDL_DECLARE_PARAMETER(PDL_TYPE_OP, out, (__privtrans->pdls[2]), 1, PDL_PPSYM_OP)
251             #endif
252             #define PDL_IF_BAD(t,f) f
253 0           switch (__privtrans->__datatype) { /* Start generic switch */
254 0           case PDL_SB: {
255 0 0         PDL_DECLARE_PARAMS_mstack_1(PDL_SByte,A)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
256 0 0         PDL_BROADCASTLOOP_START_mstack_writebackdata {
    0          
    0          
    0          
    0          
    0          
    0          
257 0 0         {/* Open m */ PDL_EXPAND2(register PDL_Indx m=0, __m_stop=(__m_size)); for(; m<__m_stop; m+=1) {{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) { (x_datap)[0+(__inc_x_n*(n))+(__inc_x_m*(m))] = (out_datap)[0+(__inc_out_n*(n))+(__inc_out_q*(m))]; }} /* Close m */}} /* Close n */
    0          
258 0 0         {/* Open q=__privtrans->ind_sizes[0] */ PDL_EXPAND2(register PDL_Indx q=PDLMAX((__privtrans->ind_sizes[0]),0), __q_stop=(__q_size)); for(; q<__q_stop; q+=1) {{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) { (y_datap)[0+(__inc_y_n*(n))+(__inc_y_p*(q-__privtrans->ind_sizes[0]))] = (out_datap)[0+(__inc_out_n*(n))+(__inc_out_q*(q))]; }} /* Close q=__privtrans->ind_sizes[0] */}} /* Close n */
    0          
259 0 0         }PDL_BROADCASTLOOP_END_mstack_writebackdata
    0          
260 0           } break;
261 0           case PDL_B: {
262 0 0         PDL_DECLARE_PARAMS_mstack_1(PDL_Byte,B)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
263 0 0         PDL_BROADCASTLOOP_START_mstack_writebackdata {
    0          
    0          
    0          
    0          
    0          
    0          
264 0 0         {/* Open m */ PDL_EXPAND2(register PDL_Indx m=0, __m_stop=(__m_size)); for(; m<__m_stop; m+=1) {{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) { (x_datap)[0+(__inc_x_n*(n))+(__inc_x_m*(m))] = (out_datap)[0+(__inc_out_n*(n))+(__inc_out_q*(m))]; }} /* Close m */}} /* Close n */
    0          
265 0 0         {/* Open q=__privtrans->ind_sizes[0] */ PDL_EXPAND2(register PDL_Indx q=PDLMAX((__privtrans->ind_sizes[0]),0), __q_stop=(__q_size)); for(; q<__q_stop; q+=1) {{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) { (y_datap)[0+(__inc_y_n*(n))+(__inc_y_p*(q-__privtrans->ind_sizes[0]))] = (out_datap)[0+(__inc_out_n*(n))+(__inc_out_q*(q))]; }} /* Close q=__privtrans->ind_sizes[0] */}} /* Close n */
    0          
266 0 0         }PDL_BROADCASTLOOP_END_mstack_writebackdata
    0          
267 0           } break;
268 0           case PDL_S: {
269 0 0         PDL_DECLARE_PARAMS_mstack_1(PDL_Short,S)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
270 0 0         PDL_BROADCASTLOOP_START_mstack_writebackdata {
    0          
    0          
    0          
    0          
    0          
    0          
271 0 0         {/* Open m */ PDL_EXPAND2(register PDL_Indx m=0, __m_stop=(__m_size)); for(; m<__m_stop; m+=1) {{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) { (x_datap)[0+(__inc_x_n*(n))+(__inc_x_m*(m))] = (out_datap)[0+(__inc_out_n*(n))+(__inc_out_q*(m))]; }} /* Close m */}} /* Close n */
    0          
272 0 0         {/* Open q=__privtrans->ind_sizes[0] */ PDL_EXPAND2(register PDL_Indx q=PDLMAX((__privtrans->ind_sizes[0]),0), __q_stop=(__q_size)); for(; q<__q_stop; q+=1) {{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) { (y_datap)[0+(__inc_y_n*(n))+(__inc_y_p*(q-__privtrans->ind_sizes[0]))] = (out_datap)[0+(__inc_out_n*(n))+(__inc_out_q*(q))]; }} /* Close q=__privtrans->ind_sizes[0] */}} /* Close n */
    0          
273 0 0         }PDL_BROADCASTLOOP_END_mstack_writebackdata
    0          
274 0           } break;
275 0           case PDL_US: {
276 0 0         PDL_DECLARE_PARAMS_mstack_1(PDL_Ushort,U)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
277 0 0         PDL_BROADCASTLOOP_START_mstack_writebackdata {
    0          
    0          
    0          
    0          
    0          
    0          
278 0 0         {/* Open m */ PDL_EXPAND2(register PDL_Indx m=0, __m_stop=(__m_size)); for(; m<__m_stop; m+=1) {{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) { (x_datap)[0+(__inc_x_n*(n))+(__inc_x_m*(m))] = (out_datap)[0+(__inc_out_n*(n))+(__inc_out_q*(m))]; }} /* Close m */}} /* Close n */
    0          
279 0 0         {/* Open q=__privtrans->ind_sizes[0] */ PDL_EXPAND2(register PDL_Indx q=PDLMAX((__privtrans->ind_sizes[0]),0), __q_stop=(__q_size)); for(; q<__q_stop; q+=1) {{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) { (y_datap)[0+(__inc_y_n*(n))+(__inc_y_p*(q-__privtrans->ind_sizes[0]))] = (out_datap)[0+(__inc_out_n*(n))+(__inc_out_q*(q))]; }} /* Close q=__privtrans->ind_sizes[0] */}} /* Close n */
    0          
280 0 0         }PDL_BROADCASTLOOP_END_mstack_writebackdata
    0          
281 0           } break;
282 0           case PDL_L: {
283 0 0         PDL_DECLARE_PARAMS_mstack_1(PDL_Long,L)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
284 0 0         PDL_BROADCASTLOOP_START_mstack_writebackdata {
    0          
    0          
    0          
    0          
    0          
    0          
285 0 0         {/* Open m */ PDL_EXPAND2(register PDL_Indx m=0, __m_stop=(__m_size)); for(; m<__m_stop; m+=1) {{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) { (x_datap)[0+(__inc_x_n*(n))+(__inc_x_m*(m))] = (out_datap)[0+(__inc_out_n*(n))+(__inc_out_q*(m))]; }} /* Close m */}} /* Close n */
    0          
286 0 0         {/* Open q=__privtrans->ind_sizes[0] */ PDL_EXPAND2(register PDL_Indx q=PDLMAX((__privtrans->ind_sizes[0]),0), __q_stop=(__q_size)); for(; q<__q_stop; q+=1) {{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) { (y_datap)[0+(__inc_y_n*(n))+(__inc_y_p*(q-__privtrans->ind_sizes[0]))] = (out_datap)[0+(__inc_out_n*(n))+(__inc_out_q*(q))]; }} /* Close q=__privtrans->ind_sizes[0] */}} /* Close n */
    0          
287 0 0         }PDL_BROADCASTLOOP_END_mstack_writebackdata
    0          
288 0           } break;
289 0           case PDL_UL: {
290 0 0         PDL_DECLARE_PARAMS_mstack_1(PDL_ULong,K)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
291 0 0         PDL_BROADCASTLOOP_START_mstack_writebackdata {
    0          
    0          
    0          
    0          
    0          
    0          
292 0 0         {/* Open m */ PDL_EXPAND2(register PDL_Indx m=0, __m_stop=(__m_size)); for(; m<__m_stop; m+=1) {{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) { (x_datap)[0+(__inc_x_n*(n))+(__inc_x_m*(m))] = (out_datap)[0+(__inc_out_n*(n))+(__inc_out_q*(m))]; }} /* Close m */}} /* Close n */
    0          
293 0 0         {/* Open q=__privtrans->ind_sizes[0] */ PDL_EXPAND2(register PDL_Indx q=PDLMAX((__privtrans->ind_sizes[0]),0), __q_stop=(__q_size)); for(; q<__q_stop; q+=1) {{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) { (y_datap)[0+(__inc_y_n*(n))+(__inc_y_p*(q-__privtrans->ind_sizes[0]))] = (out_datap)[0+(__inc_out_n*(n))+(__inc_out_q*(q))]; }} /* Close q=__privtrans->ind_sizes[0] */}} /* Close n */
    0          
294 0 0         }PDL_BROADCASTLOOP_END_mstack_writebackdata
    0          
295 0           } break;
296 0           case PDL_IND: {
297 0 0         PDL_DECLARE_PARAMS_mstack_1(PDL_Indx,N)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
298 0 0         PDL_BROADCASTLOOP_START_mstack_writebackdata {
    0          
    0          
    0          
    0          
    0          
    0          
299 0 0         {/* Open m */ PDL_EXPAND2(register PDL_Indx m=0, __m_stop=(__m_size)); for(; m<__m_stop; m+=1) {{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) { (x_datap)[0+(__inc_x_n*(n))+(__inc_x_m*(m))] = (out_datap)[0+(__inc_out_n*(n))+(__inc_out_q*(m))]; }} /* Close m */}} /* Close n */
    0          
300 0 0         {/* Open q=__privtrans->ind_sizes[0] */ PDL_EXPAND2(register PDL_Indx q=PDLMAX((__privtrans->ind_sizes[0]),0), __q_stop=(__q_size)); for(; q<__q_stop; q+=1) {{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) { (y_datap)[0+(__inc_y_n*(n))+(__inc_y_p*(q-__privtrans->ind_sizes[0]))] = (out_datap)[0+(__inc_out_n*(n))+(__inc_out_q*(q))]; }} /* Close q=__privtrans->ind_sizes[0] */}} /* Close n */
    0          
301 0 0         }PDL_BROADCASTLOOP_END_mstack_writebackdata
    0          
302 0           } break;
303 0           case PDL_ULL: {
304 0 0         PDL_DECLARE_PARAMS_mstack_1(PDL_ULongLong,P)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
305 0 0         PDL_BROADCASTLOOP_START_mstack_writebackdata {
    0          
    0          
    0          
    0          
    0          
    0          
306 0 0         {/* Open m */ PDL_EXPAND2(register PDL_Indx m=0, __m_stop=(__m_size)); for(; m<__m_stop; m+=1) {{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) { (x_datap)[0+(__inc_x_n*(n))+(__inc_x_m*(m))] = (out_datap)[0+(__inc_out_n*(n))+(__inc_out_q*(m))]; }} /* Close m */}} /* Close n */
    0          
307 0 0         {/* Open q=__privtrans->ind_sizes[0] */ PDL_EXPAND2(register PDL_Indx q=PDLMAX((__privtrans->ind_sizes[0]),0), __q_stop=(__q_size)); for(; q<__q_stop; q+=1) {{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) { (y_datap)[0+(__inc_y_n*(n))+(__inc_y_p*(q-__privtrans->ind_sizes[0]))] = (out_datap)[0+(__inc_out_n*(n))+(__inc_out_q*(q))]; }} /* Close q=__privtrans->ind_sizes[0] */}} /* Close n */
    0          
308 0 0         }PDL_BROADCASTLOOP_END_mstack_writebackdata
    0          
309 0           } break;
310 0           case PDL_LL: {
311 0 0         PDL_DECLARE_PARAMS_mstack_1(PDL_LongLong,Q)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
312 0 0         PDL_BROADCASTLOOP_START_mstack_writebackdata {
    0          
    0          
    0          
    0          
    0          
    0          
313 0 0         {/* Open m */ PDL_EXPAND2(register PDL_Indx m=0, __m_stop=(__m_size)); for(; m<__m_stop; m+=1) {{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) { (x_datap)[0+(__inc_x_n*(n))+(__inc_x_m*(m))] = (out_datap)[0+(__inc_out_n*(n))+(__inc_out_q*(m))]; }} /* Close m */}} /* Close n */
    0          
314 0 0         {/* Open q=__privtrans->ind_sizes[0] */ PDL_EXPAND2(register PDL_Indx q=PDLMAX((__privtrans->ind_sizes[0]),0), __q_stop=(__q_size)); for(; q<__q_stop; q+=1) {{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) { (y_datap)[0+(__inc_y_n*(n))+(__inc_y_p*(q-__privtrans->ind_sizes[0]))] = (out_datap)[0+(__inc_out_n*(n))+(__inc_out_q*(q))]; }} /* Close q=__privtrans->ind_sizes[0] */}} /* Close n */
    0          
315 0 0         }PDL_BROADCASTLOOP_END_mstack_writebackdata
    0          
316 0           } break;
317 0           case PDL_F: {
318 0 0         PDL_DECLARE_PARAMS_mstack_1(PDL_Float,F)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
319 0 0         PDL_BROADCASTLOOP_START_mstack_writebackdata {
    0          
    0          
    0          
    0          
    0          
    0          
320 0 0         {/* Open m */ PDL_EXPAND2(register PDL_Indx m=0, __m_stop=(__m_size)); for(; m<__m_stop; m+=1) {{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) { (x_datap)[0+(__inc_x_n*(n))+(__inc_x_m*(m))] = (out_datap)[0+(__inc_out_n*(n))+(__inc_out_q*(m))]; }} /* Close m */}} /* Close n */
    0          
321 0 0         {/* Open q=__privtrans->ind_sizes[0] */ PDL_EXPAND2(register PDL_Indx q=PDLMAX((__privtrans->ind_sizes[0]),0), __q_stop=(__q_size)); for(; q<__q_stop; q+=1) {{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) { (y_datap)[0+(__inc_y_n*(n))+(__inc_y_p*(q-__privtrans->ind_sizes[0]))] = (out_datap)[0+(__inc_out_n*(n))+(__inc_out_q*(q))]; }} /* Close q=__privtrans->ind_sizes[0] */}} /* Close n */
    0          
322 0 0         }PDL_BROADCASTLOOP_END_mstack_writebackdata
    0          
323 0           } break;
324 0           case PDL_D: {
325 0 0         PDL_DECLARE_PARAMS_mstack_1(PDL_Double,D)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
326 0 0         PDL_BROADCASTLOOP_START_mstack_writebackdata {
    0          
    0          
    0          
    0          
    0          
    0          
327 0 0         {/* Open m */ PDL_EXPAND2(register PDL_Indx m=0, __m_stop=(__m_size)); for(; m<__m_stop; m+=1) {{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) { (x_datap)[0+(__inc_x_n*(n))+(__inc_x_m*(m))] = (out_datap)[0+(__inc_out_n*(n))+(__inc_out_q*(m))]; }} /* Close m */}} /* Close n */
    0          
328 0 0         {/* Open q=__privtrans->ind_sizes[0] */ PDL_EXPAND2(register PDL_Indx q=PDLMAX((__privtrans->ind_sizes[0]),0), __q_stop=(__q_size)); for(; q<__q_stop; q+=1) {{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) { (y_datap)[0+(__inc_y_n*(n))+(__inc_y_p*(q-__privtrans->ind_sizes[0]))] = (out_datap)[0+(__inc_out_n*(n))+(__inc_out_q*(q))]; }} /* Close q=__privtrans->ind_sizes[0] */}} /* Close n */
    0          
329 0 0         }PDL_BROADCASTLOOP_END_mstack_writebackdata
    0          
330 0           } break;
331 0           case PDL_LD: {
332 0 0         PDL_DECLARE_PARAMS_mstack_1(PDL_LDouble,E)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
333 0 0         PDL_BROADCASTLOOP_START_mstack_writebackdata {
    0          
    0          
    0          
    0          
    0          
    0          
334 0 0         {/* Open m */ PDL_EXPAND2(register PDL_Indx m=0, __m_stop=(__m_size)); for(; m<__m_stop; m+=1) {{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) { (x_datap)[0+(__inc_x_n*(n))+(__inc_x_m*(m))] = (out_datap)[0+(__inc_out_n*(n))+(__inc_out_q*(m))]; }} /* Close m */}} /* Close n */
    0          
335 0 0         {/* Open q=__privtrans->ind_sizes[0] */ PDL_EXPAND2(register PDL_Indx q=PDLMAX((__privtrans->ind_sizes[0]),0), __q_stop=(__q_size)); for(; q<__q_stop; q+=1) {{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) { (y_datap)[0+(__inc_y_n*(n))+(__inc_y_p*(q-__privtrans->ind_sizes[0]))] = (out_datap)[0+(__inc_out_n*(n))+(__inc_out_q*(q))]; }} /* Close q=__privtrans->ind_sizes[0] */}} /* Close n */
    0          
336 0 0         }PDL_BROADCASTLOOP_END_mstack_writebackdata
    0          
337 0           } break;
338 0           case PDL_CF: {
339 0 0         PDL_DECLARE_PARAMS_mstack_1(PDL_CFloat,G)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
340 0 0         PDL_BROADCASTLOOP_START_mstack_writebackdata {
    0          
    0          
    0          
    0          
    0          
    0          
341 0 0         {/* Open m */ PDL_EXPAND2(register PDL_Indx m=0, __m_stop=(__m_size)); for(; m<__m_stop; m+=1) {{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) { (x_datap)[0+(__inc_x_n*(n))+(__inc_x_m*(m))] = (out_datap)[0+(__inc_out_n*(n))+(__inc_out_q*(m))]; }} /* Close m */}} /* Close n */
    0          
342 0 0         {/* Open q=__privtrans->ind_sizes[0] */ PDL_EXPAND2(register PDL_Indx q=PDLMAX((__privtrans->ind_sizes[0]),0), __q_stop=(__q_size)); for(; q<__q_stop; q+=1) {{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) { (y_datap)[0+(__inc_y_n*(n))+(__inc_y_p*(q-__privtrans->ind_sizes[0]))] = (out_datap)[0+(__inc_out_n*(n))+(__inc_out_q*(q))]; }} /* Close q=__privtrans->ind_sizes[0] */}} /* Close n */
    0          
343 0 0         }PDL_BROADCASTLOOP_END_mstack_writebackdata
    0          
344 0           } break;
345 0           case PDL_CD: {
346 0 0         PDL_DECLARE_PARAMS_mstack_1(PDL_CDouble,C)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
347 0 0         PDL_BROADCASTLOOP_START_mstack_writebackdata {
    0          
    0          
    0          
    0          
    0          
    0          
348 0 0         {/* Open m */ PDL_EXPAND2(register PDL_Indx m=0, __m_stop=(__m_size)); for(; m<__m_stop; m+=1) {{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) { (x_datap)[0+(__inc_x_n*(n))+(__inc_x_m*(m))] = (out_datap)[0+(__inc_out_n*(n))+(__inc_out_q*(m))]; }} /* Close m */}} /* Close n */
    0          
349 0 0         {/* Open q=__privtrans->ind_sizes[0] */ PDL_EXPAND2(register PDL_Indx q=PDLMAX((__privtrans->ind_sizes[0]),0), __q_stop=(__q_size)); for(; q<__q_stop; q+=1) {{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) { (y_datap)[0+(__inc_y_n*(n))+(__inc_y_p*(q-__privtrans->ind_sizes[0]))] = (out_datap)[0+(__inc_out_n*(n))+(__inc_out_q*(q))]; }} /* Close q=__privtrans->ind_sizes[0] */}} /* Close n */
    0          
350 0 0         }PDL_BROADCASTLOOP_END_mstack_writebackdata
    0          
351 0           } break;
352 0           case PDL_CLD: {
353 0 0         PDL_DECLARE_PARAMS_mstack_1(PDL_CLDouble,H)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
354 0 0         PDL_BROADCASTLOOP_START_mstack_writebackdata {
    0          
    0          
    0          
    0          
    0          
    0          
355 0 0         {/* Open m */ PDL_EXPAND2(register PDL_Indx m=0, __m_stop=(__m_size)); for(; m<__m_stop; m+=1) {{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) { (x_datap)[0+(__inc_x_n*(n))+(__inc_x_m*(m))] = (out_datap)[0+(__inc_out_n*(n))+(__inc_out_q*(m))]; }} /* Close m */}} /* Close n */
    0          
356 0 0         {/* Open q=__privtrans->ind_sizes[0] */ PDL_EXPAND2(register PDL_Indx q=PDLMAX((__privtrans->ind_sizes[0]),0), __q_stop=(__q_size)); for(; q<__q_stop; q+=1) {{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) { (y_datap)[0+(__inc_y_n*(n))+(__inc_y_p*(q-__privtrans->ind_sizes[0]))] = (out_datap)[0+(__inc_out_n*(n))+(__inc_out_q*(q))]; }} /* Close q=__privtrans->ind_sizes[0] */}} /* Close n */
    0          
357 0 0         }PDL_BROADCASTLOOP_END_mstack_writebackdata
    0          
358 0           } break;
359 0           default: return PDL->make_error(PDL_EUSERERROR, "PP INTERNAL ERROR in mstack: unhandled datatype(%d), only handles (ABSULKNPQFDEGCH)! PLEASE MAKE A BUG REPORT\n", __privtrans->__datatype);
360             }
361             #undef PDL_IF_BAD
362 0           return PDL_err;
363             }
364              
365             static pdl_datatypes pdl_mstack_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 };
366             static PDL_Indx pdl_mstack_vtable_realdims[] = { 2, 2, 2 };
367             static char *pdl_mstack_vtable_parnames[] = { "x","y","out" };
368             static short pdl_mstack_vtable_parflags[] = {
369             0,
370             0,
371             PDL_PARAM_ISCREAT|PDL_PARAM_ISOUT|PDL_PARAM_ISWRITE
372             };
373             static pdl_datatypes pdl_mstack_vtable_partypes[] = { -1, -1, -1 };
374             static PDL_Indx pdl_mstack_vtable_realdims_starts[] = { 0, 2, 4 };
375             static PDL_Indx pdl_mstack_vtable_realdims_ind_ids[] = { 1, 0, 1, 2, 1, 3 };
376             static char *pdl_mstack_vtable_indnames[] = { "m","n","p","q" };
377             pdl_transvtable pdl_mstack_vtable = {
378             PDL_TRANS_DO_BROADCAST, PDL_ITRANS_TWOWAY|PDL_ITRANS_DO_DATAFLOW_ANY, pdl_mstack_vtable_gentypes, 2, 3, NULL /*CORE21*/,
379             pdl_mstack_vtable_realdims, pdl_mstack_vtable_parnames,
380             pdl_mstack_vtable_parflags, pdl_mstack_vtable_partypes,
381             pdl_mstack_vtable_realdims_starts, pdl_mstack_vtable_realdims_ind_ids, 6,
382             4, pdl_mstack_vtable_indnames,
383             pdl_mstack_redodims, pdl_mstack_readdata, pdl_mstack_writebackdata,
384             NULL,
385             0,"PDL::MatrixOps::mstack"
386             };
387              
388              
389 1           pdl_error pdl_run_mstack(pdl *x,pdl *y,pdl *out) {
390 1           pdl_error PDL_err = {0, NULL, 0};
391 1 50         if (!PDL) return (pdl_error){PDL_EFATAL, "PDL core struct is NULL, can't continue",0};
392 1           pdl_trans *__privtrans = PDL->create_trans(&pdl_mstack_vtable);
393 1 50         if (!__privtrans) return PDL->make_error_simple(PDL_EFATAL, "Couldn't create trans");
394 1           __privtrans->pdls[0] = x;
395 1           __privtrans->pdls[1] = y;
396 1           __privtrans->pdls[2] = out;
397 1 50         PDL_RETERROR(PDL_err, PDL->type_coerce(__privtrans));
398 1 50         PDL_RETERROR(PDL_err, PDL->make_trans_mutual(__privtrans));
399 1           return PDL_err;
400             }