File Coverage

lib/PDL/Ops-pp-log10.c

Criterion	Covered	Total	%
statement	30	172	17.4
branch	45	1080	4.1
condition			n/a
subroutine			n/a
pod			n/a
total	75	1252	5.9

line	stmt	bran	code
1
2			#line 453 "lib/PDL/PP.pm"
3			/*
4			* THIS FILE WAS GENERATED BY PDL::PP from lib/PDL/Ops.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_Ops
21			extern Core* PDL; /* Structure hold core C functions */
22			#line 23 "lib/PDL/Ops-pp-log10.c"
23
24			#include
25
26			#define MOD(X,N) (((N) == 0) ? 0 : ( (X) - (PDL_ABS(N)) * ((long long)((X)/(PDL_ABS(N))) + ( ( ((N) * ((long long)((X)/(N)))) != (X) ) ? ( ( ((N)<0) ? 1 : 0 ) + ( (((X)<0) ? -1 : 0))) : 0 ))))
27			#define BU_MOD(X,N)(((N) == 0) ? 0 : ( (X)-(N)*((uint64_t)((X)/(N))) ))
28			#define SPACE(A,B) ( ((A)<(B)) ? -1 : ((A)!=(B)) )
29
30			#line 83 "lib/PDL/Ops.pd"
31			#define PDL_BADVAL_WARN_X(datatype, ctype, ppsym, ...) \
32			bad_anyval.type = datatype; bad_anyval.value.ppsym = PDL->bvals.ppsym;
33			#define PDL_BADVAL_WARN(var) \
34			{ \
35			PDL_Anyval bad_anyval = { PDL_INVALID, {0} }; \
36			if (!(var->has_badvalue && var->badvalue.type != var->datatype)) { \
37			if (var->has_badvalue) \
38			bad_anyval = var->badvalue; \
39			else { \
40			PDL_GENERICSWITCH(PDL_TYPELIST_ALL, var->datatype, PDL_BADVAL_WARN_X, ) \
41			} \
42			} \
43			if (bad_anyval.type < 0) \
44			barf("Error getting badvalue, type=%d", bad_anyval.type); \
45			complex double bad_c; \
46			ANYVAL_TO_CTYPE(bad_c, complex double, bad_anyval); \
47			if( bad_c == 0 \|\| bad_c == 1 ) \
48			warn(#var " badvalue is set to 0 or 1. This will cause data loss when using badvalues for comparison operators."); \
49			}
50
51			#line 1857 "lib/PDL/PP.pm"
52			pdl_error pdl_log10_readdata(pdl_trans *__privtrans) {
53			pdl_error PDL_err = {0, NULL, 0};
54			#line 55 "lib/PDL/Ops-pp-log10.c"
55	11	50	if (!__privtrans->broadcast.incs) return PDL->make_error(PDL_EUSERERROR, "Error in log10:" "broadcast.incs NULL");
56			/* broadcastloop declarations */
57			int __brcloopval;
58			register PDL_Indx __tind0,__tind1; /* counters along dim */
59	11		register PDL_Indx __tnpdls = __privtrans->broadcast.npdls;
60			/* dims here are how many steps along those dims */
61	11		register PDL_Indx __tinc0_a = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,0,0);
62	11		register PDL_Indx __tinc0_b = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,1,0);
63	11		register PDL_Indx __tinc1_a = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,0,1);
64	11		register PDL_Indx __tinc1_b = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,1,1);
65			#define PDL_BROADCASTLOOP_START_log10_readdata PDL_BROADCASTLOOP_START( \
66			readdata, \
67			__privtrans->broadcast, \
68			__privtrans->vtable, \
69			a_datap += __offsp[0]; \
70			b_datap += __offsp[1]; \
71			, \
72			( ,a_datap += __tinc1_a - __tinc0_a * __tdims0 \
73			,b_datap += __tinc1_b - __tinc0_b * __tdims0 \
74			), \
75			( ,a_datap += __tinc0_a \
76			,b_datap += __tinc0_b \
77			) \
78			)
79			#define PDL_BROADCASTLOOP_END_log10_readdata PDL_BROADCASTLOOP_END( \
80			__privtrans->broadcast, \
81			a_datap -= __tinc1_a * __tdims1 + __offsp[0]; \
82			b_datap -= __tinc1_b * __tdims1 + __offsp[1]; \
83			)
84			#ifndef PDL_DECLARE_PARAMS_log10_1
85			#define PDL_DECLARE_PARAMS_log10_1(PDL_TYPE_OP,PDL_PPSYM_OP) \
86			PDL_DECLARE_PARAMETER_BADVAL(PDL_TYPE_OP, a, (__privtrans->pdls[0]), 1, PDL_PPSYM_OP) \
87			PDL_DECLARE_PARAMETER_BADVAL(PDL_TYPE_OP, b, (__privtrans->pdls[1]), 1, PDL_PPSYM_OP)
88			#endif
89	11	100	if ( __privtrans->bvalflag ) { /* do 'bad' Code */
90			#define PDL_BAD_CODE
91			#define PDL_IF_BAD(t,f) t
92	1		switch (__privtrans->__datatype) { /* Start generic switch */
93	0		case PDL_SB: {
94	0	0	PDL_DECLARE_PARAMS_log10_1(PDL_SByte,A)
		0
		0
		0
		0
		0
		0
		0
95	0	0	PDL_BROADCASTLOOP_START_log10_readdata {
		0
		0
		0
		0
		0
		0
96			#line 249 "lib/PDL/Ops.pd"
97			PDL_IF_BAD(if ( PDL_ISBAD2((a_datap)[0],a_badval,A,a_badval_isnan) ) (b_datap)[0]=b_badval; else {,)
98			(b_datap)[0] = (PDL_SByte)log10((a_datap)[0]);
99			#line 254 "lib/PDL/Ops.pd"
100
101			PDL_IF_BAD(},)
102			#line 103 "lib/PDL/Ops-pp-log10.c"
103	0	0	}PDL_BROADCASTLOOP_END_log10_readdata
		0
104	0		} break;
105	0		case PDL_B: {
106	0	0	PDL_DECLARE_PARAMS_log10_1(PDL_Byte,B)
		0
		0
		0
		0
		0
		0
		0
107	0	0	PDL_BROADCASTLOOP_START_log10_readdata {
		0
		0
		0
		0
		0
		0
108			#line 249 "lib/PDL/Ops.pd"
109			PDL_IF_BAD(if ( PDL_ISBAD2((a_datap)[0],a_badval,B,a_badval_isnan) ) (b_datap)[0]=b_badval; else {,)
110			(b_datap)[0] = (PDL_Byte)log10((a_datap)[0]);
111			#line 254 "lib/PDL/Ops.pd"
112
113			PDL_IF_BAD(},)
114			#line 115 "lib/PDL/Ops-pp-log10.c"
115	0	0	}PDL_BROADCASTLOOP_END_log10_readdata
		0
116	0		} break;
117	0		case PDL_S: {
118	0	0	PDL_DECLARE_PARAMS_log10_1(PDL_Short,S)
		0
		0
		0
		0
		0
		0
		0
119	0	0	PDL_BROADCASTLOOP_START_log10_readdata {
		0
		0
		0
		0
		0
		0
120			#line 249 "lib/PDL/Ops.pd"
121			PDL_IF_BAD(if ( PDL_ISBAD2((a_datap)[0],a_badval,S,a_badval_isnan) ) (b_datap)[0]=b_badval; else {,)
122			(b_datap)[0] = (PDL_Short)log10((a_datap)[0]);
123			#line 254 "lib/PDL/Ops.pd"
124
125			PDL_IF_BAD(},)
126			#line 127 "lib/PDL/Ops-pp-log10.c"
127	0	0	}PDL_BROADCASTLOOP_END_log10_readdata
		0
128	0		} break;
129	0		case PDL_US: {
130	0	0	PDL_DECLARE_PARAMS_log10_1(PDL_Ushort,U)
		0
		0
		0
		0
		0
		0
		0
131	0	0	PDL_BROADCASTLOOP_START_log10_readdata {
		0
		0
		0
		0
		0
		0
132			#line 249 "lib/PDL/Ops.pd"
133			PDL_IF_BAD(if ( PDL_ISBAD2((a_datap)[0],a_badval,U,a_badval_isnan) ) (b_datap)[0]=b_badval; else {,)
134			(b_datap)[0] = (PDL_Ushort)log10((a_datap)[0]);
135			#line 254 "lib/PDL/Ops.pd"
136
137			PDL_IF_BAD(},)
138			#line 139 "lib/PDL/Ops-pp-log10.c"
139	0	0	}PDL_BROADCASTLOOP_END_log10_readdata
		0
140	0		} break;
141	0		case PDL_L: {
142	0	0	PDL_DECLARE_PARAMS_log10_1(PDL_Long,L)
		0
		0
		0
		0
		0
		0
		0
143	0	0	PDL_BROADCASTLOOP_START_log10_readdata {
		0
		0
		0
		0
		0
		0
144			#line 249 "lib/PDL/Ops.pd"
145			PDL_IF_BAD(if ( PDL_ISBAD2((a_datap)[0],a_badval,L,a_badval_isnan) ) (b_datap)[0]=b_badval; else {,)
146			(b_datap)[0] = (PDL_Long)log10((a_datap)[0]);
147			#line 254 "lib/PDL/Ops.pd"
148
149			PDL_IF_BAD(},)
150			#line 151 "lib/PDL/Ops-pp-log10.c"
151	0	0	}PDL_BROADCASTLOOP_END_log10_readdata
		0
152	0		} break;
153	0		case PDL_UL: {
154	0	0	PDL_DECLARE_PARAMS_log10_1(PDL_ULong,K)
		0
		0
		0
		0
		0
		0
		0
155	0	0	PDL_BROADCASTLOOP_START_log10_readdata {
		0
		0
		0
		0
		0
		0
156			#line 249 "lib/PDL/Ops.pd"
157			PDL_IF_BAD(if ( PDL_ISBAD2((a_datap)[0],a_badval,K,a_badval_isnan) ) (b_datap)[0]=b_badval; else {,)
158			(b_datap)[0] = (PDL_ULong)log10((a_datap)[0]);
159			#line 254 "lib/PDL/Ops.pd"
160
161			PDL_IF_BAD(},)
162			#line 163 "lib/PDL/Ops-pp-log10.c"
163	0	0	}PDL_BROADCASTLOOP_END_log10_readdata
		0
164	0		} break;
165	0		case PDL_IND: {
166	0	0	PDL_DECLARE_PARAMS_log10_1(PDL_Indx,N)
		0
		0
		0
		0
		0
		0
		0
167	0	0	PDL_BROADCASTLOOP_START_log10_readdata {
		0
		0
		0
		0
		0
		0
168			#line 249 "lib/PDL/Ops.pd"
169			PDL_IF_BAD(if ( PDL_ISBAD2((a_datap)[0],a_badval,N,a_badval_isnan) ) (b_datap)[0]=b_badval; else {,)
170			(b_datap)[0] = (PDL_Indx)log10((a_datap)[0]);
171			#line 254 "lib/PDL/Ops.pd"
172
173			PDL_IF_BAD(},)
174			#line 175 "lib/PDL/Ops-pp-log10.c"
175	0	0	}PDL_BROADCASTLOOP_END_log10_readdata
		0
176	0		} break;
177	0		case PDL_ULL: {
178	0	0	PDL_DECLARE_PARAMS_log10_1(PDL_ULongLong,P)
		0
		0
		0
		0
		0
		0
		0
179	0	0	PDL_BROADCASTLOOP_START_log10_readdata {
		0
		0
		0
		0
		0
		0
180			#line 249 "lib/PDL/Ops.pd"
181			PDL_IF_BAD(if ( PDL_ISBAD2((a_datap)[0],a_badval,P,a_badval_isnan) ) (b_datap)[0]=b_badval; else {,)
182			(b_datap)[0] = (PDL_ULongLong)log10((a_datap)[0]);
183			#line 254 "lib/PDL/Ops.pd"
184
185			PDL_IF_BAD(},)
186			#line 187 "lib/PDL/Ops-pp-log10.c"
187	0	0	}PDL_BROADCASTLOOP_END_log10_readdata
		0
188	0		} break;
189	0		case PDL_LL: {
190	0	0	PDL_DECLARE_PARAMS_log10_1(PDL_LongLong,Q)
		0
		0
		0
		0
		0
		0
		0
191	0	0	PDL_BROADCASTLOOP_START_log10_readdata {
		0
		0
		0
		0
		0
		0
192			#line 249 "lib/PDL/Ops.pd"
193			PDL_IF_BAD(if ( PDL_ISBAD2((a_datap)[0],a_badval,Q,a_badval_isnan) ) (b_datap)[0]=b_badval; else {,)
194			(b_datap)[0] = (PDL_LongLong)log10((a_datap)[0]);
195			#line 254 "lib/PDL/Ops.pd"
196
197			PDL_IF_BAD(},)
198			#line 199 "lib/PDL/Ops-pp-log10.c"
199	0	0	}PDL_BROADCASTLOOP_END_log10_readdata
		0
200	0		} break;
201	0		case PDL_F: {
202	0	0	PDL_DECLARE_PARAMS_log10_1(PDL_Float,F)
		0
		0
		0
		0
		0
		0
		0
203	0	0	PDL_BROADCASTLOOP_START_log10_readdata {
		0
		0
		0
		0
		0
		0
204			#line 249 "lib/PDL/Ops.pd"
205			PDL_IF_BAD(if ( PDL_ISBAD2((a_datap)[0],a_badval,F,a_badval_isnan) ) (b_datap)[0]=b_badval; else {,)
206			(b_datap)[0] = (PDL_Float)log10((a_datap)[0]);
207			#line 254 "lib/PDL/Ops.pd"
208
209			PDL_IF_BAD(},)
210			#line 211 "lib/PDL/Ops-pp-log10.c"
211	0	0	}PDL_BROADCASTLOOP_END_log10_readdata
		0
212	0		} break;
213	1		case PDL_D: {
214	1	50	PDL_DECLARE_PARAMS_log10_1(PDL_Double,D)
		50
		50
		50
		50
		50
		50
		50
215	57	50	PDL_BROADCASTLOOP_START_log10_readdata {
		50
		50
		50
		50
		100
		100
216			#line 249 "lib/PDL/Ops.pd"
217			PDL_IF_BAD(if ( PDL_ISBAD2((a_datap)[0],a_badval,D,a_badval_isnan) ) (b_datap)[0]=b_badval; else {,)
218			(b_datap)[0] = (PDL_Double)log10((a_datap)[0]);
219			#line 254 "lib/PDL/Ops.pd"
220
221			PDL_IF_BAD(},)
222			#line 223 "lib/PDL/Ops-pp-log10.c"
223	1	50	}PDL_BROADCASTLOOP_END_log10_readdata
		50
224	1		} break;
225	0		case PDL_LD: {
226	0	0	PDL_DECLARE_PARAMS_log10_1(PDL_LDouble,E)
		0
		0
		0
		0
		0
		0
		0
227	0	0	PDL_BROADCASTLOOP_START_log10_readdata {
		0
		0
		0
		0
		0
		0
228			#line 249 "lib/PDL/Ops.pd"
229			PDL_IF_BAD(if ( PDL_ISBAD2((a_datap)[0],a_badval,E,a_badval_isnan) ) (b_datap)[0]=b_badval; else {,)
230			(b_datap)[0] = (PDL_LDouble)log10((a_datap)[0]);
231			#line 254 "lib/PDL/Ops.pd"
232
233			PDL_IF_BAD(},)
234			#line 235 "lib/PDL/Ops-pp-log10.c"
235	0	0	}PDL_BROADCASTLOOP_END_log10_readdata
		0
236	0		} break;
237	0		case PDL_CF: {
238	0	0	PDL_DECLARE_PARAMS_log10_1(PDL_CFloat,G)
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
239	0	0	PDL_BROADCASTLOOP_START_log10_readdata {
		0
		0
		0
		0
		0
		0
240			#line 249 "lib/PDL/Ops.pd"
241			PDL_IF_BAD(if ( PDL_ISBAD2((a_datap)[0],a_badval,G,a_badval_isnan) ) (b_datap)[0]=b_badval; else {,)
242
243			#line 251 "lib/PDL/Ops.pd"
244			(b_datap)[0] = clog10f((a_datap)[0]);
245			#line 254 "lib/PDL/Ops.pd"
246
247			PDL_IF_BAD(},)
248			#line 249 "lib/PDL/Ops-pp-log10.c"
249	0	0	}PDL_BROADCASTLOOP_END_log10_readdata
		0
250	0		} break;
251	0		case PDL_CD: {
252	0	0	PDL_DECLARE_PARAMS_log10_1(PDL_CDouble,C)
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
253	0	0	PDL_BROADCASTLOOP_START_log10_readdata {
		0
		0
		0
		0
		0
		0
254			#line 249 "lib/PDL/Ops.pd"
255			PDL_IF_BAD(if ( PDL_ISBAD2((a_datap)[0],a_badval,C,a_badval_isnan) ) (b_datap)[0]=b_badval; else {,)
256
257			#line 252 "lib/PDL/Ops.pd"
258
259			(b_datap)[0] = clog10((a_datap)[0]);
260			#line 254 "lib/PDL/Ops.pd"
261
262			PDL_IF_BAD(},)
263			#line 264 "lib/PDL/Ops-pp-log10.c"
264	0	0	}PDL_BROADCASTLOOP_END_log10_readdata
		0
265	0		} break;
266	0		case PDL_CLD: {
267	0	0	PDL_DECLARE_PARAMS_log10_1(PDL_CLDouble,H)
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
268	0	0	PDL_BROADCASTLOOP_START_log10_readdata {
		0
		0
		0
		0
		0
		0
269			#line 249 "lib/PDL/Ops.pd"
270			PDL_IF_BAD(if ( PDL_ISBAD2((a_datap)[0],a_badval,H,a_badval_isnan) ) (b_datap)[0]=b_badval; else {,)
271
272			#line 253 "lib/PDL/Ops.pd"
273
274			(b_datap)[0] = clog10l((a_datap)[0]);
275			#line 254 "lib/PDL/Ops.pd"
276			PDL_IF_BAD(},)
277			#line 278 "lib/PDL/Ops-pp-log10.c"
278	0	0	}PDL_BROADCASTLOOP_END_log10_readdata
		0
279	0		} break;
280	0		default: return PDL->make_error(PDL_EUSERERROR, "PP INTERNAL ERROR in log10: unhandled datatype(%d), only handles (ABSULKNPQFDEGCH)! PLEASE MAKE A BUG REPORT\n", __privtrans->__datatype);
281			}
282			#undef PDL_BAD_CODE
283			#undef PDL_IF_BAD
284			} else { /* else do 'good' Code */
285			#define PDL_IF_BAD(t,f) f
286	10		switch (__privtrans->__datatype) { /* Start generic switch */
287	0		case PDL_SB: {
288	0	0	PDL_DECLARE_PARAMS_log10_1(PDL_SByte,A)
		0
		0
		0
		0
		0
		0
		0
289	0	0	PDL_BROADCASTLOOP_START_log10_readdata {
		0
		0
		0
		0
		0
		0
290			#line 249 "lib/PDL/Ops.pd"
291			PDL_IF_BAD(if ( PDL_ISBAD2((a_datap)[0],a_badval,A,a_badval_isnan) ) (b_datap)[0]=b_badval; else {,)
292			(b_datap)[0] = (PDL_SByte)log10((a_datap)[0]);
293			#line 254 "lib/PDL/Ops.pd"
294
295			PDL_IF_BAD(},)
296			#line 297 "lib/PDL/Ops-pp-log10.c"
297	0	0	}PDL_BROADCASTLOOP_END_log10_readdata
		0
298	0		} break;
299	0		case PDL_B: {
300	0	0	PDL_DECLARE_PARAMS_log10_1(PDL_Byte,B)
		0
		0
		0
		0
		0
		0
		0
301	0	0	PDL_BROADCASTLOOP_START_log10_readdata {
		0
		0
		0
		0
		0
		0
302			#line 249 "lib/PDL/Ops.pd"
303			PDL_IF_BAD(if ( PDL_ISBAD2((a_datap)[0],a_badval,B,a_badval_isnan) ) (b_datap)[0]=b_badval; else {,)
304			(b_datap)[0] = (PDL_Byte)log10((a_datap)[0]);
305			#line 254 "lib/PDL/Ops.pd"
306
307			PDL_IF_BAD(},)
308			#line 309 "lib/PDL/Ops-pp-log10.c"
309	0	0	}PDL_BROADCASTLOOP_END_log10_readdata
		0
310	0		} break;
311	0		case PDL_S: {
312	0	0	PDL_DECLARE_PARAMS_log10_1(PDL_Short,S)
		0
		0
		0
		0
		0
		0
		0
313	0	0	PDL_BROADCASTLOOP_START_log10_readdata {
		0
		0
		0
		0
		0
		0
314			#line 249 "lib/PDL/Ops.pd"
315			PDL_IF_BAD(if ( PDL_ISBAD2((a_datap)[0],a_badval,S,a_badval_isnan) ) (b_datap)[0]=b_badval; else {,)
316			(b_datap)[0] = (PDL_Short)log10((a_datap)[0]);
317			#line 254 "lib/PDL/Ops.pd"
318
319			PDL_IF_BAD(},)
320			#line 321 "lib/PDL/Ops-pp-log10.c"
321	0	0	}PDL_BROADCASTLOOP_END_log10_readdata
		0
322	0		} break;
323	0		case PDL_US: {
324	0	0	PDL_DECLARE_PARAMS_log10_1(PDL_Ushort,U)
		0
		0
		0
		0
		0
		0
		0
325	0	0	PDL_BROADCASTLOOP_START_log10_readdata {
		0
		0
		0
		0
		0
		0
326			#line 249 "lib/PDL/Ops.pd"
327			PDL_IF_BAD(if ( PDL_ISBAD2((a_datap)[0],a_badval,U,a_badval_isnan) ) (b_datap)[0]=b_badval; else {,)
328			(b_datap)[0] = (PDL_Ushort)log10((a_datap)[0]);
329			#line 254 "lib/PDL/Ops.pd"
330
331			PDL_IF_BAD(},)
332			#line 333 "lib/PDL/Ops-pp-log10.c"
333	0	0	}PDL_BROADCASTLOOP_END_log10_readdata
		0
334	0		} break;
335	0		case PDL_L: {
336	0	0	PDL_DECLARE_PARAMS_log10_1(PDL_Long,L)
		0
		0
		0
		0
		0
		0
		0
337	0	0	PDL_BROADCASTLOOP_START_log10_readdata {
		0
		0
		0
		0
		0
		0
338			#line 249 "lib/PDL/Ops.pd"
339			PDL_IF_BAD(if ( PDL_ISBAD2((a_datap)[0],a_badval,L,a_badval_isnan) ) (b_datap)[0]=b_badval; else {,)
340			(b_datap)[0] = (PDL_Long)log10((a_datap)[0]);
341			#line 254 "lib/PDL/Ops.pd"
342
343			PDL_IF_BAD(},)
344			#line 345 "lib/PDL/Ops-pp-log10.c"
345	0	0	}PDL_BROADCASTLOOP_END_log10_readdata
		0
346	0		} break;
347	0		case PDL_UL: {
348	0	0	PDL_DECLARE_PARAMS_log10_1(PDL_ULong,K)
		0
		0
		0
		0
		0
		0
		0
349	0	0	PDL_BROADCASTLOOP_START_log10_readdata {
		0
		0
		0
		0
		0
		0
350			#line 249 "lib/PDL/Ops.pd"
351			PDL_IF_BAD(if ( PDL_ISBAD2((a_datap)[0],a_badval,K,a_badval_isnan) ) (b_datap)[0]=b_badval; else {,)
352			(b_datap)[0] = (PDL_ULong)log10((a_datap)[0]);
353			#line 254 "lib/PDL/Ops.pd"
354
355			PDL_IF_BAD(},)
356			#line 357 "lib/PDL/Ops-pp-log10.c"
357	0	0	}PDL_BROADCASTLOOP_END_log10_readdata
		0
358	0		} break;
359	0		case PDL_IND: {
360	0	0	PDL_DECLARE_PARAMS_log10_1(PDL_Indx,N)
		0
		0
		0
		0
		0
		0
		0
361	0	0	PDL_BROADCASTLOOP_START_log10_readdata {
		0
		0
		0
		0
		0
		0
362			#line 249 "lib/PDL/Ops.pd"
363			PDL_IF_BAD(if ( PDL_ISBAD2((a_datap)[0],a_badval,N,a_badval_isnan) ) (b_datap)[0]=b_badval; else {,)
364			(b_datap)[0] = (PDL_Indx)log10((a_datap)[0]);
365			#line 254 "lib/PDL/Ops.pd"
366
367			PDL_IF_BAD(},)
368			#line 369 "lib/PDL/Ops-pp-log10.c"
369	0	0	}PDL_BROADCASTLOOP_END_log10_readdata
		0
370	0		} break;
371	0		case PDL_ULL: {
372	0	0	PDL_DECLARE_PARAMS_log10_1(PDL_ULongLong,P)
		0
		0
		0
		0
		0
		0
		0
373	0	0	PDL_BROADCASTLOOP_START_log10_readdata {
		0
		0
		0
		0
		0
		0
374			#line 249 "lib/PDL/Ops.pd"
375			PDL_IF_BAD(if ( PDL_ISBAD2((a_datap)[0],a_badval,P,a_badval_isnan) ) (b_datap)[0]=b_badval; else {,)
376			(b_datap)[0] = (PDL_ULongLong)log10((a_datap)[0]);
377			#line 254 "lib/PDL/Ops.pd"
378
379			PDL_IF_BAD(},)
380			#line 381 "lib/PDL/Ops-pp-log10.c"
381	0	0	}PDL_BROADCASTLOOP_END_log10_readdata
		0
382	0		} break;
383	0		case PDL_LL: {
384	0	0	PDL_DECLARE_PARAMS_log10_1(PDL_LongLong,Q)
		0
		0
		0
		0
		0
		0
		0
385	0	0	PDL_BROADCASTLOOP_START_log10_readdata {
		0
		0
		0
		0
		0
		0
386			#line 249 "lib/PDL/Ops.pd"
387			PDL_IF_BAD(if ( PDL_ISBAD2((a_datap)[0],a_badval,Q,a_badval_isnan) ) (b_datap)[0]=b_badval; else {,)
388			(b_datap)[0] = (PDL_LongLong)log10((a_datap)[0]);
389			#line 254 "lib/PDL/Ops.pd"
390
391			PDL_IF_BAD(},)
392			#line 393 "lib/PDL/Ops-pp-log10.c"
393	0	0	}PDL_BROADCASTLOOP_END_log10_readdata
		0
394	0		} break;
395	0		case PDL_F: {
396	0	0	PDL_DECLARE_PARAMS_log10_1(PDL_Float,F)
		0
		0
		0
		0
		0
		0
		0
397	0	0	PDL_BROADCASTLOOP_START_log10_readdata {
		0
		0
		0
		0
		0
		0
398			#line 249 "lib/PDL/Ops.pd"
399			PDL_IF_BAD(if ( PDL_ISBAD2((a_datap)[0],a_badval,F,a_badval_isnan) ) (b_datap)[0]=b_badval; else {,)
400			(b_datap)[0] = (PDL_Float)log10((a_datap)[0]);
401			#line 254 "lib/PDL/Ops.pd"
402
403			PDL_IF_BAD(},)
404			#line 405 "lib/PDL/Ops-pp-log10.c"
405	0	0	}PDL_BROADCASTLOOP_END_log10_readdata
		0
406	0		} break;
407	10		case PDL_D: {
408	10	50	PDL_DECLARE_PARAMS_log10_1(PDL_Double,D)
		50
		50
		50
		50
		50
		50
		50
409	86	50	PDL_BROADCASTLOOP_START_log10_readdata {
		50
		50
		50
		50
		100
		100
410			#line 249 "lib/PDL/Ops.pd"
411			PDL_IF_BAD(if ( PDL_ISBAD2((a_datap)[0],a_badval,D,a_badval_isnan) ) (b_datap)[0]=b_badval; else {,)
412			(b_datap)[0] = (PDL_Double)log10((a_datap)[0]);
413			#line 254 "lib/PDL/Ops.pd"
414
415			PDL_IF_BAD(},)
416			#line 417 "lib/PDL/Ops-pp-log10.c"
417	10	50	}PDL_BROADCASTLOOP_END_log10_readdata
		50
418	10		} break;
419	0		case PDL_LD: {
420	0	0	PDL_DECLARE_PARAMS_log10_1(PDL_LDouble,E)
		0
		0
		0
		0
		0
		0
		0
421	0	0	PDL_BROADCASTLOOP_START_log10_readdata {
		0
		0
		0
		0
		0
		0
422			#line 249 "lib/PDL/Ops.pd"
423			PDL_IF_BAD(if ( PDL_ISBAD2((a_datap)[0],a_badval,E,a_badval_isnan) ) (b_datap)[0]=b_badval; else {,)
424			(b_datap)[0] = (PDL_LDouble)log10((a_datap)[0]);
425			#line 254 "lib/PDL/Ops.pd"
426
427			PDL_IF_BAD(},)
428			#line 429 "lib/PDL/Ops-pp-log10.c"
429	0	0	}PDL_BROADCASTLOOP_END_log10_readdata
		0
430	0		} break;
431	0		case PDL_CF: {
432	0	0	PDL_DECLARE_PARAMS_log10_1(PDL_CFloat,G)
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
433	0	0	PDL_BROADCASTLOOP_START_log10_readdata {
		0
		0
		0
		0
		0
		0
434			#line 249 "lib/PDL/Ops.pd"
435			PDL_IF_BAD(if ( PDL_ISBAD2((a_datap)[0],a_badval,G,a_badval_isnan) ) (b_datap)[0]=b_badval; else {,)
436
437			#line 251 "lib/PDL/Ops.pd"
438			(b_datap)[0] = clog10f((a_datap)[0]);
439			#line 254 "lib/PDL/Ops.pd"
440
441			PDL_IF_BAD(},)
442			#line 443 "lib/PDL/Ops-pp-log10.c"
443	0	0	}PDL_BROADCASTLOOP_END_log10_readdata
		0
444	0		} break;
445	0		case PDL_CD: {
446	0	0	PDL_DECLARE_PARAMS_log10_1(PDL_CDouble,C)
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
447	0	0	PDL_BROADCASTLOOP_START_log10_readdata {
		0
		0
		0
		0
		0
		0
448			#line 249 "lib/PDL/Ops.pd"
449			PDL_IF_BAD(if ( PDL_ISBAD2((a_datap)[0],a_badval,C,a_badval_isnan) ) (b_datap)[0]=b_badval; else {,)
450
451			#line 252 "lib/PDL/Ops.pd"
452
453			(b_datap)[0] = clog10((a_datap)[0]);
454			#line 254 "lib/PDL/Ops.pd"
455
456			PDL_IF_BAD(},)
457			#line 458 "lib/PDL/Ops-pp-log10.c"
458	0	0	}PDL_BROADCASTLOOP_END_log10_readdata
		0
459	0		} break;
460	0		case PDL_CLD: {
461	0	0	PDL_DECLARE_PARAMS_log10_1(PDL_CLDouble,H)
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
462	0	0	PDL_BROADCASTLOOP_START_log10_readdata {
		0
		0
		0
		0
		0
		0
463			#line 249 "lib/PDL/Ops.pd"
464			PDL_IF_BAD(if ( PDL_ISBAD2((a_datap)[0],a_badval,H,a_badval_isnan) ) (b_datap)[0]=b_badval; else {,)
465
466			#line 253 "lib/PDL/Ops.pd"
467
468			(b_datap)[0] = clog10l((a_datap)[0]);
469			#line 254 "lib/PDL/Ops.pd"
470			PDL_IF_BAD(},)
471			#line 472 "lib/PDL/Ops-pp-log10.c"
472	0	0	}PDL_BROADCASTLOOP_END_log10_readdata
		0
473	0		} break;
474	0		default: return PDL->make_error(PDL_EUSERERROR, "PP INTERNAL ERROR in log10: unhandled datatype(%d), only handles (ABSULKNPQFDEGCH)! PLEASE MAKE A BUG REPORT\n", __privtrans->__datatype);
475			}
476			#undef PDL_IF_BAD
477			}
478	11		return PDL_err;
479			}
480
481			static pdl_datatypes pdl_log10_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 };
482			static PDL_Indx pdl_log10_vtable_realdims[] = { 0, 0 };
483			static char *pdl_log10_vtable_parnames[] = { "a","b" };
484			static short pdl_log10_vtable_parflags[] = {
485			0,
486			PDL_PARAM_ISCREAT\|PDL_PARAM_ISOUT\|PDL_PARAM_ISWRITE
487			};
488			static pdl_datatypes pdl_log10_vtable_partypes[] = { -1, -1 };
489			static PDL_Indx pdl_log10_vtable_realdims_starts[] = { 0, 0 };
490			static PDL_Indx pdl_log10_vtable_realdims_ind_ids[] = { 0 };
491			static char *pdl_log10_vtable_indnames[] = { "" };
492			pdl_transvtable pdl_log10_vtable = {
493			PDL_TRANS_DO_BROADCAST\|PDL_TRANS_BADPROCESS, 0, pdl_log10_vtable_gentypes, 1, 2, NULL /CORE21/,
494			pdl_log10_vtable_realdims, pdl_log10_vtable_parnames,
495			pdl_log10_vtable_parflags, pdl_log10_vtable_partypes,
496			pdl_log10_vtable_realdims_starts, pdl_log10_vtable_realdims_ind_ids, 0,
497			0, pdl_log10_vtable_indnames,
498			NULL, pdl_log10_readdata, NULL,
499			NULL,
500			0,"PDL::Ops::log10"
501			};
502
503
504	11		pdl_error pdl_run_log10(pdl a,pdl b) {
505	11		pdl_error PDL_err = {0, NULL, 0};
506	11	50	if (!PDL) return (pdl_error){PDL_EFATAL, "PDL core struct is NULL, can't continue",0};
507	11		pdl_trans *__privtrans = PDL->create_trans(&pdl_log10_vtable);
508	11	50	if (!__privtrans) return PDL->make_error_simple(PDL_EFATAL, "Couldn't create trans");
509	11		__privtrans->pdls[0] = a;
510	11		__privtrans->pdls[1] = b;
511	11	50	PDL_RETERROR(PDL_err, PDL->type_coerce(__privtrans));
512	11	50	PDL_RETERROR(PDL_err, PDL->make_trans_mutual(__privtrans));
513	11		return PDL_err;
514			}