File Coverage

Cephes_wrap.c

Criterion	Covered	Total	%
statement	2253	3313	68.0
branch	527	1184	44.5
condition			n/a
subroutine			n/a
pod			n/a
total	2780	4497	61.8

line	stmt	bran	code
1			/* ----------------------------------------------------------------------------
2			* This file was automatically generated by SWIG (http://www.swig.org).
3			* Version 1.3.20
4			*
5			* This file is not intended to be easily readable and contains a number of
6			* coding conventions designed to improve portability and efficiency. Do not make
7			* changes to this file unless you know what you are doing--modify the SWIG
8			* interface file instead.
9			* ----------------------------------------------------------------------------- */
10
11			/*************************************************************** -- c --
12			* perl5/precommon.swg
13			*
14			* Rename all exported symbols from common.swg, to avoid symbol
15			* clashes if multiple interpreters are included
16			*
17			************************************************************************/
18
19			#define SWIG_TypeRegister SWIG_Perl_TypeRegister
20			#define SWIG_TypeCheck SWIG_Perl_TypeCheck
21			#define SWIG_TypeCast SWIG_Perl_TypeCast
22			#define SWIG_TypeDynamicCast SWIG_Perl_TypeDynamicCast
23			#define SWIG_TypeName SWIG_Perl_TypeName
24			#define SWIG_TypeQuery SWIG_Perl_TypeQuery
25			#define SWIG_TypeClientData SWIG_Perl_TypeClientData
26			#define SWIG_PackData SWIG_Perl_PackData
27			#define SWIG_UnpackData SWIG_Perl_UnpackData
28
29
30			/***********************************************************************
31			* common.swg
32			*
33			* This file contains generic SWIG runtime support for pointer
34			* type checking as well as a few commonly used macros to control
35			* external linkage.
36			*
37			* Author : David Beazley (beazley@cs.uchicago.edu)
38			*
39			* Copyright (c) 1999-2000, The University of Chicago
40			*
41			* This file may be freely redistributed without license or fee provided
42			* this copyright message remains intact.
43			************************************************************************/
44
45			#include
46
47			#if defined(_WIN32) \|\| defined(__WIN32__) \|\| defined(__CYGWIN__)
48			# if defined(_MSC_VER) \|\| defined(__GNUC__)
49			# if defined(STATIC_LINKED)
50			# define SWIGEXPORT(a) a
51			# define SWIGIMPORT(a) extern a
52			# else
53			# define SWIGEXPORT(a) __declspec(dllexport) a
54			# define SWIGIMPORT(a) extern a
55			# endif
56			# else
57			# if defined(__BORLANDC__)
58			# define SWIGEXPORT(a) a _export
59			# define SWIGIMPORT(a) a _export
60			# else
61			# define SWIGEXPORT(a) a
62			# define SWIGIMPORT(a) a
63			# endif
64			# endif
65			#else
66			# define SWIGEXPORT(a) a
67			# define SWIGIMPORT(a) a
68			#endif
69
70			#ifdef SWIG_GLOBAL
71			# define SWIGRUNTIME(a) SWIGEXPORT(a)
72			#else
73			# define SWIGRUNTIME(a) static a
74			#endif
75
76			#ifdef __cplusplus
77			extern "C" {
78			#endif
79
80			typedef void (swig_converter_func)(void *);
81			typedef struct swig_type_info (swig_dycast_func)(void **);
82
83			typedef struct swig_type_info {
84			const char *name;
85			swig_converter_func converter;
86			const char *str;
87			void *clientdata;
88			swig_dycast_func dcast;
89			struct swig_type_info *next;
90			struct swig_type_info *prev;
91			} swig_type_info;
92
93			#ifdef SWIG_NOINCLUDE
94
95			SWIGIMPORT(swig_type_info ) SWIG_TypeRegister(swig_type_info );
96			SWIGIMPORT(swig_type_info ) SWIG_TypeCheck(char c, swig_type_info *);
97			SWIGIMPORT(void ) SWIG_TypeCast(swig_type_info , void *);
98			SWIGIMPORT(swig_type_info ) SWIG_TypeDynamicCast(swig_type_info , void **);
99			SWIGIMPORT(const char ) SWIG_TypeName(const swig_type_info );
100			SWIGIMPORT(swig_type_info ) SWIG_TypeQuery(const char );
101			SWIGIMPORT(void) SWIG_TypeClientData(swig_type_info , void );
102			SWIGIMPORT(char ) SWIG_PackData(char , void *, int);
103			SWIGIMPORT(char ) SWIG_UnpackData(char , void *, int);
104
105			#else
106
107			static swig_type_info *swig_type_list = 0;
108
109			/* Register a type mapping with the type-checking */
110			SWIGRUNTIME(swig_type_info *)
111	102		SWIG_TypeRegister(swig_type_info *ti) {
112			swig_type_info tc, head, ret, next;
113			/* Check to see if this type has already been registered */
114	102		tc = swig_type_list;
115	357	100	while (tc) {
116	255	50	if (strcmp(tc->name, ti->name) == 0) {
117			/* Already exists in the table. Just add additional types to the list */
118	0	0	if (tc->clientdata) ti->clientdata = tc->clientdata;
119	0		head = tc;
120	0		next = tc->next;
121	0		goto l1;
122			}
123	255		tc = tc->prev;
124			}
125	102		head = ti;
126	102		next = 0;
127
128			/* Place in list */
129	102		ti->prev = swig_type_list;
130	102		swig_type_list = ti;
131
132			/* Build linked lists */
133	102		l1:
134	102		ret = head;
135	102		tc = ti + 1;
136			/* Patch up the rest of the links */
137	204	100	while (tc->name) {
138	102		head->next = tc;
139	102		tc->prev = head;
140	102		head = tc;
141	102		tc++;
142			}
143	102	50	if (next) next->prev = head;
144	102		head->next = next;
145	102		return ret;
146			}
147
148			/* Check the typename */
149			SWIGRUNTIME(swig_type_info *)
150	0		SWIG_TypeCheck(char c, swig_type_info ty) {
151			swig_type_info *s;
152	0	0	if (!ty) return 0; /* Void pointer */
153	0		s = ty->next; /* First element always just a name */
154			do {
155	0	0	if (strcmp(s->name,c) == 0) {
156	0	0	if (s == ty->next) return s;
157			/* Move s to the top of the linked list */
158	0		s->prev->next = s->next;
159	0	0	if (s->next) {
160	0		s->next->prev = s->prev;
161			}
162			/* Insert s as second element in the list */
163	0		s->next = ty->next;
164	0	0	if (ty->next) ty->next->prev = s;
165	0		ty->next = s;
166	0		s->prev = ty;
167	0		return s;
168			}
169	0		s = s->next;
170	0	0	} while (s && (s != ty->next));
		0
171	0		return 0;
172			}
173
174			/* Cast a pointer up an inheritance hierarchy */
175			SWIGRUNTIME(void *)
176	441		SWIG_TypeCast(swig_type_info ty, void ptr) {
177	441	50	if ((!ty) \|\| (!ty->converter)) return ptr;
		50
178	0		return (*ty->converter)(ptr);
179			}
180
181			/* Dynamic pointer casting. Down an inheritance hierarchy */
182			SWIGRUNTIME(swig_type_info *)
183	0		SWIG_TypeDynamicCast(swig_type_info ty, void *ptr) {
184	0		swig_type_info *lastty = ty;
185	0	0	if (!ty \|\| !ty->dcast) return ty;
		0
186	0	0	while (ty && (ty->dcast)) {
		0
187	0		ty = (*ty->dcast)(ptr);
188	0	0	if (ty) lastty = ty;
189			}
190	0		return lastty;
191			}
192
193			/* Return the name associated with this type */
194			SWIGRUNTIME(const char *)
195	0		SWIG_TypeName(const swig_type_info *ty) {
196	0		return ty->name;
197			}
198
199			/* Search for a swig_type_info structure */
200			SWIGRUNTIME(swig_type_info *)
201	0		SWIG_TypeQuery(const char *name) {
202	0		swig_type_info *ty = swig_type_list;
203	0	0	while (ty) {
204	0	0	if (ty->str && (strcmp(name,ty->str) == 0)) return ty;
		0
205	0	0	if (ty->name && (strcmp(name,ty->name) == 0)) return ty;
		0
206	0		ty = ty->prev;
207			}
208	0		return 0;
209			}
210
211			/* Set the clientdata field for a type */
212			SWIGRUNTIME(void)
213	68		SWIG_TypeClientData(swig_type_info ti, void clientdata) {
214			swig_type_info tc, equiv;
215	68	100	if (ti->clientdata == clientdata) return;
216	34		ti->clientdata = clientdata;
217	34		equiv = ti->next;
218	68	100	while (equiv) {
219	34	50	if (!equiv->converter) {
220	34		tc = swig_type_list;
221	238	100	while (tc) {
222	204	100	if ((strcmp(tc->name, equiv->name) == 0))
223	34		SWIG_TypeClientData(tc,clientdata);
224	204		tc = tc->prev;
225			}
226			}
227	34		equiv = equiv->next;
228			}
229			}
230
231			/* Pack binary data into a string */
232			SWIGRUNTIME(char *)
233	0		SWIG_PackData(char c, void ptr, int sz) {
234			static char hex[17] = "0123456789abcdef";
235			int i;
236	0		unsigned char u = (unsigned char ) ptr;
237			register unsigned char uu;
238	0	0	for (i = 0; i < sz; i++,u++) {
239	0		uu = *u;
240	0		*(c++) = hex[(uu & 0xf0) >> 4];
241	0		*(c++) = hex[uu & 0xf];
242			}
243	0		return c;
244			}
245
246			/* Unpack binary data from a string */
247			SWIGRUNTIME(char *)
248	0		SWIG_UnpackData(char c, void ptr, int sz) {
249	0		register unsigned char uu = 0;
250			register int d;
251	0		unsigned char u = (unsigned char ) ptr;
252			int i;
253	0	0	for (i = 0; i < sz; i++, u++) {
254	0		d = *(c++);
255	0	0	if ((d >= '0') && (d <= '9'))
		0
256	0		uu = ((d - '0') << 4);
257	0	0	else if ((d >= 'a') && (d <= 'f'))
		0
258	0		uu = ((d - ('a'-10)) << 4);
259	0		d = *(c++);
260	0	0	if ((d >= '0') && (d <= '9'))
		0
261	0		uu \|= (d - '0');
262	0	0	else if ((d >= 'a') && (d <= 'f'))
		0
263	0		uu \|= (d - ('a'-10));
264	0		*u = uu;
265			}
266	0		return c;
267			}
268
269			#endif
270
271			#ifdef __cplusplus
272			}
273			#endif
274
275			/* ---------------------------------------------------------------------- -- c --
276			* perl5.swg
277			*
278			* Perl5 runtime library
279			* $Header: /home/cvs/Math-Cephes/Cephes_wrap.c,v 1.1 2003/12/22 16:48:39 randy Exp $
280			* ----------------------------------------------------------------------------- */
281
282			#define SWIGPERL
283			#define SWIGPERL5
284			#ifdef __cplusplus
285			/* Needed on some windows machines---since MS plays funny games with the header files under C++ */
286			#include
287			#include
288			extern "C" {
289			#endif
290			#include "EXTERN.h"
291			#include "perl.h"
292			#include "XSUB.h"
293			#include "arrays.h"
294
295
296			/* Get rid of free and malloc defined by perl */
297			#undef free
298			#undef malloc
299
300			#ifndef pTHX_
301			#define pTHX_
302			#endif
303
304			#include
305			#ifdef __cplusplus
306			}
307			#endif
308
309			/* Macro to call an XS function */
310
311			#ifdef PERL_OBJECT
312			# define SWIG_CALLXS(_name) _name(cv,pPerl)
313			#else
314			# ifndef MULTIPLICITY
315			# define SWIG_CALLXS(_name) _name(cv)
316			# else
317			# define SWIG_CALLXS(_name) _name(PERL_GET_THX, cv)
318			# endif
319			#endif
320
321			/* Contract support */
322
323			#define SWIG_contract_assert(expr,msg) if (!(expr)) { SWIG_croak(msg); } else
324
325			/* Note: SwigMagicFuncHack is a typedef used to get the C++ compiler to just shut up already */
326
327			#ifdef PERL_OBJECT
328			#define MAGIC_PPERL CPerlObj pPerl = (CPerlObj ) this;
329			typedef int (CPerlObj::SwigMagicFunc)(SV , MAGIC *);
330
331			#ifdef __cplusplus
332			extern "C" {
333			#endif
334			typedef int (CPerlObj::SwigMagicFuncHack)(SV , MAGIC *);
335			#ifdef __cplusplus
336			}
337			#endif
338
339			#define SWIG_MAGIC(a,b) (SV a, MAGIC b)
340			#define SWIGCLASS_STATIC
341			#else
342			#define MAGIC_PPERL
343			#define SWIGCLASS_STATIC static
344			#ifndef MULTIPLICITY
345			#define SWIG_MAGIC(a,b) (SV a, MAGIC b)
346			typedef int (SwigMagicFunc)(SV , MAGIC *);
347
348			#ifdef __cplusplus
349			extern "C" {
350			#endif
351			typedef int (SwigMagicFuncHack)(SV , MAGIC *);
352			#ifdef __cplusplus
353			}
354			#endif
355
356
357			#else
358			#define SWIG_MAGIC(a,b) (struct interpreter interp, SV a, MAGIC *b)
359			typedef int (SwigMagicFunc)(struct interpreter , SV , MAGIC );
360			#ifdef __cplusplus
361			extern "C" {
362			#endif
363			typedef int (SwigMagicFuncHack)(struct interpreter , SV , MAGIC );
364			#ifdef __cplusplus
365			}
366			#endif
367
368			#endif
369			#endif
370
371			#if defined(WIN32) && defined(PERL_OBJECT) && !defined(PerlIO_exportFILE)
372			#define PerlIO_exportFILE(fh,fl) (FILE*)(fh)
373			#endif
374
375			/* Modifications for newer Perl 5.005 releases */
376
377			#if !defined(PERL_REVISION) \|\| ((PERL_REVISION >= 5) && ((PERL_VERSION < 5) \|\| ((PERL_VERSION == 5) && (PERL_SUBVERSION < 50))))
378			# ifndef PL_sv_yes
379			# define PL_sv_yes sv_yes
380			# endif
381			# ifndef PL_sv_undef
382			# define PL_sv_undef sv_undef
383			# endif
384			# ifndef PL_na
385			# define PL_na na
386			# endif
387			#endif
388
389			#include
390
391			#ifdef __cplusplus
392			extern "C" {
393			#endif
394
395			#define SWIG_OWNER 1
396			#define SWIG_SHADOW 2
397
398			/* Common SWIG API */
399
400			#ifdef PERL_OBJECT
401			# define SWIG_ConvertPtr(obj, pp, type, flags) \
402			SWIG_Perl_ConvertPtr(pPerl, obj, pp, type, flags)
403			# define SWIG_NewPointerObj(p, type, flags) \
404			SWIG_Perl_NewPointerObj(pPerl, p, type, flags)
405			# define SWIG_MakePackedObj(sv, p, s, type) \
406			SWIG_Perl_MakePackedObj(pPerl, sv, p, s, type)
407			# define SWIG_ConvertPacked(obj, p, s, type, flags) \
408			SWIG_Perl_ConvertPacked(pPerl, obj, p, s, type, flags)
409
410			#else
411			# define SWIG_ConvertPtr(obj, pp, type, flags) \
412			SWIG_Perl_ConvertPtr(obj, pp, type, flags)
413			# define SWIG_NewPointerObj(p, type, flags) \
414			SWIG_Perl_NewPointerObj(p, type, flags)
415			# define SWIG_MakePackedObj(sv, p, s, type) \
416			SWIG_Perl_MakePackedObj(sv, p, s, type )
417			# define SWIG_ConvertPacked(obj, p, s, type, flags) \
418			SWIG_Perl_ConvertPacked(obj, p, s, type, flags)
419			#endif
420
421			/* Perl-specific API */
422			#ifdef PERL_OBJECT
423			# define SWIG_MakePtr(sv, ptr, type, flags) \
424			SWIG_Perl_MakePtr(pPerl, sv, ptr, type, flags)
425			# define SWIG_TypeCheckRV(rv, ty) \
426			SWIG_Perl_TypeCheckRV(pPerl, rv, ty)
427			# define SWIG_SetError(str) \
428			SWIG_Perl_SetError(pPerl, str)
429			#else
430			# define SWIG_MakePtr(sv, ptr, type, flags) \
431			SWIG_Perl_MakePtr(sv, ptr, type, flags)
432			# define SWIG_TypeCheckRV(rv, ty) \
433			SWIG_Perl_TypeCheckRV(rv, ty)
434			# define SWIG_SetError(str) \
435			SWIG_Perl_SetError(str)
436			# define SWIG_SetErrorSV(str) \
437			SWIG_Perl_SetErrorSV(str)
438			#endif
439
440			#define SWIG_SetErrorf SWIG_Perl_SetErrorf
441
442
443			#ifdef PERL_OBJECT
444			# define SWIG_MAYBE_PERL_OBJECT CPerlObj *pPerl,
445			#else
446			# define SWIG_MAYBE_PERL_OBJECT
447			#endif
448
449			#ifdef SWIG_NOINCLUDE
450
451			SWIGIMPORT(int) SWIG_Perl_ConvertPtr(SWIG_MAYBE_PERL_OBJECT SV , void , swig_type_info , int flags);
452			SWIGIMPORT(void) SWIG_Perl_MakePtr(SWIG_MAYBE_PERL_OBJECT SV , void , swig_type_info *, int flags);
453			SWIGIMPORT(SV ) SWIG_Perl_NewPointerObj(SWIG_MAYBE_PERL_OBJECT void , swig_type_info *, int flags);
454			SWIGIMPORT(void) SWIG_Perl_MakePackedObj(SWIG_MAYBE_PERL_OBJECT SV , void , int, swig_type_info *);
455			SWIGIMPORT(int) SWIG_Perl_ConvertPacked(SWIG_MAYBE_PERL_OBJECT SV , void , int, swig_type_info *, int flags);
456			SWIGIMPORT(swig_type_info ) SWIG_Perl_TypeCheckRV(SWIG_MAYBE_PERL_OBJECT SV rv, swig_type_info *ty);
457			SWIGIMPORT(SV ) SWIG_Perl_SetError(SWIG_MAYBE_PERL_OBJECT char );
458
459			#else
460
461			SWIGRUNTIME(swig_type_info *)
462	441		SWIG_Perl_TypeCheckRV(SWIG_MAYBE_PERL_OBJECT SV rv, swig_type_info ty) {
463			swig_type_info *s;
464	441	50	if (!ty) return 0; /* Void pointer */
465	441		s = ty->next; /* First element always just a name */
466			do {
467	441	50	if (sv_derived_from(rv, (char *) s->name)) {
468	441	50	if (s == ty->next) return s;
469			/* Move s to the top of the linked list */
470	0		s->prev->next = s->next;
471	0	0	if (s->next) {
472	0		s->next->prev = s->prev;
473			}
474			/* Insert s as second element in the list */
475	0		s->next = ty->next;
476	0	0	if (ty->next) ty->next->prev = s;
477	0		ty->next = s;
478	0		s->prev = ty;
479	0		return s;
480			}
481	0		s = s->next;
482	0	0	} while (s && (s != ty->next));
		0
483	0		return 0;
484			}
485
486			/* Function for getting a pointer value */
487
488			SWIGRUNTIME(int)
489	443		SWIG_Perl_ConvertPtr(SWIG_MAYBE_PERL_OBJECT SV sv, void ptr, swig_type_info _t, int flags) {
490			swig_type_info *tc;
491	443		void voidptr = (void )0;
492
493			/* If magical, apply more magic */
494	443	50	if (SvGMAGICAL(sv))
495	0		mg_get(sv);
496
497			/* Check to see if this is an object */
498	443	50	if (sv_isobject(sv)) {
499	443		SV tsv = (SV) SvRV(sv);
500	443		IV tmp = 0;
501	443	100	if ((SvTYPE(tsv) == SVt_PVHV)) {
502			MAGIC *mg;
503	83	50	if (SvMAGICAL(tsv)) {
504	83		mg = mg_find(tsv,'P');
505	83	50	if (mg) {
506	83		SV *rsv = mg->mg_obj;
507	83	50	if (sv_isobject(rsv)) {
508	83		tmp = SvIV((SV*)SvRV(rsv));
509			}
510			}
511			} else {
512	0		return -1;
513			}
514			} else {
515	360		tmp = SvIV((SV*)SvRV(sv));
516			}
517	443		voidptr = (void *)tmp;
518	443	100	if (!_t) {
519	2		*(ptr) = voidptr;
520	2		return 0;
521			}
522	0	0	} else if (! SvOK(sv)) { /* Check for undef */
523	0		(ptr) = (void ) 0;
524	0		return 0;
525	0	0	} else if (SvTYPE(sv) == SVt_RV) { /* Check for NULL pointer */
526	0		(ptr) = (void ) 0;
527	0	0	if (!SvROK(sv))
528	0		return 0;
529			else
530	0		return -1;
531			} else { /* Don't know what it is */
532	0		(ptr) = (void ) 0;
533	0		return -1;
534			}
535	441	50	if (_t) {
536			/* Now see if the types match */
537	441		tc = SWIG_TypeCheckRV(sv,_t);
538	441	50	if (!tc) {
539	0		*ptr = voidptr;
540	0		return -1;
541			}
542	441		*ptr = SWIG_TypeCast(tc,voidptr);
543	441		return 0;
544			}
545	0		*ptr = voidptr;
546	0		return 0;
547			}
548
549			SWIGRUNTIME(void)
550	110		SWIG_Perl_MakePtr(SWIG_MAYBE_PERL_OBJECT SV sv, void ptr, swig_type_info *t, int flags) {
551	220	50	if (ptr && (flags & SWIG_SHADOW)) {
		50
552			SV *self;
553	110		SV *obj=newSV(0);
554	110		HV *hash=newHV();
555			HV *stash;
556	110		sv_setref_pv(obj, (char *) t->name, ptr);
557	110		stash=SvSTASH(SvRV(obj));
558	110	50	if (flags & SWIG_OWNER) {
559			HV *hv;
560	110		GV gv=(GV**)hv_fetch(stash, "OWNER", 5, TRUE);
561	110	50	if (!isGV(gv))
562	0		gv_init(gv, stash, "OWNER", 5, FALSE);
563	110	50	hv=GvHVn(gv);
564	110		hv_store_ent(hv, obj, newSViv(1), 0);
565			}
566	110		sv_magic((SV )hash, (SV )obj, 'P', Nullch, 0);
567	110		SvREFCNT_dec(obj);
568	110		self=newRV_noinc((SV *)hash);
569	110		sv_setsv(sv, self);
570	110		SvREFCNT_dec((SV *)self);
571	110		sv_bless(sv, stash);
572			}
573			else {
574	0		sv_setref_pv(sv, (char *) t->name, ptr);
575			}
576	110		}
577
578			SWIGRUNTIME(SV *)
579	0		SWIG_Perl_NewPointerObj(SWIG_MAYBE_PERL_OBJECT void ptr, swig_type_info t, int flags) {
580	0		SV *result = sv_newmortal();
581	0		SWIG_MakePtr(result, ptr, t, flags);
582	0		return result;
583			}
584
585			SWIGRUNTIME(void)
586	0		SWIG_Perl_MakePackedObj(SWIG_MAYBE_PERL_OBJECT SV sv, void ptr, int sz, swig_type_info *type) {
587			char result[1024];
588	0		char *r = result;
589	0	0	if ((2*sz + 1 + strlen(type->name)) > 1000) return;
590	0		*(r++) = '_';
591	0		r = SWIG_PackData(r,ptr,sz);
592	0		strcpy(r,type->name);
593	0		sv_setpv(sv, result);
594			}
595
596			/* Convert a packed value value */
597			SWIGRUNTIME(int)
598	0		SWIG_Perl_ConvertPacked(SWIG_MAYBE_PERL_OBJECT SV obj, void ptr, int sz, swig_type_info *ty, int flags) {
599			swig_type_info *tc;
600	0		char *c = 0;
601
602	0	0	if ((!obj) \|\| (!SvOK(obj))) return -1;
		0
603	0		c = SvPV(obj, PL_na);
604			/* Pointer values must start with leading underscore */
605	0	0	if (*c != '_') return -1;
606	0		c++;
607	0		c = SWIG_UnpackData(c,ptr,sz);
608	0	0	if (ty) {
609	0		tc = SWIG_TypeCheck(c,ty);
610	0	0	if (!tc) return -1;
611			}
612	0		return 0;
613			}
614
615			SWIGRUNTIME(void)
616	0		SWIG_Perl_SetError(SWIG_MAYBE_PERL_OBJECT const char *error) {
617	0	0	if (error) sv_setpv(perl_get_sv("@", TRUE), error);
618	0		}
619
620			SWIGRUNTIME(void)
621	0		SWIG_Perl_SetErrorSV(SWIG_MAYBE_PERL_OBJECT SV *error) {
622	0	0	if (error) sv_setsv(perl_get_sv("@", TRUE), error);
623	0		}
624
625			SWIGRUNTIME(void)
626	0		SWIG_Perl_SetErrorf(const char *fmt, ...) {
627			va_list args;
628	0		va_start(args, fmt);
629	0		sv_vsetpvfn(perl_get_sv("@", TRUE), fmt, strlen(fmt), &args, Null(SV*), 0, Null(bool));
630	0		va_end(args);
631	0		}
632
633			#endif
634
635			/* Macros for low-level exception handling */
636			#define SWIG_fail goto fail
637			#define SWIG_croak(x) { SWIG_SetError(x); goto fail; }
638			#define SWIG_croakSV(x) { SWIG_SetErrorSV(x); goto fail; }
639			/* most preprocessors do not support vararg macros :-( */
640			/* #define SWIG_croakf(x...) { SWIG_SetErrorf(x); goto fail; } */
641
642
643			typedef XS(SwigPerlWrapper);
644			typedef SwigPerlWrapper *SwigPerlWrapperPtr;
645
646			/* Structure for command table */
647			typedef struct {
648			const char *name;
649			SwigPerlWrapperPtr wrapper;
650			} swig_command_info;
651
652			/* Information for constant table */
653
654			#define SWIG_INT 1
655			#define SWIG_FLOAT 2
656			#define SWIG_STRING 3
657			#define SWIG_POINTER 4
658			#define SWIG_BINARY 5
659
660			/* Constant information structure */
661			typedef struct swig_constant_info {
662			int type;
663			const char *name;
664			long lvalue;
665			double dvalue;
666			void *pvalue;
667			swig_type_info **ptype;
668			} swig_constant_info;
669
670			#ifdef __cplusplus
671			}
672			#endif
673
674			/* Structure for variable table */
675			typedef struct {
676			const char *name;
677			SwigMagicFunc set;
678			SwigMagicFunc get;
679			swig_type_info **type;
680			} swig_variable_info;
681
682			/* Magic variable code */
683			#ifndef PERL_OBJECT
684			#define swig_create_magic(s,a,b,c) _swig_create_magic(s,a,b,c)
685			#ifndef MULTIPLICITY
686	255		static void _swig_create_magic(SV sv, char name, int (set)(SV , MAGIC ), int (get)(SV ,MAGIC )) {
687			#else
688			static void _swig_create_magic(SV sv, char name, int (set)(struct interpreter, SV , MAGIC ), int (get)(struct interpreter, SV ,MAGIC )) {
689			#endif
690			#else
691			# define swig_create_magic(s,a,b,c) _swig_create_magic(pPerl,s,a,b,c)
692			static void _swig_create_magic(CPerlObj pPerl, SV sv, const char name, int (CPerlObj::set)(SV , MAGIC ), int (CPerlObj::get)(SV , MAGIC *)) {
693			#endif
694			MAGIC *mg;
695	255		sv_magic(sv,sv,'U',(char *) name,strlen(name));
696	255		mg = mg_find(sv,'U');
697	255		mg->mg_virtual = (MGVTBL *) malloc(sizeof(MGVTBL));
698	255		mg->mg_virtual->svt_get = (SwigMagicFuncHack) get;
699	255		mg->mg_virtual->svt_set = (SwigMagicFuncHack) set;
700	255		mg->mg_virtual->svt_len = 0;
701	255		mg->mg_virtual->svt_clear = 0;
702	255		mg->mg_virtual->svt_free = 0;
703	255		}
704
705
706
707
708
709
710			#ifdef do_open
711			#undef do_open
712			#endif
713			#ifdef do_close
714			#undef do_close
715			#endif
716			#ifdef scalar
717			#undef scalar
718			#endif
719			#ifdef list
720			#undef list
721			#endif
722			#ifdef apply
723			#undef apply
724			#endif
725			#ifdef convert
726			#undef convert
727			#endif
728			#ifdef Error
729			#undef Error
730			#endif
731			#ifdef form
732			#undef form
733			#endif
734			#ifdef vform
735			#undef vform
736			#endif
737			#ifdef LABEL
738			#undef LABEL
739			#endif
740			#ifdef METHOD
741			#undef METHOD
742			#endif
743			#ifdef Move
744			#undef Move
745			#endif
746			#ifdef yylex
747			#undef yylex
748			#endif
749			#ifdef yyparse
750			#undef yyparse
751			#endif
752			#ifdef yyerror
753			#undef yyerror
754			#endif
755			#ifdef invert
756			#undef invert
757			#endif
758			#ifdef ref
759			#undef ref
760			#endif
761			#ifdef ENTER
762			#undef ENTER
763			#endif
764
765
766			/* -------- TYPES TABLE (BEGIN) -------- */
767
768			#define SWIGTYPE_p_arr1i swig_types[0]
769			#define SWIGTYPE_p_fract swig_types[1]
770			#define SWIGTYPE_p_double swig_types[2]
771			#define SWIGTYPE_p_arr1d swig_types[3]
772			#define SWIGTYPE_p_cmplx swig_types[4]
773			#define SWIGTYPE_p_int swig_types[5]
774			static swig_type_info *swig_types[7];
775
776			/* -------- TYPES TABLE (END) -------- */
777
778			#define SWIG_init boot_Math__Cephes
779
780			#define SWIG_name "Math::Cephesc::boot_Math__Cephes"
781			#define SWIG_prefix "Math::Cephesc::"
782
783			#ifdef __cplusplus
784			extern "C"
785			#endif
786			#ifndef PERL_OBJECT
787			#ifndef MULTIPLICITY
788			SWIGEXPORT(void) SWIG_init (CV* cv);
789			#else
790			SWIGEXPORT(void) SWIG_init (pTHXo_ CV* cv);
791			#endif
792			#else
793			SWIGEXPORT(void) SWIG_init (CV cv, CPerlObj );
794			#endif
795
796
797			typedef struct {
798			double n;
799			double d;
800			} fract;
801
802			typedef struct {
803			double r;
804			double i;
805			} cmplx;
806
807			typedef double * arr1d;
808			typedef int * arr1i;
809
810	63		cmplx *new_cmplx(double r,double i){
811			cmplx *c;
812	63		c = (cmplx *) malloc(sizeof(cmplx));
813	63		c->r = r;
814	63		c->i = i;
815	63		return c;
816			}
817	63		void delete_cmplx(cmplx *self){
818	63		free(self);
819	63		}
820	47		fract *new_fract(double n,double d){
821			fract *f;
822	47		f = (fract *) malloc(sizeof(fract));
823	47		f->n = n;
824	47		f->d = d;
825	47		return f;
826			}
827	47		void delete_fract(fract *self){
828	47		free(self);
829	47		}
830			extern double MACHEP;
831			extern double MAXLOG;
832			extern double MINLOG;
833			extern double MAXNUM;
834			extern double PI;
835			extern double PIO2;
836			extern double PIO4;
837			extern double SQRT2;
838			extern double SQRTH;
839			extern double LOG2E;
840			extern double SQ2OPI;
841			extern double LOGE2;
842			extern double LOGSQ2;
843			extern double THPIO4;
844			extern double TWOOPI;
845			extern double md_acosh(double);
846			extern int airy(double,double ,double ,double ,double );
847			extern double md_asin(double);
848			extern double md_acos(double);
849			extern double md_asinh(double);
850			extern double md_atan(double);
851			extern double md_atan2(double,double);
852			extern double md_atanh(double);
853			extern double bdtrc(int,int,double);
854			extern double bdtr(int,int,double);
855			extern double bdtri(int,int,double);
856			extern double beta(double,double);
857			extern double lbeta(double,double);
858			extern double btdtr(double,double,double);
859			extern double md_cbrt(double);
860			extern double chbevl(double,void *,int);
861			extern double chdtrc(double,double);
862			extern double chdtr(double,double);
863			extern double chdtri(double,double);
864			extern void md_clog(cmplx ,cmplx );
865			extern void md_cexp(cmplx ,cmplx );
866			extern void md_csin(cmplx ,cmplx );
867			extern void md_ccos(cmplx ,cmplx );
868			extern void md_ctan(cmplx ,cmplx );
869			extern void ccot(cmplx ,cmplx );
870			extern void md_casin(cmplx ,cmplx );
871			extern void md_cacos(cmplx ,cmplx );
872			extern void md_catan(cmplx ,cmplx );
873			extern void md_csinh(cmplx ,cmplx );
874			extern void md_casinh(cmplx ,cmplx );
875			extern void md_ccosh(cmplx ,cmplx );
876			extern void md_cacosh(cmplx ,cmplx );
877			extern void md_ctanh(cmplx ,cmplx );
878			extern void md_catanh(cmplx ,cmplx );
879			extern void md_cpow(cmplx ,cmplx ,cmplx *);
880			extern void radd(fract ,fract ,fract *);
881			extern void rsub(fract ,fract ,fract *);
882			extern void rmul(fract ,fract ,fract *);
883			extern void rdiv(fract ,fract ,fract *);
884			extern double euclid(double ,double );
885			extern void cadd(cmplx ,cmplx ,cmplx *);
886			extern void csub(cmplx ,cmplx ,cmplx *);
887			extern void cmul(cmplx ,cmplx ,cmplx *);
888			extern void cdiv(cmplx ,cmplx ,cmplx *);
889			extern void cmov(void ,void );
890			extern void cneg(cmplx *);
891			extern double md_cabs(cmplx *);
892			extern void md_csqrt(cmplx ,cmplx );
893			extern double md_hypot(double,double);
894			extern double md_cosh(double);
895			extern double dawsn(double);
896			extern double ellie(double,double);
897			extern double ellik(double,double);
898			extern double ellpe(double);
899			extern int ellpj(double,double,double ,double ,double ,double );
900			extern double ellpk(double);
901			extern double md_exp(double);
902			extern double md_exp10(double);
903			extern double md_exp2(double);
904			extern double md_expn(int,double);
905			extern double ei(double);
906			extern double md_fabs(double);
907			extern double fac(int);
908			extern double fdtrc(int,int,double);
909			extern double fdtr(int,int,double);
910			extern double fdtri(int,int,double);
911			extern double md_ceil(double);
912			extern double md_floor(double);
913			extern double md_frexp(double,int *);
914			extern double md_ldexp(double,int);
915			extern int fresnl(double,double ,double );
916			extern double md_gamma(double);
917			extern double lgam(double);
918			extern double gdtr(double,double,double);
919			extern double gdtrc(double,double,double);
920			extern double hyp2f1(double,double,double,double);
921			extern double hyperg(double,double,double);
922			extern double hyp2f0(double,double,double,int,double *);
923			extern double i0(double);
924			extern double i0e(double);
925			extern double i1(double);
926			extern double i1e(double);
927			extern double igamc(double,double);
928			extern double igam(double,double);
929			extern double igami(double,double);
930			extern double incbet(double,double,double);
931			extern double incbi(double,double,double);
932			extern double iv(double,double);
933			extern double md_j0(double);
934			extern double md_y0(double);
935			extern double md_j1(double);
936			extern double md_y1(double);
937			extern double md_jn(int,double);
938			extern double jv(double,double);
939			extern double k0(double);
940			extern double k0e(double);
941			extern double k1(double);
942			extern double k1e(double);
943			extern double kn(int,double);
944			extern double md_log(double);
945			extern double md_log10(double);
946			extern double md_log2(double);
947			extern long lrand(void);
948			extern long lsqrt(long);
949			extern int mtherr(char *,int);
950			extern double polevl(double,void *,int);
951			extern double p1evl(double,void *,int);
952			extern double nbdtrc(int,int,double);
953			extern double nbdtr(int,int,double);
954			extern double nbdtri(int,int,double);
955			extern double ndtr(double);
956			extern double md_erfc(double);
957			extern double md_erf(double);
958			extern double ndtri(double);
959			extern double pdtrc(int,double);
960			extern double pdtr(int,double);
961			extern double pdtri(int,double);
962			extern double md_pow(double,double);
963			extern double md_powi(double,int);
964			extern double psi(double);
965			extern double rgamma(double);
966			extern double md_round(double);
967			extern int shichi(double,double ,double );
968			extern int sici(double,double ,double );
969			extern double md_sin(double);
970			extern double md_cos(double);
971			extern double radian(double,double,double);
972			extern double md_sindg(double);
973			extern double cosdg(double);
974			extern double md_sinh(double);
975			extern double spence(double);
976			extern double sqrt(double);
977			extern double stdtr(int,double);
978			extern double stdtri(int,double);
979			extern double onef2(double,double,double,double,double *);
980			extern double threef0(double,double,double,double,double *);
981			extern double struve(double,double);
982			extern double md_tan(double);
983			extern double cot(double);
984			extern double tandg(double);
985			extern double cotdg(double);
986			extern double md_tanh(double);
987			extern double md_log1p(double);
988			extern double expm1(double);
989			extern double cosm1(double);
990			extern double md_yn(int,double);
991			extern double yv(double,double);
992			extern double zeta(double,double);
993			extern double zetac(double);
994			extern int drand(double *);
995			extern double plancki(double,double);
996			extern void polini(int);
997			extern void polmul(arr1d,int,arr1d,int,arr1d);
998			extern int poldiv(arr1d,int,arr1d,int,arr1d);
999			extern void poladd(arr1d,int,arr1d,int,arr1d);
1000			extern void polsub(arr1d,int,arr1d,int,arr1d);
1001			extern void polsbt(arr1d,int,arr1d,int,arr1d);
1002			extern double poleva(arr1d,int,double);
1003			extern void polatn(arr1d,arr1d,arr1d,int);
1004			extern void polsqt(arr1d,arr1d,int);
1005			extern void polsin(arr1d,arr1d,int);
1006			extern void polcos(arr1d,arr1d,int);
1007			extern int polrt_wrap(arr1d,arr1d,int,arr1d,arr1d);
1008			extern int cpmul_wrap(arr1d,arr1d,int,arr1d,arr1d,int,arr1d,arr1d,int *);
1009			extern void fpolini(int);
1010			extern void fpolmul_wrap(arr1d,arr1d,int,arr1d,arr1d,int,arr1d,arr1d,int);
1011			extern int fpoldiv_wrap(arr1d,arr1d,int,arr1d,arr1d,int,arr1d,arr1d,int);
1012			extern void fpoladd_wrap(arr1d,arr1d,int,arr1d,arr1d,int,arr1d,arr1d,int);
1013			extern void fpolsub_wrap(arr1d,arr1d,int,arr1d,arr1d,int,arr1d,arr1d,int);
1014			extern void fpolsbt_wrap(arr1d,arr1d,int,arr1d,arr1d,int,arr1d,arr1d,int);
1015			extern void fpoleva_wrap(arr1d,arr1d,int,fract ,fract );
1016			extern void bernum_wrap(arr1d,arr1d);
1017			extern double simpsn_wrap(arr1d,int,double);
1018			extern int minv(arr1d,arr1d,int,arr1d,arr1i);
1019			extern void mtransp(int,arr1d,arr1d);
1020			extern void eigens(arr1d,arr1d,arr1d,int);
1021			extern int simq(arr1d,arr1d,arr1d,int,int,arr1i);
1022			extern double polylog(int,double);
1023			extern double arcdot(arr1d,arr1d);
1024			extern double expx2(double,int);
1025			#ifdef PERL_OBJECT
1026			#define MAGIC_CLASS _wrap_Math::Cephes_var::
1027			class _wrap_Math::Cephes_var : public CPerlObj {
1028			public:
1029			#else
1030			#define MAGIC_CLASS
1031			#endif
1032	0		SWIGCLASS_STATIC int swig_magic_readonly(pTHX_ SV sv, MAGIC mg) {
1033			MAGIC_PPERL
1034	0		sv = sv; mg = mg;
1035	0		croak("Value is read-only.");
1036			return 0;
1037			}
1038	0		SWIGCLASS_STATIC int _wrap_set_MACHEP(pTHX_ SV* sv, MAGIC *mg) {
1039			MAGIC_PPERL
1040	0		mg = mg;
1041	0		MACHEP = (double) SvNV(sv);
1042
1043	0		return 1;
1044			}
1045
1046
1047	0		SWIGCLASS_STATIC int _wrap_val_MACHEP(pTHX_ SV sv, MAGIC mg) {
1048			MAGIC_PPERL
1049	0		mg = mg;
1050	0		sv_setnv(sv, (double) MACHEP);
1051	0		return 1;
1052			}
1053
1054
1055	0		SWIGCLASS_STATIC int _wrap_set_MAXLOG(pTHX_ SV* sv, MAGIC *mg) {
1056			MAGIC_PPERL
1057	0		mg = mg;
1058	0		MAXLOG = (double) SvNV(sv);
1059
1060	0		return 1;
1061			}
1062
1063
1064	0		SWIGCLASS_STATIC int _wrap_val_MAXLOG(pTHX_ SV sv, MAGIC mg) {
1065			MAGIC_PPERL
1066	0		mg = mg;
1067	0		sv_setnv(sv, (double) MAXLOG);
1068	0		return 1;
1069			}
1070
1071
1072	0		SWIGCLASS_STATIC int _wrap_set_MINLOG(pTHX_ SV* sv, MAGIC *mg) {
1073			MAGIC_PPERL
1074	0		mg = mg;
1075	0		MINLOG = (double) SvNV(sv);
1076
1077	0		return 1;
1078			}
1079
1080
1081	0		SWIGCLASS_STATIC int _wrap_val_MINLOG(pTHX_ SV sv, MAGIC mg) {
1082			MAGIC_PPERL
1083	0		mg = mg;
1084	0		sv_setnv(sv, (double) MINLOG);
1085	0		return 1;
1086			}
1087
1088
1089	0		SWIGCLASS_STATIC int _wrap_set_MAXNUM(pTHX_ SV* sv, MAGIC *mg) {
1090			MAGIC_PPERL
1091	0		mg = mg;
1092	0		MAXNUM = (double) SvNV(sv);
1093
1094	0		return 1;
1095			}
1096
1097
1098	0		SWIGCLASS_STATIC int _wrap_val_MAXNUM(pTHX_ SV sv, MAGIC mg) {
1099			MAGIC_PPERL
1100	0		mg = mg;
1101	0		sv_setnv(sv, (double) MAXNUM);
1102	0		return 1;
1103			}
1104
1105
1106	0		SWIGCLASS_STATIC int _wrap_set_PI(pTHX_ SV* sv, MAGIC *mg) {
1107			MAGIC_PPERL
1108	0		mg = mg;
1109	0		PI = (double) SvNV(sv);
1110
1111	0		return 1;
1112			}
1113
1114
1115	11		SWIGCLASS_STATIC int _wrap_val_PI(pTHX_ SV sv, MAGIC mg) {
1116			MAGIC_PPERL
1117	11		mg = mg;
1118	11		sv_setnv(sv, (double) PI);
1119	11		return 1;
1120			}
1121
1122
1123	0		SWIGCLASS_STATIC int _wrap_set_PIO2(pTHX_ SV* sv, MAGIC *mg) {
1124			MAGIC_PPERL
1125	0		mg = mg;
1126	0		PIO2 = (double) SvNV(sv);
1127
1128	0		return 1;
1129			}
1130
1131
1132	0		SWIGCLASS_STATIC int _wrap_val_PIO2(pTHX_ SV sv, MAGIC mg) {
1133			MAGIC_PPERL
1134	0		mg = mg;
1135	0		sv_setnv(sv, (double) PIO2);
1136	0		return 1;
1137			}
1138
1139
1140	0		SWIGCLASS_STATIC int _wrap_set_PIO4(pTHX_ SV* sv, MAGIC *mg) {
1141			MAGIC_PPERL
1142	0		mg = mg;
1143	0		PIO4 = (double) SvNV(sv);
1144
1145	0		return 1;
1146			}
1147
1148
1149	5		SWIGCLASS_STATIC int _wrap_val_PIO4(pTHX_ SV sv, MAGIC mg) {
1150			MAGIC_PPERL
1151	5		mg = mg;
1152	5		sv_setnv(sv, (double) PIO4);
1153	5		return 1;
1154			}
1155
1156
1157	0		SWIGCLASS_STATIC int _wrap_set_SQRT2(pTHX_ SV* sv, MAGIC *mg) {
1158			MAGIC_PPERL
1159	0		mg = mg;
1160	0		SQRT2 = (double) SvNV(sv);
1161
1162	0		return 1;
1163			}
1164
1165
1166	2		SWIGCLASS_STATIC int _wrap_val_SQRT2(pTHX_ SV sv, MAGIC mg) {
1167			MAGIC_PPERL
1168	2		mg = mg;
1169	2		sv_setnv(sv, (double) SQRT2);
1170	2		return 1;
1171			}
1172
1173
1174	0		SWIGCLASS_STATIC int _wrap_set_SQRTH(pTHX_ SV* sv, MAGIC *mg) {
1175			MAGIC_PPERL
1176	0		mg = mg;
1177	0		SQRTH = (double) SvNV(sv);
1178
1179	0		return 1;
1180			}
1181
1182
1183	7		SWIGCLASS_STATIC int _wrap_val_SQRTH(pTHX_ SV sv, MAGIC mg) {
1184			MAGIC_PPERL
1185	7		mg = mg;
1186	7		sv_setnv(sv, (double) SQRTH);
1187	7		return 1;
1188			}
1189
1190
1191	0		SWIGCLASS_STATIC int _wrap_set_LOG2E(pTHX_ SV* sv, MAGIC *mg) {
1192			MAGIC_PPERL
1193	0		mg = mg;
1194	0		LOG2E = (double) SvNV(sv);
1195
1196	0		return 1;
1197			}
1198
1199
1200	1		SWIGCLASS_STATIC int _wrap_val_LOG2E(pTHX_ SV sv, MAGIC mg) {
1201			MAGIC_PPERL
1202	1		mg = mg;
1203	1		sv_setnv(sv, (double) LOG2E);
1204	1		return 1;
1205			}
1206
1207
1208	0		SWIGCLASS_STATIC int _wrap_set_SQ2OPI(pTHX_ SV* sv, MAGIC *mg) {
1209			MAGIC_PPERL
1210	0		mg = mg;
1211	0		SQ2OPI = (double) SvNV(sv);
1212
1213	0		return 1;
1214			}
1215
1216
1217	1		SWIGCLASS_STATIC int _wrap_val_SQ2OPI(pTHX_ SV sv, MAGIC mg) {
1218			MAGIC_PPERL
1219	1		mg = mg;
1220	1		sv_setnv(sv, (double) SQ2OPI);
1221	1		return 1;
1222			}
1223
1224
1225	0		SWIGCLASS_STATIC int _wrap_set_LOGE2(pTHX_ SV* sv, MAGIC *mg) {
1226			MAGIC_PPERL
1227	0		mg = mg;
1228	0		LOGE2 = (double) SvNV(sv);
1229
1230	0		return 1;
1231			}
1232
1233
1234	2		SWIGCLASS_STATIC int _wrap_val_LOGE2(pTHX_ SV sv, MAGIC mg) {
1235			MAGIC_PPERL
1236	2		mg = mg;
1237	2		sv_setnv(sv, (double) LOGE2);
1238	2		return 1;
1239			}
1240
1241
1242	0		SWIGCLASS_STATIC int _wrap_set_LOGSQ2(pTHX_ SV* sv, MAGIC *mg) {
1243			MAGIC_PPERL
1244	0		mg = mg;
1245	0		LOGSQ2 = (double) SvNV(sv);
1246
1247	0		return 1;
1248			}
1249
1250
1251	0		SWIGCLASS_STATIC int _wrap_val_LOGSQ2(pTHX_ SV sv, MAGIC mg) {
1252			MAGIC_PPERL
1253	0		mg = mg;
1254	0		sv_setnv(sv, (double) LOGSQ2);
1255	0		return 1;
1256			}
1257
1258
1259	0		SWIGCLASS_STATIC int _wrap_set_THPIO4(pTHX_ SV* sv, MAGIC *mg) {
1260			MAGIC_PPERL
1261	0		mg = mg;
1262	0		THPIO4 = (double) SvNV(sv);
1263
1264	0		return 1;
1265			}
1266
1267
1268	0		SWIGCLASS_STATIC int _wrap_val_THPIO4(pTHX_ SV sv, MAGIC mg) {
1269			MAGIC_PPERL
1270	0		mg = mg;
1271	0		sv_setnv(sv, (double) THPIO4);
1272	0		return 1;
1273			}
1274
1275
1276	0		SWIGCLASS_STATIC int _wrap_set_TWOOPI(pTHX_ SV* sv, MAGIC *mg) {
1277			MAGIC_PPERL
1278	0		mg = mg;
1279	0		TWOOPI = (double) SvNV(sv);
1280
1281	0		return 1;
1282			}
1283
1284
1285	0		SWIGCLASS_STATIC int _wrap_val_TWOOPI(pTHX_ SV sv, MAGIC mg) {
1286			MAGIC_PPERL
1287	0		mg = mg;
1288	0		sv_setnv(sv, (double) TWOOPI);
1289	0		return 1;
1290			}
1291
1292
1293
1294
1295			#ifdef PERL_OBJECT
1296			};
1297			#endif
1298
1299			#ifdef __cplusplus
1300			extern "C" {
1301			#endif
1302	1		XS(_wrap_cmplx_r_set) {
1303			{
1304	1		cmplx arg1 = (cmplx ) 0 ;
1305			double arg2 ;
1306	1		int argvi = 0;
1307	1		dXSARGS;
1308
1309	1	50	if ((items < 2) \|\| (items > 2)) {
		50
1310	0		SWIG_croak("Usage: cmplx_r_set(self,r);");
1311			}
1312			{
1313	1	50	if (SWIG_ConvertPtr(ST(0), (void **) &arg1, SWIGTYPE_p_cmplx,0) < 0) {
1314	0		SWIG_croak("Type error in argument 1 of cmplx_r_set. Expected _p_cmplx");
1315			}
1316			}
1317	1		arg2 = (double) SvNV(ST(1));
1318
1319	1	50	if (arg1) (arg1)->r = arg2;
1320
1321
1322	1		XSRETURN(argvi);
1323	0		fail:
1324			;
1325			}
1326	0		croak(Nullch);
1327			}
1328
1329
1330	77		XS(_wrap_cmplx_r_get) {
1331			{
1332	77		cmplx arg1 = (cmplx ) 0 ;
1333			double result;
1334	77		int argvi = 0;
1335	77		dXSARGS;
1336
1337	77	50	if ((items < 1) \|\| (items > 1)) {
		50
1338	0		SWIG_croak("Usage: cmplx_r_get(self);");
1339			}
1340			{
1341	77	50	if (SWIG_ConvertPtr(ST(0), (void **) &arg1, SWIGTYPE_p_cmplx,0) < 0) {
1342	0		SWIG_croak("Type error in argument 1 of cmplx_r_get. Expected _p_cmplx");
1343			}
1344			}
1345	77		result = (double) ((arg1)->r);
1346
1347	77		ST(argvi) = sv_newmortal();
1348	77		sv_setnv(ST(argvi++), (double) result);
1349	77		XSRETURN(argvi);
1350	0		fail:
1351			;
1352			}
1353	0		croak(Nullch);
1354			}
1355
1356
1357	1		XS(_wrap_cmplx_i_set) {
1358			{
1359	1		cmplx arg1 = (cmplx ) 0 ;
1360			double arg2 ;
1361	1		int argvi = 0;
1362	1		dXSARGS;
1363
1364	1	50	if ((items < 2) \|\| (items > 2)) {
		50
1365	0		SWIG_croak("Usage: cmplx_i_set(self,i);");
1366			}
1367			{
1368	1	50	if (SWIG_ConvertPtr(ST(0), (void **) &arg1, SWIGTYPE_p_cmplx,0) < 0) {
1369	0		SWIG_croak("Type error in argument 1 of cmplx_i_set. Expected _p_cmplx");
1370			}
1371			}
1372	1		arg2 = (double) SvNV(ST(1));
1373
1374	1	50	if (arg1) (arg1)->i = arg2;
1375
1376
1377	1		XSRETURN(argvi);
1378	0		fail:
1379			;
1380			}
1381	0		croak(Nullch);
1382			}
1383
1384
1385	77		XS(_wrap_cmplx_i_get) {
1386			{
1387	77		cmplx arg1 = (cmplx ) 0 ;
1388			double result;
1389	77		int argvi = 0;
1390	77		dXSARGS;
1391
1392	77	50	if ((items < 1) \|\| (items > 1)) {
		50
1393	0		SWIG_croak("Usage: cmplx_i_get(self);");
1394			}
1395			{
1396	77	50	if (SWIG_ConvertPtr(ST(0), (void **) &arg1, SWIGTYPE_p_cmplx,0) < 0) {
1397	0		SWIG_croak("Type error in argument 1 of cmplx_i_get. Expected _p_cmplx");
1398			}
1399			}
1400	77		result = (double) ((arg1)->i);
1401
1402	77		ST(argvi) = sv_newmortal();
1403	77		sv_setnv(ST(argvi++), (double) result);
1404	77		XSRETURN(argvi);
1405	0		fail:
1406			;
1407			}
1408	0		croak(Nullch);
1409			}
1410
1411
1412	63		XS(_wrap_new_cmplx) {
1413			{
1414	63		double arg1 = (double) 0 ;
1415	63		double arg2 = (double) 0 ;
1416			cmplx *result;
1417	63		int argvi = 0;
1418	63		dXSARGS;
1419
1420	63	50	if ((items < 0) \|\| (items > 2)) {
		50
1421	0		SWIG_croak("Usage: new_cmplx(r,i);");
1422			}
1423	63	100	if (items > 0) {
1424	36		arg1 = (double) SvNV(ST(0));
1425
1426			}
1427	63	100	if (items > 1) {
1428	36		arg2 = (double) SvNV(ST(1));
1429
1430			}
1431	63		result = (cmplx *)new_cmplx(arg1,arg2);
1432
1433	63		ST(argvi) = sv_newmortal();
1434	63		SWIG_MakePtr(ST(argvi++), (void *) result, SWIGTYPE_p_cmplx, SWIG_SHADOW\|SWIG_OWNER);
1435	63		XSRETURN(argvi);
1436	0		fail:
1437			;
1438			}
1439	0		croak(Nullch);
1440			}
1441
1442
1443	63		XS(_wrap_delete_cmplx) {
1444			{
1445	63		cmplx arg1 = (cmplx ) 0 ;
1446	63		int argvi = 0;
1447	63		dXSARGS;
1448
1449	63	50	if ((items < 1) \|\| (items > 1)) {
		50
1450	0		SWIG_croak("Usage: delete_cmplx(self);");
1451			}
1452			{
1453	63	50	if (SWIG_ConvertPtr(ST(0), (void **) &arg1, SWIGTYPE_p_cmplx,0) < 0) {
1454	0		SWIG_croak("Type error in argument 1 of delete_cmplx. Expected _p_cmplx");
1455			}
1456			}
1457	63		delete_cmplx(arg1);
1458
1459
1460	63		XSRETURN(argvi);
1461	0		fail:
1462			;
1463			}
1464	0		croak(Nullch);
1465			}
1466
1467
1468	2		XS(_wrap_fract_n_set) {
1469			{
1470	2		fract arg1 = (fract ) 0 ;
1471			double arg2 ;
1472	2		int argvi = 0;
1473	2		dXSARGS;
1474
1475	2	50	if ((items < 2) \|\| (items > 2)) {
		50
1476	0		SWIG_croak("Usage: fract_n_set(self,n);");
1477			}
1478			{
1479	2	50	if (SWIG_ConvertPtr(ST(0), (void **) &arg1, SWIGTYPE_p_fract,0) < 0) {
1480	0		SWIG_croak("Type error in argument 1 of fract_n_set. Expected _p_fract");
1481			}
1482			}
1483	2		arg2 = (double) SvNV(ST(1));
1484
1485	2	50	if (arg1) (arg1)->n = arg2;
1486
1487
1488	2		XSRETURN(argvi);
1489	0		fail:
1490			;
1491			}
1492	0		croak(Nullch);
1493			}
1494
1495
1496	45		XS(_wrap_fract_n_get) {
1497			{
1498	45		fract arg1 = (fract ) 0 ;
1499			double result;
1500	45		int argvi = 0;
1501	45		dXSARGS;
1502
1503	45	50	if ((items < 1) \|\| (items > 1)) {
		50
1504	0		SWIG_croak("Usage: fract_n_get(self);");
1505			}
1506			{
1507	45	50	if (SWIG_ConvertPtr(ST(0), (void **) &arg1, SWIGTYPE_p_fract,0) < 0) {
1508	0		SWIG_croak("Type error in argument 1 of fract_n_get. Expected _p_fract");
1509			}
1510			}
1511	45		result = (double) ((arg1)->n);
1512
1513	45		ST(argvi) = sv_newmortal();
1514	45		sv_setnv(ST(argvi++), (double) result);
1515	45		XSRETURN(argvi);
1516	0		fail:
1517			;
1518			}
1519	0		croak(Nullch);
1520			}
1521
1522
1523	2		XS(_wrap_fract_d_set) {
1524			{
1525	2		fract arg1 = (fract ) 0 ;
1526			double arg2 ;
1527	2		int argvi = 0;
1528	2		dXSARGS;
1529
1530	2	50	if ((items < 2) \|\| (items > 2)) {
		50
1531	0		SWIG_croak("Usage: fract_d_set(self,d);");
1532			}
1533			{
1534	2	50	if (SWIG_ConvertPtr(ST(0), (void **) &arg1, SWIGTYPE_p_fract,0) < 0) {
1535	0		SWIG_croak("Type error in argument 1 of fract_d_set. Expected _p_fract");
1536			}
1537			}
1538	2		arg2 = (double) SvNV(ST(1));
1539
1540	2	50	if (arg1) (arg1)->d = arg2;
1541
1542
1543	2		XSRETURN(argvi);
1544	0		fail:
1545			;
1546			}
1547	0		croak(Nullch);
1548			}
1549
1550
1551	45		XS(_wrap_fract_d_get) {
1552			{
1553	45		fract arg1 = (fract ) 0 ;
1554			double result;
1555	45		int argvi = 0;
1556	45		dXSARGS;
1557
1558	45	50	if ((items < 1) \|\| (items > 1)) {
		50
1559	0		SWIG_croak("Usage: fract_d_get(self);");
1560			}
1561			{
1562	45	50	if (SWIG_ConvertPtr(ST(0), (void **) &arg1, SWIGTYPE_p_fract,0) < 0) {
1563	0		SWIG_croak("Type error in argument 1 of fract_d_get. Expected _p_fract");
1564			}
1565			}
1566	45		result = (double) ((arg1)->d);
1567
1568	45		ST(argvi) = sv_newmortal();
1569	45		sv_setnv(ST(argvi++), (double) result);
1570	45		XSRETURN(argvi);
1571	0		fail:
1572			;
1573			}
1574	0		croak(Nullch);
1575			}
1576
1577
1578	47		XS(_wrap_new_fract) {
1579			{
1580	47		double arg1 = (double) 0 ;
1581	47		double arg2 = (double) 1 ;
1582			fract *result;
1583	47		int argvi = 0;
1584	47		dXSARGS;
1585
1586	47	50	if ((items < 0) \|\| (items > 2)) {
		50
1587	0		SWIG_croak("Usage: new_fract(n,d);");
1588			}
1589	47	100	if (items > 0) {
1590	43		arg1 = (double) SvNV(ST(0));
1591
1592			}
1593	47	100	if (items > 1) {
1594	43		arg2 = (double) SvNV(ST(1));
1595
1596			}
1597	47		result = (fract *)new_fract(arg1,arg2);
1598
1599	47		ST(argvi) = sv_newmortal();
1600	47		SWIG_MakePtr(ST(argvi++), (void *) result, SWIGTYPE_p_fract, SWIG_SHADOW\|SWIG_OWNER);
1601	47		XSRETURN(argvi);
1602	0		fail:
1603			;
1604			}
1605	0		croak(Nullch);
1606			}
1607
1608
1609	47		XS(_wrap_delete_fract) {
1610			{
1611	47		fract arg1 = (fract ) 0 ;
1612	47		int argvi = 0;
1613	47		dXSARGS;
1614
1615	47	50	if ((items < 1) \|\| (items > 1)) {
		50
1616	0		SWIG_croak("Usage: delete_fract(self);");
1617			}
1618			{
1619	47	50	if (SWIG_ConvertPtr(ST(0), (void **) &arg1, SWIGTYPE_p_fract,0) < 0) {
1620	0		SWIG_croak("Type error in argument 1 of delete_fract. Expected _p_fract");
1621			}
1622			}
1623	47		delete_fract(arg1);
1624
1625
1626	47		XSRETURN(argvi);
1627	0		fail:
1628			;
1629			}
1630	0		croak(Nullch);
1631			}
1632
1633
1634	1		XS(_wrap_md_acosh) {
1635			{
1636			double arg1 ;
1637			double result;
1638	1		int argvi = 0;
1639	1		dXSARGS;
1640
1641	1	50	if ((items < 1) \|\| (items > 1)) {
		50
1642	0		SWIG_croak("Usage: md_acosh(x);");
1643			}
1644	1		arg1 = (double) SvNV(ST(0));
1645
1646	1		result = (double)md_acosh(arg1);
1647
1648	1		ST(argvi) = sv_newmortal();
1649	1		sv_setnv(ST(argvi++), (double) result);
1650	1		XSRETURN(argvi);
1651	0		fail:
1652			;
1653			}
1654	0		croak(Nullch);
1655			}
1656
1657
1658	1		XS(_wrap_airy) {
1659			{
1660			double arg1 ;
1661	1		double arg2 = (double ) 0 ;
1662	1		double arg3 = (double ) 0 ;
1663	1		double arg4 = (double ) 0 ;
1664	1		double arg5 = (double ) 0 ;
1665			int result;
1666			double temp2 ;
1667			double temp3 ;
1668			double temp4 ;
1669			double temp5 ;
1670	1		int argvi = 0;
1671	1		dXSARGS;
1672
1673	1		arg2 = &temp2;
1674	1		arg3 = &temp3;
1675	1		arg4 = &temp4;
1676	1		arg5 = &temp5;
1677	1	50	if ((items < 1) \|\| (items > 1)) {
		50
1678	0		SWIG_croak("Usage: airy(x);");
1679			}
1680	1		arg1 = (double) SvNV(ST(0));
1681
1682	1		result = (int)airy(arg1,arg2,arg3,arg4,arg5);
1683
1684	1		ST(argvi) = sv_newmortal();
1685	1		sv_setiv(ST(argvi++), (IV) result);
1686			{
1687	1	50	if (argvi >= items) {
1688	1	50	EXTEND(sp,1);
1689			}
1690	1		ST(argvi) = sv_newmortal();
1691	1		sv_setnv(ST(argvi),(double) *(arg2));
1692	1		argvi++;
1693			}
1694			{
1695	1	50	if (argvi >= items) {
1696	1	50	EXTEND(sp,1);
1697			}
1698	1		ST(argvi) = sv_newmortal();
1699	1		sv_setnv(ST(argvi),(double) *(arg3));
1700	1		argvi++;
1701			}
1702			{
1703	1	50	if (argvi >= items) {
1704	1	50	EXTEND(sp,1);
1705			}
1706	1		ST(argvi) = sv_newmortal();
1707	1		sv_setnv(ST(argvi),(double) *(arg4));
1708	1		argvi++;
1709			}
1710			{
1711	1	50	if (argvi >= items) {
1712	1	50	EXTEND(sp,1);
1713			}
1714	1		ST(argvi) = sv_newmortal();
1715	1		sv_setnv(ST(argvi),(double) *(arg5));
1716	1		argvi++;
1717			}
1718	1		XSRETURN(argvi);
1719	0		fail:
1720			;
1721			}
1722	0		croak(Nullch);
1723			}
1724
1725
1726	3		XS(_wrap_md_asin) {
1727			{
1728			double arg1 ;
1729			double result;
1730	3		int argvi = 0;
1731	3		dXSARGS;
1732
1733	3	50	if ((items < 1) \|\| (items > 1)) {
		50
1734	0		SWIG_croak("Usage: md_asin(x);");
1735			}
1736	3		arg1 = (double) SvNV(ST(0));
1737
1738	3		result = (double)md_asin(arg1);
1739
1740	3		ST(argvi) = sv_newmortal();
1741	3		sv_setnv(ST(argvi++), (double) result);
1742	3		XSRETURN(argvi);
1743	0		fail:
1744			;
1745			}
1746	0		croak(Nullch);
1747			}
1748
1749
1750	2		XS(_wrap_md_acos) {
1751			{
1752			double arg1 ;
1753			double result;
1754	2		int argvi = 0;
1755	2		dXSARGS;
1756
1757	2	50	if ((items < 1) \|\| (items > 1)) {
		50
1758	0		SWIG_croak("Usage: md_acos(x);");
1759			}
1760	2		arg1 = (double) SvNV(ST(0));
1761
1762	2		result = (double)md_acos(arg1);
1763
1764	2		ST(argvi) = sv_newmortal();
1765	2		sv_setnv(ST(argvi++), (double) result);
1766	2		XSRETURN(argvi);
1767	0		fail:
1768			;
1769			}
1770	0		croak(Nullch);
1771			}
1772
1773
1774	1		XS(_wrap_md_asinh) {
1775			{
1776			double arg1 ;
1777			double result;
1778	1		int argvi = 0;
1779	1		dXSARGS;
1780
1781	1	50	if ((items < 1) \|\| (items > 1)) {
		50
1782	0		SWIG_croak("Usage: md_asinh(x);");
1783			}
1784	1		arg1 = (double) SvNV(ST(0));
1785
1786	1		result = (double)md_asinh(arg1);
1787
1788	1		ST(argvi) = sv_newmortal();
1789	1		sv_setnv(ST(argvi++), (double) result);
1790	1		XSRETURN(argvi);
1791	0		fail:
1792			;
1793			}
1794	0		croak(Nullch);
1795			}
1796
1797
1798	1		XS(_wrap_md_atan) {
1799			{
1800			double arg1 ;
1801			double result;
1802	1		int argvi = 0;
1803	1		dXSARGS;
1804
1805	1	50	if ((items < 1) \|\| (items > 1)) {
		50
1806	0		SWIG_croak("Usage: md_atan(x);");
1807			}
1808	1		arg1 = (double) SvNV(ST(0));
1809
1810	1		result = (double)md_atan(arg1);
1811
1812	1		ST(argvi) = sv_newmortal();
1813	1		sv_setnv(ST(argvi++), (double) result);
1814	1		XSRETURN(argvi);
1815	0		fail:
1816			;
1817			}
1818	0		croak(Nullch);
1819			}
1820
1821
1822	2		XS(_wrap_md_atan2) {
1823			{
1824			double arg1 ;
1825			double arg2 ;
1826			double result;
1827	2		int argvi = 0;
1828	2		dXSARGS;
1829
1830	2	50	if ((items < 2) \|\| (items > 2)) {
		50
1831	0		SWIG_croak("Usage: md_atan2(y,x);");
1832			}
1833	2		arg1 = (double) SvNV(ST(0));
1834
1835	2		arg2 = (double) SvNV(ST(1));
1836
1837	2		result = (double)md_atan2(arg1,arg2);
1838
1839	2		ST(argvi) = sv_newmortal();
1840	2		sv_setnv(ST(argvi++), (double) result);
1841	2		XSRETURN(argvi);
1842	0		fail:
1843			;
1844			}
1845	0		croak(Nullch);
1846			}
1847
1848
1849	1		XS(_wrap_md_atanh) {
1850			{
1851			double arg1 ;
1852			double result;
1853	1		int argvi = 0;
1854	1		dXSARGS;
1855
1856	1	50	if ((items < 1) \|\| (items > 1)) {
		50
1857	0		SWIG_croak("Usage: md_atanh(x);");
1858			}
1859	1		arg1 = (double) SvNV(ST(0));
1860
1861	1		result = (double)md_atanh(arg1);
1862
1863	1		ST(argvi) = sv_newmortal();
1864	1		sv_setnv(ST(argvi++), (double) result);
1865	1		XSRETURN(argvi);
1866	0		fail:
1867			;
1868			}
1869	0		croak(Nullch);
1870			}
1871
1872
1873	1		XS(_wrap_bdtrc) {
1874			{
1875			int arg1 ;
1876			int arg2 ;
1877			double arg3 ;
1878			double result;
1879	1		int argvi = 0;
1880	1		dXSARGS;
1881
1882	1	50	if ((items < 3) \|\| (items > 3)) {
		50
1883	0		SWIG_croak("Usage: bdtrc(k,n,p);");
1884			}
1885	1		arg1 = (int) SvIV(ST(0));
1886	1		arg2 = (int) SvIV(ST(1));
1887	1		arg3 = (double) SvNV(ST(2));
1888
1889	1		result = (double)bdtrc(arg1,arg2,arg3);
1890
1891	1		ST(argvi) = sv_newmortal();
1892	1		sv_setnv(ST(argvi++), (double) result);
1893	1		XSRETURN(argvi);
1894	0		fail:
1895			;
1896			}
1897	0		croak(Nullch);
1898			}
1899
1900
1901	1		XS(_wrap_bdtr) {
1902			{
1903			int arg1 ;
1904			int arg2 ;
1905			double arg3 ;
1906			double result;
1907	1		int argvi = 0;
1908	1		dXSARGS;
1909
1910	1	50	if ((items < 3) \|\| (items > 3)) {
		50
1911	0		SWIG_croak("Usage: bdtr(k,n,p);");
1912			}
1913	1		arg1 = (int) SvIV(ST(0));
1914	1		arg2 = (int) SvIV(ST(1));
1915	1		arg3 = (double) SvNV(ST(2));
1916
1917	1		result = (double)bdtr(arg1,arg2,arg3);
1918
1919	1		ST(argvi) = sv_newmortal();
1920	1		sv_setnv(ST(argvi++), (double) result);
1921	1		XSRETURN(argvi);
1922	0		fail:
1923			;
1924			}
1925	0		croak(Nullch);
1926			}
1927
1928
1929	1		XS(_wrap_bdtri) {
1930			{
1931			int arg1 ;
1932			int arg2 ;
1933			double arg3 ;
1934			double result;
1935	1		int argvi = 0;
1936	1		dXSARGS;
1937
1938	1	50	if ((items < 3) \|\| (items > 3)) {
		50
1939	0		SWIG_croak("Usage: bdtri(k,n,y);");
1940			}
1941	1		arg1 = (int) SvIV(ST(0));
1942	1		arg2 = (int) SvIV(ST(1));
1943	1		arg3 = (double) SvNV(ST(2));
1944
1945	1		result = (double)bdtri(arg1,arg2,arg3);
1946
1947	1		ST(argvi) = sv_newmortal();
1948	1		sv_setnv(ST(argvi++), (double) result);
1949	1		XSRETURN(argvi);
1950	0		fail:
1951			;
1952			}
1953	0		croak(Nullch);
1954			}
1955
1956
1957	1		XS(_wrap_beta) {
1958			{
1959			double arg1 ;
1960			double arg2 ;
1961			double result;
1962	1		int argvi = 0;
1963	1		dXSARGS;
1964
1965	1	50	if ((items < 2) \|\| (items > 2)) {
		50
1966	0		SWIG_croak("Usage: beta(a,b);");
1967			}
1968	1		arg1 = (double) SvNV(ST(0));
1969
1970	1		arg2 = (double) SvNV(ST(1));
1971
1972	1		result = (double)beta(arg1,arg2);
1973
1974	1		ST(argvi) = sv_newmortal();
1975	1		sv_setnv(ST(argvi++), (double) result);
1976	1		XSRETURN(argvi);
1977	0		fail:
1978			;
1979			}
1980	0		croak(Nullch);
1981			}
1982
1983
1984	1		XS(_wrap_lbeta) {
1985			{
1986			double arg1 ;
1987			double arg2 ;
1988			double result;
1989	1		int argvi = 0;
1990	1		dXSARGS;
1991
1992	1	50	if ((items < 2) \|\| (items > 2)) {
		50
1993	0		SWIG_croak("Usage: lbeta(a,b);");
1994			}
1995	1		arg1 = (double) SvNV(ST(0));
1996
1997	1		arg2 = (double) SvNV(ST(1));
1998
1999	1		result = (double)lbeta(arg1,arg2);
2000
2001	1		ST(argvi) = sv_newmortal();
2002	1		sv_setnv(ST(argvi++), (double) result);
2003	1		XSRETURN(argvi);
2004	0		fail:
2005			;
2006			}
2007	0		croak(Nullch);
2008			}
2009
2010
2011	1		XS(_wrap_btdtr) {
2012			{
2013			double arg1 ;
2014			double arg2 ;
2015			double arg3 ;
2016			double result;
2017	1		int argvi = 0;
2018	1		dXSARGS;
2019
2020	1	50	if ((items < 3) \|\| (items > 3)) {
		50
2021	0		SWIG_croak("Usage: btdtr(a,b,x);");
2022			}
2023	1		arg1 = (double) SvNV(ST(0));
2024
2025	1		arg2 = (double) SvNV(ST(1));
2026
2027	1		arg3 = (double) SvNV(ST(2));
2028
2029	1		result = (double)btdtr(arg1,arg2,arg3);
2030
2031	1		ST(argvi) = sv_newmortal();
2032	1		sv_setnv(ST(argvi++), (double) result);
2033	1		XSRETURN(argvi);
2034	0		fail:
2035			;
2036			}
2037	0		croak(Nullch);
2038			}
2039
2040
2041	3		XS(_wrap_md_cbrt) {
2042			{
2043			double arg1 ;
2044			double result;
2045	3		int argvi = 0;
2046	3		dXSARGS;
2047
2048	3	50	if ((items < 1) \|\| (items > 1)) {
		50
2049	0		SWIG_croak("Usage: md_cbrt(x);");
2050			}
2051	3		arg1 = (double) SvNV(ST(0));
2052
2053	3		result = (double)md_cbrt(arg1);
2054
2055	3		ST(argvi) = sv_newmortal();
2056	3		sv_setnv(ST(argvi++), (double) result);
2057	3		XSRETURN(argvi);
2058	0		fail:
2059			;
2060			}
2061	0		croak(Nullch);
2062			}
2063
2064
2065	0		XS(_wrap_chbevl) {
2066			{
2067			double arg1 ;
2068	0		void arg2 = (void ) 0 ;
2069			int arg3 ;
2070			double result;
2071	0		int argvi = 0;
2072	0		dXSARGS;
2073
2074	0	0	if ((items < 3) \|\| (items > 3)) {
		0
2075	0		SWIG_croak("Usage: chbevl(x,P,n);");
2076			}
2077	0		arg1 = (double) SvNV(ST(0));
2078
2079			{
2080	0	0	if (SWIG_ConvertPtr(ST(1), (void **) &arg2, 0,0) < 0) {
2081	0		SWIG_croak("Type error in argument 2 of chbevl. Expected _p_void");
2082			}
2083			}
2084	0		arg3 = (int) SvIV(ST(2));
2085	0		result = (double)chbevl(arg1,arg2,arg3);
2086
2087	0		ST(argvi) = sv_newmortal();
2088	0		sv_setnv(ST(argvi++), (double) result);
2089	0		XSRETURN(argvi);
2090	0		fail:
2091			;
2092			}
2093	0		croak(Nullch);
2094			}
2095
2096
2097	1		XS(_wrap_chdtrc) {
2098			{
2099			double arg1 ;
2100			double arg2 ;
2101			double result;
2102	1		int argvi = 0;
2103	1		dXSARGS;
2104
2105	1	50	if ((items < 2) \|\| (items > 2)) {
		50
2106	0		SWIG_croak("Usage: chdtrc(df,x);");
2107			}
2108	1		arg1 = (double) SvNV(ST(0));
2109
2110	1		arg2 = (double) SvNV(ST(1));
2111
2112	1		result = (double)chdtrc(arg1,arg2);
2113
2114	1		ST(argvi) = sv_newmortal();
2115	1		sv_setnv(ST(argvi++), (double) result);
2116	1		XSRETURN(argvi);
2117	0		fail:
2118			;
2119			}
2120	0		croak(Nullch);
2121			}
2122
2123
2124	1		XS(_wrap_chdtr) {
2125			{
2126			double arg1 ;
2127			double arg2 ;
2128			double result;
2129	1		int argvi = 0;
2130	1		dXSARGS;
2131
2132	1	50	if ((items < 2) \|\| (items > 2)) {
		50
2133	0		SWIG_croak("Usage: chdtr(df,x);");
2134			}
2135	1		arg1 = (double) SvNV(ST(0));
2136
2137	1		arg2 = (double) SvNV(ST(1));
2138
2139	1		result = (double)chdtr(arg1,arg2);
2140
2141	1		ST(argvi) = sv_newmortal();
2142	1		sv_setnv(ST(argvi++), (double) result);
2143	1		XSRETURN(argvi);
2144	0		fail:
2145			;
2146			}
2147	0		croak(Nullch);
2148			}
2149
2150
2151	1		XS(_wrap_chdtri) {
2152			{
2153			double arg1 ;
2154			double arg2 ;
2155			double result;
2156	1		int argvi = 0;
2157	1		dXSARGS;
2158
2159	1	50	if ((items < 2) \|\| (items > 2)) {
		50
2160	0		SWIG_croak("Usage: chdtri(df,y);");
2161			}
2162	1		arg1 = (double) SvNV(ST(0));
2163
2164	1		arg2 = (double) SvNV(ST(1));
2165
2166	1		result = (double)chdtri(arg1,arg2);
2167
2168	1		ST(argvi) = sv_newmortal();
2169	1		sv_setnv(ST(argvi++), (double) result);
2170	1		XSRETURN(argvi);
2171	0		fail:
2172			;
2173			}
2174	0		croak(Nullch);
2175			}
2176
2177
2178	2		XS(_wrap_md_clog) {
2179			{
2180	2		cmplx arg1 = (cmplx ) 0 ;
2181	2		cmplx arg2 = (cmplx ) 0 ;
2182	2		int argvi = 0;
2183	2		dXSARGS;
2184
2185	2	50	if ((items < 2) \|\| (items > 2)) {
		50
2186	0		SWIG_croak("Usage: md_clog(z,w);");
2187			}
2188			{
2189	2	50	if (SWIG_ConvertPtr(ST(0), (void **) &arg1, SWIGTYPE_p_cmplx,0) < 0) {
2190	0		SWIG_croak("Type error in argument 1 of md_clog. Expected _p_cmplx");
2191			}
2192			}
2193			{
2194	2	50	if (SWIG_ConvertPtr(ST(1), (void **) &arg2, SWIGTYPE_p_cmplx,0) < 0) {
2195	0		SWIG_croak("Type error in argument 2 of md_clog. Expected _p_cmplx");
2196			}
2197			}
2198	2		md_clog(arg1,arg2);
2199
2200
2201	2		XSRETURN(argvi);
2202	0		fail:
2203			;
2204			}
2205	0		croak(Nullch);
2206			}
2207
2208
2209	3		XS(_wrap_md_cexp) {
2210			{
2211	3		cmplx arg1 = (cmplx ) 0 ;
2212	3		cmplx arg2 = (cmplx ) 0 ;
2213	3		int argvi = 0;
2214	3		dXSARGS;
2215
2216	3	50	if ((items < 2) \|\| (items > 2)) {
		50
2217	0		SWIG_croak("Usage: md_cexp(z,w);");
2218			}
2219			{
2220	3	50	if (SWIG_ConvertPtr(ST(0), (void **) &arg1, SWIGTYPE_p_cmplx,0) < 0) {
2221	0		SWIG_croak("Type error in argument 1 of md_cexp. Expected _p_cmplx");
2222			}
2223			}
2224			{
2225	3	50	if (SWIG_ConvertPtr(ST(1), (void **) &arg2, SWIGTYPE_p_cmplx,0) < 0) {
2226	0		SWIG_croak("Type error in argument 2 of md_cexp. Expected _p_cmplx");
2227			}
2228			}
2229	3		md_cexp(arg1,arg2);
2230
2231
2232	3		XSRETURN(argvi);
2233	0		fail:
2234			;
2235			}
2236	0		croak(Nullch);
2237			}
2238
2239
2240	1		XS(_wrap_md_csin) {
2241			{
2242	1		cmplx arg1 = (cmplx ) 0 ;
2243	1		cmplx arg2 = (cmplx ) 0 ;
2244	1		int argvi = 0;
2245	1		dXSARGS;
2246
2247	1	50	if ((items < 2) \|\| (items > 2)) {
		50
2248	0		SWIG_croak("Usage: md_csin(z,w);");
2249			}
2250			{
2251	1	50	if (SWIG_ConvertPtr(ST(0), (void **) &arg1, SWIGTYPE_p_cmplx,0) < 0) {
2252	0		SWIG_croak("Type error in argument 1 of md_csin. Expected _p_cmplx");
2253			}
2254			}
2255			{
2256	1	50	if (SWIG_ConvertPtr(ST(1), (void **) &arg2, SWIGTYPE_p_cmplx,0) < 0) {
2257	0		SWIG_croak("Type error in argument 2 of md_csin. Expected _p_cmplx");
2258			}
2259			}
2260	1		md_csin(arg1,arg2);
2261
2262
2263	1		XSRETURN(argvi);
2264	0		fail:
2265			;
2266			}
2267	0		croak(Nullch);
2268			}
2269
2270
2271	1		XS(_wrap_md_ccos) {
2272			{
2273	1		cmplx arg1 = (cmplx ) 0 ;
2274	1		cmplx arg2 = (cmplx ) 0 ;
2275	1		int argvi = 0;
2276	1		dXSARGS;
2277
2278	1	50	if ((items < 2) \|\| (items > 2)) {
		50
2279	0		SWIG_croak("Usage: md_ccos(z,w);");
2280			}
2281			{
2282	1	50	if (SWIG_ConvertPtr(ST(0), (void **) &arg1, SWIGTYPE_p_cmplx,0) < 0) {
2283	0		SWIG_croak("Type error in argument 1 of md_ccos. Expected _p_cmplx");
2284			}
2285			}
2286			{
2287	1	50	if (SWIG_ConvertPtr(ST(1), (void **) &arg2, SWIGTYPE_p_cmplx,0) < 0) {
2288	0		SWIG_croak("Type error in argument 2 of md_ccos. Expected _p_cmplx");
2289			}
2290			}
2291	1		md_ccos(arg1,arg2);
2292
2293
2294	1		XSRETURN(argvi);
2295	0		fail:
2296			;
2297			}
2298	0		croak(Nullch);
2299			}
2300
2301
2302	1		XS(_wrap_md_ctan) {
2303			{
2304	1		cmplx arg1 = (cmplx ) 0 ;
2305	1		cmplx arg2 = (cmplx ) 0 ;
2306	1		int argvi = 0;
2307	1		dXSARGS;
2308
2309	1	50	if ((items < 2) \|\| (items > 2)) {
		50
2310	0		SWIG_croak("Usage: md_ctan(z,w);");
2311			}
2312			{
2313	1	50	if (SWIG_ConvertPtr(ST(0), (void **) &arg1, SWIGTYPE_p_cmplx,0) < 0) {
2314	0		SWIG_croak("Type error in argument 1 of md_ctan. Expected _p_cmplx");
2315			}
2316			}
2317			{
2318	1	50	if (SWIG_ConvertPtr(ST(1), (void **) &arg2, SWIGTYPE_p_cmplx,0) < 0) {
2319	0		SWIG_croak("Type error in argument 2 of md_ctan. Expected _p_cmplx");
2320			}
2321			}
2322	1		md_ctan(arg1,arg2);
2323
2324
2325	1		XSRETURN(argvi);
2326	0		fail:
2327			;
2328			}
2329	0		croak(Nullch);
2330			}
2331
2332
2333	1		XS(_wrap_ccot) {
2334			{
2335	1		cmplx arg1 = (cmplx ) 0 ;
2336	1		cmplx arg2 = (cmplx ) 0 ;
2337	1		int argvi = 0;
2338	1		dXSARGS;
2339
2340	1	50	if ((items < 2) \|\| (items > 2)) {
		50
2341	0		SWIG_croak("Usage: ccot(z,w);");
2342			}
2343			{
2344	1	50	if (SWIG_ConvertPtr(ST(0), (void **) &arg1, SWIGTYPE_p_cmplx,0) < 0) {
2345	0		SWIG_croak("Type error in argument 1 of ccot. Expected _p_cmplx");
2346			}
2347			}
2348			{
2349	1	50	if (SWIG_ConvertPtr(ST(1), (void **) &arg2, SWIGTYPE_p_cmplx,0) < 0) {
2350	0		SWIG_croak("Type error in argument 2 of ccot. Expected _p_cmplx");
2351			}
2352			}
2353	1		ccot(arg1,arg2);
2354
2355
2356	1		XSRETURN(argvi);
2357	0		fail:
2358			;
2359			}
2360	0		croak(Nullch);
2361			}
2362
2363
2364	1		XS(_wrap_md_casin) {
2365			{
2366	1		cmplx arg1 = (cmplx ) 0 ;
2367	1		cmplx arg2 = (cmplx ) 0 ;
2368	1		int argvi = 0;
2369	1		dXSARGS;
2370
2371	1	50	if ((items < 2) \|\| (items > 2)) {
		50
2372	0		SWIG_croak("Usage: md_casin(z,w);");
2373			}
2374			{
2375	1	50	if (SWIG_ConvertPtr(ST(0), (void **) &arg1, SWIGTYPE_p_cmplx,0) < 0) {
2376	0		SWIG_croak("Type error in argument 1 of md_casin. Expected _p_cmplx");
2377			}
2378			}
2379			{
2380	1	50	if (SWIG_ConvertPtr(ST(1), (void **) &arg2, SWIGTYPE_p_cmplx,0) < 0) {
2381	0		SWIG_croak("Type error in argument 2 of md_casin. Expected _p_cmplx");
2382			}
2383			}
2384	1		md_casin(arg1,arg2);
2385
2386
2387	1		XSRETURN(argvi);
2388	0		fail:
2389			;
2390			}
2391	0		croak(Nullch);
2392			}
2393
2394
2395	1		XS(_wrap_md_cacos) {
2396			{
2397	1		cmplx arg1 = (cmplx ) 0 ;
2398	1		cmplx arg2 = (cmplx ) 0 ;
2399	1		int argvi = 0;
2400	1		dXSARGS;
2401
2402	1	50	if ((items < 2) \|\| (items > 2)) {
		50
2403	0		SWIG_croak("Usage: md_cacos(z,w);");
2404			}
2405			{
2406	1	50	if (SWIG_ConvertPtr(ST(0), (void **) &arg1, SWIGTYPE_p_cmplx,0) < 0) {
2407	0		SWIG_croak("Type error in argument 1 of md_cacos. Expected _p_cmplx");
2408			}
2409			}
2410			{
2411	1	50	if (SWIG_ConvertPtr(ST(1), (void **) &arg2, SWIGTYPE_p_cmplx,0) < 0) {
2412	0		SWIG_croak("Type error in argument 2 of md_cacos. Expected _p_cmplx");
2413			}
2414			}
2415	1		md_cacos(arg1,arg2);
2416
2417
2418	1		XSRETURN(argvi);
2419	0		fail:
2420			;
2421			}
2422	0		croak(Nullch);
2423			}
2424
2425
2426	1		XS(_wrap_md_catan) {
2427			{
2428	1		cmplx arg1 = (cmplx ) 0 ;
2429	1		cmplx arg2 = (cmplx ) 0 ;
2430	1		int argvi = 0;
2431	1		dXSARGS;
2432
2433	1	50	if ((items < 2) \|\| (items > 2)) {
		50
2434	0		SWIG_croak("Usage: md_catan(z,w);");
2435			}
2436			{
2437	1	50	if (SWIG_ConvertPtr(ST(0), (void **) &arg1, SWIGTYPE_p_cmplx,0) < 0) {
2438	0		SWIG_croak("Type error in argument 1 of md_catan. Expected _p_cmplx");
2439			}
2440			}
2441			{
2442	1	50	if (SWIG_ConvertPtr(ST(1), (void **) &arg2, SWIGTYPE_p_cmplx,0) < 0) {
2443	0		SWIG_croak("Type error in argument 2 of md_catan. Expected _p_cmplx");
2444			}
2445			}
2446	1		md_catan(arg1,arg2);
2447
2448
2449	1		XSRETURN(argvi);
2450	0		fail:
2451			;
2452			}
2453	0		croak(Nullch);
2454			}
2455
2456
2457	1		XS(_wrap_md_csinh) {
2458			{
2459	1		cmplx arg1 = (cmplx ) 0 ;
2460	1		cmplx arg2 = (cmplx ) 0 ;
2461	1		int argvi = 0;
2462	1		dXSARGS;
2463
2464	1	50	if ((items < 2) \|\| (items > 2)) {
		50
2465	0		SWIG_croak("Usage: md_csinh(z,w);");
2466			}
2467			{
2468	1	50	if (SWIG_ConvertPtr(ST(0), (void **) &arg1, SWIGTYPE_p_cmplx,0) < 0) {
2469	0		SWIG_croak("Type error in argument 1 of md_csinh. Expected _p_cmplx");
2470			}
2471			}
2472			{
2473	1	50	if (SWIG_ConvertPtr(ST(1), (void **) &arg2, SWIGTYPE_p_cmplx,0) < 0) {
2474	0		SWIG_croak("Type error in argument 2 of md_csinh. Expected _p_cmplx");
2475			}
2476			}
2477	1		md_csinh(arg1,arg2);
2478
2479
2480	1		XSRETURN(argvi);
2481	0		fail:
2482			;
2483			}
2484	0		croak(Nullch);
2485			}
2486
2487
2488	1		XS(_wrap_md_casinh) {
2489			{
2490	1		cmplx arg1 = (cmplx ) 0 ;
2491	1		cmplx arg2 = (cmplx ) 0 ;
2492	1		int argvi = 0;
2493	1		dXSARGS;
2494
2495	1	50	if ((items < 2) \|\| (items > 2)) {
		50
2496	0		SWIG_croak("Usage: md_casinh(z,w);");
2497			}
2498			{
2499	1	50	if (SWIG_ConvertPtr(ST(0), (void **) &arg1, SWIGTYPE_p_cmplx,0) < 0) {
2500	0		SWIG_croak("Type error in argument 1 of md_casinh. Expected _p_cmplx");
2501			}
2502			}
2503			{
2504	1	50	if (SWIG_ConvertPtr(ST(1), (void **) &arg2, SWIGTYPE_p_cmplx,0) < 0) {
2505	0		SWIG_croak("Type error in argument 2 of md_casinh. Expected _p_cmplx");
2506			}
2507			}
2508	1		md_casinh(arg1,arg2);
2509
2510
2511	1		XSRETURN(argvi);
2512	0		fail:
2513			;
2514			}
2515	0		croak(Nullch);
2516			}
2517
2518
2519	1		XS(_wrap_md_ccosh) {
2520			{
2521	1		cmplx arg1 = (cmplx ) 0 ;
2522	1		cmplx arg2 = (cmplx ) 0 ;
2523	1		int argvi = 0;
2524	1		dXSARGS;
2525
2526	1	50	if ((items < 2) \|\| (items > 2)) {
		50
2527	0		SWIG_croak("Usage: md_ccosh(z,w);");
2528			}
2529			{
2530	1	50	if (SWIG_ConvertPtr(ST(0), (void **) &arg1, SWIGTYPE_p_cmplx,0) < 0) {
2531	0		SWIG_croak("Type error in argument 1 of md_ccosh. Expected _p_cmplx");
2532			}
2533			}
2534			{
2535	1	50	if (SWIG_ConvertPtr(ST(1), (void **) &arg2, SWIGTYPE_p_cmplx,0) < 0) {
2536	0		SWIG_croak("Type error in argument 2 of md_ccosh. Expected _p_cmplx");
2537			}
2538			}
2539	1		md_ccosh(arg1,arg2);
2540
2541
2542	1		XSRETURN(argvi);
2543	0		fail:
2544			;
2545			}
2546	0		croak(Nullch);
2547			}
2548
2549
2550	1		XS(_wrap_md_cacosh) {
2551			{
2552	1		cmplx arg1 = (cmplx ) 0 ;
2553	1		cmplx arg2 = (cmplx ) 0 ;
2554	1		int argvi = 0;
2555	1		dXSARGS;
2556
2557	1	50	if ((items < 2) \|\| (items > 2)) {
		50
2558	0		SWIG_croak("Usage: md_cacosh(z,w);");
2559			}
2560			{
2561	1	50	if (SWIG_ConvertPtr(ST(0), (void **) &arg1, SWIGTYPE_p_cmplx,0) < 0) {
2562	0		SWIG_croak("Type error in argument 1 of md_cacosh. Expected _p_cmplx");
2563			}
2564			}
2565			{
2566	1	50	if (SWIG_ConvertPtr(ST(1), (void **) &arg2, SWIGTYPE_p_cmplx,0) < 0) {
2567	0		SWIG_croak("Type error in argument 2 of md_cacosh. Expected _p_cmplx");
2568			}
2569			}
2570	1		md_cacosh(arg1,arg2);
2571
2572
2573	1		XSRETURN(argvi);
2574	0		fail:
2575			;
2576			}
2577	0		croak(Nullch);
2578			}
2579
2580
2581	1		XS(_wrap_md_ctanh) {
2582			{
2583	1		cmplx arg1 = (cmplx ) 0 ;
2584	1		cmplx arg2 = (cmplx ) 0 ;
2585	1		int argvi = 0;
2586	1		dXSARGS;
2587
2588	1	50	if ((items < 2) \|\| (items > 2)) {
		50
2589	0		SWIG_croak("Usage: md_ctanh(z,w);");
2590			}
2591			{
2592	1	50	if (SWIG_ConvertPtr(ST(0), (void **) &arg1, SWIGTYPE_p_cmplx,0) < 0) {
2593	0		SWIG_croak("Type error in argument 1 of md_ctanh. Expected _p_cmplx");
2594			}
2595			}
2596			{
2597	1	50	if (SWIG_ConvertPtr(ST(1), (void **) &arg2, SWIGTYPE_p_cmplx,0) < 0) {
2598	0		SWIG_croak("Type error in argument 2 of md_ctanh. Expected _p_cmplx");
2599			}
2600			}
2601	1		md_ctanh(arg1,arg2);
2602
2603
2604	1		XSRETURN(argvi);
2605	0		fail:
2606			;
2607			}
2608	0		croak(Nullch);
2609			}
2610
2611
2612	1		XS(_wrap_md_catanh) {
2613			{
2614	1		cmplx arg1 = (cmplx ) 0 ;
2615	1		cmplx arg2 = (cmplx ) 0 ;
2616	1		int argvi = 0;
2617	1		dXSARGS;
2618
2619	1	50	if ((items < 2) \|\| (items > 2)) {
		50
2620	0		SWIG_croak("Usage: md_catanh(z,w);");
2621			}
2622			{
2623	1	50	if (SWIG_ConvertPtr(ST(0), (void **) &arg1, SWIGTYPE_p_cmplx,0) < 0) {
2624	0		SWIG_croak("Type error in argument 1 of md_catanh. Expected _p_cmplx");
2625			}
2626			}
2627			{
2628	1	50	if (SWIG_ConvertPtr(ST(1), (void **) &arg2, SWIGTYPE_p_cmplx,0) < 0) {
2629	0		SWIG_croak("Type error in argument 2 of md_catanh. Expected _p_cmplx");
2630			}
2631			}
2632	1		md_catanh(arg1,arg2);
2633
2634
2635	1		XSRETURN(argvi);
2636	0		fail:
2637			;
2638			}
2639	0		croak(Nullch);
2640			}
2641
2642
2643	1		XS(_wrap_md_cpow) {
2644			{
2645	1		cmplx arg1 = (cmplx ) 0 ;
2646	1		cmplx arg2 = (cmplx ) 0 ;
2647	1		cmplx arg3 = (cmplx ) 0 ;
2648	1		int argvi = 0;
2649	1		dXSARGS;
2650
2651	1	50	if ((items < 3) \|\| (items > 3)) {
		50
2652	0		SWIG_croak("Usage: md_cpow(a,z,w);");
2653			}
2654			{
2655	1	50	if (SWIG_ConvertPtr(ST(0), (void **) &arg1, SWIGTYPE_p_cmplx,0) < 0) {
2656	0		SWIG_croak("Type error in argument 1 of md_cpow. Expected _p_cmplx");
2657			}
2658			}
2659			{
2660	1	50	if (SWIG_ConvertPtr(ST(1), (void **) &arg2, SWIGTYPE_p_cmplx,0) < 0) {
2661	0		SWIG_croak("Type error in argument 2 of md_cpow. Expected _p_cmplx");
2662			}
2663			}
2664			{
2665	1	50	if (SWIG_ConvertPtr(ST(2), (void **) &arg3, SWIGTYPE_p_cmplx,0) < 0) {
2666	0		SWIG_croak("Type error in argument 3 of md_cpow. Expected _p_cmplx");
2667			}
2668			}
2669	1		md_cpow(arg1,arg2,arg3);
2670
2671
2672	1		XSRETURN(argvi);
2673	0		fail:
2674			;
2675			}
2676	0		croak(Nullch);
2677			}
2678
2679
2680	1		XS(_wrap_radd) {
2681			{
2682	1		fract arg1 = (fract ) 0 ;
2683	1		fract arg2 = (fract ) 0 ;
2684	1		fract arg3 = (fract ) 0 ;
2685	1		int argvi = 0;
2686	1		dXSARGS;
2687
2688	1	50	if ((items < 3) \|\| (items > 3)) {
		50
2689	0		SWIG_croak("Usage: radd(a,b,c);");
2690			}
2691			{
2692	1	50	if (SWIG_ConvertPtr(ST(0), (void **) &arg1, SWIGTYPE_p_fract,0) < 0) {
2693	0		SWIG_croak("Type error in argument 1 of radd. Expected _p_fract");
2694			}
2695			}
2696			{
2697	1	50	if (SWIG_ConvertPtr(ST(1), (void **) &arg2, SWIGTYPE_p_fract,0) < 0) {
2698	0		SWIG_croak("Type error in argument 2 of radd. Expected _p_fract");
2699			}
2700			}
2701			{
2702	1	50	if (SWIG_ConvertPtr(ST(2), (void **) &arg3, SWIGTYPE_p_fract,0) < 0) {
2703	0		SWIG_croak("Type error in argument 3 of radd. Expected _p_fract");
2704			}
2705			}
2706	1		radd(arg1,arg2,arg3);
2707
2708
2709	1		XSRETURN(argvi);
2710	0		fail:
2711			;
2712			}
2713	0		croak(Nullch);
2714			}
2715
2716
2717	1		XS(_wrap_rsub) {
2718			{
2719	1		fract arg1 = (fract ) 0 ;
2720	1		fract arg2 = (fract ) 0 ;
2721	1		fract arg3 = (fract ) 0 ;
2722	1		int argvi = 0;
2723	1		dXSARGS;
2724
2725	1	50	if ((items < 3) \|\| (items > 3)) {
		50
2726	0		SWIG_croak("Usage: rsub(a,b,c);");
2727			}
2728			{
2729	1	50	if (SWIG_ConvertPtr(ST(0), (void **) &arg1, SWIGTYPE_p_fract,0) < 0) {
2730	0		SWIG_croak("Type error in argument 1 of rsub. Expected _p_fract");
2731			}
2732			}
2733			{
2734	1	50	if (SWIG_ConvertPtr(ST(1), (void **) &arg2, SWIGTYPE_p_fract,0) < 0) {
2735	0		SWIG_croak("Type error in argument 2 of rsub. Expected _p_fract");
2736			}
2737			}
2738			{
2739	1	50	if (SWIG_ConvertPtr(ST(2), (void **) &arg3, SWIGTYPE_p_fract,0) < 0) {
2740	0		SWIG_croak("Type error in argument 3 of rsub. Expected _p_fract");
2741			}
2742			}
2743	1		rsub(arg1,arg2,arg3);
2744
2745
2746	1		XSRETURN(argvi);
2747	0		fail:
2748			;
2749			}
2750	0		croak(Nullch);
2751			}
2752
2753
2754	1		XS(_wrap_rmul) {
2755			{
2756	1		fract arg1 = (fract ) 0 ;
2757	1		fract arg2 = (fract ) 0 ;
2758	1		fract arg3 = (fract ) 0 ;
2759	1		int argvi = 0;
2760	1		dXSARGS;
2761
2762	1	50	if ((items < 3) \|\| (items > 3)) {
		50
2763	0		SWIG_croak("Usage: rmul(a,b,c);");
2764			}
2765			{
2766	1	50	if (SWIG_ConvertPtr(ST(0), (void **) &arg1, SWIGTYPE_p_fract,0) < 0) {
2767	0		SWIG_croak("Type error in argument 1 of rmul. Expected _p_fract");
2768			}
2769			}
2770			{
2771	1	50	if (SWIG_ConvertPtr(ST(1), (void **) &arg2, SWIGTYPE_p_fract,0) < 0) {
2772	0		SWIG_croak("Type error in argument 2 of rmul. Expected _p_fract");
2773			}
2774			}
2775			{
2776	1	50	if (SWIG_ConvertPtr(ST(2), (void **) &arg3, SWIGTYPE_p_fract,0) < 0) {
2777	0		SWIG_croak("Type error in argument 3 of rmul. Expected _p_fract");
2778			}
2779			}
2780	1		rmul(arg1,arg2,arg3);
2781
2782
2783	1		XSRETURN(argvi);
2784	0		fail:
2785			;
2786			}
2787	0		croak(Nullch);
2788			}
2789
2790
2791	1		XS(_wrap_rdiv) {
2792			{
2793	1		fract arg1 = (fract ) 0 ;
2794	1		fract arg2 = (fract ) 0 ;
2795	1		fract arg3 = (fract ) 0 ;
2796	1		int argvi = 0;
2797	1		dXSARGS;
2798
2799	1	50	if ((items < 3) \|\| (items > 3)) {
		50
2800	0		SWIG_croak("Usage: rdiv(a,b,c);");
2801			}
2802			{
2803	1	50	if (SWIG_ConvertPtr(ST(0), (void **) &arg1, SWIGTYPE_p_fract,0) < 0) {
2804	0		SWIG_croak("Type error in argument 1 of rdiv. Expected _p_fract");
2805			}
2806			}
2807			{
2808	1	50	if (SWIG_ConvertPtr(ST(1), (void **) &arg2, SWIGTYPE_p_fract,0) < 0) {
2809	0		SWIG_croak("Type error in argument 2 of rdiv. Expected _p_fract");
2810			}
2811			}
2812			{
2813	1	50	if (SWIG_ConvertPtr(ST(2), (void **) &arg3, SWIGTYPE_p_fract,0) < 0) {
2814	0		SWIG_croak("Type error in argument 3 of rdiv. Expected _p_fract");
2815			}
2816			}
2817	1		rdiv(arg1,arg2,arg3);
2818
2819
2820	1		XSRETURN(argvi);
2821	0		fail:
2822			;
2823			}
2824	0		croak(Nullch);
2825			}
2826
2827
2828	52		XS(_wrap_euclid) {
2829			{
2830	52		double arg1 = (double ) 0 ;
2831	52		double arg2 = (double ) 0 ;
2832			double result;
2833			double temp1 ;
2834			double temp2 ;
2835	52		int argvi = 0;
2836			SV * _saved[2] ;
2837	52		dXSARGS;
2838
2839	52	50	if ((items < 2) \|\| (items > 2)) {
		50
2840	0		SWIG_croak("Usage: euclid(INOUT,INOUT);");
2841			}
2842			{
2843	52		temp1 = (double) SvNV(ST(0));
2844	52		arg1 = &temp1;
2845			}
2846			{
2847	52		temp2 = (double) SvNV(ST(1));
2848	52		arg2 = &temp2;
2849			}
2850	52		_saved[0] = ST(0);
2851	52		_saved[1] = ST(1);
2852	52		result = (double)euclid(arg1,arg2);
2853
2854	52		ST(argvi) = sv_newmortal();
2855	52		sv_setnv(ST(argvi++), (double) result);
2856			{
2857	52	50	if (argvi >= items) {
2858	0	0	EXTEND(sp,1);
2859			}
2860	52		ST(argvi) = sv_newmortal();
2861	52		sv_setnv(ST(argvi),(double) *(arg1));
2862	52		argvi++;
2863			}
2864			{
2865	52	50	if (argvi >= items) {
2866	52	50	EXTEND(sp,1);
2867			}
2868	52		ST(argvi) = sv_newmortal();
2869	52		sv_setnv(ST(argvi),(double) *(arg2));
2870	52		argvi++;
2871			}
2872	52		XSRETURN(argvi);
2873	0		fail:
2874			;
2875			}
2876	0		croak(Nullch);
2877			}
2878
2879
2880	1		XS(_wrap_cadd) {
2881			{
2882	1		cmplx arg1 = (cmplx ) 0 ;
2883	1		cmplx arg2 = (cmplx ) 0 ;
2884	1		cmplx arg3 = (cmplx ) 0 ;
2885	1		int argvi = 0;
2886	1		dXSARGS;
2887
2888	1	50	if ((items < 3) \|\| (items > 3)) {
		50
2889	0		SWIG_croak("Usage: cadd(a,b,c);");
2890			}
2891			{
2892	1	50	if (SWIG_ConvertPtr(ST(0), (void **) &arg1, SWIGTYPE_p_cmplx,0) < 0) {
2893	0		SWIG_croak("Type error in argument 1 of cadd. Expected _p_cmplx");
2894			}
2895			}
2896			{
2897	1	50	if (SWIG_ConvertPtr(ST(1), (void **) &arg2, SWIGTYPE_p_cmplx,0) < 0) {
2898	0		SWIG_croak("Type error in argument 2 of cadd. Expected _p_cmplx");
2899			}
2900			}
2901			{
2902	1	50	if (SWIG_ConvertPtr(ST(2), (void **) &arg3, SWIGTYPE_p_cmplx,0) < 0) {
2903	0		SWIG_croak("Type error in argument 3 of cadd. Expected _p_cmplx");
2904			}
2905			}
2906	1		cadd(arg1,arg2,arg3);
2907
2908
2909	1		XSRETURN(argvi);
2910	0		fail:
2911			;
2912			}
2913	0		croak(Nullch);
2914			}
2915
2916
2917	1		XS(_wrap_csub) {
2918			{
2919	1		cmplx arg1 = (cmplx ) 0 ;
2920	1		cmplx arg2 = (cmplx ) 0 ;
2921	1		cmplx arg3 = (cmplx ) 0 ;
2922	1		int argvi = 0;
2923	1		dXSARGS;
2924
2925	1	50	if ((items < 3) \|\| (items > 3)) {
		50
2926	0		SWIG_croak("Usage: csub(a,b,c);");
2927			}
2928			{
2929	1	50	if (SWIG_ConvertPtr(ST(0), (void **) &arg1, SWIGTYPE_p_cmplx,0) < 0) {
2930	0		SWIG_croak("Type error in argument 1 of csub. Expected _p_cmplx");
2931			}
2932			}
2933			{
2934	1	50	if (SWIG_ConvertPtr(ST(1), (void **) &arg2, SWIGTYPE_p_cmplx,0) < 0) {
2935	0		SWIG_croak("Type error in argument 2 of csub. Expected _p_cmplx");
2936			}
2937			}
2938			{
2939	1	50	if (SWIG_ConvertPtr(ST(2), (void **) &arg3, SWIGTYPE_p_cmplx,0) < 0) {
2940	0		SWIG_croak("Type error in argument 3 of csub. Expected _p_cmplx");
2941			}
2942			}
2943	1		csub(arg1,arg2,arg3);
2944
2945
2946	1		XSRETURN(argvi);
2947	0		fail:
2948			;
2949			}
2950	0		croak(Nullch);
2951			}
2952
2953
2954	2		XS(_wrap_cmul) {
2955			{
2956	2		cmplx arg1 = (cmplx ) 0 ;
2957	2		cmplx arg2 = (cmplx ) 0 ;
2958	2		cmplx arg3 = (cmplx ) 0 ;
2959	2		int argvi = 0;
2960	2		dXSARGS;
2961
2962	2	50	if ((items < 3) \|\| (items > 3)) {
		50
2963	0		SWIG_croak("Usage: cmul(a,b,c);");
2964			}
2965			{
2966	2	50	if (SWIG_ConvertPtr(ST(0), (void **) &arg1, SWIGTYPE_p_cmplx,0) < 0) {
2967	0		SWIG_croak("Type error in argument 1 of cmul. Expected _p_cmplx");
2968			}
2969			}
2970			{
2971	2	50	if (SWIG_ConvertPtr(ST(1), (void **) &arg2, SWIGTYPE_p_cmplx,0) < 0) {
2972	0		SWIG_croak("Type error in argument 2 of cmul. Expected _p_cmplx");
2973			}
2974			}
2975			{
2976	2	50	if (SWIG_ConvertPtr(ST(2), (void **) &arg3, SWIGTYPE_p_cmplx,0) < 0) {
2977	0		SWIG_croak("Type error in argument 3 of cmul. Expected _p_cmplx");
2978			}
2979			}
2980	2		cmul(arg1,arg2,arg3);
2981
2982
2983	2		XSRETURN(argvi);
2984	0		fail:
2985			;
2986			}
2987	0		croak(Nullch);
2988			}
2989
2990
2991	2		XS(_wrap_cdiv) {
2992			{
2993	2		cmplx arg1 = (cmplx ) 0 ;
2994	2		cmplx arg2 = (cmplx ) 0 ;
2995	2		cmplx arg3 = (cmplx ) 0 ;
2996	2		int argvi = 0;
2997	2		dXSARGS;
2998
2999	2	50	if ((items < 3) \|\| (items > 3)) {
		50
3000	0		SWIG_croak("Usage: cdiv(a,b,c);");
3001			}
3002			{
3003	2	50	if (SWIG_ConvertPtr(ST(0), (void **) &arg1, SWIGTYPE_p_cmplx,0) < 0) {
3004	0		SWIG_croak("Type error in argument 1 of cdiv. Expected _p_cmplx");
3005			}
3006			}
3007			{
3008	2	50	if (SWIG_ConvertPtr(ST(1), (void **) &arg2, SWIGTYPE_p_cmplx,0) < 0) {
3009	0		SWIG_croak("Type error in argument 2 of cdiv. Expected _p_cmplx");
3010			}
3011			}
3012			{
3013	2	50	if (SWIG_ConvertPtr(ST(2), (void **) &arg3, SWIGTYPE_p_cmplx,0) < 0) {
3014	0		SWIG_croak("Type error in argument 3 of cdiv. Expected _p_cmplx");
3015			}
3016			}
3017	2		cdiv(arg1,arg2,arg3);
3018
3019
3020	2		XSRETURN(argvi);
3021	0		fail:
3022			;
3023			}
3024	0		croak(Nullch);
3025			}
3026
3027
3028	1		XS(_wrap_cmov) {
3029			{
3030	1		void arg1 = (void ) 0 ;
3031	1		void arg2 = (void ) 0 ;
3032	1		int argvi = 0;
3033	1		dXSARGS;
3034
3035	1	50	if ((items < 2) \|\| (items > 2)) {
		50
3036	0		SWIG_croak("Usage: cmov(a,b);");
3037			}
3038			{
3039	1	50	if (SWIG_ConvertPtr(ST(0), (void **) &arg1, 0,0) < 0) {
3040	0		SWIG_croak("Type error in argument 1 of cmov. Expected _p_void");
3041			}
3042			}
3043			{
3044	1	50	if (SWIG_ConvertPtr(ST(1), (void **) &arg2, 0,0) < 0) {
3045	0		SWIG_croak("Type error in argument 2 of cmov. Expected _p_void");
3046			}
3047			}
3048	1		cmov(arg1,arg2);
3049
3050
3051	1		XSRETURN(argvi);
3052	0		fail:
3053			;
3054			}
3055	0		croak(Nullch);
3056			}
3057
3058
3059	1		XS(_wrap_cneg) {
3060			{
3061	1		cmplx arg1 = (cmplx ) 0 ;
3062	1		int argvi = 0;
3063	1		dXSARGS;
3064
3065	1	50	if ((items < 1) \|\| (items > 1)) {
		50
3066	0		SWIG_croak("Usage: cneg(a);");
3067			}
3068			{
3069	1	50	if (SWIG_ConvertPtr(ST(0), (void **) &arg1, SWIGTYPE_p_cmplx,0) < 0) {
3070	0		SWIG_croak("Type error in argument 1 of cneg. Expected _p_cmplx");
3071			}
3072			}
3073	1		cneg(arg1);
3074
3075
3076	1		XSRETURN(argvi);
3077	0		fail:
3078			;
3079			}
3080	0		croak(Nullch);
3081			}
3082
3083
3084	1		XS(_wrap_md_cabs) {
3085			{
3086	1		cmplx arg1 = (cmplx ) 0 ;
3087			double result;
3088	1		int argvi = 0;
3089	1		dXSARGS;
3090
3091	1	50	if ((items < 1) \|\| (items > 1)) {
		50
3092	0		SWIG_croak("Usage: md_cabs(z);");
3093			}
3094			{
3095	1	50	if (SWIG_ConvertPtr(ST(0), (void **) &arg1, SWIGTYPE_p_cmplx,0) < 0) {
3096	0		SWIG_croak("Type error in argument 1 of md_cabs. Expected _p_cmplx");
3097			}
3098			}
3099	1		result = (double)md_cabs(arg1);
3100
3101	1		ST(argvi) = sv_newmortal();
3102	1		sv_setnv(ST(argvi++), (double) result);
3103	1		XSRETURN(argvi);
3104	0		fail:
3105			;
3106			}
3107	0		croak(Nullch);
3108			}
3109
3110
3111	1		XS(_wrap_md_csqrt) {
3112			{
3113	1		cmplx arg1 = (cmplx ) 0 ;
3114	1		cmplx arg2 = (cmplx ) 0 ;
3115	1		int argvi = 0;
3116	1		dXSARGS;
3117
3118	1	50	if ((items < 2) \|\| (items > 2)) {
		50
3119	0		SWIG_croak("Usage: md_csqrt(z,w);");
3120			}
3121			{
3122	1	50	if (SWIG_ConvertPtr(ST(0), (void **) &arg1, SWIGTYPE_p_cmplx,0) < 0) {
3123	0		SWIG_croak("Type error in argument 1 of md_csqrt. Expected _p_cmplx");
3124			}
3125			}
3126			{
3127	1	50	if (SWIG_ConvertPtr(ST(1), (void **) &arg2, SWIGTYPE_p_cmplx,0) < 0) {
3128	0		SWIG_croak("Type error in argument 2 of md_csqrt. Expected _p_cmplx");
3129			}
3130			}
3131	1		md_csqrt(arg1,arg2);
3132
3133
3134	1		XSRETURN(argvi);
3135	0		fail:
3136			;
3137			}
3138	0		croak(Nullch);
3139			}
3140
3141
3142	2		XS(_wrap_md_hypot) {
3143			{
3144			double arg1 ;
3145			double arg2 ;
3146			double result;
3147	2		int argvi = 0;
3148	2		dXSARGS;
3149
3150	2	50	if ((items < 2) \|\| (items > 2)) {
		50
3151	0		SWIG_croak("Usage: md_hypot(x,y);");
3152			}
3153	2		arg1 = (double) SvNV(ST(0));
3154
3155	2		arg2 = (double) SvNV(ST(1));
3156
3157	2		result = (double)md_hypot(arg1,arg2);
3158
3159	2		ST(argvi) = sv_newmortal();
3160	2		sv_setnv(ST(argvi++), (double) result);
3161	2		XSRETURN(argvi);
3162	0		fail:
3163			;
3164			}
3165	0		croak(Nullch);
3166			}
3167
3168
3169	8		XS(_wrap_md_cosh) {
3170			{
3171			double arg1 ;
3172			double result;
3173	8		int argvi = 0;
3174	8		dXSARGS;
3175
3176	8	50	if ((items < 1) \|\| (items > 1)) {
		50
3177	0		SWIG_croak("Usage: md_cosh(x);");
3178			}
3179	8		arg1 = (double) SvNV(ST(0));
3180
3181	8		result = (double)md_cosh(arg1);
3182
3183	8		ST(argvi) = sv_newmortal();
3184	8		sv_setnv(ST(argvi++), (double) result);
3185	8		XSRETURN(argvi);
3186	0		fail:
3187			;
3188			}
3189	0		croak(Nullch);
3190			}
3191
3192
3193	1		XS(_wrap_dawsn) {
3194			{
3195			double arg1 ;
3196			double result;
3197	1		int argvi = 0;
3198	1		dXSARGS;
3199
3200	1	50	if ((items < 1) \|\| (items > 1)) {
		50
3201	0		SWIG_croak("Usage: dawsn(xx);");
3202			}
3203	1		arg1 = (double) SvNV(ST(0));
3204
3205	1		result = (double)dawsn(arg1);
3206
3207	1		ST(argvi) = sv_newmortal();
3208	1		sv_setnv(ST(argvi++), (double) result);
3209	1		XSRETURN(argvi);
3210	0		fail:
3211			;
3212			}
3213	0		croak(Nullch);
3214			}
3215
3216
3217	1		XS(_wrap_ellie) {
3218			{
3219			double arg1 ;
3220			double arg2 ;
3221			double result;
3222	1		int argvi = 0;
3223	1		dXSARGS;
3224
3225	1	50	if ((items < 2) \|\| (items > 2)) {
		50
3226	0		SWIG_croak("Usage: ellie(phi,m);");
3227			}
3228	1		arg1 = (double) SvNV(ST(0));
3229
3230	1		arg2 = (double) SvNV(ST(1));
3231
3232	1		result = (double)ellie(arg1,arg2);
3233
3234	1		ST(argvi) = sv_newmortal();
3235	1		sv_setnv(ST(argvi++), (double) result);
3236	1		XSRETURN(argvi);
3237	0		fail:
3238			;
3239			}
3240	0		croak(Nullch);
3241			}
3242
3243
3244	2		XS(_wrap_ellik) {
3245			{
3246			double arg1 ;
3247			double arg2 ;
3248			double result;
3249	2		int argvi = 0;
3250	2		dXSARGS;
3251
3252	2	50	if ((items < 2) \|\| (items > 2)) {
		50
3253	0		SWIG_croak("Usage: ellik(phi,m);");
3254			}
3255	2		arg1 = (double) SvNV(ST(0));
3256
3257	2		arg2 = (double) SvNV(ST(1));
3258
3259	2		result = (double)ellik(arg1,arg2);
3260
3261	2		ST(argvi) = sv_newmortal();
3262	2		sv_setnv(ST(argvi++), (double) result);
3263	2		XSRETURN(argvi);
3264	0		fail:
3265			;
3266			}
3267	0		croak(Nullch);
3268			}
3269
3270
3271	1		XS(_wrap_ellpe) {
3272			{
3273			double arg1 ;
3274			double result;
3275	1		int argvi = 0;
3276	1		dXSARGS;
3277
3278	1	50	if ((items < 1) \|\| (items > 1)) {
		50
3279	0		SWIG_croak("Usage: ellpe(x);");
3280			}
3281	1		arg1 = (double) SvNV(ST(0));
3282
3283	1		result = (double)ellpe(arg1);
3284
3285	1		ST(argvi) = sv_newmortal();
3286	1		sv_setnv(ST(argvi++), (double) result);
3287	1		XSRETURN(argvi);
3288	0		fail:
3289			;
3290			}
3291	0		croak(Nullch);
3292			}
3293
3294
3295	1		XS(_wrap_ellpj) {
3296			{
3297			double arg1 ;
3298			double arg2 ;
3299	1		double arg3 = (double ) 0 ;
3300	1		double arg4 = (double ) 0 ;
3301	1		double arg5 = (double ) 0 ;
3302	1		double arg6 = (double ) 0 ;
3303			int result;
3304			double temp3 ;
3305			double temp4 ;
3306			double temp5 ;
3307			double temp6 ;
3308	1		int argvi = 0;
3309	1		dXSARGS;
3310
3311	1		arg3 = &temp3;
3312	1		arg4 = &temp4;
3313	1		arg5 = &temp5;
3314	1		arg6 = &temp6;
3315	1	50	if ((items < 2) \|\| (items > 2)) {
		50
3316	0		SWIG_croak("Usage: ellpj(u,m);");
3317			}
3318	1		arg1 = (double) SvNV(ST(0));
3319
3320	1		arg2 = (double) SvNV(ST(1));
3321
3322	1		result = (int)ellpj(arg1,arg2,arg3,arg4,arg5,arg6);
3323
3324	1		ST(argvi) = sv_newmortal();
3325	1		sv_setiv(ST(argvi++), (IV) result);
3326			{
3327	1	50	if (argvi >= items) {
3328	0	0	EXTEND(sp,1);
3329			}
3330	1		ST(argvi) = sv_newmortal();
3331	1		sv_setnv(ST(argvi),(double) *(arg3));
3332	1		argvi++;
3333			}
3334			{
3335	1	50	if (argvi >= items) {
3336	1	50	EXTEND(sp,1);
3337			}
3338	1		ST(argvi) = sv_newmortal();
3339	1		sv_setnv(ST(argvi),(double) *(arg4));
3340	1		argvi++;
3341			}
3342			{
3343	1	50	if (argvi >= items) {
3344	1	50	EXTEND(sp,1);
3345			}
3346	1		ST(argvi) = sv_newmortal();
3347	1		sv_setnv(ST(argvi),(double) *(arg5));
3348	1		argvi++;
3349			}
3350			{
3351	1	50	if (argvi >= items) {
3352	1	50	EXTEND(sp,1);
3353			}
3354	1		ST(argvi) = sv_newmortal();
3355	1		sv_setnv(ST(argvi),(double) *(arg6));
3356	1		argvi++;
3357			}
3358	1		XSRETURN(argvi);
3359	0		fail:
3360			;
3361			}
3362	0		croak(Nullch);
3363			}
3364
3365
3366	1		XS(_wrap_ellpk) {
3367			{
3368			double arg1 ;
3369			double result;
3370	1		int argvi = 0;
3371	1		dXSARGS;
3372
3373	1	50	if ((items < 1) \|\| (items > 1)) {
		50
3374	0		SWIG_croak("Usage: ellpk(x);");
3375			}
3376	1		arg1 = (double) SvNV(ST(0));
3377
3378	1		result = (double)ellpk(arg1);
3379
3380	1		ST(argvi) = sv_newmortal();
3381	1		sv_setnv(ST(argvi++), (double) result);
3382	1		XSRETURN(argvi);
3383	0		fail:
3384			;
3385			}
3386	0		croak(Nullch);
3387			}
3388
3389
3390	11		XS(_wrap_md_exp) {
3391			{
3392			double arg1 ;
3393			double result;
3394	11		int argvi = 0;
3395	11		dXSARGS;
3396
3397	11	50	if ((items < 1) \|\| (items > 1)) {
		50
3398	0		SWIG_croak("Usage: md_exp(x);");
3399			}
3400	11		arg1 = (double) SvNV(ST(0));
3401
3402	11		result = (double)md_exp(arg1);
3403
3404	11		ST(argvi) = sv_newmortal();
3405	11		sv_setnv(ST(argvi++), (double) result);
3406	11		XSRETURN(argvi);
3407	0		fail:
3408			;
3409			}
3410	0		croak(Nullch);
3411			}
3412
3413
3414	0		XS(_wrap_md_exp10) {
3415			{
3416			double arg1 ;
3417			double result;
3418	0		int argvi = 0;
3419	0		dXSARGS;
3420
3421	0	0	if ((items < 1) \|\| (items > 1)) {
		0
3422	0		SWIG_croak("Usage: md_exp10(x);");
3423			}
3424	0		arg1 = (double) SvNV(ST(0));
3425
3426	0		result = (double)md_exp10(arg1);
3427
3428	0		ST(argvi) = sv_newmortal();
3429	0		sv_setnv(ST(argvi++), (double) result);
3430	0		XSRETURN(argvi);
3431	0		fail:
3432			;
3433			}
3434	0		croak(Nullch);
3435			}
3436
3437
3438	2		XS(_wrap_md_exp2) {
3439			{
3440			double arg1 ;
3441			double result;
3442	2		int argvi = 0;
3443	2		dXSARGS;
3444
3445	2	50	if ((items < 1) \|\| (items > 1)) {
		50
3446	0		SWIG_croak("Usage: md_exp2(x);");
3447			}
3448	2		arg1 = (double) SvNV(ST(0));
3449
3450	2		result = (double)md_exp2(arg1);
3451
3452	2		ST(argvi) = sv_newmortal();
3453	2		sv_setnv(ST(argvi++), (double) result);
3454	2		XSRETURN(argvi);
3455	0		fail:
3456			;
3457			}
3458	0		croak(Nullch);
3459			}
3460
3461
3462	1		XS(_wrap_md_expn) {
3463			{
3464			int arg1 ;
3465			double arg2 ;
3466			double result;
3467	1		int argvi = 0;
3468	1		dXSARGS;
3469
3470	1	50	if ((items < 2) \|\| (items > 2)) {
		50
3471	0		SWIG_croak("Usage: md_expn(n,x);");
3472			}
3473	1		arg1 = (int) SvIV(ST(0));
3474	1		arg2 = (double) SvNV(ST(1));
3475
3476	1		result = (double)md_expn(arg1,arg2);
3477
3478	1		ST(argvi) = sv_newmortal();
3479	1		sv_setnv(ST(argvi++), (double) result);
3480	1		XSRETURN(argvi);
3481	0		fail:
3482			;
3483			}
3484	0		croak(Nullch);
3485			}
3486
3487
3488	1		XS(_wrap_ei) {
3489			{
3490			double arg1 ;
3491			double result;
3492	1		int argvi = 0;
3493	1		dXSARGS;
3494
3495	1	50	if ((items < 1) \|\| (items > 1)) {
		50
3496	0		SWIG_croak("Usage: ei(x);");
3497			}
3498	1		arg1 = (double) SvNV(ST(0));
3499
3500	1		result = (double)ei(arg1);
3501
3502	1		ST(argvi) = sv_newmortal();
3503	1		sv_setnv(ST(argvi++), (double) result);
3504	1		XSRETURN(argvi);
3505	0		fail:
3506			;
3507			}
3508	0		croak(Nullch);
3509			}
3510
3511
3512	1		XS(_wrap_md_fabs) {
3513			{
3514			double arg1 ;
3515			double result;
3516	1		int argvi = 0;
3517	1		dXSARGS;
3518
3519	1	50	if ((items < 1) \|\| (items > 1)) {
		50
3520	0		SWIG_croak("Usage: md_fabs(x);");
3521			}
3522	1		arg1 = (double) SvNV(ST(0));
3523
3524	1		result = (double)md_fabs(arg1);
3525
3526	1		ST(argvi) = sv_newmortal();
3527	1		sv_setnv(ST(argvi++), (double) result);
3528	1		XSRETURN(argvi);
3529	0		fail:
3530			;
3531			}
3532	0		croak(Nullch);
3533			}
3534
3535
3536	3		XS(_wrap_fac) {
3537			{
3538			int arg1 ;
3539			double result;
3540	3		int argvi = 0;
3541	3		dXSARGS;
3542
3543	3	50	if ((items < 1) \|\| (items > 1)) {
		50
3544	0		SWIG_croak("Usage: fac(i);");
3545			}
3546	3		arg1 = (int) SvIV(ST(0));
3547	3		result = (double)fac(arg1);
3548
3549	3		ST(argvi) = sv_newmortal();
3550	3		sv_setnv(ST(argvi++), (double) result);
3551	3		XSRETURN(argvi);
3552	0		fail:
3553			;
3554			}
3555	0		croak(Nullch);
3556			}
3557
3558
3559	1		XS(_wrap_fdtrc) {
3560			{
3561			int arg1 ;
3562			int arg2 ;
3563			double arg3 ;
3564			double result;
3565	1		int argvi = 0;
3566	1		dXSARGS;
3567
3568	1	50	if ((items < 3) \|\| (items > 3)) {
		50
3569	0		SWIG_croak("Usage: fdtrc(ia,ib,x);");
3570			}
3571	1		arg1 = (int) SvIV(ST(0));
3572	1		arg2 = (int) SvIV(ST(1));
3573	1		arg3 = (double) SvNV(ST(2));
3574
3575	1		result = (double)fdtrc(arg1,arg2,arg3);
3576
3577	1		ST(argvi) = sv_newmortal();
3578	1		sv_setnv(ST(argvi++), (double) result);
3579	1		XSRETURN(argvi);
3580	0		fail:
3581			;
3582			}
3583	0		croak(Nullch);
3584			}
3585
3586
3587	1		XS(_wrap_fdtr) {
3588			{
3589			int arg1 ;
3590			int arg2 ;
3591			double arg3 ;
3592			double result;
3593	1		int argvi = 0;
3594	1		dXSARGS;
3595
3596	1	50	if ((items < 3) \|\| (items > 3)) {
		50
3597	0		SWIG_croak("Usage: fdtr(ia,ib,x);");
3598			}
3599	1		arg1 = (int) SvIV(ST(0));
3600	1		arg2 = (int) SvIV(ST(1));
3601	1		arg3 = (double) SvNV(ST(2));
3602
3603	1		result = (double)fdtr(arg1,arg2,arg3);
3604
3605	1		ST(argvi) = sv_newmortal();
3606	1		sv_setnv(ST(argvi++), (double) result);
3607	1		XSRETURN(argvi);
3608	0		fail:
3609			;
3610			}
3611	0		croak(Nullch);
3612			}
3613
3614
3615	1		XS(_wrap_fdtri) {
3616			{
3617			int arg1 ;
3618			int arg2 ;
3619			double arg3 ;
3620			double result;
3621	1		int argvi = 0;
3622	1		dXSARGS;
3623
3624	1	50	if ((items < 3) \|\| (items > 3)) {
		50
3625	0		SWIG_croak("Usage: fdtri(ia,ib,y);");
3626			}
3627	1		arg1 = (int) SvIV(ST(0));
3628	1		arg2 = (int) SvIV(ST(1));
3629	1		arg3 = (double) SvNV(ST(2));
3630
3631	1		result = (double)fdtri(arg1,arg2,arg3);
3632
3633	1		ST(argvi) = sv_newmortal();
3634	1		sv_setnv(ST(argvi++), (double) result);
3635	1		XSRETURN(argvi);
3636	0		fail:
3637			;
3638			}
3639	0		croak(Nullch);
3640			}
3641
3642
3643	2		XS(_wrap_md_ceil) {
3644			{
3645			double arg1 ;
3646			double result;
3647	2		int argvi = 0;
3648	2		dXSARGS;
3649
3650	2	50	if ((items < 1) \|\| (items > 1)) {
		50
3651	0		SWIG_croak("Usage: md_ceil(x);");
3652			}
3653	2		arg1 = (double) SvNV(ST(0));
3654
3655	2		result = (double)md_ceil(arg1);
3656
3657	2		ST(argvi) = sv_newmortal();
3658	2		sv_setnv(ST(argvi++), (double) result);
3659	2		XSRETURN(argvi);
3660	0		fail:
3661			;
3662			}
3663	0		croak(Nullch);
3664			}
3665
3666
3667	2		XS(_wrap_md_floor) {
3668			{
3669			double arg1 ;
3670			double result;
3671	2		int argvi = 0;
3672	2		dXSARGS;
3673
3674	2	50	if ((items < 1) \|\| (items > 1)) {
		50
3675	0		SWIG_croak("Usage: md_floor(x);");
3676			}
3677	2		arg1 = (double) SvNV(ST(0));
3678
3679	2		result = (double)md_floor(arg1);
3680
3681	2		ST(argvi) = sv_newmortal();
3682	2		sv_setnv(ST(argvi++), (double) result);
3683	2		XSRETURN(argvi);
3684	0		fail:
3685			;
3686			}
3687	0		croak(Nullch);
3688			}
3689
3690
3691	1		XS(_wrap_md_frexp) {
3692			{
3693			double arg1 ;
3694	1		int arg2 = (int ) 0 ;
3695			double result;
3696			int temp2 ;
3697	1		int argvi = 0;
3698	1		dXSARGS;
3699
3700	1		arg2 = &temp2;
3701	1	50	if ((items < 1) \|\| (items > 1)) {
		50
3702	0		SWIG_croak("Usage: md_frexp(x);");
3703			}
3704	1		arg1 = (double) SvNV(ST(0));
3705
3706	1		result = (double)md_frexp(arg1,arg2);
3707
3708	1		ST(argvi) = sv_newmortal();
3709	1		sv_setnv(ST(argvi++), (double) result);
3710			{
3711	1	50	if (argvi >= items) {
3712	1	50	EXTEND(sp,1);
3713			}
3714	1		ST(argvi) = sv_newmortal();
3715	1		sv_setiv(ST(argvi),(IV) *(arg2));
3716	1		argvi++;
3717			}
3718	1		XSRETURN(argvi);
3719	0		fail:
3720			;
3721			}
3722	0		croak(Nullch);
3723			}
3724
3725
3726	1		XS(_wrap_md_ldexp) {
3727			{
3728			double arg1 ;
3729			int arg2 ;
3730			double result;
3731	1		int argvi = 0;
3732	1		dXSARGS;
3733
3734	1	50	if ((items < 2) \|\| (items > 2)) {
		50
3735	0		SWIG_croak("Usage: md_ldexp(x,pw2);");
3736			}
3737	1		arg1 = (double) SvNV(ST(0));
3738
3739	1		arg2 = (int) SvIV(ST(1));
3740	1		result = (double)md_ldexp(arg1,arg2);
3741
3742	1		ST(argvi) = sv_newmortal();
3743	1		sv_setnv(ST(argvi++), (double) result);
3744	1		XSRETURN(argvi);
3745	0		fail:
3746			;
3747			}
3748	0		croak(Nullch);
3749			}
3750
3751
3752	1		XS(_wrap_fresnl) {
3753			{
3754			double arg1 ;
3755	1		double arg2 = (double ) 0 ;
3756	1		double arg3 = (double ) 0 ;
3757			int result;
3758			double temp2 ;
3759			double temp3 ;
3760	1		int argvi = 0;
3761	1		dXSARGS;
3762
3763	1		arg2 = &temp2;
3764	1		arg3 = &temp3;
3765	1	50	if ((items < 1) \|\| (items > 1)) {
		50
3766	0		SWIG_croak("Usage: fresnl(xxa);");
3767			}
3768	1		arg1 = (double) SvNV(ST(0));
3769
3770	1		result = (int)fresnl(arg1,arg2,arg3);
3771
3772	1		ST(argvi) = sv_newmortal();
3773	1		sv_setiv(ST(argvi++), (IV) result);
3774			{
3775	1	50	if (argvi >= items) {
3776	1	50	EXTEND(sp,1);
3777			}
3778	1		ST(argvi) = sv_newmortal();
3779	1		sv_setnv(ST(argvi),(double) *(arg2));
3780	1		argvi++;
3781			}
3782			{
3783	1	50	if (argvi >= items) {
3784	1	50	EXTEND(sp,1);
3785			}
3786	1		ST(argvi) = sv_newmortal();
3787	1		sv_setnv(ST(argvi),(double) *(arg3));
3788	1		argvi++;
3789			}
3790	1		XSRETURN(argvi);
3791	0		fail:
3792			;
3793			}
3794	0		croak(Nullch);
3795			}
3796
3797
3798	5		XS(_wrap_md_gamma) {
3799			{
3800			double arg1 ;
3801			double result;
3802	5		int argvi = 0;
3803	5		dXSARGS;
3804
3805	5	50	if ((items < 1) \|\| (items > 1)) {
		50
3806	0		SWIG_croak("Usage: md_gamma(x);");
3807			}
3808	5		arg1 = (double) SvNV(ST(0));
3809
3810	5		result = (double)md_gamma(arg1);
3811
3812	5		ST(argvi) = sv_newmortal();
3813	5		sv_setnv(ST(argvi++), (double) result);
3814	5		XSRETURN(argvi);
3815	0		fail:
3816			;
3817			}
3818	0		croak(Nullch);
3819			}
3820
3821
3822	1		XS(_wrap_lgam) {
3823			{
3824			double arg1 ;
3825			double result;
3826	1		int argvi = 0;
3827	1		dXSARGS;
3828
3829	1	50	if ((items < 1) \|\| (items > 1)) {
		50
3830	0		SWIG_croak("Usage: lgam(x);");
3831			}
3832	1		arg1 = (double) SvNV(ST(0));
3833
3834	1		result = (double)lgam(arg1);
3835
3836	1		ST(argvi) = sv_newmortal();
3837	1		sv_setnv(ST(argvi++), (double) result);
3838	1		XSRETURN(argvi);
3839	0		fail:
3840			;
3841			}
3842	0		croak(Nullch);
3843			}
3844
3845
3846	1		XS(_wrap_gdtr) {
3847			{
3848			double arg1 ;
3849			double arg2 ;
3850			double arg3 ;
3851			double result;
3852	1		int argvi = 0;
3853	1		dXSARGS;
3854
3855	1	50	if ((items < 3) \|\| (items > 3)) {
		50
3856	0		SWIG_croak("Usage: gdtr(a,b,x);");
3857			}
3858	1		arg1 = (double) SvNV(ST(0));
3859
3860	1		arg2 = (double) SvNV(ST(1));
3861
3862	1		arg3 = (double) SvNV(ST(2));
3863
3864	1		result = (double)gdtr(arg1,arg2,arg3);
3865
3866	1		ST(argvi) = sv_newmortal();
3867	1		sv_setnv(ST(argvi++), (double) result);
3868	1		XSRETURN(argvi);
3869	0		fail:
3870			;
3871			}
3872	0		croak(Nullch);
3873			}
3874
3875
3876	1		XS(_wrap_gdtrc) {
3877			{
3878			double arg1 ;
3879			double arg2 ;
3880			double arg3 ;
3881			double result;
3882	1		int argvi = 0;
3883	1		dXSARGS;
3884
3885	1	50	if ((items < 3) \|\| (items > 3)) {
		50
3886	0		SWIG_croak("Usage: gdtrc(a,b,x);");
3887			}
3888	1		arg1 = (double) SvNV(ST(0));
3889
3890	1		arg2 = (double) SvNV(ST(1));
3891
3892	1		arg3 = (double) SvNV(ST(2));
3893
3894	1		result = (double)gdtrc(arg1,arg2,arg3);
3895
3896	1		ST(argvi) = sv_newmortal();
3897	1		sv_setnv(ST(argvi++), (double) result);
3898	1		XSRETURN(argvi);
3899	0		fail:
3900			;
3901			}
3902	0		croak(Nullch);
3903			}
3904
3905
3906	1		XS(_wrap_hyp2f1) {
3907			{
3908			double arg1 ;
3909			double arg2 ;
3910			double arg3 ;
3911			double arg4 ;
3912			double result;
3913	1		int argvi = 0;
3914	1		dXSARGS;
3915
3916	1	50	if ((items < 4) \|\| (items > 4)) {
		50
3917	0		SWIG_croak("Usage: hyp2f1(a,b,c,x);");
3918			}
3919	1		arg1 = (double) SvNV(ST(0));
3920
3921	1		arg2 = (double) SvNV(ST(1));
3922
3923	1		arg3 = (double) SvNV(ST(2));
3924
3925	1		arg4 = (double) SvNV(ST(3));
3926
3927	1		result = (double)hyp2f1(arg1,arg2,arg3,arg4);
3928
3929	1		ST(argvi) = sv_newmortal();
3930	1		sv_setnv(ST(argvi++), (double) result);
3931	1		XSRETURN(argvi);
3932	0		fail:
3933			;
3934			}
3935	0		croak(Nullch);
3936			}
3937
3938
3939	1		XS(_wrap_hyperg) {
3940			{
3941			double arg1 ;
3942			double arg2 ;
3943			double arg3 ;
3944			double result;
3945	1		int argvi = 0;
3946	1		dXSARGS;
3947
3948	1	50	if ((items < 3) \|\| (items > 3)) {
		50
3949	0		SWIG_croak("Usage: hyperg(a,b,x);");
3950			}
3951	1		arg1 = (double) SvNV(ST(0));
3952
3953	1		arg2 = (double) SvNV(ST(1));
3954
3955	1		arg3 = (double) SvNV(ST(2));
3956
3957	1		result = (double)hyperg(arg1,arg2,arg3);
3958
3959	1		ST(argvi) = sv_newmortal();
3960	1		sv_setnv(ST(argvi++), (double) result);
3961	1		XSRETURN(argvi);
3962	0		fail:
3963			;
3964			}
3965	0		croak(Nullch);
3966			}
3967
3968
3969	0		XS(_wrap_hyp2f0) {
3970			{
3971			double arg1 ;
3972			double arg2 ;
3973			double arg3 ;
3974			int arg4 ;
3975	0		double arg5 = (double ) 0 ;
3976			double result;
3977			double temp5 ;
3978	0		int argvi = 0;
3979	0		dXSARGS;
3980
3981	0		arg5 = &temp5;
3982	0	0	if ((items < 4) \|\| (items > 4)) {
		0
3983	0		SWIG_croak("Usage: hyp2f0(a,b,x,type);");
3984			}
3985	0		arg1 = (double) SvNV(ST(0));
3986
3987	0		arg2 = (double) SvNV(ST(1));
3988
3989	0		arg3 = (double) SvNV(ST(2));
3990
3991	0		arg4 = (int) SvIV(ST(3));
3992	0		result = (double)hyp2f0(arg1,arg2,arg3,arg4,arg5);
3993
3994	0		ST(argvi) = sv_newmortal();
3995	0		sv_setnv(ST(argvi++), (double) result);
3996			{
3997	0	0	if (argvi >= items) {
3998	0	0	EXTEND(sp,1);
3999			}
4000	0		ST(argvi) = sv_newmortal();
4001	0		sv_setnv(ST(argvi),(double) *(arg5));
4002	0		argvi++;
4003			}
4004	0		XSRETURN(argvi);
4005	0		fail:
4006			;
4007			}
4008	0		croak(Nullch);
4009			}
4010
4011
4012	1		XS(_wrap_i0) {
4013			{
4014			double arg1 ;
4015			double result;
4016	1		int argvi = 0;
4017	1		dXSARGS;
4018
4019	1	50	if ((items < 1) \|\| (items > 1)) {
		50
4020	0		SWIG_croak("Usage: i0(x);");
4021			}
4022	1		arg1 = (double) SvNV(ST(0));
4023
4024	1		result = (double)i0(arg1);
4025
4026	1		ST(argvi) = sv_newmortal();
4027	1		sv_setnv(ST(argvi++), (double) result);
4028	1		XSRETURN(argvi);
4029	0		fail:
4030			;
4031			}
4032	0		croak(Nullch);
4033			}
4034
4035
4036	1		XS(_wrap_i0e) {
4037			{
4038			double arg1 ;
4039			double result;
4040	1		int argvi = 0;
4041	1		dXSARGS;
4042
4043	1	50	if ((items < 1) \|\| (items > 1)) {
		50
4044	0		SWIG_croak("Usage: i0e(x);");
4045			}
4046	1		arg1 = (double) SvNV(ST(0));
4047
4048	1		result = (double)i0e(arg1);
4049
4050	1		ST(argvi) = sv_newmortal();
4051	1		sv_setnv(ST(argvi++), (double) result);
4052	1		XSRETURN(argvi);
4053	0		fail:
4054			;
4055			}
4056	0		croak(Nullch);
4057			}
4058
4059
4060	1		XS(_wrap_i1) {
4061			{
4062			double arg1 ;
4063			double result;
4064	1		int argvi = 0;
4065	1		dXSARGS;
4066
4067	1	50	if ((items < 1) \|\| (items > 1)) {
		50
4068	0		SWIG_croak("Usage: i1(x);");
4069			}
4070	1		arg1 = (double) SvNV(ST(0));
4071
4072	1		result = (double)i1(arg1);
4073
4074	1		ST(argvi) = sv_newmortal();
4075	1		sv_setnv(ST(argvi++), (double) result);
4076	1		XSRETURN(argvi);
4077	0		fail:
4078			;
4079			}
4080	0		croak(Nullch);
4081			}
4082
4083
4084	1		XS(_wrap_i1e) {
4085			{
4086			double arg1 ;
4087			double result;
4088	1		int argvi = 0;
4089	1		dXSARGS;
4090
4091	1	50	if ((items < 1) \|\| (items > 1)) {
		50
4092	0		SWIG_croak("Usage: i1e(x);");
4093			}
4094	1		arg1 = (double) SvNV(ST(0));
4095
4096	1		result = (double)i1e(arg1);
4097
4098	1		ST(argvi) = sv_newmortal();
4099	1		sv_setnv(ST(argvi++), (double) result);
4100	1		XSRETURN(argvi);
4101	0		fail:
4102			;
4103			}
4104	0		croak(Nullch);
4105			}
4106
4107
4108	4		XS(_wrap_igamc) {
4109			{
4110			double arg1 ;
4111			double arg2 ;
4112			double result;
4113	4		int argvi = 0;
4114	4		dXSARGS;
4115
4116	4	50	if ((items < 2) \|\| (items > 2)) {
		50
4117	0		SWIG_croak("Usage: igamc(a,x);");
4118			}
4119	4		arg1 = (double) SvNV(ST(0));
4120
4121	4		arg2 = (double) SvNV(ST(1));
4122
4123	4		result = (double)igamc(arg1,arg2);
4124
4125	4		ST(argvi) = sv_newmortal();
4126	4		sv_setnv(ST(argvi++), (double) result);
4127	4		XSRETURN(argvi);
4128	0		fail:
4129			;
4130			}
4131	0		croak(Nullch);
4132			}
4133
4134
4135	4		XS(_wrap_igam) {
4136			{
4137			double arg1 ;
4138			double arg2 ;
4139			double result;
4140	4		int argvi = 0;
4141	4		dXSARGS;
4142
4143	4	50	if ((items < 2) \|\| (items > 2)) {
		50
4144	0		SWIG_croak("Usage: igam(a,x);");
4145			}
4146	4		arg1 = (double) SvNV(ST(0));
4147
4148	4		arg2 = (double) SvNV(ST(1));
4149
4150	4		result = (double)igam(arg1,arg2);
4151
4152	4		ST(argvi) = sv_newmortal();
4153	4		sv_setnv(ST(argvi++), (double) result);
4154	4		XSRETURN(argvi);
4155	0		fail:
4156			;
4157			}
4158	0		croak(Nullch);
4159			}
4160
4161
4162	3		XS(_wrap_igami) {
4163			{
4164			double arg1 ;
4165			double arg2 ;
4166			double result;
4167	3		int argvi = 0;
4168	3		dXSARGS;
4169
4170	3	50	if ((items < 2) \|\| (items > 2)) {
		50
4171	0		SWIG_croak("Usage: igami(a,md_y0);");
4172			}
4173	3		arg1 = (double) SvNV(ST(0));
4174
4175	3		arg2 = (double) SvNV(ST(1));
4176
4177	3		result = (double)igami(arg1,arg2);
4178
4179	3		ST(argvi) = sv_newmortal();
4180	3		sv_setnv(ST(argvi++), (double) result);
4181	3		XSRETURN(argvi);
4182	0		fail:
4183			;
4184			}
4185	0		croak(Nullch);
4186			}
4187
4188
4189	9		XS(_wrap_incbet) {
4190			{
4191			double arg1 ;
4192			double arg2 ;
4193			double arg3 ;
4194			double result;
4195	9		int argvi = 0;
4196	9		dXSARGS;
4197
4198	9	50	if ((items < 3) \|\| (items > 3)) {
		50
4199	0		SWIG_croak("Usage: incbet(aa,bb,xx);");
4200			}
4201	9		arg1 = (double) SvNV(ST(0));
4202
4203	9		arg2 = (double) SvNV(ST(1));
4204
4205	9		arg3 = (double) SvNV(ST(2));
4206
4207	9		result = (double)incbet(arg1,arg2,arg3);
4208
4209	9		ST(argvi) = sv_newmortal();
4210	9		sv_setnv(ST(argvi++), (double) result);
4211	9		XSRETURN(argvi);
4212	0		fail:
4213			;
4214			}
4215	0		croak(Nullch);
4216			}
4217
4218
4219	3		XS(_wrap_incbi) {
4220			{
4221			double arg1 ;
4222			double arg2 ;
4223			double arg3 ;
4224			double result;
4225	3		int argvi = 0;
4226	3		dXSARGS;
4227
4228	3	50	if ((items < 3) \|\| (items > 3)) {
		50
4229	0		SWIG_croak("Usage: incbi(aa,bb,yy0);");
4230			}
4231	3		arg1 = (double) SvNV(ST(0));
4232
4233	3		arg2 = (double) SvNV(ST(1));
4234
4235	3		arg3 = (double) SvNV(ST(2));
4236
4237	3		result = (double)incbi(arg1,arg2,arg3);
4238
4239	3		ST(argvi) = sv_newmortal();
4240	3		sv_setnv(ST(argvi++), (double) result);
4241	3		XSRETURN(argvi);
4242	0		fail:
4243			;
4244			}
4245	0		croak(Nullch);
4246			}
4247
4248
4249	1		XS(_wrap_iv) {
4250			{
4251			double arg1 ;
4252			double arg2 ;
4253			double result;
4254	1		int argvi = 0;
4255	1		dXSARGS;
4256
4257	1	50	if ((items < 2) \|\| (items > 2)) {
		50
4258	0		SWIG_croak("Usage: iv(v,x);");
4259			}
4260	1		arg1 = (double) SvNV(ST(0));
4261
4262	1		arg2 = (double) SvNV(ST(1));
4263
4264	1		result = (double)iv(arg1,arg2);
4265
4266	1		ST(argvi) = sv_newmortal();
4267	1		sv_setnv(ST(argvi++), (double) result);
4268	1		XSRETURN(argvi);
4269	0		fail:
4270			;
4271			}
4272	0		croak(Nullch);
4273			}
4274
4275
4276	2		XS(_wrap_md_j0) {
4277			{
4278			double arg1 ;
4279			double result;
4280	2		int argvi = 0;
4281	2		dXSARGS;
4282
4283	2	50	if ((items < 1) \|\| (items > 1)) {
		50
4284	0		SWIG_croak("Usage: md_j0(x);");
4285			}
4286	2		arg1 = (double) SvNV(ST(0));
4287
4288	2		result = (double)md_j0(arg1);
4289
4290	2		ST(argvi) = sv_newmortal();
4291	2		sv_setnv(ST(argvi++), (double) result);
4292	2		XSRETURN(argvi);
4293	0		fail:
4294			;
4295			}
4296	0		croak(Nullch);
4297			}
4298
4299
4300	2		XS(_wrap_md_y0) {
4301			{
4302			double arg1 ;
4303			double result;
4304	2		int argvi = 0;
4305	2		dXSARGS;
4306
4307	2	50	if ((items < 1) \|\| (items > 1)) {
		50
4308	0		SWIG_croak("Usage: md_y0(x);");
4309			}
4310	2		arg1 = (double) SvNV(ST(0));
4311
4312	2		result = (double)md_y0(arg1);
4313
4314	2		ST(argvi) = sv_newmortal();
4315	2		sv_setnv(ST(argvi++), (double) result);
4316	2		XSRETURN(argvi);
4317	0		fail:
4318			;
4319			}
4320	0		croak(Nullch);
4321			}
4322
4323
4324	2		XS(_wrap_md_j1) {
4325			{
4326			double arg1 ;
4327			double result;
4328	2		int argvi = 0;
4329	2		dXSARGS;
4330
4331	2	50	if ((items < 1) \|\| (items > 1)) {
		50
4332	0		SWIG_croak("Usage: md_j1(x);");
4333			}
4334	2		arg1 = (double) SvNV(ST(0));
4335
4336	2		result = (double)md_j1(arg1);
4337
4338	2		ST(argvi) = sv_newmortal();
4339	2		sv_setnv(ST(argvi++), (double) result);
4340	2		XSRETURN(argvi);
4341	0		fail:
4342			;
4343			}
4344	0		croak(Nullch);
4345			}
4346
4347
4348	2		XS(_wrap_md_y1) {
4349			{
4350			double arg1 ;
4351			double result;
4352	2		int argvi = 0;
4353	2		dXSARGS;
4354
4355	2	50	if ((items < 1) \|\| (items > 1)) {
		50
4356	0		SWIG_croak("Usage: md_y1(x);");
4357			}
4358	2		arg1 = (double) SvNV(ST(0));
4359
4360	2		result = (double)md_y1(arg1);
4361
4362	2		ST(argvi) = sv_newmortal();
4363	2		sv_setnv(ST(argvi++), (double) result);
4364	2		XSRETURN(argvi);
4365	0		fail:
4366			;
4367			}
4368	0		croak(Nullch);
4369			}
4370
4371
4372	2		XS(_wrap_md_jn) {
4373			{
4374			int arg1 ;
4375			double arg2 ;
4376			double result;
4377	2		int argvi = 0;
4378	2		dXSARGS;
4379
4380	2	50	if ((items < 2) \|\| (items > 2)) {
		50
4381	0		SWIG_croak("Usage: md_jn(n,x);");
4382			}
4383	2		arg1 = (int) SvIV(ST(0));
4384	2		arg2 = (double) SvNV(ST(1));
4385
4386	2		result = (double)md_jn(arg1,arg2);
4387
4388	2		ST(argvi) = sv_newmortal();
4389	2		sv_setnv(ST(argvi++), (double) result);
4390	2		XSRETURN(argvi);
4391	0		fail:
4392			;
4393			}
4394	0		croak(Nullch);
4395			}
4396
4397
4398	2		XS(_wrap_jv) {
4399			{
4400			double arg1 ;
4401			double arg2 ;
4402			double result;
4403	2		int argvi = 0;
4404	2		dXSARGS;
4405
4406	2	50	if ((items < 2) \|\| (items > 2)) {
		50
4407	0		SWIG_croak("Usage: jv(n,x);");
4408			}
4409	2		arg1 = (double) SvNV(ST(0));
4410
4411	2		arg2 = (double) SvNV(ST(1));
4412
4413	2		result = (double)jv(arg1,arg2);
4414
4415	2		ST(argvi) = sv_newmortal();
4416	2		sv_setnv(ST(argvi++), (double) result);
4417	2		XSRETURN(argvi);
4418	0		fail:
4419			;
4420			}
4421	0		croak(Nullch);
4422			}
4423
4424
4425	1		XS(_wrap_k0) {
4426			{
4427			double arg1 ;
4428			double result;
4429	1		int argvi = 0;
4430	1		dXSARGS;
4431
4432	1	50	if ((items < 1) \|\| (items > 1)) {
		50
4433	0		SWIG_croak("Usage: k0(x);");
4434			}
4435	1		arg1 = (double) SvNV(ST(0));
4436
4437	1		result = (double)k0(arg1);
4438
4439	1		ST(argvi) = sv_newmortal();
4440	1		sv_setnv(ST(argvi++), (double) result);
4441	1		XSRETURN(argvi);
4442	0		fail:
4443			;
4444			}
4445	0		croak(Nullch);
4446			}
4447
4448
4449	1		XS(_wrap_k0e) {
4450			{
4451			double arg1 ;
4452			double result;
4453	1		int argvi = 0;
4454	1		dXSARGS;
4455
4456	1	50	if ((items < 1) \|\| (items > 1)) {
		50
4457	0		SWIG_croak("Usage: k0e(x);");
4458			}
4459	1		arg1 = (double) SvNV(ST(0));
4460
4461	1		result = (double)k0e(arg1);
4462
4463	1		ST(argvi) = sv_newmortal();
4464	1		sv_setnv(ST(argvi++), (double) result);
4465	1		XSRETURN(argvi);
4466	0		fail:
4467			;
4468			}
4469	0		croak(Nullch);
4470			}
4471
4472
4473	1		XS(_wrap_k1) {
4474			{
4475			double arg1 ;
4476			double result;
4477	1		int argvi = 0;
4478	1		dXSARGS;
4479
4480	1	50	if ((items < 1) \|\| (items > 1)) {
		50
4481	0		SWIG_croak("Usage: k1(x);");
4482			}
4483	1		arg1 = (double) SvNV(ST(0));
4484
4485	1		result = (double)k1(arg1);
4486
4487	1		ST(argvi) = sv_newmortal();
4488	1		sv_setnv(ST(argvi++), (double) result);
4489	1		XSRETURN(argvi);
4490	0		fail:
4491			;
4492			}
4493	0		croak(Nullch);
4494			}
4495
4496
4497	1		XS(_wrap_k1e) {
4498			{
4499			double arg1 ;
4500			double result;
4501	1		int argvi = 0;
4502	1		dXSARGS;
4503
4504	1	50	if ((items < 1) \|\| (items > 1)) {
		50
4505	0		SWIG_croak("Usage: k1e(x);");
4506			}
4507	1		arg1 = (double) SvNV(ST(0));
4508
4509	1		result = (double)k1e(arg1);
4510
4511	1		ST(argvi) = sv_newmortal();
4512	1		sv_setnv(ST(argvi++), (double) result);
4513	1		XSRETURN(argvi);
4514	0		fail:
4515			;
4516			}
4517	0		croak(Nullch);
4518			}
4519
4520
4521	1		XS(_wrap_kn) {
4522			{
4523			int arg1 ;
4524			double arg2 ;
4525			double result;
4526	1		int argvi = 0;
4527	1		dXSARGS;
4528
4529	1	50	if ((items < 2) \|\| (items > 2)) {
		50
4530	0		SWIG_croak("Usage: kn(nn,x);");
4531			}
4532	1		arg1 = (int) SvIV(ST(0));
4533	1		arg2 = (double) SvNV(ST(1));
4534
4535	1		result = (double)kn(arg1,arg2);
4536
4537	1		ST(argvi) = sv_newmortal();
4538	1		sv_setnv(ST(argvi++), (double) result);
4539	1		XSRETURN(argvi);
4540	0		fail:
4541			;
4542			}
4543	0		croak(Nullch);
4544			}
4545
4546
4547	4		XS(_wrap_md_log) {
4548			{
4549			double arg1 ;
4550			double result;
4551	4		int argvi = 0;
4552	4		dXSARGS;
4553
4554	4	50	if ((items < 1) \|\| (items > 1)) {
		50
4555	0		SWIG_croak("Usage: md_log(x);");
4556			}
4557	4		arg1 = (double) SvNV(ST(0));
4558
4559	4		result = (double)md_log(arg1);
4560
4561	4		ST(argvi) = sv_newmortal();
4562	4		sv_setnv(ST(argvi++), (double) result);
4563	4		XSRETURN(argvi);
4564	0		fail:
4565			;
4566			}
4567	0		croak(Nullch);
4568			}
4569
4570
4571	2		XS(_wrap_md_log10) {
4572			{
4573			double arg1 ;
4574			double result;
4575	2		int argvi = 0;
4576	2		dXSARGS;
4577
4578	2	50	if ((items < 1) \|\| (items > 1)) {
		50
4579	0		SWIG_croak("Usage: md_log10(x);");
4580			}
4581	2		arg1 = (double) SvNV(ST(0));
4582
4583	2		result = (double)md_log10(arg1);
4584
4585	2		ST(argvi) = sv_newmortal();
4586	2		sv_setnv(ST(argvi++), (double) result);
4587	2		XSRETURN(argvi);
4588	0		fail:
4589			;
4590			}
4591	0		croak(Nullch);
4592			}
4593
4594
4595	2		XS(_wrap_md_log2) {
4596			{
4597			double arg1 ;
4598			double result;
4599	2		int argvi = 0;
4600	2		dXSARGS;
4601
4602	2	50	if ((items < 1) \|\| (items > 1)) {
		50
4603	0		SWIG_croak("Usage: md_log2(x);");
4604			}
4605	2		arg1 = (double) SvNV(ST(0));
4606
4607	2		result = (double)md_log2(arg1);
4608
4609	2		ST(argvi) = sv_newmortal();
4610	2		sv_setnv(ST(argvi++), (double) result);
4611	2		XSRETURN(argvi);
4612	0		fail:
4613			;
4614			}
4615	0		croak(Nullch);
4616			}
4617
4618
4619	0		XS(_wrap_lrand) {
4620			{
4621			long result;
4622	0		int argvi = 0;
4623	0		dXSARGS;
4624
4625	0	0	if ((items < 0) \|\| (items > 0)) {
		0
4626	0		SWIG_croak("Usage: lrand();");
4627			}
4628	0		result = (long)lrand();
4629
4630	0		ST(argvi) = sv_newmortal();
4631	0		sv_setiv(ST(argvi++), (IV) result);
4632	0		XSRETURN(argvi);
4633	0		fail:
4634			;
4635			}
4636	0		croak(Nullch);
4637			}
4638
4639
4640	1		XS(_wrap_lsqrt) {
4641			{
4642			long arg1 ;
4643			long result;
4644	1		int argvi = 0;
4645	1		dXSARGS;
4646
4647	1	50	if ((items < 1) \|\| (items > 1)) {
		50
4648	0		SWIG_croak("Usage: lsqrt(x);");
4649			}
4650	1		arg1 = (long) SvIV(ST(0));
4651	1		result = (long)lsqrt(arg1);
4652
4653	1		ST(argvi) = sv_newmortal();
4654	1		sv_setiv(ST(argvi++), (IV) result);
4655	1		XSRETURN(argvi);
4656	0		fail:
4657			;
4658			}
4659	0		croak(Nullch);
4660			}
4661
4662
4663	0		XS(_wrap_mtherr) {
4664			{
4665			char *arg1 ;
4666			int arg2 ;
4667			int result;
4668	0		int argvi = 0;
4669	0		dXSARGS;
4670
4671	0	0	if ((items < 2) \|\| (items > 2)) {
		0
4672	0		SWIG_croak("Usage: mtherr(name,code);");
4673			}
4674	0	0	if (!SvOK((SV*) ST(0))) arg1 = 0;
4675	0		else arg1 = (char *) SvPV(ST(0), PL_na);
4676	0		arg2 = (int) SvIV(ST(1));
4677	0		result = (int)mtherr(arg1,arg2);
4678
4679	0		ST(argvi) = sv_newmortal();
4680	0		sv_setiv(ST(argvi++), (IV) result);
4681	0		XSRETURN(argvi);
4682	0		fail:
4683			;
4684			}
4685	0		croak(Nullch);
4686			}
4687
4688
4689	0		XS(_wrap_polevl) {
4690			{
4691			double arg1 ;
4692	0		void arg2 = (void ) 0 ;
4693			int arg3 ;
4694			double result;
4695	0		int argvi = 0;
4696	0		dXSARGS;
4697
4698	0	0	if ((items < 3) \|\| (items > 3)) {
		0
4699	0		SWIG_croak("Usage: polevl(x,P,N);");
4700			}
4701	0		arg1 = (double) SvNV(ST(0));
4702
4703			{
4704	0	0	if (SWIG_ConvertPtr(ST(1), (void **) &arg2, 0,0) < 0) {
4705	0		SWIG_croak("Type error in argument 2 of polevl. Expected _p_void");
4706			}
4707			}
4708	0		arg3 = (int) SvIV(ST(2));
4709	0		result = (double)polevl(arg1,arg2,arg3);
4710
4711	0		ST(argvi) = sv_newmortal();
4712	0		sv_setnv(ST(argvi++), (double) result);
4713	0		XSRETURN(argvi);
4714	0		fail:
4715			;
4716			}
4717	0		croak(Nullch);
4718			}
4719
4720
4721	0		XS(_wrap_p1evl) {
4722			{
4723			double arg1 ;
4724	0		void arg2 = (void ) 0 ;
4725			int arg3 ;
4726			double result;
4727	0		int argvi = 0;
4728	0		dXSARGS;
4729
4730	0	0	if ((items < 3) \|\| (items > 3)) {
		0
4731	0		SWIG_croak("Usage: p1evl(x,P,N);");
4732			}
4733	0		arg1 = (double) SvNV(ST(0));
4734
4735			{
4736	0	0	if (SWIG_ConvertPtr(ST(1), (void **) &arg2, 0,0) < 0) {
4737	0		SWIG_croak("Type error in argument 2 of p1evl. Expected _p_void");
4738			}
4739			}
4740	0		arg3 = (int) SvIV(ST(2));
4741	0		result = (double)p1evl(arg1,arg2,arg3);
4742
4743	0		ST(argvi) = sv_newmortal();
4744	0		sv_setnv(ST(argvi++), (double) result);
4745	0		XSRETURN(argvi);
4746	0		fail:
4747			;
4748			}
4749	0		croak(Nullch);
4750			}
4751
4752
4753	1		XS(_wrap_nbdtrc) {
4754			{
4755			int arg1 ;
4756			int arg2 ;
4757			double arg3 ;
4758			double result;
4759	1		int argvi = 0;
4760	1		dXSARGS;
4761
4762	1	50	if ((items < 3) \|\| (items > 3)) {
		50
4763	0		SWIG_croak("Usage: nbdtrc(k,n,p);");
4764			}
4765	1		arg1 = (int) SvIV(ST(0));
4766	1		arg2 = (int) SvIV(ST(1));
4767	1		arg3 = (double) SvNV(ST(2));
4768
4769	1		result = (double)nbdtrc(arg1,arg2,arg3);
4770
4771	1		ST(argvi) = sv_newmortal();
4772	1		sv_setnv(ST(argvi++), (double) result);
4773	1		XSRETURN(argvi);
4774	0		fail:
4775			;
4776			}
4777	0		croak(Nullch);
4778			}
4779
4780
4781	1		XS(_wrap_nbdtr) {
4782			{
4783			int arg1 ;
4784			int arg2 ;
4785			double arg3 ;
4786			double result;
4787	1		int argvi = 0;
4788	1		dXSARGS;
4789
4790	1	50	if ((items < 3) \|\| (items > 3)) {
		50
4791	0		SWIG_croak("Usage: nbdtr(k,n,p);");
4792			}
4793	1		arg1 = (int) SvIV(ST(0));
4794	1		arg2 = (int) SvIV(ST(1));
4795	1		arg3 = (double) SvNV(ST(2));
4796
4797	1		result = (double)nbdtr(arg1,arg2,arg3);
4798
4799	1		ST(argvi) = sv_newmortal();
4800	1		sv_setnv(ST(argvi++), (double) result);
4801	1		XSRETURN(argvi);
4802	0		fail:
4803			;
4804			}
4805	0		croak(Nullch);
4806			}
4807
4808
4809	1		XS(_wrap_nbdtri) {
4810			{
4811			int arg1 ;
4812			int arg2 ;
4813			double arg3 ;
4814			double result;
4815	1		int argvi = 0;
4816	1		dXSARGS;
4817
4818	1	50	if ((items < 3) \|\| (items > 3)) {
		50
4819	0		SWIG_croak("Usage: nbdtri(k,n,p);");
4820			}
4821	1		arg1 = (int) SvIV(ST(0));
4822	1		arg2 = (int) SvIV(ST(1));
4823	1		arg3 = (double) SvNV(ST(2));
4824
4825	1		result = (double)nbdtri(arg1,arg2,arg3);
4826
4827	1		ST(argvi) = sv_newmortal();
4828	1		sv_setnv(ST(argvi++), (double) result);
4829	1		XSRETURN(argvi);
4830	0		fail:
4831			;
4832			}
4833	0		croak(Nullch);
4834			}
4835
4836
4837	1		XS(_wrap_ndtr) {
4838			{
4839			double arg1 ;
4840			double result;
4841	1		int argvi = 0;
4842	1		dXSARGS;
4843
4844	1	50	if ((items < 1) \|\| (items > 1)) {
		50
4845	0		SWIG_croak("Usage: ndtr(a);");
4846			}
4847	1		arg1 = (double) SvNV(ST(0));
4848
4849	1		result = (double)ndtr(arg1);
4850
4851	1		ST(argvi) = sv_newmortal();
4852	1		sv_setnv(ST(argvi++), (double) result);
4853	1		XSRETURN(argvi);
4854	0		fail:
4855			;
4856			}
4857	0		croak(Nullch);
4858			}
4859
4860
4861	1		XS(_wrap_md_erfc) {
4862			{
4863			double arg1 ;
4864			double result;
4865	1		int argvi = 0;
4866	1		dXSARGS;
4867
4868	1	50	if ((items < 1) \|\| (items > 1)) {
		50
4869	0		SWIG_croak("Usage: md_erfc(a);");
4870			}
4871	1		arg1 = (double) SvNV(ST(0));
4872
4873	1		result = (double)md_erfc(arg1);
4874
4875	1		ST(argvi) = sv_newmortal();
4876	1		sv_setnv(ST(argvi++), (double) result);
4877	1		XSRETURN(argvi);
4878	0		fail:
4879			;
4880			}
4881	0		croak(Nullch);
4882			}
4883
4884
4885	2		XS(_wrap_md_erf) {
4886			{
4887			double arg1 ;
4888			double result;
4889	2		int argvi = 0;
4890	2		dXSARGS;
4891
4892	2	50	if ((items < 1) \|\| (items > 1)) {
		50
4893	0		SWIG_croak("Usage: md_erf(x);");
4894			}
4895	2		arg1 = (double) SvNV(ST(0));
4896
4897	2		result = (double)md_erf(arg1);
4898
4899	2		ST(argvi) = sv_newmortal();
4900	2		sv_setnv(ST(argvi++), (double) result);
4901	2		XSRETURN(argvi);
4902	0		fail:
4903			;
4904			}
4905	0		croak(Nullch);
4906			}
4907
4908
4909	1		XS(_wrap_ndtri) {
4910			{
4911			double arg1 ;
4912			double result;
4913	1		int argvi = 0;
4914	1		dXSARGS;
4915
4916	1	50	if ((items < 1) \|\| (items > 1)) {
		50
4917	0		SWIG_croak("Usage: ndtri(md_y0);");
4918			}
4919	1		arg1 = (double) SvNV(ST(0));
4920
4921	1		result = (double)ndtri(arg1);
4922
4923	1		ST(argvi) = sv_newmortal();
4924	1		sv_setnv(ST(argvi++), (double) result);
4925	1		XSRETURN(argvi);
4926	0		fail:
4927			;
4928			}
4929	0		croak(Nullch);
4930			}
4931
4932
4933	1		XS(_wrap_pdtrc) {
4934			{
4935			int arg1 ;
4936			double arg2 ;
4937			double result;
4938	1		int argvi = 0;
4939	1		dXSARGS;
4940
4941	1	50	if ((items < 2) \|\| (items > 2)) {
		50
4942	0		SWIG_croak("Usage: pdtrc(k,m);");
4943			}
4944	1		arg1 = (int) SvIV(ST(0));
4945	1		arg2 = (double) SvNV(ST(1));
4946
4947	1		result = (double)pdtrc(arg1,arg2);
4948
4949	1		ST(argvi) = sv_newmortal();
4950	1		sv_setnv(ST(argvi++), (double) result);
4951	1		XSRETURN(argvi);
4952	0		fail:
4953			;
4954			}
4955	0		croak(Nullch);
4956			}
4957
4958
4959	1		XS(_wrap_pdtr) {
4960			{
4961			int arg1 ;
4962			double arg2 ;
4963			double result;
4964	1		int argvi = 0;
4965	1		dXSARGS;
4966
4967	1	50	if ((items < 2) \|\| (items > 2)) {
		50
4968	0		SWIG_croak("Usage: pdtr(k,m);");
4969			}
4970	1		arg1 = (int) SvIV(ST(0));
4971	1		arg2 = (double) SvNV(ST(1));
4972
4973	1		result = (double)pdtr(arg1,arg2);
4974
4975	1		ST(argvi) = sv_newmortal();
4976	1		sv_setnv(ST(argvi++), (double) result);
4977	1		XSRETURN(argvi);
4978	0		fail:
4979			;
4980			}
4981	0		croak(Nullch);
4982			}
4983
4984
4985	1		XS(_wrap_pdtri) {
4986			{
4987			int arg1 ;
4988			double arg2 ;
4989			double result;
4990	1		int argvi = 0;
4991	1		dXSARGS;
4992
4993	1	50	if ((items < 2) \|\| (items > 2)) {
		50
4994	0		SWIG_croak("Usage: pdtri(k,y);");
4995			}
4996	1		arg1 = (int) SvIV(ST(0));
4997	1		arg2 = (double) SvNV(ST(1));
4998
4999	1		result = (double)pdtri(arg1,arg2);
5000
5001	1		ST(argvi) = sv_newmortal();
5002	1		sv_setnv(ST(argvi++), (double) result);
5003	1		XSRETURN(argvi);
5004	0		fail:
5005			;
5006			}
5007	0		croak(Nullch);
5008			}
5009
5010
5011	5		XS(_wrap_md_pow) {
5012			{
5013			double arg1 ;
5014			double arg2 ;
5015			double result;
5016	5		int argvi = 0;
5017	5		dXSARGS;
5018
5019	5	50	if ((items < 2) \|\| (items > 2)) {
		50
5020	0		SWIG_croak("Usage: md_pow(x,y);");
5021			}
5022	5		arg1 = (double) SvNV(ST(0));
5023
5024	5		arg2 = (double) SvNV(ST(1));
5025
5026	5		result = (double)md_pow(arg1,arg2);
5027
5028	5		ST(argvi) = sv_newmortal();
5029	5		sv_setnv(ST(argvi++), (double) result);
5030	5		XSRETURN(argvi);
5031	0		fail:
5032			;
5033			}
5034	0		croak(Nullch);
5035			}
5036
5037
5038	1		XS(_wrap_md_powi) {
5039			{
5040			double arg1 ;
5041			int arg2 ;
5042			double result;
5043	1		int argvi = 0;
5044	1		dXSARGS;
5045
5046	1	50	if ((items < 2) \|\| (items > 2)) {
		50
5047	0		SWIG_croak("Usage: md_powi(x,nn);");
5048			}
5049	1		arg1 = (double) SvNV(ST(0));
5050
5051	1		arg2 = (int) SvIV(ST(1));
5052	1		result = (double)md_powi(arg1,arg2);
5053
5054	1		ST(argvi) = sv_newmortal();
5055	1		sv_setnv(ST(argvi++), (double) result);
5056	1		XSRETURN(argvi);
5057	0		fail:
5058			;
5059			}
5060	0		croak(Nullch);
5061			}
5062
5063
5064	1		XS(_wrap_psi) {
5065			{
5066			double arg1 ;
5067			double result;
5068	1		int argvi = 0;
5069	1		dXSARGS;
5070
5071	1	50	if ((items < 1) \|\| (items > 1)) {
		50
5072	0		SWIG_croak("Usage: psi(x);");
5073			}
5074	1		arg1 = (double) SvNV(ST(0));
5075
5076	1		result = (double)psi(arg1);
5077
5078	1		ST(argvi) = sv_newmortal();
5079	1		sv_setnv(ST(argvi++), (double) result);
5080	1		XSRETURN(argvi);
5081	0		fail:
5082			;
5083			}
5084	0		croak(Nullch);
5085			}
5086
5087
5088	1		XS(_wrap_rgamma) {
5089			{
5090			double arg1 ;
5091			double result;
5092	1		int argvi = 0;
5093	1		dXSARGS;
5094
5095	1	50	if ((items < 1) \|\| (items > 1)) {
		50
5096	0		SWIG_croak("Usage: rgamma(x);");
5097			}
5098	1		arg1 = (double) SvNV(ST(0));
5099
5100	1		result = (double)rgamma(arg1);
5101
5102	1		ST(argvi) = sv_newmortal();
5103	1		sv_setnv(ST(argvi++), (double) result);
5104	1		XSRETURN(argvi);
5105	0		fail:
5106			;
5107			}
5108	0		croak(Nullch);
5109			}
5110
5111
5112	2		XS(_wrap_md_round) {
5113			{
5114			double arg1 ;
5115			double result;
5116	2		int argvi = 0;
5117	2		dXSARGS;
5118
5119	2	50	if ((items < 1) \|\| (items > 1)) {
		50
5120	0		SWIG_croak("Usage: md_round(x);");
5121			}
5122	2		arg1 = (double) SvNV(ST(0));
5123
5124	2		result = (double)md_round(arg1);
5125
5126	2		ST(argvi) = sv_newmortal();
5127	2		sv_setnv(ST(argvi++), (double) result);
5128	2		XSRETURN(argvi);
5129	0		fail:
5130			;
5131			}
5132	0		croak(Nullch);
5133			}
5134
5135
5136	1		XS(_wrap_shichi) {
5137			{
5138			double arg1 ;
5139	1		double arg2 = (double ) 0 ;
5140	1		double arg3 = (double ) 0 ;
5141			int result;
5142			double temp2 ;
5143			double temp3 ;
5144	1		int argvi = 0;
5145	1		dXSARGS;
5146
5147	1		arg2 = &temp2;
5148	1		arg3 = &temp3;
5149	1	50	if ((items < 1) \|\| (items > 1)) {
		50
5150	0		SWIG_croak("Usage: shichi(x);");
5151			}
5152	1		arg1 = (double) SvNV(ST(0));
5153
5154	1		result = (int)shichi(arg1,arg2,arg3);
5155
5156	1		ST(argvi) = sv_newmortal();
5157	1		sv_setiv(ST(argvi++), (IV) result);
5158			{
5159	1	50	if (argvi >= items) {
5160	1	50	EXTEND(sp,1);
5161			}
5162	1		ST(argvi) = sv_newmortal();
5163	1		sv_setnv(ST(argvi),(double) *(arg2));
5164	1		argvi++;
5165			}
5166			{
5167	1	50	if (argvi >= items) {
5168	1	50	EXTEND(sp,1);
5169			}
5170	1		ST(argvi) = sv_newmortal();
5171	1		sv_setnv(ST(argvi),(double) *(arg3));
5172	1		argvi++;
5173			}
5174	1		XSRETURN(argvi);
5175	0		fail:
5176			;
5177			}
5178	0		croak(Nullch);
5179			}
5180
5181
5182	1		XS(_wrap_sici) {
5183			{
5184			double arg1 ;
5185	1		double arg2 = (double ) 0 ;
5186	1		double arg3 = (double ) 0 ;
5187			int result;
5188			double temp2 ;
5189			double temp3 ;
5190	1		int argvi = 0;
5191	1		dXSARGS;
5192
5193	1		arg2 = &temp2;
5194	1		arg3 = &temp3;
5195	1	50	if ((items < 1) \|\| (items > 1)) {
		50
5196	0		SWIG_croak("Usage: sici(x);");
5197			}
5198	1		arg1 = (double) SvNV(ST(0));
5199
5200	1		result = (int)sici(arg1,arg2,arg3);
5201
5202	1		ST(argvi) = sv_newmortal();
5203	1		sv_setiv(ST(argvi++), (IV) result);
5204			{
5205	1	50	if (argvi >= items) {
5206	1	50	EXTEND(sp,1);
5207			}
5208	1		ST(argvi) = sv_newmortal();
5209	1		sv_setnv(ST(argvi),(double) *(arg2));
5210	1		argvi++;
5211			}
5212			{
5213	1	50	if (argvi >= items) {
5214	1	50	EXTEND(sp,1);
5215			}
5216	1		ST(argvi) = sv_newmortal();
5217	1		sv_setnv(ST(argvi),(double) *(arg3));
5218	1		argvi++;
5219			}
5220	1		XSRETURN(argvi);
5221	0		fail:
5222			;
5223			}
5224	0		croak(Nullch);
5225			}
5226
5227
5228	13		XS(_wrap_md_sin) {
5229			{
5230			double arg1 ;
5231			double result;
5232	13		int argvi = 0;
5233	13		dXSARGS;
5234
5235	13	50	if ((items < 1) \|\| (items > 1)) {
		50
5236	0		SWIG_croak("Usage: md_sin(x);");
5237			}
5238	13		arg1 = (double) SvNV(ST(0));
5239
5240	13		result = (double)md_sin(arg1);
5241
5242	13		ST(argvi) = sv_newmortal();
5243	13		sv_setnv(ST(argvi++), (double) result);
5244	13		XSRETURN(argvi);
5245	0		fail:
5246			;
5247			}
5248	0		croak(Nullch);
5249			}
5250
5251
5252	2626		XS(_wrap_md_cos) {
5253			{
5254			double arg1 ;
5255			double result;
5256	2626		int argvi = 0;
5257	2626		dXSARGS;
5258
5259	2626	50	if ((items < 1) \|\| (items > 1)) {
		50
5260	0		SWIG_croak("Usage: md_cos(x);");
5261			}
5262	2626		arg1 = (double) SvNV(ST(0));
5263
5264	2626		result = (double)md_cos(arg1);
5265
5266	2626		ST(argvi) = sv_newmortal();
5267	2626		sv_setnv(ST(argvi++), (double) result);
5268	2626		XSRETURN(argvi);
5269	0		fail:
5270			;
5271			}
5272	0		croak(Nullch);
5273			}
5274
5275
5276	1		XS(_wrap_radian) {
5277			{
5278			double arg1 ;
5279			double arg2 ;
5280			double arg3 ;
5281			double result;
5282	1		int argvi = 0;
5283	1		dXSARGS;
5284
5285	1	50	if ((items < 3) \|\| (items > 3)) {
		50
5286	0		SWIG_croak("Usage: radian(d,m,s);");
5287			}
5288	1		arg1 = (double) SvNV(ST(0));
5289
5290	1		arg2 = (double) SvNV(ST(1));
5291
5292	1		arg3 = (double) SvNV(ST(2));
5293
5294	1		result = (double)radian(arg1,arg2,arg3);
5295
5296	1		ST(argvi) = sv_newmortal();
5297	1		sv_setnv(ST(argvi++), (double) result);
5298	1		XSRETURN(argvi);
5299	0		fail:
5300			;
5301			}
5302	0		croak(Nullch);
5303			}
5304
5305
5306	1		XS(_wrap_md_sindg) {
5307			{
5308			double arg1 ;
5309			double result;
5310	1		int argvi = 0;
5311	1		dXSARGS;
5312
5313	1	50	if ((items < 1) \|\| (items > 1)) {
		50
5314	0		SWIG_croak("Usage: md_sindg(x);");
5315			}
5316	1		arg1 = (double) SvNV(ST(0));
5317
5318	1		result = (double)md_sindg(arg1);
5319
5320	1		ST(argvi) = sv_newmortal();
5321	1		sv_setnv(ST(argvi++), (double) result);
5322	1		XSRETURN(argvi);
5323	0		fail:
5324			;
5325			}
5326	0		croak(Nullch);
5327			}
5328
5329
5330	1		XS(_wrap_cosdg) {
5331			{
5332			double arg1 ;
5333			double result;
5334	1		int argvi = 0;
5335	1		dXSARGS;
5336
5337	1	50	if ((items < 1) \|\| (items > 1)) {
		50
5338	0		SWIG_croak("Usage: cosdg(x);");
5339			}
5340	1		arg1 = (double) SvNV(ST(0));
5341
5342	1		result = (double)cosdg(arg1);
5343
5344	1		ST(argvi) = sv_newmortal();
5345	1		sv_setnv(ST(argvi++), (double) result);
5346	1		XSRETURN(argvi);
5347	0		fail:
5348			;
5349			}
5350	0		croak(Nullch);
5351			}
5352
5353
5354	8		XS(_wrap_md_sinh) {
5355			{
5356			double arg1 ;
5357			double result;
5358	8		int argvi = 0;
5359	8		dXSARGS;
5360
5361	8	50	if ((items < 1) \|\| (items > 1)) {
		50
5362	0		SWIG_croak("Usage: md_sinh(x);");
5363			}
5364	8		arg1 = (double) SvNV(ST(0));
5365
5366	8		result = (double)md_sinh(arg1);
5367
5368	8		ST(argvi) = sv_newmortal();
5369	8		sv_setnv(ST(argvi++), (double) result);
5370	8		XSRETURN(argvi);
5371	0		fail:
5372			;
5373			}
5374	0		croak(Nullch);
5375			}
5376
5377
5378	1		XS(_wrap_spence) {
5379			{
5380			double arg1 ;
5381			double result;
5382	1		int argvi = 0;
5383	1		dXSARGS;
5384
5385	1	50	if ((items < 1) \|\| (items > 1)) {
		50
5386	0		SWIG_croak("Usage: spence(x);");
5387			}
5388	1		arg1 = (double) SvNV(ST(0));
5389
5390	1		result = (double)spence(arg1);
5391
5392	1		ST(argvi) = sv_newmortal();
5393	1		sv_setnv(ST(argvi++), (double) result);
5394	1		XSRETURN(argvi);
5395	0		fail:
5396			;
5397			}
5398	0		croak(Nullch);
5399			}
5400
5401
5402	7		XS(_wrap_sqrt) {
5403			{
5404			double arg1 ;
5405			double result;
5406	7		int argvi = 0;
5407	7		dXSARGS;
5408
5409	7	50	if ((items < 1) \|\| (items > 1)) {
		50
5410	0		SWIG_croak("Usage: sqrt(x);");
5411			}
5412	7		arg1 = (double) SvNV(ST(0));
5413
5414	7		result = (double)sqrt(arg1);
5415
5416	7		ST(argvi) = sv_newmortal();
5417	7		sv_setnv(ST(argvi++), (double) result);
5418	7		XSRETURN(argvi);
5419	0		fail:
5420			;
5421			}
5422	0		croak(Nullch);
5423			}
5424
5425
5426	1		XS(_wrap_stdtr) {
5427			{
5428			int arg1 ;
5429			double arg2 ;
5430			double result;
5431	1		int argvi = 0;
5432	1		dXSARGS;
5433
5434	1	50	if ((items < 2) \|\| (items > 2)) {
		50
5435	0		SWIG_croak("Usage: stdtr(k,t);");
5436			}
5437	1		arg1 = (int) SvIV(ST(0));
5438	1		arg2 = (double) SvNV(ST(1));
5439
5440	1		result = (double)stdtr(arg1,arg2);
5441
5442	1		ST(argvi) = sv_newmortal();
5443	1		sv_setnv(ST(argvi++), (double) result);
5444	1		XSRETURN(argvi);
5445	0		fail:
5446			;
5447			}
5448	0		croak(Nullch);
5449			}
5450
5451
5452	1		XS(_wrap_stdtri) {
5453			{
5454			int arg1 ;
5455			double arg2 ;
5456			double result;
5457	1		int argvi = 0;
5458	1		dXSARGS;
5459
5460	1	50	if ((items < 2) \|\| (items > 2)) {
		50
5461	0		SWIG_croak("Usage: stdtri(k,p);");
5462			}
5463	1		arg1 = (int) SvIV(ST(0));
5464	1		arg2 = (double) SvNV(ST(1));
5465
5466	1		result = (double)stdtri(arg1,arg2);
5467
5468	1		ST(argvi) = sv_newmortal();
5469	1		sv_setnv(ST(argvi++), (double) result);
5470	1		XSRETURN(argvi);
5471	0		fail:
5472			;
5473			}
5474	0		croak(Nullch);
5475			}
5476
5477
5478	0		XS(_wrap_onef2) {
5479			{
5480			double arg1 ;
5481			double arg2 ;
5482			double arg3 ;
5483			double arg4 ;
5484	0		double arg5 = (double ) 0 ;
5485			double result;
5486			double temp5 ;
5487	0		int argvi = 0;
5488	0		dXSARGS;
5489
5490	0		arg5 = &temp5;
5491	0	0	if ((items < 4) \|\| (items > 4)) {
		0
5492	0		SWIG_croak("Usage: onef2(a,b,c,x);");
5493			}
5494	0		arg1 = (double) SvNV(ST(0));
5495
5496	0		arg2 = (double) SvNV(ST(1));
5497
5498	0		arg3 = (double) SvNV(ST(2));
5499
5500	0		arg4 = (double) SvNV(ST(3));
5501
5502	0		result = (double)onef2(arg1,arg2,arg3,arg4,arg5);
5503
5504	0		ST(argvi) = sv_newmortal();
5505	0		sv_setnv(ST(argvi++), (double) result);
5506			{
5507	0	0	if (argvi >= items) {
5508	0	0	EXTEND(sp,1);
5509			}
5510	0		ST(argvi) = sv_newmortal();
5511	0		sv_setnv(ST(argvi),(double) *(arg5));
5512	0		argvi++;
5513			}
5514	0		XSRETURN(argvi);
5515	0		fail:
5516			;
5517			}
5518	0		croak(Nullch);
5519			}
5520
5521
5522	0		XS(_wrap_threef0) {
5523			{
5524			double arg1 ;
5525			double arg2 ;
5526			double arg3 ;
5527			double arg4 ;
5528	0		double arg5 = (double ) 0 ;
5529			double result;
5530			double temp5 ;
5531	0		int argvi = 0;
5532	0		dXSARGS;
5533
5534	0		arg5 = &temp5;
5535	0	0	if ((items < 4) \|\| (items > 4)) {
		0
5536	0		SWIG_croak("Usage: threef0(a,b,c,x);");
5537			}
5538	0		arg1 = (double) SvNV(ST(0));
5539
5540	0		arg2 = (double) SvNV(ST(1));
5541
5542	0		arg3 = (double) SvNV(ST(2));
5543
5544	0		arg4 = (double) SvNV(ST(3));
5545
5546	0		result = (double)threef0(arg1,arg2,arg3,arg4,arg5);
5547
5548	0		ST(argvi) = sv_newmortal();
5549	0		sv_setnv(ST(argvi++), (double) result);
5550			{
5551	0	0	if (argvi >= items) {
5552	0	0	EXTEND(sp,1);
5553			}
5554	0		ST(argvi) = sv_newmortal();
5555	0		sv_setnv(ST(argvi),(double) *(arg5));
5556	0		argvi++;
5557			}
5558	0		XSRETURN(argvi);
5559	0		fail:
5560			;
5561			}
5562	0		croak(Nullch);
5563			}
5564
5565
5566	1		XS(_wrap_struve) {
5567			{
5568			double arg1 ;
5569			double arg2 ;
5570			double result;
5571	1		int argvi = 0;
5572	1		dXSARGS;
5573
5574	1	50	if ((items < 2) \|\| (items > 2)) {
		50
5575	0		SWIG_croak("Usage: struve(v,x);");
5576			}
5577	1		arg1 = (double) SvNV(ST(0));
5578
5579	1		arg2 = (double) SvNV(ST(1));
5580
5581	1		result = (double)struve(arg1,arg2);
5582
5583	1		ST(argvi) = sv_newmortal();
5584	1		sv_setnv(ST(argvi++), (double) result);
5585	1		XSRETURN(argvi);
5586	0		fail:
5587			;
5588			}
5589	0		croak(Nullch);
5590			}
5591
5592
5593	1		XS(_wrap_md_tan) {
5594			{
5595			double arg1 ;
5596			double result;
5597	1		int argvi = 0;
5598	1		dXSARGS;
5599
5600	1	50	if ((items < 1) \|\| (items > 1)) {
		50
5601	0		SWIG_croak("Usage: md_tan(x);");
5602			}
5603	1		arg1 = (double) SvNV(ST(0));
5604
5605	1		result = (double)md_tan(arg1);
5606
5607	1		ST(argvi) = sv_newmortal();
5608	1		sv_setnv(ST(argvi++), (double) result);
5609	1		XSRETURN(argvi);
5610	0		fail:
5611			;
5612			}
5613	0		croak(Nullch);
5614			}
5615
5616
5617	1		XS(_wrap_cot) {
5618			{
5619			double arg1 ;
5620			double result;
5621	1		int argvi = 0;
5622	1		dXSARGS;
5623
5624	1	50	if ((items < 1) \|\| (items > 1)) {
		50
5625	0		SWIG_croak("Usage: cot(x);");
5626			}
5627	1		arg1 = (double) SvNV(ST(0));
5628
5629	1		result = (double)cot(arg1);
5630
5631	1		ST(argvi) = sv_newmortal();
5632	1		sv_setnv(ST(argvi++), (double) result);
5633	1		XSRETURN(argvi);
5634	0		fail:
5635			;
5636			}
5637	0		croak(Nullch);
5638			}
5639
5640
5641	1		XS(_wrap_tandg) {
5642			{
5643			double arg1 ;
5644			double result;
5645	1		int argvi = 0;
5646	1		dXSARGS;
5647
5648	1	50	if ((items < 1) \|\| (items > 1)) {
		50
5649	0		SWIG_croak("Usage: tandg(x);");
5650			}
5651	1		arg1 = (double) SvNV(ST(0));
5652
5653	1		result = (double)tandg(arg1);
5654
5655	1		ST(argvi) = sv_newmortal();
5656	1		sv_setnv(ST(argvi++), (double) result);
5657	1		XSRETURN(argvi);
5658	0		fail:
5659			;
5660			}
5661	0		croak(Nullch);
5662			}
5663
5664
5665	1		XS(_wrap_cotdg) {
5666			{
5667			double arg1 ;
5668			double result;
5669	1		int argvi = 0;
5670	1		dXSARGS;
5671
5672	1	50	if ((items < 1) \|\| (items > 1)) {
		50
5673	0		SWIG_croak("Usage: cotdg(x);");
5674			}
5675	1		arg1 = (double) SvNV(ST(0));
5676
5677	1		result = (double)cotdg(arg1);
5678
5679	1		ST(argvi) = sv_newmortal();
5680	1		sv_setnv(ST(argvi++), (double) result);
5681	1		XSRETURN(argvi);
5682	0		fail:
5683			;
5684			}
5685	0		croak(Nullch);
5686			}
5687
5688
5689	1		XS(_wrap_md_tanh) {
5690			{
5691			double arg1 ;
5692			double result;
5693	1		int argvi = 0;
5694	1		dXSARGS;
5695
5696	1	50	if ((items < 1) \|\| (items > 1)) {
		50
5697	0		SWIG_croak("Usage: md_tanh(x);");
5698			}
5699	1		arg1 = (double) SvNV(ST(0));
5700
5701	1		result = (double)md_tanh(arg1);
5702
5703	1		ST(argvi) = sv_newmortal();
5704	1		sv_setnv(ST(argvi++), (double) result);
5705	1		XSRETURN(argvi);
5706	0		fail:
5707			;
5708			}
5709	0		croak(Nullch);
5710			}
5711
5712
5713	1		XS(_wrap_md_log1p) {
5714			{
5715			double arg1 ;
5716			double result;
5717	1		int argvi = 0;
5718	1		dXSARGS;
5719
5720	1	50	if ((items < 1) \|\| (items > 1)) {
		50
5721	0		SWIG_croak("Usage: md_log1p(x);");
5722			}
5723	1		arg1 = (double) SvNV(ST(0));
5724
5725	1		result = (double)md_log1p(arg1);
5726
5727	1		ST(argvi) = sv_newmortal();
5728	1		sv_setnv(ST(argvi++), (double) result);
5729	1		XSRETURN(argvi);
5730	0		fail:
5731			;
5732			}
5733	0		croak(Nullch);
5734			}
5735
5736
5737	1		XS(_wrap_expm1) {
5738			{
5739			double arg1 ;
5740			double result;
5741	1		int argvi = 0;
5742	1		dXSARGS;
5743
5744	1	50	if ((items < 1) \|\| (items > 1)) {
		50
5745	0		SWIG_croak("Usage: expm1(x);");
5746			}
5747	1		arg1 = (double) SvNV(ST(0));
5748
5749	1		result = (double)expm1(arg1);
5750
5751	1		ST(argvi) = sv_newmortal();
5752	1		sv_setnv(ST(argvi++), (double) result);
5753	1		XSRETURN(argvi);
5754	0		fail:
5755			;
5756			}
5757	0		croak(Nullch);
5758			}
5759
5760
5761	1		XS(_wrap_cosm1) {
5762			{
5763			double arg1 ;
5764			double result;
5765	1		int argvi = 0;
5766	1		dXSARGS;
5767
5768	1	50	if ((items < 1) \|\| (items > 1)) {
		50
5769	0		SWIG_croak("Usage: cosm1(x);");
5770			}
5771	1		arg1 = (double) SvNV(ST(0));
5772
5773	1		result = (double)cosm1(arg1);
5774
5775	1		ST(argvi) = sv_newmortal();
5776	1		sv_setnv(ST(argvi++), (double) result);
5777	1		XSRETURN(argvi);
5778	0		fail:
5779			;
5780			}
5781	0		croak(Nullch);
5782			}
5783
5784
5785	2		XS(_wrap_md_yn) {
5786			{
5787			int arg1 ;
5788			double arg2 ;
5789			double result;
5790	2		int argvi = 0;
5791	2		dXSARGS;
5792
5793	2	50	if ((items < 2) \|\| (items > 2)) {
		50
5794	0		SWIG_croak("Usage: md_yn(n,x);");
5795			}
5796	2		arg1 = (int) SvIV(ST(0));
5797	2		arg2 = (double) SvNV(ST(1));
5798
5799	2		result = (double)md_yn(arg1,arg2);
5800
5801	2		ST(argvi) = sv_newmortal();
5802	2		sv_setnv(ST(argvi++), (double) result);
5803	2		XSRETURN(argvi);
5804	0		fail:
5805			;
5806			}
5807	0		croak(Nullch);
5808			}
5809
5810
5811	2		XS(_wrap_yv) {
5812			{
5813			double arg1 ;
5814			double arg2 ;
5815			double result;
5816	2		int argvi = 0;
5817	2		dXSARGS;
5818
5819	2	50	if ((items < 2) \|\| (items > 2)) {
		50
5820	0		SWIG_croak("Usage: yv(n,x);");
5821			}
5822	2		arg1 = (double) SvNV(ST(0));
5823
5824	2		arg2 = (double) SvNV(ST(1));
5825
5826	2		result = (double)yv(arg1,arg2);
5827
5828	2		ST(argvi) = sv_newmortal();
5829	2		sv_setnv(ST(argvi++), (double) result);
5830	2		XSRETURN(argvi);
5831	0		fail:
5832			;
5833			}
5834	0		croak(Nullch);
5835			}
5836
5837
5838	1		XS(_wrap_zeta) {
5839			{
5840			double arg1 ;
5841			double arg2 ;
5842			double result;
5843	1		int argvi = 0;
5844	1		dXSARGS;
5845
5846	1	50	if ((items < 2) \|\| (items > 2)) {
		50
5847	0		SWIG_croak("Usage: zeta(x,q);");
5848			}
5849	1		arg1 = (double) SvNV(ST(0));
5850
5851	1		arg2 = (double) SvNV(ST(1));
5852
5853	1		result = (double)zeta(arg1,arg2);
5854
5855	1		ST(argvi) = sv_newmortal();
5856	1		sv_setnv(ST(argvi++), (double) result);
5857	1		XSRETURN(argvi);
5858	0		fail:
5859			;
5860			}
5861	0		croak(Nullch);
5862			}
5863
5864
5865	1		XS(_wrap_zetac) {
5866			{
5867			double arg1 ;
5868			double result;
5869	1		int argvi = 0;
5870	1		dXSARGS;
5871
5872	1	50	if ((items < 1) \|\| (items > 1)) {
		50
5873	0		SWIG_croak("Usage: zetac(x);");
5874			}
5875	1		arg1 = (double) SvNV(ST(0));
5876
5877	1		result = (double)zetac(arg1);
5878
5879	1		ST(argvi) = sv_newmortal();
5880	1		sv_setnv(ST(argvi++), (double) result);
5881	1		XSRETURN(argvi);
5882	0		fail:
5883			;
5884			}
5885	0		croak(Nullch);
5886			}
5887
5888
5889	0		XS(_wrap_drand) {
5890			{
5891	0		double arg1 = (double ) 0 ;
5892			int result;
5893			double temp1 ;
5894	0		int argvi = 0;
5895	0		dXSARGS;
5896
5897	0		arg1 = &temp1;
5898	0	0	if ((items < 0) \|\| (items > 0)) {
		0
5899	0		SWIG_croak("Usage: drand();");
5900			}
5901	0		result = (int)drand(arg1);
5902
5903	0		ST(argvi) = sv_newmortal();
5904	0		sv_setiv(ST(argvi++), (IV) result);
5905			{
5906	0	0	if (argvi >= items) {
5907	0	0	EXTEND(sp,1);
5908			}
5909	0		ST(argvi) = sv_newmortal();
5910	0		sv_setnv(ST(argvi),(double) *(arg1));
5911	0		argvi++;
5912			}
5913	0		XSRETURN(argvi);
5914	0		fail:
5915			;
5916			}
5917	0		croak(Nullch);
5918			}
5919
5920
5921	1		XS(_wrap_plancki) {
5922			{
5923			double arg1 ;
5924			double arg2 ;
5925			double result;
5926	1		int argvi = 0;
5927	1		dXSARGS;
5928
5929	1	50	if ((items < 2) \|\| (items > 2)) {
		50
5930	0		SWIG_croak("Usage: plancki(w,T);");
5931			}
5932	1		arg1 = (double) SvNV(ST(0));
5933
5934	1		arg2 = (double) SvNV(ST(1));
5935
5936	1		result = (double)plancki(arg1,arg2);
5937
5938	1		ST(argvi) = sv_newmortal();
5939	1		sv_setnv(ST(argvi++), (double) result);
5940	1		XSRETURN(argvi);
5941	0		fail:
5942			;
5943			}
5944	0		croak(Nullch);
5945			}
5946
5947
5948	1		XS(_wrap_polini) {
5949			{
5950			int arg1 ;
5951	1		int argvi = 0;
5952	1		dXSARGS;
5953
5954	1	50	if ((items < 1) \|\| (items > 1)) {
		50
5955	0		SWIG_croak("Usage: polini(maxdeg);");
5956			}
5957	1		arg1 = (int) SvIV(ST(0));
5958	1		polini(arg1);
5959
5960
5961	1		XSRETURN(argvi);
5962	0		fail:
5963			;
5964			}
5965	0		croak(Nullch);
5966			}
5967
5968
5969	1		XS(_wrap_polmul) {
5970			{
5971			arr1d arg1 ;
5972			int arg2 ;
5973			arr1d arg3 ;
5974			int arg4 ;
5975			arr1d arg5 ;
5976	1		int argvi = 0;
5977			SV * _saved[3] ;
5978	1		dXSARGS;
5979
5980	1	50	if ((items < 5) \|\| (items > 5)) {
		50
5981	0		SWIG_croak("Usage: polmul(A,na,B,nb,C);");
5982			}
5983			{
5984	1		arg1 = (double *) pack1D(ST(0),'d');
5985			}
5986	1		arg2 = (int) SvIV(ST(1));
5987			{
5988	1		arg3 = (double *) pack1D(ST(2),'d');
5989			}
5990	1		arg4 = (int) SvIV(ST(3));
5991			{
5992	1		arg5 = (double *) pack1D(ST(4),'d');
5993			}
5994	1		_saved[0] = ST(0);
5995	1		_saved[1] = ST(2);
5996	1		_saved[2] = ST(4);
5997	1		polmul(arg1,arg2,arg3,arg4,arg5);
5998
5999
6000			{
6001	1		unpack1D((SV)_saved[0], (void )arg1, 'd', 0);
6002			}
6003			{
6004	1		unpack1D((SV)_saved[1], (void )arg3, 'd', 0);
6005			}
6006			{
6007	1		unpack1D((SV)_saved[2], (void )arg5, 'd', 0);
6008			}
6009	1		XSRETURN(argvi);
6010	0		fail:
6011			;
6012			}
6013	0		croak(Nullch);
6014			}
6015
6016
6017	1		XS(_wrap_poldiv) {
6018			{
6019			arr1d arg1 ;
6020			int arg2 ;
6021			arr1d arg3 ;
6022			int arg4 ;
6023			arr1d arg5 ;
6024			int result;
6025	1		int argvi = 0;
6026			SV * _saved[3] ;
6027	1		dXSARGS;
6028
6029	1	50	if ((items < 5) \|\| (items > 5)) {
		50
6030	0		SWIG_croak("Usage: poldiv(A,na,B,nb,C);");
6031			}
6032			{
6033	1		arg1 = (double *) pack1D(ST(0),'d');
6034			}
6035	1		arg2 = (int) SvIV(ST(1));
6036			{
6037	1		arg3 = (double *) pack1D(ST(2),'d');
6038			}
6039	1		arg4 = (int) SvIV(ST(3));
6040			{
6041	1		arg5 = (double *) pack1D(ST(4),'d');
6042			}
6043	1		_saved[0] = ST(0);
6044	1		_saved[1] = ST(2);
6045	1		_saved[2] = ST(4);
6046	1		result = (int)poldiv(arg1,arg2,arg3,arg4,arg5);
6047
6048	1		ST(argvi) = sv_newmortal();
6049	1		sv_setiv(ST(argvi++), (IV) result);
6050			{
6051	1		unpack1D((SV)_saved[0], (void )arg1, 'd', 0);
6052			}
6053			{
6054	1		unpack1D((SV)_saved[1], (void )arg3, 'd', 0);
6055			}
6056			{
6057	1		unpack1D((SV)_saved[2], (void )arg5, 'd', 0);
6058			}
6059	1		XSRETURN(argvi);
6060	0		fail:
6061			;
6062			}
6063	0		croak(Nullch);
6064			}
6065
6066
6067	3		XS(_wrap_poladd) {
6068			{
6069			arr1d arg1 ;
6070			int arg2 ;
6071			arr1d arg3 ;
6072			int arg4 ;
6073			arr1d arg5 ;
6074	3		int argvi = 0;
6075			SV * _saved[3] ;
6076	3		dXSARGS;
6077
6078	3	50	if ((items < 5) \|\| (items > 5)) {
		50
6079	0		SWIG_croak("Usage: poladd(A,na,B,nb,C);");
6080			}
6081			{
6082	3		arg1 = (double *) pack1D(ST(0),'d');
6083			}
6084	3		arg2 = (int) SvIV(ST(1));
6085			{
6086	3		arg3 = (double *) pack1D(ST(2),'d');
6087			}
6088	3		arg4 = (int) SvIV(ST(3));
6089			{
6090	3		arg5 = (double *) pack1D(ST(4),'d');
6091			}
6092	3		_saved[0] = ST(0);
6093	3		_saved[1] = ST(2);
6094	3		_saved[2] = ST(4);
6095	3		poladd(arg1,arg2,arg3,arg4,arg5);
6096
6097
6098			{
6099	3		unpack1D((SV)_saved[0], (void )arg1, 'd', 0);
6100			}
6101			{
6102	3		unpack1D((SV)_saved[1], (void )arg3, 'd', 0);
6103			}
6104			{
6105	3		unpack1D((SV)_saved[2], (void )arg5, 'd', 0);
6106			}
6107	3		XSRETURN(argvi);
6108	0		fail:
6109			;
6110			}
6111	0		croak(Nullch);
6112			}
6113
6114
6115	3		XS(_wrap_polsub) {
6116			{
6117			arr1d arg1 ;
6118			int arg2 ;
6119			arr1d arg3 ;
6120			int arg4 ;
6121			arr1d arg5 ;
6122	3		int argvi = 0;
6123			SV * _saved[3] ;
6124	3		dXSARGS;
6125
6126	3	50	if ((items < 5) \|\| (items > 5)) {
		50
6127	0		SWIG_croak("Usage: polsub(A,na,B,nb,C);");
6128			}
6129			{
6130	3		arg1 = (double *) pack1D(ST(0),'d');
6131			}
6132	3		arg2 = (int) SvIV(ST(1));
6133			{
6134	3		arg3 = (double *) pack1D(ST(2),'d');
6135			}
6136	3		arg4 = (int) SvIV(ST(3));
6137			{
6138	3		arg5 = (double *) pack1D(ST(4),'d');
6139			}
6140	3		_saved[0] = ST(0);
6141	3		_saved[1] = ST(2);
6142	3		_saved[2] = ST(4);
6143	3		polsub(arg1,arg2,arg3,arg4,arg5);
6144
6145
6146			{
6147	3		unpack1D((SV)_saved[0], (void )arg1, 'd', 0);
6148			}
6149			{
6150	3		unpack1D((SV)_saved[1], (void )arg3, 'd', 0);
6151			}
6152			{
6153	3		unpack1D((SV)_saved[2], (void )arg5, 'd', 0);
6154			}
6155	3		XSRETURN(argvi);
6156	0		fail:
6157			;
6158			}
6159	0		croak(Nullch);
6160			}
6161
6162
6163	1		XS(_wrap_polsbt) {
6164			{
6165			arr1d arg1 ;
6166			int arg2 ;
6167			arr1d arg3 ;
6168			int arg4 ;
6169			arr1d arg5 ;
6170	1		int argvi = 0;
6171			SV * _saved[3] ;
6172	1		dXSARGS;
6173
6174	1	50	if ((items < 5) \|\| (items > 5)) {
		50
6175	0		SWIG_croak("Usage: polsbt(A,na,B,nb,C);");
6176			}
6177			{
6178	1		arg1 = (double *) pack1D(ST(0),'d');
6179			}
6180	1		arg2 = (int) SvIV(ST(1));
6181			{
6182	1		arg3 = (double *) pack1D(ST(2),'d');
6183			}
6184	1		arg4 = (int) SvIV(ST(3));
6185			{
6186	1		arg5 = (double *) pack1D(ST(4),'d');
6187			}
6188	1		_saved[0] = ST(0);
6189	1		_saved[1] = ST(2);
6190	1		_saved[2] = ST(4);
6191	1		polsbt(arg1,arg2,arg3,arg4,arg5);
6192
6193
6194			{
6195	1		unpack1D((SV)_saved[0], (void )arg1, 'd', 0);
6196			}
6197			{
6198	1		unpack1D((SV)_saved[1], (void )arg3, 'd', 0);
6199			}
6200			{
6201	1		unpack1D((SV)_saved[2], (void )arg5, 'd', 0);
6202			}
6203	1		XSRETURN(argvi);
6204	0		fail:
6205			;
6206			}
6207	0		croak(Nullch);
6208			}
6209
6210
6211	8		XS(_wrap_poleva) {
6212			{
6213			arr1d arg1 ;
6214			int arg2 ;
6215			double arg3 ;
6216			double result;
6217	8		int argvi = 0;
6218			SV * _saved[1] ;
6219	8		dXSARGS;
6220
6221	8	50	if ((items < 3) \|\| (items > 3)) {
		50
6222	0		SWIG_croak("Usage: poleva(A,na,x);");
6223			}
6224			{
6225	8		arg1 = (double *) pack1D(ST(0),'d');
6226			}
6227	8		arg2 = (int) SvIV(ST(1));
6228	8		arg3 = (double) SvNV(ST(2));
6229
6230	8		_saved[0] = ST(0);
6231	8		result = (double)poleva(arg1,arg2,arg3);
6232
6233	8		ST(argvi) = sv_newmortal();
6234	8		sv_setnv(ST(argvi++), (double) result);
6235			{
6236	8		unpack1D((SV)_saved[0], (void )arg1, 'd', 0);
6237			}
6238	8		XSRETURN(argvi);
6239	0		fail:
6240			;
6241			}
6242	0		croak(Nullch);
6243			}
6244
6245
6246	2		XS(_wrap_polatn) {
6247			{
6248			arr1d arg1 ;
6249			arr1d arg2 ;
6250			arr1d arg3 ;
6251			int arg4 ;
6252	2		int argvi = 0;
6253			SV * _saved[3] ;
6254	2		dXSARGS;
6255
6256	2	50	if ((items < 4) \|\| (items > 4)) {
		50
6257	0		SWIG_croak("Usage: polatn(A,B,C,n);");
6258			}
6259			{
6260	2		arg1 = (double *) pack1D(ST(0),'d');
6261			}
6262			{
6263	2		arg2 = (double *) pack1D(ST(1),'d');
6264			}
6265			{
6266	2		arg3 = (double *) pack1D(ST(2),'d');
6267			}
6268	2		arg4 = (int) SvIV(ST(3));
6269	2		_saved[0] = ST(0);
6270	2		_saved[1] = ST(1);
6271	2		_saved[2] = ST(2);
6272	2		polatn(arg1,arg2,arg3,arg4);
6273
6274
6275			{
6276	2		unpack1D((SV)_saved[0], (void )arg1, 'd', 0);
6277			}
6278			{
6279	2		unpack1D((SV)_saved[1], (void )arg2, 'd', 0);
6280			}
6281			{
6282	2		unpack1D((SV)_saved[2], (void )arg3, 'd', 0);
6283			}
6284	2		XSRETURN(argvi);
6285	0		fail:
6286			;
6287			}
6288	0		croak(Nullch);
6289			}
6290
6291
6292	3		XS(_wrap_polsqt) {
6293			{
6294			arr1d arg1 ;
6295			arr1d arg2 ;
6296			int arg3 ;
6297	3		int argvi = 0;
6298			SV * _saved[2] ;
6299	3		dXSARGS;
6300
6301	3	50	if ((items < 3) \|\| (items > 3)) {
		50
6302	0		SWIG_croak("Usage: polsqt(A,B,n);");
6303			}
6304			{
6305	3		arg1 = (double *) pack1D(ST(0),'d');
6306			}
6307			{
6308	3		arg2 = (double *) pack1D(ST(1),'d');
6309			}
6310	3		arg3 = (int) SvIV(ST(2));
6311	3		_saved[0] = ST(0);
6312	3		_saved[1] = ST(1);
6313	3		polsqt(arg1,arg2,arg3);
6314
6315
6316			{
6317	3		unpack1D((SV)_saved[0], (void )arg1, 'd', 0);
6318			}
6319			{
6320	3		unpack1D((SV)_saved[1], (void )arg2, 'd', 0);
6321			}
6322	3		XSRETURN(argvi);
6323	0		fail:
6324			;
6325			}
6326	0		croak(Nullch);
6327			}
6328
6329
6330	3		XS(_wrap_polsin) {
6331			{
6332			arr1d arg1 ;
6333			arr1d arg2 ;
6334			int arg3 ;
6335	3		int argvi = 0;
6336			SV * _saved[2] ;
6337	3		dXSARGS;
6338
6339	3	50	if ((items < 3) \|\| (items > 3)) {
		50
6340	0		SWIG_croak("Usage: polsin(A,B,n);");
6341			}
6342			{
6343	3		arg1 = (double *) pack1D(ST(0),'d');
6344			}
6345			{
6346	3		arg2 = (double *) pack1D(ST(1),'d');
6347			}
6348	3		arg3 = (int) SvIV(ST(2));
6349	3		_saved[0] = ST(0);
6350	3		_saved[1] = ST(1);
6351	3		polsin(arg1,arg2,arg3);
6352
6353
6354			{
6355	3		unpack1D((SV)_saved[0], (void )arg1, 'd', 0);
6356			}
6357			{
6358	3		unpack1D((SV)_saved[1], (void )arg2, 'd', 0);
6359			}
6360	3		XSRETURN(argvi);
6361	0		fail:
6362			;
6363			}
6364	0		croak(Nullch);
6365			}
6366
6367
6368	3		XS(_wrap_polcos) {
6369			{
6370			arr1d arg1 ;
6371			arr1d arg2 ;
6372			int arg3 ;
6373	3		int argvi = 0;
6374			SV * _saved[2] ;
6375	3		dXSARGS;
6376
6377	3	50	if ((items < 3) \|\| (items > 3)) {
		50
6378	0		SWIG_croak("Usage: polcos(A,B,n);");
6379			}
6380			{
6381	3		arg1 = (double *) pack1D(ST(0),'d');
6382			}
6383			{
6384	3		arg2 = (double *) pack1D(ST(1),'d');
6385			}
6386	3		arg3 = (int) SvIV(ST(2));
6387	3		_saved[0] = ST(0);
6388	3		_saved[1] = ST(1);
6389	3		polcos(arg1,arg2,arg3);
6390
6391
6392			{
6393	3		unpack1D((SV)_saved[0], (void )arg1, 'd', 0);
6394			}
6395			{
6396	3		unpack1D((SV)_saved[1], (void )arg2, 'd', 0);
6397			}
6398	3		XSRETURN(argvi);
6399	0		fail:
6400			;
6401			}
6402	0		croak(Nullch);
6403			}
6404
6405
6406	2		XS(_wrap_polrt_wrap) {
6407			{
6408			arr1d arg1 ;
6409			arr1d arg2 ;
6410			int arg3 ;
6411			arr1d arg4 ;
6412			arr1d arg5 ;
6413			int result;
6414	2		int argvi = 0;
6415			SV * _saved[4] ;
6416	2		dXSARGS;
6417
6418	2	50	if ((items < 5) \|\| (items > 5)) {
		50
6419	0		SWIG_croak("Usage: polrt_wrap(xcof,cof,m,r,i);");
6420			}
6421			{
6422	2		arg1 = (double *) pack1D(ST(0),'d');
6423			}
6424			{
6425	2		arg2 = (double *) pack1D(ST(1),'d');
6426			}
6427	2		arg3 = (int) SvIV(ST(2));
6428			{
6429	2		arg4 = (double *) pack1D(ST(3),'d');
6430			}
6431			{
6432	2		arg5 = (double *) pack1D(ST(4),'d');
6433			}
6434	2		_saved[0] = ST(0);
6435	2		_saved[1] = ST(1);
6436	2		_saved[2] = ST(3);
6437	2		_saved[3] = ST(4);
6438	2		result = (int)polrt_wrap(arg1,arg2,arg3,arg4,arg5);
6439
6440	2		ST(argvi) = sv_newmortal();
6441	2		sv_setiv(ST(argvi++), (IV) result);
6442			{
6443	2		unpack1D((SV)_saved[0], (void )arg1, 'd', 0);
6444			}
6445			{
6446	2		unpack1D((SV)_saved[1], (void )arg2, 'd', 0);
6447			}
6448			{
6449	2		unpack1D((SV)_saved[2], (void )arg4, 'd', 0);
6450			}
6451			{
6452	2		unpack1D((SV)_saved[3], (void )arg5, 'd', 0);
6453			}
6454	2		XSRETURN(argvi);
6455	0		fail:
6456			;
6457			}
6458	0		croak(Nullch);
6459			}
6460
6461
6462	2		XS(_wrap_cpmul_wrap) {
6463			{
6464			arr1d arg1 ;
6465			arr1d arg2 ;
6466			int arg3 ;
6467			arr1d arg4 ;
6468			arr1d arg5 ;
6469			int arg6 ;
6470			arr1d arg7 ;
6471			arr1d arg8 ;
6472	2		int arg9 = (int ) 0 ;
6473			int result;
6474			int temp9 ;
6475	2		int argvi = 0;
6476			SV * _saved[7] ;
6477	2		dXSARGS;
6478
6479	2	50	if ((items < 9) \|\| (items > 9)) {
		50
6480	0		SWIG_croak("Usage: cpmul_wrap(ar,ai,da,br,bi,db,cr,ci,INOUT);");
6481			}
6482			{
6483	2		arg1 = (double *) pack1D(ST(0),'d');
6484			}
6485			{
6486	2		arg2 = (double *) pack1D(ST(1),'d');
6487			}
6488	2		arg3 = (int) SvIV(ST(2));
6489			{
6490	2		arg4 = (double *) pack1D(ST(3),'d');
6491			}
6492			{
6493	2		arg5 = (double *) pack1D(ST(4),'d');
6494			}
6495	2		arg6 = (int) SvIV(ST(5));
6496			{
6497	2		arg7 = (double *) pack1D(ST(6),'d');
6498			}
6499			{
6500	2		arg8 = (double *) pack1D(ST(7),'d');
6501			}
6502			{
6503	2		temp9 = (int) SvIV(ST(8));
6504	2		arg9 = &temp9;
6505			}
6506	2		_saved[0] = ST(0);
6507	2		_saved[1] = ST(1);
6508	2		_saved[2] = ST(3);
6509	2		_saved[3] = ST(4);
6510	2		_saved[4] = ST(6);
6511	2		_saved[5] = ST(7);
6512	2		_saved[6] = ST(8);
6513	2		result = (int)cpmul_wrap(arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9);
6514
6515	2		ST(argvi) = sv_newmortal();
6516	2		sv_setiv(ST(argvi++), (IV) result);
6517			{
6518	2		unpack1D((SV)_saved[0], (void )arg1, 'd', 0);
6519			}
6520			{
6521	2		unpack1D((SV)_saved[1], (void )arg2, 'd', 0);
6522			}
6523			{
6524	2		unpack1D((SV)_saved[2], (void )arg4, 'd', 0);
6525			}
6526			{
6527	2		unpack1D((SV)_saved[3], (void )arg5, 'd', 0);
6528			}
6529			{
6530	2		unpack1D((SV)_saved[4], (void )arg7, 'd', 0);
6531			}
6532			{
6533	2		unpack1D((SV)_saved[5], (void )arg8, 'd', 0);
6534			}
6535			{
6536	2	50	if (argvi >= items) {
6537	0	0	EXTEND(sp,1);
6538			}
6539	2		ST(argvi) = sv_newmortal();
6540	2		sv_setiv(ST(argvi),(IV) *(arg9));
6541	2		argvi++;
6542			}
6543	2		XSRETURN(argvi);
6544	0		fail:
6545			;
6546			}
6547	0		croak(Nullch);
6548			}
6549
6550
6551	1		XS(_wrap_fpolini) {
6552			{
6553			int arg1 ;
6554	1		int argvi = 0;
6555	1		dXSARGS;
6556
6557	1	50	if ((items < 1) \|\| (items > 1)) {
		50
6558	0		SWIG_croak("Usage: fpolini(maxdeg);");
6559			}
6560	1		arg1 = (int) SvIV(ST(0));
6561	1		fpolini(arg1);
6562
6563
6564	1		XSRETURN(argvi);
6565	0		fail:
6566			;
6567			}
6568	0		croak(Nullch);
6569			}
6570
6571
6572	1		XS(_wrap_fpolmul_wrap) {
6573			{
6574			arr1d arg1 ;
6575			arr1d arg2 ;
6576			int arg3 ;
6577			arr1d arg4 ;
6578			arr1d arg5 ;
6579			int arg6 ;
6580			arr1d arg7 ;
6581			arr1d arg8 ;
6582			int arg9 ;
6583	1		int argvi = 0;
6584			SV * _saved[6] ;
6585	1		dXSARGS;
6586
6587	1	50	if ((items < 9) \|\| (items > 9)) {
		50
6588	0		SWIG_croak("Usage: fpolmul_wrap(A,Ad,na,Bn,Bd,nb,Cn,Cd,nc);");
6589			}
6590			{
6591	1		arg1 = (double *) pack1D(ST(0),'d');
6592			}
6593			{
6594	1		arg2 = (double *) pack1D(ST(1),'d');
6595			}
6596	1		arg3 = (int) SvIV(ST(2));
6597			{
6598	1		arg4 = (double *) pack1D(ST(3),'d');
6599			}
6600			{
6601	1		arg5 = (double *) pack1D(ST(4),'d');
6602			}
6603	1		arg6 = (int) SvIV(ST(5));
6604			{
6605	1		arg7 = (double *) pack1D(ST(6),'d');
6606			}
6607			{
6608	1		arg8 = (double *) pack1D(ST(7),'d');
6609			}
6610	1		arg9 = (int) SvIV(ST(8));
6611	1		_saved[0] = ST(0);
6612	1		_saved[1] = ST(1);
6613	1		_saved[2] = ST(3);
6614	1		_saved[3] = ST(4);
6615	1		_saved[4] = ST(6);
6616	1		_saved[5] = ST(7);
6617	1		fpolmul_wrap(arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9);
6618
6619
6620			{
6621	1		unpack1D((SV)_saved[0], (void )arg1, 'd', 0);
6622			}
6623			{
6624	1		unpack1D((SV)_saved[1], (void )arg2, 'd', 0);
6625			}
6626			{
6627	1		unpack1D((SV)_saved[2], (void )arg4, 'd', 0);
6628			}
6629			{
6630	1		unpack1D((SV)_saved[3], (void )arg5, 'd', 0);
6631			}
6632			{
6633	1		unpack1D((SV)_saved[4], (void )arg7, 'd', 0);
6634			}
6635			{
6636	1		unpack1D((SV)_saved[5], (void )arg8, 'd', 0);
6637			}
6638	1		XSRETURN(argvi);
6639	0		fail:
6640			;
6641			}
6642	0		croak(Nullch);
6643			}
6644
6645
6646	0		XS(_wrap_fpoldiv_wrap) {
6647			{
6648			arr1d arg1 ;
6649			arr1d arg2 ;
6650			int arg3 ;
6651			arr1d arg4 ;
6652			arr1d arg5 ;
6653			int arg6 ;
6654			arr1d arg7 ;
6655			arr1d arg8 ;
6656			int arg9 ;
6657			int result;
6658	0		int argvi = 0;
6659			SV * _saved[6] ;
6660	0		dXSARGS;
6661
6662	0	0	if ((items < 9) \|\| (items > 9)) {
		0
6663	0		SWIG_croak("Usage: fpoldiv_wrap(A,Ad,na,Bn,Bd,nb,Cn,Cd,nc);");
6664			}
6665			{
6666	0		arg1 = (double *) pack1D(ST(0),'d');
6667			}
6668			{
6669	0		arg2 = (double *) pack1D(ST(1),'d');
6670			}
6671	0		arg3 = (int) SvIV(ST(2));
6672			{
6673	0		arg4 = (double *) pack1D(ST(3),'d');
6674			}
6675			{
6676	0		arg5 = (double *) pack1D(ST(4),'d');
6677			}
6678	0		arg6 = (int) SvIV(ST(5));
6679			{
6680	0		arg7 = (double *) pack1D(ST(6),'d');
6681			}
6682			{
6683	0		arg8 = (double *) pack1D(ST(7),'d');
6684			}
6685	0		arg9 = (int) SvIV(ST(8));
6686	0		_saved[0] = ST(0);
6687	0		_saved[1] = ST(1);
6688	0		_saved[2] = ST(3);
6689	0		_saved[3] = ST(4);
6690	0		_saved[4] = ST(6);
6691	0		_saved[5] = ST(7);
6692	0		result = (int)fpoldiv_wrap(arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9);
6693
6694	0		ST(argvi) = sv_newmortal();
6695	0		sv_setiv(ST(argvi++), (IV) result);
6696			{
6697	0		unpack1D((SV)_saved[0], (void )arg1, 'd', 0);
6698			}
6699			{
6700	0		unpack1D((SV)_saved[1], (void )arg2, 'd', 0);
6701			}
6702			{
6703	0		unpack1D((SV)_saved[2], (void )arg4, 'd', 0);
6704			}
6705			{
6706	0		unpack1D((SV)_saved[3], (void )arg5, 'd', 0);
6707			}
6708			{
6709	0		unpack1D((SV)_saved[4], (void )arg7, 'd', 0);
6710			}
6711			{
6712	0		unpack1D((SV)_saved[5], (void )arg8, 'd', 0);
6713			}
6714	0		XSRETURN(argvi);
6715	0		fail:
6716			;
6717			}
6718	0		croak(Nullch);
6719			}
6720
6721
6722	1		XS(_wrap_fpoladd_wrap) {
6723			{
6724			arr1d arg1 ;
6725			arr1d arg2 ;
6726			int arg3 ;
6727			arr1d arg4 ;
6728			arr1d arg5 ;
6729			int arg6 ;
6730			arr1d arg7 ;
6731			arr1d arg8 ;
6732			int arg9 ;
6733	1		int argvi = 0;
6734			SV * _saved[6] ;
6735	1		dXSARGS;
6736
6737	1	50	if ((items < 9) \|\| (items > 9)) {
		50
6738	0		SWIG_croak("Usage: fpoladd_wrap(A,Ad,na,Bn,Bd,nb,Cn,Cd,nc);");
6739			}
6740			{
6741	1		arg1 = (double *) pack1D(ST(0),'d');
6742			}
6743			{
6744	1		arg2 = (double *) pack1D(ST(1),'d');
6745			}
6746	1		arg3 = (int) SvIV(ST(2));
6747			{
6748	1		arg4 = (double *) pack1D(ST(3),'d');
6749			}
6750			{
6751	1		arg5 = (double *) pack1D(ST(4),'d');
6752			}
6753	1		arg6 = (int) SvIV(ST(5));
6754			{
6755	1		arg7 = (double *) pack1D(ST(6),'d');
6756			}
6757			{
6758	1		arg8 = (double *) pack1D(ST(7),'d');
6759			}
6760	1		arg9 = (int) SvIV(ST(8));
6761	1		_saved[0] = ST(0);
6762	1		_saved[1] = ST(1);
6763	1		_saved[2] = ST(3);
6764	1		_saved[3] = ST(4);
6765	1		_saved[4] = ST(6);
6766	1		_saved[5] = ST(7);
6767	1		fpoladd_wrap(arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9);
6768
6769
6770			{
6771	1		unpack1D((SV)_saved[0], (void )arg1, 'd', 0);
6772			}
6773			{
6774	1		unpack1D((SV)_saved[1], (void )arg2, 'd', 0);
6775			}
6776			{
6777	1		unpack1D((SV)_saved[2], (void )arg4, 'd', 0);
6778			}
6779			{
6780	1		unpack1D((SV)_saved[3], (void )arg5, 'd', 0);
6781			}
6782			{
6783	1		unpack1D((SV)_saved[4], (void )arg7, 'd', 0);
6784			}
6785			{
6786	1		unpack1D((SV)_saved[5], (void )arg8, 'd', 0);
6787			}
6788	1		XSRETURN(argvi);
6789	0		fail:
6790			;
6791			}
6792	0		croak(Nullch);
6793			}
6794
6795
6796	1		XS(_wrap_fpolsub_wrap) {
6797			{
6798			arr1d arg1 ;
6799			arr1d arg2 ;
6800			int arg3 ;
6801			arr1d arg4 ;
6802			arr1d arg5 ;
6803			int arg6 ;
6804			arr1d arg7 ;
6805			arr1d arg8 ;
6806			int arg9 ;
6807	1		int argvi = 0;
6808			SV * _saved[6] ;
6809	1		dXSARGS;
6810
6811	1	50	if ((items < 9) \|\| (items > 9)) {
		50
6812	0		SWIG_croak("Usage: fpolsub_wrap(A,Ad,na,Bn,Bd,nb,Cn,Cd,nc);");
6813			}
6814			{
6815	1		arg1 = (double *) pack1D(ST(0),'d');
6816			}
6817			{
6818	1		arg2 = (double *) pack1D(ST(1),'d');
6819			}
6820	1		arg3 = (int) SvIV(ST(2));
6821			{
6822	1		arg4 = (double *) pack1D(ST(3),'d');
6823			}
6824			{
6825	1		arg5 = (double *) pack1D(ST(4),'d');
6826			}
6827	1		arg6 = (int) SvIV(ST(5));
6828			{
6829	1		arg7 = (double *) pack1D(ST(6),'d');
6830			}
6831			{
6832	1		arg8 = (double *) pack1D(ST(7),'d');
6833			}
6834	1		arg9 = (int) SvIV(ST(8));
6835	1		_saved[0] = ST(0);
6836	1		_saved[1] = ST(1);
6837	1		_saved[2] = ST(3);
6838	1		_saved[3] = ST(4);
6839	1		_saved[4] = ST(6);
6840	1		_saved[5] = ST(7);
6841	1		fpolsub_wrap(arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9);
6842
6843
6844			{
6845	1		unpack1D((SV)_saved[0], (void )arg1, 'd', 0);
6846			}
6847			{
6848	1		unpack1D((SV)_saved[1], (void )arg2, 'd', 0);
6849			}
6850			{
6851	1		unpack1D((SV)_saved[2], (void )arg4, 'd', 0);
6852			}
6853			{
6854	1		unpack1D((SV)_saved[3], (void )arg5, 'd', 0);
6855			}
6856			{
6857	1		unpack1D((SV)_saved[4], (void )arg7, 'd', 0);
6858			}
6859			{
6860	1		unpack1D((SV)_saved[5], (void )arg8, 'd', 0);
6861			}
6862	1		XSRETURN(argvi);
6863	0		fail:
6864			;
6865			}
6866	0		croak(Nullch);
6867			}
6868
6869
6870	2		XS(_wrap_fpolsbt_wrap) {
6871			{
6872			arr1d arg1 ;
6873			arr1d arg2 ;
6874			int arg3 ;
6875			arr1d arg4 ;
6876			arr1d arg5 ;
6877			int arg6 ;
6878			arr1d arg7 ;
6879			arr1d arg8 ;
6880			int arg9 ;
6881	2		int argvi = 0;
6882			SV * _saved[6] ;
6883	2		dXSARGS;
6884
6885	2	50	if ((items < 9) \|\| (items > 9)) {
		50
6886	0		SWIG_croak("Usage: fpolsbt_wrap(A,Ad,na,Bn,Bd,nb,Cn,Cd,nc);");
6887			}
6888			{
6889	2		arg1 = (double *) pack1D(ST(0),'d');
6890			}
6891			{
6892	2		arg2 = (double *) pack1D(ST(1),'d');
6893			}
6894	2		arg3 = (int) SvIV(ST(2));
6895			{
6896	2		arg4 = (double *) pack1D(ST(3),'d');
6897			}
6898			{
6899	2		arg5 = (double *) pack1D(ST(4),'d');
6900			}
6901	2		arg6 = (int) SvIV(ST(5));
6902			{
6903	2		arg7 = (double *) pack1D(ST(6),'d');
6904			}
6905			{
6906	2		arg8 = (double *) pack1D(ST(7),'d');
6907			}
6908	2		arg9 = (int) SvIV(ST(8));
6909	2		_saved[0] = ST(0);
6910	2		_saved[1] = ST(1);
6911	2		_saved[2] = ST(3);
6912	2		_saved[3] = ST(4);
6913	2		_saved[4] = ST(6);
6914	2		_saved[5] = ST(7);
6915	2		fpolsbt_wrap(arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9);
6916
6917
6918			{
6919	2		unpack1D((SV)_saved[0], (void )arg1, 'd', 0);
6920			}
6921			{
6922	2		unpack1D((SV)_saved[1], (void )arg2, 'd', 0);
6923			}
6924			{
6925	2		unpack1D((SV)_saved[2], (void )arg4, 'd', 0);
6926			}
6927			{
6928	2		unpack1D((SV)_saved[3], (void )arg5, 'd', 0);
6929			}
6930			{
6931	2		unpack1D((SV)_saved[4], (void )arg7, 'd', 0);
6932			}
6933			{
6934	2		unpack1D((SV)_saved[5], (void )arg8, 'd', 0);
6935			}
6936	2		XSRETURN(argvi);
6937	0		fail:
6938			;
6939			}
6940	0		croak(Nullch);
6941			}
6942
6943
6944	4		XS(_wrap_fpoleva_wrap) {
6945			{
6946			arr1d arg1 ;
6947			arr1d arg2 ;
6948			int arg3 ;
6949	4		fract arg4 = (fract ) 0 ;
6950	4		fract arg5 = (fract ) 0 ;
6951	4		int argvi = 0;
6952			SV * _saved[2] ;
6953	4		dXSARGS;
6954
6955	4	50	if ((items < 5) \|\| (items > 5)) {
		50
6956	0		SWIG_croak("Usage: fpoleva_wrap(An,Ad,na,x,s);");
6957			}
6958			{
6959	4		arg1 = (double *) pack1D(ST(0),'d');
6960			}
6961			{
6962	4		arg2 = (double *) pack1D(ST(1),'d');
6963			}
6964	4		arg3 = (int) SvIV(ST(2));
6965			{
6966	4	50	if (SWIG_ConvertPtr(ST(3), (void **) &arg4, SWIGTYPE_p_fract,0) < 0) {
6967	0		SWIG_croak("Type error in argument 4 of fpoleva_wrap. Expected _p_fract");
6968			}
6969			}
6970			{
6971	4	50	if (SWIG_ConvertPtr(ST(4), (void **) &arg5, SWIGTYPE_p_fract,0) < 0) {
6972	0		SWIG_croak("Type error in argument 5 of fpoleva_wrap. Expected _p_fract");
6973			}
6974			}
6975	4		_saved[0] = ST(0);
6976	4		_saved[1] = ST(1);
6977	4		fpoleva_wrap(arg1,arg2,arg3,arg4,arg5);
6978
6979
6980			{
6981	4		unpack1D((SV)_saved[0], (void )arg1, 'd', 0);
6982			}
6983			{
6984	4		unpack1D((SV)_saved[1], (void )arg2, 'd', 0);
6985			}
6986	4		XSRETURN(argvi);
6987	0		fail:
6988			;
6989			}
6990	0		croak(Nullch);
6991			}
6992
6993
6994	2		XS(_wrap_bernum_wrap) {
6995			{
6996			arr1d arg1 ;
6997			arr1d arg2 ;
6998	2		int argvi = 0;
6999			SV * _saved[2] ;
7000	2		dXSARGS;
7001
7002	2	50	if ((items < 2) \|\| (items > 2)) {
		50
7003	0		SWIG_croak("Usage: bernum_wrap(num,den);");
7004			}
7005			{
7006	2		arg1 = (double *) pack1D(ST(0),'d');
7007			}
7008			{
7009	2		arg2 = (double *) pack1D(ST(1),'d');
7010			}
7011	2		_saved[0] = ST(0);
7012	2		_saved[1] = ST(1);
7013	2		bernum_wrap(arg1,arg2);
7014
7015
7016			{
7017	2		unpack1D((SV)_saved[0], (void )arg1, 'd', 0);
7018			}
7019			{
7020	2		unpack1D((SV)_saved[1], (void )arg2, 'd', 0);
7021			}
7022	2		XSRETURN(argvi);
7023	0		fail:
7024			;
7025			}
7026	0		croak(Nullch);
7027			}
7028
7029
7030	24		XS(_wrap_simpsn_wrap) {
7031			{
7032			arr1d arg1 ;
7033			int arg2 ;
7034			double arg3 ;
7035			double result;
7036	24		int argvi = 0;
7037			SV * _saved[1] ;
7038	24		dXSARGS;
7039
7040	24	50	if ((items < 3) \|\| (items > 3)) {
		50
7041	0		SWIG_croak("Usage: simpsn_wrap(f,n,h);");
7042			}
7043			{
7044	24		arg1 = (double *) pack1D(ST(0),'d');
7045			}
7046	24		arg2 = (int) SvIV(ST(1));
7047	24		arg3 = (double) SvNV(ST(2));
7048
7049	24		_saved[0] = ST(0);
7050	24		result = (double)simpsn_wrap(arg1,arg2,arg3);
7051
7052	24		ST(argvi) = sv_newmortal();
7053	24		sv_setnv(ST(argvi++), (double) result);
7054			{
7055	24		unpack1D((SV)_saved[0], (void )arg1, 'd', 0);
7056			}
7057	24		XSRETURN(argvi);
7058	0		fail:
7059			;
7060			}
7061	0		croak(Nullch);
7062			}
7063
7064
7065	2		XS(_wrap_minv) {
7066			{
7067			arr1d arg1 ;
7068			arr1d arg2 ;
7069			int arg3 ;
7070			arr1d arg4 ;
7071			arr1i arg5 ;
7072			int result;
7073	2		int argvi = 0;
7074			SV * _saved[4] ;
7075	2		dXSARGS;
7076
7077	2	50	if ((items < 5) \|\| (items > 5)) {
		50
7078	0		SWIG_croak("Usage: minv(A,X,n,B,IPS);");
7079			}
7080			{
7081	2		arg1 = (double *) pack1D(ST(0),'d');
7082			}
7083			{
7084	2		arg2 = (double *) pack1D(ST(1),'d');
7085			}
7086	2		arg3 = (int) SvIV(ST(2));
7087			{
7088	2		arg4 = (double *) pack1D(ST(3),'d');
7089			}
7090			{
7091	2		arg5 = (int *) pack1D(ST(4),'i');
7092			}
7093	2		_saved[0] = ST(0);
7094	2		_saved[1] = ST(1);
7095	2		_saved[2] = ST(3);
7096	2		_saved[3] = ST(4);
7097	2		result = (int)minv(arg1,arg2,arg3,arg4,arg5);
7098
7099	2		ST(argvi) = sv_newmortal();
7100	2		sv_setiv(ST(argvi++), (IV) result);
7101			{
7102	2		unpack1D((SV)_saved[0], (void )arg1, 'd', 0);
7103			}
7104			{
7105	2		unpack1D((SV)_saved[1], (void )arg2, 'd', 0);
7106			}
7107			{
7108	2		unpack1D((SV)_saved[2], (void )arg4, 'd', 0);
7109			}
7110			{
7111	2		unpack1D((SV)_saved[3], (void )arg5, 'i', 0);
7112			}
7113	2		XSRETURN(argvi);
7114	0		fail:
7115			;
7116			}
7117	0		croak(Nullch);
7118			}
7119
7120
7121	1		XS(_wrap_mtransp) {
7122			{
7123			int arg1 ;
7124			arr1d arg2 ;
7125			arr1d arg3 ;
7126	1		int argvi = 0;
7127			SV * _saved[2] ;
7128	1		dXSARGS;
7129
7130	1	50	if ((items < 3) \|\| (items > 3)) {
		50
7131	0		SWIG_croak("Usage: mtransp(n,A,X);");
7132			}
7133	1		arg1 = (int) SvIV(ST(0));
7134			{
7135	1		arg2 = (double *) pack1D(ST(1),'d');
7136			}
7137			{
7138	1		arg3 = (double *) pack1D(ST(2),'d');
7139			}
7140	1		_saved[0] = ST(1);
7141	1		_saved[1] = ST(2);
7142	1		mtransp(arg1,arg2,arg3);
7143
7144
7145			{
7146	1		unpack1D((SV)_saved[0], (void )arg2, 'd', 0);
7147			}
7148			{
7149	1		unpack1D((SV)_saved[1], (void )arg3, 'd', 0);
7150			}
7151	1		XSRETURN(argvi);
7152	0		fail:
7153			;
7154			}
7155	0		croak(Nullch);
7156			}
7157
7158
7159	1		XS(_wrap_eigens) {
7160			{
7161			arr1d arg1 ;
7162			arr1d arg2 ;
7163			arr1d arg3 ;
7164			int arg4 ;
7165	1		int argvi = 0;
7166			SV * _saved[3] ;
7167	1		dXSARGS;
7168
7169	1	50	if ((items < 4) \|\| (items > 4)) {
		50
7170	0		SWIG_croak("Usage: eigens(A,EV,E,n);");
7171			}
7172			{
7173	1		arg1 = (double *) pack1D(ST(0),'d');
7174			}
7175			{
7176	1		arg2 = (double *) pack1D(ST(1),'d');
7177			}
7178			{
7179	1		arg3 = (double *) pack1D(ST(2),'d');
7180			}
7181	1		arg4 = (int) SvIV(ST(3));
7182	1		_saved[0] = ST(0);
7183	1		_saved[1] = ST(1);
7184	1		_saved[2] = ST(2);
7185	1		eigens(arg1,arg2,arg3,arg4);
7186
7187
7188			{
7189	1		unpack1D((SV)_saved[0], (void )arg1, 'd', 0);
7190			}
7191			{
7192	1		unpack1D((SV)_saved[1], (void )arg2, 'd', 0);
7193			}
7194			{
7195	1		unpack1D((SV)_saved[2], (void )arg3, 'd', 0);
7196			}
7197	1		XSRETURN(argvi);
7198	0		fail:
7199			;
7200			}
7201	0		croak(Nullch);
7202			}
7203
7204
7205	1		XS(_wrap_simq) {
7206			{
7207			arr1d arg1 ;
7208			arr1d arg2 ;
7209			arr1d arg3 ;
7210			int arg4 ;
7211			int arg5 ;
7212			arr1i arg6 ;
7213			int result;
7214	1		int argvi = 0;
7215			SV * _saved[4] ;
7216	1		dXSARGS;
7217
7218	1	50	if ((items < 6) \|\| (items > 6)) {
		50
7219	0		SWIG_croak("Usage: simq(A,B,X,n,flag,IPS);");
7220			}
7221			{
7222	1		arg1 = (double *) pack1D(ST(0),'d');
7223			}
7224			{
7225	1		arg2 = (double *) pack1D(ST(1),'d');
7226			}
7227			{
7228	1		arg3 = (double *) pack1D(ST(2),'d');
7229			}
7230	1		arg4 = (int) SvIV(ST(3));
7231	1		arg5 = (int) SvIV(ST(4));
7232			{
7233	1		arg6 = (int *) pack1D(ST(5),'i');
7234			}
7235	1		_saved[0] = ST(0);
7236	1		_saved[1] = ST(1);
7237	1		_saved[2] = ST(2);
7238	1		_saved[3] = ST(5);
7239	1		result = (int)simq(arg1,arg2,arg3,arg4,arg5,arg6);
7240
7241	1		ST(argvi) = sv_newmortal();
7242	1		sv_setiv(ST(argvi++), (IV) result);
7243			{
7244	1		unpack1D((SV)_saved[0], (void )arg1, 'd', 0);
7245			}
7246			{
7247	1		unpack1D((SV)_saved[1], (void )arg2, 'd', 0);
7248			}
7249			{
7250	1		unpack1D((SV)_saved[2], (void )arg3, 'd', 0);
7251			}
7252			{
7253	1		unpack1D((SV)_saved[3], (void )arg6, 'i', 0);
7254			}
7255	1		XSRETURN(argvi);
7256	0		fail:
7257			;
7258			}
7259	0		croak(Nullch);
7260			}
7261
7262
7263	2		XS(_wrap_polylog) {
7264			{
7265			int arg1 ;
7266			double arg2 ;
7267			double result;
7268	2		int argvi = 0;
7269	2		dXSARGS;
7270
7271	2	50	if ((items < 2) \|\| (items > 2)) {
		50
7272	0		SWIG_croak("Usage: polylog(n,x);");
7273			}
7274	2		arg1 = (int) SvIV(ST(0));
7275	2		arg2 = (double) SvNV(ST(1));
7276
7277	2		result = (double)polylog(arg1,arg2);
7278
7279	2		ST(argvi) = sv_newmortal();
7280	2		sv_setnv(ST(argvi++), (double) result);
7281	2		XSRETURN(argvi);
7282	0		fail:
7283			;
7284			}
7285	0		croak(Nullch);
7286			}
7287
7288
7289	1		XS(_wrap_arcdot) {
7290			{
7291			arr1d arg1 ;
7292			arr1d arg2 ;
7293			double result;
7294	1		int argvi = 0;
7295			SV * _saved[2] ;
7296	1		dXSARGS;
7297
7298	1	50	if ((items < 2) \|\| (items > 2)) {
		50
7299	0		SWIG_croak("Usage: arcdot(p,q);");
7300			}
7301			{
7302	1		arg1 = (double *) pack1D(ST(0),'d');
7303			}
7304			{
7305	1		arg2 = (double *) pack1D(ST(1),'d');
7306			}
7307	1		_saved[0] = ST(0);
7308	1		_saved[1] = ST(1);
7309	1		result = (double)arcdot(arg1,arg2);
7310
7311	1		ST(argvi) = sv_newmortal();
7312	1		sv_setnv(ST(argvi++), (double) result);
7313			{
7314	1		unpack1D((SV)_saved[0], (void )arg1, 'd', 0);
7315			}
7316			{
7317	1		unpack1D((SV)_saved[1], (void )arg2, 'd', 0);
7318			}
7319	1		XSRETURN(argvi);
7320	0		fail:
7321			;
7322			}
7323	0		croak(Nullch);
7324			}
7325
7326
7327	2		XS(_wrap_expx2) {
7328			{
7329			double arg1 ;
7330			int arg2 ;
7331			double result;
7332	2		int argvi = 0;
7333	2		dXSARGS;
7334
7335	2	50	if ((items < 2) \|\| (items > 2)) {
		50
7336	0		SWIG_croak("Usage: expx2(x,sign);");
7337			}
7338	2		arg1 = (double) SvNV(ST(0));
7339
7340	2		arg2 = (int) SvIV(ST(1));
7341	2		result = (double)expx2(arg1,arg2);
7342
7343	2		ST(argvi) = sv_newmortal();
7344	2		sv_setnv(ST(argvi++), (double) result);
7345	2		XSRETURN(argvi);
7346	0		fail:
7347			;
7348			}
7349	0		croak(Nullch);
7350			}
7351
7352
7353
7354			/* -------- TYPE CONVERSION AND EQUIVALENCE RULES (BEGIN) -------- */
7355
7356			static swig_type_info _swigt__p_arr1i[] = {{"_p_arr1i", 0, "arr1i *", 0},{"_p_arr1i"},{0}};
7357			static swig_type_info _swigt__p_fract[] = {{"Math::Cephes::Fraction", 0, "fract *", 0},{"Math::Cephes::Fraction"},{0}};
7358			static swig_type_info _swigt__p_double[] = {{"_p_double", 0, "double *", 0},{"_p_double"},{0}};
7359			static swig_type_info _swigt__p_arr1d[] = {{"_p_arr1d", 0, "arr1d *", 0},{"_p_arr1d"},{0}};
7360			static swig_type_info _swigt__p_cmplx[] = {{"Math::Cephes::Complex", 0, "cmplx *", 0},{"Math::Cephes::Complex"},{0}};
7361			static swig_type_info _swigt__p_int[] = {{"_p_int", 0, "int *", 0},{"_p_int"},{0}};
7362
7363			static swig_type_info *swig_types_initial[] = {
7364			_swigt__p_arr1i,
7365			_swigt__p_fract,
7366			_swigt__p_double,
7367			_swigt__p_arr1d,
7368			_swigt__p_cmplx,
7369			_swigt__p_int,
7370			0
7371			};
7372
7373
7374			/* -------- TYPE CONVERSION AND EQUIVALENCE RULES (END) -------- */
7375
7376			static swig_constant_info swig_constants[] = {
7377			{0}
7378			};
7379			#ifdef __cplusplus
7380			}
7381			#endif
7382			static swig_variable_info swig_variables[] = {
7383			{ "Math::Cephesc::MACHEP", MAGIC_CLASS _wrap_set_MACHEP, MAGIC_CLASS _wrap_val_MACHEP,0 },
7384			{ "Math::Cephesc::MAXLOG", MAGIC_CLASS _wrap_set_MAXLOG, MAGIC_CLASS _wrap_val_MAXLOG,0 },
7385			{ "Math::Cephesc::MINLOG", MAGIC_CLASS _wrap_set_MINLOG, MAGIC_CLASS _wrap_val_MINLOG,0 },
7386			{ "Math::Cephesc::MAXNUM", MAGIC_CLASS _wrap_set_MAXNUM, MAGIC_CLASS _wrap_val_MAXNUM,0 },
7387			{ "Math::Cephesc::PI", MAGIC_CLASS _wrap_set_PI, MAGIC_CLASS _wrap_val_PI,0 },
7388			{ "Math::Cephesc::PIO2", MAGIC_CLASS _wrap_set_PIO2, MAGIC_CLASS _wrap_val_PIO2,0 },
7389			{ "Math::Cephesc::PIO4", MAGIC_CLASS _wrap_set_PIO4, MAGIC_CLASS _wrap_val_PIO4,0 },
7390			{ "Math::Cephesc::SQRT2", MAGIC_CLASS _wrap_set_SQRT2, MAGIC_CLASS _wrap_val_SQRT2,0 },
7391			{ "Math::Cephesc::SQRTH", MAGIC_CLASS _wrap_set_SQRTH, MAGIC_CLASS _wrap_val_SQRTH,0 },
7392			{ "Math::Cephesc::LOG2E", MAGIC_CLASS _wrap_set_LOG2E, MAGIC_CLASS _wrap_val_LOG2E,0 },
7393			{ "Math::Cephesc::SQ2OPI", MAGIC_CLASS _wrap_set_SQ2OPI, MAGIC_CLASS _wrap_val_SQ2OPI,0 },
7394			{ "Math::Cephesc::LOGE2", MAGIC_CLASS _wrap_set_LOGE2, MAGIC_CLASS _wrap_val_LOGE2,0 },
7395			{ "Math::Cephesc::LOGSQ2", MAGIC_CLASS _wrap_set_LOGSQ2, MAGIC_CLASS _wrap_val_LOGSQ2,0 },
7396			{ "Math::Cephesc::THPIO4", MAGIC_CLASS _wrap_set_THPIO4, MAGIC_CLASS _wrap_val_THPIO4,0 },
7397			{ "Math::Cephesc::TWOOPI", MAGIC_CLASS _wrap_set_TWOOPI, MAGIC_CLASS _wrap_val_TWOOPI,0 },
7398			{0}
7399			};
7400			static swig_command_info swig_commands[] = {
7401			{"Math::Cephesc::cmplx_r_set", _wrap_cmplx_r_set},
7402			{"Math::Cephesc::cmplx_r_get", _wrap_cmplx_r_get},
7403			{"Math::Cephesc::cmplx_i_set", _wrap_cmplx_i_set},
7404			{"Math::Cephesc::cmplx_i_get", _wrap_cmplx_i_get},
7405			{"Math::Cephesc::new_cmplx", _wrap_new_cmplx},
7406			{"Math::Cephesc::delete_cmplx", _wrap_delete_cmplx},
7407			{"Math::Cephesc::fract_n_set", _wrap_fract_n_set},
7408			{"Math::Cephesc::fract_n_get", _wrap_fract_n_get},
7409			{"Math::Cephesc::fract_d_set", _wrap_fract_d_set},
7410			{"Math::Cephesc::fract_d_get", _wrap_fract_d_get},
7411			{"Math::Cephesc::new_fract", _wrap_new_fract},
7412			{"Math::Cephesc::delete_fract", _wrap_delete_fract},
7413			{"Math::Cephesc::md_acosh", _wrap_md_acosh},
7414			{"Math::Cephesc::airy", _wrap_airy},
7415			{"Math::Cephesc::md_asin", _wrap_md_asin},
7416			{"Math::Cephesc::md_acos", _wrap_md_acos},
7417			{"Math::Cephesc::md_asinh", _wrap_md_asinh},
7418			{"Math::Cephesc::md_atan", _wrap_md_atan},
7419			{"Math::Cephesc::md_atan2", _wrap_md_atan2},
7420			{"Math::Cephesc::md_atanh", _wrap_md_atanh},
7421			{"Math::Cephesc::bdtrc", _wrap_bdtrc},
7422			{"Math::Cephesc::bdtr", _wrap_bdtr},
7423			{"Math::Cephesc::bdtri", _wrap_bdtri},
7424			{"Math::Cephesc::beta", _wrap_beta},
7425			{"Math::Cephesc::lbeta", _wrap_lbeta},
7426			{"Math::Cephesc::btdtr", _wrap_btdtr},
7427			{"Math::Cephesc::md_cbrt", _wrap_md_cbrt},
7428			{"Math::Cephesc::chbevl", _wrap_chbevl},
7429			{"Math::Cephesc::chdtrc", _wrap_chdtrc},
7430			{"Math::Cephesc::chdtr", _wrap_chdtr},
7431			{"Math::Cephesc::chdtri", _wrap_chdtri},
7432			{"Math::Cephesc::md_clog", _wrap_md_clog},
7433			{"Math::Cephesc::md_cexp", _wrap_md_cexp},
7434			{"Math::Cephesc::md_csin", _wrap_md_csin},
7435			{"Math::Cephesc::md_ccos", _wrap_md_ccos},
7436			{"Math::Cephesc::md_ctan", _wrap_md_ctan},
7437			{"Math::Cephesc::ccot", _wrap_ccot},
7438			{"Math::Cephesc::md_casin", _wrap_md_casin},
7439			{"Math::Cephesc::md_cacos", _wrap_md_cacos},
7440			{"Math::Cephesc::md_catan", _wrap_md_catan},
7441			{"Math::Cephesc::md_csinh", _wrap_md_csinh},
7442			{"Math::Cephesc::md_casinh", _wrap_md_casinh},
7443			{"Math::Cephesc::md_ccosh", _wrap_md_ccosh},
7444			{"Math::Cephesc::md_cacosh", _wrap_md_cacosh},
7445			{"Math::Cephesc::md_ctanh", _wrap_md_ctanh},
7446			{"Math::Cephesc::md_catanh", _wrap_md_catanh},
7447			{"Math::Cephesc::md_cpow", _wrap_md_cpow},
7448			{"Math::Cephesc::radd", _wrap_radd},
7449			{"Math::Cephesc::rsub", _wrap_rsub},
7450			{"Math::Cephesc::rmul", _wrap_rmul},
7451			{"Math::Cephesc::rdiv", _wrap_rdiv},
7452			{"Math::Cephesc::euclid", _wrap_euclid},
7453			{"Math::Cephesc::cadd", _wrap_cadd},
7454			{"Math::Cephesc::csub", _wrap_csub},
7455			{"Math::Cephesc::cmul", _wrap_cmul},
7456			{"Math::Cephesc::cdiv", _wrap_cdiv},
7457			{"Math::Cephesc::cmov", _wrap_cmov},
7458			{"Math::Cephesc::cneg", _wrap_cneg},
7459			{"Math::Cephesc::md_cabs", _wrap_md_cabs},
7460			{"Math::Cephesc::md_csqrt", _wrap_md_csqrt},
7461			{"Math::Cephesc::md_hypot", _wrap_md_hypot},
7462			{"Math::Cephesc::md_cosh", _wrap_md_cosh},
7463			{"Math::Cephesc::dawsn", _wrap_dawsn},
7464			{"Math::Cephesc::ellie", _wrap_ellie},
7465			{"Math::Cephesc::ellik", _wrap_ellik},
7466			{"Math::Cephesc::ellpe", _wrap_ellpe},
7467			{"Math::Cephesc::ellpj", _wrap_ellpj},
7468			{"Math::Cephesc::ellpk", _wrap_ellpk},
7469			{"Math::Cephesc::md_exp", _wrap_md_exp},
7470			{"Math::Cephesc::md_exp10", _wrap_md_exp10},
7471			{"Math::Cephesc::md_exp2", _wrap_md_exp2},
7472			{"Math::Cephesc::md_expn", _wrap_md_expn},
7473			{"Math::Cephesc::ei", _wrap_ei},
7474			{"Math::Cephesc::md_fabs", _wrap_md_fabs},
7475			{"Math::Cephesc::fac", _wrap_fac},
7476			{"Math::Cephesc::fdtrc", _wrap_fdtrc},
7477			{"Math::Cephesc::fdtr", _wrap_fdtr},
7478			{"Math::Cephesc::fdtri", _wrap_fdtri},
7479			{"Math::Cephesc::md_ceil", _wrap_md_ceil},
7480			{"Math::Cephesc::md_floor", _wrap_md_floor},
7481			{"Math::Cephesc::md_frexp", _wrap_md_frexp},
7482			{"Math::Cephesc::md_ldexp", _wrap_md_ldexp},
7483			{"Math::Cephesc::fresnl", _wrap_fresnl},
7484			{"Math::Cephesc::md_gamma", _wrap_md_gamma},
7485			{"Math::Cephesc::lgam", _wrap_lgam},
7486			{"Math::Cephesc::gdtr", _wrap_gdtr},
7487			{"Math::Cephesc::gdtrc", _wrap_gdtrc},
7488			{"Math::Cephesc::hyp2f1", _wrap_hyp2f1},
7489			{"Math::Cephesc::hyperg", _wrap_hyperg},
7490			{"Math::Cephesc::hyp2f0", _wrap_hyp2f0},
7491			{"Math::Cephesc::i0", _wrap_i0},
7492			{"Math::Cephesc::i0e", _wrap_i0e},
7493			{"Math::Cephesc::i1", _wrap_i1},
7494			{"Math::Cephesc::i1e", _wrap_i1e},
7495			{"Math::Cephesc::igamc", _wrap_igamc},
7496			{"Math::Cephesc::igam", _wrap_igam},
7497			{"Math::Cephesc::igami", _wrap_igami},
7498			{"Math::Cephesc::incbet", _wrap_incbet},
7499			{"Math::Cephesc::incbi", _wrap_incbi},
7500			{"Math::Cephesc::iv", _wrap_iv},
7501			{"Math::Cephesc::md_j0", _wrap_md_j0},
7502			{"Math::Cephesc::md_y0", _wrap_md_y0},
7503			{"Math::Cephesc::md_j1", _wrap_md_j1},
7504			{"Math::Cephesc::md_y1", _wrap_md_y1},
7505			{"Math::Cephesc::md_jn", _wrap_md_jn},
7506			{"Math::Cephesc::jv", _wrap_jv},
7507			{"Math::Cephesc::k0", _wrap_k0},
7508			{"Math::Cephesc::k0e", _wrap_k0e},
7509			{"Math::Cephesc::k1", _wrap_k1},
7510			{"Math::Cephesc::k1e", _wrap_k1e},
7511			{"Math::Cephesc::kn", _wrap_kn},
7512			{"Math::Cephesc::md_log", _wrap_md_log},
7513			{"Math::Cephesc::md_log10", _wrap_md_log10},
7514			{"Math::Cephesc::md_log2", _wrap_md_log2},
7515			{"Math::Cephesc::lrand", _wrap_lrand},
7516			{"Math::Cephesc::lsqrt", _wrap_lsqrt},
7517			{"Math::Cephesc::mtherr", _wrap_mtherr},
7518			{"Math::Cephesc::polevl", _wrap_polevl},
7519			{"Math::Cephesc::p1evl", _wrap_p1evl},
7520			{"Math::Cephesc::nbdtrc", _wrap_nbdtrc},
7521			{"Math::Cephesc::nbdtr", _wrap_nbdtr},
7522			{"Math::Cephesc::nbdtri", _wrap_nbdtri},
7523			{"Math::Cephesc::ndtr", _wrap_ndtr},
7524			{"Math::Cephesc::md_erfc", _wrap_md_erfc},
7525			{"Math::Cephesc::md_erf", _wrap_md_erf},
7526			{"Math::Cephesc::ndtri", _wrap_ndtri},
7527			{"Math::Cephesc::pdtrc", _wrap_pdtrc},
7528			{"Math::Cephesc::pdtr", _wrap_pdtr},
7529			{"Math::Cephesc::pdtri", _wrap_pdtri},
7530			{"Math::Cephesc::md_pow", _wrap_md_pow},
7531			{"Math::Cephesc::md_powi", _wrap_md_powi},
7532			{"Math::Cephesc::psi", _wrap_psi},
7533			{"Math::Cephesc::rgamma", _wrap_rgamma},
7534			{"Math::Cephesc::md_round", _wrap_md_round},
7535			{"Math::Cephesc::shichi", _wrap_shichi},
7536			{"Math::Cephesc::sici", _wrap_sici},
7537			{"Math::Cephesc::md_sin", _wrap_md_sin},
7538			{"Math::Cephesc::md_cos", _wrap_md_cos},
7539			{"Math::Cephesc::radian", _wrap_radian},
7540			{"Math::Cephesc::md_sindg", _wrap_md_sindg},
7541			{"Math::Cephesc::cosdg", _wrap_cosdg},
7542			{"Math::Cephesc::md_sinh", _wrap_md_sinh},
7543			{"Math::Cephesc::spence", _wrap_spence},
7544			{"Math::Cephesc::sqrt", _wrap_sqrt},
7545			{"Math::Cephesc::stdtr", _wrap_stdtr},
7546			{"Math::Cephesc::stdtri", _wrap_stdtri},
7547			{"Math::Cephesc::onef2", _wrap_onef2},
7548			{"Math::Cephesc::threef0", _wrap_threef0},
7549			{"Math::Cephesc::struve", _wrap_struve},
7550			{"Math::Cephesc::md_tan", _wrap_md_tan},
7551			{"Math::Cephesc::cot", _wrap_cot},
7552			{"Math::Cephesc::tandg", _wrap_tandg},
7553			{"Math::Cephesc::cotdg", _wrap_cotdg},
7554			{"Math::Cephesc::md_tanh", _wrap_md_tanh},
7555			{"Math::Cephesc::md_log1p", _wrap_md_log1p},
7556			{"Math::Cephesc::expm1", _wrap_expm1},
7557			{"Math::Cephesc::cosm1", _wrap_cosm1},
7558			{"Math::Cephesc::md_yn", _wrap_md_yn},
7559			{"Math::Cephesc::yv", _wrap_yv},
7560			{"Math::Cephesc::zeta", _wrap_zeta},
7561			{"Math::Cephesc::zetac", _wrap_zetac},
7562			{"Math::Cephesc::drand", _wrap_drand},
7563			{"Math::Cephesc::plancki", _wrap_plancki},
7564			{"Math::Cephesc::polini", _wrap_polini},
7565			{"Math::Cephesc::polmul", _wrap_polmul},
7566			{"Math::Cephesc::poldiv", _wrap_poldiv},
7567			{"Math::Cephesc::poladd", _wrap_poladd},
7568			{"Math::Cephesc::polsub", _wrap_polsub},
7569			{"Math::Cephesc::polsbt", _wrap_polsbt},
7570			{"Math::Cephesc::poleva", _wrap_poleva},
7571			{"Math::Cephesc::polatn", _wrap_polatn},
7572			{"Math::Cephesc::polsqt", _wrap_polsqt},
7573			{"Math::Cephesc::polsin", _wrap_polsin},
7574			{"Math::Cephesc::polcos", _wrap_polcos},
7575			{"Math::Cephesc::polrt_wrap", _wrap_polrt_wrap},
7576			{"Math::Cephesc::cpmul_wrap", _wrap_cpmul_wrap},
7577			{"Math::Cephesc::fpolini", _wrap_fpolini},
7578			{"Math::Cephesc::fpolmul_wrap", _wrap_fpolmul_wrap},
7579			{"Math::Cephesc::fpoldiv_wrap", _wrap_fpoldiv_wrap},
7580			{"Math::Cephesc::fpoladd_wrap", _wrap_fpoladd_wrap},
7581			{"Math::Cephesc::fpolsub_wrap", _wrap_fpolsub_wrap},
7582			{"Math::Cephesc::fpolsbt_wrap", _wrap_fpolsbt_wrap},
7583			{"Math::Cephesc::fpoleva_wrap", _wrap_fpoleva_wrap},
7584			{"Math::Cephesc::bernum_wrap", _wrap_bernum_wrap},
7585			{"Math::Cephesc::simpsn_wrap", _wrap_simpsn_wrap},
7586			{"Math::Cephesc::minv", _wrap_minv},
7587			{"Math::Cephesc::mtransp", _wrap_mtransp},
7588			{"Math::Cephesc::eigens", _wrap_eigens},
7589			{"Math::Cephesc::simq", _wrap_simq},
7590			{"Math::Cephesc::polylog", _wrap_polylog},
7591			{"Math::Cephesc::arcdot", _wrap_arcdot},
7592			{"Math::Cephesc::expx2", _wrap_expx2},
7593			{0,0}
7594			};
7595
7596			#ifdef __cplusplus
7597			extern "C"
7598			#endif
7599
7600	17		XS(SWIG_init) {
7601	17		dXSARGS;
7602			int i;
7603			static int _init = 0;
7604	17	50	if (!_init) {
7605	119	100	for (i = 0; swig_types_initial[i]; i++) {
7606	102		swig_types[i] = SWIG_TypeRegister(swig_types_initial[i]);
7607			}
7608	17		_init = 1;
7609			}
7610
7611			/* Install commands */
7612	3281	100	for (i = 0; swig_commands[i].name; i++) {
7613	3264		newXS((char) swig_commands[i].name,swig_commands[i].wrapper, (char)__FILE__);
7614			}
7615
7616			/* Install variables */
7617	272	100	for (i = 0; swig_variables[i].name; i++) {
7618			SV *sv;
7619	255		sv = perl_get_sv((char*) swig_variables[i].name, TRUE \| 0x2);
7620	255	50	if (swig_variables[i].type) {
7621	0		SWIG_MakePtr(sv,(void )1, swig_variables[i].type,0);
7622			} else {
7623	255		sv_setiv(sv,(IV) 0);
7624			}
7625	255		swig_create_magic(sv, (char *) swig_variables[i].name, swig_variables[i].set, swig_variables[i].get);
7626			}
7627
7628			/* Install constant */
7629	17	50	for (i = 0; swig_constants[i].type; i++) {
7630			SV *sv;
7631	0		sv = perl_get_sv((char*)swig_constants[i].name, TRUE \| 0x2);
7632	0		switch(swig_constants[i].type) {
7633	0		case SWIG_INT:
7634	0		sv_setiv(sv, (IV) swig_constants[i].lvalue);
7635	0		break;
7636	0		case SWIG_FLOAT:
7637	0		sv_setnv(sv, (double) swig_constants[i].dvalue);
7638	0		break;
7639	0		case SWIG_STRING:
7640	0		sv_setpv(sv, (char *) swig_constants[i].pvalue);
7641	0		break;
7642	0		case SWIG_POINTER:
7643	0		SWIG_MakePtr(sv, swig_constants[i].pvalue, *(swig_constants[i].ptype),0);
7644	0		break;
7645	0		case SWIG_BINARY:
7646	0		SWIG_MakePackedObj(sv, swig_constants[i].pvalue, swig_constants[i].lvalue, *(swig_constants[i].ptype));
7647	0		break;
7648	0		default:
7649	0		break;
7650			}
7651	0		SvREADONLY_on(sv);
7652			}
7653
7654	17		SWIG_TypeClientData(SWIGTYPE_p_cmplx, (void*) "Math::Cephes::cmplx");
7655	17		SWIG_TypeClientData(SWIGTYPE_p_fract, (void*) "Math::Cephes::fract");
7656	17		ST(0) = &PL_sv_yes;
7657	17		XSRETURN(1);
7658			}
7659