Branch Coverage

lib/PDL/Primitive-pp-norm.c
Criterion Covered Total %
branch 90 1596 5.6


line true false branch
28 0 3 if (!__privtrans->broadcast.incs) return PDL->make_error(PDL_EUSERERROR, "Error in norm:" "broadcast.incs NULL");
64 1 2 if ( __privtrans->bvalflag ) { /* ** do 'bad' Code ** */
72 0 0 PDL_DECLARE_PARAMS_norm_1(PDL_SByte,A)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_SByte,A)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_SByte,A)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_SByte,A)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_SByte,A)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_SByte,A)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_SByte,A)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_SByte,A)
73 0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
75 0 0 {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
76 0 0 PDL_IF_BAD(if (PDL_ISBAD2((vec_datap)[0+(__inc_vec_n*(n))],vec_badval,A,vec_badval_isnan)) continue; flag = 1;,)
0 0 PDL_IF_BAD(if (PDL_ISBAD2((vec_datap)[0+(__inc_vec_n*(n))],vec_badval,A,vec_badval_isnan)) continue; flag = 1;,)
82 0 0 PDL_IF_BAD(if ( !flag ) {
0 0 PDL_IF_BAD(if ( !flag ) {
86 0 0 if (sum > 0) {
88 0 0 {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
89 0 0 PDL_IF_BAD(if ( PDL_ISBAD2((vec_datap)[0+(__inc_vec_n*(n))],vec_badval,A,vec_badval_isnan) ) { (norm_datap)[0+(__inc_norm_n*(n))]=norm_badval; }
0 0 PDL_IF_BAD(if ( PDL_ISBAD2((vec_datap)[0+(__inc_vec_n*(n))],vec_badval,A,vec_badval_isnan) ) { (norm_datap)[0+(__inc_norm_n*(n))]=norm_badval; }
93 0 0 {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
94 0 0 PDL_IF_BAD(if ( PDL_ISBAD2((vec_datap)[0+(__inc_vec_n*(n))],vec_badval,A,vec_badval_isnan) ) { (norm_datap)[0+(__inc_norm_n*(n))]=norm_badval; }
0 0 PDL_IF_BAD(if ( PDL_ISBAD2((vec_datap)[0+(__inc_vec_n*(n))],vec_badval,A,vec_badval_isnan) ) { (norm_datap)[0+(__inc_norm_n*(n))]=norm_badval; }
98 0 0 }PDL_BROADCASTLOOP_END_norm_readdata
0 0 }PDL_BROADCASTLOOP_END_norm_readdata
107 0 0 PDL_DECLARE_PARAMS_norm_1(PDL_Byte,B)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_Byte,B)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_Byte,B)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_Byte,B)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_Byte,B)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_Byte,B)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_Byte,B)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_Byte,B)
108 0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
110 0 0 {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
111 0 0 PDL_IF_BAD(if (PDL_ISBAD2((vec_datap)[0+(__inc_vec_n*(n))],vec_badval,B,vec_badval_isnan)) continue; flag = 1;,)
0 0 PDL_IF_BAD(if (PDL_ISBAD2((vec_datap)[0+(__inc_vec_n*(n))],vec_badval,B,vec_badval_isnan)) continue; flag = 1;,)
117 0 0 PDL_IF_BAD(if ( !flag ) {
0 0 PDL_IF_BAD(if ( !flag ) {
121 0 0 if (sum > 0) {
123 0 0 {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
124 0 0 PDL_IF_BAD(if ( PDL_ISBAD2((vec_datap)[0+(__inc_vec_n*(n))],vec_badval,B,vec_badval_isnan) ) { (norm_datap)[0+(__inc_norm_n*(n))]=norm_badval; }
0 0 PDL_IF_BAD(if ( PDL_ISBAD2((vec_datap)[0+(__inc_vec_n*(n))],vec_badval,B,vec_badval_isnan) ) { (norm_datap)[0+(__inc_norm_n*(n))]=norm_badval; }
128 0 0 {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
129 0 0 PDL_IF_BAD(if ( PDL_ISBAD2((vec_datap)[0+(__inc_vec_n*(n))],vec_badval,B,vec_badval_isnan) ) { (norm_datap)[0+(__inc_norm_n*(n))]=norm_badval; }
0 0 PDL_IF_BAD(if ( PDL_ISBAD2((vec_datap)[0+(__inc_vec_n*(n))],vec_badval,B,vec_badval_isnan) ) { (norm_datap)[0+(__inc_norm_n*(n))]=norm_badval; }
133 0 0 }PDL_BROADCASTLOOP_END_norm_readdata
0 0 }PDL_BROADCASTLOOP_END_norm_readdata
142 0 0 PDL_DECLARE_PARAMS_norm_1(PDL_Short,S)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_Short,S)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_Short,S)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_Short,S)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_Short,S)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_Short,S)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_Short,S)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_Short,S)
143 0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
145 0 0 {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
146 0 0 PDL_IF_BAD(if (PDL_ISBAD2((vec_datap)[0+(__inc_vec_n*(n))],vec_badval,S,vec_badval_isnan)) continue; flag = 1;,)
0 0 PDL_IF_BAD(if (PDL_ISBAD2((vec_datap)[0+(__inc_vec_n*(n))],vec_badval,S,vec_badval_isnan)) continue; flag = 1;,)
152 0 0 PDL_IF_BAD(if ( !flag ) {
0 0 PDL_IF_BAD(if ( !flag ) {
156 0 0 if (sum > 0) {
158 0 0 {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
159 0 0 PDL_IF_BAD(if ( PDL_ISBAD2((vec_datap)[0+(__inc_vec_n*(n))],vec_badval,S,vec_badval_isnan) ) { (norm_datap)[0+(__inc_norm_n*(n))]=norm_badval; }
0 0 PDL_IF_BAD(if ( PDL_ISBAD2((vec_datap)[0+(__inc_vec_n*(n))],vec_badval,S,vec_badval_isnan) ) { (norm_datap)[0+(__inc_norm_n*(n))]=norm_badval; }
163 0 0 {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
164 0 0 PDL_IF_BAD(if ( PDL_ISBAD2((vec_datap)[0+(__inc_vec_n*(n))],vec_badval,S,vec_badval_isnan) ) { (norm_datap)[0+(__inc_norm_n*(n))]=norm_badval; }
0 0 PDL_IF_BAD(if ( PDL_ISBAD2((vec_datap)[0+(__inc_vec_n*(n))],vec_badval,S,vec_badval_isnan) ) { (norm_datap)[0+(__inc_norm_n*(n))]=norm_badval; }
168 0 0 }PDL_BROADCASTLOOP_END_norm_readdata
0 0 }PDL_BROADCASTLOOP_END_norm_readdata
177 0 0 PDL_DECLARE_PARAMS_norm_1(PDL_Ushort,U)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_Ushort,U)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_Ushort,U)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_Ushort,U)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_Ushort,U)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_Ushort,U)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_Ushort,U)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_Ushort,U)
178 0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
180 0 0 {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
181 0 0 PDL_IF_BAD(if (PDL_ISBAD2((vec_datap)[0+(__inc_vec_n*(n))],vec_badval,U,vec_badval_isnan)) continue; flag = 1;,)
0 0 PDL_IF_BAD(if (PDL_ISBAD2((vec_datap)[0+(__inc_vec_n*(n))],vec_badval,U,vec_badval_isnan)) continue; flag = 1;,)
187 0 0 PDL_IF_BAD(if ( !flag ) {
0 0 PDL_IF_BAD(if ( !flag ) {
191 0 0 if (sum > 0) {
193 0 0 {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
194 0 0 PDL_IF_BAD(if ( PDL_ISBAD2((vec_datap)[0+(__inc_vec_n*(n))],vec_badval,U,vec_badval_isnan) ) { (norm_datap)[0+(__inc_norm_n*(n))]=norm_badval; }
0 0 PDL_IF_BAD(if ( PDL_ISBAD2((vec_datap)[0+(__inc_vec_n*(n))],vec_badval,U,vec_badval_isnan) ) { (norm_datap)[0+(__inc_norm_n*(n))]=norm_badval; }
198 0 0 {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
199 0 0 PDL_IF_BAD(if ( PDL_ISBAD2((vec_datap)[0+(__inc_vec_n*(n))],vec_badval,U,vec_badval_isnan) ) { (norm_datap)[0+(__inc_norm_n*(n))]=norm_badval; }
0 0 PDL_IF_BAD(if ( PDL_ISBAD2((vec_datap)[0+(__inc_vec_n*(n))],vec_badval,U,vec_badval_isnan) ) { (norm_datap)[0+(__inc_norm_n*(n))]=norm_badval; }
203 0 0 }PDL_BROADCASTLOOP_END_norm_readdata
0 0 }PDL_BROADCASTLOOP_END_norm_readdata
212 0 0 PDL_DECLARE_PARAMS_norm_1(PDL_Long,L)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_Long,L)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_Long,L)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_Long,L)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_Long,L)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_Long,L)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_Long,L)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_Long,L)
213 0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
215 0 0 {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
216 0 0 PDL_IF_BAD(if (PDL_ISBAD2((vec_datap)[0+(__inc_vec_n*(n))],vec_badval,L,vec_badval_isnan)) continue; flag = 1;,)
0 0 PDL_IF_BAD(if (PDL_ISBAD2((vec_datap)[0+(__inc_vec_n*(n))],vec_badval,L,vec_badval_isnan)) continue; flag = 1;,)
222 0 0 PDL_IF_BAD(if ( !flag ) {
0 0 PDL_IF_BAD(if ( !flag ) {
226 0 0 if (sum > 0) {
228 0 0 {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
229 0 0 PDL_IF_BAD(if ( PDL_ISBAD2((vec_datap)[0+(__inc_vec_n*(n))],vec_badval,L,vec_badval_isnan) ) { (norm_datap)[0+(__inc_norm_n*(n))]=norm_badval; }
0 0 PDL_IF_BAD(if ( PDL_ISBAD2((vec_datap)[0+(__inc_vec_n*(n))],vec_badval,L,vec_badval_isnan) ) { (norm_datap)[0+(__inc_norm_n*(n))]=norm_badval; }
233 0 0 {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
234 0 0 PDL_IF_BAD(if ( PDL_ISBAD2((vec_datap)[0+(__inc_vec_n*(n))],vec_badval,L,vec_badval_isnan) ) { (norm_datap)[0+(__inc_norm_n*(n))]=norm_badval; }
0 0 PDL_IF_BAD(if ( PDL_ISBAD2((vec_datap)[0+(__inc_vec_n*(n))],vec_badval,L,vec_badval_isnan) ) { (norm_datap)[0+(__inc_norm_n*(n))]=norm_badval; }
238 0 0 }PDL_BROADCASTLOOP_END_norm_readdata
0 0 }PDL_BROADCASTLOOP_END_norm_readdata
247 0 0 PDL_DECLARE_PARAMS_norm_1(PDL_ULong,K)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_ULong,K)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_ULong,K)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_ULong,K)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_ULong,K)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_ULong,K)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_ULong,K)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_ULong,K)
248 0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
250 0 0 {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
251 0 0 PDL_IF_BAD(if (PDL_ISBAD2((vec_datap)[0+(__inc_vec_n*(n))],vec_badval,K,vec_badval_isnan)) continue; flag = 1;,)
0 0 PDL_IF_BAD(if (PDL_ISBAD2((vec_datap)[0+(__inc_vec_n*(n))],vec_badval,K,vec_badval_isnan)) continue; flag = 1;,)
257 0 0 PDL_IF_BAD(if ( !flag ) {
0 0 PDL_IF_BAD(if ( !flag ) {
261 0 0 if (sum > 0) {
263 0 0 {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
264 0 0 PDL_IF_BAD(if ( PDL_ISBAD2((vec_datap)[0+(__inc_vec_n*(n))],vec_badval,K,vec_badval_isnan) ) { (norm_datap)[0+(__inc_norm_n*(n))]=norm_badval; }
0 0 PDL_IF_BAD(if ( PDL_ISBAD2((vec_datap)[0+(__inc_vec_n*(n))],vec_badval,K,vec_badval_isnan) ) { (norm_datap)[0+(__inc_norm_n*(n))]=norm_badval; }
268 0 0 {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
269 0 0 PDL_IF_BAD(if ( PDL_ISBAD2((vec_datap)[0+(__inc_vec_n*(n))],vec_badval,K,vec_badval_isnan) ) { (norm_datap)[0+(__inc_norm_n*(n))]=norm_badval; }
0 0 PDL_IF_BAD(if ( PDL_ISBAD2((vec_datap)[0+(__inc_vec_n*(n))],vec_badval,K,vec_badval_isnan) ) { (norm_datap)[0+(__inc_norm_n*(n))]=norm_badval; }
273 0 0 }PDL_BROADCASTLOOP_END_norm_readdata
0 0 }PDL_BROADCASTLOOP_END_norm_readdata
282 0 0 PDL_DECLARE_PARAMS_norm_1(PDL_Indx,N)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_Indx,N)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_Indx,N)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_Indx,N)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_Indx,N)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_Indx,N)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_Indx,N)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_Indx,N)
283 0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
285 0 0 {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
286 0 0 PDL_IF_BAD(if (PDL_ISBAD2((vec_datap)[0+(__inc_vec_n*(n))],vec_badval,N,vec_badval_isnan)) continue; flag = 1;,)
0 0 PDL_IF_BAD(if (PDL_ISBAD2((vec_datap)[0+(__inc_vec_n*(n))],vec_badval,N,vec_badval_isnan)) continue; flag = 1;,)
292 0 0 PDL_IF_BAD(if ( !flag ) {
0 0 PDL_IF_BAD(if ( !flag ) {
296 0 0 if (sum > 0) {
298 0 0 {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
299 0 0 PDL_IF_BAD(if ( PDL_ISBAD2((vec_datap)[0+(__inc_vec_n*(n))],vec_badval,N,vec_badval_isnan) ) { (norm_datap)[0+(__inc_norm_n*(n))]=norm_badval; }
0 0 PDL_IF_BAD(if ( PDL_ISBAD2((vec_datap)[0+(__inc_vec_n*(n))],vec_badval,N,vec_badval_isnan) ) { (norm_datap)[0+(__inc_norm_n*(n))]=norm_badval; }
303 0 0 {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
304 0 0 PDL_IF_BAD(if ( PDL_ISBAD2((vec_datap)[0+(__inc_vec_n*(n))],vec_badval,N,vec_badval_isnan) ) { (norm_datap)[0+(__inc_norm_n*(n))]=norm_badval; }
0 0 PDL_IF_BAD(if ( PDL_ISBAD2((vec_datap)[0+(__inc_vec_n*(n))],vec_badval,N,vec_badval_isnan) ) { (norm_datap)[0+(__inc_norm_n*(n))]=norm_badval; }
308 0 0 }PDL_BROADCASTLOOP_END_norm_readdata
0 0 }PDL_BROADCASTLOOP_END_norm_readdata
317 0 0 PDL_DECLARE_PARAMS_norm_1(PDL_ULongLong,P)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_ULongLong,P)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_ULongLong,P)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_ULongLong,P)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_ULongLong,P)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_ULongLong,P)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_ULongLong,P)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_ULongLong,P)
318 0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
320 0 0 {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
321 0 0 PDL_IF_BAD(if (PDL_ISBAD2((vec_datap)[0+(__inc_vec_n*(n))],vec_badval,P,vec_badval_isnan)) continue; flag = 1;,)
0 0 PDL_IF_BAD(if (PDL_ISBAD2((vec_datap)[0+(__inc_vec_n*(n))],vec_badval,P,vec_badval_isnan)) continue; flag = 1;,)
327 0 0 PDL_IF_BAD(if ( !flag ) {
0 0 PDL_IF_BAD(if ( !flag ) {
331 0 0 if (sum > 0) {
333 0 0 {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
334 0 0 PDL_IF_BAD(if ( PDL_ISBAD2((vec_datap)[0+(__inc_vec_n*(n))],vec_badval,P,vec_badval_isnan) ) { (norm_datap)[0+(__inc_norm_n*(n))]=norm_badval; }
0 0 PDL_IF_BAD(if ( PDL_ISBAD2((vec_datap)[0+(__inc_vec_n*(n))],vec_badval,P,vec_badval_isnan) ) { (norm_datap)[0+(__inc_norm_n*(n))]=norm_badval; }
338 0 0 {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
339 0 0 PDL_IF_BAD(if ( PDL_ISBAD2((vec_datap)[0+(__inc_vec_n*(n))],vec_badval,P,vec_badval_isnan) ) { (norm_datap)[0+(__inc_norm_n*(n))]=norm_badval; }
0 0 PDL_IF_BAD(if ( PDL_ISBAD2((vec_datap)[0+(__inc_vec_n*(n))],vec_badval,P,vec_badval_isnan) ) { (norm_datap)[0+(__inc_norm_n*(n))]=norm_badval; }
343 0 0 }PDL_BROADCASTLOOP_END_norm_readdata
0 0 }PDL_BROADCASTLOOP_END_norm_readdata
352 0 0 PDL_DECLARE_PARAMS_norm_1(PDL_LongLong,Q)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_LongLong,Q)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_LongLong,Q)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_LongLong,Q)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_LongLong,Q)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_LongLong,Q)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_LongLong,Q)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_LongLong,Q)
353 0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
355 0 0 {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
356 0 0 PDL_IF_BAD(if (PDL_ISBAD2((vec_datap)[0+(__inc_vec_n*(n))],vec_badval,Q,vec_badval_isnan)) continue; flag = 1;,)
0 0 PDL_IF_BAD(if (PDL_ISBAD2((vec_datap)[0+(__inc_vec_n*(n))],vec_badval,Q,vec_badval_isnan)) continue; flag = 1;,)
362 0 0 PDL_IF_BAD(if ( !flag ) {
0 0 PDL_IF_BAD(if ( !flag ) {
366 0 0 if (sum > 0) {
368 0 0 {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
369 0 0 PDL_IF_BAD(if ( PDL_ISBAD2((vec_datap)[0+(__inc_vec_n*(n))],vec_badval,Q,vec_badval_isnan) ) { (norm_datap)[0+(__inc_norm_n*(n))]=norm_badval; }
0 0 PDL_IF_BAD(if ( PDL_ISBAD2((vec_datap)[0+(__inc_vec_n*(n))],vec_badval,Q,vec_badval_isnan) ) { (norm_datap)[0+(__inc_norm_n*(n))]=norm_badval; }
373 0 0 {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
374 0 0 PDL_IF_BAD(if ( PDL_ISBAD2((vec_datap)[0+(__inc_vec_n*(n))],vec_badval,Q,vec_badval_isnan) ) { (norm_datap)[0+(__inc_norm_n*(n))]=norm_badval; }
0 0 PDL_IF_BAD(if ( PDL_ISBAD2((vec_datap)[0+(__inc_vec_n*(n))],vec_badval,Q,vec_badval_isnan) ) { (norm_datap)[0+(__inc_norm_n*(n))]=norm_badval; }
378 0 0 }PDL_BROADCASTLOOP_END_norm_readdata
0 0 }PDL_BROADCASTLOOP_END_norm_readdata
387 0 1 PDL_DECLARE_PARAMS_norm_1(PDL_Float,F)
1 0 PDL_DECLARE_PARAMS_norm_1(PDL_Float,F)
0 1 PDL_DECLARE_PARAMS_norm_1(PDL_Float,F)
0 1 PDL_DECLARE_PARAMS_norm_1(PDL_Float,F)
0 1 PDL_DECLARE_PARAMS_norm_1(PDL_Float,F)
1 0 PDL_DECLARE_PARAMS_norm_1(PDL_Float,F)
0 1 PDL_DECLARE_PARAMS_norm_1(PDL_Float,F)
0 1 PDL_DECLARE_PARAMS_norm_1(PDL_Float,F)
388 0 1 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
0 1 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
0 1 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
0 1 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
0 1 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
1 1 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
1 1 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
390 4 1 {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
391 0 4 PDL_IF_BAD(if (PDL_ISBAD2((vec_datap)[0+(__inc_vec_n*(n))],vec_badval,F,vec_badval_isnan)) continue; flag = 1;,)
1 3 PDL_IF_BAD(if (PDL_ISBAD2((vec_datap)[0+(__inc_vec_n*(n))],vec_badval,F,vec_badval_isnan)) continue; flag = 1;,)
397 0 1 PDL_IF_BAD(if ( !flag ) {
0 0 PDL_IF_BAD(if ( !flag ) {
401 1 0 if (sum > 0) {
403 4 1 {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
404 0 4 PDL_IF_BAD(if ( PDL_ISBAD2((vec_datap)[0+(__inc_vec_n*(n))],vec_badval,F,vec_badval_isnan) ) { (norm_datap)[0+(__inc_norm_n*(n))]=norm_badval; }
1 3 PDL_IF_BAD(if ( PDL_ISBAD2((vec_datap)[0+(__inc_vec_n*(n))],vec_badval,F,vec_badval_isnan) ) { (norm_datap)[0+(__inc_norm_n*(n))]=norm_badval; }
408 0 0 {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
409 0 0 PDL_IF_BAD(if ( PDL_ISBAD2((vec_datap)[0+(__inc_vec_n*(n))],vec_badval,F,vec_badval_isnan) ) { (norm_datap)[0+(__inc_norm_n*(n))]=norm_badval; }
0 0 PDL_IF_BAD(if ( PDL_ISBAD2((vec_datap)[0+(__inc_vec_n*(n))],vec_badval,F,vec_badval_isnan) ) { (norm_datap)[0+(__inc_norm_n*(n))]=norm_badval; }
413 0 1 }PDL_BROADCASTLOOP_END_norm_readdata
0 1 }PDL_BROADCASTLOOP_END_norm_readdata
422 0 0 PDL_DECLARE_PARAMS_norm_1(PDL_Double,D)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_Double,D)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_Double,D)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_Double,D)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_Double,D)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_Double,D)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_Double,D)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_Double,D)
423 0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
425 0 0 {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
426 0 0 PDL_IF_BAD(if (PDL_ISBAD2((vec_datap)[0+(__inc_vec_n*(n))],vec_badval,D,vec_badval_isnan)) continue; flag = 1;,)
0 0 PDL_IF_BAD(if (PDL_ISBAD2((vec_datap)[0+(__inc_vec_n*(n))],vec_badval,D,vec_badval_isnan)) continue; flag = 1;,)
432 0 0 PDL_IF_BAD(if ( !flag ) {
0 0 PDL_IF_BAD(if ( !flag ) {
436 0 0 if (sum > 0) {
438 0 0 {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
439 0 0 PDL_IF_BAD(if ( PDL_ISBAD2((vec_datap)[0+(__inc_vec_n*(n))],vec_badval,D,vec_badval_isnan) ) { (norm_datap)[0+(__inc_norm_n*(n))]=norm_badval; }
0 0 PDL_IF_BAD(if ( PDL_ISBAD2((vec_datap)[0+(__inc_vec_n*(n))],vec_badval,D,vec_badval_isnan) ) { (norm_datap)[0+(__inc_norm_n*(n))]=norm_badval; }
443 0 0 {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
444 0 0 PDL_IF_BAD(if ( PDL_ISBAD2((vec_datap)[0+(__inc_vec_n*(n))],vec_badval,D,vec_badval_isnan) ) { (norm_datap)[0+(__inc_norm_n*(n))]=norm_badval; }
0 0 PDL_IF_BAD(if ( PDL_ISBAD2((vec_datap)[0+(__inc_vec_n*(n))],vec_badval,D,vec_badval_isnan) ) { (norm_datap)[0+(__inc_norm_n*(n))]=norm_badval; }
448 0 0 }PDL_BROADCASTLOOP_END_norm_readdata
0 0 }PDL_BROADCASTLOOP_END_norm_readdata
457 0 0 PDL_DECLARE_PARAMS_norm_1(PDL_LDouble,E)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_LDouble,E)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_LDouble,E)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_LDouble,E)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_LDouble,E)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_LDouble,E)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_LDouble,E)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_LDouble,E)
458 0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
460 0 0 {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
461 0 0 PDL_IF_BAD(if (PDL_ISBAD2((vec_datap)[0+(__inc_vec_n*(n))],vec_badval,E,vec_badval_isnan)) continue; flag = 1;,)
0 0 PDL_IF_BAD(if (PDL_ISBAD2((vec_datap)[0+(__inc_vec_n*(n))],vec_badval,E,vec_badval_isnan)) continue; flag = 1;,)
467 0 0 PDL_IF_BAD(if ( !flag ) {
0 0 PDL_IF_BAD(if ( !flag ) {
471 0 0 if (sum > 0) {
473 0 0 {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
474 0 0 PDL_IF_BAD(if ( PDL_ISBAD2((vec_datap)[0+(__inc_vec_n*(n))],vec_badval,E,vec_badval_isnan) ) { (norm_datap)[0+(__inc_norm_n*(n))]=norm_badval; }
0 0 PDL_IF_BAD(if ( PDL_ISBAD2((vec_datap)[0+(__inc_vec_n*(n))],vec_badval,E,vec_badval_isnan) ) { (norm_datap)[0+(__inc_norm_n*(n))]=norm_badval; }
478 0 0 {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
479 0 0 PDL_IF_BAD(if ( PDL_ISBAD2((vec_datap)[0+(__inc_vec_n*(n))],vec_badval,E,vec_badval_isnan) ) { (norm_datap)[0+(__inc_norm_n*(n))]=norm_badval; }
0 0 PDL_IF_BAD(if ( PDL_ISBAD2((vec_datap)[0+(__inc_vec_n*(n))],vec_badval,E,vec_badval_isnan) ) { (norm_datap)[0+(__inc_norm_n*(n))]=norm_badval; }
483 0 0 }PDL_BROADCASTLOOP_END_norm_readdata
0 0 }PDL_BROADCASTLOOP_END_norm_readdata
492 0 0 PDL_DECLARE_PARAMS_norm_1(PDL_CFloat,G)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_CFloat,G)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_CFloat,G)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_CFloat,G)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_CFloat,G)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_CFloat,G)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_CFloat,G)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_CFloat,G)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_CFloat,G)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_CFloat,G)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_CFloat,G)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_CFloat,G)
493 0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
495 0 0 {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
496 0 0 PDL_IF_BAD(if (PDL_ISBAD2((vec_datap)[0+(__inc_vec_n*(n))],vec_badval,G,vec_badval_isnan)) continue; flag = 1;,)
0 0 PDL_IF_BAD(if (PDL_ISBAD2((vec_datap)[0+(__inc_vec_n*(n))],vec_badval,G,vec_badval_isnan)) continue; flag = 1;,)
0 0 PDL_IF_BAD(if (PDL_ISBAD2((vec_datap)[0+(__inc_vec_n*(n))],vec_badval,G,vec_badval_isnan)) continue; flag = 1;,)
0 0 PDL_IF_BAD(if (PDL_ISBAD2((vec_datap)[0+(__inc_vec_n*(n))],vec_badval,G,vec_badval_isnan)) continue; flag = 1;,)
502 0 0 PDL_IF_BAD(if ( !flag ) {
0 0 PDL_IF_BAD(if ( !flag ) {
506 0 0 if (sum > 0) {
508 0 0 {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
509 0 0 PDL_IF_BAD(if ( PDL_ISBAD2((vec_datap)[0+(__inc_vec_n*(n))],vec_badval,G,vec_badval_isnan) ) { (norm_datap)[0+(__inc_norm_n*(n))]=norm_badval; }
0 0 PDL_IF_BAD(if ( PDL_ISBAD2((vec_datap)[0+(__inc_vec_n*(n))],vec_badval,G,vec_badval_isnan) ) { (norm_datap)[0+(__inc_norm_n*(n))]=norm_badval; }
0 0 PDL_IF_BAD(if ( PDL_ISBAD2((vec_datap)[0+(__inc_vec_n*(n))],vec_badval,G,vec_badval_isnan) ) { (norm_datap)[0+(__inc_norm_n*(n))]=norm_badval; }
0 0 PDL_IF_BAD(if ( PDL_ISBAD2((vec_datap)[0+(__inc_vec_n*(n))],vec_badval,G,vec_badval_isnan) ) { (norm_datap)[0+(__inc_norm_n*(n))]=norm_badval; }
513 0 0 {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
514 0 0 PDL_IF_BAD(if ( PDL_ISBAD2((vec_datap)[0+(__inc_vec_n*(n))],vec_badval,G,vec_badval_isnan) ) { (norm_datap)[0+(__inc_norm_n*(n))]=norm_badval; }
0 0 PDL_IF_BAD(if ( PDL_ISBAD2((vec_datap)[0+(__inc_vec_n*(n))],vec_badval,G,vec_badval_isnan) ) { (norm_datap)[0+(__inc_norm_n*(n))]=norm_badval; }
0 0 PDL_IF_BAD(if ( PDL_ISBAD2((vec_datap)[0+(__inc_vec_n*(n))],vec_badval,G,vec_badval_isnan) ) { (norm_datap)[0+(__inc_norm_n*(n))]=norm_badval; }
0 0 PDL_IF_BAD(if ( PDL_ISBAD2((vec_datap)[0+(__inc_vec_n*(n))],vec_badval,G,vec_badval_isnan) ) { (norm_datap)[0+(__inc_norm_n*(n))]=norm_badval; }
518 0 0 }PDL_BROADCASTLOOP_END_norm_readdata
0 0 }PDL_BROADCASTLOOP_END_norm_readdata
527 0 0 PDL_DECLARE_PARAMS_norm_1(PDL_CDouble,C)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_CDouble,C)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_CDouble,C)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_CDouble,C)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_CDouble,C)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_CDouble,C)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_CDouble,C)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_CDouble,C)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_CDouble,C)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_CDouble,C)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_CDouble,C)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_CDouble,C)
528 0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
530 0 0 {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
531 0 0 PDL_IF_BAD(if (PDL_ISBAD2((vec_datap)[0+(__inc_vec_n*(n))],vec_badval,C,vec_badval_isnan)) continue; flag = 1;,)
0 0 PDL_IF_BAD(if (PDL_ISBAD2((vec_datap)[0+(__inc_vec_n*(n))],vec_badval,C,vec_badval_isnan)) continue; flag = 1;,)
0 0 PDL_IF_BAD(if (PDL_ISBAD2((vec_datap)[0+(__inc_vec_n*(n))],vec_badval,C,vec_badval_isnan)) continue; flag = 1;,)
0 0 PDL_IF_BAD(if (PDL_ISBAD2((vec_datap)[0+(__inc_vec_n*(n))],vec_badval,C,vec_badval_isnan)) continue; flag = 1;,)
537 0 0 PDL_IF_BAD(if ( !flag ) {
0 0 PDL_IF_BAD(if ( !flag ) {
541 0 0 if (sum > 0) {
543 0 0 {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
544 0 0 PDL_IF_BAD(if ( PDL_ISBAD2((vec_datap)[0+(__inc_vec_n*(n))],vec_badval,C,vec_badval_isnan) ) { (norm_datap)[0+(__inc_norm_n*(n))]=norm_badval; }
0 0 PDL_IF_BAD(if ( PDL_ISBAD2((vec_datap)[0+(__inc_vec_n*(n))],vec_badval,C,vec_badval_isnan) ) { (norm_datap)[0+(__inc_norm_n*(n))]=norm_badval; }
0 0 PDL_IF_BAD(if ( PDL_ISBAD2((vec_datap)[0+(__inc_vec_n*(n))],vec_badval,C,vec_badval_isnan) ) { (norm_datap)[0+(__inc_norm_n*(n))]=norm_badval; }
0 0 PDL_IF_BAD(if ( PDL_ISBAD2((vec_datap)[0+(__inc_vec_n*(n))],vec_badval,C,vec_badval_isnan) ) { (norm_datap)[0+(__inc_norm_n*(n))]=norm_badval; }
548 0 0 {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
549 0 0 PDL_IF_BAD(if ( PDL_ISBAD2((vec_datap)[0+(__inc_vec_n*(n))],vec_badval,C,vec_badval_isnan) ) { (norm_datap)[0+(__inc_norm_n*(n))]=norm_badval; }
0 0 PDL_IF_BAD(if ( PDL_ISBAD2((vec_datap)[0+(__inc_vec_n*(n))],vec_badval,C,vec_badval_isnan) ) { (norm_datap)[0+(__inc_norm_n*(n))]=norm_badval; }
0 0 PDL_IF_BAD(if ( PDL_ISBAD2((vec_datap)[0+(__inc_vec_n*(n))],vec_badval,C,vec_badval_isnan) ) { (norm_datap)[0+(__inc_norm_n*(n))]=norm_badval; }
0 0 PDL_IF_BAD(if ( PDL_ISBAD2((vec_datap)[0+(__inc_vec_n*(n))],vec_badval,C,vec_badval_isnan) ) { (norm_datap)[0+(__inc_norm_n*(n))]=norm_badval; }
553 0 0 }PDL_BROADCASTLOOP_END_norm_readdata
0 0 }PDL_BROADCASTLOOP_END_norm_readdata
562 0 0 PDL_DECLARE_PARAMS_norm_1(PDL_CLDouble,H)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_CLDouble,H)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_CLDouble,H)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_CLDouble,H)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_CLDouble,H)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_CLDouble,H)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_CLDouble,H)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_CLDouble,H)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_CLDouble,H)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_CLDouble,H)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_CLDouble,H)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_CLDouble,H)
563 0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
565 0 0 {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
566 0 0 PDL_IF_BAD(if (PDL_ISBAD2((vec_datap)[0+(__inc_vec_n*(n))],vec_badval,H,vec_badval_isnan)) continue; flag = 1;,)
0 0 PDL_IF_BAD(if (PDL_ISBAD2((vec_datap)[0+(__inc_vec_n*(n))],vec_badval,H,vec_badval_isnan)) continue; flag = 1;,)
0 0 PDL_IF_BAD(if (PDL_ISBAD2((vec_datap)[0+(__inc_vec_n*(n))],vec_badval,H,vec_badval_isnan)) continue; flag = 1;,)
0 0 PDL_IF_BAD(if (PDL_ISBAD2((vec_datap)[0+(__inc_vec_n*(n))],vec_badval,H,vec_badval_isnan)) continue; flag = 1;,)
572 0 0 PDL_IF_BAD(if ( !flag ) {
0 0 PDL_IF_BAD(if ( !flag ) {
576 0 0 if (sum > 0) {
578 0 0 {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
579 0 0 PDL_IF_BAD(if ( PDL_ISBAD2((vec_datap)[0+(__inc_vec_n*(n))],vec_badval,H,vec_badval_isnan) ) { (norm_datap)[0+(__inc_norm_n*(n))]=norm_badval; }
0 0 PDL_IF_BAD(if ( PDL_ISBAD2((vec_datap)[0+(__inc_vec_n*(n))],vec_badval,H,vec_badval_isnan) ) { (norm_datap)[0+(__inc_norm_n*(n))]=norm_badval; }
0 0 PDL_IF_BAD(if ( PDL_ISBAD2((vec_datap)[0+(__inc_vec_n*(n))],vec_badval,H,vec_badval_isnan) ) { (norm_datap)[0+(__inc_norm_n*(n))]=norm_badval; }
0 0 PDL_IF_BAD(if ( PDL_ISBAD2((vec_datap)[0+(__inc_vec_n*(n))],vec_badval,H,vec_badval_isnan) ) { (norm_datap)[0+(__inc_norm_n*(n))]=norm_badval; }
583 0 0 {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
584 0 0 PDL_IF_BAD(if ( PDL_ISBAD2((vec_datap)[0+(__inc_vec_n*(n))],vec_badval,H,vec_badval_isnan) ) { (norm_datap)[0+(__inc_norm_n*(n))]=norm_badval; }
0 0 PDL_IF_BAD(if ( PDL_ISBAD2((vec_datap)[0+(__inc_vec_n*(n))],vec_badval,H,vec_badval_isnan) ) { (norm_datap)[0+(__inc_norm_n*(n))]=norm_badval; }
0 0 PDL_IF_BAD(if ( PDL_ISBAD2((vec_datap)[0+(__inc_vec_n*(n))],vec_badval,H,vec_badval_isnan) ) { (norm_datap)[0+(__inc_norm_n*(n))]=norm_badval; }
0 0 PDL_IF_BAD(if ( PDL_ISBAD2((vec_datap)[0+(__inc_vec_n*(n))],vec_badval,H,vec_badval_isnan) ) { (norm_datap)[0+(__inc_norm_n*(n))]=norm_badval; }
588 0 0 }PDL_BROADCASTLOOP_END_norm_readdata
0 0 }PDL_BROADCASTLOOP_END_norm_readdata
604 0 0 PDL_DECLARE_PARAMS_norm_1(PDL_SByte,A)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_SByte,A)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_SByte,A)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_SByte,A)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_SByte,A)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_SByte,A)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_SByte,A)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_SByte,A)
605 0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
607 0 0 {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
618 0 0 if (sum > 0) {
620 0 0 {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
625 0 0 {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
630 0 0 }PDL_BROADCASTLOOP_END_norm_readdata
0 0 }PDL_BROADCASTLOOP_END_norm_readdata
639 0 0 PDL_DECLARE_PARAMS_norm_1(PDL_Byte,B)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_Byte,B)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_Byte,B)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_Byte,B)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_Byte,B)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_Byte,B)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_Byte,B)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_Byte,B)
640 0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
642 0 0 {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
653 0 0 if (sum > 0) {
655 0 0 {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
660 0 0 {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
665 0 0 }PDL_BROADCASTLOOP_END_norm_readdata
0 0 }PDL_BROADCASTLOOP_END_norm_readdata
674 0 0 PDL_DECLARE_PARAMS_norm_1(PDL_Short,S)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_Short,S)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_Short,S)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_Short,S)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_Short,S)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_Short,S)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_Short,S)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_Short,S)
675 0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
677 0 0 {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
688 0 0 if (sum > 0) {
690 0 0 {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
695 0 0 {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
700 0 0 }PDL_BROADCASTLOOP_END_norm_readdata
0 0 }PDL_BROADCASTLOOP_END_norm_readdata
709 0 0 PDL_DECLARE_PARAMS_norm_1(PDL_Ushort,U)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_Ushort,U)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_Ushort,U)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_Ushort,U)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_Ushort,U)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_Ushort,U)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_Ushort,U)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_Ushort,U)
710 0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
712 0 0 {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
723 0 0 if (sum > 0) {
725 0 0 {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
730 0 0 {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
735 0 0 }PDL_BROADCASTLOOP_END_norm_readdata
0 0 }PDL_BROADCASTLOOP_END_norm_readdata
744 0 0 PDL_DECLARE_PARAMS_norm_1(PDL_Long,L)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_Long,L)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_Long,L)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_Long,L)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_Long,L)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_Long,L)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_Long,L)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_Long,L)
745 0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
747 0 0 {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
758 0 0 if (sum > 0) {
760 0 0 {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
765 0 0 {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
770 0 0 }PDL_BROADCASTLOOP_END_norm_readdata
0 0 }PDL_BROADCASTLOOP_END_norm_readdata
779 0 0 PDL_DECLARE_PARAMS_norm_1(PDL_ULong,K)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_ULong,K)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_ULong,K)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_ULong,K)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_ULong,K)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_ULong,K)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_ULong,K)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_ULong,K)
780 0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
782 0 0 {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
793 0 0 if (sum > 0) {
795 0 0 {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
800 0 0 {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
805 0 0 }PDL_BROADCASTLOOP_END_norm_readdata
0 0 }PDL_BROADCASTLOOP_END_norm_readdata
814 0 0 PDL_DECLARE_PARAMS_norm_1(PDL_Indx,N)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_Indx,N)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_Indx,N)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_Indx,N)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_Indx,N)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_Indx,N)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_Indx,N)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_Indx,N)
815 0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
817 0 0 {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
828 0 0 if (sum > 0) {
830 0 0 {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
835 0 0 {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
840 0 0 }PDL_BROADCASTLOOP_END_norm_readdata
0 0 }PDL_BROADCASTLOOP_END_norm_readdata
849 0 0 PDL_DECLARE_PARAMS_norm_1(PDL_ULongLong,P)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_ULongLong,P)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_ULongLong,P)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_ULongLong,P)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_ULongLong,P)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_ULongLong,P)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_ULongLong,P)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_ULongLong,P)
850 0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
852 0 0 {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
863 0 0 if (sum > 0) {
865 0 0 {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
870 0 0 {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
875 0 0 }PDL_BROADCASTLOOP_END_norm_readdata
0 0 }PDL_BROADCASTLOOP_END_norm_readdata
884 0 0 PDL_DECLARE_PARAMS_norm_1(PDL_LongLong,Q)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_LongLong,Q)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_LongLong,Q)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_LongLong,Q)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_LongLong,Q)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_LongLong,Q)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_LongLong,Q)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_LongLong,Q)
885 0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
887 0 0 {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
898 0 0 if (sum > 0) {
900 0 0 {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
905 0 0 {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
910 0 0 }PDL_BROADCASTLOOP_END_norm_readdata
0 0 }PDL_BROADCASTLOOP_END_norm_readdata
919 0 0 PDL_DECLARE_PARAMS_norm_1(PDL_Float,F)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_Float,F)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_Float,F)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_Float,F)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_Float,F)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_Float,F)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_Float,F)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_Float,F)
920 0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
922 0 0 {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
933 0 0 if (sum > 0) {
935 0 0 {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
940 0 0 {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
945 0 0 }PDL_BROADCASTLOOP_END_norm_readdata
0 0 }PDL_BROADCASTLOOP_END_norm_readdata
954 0 1 PDL_DECLARE_PARAMS_norm_1(PDL_Double,D)
1 0 PDL_DECLARE_PARAMS_norm_1(PDL_Double,D)
0 1 PDL_DECLARE_PARAMS_norm_1(PDL_Double,D)
0 1 PDL_DECLARE_PARAMS_norm_1(PDL_Double,D)
0 1 PDL_DECLARE_PARAMS_norm_1(PDL_Double,D)
1 0 PDL_DECLARE_PARAMS_norm_1(PDL_Double,D)
0 1 PDL_DECLARE_PARAMS_norm_1(PDL_Double,D)
0 1 PDL_DECLARE_PARAMS_norm_1(PDL_Double,D)
955 0 1 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
0 1 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
0 1 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
0 1 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
0 1 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
1 1 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
1 1 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
957 2 1 {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
968 1 0 if (sum > 0) {
970 2 1 {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
975 0 0 {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
980 0 1 }PDL_BROADCASTLOOP_END_norm_readdata
0 1 }PDL_BROADCASTLOOP_END_norm_readdata
989 0 0 PDL_DECLARE_PARAMS_norm_1(PDL_LDouble,E)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_LDouble,E)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_LDouble,E)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_LDouble,E)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_LDouble,E)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_LDouble,E)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_LDouble,E)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_LDouble,E)
990 0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
992 0 0 {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
1003 0 0 if (sum > 0) {
1005 0 0 {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
1010 0 0 {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
1015 0 0 }PDL_BROADCASTLOOP_END_norm_readdata
0 0 }PDL_BROADCASTLOOP_END_norm_readdata
1024 0 0 PDL_DECLARE_PARAMS_norm_1(PDL_CFloat,G)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_CFloat,G)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_CFloat,G)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_CFloat,G)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_CFloat,G)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_CFloat,G)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_CFloat,G)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_CFloat,G)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_CFloat,G)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_CFloat,G)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_CFloat,G)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_CFloat,G)
1025 0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
1027 0 0 {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
1038 0 0 if (sum > 0) {
1040 0 0 {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
1045 0 0 {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
1050 0 0 }PDL_BROADCASTLOOP_END_norm_readdata
0 0 }PDL_BROADCASTLOOP_END_norm_readdata
1059 0 1 PDL_DECLARE_PARAMS_norm_1(PDL_CDouble,C)
1 0 PDL_DECLARE_PARAMS_norm_1(PDL_CDouble,C)
0 1 PDL_DECLARE_PARAMS_norm_1(PDL_CDouble,C)
0 1 PDL_DECLARE_PARAMS_norm_1(PDL_CDouble,C)
1 0 PDL_DECLARE_PARAMS_norm_1(PDL_CDouble,C)
0 1 PDL_DECLARE_PARAMS_norm_1(PDL_CDouble,C)
0 1 PDL_DECLARE_PARAMS_norm_1(PDL_CDouble,C)
1 0 PDL_DECLARE_PARAMS_norm_1(PDL_CDouble,C)
0 1 PDL_DECLARE_PARAMS_norm_1(PDL_CDouble,C)
0 1 PDL_DECLARE_PARAMS_norm_1(PDL_CDouble,C)
1 0 PDL_DECLARE_PARAMS_norm_1(PDL_CDouble,C)
0 1 PDL_DECLARE_PARAMS_norm_1(PDL_CDouble,C)
1060 0 1 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
0 1 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
0 1 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
0 1 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
0 1 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
2 1 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
1 1 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
1062 4 2 {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
1073 2 0 if (sum > 0) {
1075 4 2 {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
1080 0 0 {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
1085 0 1 }PDL_BROADCASTLOOP_END_norm_readdata
0 1 }PDL_BROADCASTLOOP_END_norm_readdata
1094 0 0 PDL_DECLARE_PARAMS_norm_1(PDL_CLDouble,H)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_CLDouble,H)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_CLDouble,H)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_CLDouble,H)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_CLDouble,H)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_CLDouble,H)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_CLDouble,H)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_CLDouble,H)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_CLDouble,H)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_CLDouble,H)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_CLDouble,H)
0 0 PDL_DECLARE_PARAMS_norm_1(PDL_CLDouble,H)
1095 0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
0 0 PDL_BROADCASTLOOP_START_norm_readdata {long double sum=0;
1097 0 0 {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
1108 0 0 if (sum > 0) {
1110 0 0 {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
1115 0 0 {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
1120 0 0 }PDL_BROADCASTLOOP_END_norm_readdata
0 0 }PDL_BROADCASTLOOP_END_norm_readdata
1157 0 3 if (!PDL) return (pdl_error){PDL_EFATAL, "PDL core struct is NULL, can't continue",0};
1159 0 3 if (!__privtrans) return PDL->make_error_simple(PDL_EFATAL, "Couldn't create trans");
1162 0 3 PDL_RETERROR(PDL_err, PDL->type_coerce(__privtrans));
1163 0 3 PDL_RETERROR(PDL_err, PDL->make_trans_mutual(__privtrans));