File Coverage

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