1 /* ----------------------------------------------------------------------------
2  * This file was automatically generated by SWIG (http://www.swig.org).
3  * Version 4.0.1
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 
12 #ifndef SWIGPERL
13 #define SWIGPERL
14 #endif
15 
16 #define SWIG_CASTRANK_MODE
17 
18 /* -----------------------------------------------------------------------------
19  *  This section contains generic SWIG labels for method/variable
20  *  declarations/attributes, and other compiler dependent labels.
21  * ----------------------------------------------------------------------------- */
22 
23 /* template workaround for compilers that cannot correctly implement the C++ standard */
24 #ifndef SWIGTEMPLATEDISAMBIGUATOR
25 # if defined(__SUNPRO_CC) && (__SUNPRO_CC <= 0x560)
26 #  define SWIGTEMPLATEDISAMBIGUATOR template
27 # elif defined(__HP_aCC)
28 /* Needed even with `aCC -AA' when `aCC -V' reports HP ANSI C++ B3910B A.03.55 */
29 /* If we find a maximum version that requires this, the test would be __HP_aCC <= 35500 for A.03.55 */
30 #  define SWIGTEMPLATEDISAMBIGUATOR template
31 # else
32 #  define SWIGTEMPLATEDISAMBIGUATOR
33 # endif
34 #endif
35 
36 /* inline attribute */
37 #ifndef SWIGINLINE
38 # if defined(__cplusplus) || (defined(__GNUC__) && !defined(__STRICT_ANSI__))
39 #   define SWIGINLINE inline
40 # else
41 #   define SWIGINLINE
42 # endif
43 #endif
44 
45 /* attribute recognised by some compilers to avoid 'unused' warnings */
46 #ifndef SWIGUNUSED
47 # if defined(__GNUC__)
48 #   if !(defined(__cplusplus)) || (__GNUC__ > 3 || (__GNUC__ == 3 && __GNUC_MINOR__ >= 4))
49 #     define SWIGUNUSED __attribute__ ((__unused__))
50 #   else
51 #     define SWIGUNUSED
52 #   endif
53 # elif defined(__ICC)
54 #   define SWIGUNUSED __attribute__ ((__unused__))
55 # else
56 #   define SWIGUNUSED
57 # endif
58 #endif
59 
60 #ifndef SWIG_MSC_UNSUPPRESS_4505
61 # if defined(_MSC_VER)
62 #   pragma warning(disable : 4505) /* unreferenced local function has been removed */
63 # endif
64 #endif
65 
66 #ifndef SWIGUNUSEDPARM
67 # ifdef __cplusplus
68 #   define SWIGUNUSEDPARM(p)
69 # else
70 #   define SWIGUNUSEDPARM(p) p SWIGUNUSED
71 # endif
72 #endif
73 
74 /* internal SWIG method */
75 #ifndef SWIGINTERN
76 # define SWIGINTERN static SWIGUNUSED
77 #endif
78 
79 /* internal inline SWIG method */
80 #ifndef SWIGINTERNINLINE
81 # define SWIGINTERNINLINE SWIGINTERN SWIGINLINE
82 #endif
83 
84 /* exporting methods */
85 #if defined(__GNUC__)
86 #  if (__GNUC__ >= 4) || (__GNUC__ == 3 && __GNUC_MINOR__ >= 4)
87 #    ifndef GCC_HASCLASSVISIBILITY
88 #      define GCC_HASCLASSVISIBILITY
89 #    endif
90 #  endif
91 #endif
92 
93 #ifndef SWIGEXPORT
94 # if defined(_WIN32) || defined(__WIN32__) || defined(__CYGWIN__)
95 #   if defined(STATIC_LINKED)
96 #     define SWIGEXPORT
97 #   else
98 #     define SWIGEXPORT __declspec(dllexport)
99 #   endif
100 # else
101 #   if defined(__GNUC__) && defined(GCC_HASCLASSVISIBILITY)
102 #     define SWIGEXPORT __attribute__ ((visibility("default")))
103 #   else
104 #     define SWIGEXPORT
105 #   endif
106 # endif
107 #endif
108 
109 /* calling conventions for Windows */
110 #ifndef SWIGSTDCALL
111 # if defined(_WIN32) || defined(__WIN32__) || defined(__CYGWIN__)
112 #   define SWIGSTDCALL __stdcall
113 # else
114 #   define SWIGSTDCALL
115 # endif
116 #endif
117 
118 /* Deal with Microsoft's attempt at deprecating C standard runtime functions */
119 #if !defined(SWIG_NO_CRT_SECURE_NO_DEPRECATE) && defined(_MSC_VER) && !defined(_CRT_SECURE_NO_DEPRECATE)
120 # define _CRT_SECURE_NO_DEPRECATE
121 #endif
122 
123 /* Deal with Microsoft's attempt at deprecating methods in the standard C++ library */
124 #if !defined(SWIG_NO_SCL_SECURE_NO_DEPRECATE) && defined(_MSC_VER) && !defined(_SCL_SECURE_NO_DEPRECATE)
125 # define _SCL_SECURE_NO_DEPRECATE
126 #endif
127 
128 /* Deal with Apple's deprecated 'AssertMacros.h' from Carbon-framework */
129 #if defined(__APPLE__) && !defined(__ASSERT_MACROS_DEFINE_VERSIONS_WITHOUT_UNDERSCORES)
130 # define __ASSERT_MACROS_DEFINE_VERSIONS_WITHOUT_UNDERSCORES 0
131 #endif
132 
133 /* Intel's compiler complains if a variable which was never initialised is
134  * cast to void, which is a common idiom which we use to indicate that we
135  * are aware a variable isn't used.  So we just silence that warning.
136  * See: https://github.com/swig/swig/issues/192 for more discussion.
137  */
138 #ifdef __INTEL_COMPILER
139 # pragma warning disable 592
140 #endif
141 
142 /* -----------------------------------------------------------------------------
143  * swigrun.swg
144  *
145  * This file contains generic C API SWIG runtime support for pointer
146  * type checking.
147  * ----------------------------------------------------------------------------- */
148 
149 /* This should only be incremented when either the layout of swig_type_info changes,
150    or for whatever reason, the runtime changes incompatibly */
151 #define SWIG_RUNTIME_VERSION "4"
152 
153 /* define SWIG_TYPE_TABLE_NAME as "SWIG_TYPE_TABLE" */
154 #ifdef SWIG_TYPE_TABLE
155 # define SWIG_QUOTE_STRING(x) #x
156 # define SWIG_EXPAND_AND_QUOTE_STRING(x) SWIG_QUOTE_STRING(x)
157 # define SWIG_TYPE_TABLE_NAME SWIG_EXPAND_AND_QUOTE_STRING(SWIG_TYPE_TABLE)
158 #else
159 # define SWIG_TYPE_TABLE_NAME
160 #endif
161 
162 /*
163   You can use the SWIGRUNTIME and SWIGRUNTIMEINLINE macros for
164   creating a static or dynamic library from the SWIG runtime code.
165   In 99.9% of the cases, SWIG just needs to declare them as 'static'.
166 
167   But only do this if strictly necessary, ie, if you have problems
168   with your compiler or suchlike.
169 */
170 
171 #ifndef SWIGRUNTIME
172 # define SWIGRUNTIME SWIGINTERN
173 #endif
174 
175 #ifndef SWIGRUNTIMEINLINE
176 # define SWIGRUNTIMEINLINE SWIGRUNTIME SWIGINLINE
177 #endif
178 
179 /*  Generic buffer size */
180 #ifndef SWIG_BUFFER_SIZE
181 # define SWIG_BUFFER_SIZE 1024
182 #endif
183 
184 /* Flags for pointer conversions */
185 #define SWIG_POINTER_DISOWN        0x1
186 #define SWIG_CAST_NEW_MEMORY       0x2
187 #define SWIG_POINTER_NO_NULL       0x4
188 
189 /* Flags for new pointer objects */
190 #define SWIG_POINTER_OWN           0x1
191 
192 
193 /*
194    Flags/methods for returning states.
195 
196    The SWIG conversion methods, as ConvertPtr, return an integer
197    that tells if the conversion was successful or not. And if not,
198    an error code can be returned (see swigerrors.swg for the codes).
199 
200    Use the following macros/flags to set or process the returning
201    states.
202 
203    In old versions of SWIG, code such as the following was usually written:
204 
205      if (SWIG_ConvertPtr(obj,vptr,ty.flags) != -1) {
206        // success code
207      } else {
208        //fail code
209      }
210 
211    Now you can be more explicit:
212 
213     int res = SWIG_ConvertPtr(obj,vptr,ty.flags);
214     if (SWIG_IsOK(res)) {
215       // success code
216     } else {
217       // fail code
218     }
219 
220    which is the same really, but now you can also do
221 
222     Type *ptr;
223     int res = SWIG_ConvertPtr(obj,(void **)(&ptr),ty.flags);
224     if (SWIG_IsOK(res)) {
225       // success code
226       if (SWIG_IsNewObj(res) {
227         ...
228 	delete *ptr;
229       } else {
230         ...
231       }
232     } else {
233       // fail code
234     }
235 
236    I.e., now SWIG_ConvertPtr can return new objects and you can
237    identify the case and take care of the deallocation. Of course that
238    also requires SWIG_ConvertPtr to return new result values, such as
239 
240       int SWIG_ConvertPtr(obj, ptr,...) {
241         if (<obj is ok>) {
242           if (<need new object>) {
243             *ptr = <ptr to new allocated object>;
244             return SWIG_NEWOBJ;
245           } else {
246             *ptr = <ptr to old object>;
247             return SWIG_OLDOBJ;
248           }
249         } else {
250           return SWIG_BADOBJ;
251         }
252       }
253 
254    Of course, returning the plain '0(success)/-1(fail)' still works, but you can be
255    more explicit by returning SWIG_BADOBJ, SWIG_ERROR or any of the
256    SWIG errors code.
257 
258    Finally, if the SWIG_CASTRANK_MODE is enabled, the result code
259    allows to return the 'cast rank', for example, if you have this
260 
261        int food(double)
262        int fooi(int);
263 
264    and you call
265 
266       food(1)   // cast rank '1'  (1 -> 1.0)
267       fooi(1)   // cast rank '0'
268 
269    just use the SWIG_AddCast()/SWIG_CheckState()
270 */
271 
272 #define SWIG_OK                    (0)
273 #define SWIG_ERROR                 (-1)
274 #define SWIG_IsOK(r)               (r >= 0)
275 #define SWIG_ArgError(r)           ((r != SWIG_ERROR) ? r : SWIG_TypeError)
276 
277 /* The CastRankLimit says how many bits are used for the cast rank */
278 #define SWIG_CASTRANKLIMIT         (1 << 8)
279 /* The NewMask denotes the object was created (using new/malloc) */
280 #define SWIG_NEWOBJMASK            (SWIG_CASTRANKLIMIT  << 1)
281 /* The TmpMask is for in/out typemaps that use temporal objects */
282 #define SWIG_TMPOBJMASK            (SWIG_NEWOBJMASK << 1)
283 /* Simple returning values */
284 #define SWIG_BADOBJ                (SWIG_ERROR)
285 #define SWIG_OLDOBJ                (SWIG_OK)
286 #define SWIG_NEWOBJ                (SWIG_OK | SWIG_NEWOBJMASK)
287 #define SWIG_TMPOBJ                (SWIG_OK | SWIG_TMPOBJMASK)
288 /* Check, add and del mask methods */
289 #define SWIG_AddNewMask(r)         (SWIG_IsOK(r) ? (r | SWIG_NEWOBJMASK) : r)
290 #define SWIG_DelNewMask(r)         (SWIG_IsOK(r) ? (r & ~SWIG_NEWOBJMASK) : r)
291 #define SWIG_IsNewObj(r)           (SWIG_IsOK(r) && (r & SWIG_NEWOBJMASK))
292 #define SWIG_AddTmpMask(r)         (SWIG_IsOK(r) ? (r | SWIG_TMPOBJMASK) : r)
293 #define SWIG_DelTmpMask(r)         (SWIG_IsOK(r) ? (r & ~SWIG_TMPOBJMASK) : r)
294 #define SWIG_IsTmpObj(r)           (SWIG_IsOK(r) && (r & SWIG_TMPOBJMASK))
295 
296 /* Cast-Rank Mode */
297 #if defined(SWIG_CASTRANK_MODE)
298 #  ifndef SWIG_TypeRank
299 #    define SWIG_TypeRank             unsigned long
300 #  endif
301 #  ifndef SWIG_MAXCASTRANK            /* Default cast allowed */
302 #    define SWIG_MAXCASTRANK          (2)
303 #  endif
304 #  define SWIG_CASTRANKMASK          ((SWIG_CASTRANKLIMIT) -1)
305 #  define SWIG_CastRank(r)           (r & SWIG_CASTRANKMASK)
SWIG_AddCast(int r)306 SWIGINTERNINLINE int SWIG_AddCast(int r) {
307   return SWIG_IsOK(r) ? ((SWIG_CastRank(r) < SWIG_MAXCASTRANK) ? (r + 1) : SWIG_ERROR) : r;
308 }
SWIG_CheckState(int r)309 SWIGINTERNINLINE int SWIG_CheckState(int r) {
310   return SWIG_IsOK(r) ? SWIG_CastRank(r) + 1 : 0;
311 }
312 #else /* no cast-rank mode */
313 #  define SWIG_AddCast(r) (r)
314 #  define SWIG_CheckState(r) (SWIG_IsOK(r) ? 1 : 0)
315 #endif
316 
317 
318 #include <string.h>
319 
320 #ifdef __cplusplus
321 extern "C" {
322 #endif
323 
324 typedef void *(*swig_converter_func)(void *, int *);
325 typedef struct swig_type_info *(*swig_dycast_func)(void **);
326 
327 /* Structure to store information on one type */
328 typedef struct swig_type_info {
329   const char             *name;			/* mangled name of this type */
330   const char             *str;			/* human readable name of this type */
331   swig_dycast_func        dcast;		/* dynamic cast function down a hierarchy */
332   struct swig_cast_info  *cast;			/* linked list of types that can cast into this type */
333   void                   *clientdata;		/* language specific type data */
334   int                    owndata;		/* flag if the structure owns the clientdata */
335 } swig_type_info;
336 
337 /* Structure to store a type and conversion function used for casting */
338 typedef struct swig_cast_info {
339   swig_type_info         *type;			/* pointer to type that is equivalent to this type */
340   swig_converter_func     converter;		/* function to cast the void pointers */
341   struct swig_cast_info  *next;			/* pointer to next cast in linked list */
342   struct swig_cast_info  *prev;			/* pointer to the previous cast */
343 } swig_cast_info;
344 
345 /* Structure used to store module information
346  * Each module generates one structure like this, and the runtime collects
347  * all of these structures and stores them in a circularly linked list.*/
348 typedef struct swig_module_info {
349   swig_type_info         **types;		/* Array of pointers to swig_type_info structures that are in this module */
350   size_t                 size;		        /* Number of types in this module */
351   struct swig_module_info *next;		/* Pointer to next element in circularly linked list */
352   swig_type_info         **type_initial;	/* Array of initially generated type structures */
353   swig_cast_info         **cast_initial;	/* Array of initially generated casting structures */
354   void                    *clientdata;		/* Language specific module data */
355 } swig_module_info;
356 
357 /*
358   Compare two type names skipping the space characters, therefore
359   "char*" == "char *" and "Class<int>" == "Class<int >", etc.
360 
361   Return 0 when the two name types are equivalent, as in
362   strncmp, but skipping ' '.
363 */
364 SWIGRUNTIME int
SWIG_TypeNameComp(const char * f1,const char * l1,const char * f2,const char * l2)365 SWIG_TypeNameComp(const char *f1, const char *l1,
366 		  const char *f2, const char *l2) {
367   for (;(f1 != l1) && (f2 != l2); ++f1, ++f2) {
368     while ((*f1 == ' ') && (f1 != l1)) ++f1;
369     while ((*f2 == ' ') && (f2 != l2)) ++f2;
370     if (*f1 != *f2) return (*f1 > *f2) ? 1 : -1;
371   }
372   return (int)((l1 - f1) - (l2 - f2));
373 }
374 
375 /*
376   Check type equivalence in a name list like <name1>|<name2>|...
377   Return 0 if equal, -1 if nb < tb, 1 if nb > tb
378 */
379 SWIGRUNTIME int
SWIG_TypeCmp(const char * nb,const char * tb)380 SWIG_TypeCmp(const char *nb, const char *tb) {
381   int equiv = 1;
382   const char* te = tb + strlen(tb);
383   const char* ne = nb;
384   while (equiv != 0 && *ne) {
385     for (nb = ne; *ne; ++ne) {
386       if (*ne == '|') break;
387     }
388     equiv = SWIG_TypeNameComp(nb, ne, tb, te);
389     if (*ne) ++ne;
390   }
391   return equiv;
392 }
393 
394 /*
395   Check type equivalence in a name list like <name1>|<name2>|...
396   Return 0 if not equal, 1 if equal
397 */
398 SWIGRUNTIME int
SWIG_TypeEquiv(const char * nb,const char * tb)399 SWIG_TypeEquiv(const char *nb, const char *tb) {
400   return SWIG_TypeCmp(nb, tb) == 0 ? 1 : 0;
401 }
402 
403 /*
404   Check the typename
405 */
406 SWIGRUNTIME swig_cast_info *
SWIG_TypeCheck(const char * c,swig_type_info * ty)407 SWIG_TypeCheck(const char *c, swig_type_info *ty) {
408   if (ty) {
409     swig_cast_info *iter = ty->cast;
410     while (iter) {
411       if (strcmp(iter->type->name, c) == 0) {
412         if (iter == ty->cast)
413           return iter;
414         /* Move iter to the top of the linked list */
415         iter->prev->next = iter->next;
416         if (iter->next)
417           iter->next->prev = iter->prev;
418         iter->next = ty->cast;
419         iter->prev = 0;
420         if (ty->cast) ty->cast->prev = iter;
421         ty->cast = iter;
422         return iter;
423       }
424       iter = iter->next;
425     }
426   }
427   return 0;
428 }
429 
430 /*
431   Identical to SWIG_TypeCheck, except strcmp is replaced with a pointer comparison
432 */
433 SWIGRUNTIME swig_cast_info *
SWIG_TypeCheckStruct(swig_type_info * from,swig_type_info * ty)434 SWIG_TypeCheckStruct(swig_type_info *from, swig_type_info *ty) {
435   if (ty) {
436     swig_cast_info *iter = ty->cast;
437     while (iter) {
438       if (iter->type == from) {
439         if (iter == ty->cast)
440           return iter;
441         /* Move iter to the top of the linked list */
442         iter->prev->next = iter->next;
443         if (iter->next)
444           iter->next->prev = iter->prev;
445         iter->next = ty->cast;
446         iter->prev = 0;
447         if (ty->cast) ty->cast->prev = iter;
448         ty->cast = iter;
449         return iter;
450       }
451       iter = iter->next;
452     }
453   }
454   return 0;
455 }
456 
457 /*
458   Cast a pointer up an inheritance hierarchy
459 */
460 SWIGRUNTIMEINLINE void *
SWIG_TypeCast(swig_cast_info * ty,void * ptr,int * newmemory)461 SWIG_TypeCast(swig_cast_info *ty, void *ptr, int *newmemory) {
462   return ((!ty) || (!ty->converter)) ? ptr : (*ty->converter)(ptr, newmemory);
463 }
464 
465 /*
466    Dynamic pointer casting. Down an inheritance hierarchy
467 */
468 SWIGRUNTIME swig_type_info *
SWIG_TypeDynamicCast(swig_type_info * ty,void ** ptr)469 SWIG_TypeDynamicCast(swig_type_info *ty, void **ptr) {
470   swig_type_info *lastty = ty;
471   if (!ty || !ty->dcast) return ty;
472   while (ty && (ty->dcast)) {
473     ty = (*ty->dcast)(ptr);
474     if (ty) lastty = ty;
475   }
476   return lastty;
477 }
478 
479 /*
480   Return the name associated with this type
481 */
482 SWIGRUNTIMEINLINE const char *
SWIG_TypeName(const swig_type_info * ty)483 SWIG_TypeName(const swig_type_info *ty) {
484   return ty->name;
485 }
486 
487 /*
488   Return the pretty name associated with this type,
489   that is an unmangled type name in a form presentable to the user.
490 */
491 SWIGRUNTIME const char *
SWIG_TypePrettyName(const swig_type_info * type)492 SWIG_TypePrettyName(const swig_type_info *type) {
493   /* The "str" field contains the equivalent pretty names of the
494      type, separated by vertical-bar characters.  We choose
495      to print the last name, as it is often (?) the most
496      specific. */
497   if (!type) return NULL;
498   if (type->str != NULL) {
499     const char *last_name = type->str;
500     const char *s;
501     for (s = type->str; *s; s++)
502       if (*s == '|') last_name = s+1;
503     return last_name;
504   }
505   else
506     return type->name;
507 }
508 
509 /*
510    Set the clientdata field for a type
511 */
512 SWIGRUNTIME void
SWIG_TypeClientData(swig_type_info * ti,void * clientdata)513 SWIG_TypeClientData(swig_type_info *ti, void *clientdata) {
514   swig_cast_info *cast = ti->cast;
515   /* if (ti->clientdata == clientdata) return; */
516   ti->clientdata = clientdata;
517 
518   while (cast) {
519     if (!cast->converter) {
520       swig_type_info *tc = cast->type;
521       if (!tc->clientdata) {
522 	SWIG_TypeClientData(tc, clientdata);
523       }
524     }
525     cast = cast->next;
526   }
527 }
528 SWIGRUNTIME void
SWIG_TypeNewClientData(swig_type_info * ti,void * clientdata)529 SWIG_TypeNewClientData(swig_type_info *ti, void *clientdata) {
530   SWIG_TypeClientData(ti, clientdata);
531   ti->owndata = 1;
532 }
533 
534 /*
535   Search for a swig_type_info structure only by mangled name
536   Search is a O(log #types)
537 
538   We start searching at module start, and finish searching when start == end.
539   Note: if start == end at the beginning of the function, we go all the way around
540   the circular list.
541 */
542 SWIGRUNTIME swig_type_info *
SWIG_MangledTypeQueryModule(swig_module_info * start,swig_module_info * end,const char * name)543 SWIG_MangledTypeQueryModule(swig_module_info *start,
544                             swig_module_info *end,
545 		            const char *name) {
546   swig_module_info *iter = start;
547   do {
548     if (iter->size) {
549       size_t l = 0;
550       size_t r = iter->size - 1;
551       do {
552 	/* since l+r >= 0, we can (>> 1) instead (/ 2) */
553 	size_t i = (l + r) >> 1;
554 	const char *iname = iter->types[i]->name;
555 	if (iname) {
556 	  int compare = strcmp(name, iname);
557 	  if (compare == 0) {
558 	    return iter->types[i];
559 	  } else if (compare < 0) {
560 	    if (i) {
561 	      r = i - 1;
562 	    } else {
563 	      break;
564 	    }
565 	  } else if (compare > 0) {
566 	    l = i + 1;
567 	  }
568 	} else {
569 	  break; /* should never happen */
570 	}
571       } while (l <= r);
572     }
573     iter = iter->next;
574   } while (iter != end);
575   return 0;
576 }
577 
578 /*
579   Search for a swig_type_info structure for either a mangled name or a human readable name.
580   It first searches the mangled names of the types, which is a O(log #types)
581   If a type is not found it then searches the human readable names, which is O(#types).
582 
583   We start searching at module start, and finish searching when start == end.
584   Note: if start == end at the beginning of the function, we go all the way around
585   the circular list.
586 */
587 SWIGRUNTIME swig_type_info *
SWIG_TypeQueryModule(swig_module_info * start,swig_module_info * end,const char * name)588 SWIG_TypeQueryModule(swig_module_info *start,
589                      swig_module_info *end,
590 		     const char *name) {
591   /* STEP 1: Search the name field using binary search */
592   swig_type_info *ret = SWIG_MangledTypeQueryModule(start, end, name);
593   if (ret) {
594     return ret;
595   } else {
596     /* STEP 2: If the type hasn't been found, do a complete search
597        of the str field (the human readable name) */
598     swig_module_info *iter = start;
599     do {
600       size_t i = 0;
601       for (; i < iter->size; ++i) {
602 	if (iter->types[i]->str && (SWIG_TypeEquiv(iter->types[i]->str, name)))
603 	  return iter->types[i];
604       }
605       iter = iter->next;
606     } while (iter != end);
607   }
608 
609   /* neither found a match */
610   return 0;
611 }
612 
613 /*
614    Pack binary data into a string
615 */
616 SWIGRUNTIME char *
SWIG_PackData(char * c,void * ptr,size_t sz)617 SWIG_PackData(char *c, void *ptr, size_t sz) {
618   static const char hex[17] = "0123456789abcdef";
619   const unsigned char *u = (unsigned char *) ptr;
620   const unsigned char *eu =  u + sz;
621   for (; u != eu; ++u) {
622     unsigned char uu = *u;
623     *(c++) = hex[(uu & 0xf0) >> 4];
624     *(c++) = hex[uu & 0xf];
625   }
626   return c;
627 }
628 
629 /*
630    Unpack binary data from a string
631 */
632 SWIGRUNTIME const char *
SWIG_UnpackData(const char * c,void * ptr,size_t sz)633 SWIG_UnpackData(const char *c, void *ptr, size_t sz) {
634   unsigned char *u = (unsigned char *) ptr;
635   const unsigned char *eu = u + sz;
636   for (; u != eu; ++u) {
637     char d = *(c++);
638     unsigned char uu;
639     if ((d >= '0') && (d <= '9'))
640       uu = (unsigned char)((d - '0') << 4);
641     else if ((d >= 'a') && (d <= 'f'))
642       uu = (unsigned char)((d - ('a'-10)) << 4);
643     else
644       return (char *) 0;
645     d = *(c++);
646     if ((d >= '0') && (d <= '9'))
647       uu |= (unsigned char)(d - '0');
648     else if ((d >= 'a') && (d <= 'f'))
649       uu |= (unsigned char)(d - ('a'-10));
650     else
651       return (char *) 0;
652     *u = uu;
653   }
654   return c;
655 }
656 
657 /*
658    Pack 'void *' into a string buffer.
659 */
660 SWIGRUNTIME char *
SWIG_PackVoidPtr(char * buff,void * ptr,const char * name,size_t bsz)661 SWIG_PackVoidPtr(char *buff, void *ptr, const char *name, size_t bsz) {
662   char *r = buff;
663   if ((2*sizeof(void *) + 2) > bsz) return 0;
664   *(r++) = '_';
665   r = SWIG_PackData(r,&ptr,sizeof(void *));
666   if (strlen(name) + 1 > (bsz - (r - buff))) return 0;
667   strcpy(r,name);
668   return buff;
669 }
670 
671 SWIGRUNTIME const char *
SWIG_UnpackVoidPtr(const char * c,void ** ptr,const char * name)672 SWIG_UnpackVoidPtr(const char *c, void **ptr, const char *name) {
673   if (*c != '_') {
674     if (strcmp(c,"NULL") == 0) {
675       *ptr = (void *) 0;
676       return name;
677     } else {
678       return 0;
679     }
680   }
681   return SWIG_UnpackData(++c,ptr,sizeof(void *));
682 }
683 
684 SWIGRUNTIME char *
SWIG_PackDataName(char * buff,void * ptr,size_t sz,const char * name,size_t bsz)685 SWIG_PackDataName(char *buff, void *ptr, size_t sz, const char *name, size_t bsz) {
686   char *r = buff;
687   size_t lname = (name ? strlen(name) : 0);
688   if ((2*sz + 2 + lname) > bsz) return 0;
689   *(r++) = '_';
690   r = SWIG_PackData(r,ptr,sz);
691   if (lname) {
692     strncpy(r,name,lname+1);
693   } else {
694     *r = 0;
695   }
696   return buff;
697 }
698 
699 SWIGRUNTIME const char *
SWIG_UnpackDataName(const char * c,void * ptr,size_t sz,const char * name)700 SWIG_UnpackDataName(const char *c, void *ptr, size_t sz, const char *name) {
701   if (*c != '_') {
702     if (strcmp(c,"NULL") == 0) {
703       memset(ptr,0,sz);
704       return name;
705     } else {
706       return 0;
707     }
708   }
709   return SWIG_UnpackData(++c,ptr,sz);
710 }
711 
712 #ifdef __cplusplus
713 }
714 #endif
715 
716 /*  Errors in SWIG */
717 #define  SWIG_UnknownError    	   -1
718 #define  SWIG_IOError        	   -2
719 #define  SWIG_RuntimeError   	   -3
720 #define  SWIG_IndexError     	   -4
721 #define  SWIG_TypeError      	   -5
722 #define  SWIG_DivisionByZero 	   -6
723 #define  SWIG_OverflowError  	   -7
724 #define  SWIG_SyntaxError    	   -8
725 #define  SWIG_ValueError     	   -9
726 #define  SWIG_SystemError    	   -10
727 #define  SWIG_AttributeError 	   -11
728 #define  SWIG_MemoryError    	   -12
729 #define  SWIG_NullReferenceError   -13
730 
731 
732 
733 #ifdef __cplusplus
734 /* Needed on some windows machines---since MS plays funny games with the header files under C++ */
735 #include <math.h>
736 #include <stdlib.h>
737 extern "C" {
738 #endif
739 #include "EXTERN.h"
740 #include "perl.h"
741 #include "XSUB.h"
742 
743 /* Add in functionality missing in older versions of Perl. Much of this is based on Devel-PPPort on cpan. */
744 
745 /* Add PERL_REVISION, PERL_VERSION, PERL_SUBVERSION if missing */
746 #ifndef PERL_REVISION
747 #  if !defined(__PATCHLEVEL_H_INCLUDED__) && !(defined(PATCHLEVEL) && defined(SUBVERSION))
748 #    define PERL_PATCHLEVEL_H_IMPLICIT
749 #    include <patchlevel.h>
750 #  endif
751 #  if !(defined(PERL_VERSION) || (defined(SUBVERSION) && defined(PATCHLEVEL)))
752 #    include <could_not_find_Perl_patchlevel.h>
753 #  endif
754 #  ifndef PERL_REVISION
755 #    define PERL_REVISION       (5)
756 #    define PERL_VERSION        PATCHLEVEL
757 #    define PERL_SUBVERSION     SUBVERSION
758 #  endif
759 #endif
760 
761 #if defined(WIN32) && defined(PERL_OBJECT) && !defined(PerlIO_exportFILE)
762 #define PerlIO_exportFILE(fh,fl) (FILE*)(fh)
763 #endif
764 
765 #ifndef SvIOK_UV
766 # define SvIOK_UV(sv)       (SvIOK(sv) && (SvUVX(sv) == SvIVX(sv)))
767 #endif
768 
769 #ifndef SvUOK
770 # define SvUOK(sv)           SvIOK_UV(sv)
771 #endif
772 
773 #if ((PERL_VERSION < 4) || ((PERL_VERSION == 4) && (PERL_SUBVERSION <= 5)))
774 #  define PL_sv_undef               sv_undef
775 #  define PL_na	                    na
776 #  define PL_errgv                  errgv
777 #  define PL_sv_no                  sv_no
778 #  define PL_sv_yes                 sv_yes
779 #  define PL_markstack_ptr          markstack_ptr
780 #endif
781 
782 #ifndef IVSIZE
783 #  ifdef LONGSIZE
784 #    define IVSIZE LONGSIZE
785 #  else
786 #    define IVSIZE 4 /* A bold guess, but the best we can make. */
787 #  endif
788 #endif
789 
790 #ifndef INT2PTR
791 #  if (IVSIZE == PTRSIZE) && (UVSIZE == PTRSIZE)
792 #    define PTRV                  UV
793 #    define INT2PTR(any,d)        (any)(d)
794 #  else
795 #    if PTRSIZE == LONGSIZE
796 #      define PTRV                unsigned long
797 #    else
798 #      define PTRV                unsigned
799 #    endif
800 #    define INT2PTR(any,d)        (any)(PTRV)(d)
801 #  endif
802 
803 #  define NUM2PTR(any,d)  (any)(PTRV)(d)
804 #  define PTR2IV(p)       INT2PTR(IV,p)
805 #  define PTR2UV(p)       INT2PTR(UV,p)
806 #  define PTR2NV(p)       NUM2PTR(NV,p)
807 
808 #  if PTRSIZE == LONGSIZE
809 #    define PTR2ul(p)     (unsigned long)(p)
810 #  else
811 #    define PTR2ul(p)     INT2PTR(unsigned long,p)
812 #  endif
813 #endif /* !INT2PTR */
814 
815 #ifndef SvPV_nolen
816 # define SvPV_nolen(x) SvPV(x,PL_na)
817 #endif
818 
819 #ifndef get_sv
820 #  define get_sv perl_get_sv
821 #endif
822 
823 #ifndef ERRSV
824 #  define ERRSV get_sv("@",FALSE)
825 #endif
826 
827 #ifndef pTHX_
828 #define pTHX_
829 #endif
830 
831 #include <string.h>
832 #ifdef __cplusplus
833 }
834 #endif
835 
836 /* -----------------------------------------------------------------------------
837  * error manipulation
838  * ----------------------------------------------------------------------------- */
839 
840 SWIGINTERN const char*
SWIG_Perl_ErrorType(int code)841 SWIG_Perl_ErrorType(int code) {
842   switch(code) {
843   case SWIG_MemoryError:
844     return "MemoryError";
845   case SWIG_IOError:
846     return "IOError";
847   case SWIG_RuntimeError:
848     return "RuntimeError";
849   case SWIG_IndexError:
850     return "IndexError";
851   case SWIG_TypeError:
852     return "TypeError";
853   case SWIG_DivisionByZero:
854     return "ZeroDivisionError";
855   case SWIG_OverflowError:
856     return "OverflowError";
857   case SWIG_SyntaxError:
858     return "SyntaxError";
859   case SWIG_ValueError:
860     return "ValueError";
861   case SWIG_SystemError:
862     return "SystemError";
863   case SWIG_AttributeError:
864     return "AttributeError";
865   default:
866     return "RuntimeError";
867   }
868 }
869 
870 
871 /* -----------------------------------------------------------------------------
872  * perlrun.swg
873  *
874  * This file contains the runtime support for Perl modules
875  * and includes code for managing global variables and pointer
876  * type checking.
877  * ----------------------------------------------------------------------------- */
878 
879 #ifdef PERL_OBJECT
880 #define SWIG_PERL_OBJECT_DECL CPerlObj *SWIGUNUSEDPARM(pPerl),
881 #define SWIG_PERL_OBJECT_CALL pPerl,
882 #else
883 #define SWIG_PERL_OBJECT_DECL
884 #define SWIG_PERL_OBJECT_CALL
885 #endif
886 
887 /* Common SWIG API */
888 
889 /* for raw pointers */
890 #define SWIG_ConvertPtr(obj, pp, type, flags)           SWIG_Perl_ConvertPtr(SWIG_PERL_OBJECT_CALL obj, pp, type, flags)
891 #define SWIG_ConvertPtrAndOwn(obj, pp, type, flags,own) SWIG_Perl_ConvertPtrAndOwn(SWIG_PERL_OBJECT_CALL obj, pp, type, flags, own)
892 #define SWIG_NewPointerObj(p, type, flags)              SWIG_Perl_NewPointerObj(SWIG_PERL_OBJECT_CALL p, type, flags)
893 #define SWIG_AcquirePtr(ptr, src)                       SWIG_Perl_AcquirePtr(ptr, src)
894 #define swig_owntype                                    int
895 
896 /* for raw packed data */
897 #define SWIG_ConvertPacked(obj, p, s, type)             SWIG_Perl_ConvertPacked(SWIG_PERL_OBJECT_CALL obj, p, s, type)
898 #define SWIG_NewPackedObj(p, s, type)	                SWIG_Perl_NewPackedObj(SWIG_PERL_OBJECT_CALL p, s, type)
899 
900 /* for class or struct pointers */
901 #define SWIG_ConvertInstance(obj, pptr, type, flags)    SWIG_ConvertPtr(obj, pptr, type, flags)
902 #define SWIG_NewInstanceObj(ptr, type, flags)           SWIG_NewPointerObj(ptr, type, flags)
903 
904 /* for C or C++ function pointers */
905 #define SWIG_ConvertFunctionPtr(obj, pptr, type)        SWIG_ConvertPtr(obj, pptr, type, 0)
906 #define SWIG_NewFunctionPtrObj(ptr, type)               SWIG_NewPointerObj(ptr, type, 0)
907 
908 /* for C++ member pointers, ie, member methods */
909 #define SWIG_ConvertMember(obj, ptr, sz, ty)            SWIG_ConvertPacked(obj, ptr, sz, ty)
910 #define SWIG_NewMemberObj(ptr, sz, type)                SWIG_NewPackedObj(ptr, sz, type)
911 
912 
913 /* Runtime API */
914 
915 #define SWIG_GetModule(clientdata)                      SWIG_Perl_GetModule(clientdata)
916 #define SWIG_SetModule(clientdata, pointer)             SWIG_Perl_SetModule(pointer)
917 
918 
919 /* Error manipulation */
920 
921 #define SWIG_ErrorType(code)                            SWIG_Perl_ErrorType(code)
922 #define SWIG_Error(code, msg)            		sv_setpvf(get_sv("@", GV_ADD), "%s %s", SWIG_ErrorType(code), msg)
923 #define SWIG_fail                        		goto fail
924 
925 /* Perl-specific SWIG API */
926 
927 #define SWIG_MakePtr(sv, ptr, type, flags)              SWIG_Perl_MakePtr(SWIG_PERL_OBJECT_CALL sv, ptr, type, flags)
928 #define SWIG_MakePackedObj(sv, p, s, type)	        SWIG_Perl_MakePackedObj(SWIG_PERL_OBJECT_CALL sv, p, s, type)
929 #define SWIG_SetError(str)                              SWIG_Error(SWIG_RuntimeError, str)
930 
931 
932 #define SWIG_PERL_DECL_ARGS_1(arg1)                     (SWIG_PERL_OBJECT_DECL arg1)
933 #define SWIG_PERL_CALL_ARGS_1(arg1)                     (SWIG_PERL_OBJECT_CALL arg1)
934 #define SWIG_PERL_DECL_ARGS_2(arg1, arg2)               (SWIG_PERL_OBJECT_DECL arg1, arg2)
935 #define SWIG_PERL_CALL_ARGS_2(arg1, arg2)               (SWIG_PERL_OBJECT_CALL arg1, arg2)
936 
937 /* -----------------------------------------------------------------------------
938  * pointers/data manipulation
939  * ----------------------------------------------------------------------------- */
940 
941 /* For backward compatibility only */
942 #define SWIG_POINTER_EXCEPTION  0
943 
944 #ifdef __cplusplus
945 extern "C" {
946 #endif
947 
948 #define SWIG_OWNER   SWIG_POINTER_OWN
949 #define SWIG_SHADOW  SWIG_OWNER << 1
950 
951 #define SWIG_MAYBE_PERL_OBJECT SWIG_PERL_OBJECT_DECL
952 
953 /* SWIG Perl macros */
954 
955 /* Macro to declare an XS function */
956 #ifndef XSPROTO
957 #   define XSPROTO(name) void name(pTHX_ CV* cv)
958 #endif
959 
960 /* Macro to call an XS function */
961 #ifdef PERL_OBJECT
962 #  define SWIG_CALLXS(_name) _name(cv,pPerl)
963 #else
964 #  ifndef MULTIPLICITY
965 #    define SWIG_CALLXS(_name) _name(cv)
966 #  else
967 #    define SWIG_CALLXS(_name) _name(PERL_GET_THX, cv)
968 #  endif
969 #endif
970 
971 #ifdef PERL_OBJECT
972 #define MAGIC_PPERL  CPerlObj *pPerl = (CPerlObj *) this;
973 
974 #ifdef __cplusplus
975 extern "C" {
976 #endif
977 typedef int (CPerlObj::*SwigMagicFunc)(SV *, MAGIC *);
978 #ifdef __cplusplus
979 }
980 #endif
981 
982 #define SWIG_MAGIC(a,b) (SV *a, MAGIC *b)
983 #define SWIGCLASS_STATIC
984 
985 #else /* PERL_OBJECT */
986 
987 #define MAGIC_PPERL
988 #define SWIGCLASS_STATIC static SWIGUNUSED
989 
990 #ifndef MULTIPLICITY
991 #define SWIG_MAGIC(a,b) (SV *a, MAGIC *b)
992 
993 #ifdef __cplusplus
994 extern "C" {
995 #endif
996 typedef int (*SwigMagicFunc)(SV *, MAGIC *);
997 #ifdef __cplusplus
998 }
999 #endif
1000 
1001 #else /* MULTIPLICITY */
1002 
1003 #define SWIG_MAGIC(a,b) (struct interpreter *interp, SV *a, MAGIC *b)
1004 
1005 #ifdef __cplusplus
1006 extern "C" {
1007 #endif
1008 typedef int (*SwigMagicFunc)(struct interpreter *, SV *, MAGIC *);
1009 #ifdef __cplusplus
1010 }
1011 #endif
1012 
1013 #endif /* MULTIPLICITY */
1014 #endif /* PERL_OBJECT */
1015 
1016 #  ifdef PERL_OBJECT
1017 #    define SWIG_croak_null() SWIG_Perl_croak_null(pPerl)
SWIG_Perl_croak_null(CPerlObj * pPerl)1018 static void SWIGUNUSED SWIG_Perl_croak_null(CPerlObj *pPerl)
1019 #  else
1020 static void SWIGUNUSED SWIG_croak_null()
1021 #  endif
1022 {
1023   SV *err = get_sv("@", GV_ADD);
1024 #  if (PERL_VERSION < 6)
1025   croak("%_", err);
1026 #  else
1027   if (sv_isobject(err))
1028     croak(0);
1029   else
1030     croak("%s", SvPV_nolen(err));
1031 #  endif
1032 }
1033 
1034 
1035 /*
1036    Define how strict is the cast between strings and integers/doubles
1037    when overloading between these types occurs.
1038 
1039    The default is making it as strict as possible by using SWIG_AddCast
1040    when needed.
1041 
1042    You can use -DSWIG_PERL_NO_STRICT_STR2NUM at compilation time to
1043    disable the SWIG_AddCast, making the casting between string and
1044    numbers less strict.
1045 
1046    In the end, we try to solve the overloading between strings and
1047    numerical types in the more natural way, but if you can avoid it,
1048    well, avoid it using %rename, for example.
1049 */
1050 #ifndef SWIG_PERL_NO_STRICT_STR2NUM
1051 # ifndef SWIG_PERL_STRICT_STR2NUM
1052 #  define SWIG_PERL_STRICT_STR2NUM
1053 # endif
1054 #endif
1055 #ifdef SWIG_PERL_STRICT_STR2NUM
1056 /* string takes precedence */
1057 #define SWIG_Str2NumCast(x) SWIG_AddCast(x)
1058 #else
1059 /* number takes precedence */
1060 #define SWIG_Str2NumCast(x) x
1061 #endif
1062 
1063 
1064 
1065 #include <stdlib.h>
1066 
1067 SWIGRUNTIME const char *
SWIG_Perl_TypeProxyName(const swig_type_info * type)1068 SWIG_Perl_TypeProxyName(const swig_type_info *type) {
1069   if (!type) return NULL;
1070   if (type->clientdata != NULL) {
1071     return (const char*) type->clientdata;
1072   }
1073   else {
1074     return type->name;
1075   }
1076 }
1077 
1078 /* Identical to SWIG_TypeCheck, except for strcmp comparison */
1079 SWIGRUNTIME swig_cast_info *
SWIG_TypeProxyCheck(const char * c,swig_type_info * ty)1080 SWIG_TypeProxyCheck(const char *c, swig_type_info *ty) {
1081   if (ty) {
1082     swig_cast_info *iter = ty->cast;
1083     while (iter) {
1084       if (strcmp(SWIG_Perl_TypeProxyName(iter->type), c) == 0) {
1085         if (iter == ty->cast)
1086           return iter;
1087         /* Move iter to the top of the linked list */
1088         iter->prev->next = iter->next;
1089         if (iter->next)
1090           iter->next->prev = iter->prev;
1091         iter->next = ty->cast;
1092         iter->prev = 0;
1093         if (ty->cast) ty->cast->prev = iter;
1094         ty->cast = iter;
1095         return iter;
1096       }
1097       iter = iter->next;
1098     }
1099   }
1100   return 0;
1101 }
1102 
1103 /* Acquire a pointer value */
1104 
1105 SWIGRUNTIME int
SWIG_Perl_AcquirePtr(SWIG_MAYBE_PERL_OBJECT SV * sv,int own)1106 SWIG_Perl_AcquirePtr(SWIG_MAYBE_PERL_OBJECT SV *sv, int own) {
1107   /* TODO */
1108   return 0;
1109 }
1110 
1111 /* Function for getting a pointer value */
1112 
1113 SWIGRUNTIME int
SWIG_Perl_ConvertPtrAndOwn(SWIG_MAYBE_PERL_OBJECT SV * sv,void ** ptr,swig_type_info * _t,int flags,int * own)1114 SWIG_Perl_ConvertPtrAndOwn(SWIG_MAYBE_PERL_OBJECT SV *sv, void **ptr, swig_type_info *_t, int flags, int *own) {
1115   swig_cast_info *tc;
1116   void *voidptr = (void *)0;
1117   SV *tsv = 0;
1118 
1119   if (own)
1120     *own = 0;
1121 
1122   /* If magical, apply more magic */
1123   if (SvGMAGICAL(sv))
1124     mg_get(sv);
1125 
1126   /* Check to see if this is an object */
1127   if (sv_isobject(sv)) {
1128     IV tmp = 0;
1129     tsv = (SV*) SvRV(sv);
1130     if ((SvTYPE(tsv) == SVt_PVHV)) {
1131       MAGIC *mg;
1132       if (SvMAGICAL(tsv)) {
1133         mg = mg_find(tsv,'P');
1134         if (mg) {
1135           sv = mg->mg_obj;
1136           if (sv_isobject(sv)) {
1137 	    tsv = (SV*)SvRV(sv);
1138             tmp = SvIV(tsv);
1139           }
1140         }
1141       } else {
1142         return SWIG_ERROR;
1143       }
1144     } else {
1145       tmp = SvIV(tsv);
1146     }
1147     voidptr = INT2PTR(void *,tmp);
1148   } else if (! SvOK(sv)) {            /* Check for undef */
1149     *(ptr) = (void *) 0;
1150     return (flags & SWIG_POINTER_NO_NULL) ? SWIG_NullReferenceError : SWIG_OK;
1151   } else if (SvTYPE(sv) == SVt_RV) {  /* Check for NULL pointer */
1152     if (!SvROK(sv)) {
1153       /* In Perl 5.12 and later, SVt_RV == SVt_IV, so sv could be a valid integer value.  */
1154       if (SvIOK(sv)) {
1155         return SWIG_ERROR;
1156       } else {
1157         /* NULL pointer (reference to undef). */
1158         *(ptr) = (void *) 0;
1159         return SWIG_OK;
1160       }
1161     } else {
1162       return SWIG_ERROR;
1163     }
1164   } else {                            /* Don't know what it is */
1165     return SWIG_ERROR;
1166   }
1167   if (_t) {
1168     /* Now see if the types match */
1169     char *_c = HvNAME(SvSTASH(SvRV(sv)));
1170     tc = SWIG_TypeProxyCheck(_c,_t);
1171 #ifdef SWIG_DIRECTORS
1172     if (!tc && !sv_derived_from(sv,SWIG_Perl_TypeProxyName(_t))) {
1173 #else
1174     if (!tc) {
1175 #endif
1176       return SWIG_ERROR;
1177     }
1178     {
1179       int newmemory = 0;
1180       *ptr = SWIG_TypeCast(tc,voidptr,&newmemory);
1181       if (newmemory == SWIG_CAST_NEW_MEMORY) {
1182         assert(own); /* badly formed typemap which will lead to a memory leak - it must set and use own to delete *ptr */
1183         if (own)
1184           *own = *own | SWIG_CAST_NEW_MEMORY;
1185       }
1186     }
1187   } else {
1188     *ptr = voidptr;
1189   }
1190 
1191   /*
1192    *  DISOWN implementation: we need a perl guru to check this one.
1193    */
1194   if (tsv && (flags & SWIG_POINTER_DISOWN)) {
1195     /*
1196      *  almost copy paste code from below SWIG_POINTER_OWN setting
1197      */
1198     SV *obj = sv;
1199     HV *stash = SvSTASH(SvRV(obj));
1200     GV *gv = *(GV**)hv_fetch(stash, "OWNER", 5, TRUE);
1201     if (isGV(gv)) {
1202       HV *hv = GvHVn(gv);
1203       /*
1204        * To set ownership (see below), a newSViv(1) entry is added.
1205        * Hence, to remove ownership, we delete the entry.
1206        */
1207       if (hv_exists_ent(hv, obj, 0)) {
1208 	hv_delete_ent(hv, obj, 0, 0);
1209       }
1210     }
1211   }
1212   return SWIG_OK;
1213 }
1214 
1215 SWIGRUNTIME int
1216 SWIG_Perl_ConvertPtr(SWIG_MAYBE_PERL_OBJECT SV *sv, void **ptr, swig_type_info *_t, int flags) {
1217   return SWIG_Perl_ConvertPtrAndOwn(sv, ptr, _t, flags, 0);
1218 }
1219 
1220 SWIGRUNTIME void
1221 SWIG_Perl_MakePtr(SWIG_MAYBE_PERL_OBJECT SV *sv, void *ptr, swig_type_info *t, int flags) {
1222   if (ptr && (flags & (SWIG_SHADOW | SWIG_POINTER_OWN))) {
1223     SV *self;
1224     SV *obj=newSV(0);
1225     HV *hash=newHV();
1226     HV *stash;
1227     sv_setref_pv(obj, SWIG_Perl_TypeProxyName(t), ptr);
1228     stash=SvSTASH(SvRV(obj));
1229     if (flags & SWIG_POINTER_OWN) {
1230       HV *hv;
1231       GV *gv = *(GV**)hv_fetch(stash, "OWNER", 5, TRUE);
1232       if (!isGV(gv))
1233         gv_init(gv, stash, "OWNER", 5, FALSE);
1234       hv=GvHVn(gv);
1235       hv_store_ent(hv, obj, newSViv(1), 0);
1236     }
1237     sv_magic((SV *)hash, (SV *)obj, 'P', Nullch, 0);
1238     SvREFCNT_dec(obj);
1239     self=newRV_noinc((SV *)hash);
1240     sv_setsv(sv, self);
1241     SvREFCNT_dec((SV *)self);
1242     sv_bless(sv, stash);
1243   }
1244   else {
1245     sv_setref_pv(sv, SWIG_Perl_TypeProxyName(t), ptr);
1246   }
1247 }
1248 
1249 SWIGRUNTIMEINLINE SV *
1250 SWIG_Perl_NewPointerObj(SWIG_MAYBE_PERL_OBJECT void *ptr, swig_type_info *t, int flags) {
1251   SV *result = sv_newmortal();
1252   SWIG_MakePtr(result, ptr, t, flags);
1253   return result;
1254 }
1255 
1256 SWIGRUNTIME void
1257 SWIG_Perl_MakePackedObj(SWIG_MAYBE_PERL_OBJECT SV *sv, void *ptr, int sz, swig_type_info *type) {
1258   char result[1024];
1259   char *r = result;
1260   if ((2*sz + 1 + strlen(SWIG_Perl_TypeProxyName(type))) > 1000) return;
1261   *(r++) = '_';
1262   r = SWIG_PackData(r,ptr,sz);
1263   strcpy(r,SWIG_Perl_TypeProxyName(type));
1264   sv_setpv(sv, result);
1265 }
1266 
1267 SWIGRUNTIME SV *
1268 SWIG_Perl_NewPackedObj(SWIG_MAYBE_PERL_OBJECT void *ptr, int sz, swig_type_info *type) {
1269   SV *result = sv_newmortal();
1270   SWIG_Perl_MakePackedObj(result, ptr, sz, type);
1271   return result;
1272 }
1273 
1274 /* Convert a packed pointer value */
1275 SWIGRUNTIME int
1276 SWIG_Perl_ConvertPacked(SWIG_MAYBE_PERL_OBJECT SV *obj, void *ptr, int sz, swig_type_info *ty) {
1277   swig_cast_info *tc;
1278   const char  *c = 0;
1279 
1280   if ((!obj) || (!SvOK(obj))) return SWIG_ERROR;
1281   c = SvPV_nolen(obj);
1282   /* Pointer values must start with leading underscore */
1283   if (*c != '_') return SWIG_ERROR;
1284   c++;
1285   c = SWIG_UnpackData(c,ptr,sz);
1286   if (ty) {
1287     tc = SWIG_TypeCheck(c,ty);
1288     if (!tc) return SWIG_ERROR;
1289   }
1290   return SWIG_OK;
1291 }
1292 
1293 
1294 /* Macros for low-level exception handling */
1295 #define SWIG_croak(x)    { SWIG_Error(SWIG_RuntimeError, x); SWIG_fail; }
1296 
1297 
1298 typedef XSPROTO(SwigPerlWrapper);
1299 typedef SwigPerlWrapper *SwigPerlWrapperPtr;
1300 
1301 /* Structure for command table */
1302 typedef struct {
1303   const char         *name;
1304   SwigPerlWrapperPtr  wrapper;
1305 } swig_command_info;
1306 
1307 /* Information for constant table */
1308 
1309 #define SWIG_INT     1
1310 #define SWIG_FLOAT   2
1311 #define SWIG_STRING  3
1312 #define SWIG_POINTER 4
1313 #define SWIG_BINARY  5
1314 
1315 /* Constant information structure */
1316 typedef struct swig_constant_info {
1317     int              type;
1318     const char      *name;
1319     long             lvalue;
1320     double           dvalue;
1321     void            *pvalue;
1322     swig_type_info **ptype;
1323 } swig_constant_info;
1324 
1325 
1326 /* Structure for variable table */
1327 typedef struct {
1328   const char   *name;
1329   SwigMagicFunc   set;
1330   SwigMagicFunc   get;
1331   swig_type_info  **type;
1332 } swig_variable_info;
1333 
1334 /* Magic variable code */
1335 #ifndef PERL_OBJECT
1336 # ifdef __cplusplus
1337 #  define swig_create_magic(s,a,b,c) _swig_create_magic(s,const_cast<char*>(a),b,c)
1338 # else
1339 #  define swig_create_magic(s,a,b,c) _swig_create_magic(s,(char*)(a),b,c)
1340 # endif
1341 # ifndef MULTIPLICITY
1342 SWIGRUNTIME void _swig_create_magic(SV *sv, char *name, int (*set)(SV *, MAGIC *), int (*get)(SV *,MAGIC *))
1343 # else
1344 SWIGRUNTIME void _swig_create_magic(SV *sv, char *name, int (*set)(struct interpreter*, SV *, MAGIC *), int (*get)(struct interpreter*, SV *,MAGIC *))
1345 # endif
1346 #else
1347 #  define swig_create_magic(s,a,b,c) _swig_create_magic(pPerl,s,a,b,c)
1348 SWIGRUNTIME void _swig_create_magic(CPerlObj *pPerl, SV *sv, const char *name, int (CPerlObj::*set)(SV *, MAGIC *), int (CPerlObj::*get)(SV *, MAGIC *))
1349 #endif
1350 {
1351   MAGIC *mg;
1352   sv_magic(sv,sv,'U',name,strlen(name));
1353   mg = mg_find(sv,'U');
1354   mg->mg_virtual = (MGVTBL *) malloc(sizeof(MGVTBL));
1355   mg->mg_virtual->svt_get = (SwigMagicFunc) get;
1356   mg->mg_virtual->svt_set = (SwigMagicFunc) set;
1357   mg->mg_virtual->svt_len = 0;
1358   mg->mg_virtual->svt_clear = 0;
1359   mg->mg_virtual->svt_free = 0;
1360 }
1361 
1362 
1363 SWIGRUNTIME swig_module_info *
1364 SWIG_Perl_GetModule(void *SWIGUNUSEDPARM(clientdata)) {
1365   static void *type_pointer = (void *)0;
1366   SV *pointer;
1367 
1368   /* first check if pointer already created */
1369   if (!type_pointer) {
1370     pointer = get_sv("swig_runtime_data::type_pointer" SWIG_RUNTIME_VERSION SWIG_TYPE_TABLE_NAME, FALSE | GV_ADDMULTI);
1371     if (pointer && SvOK(pointer)) {
1372       type_pointer = INT2PTR(swig_type_info **, SvIV(pointer));
1373     }
1374   }
1375 
1376   return (swig_module_info *) type_pointer;
1377 }
1378 
1379 SWIGRUNTIME void
1380 SWIG_Perl_SetModule(swig_module_info *module) {
1381   SV *pointer;
1382 
1383   /* create a new pointer */
1384   pointer = get_sv("swig_runtime_data::type_pointer" SWIG_RUNTIME_VERSION SWIG_TYPE_TABLE_NAME, TRUE | GV_ADDMULTI);
1385   sv_setiv(pointer, PTR2IV(module));
1386 }
1387 
1388 #ifdef __cplusplus
1389 }
1390 #endif
1391 
1392 /* Workaround perl5 global namespace pollution. Note that undefining library
1393  * functions like fopen will not solve the problem on all platforms as fopen
1394  * might be a macro on Windows but not necessarily on other operating systems. */
1395 #ifdef do_open
1396   #undef do_open
1397 #endif
1398 #ifdef do_close
1399   #undef do_close
1400 #endif
1401 #ifdef do_exec
1402   #undef do_exec
1403 #endif
1404 #ifdef scalar
1405   #undef scalar
1406 #endif
1407 #ifdef list
1408   #undef list
1409 #endif
1410 #ifdef apply
1411   #undef apply
1412 #endif
1413 #ifdef convert
1414   #undef convert
1415 #endif
1416 #ifdef Error
1417   #undef Error
1418 #endif
1419 #ifdef form
1420   #undef form
1421 #endif
1422 #ifdef vform
1423   #undef vform
1424 #endif
1425 #ifdef LABEL
1426   #undef LABEL
1427 #endif
1428 #ifdef METHOD
1429   #undef METHOD
1430 #endif
1431 #ifdef Move
1432   #undef Move
1433 #endif
1434 #ifdef yylex
1435   #undef yylex
1436 #endif
1437 #ifdef yyparse
1438   #undef yyparse
1439 #endif
1440 #ifdef yyerror
1441   #undef yyerror
1442 #endif
1443 #ifdef invert
1444   #undef invert
1445 #endif
1446 #ifdef ref
1447   #undef ref
1448 #endif
1449 #ifdef read
1450   #undef read
1451 #endif
1452 #ifdef write
1453   #undef write
1454 #endif
1455 #ifdef eof
1456   #undef eof
1457 #endif
1458 #ifdef close
1459   #undef close
1460 #endif
1461 #ifdef rewind
1462   #undef rewind
1463 #endif
1464 #ifdef free
1465   #undef free
1466 #endif
1467 #ifdef malloc
1468   #undef malloc
1469 #endif
1470 #ifdef calloc
1471   #undef calloc
1472 #endif
1473 #ifdef Stat
1474   #undef Stat
1475 #endif
1476 #ifdef check
1477   #undef check
1478 #endif
1479 #ifdef seekdir
1480   #undef seekdir
1481 #endif
1482 #ifdef open
1483   #undef open
1484 #endif
1485 #ifdef readdir
1486   #undef readdir
1487 #endif
1488 #ifdef bind
1489   #undef bind
1490 #endif
1491 #ifdef access
1492   #undef access
1493 #endif
1494 #ifdef stat
1495   #undef stat
1496 #endif
1497 #ifdef seed
1498   #undef seed
1499 #endif
1500 
1501 #ifdef bool
1502   /* Leave if macro is from C99 stdbool.h */
1503   #ifndef __bool_true_false_are_defined
1504     #undef bool
1505   #endif
1506 #endif
1507 
1508 
1509 
1510 
1511 #define SWIG_exception_fail(code, msg) do { SWIG_Error(code, msg); SWIG_fail; } while(0)
1512 
1513 #define SWIG_contract_assert(expr, msg) if (!(expr)) { SWIG_Error(SWIG_RuntimeError, msg); SWIG_fail; } else
1514 
1515 
1516 
1517 /* -------- TYPES TABLE (BEGIN) -------- */
1518 
1519 #define SWIGTYPE_p_FILE swig_types[0]
1520 #define SWIGTYPE_p_char swig_types[1]
1521 #define SWIGTYPE_p_double swig_types[2]
1522 #define SWIGTYPE_p_f_p_q_const__char_p_q_const__char_int_int__void swig_types[3]
1523 #define SWIGTYPE_p_f_p_q_const__char_p_q_const__char_int_p_q_const__char__void swig_types[4]
1524 #define SWIGTYPE_p_float swig_types[5]
1525 #define SWIGTYPE_p_gsl_complex swig_types[6]
1526 #define SWIGTYPE_p_gsl_complex_float swig_types[7]
1527 #define SWIGTYPE_p_gsl_complex_long_double swig_types[8]
1528 #define SWIGTYPE_p_gsl_linalg_matrix_mod_t swig_types[9]
1529 #define SWIGTYPE_p_gsl_matrix swig_types[10]
1530 #define SWIGTYPE_p_gsl_matrix_complex swig_types[11]
1531 #define SWIGTYPE_p_gsl_mode_t swig_types[12]
1532 #define SWIGTYPE_p_gsl_permutation_struct swig_types[13]
1533 #define SWIGTYPE_p_gsl_vector swig_types[14]
1534 #define SWIGTYPE_p_gsl_vector_complex swig_types[15]
1535 #define SWIGTYPE_p_int swig_types[16]
1536 #define SWIGTYPE_p_long_double swig_types[17]
1537 #define SWIGTYPE_p_size_t swig_types[18]
1538 static swig_type_info *swig_types[20];
1539 static swig_module_info swig_module = {swig_types, 19, 0, 0, 0, 0};
1540 #define SWIG_TypeQuery(name) SWIG_TypeQueryModule(&swig_module, &swig_module, name)
1541 #define SWIG_MangledTypeQuery(name) SWIG_MangledTypeQueryModule(&swig_module, &swig_module, name)
1542 
1543 /* -------- TYPES TABLE (END) -------- */
1544 
1545 #define SWIG_init    boot_Math__GSL__Linalg
1546 
1547 #define SWIG_name   "Math::GSL::Linalgc::boot_Math__GSL__Linalg"
1548 #define SWIG_prefix "Math::GSL::Linalgc::"
1549 
1550 #define SWIGVERSION 0x040001
1551 #define SWIG_VERSION SWIGVERSION
1552 
1553 
1554 #define SWIG_as_voidptr(a) (void *)((const void *)(a))
1555 #define SWIG_as_voidptrptr(a) ((void)SWIG_as_voidptr(*a),(void**)(a))
1556 
1557 
1558 #ifdef __cplusplus
1559 extern "C"
1560 #endif
1561 #ifndef PERL_OBJECT
1562 #ifndef MULTIPLICITY
1563 SWIGEXPORT void SWIG_init (CV* cv);
1564 #else
1565 SWIGEXPORT void SWIG_init (pTHXo_ CV* cv);
1566 #endif
1567 #else
1568 SWIGEXPORT void SWIG_init (CV *cv, CPerlObj *);
1569 #endif
1570 
1571 
1572 SWIGINTERNINLINE SV *
SWIG_PERL_DECL_ARGS_1(double value)1573 SWIG_From_double  SWIG_PERL_DECL_ARGS_1(double value)
1574 {
1575   return sv_2mortal(newSVnv(value));
1576 }
1577 
1578 
1579 SWIGINTERNINLINE SV *
SWIG_PERL_DECL_ARGS_1(long value)1580 SWIG_From_long  SWIG_PERL_DECL_ARGS_1(long value)
1581 {
1582   SV *sv;
1583   if (IVSIZE >= sizeof(value) || (value >= IV_MIN && value <= IV_MAX))
1584     sv = newSViv(value);
1585   else
1586     sv = newSVpvf("%ld", value);
1587   return sv_2mortal(sv);
1588 }
1589 
1590 
1591 SWIGINTERNINLINE SV *
SWIG_PERL_DECL_ARGS_1(int value)1592 SWIG_From_int  SWIG_PERL_DECL_ARGS_1(int value)
1593 {
1594   return SWIG_From_long  SWIG_PERL_CALL_ARGS_1(value);
1595 }
1596 
1597 
1598 SWIGINTERN swig_type_info*
SWIG_pchar_descriptor(void)1599 SWIG_pchar_descriptor(void)
1600 {
1601   static int init = 0;
1602   static swig_type_info* info = 0;
1603   if (!init) {
1604     info = SWIG_TypeQuery("_p_char");
1605     init = 1;
1606   }
1607   return info;
1608 }
1609 
1610 
1611 SWIGINTERN int
SWIG_AsCharPtrAndSize(SV * obj,char ** cptr,size_t * psize,int * alloc)1612 SWIG_AsCharPtrAndSize(SV *obj, char** cptr, size_t* psize, int *alloc)
1613 {
1614   if (SvMAGICAL(obj)) {
1615      SV *tmp = sv_newmortal();
1616      SvSetSV(tmp, obj);
1617      obj = tmp;
1618   }
1619   if (SvPOK(obj)) {
1620     STRLEN len = 0;
1621     char *cstr = SvPV(obj, len);
1622     size_t size = len + 1;
1623     if (cptr)  {
1624       if (alloc) {
1625 	if (*alloc == SWIG_NEWOBJ) {
1626 	  *cptr = (char *)memcpy(malloc((size)*sizeof(char)), cstr, sizeof(char)*(size));
1627 	} else {
1628 	  *cptr = cstr;
1629 	  *alloc = SWIG_OLDOBJ;
1630 	}
1631       }
1632     }
1633     if (psize) *psize = size;
1634     return SWIG_OK;
1635   } else {
1636     swig_type_info* pchar_descriptor = SWIG_pchar_descriptor();
1637     if (pchar_descriptor) {
1638       char* vptr = 0;
1639       if (SWIG_ConvertPtr(obj, (void**)&vptr, pchar_descriptor, 0) == SWIG_OK) {
1640 	if (cptr) *cptr = vptr;
1641 	if (psize) *psize = vptr ? (strlen(vptr) + 1) : 0;
1642 	if (alloc) *alloc = SWIG_OLDOBJ;
1643 	return SWIG_OK;
1644       }
1645     }
1646   }
1647   return SWIG_TypeError;
1648 }
1649 
1650 
1651 
1652 
1653 
1654 #include <limits.h>
1655 #if !defined(SWIG_NO_LLONG_MAX)
1656 # if !defined(LLONG_MAX) && defined(__GNUC__) && defined (__LONG_LONG_MAX__)
1657 #   define LLONG_MAX __LONG_LONG_MAX__
1658 #   define LLONG_MIN (-LLONG_MAX - 1LL)
1659 #   define ULLONG_MAX (LLONG_MAX * 2ULL + 1ULL)
1660 # endif
1661 #endif
1662 
1663 
1664 #include <stdlib.h>
1665 #ifdef _MSC_VER
1666 # ifndef strtoull
1667 #  define strtoull _strtoui64
1668 # endif
1669 # ifndef strtoll
1670 #  define strtoll _strtoi64
1671 # endif
1672 #endif
1673 
1674 
1675 SWIGINTERN int
SWIG_PERL_DECL_ARGS_2(SV * obj,double * val)1676 SWIG_AsVal_double SWIG_PERL_DECL_ARGS_2(SV *obj, double *val)
1677 {
1678   if (SvNIOK(obj)) {
1679     if (val) *val = SvNV(obj);
1680     return SWIG_OK;
1681   } else if (SvIOK(obj)) {
1682     if (val) *val = (double) SvIV(obj);
1683     return SWIG_AddCast(SWIG_OK);
1684   } else {
1685     const char *nptr = SvPV_nolen(obj);
1686     if (nptr) {
1687       char *endptr;
1688       double v;
1689       errno = 0;
1690       v = strtod(nptr, &endptr);
1691       if (errno == ERANGE) {
1692 	errno = 0;
1693 	return SWIG_OverflowError;
1694       } else {
1695 	if (*endptr == '\0') {
1696 	  if (val) *val = v;
1697 	  return SWIG_Str2NumCast(SWIG_OK);
1698 	}
1699       }
1700     }
1701   }
1702   return SWIG_TypeError;
1703 }
1704 
1705 
1706 #include <float.h>
1707 
1708 
1709 #include <math.h>
1710 
1711 
1712 SWIGINTERNINLINE int
SWIG_CanCastAsInteger(double * d,double min,double max)1713 SWIG_CanCastAsInteger(double *d, double min, double max) {
1714   double x = *d;
1715   if ((min <= x && x <= max)) {
1716    double fx = floor(x);
1717    double cx = ceil(x);
1718    double rd =  ((x - fx) < 0.5) ? fx : cx; /* simple rint */
1719    if ((errno == EDOM) || (errno == ERANGE)) {
1720      errno = 0;
1721    } else {
1722      double summ, reps, diff;
1723      if (rd < x) {
1724        diff = x - rd;
1725      } else if (rd > x) {
1726        diff = rd - x;
1727      } else {
1728        return 1;
1729      }
1730      summ = rd + x;
1731      reps = diff/summ;
1732      if (reps < 8*DBL_EPSILON) {
1733        *d = rd;
1734        return 1;
1735      }
1736    }
1737   }
1738   return 0;
1739 }
1740 
1741 
1742 SWIGINTERN int
SWIG_PERL_DECL_ARGS_2(SV * obj,long * val)1743 SWIG_AsVal_long SWIG_PERL_DECL_ARGS_2(SV *obj, long* val)
1744 {
1745   if (SvUOK(obj)) {
1746     UV v = SvUV(obj);
1747     if (UVSIZE < sizeof(*val) || v <= LONG_MAX) {
1748       if (val) *val = v;
1749       return SWIG_OK;
1750     }
1751     return SWIG_OverflowError;
1752   } else if (SvIOK(obj)) {
1753     IV v = SvIV(obj);
1754     if (IVSIZE <= sizeof(*val) || (v >= LONG_MIN && v <= LONG_MAX)) {
1755       if(val) *val = v;
1756       return SWIG_OK;
1757     }
1758     return SWIG_OverflowError;
1759   } else {
1760     int dispatch = 0;
1761     const char *nptr = SvPV_nolen(obj);
1762     if (nptr) {
1763       char *endptr;
1764       long v;
1765       errno = 0;
1766       v = strtol(nptr, &endptr,0);
1767       if (errno == ERANGE) {
1768 	errno = 0;
1769 	return SWIG_OverflowError;
1770       } else {
1771 	if (*endptr == '\0') {
1772 	  if (val) *val = v;
1773 	  return SWIG_Str2NumCast(SWIG_OK);
1774 	}
1775       }
1776     }
1777     if (!dispatch) {
1778       double d;
1779       int res = SWIG_AddCast(SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(obj,&d));
1780       if (SWIG_IsOK(res) && SWIG_CanCastAsInteger(&d, LONG_MIN, LONG_MAX)) {
1781 	if (val) *val = (long)(d);
1782 	return res;
1783       }
1784     }
1785   }
1786   return SWIG_TypeError;
1787 }
1788 
1789 
1790 SWIGINTERN int
SWIG_PERL_DECL_ARGS_2(SV * obj,int * val)1791 SWIG_AsVal_int SWIG_PERL_DECL_ARGS_2(SV * obj, int *val)
1792 {
1793   long v;
1794   int res = SWIG_AsVal_long SWIG_PERL_CALL_ARGS_2(obj, &v);
1795   if (SWIG_IsOK(res)) {
1796     if ((v < INT_MIN || v > INT_MAX)) {
1797       return SWIG_OverflowError;
1798     } else {
1799       if (val) *val = (int)(v);
1800     }
1801   }
1802   return res;
1803 }
1804 
1805 
1806 SWIGINTERNINLINE SV *
SWIG_FromCharPtrAndSize(const char * carray,size_t size)1807 SWIG_FromCharPtrAndSize(const char* carray, size_t size)
1808 {
1809   SV *obj = sv_newmortal();
1810   if (carray) {
1811     sv_setpvn(obj, carray, size);
1812   } else {
1813     sv_setsv(obj, &PL_sv_undef);
1814   }
1815   return obj;
1816 }
1817 
1818 
1819 SWIGINTERNINLINE SV *
SWIG_FromCharPtr(const char * cptr)1820 SWIG_FromCharPtr(const char *cptr)
1821 {
1822   return SWIG_FromCharPtrAndSize(cptr, (cptr ? strlen(cptr) : 0));
1823 }
1824 
1825 
1826     #include "gsl/gsl_nan.h"
1827     #include "gsl/gsl_errno.h"
1828     #include "gsl/gsl_math.h"
1829     #include "gsl/gsl_monte.h"
1830 
1831 
1832     struct perl_array {
1833         I32 len;
1834         AV *array;
1835     };
1836 
1837 
1838 
1839 enum awType { awDouble, awFloat, awInt, awUnsigned };
1840 
1841 typedef struct {
1842     I32 size;
1843     enum awType type;
1844     void * data;
1845 } array_wrapper;
1846 
array_wrapper_alloc(int numelem,enum awType type)1847 array_wrapper * array_wrapper_alloc(int numelem, enum awType type){
1848     array_wrapper * rv =  malloc(sizeof(array_wrapper));
1849 
1850     if (rv == NULL)
1851         croak("array_wrapper_alloc: can't malloc wrapper\n");
1852 
1853     switch (type){
1854         case awDouble:
1855             rv->data = malloc(sizeof(double) * numelem);
1856             break;
1857         case awFloat:
1858             rv->data = malloc(sizeof(float) * numelem);
1859             break;
1860         case awInt:
1861             rv->data = malloc(sizeof(int) * numelem);
1862             break;
1863         case awUnsigned:
1864             rv->data = malloc(sizeof(unsigned int) * numelem);
1865             break;
1866         default:
1867             croak("array_wrapper_alloc: type should be awDouble, awFloat, awInt, or awUnsigned");
1868     }
1869 
1870     if (rv->data == NULL)
1871         croak("array_wrapper_alloc: can't malloc data");
1872 
1873     rv->size = numelem;
1874     rv->type = type;
1875     return rv;
1876 }
1877 
array_wrapper_free(array_wrapper * daw)1878 void array_wrapper_free(array_wrapper * daw){
1879     free(daw->data);
1880     free(daw);
1881 }
1882 
1883 
1884     /* structure to hold required information while the gsl function call
1885        for each callback
1886      */
1887     struct gsl_function_perl {
1888         gsl_function C_gsl_function;
1889         SV * function;
1890         SV * params;
1891     };
1892 
1893     struct gsl_function_fdf_perl {
1894         gsl_function_fdf C_gsl_function_fdf;
1895         SV * f;
1896         SV * df;
1897         SV * fdf;
1898         SV * params;
1899     };
1900 
1901     struct gsl_monte_function_perl {
1902         gsl_monte_function C_gsl_monte_function;
1903         SV * f;
1904         SV * dim;
1905         SV * params;
1906     };
1907 
gsl_function_perl_free(struct gsl_function_perl * perl_f)1908     void gsl_function_perl_free(struct gsl_function_perl * perl_f){
1909         if (perl_f != NULL) {
1910             SvREFCNT_dec(perl_f->function);
1911             SvREFCNT_dec(perl_f->params);
1912             Safefree(perl_f);
1913         }
1914     }
1915 
gsl_function_fdf_perl_free(struct gsl_function_fdf_perl * perl_fdf)1916     void gsl_function_fdf_perl_free(struct gsl_function_fdf_perl * perl_fdf){
1917         if (perl_fdf != NULL) {
1918 	  SvREFCNT_dec(perl_fdf->f);
1919 	  SvREFCNT_dec(perl_fdf->df);
1920 	  SvREFCNT_dec(perl_fdf->fdf);
1921 	  SvREFCNT_dec(perl_fdf->params);
1922 	  Safefree(perl_fdf);
1923         }
1924     }
1925 
1926     /* These functions (C callbacks) calls the perl callbacks.
1927        Info for perl callback can be found using the 'void*params' parameter
1928     */
call_gsl_function_x_params(SV * function,double x,SV * params)1929     double call_gsl_function_x_params(SV* function, double x, SV *params){
1930         unsigned int count;
1931         double y;
1932         dSP;
1933 
1934         //fprintf(stderr, "LOOKUP CALLBACK\n");
1935         ENTER;
1936         SAVETMPS;
1937 
1938         PUSHMARK(SP);
1939         XPUSHs(sv_2mortal(newSVnv((double)x)));
1940         XPUSHs(params);
1941         PUTBACK;                                /* make local stack pointer global */
1942 
1943         count = call_sv(function, G_SCALAR);
1944         SPAGAIN;
1945 
1946         if (count != 1)
1947                 croak("Expected to call subroutine in scalar context!");
1948 
1949         y = POPn;
1950 
1951         PUTBACK;                                /* make local stack pointer global */
1952         FREETMPS;
1953         LEAVE;
1954 
1955         return y;
1956     }
1957 
call_gsl_function(double x,void * params)1958     double call_gsl_function(double x , void *params){
1959         struct gsl_function_perl *F=(struct gsl_function_perl*)params;
1960 	return call_gsl_function_x_params( F->function, x, F->params );
1961     }
1962 
call_gsl_function_fdf_f(double x,void * params)1963     double call_gsl_function_fdf_f(double x , void *params){
1964         struct gsl_function_fdf_perl *F=(struct gsl_function_fdf_perl*)params;
1965 	return call_gsl_function_x_params( F->f, x, F->params );
1966     }
1967 
call_gsl_function_fdf_df(double x,void * params)1968     double call_gsl_function_fdf_df(double x , void *params){
1969         struct gsl_function_fdf_perl *F=(struct gsl_function_fdf_perl*)params;
1970 	return call_gsl_function_x_params( F->df, x, F->params );
1971     }
1972 
call_gsl_function_fdf_fdf(double x,void * params,double * f,double * df)1973     void call_gsl_function_fdf_fdf(double x , void *params, double *f, double *df ){
1974         struct gsl_function_fdf_perl *F=(struct gsl_function_fdf_perl*)params;
1975 
1976         dSP;
1977 
1978         ENTER;
1979         SAVETMPS;
1980 
1981         PUSHMARK(SP);
1982 	EXTEND(SP, 2);
1983         PUSHs(sv_2mortal(newSVnv((double)x)));
1984         PUSHs(F->params);
1985         PUTBACK;                                /* make local stack pointer global */
1986 
1987 	{
1988 	  unsigned int count = call_sv(F->fdf, G_ARRAY);
1989 	  SPAGAIN;
1990 
1991 	  if (count != 2)
1992 	    croak( "Expected two return values, got %d", count );
1993 	}
1994 
1995 	*df = POPn;
1996         *f = POPn;
1997 
1998         PUTBACK;                                /* make local stack pointer global */
1999         FREETMPS;
2000         LEAVE;
2001     }
2002 
call_gsl_monte_function(double * x_array,size_t dim,void * params)2003     double call_gsl_monte_function(double *x_array , size_t dim, void *params){
2004         struct gsl_monte_function_perl *F=(struct gsl_monte_function_perl*)params;
2005         unsigned int count;
2006         unsigned int i;
2007         AV* perl_array;
2008         double y;
2009         dSP;
2010 
2011         //fprintf(stderr, "LOOKUP CALLBACK\n");
2012         ENTER;
2013         SAVETMPS;
2014 
2015         PUSHMARK(SP);
2016         perl_array=newAV();
2017         sv_2mortal((SV*)perl_array);
2018         XPUSHs(sv_2mortal(newRV((SV *)perl_array)));
2019         for(i=0; i<dim; i++) {
2020                 /* no mortal : it is referenced by the array */
2021                 av_push(perl_array, newSVnv(x_array[i]));
2022         }
2023         XPUSHs(sv_2mortal(newSViv(dim)));
2024         XPUSHs(F->params);
2025         PUTBACK;                                /* make local stack pointer global */
2026 
2027         count = call_sv(F->f, G_SCALAR);
2028         SPAGAIN;
2029 
2030         if (count != 1)
2031                 croak("Expected to call subroutine in scalar context!");
2032 
2033         y = POPn;
2034 
2035         PUTBACK;                                /* make local stack pointer global */
2036         FREETMPS;
2037         LEAVE;
2038 
2039         return y;
2040     }
2041 
2042 
gsl_function_fdf_extract(char * param_name,HV * hash,SV * func[])2043   void gsl_function_fdf_extract( char* param_name, HV* hash, SV* func[] ) {
2044     static const char *keys[3] = { "f", "df", "fdf" };
2045 
2046     int ikey;
2047 
2048     for ( ikey = 0 ; ikey < 3 ; ++ikey ) {
2049       func[ikey] = 0;
2050       const char* key = keys[ikey];
2051       /* it just so happens that strlen(keys[ikey]) == ikey + 1 */
2052       SV** pp_sv = hv_fetch( hash, key, ikey+1, 0 );
2053       SV* function;
2054 
2055       if ( !pp_sv )
2056 	croak("Math::GSL : %s: missing key %s!", param_name, key);
2057 
2058       function = *pp_sv;
2059 
2060       if ( SvPOK(function) || ( SvROK( function ) && SvTYPE(SvRV(function)) == SVt_PVCV ) ) {
2061         /* hold on to SV after the enclosing hash goes away */
2062         SvREFCNT_inc( function );
2063 	func[ikey] = function;
2064       }
2065       else {
2066 	croak( "Math::GSL : %s:  key %s is not a reference to code!", param_name, key);
2067       }
2068     }
2069   }
2070 
2071 
2072 
2073     #include "gsl/gsl_inline.h"
2074     #include "gsl/gsl_linalg.h"
2075     #include "gsl/gsl_permutation.h"
2076     #include "gsl/gsl_complex.h"
2077     #include "gsl/gsl_complex_math.h"
2078 
2079 
2080 SWIGINTERN int
SWIG_PERL_DECL_ARGS_2(SV * obj,unsigned long * val)2081 SWIG_AsVal_unsigned_SS_long SWIG_PERL_DECL_ARGS_2(SV *obj, unsigned long *val)
2082 {
2083   if (SvUOK(obj)) {
2084     UV v = SvUV(obj);
2085     if (UVSIZE <= sizeof(*val) || v <= ULONG_MAX) {
2086       if (val) *val = v;
2087       return SWIG_OK;
2088     }
2089     return SWIG_OverflowError;
2090   } else if (SvIOK(obj)) {
2091     IV v = SvIV(obj);
2092     if (v >= 0 && (IVSIZE <= sizeof(*val) || v <= ULONG_MAX)) {
2093       if (val) *val = v;
2094       return SWIG_OK;
2095     }
2096     return SWIG_OverflowError;
2097   } else {
2098     int dispatch = 0;
2099     const char *nptr = SvPV_nolen(obj);
2100     if (nptr) {
2101       char *endptr;
2102       unsigned long v;
2103       errno = 0;
2104       v = strtoul(nptr, &endptr,0);
2105       if (errno == ERANGE) {
2106 	errno = 0;
2107 	return SWIG_OverflowError;
2108       } else {
2109 	if (*endptr == '\0') {
2110 	  if (val) *val = v;
2111 	  return SWIG_Str2NumCast(SWIG_OK);
2112 	}
2113       }
2114     }
2115     if (!dispatch) {
2116       double d;
2117       int res = SWIG_AddCast(SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(obj,&d));
2118       if (SWIG_IsOK(res) && SWIG_CanCastAsInteger(&d, 0, ULONG_MAX)) {
2119 	if (val) *val = (unsigned long)(d);
2120 	return res;
2121       }
2122     }
2123   }
2124   return SWIG_TypeError;
2125 }
2126 
2127 
2128 #if defined(LLONG_MAX) && !defined(SWIG_LONG_LONG_AVAILABLE)
2129 #  define SWIG_LONG_LONG_AVAILABLE
2130 #endif
2131 
2132 
2133 #ifdef SWIG_LONG_LONG_AVAILABLE
2134 SWIGINTERN int
SWIG_PERL_DECL_ARGS_2(SV * obj,unsigned long long * val)2135 SWIG_AsVal_unsigned_SS_long_SS_long SWIG_PERL_DECL_ARGS_2(SV *obj, unsigned long long *val)
2136 {
2137   if (SvUOK(obj)) {
2138     /* pretty sure this should be conditional on
2139      * (UVSIZE <= sizeof(*val) || v <= ULLONG_MAX) */
2140     if (val) *val = SvUV(obj);
2141     return SWIG_OK;
2142   } else  if (SvIOK(obj)) {
2143     IV v = SvIV(obj);
2144     if (v >= 0 && (IVSIZE <= sizeof(*val) || v <= ULLONG_MAX)) {
2145       if (val) *val = v;
2146       return SWIG_OK;
2147     } else {
2148       return SWIG_OverflowError;
2149     }
2150   } else {
2151     int dispatch = 0;
2152     const char *nptr = SvPV_nolen(obj);
2153     if (nptr) {
2154       char *endptr;
2155       unsigned long long v;
2156       errno = 0;
2157       v = strtoull(nptr, &endptr,0);
2158       if (errno == ERANGE) {
2159 	errno = 0;
2160 	return SWIG_OverflowError;
2161       } else {
2162 	if (*endptr == '\0') {
2163 	  if (val) *val = v;
2164 	  return SWIG_Str2NumCast(SWIG_OK);
2165 	}
2166       }
2167     }
2168     if (!dispatch) {
2169       const double mant_max = 1LL << DBL_MANT_DIG;
2170       double d;
2171       int res = SWIG_AddCast(SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(obj,&d));
2172       if (SWIG_IsOK(res) && SWIG_CanCastAsInteger(&d, 0, mant_max)) {
2173 	if (val) *val = (unsigned long long)(d);
2174 	return res;
2175       }
2176     }
2177   }
2178   return SWIG_TypeError;
2179 }
2180 #endif
2181 
2182 
2183 SWIGINTERNINLINE int
SWIG_PERL_DECL_ARGS_2(SV * obj,size_t * val)2184 SWIG_AsVal_size_t SWIG_PERL_DECL_ARGS_2(SV * obj, size_t *val)
2185 {
2186   int res = SWIG_TypeError;
2187 #ifdef SWIG_LONG_LONG_AVAILABLE
2188   if (sizeof(size_t) <= sizeof(unsigned long)) {
2189 #endif
2190     unsigned long v;
2191     res = SWIG_AsVal_unsigned_SS_long SWIG_PERL_CALL_ARGS_2(obj, val ? &v : 0);
2192     if (SWIG_IsOK(res) && val) *val = (size_t)(v);
2193 #ifdef SWIG_LONG_LONG_AVAILABLE
2194   } else if (sizeof(size_t) <= sizeof(unsigned long long)) {
2195     unsigned long long v;
2196     res = SWIG_AsVal_unsigned_SS_long_SS_long SWIG_PERL_CALL_ARGS_2(obj, val ? &v : 0);
2197     if (SWIG_IsOK(res) && val) *val = (size_t)(v);
2198   }
2199 #endif
2200   return res;
2201 }
2202 
2203 
2204 SWIGINTERNINLINE SV *
SWIG_PERL_DECL_ARGS_1(unsigned long value)2205 SWIG_From_unsigned_SS_long  SWIG_PERL_DECL_ARGS_1(unsigned long value)
2206 {
2207   SV *sv;
2208   if (UVSIZE >= sizeof(value) || value <= UV_MAX)
2209     sv = newSVuv(value);
2210   else
2211     sv = newSVpvf("%lu", value);
2212   return sv_2mortal(sv);
2213 }
2214 
2215 
2216 #include <stdio.h>
2217 #if (defined(_MSC_VER) && (_MSC_VER < 1900)) || defined(__BORLANDC__) || defined(_WATCOM)
2218 # ifndef snprintf
2219 #  define snprintf _snprintf
2220 # endif
2221 #endif
2222 
2223 
2224 #ifdef SWIG_LONG_LONG_AVAILABLE
2225 SWIGINTERNINLINE SV *
SWIG_PERL_DECL_ARGS_1(unsigned long long value)2226 SWIG_From_unsigned_SS_long_SS_long  SWIG_PERL_DECL_ARGS_1(unsigned long long value)
2227 {
2228   SV *sv;
2229   if (UVSIZE >= sizeof(value) || value <= UV_MAX)
2230     sv = newSVuv((UV)(value));
2231   else {
2232     //sv = newSVpvf("%llu", value); doesn't work in non 64bit Perl
2233     char temp[256];
2234     sprintf(temp, "%llu", value);
2235     sv = newSVpv(temp, 0);
2236   }
2237   return sv_2mortal(sv);
2238 }
2239 #endif
2240 
2241 
2242 SWIGINTERNINLINE SV *
SWIG_PERL_DECL_ARGS_1(size_t value)2243 SWIG_From_size_t  SWIG_PERL_DECL_ARGS_1(size_t value)
2244 {
2245 #ifdef SWIG_LONG_LONG_AVAILABLE
2246   if (sizeof(size_t) <= sizeof(unsigned long)) {
2247 #endif
2248     return SWIG_From_unsigned_SS_long  SWIG_PERL_CALL_ARGS_1((unsigned long)(value));
2249 #ifdef SWIG_LONG_LONG_AVAILABLE
2250   } else {
2251     /* assume sizeof(size_t) <= sizeof(unsigned long long) */
2252     return SWIG_From_unsigned_SS_long_SS_long  SWIG_PERL_CALL_ARGS_1((unsigned long long)(value));
2253   }
2254 #endif
2255 }
2256 
2257 #ifdef __cplusplus
2258 extern "C" {
2259 #endif
2260 
2261 #ifdef PERL_OBJECT
2262 #define MAGIC_CLASS _wrap_Math__GSL__Linalg_var::
2263 class _wrap_Math__GSL__Linalg_var : public CPerlObj {
2264 public:
2265 #else
2266 #define MAGIC_CLASS
2267 #endif
swig_magic_readonly(pTHX_ SV * SWIGUNUSEDPARM (sv),MAGIC * SWIGUNUSEDPARM (mg))2268 SWIGCLASS_STATIC int swig_magic_readonly(pTHX_ SV *SWIGUNUSEDPARM(sv), MAGIC *SWIGUNUSEDPARM(mg)) {
2269     MAGIC_PPERL
2270     croak("Value is read-only.");
2271     return 0;
2272 }
2273 
2274 
2275 #ifdef PERL_OBJECT
2276 };
2277 #endif
2278 
2279 #ifdef __cplusplus
2280 }
2281 #endif
2282 
2283 #ifdef __cplusplus
2284 extern "C" {
2285 #endif
XS(_wrap_gsl_error)2286 XS(_wrap_gsl_error) {
2287   {
2288     char *arg1 = (char *) 0 ;
2289     char *arg2 = (char *) 0 ;
2290     int arg3 ;
2291     int arg4 ;
2292     int res1 ;
2293     char *buf1 = 0 ;
2294     int alloc1 = 0 ;
2295     int res2 ;
2296     char *buf2 = 0 ;
2297     int alloc2 = 0 ;
2298     int val3 ;
2299     int ecode3 = 0 ;
2300     int val4 ;
2301     int ecode4 = 0 ;
2302     int argvi = 0;
2303     dXSARGS;
2304 
2305     if ((items < 4) || (items > 4)) {
2306       SWIG_croak("Usage: gsl_error(reason,file,line,gsl_errno);");
2307     }
2308     res1 = SWIG_AsCharPtrAndSize(ST(0), &buf1, NULL, &alloc1);
2309     if (!SWIG_IsOK(res1)) {
2310       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_error" "', argument " "1"" of type '" "char const *""'");
2311     }
2312     arg1 = (char *)(buf1);
2313     res2 = SWIG_AsCharPtrAndSize(ST(1), &buf2, NULL, &alloc2);
2314     if (!SWIG_IsOK(res2)) {
2315       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_error" "', argument " "2"" of type '" "char const *""'");
2316     }
2317     arg2 = (char *)(buf2);
2318     ecode3 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
2319     if (!SWIG_IsOK(ecode3)) {
2320       SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_error" "', argument " "3"" of type '" "int""'");
2321     }
2322     arg3 = (int)(val3);
2323     ecode4 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(3), &val4);
2324     if (!SWIG_IsOK(ecode4)) {
2325       SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "gsl_error" "', argument " "4"" of type '" "int""'");
2326     }
2327     arg4 = (int)(val4);
2328     gsl_error((char const *)arg1,(char const *)arg2,arg3,arg4);
2329     ST(argvi) = &PL_sv_undef;
2330     if (alloc1 == SWIG_NEWOBJ) free((char*)buf1);
2331     if (alloc2 == SWIG_NEWOBJ) free((char*)buf2);
2332 
2333 
2334     XSRETURN(argvi);
2335   fail:
2336     if (alloc1 == SWIG_NEWOBJ) free((char*)buf1);
2337     if (alloc2 == SWIG_NEWOBJ) free((char*)buf2);
2338 
2339 
2340     SWIG_croak_null();
2341   }
2342 }
2343 
2344 
XS(_wrap_gsl_stream_printf)2345 XS(_wrap_gsl_stream_printf) {
2346   {
2347     char *arg1 = (char *) 0 ;
2348     char *arg2 = (char *) 0 ;
2349     int arg3 ;
2350     char *arg4 = (char *) 0 ;
2351     int res1 ;
2352     char *buf1 = 0 ;
2353     int alloc1 = 0 ;
2354     int res2 ;
2355     char *buf2 = 0 ;
2356     int alloc2 = 0 ;
2357     int val3 ;
2358     int ecode3 = 0 ;
2359     int res4 ;
2360     char *buf4 = 0 ;
2361     int alloc4 = 0 ;
2362     int argvi = 0;
2363     dXSARGS;
2364 
2365     if ((items < 4) || (items > 4)) {
2366       SWIG_croak("Usage: gsl_stream_printf(label,file,line,reason);");
2367     }
2368     res1 = SWIG_AsCharPtrAndSize(ST(0), &buf1, NULL, &alloc1);
2369     if (!SWIG_IsOK(res1)) {
2370       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_stream_printf" "', argument " "1"" of type '" "char const *""'");
2371     }
2372     arg1 = (char *)(buf1);
2373     res2 = SWIG_AsCharPtrAndSize(ST(1), &buf2, NULL, &alloc2);
2374     if (!SWIG_IsOK(res2)) {
2375       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_stream_printf" "', argument " "2"" of type '" "char const *""'");
2376     }
2377     arg2 = (char *)(buf2);
2378     ecode3 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
2379     if (!SWIG_IsOK(ecode3)) {
2380       SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_stream_printf" "', argument " "3"" of type '" "int""'");
2381     }
2382     arg3 = (int)(val3);
2383     res4 = SWIG_AsCharPtrAndSize(ST(3), &buf4, NULL, &alloc4);
2384     if (!SWIG_IsOK(res4)) {
2385       SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_stream_printf" "', argument " "4"" of type '" "char const *""'");
2386     }
2387     arg4 = (char *)(buf4);
2388     gsl_stream_printf((char const *)arg1,(char const *)arg2,arg3,(char const *)arg4);
2389     ST(argvi) = &PL_sv_undef;
2390     if (alloc1 == SWIG_NEWOBJ) free((char*)buf1);
2391     if (alloc2 == SWIG_NEWOBJ) free((char*)buf2);
2392 
2393     if (alloc4 == SWIG_NEWOBJ) free((char*)buf4);
2394     XSRETURN(argvi);
2395   fail:
2396     if (alloc1 == SWIG_NEWOBJ) free((char*)buf1);
2397     if (alloc2 == SWIG_NEWOBJ) free((char*)buf2);
2398 
2399     if (alloc4 == SWIG_NEWOBJ) free((char*)buf4);
2400     SWIG_croak_null();
2401   }
2402 }
2403 
2404 
XS(_wrap_gsl_strerror)2405 XS(_wrap_gsl_strerror) {
2406   {
2407     int arg1 ;
2408     int val1 ;
2409     int ecode1 = 0 ;
2410     int argvi = 0;
2411     char *result = 0 ;
2412     dXSARGS;
2413 
2414     if ((items < 1) || (items > 1)) {
2415       SWIG_croak("Usage: gsl_strerror(gsl_errno);");
2416     }
2417     ecode1 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
2418     if (!SWIG_IsOK(ecode1)) {
2419       SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_strerror" "', argument " "1"" of type '" "int""'");
2420     }
2421     arg1 = (int)(val1);
2422     result = (char *)gsl_strerror(arg1);
2423     ST(argvi) = SWIG_FromCharPtr((const char *)result); argvi++ ;
2424 
2425     XSRETURN(argvi);
2426   fail:
2427 
2428     SWIG_croak_null();
2429   }
2430 }
2431 
2432 
XS(_wrap_gsl_set_error_handler)2433 XS(_wrap_gsl_set_error_handler) {
2434   {
2435     gsl_error_handler_t *arg1 = (gsl_error_handler_t *) 0 ;
2436     int argvi = 0;
2437     gsl_error_handler_t *result = 0 ;
2438     dXSARGS;
2439 
2440     if ((items < 1) || (items > 1)) {
2441       SWIG_croak("Usage: gsl_set_error_handler(new_handler);");
2442     }
2443     {
2444       int res = SWIG_ConvertFunctionPtr(ST(0), (void**)(&arg1), SWIGTYPE_p_f_p_q_const__char_p_q_const__char_int_int__void);
2445       if (!SWIG_IsOK(res)) {
2446         SWIG_exception_fail(SWIG_ArgError(res), "in method '" "gsl_set_error_handler" "', argument " "1"" of type '" "gsl_error_handler_t *""'");
2447       }
2448     }
2449     result = (gsl_error_handler_t *)gsl_set_error_handler(arg1);
2450     ST(argvi) = SWIG_NewFunctionPtrObj((void *)(result), SWIGTYPE_p_f_p_q_const__char_p_q_const__char_int_int__void); argvi++ ;
2451 
2452     XSRETURN(argvi);
2453   fail:
2454 
2455     SWIG_croak_null();
2456   }
2457 }
2458 
2459 
XS(_wrap_gsl_set_error_handler_off)2460 XS(_wrap_gsl_set_error_handler_off) {
2461   {
2462     int argvi = 0;
2463     gsl_error_handler_t *result = 0 ;
2464     dXSARGS;
2465 
2466     if ((items < 0) || (items > 0)) {
2467       SWIG_croak("Usage: gsl_set_error_handler_off();");
2468     }
2469     result = (gsl_error_handler_t *)gsl_set_error_handler_off();
2470     ST(argvi) = SWIG_NewFunctionPtrObj((void *)(result), SWIGTYPE_p_f_p_q_const__char_p_q_const__char_int_int__void); argvi++ ;
2471     XSRETURN(argvi);
2472   fail:
2473     SWIG_croak_null();
2474   }
2475 }
2476 
2477 
XS(_wrap_gsl_set_stream_handler)2478 XS(_wrap_gsl_set_stream_handler) {
2479   {
2480     gsl_stream_handler_t *arg1 = (gsl_stream_handler_t *) 0 ;
2481     int argvi = 0;
2482     gsl_stream_handler_t *result = 0 ;
2483     dXSARGS;
2484 
2485     if ((items < 1) || (items > 1)) {
2486       SWIG_croak("Usage: gsl_set_stream_handler(new_handler);");
2487     }
2488     {
2489       int res = SWIG_ConvertFunctionPtr(ST(0), (void**)(&arg1), SWIGTYPE_p_f_p_q_const__char_p_q_const__char_int_p_q_const__char__void);
2490       if (!SWIG_IsOK(res)) {
2491         SWIG_exception_fail(SWIG_ArgError(res), "in method '" "gsl_set_stream_handler" "', argument " "1"" of type '" "gsl_stream_handler_t *""'");
2492       }
2493     }
2494     result = (gsl_stream_handler_t *)gsl_set_stream_handler(arg1);
2495     ST(argvi) = SWIG_NewFunctionPtrObj((void *)(result), SWIGTYPE_p_f_p_q_const__char_p_q_const__char_int_p_q_const__char__void); argvi++ ;
2496 
2497     XSRETURN(argvi);
2498   fail:
2499 
2500     SWIG_croak_null();
2501   }
2502 }
2503 
2504 
XS(_wrap_gsl_set_stream)2505 XS(_wrap_gsl_set_stream) {
2506   {
2507     FILE *arg1 = (FILE *) 0 ;
2508     void *argp1 = 0 ;
2509     int res1 = 0 ;
2510     int argvi = 0;
2511     FILE *result = 0 ;
2512     dXSARGS;
2513 
2514     if ((items < 1) || (items > 1)) {
2515       SWIG_croak("Usage: gsl_set_stream(new_stream);");
2516     }
2517     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_FILE, 0 |  0 );
2518     if (!SWIG_IsOK(res1)) {
2519       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_set_stream" "', argument " "1"" of type '" "FILE *""'");
2520     }
2521     arg1 = (FILE *)(argp1);
2522     result = (FILE *)gsl_set_stream(arg1);
2523     ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_FILE, 0 | 0); argvi++ ;
2524 
2525     XSRETURN(argvi);
2526   fail:
2527 
2528     SWIG_croak_null();
2529   }
2530 }
2531 
2532 
XS(_wrap_gsl_linalg_matmult)2533 XS(_wrap_gsl_linalg_matmult) {
2534   {
2535     gsl_matrix *arg1 = (gsl_matrix *) 0 ;
2536     gsl_matrix *arg2 = (gsl_matrix *) 0 ;
2537     gsl_matrix *arg3 = (gsl_matrix *) 0 ;
2538     void *argp1 = 0 ;
2539     int res1 = 0 ;
2540     void *argp2 = 0 ;
2541     int res2 = 0 ;
2542     void *argp3 = 0 ;
2543     int res3 = 0 ;
2544     int argvi = 0;
2545     int result;
2546     dXSARGS;
2547 
2548     if ((items < 3) || (items > 3)) {
2549       SWIG_croak("Usage: gsl_linalg_matmult(A,B,C);");
2550     }
2551     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 |  0 );
2552     if (!SWIG_IsOK(res1)) {
2553       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_matmult" "', argument " "1"" of type '" "gsl_matrix const *""'");
2554     }
2555     arg1 = (gsl_matrix *)(argp1);
2556     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 |  0 );
2557     if (!SWIG_IsOK(res2)) {
2558       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_matmult" "', argument " "2"" of type '" "gsl_matrix const *""'");
2559     }
2560     arg2 = (gsl_matrix *)(argp2);
2561     res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 |  0 );
2562     if (!SWIG_IsOK(res3)) {
2563       SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_matmult" "', argument " "3"" of type '" "gsl_matrix *""'");
2564     }
2565     arg3 = (gsl_matrix *)(argp3);
2566     result = (int)gsl_linalg_matmult((gsl_matrix const *)arg1,(gsl_matrix const *)arg2,arg3);
2567     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
2568 
2569 
2570 
2571     XSRETURN(argvi);
2572   fail:
2573 
2574 
2575 
2576     SWIG_croak_null();
2577   }
2578 }
2579 
2580 
XS(_wrap_gsl_linalg_matmult_mod)2581 XS(_wrap_gsl_linalg_matmult_mod) {
2582   {
2583     gsl_matrix *arg1 = (gsl_matrix *) 0 ;
2584     gsl_linalg_matrix_mod_t arg2 ;
2585     gsl_matrix *arg3 = (gsl_matrix *) 0 ;
2586     gsl_linalg_matrix_mod_t arg4 ;
2587     gsl_matrix *arg5 = (gsl_matrix *) 0 ;
2588     void *argp1 = 0 ;
2589     int res1 = 0 ;
2590     int val2 ;
2591     int ecode2 = 0 ;
2592     void *argp3 = 0 ;
2593     int res3 = 0 ;
2594     int val4 ;
2595     int ecode4 = 0 ;
2596     void *argp5 = 0 ;
2597     int res5 = 0 ;
2598     int argvi = 0;
2599     int result;
2600     dXSARGS;
2601 
2602     if ((items < 5) || (items > 5)) {
2603       SWIG_croak("Usage: gsl_linalg_matmult_mod(A,modA,B,modB,C);");
2604     }
2605     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 |  0 );
2606     if (!SWIG_IsOK(res1)) {
2607       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_matmult_mod" "', argument " "1"" of type '" "gsl_matrix const *""'");
2608     }
2609     arg1 = (gsl_matrix *)(argp1);
2610     ecode2 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
2611     if (!SWIG_IsOK(ecode2)) {
2612       SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_linalg_matmult_mod" "', argument " "2"" of type '" "gsl_linalg_matrix_mod_t""'");
2613     }
2614     arg2 = (gsl_linalg_matrix_mod_t)(val2);
2615     res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 |  0 );
2616     if (!SWIG_IsOK(res3)) {
2617       SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_matmult_mod" "', argument " "3"" of type '" "gsl_matrix const *""'");
2618     }
2619     arg3 = (gsl_matrix *)(argp3);
2620     ecode4 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(3), &val4);
2621     if (!SWIG_IsOK(ecode4)) {
2622       SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "gsl_linalg_matmult_mod" "', argument " "4"" of type '" "gsl_linalg_matrix_mod_t""'");
2623     }
2624     arg4 = (gsl_linalg_matrix_mod_t)(val4);
2625     res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_matrix, 0 |  0 );
2626     if (!SWIG_IsOK(res5)) {
2627       SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_matmult_mod" "', argument " "5"" of type '" "gsl_matrix *""'");
2628     }
2629     arg5 = (gsl_matrix *)(argp5);
2630     result = (int)gsl_linalg_matmult_mod((gsl_matrix const *)arg1,arg2,(gsl_matrix const *)arg3,arg4,arg5);
2631     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
2632 
2633 
2634 
2635 
2636 
2637     XSRETURN(argvi);
2638   fail:
2639 
2640 
2641 
2642 
2643 
2644     SWIG_croak_null();
2645   }
2646 }
2647 
2648 
XS(_wrap_gsl_linalg_exponential_ss)2649 XS(_wrap_gsl_linalg_exponential_ss) {
2650   {
2651     gsl_matrix *arg1 = (gsl_matrix *) 0 ;
2652     gsl_matrix *arg2 = (gsl_matrix *) 0 ;
2653     gsl_mode_t arg3 ;
2654     void *argp1 = 0 ;
2655     int res1 = 0 ;
2656     void *argp2 = 0 ;
2657     int res2 = 0 ;
2658     void *argp3 ;
2659     int res3 = 0 ;
2660     int argvi = 0;
2661     int result;
2662     dXSARGS;
2663 
2664     if ((items < 3) || (items > 3)) {
2665       SWIG_croak("Usage: gsl_linalg_exponential_ss(A,eA,mode);");
2666     }
2667     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 |  0 );
2668     if (!SWIG_IsOK(res1)) {
2669       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_exponential_ss" "', argument " "1"" of type '" "gsl_matrix const *""'");
2670     }
2671     arg1 = (gsl_matrix *)(argp1);
2672     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 |  0 );
2673     if (!SWIG_IsOK(res2)) {
2674       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_exponential_ss" "', argument " "2"" of type '" "gsl_matrix *""'");
2675     }
2676     arg2 = (gsl_matrix *)(argp2);
2677     {
2678       res3 = SWIG_ConvertPtr(ST(2), &argp3, SWIGTYPE_p_gsl_mode_t,  0 );
2679       if (!SWIG_IsOK(res3)) {
2680         SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_exponential_ss" "', argument " "3"" of type '" "gsl_mode_t""'");
2681       }
2682       if (!argp3) {
2683         SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_linalg_exponential_ss" "', argument " "3"" of type '" "gsl_mode_t""'");
2684       } else {
2685         arg3 = *((gsl_mode_t *)(argp3));
2686       }
2687     }
2688     result = (int)gsl_linalg_exponential_ss((gsl_matrix const *)arg1,arg2,arg3);
2689     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
2690 
2691 
2692     XSRETURN(argvi);
2693   fail:
2694 
2695 
2696     SWIG_croak_null();
2697   }
2698 }
2699 
2700 
XS(_wrap_gsl_linalg_householder_transform)2701 XS(_wrap_gsl_linalg_householder_transform) {
2702   {
2703     gsl_vector *arg1 = (gsl_vector *) 0 ;
2704     void *argp1 = 0 ;
2705     int res1 = 0 ;
2706     int argvi = 0;
2707     double result;
2708     dXSARGS;
2709 
2710     if ((items < 1) || (items > 1)) {
2711       SWIG_croak("Usage: gsl_linalg_householder_transform(v);");
2712     }
2713     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 |  0 );
2714     if (!SWIG_IsOK(res1)) {
2715       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_householder_transform" "', argument " "1"" of type '" "gsl_vector *""'");
2716     }
2717     arg1 = (gsl_vector *)(argp1);
2718     result = (double)gsl_linalg_householder_transform(arg1);
2719     ST(argvi) = SWIG_From_double  SWIG_PERL_CALL_ARGS_1((double)(result)); argvi++ ;
2720 
2721     XSRETURN(argvi);
2722   fail:
2723 
2724     SWIG_croak_null();
2725   }
2726 }
2727 
2728 
XS(_wrap_gsl_linalg_complex_householder_transform)2729 XS(_wrap_gsl_linalg_complex_householder_transform) {
2730   {
2731     gsl_vector_complex *arg1 = (gsl_vector_complex *) 0 ;
2732     void *argp1 = 0 ;
2733     int res1 = 0 ;
2734     int argvi = 0;
2735     gsl_complex result;
2736     dXSARGS;
2737 
2738     if ((items < 1) || (items > 1)) {
2739       SWIG_croak("Usage: gsl_linalg_complex_householder_transform(v);");
2740     }
2741     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_complex, 0 |  0 );
2742     if (!SWIG_IsOK(res1)) {
2743       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_complex_householder_transform" "', argument " "1"" of type '" "gsl_vector_complex *""'");
2744     }
2745     arg1 = (gsl_vector_complex *)(argp1);
2746     result = gsl_linalg_complex_householder_transform(arg1);
2747     ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
2748 
2749     XSRETURN(argvi);
2750   fail:
2751 
2752     SWIG_croak_null();
2753   }
2754 }
2755 
2756 
XS(_wrap_gsl_linalg_householder_hm)2757 XS(_wrap_gsl_linalg_householder_hm) {
2758   {
2759     double arg1 ;
2760     gsl_vector *arg2 = (gsl_vector *) 0 ;
2761     gsl_matrix *arg3 = (gsl_matrix *) 0 ;
2762     double val1 ;
2763     int ecode1 = 0 ;
2764     void *argp2 = 0 ;
2765     int res2 = 0 ;
2766     void *argp3 = 0 ;
2767     int res3 = 0 ;
2768     int argvi = 0;
2769     int result;
2770     dXSARGS;
2771 
2772     if ((items < 3) || (items > 3)) {
2773       SWIG_croak("Usage: gsl_linalg_householder_hm(tau,v,A);");
2774     }
2775     ecode1 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
2776     if (!SWIG_IsOK(ecode1)) {
2777       SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_linalg_householder_hm" "', argument " "1"" of type '" "double""'");
2778     }
2779     arg1 = (double)(val1);
2780     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 |  0 );
2781     if (!SWIG_IsOK(res2)) {
2782       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_householder_hm" "', argument " "2"" of type '" "gsl_vector const *""'");
2783     }
2784     arg2 = (gsl_vector *)(argp2);
2785     res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 |  0 );
2786     if (!SWIG_IsOK(res3)) {
2787       SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_householder_hm" "', argument " "3"" of type '" "gsl_matrix *""'");
2788     }
2789     arg3 = (gsl_matrix *)(argp3);
2790     result = (int)gsl_linalg_householder_hm(arg1,(gsl_vector const *)arg2,arg3);
2791     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
2792 
2793 
2794 
2795     XSRETURN(argvi);
2796   fail:
2797 
2798 
2799 
2800     SWIG_croak_null();
2801   }
2802 }
2803 
2804 
XS(_wrap_gsl_linalg_householder_mh)2805 XS(_wrap_gsl_linalg_householder_mh) {
2806   {
2807     double arg1 ;
2808     gsl_vector *arg2 = (gsl_vector *) 0 ;
2809     gsl_matrix *arg3 = (gsl_matrix *) 0 ;
2810     double val1 ;
2811     int ecode1 = 0 ;
2812     void *argp2 = 0 ;
2813     int res2 = 0 ;
2814     void *argp3 = 0 ;
2815     int res3 = 0 ;
2816     int argvi = 0;
2817     int result;
2818     dXSARGS;
2819 
2820     if ((items < 3) || (items > 3)) {
2821       SWIG_croak("Usage: gsl_linalg_householder_mh(tau,v,A);");
2822     }
2823     ecode1 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
2824     if (!SWIG_IsOK(ecode1)) {
2825       SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_linalg_householder_mh" "', argument " "1"" of type '" "double""'");
2826     }
2827     arg1 = (double)(val1);
2828     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 |  0 );
2829     if (!SWIG_IsOK(res2)) {
2830       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_householder_mh" "', argument " "2"" of type '" "gsl_vector const *""'");
2831     }
2832     arg2 = (gsl_vector *)(argp2);
2833     res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 |  0 );
2834     if (!SWIG_IsOK(res3)) {
2835       SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_householder_mh" "', argument " "3"" of type '" "gsl_matrix *""'");
2836     }
2837     arg3 = (gsl_matrix *)(argp3);
2838     result = (int)gsl_linalg_householder_mh(arg1,(gsl_vector const *)arg2,arg3);
2839     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
2840 
2841 
2842 
2843     XSRETURN(argvi);
2844   fail:
2845 
2846 
2847 
2848     SWIG_croak_null();
2849   }
2850 }
2851 
2852 
XS(_wrap_gsl_linalg_householder_hv)2853 XS(_wrap_gsl_linalg_householder_hv) {
2854   {
2855     double arg1 ;
2856     gsl_vector *arg2 = (gsl_vector *) 0 ;
2857     gsl_vector *arg3 = (gsl_vector *) 0 ;
2858     double val1 ;
2859     int ecode1 = 0 ;
2860     void *argp2 = 0 ;
2861     int res2 = 0 ;
2862     void *argp3 = 0 ;
2863     int res3 = 0 ;
2864     int argvi = 0;
2865     int result;
2866     dXSARGS;
2867 
2868     if ((items < 3) || (items > 3)) {
2869       SWIG_croak("Usage: gsl_linalg_householder_hv(tau,v,w);");
2870     }
2871     ecode1 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
2872     if (!SWIG_IsOK(ecode1)) {
2873       SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_linalg_householder_hv" "', argument " "1"" of type '" "double""'");
2874     }
2875     arg1 = (double)(val1);
2876     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 |  0 );
2877     if (!SWIG_IsOK(res2)) {
2878       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_householder_hv" "', argument " "2"" of type '" "gsl_vector const *""'");
2879     }
2880     arg2 = (gsl_vector *)(argp2);
2881     res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 |  0 );
2882     if (!SWIG_IsOK(res3)) {
2883       SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_householder_hv" "', argument " "3"" of type '" "gsl_vector *""'");
2884     }
2885     arg3 = (gsl_vector *)(argp3);
2886     result = (int)gsl_linalg_householder_hv(arg1,(gsl_vector const *)arg2,arg3);
2887     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
2888 
2889 
2890 
2891     XSRETURN(argvi);
2892   fail:
2893 
2894 
2895 
2896     SWIG_croak_null();
2897   }
2898 }
2899 
2900 
XS(_wrap_gsl_linalg_householder_hm1)2901 XS(_wrap_gsl_linalg_householder_hm1) {
2902   {
2903     double arg1 ;
2904     gsl_matrix *arg2 = (gsl_matrix *) 0 ;
2905     double val1 ;
2906     int ecode1 = 0 ;
2907     void *argp2 = 0 ;
2908     int res2 = 0 ;
2909     int argvi = 0;
2910     int result;
2911     dXSARGS;
2912 
2913     if ((items < 2) || (items > 2)) {
2914       SWIG_croak("Usage: gsl_linalg_householder_hm1(tau,A);");
2915     }
2916     ecode1 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
2917     if (!SWIG_IsOK(ecode1)) {
2918       SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_linalg_householder_hm1" "', argument " "1"" of type '" "double""'");
2919     }
2920     arg1 = (double)(val1);
2921     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 |  0 );
2922     if (!SWIG_IsOK(res2)) {
2923       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_householder_hm1" "', argument " "2"" of type '" "gsl_matrix *""'");
2924     }
2925     arg2 = (gsl_matrix *)(argp2);
2926     result = (int)gsl_linalg_householder_hm1(arg1,arg2);
2927     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
2928 
2929 
2930     XSRETURN(argvi);
2931   fail:
2932 
2933 
2934     SWIG_croak_null();
2935   }
2936 }
2937 
2938 
XS(_wrap_gsl_linalg_complex_householder_hm)2939 XS(_wrap_gsl_linalg_complex_householder_hm) {
2940   {
2941     gsl_complex arg1 ;
2942     gsl_vector_complex *arg2 = (gsl_vector_complex *) 0 ;
2943     gsl_matrix_complex *arg3 = (gsl_matrix_complex *) 0 ;
2944     void *argp1 ;
2945     int res1 = 0 ;
2946     void *argp2 = 0 ;
2947     int res2 = 0 ;
2948     void *argp3 = 0 ;
2949     int res3 = 0 ;
2950     int argvi = 0;
2951     int result;
2952     dXSARGS;
2953 
2954     if ((items < 3) || (items > 3)) {
2955       SWIG_croak("Usage: gsl_linalg_complex_householder_hm(tau,v,A);");
2956     }
2957     {
2958       res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex,  0 );
2959       if (!SWIG_IsOK(res1)) {
2960         SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_complex_householder_hm" "', argument " "1"" of type '" "gsl_complex""'");
2961       }
2962       if (!argp1) {
2963         SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_linalg_complex_householder_hm" "', argument " "1"" of type '" "gsl_complex""'");
2964       } else {
2965         arg1 = *((gsl_complex *)(argp1));
2966       }
2967     }
2968     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_complex, 0 |  0 );
2969     if (!SWIG_IsOK(res2)) {
2970       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_complex_householder_hm" "', argument " "2"" of type '" "gsl_vector_complex const *""'");
2971     }
2972     arg2 = (gsl_vector_complex *)(argp2);
2973     res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix_complex, 0 |  0 );
2974     if (!SWIG_IsOK(res3)) {
2975       SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_complex_householder_hm" "', argument " "3"" of type '" "gsl_matrix_complex *""'");
2976     }
2977     arg3 = (gsl_matrix_complex *)(argp3);
2978     result = (int)gsl_linalg_complex_householder_hm(arg1,(gsl_vector_complex const *)arg2,arg3);
2979     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
2980 
2981 
2982     XSRETURN(argvi);
2983   fail:
2984 
2985 
2986     SWIG_croak_null();
2987   }
2988 }
2989 
2990 
XS(_wrap_gsl_linalg_complex_householder_mh)2991 XS(_wrap_gsl_linalg_complex_householder_mh) {
2992   {
2993     gsl_complex arg1 ;
2994     gsl_vector_complex *arg2 = (gsl_vector_complex *) 0 ;
2995     gsl_matrix_complex *arg3 = (gsl_matrix_complex *) 0 ;
2996     void *argp1 ;
2997     int res1 = 0 ;
2998     void *argp2 = 0 ;
2999     int res2 = 0 ;
3000     void *argp3 = 0 ;
3001     int res3 = 0 ;
3002     int argvi = 0;
3003     int result;
3004     dXSARGS;
3005 
3006     if ((items < 3) || (items > 3)) {
3007       SWIG_croak("Usage: gsl_linalg_complex_householder_mh(tau,v,A);");
3008     }
3009     {
3010       res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex,  0 );
3011       if (!SWIG_IsOK(res1)) {
3012         SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_complex_householder_mh" "', argument " "1"" of type '" "gsl_complex""'");
3013       }
3014       if (!argp1) {
3015         SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_linalg_complex_householder_mh" "', argument " "1"" of type '" "gsl_complex""'");
3016       } else {
3017         arg1 = *((gsl_complex *)(argp1));
3018       }
3019     }
3020     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_complex, 0 |  0 );
3021     if (!SWIG_IsOK(res2)) {
3022       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_complex_householder_mh" "', argument " "2"" of type '" "gsl_vector_complex const *""'");
3023     }
3024     arg2 = (gsl_vector_complex *)(argp2);
3025     res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix_complex, 0 |  0 );
3026     if (!SWIG_IsOK(res3)) {
3027       SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_complex_householder_mh" "', argument " "3"" of type '" "gsl_matrix_complex *""'");
3028     }
3029     arg3 = (gsl_matrix_complex *)(argp3);
3030     result = (int)gsl_linalg_complex_householder_mh(arg1,(gsl_vector_complex const *)arg2,arg3);
3031     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3032 
3033 
3034     XSRETURN(argvi);
3035   fail:
3036 
3037 
3038     SWIG_croak_null();
3039   }
3040 }
3041 
3042 
XS(_wrap_gsl_linalg_complex_householder_hv)3043 XS(_wrap_gsl_linalg_complex_householder_hv) {
3044   {
3045     gsl_complex arg1 ;
3046     gsl_vector_complex *arg2 = (gsl_vector_complex *) 0 ;
3047     gsl_vector_complex *arg3 = (gsl_vector_complex *) 0 ;
3048     void *argp1 ;
3049     int res1 = 0 ;
3050     void *argp2 = 0 ;
3051     int res2 = 0 ;
3052     void *argp3 = 0 ;
3053     int res3 = 0 ;
3054     int argvi = 0;
3055     int result;
3056     dXSARGS;
3057 
3058     if ((items < 3) || (items > 3)) {
3059       SWIG_croak("Usage: gsl_linalg_complex_householder_hv(tau,v,w);");
3060     }
3061     {
3062       res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex,  0 );
3063       if (!SWIG_IsOK(res1)) {
3064         SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_complex_householder_hv" "', argument " "1"" of type '" "gsl_complex""'");
3065       }
3066       if (!argp1) {
3067         SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_linalg_complex_householder_hv" "', argument " "1"" of type '" "gsl_complex""'");
3068       } else {
3069         arg1 = *((gsl_complex *)(argp1));
3070       }
3071     }
3072     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_complex, 0 |  0 );
3073     if (!SWIG_IsOK(res2)) {
3074       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_complex_householder_hv" "', argument " "2"" of type '" "gsl_vector_complex const *""'");
3075     }
3076     arg2 = (gsl_vector_complex *)(argp2);
3077     res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector_complex, 0 |  0 );
3078     if (!SWIG_IsOK(res3)) {
3079       SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_complex_householder_hv" "', argument " "3"" of type '" "gsl_vector_complex *""'");
3080     }
3081     arg3 = (gsl_vector_complex *)(argp3);
3082     result = (int)gsl_linalg_complex_householder_hv(arg1,(gsl_vector_complex const *)arg2,arg3);
3083     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3084 
3085 
3086     XSRETURN(argvi);
3087   fail:
3088 
3089 
3090     SWIG_croak_null();
3091   }
3092 }
3093 
3094 
XS(_wrap_gsl_linalg_hessenberg_decomp)3095 XS(_wrap_gsl_linalg_hessenberg_decomp) {
3096   {
3097     gsl_matrix *arg1 = (gsl_matrix *) 0 ;
3098     gsl_vector *arg2 = (gsl_vector *) 0 ;
3099     void *argp1 = 0 ;
3100     int res1 = 0 ;
3101     void *argp2 = 0 ;
3102     int res2 = 0 ;
3103     int argvi = 0;
3104     int result;
3105     dXSARGS;
3106 
3107     if ((items < 2) || (items > 2)) {
3108       SWIG_croak("Usage: gsl_linalg_hessenberg_decomp(A,tau);");
3109     }
3110     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 |  0 );
3111     if (!SWIG_IsOK(res1)) {
3112       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_hessenberg_decomp" "', argument " "1"" of type '" "gsl_matrix *""'");
3113     }
3114     arg1 = (gsl_matrix *)(argp1);
3115     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 |  0 );
3116     if (!SWIG_IsOK(res2)) {
3117       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_hessenberg_decomp" "', argument " "2"" of type '" "gsl_vector *""'");
3118     }
3119     arg2 = (gsl_vector *)(argp2);
3120     result = (int)gsl_linalg_hessenberg_decomp(arg1,arg2);
3121     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3122 
3123 
3124     XSRETURN(argvi);
3125   fail:
3126 
3127 
3128     SWIG_croak_null();
3129   }
3130 }
3131 
3132 
XS(_wrap_gsl_linalg_hessenberg_unpack)3133 XS(_wrap_gsl_linalg_hessenberg_unpack) {
3134   {
3135     gsl_matrix *arg1 = (gsl_matrix *) 0 ;
3136     gsl_vector *arg2 = (gsl_vector *) 0 ;
3137     gsl_matrix *arg3 = (gsl_matrix *) 0 ;
3138     void *argp1 = 0 ;
3139     int res1 = 0 ;
3140     void *argp2 = 0 ;
3141     int res2 = 0 ;
3142     void *argp3 = 0 ;
3143     int res3 = 0 ;
3144     int argvi = 0;
3145     int result;
3146     dXSARGS;
3147 
3148     if ((items < 3) || (items > 3)) {
3149       SWIG_croak("Usage: gsl_linalg_hessenberg_unpack(H,tau,U);");
3150     }
3151     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 |  0 );
3152     if (!SWIG_IsOK(res1)) {
3153       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_hessenberg_unpack" "', argument " "1"" of type '" "gsl_matrix *""'");
3154     }
3155     arg1 = (gsl_matrix *)(argp1);
3156     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 |  0 );
3157     if (!SWIG_IsOK(res2)) {
3158       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_hessenberg_unpack" "', argument " "2"" of type '" "gsl_vector *""'");
3159     }
3160     arg2 = (gsl_vector *)(argp2);
3161     res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 |  0 );
3162     if (!SWIG_IsOK(res3)) {
3163       SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_hessenberg_unpack" "', argument " "3"" of type '" "gsl_matrix *""'");
3164     }
3165     arg3 = (gsl_matrix *)(argp3);
3166     result = (int)gsl_linalg_hessenberg_unpack(arg1,arg2,arg3);
3167     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3168 
3169 
3170 
3171     XSRETURN(argvi);
3172   fail:
3173 
3174 
3175 
3176     SWIG_croak_null();
3177   }
3178 }
3179 
3180 
XS(_wrap_gsl_linalg_hessenberg_unpack_accum)3181 XS(_wrap_gsl_linalg_hessenberg_unpack_accum) {
3182   {
3183     gsl_matrix *arg1 = (gsl_matrix *) 0 ;
3184     gsl_vector *arg2 = (gsl_vector *) 0 ;
3185     gsl_matrix *arg3 = (gsl_matrix *) 0 ;
3186     void *argp1 = 0 ;
3187     int res1 = 0 ;
3188     void *argp2 = 0 ;
3189     int res2 = 0 ;
3190     void *argp3 = 0 ;
3191     int res3 = 0 ;
3192     int argvi = 0;
3193     int result;
3194     dXSARGS;
3195 
3196     if ((items < 3) || (items > 3)) {
3197       SWIG_croak("Usage: gsl_linalg_hessenberg_unpack_accum(H,tau,U);");
3198     }
3199     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 |  0 );
3200     if (!SWIG_IsOK(res1)) {
3201       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_hessenberg_unpack_accum" "', argument " "1"" of type '" "gsl_matrix *""'");
3202     }
3203     arg1 = (gsl_matrix *)(argp1);
3204     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 |  0 );
3205     if (!SWIG_IsOK(res2)) {
3206       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_hessenberg_unpack_accum" "', argument " "2"" of type '" "gsl_vector *""'");
3207     }
3208     arg2 = (gsl_vector *)(argp2);
3209     res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 |  0 );
3210     if (!SWIG_IsOK(res3)) {
3211       SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_hessenberg_unpack_accum" "', argument " "3"" of type '" "gsl_matrix *""'");
3212     }
3213     arg3 = (gsl_matrix *)(argp3);
3214     result = (int)gsl_linalg_hessenberg_unpack_accum(arg1,arg2,arg3);
3215     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3216 
3217 
3218 
3219     XSRETURN(argvi);
3220   fail:
3221 
3222 
3223 
3224     SWIG_croak_null();
3225   }
3226 }
3227 
3228 
XS(_wrap_gsl_linalg_hessenberg_set_zero)3229 XS(_wrap_gsl_linalg_hessenberg_set_zero) {
3230   {
3231     gsl_matrix *arg1 = (gsl_matrix *) 0 ;
3232     void *argp1 = 0 ;
3233     int res1 = 0 ;
3234     int argvi = 0;
3235     int result;
3236     dXSARGS;
3237 
3238     if ((items < 1) || (items > 1)) {
3239       SWIG_croak("Usage: gsl_linalg_hessenberg_set_zero(H);");
3240     }
3241     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 |  0 );
3242     if (!SWIG_IsOK(res1)) {
3243       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_hessenberg_set_zero" "', argument " "1"" of type '" "gsl_matrix *""'");
3244     }
3245     arg1 = (gsl_matrix *)(argp1);
3246     result = (int)gsl_linalg_hessenberg_set_zero(arg1);
3247     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3248 
3249     XSRETURN(argvi);
3250   fail:
3251 
3252     SWIG_croak_null();
3253   }
3254 }
3255 
3256 
XS(_wrap_gsl_linalg_hessenberg_submatrix)3257 XS(_wrap_gsl_linalg_hessenberg_submatrix) {
3258   {
3259     gsl_matrix *arg1 = (gsl_matrix *) 0 ;
3260     gsl_matrix *arg2 = (gsl_matrix *) 0 ;
3261     size_t arg3 ;
3262     gsl_vector *arg4 = (gsl_vector *) 0 ;
3263     void *argp1 = 0 ;
3264     int res1 = 0 ;
3265     void *argp2 = 0 ;
3266     int res2 = 0 ;
3267     size_t val3 ;
3268     int ecode3 = 0 ;
3269     void *argp4 = 0 ;
3270     int res4 = 0 ;
3271     int argvi = 0;
3272     int result;
3273     dXSARGS;
3274 
3275     if ((items < 4) || (items > 4)) {
3276       SWIG_croak("Usage: gsl_linalg_hessenberg_submatrix(M,A,top,tau);");
3277     }
3278     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 |  0 );
3279     if (!SWIG_IsOK(res1)) {
3280       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_hessenberg_submatrix" "', argument " "1"" of type '" "gsl_matrix *""'");
3281     }
3282     arg1 = (gsl_matrix *)(argp1);
3283     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 |  0 );
3284     if (!SWIG_IsOK(res2)) {
3285       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_hessenberg_submatrix" "', argument " "2"" of type '" "gsl_matrix *""'");
3286     }
3287     arg2 = (gsl_matrix *)(argp2);
3288     ecode3 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
3289     if (!SWIG_IsOK(ecode3)) {
3290       SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_linalg_hessenberg_submatrix" "', argument " "3"" of type '" "size_t""'");
3291     }
3292     arg3 = (size_t)(val3);
3293     res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 |  0 );
3294     if (!SWIG_IsOK(res4)) {
3295       SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_hessenberg_submatrix" "', argument " "4"" of type '" "gsl_vector *""'");
3296     }
3297     arg4 = (gsl_vector *)(argp4);
3298     result = (int)gsl_linalg_hessenberg_submatrix(arg1,arg2,arg3,arg4);
3299     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3300 
3301 
3302 
3303 
3304     XSRETURN(argvi);
3305   fail:
3306 
3307 
3308 
3309 
3310     SWIG_croak_null();
3311   }
3312 }
3313 
3314 
XS(_wrap_gsl_linalg_hesstri_decomp)3315 XS(_wrap_gsl_linalg_hesstri_decomp) {
3316   {
3317     gsl_matrix *arg1 = (gsl_matrix *) 0 ;
3318     gsl_matrix *arg2 = (gsl_matrix *) 0 ;
3319     gsl_matrix *arg3 = (gsl_matrix *) 0 ;
3320     gsl_matrix *arg4 = (gsl_matrix *) 0 ;
3321     gsl_vector *arg5 = (gsl_vector *) 0 ;
3322     void *argp1 = 0 ;
3323     int res1 = 0 ;
3324     void *argp2 = 0 ;
3325     int res2 = 0 ;
3326     void *argp3 = 0 ;
3327     int res3 = 0 ;
3328     void *argp4 = 0 ;
3329     int res4 = 0 ;
3330     void *argp5 = 0 ;
3331     int res5 = 0 ;
3332     int argvi = 0;
3333     int result;
3334     dXSARGS;
3335 
3336     if ((items < 5) || (items > 5)) {
3337       SWIG_croak("Usage: gsl_linalg_hesstri_decomp(A,B,U,V,work);");
3338     }
3339     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 |  0 );
3340     if (!SWIG_IsOK(res1)) {
3341       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_hesstri_decomp" "', argument " "1"" of type '" "gsl_matrix *""'");
3342     }
3343     arg1 = (gsl_matrix *)(argp1);
3344     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 |  0 );
3345     if (!SWIG_IsOK(res2)) {
3346       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_hesstri_decomp" "', argument " "2"" of type '" "gsl_matrix *""'");
3347     }
3348     arg2 = (gsl_matrix *)(argp2);
3349     res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 |  0 );
3350     if (!SWIG_IsOK(res3)) {
3351       SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_hesstri_decomp" "', argument " "3"" of type '" "gsl_matrix *""'");
3352     }
3353     arg3 = (gsl_matrix *)(argp3);
3354     res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_matrix, 0 |  0 );
3355     if (!SWIG_IsOK(res4)) {
3356       SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_hesstri_decomp" "', argument " "4"" of type '" "gsl_matrix *""'");
3357     }
3358     arg4 = (gsl_matrix *)(argp4);
3359     res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 |  0 );
3360     if (!SWIG_IsOK(res5)) {
3361       SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_hesstri_decomp" "', argument " "5"" of type '" "gsl_vector *""'");
3362     }
3363     arg5 = (gsl_vector *)(argp5);
3364     result = (int)gsl_linalg_hesstri_decomp(arg1,arg2,arg3,arg4,arg5);
3365     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3366 
3367 
3368 
3369 
3370 
3371     XSRETURN(argvi);
3372   fail:
3373 
3374 
3375 
3376 
3377 
3378     SWIG_croak_null();
3379   }
3380 }
3381 
3382 
XS(_wrap_gsl_linalg_SV_decomp)3383 XS(_wrap_gsl_linalg_SV_decomp) {
3384   {
3385     gsl_matrix *arg1 = (gsl_matrix *) 0 ;
3386     gsl_matrix *arg2 = (gsl_matrix *) 0 ;
3387     gsl_vector *arg3 = (gsl_vector *) 0 ;
3388     gsl_vector *arg4 = (gsl_vector *) 0 ;
3389     void *argp1 = 0 ;
3390     int res1 = 0 ;
3391     void *argp2 = 0 ;
3392     int res2 = 0 ;
3393     void *argp3 = 0 ;
3394     int res3 = 0 ;
3395     void *argp4 = 0 ;
3396     int res4 = 0 ;
3397     int argvi = 0;
3398     int result;
3399     dXSARGS;
3400 
3401     if ((items < 4) || (items > 4)) {
3402       SWIG_croak("Usage: gsl_linalg_SV_decomp(A,V,S,work);");
3403     }
3404     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 |  0 );
3405     if (!SWIG_IsOK(res1)) {
3406       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_SV_decomp" "', argument " "1"" of type '" "gsl_matrix *""'");
3407     }
3408     arg1 = (gsl_matrix *)(argp1);
3409     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 |  0 );
3410     if (!SWIG_IsOK(res2)) {
3411       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_SV_decomp" "', argument " "2"" of type '" "gsl_matrix *""'");
3412     }
3413     arg2 = (gsl_matrix *)(argp2);
3414     res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 |  0 );
3415     if (!SWIG_IsOK(res3)) {
3416       SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_SV_decomp" "', argument " "3"" of type '" "gsl_vector *""'");
3417     }
3418     arg3 = (gsl_vector *)(argp3);
3419     res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 |  0 );
3420     if (!SWIG_IsOK(res4)) {
3421       SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_SV_decomp" "', argument " "4"" of type '" "gsl_vector *""'");
3422     }
3423     arg4 = (gsl_vector *)(argp4);
3424     result = (int)gsl_linalg_SV_decomp(arg1,arg2,arg3,arg4);
3425     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3426 
3427 
3428 
3429 
3430     XSRETURN(argvi);
3431   fail:
3432 
3433 
3434 
3435 
3436     SWIG_croak_null();
3437   }
3438 }
3439 
3440 
XS(_wrap_gsl_linalg_SV_decomp_mod)3441 XS(_wrap_gsl_linalg_SV_decomp_mod) {
3442   {
3443     gsl_matrix *arg1 = (gsl_matrix *) 0 ;
3444     gsl_matrix *arg2 = (gsl_matrix *) 0 ;
3445     gsl_matrix *arg3 = (gsl_matrix *) 0 ;
3446     gsl_vector *arg4 = (gsl_vector *) 0 ;
3447     gsl_vector *arg5 = (gsl_vector *) 0 ;
3448     void *argp1 = 0 ;
3449     int res1 = 0 ;
3450     void *argp2 = 0 ;
3451     int res2 = 0 ;
3452     void *argp3 = 0 ;
3453     int res3 = 0 ;
3454     void *argp4 = 0 ;
3455     int res4 = 0 ;
3456     void *argp5 = 0 ;
3457     int res5 = 0 ;
3458     int argvi = 0;
3459     int result;
3460     dXSARGS;
3461 
3462     if ((items < 5) || (items > 5)) {
3463       SWIG_croak("Usage: gsl_linalg_SV_decomp_mod(A,X,V,S,work);");
3464     }
3465     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 |  0 );
3466     if (!SWIG_IsOK(res1)) {
3467       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_SV_decomp_mod" "', argument " "1"" of type '" "gsl_matrix *""'");
3468     }
3469     arg1 = (gsl_matrix *)(argp1);
3470     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 |  0 );
3471     if (!SWIG_IsOK(res2)) {
3472       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_SV_decomp_mod" "', argument " "2"" of type '" "gsl_matrix *""'");
3473     }
3474     arg2 = (gsl_matrix *)(argp2);
3475     res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 |  0 );
3476     if (!SWIG_IsOK(res3)) {
3477       SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_SV_decomp_mod" "', argument " "3"" of type '" "gsl_matrix *""'");
3478     }
3479     arg3 = (gsl_matrix *)(argp3);
3480     res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 |  0 );
3481     if (!SWIG_IsOK(res4)) {
3482       SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_SV_decomp_mod" "', argument " "4"" of type '" "gsl_vector *""'");
3483     }
3484     arg4 = (gsl_vector *)(argp4);
3485     res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 |  0 );
3486     if (!SWIG_IsOK(res5)) {
3487       SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_SV_decomp_mod" "', argument " "5"" of type '" "gsl_vector *""'");
3488     }
3489     arg5 = (gsl_vector *)(argp5);
3490     result = (int)gsl_linalg_SV_decomp_mod(arg1,arg2,arg3,arg4,arg5);
3491     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3492 
3493 
3494 
3495 
3496 
3497     XSRETURN(argvi);
3498   fail:
3499 
3500 
3501 
3502 
3503 
3504     SWIG_croak_null();
3505   }
3506 }
3507 
3508 
XS(_wrap_gsl_linalg_SV_decomp_jacobi)3509 XS(_wrap_gsl_linalg_SV_decomp_jacobi) {
3510   {
3511     gsl_matrix *arg1 = (gsl_matrix *) 0 ;
3512     gsl_matrix *arg2 = (gsl_matrix *) 0 ;
3513     gsl_vector *arg3 = (gsl_vector *) 0 ;
3514     void *argp1 = 0 ;
3515     int res1 = 0 ;
3516     void *argp2 = 0 ;
3517     int res2 = 0 ;
3518     void *argp3 = 0 ;
3519     int res3 = 0 ;
3520     int argvi = 0;
3521     int result;
3522     dXSARGS;
3523 
3524     if ((items < 3) || (items > 3)) {
3525       SWIG_croak("Usage: gsl_linalg_SV_decomp_jacobi(A,Q,S);");
3526     }
3527     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 |  0 );
3528     if (!SWIG_IsOK(res1)) {
3529       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_SV_decomp_jacobi" "', argument " "1"" of type '" "gsl_matrix *""'");
3530     }
3531     arg1 = (gsl_matrix *)(argp1);
3532     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 |  0 );
3533     if (!SWIG_IsOK(res2)) {
3534       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_SV_decomp_jacobi" "', argument " "2"" of type '" "gsl_matrix *""'");
3535     }
3536     arg2 = (gsl_matrix *)(argp2);
3537     res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 |  0 );
3538     if (!SWIG_IsOK(res3)) {
3539       SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_SV_decomp_jacobi" "', argument " "3"" of type '" "gsl_vector *""'");
3540     }
3541     arg3 = (gsl_vector *)(argp3);
3542     result = (int)gsl_linalg_SV_decomp_jacobi(arg1,arg2,arg3);
3543     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3544 
3545 
3546 
3547     XSRETURN(argvi);
3548   fail:
3549 
3550 
3551 
3552     SWIG_croak_null();
3553   }
3554 }
3555 
3556 
XS(_wrap_gsl_linalg_SV_solve)3557 XS(_wrap_gsl_linalg_SV_solve) {
3558   {
3559     gsl_matrix *arg1 = (gsl_matrix *) 0 ;
3560     gsl_matrix *arg2 = (gsl_matrix *) 0 ;
3561     gsl_vector *arg3 = (gsl_vector *) 0 ;
3562     gsl_vector *arg4 = (gsl_vector *) 0 ;
3563     gsl_vector *arg5 = (gsl_vector *) 0 ;
3564     void *argp1 = 0 ;
3565     int res1 = 0 ;
3566     void *argp2 = 0 ;
3567     int res2 = 0 ;
3568     void *argp3 = 0 ;
3569     int res3 = 0 ;
3570     void *argp4 = 0 ;
3571     int res4 = 0 ;
3572     void *argp5 = 0 ;
3573     int res5 = 0 ;
3574     int argvi = 0;
3575     int result;
3576     dXSARGS;
3577 
3578     if ((items < 5) || (items > 5)) {
3579       SWIG_croak("Usage: gsl_linalg_SV_solve(U,Q,S,b,x);");
3580     }
3581     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 |  0 );
3582     if (!SWIG_IsOK(res1)) {
3583       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_SV_solve" "', argument " "1"" of type '" "gsl_matrix const *""'");
3584     }
3585     arg1 = (gsl_matrix *)(argp1);
3586     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 |  0 );
3587     if (!SWIG_IsOK(res2)) {
3588       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_SV_solve" "', argument " "2"" of type '" "gsl_matrix const *""'");
3589     }
3590     arg2 = (gsl_matrix *)(argp2);
3591     res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 |  0 );
3592     if (!SWIG_IsOK(res3)) {
3593       SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_SV_solve" "', argument " "3"" of type '" "gsl_vector const *""'");
3594     }
3595     arg3 = (gsl_vector *)(argp3);
3596     res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 |  0 );
3597     if (!SWIG_IsOK(res4)) {
3598       SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_SV_solve" "', argument " "4"" of type '" "gsl_vector const *""'");
3599     }
3600     arg4 = (gsl_vector *)(argp4);
3601     res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 |  0 );
3602     if (!SWIG_IsOK(res5)) {
3603       SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_SV_solve" "', argument " "5"" of type '" "gsl_vector *""'");
3604     }
3605     arg5 = (gsl_vector *)(argp5);
3606     result = (int)gsl_linalg_SV_solve((gsl_matrix const *)arg1,(gsl_matrix const *)arg2,(gsl_vector const *)arg3,(gsl_vector const *)arg4,arg5);
3607     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3608 
3609 
3610 
3611 
3612 
3613     XSRETURN(argvi);
3614   fail:
3615 
3616 
3617 
3618 
3619 
3620     SWIG_croak_null();
3621   }
3622 }
3623 
3624 
XS(_wrap_gsl_linalg_SV_leverage)3625 XS(_wrap_gsl_linalg_SV_leverage) {
3626   {
3627     gsl_matrix *arg1 = (gsl_matrix *) 0 ;
3628     gsl_vector *arg2 = (gsl_vector *) 0 ;
3629     void *argp1 = 0 ;
3630     int res1 = 0 ;
3631     void *argp2 = 0 ;
3632     int res2 = 0 ;
3633     int argvi = 0;
3634     int result;
3635     dXSARGS;
3636 
3637     if ((items < 2) || (items > 2)) {
3638       SWIG_croak("Usage: gsl_linalg_SV_leverage(U,h);");
3639     }
3640     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 |  0 );
3641     if (!SWIG_IsOK(res1)) {
3642       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_SV_leverage" "', argument " "1"" of type '" "gsl_matrix const *""'");
3643     }
3644     arg1 = (gsl_matrix *)(argp1);
3645     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 |  0 );
3646     if (!SWIG_IsOK(res2)) {
3647       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_SV_leverage" "', argument " "2"" of type '" "gsl_vector *""'");
3648     }
3649     arg2 = (gsl_vector *)(argp2);
3650     result = (int)gsl_linalg_SV_leverage((gsl_matrix const *)arg1,arg2);
3651     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3652 
3653 
3654     XSRETURN(argvi);
3655   fail:
3656 
3657 
3658     SWIG_croak_null();
3659   }
3660 }
3661 
3662 
XS(_wrap_gsl_linalg_LU_decomp)3663 XS(_wrap_gsl_linalg_LU_decomp) {
3664   {
3665     gsl_matrix *arg1 = (gsl_matrix *) 0 ;
3666     gsl_permutation *arg2 = (gsl_permutation *) 0 ;
3667     int *arg3 = (int *) 0 ;
3668     void *argp1 = 0 ;
3669     int res1 = 0 ;
3670     void *argp2 = 0 ;
3671     int res2 = 0 ;
3672     int temp3 ;
3673     int res3 = SWIG_TMPOBJ ;
3674     int argvi = 0;
3675     int result;
3676     dXSARGS;
3677 
3678     arg3 = &temp3;
3679     if ((items < 2) || (items > 2)) {
3680       SWIG_croak("Usage: gsl_linalg_LU_decomp(A,p);");
3681     }
3682     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 |  0 );
3683     if (!SWIG_IsOK(res1)) {
3684       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LU_decomp" "', argument " "1"" of type '" "gsl_matrix *""'");
3685     }
3686     arg1 = (gsl_matrix *)(argp1);
3687     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 |  0 );
3688     if (!SWIG_IsOK(res2)) {
3689       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_LU_decomp" "', argument " "2"" of type '" "gsl_permutation *""'");
3690     }
3691     arg2 = (gsl_permutation *)(argp2);
3692     result = (int)gsl_linalg_LU_decomp(arg1,arg2,arg3);
3693     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3694     if (SWIG_IsTmpObj(res3)) {
3695       if (argvi >= items) EXTEND(sp, argvi+1);  ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((*arg3)); argvi++  ;
3696     } else {
3697       int new_flags = SWIG_IsNewObj(res3) ? (SWIG_POINTER_OWN | 0) : 0;
3698       if (argvi >= items) EXTEND(sp, argvi+1);  ST(argvi) = SWIG_NewPointerObj((void*)(arg3), SWIGTYPE_p_int, new_flags); argvi++  ;
3699     }
3700 
3701 
3702 
3703     XSRETURN(argvi);
3704   fail:
3705 
3706 
3707 
3708     SWIG_croak_null();
3709   }
3710 }
3711 
3712 
XS(_wrap_gsl_linalg_LU_solve)3713 XS(_wrap_gsl_linalg_LU_solve) {
3714   {
3715     gsl_matrix *arg1 = (gsl_matrix *) 0 ;
3716     gsl_permutation *arg2 = (gsl_permutation *) 0 ;
3717     gsl_vector *arg3 = (gsl_vector *) 0 ;
3718     gsl_vector *arg4 = (gsl_vector *) 0 ;
3719     void *argp1 = 0 ;
3720     int res1 = 0 ;
3721     void *argp2 = 0 ;
3722     int res2 = 0 ;
3723     void *argp3 = 0 ;
3724     int res3 = 0 ;
3725     void *argp4 = 0 ;
3726     int res4 = 0 ;
3727     int argvi = 0;
3728     int result;
3729     dXSARGS;
3730 
3731     if ((items < 4) || (items > 4)) {
3732       SWIG_croak("Usage: gsl_linalg_LU_solve(LU,p,b,x);");
3733     }
3734     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 |  0 );
3735     if (!SWIG_IsOK(res1)) {
3736       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LU_solve" "', argument " "1"" of type '" "gsl_matrix const *""'");
3737     }
3738     arg1 = (gsl_matrix *)(argp1);
3739     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 |  0 );
3740     if (!SWIG_IsOK(res2)) {
3741       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_LU_solve" "', argument " "2"" of type '" "gsl_permutation const *""'");
3742     }
3743     arg2 = (gsl_permutation *)(argp2);
3744     res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 |  0 );
3745     if (!SWIG_IsOK(res3)) {
3746       SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_LU_solve" "', argument " "3"" of type '" "gsl_vector const *""'");
3747     }
3748     arg3 = (gsl_vector *)(argp3);
3749     res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 |  0 );
3750     if (!SWIG_IsOK(res4)) {
3751       SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_LU_solve" "', argument " "4"" of type '" "gsl_vector *""'");
3752     }
3753     arg4 = (gsl_vector *)(argp4);
3754     result = (int)gsl_linalg_LU_solve((gsl_matrix const *)arg1,(struct gsl_permutation_struct const *)arg2,(gsl_vector const *)arg3,arg4);
3755     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3756 
3757 
3758 
3759 
3760     XSRETURN(argvi);
3761   fail:
3762 
3763 
3764 
3765 
3766     SWIG_croak_null();
3767   }
3768 }
3769 
3770 
XS(_wrap_gsl_linalg_LU_svx)3771 XS(_wrap_gsl_linalg_LU_svx) {
3772   {
3773     gsl_matrix *arg1 = (gsl_matrix *) 0 ;
3774     gsl_permutation *arg2 = (gsl_permutation *) 0 ;
3775     gsl_vector *arg3 = (gsl_vector *) 0 ;
3776     void *argp1 = 0 ;
3777     int res1 = 0 ;
3778     void *argp2 = 0 ;
3779     int res2 = 0 ;
3780     void *argp3 = 0 ;
3781     int res3 = 0 ;
3782     int argvi = 0;
3783     int result;
3784     dXSARGS;
3785 
3786     if ((items < 3) || (items > 3)) {
3787       SWIG_croak("Usage: gsl_linalg_LU_svx(LU,p,x);");
3788     }
3789     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 |  0 );
3790     if (!SWIG_IsOK(res1)) {
3791       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LU_svx" "', argument " "1"" of type '" "gsl_matrix const *""'");
3792     }
3793     arg1 = (gsl_matrix *)(argp1);
3794     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 |  0 );
3795     if (!SWIG_IsOK(res2)) {
3796       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_LU_svx" "', argument " "2"" of type '" "gsl_permutation const *""'");
3797     }
3798     arg2 = (gsl_permutation *)(argp2);
3799     res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 |  0 );
3800     if (!SWIG_IsOK(res3)) {
3801       SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_LU_svx" "', argument " "3"" of type '" "gsl_vector *""'");
3802     }
3803     arg3 = (gsl_vector *)(argp3);
3804     result = (int)gsl_linalg_LU_svx((gsl_matrix const *)arg1,(struct gsl_permutation_struct const *)arg2,arg3);
3805     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3806 
3807 
3808 
3809     XSRETURN(argvi);
3810   fail:
3811 
3812 
3813 
3814     SWIG_croak_null();
3815   }
3816 }
3817 
3818 
XS(_wrap_gsl_linalg_LU_refine)3819 XS(_wrap_gsl_linalg_LU_refine) {
3820   {
3821     gsl_matrix *arg1 = (gsl_matrix *) 0 ;
3822     gsl_matrix *arg2 = (gsl_matrix *) 0 ;
3823     gsl_permutation *arg3 = (gsl_permutation *) 0 ;
3824     gsl_vector *arg4 = (gsl_vector *) 0 ;
3825     gsl_vector *arg5 = (gsl_vector *) 0 ;
3826     gsl_vector *arg6 = (gsl_vector *) 0 ;
3827     void *argp1 = 0 ;
3828     int res1 = 0 ;
3829     void *argp2 = 0 ;
3830     int res2 = 0 ;
3831     void *argp3 = 0 ;
3832     int res3 = 0 ;
3833     void *argp4 = 0 ;
3834     int res4 = 0 ;
3835     void *argp5 = 0 ;
3836     int res5 = 0 ;
3837     void *argp6 = 0 ;
3838     int res6 = 0 ;
3839     int argvi = 0;
3840     int result;
3841     dXSARGS;
3842 
3843     if ((items < 6) || (items > 6)) {
3844       SWIG_croak("Usage: gsl_linalg_LU_refine(A,LU,p,b,x,work);");
3845     }
3846     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 |  0 );
3847     if (!SWIG_IsOK(res1)) {
3848       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LU_refine" "', argument " "1"" of type '" "gsl_matrix const *""'");
3849     }
3850     arg1 = (gsl_matrix *)(argp1);
3851     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 |  0 );
3852     if (!SWIG_IsOK(res2)) {
3853       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_LU_refine" "', argument " "2"" of type '" "gsl_matrix const *""'");
3854     }
3855     arg2 = (gsl_matrix *)(argp2);
3856     res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_permutation_struct, 0 |  0 );
3857     if (!SWIG_IsOK(res3)) {
3858       SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_LU_refine" "', argument " "3"" of type '" "gsl_permutation const *""'");
3859     }
3860     arg3 = (gsl_permutation *)(argp3);
3861     res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 |  0 );
3862     if (!SWIG_IsOK(res4)) {
3863       SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_LU_refine" "', argument " "4"" of type '" "gsl_vector const *""'");
3864     }
3865     arg4 = (gsl_vector *)(argp4);
3866     res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 |  0 );
3867     if (!SWIG_IsOK(res5)) {
3868       SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_LU_refine" "', argument " "5"" of type '" "gsl_vector *""'");
3869     }
3870     arg5 = (gsl_vector *)(argp5);
3871     res6 = SWIG_ConvertPtr(ST(5), &argp6,SWIGTYPE_p_gsl_vector, 0 |  0 );
3872     if (!SWIG_IsOK(res6)) {
3873       SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_linalg_LU_refine" "', argument " "6"" of type '" "gsl_vector *""'");
3874     }
3875     arg6 = (gsl_vector *)(argp6);
3876     result = (int)gsl_linalg_LU_refine((gsl_matrix const *)arg1,(gsl_matrix const *)arg2,(struct gsl_permutation_struct const *)arg3,(gsl_vector const *)arg4,arg5,arg6);
3877     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3878 
3879 
3880 
3881 
3882 
3883 
3884     XSRETURN(argvi);
3885   fail:
3886 
3887 
3888 
3889 
3890 
3891 
3892     SWIG_croak_null();
3893   }
3894 }
3895 
3896 
XS(_wrap_gsl_linalg_LU_invert)3897 XS(_wrap_gsl_linalg_LU_invert) {
3898   {
3899     gsl_matrix *arg1 = (gsl_matrix *) 0 ;
3900     gsl_permutation *arg2 = (gsl_permutation *) 0 ;
3901     gsl_matrix *arg3 = (gsl_matrix *) 0 ;
3902     void *argp1 = 0 ;
3903     int res1 = 0 ;
3904     void *argp2 = 0 ;
3905     int res2 = 0 ;
3906     void *argp3 = 0 ;
3907     int res3 = 0 ;
3908     int argvi = 0;
3909     int result;
3910     dXSARGS;
3911 
3912     if ((items < 3) || (items > 3)) {
3913       SWIG_croak("Usage: gsl_linalg_LU_invert(LU,p,inverse);");
3914     }
3915     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 |  0 );
3916     if (!SWIG_IsOK(res1)) {
3917       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LU_invert" "', argument " "1"" of type '" "gsl_matrix const *""'");
3918     }
3919     arg1 = (gsl_matrix *)(argp1);
3920     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 |  0 );
3921     if (!SWIG_IsOK(res2)) {
3922       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_LU_invert" "', argument " "2"" of type '" "gsl_permutation const *""'");
3923     }
3924     arg2 = (gsl_permutation *)(argp2);
3925     res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 |  0 );
3926     if (!SWIG_IsOK(res3)) {
3927       SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_LU_invert" "', argument " "3"" of type '" "gsl_matrix *""'");
3928     }
3929     arg3 = (gsl_matrix *)(argp3);
3930     result = (int)gsl_linalg_LU_invert((gsl_matrix const *)arg1,(struct gsl_permutation_struct const *)arg2,arg3);
3931     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3932 
3933 
3934 
3935     XSRETURN(argvi);
3936   fail:
3937 
3938 
3939 
3940     SWIG_croak_null();
3941   }
3942 }
3943 
3944 
XS(_wrap_gsl_linalg_LU_det)3945 XS(_wrap_gsl_linalg_LU_det) {
3946   {
3947     gsl_matrix *arg1 = (gsl_matrix *) 0 ;
3948     int arg2 ;
3949     void *argp1 = 0 ;
3950     int res1 = 0 ;
3951     int val2 ;
3952     int ecode2 = 0 ;
3953     int argvi = 0;
3954     double result;
3955     dXSARGS;
3956 
3957     if ((items < 2) || (items > 2)) {
3958       SWIG_croak("Usage: gsl_linalg_LU_det(LU,signum);");
3959     }
3960     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 |  0 );
3961     if (!SWIG_IsOK(res1)) {
3962       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LU_det" "', argument " "1"" of type '" "gsl_matrix *""'");
3963     }
3964     arg1 = (gsl_matrix *)(argp1);
3965     ecode2 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
3966     if (!SWIG_IsOK(ecode2)) {
3967       SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_linalg_LU_det" "', argument " "2"" of type '" "int""'");
3968     }
3969     arg2 = (int)(val2);
3970     result = (double)gsl_linalg_LU_det(arg1,arg2);
3971     ST(argvi) = SWIG_From_double  SWIG_PERL_CALL_ARGS_1((double)(result)); argvi++ ;
3972 
3973 
3974     XSRETURN(argvi);
3975   fail:
3976 
3977 
3978     SWIG_croak_null();
3979   }
3980 }
3981 
3982 
XS(_wrap_gsl_linalg_LU_lndet)3983 XS(_wrap_gsl_linalg_LU_lndet) {
3984   {
3985     gsl_matrix *arg1 = (gsl_matrix *) 0 ;
3986     void *argp1 = 0 ;
3987     int res1 = 0 ;
3988     int argvi = 0;
3989     double result;
3990     dXSARGS;
3991 
3992     if ((items < 1) || (items > 1)) {
3993       SWIG_croak("Usage: gsl_linalg_LU_lndet(LU);");
3994     }
3995     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 |  0 );
3996     if (!SWIG_IsOK(res1)) {
3997       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LU_lndet" "', argument " "1"" of type '" "gsl_matrix *""'");
3998     }
3999     arg1 = (gsl_matrix *)(argp1);
4000     result = (double)gsl_linalg_LU_lndet(arg1);
4001     ST(argvi) = SWIG_From_double  SWIG_PERL_CALL_ARGS_1((double)(result)); argvi++ ;
4002 
4003     XSRETURN(argvi);
4004   fail:
4005 
4006     SWIG_croak_null();
4007   }
4008 }
4009 
4010 
XS(_wrap_gsl_linalg_LU_sgndet)4011 XS(_wrap_gsl_linalg_LU_sgndet) {
4012   {
4013     gsl_matrix *arg1 = (gsl_matrix *) 0 ;
4014     int arg2 ;
4015     void *argp1 = 0 ;
4016     int res1 = 0 ;
4017     int val2 ;
4018     int ecode2 = 0 ;
4019     int argvi = 0;
4020     int result;
4021     dXSARGS;
4022 
4023     if ((items < 2) || (items > 2)) {
4024       SWIG_croak("Usage: gsl_linalg_LU_sgndet(lu,signum);");
4025     }
4026     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 |  0 );
4027     if (!SWIG_IsOK(res1)) {
4028       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LU_sgndet" "', argument " "1"" of type '" "gsl_matrix *""'");
4029     }
4030     arg1 = (gsl_matrix *)(argp1);
4031     ecode2 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
4032     if (!SWIG_IsOK(ecode2)) {
4033       SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_linalg_LU_sgndet" "', argument " "2"" of type '" "int""'");
4034     }
4035     arg2 = (int)(val2);
4036     result = (int)gsl_linalg_LU_sgndet(arg1,arg2);
4037     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4038 
4039 
4040     XSRETURN(argvi);
4041   fail:
4042 
4043 
4044     SWIG_croak_null();
4045   }
4046 }
4047 
4048 
XS(_wrap_gsl_linalg_complex_LU_decomp)4049 XS(_wrap_gsl_linalg_complex_LU_decomp) {
4050   {
4051     gsl_matrix_complex *arg1 = (gsl_matrix_complex *) 0 ;
4052     gsl_permutation *arg2 = (gsl_permutation *) 0 ;
4053     int *arg3 = (int *) 0 ;
4054     void *argp1 = 0 ;
4055     int res1 = 0 ;
4056     void *argp2 = 0 ;
4057     int res2 = 0 ;
4058     int temp3 ;
4059     int res3 = SWIG_TMPOBJ ;
4060     int argvi = 0;
4061     int result;
4062     dXSARGS;
4063 
4064     arg3 = &temp3;
4065     if ((items < 2) || (items > 2)) {
4066       SWIG_croak("Usage: gsl_linalg_complex_LU_decomp(A,p);");
4067     }
4068     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix_complex, 0 |  0 );
4069     if (!SWIG_IsOK(res1)) {
4070       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_complex_LU_decomp" "', argument " "1"" of type '" "gsl_matrix_complex *""'");
4071     }
4072     arg1 = (gsl_matrix_complex *)(argp1);
4073     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 |  0 );
4074     if (!SWIG_IsOK(res2)) {
4075       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_complex_LU_decomp" "', argument " "2"" of type '" "gsl_permutation *""'");
4076     }
4077     arg2 = (gsl_permutation *)(argp2);
4078     result = (int)gsl_linalg_complex_LU_decomp(arg1,arg2,arg3);
4079     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4080     if (SWIG_IsTmpObj(res3)) {
4081       if (argvi >= items) EXTEND(sp, argvi+1);  ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((*arg3)); argvi++  ;
4082     } else {
4083       int new_flags = SWIG_IsNewObj(res3) ? (SWIG_POINTER_OWN | 0) : 0;
4084       if (argvi >= items) EXTEND(sp, argvi+1);  ST(argvi) = SWIG_NewPointerObj((void*)(arg3), SWIGTYPE_p_int, new_flags); argvi++  ;
4085     }
4086 
4087 
4088 
4089     XSRETURN(argvi);
4090   fail:
4091 
4092 
4093 
4094     SWIG_croak_null();
4095   }
4096 }
4097 
4098 
XS(_wrap_gsl_linalg_complex_LU_solve)4099 XS(_wrap_gsl_linalg_complex_LU_solve) {
4100   {
4101     gsl_matrix_complex *arg1 = (gsl_matrix_complex *) 0 ;
4102     gsl_permutation *arg2 = (gsl_permutation *) 0 ;
4103     gsl_vector_complex *arg3 = (gsl_vector_complex *) 0 ;
4104     gsl_vector_complex *arg4 = (gsl_vector_complex *) 0 ;
4105     void *argp1 = 0 ;
4106     int res1 = 0 ;
4107     void *argp2 = 0 ;
4108     int res2 = 0 ;
4109     void *argp3 = 0 ;
4110     int res3 = 0 ;
4111     void *argp4 = 0 ;
4112     int res4 = 0 ;
4113     int argvi = 0;
4114     int result;
4115     dXSARGS;
4116 
4117     if ((items < 4) || (items > 4)) {
4118       SWIG_croak("Usage: gsl_linalg_complex_LU_solve(LU,p,b,x);");
4119     }
4120     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix_complex, 0 |  0 );
4121     if (!SWIG_IsOK(res1)) {
4122       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_complex_LU_solve" "', argument " "1"" of type '" "gsl_matrix_complex const *""'");
4123     }
4124     arg1 = (gsl_matrix_complex *)(argp1);
4125     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 |  0 );
4126     if (!SWIG_IsOK(res2)) {
4127       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_complex_LU_solve" "', argument " "2"" of type '" "gsl_permutation const *""'");
4128     }
4129     arg2 = (gsl_permutation *)(argp2);
4130     res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector_complex, 0 |  0 );
4131     if (!SWIG_IsOK(res3)) {
4132       SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_complex_LU_solve" "', argument " "3"" of type '" "gsl_vector_complex const *""'");
4133     }
4134     arg3 = (gsl_vector_complex *)(argp3);
4135     res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector_complex, 0 |  0 );
4136     if (!SWIG_IsOK(res4)) {
4137       SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_complex_LU_solve" "', argument " "4"" of type '" "gsl_vector_complex *""'");
4138     }
4139     arg4 = (gsl_vector_complex *)(argp4);
4140     result = (int)gsl_linalg_complex_LU_solve((gsl_matrix_complex const *)arg1,(struct gsl_permutation_struct const *)arg2,(gsl_vector_complex const *)arg3,arg4);
4141     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4142 
4143 
4144 
4145 
4146     XSRETURN(argvi);
4147   fail:
4148 
4149 
4150 
4151 
4152     SWIG_croak_null();
4153   }
4154 }
4155 
4156 
XS(_wrap_gsl_linalg_complex_LU_svx)4157 XS(_wrap_gsl_linalg_complex_LU_svx) {
4158   {
4159     gsl_matrix_complex *arg1 = (gsl_matrix_complex *) 0 ;
4160     gsl_permutation *arg2 = (gsl_permutation *) 0 ;
4161     gsl_vector_complex *arg3 = (gsl_vector_complex *) 0 ;
4162     void *argp1 = 0 ;
4163     int res1 = 0 ;
4164     void *argp2 = 0 ;
4165     int res2 = 0 ;
4166     void *argp3 = 0 ;
4167     int res3 = 0 ;
4168     int argvi = 0;
4169     int result;
4170     dXSARGS;
4171 
4172     if ((items < 3) || (items > 3)) {
4173       SWIG_croak("Usage: gsl_linalg_complex_LU_svx(LU,p,x);");
4174     }
4175     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix_complex, 0 |  0 );
4176     if (!SWIG_IsOK(res1)) {
4177       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_complex_LU_svx" "', argument " "1"" of type '" "gsl_matrix_complex const *""'");
4178     }
4179     arg1 = (gsl_matrix_complex *)(argp1);
4180     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 |  0 );
4181     if (!SWIG_IsOK(res2)) {
4182       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_complex_LU_svx" "', argument " "2"" of type '" "gsl_permutation const *""'");
4183     }
4184     arg2 = (gsl_permutation *)(argp2);
4185     res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector_complex, 0 |  0 );
4186     if (!SWIG_IsOK(res3)) {
4187       SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_complex_LU_svx" "', argument " "3"" of type '" "gsl_vector_complex *""'");
4188     }
4189     arg3 = (gsl_vector_complex *)(argp3);
4190     result = (int)gsl_linalg_complex_LU_svx((gsl_matrix_complex const *)arg1,(struct gsl_permutation_struct const *)arg2,arg3);
4191     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4192 
4193 
4194 
4195     XSRETURN(argvi);
4196   fail:
4197 
4198 
4199 
4200     SWIG_croak_null();
4201   }
4202 }
4203 
4204 
XS(_wrap_gsl_linalg_complex_LU_refine)4205 XS(_wrap_gsl_linalg_complex_LU_refine) {
4206   {
4207     gsl_matrix_complex *arg1 = (gsl_matrix_complex *) 0 ;
4208     gsl_matrix_complex *arg2 = (gsl_matrix_complex *) 0 ;
4209     gsl_permutation *arg3 = (gsl_permutation *) 0 ;
4210     gsl_vector_complex *arg4 = (gsl_vector_complex *) 0 ;
4211     gsl_vector_complex *arg5 = (gsl_vector_complex *) 0 ;
4212     gsl_vector_complex *arg6 = (gsl_vector_complex *) 0 ;
4213     void *argp1 = 0 ;
4214     int res1 = 0 ;
4215     void *argp2 = 0 ;
4216     int res2 = 0 ;
4217     void *argp3 = 0 ;
4218     int res3 = 0 ;
4219     void *argp4 = 0 ;
4220     int res4 = 0 ;
4221     void *argp5 = 0 ;
4222     int res5 = 0 ;
4223     void *argp6 = 0 ;
4224     int res6 = 0 ;
4225     int argvi = 0;
4226     int result;
4227     dXSARGS;
4228 
4229     if ((items < 6) || (items > 6)) {
4230       SWIG_croak("Usage: gsl_linalg_complex_LU_refine(A,LU,p,b,x,work);");
4231     }
4232     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix_complex, 0 |  0 );
4233     if (!SWIG_IsOK(res1)) {
4234       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_complex_LU_refine" "', argument " "1"" of type '" "gsl_matrix_complex const *""'");
4235     }
4236     arg1 = (gsl_matrix_complex *)(argp1);
4237     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix_complex, 0 |  0 );
4238     if (!SWIG_IsOK(res2)) {
4239       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_complex_LU_refine" "', argument " "2"" of type '" "gsl_matrix_complex const *""'");
4240     }
4241     arg2 = (gsl_matrix_complex *)(argp2);
4242     res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_permutation_struct, 0 |  0 );
4243     if (!SWIG_IsOK(res3)) {
4244       SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_complex_LU_refine" "', argument " "3"" of type '" "gsl_permutation const *""'");
4245     }
4246     arg3 = (gsl_permutation *)(argp3);
4247     res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector_complex, 0 |  0 );
4248     if (!SWIG_IsOK(res4)) {
4249       SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_complex_LU_refine" "', argument " "4"" of type '" "gsl_vector_complex const *""'");
4250     }
4251     arg4 = (gsl_vector_complex *)(argp4);
4252     res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector_complex, 0 |  0 );
4253     if (!SWIG_IsOK(res5)) {
4254       SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_complex_LU_refine" "', argument " "5"" of type '" "gsl_vector_complex *""'");
4255     }
4256     arg5 = (gsl_vector_complex *)(argp5);
4257     res6 = SWIG_ConvertPtr(ST(5), &argp6,SWIGTYPE_p_gsl_vector_complex, 0 |  0 );
4258     if (!SWIG_IsOK(res6)) {
4259       SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_linalg_complex_LU_refine" "', argument " "6"" of type '" "gsl_vector_complex *""'");
4260     }
4261     arg6 = (gsl_vector_complex *)(argp6);
4262     result = (int)gsl_linalg_complex_LU_refine((gsl_matrix_complex const *)arg1,(gsl_matrix_complex const *)arg2,(struct gsl_permutation_struct const *)arg3,(gsl_vector_complex const *)arg4,arg5,arg6);
4263     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4264 
4265 
4266 
4267 
4268 
4269 
4270     XSRETURN(argvi);
4271   fail:
4272 
4273 
4274 
4275 
4276 
4277 
4278     SWIG_croak_null();
4279   }
4280 }
4281 
4282 
XS(_wrap_gsl_linalg_complex_LU_invert)4283 XS(_wrap_gsl_linalg_complex_LU_invert) {
4284   {
4285     gsl_matrix_complex *arg1 = (gsl_matrix_complex *) 0 ;
4286     gsl_permutation *arg2 = (gsl_permutation *) 0 ;
4287     gsl_matrix_complex *arg3 = (gsl_matrix_complex *) 0 ;
4288     void *argp1 = 0 ;
4289     int res1 = 0 ;
4290     void *argp2 = 0 ;
4291     int res2 = 0 ;
4292     void *argp3 = 0 ;
4293     int res3 = 0 ;
4294     int argvi = 0;
4295     int result;
4296     dXSARGS;
4297 
4298     if ((items < 3) || (items > 3)) {
4299       SWIG_croak("Usage: gsl_linalg_complex_LU_invert(LU,p,inverse);");
4300     }
4301     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix_complex, 0 |  0 );
4302     if (!SWIG_IsOK(res1)) {
4303       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_complex_LU_invert" "', argument " "1"" of type '" "gsl_matrix_complex const *""'");
4304     }
4305     arg1 = (gsl_matrix_complex *)(argp1);
4306     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 |  0 );
4307     if (!SWIG_IsOK(res2)) {
4308       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_complex_LU_invert" "', argument " "2"" of type '" "gsl_permutation const *""'");
4309     }
4310     arg2 = (gsl_permutation *)(argp2);
4311     res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix_complex, 0 |  0 );
4312     if (!SWIG_IsOK(res3)) {
4313       SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_complex_LU_invert" "', argument " "3"" of type '" "gsl_matrix_complex *""'");
4314     }
4315     arg3 = (gsl_matrix_complex *)(argp3);
4316     result = (int)gsl_linalg_complex_LU_invert((gsl_matrix_complex const *)arg1,(struct gsl_permutation_struct const *)arg2,arg3);
4317     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4318 
4319 
4320 
4321     XSRETURN(argvi);
4322   fail:
4323 
4324 
4325 
4326     SWIG_croak_null();
4327   }
4328 }
4329 
4330 
XS(_wrap_gsl_linalg_complex_LU_det)4331 XS(_wrap_gsl_linalg_complex_LU_det) {
4332   {
4333     gsl_matrix_complex *arg1 = (gsl_matrix_complex *) 0 ;
4334     int arg2 ;
4335     void *argp1 = 0 ;
4336     int res1 = 0 ;
4337     int val2 ;
4338     int ecode2 = 0 ;
4339     int argvi = 0;
4340     gsl_complex result;
4341     dXSARGS;
4342 
4343     if ((items < 2) || (items > 2)) {
4344       SWIG_croak("Usage: gsl_linalg_complex_LU_det(LU,signum);");
4345     }
4346     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix_complex, 0 |  0 );
4347     if (!SWIG_IsOK(res1)) {
4348       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_complex_LU_det" "', argument " "1"" of type '" "gsl_matrix_complex *""'");
4349     }
4350     arg1 = (gsl_matrix_complex *)(argp1);
4351     ecode2 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
4352     if (!SWIG_IsOK(ecode2)) {
4353       SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_linalg_complex_LU_det" "', argument " "2"" of type '" "int""'");
4354     }
4355     arg2 = (int)(val2);
4356     result = gsl_linalg_complex_LU_det(arg1,arg2);
4357     ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
4358 
4359 
4360     XSRETURN(argvi);
4361   fail:
4362 
4363 
4364     SWIG_croak_null();
4365   }
4366 }
4367 
4368 
XS(_wrap_gsl_linalg_complex_LU_lndet)4369 XS(_wrap_gsl_linalg_complex_LU_lndet) {
4370   {
4371     gsl_matrix_complex *arg1 = (gsl_matrix_complex *) 0 ;
4372     void *argp1 = 0 ;
4373     int res1 = 0 ;
4374     int argvi = 0;
4375     double result;
4376     dXSARGS;
4377 
4378     if ((items < 1) || (items > 1)) {
4379       SWIG_croak("Usage: gsl_linalg_complex_LU_lndet(LU);");
4380     }
4381     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix_complex, 0 |  0 );
4382     if (!SWIG_IsOK(res1)) {
4383       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_complex_LU_lndet" "', argument " "1"" of type '" "gsl_matrix_complex *""'");
4384     }
4385     arg1 = (gsl_matrix_complex *)(argp1);
4386     result = (double)gsl_linalg_complex_LU_lndet(arg1);
4387     ST(argvi) = SWIG_From_double  SWIG_PERL_CALL_ARGS_1((double)(result)); argvi++ ;
4388 
4389     XSRETURN(argvi);
4390   fail:
4391 
4392     SWIG_croak_null();
4393   }
4394 }
4395 
4396 
XS(_wrap_gsl_linalg_complex_LU_sgndet)4397 XS(_wrap_gsl_linalg_complex_LU_sgndet) {
4398   {
4399     gsl_matrix_complex *arg1 = (gsl_matrix_complex *) 0 ;
4400     int arg2 ;
4401     void *argp1 = 0 ;
4402     int res1 = 0 ;
4403     int val2 ;
4404     int ecode2 = 0 ;
4405     int argvi = 0;
4406     gsl_complex result;
4407     dXSARGS;
4408 
4409     if ((items < 2) || (items > 2)) {
4410       SWIG_croak("Usage: gsl_linalg_complex_LU_sgndet(LU,signum);");
4411     }
4412     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix_complex, 0 |  0 );
4413     if (!SWIG_IsOK(res1)) {
4414       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_complex_LU_sgndet" "', argument " "1"" of type '" "gsl_matrix_complex *""'");
4415     }
4416     arg1 = (gsl_matrix_complex *)(argp1);
4417     ecode2 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
4418     if (!SWIG_IsOK(ecode2)) {
4419       SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_linalg_complex_LU_sgndet" "', argument " "2"" of type '" "int""'");
4420     }
4421     arg2 = (int)(val2);
4422     result = gsl_linalg_complex_LU_sgndet(arg1,arg2);
4423     ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
4424 
4425 
4426     XSRETURN(argvi);
4427   fail:
4428 
4429 
4430     SWIG_croak_null();
4431   }
4432 }
4433 
4434 
XS(_wrap_gsl_linalg_QR_decomp)4435 XS(_wrap_gsl_linalg_QR_decomp) {
4436   {
4437     gsl_matrix *arg1 = (gsl_matrix *) 0 ;
4438     gsl_vector *arg2 = (gsl_vector *) 0 ;
4439     void *argp1 = 0 ;
4440     int res1 = 0 ;
4441     void *argp2 = 0 ;
4442     int res2 = 0 ;
4443     int argvi = 0;
4444     int result;
4445     dXSARGS;
4446 
4447     if ((items < 2) || (items > 2)) {
4448       SWIG_croak("Usage: gsl_linalg_QR_decomp(A,tau);");
4449     }
4450     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 |  0 );
4451     if (!SWIG_IsOK(res1)) {
4452       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QR_decomp" "', argument " "1"" of type '" "gsl_matrix *""'");
4453     }
4454     arg1 = (gsl_matrix *)(argp1);
4455     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 |  0 );
4456     if (!SWIG_IsOK(res2)) {
4457       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QR_decomp" "', argument " "2"" of type '" "gsl_vector *""'");
4458     }
4459     arg2 = (gsl_vector *)(argp2);
4460     result = (int)gsl_linalg_QR_decomp(arg1,arg2);
4461     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4462 
4463 
4464     XSRETURN(argvi);
4465   fail:
4466 
4467 
4468     SWIG_croak_null();
4469   }
4470 }
4471 
4472 
XS(_wrap_gsl_linalg_QR_solve)4473 XS(_wrap_gsl_linalg_QR_solve) {
4474   {
4475     gsl_matrix *arg1 = (gsl_matrix *) 0 ;
4476     gsl_vector *arg2 = (gsl_vector *) 0 ;
4477     gsl_vector *arg3 = (gsl_vector *) 0 ;
4478     gsl_vector *arg4 = (gsl_vector *) 0 ;
4479     void *argp1 = 0 ;
4480     int res1 = 0 ;
4481     void *argp2 = 0 ;
4482     int res2 = 0 ;
4483     void *argp3 = 0 ;
4484     int res3 = 0 ;
4485     void *argp4 = 0 ;
4486     int res4 = 0 ;
4487     int argvi = 0;
4488     int result;
4489     dXSARGS;
4490 
4491     if ((items < 4) || (items > 4)) {
4492       SWIG_croak("Usage: gsl_linalg_QR_solve(QR,tau,b,x);");
4493     }
4494     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 |  0 );
4495     if (!SWIG_IsOK(res1)) {
4496       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QR_solve" "', argument " "1"" of type '" "gsl_matrix const *""'");
4497     }
4498     arg1 = (gsl_matrix *)(argp1);
4499     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 |  0 );
4500     if (!SWIG_IsOK(res2)) {
4501       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QR_solve" "', argument " "2"" of type '" "gsl_vector const *""'");
4502     }
4503     arg2 = (gsl_vector *)(argp2);
4504     res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 |  0 );
4505     if (!SWIG_IsOK(res3)) {
4506       SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QR_solve" "', argument " "3"" of type '" "gsl_vector const *""'");
4507     }
4508     arg3 = (gsl_vector *)(argp3);
4509     res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 |  0 );
4510     if (!SWIG_IsOK(res4)) {
4511       SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_QR_solve" "', argument " "4"" of type '" "gsl_vector *""'");
4512     }
4513     arg4 = (gsl_vector *)(argp4);
4514     result = (int)gsl_linalg_QR_solve((gsl_matrix const *)arg1,(gsl_vector const *)arg2,(gsl_vector const *)arg3,arg4);
4515     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4516 
4517 
4518 
4519 
4520     XSRETURN(argvi);
4521   fail:
4522 
4523 
4524 
4525 
4526     SWIG_croak_null();
4527   }
4528 }
4529 
4530 
XS(_wrap_gsl_linalg_QR_svx)4531 XS(_wrap_gsl_linalg_QR_svx) {
4532   {
4533     gsl_matrix *arg1 = (gsl_matrix *) 0 ;
4534     gsl_vector *arg2 = (gsl_vector *) 0 ;
4535     gsl_vector *arg3 = (gsl_vector *) 0 ;
4536     void *argp1 = 0 ;
4537     int res1 = 0 ;
4538     void *argp2 = 0 ;
4539     int res2 = 0 ;
4540     void *argp3 = 0 ;
4541     int res3 = 0 ;
4542     int argvi = 0;
4543     int result;
4544     dXSARGS;
4545 
4546     if ((items < 3) || (items > 3)) {
4547       SWIG_croak("Usage: gsl_linalg_QR_svx(QR,tau,x);");
4548     }
4549     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 |  0 );
4550     if (!SWIG_IsOK(res1)) {
4551       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QR_svx" "', argument " "1"" of type '" "gsl_matrix const *""'");
4552     }
4553     arg1 = (gsl_matrix *)(argp1);
4554     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 |  0 );
4555     if (!SWIG_IsOK(res2)) {
4556       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QR_svx" "', argument " "2"" of type '" "gsl_vector const *""'");
4557     }
4558     arg2 = (gsl_vector *)(argp2);
4559     res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 |  0 );
4560     if (!SWIG_IsOK(res3)) {
4561       SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QR_svx" "', argument " "3"" of type '" "gsl_vector *""'");
4562     }
4563     arg3 = (gsl_vector *)(argp3);
4564     result = (int)gsl_linalg_QR_svx((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3);
4565     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4566 
4567 
4568 
4569     XSRETURN(argvi);
4570   fail:
4571 
4572 
4573 
4574     SWIG_croak_null();
4575   }
4576 }
4577 
4578 
XS(_wrap_gsl_linalg_QR_lssolve)4579 XS(_wrap_gsl_linalg_QR_lssolve) {
4580   {
4581     gsl_matrix *arg1 = (gsl_matrix *) 0 ;
4582     gsl_vector *arg2 = (gsl_vector *) 0 ;
4583     gsl_vector *arg3 = (gsl_vector *) 0 ;
4584     gsl_vector *arg4 = (gsl_vector *) 0 ;
4585     gsl_vector *arg5 = (gsl_vector *) 0 ;
4586     void *argp1 = 0 ;
4587     int res1 = 0 ;
4588     void *argp2 = 0 ;
4589     int res2 = 0 ;
4590     void *argp3 = 0 ;
4591     int res3 = 0 ;
4592     void *argp4 = 0 ;
4593     int res4 = 0 ;
4594     void *argp5 = 0 ;
4595     int res5 = 0 ;
4596     int argvi = 0;
4597     int result;
4598     dXSARGS;
4599 
4600     if ((items < 5) || (items > 5)) {
4601       SWIG_croak("Usage: gsl_linalg_QR_lssolve(QR,tau,b,x,residual);");
4602     }
4603     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 |  0 );
4604     if (!SWIG_IsOK(res1)) {
4605       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QR_lssolve" "', argument " "1"" of type '" "gsl_matrix const *""'");
4606     }
4607     arg1 = (gsl_matrix *)(argp1);
4608     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 |  0 );
4609     if (!SWIG_IsOK(res2)) {
4610       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QR_lssolve" "', argument " "2"" of type '" "gsl_vector const *""'");
4611     }
4612     arg2 = (gsl_vector *)(argp2);
4613     res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 |  0 );
4614     if (!SWIG_IsOK(res3)) {
4615       SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QR_lssolve" "', argument " "3"" of type '" "gsl_vector const *""'");
4616     }
4617     arg3 = (gsl_vector *)(argp3);
4618     res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 |  0 );
4619     if (!SWIG_IsOK(res4)) {
4620       SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_QR_lssolve" "', argument " "4"" of type '" "gsl_vector *""'");
4621     }
4622     arg4 = (gsl_vector *)(argp4);
4623     res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 |  0 );
4624     if (!SWIG_IsOK(res5)) {
4625       SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_QR_lssolve" "', argument " "5"" of type '" "gsl_vector *""'");
4626     }
4627     arg5 = (gsl_vector *)(argp5);
4628     result = (int)gsl_linalg_QR_lssolve((gsl_matrix const *)arg1,(gsl_vector const *)arg2,(gsl_vector const *)arg3,arg4,arg5);
4629     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4630 
4631 
4632 
4633 
4634 
4635     XSRETURN(argvi);
4636   fail:
4637 
4638 
4639 
4640 
4641 
4642     SWIG_croak_null();
4643   }
4644 }
4645 
4646 
XS(_wrap_gsl_linalg_QR_QRsolve)4647 XS(_wrap_gsl_linalg_QR_QRsolve) {
4648   {
4649     gsl_matrix *arg1 = (gsl_matrix *) 0 ;
4650     gsl_matrix *arg2 = (gsl_matrix *) 0 ;
4651     gsl_vector *arg3 = (gsl_vector *) 0 ;
4652     gsl_vector *arg4 = (gsl_vector *) 0 ;
4653     void *argp1 = 0 ;
4654     int res1 = 0 ;
4655     void *argp2 = 0 ;
4656     int res2 = 0 ;
4657     void *argp3 = 0 ;
4658     int res3 = 0 ;
4659     void *argp4 = 0 ;
4660     int res4 = 0 ;
4661     int argvi = 0;
4662     int result;
4663     dXSARGS;
4664 
4665     if ((items < 4) || (items > 4)) {
4666       SWIG_croak("Usage: gsl_linalg_QR_QRsolve(Q,R,b,x);");
4667     }
4668     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 |  0 );
4669     if (!SWIG_IsOK(res1)) {
4670       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QR_QRsolve" "', argument " "1"" of type '" "gsl_matrix *""'");
4671     }
4672     arg1 = (gsl_matrix *)(argp1);
4673     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 |  0 );
4674     if (!SWIG_IsOK(res2)) {
4675       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QR_QRsolve" "', argument " "2"" of type '" "gsl_matrix *""'");
4676     }
4677     arg2 = (gsl_matrix *)(argp2);
4678     res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 |  0 );
4679     if (!SWIG_IsOK(res3)) {
4680       SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QR_QRsolve" "', argument " "3"" of type '" "gsl_vector const *""'");
4681     }
4682     arg3 = (gsl_vector *)(argp3);
4683     res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 |  0 );
4684     if (!SWIG_IsOK(res4)) {
4685       SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_QR_QRsolve" "', argument " "4"" of type '" "gsl_vector *""'");
4686     }
4687     arg4 = (gsl_vector *)(argp4);
4688     result = (int)gsl_linalg_QR_QRsolve(arg1,arg2,(gsl_vector const *)arg3,arg4);
4689     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4690 
4691 
4692 
4693 
4694     XSRETURN(argvi);
4695   fail:
4696 
4697 
4698 
4699 
4700     SWIG_croak_null();
4701   }
4702 }
4703 
4704 
XS(_wrap_gsl_linalg_QR_Rsolve)4705 XS(_wrap_gsl_linalg_QR_Rsolve) {
4706   {
4707     gsl_matrix *arg1 = (gsl_matrix *) 0 ;
4708     gsl_vector *arg2 = (gsl_vector *) 0 ;
4709     gsl_vector *arg3 = (gsl_vector *) 0 ;
4710     void *argp1 = 0 ;
4711     int res1 = 0 ;
4712     void *argp2 = 0 ;
4713     int res2 = 0 ;
4714     void *argp3 = 0 ;
4715     int res3 = 0 ;
4716     int argvi = 0;
4717     int result;
4718     dXSARGS;
4719 
4720     if ((items < 3) || (items > 3)) {
4721       SWIG_croak("Usage: gsl_linalg_QR_Rsolve(QR,b,x);");
4722     }
4723     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 |  0 );
4724     if (!SWIG_IsOK(res1)) {
4725       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QR_Rsolve" "', argument " "1"" of type '" "gsl_matrix const *""'");
4726     }
4727     arg1 = (gsl_matrix *)(argp1);
4728     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 |  0 );
4729     if (!SWIG_IsOK(res2)) {
4730       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QR_Rsolve" "', argument " "2"" of type '" "gsl_vector const *""'");
4731     }
4732     arg2 = (gsl_vector *)(argp2);
4733     res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 |  0 );
4734     if (!SWIG_IsOK(res3)) {
4735       SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QR_Rsolve" "', argument " "3"" of type '" "gsl_vector *""'");
4736     }
4737     arg3 = (gsl_vector *)(argp3);
4738     result = (int)gsl_linalg_QR_Rsolve((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3);
4739     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4740 
4741 
4742 
4743     XSRETURN(argvi);
4744   fail:
4745 
4746 
4747 
4748     SWIG_croak_null();
4749   }
4750 }
4751 
4752 
XS(_wrap_gsl_linalg_QR_Rsvx)4753 XS(_wrap_gsl_linalg_QR_Rsvx) {
4754   {
4755     gsl_matrix *arg1 = (gsl_matrix *) 0 ;
4756     gsl_vector *arg2 = (gsl_vector *) 0 ;
4757     void *argp1 = 0 ;
4758     int res1 = 0 ;
4759     void *argp2 = 0 ;
4760     int res2 = 0 ;
4761     int argvi = 0;
4762     int result;
4763     dXSARGS;
4764 
4765     if ((items < 2) || (items > 2)) {
4766       SWIG_croak("Usage: gsl_linalg_QR_Rsvx(QR,x);");
4767     }
4768     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 |  0 );
4769     if (!SWIG_IsOK(res1)) {
4770       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QR_Rsvx" "', argument " "1"" of type '" "gsl_matrix const *""'");
4771     }
4772     arg1 = (gsl_matrix *)(argp1);
4773     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 |  0 );
4774     if (!SWIG_IsOK(res2)) {
4775       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QR_Rsvx" "', argument " "2"" of type '" "gsl_vector *""'");
4776     }
4777     arg2 = (gsl_vector *)(argp2);
4778     result = (int)gsl_linalg_QR_Rsvx((gsl_matrix const *)arg1,arg2);
4779     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4780 
4781 
4782     XSRETURN(argvi);
4783   fail:
4784 
4785 
4786     SWIG_croak_null();
4787   }
4788 }
4789 
4790 
XS(_wrap_gsl_linalg_QR_update)4791 XS(_wrap_gsl_linalg_QR_update) {
4792   {
4793     gsl_matrix *arg1 = (gsl_matrix *) 0 ;
4794     gsl_matrix *arg2 = (gsl_matrix *) 0 ;
4795     gsl_vector *arg3 = (gsl_vector *) 0 ;
4796     gsl_vector *arg4 = (gsl_vector *) 0 ;
4797     void *argp1 = 0 ;
4798     int res1 = 0 ;
4799     void *argp2 = 0 ;
4800     int res2 = 0 ;
4801     void *argp3 = 0 ;
4802     int res3 = 0 ;
4803     void *argp4 = 0 ;
4804     int res4 = 0 ;
4805     int argvi = 0;
4806     int result;
4807     dXSARGS;
4808 
4809     if ((items < 4) || (items > 4)) {
4810       SWIG_croak("Usage: gsl_linalg_QR_update(Q,R,w,v);");
4811     }
4812     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 |  0 );
4813     if (!SWIG_IsOK(res1)) {
4814       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QR_update" "', argument " "1"" of type '" "gsl_matrix *""'");
4815     }
4816     arg1 = (gsl_matrix *)(argp1);
4817     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 |  0 );
4818     if (!SWIG_IsOK(res2)) {
4819       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QR_update" "', argument " "2"" of type '" "gsl_matrix *""'");
4820     }
4821     arg2 = (gsl_matrix *)(argp2);
4822     res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 |  0 );
4823     if (!SWIG_IsOK(res3)) {
4824       SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QR_update" "', argument " "3"" of type '" "gsl_vector *""'");
4825     }
4826     arg3 = (gsl_vector *)(argp3);
4827     res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 |  0 );
4828     if (!SWIG_IsOK(res4)) {
4829       SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_QR_update" "', argument " "4"" of type '" "gsl_vector const *""'");
4830     }
4831     arg4 = (gsl_vector *)(argp4);
4832     result = (int)gsl_linalg_QR_update(arg1,arg2,arg3,(gsl_vector const *)arg4);
4833     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4834 
4835 
4836 
4837 
4838     XSRETURN(argvi);
4839   fail:
4840 
4841 
4842 
4843 
4844     SWIG_croak_null();
4845   }
4846 }
4847 
4848 
XS(_wrap_gsl_linalg_QR_QTvec)4849 XS(_wrap_gsl_linalg_QR_QTvec) {
4850   {
4851     gsl_matrix *arg1 = (gsl_matrix *) 0 ;
4852     gsl_vector *arg2 = (gsl_vector *) 0 ;
4853     gsl_vector *arg3 = (gsl_vector *) 0 ;
4854     void *argp1 = 0 ;
4855     int res1 = 0 ;
4856     void *argp2 = 0 ;
4857     int res2 = 0 ;
4858     void *argp3 = 0 ;
4859     int res3 = 0 ;
4860     int argvi = 0;
4861     int result;
4862     dXSARGS;
4863 
4864     if ((items < 3) || (items > 3)) {
4865       SWIG_croak("Usage: gsl_linalg_QR_QTvec(QR,tau,v);");
4866     }
4867     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 |  0 );
4868     if (!SWIG_IsOK(res1)) {
4869       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QR_QTvec" "', argument " "1"" of type '" "gsl_matrix const *""'");
4870     }
4871     arg1 = (gsl_matrix *)(argp1);
4872     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 |  0 );
4873     if (!SWIG_IsOK(res2)) {
4874       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QR_QTvec" "', argument " "2"" of type '" "gsl_vector const *""'");
4875     }
4876     arg2 = (gsl_vector *)(argp2);
4877     res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 |  0 );
4878     if (!SWIG_IsOK(res3)) {
4879       SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QR_QTvec" "', argument " "3"" of type '" "gsl_vector *""'");
4880     }
4881     arg3 = (gsl_vector *)(argp3);
4882     result = (int)gsl_linalg_QR_QTvec((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3);
4883     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4884 
4885 
4886 
4887     XSRETURN(argvi);
4888   fail:
4889 
4890 
4891 
4892     SWIG_croak_null();
4893   }
4894 }
4895 
4896 
XS(_wrap_gsl_linalg_QR_Qvec)4897 XS(_wrap_gsl_linalg_QR_Qvec) {
4898   {
4899     gsl_matrix *arg1 = (gsl_matrix *) 0 ;
4900     gsl_vector *arg2 = (gsl_vector *) 0 ;
4901     gsl_vector *arg3 = (gsl_vector *) 0 ;
4902     void *argp1 = 0 ;
4903     int res1 = 0 ;
4904     void *argp2 = 0 ;
4905     int res2 = 0 ;
4906     void *argp3 = 0 ;
4907     int res3 = 0 ;
4908     int argvi = 0;
4909     int result;
4910     dXSARGS;
4911 
4912     if ((items < 3) || (items > 3)) {
4913       SWIG_croak("Usage: gsl_linalg_QR_Qvec(QR,tau,v);");
4914     }
4915     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 |  0 );
4916     if (!SWIG_IsOK(res1)) {
4917       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QR_Qvec" "', argument " "1"" of type '" "gsl_matrix const *""'");
4918     }
4919     arg1 = (gsl_matrix *)(argp1);
4920     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 |  0 );
4921     if (!SWIG_IsOK(res2)) {
4922       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QR_Qvec" "', argument " "2"" of type '" "gsl_vector const *""'");
4923     }
4924     arg2 = (gsl_vector *)(argp2);
4925     res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 |  0 );
4926     if (!SWIG_IsOK(res3)) {
4927       SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QR_Qvec" "', argument " "3"" of type '" "gsl_vector *""'");
4928     }
4929     arg3 = (gsl_vector *)(argp3);
4930     result = (int)gsl_linalg_QR_Qvec((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3);
4931     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4932 
4933 
4934 
4935     XSRETURN(argvi);
4936   fail:
4937 
4938 
4939 
4940     SWIG_croak_null();
4941   }
4942 }
4943 
4944 
XS(_wrap_gsl_linalg_QR_QTmat)4945 XS(_wrap_gsl_linalg_QR_QTmat) {
4946   {
4947     gsl_matrix *arg1 = (gsl_matrix *) 0 ;
4948     gsl_vector *arg2 = (gsl_vector *) 0 ;
4949     gsl_matrix *arg3 = (gsl_matrix *) 0 ;
4950     void *argp1 = 0 ;
4951     int res1 = 0 ;
4952     void *argp2 = 0 ;
4953     int res2 = 0 ;
4954     void *argp3 = 0 ;
4955     int res3 = 0 ;
4956     int argvi = 0;
4957     int result;
4958     dXSARGS;
4959 
4960     if ((items < 3) || (items > 3)) {
4961       SWIG_croak("Usage: gsl_linalg_QR_QTmat(QR,tau,A);");
4962     }
4963     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 |  0 );
4964     if (!SWIG_IsOK(res1)) {
4965       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QR_QTmat" "', argument " "1"" of type '" "gsl_matrix const *""'");
4966     }
4967     arg1 = (gsl_matrix *)(argp1);
4968     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 |  0 );
4969     if (!SWIG_IsOK(res2)) {
4970       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QR_QTmat" "', argument " "2"" of type '" "gsl_vector const *""'");
4971     }
4972     arg2 = (gsl_vector *)(argp2);
4973     res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 |  0 );
4974     if (!SWIG_IsOK(res3)) {
4975       SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QR_QTmat" "', argument " "3"" of type '" "gsl_matrix *""'");
4976     }
4977     arg3 = (gsl_matrix *)(argp3);
4978     result = (int)gsl_linalg_QR_QTmat((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3);
4979     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4980 
4981 
4982 
4983     XSRETURN(argvi);
4984   fail:
4985 
4986 
4987 
4988     SWIG_croak_null();
4989   }
4990 }
4991 
4992 
XS(_wrap_gsl_linalg_QR_unpack)4993 XS(_wrap_gsl_linalg_QR_unpack) {
4994   {
4995     gsl_matrix *arg1 = (gsl_matrix *) 0 ;
4996     gsl_vector *arg2 = (gsl_vector *) 0 ;
4997     gsl_matrix *arg3 = (gsl_matrix *) 0 ;
4998     gsl_matrix *arg4 = (gsl_matrix *) 0 ;
4999     void *argp1 = 0 ;
5000     int res1 = 0 ;
5001     void *argp2 = 0 ;
5002     int res2 = 0 ;
5003     void *argp3 = 0 ;
5004     int res3 = 0 ;
5005     void *argp4 = 0 ;
5006     int res4 = 0 ;
5007     int argvi = 0;
5008     int result;
5009     dXSARGS;
5010 
5011     if ((items < 4) || (items > 4)) {
5012       SWIG_croak("Usage: gsl_linalg_QR_unpack(QR,tau,Q,R);");
5013     }
5014     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 |  0 );
5015     if (!SWIG_IsOK(res1)) {
5016       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QR_unpack" "', argument " "1"" of type '" "gsl_matrix const *""'");
5017     }
5018     arg1 = (gsl_matrix *)(argp1);
5019     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 |  0 );
5020     if (!SWIG_IsOK(res2)) {
5021       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QR_unpack" "', argument " "2"" of type '" "gsl_vector const *""'");
5022     }
5023     arg2 = (gsl_vector *)(argp2);
5024     res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 |  0 );
5025     if (!SWIG_IsOK(res3)) {
5026       SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QR_unpack" "', argument " "3"" of type '" "gsl_matrix *""'");
5027     }
5028     arg3 = (gsl_matrix *)(argp3);
5029     res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_matrix, 0 |  0 );
5030     if (!SWIG_IsOK(res4)) {
5031       SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_QR_unpack" "', argument " "4"" of type '" "gsl_matrix *""'");
5032     }
5033     arg4 = (gsl_matrix *)(argp4);
5034     result = (int)gsl_linalg_QR_unpack((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3,arg4);
5035     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5036 
5037 
5038 
5039 
5040     XSRETURN(argvi);
5041   fail:
5042 
5043 
5044 
5045 
5046     SWIG_croak_null();
5047   }
5048 }
5049 
5050 
XS(_wrap_gsl_linalg_R_solve)5051 XS(_wrap_gsl_linalg_R_solve) {
5052   {
5053     gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5054     gsl_vector *arg2 = (gsl_vector *) 0 ;
5055     gsl_vector *arg3 = (gsl_vector *) 0 ;
5056     void *argp1 = 0 ;
5057     int res1 = 0 ;
5058     void *argp2 = 0 ;
5059     int res2 = 0 ;
5060     void *argp3 = 0 ;
5061     int res3 = 0 ;
5062     int argvi = 0;
5063     int result;
5064     dXSARGS;
5065 
5066     if ((items < 3) || (items > 3)) {
5067       SWIG_croak("Usage: gsl_linalg_R_solve(R,b,x);");
5068     }
5069     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 |  0 );
5070     if (!SWIG_IsOK(res1)) {
5071       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_R_solve" "', argument " "1"" of type '" "gsl_matrix const *""'");
5072     }
5073     arg1 = (gsl_matrix *)(argp1);
5074     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 |  0 );
5075     if (!SWIG_IsOK(res2)) {
5076       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_R_solve" "', argument " "2"" of type '" "gsl_vector const *""'");
5077     }
5078     arg2 = (gsl_vector *)(argp2);
5079     res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 |  0 );
5080     if (!SWIG_IsOK(res3)) {
5081       SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_R_solve" "', argument " "3"" of type '" "gsl_vector *""'");
5082     }
5083     arg3 = (gsl_vector *)(argp3);
5084     result = (int)gsl_linalg_R_solve((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3);
5085     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5086 
5087 
5088 
5089     XSRETURN(argvi);
5090   fail:
5091 
5092 
5093 
5094     SWIG_croak_null();
5095   }
5096 }
5097 
5098 
XS(_wrap_gsl_linalg_R_svx)5099 XS(_wrap_gsl_linalg_R_svx) {
5100   {
5101     gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5102     gsl_vector *arg2 = (gsl_vector *) 0 ;
5103     void *argp1 = 0 ;
5104     int res1 = 0 ;
5105     void *argp2 = 0 ;
5106     int res2 = 0 ;
5107     int argvi = 0;
5108     int result;
5109     dXSARGS;
5110 
5111     if ((items < 2) || (items > 2)) {
5112       SWIG_croak("Usage: gsl_linalg_R_svx(R,x);");
5113     }
5114     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 |  0 );
5115     if (!SWIG_IsOK(res1)) {
5116       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_R_svx" "', argument " "1"" of type '" "gsl_matrix const *""'");
5117     }
5118     arg1 = (gsl_matrix *)(argp1);
5119     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 |  0 );
5120     if (!SWIG_IsOK(res2)) {
5121       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_R_svx" "', argument " "2"" of type '" "gsl_vector *""'");
5122     }
5123     arg2 = (gsl_vector *)(argp2);
5124     result = (int)gsl_linalg_R_svx((gsl_matrix const *)arg1,arg2);
5125     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5126 
5127 
5128     XSRETURN(argvi);
5129   fail:
5130 
5131 
5132     SWIG_croak_null();
5133   }
5134 }
5135 
5136 
XS(_wrap_gsl_linalg_QRPT_decomp)5137 XS(_wrap_gsl_linalg_QRPT_decomp) {
5138   {
5139     gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5140     gsl_vector *arg2 = (gsl_vector *) 0 ;
5141     gsl_permutation *arg3 = (gsl_permutation *) 0 ;
5142     int *arg4 = (int *) 0 ;
5143     gsl_vector *arg5 = (gsl_vector *) 0 ;
5144     void *argp1 = 0 ;
5145     int res1 = 0 ;
5146     void *argp2 = 0 ;
5147     int res2 = 0 ;
5148     void *argp3 = 0 ;
5149     int res3 = 0 ;
5150     int temp4 ;
5151     int res4 = SWIG_TMPOBJ ;
5152     void *argp5 = 0 ;
5153     int res5 = 0 ;
5154     int argvi = 0;
5155     int result;
5156     dXSARGS;
5157 
5158     arg4 = &temp4;
5159     if ((items < 4) || (items > 4)) {
5160       SWIG_croak("Usage: gsl_linalg_QRPT_decomp(A,tau,p,norm);");
5161     }
5162     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 |  0 );
5163     if (!SWIG_IsOK(res1)) {
5164       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QRPT_decomp" "', argument " "1"" of type '" "gsl_matrix *""'");
5165     }
5166     arg1 = (gsl_matrix *)(argp1);
5167     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 |  0 );
5168     if (!SWIG_IsOK(res2)) {
5169       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QRPT_decomp" "', argument " "2"" of type '" "gsl_vector *""'");
5170     }
5171     arg2 = (gsl_vector *)(argp2);
5172     res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_permutation_struct, 0 |  0 );
5173     if (!SWIG_IsOK(res3)) {
5174       SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QRPT_decomp" "', argument " "3"" of type '" "gsl_permutation *""'");
5175     }
5176     arg3 = (gsl_permutation *)(argp3);
5177     res5 = SWIG_ConvertPtr(ST(3), &argp5,SWIGTYPE_p_gsl_vector, 0 |  0 );
5178     if (!SWIG_IsOK(res5)) {
5179       SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_QRPT_decomp" "', argument " "5"" of type '" "gsl_vector *""'");
5180     }
5181     arg5 = (gsl_vector *)(argp5);
5182     result = (int)gsl_linalg_QRPT_decomp(arg1,arg2,arg3,arg4,arg5);
5183     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5184     if (SWIG_IsTmpObj(res4)) {
5185       if (argvi >= items) EXTEND(sp, argvi+1);  ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((*arg4)); argvi++  ;
5186     } else {
5187       int new_flags = SWIG_IsNewObj(res4) ? (SWIG_POINTER_OWN | 0) : 0;
5188       if (argvi >= items) EXTEND(sp, argvi+1);  ST(argvi) = SWIG_NewPointerObj((void*)(arg4), SWIGTYPE_p_int, new_flags); argvi++  ;
5189     }
5190 
5191 
5192 
5193 
5194 
5195     XSRETURN(argvi);
5196   fail:
5197 
5198 
5199 
5200 
5201 
5202     SWIG_croak_null();
5203   }
5204 }
5205 
5206 
XS(_wrap_gsl_linalg_QRPT_decomp2)5207 XS(_wrap_gsl_linalg_QRPT_decomp2) {
5208   {
5209     gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5210     gsl_matrix *arg2 = (gsl_matrix *) 0 ;
5211     gsl_matrix *arg3 = (gsl_matrix *) 0 ;
5212     gsl_vector *arg4 = (gsl_vector *) 0 ;
5213     gsl_permutation *arg5 = (gsl_permutation *) 0 ;
5214     int *arg6 = (int *) 0 ;
5215     gsl_vector *arg7 = (gsl_vector *) 0 ;
5216     void *argp1 = 0 ;
5217     int res1 = 0 ;
5218     void *argp2 = 0 ;
5219     int res2 = 0 ;
5220     void *argp3 = 0 ;
5221     int res3 = 0 ;
5222     void *argp4 = 0 ;
5223     int res4 = 0 ;
5224     void *argp5 = 0 ;
5225     int res5 = 0 ;
5226     int temp6 ;
5227     int res6 = SWIG_TMPOBJ ;
5228     void *argp7 = 0 ;
5229     int res7 = 0 ;
5230     int argvi = 0;
5231     int result;
5232     dXSARGS;
5233 
5234     arg6 = &temp6;
5235     if ((items < 6) || (items > 6)) {
5236       SWIG_croak("Usage: gsl_linalg_QRPT_decomp2(A,q,r,tau,p,norm);");
5237     }
5238     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 |  0 );
5239     if (!SWIG_IsOK(res1)) {
5240       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QRPT_decomp2" "', argument " "1"" of type '" "gsl_matrix const *""'");
5241     }
5242     arg1 = (gsl_matrix *)(argp1);
5243     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 |  0 );
5244     if (!SWIG_IsOK(res2)) {
5245       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QRPT_decomp2" "', argument " "2"" of type '" "gsl_matrix *""'");
5246     }
5247     arg2 = (gsl_matrix *)(argp2);
5248     res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 |  0 );
5249     if (!SWIG_IsOK(res3)) {
5250       SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QRPT_decomp2" "', argument " "3"" of type '" "gsl_matrix *""'");
5251     }
5252     arg3 = (gsl_matrix *)(argp3);
5253     res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 |  0 );
5254     if (!SWIG_IsOK(res4)) {
5255       SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_QRPT_decomp2" "', argument " "4"" of type '" "gsl_vector *""'");
5256     }
5257     arg4 = (gsl_vector *)(argp4);
5258     res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_permutation_struct, 0 |  0 );
5259     if (!SWIG_IsOK(res5)) {
5260       SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_QRPT_decomp2" "', argument " "5"" of type '" "gsl_permutation *""'");
5261     }
5262     arg5 = (gsl_permutation *)(argp5);
5263     res7 = SWIG_ConvertPtr(ST(5), &argp7,SWIGTYPE_p_gsl_vector, 0 |  0 );
5264     if (!SWIG_IsOK(res7)) {
5265       SWIG_exception_fail(SWIG_ArgError(res7), "in method '" "gsl_linalg_QRPT_decomp2" "', argument " "7"" of type '" "gsl_vector *""'");
5266     }
5267     arg7 = (gsl_vector *)(argp7);
5268     result = (int)gsl_linalg_QRPT_decomp2((gsl_matrix const *)arg1,arg2,arg3,arg4,arg5,arg6,arg7);
5269     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5270     if (SWIG_IsTmpObj(res6)) {
5271       if (argvi >= items) EXTEND(sp, argvi+1);  ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((*arg6)); argvi++  ;
5272     } else {
5273       int new_flags = SWIG_IsNewObj(res6) ? (SWIG_POINTER_OWN | 0) : 0;
5274       if (argvi >= items) EXTEND(sp, argvi+1);  ST(argvi) = SWIG_NewPointerObj((void*)(arg6), SWIGTYPE_p_int, new_flags); argvi++  ;
5275     }
5276 
5277 
5278 
5279 
5280 
5281 
5282 
5283     XSRETURN(argvi);
5284   fail:
5285 
5286 
5287 
5288 
5289 
5290 
5291 
5292     SWIG_croak_null();
5293   }
5294 }
5295 
5296 
XS(_wrap_gsl_linalg_QRPT_solve)5297 XS(_wrap_gsl_linalg_QRPT_solve) {
5298   {
5299     gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5300     gsl_vector *arg2 = (gsl_vector *) 0 ;
5301     gsl_permutation *arg3 = (gsl_permutation *) 0 ;
5302     gsl_vector *arg4 = (gsl_vector *) 0 ;
5303     gsl_vector *arg5 = (gsl_vector *) 0 ;
5304     void *argp1 = 0 ;
5305     int res1 = 0 ;
5306     void *argp2 = 0 ;
5307     int res2 = 0 ;
5308     void *argp3 = 0 ;
5309     int res3 = 0 ;
5310     void *argp4 = 0 ;
5311     int res4 = 0 ;
5312     void *argp5 = 0 ;
5313     int res5 = 0 ;
5314     int argvi = 0;
5315     int result;
5316     dXSARGS;
5317 
5318     if ((items < 5) || (items > 5)) {
5319       SWIG_croak("Usage: gsl_linalg_QRPT_solve(QR,tau,p,b,x);");
5320     }
5321     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 |  0 );
5322     if (!SWIG_IsOK(res1)) {
5323       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QRPT_solve" "', argument " "1"" of type '" "gsl_matrix const *""'");
5324     }
5325     arg1 = (gsl_matrix *)(argp1);
5326     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 |  0 );
5327     if (!SWIG_IsOK(res2)) {
5328       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QRPT_solve" "', argument " "2"" of type '" "gsl_vector const *""'");
5329     }
5330     arg2 = (gsl_vector *)(argp2);
5331     res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_permutation_struct, 0 |  0 );
5332     if (!SWIG_IsOK(res3)) {
5333       SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QRPT_solve" "', argument " "3"" of type '" "gsl_permutation const *""'");
5334     }
5335     arg3 = (gsl_permutation *)(argp3);
5336     res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 |  0 );
5337     if (!SWIG_IsOK(res4)) {
5338       SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_QRPT_solve" "', argument " "4"" of type '" "gsl_vector const *""'");
5339     }
5340     arg4 = (gsl_vector *)(argp4);
5341     res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 |  0 );
5342     if (!SWIG_IsOK(res5)) {
5343       SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_QRPT_solve" "', argument " "5"" of type '" "gsl_vector *""'");
5344     }
5345     arg5 = (gsl_vector *)(argp5);
5346     result = (int)gsl_linalg_QRPT_solve((gsl_matrix const *)arg1,(gsl_vector const *)arg2,(struct gsl_permutation_struct const *)arg3,(gsl_vector const *)arg4,arg5);
5347     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5348 
5349 
5350 
5351 
5352 
5353     XSRETURN(argvi);
5354   fail:
5355 
5356 
5357 
5358 
5359 
5360     SWIG_croak_null();
5361   }
5362 }
5363 
5364 
XS(_wrap_gsl_linalg_QRPT_svx)5365 XS(_wrap_gsl_linalg_QRPT_svx) {
5366   {
5367     gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5368     gsl_vector *arg2 = (gsl_vector *) 0 ;
5369     gsl_permutation *arg3 = (gsl_permutation *) 0 ;
5370     gsl_vector *arg4 = (gsl_vector *) 0 ;
5371     void *argp1 = 0 ;
5372     int res1 = 0 ;
5373     void *argp2 = 0 ;
5374     int res2 = 0 ;
5375     void *argp3 = 0 ;
5376     int res3 = 0 ;
5377     void *argp4 = 0 ;
5378     int res4 = 0 ;
5379     int argvi = 0;
5380     int result;
5381     dXSARGS;
5382 
5383     if ((items < 4) || (items > 4)) {
5384       SWIG_croak("Usage: gsl_linalg_QRPT_svx(QR,tau,p,x);");
5385     }
5386     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 |  0 );
5387     if (!SWIG_IsOK(res1)) {
5388       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QRPT_svx" "', argument " "1"" of type '" "gsl_matrix const *""'");
5389     }
5390     arg1 = (gsl_matrix *)(argp1);
5391     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 |  0 );
5392     if (!SWIG_IsOK(res2)) {
5393       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QRPT_svx" "', argument " "2"" of type '" "gsl_vector const *""'");
5394     }
5395     arg2 = (gsl_vector *)(argp2);
5396     res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_permutation_struct, 0 |  0 );
5397     if (!SWIG_IsOK(res3)) {
5398       SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QRPT_svx" "', argument " "3"" of type '" "gsl_permutation const *""'");
5399     }
5400     arg3 = (gsl_permutation *)(argp3);
5401     res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 |  0 );
5402     if (!SWIG_IsOK(res4)) {
5403       SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_QRPT_svx" "', argument " "4"" of type '" "gsl_vector *""'");
5404     }
5405     arg4 = (gsl_vector *)(argp4);
5406     result = (int)gsl_linalg_QRPT_svx((gsl_matrix const *)arg1,(gsl_vector const *)arg2,(struct gsl_permutation_struct const *)arg3,arg4);
5407     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5408 
5409 
5410 
5411 
5412     XSRETURN(argvi);
5413   fail:
5414 
5415 
5416 
5417 
5418     SWIG_croak_null();
5419   }
5420 }
5421 
5422 
XS(_wrap_gsl_linalg_QRPT_QRsolve)5423 XS(_wrap_gsl_linalg_QRPT_QRsolve) {
5424   {
5425     gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5426     gsl_matrix *arg2 = (gsl_matrix *) 0 ;
5427     gsl_permutation *arg3 = (gsl_permutation *) 0 ;
5428     gsl_vector *arg4 = (gsl_vector *) 0 ;
5429     gsl_vector *arg5 = (gsl_vector *) 0 ;
5430     void *argp1 = 0 ;
5431     int res1 = 0 ;
5432     void *argp2 = 0 ;
5433     int res2 = 0 ;
5434     void *argp3 = 0 ;
5435     int res3 = 0 ;
5436     void *argp4 = 0 ;
5437     int res4 = 0 ;
5438     void *argp5 = 0 ;
5439     int res5 = 0 ;
5440     int argvi = 0;
5441     int result;
5442     dXSARGS;
5443 
5444     if ((items < 5) || (items > 5)) {
5445       SWIG_croak("Usage: gsl_linalg_QRPT_QRsolve(Q,R,p,b,x);");
5446     }
5447     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 |  0 );
5448     if (!SWIG_IsOK(res1)) {
5449       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QRPT_QRsolve" "', argument " "1"" of type '" "gsl_matrix const *""'");
5450     }
5451     arg1 = (gsl_matrix *)(argp1);
5452     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 |  0 );
5453     if (!SWIG_IsOK(res2)) {
5454       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QRPT_QRsolve" "', argument " "2"" of type '" "gsl_matrix const *""'");
5455     }
5456     arg2 = (gsl_matrix *)(argp2);
5457     res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_permutation_struct, 0 |  0 );
5458     if (!SWIG_IsOK(res3)) {
5459       SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QRPT_QRsolve" "', argument " "3"" of type '" "gsl_permutation const *""'");
5460     }
5461     arg3 = (gsl_permutation *)(argp3);
5462     res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 |  0 );
5463     if (!SWIG_IsOK(res4)) {
5464       SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_QRPT_QRsolve" "', argument " "4"" of type '" "gsl_vector const *""'");
5465     }
5466     arg4 = (gsl_vector *)(argp4);
5467     res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 |  0 );
5468     if (!SWIG_IsOK(res5)) {
5469       SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_QRPT_QRsolve" "', argument " "5"" of type '" "gsl_vector *""'");
5470     }
5471     arg5 = (gsl_vector *)(argp5);
5472     result = (int)gsl_linalg_QRPT_QRsolve((gsl_matrix const *)arg1,(gsl_matrix const *)arg2,(struct gsl_permutation_struct const *)arg3,(gsl_vector const *)arg4,arg5);
5473     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5474 
5475 
5476 
5477 
5478 
5479     XSRETURN(argvi);
5480   fail:
5481 
5482 
5483 
5484 
5485 
5486     SWIG_croak_null();
5487   }
5488 }
5489 
5490 
XS(_wrap_gsl_linalg_QRPT_Rsolve)5491 XS(_wrap_gsl_linalg_QRPT_Rsolve) {
5492   {
5493     gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5494     gsl_permutation *arg2 = (gsl_permutation *) 0 ;
5495     gsl_vector *arg3 = (gsl_vector *) 0 ;
5496     gsl_vector *arg4 = (gsl_vector *) 0 ;
5497     void *argp1 = 0 ;
5498     int res1 = 0 ;
5499     void *argp2 = 0 ;
5500     int res2 = 0 ;
5501     void *argp3 = 0 ;
5502     int res3 = 0 ;
5503     void *argp4 = 0 ;
5504     int res4 = 0 ;
5505     int argvi = 0;
5506     int result;
5507     dXSARGS;
5508 
5509     if ((items < 4) || (items > 4)) {
5510       SWIG_croak("Usage: gsl_linalg_QRPT_Rsolve(QR,p,b,x);");
5511     }
5512     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 |  0 );
5513     if (!SWIG_IsOK(res1)) {
5514       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QRPT_Rsolve" "', argument " "1"" of type '" "gsl_matrix const *""'");
5515     }
5516     arg1 = (gsl_matrix *)(argp1);
5517     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 |  0 );
5518     if (!SWIG_IsOK(res2)) {
5519       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QRPT_Rsolve" "', argument " "2"" of type '" "gsl_permutation const *""'");
5520     }
5521     arg2 = (gsl_permutation *)(argp2);
5522     res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 |  0 );
5523     if (!SWIG_IsOK(res3)) {
5524       SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QRPT_Rsolve" "', argument " "3"" of type '" "gsl_vector const *""'");
5525     }
5526     arg3 = (gsl_vector *)(argp3);
5527     res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 |  0 );
5528     if (!SWIG_IsOK(res4)) {
5529       SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_QRPT_Rsolve" "', argument " "4"" of type '" "gsl_vector *""'");
5530     }
5531     arg4 = (gsl_vector *)(argp4);
5532     result = (int)gsl_linalg_QRPT_Rsolve((gsl_matrix const *)arg1,(struct gsl_permutation_struct const *)arg2,(gsl_vector const *)arg3,arg4);
5533     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5534 
5535 
5536 
5537 
5538     XSRETURN(argvi);
5539   fail:
5540 
5541 
5542 
5543 
5544     SWIG_croak_null();
5545   }
5546 }
5547 
5548 
XS(_wrap_gsl_linalg_QRPT_Rsvx)5549 XS(_wrap_gsl_linalg_QRPT_Rsvx) {
5550   {
5551     gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5552     gsl_permutation *arg2 = (gsl_permutation *) 0 ;
5553     gsl_vector *arg3 = (gsl_vector *) 0 ;
5554     void *argp1 = 0 ;
5555     int res1 = 0 ;
5556     void *argp2 = 0 ;
5557     int res2 = 0 ;
5558     void *argp3 = 0 ;
5559     int res3 = 0 ;
5560     int argvi = 0;
5561     int result;
5562     dXSARGS;
5563 
5564     if ((items < 3) || (items > 3)) {
5565       SWIG_croak("Usage: gsl_linalg_QRPT_Rsvx(QR,p,x);");
5566     }
5567     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 |  0 );
5568     if (!SWIG_IsOK(res1)) {
5569       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QRPT_Rsvx" "', argument " "1"" of type '" "gsl_matrix const *""'");
5570     }
5571     arg1 = (gsl_matrix *)(argp1);
5572     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 |  0 );
5573     if (!SWIG_IsOK(res2)) {
5574       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QRPT_Rsvx" "', argument " "2"" of type '" "gsl_permutation const *""'");
5575     }
5576     arg2 = (gsl_permutation *)(argp2);
5577     res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 |  0 );
5578     if (!SWIG_IsOK(res3)) {
5579       SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QRPT_Rsvx" "', argument " "3"" of type '" "gsl_vector *""'");
5580     }
5581     arg3 = (gsl_vector *)(argp3);
5582     result = (int)gsl_linalg_QRPT_Rsvx((gsl_matrix const *)arg1,(struct gsl_permutation_struct const *)arg2,arg3);
5583     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5584 
5585 
5586 
5587     XSRETURN(argvi);
5588   fail:
5589 
5590 
5591 
5592     SWIG_croak_null();
5593   }
5594 }
5595 
5596 
XS(_wrap_gsl_linalg_QRPT_update)5597 XS(_wrap_gsl_linalg_QRPT_update) {
5598   {
5599     gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5600     gsl_matrix *arg2 = (gsl_matrix *) 0 ;
5601     gsl_permutation *arg3 = (gsl_permutation *) 0 ;
5602     gsl_vector *arg4 = (gsl_vector *) 0 ;
5603     gsl_vector *arg5 = (gsl_vector *) 0 ;
5604     void *argp1 = 0 ;
5605     int res1 = 0 ;
5606     void *argp2 = 0 ;
5607     int res2 = 0 ;
5608     void *argp3 = 0 ;
5609     int res3 = 0 ;
5610     void *argp4 = 0 ;
5611     int res4 = 0 ;
5612     void *argp5 = 0 ;
5613     int res5 = 0 ;
5614     int argvi = 0;
5615     int result;
5616     dXSARGS;
5617 
5618     if ((items < 5) || (items > 5)) {
5619       SWIG_croak("Usage: gsl_linalg_QRPT_update(Q,R,p,u,v);");
5620     }
5621     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 |  0 );
5622     if (!SWIG_IsOK(res1)) {
5623       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QRPT_update" "', argument " "1"" of type '" "gsl_matrix *""'");
5624     }
5625     arg1 = (gsl_matrix *)(argp1);
5626     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 |  0 );
5627     if (!SWIG_IsOK(res2)) {
5628       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QRPT_update" "', argument " "2"" of type '" "gsl_matrix *""'");
5629     }
5630     arg2 = (gsl_matrix *)(argp2);
5631     res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_permutation_struct, 0 |  0 );
5632     if (!SWIG_IsOK(res3)) {
5633       SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QRPT_update" "', argument " "3"" of type '" "gsl_permutation const *""'");
5634     }
5635     arg3 = (gsl_permutation *)(argp3);
5636     res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 |  0 );
5637     if (!SWIG_IsOK(res4)) {
5638       SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_QRPT_update" "', argument " "4"" of type '" "gsl_vector *""'");
5639     }
5640     arg4 = (gsl_vector *)(argp4);
5641     res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 |  0 );
5642     if (!SWIG_IsOK(res5)) {
5643       SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_QRPT_update" "', argument " "5"" of type '" "gsl_vector const *""'");
5644     }
5645     arg5 = (gsl_vector *)(argp5);
5646     result = (int)gsl_linalg_QRPT_update(arg1,arg2,(struct gsl_permutation_struct const *)arg3,arg4,(gsl_vector const *)arg5);
5647     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5648 
5649 
5650 
5651 
5652 
5653     XSRETURN(argvi);
5654   fail:
5655 
5656 
5657 
5658 
5659 
5660     SWIG_croak_null();
5661   }
5662 }
5663 
5664 
XS(_wrap_gsl_linalg_LQ_decomp)5665 XS(_wrap_gsl_linalg_LQ_decomp) {
5666   {
5667     gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5668     gsl_vector *arg2 = (gsl_vector *) 0 ;
5669     void *argp1 = 0 ;
5670     int res1 = 0 ;
5671     void *argp2 = 0 ;
5672     int res2 = 0 ;
5673     int argvi = 0;
5674     int result;
5675     dXSARGS;
5676 
5677     if ((items < 2) || (items > 2)) {
5678       SWIG_croak("Usage: gsl_linalg_LQ_decomp(A,tau);");
5679     }
5680     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 |  0 );
5681     if (!SWIG_IsOK(res1)) {
5682       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LQ_decomp" "', argument " "1"" of type '" "gsl_matrix *""'");
5683     }
5684     arg1 = (gsl_matrix *)(argp1);
5685     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 |  0 );
5686     if (!SWIG_IsOK(res2)) {
5687       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_LQ_decomp" "', argument " "2"" of type '" "gsl_vector *""'");
5688     }
5689     arg2 = (gsl_vector *)(argp2);
5690     result = (int)gsl_linalg_LQ_decomp(arg1,arg2);
5691     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5692 
5693 
5694     XSRETURN(argvi);
5695   fail:
5696 
5697 
5698     SWIG_croak_null();
5699   }
5700 }
5701 
5702 
XS(_wrap_gsl_linalg_LQ_solve_T)5703 XS(_wrap_gsl_linalg_LQ_solve_T) {
5704   {
5705     gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5706     gsl_vector *arg2 = (gsl_vector *) 0 ;
5707     gsl_vector *arg3 = (gsl_vector *) 0 ;
5708     gsl_vector *arg4 = (gsl_vector *) 0 ;
5709     void *argp1 = 0 ;
5710     int res1 = 0 ;
5711     void *argp2 = 0 ;
5712     int res2 = 0 ;
5713     void *argp3 = 0 ;
5714     int res3 = 0 ;
5715     void *argp4 = 0 ;
5716     int res4 = 0 ;
5717     int argvi = 0;
5718     int result;
5719     dXSARGS;
5720 
5721     if ((items < 4) || (items > 4)) {
5722       SWIG_croak("Usage: gsl_linalg_LQ_solve_T(LQ,tau,b,x);");
5723     }
5724     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 |  0 );
5725     if (!SWIG_IsOK(res1)) {
5726       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LQ_solve_T" "', argument " "1"" of type '" "gsl_matrix const *""'");
5727     }
5728     arg1 = (gsl_matrix *)(argp1);
5729     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 |  0 );
5730     if (!SWIG_IsOK(res2)) {
5731       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_LQ_solve_T" "', argument " "2"" of type '" "gsl_vector const *""'");
5732     }
5733     arg2 = (gsl_vector *)(argp2);
5734     res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 |  0 );
5735     if (!SWIG_IsOK(res3)) {
5736       SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_LQ_solve_T" "', argument " "3"" of type '" "gsl_vector const *""'");
5737     }
5738     arg3 = (gsl_vector *)(argp3);
5739     res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 |  0 );
5740     if (!SWIG_IsOK(res4)) {
5741       SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_LQ_solve_T" "', argument " "4"" of type '" "gsl_vector *""'");
5742     }
5743     arg4 = (gsl_vector *)(argp4);
5744     result = (int)gsl_linalg_LQ_solve_T((gsl_matrix const *)arg1,(gsl_vector const *)arg2,(gsl_vector const *)arg3,arg4);
5745     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5746 
5747 
5748 
5749 
5750     XSRETURN(argvi);
5751   fail:
5752 
5753 
5754 
5755 
5756     SWIG_croak_null();
5757   }
5758 }
5759 
5760 
XS(_wrap_gsl_linalg_LQ_svx_T)5761 XS(_wrap_gsl_linalg_LQ_svx_T) {
5762   {
5763     gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5764     gsl_vector *arg2 = (gsl_vector *) 0 ;
5765     gsl_vector *arg3 = (gsl_vector *) 0 ;
5766     void *argp1 = 0 ;
5767     int res1 = 0 ;
5768     void *argp2 = 0 ;
5769     int res2 = 0 ;
5770     void *argp3 = 0 ;
5771     int res3 = 0 ;
5772     int argvi = 0;
5773     int result;
5774     dXSARGS;
5775 
5776     if ((items < 3) || (items > 3)) {
5777       SWIG_croak("Usage: gsl_linalg_LQ_svx_T(LQ,tau,x);");
5778     }
5779     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 |  0 );
5780     if (!SWIG_IsOK(res1)) {
5781       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LQ_svx_T" "', argument " "1"" of type '" "gsl_matrix const *""'");
5782     }
5783     arg1 = (gsl_matrix *)(argp1);
5784     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 |  0 );
5785     if (!SWIG_IsOK(res2)) {
5786       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_LQ_svx_T" "', argument " "2"" of type '" "gsl_vector const *""'");
5787     }
5788     arg2 = (gsl_vector *)(argp2);
5789     res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 |  0 );
5790     if (!SWIG_IsOK(res3)) {
5791       SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_LQ_svx_T" "', argument " "3"" of type '" "gsl_vector *""'");
5792     }
5793     arg3 = (gsl_vector *)(argp3);
5794     result = (int)gsl_linalg_LQ_svx_T((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3);
5795     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5796 
5797 
5798 
5799     XSRETURN(argvi);
5800   fail:
5801 
5802 
5803 
5804     SWIG_croak_null();
5805   }
5806 }
5807 
5808 
XS(_wrap_gsl_linalg_LQ_lssolve_T)5809 XS(_wrap_gsl_linalg_LQ_lssolve_T) {
5810   {
5811     gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5812     gsl_vector *arg2 = (gsl_vector *) 0 ;
5813     gsl_vector *arg3 = (gsl_vector *) 0 ;
5814     gsl_vector *arg4 = (gsl_vector *) 0 ;
5815     gsl_vector *arg5 = (gsl_vector *) 0 ;
5816     void *argp1 = 0 ;
5817     int res1 = 0 ;
5818     void *argp2 = 0 ;
5819     int res2 = 0 ;
5820     void *argp3 = 0 ;
5821     int res3 = 0 ;
5822     void *argp4 = 0 ;
5823     int res4 = 0 ;
5824     void *argp5 = 0 ;
5825     int res5 = 0 ;
5826     int argvi = 0;
5827     int result;
5828     dXSARGS;
5829 
5830     if ((items < 5) || (items > 5)) {
5831       SWIG_croak("Usage: gsl_linalg_LQ_lssolve_T(LQ,tau,b,x,residual);");
5832     }
5833     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 |  0 );
5834     if (!SWIG_IsOK(res1)) {
5835       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LQ_lssolve_T" "', argument " "1"" of type '" "gsl_matrix const *""'");
5836     }
5837     arg1 = (gsl_matrix *)(argp1);
5838     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 |  0 );
5839     if (!SWIG_IsOK(res2)) {
5840       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_LQ_lssolve_T" "', argument " "2"" of type '" "gsl_vector const *""'");
5841     }
5842     arg2 = (gsl_vector *)(argp2);
5843     res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 |  0 );
5844     if (!SWIG_IsOK(res3)) {
5845       SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_LQ_lssolve_T" "', argument " "3"" of type '" "gsl_vector const *""'");
5846     }
5847     arg3 = (gsl_vector *)(argp3);
5848     res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 |  0 );
5849     if (!SWIG_IsOK(res4)) {
5850       SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_LQ_lssolve_T" "', argument " "4"" of type '" "gsl_vector *""'");
5851     }
5852     arg4 = (gsl_vector *)(argp4);
5853     res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 |  0 );
5854     if (!SWIG_IsOK(res5)) {
5855       SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_LQ_lssolve_T" "', argument " "5"" of type '" "gsl_vector *""'");
5856     }
5857     arg5 = (gsl_vector *)(argp5);
5858     result = (int)gsl_linalg_LQ_lssolve_T((gsl_matrix const *)arg1,(gsl_vector const *)arg2,(gsl_vector const *)arg3,arg4,arg5);
5859     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5860 
5861 
5862 
5863 
5864 
5865     XSRETURN(argvi);
5866   fail:
5867 
5868 
5869 
5870 
5871 
5872     SWIG_croak_null();
5873   }
5874 }
5875 
5876 
XS(_wrap_gsl_linalg_LQ_Lsolve_T)5877 XS(_wrap_gsl_linalg_LQ_Lsolve_T) {
5878   {
5879     gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5880     gsl_vector *arg2 = (gsl_vector *) 0 ;
5881     gsl_vector *arg3 = (gsl_vector *) 0 ;
5882     void *argp1 = 0 ;
5883     int res1 = 0 ;
5884     void *argp2 = 0 ;
5885     int res2 = 0 ;
5886     void *argp3 = 0 ;
5887     int res3 = 0 ;
5888     int argvi = 0;
5889     int result;
5890     dXSARGS;
5891 
5892     if ((items < 3) || (items > 3)) {
5893       SWIG_croak("Usage: gsl_linalg_LQ_Lsolve_T(LQ,b,x);");
5894     }
5895     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 |  0 );
5896     if (!SWIG_IsOK(res1)) {
5897       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LQ_Lsolve_T" "', argument " "1"" of type '" "gsl_matrix const *""'");
5898     }
5899     arg1 = (gsl_matrix *)(argp1);
5900     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 |  0 );
5901     if (!SWIG_IsOK(res2)) {
5902       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_LQ_Lsolve_T" "', argument " "2"" of type '" "gsl_vector const *""'");
5903     }
5904     arg2 = (gsl_vector *)(argp2);
5905     res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 |  0 );
5906     if (!SWIG_IsOK(res3)) {
5907       SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_LQ_Lsolve_T" "', argument " "3"" of type '" "gsl_vector *""'");
5908     }
5909     arg3 = (gsl_vector *)(argp3);
5910     result = (int)gsl_linalg_LQ_Lsolve_T((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3);
5911     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5912 
5913 
5914 
5915     XSRETURN(argvi);
5916   fail:
5917 
5918 
5919 
5920     SWIG_croak_null();
5921   }
5922 }
5923 
5924 
XS(_wrap_gsl_linalg_LQ_Lsvx_T)5925 XS(_wrap_gsl_linalg_LQ_Lsvx_T) {
5926   {
5927     gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5928     gsl_vector *arg2 = (gsl_vector *) 0 ;
5929     void *argp1 = 0 ;
5930     int res1 = 0 ;
5931     void *argp2 = 0 ;
5932     int res2 = 0 ;
5933     int argvi = 0;
5934     int result;
5935     dXSARGS;
5936 
5937     if ((items < 2) || (items > 2)) {
5938       SWIG_croak("Usage: gsl_linalg_LQ_Lsvx_T(LQ,x);");
5939     }
5940     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 |  0 );
5941     if (!SWIG_IsOK(res1)) {
5942       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LQ_Lsvx_T" "', argument " "1"" of type '" "gsl_matrix const *""'");
5943     }
5944     arg1 = (gsl_matrix *)(argp1);
5945     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 |  0 );
5946     if (!SWIG_IsOK(res2)) {
5947       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_LQ_Lsvx_T" "', argument " "2"" of type '" "gsl_vector *""'");
5948     }
5949     arg2 = (gsl_vector *)(argp2);
5950     result = (int)gsl_linalg_LQ_Lsvx_T((gsl_matrix const *)arg1,arg2);
5951     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5952 
5953 
5954     XSRETURN(argvi);
5955   fail:
5956 
5957 
5958     SWIG_croak_null();
5959   }
5960 }
5961 
5962 
XS(_wrap_gsl_linalg_L_solve_T)5963 XS(_wrap_gsl_linalg_L_solve_T) {
5964   {
5965     gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5966     gsl_vector *arg2 = (gsl_vector *) 0 ;
5967     gsl_vector *arg3 = (gsl_vector *) 0 ;
5968     void *argp1 = 0 ;
5969     int res1 = 0 ;
5970     void *argp2 = 0 ;
5971     int res2 = 0 ;
5972     void *argp3 = 0 ;
5973     int res3 = 0 ;
5974     int argvi = 0;
5975     int result;
5976     dXSARGS;
5977 
5978     if ((items < 3) || (items > 3)) {
5979       SWIG_croak("Usage: gsl_linalg_L_solve_T(L,b,x);");
5980     }
5981     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 |  0 );
5982     if (!SWIG_IsOK(res1)) {
5983       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_L_solve_T" "', argument " "1"" of type '" "gsl_matrix const *""'");
5984     }
5985     arg1 = (gsl_matrix *)(argp1);
5986     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 |  0 );
5987     if (!SWIG_IsOK(res2)) {
5988       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_L_solve_T" "', argument " "2"" of type '" "gsl_vector const *""'");
5989     }
5990     arg2 = (gsl_vector *)(argp2);
5991     res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 |  0 );
5992     if (!SWIG_IsOK(res3)) {
5993       SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_L_solve_T" "', argument " "3"" of type '" "gsl_vector *""'");
5994     }
5995     arg3 = (gsl_vector *)(argp3);
5996     result = (int)gsl_linalg_L_solve_T((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3);
5997     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5998 
5999 
6000 
6001     XSRETURN(argvi);
6002   fail:
6003 
6004 
6005 
6006     SWIG_croak_null();
6007   }
6008 }
6009 
6010 
XS(_wrap_gsl_linalg_LQ_vecQ)6011 XS(_wrap_gsl_linalg_LQ_vecQ) {
6012   {
6013     gsl_matrix *arg1 = (gsl_matrix *) 0 ;
6014     gsl_vector *arg2 = (gsl_vector *) 0 ;
6015     gsl_vector *arg3 = (gsl_vector *) 0 ;
6016     void *argp1 = 0 ;
6017     int res1 = 0 ;
6018     void *argp2 = 0 ;
6019     int res2 = 0 ;
6020     void *argp3 = 0 ;
6021     int res3 = 0 ;
6022     int argvi = 0;
6023     int result;
6024     dXSARGS;
6025 
6026     if ((items < 3) || (items > 3)) {
6027       SWIG_croak("Usage: gsl_linalg_LQ_vecQ(LQ,tau,v);");
6028     }
6029     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 |  0 );
6030     if (!SWIG_IsOK(res1)) {
6031       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LQ_vecQ" "', argument " "1"" of type '" "gsl_matrix const *""'");
6032     }
6033     arg1 = (gsl_matrix *)(argp1);
6034     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 |  0 );
6035     if (!SWIG_IsOK(res2)) {
6036       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_LQ_vecQ" "', argument " "2"" of type '" "gsl_vector const *""'");
6037     }
6038     arg2 = (gsl_vector *)(argp2);
6039     res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 |  0 );
6040     if (!SWIG_IsOK(res3)) {
6041       SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_LQ_vecQ" "', argument " "3"" of type '" "gsl_vector *""'");
6042     }
6043     arg3 = (gsl_vector *)(argp3);
6044     result = (int)gsl_linalg_LQ_vecQ((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3);
6045     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6046 
6047 
6048 
6049     XSRETURN(argvi);
6050   fail:
6051 
6052 
6053 
6054     SWIG_croak_null();
6055   }
6056 }
6057 
6058 
XS(_wrap_gsl_linalg_LQ_vecQT)6059 XS(_wrap_gsl_linalg_LQ_vecQT) {
6060   {
6061     gsl_matrix *arg1 = (gsl_matrix *) 0 ;
6062     gsl_vector *arg2 = (gsl_vector *) 0 ;
6063     gsl_vector *arg3 = (gsl_vector *) 0 ;
6064     void *argp1 = 0 ;
6065     int res1 = 0 ;
6066     void *argp2 = 0 ;
6067     int res2 = 0 ;
6068     void *argp3 = 0 ;
6069     int res3 = 0 ;
6070     int argvi = 0;
6071     int result;
6072     dXSARGS;
6073 
6074     if ((items < 3) || (items > 3)) {
6075       SWIG_croak("Usage: gsl_linalg_LQ_vecQT(LQ,tau,v);");
6076     }
6077     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 |  0 );
6078     if (!SWIG_IsOK(res1)) {
6079       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LQ_vecQT" "', argument " "1"" of type '" "gsl_matrix const *""'");
6080     }
6081     arg1 = (gsl_matrix *)(argp1);
6082     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 |  0 );
6083     if (!SWIG_IsOK(res2)) {
6084       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_LQ_vecQT" "', argument " "2"" of type '" "gsl_vector const *""'");
6085     }
6086     arg2 = (gsl_vector *)(argp2);
6087     res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 |  0 );
6088     if (!SWIG_IsOK(res3)) {
6089       SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_LQ_vecQT" "', argument " "3"" of type '" "gsl_vector *""'");
6090     }
6091     arg3 = (gsl_vector *)(argp3);
6092     result = (int)gsl_linalg_LQ_vecQT((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3);
6093     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6094 
6095 
6096 
6097     XSRETURN(argvi);
6098   fail:
6099 
6100 
6101 
6102     SWIG_croak_null();
6103   }
6104 }
6105 
6106 
XS(_wrap_gsl_linalg_LQ_unpack)6107 XS(_wrap_gsl_linalg_LQ_unpack) {
6108   {
6109     gsl_matrix *arg1 = (gsl_matrix *) 0 ;
6110     gsl_vector *arg2 = (gsl_vector *) 0 ;
6111     gsl_matrix *arg3 = (gsl_matrix *) 0 ;
6112     gsl_matrix *arg4 = (gsl_matrix *) 0 ;
6113     void *argp1 = 0 ;
6114     int res1 = 0 ;
6115     void *argp2 = 0 ;
6116     int res2 = 0 ;
6117     void *argp3 = 0 ;
6118     int res3 = 0 ;
6119     void *argp4 = 0 ;
6120     int res4 = 0 ;
6121     int argvi = 0;
6122     int result;
6123     dXSARGS;
6124 
6125     if ((items < 4) || (items > 4)) {
6126       SWIG_croak("Usage: gsl_linalg_LQ_unpack(LQ,tau,Q,L);");
6127     }
6128     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 |  0 );
6129     if (!SWIG_IsOK(res1)) {
6130       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LQ_unpack" "', argument " "1"" of type '" "gsl_matrix const *""'");
6131     }
6132     arg1 = (gsl_matrix *)(argp1);
6133     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 |  0 );
6134     if (!SWIG_IsOK(res2)) {
6135       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_LQ_unpack" "', argument " "2"" of type '" "gsl_vector const *""'");
6136     }
6137     arg2 = (gsl_vector *)(argp2);
6138     res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 |  0 );
6139     if (!SWIG_IsOK(res3)) {
6140       SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_LQ_unpack" "', argument " "3"" of type '" "gsl_matrix *""'");
6141     }
6142     arg3 = (gsl_matrix *)(argp3);
6143     res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_matrix, 0 |  0 );
6144     if (!SWIG_IsOK(res4)) {
6145       SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_LQ_unpack" "', argument " "4"" of type '" "gsl_matrix *""'");
6146     }
6147     arg4 = (gsl_matrix *)(argp4);
6148     result = (int)gsl_linalg_LQ_unpack((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3,arg4);
6149     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6150 
6151 
6152 
6153 
6154     XSRETURN(argvi);
6155   fail:
6156 
6157 
6158 
6159 
6160     SWIG_croak_null();
6161   }
6162 }
6163 
6164 
XS(_wrap_gsl_linalg_LQ_update)6165 XS(_wrap_gsl_linalg_LQ_update) {
6166   {
6167     gsl_matrix *arg1 = (gsl_matrix *) 0 ;
6168     gsl_matrix *arg2 = (gsl_matrix *) 0 ;
6169     gsl_vector *arg3 = (gsl_vector *) 0 ;
6170     gsl_vector *arg4 = (gsl_vector *) 0 ;
6171     void *argp1 = 0 ;
6172     int res1 = 0 ;
6173     void *argp2 = 0 ;
6174     int res2 = 0 ;
6175     void *argp3 = 0 ;
6176     int res3 = 0 ;
6177     void *argp4 = 0 ;
6178     int res4 = 0 ;
6179     int argvi = 0;
6180     int result;
6181     dXSARGS;
6182 
6183     if ((items < 4) || (items > 4)) {
6184       SWIG_croak("Usage: gsl_linalg_LQ_update(Q,R,v,w);");
6185     }
6186     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 |  0 );
6187     if (!SWIG_IsOK(res1)) {
6188       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LQ_update" "', argument " "1"" of type '" "gsl_matrix *""'");
6189     }
6190     arg1 = (gsl_matrix *)(argp1);
6191     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 |  0 );
6192     if (!SWIG_IsOK(res2)) {
6193       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_LQ_update" "', argument " "2"" of type '" "gsl_matrix *""'");
6194     }
6195     arg2 = (gsl_matrix *)(argp2);
6196     res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 |  0 );
6197     if (!SWIG_IsOK(res3)) {
6198       SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_LQ_update" "', argument " "3"" of type '" "gsl_vector const *""'");
6199     }
6200     arg3 = (gsl_vector *)(argp3);
6201     res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 |  0 );
6202     if (!SWIG_IsOK(res4)) {
6203       SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_LQ_update" "', argument " "4"" of type '" "gsl_vector *""'");
6204     }
6205     arg4 = (gsl_vector *)(argp4);
6206     result = (int)gsl_linalg_LQ_update(arg1,arg2,(gsl_vector const *)arg3,arg4);
6207     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6208 
6209 
6210 
6211 
6212     XSRETURN(argvi);
6213   fail:
6214 
6215 
6216 
6217 
6218     SWIG_croak_null();
6219   }
6220 }
6221 
6222 
XS(_wrap_gsl_linalg_LQ_LQsolve)6223 XS(_wrap_gsl_linalg_LQ_LQsolve) {
6224   {
6225     gsl_matrix *arg1 = (gsl_matrix *) 0 ;
6226     gsl_matrix *arg2 = (gsl_matrix *) 0 ;
6227     gsl_vector *arg3 = (gsl_vector *) 0 ;
6228     gsl_vector *arg4 = (gsl_vector *) 0 ;
6229     void *argp1 = 0 ;
6230     int res1 = 0 ;
6231     void *argp2 = 0 ;
6232     int res2 = 0 ;
6233     void *argp3 = 0 ;
6234     int res3 = 0 ;
6235     void *argp4 = 0 ;
6236     int res4 = 0 ;
6237     int argvi = 0;
6238     int result;
6239     dXSARGS;
6240 
6241     if ((items < 4) || (items > 4)) {
6242       SWIG_croak("Usage: gsl_linalg_LQ_LQsolve(Q,L,b,x);");
6243     }
6244     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 |  0 );
6245     if (!SWIG_IsOK(res1)) {
6246       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LQ_LQsolve" "', argument " "1"" of type '" "gsl_matrix *""'");
6247     }
6248     arg1 = (gsl_matrix *)(argp1);
6249     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 |  0 );
6250     if (!SWIG_IsOK(res2)) {
6251       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_LQ_LQsolve" "', argument " "2"" of type '" "gsl_matrix *""'");
6252     }
6253     arg2 = (gsl_matrix *)(argp2);
6254     res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 |  0 );
6255     if (!SWIG_IsOK(res3)) {
6256       SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_LQ_LQsolve" "', argument " "3"" of type '" "gsl_vector const *""'");
6257     }
6258     arg3 = (gsl_vector *)(argp3);
6259     res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 |  0 );
6260     if (!SWIG_IsOK(res4)) {
6261       SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_LQ_LQsolve" "', argument " "4"" of type '" "gsl_vector *""'");
6262     }
6263     arg4 = (gsl_vector *)(argp4);
6264     result = (int)gsl_linalg_LQ_LQsolve(arg1,arg2,(gsl_vector const *)arg3,arg4);
6265     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6266 
6267 
6268 
6269 
6270     XSRETURN(argvi);
6271   fail:
6272 
6273 
6274 
6275 
6276     SWIG_croak_null();
6277   }
6278 }
6279 
6280 
XS(_wrap_gsl_linalg_PTLQ_decomp)6281 XS(_wrap_gsl_linalg_PTLQ_decomp) {
6282   {
6283     gsl_matrix *arg1 = (gsl_matrix *) 0 ;
6284     gsl_vector *arg2 = (gsl_vector *) 0 ;
6285     gsl_permutation *arg3 = (gsl_permutation *) 0 ;
6286     int *arg4 = (int *) 0 ;
6287     gsl_vector *arg5 = (gsl_vector *) 0 ;
6288     void *argp1 = 0 ;
6289     int res1 = 0 ;
6290     void *argp2 = 0 ;
6291     int res2 = 0 ;
6292     void *argp3 = 0 ;
6293     int res3 = 0 ;
6294     int temp4 ;
6295     int res4 = SWIG_TMPOBJ ;
6296     void *argp5 = 0 ;
6297     int res5 = 0 ;
6298     int argvi = 0;
6299     int result;
6300     dXSARGS;
6301 
6302     arg4 = &temp4;
6303     if ((items < 4) || (items > 4)) {
6304       SWIG_croak("Usage: gsl_linalg_PTLQ_decomp(A,tau,p,norm);");
6305     }
6306     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 |  0 );
6307     if (!SWIG_IsOK(res1)) {
6308       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_PTLQ_decomp" "', argument " "1"" of type '" "gsl_matrix *""'");
6309     }
6310     arg1 = (gsl_matrix *)(argp1);
6311     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 |  0 );
6312     if (!SWIG_IsOK(res2)) {
6313       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_PTLQ_decomp" "', argument " "2"" of type '" "gsl_vector *""'");
6314     }
6315     arg2 = (gsl_vector *)(argp2);
6316     res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_permutation_struct, 0 |  0 );
6317     if (!SWIG_IsOK(res3)) {
6318       SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_PTLQ_decomp" "', argument " "3"" of type '" "gsl_permutation *""'");
6319     }
6320     arg3 = (gsl_permutation *)(argp3);
6321     res5 = SWIG_ConvertPtr(ST(3), &argp5,SWIGTYPE_p_gsl_vector, 0 |  0 );
6322     if (!SWIG_IsOK(res5)) {
6323       SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_PTLQ_decomp" "', argument " "5"" of type '" "gsl_vector *""'");
6324     }
6325     arg5 = (gsl_vector *)(argp5);
6326     result = (int)gsl_linalg_PTLQ_decomp(arg1,arg2,arg3,arg4,arg5);
6327     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6328     if (SWIG_IsTmpObj(res4)) {
6329       if (argvi >= items) EXTEND(sp, argvi+1);  ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((*arg4)); argvi++  ;
6330     } else {
6331       int new_flags = SWIG_IsNewObj(res4) ? (SWIG_POINTER_OWN | 0) : 0;
6332       if (argvi >= items) EXTEND(sp, argvi+1);  ST(argvi) = SWIG_NewPointerObj((void*)(arg4), SWIGTYPE_p_int, new_flags); argvi++  ;
6333     }
6334 
6335 
6336 
6337 
6338 
6339     XSRETURN(argvi);
6340   fail:
6341 
6342 
6343 
6344 
6345 
6346     SWIG_croak_null();
6347   }
6348 }
6349 
6350 
XS(_wrap_gsl_linalg_PTLQ_decomp2)6351 XS(_wrap_gsl_linalg_PTLQ_decomp2) {
6352   {
6353     gsl_matrix *arg1 = (gsl_matrix *) 0 ;
6354     gsl_matrix *arg2 = (gsl_matrix *) 0 ;
6355     gsl_matrix *arg3 = (gsl_matrix *) 0 ;
6356     gsl_vector *arg4 = (gsl_vector *) 0 ;
6357     gsl_permutation *arg5 = (gsl_permutation *) 0 ;
6358     int *arg6 = (int *) 0 ;
6359     gsl_vector *arg7 = (gsl_vector *) 0 ;
6360     void *argp1 = 0 ;
6361     int res1 = 0 ;
6362     void *argp2 = 0 ;
6363     int res2 = 0 ;
6364     void *argp3 = 0 ;
6365     int res3 = 0 ;
6366     void *argp4 = 0 ;
6367     int res4 = 0 ;
6368     void *argp5 = 0 ;
6369     int res5 = 0 ;
6370     int temp6 ;
6371     int res6 = SWIG_TMPOBJ ;
6372     void *argp7 = 0 ;
6373     int res7 = 0 ;
6374     int argvi = 0;
6375     int result;
6376     dXSARGS;
6377 
6378     arg6 = &temp6;
6379     if ((items < 6) || (items > 6)) {
6380       SWIG_croak("Usage: gsl_linalg_PTLQ_decomp2(A,q,r,tau,p,norm);");
6381     }
6382     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 |  0 );
6383     if (!SWIG_IsOK(res1)) {
6384       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_PTLQ_decomp2" "', argument " "1"" of type '" "gsl_matrix const *""'");
6385     }
6386     arg1 = (gsl_matrix *)(argp1);
6387     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 |  0 );
6388     if (!SWIG_IsOK(res2)) {
6389       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_PTLQ_decomp2" "', argument " "2"" of type '" "gsl_matrix *""'");
6390     }
6391     arg2 = (gsl_matrix *)(argp2);
6392     res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 |  0 );
6393     if (!SWIG_IsOK(res3)) {
6394       SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_PTLQ_decomp2" "', argument " "3"" of type '" "gsl_matrix *""'");
6395     }
6396     arg3 = (gsl_matrix *)(argp3);
6397     res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 |  0 );
6398     if (!SWIG_IsOK(res4)) {
6399       SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_PTLQ_decomp2" "', argument " "4"" of type '" "gsl_vector *""'");
6400     }
6401     arg4 = (gsl_vector *)(argp4);
6402     res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_permutation_struct, 0 |  0 );
6403     if (!SWIG_IsOK(res5)) {
6404       SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_PTLQ_decomp2" "', argument " "5"" of type '" "gsl_permutation *""'");
6405     }
6406     arg5 = (gsl_permutation *)(argp5);
6407     res7 = SWIG_ConvertPtr(ST(5), &argp7,SWIGTYPE_p_gsl_vector, 0 |  0 );
6408     if (!SWIG_IsOK(res7)) {
6409       SWIG_exception_fail(SWIG_ArgError(res7), "in method '" "gsl_linalg_PTLQ_decomp2" "', argument " "7"" of type '" "gsl_vector *""'");
6410     }
6411     arg7 = (gsl_vector *)(argp7);
6412     result = (int)gsl_linalg_PTLQ_decomp2((gsl_matrix const *)arg1,arg2,arg3,arg4,arg5,arg6,arg7);
6413     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6414     if (SWIG_IsTmpObj(res6)) {
6415       if (argvi >= items) EXTEND(sp, argvi+1);  ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((*arg6)); argvi++  ;
6416     } else {
6417       int new_flags = SWIG_IsNewObj(res6) ? (SWIG_POINTER_OWN | 0) : 0;
6418       if (argvi >= items) EXTEND(sp, argvi+1);  ST(argvi) = SWIG_NewPointerObj((void*)(arg6), SWIGTYPE_p_int, new_flags); argvi++  ;
6419     }
6420 
6421 
6422 
6423 
6424 
6425 
6426 
6427     XSRETURN(argvi);
6428   fail:
6429 
6430 
6431 
6432 
6433 
6434 
6435 
6436     SWIG_croak_null();
6437   }
6438 }
6439 
6440 
XS(_wrap_gsl_linalg_PTLQ_solve_T)6441 XS(_wrap_gsl_linalg_PTLQ_solve_T) {
6442   {
6443     gsl_matrix *arg1 = (gsl_matrix *) 0 ;
6444     gsl_vector *arg2 = (gsl_vector *) 0 ;
6445     gsl_permutation *arg3 = (gsl_permutation *) 0 ;
6446     gsl_vector *arg4 = (gsl_vector *) 0 ;
6447     gsl_vector *arg5 = (gsl_vector *) 0 ;
6448     void *argp1 = 0 ;
6449     int res1 = 0 ;
6450     void *argp2 = 0 ;
6451     int res2 = 0 ;
6452     void *argp3 = 0 ;
6453     int res3 = 0 ;
6454     void *argp4 = 0 ;
6455     int res4 = 0 ;
6456     void *argp5 = 0 ;
6457     int res5 = 0 ;
6458     int argvi = 0;
6459     int result;
6460     dXSARGS;
6461 
6462     if ((items < 5) || (items > 5)) {
6463       SWIG_croak("Usage: gsl_linalg_PTLQ_solve_T(QR,tau,p,b,x);");
6464     }
6465     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 |  0 );
6466     if (!SWIG_IsOK(res1)) {
6467       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_PTLQ_solve_T" "', argument " "1"" of type '" "gsl_matrix const *""'");
6468     }
6469     arg1 = (gsl_matrix *)(argp1);
6470     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 |  0 );
6471     if (!SWIG_IsOK(res2)) {
6472       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_PTLQ_solve_T" "', argument " "2"" of type '" "gsl_vector const *""'");
6473     }
6474     arg2 = (gsl_vector *)(argp2);
6475     res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_permutation_struct, 0 |  0 );
6476     if (!SWIG_IsOK(res3)) {
6477       SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_PTLQ_solve_T" "', argument " "3"" of type '" "gsl_permutation const *""'");
6478     }
6479     arg3 = (gsl_permutation *)(argp3);
6480     res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 |  0 );
6481     if (!SWIG_IsOK(res4)) {
6482       SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_PTLQ_solve_T" "', argument " "4"" of type '" "gsl_vector const *""'");
6483     }
6484     arg4 = (gsl_vector *)(argp4);
6485     res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 |  0 );
6486     if (!SWIG_IsOK(res5)) {
6487       SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_PTLQ_solve_T" "', argument " "5"" of type '" "gsl_vector *""'");
6488     }
6489     arg5 = (gsl_vector *)(argp5);
6490     result = (int)gsl_linalg_PTLQ_solve_T((gsl_matrix const *)arg1,(gsl_vector const *)arg2,(struct gsl_permutation_struct const *)arg3,(gsl_vector const *)arg4,arg5);
6491     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6492 
6493 
6494 
6495 
6496 
6497     XSRETURN(argvi);
6498   fail:
6499 
6500 
6501 
6502 
6503 
6504     SWIG_croak_null();
6505   }
6506 }
6507 
6508 
XS(_wrap_gsl_linalg_PTLQ_svx_T)6509 XS(_wrap_gsl_linalg_PTLQ_svx_T) {
6510   {
6511     gsl_matrix *arg1 = (gsl_matrix *) 0 ;
6512     gsl_vector *arg2 = (gsl_vector *) 0 ;
6513     gsl_permutation *arg3 = (gsl_permutation *) 0 ;
6514     gsl_vector *arg4 = (gsl_vector *) 0 ;
6515     void *argp1 = 0 ;
6516     int res1 = 0 ;
6517     void *argp2 = 0 ;
6518     int res2 = 0 ;
6519     void *argp3 = 0 ;
6520     int res3 = 0 ;
6521     void *argp4 = 0 ;
6522     int res4 = 0 ;
6523     int argvi = 0;
6524     int result;
6525     dXSARGS;
6526 
6527     if ((items < 4) || (items > 4)) {
6528       SWIG_croak("Usage: gsl_linalg_PTLQ_svx_T(LQ,tau,p,x);");
6529     }
6530     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 |  0 );
6531     if (!SWIG_IsOK(res1)) {
6532       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_PTLQ_svx_T" "', argument " "1"" of type '" "gsl_matrix const *""'");
6533     }
6534     arg1 = (gsl_matrix *)(argp1);
6535     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 |  0 );
6536     if (!SWIG_IsOK(res2)) {
6537       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_PTLQ_svx_T" "', argument " "2"" of type '" "gsl_vector const *""'");
6538     }
6539     arg2 = (gsl_vector *)(argp2);
6540     res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_permutation_struct, 0 |  0 );
6541     if (!SWIG_IsOK(res3)) {
6542       SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_PTLQ_svx_T" "', argument " "3"" of type '" "gsl_permutation const *""'");
6543     }
6544     arg3 = (gsl_permutation *)(argp3);
6545     res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 |  0 );
6546     if (!SWIG_IsOK(res4)) {
6547       SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_PTLQ_svx_T" "', argument " "4"" of type '" "gsl_vector *""'");
6548     }
6549     arg4 = (gsl_vector *)(argp4);
6550     result = (int)gsl_linalg_PTLQ_svx_T((gsl_matrix const *)arg1,(gsl_vector const *)arg2,(struct gsl_permutation_struct const *)arg3,arg4);
6551     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6552 
6553 
6554 
6555 
6556     XSRETURN(argvi);
6557   fail:
6558 
6559 
6560 
6561 
6562     SWIG_croak_null();
6563   }
6564 }
6565 
6566 
XS(_wrap_gsl_linalg_PTLQ_LQsolve_T)6567 XS(_wrap_gsl_linalg_PTLQ_LQsolve_T) {
6568   {
6569     gsl_matrix *arg1 = (gsl_matrix *) 0 ;
6570     gsl_matrix *arg2 = (gsl_matrix *) 0 ;
6571     gsl_permutation *arg3 = (gsl_permutation *) 0 ;
6572     gsl_vector *arg4 = (gsl_vector *) 0 ;
6573     gsl_vector *arg5 = (gsl_vector *) 0 ;
6574     void *argp1 = 0 ;
6575     int res1 = 0 ;
6576     void *argp2 = 0 ;
6577     int res2 = 0 ;
6578     void *argp3 = 0 ;
6579     int res3 = 0 ;
6580     void *argp4 = 0 ;
6581     int res4 = 0 ;
6582     void *argp5 = 0 ;
6583     int res5 = 0 ;
6584     int argvi = 0;
6585     int result;
6586     dXSARGS;
6587 
6588     if ((items < 5) || (items > 5)) {
6589       SWIG_croak("Usage: gsl_linalg_PTLQ_LQsolve_T(Q,L,p,b,x);");
6590     }
6591     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 |  0 );
6592     if (!SWIG_IsOK(res1)) {
6593       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_PTLQ_LQsolve_T" "', argument " "1"" of type '" "gsl_matrix const *""'");
6594     }
6595     arg1 = (gsl_matrix *)(argp1);
6596     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 |  0 );
6597     if (!SWIG_IsOK(res2)) {
6598       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_PTLQ_LQsolve_T" "', argument " "2"" of type '" "gsl_matrix const *""'");
6599     }
6600     arg2 = (gsl_matrix *)(argp2);
6601     res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_permutation_struct, 0 |  0 );
6602     if (!SWIG_IsOK(res3)) {
6603       SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_PTLQ_LQsolve_T" "', argument " "3"" of type '" "gsl_permutation const *""'");
6604     }
6605     arg3 = (gsl_permutation *)(argp3);
6606     res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 |  0 );
6607     if (!SWIG_IsOK(res4)) {
6608       SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_PTLQ_LQsolve_T" "', argument " "4"" of type '" "gsl_vector const *""'");
6609     }
6610     arg4 = (gsl_vector *)(argp4);
6611     res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 |  0 );
6612     if (!SWIG_IsOK(res5)) {
6613       SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_PTLQ_LQsolve_T" "', argument " "5"" of type '" "gsl_vector *""'");
6614     }
6615     arg5 = (gsl_vector *)(argp5);
6616     result = (int)gsl_linalg_PTLQ_LQsolve_T((gsl_matrix const *)arg1,(gsl_matrix const *)arg2,(struct gsl_permutation_struct const *)arg3,(gsl_vector const *)arg4,arg5);
6617     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6618 
6619 
6620 
6621 
6622 
6623     XSRETURN(argvi);
6624   fail:
6625 
6626 
6627 
6628 
6629 
6630     SWIG_croak_null();
6631   }
6632 }
6633 
6634 
XS(_wrap_gsl_linalg_PTLQ_Lsolve_T)6635 XS(_wrap_gsl_linalg_PTLQ_Lsolve_T) {
6636   {
6637     gsl_matrix *arg1 = (gsl_matrix *) 0 ;
6638     gsl_permutation *arg2 = (gsl_permutation *) 0 ;
6639     gsl_vector *arg3 = (gsl_vector *) 0 ;
6640     gsl_vector *arg4 = (gsl_vector *) 0 ;
6641     void *argp1 = 0 ;
6642     int res1 = 0 ;
6643     void *argp2 = 0 ;
6644     int res2 = 0 ;
6645     void *argp3 = 0 ;
6646     int res3 = 0 ;
6647     void *argp4 = 0 ;
6648     int res4 = 0 ;
6649     int argvi = 0;
6650     int result;
6651     dXSARGS;
6652 
6653     if ((items < 4) || (items > 4)) {
6654       SWIG_croak("Usage: gsl_linalg_PTLQ_Lsolve_T(LQ,p,b,x);");
6655     }
6656     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 |  0 );
6657     if (!SWIG_IsOK(res1)) {
6658       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_PTLQ_Lsolve_T" "', argument " "1"" of type '" "gsl_matrix const *""'");
6659     }
6660     arg1 = (gsl_matrix *)(argp1);
6661     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 |  0 );
6662     if (!SWIG_IsOK(res2)) {
6663       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_PTLQ_Lsolve_T" "', argument " "2"" of type '" "gsl_permutation const *""'");
6664     }
6665     arg2 = (gsl_permutation *)(argp2);
6666     res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 |  0 );
6667     if (!SWIG_IsOK(res3)) {
6668       SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_PTLQ_Lsolve_T" "', argument " "3"" of type '" "gsl_vector const *""'");
6669     }
6670     arg3 = (gsl_vector *)(argp3);
6671     res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 |  0 );
6672     if (!SWIG_IsOK(res4)) {
6673       SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_PTLQ_Lsolve_T" "', argument " "4"" of type '" "gsl_vector *""'");
6674     }
6675     arg4 = (gsl_vector *)(argp4);
6676     result = (int)gsl_linalg_PTLQ_Lsolve_T((gsl_matrix const *)arg1,(struct gsl_permutation_struct const *)arg2,(gsl_vector const *)arg3,arg4);
6677     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6678 
6679 
6680 
6681 
6682     XSRETURN(argvi);
6683   fail:
6684 
6685 
6686 
6687 
6688     SWIG_croak_null();
6689   }
6690 }
6691 
6692 
XS(_wrap_gsl_linalg_PTLQ_Lsvx_T)6693 XS(_wrap_gsl_linalg_PTLQ_Lsvx_T) {
6694   {
6695     gsl_matrix *arg1 = (gsl_matrix *) 0 ;
6696     gsl_permutation *arg2 = (gsl_permutation *) 0 ;
6697     gsl_vector *arg3 = (gsl_vector *) 0 ;
6698     void *argp1 = 0 ;
6699     int res1 = 0 ;
6700     void *argp2 = 0 ;
6701     int res2 = 0 ;
6702     void *argp3 = 0 ;
6703     int res3 = 0 ;
6704     int argvi = 0;
6705     int result;
6706     dXSARGS;
6707 
6708     if ((items < 3) || (items > 3)) {
6709       SWIG_croak("Usage: gsl_linalg_PTLQ_Lsvx_T(LQ,p,x);");
6710     }
6711     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 |  0 );
6712     if (!SWIG_IsOK(res1)) {
6713       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_PTLQ_Lsvx_T" "', argument " "1"" of type '" "gsl_matrix const *""'");
6714     }
6715     arg1 = (gsl_matrix *)(argp1);
6716     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 |  0 );
6717     if (!SWIG_IsOK(res2)) {
6718       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_PTLQ_Lsvx_T" "', argument " "2"" of type '" "gsl_permutation const *""'");
6719     }
6720     arg2 = (gsl_permutation *)(argp2);
6721     res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 |  0 );
6722     if (!SWIG_IsOK(res3)) {
6723       SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_PTLQ_Lsvx_T" "', argument " "3"" of type '" "gsl_vector *""'");
6724     }
6725     arg3 = (gsl_vector *)(argp3);
6726     result = (int)gsl_linalg_PTLQ_Lsvx_T((gsl_matrix const *)arg1,(struct gsl_permutation_struct const *)arg2,arg3);
6727     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6728 
6729 
6730 
6731     XSRETURN(argvi);
6732   fail:
6733 
6734 
6735 
6736     SWIG_croak_null();
6737   }
6738 }
6739 
6740 
XS(_wrap_gsl_linalg_PTLQ_update)6741 XS(_wrap_gsl_linalg_PTLQ_update) {
6742   {
6743     gsl_matrix *arg1 = (gsl_matrix *) 0 ;
6744     gsl_matrix *arg2 = (gsl_matrix *) 0 ;
6745     gsl_permutation *arg3 = (gsl_permutation *) 0 ;
6746     gsl_vector *arg4 = (gsl_vector *) 0 ;
6747     gsl_vector *arg5 = (gsl_vector *) 0 ;
6748     void *argp1 = 0 ;
6749     int res1 = 0 ;
6750     void *argp2 = 0 ;
6751     int res2 = 0 ;
6752     void *argp3 = 0 ;
6753     int res3 = 0 ;
6754     void *argp4 = 0 ;
6755     int res4 = 0 ;
6756     void *argp5 = 0 ;
6757     int res5 = 0 ;
6758     int argvi = 0;
6759     int result;
6760     dXSARGS;
6761 
6762     if ((items < 5) || (items > 5)) {
6763       SWIG_croak("Usage: gsl_linalg_PTLQ_update(Q,L,p,v,w);");
6764     }
6765     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 |  0 );
6766     if (!SWIG_IsOK(res1)) {
6767       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_PTLQ_update" "', argument " "1"" of type '" "gsl_matrix *""'");
6768     }
6769     arg1 = (gsl_matrix *)(argp1);
6770     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 |  0 );
6771     if (!SWIG_IsOK(res2)) {
6772       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_PTLQ_update" "', argument " "2"" of type '" "gsl_matrix *""'");
6773     }
6774     arg2 = (gsl_matrix *)(argp2);
6775     res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_permutation_struct, 0 |  0 );
6776     if (!SWIG_IsOK(res3)) {
6777       SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_PTLQ_update" "', argument " "3"" of type '" "gsl_permutation const *""'");
6778     }
6779     arg3 = (gsl_permutation *)(argp3);
6780     res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 |  0 );
6781     if (!SWIG_IsOK(res4)) {
6782       SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_PTLQ_update" "', argument " "4"" of type '" "gsl_vector const *""'");
6783     }
6784     arg4 = (gsl_vector *)(argp4);
6785     res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 |  0 );
6786     if (!SWIG_IsOK(res5)) {
6787       SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_PTLQ_update" "', argument " "5"" of type '" "gsl_vector *""'");
6788     }
6789     arg5 = (gsl_vector *)(argp5);
6790     result = (int)gsl_linalg_PTLQ_update(arg1,arg2,(struct gsl_permutation_struct const *)arg3,(gsl_vector const *)arg4,arg5);
6791     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6792 
6793 
6794 
6795 
6796 
6797     XSRETURN(argvi);
6798   fail:
6799 
6800 
6801 
6802 
6803 
6804     SWIG_croak_null();
6805   }
6806 }
6807 
6808 
XS(_wrap_gsl_linalg_cholesky_decomp)6809 XS(_wrap_gsl_linalg_cholesky_decomp) {
6810   {
6811     gsl_matrix *arg1 = (gsl_matrix *) 0 ;
6812     void *argp1 = 0 ;
6813     int res1 = 0 ;
6814     int argvi = 0;
6815     int result;
6816     dXSARGS;
6817 
6818     if ((items < 1) || (items > 1)) {
6819       SWIG_croak("Usage: gsl_linalg_cholesky_decomp(A);");
6820     }
6821     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 |  0 );
6822     if (!SWIG_IsOK(res1)) {
6823       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_cholesky_decomp" "', argument " "1"" of type '" "gsl_matrix *""'");
6824     }
6825     arg1 = (gsl_matrix *)(argp1);
6826     result = (int)gsl_linalg_cholesky_decomp(arg1);
6827     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6828 
6829     XSRETURN(argvi);
6830   fail:
6831 
6832     SWIG_croak_null();
6833   }
6834 }
6835 
6836 
XS(_wrap_gsl_linalg_cholesky_solve)6837 XS(_wrap_gsl_linalg_cholesky_solve) {
6838   {
6839     gsl_matrix *arg1 = (gsl_matrix *) 0 ;
6840     gsl_vector *arg2 = (gsl_vector *) 0 ;
6841     gsl_vector *arg3 = (gsl_vector *) 0 ;
6842     void *argp1 = 0 ;
6843     int res1 = 0 ;
6844     void *argp2 = 0 ;
6845     int res2 = 0 ;
6846     void *argp3 = 0 ;
6847     int res3 = 0 ;
6848     int argvi = 0;
6849     int result;
6850     dXSARGS;
6851 
6852     if ((items < 3) || (items > 3)) {
6853       SWIG_croak("Usage: gsl_linalg_cholesky_solve(cholesky,b,x);");
6854     }
6855     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 |  0 );
6856     if (!SWIG_IsOK(res1)) {
6857       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_cholesky_solve" "', argument " "1"" of type '" "gsl_matrix const *""'");
6858     }
6859     arg1 = (gsl_matrix *)(argp1);
6860     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 |  0 );
6861     if (!SWIG_IsOK(res2)) {
6862       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_cholesky_solve" "', argument " "2"" of type '" "gsl_vector const *""'");
6863     }
6864     arg2 = (gsl_vector *)(argp2);
6865     res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 |  0 );
6866     if (!SWIG_IsOK(res3)) {
6867       SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_cholesky_solve" "', argument " "3"" of type '" "gsl_vector *""'");
6868     }
6869     arg3 = (gsl_vector *)(argp3);
6870     result = (int)gsl_linalg_cholesky_solve((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3);
6871     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6872 
6873 
6874 
6875     XSRETURN(argvi);
6876   fail:
6877 
6878 
6879 
6880     SWIG_croak_null();
6881   }
6882 }
6883 
6884 
XS(_wrap_gsl_linalg_cholesky_svx)6885 XS(_wrap_gsl_linalg_cholesky_svx) {
6886   {
6887     gsl_matrix *arg1 = (gsl_matrix *) 0 ;
6888     gsl_vector *arg2 = (gsl_vector *) 0 ;
6889     void *argp1 = 0 ;
6890     int res1 = 0 ;
6891     void *argp2 = 0 ;
6892     int res2 = 0 ;
6893     int argvi = 0;
6894     int result;
6895     dXSARGS;
6896 
6897     if ((items < 2) || (items > 2)) {
6898       SWIG_croak("Usage: gsl_linalg_cholesky_svx(cholesky,x);");
6899     }
6900     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 |  0 );
6901     if (!SWIG_IsOK(res1)) {
6902       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_cholesky_svx" "', argument " "1"" of type '" "gsl_matrix const *""'");
6903     }
6904     arg1 = (gsl_matrix *)(argp1);
6905     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 |  0 );
6906     if (!SWIG_IsOK(res2)) {
6907       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_cholesky_svx" "', argument " "2"" of type '" "gsl_vector *""'");
6908     }
6909     arg2 = (gsl_vector *)(argp2);
6910     result = (int)gsl_linalg_cholesky_svx((gsl_matrix const *)arg1,arg2);
6911     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6912 
6913 
6914     XSRETURN(argvi);
6915   fail:
6916 
6917 
6918     SWIG_croak_null();
6919   }
6920 }
6921 
6922 
XS(_wrap_gsl_linalg_cholesky_invert)6923 XS(_wrap_gsl_linalg_cholesky_invert) {
6924   {
6925     gsl_matrix *arg1 = (gsl_matrix *) 0 ;
6926     void *argp1 = 0 ;
6927     int res1 = 0 ;
6928     int argvi = 0;
6929     int result;
6930     dXSARGS;
6931 
6932     if ((items < 1) || (items > 1)) {
6933       SWIG_croak("Usage: gsl_linalg_cholesky_invert(cholesky);");
6934     }
6935     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 |  0 );
6936     if (!SWIG_IsOK(res1)) {
6937       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_cholesky_invert" "', argument " "1"" of type '" "gsl_matrix *""'");
6938     }
6939     arg1 = (gsl_matrix *)(argp1);
6940     result = (int)gsl_linalg_cholesky_invert(arg1);
6941     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6942 
6943     XSRETURN(argvi);
6944   fail:
6945 
6946     SWIG_croak_null();
6947   }
6948 }
6949 
6950 
XS(_wrap_gsl_linalg_cholesky_decomp_unit)6951 XS(_wrap_gsl_linalg_cholesky_decomp_unit) {
6952   {
6953     gsl_matrix *arg1 = (gsl_matrix *) 0 ;
6954     gsl_vector *arg2 = (gsl_vector *) 0 ;
6955     void *argp1 = 0 ;
6956     int res1 = 0 ;
6957     void *argp2 = 0 ;
6958     int res2 = 0 ;
6959     int argvi = 0;
6960     int result;
6961     dXSARGS;
6962 
6963     if ((items < 2) || (items > 2)) {
6964       SWIG_croak("Usage: gsl_linalg_cholesky_decomp_unit(A,D);");
6965     }
6966     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 |  0 );
6967     if (!SWIG_IsOK(res1)) {
6968       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_cholesky_decomp_unit" "', argument " "1"" of type '" "gsl_matrix *""'");
6969     }
6970     arg1 = (gsl_matrix *)(argp1);
6971     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 |  0 );
6972     if (!SWIG_IsOK(res2)) {
6973       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_cholesky_decomp_unit" "', argument " "2"" of type '" "gsl_vector *""'");
6974     }
6975     arg2 = (gsl_vector *)(argp2);
6976     result = (int)gsl_linalg_cholesky_decomp_unit(arg1,arg2);
6977     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6978 
6979 
6980     XSRETURN(argvi);
6981   fail:
6982 
6983 
6984     SWIG_croak_null();
6985   }
6986 }
6987 
6988 
XS(_wrap_gsl_linalg_complex_cholesky_decomp)6989 XS(_wrap_gsl_linalg_complex_cholesky_decomp) {
6990   {
6991     gsl_matrix_complex *arg1 = (gsl_matrix_complex *) 0 ;
6992     void *argp1 = 0 ;
6993     int res1 = 0 ;
6994     int argvi = 0;
6995     int result;
6996     dXSARGS;
6997 
6998     if ((items < 1) || (items > 1)) {
6999       SWIG_croak("Usage: gsl_linalg_complex_cholesky_decomp(A);");
7000     }
7001     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix_complex, 0 |  0 );
7002     if (!SWIG_IsOK(res1)) {
7003       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_complex_cholesky_decomp" "', argument " "1"" of type '" "gsl_matrix_complex *""'");
7004     }
7005     arg1 = (gsl_matrix_complex *)(argp1);
7006     result = (int)gsl_linalg_complex_cholesky_decomp(arg1);
7007     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7008 
7009     XSRETURN(argvi);
7010   fail:
7011 
7012     SWIG_croak_null();
7013   }
7014 }
7015 
7016 
XS(_wrap_gsl_linalg_complex_cholesky_solve)7017 XS(_wrap_gsl_linalg_complex_cholesky_solve) {
7018   {
7019     gsl_matrix_complex *arg1 = (gsl_matrix_complex *) 0 ;
7020     gsl_vector_complex *arg2 = (gsl_vector_complex *) 0 ;
7021     gsl_vector_complex *arg3 = (gsl_vector_complex *) 0 ;
7022     void *argp1 = 0 ;
7023     int res1 = 0 ;
7024     void *argp2 = 0 ;
7025     int res2 = 0 ;
7026     void *argp3 = 0 ;
7027     int res3 = 0 ;
7028     int argvi = 0;
7029     int result;
7030     dXSARGS;
7031 
7032     if ((items < 3) || (items > 3)) {
7033       SWIG_croak("Usage: gsl_linalg_complex_cholesky_solve(cholesky,b,x);");
7034     }
7035     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix_complex, 0 |  0 );
7036     if (!SWIG_IsOK(res1)) {
7037       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_complex_cholesky_solve" "', argument " "1"" of type '" "gsl_matrix_complex const *""'");
7038     }
7039     arg1 = (gsl_matrix_complex *)(argp1);
7040     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_complex, 0 |  0 );
7041     if (!SWIG_IsOK(res2)) {
7042       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_complex_cholesky_solve" "', argument " "2"" of type '" "gsl_vector_complex const *""'");
7043     }
7044     arg2 = (gsl_vector_complex *)(argp2);
7045     res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector_complex, 0 |  0 );
7046     if (!SWIG_IsOK(res3)) {
7047       SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_complex_cholesky_solve" "', argument " "3"" of type '" "gsl_vector_complex *""'");
7048     }
7049     arg3 = (gsl_vector_complex *)(argp3);
7050     result = (int)gsl_linalg_complex_cholesky_solve((gsl_matrix_complex const *)arg1,(gsl_vector_complex const *)arg2,arg3);
7051     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7052 
7053 
7054 
7055     XSRETURN(argvi);
7056   fail:
7057 
7058 
7059 
7060     SWIG_croak_null();
7061   }
7062 }
7063 
7064 
XS(_wrap_gsl_linalg_complex_cholesky_svx)7065 XS(_wrap_gsl_linalg_complex_cholesky_svx) {
7066   {
7067     gsl_matrix_complex *arg1 = (gsl_matrix_complex *) 0 ;
7068     gsl_vector_complex *arg2 = (gsl_vector_complex *) 0 ;
7069     void *argp1 = 0 ;
7070     int res1 = 0 ;
7071     void *argp2 = 0 ;
7072     int res2 = 0 ;
7073     int argvi = 0;
7074     int result;
7075     dXSARGS;
7076 
7077     if ((items < 2) || (items > 2)) {
7078       SWIG_croak("Usage: gsl_linalg_complex_cholesky_svx(cholesky,x);");
7079     }
7080     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix_complex, 0 |  0 );
7081     if (!SWIG_IsOK(res1)) {
7082       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_complex_cholesky_svx" "', argument " "1"" of type '" "gsl_matrix_complex const *""'");
7083     }
7084     arg1 = (gsl_matrix_complex *)(argp1);
7085     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_complex, 0 |  0 );
7086     if (!SWIG_IsOK(res2)) {
7087       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_complex_cholesky_svx" "', argument " "2"" of type '" "gsl_vector_complex *""'");
7088     }
7089     arg2 = (gsl_vector_complex *)(argp2);
7090     result = (int)gsl_linalg_complex_cholesky_svx((gsl_matrix_complex const *)arg1,arg2);
7091     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7092 
7093 
7094     XSRETURN(argvi);
7095   fail:
7096 
7097 
7098     SWIG_croak_null();
7099   }
7100 }
7101 
7102 
XS(_wrap_gsl_linalg_complex_cholesky_invert)7103 XS(_wrap_gsl_linalg_complex_cholesky_invert) {
7104   {
7105     gsl_matrix_complex *arg1 = (gsl_matrix_complex *) 0 ;
7106     void *argp1 = 0 ;
7107     int res1 = 0 ;
7108     int argvi = 0;
7109     int result;
7110     dXSARGS;
7111 
7112     if ((items < 1) || (items > 1)) {
7113       SWIG_croak("Usage: gsl_linalg_complex_cholesky_invert(cholesky);");
7114     }
7115     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix_complex, 0 |  0 );
7116     if (!SWIG_IsOK(res1)) {
7117       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_complex_cholesky_invert" "', argument " "1"" of type '" "gsl_matrix_complex *""'");
7118     }
7119     arg1 = (gsl_matrix_complex *)(argp1);
7120     result = (int)gsl_linalg_complex_cholesky_invert(arg1);
7121     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7122 
7123     XSRETURN(argvi);
7124   fail:
7125 
7126     SWIG_croak_null();
7127   }
7128 }
7129 
7130 
XS(_wrap_gsl_linalg_symmtd_decomp)7131 XS(_wrap_gsl_linalg_symmtd_decomp) {
7132   {
7133     gsl_matrix *arg1 = (gsl_matrix *) 0 ;
7134     gsl_vector *arg2 = (gsl_vector *) 0 ;
7135     void *argp1 = 0 ;
7136     int res1 = 0 ;
7137     void *argp2 = 0 ;
7138     int res2 = 0 ;
7139     int argvi = 0;
7140     int result;
7141     dXSARGS;
7142 
7143     if ((items < 2) || (items > 2)) {
7144       SWIG_croak("Usage: gsl_linalg_symmtd_decomp(A,tau);");
7145     }
7146     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 |  0 );
7147     if (!SWIG_IsOK(res1)) {
7148       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_symmtd_decomp" "', argument " "1"" of type '" "gsl_matrix *""'");
7149     }
7150     arg1 = (gsl_matrix *)(argp1);
7151     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 |  0 );
7152     if (!SWIG_IsOK(res2)) {
7153       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_symmtd_decomp" "', argument " "2"" of type '" "gsl_vector *""'");
7154     }
7155     arg2 = (gsl_vector *)(argp2);
7156     result = (int)gsl_linalg_symmtd_decomp(arg1,arg2);
7157     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7158 
7159 
7160     XSRETURN(argvi);
7161   fail:
7162 
7163 
7164     SWIG_croak_null();
7165   }
7166 }
7167 
7168 
XS(_wrap_gsl_linalg_symmtd_unpack)7169 XS(_wrap_gsl_linalg_symmtd_unpack) {
7170   {
7171     gsl_matrix *arg1 = (gsl_matrix *) 0 ;
7172     gsl_vector *arg2 = (gsl_vector *) 0 ;
7173     gsl_matrix *arg3 = (gsl_matrix *) 0 ;
7174     gsl_vector *arg4 = (gsl_vector *) 0 ;
7175     gsl_vector *arg5 = (gsl_vector *) 0 ;
7176     void *argp1 = 0 ;
7177     int res1 = 0 ;
7178     void *argp2 = 0 ;
7179     int res2 = 0 ;
7180     void *argp3 = 0 ;
7181     int res3 = 0 ;
7182     void *argp4 = 0 ;
7183     int res4 = 0 ;
7184     void *argp5 = 0 ;
7185     int res5 = 0 ;
7186     int argvi = 0;
7187     int result;
7188     dXSARGS;
7189 
7190     if ((items < 5) || (items > 5)) {
7191       SWIG_croak("Usage: gsl_linalg_symmtd_unpack(A,tau,Q,diag,subdiag);");
7192     }
7193     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 |  0 );
7194     if (!SWIG_IsOK(res1)) {
7195       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_symmtd_unpack" "', argument " "1"" of type '" "gsl_matrix const *""'");
7196     }
7197     arg1 = (gsl_matrix *)(argp1);
7198     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 |  0 );
7199     if (!SWIG_IsOK(res2)) {
7200       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_symmtd_unpack" "', argument " "2"" of type '" "gsl_vector const *""'");
7201     }
7202     arg2 = (gsl_vector *)(argp2);
7203     res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 |  0 );
7204     if (!SWIG_IsOK(res3)) {
7205       SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_symmtd_unpack" "', argument " "3"" of type '" "gsl_matrix *""'");
7206     }
7207     arg3 = (gsl_matrix *)(argp3);
7208     res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 |  0 );
7209     if (!SWIG_IsOK(res4)) {
7210       SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_symmtd_unpack" "', argument " "4"" of type '" "gsl_vector *""'");
7211     }
7212     arg4 = (gsl_vector *)(argp4);
7213     res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 |  0 );
7214     if (!SWIG_IsOK(res5)) {
7215       SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_symmtd_unpack" "', argument " "5"" of type '" "gsl_vector *""'");
7216     }
7217     arg5 = (gsl_vector *)(argp5);
7218     result = (int)gsl_linalg_symmtd_unpack((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3,arg4,arg5);
7219     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7220 
7221 
7222 
7223 
7224 
7225     XSRETURN(argvi);
7226   fail:
7227 
7228 
7229 
7230 
7231 
7232     SWIG_croak_null();
7233   }
7234 }
7235 
7236 
XS(_wrap_gsl_linalg_symmtd_unpack_T)7237 XS(_wrap_gsl_linalg_symmtd_unpack_T) {
7238   {
7239     gsl_matrix *arg1 = (gsl_matrix *) 0 ;
7240     gsl_vector *arg2 = (gsl_vector *) 0 ;
7241     gsl_vector *arg3 = (gsl_vector *) 0 ;
7242     void *argp1 = 0 ;
7243     int res1 = 0 ;
7244     void *argp2 = 0 ;
7245     int res2 = 0 ;
7246     void *argp3 = 0 ;
7247     int res3 = 0 ;
7248     int argvi = 0;
7249     int result;
7250     dXSARGS;
7251 
7252     if ((items < 3) || (items > 3)) {
7253       SWIG_croak("Usage: gsl_linalg_symmtd_unpack_T(A,diag,subdiag);");
7254     }
7255     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 |  0 );
7256     if (!SWIG_IsOK(res1)) {
7257       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_symmtd_unpack_T" "', argument " "1"" of type '" "gsl_matrix const *""'");
7258     }
7259     arg1 = (gsl_matrix *)(argp1);
7260     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 |  0 );
7261     if (!SWIG_IsOK(res2)) {
7262       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_symmtd_unpack_T" "', argument " "2"" of type '" "gsl_vector *""'");
7263     }
7264     arg2 = (gsl_vector *)(argp2);
7265     res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 |  0 );
7266     if (!SWIG_IsOK(res3)) {
7267       SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_symmtd_unpack_T" "', argument " "3"" of type '" "gsl_vector *""'");
7268     }
7269     arg3 = (gsl_vector *)(argp3);
7270     result = (int)gsl_linalg_symmtd_unpack_T((gsl_matrix const *)arg1,arg2,arg3);
7271     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7272 
7273 
7274 
7275     XSRETURN(argvi);
7276   fail:
7277 
7278 
7279 
7280     SWIG_croak_null();
7281   }
7282 }
7283 
7284 
XS(_wrap_gsl_linalg_hermtd_decomp)7285 XS(_wrap_gsl_linalg_hermtd_decomp) {
7286   {
7287     gsl_matrix_complex *arg1 = (gsl_matrix_complex *) 0 ;
7288     gsl_vector_complex *arg2 = (gsl_vector_complex *) 0 ;
7289     void *argp1 = 0 ;
7290     int res1 = 0 ;
7291     void *argp2 = 0 ;
7292     int res2 = 0 ;
7293     int argvi = 0;
7294     int result;
7295     dXSARGS;
7296 
7297     if ((items < 2) || (items > 2)) {
7298       SWIG_croak("Usage: gsl_linalg_hermtd_decomp(A,tau);");
7299     }
7300     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix_complex, 0 |  0 );
7301     if (!SWIG_IsOK(res1)) {
7302       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_hermtd_decomp" "', argument " "1"" of type '" "gsl_matrix_complex *""'");
7303     }
7304     arg1 = (gsl_matrix_complex *)(argp1);
7305     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_complex, 0 |  0 );
7306     if (!SWIG_IsOK(res2)) {
7307       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_hermtd_decomp" "', argument " "2"" of type '" "gsl_vector_complex *""'");
7308     }
7309     arg2 = (gsl_vector_complex *)(argp2);
7310     result = (int)gsl_linalg_hermtd_decomp(arg1,arg2);
7311     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7312 
7313 
7314     XSRETURN(argvi);
7315   fail:
7316 
7317 
7318     SWIG_croak_null();
7319   }
7320 }
7321 
7322 
XS(_wrap_gsl_linalg_hermtd_unpack)7323 XS(_wrap_gsl_linalg_hermtd_unpack) {
7324   {
7325     gsl_matrix_complex *arg1 = (gsl_matrix_complex *) 0 ;
7326     gsl_vector_complex *arg2 = (gsl_vector_complex *) 0 ;
7327     gsl_matrix_complex *arg3 = (gsl_matrix_complex *) 0 ;
7328     gsl_vector *arg4 = (gsl_vector *) 0 ;
7329     gsl_vector *arg5 = (gsl_vector *) 0 ;
7330     void *argp1 = 0 ;
7331     int res1 = 0 ;
7332     void *argp2 = 0 ;
7333     int res2 = 0 ;
7334     void *argp3 = 0 ;
7335     int res3 = 0 ;
7336     void *argp4 = 0 ;
7337     int res4 = 0 ;
7338     void *argp5 = 0 ;
7339     int res5 = 0 ;
7340     int argvi = 0;
7341     int result;
7342     dXSARGS;
7343 
7344     if ((items < 5) || (items > 5)) {
7345       SWIG_croak("Usage: gsl_linalg_hermtd_unpack(A,tau,U,diag,sudiag);");
7346     }
7347     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix_complex, 0 |  0 );
7348     if (!SWIG_IsOK(res1)) {
7349       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_hermtd_unpack" "', argument " "1"" of type '" "gsl_matrix_complex const *""'");
7350     }
7351     arg1 = (gsl_matrix_complex *)(argp1);
7352     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_complex, 0 |  0 );
7353     if (!SWIG_IsOK(res2)) {
7354       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_hermtd_unpack" "', argument " "2"" of type '" "gsl_vector_complex const *""'");
7355     }
7356     arg2 = (gsl_vector_complex *)(argp2);
7357     res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix_complex, 0 |  0 );
7358     if (!SWIG_IsOK(res3)) {
7359       SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_hermtd_unpack" "', argument " "3"" of type '" "gsl_matrix_complex *""'");
7360     }
7361     arg3 = (gsl_matrix_complex *)(argp3);
7362     res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 |  0 );
7363     if (!SWIG_IsOK(res4)) {
7364       SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_hermtd_unpack" "', argument " "4"" of type '" "gsl_vector *""'");
7365     }
7366     arg4 = (gsl_vector *)(argp4);
7367     res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 |  0 );
7368     if (!SWIG_IsOK(res5)) {
7369       SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_hermtd_unpack" "', argument " "5"" of type '" "gsl_vector *""'");
7370     }
7371     arg5 = (gsl_vector *)(argp5);
7372     result = (int)gsl_linalg_hermtd_unpack((gsl_matrix_complex const *)arg1,(gsl_vector_complex const *)arg2,arg3,arg4,arg5);
7373     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7374 
7375 
7376 
7377 
7378 
7379     XSRETURN(argvi);
7380   fail:
7381 
7382 
7383 
7384 
7385 
7386     SWIG_croak_null();
7387   }
7388 }
7389 
7390 
XS(_wrap_gsl_linalg_hermtd_unpack_T)7391 XS(_wrap_gsl_linalg_hermtd_unpack_T) {
7392   {
7393     gsl_matrix_complex *arg1 = (gsl_matrix_complex *) 0 ;
7394     gsl_vector *arg2 = (gsl_vector *) 0 ;
7395     gsl_vector *arg3 = (gsl_vector *) 0 ;
7396     void *argp1 = 0 ;
7397     int res1 = 0 ;
7398     void *argp2 = 0 ;
7399     int res2 = 0 ;
7400     void *argp3 = 0 ;
7401     int res3 = 0 ;
7402     int argvi = 0;
7403     int result;
7404     dXSARGS;
7405 
7406     if ((items < 3) || (items > 3)) {
7407       SWIG_croak("Usage: gsl_linalg_hermtd_unpack_T(A,diag,subdiag);");
7408     }
7409     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix_complex, 0 |  0 );
7410     if (!SWIG_IsOK(res1)) {
7411       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_hermtd_unpack_T" "', argument " "1"" of type '" "gsl_matrix_complex const *""'");
7412     }
7413     arg1 = (gsl_matrix_complex *)(argp1);
7414     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 |  0 );
7415     if (!SWIG_IsOK(res2)) {
7416       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_hermtd_unpack_T" "', argument " "2"" of type '" "gsl_vector *""'");
7417     }
7418     arg2 = (gsl_vector *)(argp2);
7419     res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 |  0 );
7420     if (!SWIG_IsOK(res3)) {
7421       SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_hermtd_unpack_T" "', argument " "3"" of type '" "gsl_vector *""'");
7422     }
7423     arg3 = (gsl_vector *)(argp3);
7424     result = (int)gsl_linalg_hermtd_unpack_T((gsl_matrix_complex const *)arg1,arg2,arg3);
7425     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7426 
7427 
7428 
7429     XSRETURN(argvi);
7430   fail:
7431 
7432 
7433 
7434     SWIG_croak_null();
7435   }
7436 }
7437 
7438 
XS(_wrap_gsl_linalg_HH_solve)7439 XS(_wrap_gsl_linalg_HH_solve) {
7440   {
7441     gsl_matrix *arg1 = (gsl_matrix *) 0 ;
7442     gsl_vector *arg2 = (gsl_vector *) 0 ;
7443     gsl_vector *arg3 = (gsl_vector *) 0 ;
7444     void *argp1 = 0 ;
7445     int res1 = 0 ;
7446     void *argp2 = 0 ;
7447     int res2 = 0 ;
7448     void *argp3 = 0 ;
7449     int res3 = 0 ;
7450     int argvi = 0;
7451     int result;
7452     dXSARGS;
7453 
7454     if ((items < 3) || (items > 3)) {
7455       SWIG_croak("Usage: gsl_linalg_HH_solve(A,b,x);");
7456     }
7457     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 |  0 );
7458     if (!SWIG_IsOK(res1)) {
7459       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_HH_solve" "', argument " "1"" of type '" "gsl_matrix *""'");
7460     }
7461     arg1 = (gsl_matrix *)(argp1);
7462     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 |  0 );
7463     if (!SWIG_IsOK(res2)) {
7464       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_HH_solve" "', argument " "2"" of type '" "gsl_vector const *""'");
7465     }
7466     arg2 = (gsl_vector *)(argp2);
7467     res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 |  0 );
7468     if (!SWIG_IsOK(res3)) {
7469       SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_HH_solve" "', argument " "3"" of type '" "gsl_vector *""'");
7470     }
7471     arg3 = (gsl_vector *)(argp3);
7472     result = (int)gsl_linalg_HH_solve(arg1,(gsl_vector const *)arg2,arg3);
7473     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7474 
7475 
7476 
7477     XSRETURN(argvi);
7478   fail:
7479 
7480 
7481 
7482     SWIG_croak_null();
7483   }
7484 }
7485 
7486 
XS(_wrap_gsl_linalg_HH_svx)7487 XS(_wrap_gsl_linalg_HH_svx) {
7488   {
7489     gsl_matrix *arg1 = (gsl_matrix *) 0 ;
7490     gsl_vector *arg2 = (gsl_vector *) 0 ;
7491     void *argp1 = 0 ;
7492     int res1 = 0 ;
7493     void *argp2 = 0 ;
7494     int res2 = 0 ;
7495     int argvi = 0;
7496     int result;
7497     dXSARGS;
7498 
7499     if ((items < 2) || (items > 2)) {
7500       SWIG_croak("Usage: gsl_linalg_HH_svx(A,x);");
7501     }
7502     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 |  0 );
7503     if (!SWIG_IsOK(res1)) {
7504       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_HH_svx" "', argument " "1"" of type '" "gsl_matrix *""'");
7505     }
7506     arg1 = (gsl_matrix *)(argp1);
7507     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 |  0 );
7508     if (!SWIG_IsOK(res2)) {
7509       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_HH_svx" "', argument " "2"" of type '" "gsl_vector *""'");
7510     }
7511     arg2 = (gsl_vector *)(argp2);
7512     result = (int)gsl_linalg_HH_svx(arg1,arg2);
7513     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7514 
7515 
7516     XSRETURN(argvi);
7517   fail:
7518 
7519 
7520     SWIG_croak_null();
7521   }
7522 }
7523 
7524 
XS(_wrap_gsl_linalg_solve_symm_tridiag)7525 XS(_wrap_gsl_linalg_solve_symm_tridiag) {
7526   {
7527     gsl_vector *arg1 = (gsl_vector *) 0 ;
7528     gsl_vector *arg2 = (gsl_vector *) 0 ;
7529     gsl_vector *arg3 = (gsl_vector *) 0 ;
7530     gsl_vector *arg4 = (gsl_vector *) 0 ;
7531     void *argp1 = 0 ;
7532     int res1 = 0 ;
7533     void *argp2 = 0 ;
7534     int res2 = 0 ;
7535     void *argp3 = 0 ;
7536     int res3 = 0 ;
7537     void *argp4 = 0 ;
7538     int res4 = 0 ;
7539     int argvi = 0;
7540     int result;
7541     dXSARGS;
7542 
7543     if ((items < 4) || (items > 4)) {
7544       SWIG_croak("Usage: gsl_linalg_solve_symm_tridiag(diag,offdiag,b,x);");
7545     }
7546     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 |  0 );
7547     if (!SWIG_IsOK(res1)) {
7548       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_solve_symm_tridiag" "', argument " "1"" of type '" "gsl_vector const *""'");
7549     }
7550     arg1 = (gsl_vector *)(argp1);
7551     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 |  0 );
7552     if (!SWIG_IsOK(res2)) {
7553       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_solve_symm_tridiag" "', argument " "2"" of type '" "gsl_vector const *""'");
7554     }
7555     arg2 = (gsl_vector *)(argp2);
7556     res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 |  0 );
7557     if (!SWIG_IsOK(res3)) {
7558       SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_solve_symm_tridiag" "', argument " "3"" of type '" "gsl_vector const *""'");
7559     }
7560     arg3 = (gsl_vector *)(argp3);
7561     res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 |  0 );
7562     if (!SWIG_IsOK(res4)) {
7563       SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_solve_symm_tridiag" "', argument " "4"" of type '" "gsl_vector *""'");
7564     }
7565     arg4 = (gsl_vector *)(argp4);
7566     result = (int)gsl_linalg_solve_symm_tridiag((gsl_vector const *)arg1,(gsl_vector const *)arg2,(gsl_vector const *)arg3,arg4);
7567     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7568 
7569 
7570 
7571 
7572     XSRETURN(argvi);
7573   fail:
7574 
7575 
7576 
7577 
7578     SWIG_croak_null();
7579   }
7580 }
7581 
7582 
XS(_wrap_gsl_linalg_solve_tridiag)7583 XS(_wrap_gsl_linalg_solve_tridiag) {
7584   {
7585     gsl_vector *arg1 = (gsl_vector *) 0 ;
7586     gsl_vector *arg2 = (gsl_vector *) 0 ;
7587     gsl_vector *arg3 = (gsl_vector *) 0 ;
7588     gsl_vector *arg4 = (gsl_vector *) 0 ;
7589     gsl_vector *arg5 = (gsl_vector *) 0 ;
7590     void *argp1 = 0 ;
7591     int res1 = 0 ;
7592     void *argp2 = 0 ;
7593     int res2 = 0 ;
7594     void *argp3 = 0 ;
7595     int res3 = 0 ;
7596     void *argp4 = 0 ;
7597     int res4 = 0 ;
7598     void *argp5 = 0 ;
7599     int res5 = 0 ;
7600     int argvi = 0;
7601     int result;
7602     dXSARGS;
7603 
7604     if ((items < 5) || (items > 5)) {
7605       SWIG_croak("Usage: gsl_linalg_solve_tridiag(diag,abovediag,belowdiag,b,x);");
7606     }
7607     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 |  0 );
7608     if (!SWIG_IsOK(res1)) {
7609       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_solve_tridiag" "', argument " "1"" of type '" "gsl_vector const *""'");
7610     }
7611     arg1 = (gsl_vector *)(argp1);
7612     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 |  0 );
7613     if (!SWIG_IsOK(res2)) {
7614       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_solve_tridiag" "', argument " "2"" of type '" "gsl_vector const *""'");
7615     }
7616     arg2 = (gsl_vector *)(argp2);
7617     res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 |  0 );
7618     if (!SWIG_IsOK(res3)) {
7619       SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_solve_tridiag" "', argument " "3"" of type '" "gsl_vector const *""'");
7620     }
7621     arg3 = (gsl_vector *)(argp3);
7622     res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 |  0 );
7623     if (!SWIG_IsOK(res4)) {
7624       SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_solve_tridiag" "', argument " "4"" of type '" "gsl_vector const *""'");
7625     }
7626     arg4 = (gsl_vector *)(argp4);
7627     res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 |  0 );
7628     if (!SWIG_IsOK(res5)) {
7629       SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_solve_tridiag" "', argument " "5"" of type '" "gsl_vector *""'");
7630     }
7631     arg5 = (gsl_vector *)(argp5);
7632     result = (int)gsl_linalg_solve_tridiag((gsl_vector const *)arg1,(gsl_vector const *)arg2,(gsl_vector const *)arg3,(gsl_vector const *)arg4,arg5);
7633     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7634 
7635 
7636 
7637 
7638 
7639     XSRETURN(argvi);
7640   fail:
7641 
7642 
7643 
7644 
7645 
7646     SWIG_croak_null();
7647   }
7648 }
7649 
7650 
XS(_wrap_gsl_linalg_solve_symm_cyc_tridiag)7651 XS(_wrap_gsl_linalg_solve_symm_cyc_tridiag) {
7652   {
7653     gsl_vector *arg1 = (gsl_vector *) 0 ;
7654     gsl_vector *arg2 = (gsl_vector *) 0 ;
7655     gsl_vector *arg3 = (gsl_vector *) 0 ;
7656     gsl_vector *arg4 = (gsl_vector *) 0 ;
7657     void *argp1 = 0 ;
7658     int res1 = 0 ;
7659     void *argp2 = 0 ;
7660     int res2 = 0 ;
7661     void *argp3 = 0 ;
7662     int res3 = 0 ;
7663     void *argp4 = 0 ;
7664     int res4 = 0 ;
7665     int argvi = 0;
7666     int result;
7667     dXSARGS;
7668 
7669     if ((items < 4) || (items > 4)) {
7670       SWIG_croak("Usage: gsl_linalg_solve_symm_cyc_tridiag(diag,offdiag,b,x);");
7671     }
7672     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 |  0 );
7673     if (!SWIG_IsOK(res1)) {
7674       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_solve_symm_cyc_tridiag" "', argument " "1"" of type '" "gsl_vector const *""'");
7675     }
7676     arg1 = (gsl_vector *)(argp1);
7677     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 |  0 );
7678     if (!SWIG_IsOK(res2)) {
7679       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_solve_symm_cyc_tridiag" "', argument " "2"" of type '" "gsl_vector const *""'");
7680     }
7681     arg2 = (gsl_vector *)(argp2);
7682     res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 |  0 );
7683     if (!SWIG_IsOK(res3)) {
7684       SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_solve_symm_cyc_tridiag" "', argument " "3"" of type '" "gsl_vector const *""'");
7685     }
7686     arg3 = (gsl_vector *)(argp3);
7687     res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 |  0 );
7688     if (!SWIG_IsOK(res4)) {
7689       SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_solve_symm_cyc_tridiag" "', argument " "4"" of type '" "gsl_vector *""'");
7690     }
7691     arg4 = (gsl_vector *)(argp4);
7692     result = (int)gsl_linalg_solve_symm_cyc_tridiag((gsl_vector const *)arg1,(gsl_vector const *)arg2,(gsl_vector const *)arg3,arg4);
7693     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7694 
7695 
7696 
7697 
7698     XSRETURN(argvi);
7699   fail:
7700 
7701 
7702 
7703 
7704     SWIG_croak_null();
7705   }
7706 }
7707 
7708 
XS(_wrap_gsl_linalg_solve_cyc_tridiag)7709 XS(_wrap_gsl_linalg_solve_cyc_tridiag) {
7710   {
7711     gsl_vector *arg1 = (gsl_vector *) 0 ;
7712     gsl_vector *arg2 = (gsl_vector *) 0 ;
7713     gsl_vector *arg3 = (gsl_vector *) 0 ;
7714     gsl_vector *arg4 = (gsl_vector *) 0 ;
7715     gsl_vector *arg5 = (gsl_vector *) 0 ;
7716     void *argp1 = 0 ;
7717     int res1 = 0 ;
7718     void *argp2 = 0 ;
7719     int res2 = 0 ;
7720     void *argp3 = 0 ;
7721     int res3 = 0 ;
7722     void *argp4 = 0 ;
7723     int res4 = 0 ;
7724     void *argp5 = 0 ;
7725     int res5 = 0 ;
7726     int argvi = 0;
7727     int result;
7728     dXSARGS;
7729 
7730     if ((items < 5) || (items > 5)) {
7731       SWIG_croak("Usage: gsl_linalg_solve_cyc_tridiag(diag,abovediag,belowdiag,b,x);");
7732     }
7733     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 |  0 );
7734     if (!SWIG_IsOK(res1)) {
7735       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_solve_cyc_tridiag" "', argument " "1"" of type '" "gsl_vector const *""'");
7736     }
7737     arg1 = (gsl_vector *)(argp1);
7738     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 |  0 );
7739     if (!SWIG_IsOK(res2)) {
7740       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_solve_cyc_tridiag" "', argument " "2"" of type '" "gsl_vector const *""'");
7741     }
7742     arg2 = (gsl_vector *)(argp2);
7743     res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 |  0 );
7744     if (!SWIG_IsOK(res3)) {
7745       SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_solve_cyc_tridiag" "', argument " "3"" of type '" "gsl_vector const *""'");
7746     }
7747     arg3 = (gsl_vector *)(argp3);
7748     res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 |  0 );
7749     if (!SWIG_IsOK(res4)) {
7750       SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_solve_cyc_tridiag" "', argument " "4"" of type '" "gsl_vector const *""'");
7751     }
7752     arg4 = (gsl_vector *)(argp4);
7753     res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 |  0 );
7754     if (!SWIG_IsOK(res5)) {
7755       SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_solve_cyc_tridiag" "', argument " "5"" of type '" "gsl_vector *""'");
7756     }
7757     arg5 = (gsl_vector *)(argp5);
7758     result = (int)gsl_linalg_solve_cyc_tridiag((gsl_vector const *)arg1,(gsl_vector const *)arg2,(gsl_vector const *)arg3,(gsl_vector const *)arg4,arg5);
7759     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7760 
7761 
7762 
7763 
7764 
7765     XSRETURN(argvi);
7766   fail:
7767 
7768 
7769 
7770 
7771 
7772     SWIG_croak_null();
7773   }
7774 }
7775 
7776 
XS(_wrap_gsl_linalg_bidiag_decomp)7777 XS(_wrap_gsl_linalg_bidiag_decomp) {
7778   {
7779     gsl_matrix *arg1 = (gsl_matrix *) 0 ;
7780     gsl_vector *arg2 = (gsl_vector *) 0 ;
7781     gsl_vector *arg3 = (gsl_vector *) 0 ;
7782     void *argp1 = 0 ;
7783     int res1 = 0 ;
7784     void *argp2 = 0 ;
7785     int res2 = 0 ;
7786     void *argp3 = 0 ;
7787     int res3 = 0 ;
7788     int argvi = 0;
7789     int result;
7790     dXSARGS;
7791 
7792     if ((items < 3) || (items > 3)) {
7793       SWIG_croak("Usage: gsl_linalg_bidiag_decomp(A,tau_U,tau_V);");
7794     }
7795     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 |  0 );
7796     if (!SWIG_IsOK(res1)) {
7797       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_bidiag_decomp" "', argument " "1"" of type '" "gsl_matrix *""'");
7798     }
7799     arg1 = (gsl_matrix *)(argp1);
7800     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 |  0 );
7801     if (!SWIG_IsOK(res2)) {
7802       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_bidiag_decomp" "', argument " "2"" of type '" "gsl_vector *""'");
7803     }
7804     arg2 = (gsl_vector *)(argp2);
7805     res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 |  0 );
7806     if (!SWIG_IsOK(res3)) {
7807       SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_bidiag_decomp" "', argument " "3"" of type '" "gsl_vector *""'");
7808     }
7809     arg3 = (gsl_vector *)(argp3);
7810     result = (int)gsl_linalg_bidiag_decomp(arg1,arg2,arg3);
7811     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7812 
7813 
7814 
7815     XSRETURN(argvi);
7816   fail:
7817 
7818 
7819 
7820     SWIG_croak_null();
7821   }
7822 }
7823 
7824 
XS(_wrap_gsl_linalg_bidiag_unpack)7825 XS(_wrap_gsl_linalg_bidiag_unpack) {
7826   {
7827     gsl_matrix *arg1 = (gsl_matrix *) 0 ;
7828     gsl_vector *arg2 = (gsl_vector *) 0 ;
7829     gsl_matrix *arg3 = (gsl_matrix *) 0 ;
7830     gsl_vector *arg4 = (gsl_vector *) 0 ;
7831     gsl_matrix *arg5 = (gsl_matrix *) 0 ;
7832     gsl_vector *arg6 = (gsl_vector *) 0 ;
7833     gsl_vector *arg7 = (gsl_vector *) 0 ;
7834     void *argp1 = 0 ;
7835     int res1 = 0 ;
7836     void *argp2 = 0 ;
7837     int res2 = 0 ;
7838     void *argp3 = 0 ;
7839     int res3 = 0 ;
7840     void *argp4 = 0 ;
7841     int res4 = 0 ;
7842     void *argp5 = 0 ;
7843     int res5 = 0 ;
7844     void *argp6 = 0 ;
7845     int res6 = 0 ;
7846     void *argp7 = 0 ;
7847     int res7 = 0 ;
7848     int argvi = 0;
7849     int result;
7850     dXSARGS;
7851 
7852     if ((items < 7) || (items > 7)) {
7853       SWIG_croak("Usage: gsl_linalg_bidiag_unpack(A,tau_U,U,tau_V,V,diag,superdiag);");
7854     }
7855     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 |  0 );
7856     if (!SWIG_IsOK(res1)) {
7857       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_bidiag_unpack" "', argument " "1"" of type '" "gsl_matrix const *""'");
7858     }
7859     arg1 = (gsl_matrix *)(argp1);
7860     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 |  0 );
7861     if (!SWIG_IsOK(res2)) {
7862       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_bidiag_unpack" "', argument " "2"" of type '" "gsl_vector const *""'");
7863     }
7864     arg2 = (gsl_vector *)(argp2);
7865     res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 |  0 );
7866     if (!SWIG_IsOK(res3)) {
7867       SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_bidiag_unpack" "', argument " "3"" of type '" "gsl_matrix *""'");
7868     }
7869     arg3 = (gsl_matrix *)(argp3);
7870     res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 |  0 );
7871     if (!SWIG_IsOK(res4)) {
7872       SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_bidiag_unpack" "', argument " "4"" of type '" "gsl_vector const *""'");
7873     }
7874     arg4 = (gsl_vector *)(argp4);
7875     res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_matrix, 0 |  0 );
7876     if (!SWIG_IsOK(res5)) {
7877       SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_bidiag_unpack" "', argument " "5"" of type '" "gsl_matrix *""'");
7878     }
7879     arg5 = (gsl_matrix *)(argp5);
7880     res6 = SWIG_ConvertPtr(ST(5), &argp6,SWIGTYPE_p_gsl_vector, 0 |  0 );
7881     if (!SWIG_IsOK(res6)) {
7882       SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_linalg_bidiag_unpack" "', argument " "6"" of type '" "gsl_vector *""'");
7883     }
7884     arg6 = (gsl_vector *)(argp6);
7885     res7 = SWIG_ConvertPtr(ST(6), &argp7,SWIGTYPE_p_gsl_vector, 0 |  0 );
7886     if (!SWIG_IsOK(res7)) {
7887       SWIG_exception_fail(SWIG_ArgError(res7), "in method '" "gsl_linalg_bidiag_unpack" "', argument " "7"" of type '" "gsl_vector *""'");
7888     }
7889     arg7 = (gsl_vector *)(argp7);
7890     result = (int)gsl_linalg_bidiag_unpack((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3,(gsl_vector const *)arg4,arg5,arg6,arg7);
7891     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7892 
7893 
7894 
7895 
7896 
7897 
7898 
7899     XSRETURN(argvi);
7900   fail:
7901 
7902 
7903 
7904 
7905 
7906 
7907 
7908     SWIG_croak_null();
7909   }
7910 }
7911 
7912 
XS(_wrap_gsl_linalg_bidiag_unpack2)7913 XS(_wrap_gsl_linalg_bidiag_unpack2) {
7914   {
7915     gsl_matrix *arg1 = (gsl_matrix *) 0 ;
7916     gsl_vector *arg2 = (gsl_vector *) 0 ;
7917     gsl_vector *arg3 = (gsl_vector *) 0 ;
7918     gsl_matrix *arg4 = (gsl_matrix *) 0 ;
7919     void *argp1 = 0 ;
7920     int res1 = 0 ;
7921     void *argp2 = 0 ;
7922     int res2 = 0 ;
7923     void *argp3 = 0 ;
7924     int res3 = 0 ;
7925     void *argp4 = 0 ;
7926     int res4 = 0 ;
7927     int argvi = 0;
7928     int result;
7929     dXSARGS;
7930 
7931     if ((items < 4) || (items > 4)) {
7932       SWIG_croak("Usage: gsl_linalg_bidiag_unpack2(A,tau_U,tau_V,V);");
7933     }
7934     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 |  0 );
7935     if (!SWIG_IsOK(res1)) {
7936       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_bidiag_unpack2" "', argument " "1"" of type '" "gsl_matrix *""'");
7937     }
7938     arg1 = (gsl_matrix *)(argp1);
7939     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 |  0 );
7940     if (!SWIG_IsOK(res2)) {
7941       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_bidiag_unpack2" "', argument " "2"" of type '" "gsl_vector *""'");
7942     }
7943     arg2 = (gsl_vector *)(argp2);
7944     res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 |  0 );
7945     if (!SWIG_IsOK(res3)) {
7946       SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_bidiag_unpack2" "', argument " "3"" of type '" "gsl_vector *""'");
7947     }
7948     arg3 = (gsl_vector *)(argp3);
7949     res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_matrix, 0 |  0 );
7950     if (!SWIG_IsOK(res4)) {
7951       SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_bidiag_unpack2" "', argument " "4"" of type '" "gsl_matrix *""'");
7952     }
7953     arg4 = (gsl_matrix *)(argp4);
7954     result = (int)gsl_linalg_bidiag_unpack2(arg1,arg2,arg3,arg4);
7955     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7956 
7957 
7958 
7959 
7960     XSRETURN(argvi);
7961   fail:
7962 
7963 
7964 
7965 
7966     SWIG_croak_null();
7967   }
7968 }
7969 
7970 
XS(_wrap_gsl_linalg_bidiag_unpack_B)7971 XS(_wrap_gsl_linalg_bidiag_unpack_B) {
7972   {
7973     gsl_matrix *arg1 = (gsl_matrix *) 0 ;
7974     gsl_vector *arg2 = (gsl_vector *) 0 ;
7975     gsl_vector *arg3 = (gsl_vector *) 0 ;
7976     void *argp1 = 0 ;
7977     int res1 = 0 ;
7978     void *argp2 = 0 ;
7979     int res2 = 0 ;
7980     void *argp3 = 0 ;
7981     int res3 = 0 ;
7982     int argvi = 0;
7983     int result;
7984     dXSARGS;
7985 
7986     if ((items < 3) || (items > 3)) {
7987       SWIG_croak("Usage: gsl_linalg_bidiag_unpack_B(A,diag,superdiag);");
7988     }
7989     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 |  0 );
7990     if (!SWIG_IsOK(res1)) {
7991       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_bidiag_unpack_B" "', argument " "1"" of type '" "gsl_matrix const *""'");
7992     }
7993     arg1 = (gsl_matrix *)(argp1);
7994     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 |  0 );
7995     if (!SWIG_IsOK(res2)) {
7996       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_bidiag_unpack_B" "', argument " "2"" of type '" "gsl_vector *""'");
7997     }
7998     arg2 = (gsl_vector *)(argp2);
7999     res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 |  0 );
8000     if (!SWIG_IsOK(res3)) {
8001       SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_bidiag_unpack_B" "', argument " "3"" of type '" "gsl_vector *""'");
8002     }
8003     arg3 = (gsl_vector *)(argp3);
8004     result = (int)gsl_linalg_bidiag_unpack_B((gsl_matrix const *)arg1,arg2,arg3);
8005     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8006 
8007 
8008 
8009     XSRETURN(argvi);
8010   fail:
8011 
8012 
8013 
8014     SWIG_croak_null();
8015   }
8016 }
8017 
8018 
XS(_wrap_gsl_linalg_balance_matrix)8019 XS(_wrap_gsl_linalg_balance_matrix) {
8020   {
8021     gsl_matrix *arg1 = (gsl_matrix *) 0 ;
8022     gsl_vector *arg2 = (gsl_vector *) 0 ;
8023     void *argp1 = 0 ;
8024     int res1 = 0 ;
8025     void *argp2 = 0 ;
8026     int res2 = 0 ;
8027     int argvi = 0;
8028     int result;
8029     dXSARGS;
8030 
8031     if ((items < 2) || (items > 2)) {
8032       SWIG_croak("Usage: gsl_linalg_balance_matrix(A,D);");
8033     }
8034     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 |  0 );
8035     if (!SWIG_IsOK(res1)) {
8036       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_balance_matrix" "', argument " "1"" of type '" "gsl_matrix *""'");
8037     }
8038     arg1 = (gsl_matrix *)(argp1);
8039     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 |  0 );
8040     if (!SWIG_IsOK(res2)) {
8041       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_balance_matrix" "', argument " "2"" of type '" "gsl_vector *""'");
8042     }
8043     arg2 = (gsl_vector *)(argp2);
8044     result = (int)gsl_linalg_balance_matrix(arg1,arg2);
8045     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8046 
8047 
8048     XSRETURN(argvi);
8049   fail:
8050 
8051 
8052     SWIG_croak_null();
8053   }
8054 }
8055 
8056 
XS(_wrap_gsl_linalg_balance_accum)8057 XS(_wrap_gsl_linalg_balance_accum) {
8058   {
8059     gsl_matrix *arg1 = (gsl_matrix *) 0 ;
8060     gsl_vector *arg2 = (gsl_vector *) 0 ;
8061     void *argp1 = 0 ;
8062     int res1 = 0 ;
8063     void *argp2 = 0 ;
8064     int res2 = 0 ;
8065     int argvi = 0;
8066     int result;
8067     dXSARGS;
8068 
8069     if ((items < 2) || (items > 2)) {
8070       SWIG_croak("Usage: gsl_linalg_balance_accum(A,D);");
8071     }
8072     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 |  0 );
8073     if (!SWIG_IsOK(res1)) {
8074       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_balance_accum" "', argument " "1"" of type '" "gsl_matrix *""'");
8075     }
8076     arg1 = (gsl_matrix *)(argp1);
8077     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 |  0 );
8078     if (!SWIG_IsOK(res2)) {
8079       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_balance_accum" "', argument " "2"" of type '" "gsl_vector *""'");
8080     }
8081     arg2 = (gsl_vector *)(argp2);
8082     result = (int)gsl_linalg_balance_accum(arg1,arg2);
8083     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8084 
8085 
8086     XSRETURN(argvi);
8087   fail:
8088 
8089 
8090     SWIG_croak_null();
8091   }
8092 }
8093 
8094 
XS(_wrap_gsl_linalg_balance_columns)8095 XS(_wrap_gsl_linalg_balance_columns) {
8096   {
8097     gsl_matrix *arg1 = (gsl_matrix *) 0 ;
8098     gsl_vector *arg2 = (gsl_vector *) 0 ;
8099     void *argp1 = 0 ;
8100     int res1 = 0 ;
8101     void *argp2 = 0 ;
8102     int res2 = 0 ;
8103     int argvi = 0;
8104     int result;
8105     dXSARGS;
8106 
8107     if ((items < 2) || (items > 2)) {
8108       SWIG_croak("Usage: gsl_linalg_balance_columns(A,D);");
8109     }
8110     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 |  0 );
8111     if (!SWIG_IsOK(res1)) {
8112       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_balance_columns" "', argument " "1"" of type '" "gsl_matrix *""'");
8113     }
8114     arg1 = (gsl_matrix *)(argp1);
8115     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 |  0 );
8116     if (!SWIG_IsOK(res2)) {
8117       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_balance_columns" "', argument " "2"" of type '" "gsl_vector *""'");
8118     }
8119     arg2 = (gsl_vector *)(argp2);
8120     result = (int)gsl_linalg_balance_columns(arg1,arg2);
8121     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8122 
8123 
8124     XSRETURN(argvi);
8125   fail:
8126 
8127 
8128     SWIG_croak_null();
8129   }
8130 }
8131 
8132 
XS(_wrap_gsl_permutation_struct_size_set)8133 XS(_wrap_gsl_permutation_struct_size_set) {
8134   {
8135     struct gsl_permutation_struct *arg1 = (struct gsl_permutation_struct *) 0 ;
8136     size_t arg2 ;
8137     void *argp1 = 0 ;
8138     int res1 = 0 ;
8139     size_t val2 ;
8140     int ecode2 = 0 ;
8141     int argvi = 0;
8142     dXSARGS;
8143 
8144     if ((items < 2) || (items > 2)) {
8145       SWIG_croak("Usage: gsl_permutation_struct_size_set(self,size);");
8146     }
8147     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 |  0 );
8148     if (!SWIG_IsOK(res1)) {
8149       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_struct_size_set" "', argument " "1"" of type '" "struct gsl_permutation_struct *""'");
8150     }
8151     arg1 = (struct gsl_permutation_struct *)(argp1);
8152     ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
8153     if (!SWIG_IsOK(ecode2)) {
8154       SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_permutation_struct_size_set" "', argument " "2"" of type '" "size_t""'");
8155     }
8156     arg2 = (size_t)(val2);
8157     if (arg1) (arg1)->size = arg2;
8158     ST(argvi) = &PL_sv_undef;
8159 
8160 
8161     XSRETURN(argvi);
8162   fail:
8163 
8164 
8165     SWIG_croak_null();
8166   }
8167 }
8168 
8169 
XS(_wrap_gsl_permutation_struct_size_get)8170 XS(_wrap_gsl_permutation_struct_size_get) {
8171   {
8172     struct gsl_permutation_struct *arg1 = (struct gsl_permutation_struct *) 0 ;
8173     void *argp1 = 0 ;
8174     int res1 = 0 ;
8175     int argvi = 0;
8176     size_t result;
8177     dXSARGS;
8178 
8179     if ((items < 1) || (items > 1)) {
8180       SWIG_croak("Usage: gsl_permutation_struct_size_get(self);");
8181     }
8182     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 |  0 );
8183     if (!SWIG_IsOK(res1)) {
8184       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_struct_size_get" "', argument " "1"" of type '" "struct gsl_permutation_struct *""'");
8185     }
8186     arg1 = (struct gsl_permutation_struct *)(argp1);
8187     result =  ((arg1)->size);
8188     ST(argvi) = SWIG_From_size_t  SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
8189 
8190     XSRETURN(argvi);
8191   fail:
8192 
8193     SWIG_croak_null();
8194   }
8195 }
8196 
8197 
XS(_wrap_gsl_permutation_struct_data_set)8198 XS(_wrap_gsl_permutation_struct_data_set) {
8199   {
8200     struct gsl_permutation_struct *arg1 = (struct gsl_permutation_struct *) 0 ;
8201     size_t *arg2 = (size_t *) 0 ;
8202     void *argp1 = 0 ;
8203     int res1 = 0 ;
8204     void *argp2 = 0 ;
8205     int res2 = 0 ;
8206     int argvi = 0;
8207     dXSARGS;
8208 
8209     if ((items < 2) || (items > 2)) {
8210       SWIG_croak("Usage: gsl_permutation_struct_data_set(self,data);");
8211     }
8212     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 |  0 );
8213     if (!SWIG_IsOK(res1)) {
8214       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_struct_data_set" "', argument " "1"" of type '" "struct gsl_permutation_struct *""'");
8215     }
8216     arg1 = (struct gsl_permutation_struct *)(argp1);
8217     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_size_t, SWIG_POINTER_DISOWN |  0 );
8218     if (!SWIG_IsOK(res2)) {
8219       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_permutation_struct_data_set" "', argument " "2"" of type '" "size_t *""'");
8220     }
8221     arg2 = (size_t *)(argp2);
8222     if (arg1) (arg1)->data = arg2;
8223     ST(argvi) = &PL_sv_undef;
8224 
8225 
8226     XSRETURN(argvi);
8227   fail:
8228 
8229 
8230     SWIG_croak_null();
8231   }
8232 }
8233 
8234 
XS(_wrap_gsl_permutation_struct_data_get)8235 XS(_wrap_gsl_permutation_struct_data_get) {
8236   {
8237     struct gsl_permutation_struct *arg1 = (struct gsl_permutation_struct *) 0 ;
8238     void *argp1 = 0 ;
8239     int res1 = 0 ;
8240     int argvi = 0;
8241     size_t *result = 0 ;
8242     dXSARGS;
8243 
8244     if ((items < 1) || (items > 1)) {
8245       SWIG_croak("Usage: gsl_permutation_struct_data_get(self);");
8246     }
8247     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 |  0 );
8248     if (!SWIG_IsOK(res1)) {
8249       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_struct_data_get" "', argument " "1"" of type '" "struct gsl_permutation_struct *""'");
8250     }
8251     arg1 = (struct gsl_permutation_struct *)(argp1);
8252     result = (size_t *) ((arg1)->data);
8253     ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_size_t, 0 | 0); argvi++ ;
8254 
8255     XSRETURN(argvi);
8256   fail:
8257 
8258     SWIG_croak_null();
8259   }
8260 }
8261 
8262 
XS(_wrap_new_gsl_permutation_struct)8263 XS(_wrap_new_gsl_permutation_struct) {
8264   {
8265     int argvi = 0;
8266     struct gsl_permutation_struct *result = 0 ;
8267     dXSARGS;
8268 
8269     if ((items < 0) || (items > 0)) {
8270       SWIG_croak("Usage: new_gsl_permutation_struct();");
8271     }
8272     result = (struct gsl_permutation_struct *)calloc(1, sizeof(struct gsl_permutation_struct));
8273     ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_permutation_struct, SWIG_OWNER | SWIG_SHADOW); argvi++ ;
8274     XSRETURN(argvi);
8275   fail:
8276     SWIG_croak_null();
8277   }
8278 }
8279 
8280 
XS(_wrap_delete_gsl_permutation_struct)8281 XS(_wrap_delete_gsl_permutation_struct) {
8282   {
8283     struct gsl_permutation_struct *arg1 = (struct gsl_permutation_struct *) 0 ;
8284     void *argp1 = 0 ;
8285     int res1 = 0 ;
8286     int argvi = 0;
8287     dXSARGS;
8288 
8289     if ((items < 1) || (items > 1)) {
8290       SWIG_croak("Usage: delete_gsl_permutation_struct(self);");
8291     }
8292     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, SWIG_POINTER_DISOWN |  0 );
8293     if (!SWIG_IsOK(res1)) {
8294       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "delete_gsl_permutation_struct" "', argument " "1"" of type '" "struct gsl_permutation_struct *""'");
8295     }
8296     arg1 = (struct gsl_permutation_struct *)(argp1);
8297     free((char *) arg1);
8298     ST(argvi) = &PL_sv_undef;
8299 
8300     XSRETURN(argvi);
8301   fail:
8302 
8303     SWIG_croak_null();
8304   }
8305 }
8306 
8307 
XS(_wrap_gsl_permutation_alloc)8308 XS(_wrap_gsl_permutation_alloc) {
8309   {
8310     size_t arg1 ;
8311     size_t val1 ;
8312     int ecode1 = 0 ;
8313     int argvi = 0;
8314     gsl_permutation *result = 0 ;
8315     dXSARGS;
8316 
8317     if ((items < 1) || (items > 1)) {
8318       SWIG_croak("Usage: gsl_permutation_alloc(n);");
8319     }
8320     ecode1 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
8321     if (!SWIG_IsOK(ecode1)) {
8322       SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_permutation_alloc" "', argument " "1"" of type '" "size_t""'");
8323     }
8324     arg1 = (size_t)(val1);
8325     result = (gsl_permutation *)gsl_permutation_alloc(arg1);
8326     ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_permutation_struct, 0 | SWIG_SHADOW); argvi++ ;
8327 
8328     XSRETURN(argvi);
8329   fail:
8330 
8331     SWIG_croak_null();
8332   }
8333 }
8334 
8335 
XS(_wrap_gsl_permutation_calloc)8336 XS(_wrap_gsl_permutation_calloc) {
8337   {
8338     size_t arg1 ;
8339     size_t val1 ;
8340     int ecode1 = 0 ;
8341     int argvi = 0;
8342     gsl_permutation *result = 0 ;
8343     dXSARGS;
8344 
8345     if ((items < 1) || (items > 1)) {
8346       SWIG_croak("Usage: gsl_permutation_calloc(n);");
8347     }
8348     ecode1 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
8349     if (!SWIG_IsOK(ecode1)) {
8350       SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_permutation_calloc" "', argument " "1"" of type '" "size_t""'");
8351     }
8352     arg1 = (size_t)(val1);
8353     result = (gsl_permutation *)gsl_permutation_calloc(arg1);
8354     ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_permutation_struct, 0 | SWIG_SHADOW); argvi++ ;
8355 
8356     XSRETURN(argvi);
8357   fail:
8358 
8359     SWIG_croak_null();
8360   }
8361 }
8362 
8363 
XS(_wrap_gsl_permutation_init)8364 XS(_wrap_gsl_permutation_init) {
8365   {
8366     gsl_permutation *arg1 = (gsl_permutation *) 0 ;
8367     void *argp1 = 0 ;
8368     int res1 = 0 ;
8369     int argvi = 0;
8370     dXSARGS;
8371 
8372     if ((items < 1) || (items > 1)) {
8373       SWIG_croak("Usage: gsl_permutation_init(p);");
8374     }
8375     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 |  0 );
8376     if (!SWIG_IsOK(res1)) {
8377       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_init" "', argument " "1"" of type '" "gsl_permutation *""'");
8378     }
8379     arg1 = (gsl_permutation *)(argp1);
8380     gsl_permutation_init(arg1);
8381     ST(argvi) = &PL_sv_undef;
8382 
8383     XSRETURN(argvi);
8384   fail:
8385 
8386     SWIG_croak_null();
8387   }
8388 }
8389 
8390 
XS(_wrap_gsl_permutation_free)8391 XS(_wrap_gsl_permutation_free) {
8392   {
8393     gsl_permutation *arg1 = (gsl_permutation *) 0 ;
8394     void *argp1 = 0 ;
8395     int res1 = 0 ;
8396     int argvi = 0;
8397     dXSARGS;
8398 
8399     if ((items < 1) || (items > 1)) {
8400       SWIG_croak("Usage: gsl_permutation_free(p);");
8401     }
8402     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 |  0 );
8403     if (!SWIG_IsOK(res1)) {
8404       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_free" "', argument " "1"" of type '" "gsl_permutation *""'");
8405     }
8406     arg1 = (gsl_permutation *)(argp1);
8407     gsl_permutation_free(arg1);
8408     ST(argvi) = &PL_sv_undef;
8409 
8410     XSRETURN(argvi);
8411   fail:
8412 
8413     SWIG_croak_null();
8414   }
8415 }
8416 
8417 
XS(_wrap_gsl_permutation_memcpy)8418 XS(_wrap_gsl_permutation_memcpy) {
8419   {
8420     gsl_permutation *arg1 = (gsl_permutation *) 0 ;
8421     gsl_permutation *arg2 = (gsl_permutation *) 0 ;
8422     void *argp1 = 0 ;
8423     int res1 = 0 ;
8424     void *argp2 = 0 ;
8425     int res2 = 0 ;
8426     int argvi = 0;
8427     int result;
8428     dXSARGS;
8429 
8430     if ((items < 2) || (items > 2)) {
8431       SWIG_croak("Usage: gsl_permutation_memcpy(dest,src);");
8432     }
8433     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 |  0 );
8434     if (!SWIG_IsOK(res1)) {
8435       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_memcpy" "', argument " "1"" of type '" "gsl_permutation *""'");
8436     }
8437     arg1 = (gsl_permutation *)(argp1);
8438     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 |  0 );
8439     if (!SWIG_IsOK(res2)) {
8440       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_permutation_memcpy" "', argument " "2"" of type '" "gsl_permutation const *""'");
8441     }
8442     arg2 = (gsl_permutation *)(argp2);
8443     result = (int)gsl_permutation_memcpy(arg1,(struct gsl_permutation_struct const *)arg2);
8444     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8445 
8446 
8447     XSRETURN(argvi);
8448   fail:
8449 
8450 
8451     SWIG_croak_null();
8452   }
8453 }
8454 
8455 
XS(_wrap_gsl_permutation_fread)8456 XS(_wrap_gsl_permutation_fread) {
8457   {
8458     FILE *arg1 = (FILE *) 0 ;
8459     gsl_permutation *arg2 = (gsl_permutation *) 0 ;
8460     void *argp1 = 0 ;
8461     int res1 = 0 ;
8462     void *argp2 = 0 ;
8463     int res2 = 0 ;
8464     int argvi = 0;
8465     int result;
8466     dXSARGS;
8467 
8468     if ((items < 2) || (items > 2)) {
8469       SWIG_croak("Usage: gsl_permutation_fread(stream,p);");
8470     }
8471     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_FILE, 0 |  0 );
8472     if (!SWIG_IsOK(res1)) {
8473       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_fread" "', argument " "1"" of type '" "FILE *""'");
8474     }
8475     arg1 = (FILE *)(argp1);
8476     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 |  0 );
8477     if (!SWIG_IsOK(res2)) {
8478       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_permutation_fread" "', argument " "2"" of type '" "gsl_permutation *""'");
8479     }
8480     arg2 = (gsl_permutation *)(argp2);
8481     result = (int)gsl_permutation_fread(arg1,arg2);
8482     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8483 
8484 
8485     XSRETURN(argvi);
8486   fail:
8487 
8488 
8489     SWIG_croak_null();
8490   }
8491 }
8492 
8493 
XS(_wrap_gsl_permutation_fwrite)8494 XS(_wrap_gsl_permutation_fwrite) {
8495   {
8496     FILE *arg1 = (FILE *) 0 ;
8497     gsl_permutation *arg2 = (gsl_permutation *) 0 ;
8498     void *argp1 = 0 ;
8499     int res1 = 0 ;
8500     void *argp2 = 0 ;
8501     int res2 = 0 ;
8502     int argvi = 0;
8503     int result;
8504     dXSARGS;
8505 
8506     if ((items < 2) || (items > 2)) {
8507       SWIG_croak("Usage: gsl_permutation_fwrite(stream,p);");
8508     }
8509     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_FILE, 0 |  0 );
8510     if (!SWIG_IsOK(res1)) {
8511       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_fwrite" "', argument " "1"" of type '" "FILE *""'");
8512     }
8513     arg1 = (FILE *)(argp1);
8514     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 |  0 );
8515     if (!SWIG_IsOK(res2)) {
8516       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_permutation_fwrite" "', argument " "2"" of type '" "gsl_permutation const *""'");
8517     }
8518     arg2 = (gsl_permutation *)(argp2);
8519     result = (int)gsl_permutation_fwrite(arg1,(struct gsl_permutation_struct const *)arg2);
8520     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8521 
8522 
8523     XSRETURN(argvi);
8524   fail:
8525 
8526 
8527     SWIG_croak_null();
8528   }
8529 }
8530 
8531 
XS(_wrap_gsl_permutation_fscanf)8532 XS(_wrap_gsl_permutation_fscanf) {
8533   {
8534     FILE *arg1 = (FILE *) 0 ;
8535     gsl_permutation *arg2 = (gsl_permutation *) 0 ;
8536     void *argp1 = 0 ;
8537     int res1 = 0 ;
8538     void *argp2 = 0 ;
8539     int res2 = 0 ;
8540     int argvi = 0;
8541     int result;
8542     dXSARGS;
8543 
8544     if ((items < 2) || (items > 2)) {
8545       SWIG_croak("Usage: gsl_permutation_fscanf(stream,p);");
8546     }
8547     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_FILE, 0 |  0 );
8548     if (!SWIG_IsOK(res1)) {
8549       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_fscanf" "', argument " "1"" of type '" "FILE *""'");
8550     }
8551     arg1 = (FILE *)(argp1);
8552     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 |  0 );
8553     if (!SWIG_IsOK(res2)) {
8554       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_permutation_fscanf" "', argument " "2"" of type '" "gsl_permutation *""'");
8555     }
8556     arg2 = (gsl_permutation *)(argp2);
8557     result = (int)gsl_permutation_fscanf(arg1,arg2);
8558     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8559 
8560 
8561     XSRETURN(argvi);
8562   fail:
8563 
8564 
8565     SWIG_croak_null();
8566   }
8567 }
8568 
8569 
XS(_wrap_gsl_permutation_fprintf)8570 XS(_wrap_gsl_permutation_fprintf) {
8571   {
8572     FILE *arg1 = (FILE *) 0 ;
8573     gsl_permutation *arg2 = (gsl_permutation *) 0 ;
8574     char *arg3 = (char *) 0 ;
8575     void *argp1 = 0 ;
8576     int res1 = 0 ;
8577     void *argp2 = 0 ;
8578     int res2 = 0 ;
8579     int res3 ;
8580     char *buf3 = 0 ;
8581     int alloc3 = 0 ;
8582     int argvi = 0;
8583     int result;
8584     dXSARGS;
8585 
8586     if ((items < 3) || (items > 3)) {
8587       SWIG_croak("Usage: gsl_permutation_fprintf(stream,p,format);");
8588     }
8589     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_FILE, 0 |  0 );
8590     if (!SWIG_IsOK(res1)) {
8591       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_fprintf" "', argument " "1"" of type '" "FILE *""'");
8592     }
8593     arg1 = (FILE *)(argp1);
8594     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 |  0 );
8595     if (!SWIG_IsOK(res2)) {
8596       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_permutation_fprintf" "', argument " "2"" of type '" "gsl_permutation const *""'");
8597     }
8598     arg2 = (gsl_permutation *)(argp2);
8599     res3 = SWIG_AsCharPtrAndSize(ST(2), &buf3, NULL, &alloc3);
8600     if (!SWIG_IsOK(res3)) {
8601       SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_permutation_fprintf" "', argument " "3"" of type '" "char const *""'");
8602     }
8603     arg3 = (char *)(buf3);
8604     result = (int)gsl_permutation_fprintf(arg1,(struct gsl_permutation_struct const *)arg2,(char const *)arg3);
8605     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8606 
8607 
8608     if (alloc3 == SWIG_NEWOBJ) free((char*)buf3);
8609     XSRETURN(argvi);
8610   fail:
8611 
8612 
8613     if (alloc3 == SWIG_NEWOBJ) free((char*)buf3);
8614     SWIG_croak_null();
8615   }
8616 }
8617 
8618 
XS(_wrap_gsl_permutation_size)8619 XS(_wrap_gsl_permutation_size) {
8620   {
8621     gsl_permutation *arg1 = (gsl_permutation *) 0 ;
8622     void *argp1 = 0 ;
8623     int res1 = 0 ;
8624     int argvi = 0;
8625     size_t result;
8626     dXSARGS;
8627 
8628     if ((items < 1) || (items > 1)) {
8629       SWIG_croak("Usage: gsl_permutation_size(p);");
8630     }
8631     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 |  0 );
8632     if (!SWIG_IsOK(res1)) {
8633       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_size" "', argument " "1"" of type '" "gsl_permutation const *""'");
8634     }
8635     arg1 = (gsl_permutation *)(argp1);
8636     result = gsl_permutation_size((struct gsl_permutation_struct const *)arg1);
8637     ST(argvi) = SWIG_From_size_t  SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
8638 
8639     XSRETURN(argvi);
8640   fail:
8641 
8642     SWIG_croak_null();
8643   }
8644 }
8645 
8646 
XS(_wrap_gsl_permutation_data)8647 XS(_wrap_gsl_permutation_data) {
8648   {
8649     gsl_permutation *arg1 = (gsl_permutation *) 0 ;
8650     void *argp1 = 0 ;
8651     int res1 = 0 ;
8652     int argvi = 0;
8653     size_t *result = 0 ;
8654     dXSARGS;
8655 
8656     if ((items < 1) || (items > 1)) {
8657       SWIG_croak("Usage: gsl_permutation_data(p);");
8658     }
8659     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 |  0 );
8660     if (!SWIG_IsOK(res1)) {
8661       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_data" "', argument " "1"" of type '" "gsl_permutation const *""'");
8662     }
8663     arg1 = (gsl_permutation *)(argp1);
8664     result = (size_t *)gsl_permutation_data((struct gsl_permutation_struct const *)arg1);
8665     ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_size_t, 0 | 0); argvi++ ;
8666 
8667     XSRETURN(argvi);
8668   fail:
8669 
8670     SWIG_croak_null();
8671   }
8672 }
8673 
8674 
XS(_wrap_gsl_permutation_swap)8675 XS(_wrap_gsl_permutation_swap) {
8676   {
8677     gsl_permutation *arg1 = (gsl_permutation *) 0 ;
8678     size_t arg2 ;
8679     size_t arg3 ;
8680     void *argp1 = 0 ;
8681     int res1 = 0 ;
8682     size_t val2 ;
8683     int ecode2 = 0 ;
8684     size_t val3 ;
8685     int ecode3 = 0 ;
8686     int argvi = 0;
8687     int result;
8688     dXSARGS;
8689 
8690     if ((items < 3) || (items > 3)) {
8691       SWIG_croak("Usage: gsl_permutation_swap(p,i,j);");
8692     }
8693     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 |  0 );
8694     if (!SWIG_IsOK(res1)) {
8695       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_swap" "', argument " "1"" of type '" "gsl_permutation *""'");
8696     }
8697     arg1 = (gsl_permutation *)(argp1);
8698     ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
8699     if (!SWIG_IsOK(ecode2)) {
8700       SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_permutation_swap" "', argument " "2"" of type '" "size_t""'");
8701     }
8702     arg2 = (size_t)(val2);
8703     ecode3 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
8704     if (!SWIG_IsOK(ecode3)) {
8705       SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_permutation_swap" "', argument " "3"" of type '" "size_t""'");
8706     }
8707     arg3 = (size_t)(val3);
8708     result = (int)gsl_permutation_swap(arg1,arg2,arg3);
8709     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8710 
8711 
8712 
8713     XSRETURN(argvi);
8714   fail:
8715 
8716 
8717 
8718     SWIG_croak_null();
8719   }
8720 }
8721 
8722 
XS(_wrap_gsl_permutation_valid)8723 XS(_wrap_gsl_permutation_valid) {
8724   {
8725     gsl_permutation *arg1 = (gsl_permutation *) 0 ;
8726     void *argp1 = 0 ;
8727     int res1 = 0 ;
8728     int argvi = 0;
8729     int result;
8730     dXSARGS;
8731 
8732     if ((items < 1) || (items > 1)) {
8733       SWIG_croak("Usage: gsl_permutation_valid(p);");
8734     }
8735     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 |  0 );
8736     if (!SWIG_IsOK(res1)) {
8737       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_valid" "', argument " "1"" of type '" "gsl_permutation const *""'");
8738     }
8739     arg1 = (gsl_permutation *)(argp1);
8740     result = (int)gsl_permutation_valid((struct gsl_permutation_struct const *)arg1);
8741     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8742 
8743     XSRETURN(argvi);
8744   fail:
8745 
8746     SWIG_croak_null();
8747   }
8748 }
8749 
8750 
XS(_wrap_gsl_permutation_reverse)8751 XS(_wrap_gsl_permutation_reverse) {
8752   {
8753     gsl_permutation *arg1 = (gsl_permutation *) 0 ;
8754     void *argp1 = 0 ;
8755     int res1 = 0 ;
8756     int argvi = 0;
8757     dXSARGS;
8758 
8759     if ((items < 1) || (items > 1)) {
8760       SWIG_croak("Usage: gsl_permutation_reverse(p);");
8761     }
8762     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 |  0 );
8763     if (!SWIG_IsOK(res1)) {
8764       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_reverse" "', argument " "1"" of type '" "gsl_permutation *""'");
8765     }
8766     arg1 = (gsl_permutation *)(argp1);
8767     gsl_permutation_reverse(arg1);
8768     ST(argvi) = &PL_sv_undef;
8769 
8770     XSRETURN(argvi);
8771   fail:
8772 
8773     SWIG_croak_null();
8774   }
8775 }
8776 
8777 
XS(_wrap_gsl_permutation_inverse)8778 XS(_wrap_gsl_permutation_inverse) {
8779   {
8780     gsl_permutation *arg1 = (gsl_permutation *) 0 ;
8781     gsl_permutation *arg2 = (gsl_permutation *) 0 ;
8782     void *argp1 = 0 ;
8783     int res1 = 0 ;
8784     void *argp2 = 0 ;
8785     int res2 = 0 ;
8786     int argvi = 0;
8787     int result;
8788     dXSARGS;
8789 
8790     if ((items < 2) || (items > 2)) {
8791       SWIG_croak("Usage: gsl_permutation_inverse(inv,p);");
8792     }
8793     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 |  0 );
8794     if (!SWIG_IsOK(res1)) {
8795       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_inverse" "', argument " "1"" of type '" "gsl_permutation *""'");
8796     }
8797     arg1 = (gsl_permutation *)(argp1);
8798     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 |  0 );
8799     if (!SWIG_IsOK(res2)) {
8800       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_permutation_inverse" "', argument " "2"" of type '" "gsl_permutation const *""'");
8801     }
8802     arg2 = (gsl_permutation *)(argp2);
8803     result = (int)gsl_permutation_inverse(arg1,(struct gsl_permutation_struct const *)arg2);
8804     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8805 
8806 
8807     XSRETURN(argvi);
8808   fail:
8809 
8810 
8811     SWIG_croak_null();
8812   }
8813 }
8814 
8815 
XS(_wrap_gsl_permutation_next)8816 XS(_wrap_gsl_permutation_next) {
8817   {
8818     gsl_permutation *arg1 = (gsl_permutation *) 0 ;
8819     void *argp1 = 0 ;
8820     int res1 = 0 ;
8821     int argvi = 0;
8822     int result;
8823     dXSARGS;
8824 
8825     if ((items < 1) || (items > 1)) {
8826       SWIG_croak("Usage: gsl_permutation_next(p);");
8827     }
8828     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 |  0 );
8829     if (!SWIG_IsOK(res1)) {
8830       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_next" "', argument " "1"" of type '" "gsl_permutation *""'");
8831     }
8832     arg1 = (gsl_permutation *)(argp1);
8833     result = (int)gsl_permutation_next(arg1);
8834     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8835 
8836     XSRETURN(argvi);
8837   fail:
8838 
8839     SWIG_croak_null();
8840   }
8841 }
8842 
8843 
XS(_wrap_gsl_permutation_prev)8844 XS(_wrap_gsl_permutation_prev) {
8845   {
8846     gsl_permutation *arg1 = (gsl_permutation *) 0 ;
8847     void *argp1 = 0 ;
8848     int res1 = 0 ;
8849     int argvi = 0;
8850     int result;
8851     dXSARGS;
8852 
8853     if ((items < 1) || (items > 1)) {
8854       SWIG_croak("Usage: gsl_permutation_prev(p);");
8855     }
8856     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 |  0 );
8857     if (!SWIG_IsOK(res1)) {
8858       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_prev" "', argument " "1"" of type '" "gsl_permutation *""'");
8859     }
8860     arg1 = (gsl_permutation *)(argp1);
8861     result = (int)gsl_permutation_prev(arg1);
8862     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8863 
8864     XSRETURN(argvi);
8865   fail:
8866 
8867     SWIG_croak_null();
8868   }
8869 }
8870 
8871 
XS(_wrap_gsl_permutation_mul)8872 XS(_wrap_gsl_permutation_mul) {
8873   {
8874     gsl_permutation *arg1 = (gsl_permutation *) 0 ;
8875     gsl_permutation *arg2 = (gsl_permutation *) 0 ;
8876     gsl_permutation *arg3 = (gsl_permutation *) 0 ;
8877     void *argp1 = 0 ;
8878     int res1 = 0 ;
8879     void *argp2 = 0 ;
8880     int res2 = 0 ;
8881     void *argp3 = 0 ;
8882     int res3 = 0 ;
8883     int argvi = 0;
8884     int result;
8885     dXSARGS;
8886 
8887     if ((items < 3) || (items > 3)) {
8888       SWIG_croak("Usage: gsl_permutation_mul(p,pa,pb);");
8889     }
8890     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 |  0 );
8891     if (!SWIG_IsOK(res1)) {
8892       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_mul" "', argument " "1"" of type '" "gsl_permutation *""'");
8893     }
8894     arg1 = (gsl_permutation *)(argp1);
8895     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 |  0 );
8896     if (!SWIG_IsOK(res2)) {
8897       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_permutation_mul" "', argument " "2"" of type '" "gsl_permutation const *""'");
8898     }
8899     arg2 = (gsl_permutation *)(argp2);
8900     res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_permutation_struct, 0 |  0 );
8901     if (!SWIG_IsOK(res3)) {
8902       SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_permutation_mul" "', argument " "3"" of type '" "gsl_permutation const *""'");
8903     }
8904     arg3 = (gsl_permutation *)(argp3);
8905     result = (int)gsl_permutation_mul(arg1,(struct gsl_permutation_struct const *)arg2,(struct gsl_permutation_struct const *)arg3);
8906     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8907 
8908 
8909 
8910     XSRETURN(argvi);
8911   fail:
8912 
8913 
8914 
8915     SWIG_croak_null();
8916   }
8917 }
8918 
8919 
XS(_wrap_gsl_permutation_linear_to_canonical)8920 XS(_wrap_gsl_permutation_linear_to_canonical) {
8921   {
8922     gsl_permutation *arg1 = (gsl_permutation *) 0 ;
8923     gsl_permutation *arg2 = (gsl_permutation *) 0 ;
8924     void *argp1 = 0 ;
8925     int res1 = 0 ;
8926     void *argp2 = 0 ;
8927     int res2 = 0 ;
8928     int argvi = 0;
8929     int result;
8930     dXSARGS;
8931 
8932     if ((items < 2) || (items > 2)) {
8933       SWIG_croak("Usage: gsl_permutation_linear_to_canonical(q,p);");
8934     }
8935     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 |  0 );
8936     if (!SWIG_IsOK(res1)) {
8937       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_linear_to_canonical" "', argument " "1"" of type '" "gsl_permutation *""'");
8938     }
8939     arg1 = (gsl_permutation *)(argp1);
8940     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 |  0 );
8941     if (!SWIG_IsOK(res2)) {
8942       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_permutation_linear_to_canonical" "', argument " "2"" of type '" "gsl_permutation const *""'");
8943     }
8944     arg2 = (gsl_permutation *)(argp2);
8945     result = (int)gsl_permutation_linear_to_canonical(arg1,(struct gsl_permutation_struct const *)arg2);
8946     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8947 
8948 
8949     XSRETURN(argvi);
8950   fail:
8951 
8952 
8953     SWIG_croak_null();
8954   }
8955 }
8956 
8957 
XS(_wrap_gsl_permutation_canonical_to_linear)8958 XS(_wrap_gsl_permutation_canonical_to_linear) {
8959   {
8960     gsl_permutation *arg1 = (gsl_permutation *) 0 ;
8961     gsl_permutation *arg2 = (gsl_permutation *) 0 ;
8962     void *argp1 = 0 ;
8963     int res1 = 0 ;
8964     void *argp2 = 0 ;
8965     int res2 = 0 ;
8966     int argvi = 0;
8967     int result;
8968     dXSARGS;
8969 
8970     if ((items < 2) || (items > 2)) {
8971       SWIG_croak("Usage: gsl_permutation_canonical_to_linear(p,q);");
8972     }
8973     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 |  0 );
8974     if (!SWIG_IsOK(res1)) {
8975       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_canonical_to_linear" "', argument " "1"" of type '" "gsl_permutation *""'");
8976     }
8977     arg1 = (gsl_permutation *)(argp1);
8978     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 |  0 );
8979     if (!SWIG_IsOK(res2)) {
8980       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_permutation_canonical_to_linear" "', argument " "2"" of type '" "gsl_permutation const *""'");
8981     }
8982     arg2 = (gsl_permutation *)(argp2);
8983     result = (int)gsl_permutation_canonical_to_linear(arg1,(struct gsl_permutation_struct const *)arg2);
8984     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8985 
8986 
8987     XSRETURN(argvi);
8988   fail:
8989 
8990 
8991     SWIG_croak_null();
8992   }
8993 }
8994 
8995 
XS(_wrap_gsl_permutation_inversions)8996 XS(_wrap_gsl_permutation_inversions) {
8997   {
8998     gsl_permutation *arg1 = (gsl_permutation *) 0 ;
8999     void *argp1 = 0 ;
9000     int res1 = 0 ;
9001     int argvi = 0;
9002     size_t result;
9003     dXSARGS;
9004 
9005     if ((items < 1) || (items > 1)) {
9006       SWIG_croak("Usage: gsl_permutation_inversions(p);");
9007     }
9008     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 |  0 );
9009     if (!SWIG_IsOK(res1)) {
9010       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_inversions" "', argument " "1"" of type '" "gsl_permutation const *""'");
9011     }
9012     arg1 = (gsl_permutation *)(argp1);
9013     result = gsl_permutation_inversions((struct gsl_permutation_struct const *)arg1);
9014     ST(argvi) = SWIG_From_size_t  SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
9015 
9016     XSRETURN(argvi);
9017   fail:
9018 
9019     SWIG_croak_null();
9020   }
9021 }
9022 
9023 
XS(_wrap_gsl_permutation_linear_cycles)9024 XS(_wrap_gsl_permutation_linear_cycles) {
9025   {
9026     gsl_permutation *arg1 = (gsl_permutation *) 0 ;
9027     void *argp1 = 0 ;
9028     int res1 = 0 ;
9029     int argvi = 0;
9030     size_t result;
9031     dXSARGS;
9032 
9033     if ((items < 1) || (items > 1)) {
9034       SWIG_croak("Usage: gsl_permutation_linear_cycles(p);");
9035     }
9036     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 |  0 );
9037     if (!SWIG_IsOK(res1)) {
9038       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_linear_cycles" "', argument " "1"" of type '" "gsl_permutation const *""'");
9039     }
9040     arg1 = (gsl_permutation *)(argp1);
9041     result = gsl_permutation_linear_cycles((struct gsl_permutation_struct const *)arg1);
9042     ST(argvi) = SWIG_From_size_t  SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
9043 
9044     XSRETURN(argvi);
9045   fail:
9046 
9047     SWIG_croak_null();
9048   }
9049 }
9050 
9051 
XS(_wrap_gsl_permutation_canonical_cycles)9052 XS(_wrap_gsl_permutation_canonical_cycles) {
9053   {
9054     gsl_permutation *arg1 = (gsl_permutation *) 0 ;
9055     void *argp1 = 0 ;
9056     int res1 = 0 ;
9057     int argvi = 0;
9058     size_t result;
9059     dXSARGS;
9060 
9061     if ((items < 1) || (items > 1)) {
9062       SWIG_croak("Usage: gsl_permutation_canonical_cycles(q);");
9063     }
9064     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 |  0 );
9065     if (!SWIG_IsOK(res1)) {
9066       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_canonical_cycles" "', argument " "1"" of type '" "gsl_permutation const *""'");
9067     }
9068     arg1 = (gsl_permutation *)(argp1);
9069     result = gsl_permutation_canonical_cycles((struct gsl_permutation_struct const *)arg1);
9070     ST(argvi) = SWIG_From_size_t  SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
9071 
9072     XSRETURN(argvi);
9073   fail:
9074 
9075     SWIG_croak_null();
9076   }
9077 }
9078 
9079 
XS(_wrap_gsl_permutation_get)9080 XS(_wrap_gsl_permutation_get) {
9081   {
9082     gsl_permutation *arg1 = (gsl_permutation *) 0 ;
9083     size_t arg2 ;
9084     void *argp1 = 0 ;
9085     int res1 = 0 ;
9086     size_t val2 ;
9087     int ecode2 = 0 ;
9088     int argvi = 0;
9089     size_t result;
9090     dXSARGS;
9091 
9092     if ((items < 2) || (items > 2)) {
9093       SWIG_croak("Usage: gsl_permutation_get(p,i);");
9094     }
9095     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 |  0 );
9096     if (!SWIG_IsOK(res1)) {
9097       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_get" "', argument " "1"" of type '" "gsl_permutation const *""'");
9098     }
9099     arg1 = (gsl_permutation *)(argp1);
9100     ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
9101     if (!SWIG_IsOK(ecode2)) {
9102       SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_permutation_get" "', argument " "2"" of type '" "size_t""'");
9103     }
9104     arg2 = (size_t)(val2);
9105     result = gsl_permutation_get((struct gsl_permutation_struct const *)arg1,arg2);
9106     ST(argvi) = SWIG_From_size_t  SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
9107 
9108 
9109     XSRETURN(argvi);
9110   fail:
9111 
9112 
9113     SWIG_croak_null();
9114   }
9115 }
9116 
9117 
XS(_wrap_gsl_complex_dat_set)9118 XS(_wrap_gsl_complex_dat_set) {
9119   {
9120     gsl_complex *arg1 = (gsl_complex *) 0 ;
9121     double *arg2 ;
9122     void *argp1 = 0 ;
9123     int res1 = 0 ;
9124     void *argp2 = 0 ;
9125     int res2 = 0 ;
9126     int argvi = 0;
9127     dXSARGS;
9128 
9129     if ((items < 2) || (items > 2)) {
9130       SWIG_croak("Usage: gsl_complex_dat_set(self,dat);");
9131     }
9132     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_complex, 0 |  0 );
9133     if (!SWIG_IsOK(res1)) {
9134       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_dat_set" "', argument " "1"" of type '" "gsl_complex *""'");
9135     }
9136     arg1 = (gsl_complex *)(argp1);
9137     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_double, 0 |  0 );
9138     if (!SWIG_IsOK(res2)) {
9139       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_complex_dat_set" "', argument " "2"" of type '" "double [2]""'");
9140     }
9141     arg2 = (double *)(argp2);
9142     {
9143       if (arg2) {
9144         size_t ii = 0;
9145         for (; ii < (size_t)2; ++ii) *(double *)&arg1->dat[ii] = *((double *)arg2 + ii);
9146       } else {
9147         SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in variable '""dat""' of type '""double [2]""'");
9148       }
9149     }
9150     ST(argvi) = &PL_sv_undef;
9151 
9152 
9153     XSRETURN(argvi);
9154   fail:
9155 
9156 
9157     SWIG_croak_null();
9158   }
9159 }
9160 
9161 
XS(_wrap_gsl_complex_dat_get)9162 XS(_wrap_gsl_complex_dat_get) {
9163   {
9164     gsl_complex *arg1 = (gsl_complex *) 0 ;
9165     void *argp1 = 0 ;
9166     int res1 = 0 ;
9167     int argvi = 0;
9168     double *result = 0 ;
9169     dXSARGS;
9170 
9171     if ((items < 1) || (items > 1)) {
9172       SWIG_croak("Usage: gsl_complex_dat_get(self);");
9173     }
9174     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_complex, 0 |  0 );
9175     if (!SWIG_IsOK(res1)) {
9176       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_dat_get" "', argument " "1"" of type '" "gsl_complex *""'");
9177     }
9178     arg1 = (gsl_complex *)(argp1);
9179     result = (double *)(double *) ((arg1)->dat);
9180     ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_double, 0 | 0); argvi++ ;
9181 
9182     XSRETURN(argvi);
9183   fail:
9184 
9185     SWIG_croak_null();
9186   }
9187 }
9188 
9189 
XS(_wrap_new_gsl_complex)9190 XS(_wrap_new_gsl_complex) {
9191   {
9192     int argvi = 0;
9193     gsl_complex *result = 0 ;
9194     dXSARGS;
9195 
9196     if ((items < 0) || (items > 0)) {
9197       SWIG_croak("Usage: new_gsl_complex();");
9198     }
9199     result = (gsl_complex *)calloc(1, sizeof(gsl_complex));
9200     ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_complex, SWIG_OWNER | SWIG_SHADOW); argvi++ ;
9201     XSRETURN(argvi);
9202   fail:
9203     SWIG_croak_null();
9204   }
9205 }
9206 
9207 
XS(_wrap_delete_gsl_complex)9208 XS(_wrap_delete_gsl_complex) {
9209   {
9210     gsl_complex *arg1 = (gsl_complex *) 0 ;
9211     void *argp1 = 0 ;
9212     int res1 = 0 ;
9213     int argvi = 0;
9214     dXSARGS;
9215 
9216     if ((items < 1) || (items > 1)) {
9217       SWIG_croak("Usage: delete_gsl_complex(self);");
9218     }
9219     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_complex, SWIG_POINTER_DISOWN |  0 );
9220     if (!SWIG_IsOK(res1)) {
9221       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "delete_gsl_complex" "', argument " "1"" of type '" "gsl_complex *""'");
9222     }
9223     arg1 = (gsl_complex *)(argp1);
9224     free((char *) arg1);
9225     ST(argvi) = &PL_sv_undef;
9226 
9227     XSRETURN(argvi);
9228   fail:
9229 
9230     SWIG_croak_null();
9231   }
9232 }
9233 
9234 
XS(_wrap_gsl_complex_long_double_dat_set)9235 XS(_wrap_gsl_complex_long_double_dat_set) {
9236   {
9237     gsl_complex_long_double *arg1 = (gsl_complex_long_double *) 0 ;
9238     long double *arg2 ;
9239     void *argp1 = 0 ;
9240     int res1 = 0 ;
9241     void *argp2 = 0 ;
9242     int res2 = 0 ;
9243     int argvi = 0;
9244     dXSARGS;
9245 
9246     if ((items < 2) || (items > 2)) {
9247       SWIG_croak("Usage: gsl_complex_long_double_dat_set(self,dat);");
9248     }
9249     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_complex_long_double, 0 |  0 );
9250     if (!SWIG_IsOK(res1)) {
9251       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_long_double_dat_set" "', argument " "1"" of type '" "gsl_complex_long_double *""'");
9252     }
9253     arg1 = (gsl_complex_long_double *)(argp1);
9254     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_long_double, 0 |  0 );
9255     if (!SWIG_IsOK(res2)) {
9256       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_complex_long_double_dat_set" "', argument " "2"" of type '" "long double [2]""'");
9257     }
9258     arg2 = (long double *)(argp2);
9259     {
9260       if (arg2) {
9261         size_t ii = 0;
9262         for (; ii < (size_t)2; ++ii) *(long double *)&arg1->dat[ii] = *((long double *)arg2 + ii);
9263       } else {
9264         SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in variable '""dat""' of type '""long double [2]""'");
9265       }
9266     }
9267     ST(argvi) = &PL_sv_undef;
9268 
9269 
9270     XSRETURN(argvi);
9271   fail:
9272 
9273 
9274     SWIG_croak_null();
9275   }
9276 }
9277 
9278 
XS(_wrap_gsl_complex_long_double_dat_get)9279 XS(_wrap_gsl_complex_long_double_dat_get) {
9280   {
9281     gsl_complex_long_double *arg1 = (gsl_complex_long_double *) 0 ;
9282     void *argp1 = 0 ;
9283     int res1 = 0 ;
9284     int argvi = 0;
9285     long double *result = 0 ;
9286     dXSARGS;
9287 
9288     if ((items < 1) || (items > 1)) {
9289       SWIG_croak("Usage: gsl_complex_long_double_dat_get(self);");
9290     }
9291     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_complex_long_double, 0 |  0 );
9292     if (!SWIG_IsOK(res1)) {
9293       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_long_double_dat_get" "', argument " "1"" of type '" "gsl_complex_long_double *""'");
9294     }
9295     arg1 = (gsl_complex_long_double *)(argp1);
9296     result = (long double *)(long double *) ((arg1)->dat);
9297     ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_long_double, 0 | 0); argvi++ ;
9298 
9299     XSRETURN(argvi);
9300   fail:
9301 
9302     SWIG_croak_null();
9303   }
9304 }
9305 
9306 
XS(_wrap_new_gsl_complex_long_double)9307 XS(_wrap_new_gsl_complex_long_double) {
9308   {
9309     int argvi = 0;
9310     gsl_complex_long_double *result = 0 ;
9311     dXSARGS;
9312 
9313     if ((items < 0) || (items > 0)) {
9314       SWIG_croak("Usage: new_gsl_complex_long_double();");
9315     }
9316     result = (gsl_complex_long_double *)calloc(1, sizeof(gsl_complex_long_double));
9317     ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_complex_long_double, SWIG_OWNER | SWIG_SHADOW); argvi++ ;
9318     XSRETURN(argvi);
9319   fail:
9320     SWIG_croak_null();
9321   }
9322 }
9323 
9324 
XS(_wrap_delete_gsl_complex_long_double)9325 XS(_wrap_delete_gsl_complex_long_double) {
9326   {
9327     gsl_complex_long_double *arg1 = (gsl_complex_long_double *) 0 ;
9328     void *argp1 = 0 ;
9329     int res1 = 0 ;
9330     int argvi = 0;
9331     dXSARGS;
9332 
9333     if ((items < 1) || (items > 1)) {
9334       SWIG_croak("Usage: delete_gsl_complex_long_double(self);");
9335     }
9336     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_complex_long_double, SWIG_POINTER_DISOWN |  0 );
9337     if (!SWIG_IsOK(res1)) {
9338       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "delete_gsl_complex_long_double" "', argument " "1"" of type '" "gsl_complex_long_double *""'");
9339     }
9340     arg1 = (gsl_complex_long_double *)(argp1);
9341     free((char *) arg1);
9342     ST(argvi) = &PL_sv_undef;
9343 
9344     XSRETURN(argvi);
9345   fail:
9346 
9347     SWIG_croak_null();
9348   }
9349 }
9350 
9351 
XS(_wrap_gsl_complex_float_dat_set)9352 XS(_wrap_gsl_complex_float_dat_set) {
9353   {
9354     gsl_complex_float *arg1 = (gsl_complex_float *) 0 ;
9355     float *arg2 ;
9356     void *argp1 = 0 ;
9357     int res1 = 0 ;
9358     void *argp2 = 0 ;
9359     int res2 = 0 ;
9360     int argvi = 0;
9361     dXSARGS;
9362 
9363     if ((items < 2) || (items > 2)) {
9364       SWIG_croak("Usage: gsl_complex_float_dat_set(self,dat);");
9365     }
9366     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_complex_float, 0 |  0 );
9367     if (!SWIG_IsOK(res1)) {
9368       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_float_dat_set" "', argument " "1"" of type '" "gsl_complex_float *""'");
9369     }
9370     arg1 = (gsl_complex_float *)(argp1);
9371     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_float, 0 |  0 );
9372     if (!SWIG_IsOK(res2)) {
9373       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_complex_float_dat_set" "', argument " "2"" of type '" "float [2]""'");
9374     }
9375     arg2 = (float *)(argp2);
9376     {
9377       if (arg2) {
9378         size_t ii = 0;
9379         for (; ii < (size_t)2; ++ii) *(float *)&arg1->dat[ii] = *((float *)arg2 + ii);
9380       } else {
9381         SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in variable '""dat""' of type '""float [2]""'");
9382       }
9383     }
9384     ST(argvi) = &PL_sv_undef;
9385 
9386 
9387     XSRETURN(argvi);
9388   fail:
9389 
9390 
9391     SWIG_croak_null();
9392   }
9393 }
9394 
9395 
XS(_wrap_gsl_complex_float_dat_get)9396 XS(_wrap_gsl_complex_float_dat_get) {
9397   {
9398     gsl_complex_float *arg1 = (gsl_complex_float *) 0 ;
9399     void *argp1 = 0 ;
9400     int res1 = 0 ;
9401     int argvi = 0;
9402     float *result = 0 ;
9403     dXSARGS;
9404 
9405     if ((items < 1) || (items > 1)) {
9406       SWIG_croak("Usage: gsl_complex_float_dat_get(self);");
9407     }
9408     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_complex_float, 0 |  0 );
9409     if (!SWIG_IsOK(res1)) {
9410       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_float_dat_get" "', argument " "1"" of type '" "gsl_complex_float *""'");
9411     }
9412     arg1 = (gsl_complex_float *)(argp1);
9413     result = (float *)(float *) ((arg1)->dat);
9414     ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_float, 0 | 0); argvi++ ;
9415 
9416     XSRETURN(argvi);
9417   fail:
9418 
9419     SWIG_croak_null();
9420   }
9421 }
9422 
9423 
XS(_wrap_new_gsl_complex_float)9424 XS(_wrap_new_gsl_complex_float) {
9425   {
9426     int argvi = 0;
9427     gsl_complex_float *result = 0 ;
9428     dXSARGS;
9429 
9430     if ((items < 0) || (items > 0)) {
9431       SWIG_croak("Usage: new_gsl_complex_float();");
9432     }
9433     result = (gsl_complex_float *)calloc(1, sizeof(gsl_complex_float));
9434     ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_complex_float, SWIG_OWNER | SWIG_SHADOW); argvi++ ;
9435     XSRETURN(argvi);
9436   fail:
9437     SWIG_croak_null();
9438   }
9439 }
9440 
9441 
XS(_wrap_delete_gsl_complex_float)9442 XS(_wrap_delete_gsl_complex_float) {
9443   {
9444     gsl_complex_float *arg1 = (gsl_complex_float *) 0 ;
9445     void *argp1 = 0 ;
9446     int res1 = 0 ;
9447     int argvi = 0;
9448     dXSARGS;
9449 
9450     if ((items < 1) || (items > 1)) {
9451       SWIG_croak("Usage: delete_gsl_complex_float(self);");
9452     }
9453     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_complex_float, SWIG_POINTER_DISOWN |  0 );
9454     if (!SWIG_IsOK(res1)) {
9455       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "delete_gsl_complex_float" "', argument " "1"" of type '" "gsl_complex_float *""'");
9456     }
9457     arg1 = (gsl_complex_float *)(argp1);
9458     free((char *) arg1);
9459     ST(argvi) = &PL_sv_undef;
9460 
9461     XSRETURN(argvi);
9462   fail:
9463 
9464     SWIG_croak_null();
9465   }
9466 }
9467 
9468 
XS(_wrap_gsl_complex_polar)9469 XS(_wrap_gsl_complex_polar) {
9470   {
9471     double arg1 ;
9472     double arg2 ;
9473     double val1 ;
9474     int ecode1 = 0 ;
9475     double val2 ;
9476     int ecode2 = 0 ;
9477     int argvi = 0;
9478     gsl_complex result;
9479     dXSARGS;
9480 
9481     if ((items < 2) || (items > 2)) {
9482       SWIG_croak("Usage: gsl_complex_polar(r,theta);");
9483     }
9484     ecode1 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
9485     if (!SWIG_IsOK(ecode1)) {
9486       SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_complex_polar" "', argument " "1"" of type '" "double""'");
9487     }
9488     arg1 = (double)(val1);
9489     ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
9490     if (!SWIG_IsOK(ecode2)) {
9491       SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_complex_polar" "', argument " "2"" of type '" "double""'");
9492     }
9493     arg2 = (double)(val2);
9494     result = gsl_complex_polar(arg1,arg2);
9495     ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
9496 
9497 
9498     XSRETURN(argvi);
9499   fail:
9500 
9501 
9502     SWIG_croak_null();
9503   }
9504 }
9505 
9506 
XS(_wrap_gsl_complex_rect)9507 XS(_wrap_gsl_complex_rect) {
9508   {
9509     double arg1 ;
9510     double arg2 ;
9511     double val1 ;
9512     int ecode1 = 0 ;
9513     double val2 ;
9514     int ecode2 = 0 ;
9515     int argvi = 0;
9516     gsl_complex result;
9517     dXSARGS;
9518 
9519     if ((items < 2) || (items > 2)) {
9520       SWIG_croak("Usage: gsl_complex_rect(x,y);");
9521     }
9522     ecode1 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
9523     if (!SWIG_IsOK(ecode1)) {
9524       SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_complex_rect" "', argument " "1"" of type '" "double""'");
9525     }
9526     arg1 = (double)(val1);
9527     ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
9528     if (!SWIG_IsOK(ecode2)) {
9529       SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_complex_rect" "', argument " "2"" of type '" "double""'");
9530     }
9531     arg2 = (double)(val2);
9532     result = gsl_complex_rect(arg1,arg2);
9533     ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
9534 
9535 
9536     XSRETURN(argvi);
9537   fail:
9538 
9539 
9540     SWIG_croak_null();
9541   }
9542 }
9543 
9544 
XS(_wrap_gsl_complex_arg)9545 XS(_wrap_gsl_complex_arg) {
9546   {
9547     gsl_complex arg1 ;
9548     void *argp1 ;
9549     int res1 = 0 ;
9550     int argvi = 0;
9551     double result;
9552     dXSARGS;
9553 
9554     if ((items < 1) || (items > 1)) {
9555       SWIG_croak("Usage: gsl_complex_arg(z);");
9556     }
9557     {
9558       res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex,  0 );
9559       if (!SWIG_IsOK(res1)) {
9560         SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_arg" "', argument " "1"" of type '" "gsl_complex""'");
9561       }
9562       if (!argp1) {
9563         SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_arg" "', argument " "1"" of type '" "gsl_complex""'");
9564       } else {
9565         arg1 = *((gsl_complex *)(argp1));
9566       }
9567     }
9568     result = (double)gsl_complex_arg(arg1);
9569     ST(argvi) = SWIG_From_double  SWIG_PERL_CALL_ARGS_1((double)(result)); argvi++ ;
9570     XSRETURN(argvi);
9571   fail:
9572     SWIG_croak_null();
9573   }
9574 }
9575 
9576 
XS(_wrap_gsl_complex_abs)9577 XS(_wrap_gsl_complex_abs) {
9578   {
9579     gsl_complex arg1 ;
9580     void *argp1 ;
9581     int res1 = 0 ;
9582     int argvi = 0;
9583     double result;
9584     dXSARGS;
9585 
9586     if ((items < 1) || (items > 1)) {
9587       SWIG_croak("Usage: gsl_complex_abs(z);");
9588     }
9589     {
9590       res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex,  0 );
9591       if (!SWIG_IsOK(res1)) {
9592         SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_abs" "', argument " "1"" of type '" "gsl_complex""'");
9593       }
9594       if (!argp1) {
9595         SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_abs" "', argument " "1"" of type '" "gsl_complex""'");
9596       } else {
9597         arg1 = *((gsl_complex *)(argp1));
9598       }
9599     }
9600     result = (double)gsl_complex_abs(arg1);
9601     ST(argvi) = SWIG_From_double  SWIG_PERL_CALL_ARGS_1((double)(result)); argvi++ ;
9602     XSRETURN(argvi);
9603   fail:
9604     SWIG_croak_null();
9605   }
9606 }
9607 
9608 
XS(_wrap_gsl_complex_abs2)9609 XS(_wrap_gsl_complex_abs2) {
9610   {
9611     gsl_complex arg1 ;
9612     void *argp1 ;
9613     int res1 = 0 ;
9614     int argvi = 0;
9615     double result;
9616     dXSARGS;
9617 
9618     if ((items < 1) || (items > 1)) {
9619       SWIG_croak("Usage: gsl_complex_abs2(z);");
9620     }
9621     {
9622       res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex,  0 );
9623       if (!SWIG_IsOK(res1)) {
9624         SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_abs2" "', argument " "1"" of type '" "gsl_complex""'");
9625       }
9626       if (!argp1) {
9627         SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_abs2" "', argument " "1"" of type '" "gsl_complex""'");
9628       } else {
9629         arg1 = *((gsl_complex *)(argp1));
9630       }
9631     }
9632     result = (double)gsl_complex_abs2(arg1);
9633     ST(argvi) = SWIG_From_double  SWIG_PERL_CALL_ARGS_1((double)(result)); argvi++ ;
9634     XSRETURN(argvi);
9635   fail:
9636     SWIG_croak_null();
9637   }
9638 }
9639 
9640 
XS(_wrap_gsl_complex_logabs)9641 XS(_wrap_gsl_complex_logabs) {
9642   {
9643     gsl_complex arg1 ;
9644     void *argp1 ;
9645     int res1 = 0 ;
9646     int argvi = 0;
9647     double result;
9648     dXSARGS;
9649 
9650     if ((items < 1) || (items > 1)) {
9651       SWIG_croak("Usage: gsl_complex_logabs(z);");
9652     }
9653     {
9654       res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex,  0 );
9655       if (!SWIG_IsOK(res1)) {
9656         SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_logabs" "', argument " "1"" of type '" "gsl_complex""'");
9657       }
9658       if (!argp1) {
9659         SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_logabs" "', argument " "1"" of type '" "gsl_complex""'");
9660       } else {
9661         arg1 = *((gsl_complex *)(argp1));
9662       }
9663     }
9664     result = (double)gsl_complex_logabs(arg1);
9665     ST(argvi) = SWIG_From_double  SWIG_PERL_CALL_ARGS_1((double)(result)); argvi++ ;
9666     XSRETURN(argvi);
9667   fail:
9668     SWIG_croak_null();
9669   }
9670 }
9671 
9672 
XS(_wrap_gsl_complex_add)9673 XS(_wrap_gsl_complex_add) {
9674   {
9675     gsl_complex arg1 ;
9676     gsl_complex arg2 ;
9677     void *argp1 ;
9678     int res1 = 0 ;
9679     void *argp2 ;
9680     int res2 = 0 ;
9681     int argvi = 0;
9682     gsl_complex result;
9683     dXSARGS;
9684 
9685     if ((items < 2) || (items > 2)) {
9686       SWIG_croak("Usage: gsl_complex_add(a,b);");
9687     }
9688     {
9689       res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex,  0 );
9690       if (!SWIG_IsOK(res1)) {
9691         SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_add" "', argument " "1"" of type '" "gsl_complex""'");
9692       }
9693       if (!argp1) {
9694         SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_add" "', argument " "1"" of type '" "gsl_complex""'");
9695       } else {
9696         arg1 = *((gsl_complex *)(argp1));
9697       }
9698     }
9699     {
9700       res2 = SWIG_ConvertPtr(ST(1), &argp2, SWIGTYPE_p_gsl_complex,  0 );
9701       if (!SWIG_IsOK(res2)) {
9702         SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_complex_add" "', argument " "2"" of type '" "gsl_complex""'");
9703       }
9704       if (!argp2) {
9705         SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_add" "', argument " "2"" of type '" "gsl_complex""'");
9706       } else {
9707         arg2 = *((gsl_complex *)(argp2));
9708       }
9709     }
9710     result = gsl_complex_add(arg1,arg2);
9711     ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
9712     XSRETURN(argvi);
9713   fail:
9714     SWIG_croak_null();
9715   }
9716 }
9717 
9718 
XS(_wrap_gsl_complex_sub)9719 XS(_wrap_gsl_complex_sub) {
9720   {
9721     gsl_complex arg1 ;
9722     gsl_complex arg2 ;
9723     void *argp1 ;
9724     int res1 = 0 ;
9725     void *argp2 ;
9726     int res2 = 0 ;
9727     int argvi = 0;
9728     gsl_complex result;
9729     dXSARGS;
9730 
9731     if ((items < 2) || (items > 2)) {
9732       SWIG_croak("Usage: gsl_complex_sub(a,b);");
9733     }
9734     {
9735       res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex,  0 );
9736       if (!SWIG_IsOK(res1)) {
9737         SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_sub" "', argument " "1"" of type '" "gsl_complex""'");
9738       }
9739       if (!argp1) {
9740         SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_sub" "', argument " "1"" of type '" "gsl_complex""'");
9741       } else {
9742         arg1 = *((gsl_complex *)(argp1));
9743       }
9744     }
9745     {
9746       res2 = SWIG_ConvertPtr(ST(1), &argp2, SWIGTYPE_p_gsl_complex,  0 );
9747       if (!SWIG_IsOK(res2)) {
9748         SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_complex_sub" "', argument " "2"" of type '" "gsl_complex""'");
9749       }
9750       if (!argp2) {
9751         SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_sub" "', argument " "2"" of type '" "gsl_complex""'");
9752       } else {
9753         arg2 = *((gsl_complex *)(argp2));
9754       }
9755     }
9756     result = gsl_complex_sub(arg1,arg2);
9757     ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
9758     XSRETURN(argvi);
9759   fail:
9760     SWIG_croak_null();
9761   }
9762 }
9763 
9764 
XS(_wrap_gsl_complex_mul)9765 XS(_wrap_gsl_complex_mul) {
9766   {
9767     gsl_complex arg1 ;
9768     gsl_complex arg2 ;
9769     void *argp1 ;
9770     int res1 = 0 ;
9771     void *argp2 ;
9772     int res2 = 0 ;
9773     int argvi = 0;
9774     gsl_complex result;
9775     dXSARGS;
9776 
9777     if ((items < 2) || (items > 2)) {
9778       SWIG_croak("Usage: gsl_complex_mul(a,b);");
9779     }
9780     {
9781       res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex,  0 );
9782       if (!SWIG_IsOK(res1)) {
9783         SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_mul" "', argument " "1"" of type '" "gsl_complex""'");
9784       }
9785       if (!argp1) {
9786         SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_mul" "', argument " "1"" of type '" "gsl_complex""'");
9787       } else {
9788         arg1 = *((gsl_complex *)(argp1));
9789       }
9790     }
9791     {
9792       res2 = SWIG_ConvertPtr(ST(1), &argp2, SWIGTYPE_p_gsl_complex,  0 );
9793       if (!SWIG_IsOK(res2)) {
9794         SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_complex_mul" "', argument " "2"" of type '" "gsl_complex""'");
9795       }
9796       if (!argp2) {
9797         SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_mul" "', argument " "2"" of type '" "gsl_complex""'");
9798       } else {
9799         arg2 = *((gsl_complex *)(argp2));
9800       }
9801     }
9802     result = gsl_complex_mul(arg1,arg2);
9803     ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
9804     XSRETURN(argvi);
9805   fail:
9806     SWIG_croak_null();
9807   }
9808 }
9809 
9810 
XS(_wrap_gsl_complex_div)9811 XS(_wrap_gsl_complex_div) {
9812   {
9813     gsl_complex arg1 ;
9814     gsl_complex arg2 ;
9815     void *argp1 ;
9816     int res1 = 0 ;
9817     void *argp2 ;
9818     int res2 = 0 ;
9819     int argvi = 0;
9820     gsl_complex result;
9821     dXSARGS;
9822 
9823     if ((items < 2) || (items > 2)) {
9824       SWIG_croak("Usage: gsl_complex_div(a,b);");
9825     }
9826     {
9827       res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex,  0 );
9828       if (!SWIG_IsOK(res1)) {
9829         SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_div" "', argument " "1"" of type '" "gsl_complex""'");
9830       }
9831       if (!argp1) {
9832         SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_div" "', argument " "1"" of type '" "gsl_complex""'");
9833       } else {
9834         arg1 = *((gsl_complex *)(argp1));
9835       }
9836     }
9837     {
9838       res2 = SWIG_ConvertPtr(ST(1), &argp2, SWIGTYPE_p_gsl_complex,  0 );
9839       if (!SWIG_IsOK(res2)) {
9840         SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_complex_div" "', argument " "2"" of type '" "gsl_complex""'");
9841       }
9842       if (!argp2) {
9843         SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_div" "', argument " "2"" of type '" "gsl_complex""'");
9844       } else {
9845         arg2 = *((gsl_complex *)(argp2));
9846       }
9847     }
9848     result = gsl_complex_div(arg1,arg2);
9849     ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
9850     XSRETURN(argvi);
9851   fail:
9852     SWIG_croak_null();
9853   }
9854 }
9855 
9856 
XS(_wrap_gsl_complex_add_real)9857 XS(_wrap_gsl_complex_add_real) {
9858   {
9859     gsl_complex arg1 ;
9860     double arg2 ;
9861     void *argp1 ;
9862     int res1 = 0 ;
9863     double val2 ;
9864     int ecode2 = 0 ;
9865     int argvi = 0;
9866     gsl_complex result;
9867     dXSARGS;
9868 
9869     if ((items < 2) || (items > 2)) {
9870       SWIG_croak("Usage: gsl_complex_add_real(a,x);");
9871     }
9872     {
9873       res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex,  0 );
9874       if (!SWIG_IsOK(res1)) {
9875         SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_add_real" "', argument " "1"" of type '" "gsl_complex""'");
9876       }
9877       if (!argp1) {
9878         SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_add_real" "', argument " "1"" of type '" "gsl_complex""'");
9879       } else {
9880         arg1 = *((gsl_complex *)(argp1));
9881       }
9882     }
9883     ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
9884     if (!SWIG_IsOK(ecode2)) {
9885       SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_complex_add_real" "', argument " "2"" of type '" "double""'");
9886     }
9887     arg2 = (double)(val2);
9888     result = gsl_complex_add_real(arg1,arg2);
9889     ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
9890 
9891     XSRETURN(argvi);
9892   fail:
9893 
9894     SWIG_croak_null();
9895   }
9896 }
9897 
9898 
XS(_wrap_gsl_complex_sub_real)9899 XS(_wrap_gsl_complex_sub_real) {
9900   {
9901     gsl_complex arg1 ;
9902     double arg2 ;
9903     void *argp1 ;
9904     int res1 = 0 ;
9905     double val2 ;
9906     int ecode2 = 0 ;
9907     int argvi = 0;
9908     gsl_complex result;
9909     dXSARGS;
9910 
9911     if ((items < 2) || (items > 2)) {
9912       SWIG_croak("Usage: gsl_complex_sub_real(a,x);");
9913     }
9914     {
9915       res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex,  0 );
9916       if (!SWIG_IsOK(res1)) {
9917         SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_sub_real" "', argument " "1"" of type '" "gsl_complex""'");
9918       }
9919       if (!argp1) {
9920         SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_sub_real" "', argument " "1"" of type '" "gsl_complex""'");
9921       } else {
9922         arg1 = *((gsl_complex *)(argp1));
9923       }
9924     }
9925     ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
9926     if (!SWIG_IsOK(ecode2)) {
9927       SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_complex_sub_real" "', argument " "2"" of type '" "double""'");
9928     }
9929     arg2 = (double)(val2);
9930     result = gsl_complex_sub_real(arg1,arg2);
9931     ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
9932 
9933     XSRETURN(argvi);
9934   fail:
9935 
9936     SWIG_croak_null();
9937   }
9938 }
9939 
9940 
XS(_wrap_gsl_complex_mul_real)9941 XS(_wrap_gsl_complex_mul_real) {
9942   {
9943     gsl_complex arg1 ;
9944     double arg2 ;
9945     void *argp1 ;
9946     int res1 = 0 ;
9947     double val2 ;
9948     int ecode2 = 0 ;
9949     int argvi = 0;
9950     gsl_complex result;
9951     dXSARGS;
9952 
9953     if ((items < 2) || (items > 2)) {
9954       SWIG_croak("Usage: gsl_complex_mul_real(a,x);");
9955     }
9956     {
9957       res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex,  0 );
9958       if (!SWIG_IsOK(res1)) {
9959         SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_mul_real" "', argument " "1"" of type '" "gsl_complex""'");
9960       }
9961       if (!argp1) {
9962         SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_mul_real" "', argument " "1"" of type '" "gsl_complex""'");
9963       } else {
9964         arg1 = *((gsl_complex *)(argp1));
9965       }
9966     }
9967     ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
9968     if (!SWIG_IsOK(ecode2)) {
9969       SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_complex_mul_real" "', argument " "2"" of type '" "double""'");
9970     }
9971     arg2 = (double)(val2);
9972     result = gsl_complex_mul_real(arg1,arg2);
9973     ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
9974 
9975     XSRETURN(argvi);
9976   fail:
9977 
9978     SWIG_croak_null();
9979   }
9980 }
9981 
9982 
XS(_wrap_gsl_complex_div_real)9983 XS(_wrap_gsl_complex_div_real) {
9984   {
9985     gsl_complex arg1 ;
9986     double arg2 ;
9987     void *argp1 ;
9988     int res1 = 0 ;
9989     double val2 ;
9990     int ecode2 = 0 ;
9991     int argvi = 0;
9992     gsl_complex result;
9993     dXSARGS;
9994 
9995     if ((items < 2) || (items > 2)) {
9996       SWIG_croak("Usage: gsl_complex_div_real(a,x);");
9997     }
9998     {
9999       res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex,  0 );
10000       if (!SWIG_IsOK(res1)) {
10001         SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_div_real" "', argument " "1"" of type '" "gsl_complex""'");
10002       }
10003       if (!argp1) {
10004         SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_div_real" "', argument " "1"" of type '" "gsl_complex""'");
10005       } else {
10006         arg1 = *((gsl_complex *)(argp1));
10007       }
10008     }
10009     ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
10010     if (!SWIG_IsOK(ecode2)) {
10011       SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_complex_div_real" "', argument " "2"" of type '" "double""'");
10012     }
10013     arg2 = (double)(val2);
10014     result = gsl_complex_div_real(arg1,arg2);
10015     ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
10016 
10017     XSRETURN(argvi);
10018   fail:
10019 
10020     SWIG_croak_null();
10021   }
10022 }
10023 
10024 
XS(_wrap_gsl_complex_add_imag)10025 XS(_wrap_gsl_complex_add_imag) {
10026   {
10027     gsl_complex arg1 ;
10028     double arg2 ;
10029     void *argp1 ;
10030     int res1 = 0 ;
10031     double val2 ;
10032     int ecode2 = 0 ;
10033     int argvi = 0;
10034     gsl_complex result;
10035     dXSARGS;
10036 
10037     if ((items < 2) || (items > 2)) {
10038       SWIG_croak("Usage: gsl_complex_add_imag(a,y);");
10039     }
10040     {
10041       res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex,  0 );
10042       if (!SWIG_IsOK(res1)) {
10043         SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_add_imag" "', argument " "1"" of type '" "gsl_complex""'");
10044       }
10045       if (!argp1) {
10046         SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_add_imag" "', argument " "1"" of type '" "gsl_complex""'");
10047       } else {
10048         arg1 = *((gsl_complex *)(argp1));
10049       }
10050     }
10051     ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
10052     if (!SWIG_IsOK(ecode2)) {
10053       SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_complex_add_imag" "', argument " "2"" of type '" "double""'");
10054     }
10055     arg2 = (double)(val2);
10056     result = gsl_complex_add_imag(arg1,arg2);
10057     ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
10058 
10059     XSRETURN(argvi);
10060   fail:
10061 
10062     SWIG_croak_null();
10063   }
10064 }
10065 
10066 
XS(_wrap_gsl_complex_sub_imag)10067 XS(_wrap_gsl_complex_sub_imag) {
10068   {
10069     gsl_complex arg1 ;
10070     double arg2 ;
10071     void *argp1 ;
10072     int res1 = 0 ;
10073     double val2 ;
10074     int ecode2 = 0 ;
10075     int argvi = 0;
10076     gsl_complex result;
10077     dXSARGS;
10078 
10079     if ((items < 2) || (items > 2)) {
10080       SWIG_croak("Usage: gsl_complex_sub_imag(a,y);");
10081     }
10082     {
10083       res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex,  0 );
10084       if (!SWIG_IsOK(res1)) {
10085         SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_sub_imag" "', argument " "1"" of type '" "gsl_complex""'");
10086       }
10087       if (!argp1) {
10088         SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_sub_imag" "', argument " "1"" of type '" "gsl_complex""'");
10089       } else {
10090         arg1 = *((gsl_complex *)(argp1));
10091       }
10092     }
10093     ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
10094     if (!SWIG_IsOK(ecode2)) {
10095       SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_complex_sub_imag" "', argument " "2"" of type '" "double""'");
10096     }
10097     arg2 = (double)(val2);
10098     result = gsl_complex_sub_imag(arg1,arg2);
10099     ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
10100 
10101     XSRETURN(argvi);
10102   fail:
10103 
10104     SWIG_croak_null();
10105   }
10106 }
10107 
10108 
XS(_wrap_gsl_complex_mul_imag)10109 XS(_wrap_gsl_complex_mul_imag) {
10110   {
10111     gsl_complex arg1 ;
10112     double arg2 ;
10113     void *argp1 ;
10114     int res1 = 0 ;
10115     double val2 ;
10116     int ecode2 = 0 ;
10117     int argvi = 0;
10118     gsl_complex result;
10119     dXSARGS;
10120 
10121     if ((items < 2) || (items > 2)) {
10122       SWIG_croak("Usage: gsl_complex_mul_imag(a,y);");
10123     }
10124     {
10125       res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex,  0 );
10126       if (!SWIG_IsOK(res1)) {
10127         SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_mul_imag" "', argument " "1"" of type '" "gsl_complex""'");
10128       }
10129       if (!argp1) {
10130         SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_mul_imag" "', argument " "1"" of type '" "gsl_complex""'");
10131       } else {
10132         arg1 = *((gsl_complex *)(argp1));
10133       }
10134     }
10135     ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
10136     if (!SWIG_IsOK(ecode2)) {
10137       SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_complex_mul_imag" "', argument " "2"" of type '" "double""'");
10138     }
10139     arg2 = (double)(val2);
10140     result = gsl_complex_mul_imag(arg1,arg2);
10141     ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
10142 
10143     XSRETURN(argvi);
10144   fail:
10145 
10146     SWIG_croak_null();
10147   }
10148 }
10149 
10150 
XS(_wrap_gsl_complex_div_imag)10151 XS(_wrap_gsl_complex_div_imag) {
10152   {
10153     gsl_complex arg1 ;
10154     double arg2 ;
10155     void *argp1 ;
10156     int res1 = 0 ;
10157     double val2 ;
10158     int ecode2 = 0 ;
10159     int argvi = 0;
10160     gsl_complex result;
10161     dXSARGS;
10162 
10163     if ((items < 2) || (items > 2)) {
10164       SWIG_croak("Usage: gsl_complex_div_imag(a,y);");
10165     }
10166     {
10167       res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex,  0 );
10168       if (!SWIG_IsOK(res1)) {
10169         SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_div_imag" "', argument " "1"" of type '" "gsl_complex""'");
10170       }
10171       if (!argp1) {
10172         SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_div_imag" "', argument " "1"" of type '" "gsl_complex""'");
10173       } else {
10174         arg1 = *((gsl_complex *)(argp1));
10175       }
10176     }
10177     ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
10178     if (!SWIG_IsOK(ecode2)) {
10179       SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_complex_div_imag" "', argument " "2"" of type '" "double""'");
10180     }
10181     arg2 = (double)(val2);
10182     result = gsl_complex_div_imag(arg1,arg2);
10183     ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
10184 
10185     XSRETURN(argvi);
10186   fail:
10187 
10188     SWIG_croak_null();
10189   }
10190 }
10191 
10192 
XS(_wrap_gsl_complex_conjugate)10193 XS(_wrap_gsl_complex_conjugate) {
10194   {
10195     gsl_complex arg1 ;
10196     void *argp1 ;
10197     int res1 = 0 ;
10198     int argvi = 0;
10199     gsl_complex result;
10200     dXSARGS;
10201 
10202     if ((items < 1) || (items > 1)) {
10203       SWIG_croak("Usage: gsl_complex_conjugate(z);");
10204     }
10205     {
10206       res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex,  0 );
10207       if (!SWIG_IsOK(res1)) {
10208         SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_conjugate" "', argument " "1"" of type '" "gsl_complex""'");
10209       }
10210       if (!argp1) {
10211         SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_conjugate" "', argument " "1"" of type '" "gsl_complex""'");
10212       } else {
10213         arg1 = *((gsl_complex *)(argp1));
10214       }
10215     }
10216     result = gsl_complex_conjugate(arg1);
10217     ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
10218     XSRETURN(argvi);
10219   fail:
10220     SWIG_croak_null();
10221   }
10222 }
10223 
10224 
XS(_wrap_gsl_complex_inverse)10225 XS(_wrap_gsl_complex_inverse) {
10226   {
10227     gsl_complex arg1 ;
10228     void *argp1 ;
10229     int res1 = 0 ;
10230     int argvi = 0;
10231     gsl_complex result;
10232     dXSARGS;
10233 
10234     if ((items < 1) || (items > 1)) {
10235       SWIG_croak("Usage: gsl_complex_inverse(a);");
10236     }
10237     {
10238       res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex,  0 );
10239       if (!SWIG_IsOK(res1)) {
10240         SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_inverse" "', argument " "1"" of type '" "gsl_complex""'");
10241       }
10242       if (!argp1) {
10243         SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_inverse" "', argument " "1"" of type '" "gsl_complex""'");
10244       } else {
10245         arg1 = *((gsl_complex *)(argp1));
10246       }
10247     }
10248     result = gsl_complex_inverse(arg1);
10249     ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
10250     XSRETURN(argvi);
10251   fail:
10252     SWIG_croak_null();
10253   }
10254 }
10255 
10256 
XS(_wrap_gsl_complex_negative)10257 XS(_wrap_gsl_complex_negative) {
10258   {
10259     gsl_complex arg1 ;
10260     void *argp1 ;
10261     int res1 = 0 ;
10262     int argvi = 0;
10263     gsl_complex result;
10264     dXSARGS;
10265 
10266     if ((items < 1) || (items > 1)) {
10267       SWIG_croak("Usage: gsl_complex_negative(a);");
10268     }
10269     {
10270       res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex,  0 );
10271       if (!SWIG_IsOK(res1)) {
10272         SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_negative" "', argument " "1"" of type '" "gsl_complex""'");
10273       }
10274       if (!argp1) {
10275         SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_negative" "', argument " "1"" of type '" "gsl_complex""'");
10276       } else {
10277         arg1 = *((gsl_complex *)(argp1));
10278       }
10279     }
10280     result = gsl_complex_negative(arg1);
10281     ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
10282     XSRETURN(argvi);
10283   fail:
10284     SWIG_croak_null();
10285   }
10286 }
10287 
10288 
XS(_wrap_gsl_complex_sqrt)10289 XS(_wrap_gsl_complex_sqrt) {
10290   {
10291     gsl_complex arg1 ;
10292     void *argp1 ;
10293     int res1 = 0 ;
10294     int argvi = 0;
10295     gsl_complex result;
10296     dXSARGS;
10297 
10298     if ((items < 1) || (items > 1)) {
10299       SWIG_croak("Usage: gsl_complex_sqrt(z);");
10300     }
10301     {
10302       res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex,  0 );
10303       if (!SWIG_IsOK(res1)) {
10304         SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_sqrt" "', argument " "1"" of type '" "gsl_complex""'");
10305       }
10306       if (!argp1) {
10307         SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_sqrt" "', argument " "1"" of type '" "gsl_complex""'");
10308       } else {
10309         arg1 = *((gsl_complex *)(argp1));
10310       }
10311     }
10312     result = gsl_complex_sqrt(arg1);
10313     ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
10314     XSRETURN(argvi);
10315   fail:
10316     SWIG_croak_null();
10317   }
10318 }
10319 
10320 
XS(_wrap_gsl_complex_sqrt_real)10321 XS(_wrap_gsl_complex_sqrt_real) {
10322   {
10323     double arg1 ;
10324     double val1 ;
10325     int ecode1 = 0 ;
10326     int argvi = 0;
10327     gsl_complex result;
10328     dXSARGS;
10329 
10330     if ((items < 1) || (items > 1)) {
10331       SWIG_croak("Usage: gsl_complex_sqrt_real(x);");
10332     }
10333     ecode1 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
10334     if (!SWIG_IsOK(ecode1)) {
10335       SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_complex_sqrt_real" "', argument " "1"" of type '" "double""'");
10336     }
10337     arg1 = (double)(val1);
10338     result = gsl_complex_sqrt_real(arg1);
10339     ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
10340 
10341     XSRETURN(argvi);
10342   fail:
10343 
10344     SWIG_croak_null();
10345   }
10346 }
10347 
10348 
XS(_wrap_gsl_complex_pow)10349 XS(_wrap_gsl_complex_pow) {
10350   {
10351     gsl_complex arg1 ;
10352     gsl_complex arg2 ;
10353     void *argp1 ;
10354     int res1 = 0 ;
10355     void *argp2 ;
10356     int res2 = 0 ;
10357     int argvi = 0;
10358     gsl_complex result;
10359     dXSARGS;
10360 
10361     if ((items < 2) || (items > 2)) {
10362       SWIG_croak("Usage: gsl_complex_pow(a,b);");
10363     }
10364     {
10365       res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex,  0 );
10366       if (!SWIG_IsOK(res1)) {
10367         SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_pow" "', argument " "1"" of type '" "gsl_complex""'");
10368       }
10369       if (!argp1) {
10370         SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_pow" "', argument " "1"" of type '" "gsl_complex""'");
10371       } else {
10372         arg1 = *((gsl_complex *)(argp1));
10373       }
10374     }
10375     {
10376       res2 = SWIG_ConvertPtr(ST(1), &argp2, SWIGTYPE_p_gsl_complex,  0 );
10377       if (!SWIG_IsOK(res2)) {
10378         SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_complex_pow" "', argument " "2"" of type '" "gsl_complex""'");
10379       }
10380       if (!argp2) {
10381         SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_pow" "', argument " "2"" of type '" "gsl_complex""'");
10382       } else {
10383         arg2 = *((gsl_complex *)(argp2));
10384       }
10385     }
10386     result = gsl_complex_pow(arg1,arg2);
10387     ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
10388     XSRETURN(argvi);
10389   fail:
10390     SWIG_croak_null();
10391   }
10392 }
10393 
10394 
XS(_wrap_gsl_complex_pow_real)10395 XS(_wrap_gsl_complex_pow_real) {
10396   {
10397     gsl_complex arg1 ;
10398     double arg2 ;
10399     void *argp1 ;
10400     int res1 = 0 ;
10401     double val2 ;
10402     int ecode2 = 0 ;
10403     int argvi = 0;
10404     gsl_complex result;
10405     dXSARGS;
10406 
10407     if ((items < 2) || (items > 2)) {
10408       SWIG_croak("Usage: gsl_complex_pow_real(a,b);");
10409     }
10410     {
10411       res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex,  0 );
10412       if (!SWIG_IsOK(res1)) {
10413         SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_pow_real" "', argument " "1"" of type '" "gsl_complex""'");
10414       }
10415       if (!argp1) {
10416         SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_pow_real" "', argument " "1"" of type '" "gsl_complex""'");
10417       } else {
10418         arg1 = *((gsl_complex *)(argp1));
10419       }
10420     }
10421     ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
10422     if (!SWIG_IsOK(ecode2)) {
10423       SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_complex_pow_real" "', argument " "2"" of type '" "double""'");
10424     }
10425     arg2 = (double)(val2);
10426     result = gsl_complex_pow_real(arg1,arg2);
10427     ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
10428 
10429     XSRETURN(argvi);
10430   fail:
10431 
10432     SWIG_croak_null();
10433   }
10434 }
10435 
10436 
XS(_wrap_gsl_complex_exp)10437 XS(_wrap_gsl_complex_exp) {
10438   {
10439     gsl_complex arg1 ;
10440     void *argp1 ;
10441     int res1 = 0 ;
10442     int argvi = 0;
10443     gsl_complex result;
10444     dXSARGS;
10445 
10446     if ((items < 1) || (items > 1)) {
10447       SWIG_croak("Usage: gsl_complex_exp(a);");
10448     }
10449     {
10450       res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex,  0 );
10451       if (!SWIG_IsOK(res1)) {
10452         SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_exp" "', argument " "1"" of type '" "gsl_complex""'");
10453       }
10454       if (!argp1) {
10455         SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_exp" "', argument " "1"" of type '" "gsl_complex""'");
10456       } else {
10457         arg1 = *((gsl_complex *)(argp1));
10458       }
10459     }
10460     result = gsl_complex_exp(arg1);
10461     ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
10462     XSRETURN(argvi);
10463   fail:
10464     SWIG_croak_null();
10465   }
10466 }
10467 
10468 
XS(_wrap_gsl_complex_log)10469 XS(_wrap_gsl_complex_log) {
10470   {
10471     gsl_complex arg1 ;
10472     void *argp1 ;
10473     int res1 = 0 ;
10474     int argvi = 0;
10475     gsl_complex result;
10476     dXSARGS;
10477 
10478     if ((items < 1) || (items > 1)) {
10479       SWIG_croak("Usage: gsl_complex_log(a);");
10480     }
10481     {
10482       res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex,  0 );
10483       if (!SWIG_IsOK(res1)) {
10484         SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_log" "', argument " "1"" of type '" "gsl_complex""'");
10485       }
10486       if (!argp1) {
10487         SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_log" "', argument " "1"" of type '" "gsl_complex""'");
10488       } else {
10489         arg1 = *((gsl_complex *)(argp1));
10490       }
10491     }
10492     result = gsl_complex_log(arg1);
10493     ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
10494     XSRETURN(argvi);
10495   fail:
10496     SWIG_croak_null();
10497   }
10498 }
10499 
10500 
XS(_wrap_gsl_complex_log10)10501 XS(_wrap_gsl_complex_log10) {
10502   {
10503     gsl_complex arg1 ;
10504     void *argp1 ;
10505     int res1 = 0 ;
10506     int argvi = 0;
10507     gsl_complex result;
10508     dXSARGS;
10509 
10510     if ((items < 1) || (items > 1)) {
10511       SWIG_croak("Usage: gsl_complex_log10(a);");
10512     }
10513     {
10514       res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex,  0 );
10515       if (!SWIG_IsOK(res1)) {
10516         SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_log10" "', argument " "1"" of type '" "gsl_complex""'");
10517       }
10518       if (!argp1) {
10519         SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_log10" "', argument " "1"" of type '" "gsl_complex""'");
10520       } else {
10521         arg1 = *((gsl_complex *)(argp1));
10522       }
10523     }
10524     result = gsl_complex_log10(arg1);
10525     ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
10526     XSRETURN(argvi);
10527   fail:
10528     SWIG_croak_null();
10529   }
10530 }
10531 
10532 
XS(_wrap_gsl_complex_log_b)10533 XS(_wrap_gsl_complex_log_b) {
10534   {
10535     gsl_complex arg1 ;
10536     gsl_complex arg2 ;
10537     void *argp1 ;
10538     int res1 = 0 ;
10539     void *argp2 ;
10540     int res2 = 0 ;
10541     int argvi = 0;
10542     gsl_complex result;
10543     dXSARGS;
10544 
10545     if ((items < 2) || (items > 2)) {
10546       SWIG_croak("Usage: gsl_complex_log_b(a,b);");
10547     }
10548     {
10549       res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex,  0 );
10550       if (!SWIG_IsOK(res1)) {
10551         SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_log_b" "', argument " "1"" of type '" "gsl_complex""'");
10552       }
10553       if (!argp1) {
10554         SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_log_b" "', argument " "1"" of type '" "gsl_complex""'");
10555       } else {
10556         arg1 = *((gsl_complex *)(argp1));
10557       }
10558     }
10559     {
10560       res2 = SWIG_ConvertPtr(ST(1), &argp2, SWIGTYPE_p_gsl_complex,  0 );
10561       if (!SWIG_IsOK(res2)) {
10562         SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_complex_log_b" "', argument " "2"" of type '" "gsl_complex""'");
10563       }
10564       if (!argp2) {
10565         SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_log_b" "', argument " "2"" of type '" "gsl_complex""'");
10566       } else {
10567         arg2 = *((gsl_complex *)(argp2));
10568       }
10569     }
10570     result = gsl_complex_log_b(arg1,arg2);
10571     ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
10572     XSRETURN(argvi);
10573   fail:
10574     SWIG_croak_null();
10575   }
10576 }
10577 
10578 
XS(_wrap_gsl_complex_sin)10579 XS(_wrap_gsl_complex_sin) {
10580   {
10581     gsl_complex arg1 ;
10582     void *argp1 ;
10583     int res1 = 0 ;
10584     int argvi = 0;
10585     gsl_complex result;
10586     dXSARGS;
10587 
10588     if ((items < 1) || (items > 1)) {
10589       SWIG_croak("Usage: gsl_complex_sin(a);");
10590     }
10591     {
10592       res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex,  0 );
10593       if (!SWIG_IsOK(res1)) {
10594         SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_sin" "', argument " "1"" of type '" "gsl_complex""'");
10595       }
10596       if (!argp1) {
10597         SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_sin" "', argument " "1"" of type '" "gsl_complex""'");
10598       } else {
10599         arg1 = *((gsl_complex *)(argp1));
10600       }
10601     }
10602     result = gsl_complex_sin(arg1);
10603     ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
10604     XSRETURN(argvi);
10605   fail:
10606     SWIG_croak_null();
10607   }
10608 }
10609 
10610 
XS(_wrap_gsl_complex_cos)10611 XS(_wrap_gsl_complex_cos) {
10612   {
10613     gsl_complex arg1 ;
10614     void *argp1 ;
10615     int res1 = 0 ;
10616     int argvi = 0;
10617     gsl_complex result;
10618     dXSARGS;
10619 
10620     if ((items < 1) || (items > 1)) {
10621       SWIG_croak("Usage: gsl_complex_cos(a);");
10622     }
10623     {
10624       res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex,  0 );
10625       if (!SWIG_IsOK(res1)) {
10626         SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_cos" "', argument " "1"" of type '" "gsl_complex""'");
10627       }
10628       if (!argp1) {
10629         SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_cos" "', argument " "1"" of type '" "gsl_complex""'");
10630       } else {
10631         arg1 = *((gsl_complex *)(argp1));
10632       }
10633     }
10634     result = gsl_complex_cos(arg1);
10635     ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
10636     XSRETURN(argvi);
10637   fail:
10638     SWIG_croak_null();
10639   }
10640 }
10641 
10642 
XS(_wrap_gsl_complex_sec)10643 XS(_wrap_gsl_complex_sec) {
10644   {
10645     gsl_complex arg1 ;
10646     void *argp1 ;
10647     int res1 = 0 ;
10648     int argvi = 0;
10649     gsl_complex result;
10650     dXSARGS;
10651 
10652     if ((items < 1) || (items > 1)) {
10653       SWIG_croak("Usage: gsl_complex_sec(a);");
10654     }
10655     {
10656       res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex,  0 );
10657       if (!SWIG_IsOK(res1)) {
10658         SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_sec" "', argument " "1"" of type '" "gsl_complex""'");
10659       }
10660       if (!argp1) {
10661         SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_sec" "', argument " "1"" of type '" "gsl_complex""'");
10662       } else {
10663         arg1 = *((gsl_complex *)(argp1));
10664       }
10665     }
10666     result = gsl_complex_sec(arg1);
10667     ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
10668     XSRETURN(argvi);
10669   fail:
10670     SWIG_croak_null();
10671   }
10672 }
10673 
10674 
XS(_wrap_gsl_complex_csc)10675 XS(_wrap_gsl_complex_csc) {
10676   {
10677     gsl_complex arg1 ;
10678     void *argp1 ;
10679     int res1 = 0 ;
10680     int argvi = 0;
10681     gsl_complex result;
10682     dXSARGS;
10683 
10684     if ((items < 1) || (items > 1)) {
10685       SWIG_croak("Usage: gsl_complex_csc(a);");
10686     }
10687     {
10688       res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex,  0 );
10689       if (!SWIG_IsOK(res1)) {
10690         SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_csc" "', argument " "1"" of type '" "gsl_complex""'");
10691       }
10692       if (!argp1) {
10693         SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_csc" "', argument " "1"" of type '" "gsl_complex""'");
10694       } else {
10695         arg1 = *((gsl_complex *)(argp1));
10696       }
10697     }
10698     result = gsl_complex_csc(arg1);
10699     ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
10700     XSRETURN(argvi);
10701   fail:
10702     SWIG_croak_null();
10703   }
10704 }
10705 
10706 
XS(_wrap_gsl_complex_tan)10707 XS(_wrap_gsl_complex_tan) {
10708   {
10709     gsl_complex arg1 ;
10710     void *argp1 ;
10711     int res1 = 0 ;
10712     int argvi = 0;
10713     gsl_complex result;
10714     dXSARGS;
10715 
10716     if ((items < 1) || (items > 1)) {
10717       SWIG_croak("Usage: gsl_complex_tan(a);");
10718     }
10719     {
10720       res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex,  0 );
10721       if (!SWIG_IsOK(res1)) {
10722         SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_tan" "', argument " "1"" of type '" "gsl_complex""'");
10723       }
10724       if (!argp1) {
10725         SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_tan" "', argument " "1"" of type '" "gsl_complex""'");
10726       } else {
10727         arg1 = *((gsl_complex *)(argp1));
10728       }
10729     }
10730     result = gsl_complex_tan(arg1);
10731     ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
10732     XSRETURN(argvi);
10733   fail:
10734     SWIG_croak_null();
10735   }
10736 }
10737 
10738 
XS(_wrap_gsl_complex_cot)10739 XS(_wrap_gsl_complex_cot) {
10740   {
10741     gsl_complex arg1 ;
10742     void *argp1 ;
10743     int res1 = 0 ;
10744     int argvi = 0;
10745     gsl_complex result;
10746     dXSARGS;
10747 
10748     if ((items < 1) || (items > 1)) {
10749       SWIG_croak("Usage: gsl_complex_cot(a);");
10750     }
10751     {
10752       res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex,  0 );
10753       if (!SWIG_IsOK(res1)) {
10754         SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_cot" "', argument " "1"" of type '" "gsl_complex""'");
10755       }
10756       if (!argp1) {
10757         SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_cot" "', argument " "1"" of type '" "gsl_complex""'");
10758       } else {
10759         arg1 = *((gsl_complex *)(argp1));
10760       }
10761     }
10762     result = gsl_complex_cot(arg1);
10763     ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
10764     XSRETURN(argvi);
10765   fail:
10766     SWIG_croak_null();
10767   }
10768 }
10769 
10770 
XS(_wrap_gsl_complex_arcsin)10771 XS(_wrap_gsl_complex_arcsin) {
10772   {
10773     gsl_complex arg1 ;
10774     void *argp1 ;
10775     int res1 = 0 ;
10776     int argvi = 0;
10777     gsl_complex result;
10778     dXSARGS;
10779 
10780     if ((items < 1) || (items > 1)) {
10781       SWIG_croak("Usage: gsl_complex_arcsin(a);");
10782     }
10783     {
10784       res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex,  0 );
10785       if (!SWIG_IsOK(res1)) {
10786         SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_arcsin" "', argument " "1"" of type '" "gsl_complex""'");
10787       }
10788       if (!argp1) {
10789         SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_arcsin" "', argument " "1"" of type '" "gsl_complex""'");
10790       } else {
10791         arg1 = *((gsl_complex *)(argp1));
10792       }
10793     }
10794     result = gsl_complex_arcsin(arg1);
10795     ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
10796     XSRETURN(argvi);
10797   fail:
10798     SWIG_croak_null();
10799   }
10800 }
10801 
10802 
XS(_wrap_gsl_complex_arcsin_real)10803 XS(_wrap_gsl_complex_arcsin_real) {
10804   {
10805     double arg1 ;
10806     double val1 ;
10807     int ecode1 = 0 ;
10808     int argvi = 0;
10809     gsl_complex result;
10810     dXSARGS;
10811 
10812     if ((items < 1) || (items > 1)) {
10813       SWIG_croak("Usage: gsl_complex_arcsin_real(a);");
10814     }
10815     ecode1 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
10816     if (!SWIG_IsOK(ecode1)) {
10817       SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_complex_arcsin_real" "', argument " "1"" of type '" "double""'");
10818     }
10819     arg1 = (double)(val1);
10820     result = gsl_complex_arcsin_real(arg1);
10821     ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
10822 
10823     XSRETURN(argvi);
10824   fail:
10825 
10826     SWIG_croak_null();
10827   }
10828 }
10829 
10830 
XS(_wrap_gsl_complex_arccos)10831 XS(_wrap_gsl_complex_arccos) {
10832   {
10833     gsl_complex arg1 ;
10834     void *argp1 ;
10835     int res1 = 0 ;
10836     int argvi = 0;
10837     gsl_complex result;
10838     dXSARGS;
10839 
10840     if ((items < 1) || (items > 1)) {
10841       SWIG_croak("Usage: gsl_complex_arccos(a);");
10842     }
10843     {
10844       res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex,  0 );
10845       if (!SWIG_IsOK(res1)) {
10846         SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_arccos" "', argument " "1"" of type '" "gsl_complex""'");
10847       }
10848       if (!argp1) {
10849         SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_arccos" "', argument " "1"" of type '" "gsl_complex""'");
10850       } else {
10851         arg1 = *((gsl_complex *)(argp1));
10852       }
10853     }
10854     result = gsl_complex_arccos(arg1);
10855     ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
10856     XSRETURN(argvi);
10857   fail:
10858     SWIG_croak_null();
10859   }
10860 }
10861 
10862 
XS(_wrap_gsl_complex_arccos_real)10863 XS(_wrap_gsl_complex_arccos_real) {
10864   {
10865     double arg1 ;
10866     double val1 ;
10867     int ecode1 = 0 ;
10868     int argvi = 0;
10869     gsl_complex result;
10870     dXSARGS;
10871 
10872     if ((items < 1) || (items > 1)) {
10873       SWIG_croak("Usage: gsl_complex_arccos_real(a);");
10874     }
10875     ecode1 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
10876     if (!SWIG_IsOK(ecode1)) {
10877       SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_complex_arccos_real" "', argument " "1"" of type '" "double""'");
10878     }
10879     arg1 = (double)(val1);
10880     result = gsl_complex_arccos_real(arg1);
10881     ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
10882 
10883     XSRETURN(argvi);
10884   fail:
10885 
10886     SWIG_croak_null();
10887   }
10888 }
10889 
10890 
XS(_wrap_gsl_complex_arcsec)10891 XS(_wrap_gsl_complex_arcsec) {
10892   {
10893     gsl_complex arg1 ;
10894     void *argp1 ;
10895     int res1 = 0 ;
10896     int argvi = 0;
10897     gsl_complex result;
10898     dXSARGS;
10899 
10900     if ((items < 1) || (items > 1)) {
10901       SWIG_croak("Usage: gsl_complex_arcsec(a);");
10902     }
10903     {
10904       res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex,  0 );
10905       if (!SWIG_IsOK(res1)) {
10906         SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_arcsec" "', argument " "1"" of type '" "gsl_complex""'");
10907       }
10908       if (!argp1) {
10909         SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_arcsec" "', argument " "1"" of type '" "gsl_complex""'");
10910       } else {
10911         arg1 = *((gsl_complex *)(argp1));
10912       }
10913     }
10914     result = gsl_complex_arcsec(arg1);
10915     ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
10916     XSRETURN(argvi);
10917   fail:
10918     SWIG_croak_null();
10919   }
10920 }
10921 
10922 
XS(_wrap_gsl_complex_arcsec_real)10923 XS(_wrap_gsl_complex_arcsec_real) {
10924   {
10925     double arg1 ;
10926     double val1 ;
10927     int ecode1 = 0 ;
10928     int argvi = 0;
10929     gsl_complex result;
10930     dXSARGS;
10931 
10932     if ((items < 1) || (items > 1)) {
10933       SWIG_croak("Usage: gsl_complex_arcsec_real(a);");
10934     }
10935     ecode1 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
10936     if (!SWIG_IsOK(ecode1)) {
10937       SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_complex_arcsec_real" "', argument " "1"" of type '" "double""'");
10938     }
10939     arg1 = (double)(val1);
10940     result = gsl_complex_arcsec_real(arg1);
10941     ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
10942 
10943     XSRETURN(argvi);
10944   fail:
10945 
10946     SWIG_croak_null();
10947   }
10948 }
10949 
10950 
XS(_wrap_gsl_complex_arccsc)10951 XS(_wrap_gsl_complex_arccsc) {
10952   {
10953     gsl_complex arg1 ;
10954     void *argp1 ;
10955     int res1 = 0 ;
10956     int argvi = 0;
10957     gsl_complex result;
10958     dXSARGS;
10959 
10960     if ((items < 1) || (items > 1)) {
10961       SWIG_croak("Usage: gsl_complex_arccsc(a);");
10962     }
10963     {
10964       res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex,  0 );
10965       if (!SWIG_IsOK(res1)) {
10966         SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_arccsc" "', argument " "1"" of type '" "gsl_complex""'");
10967       }
10968       if (!argp1) {
10969         SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_arccsc" "', argument " "1"" of type '" "gsl_complex""'");
10970       } else {
10971         arg1 = *((gsl_complex *)(argp1));
10972       }
10973     }
10974     result = gsl_complex_arccsc(arg1);
10975     ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
10976     XSRETURN(argvi);
10977   fail:
10978     SWIG_croak_null();
10979   }
10980 }
10981 
10982 
XS(_wrap_gsl_complex_arccsc_real)10983 XS(_wrap_gsl_complex_arccsc_real) {
10984   {
10985     double arg1 ;
10986     double val1 ;
10987     int ecode1 = 0 ;
10988     int argvi = 0;
10989     gsl_complex result;
10990     dXSARGS;
10991 
10992     if ((items < 1) || (items > 1)) {
10993       SWIG_croak("Usage: gsl_complex_arccsc_real(a);");
10994     }
10995     ecode1 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
10996     if (!SWIG_IsOK(ecode1)) {
10997       SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_complex_arccsc_real" "', argument " "1"" of type '" "double""'");
10998     }
10999     arg1 = (double)(val1);
11000     result = gsl_complex_arccsc_real(arg1);
11001     ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
11002 
11003     XSRETURN(argvi);
11004   fail:
11005 
11006     SWIG_croak_null();
11007   }
11008 }
11009 
11010 
XS(_wrap_gsl_complex_arctan)11011 XS(_wrap_gsl_complex_arctan) {
11012   {
11013     gsl_complex arg1 ;
11014     void *argp1 ;
11015     int res1 = 0 ;
11016     int argvi = 0;
11017     gsl_complex result;
11018     dXSARGS;
11019 
11020     if ((items < 1) || (items > 1)) {
11021       SWIG_croak("Usage: gsl_complex_arctan(a);");
11022     }
11023     {
11024       res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex,  0 );
11025       if (!SWIG_IsOK(res1)) {
11026         SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_arctan" "', argument " "1"" of type '" "gsl_complex""'");
11027       }
11028       if (!argp1) {
11029         SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_arctan" "', argument " "1"" of type '" "gsl_complex""'");
11030       } else {
11031         arg1 = *((gsl_complex *)(argp1));
11032       }
11033     }
11034     result = gsl_complex_arctan(arg1);
11035     ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
11036     XSRETURN(argvi);
11037   fail:
11038     SWIG_croak_null();
11039   }
11040 }
11041 
11042 
XS(_wrap_gsl_complex_arccot)11043 XS(_wrap_gsl_complex_arccot) {
11044   {
11045     gsl_complex arg1 ;
11046     void *argp1 ;
11047     int res1 = 0 ;
11048     int argvi = 0;
11049     gsl_complex result;
11050     dXSARGS;
11051 
11052     if ((items < 1) || (items > 1)) {
11053       SWIG_croak("Usage: gsl_complex_arccot(a);");
11054     }
11055     {
11056       res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex,  0 );
11057       if (!SWIG_IsOK(res1)) {
11058         SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_arccot" "', argument " "1"" of type '" "gsl_complex""'");
11059       }
11060       if (!argp1) {
11061         SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_arccot" "', argument " "1"" of type '" "gsl_complex""'");
11062       } else {
11063         arg1 = *((gsl_complex *)(argp1));
11064       }
11065     }
11066     result = gsl_complex_arccot(arg1);
11067     ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
11068     XSRETURN(argvi);
11069   fail:
11070     SWIG_croak_null();
11071   }
11072 }
11073 
11074 
XS(_wrap_gsl_complex_sinh)11075 XS(_wrap_gsl_complex_sinh) {
11076   {
11077     gsl_complex arg1 ;
11078     void *argp1 ;
11079     int res1 = 0 ;
11080     int argvi = 0;
11081     gsl_complex result;
11082     dXSARGS;
11083 
11084     if ((items < 1) || (items > 1)) {
11085       SWIG_croak("Usage: gsl_complex_sinh(a);");
11086     }
11087     {
11088       res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex,  0 );
11089       if (!SWIG_IsOK(res1)) {
11090         SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_sinh" "', argument " "1"" of type '" "gsl_complex""'");
11091       }
11092       if (!argp1) {
11093         SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_sinh" "', argument " "1"" of type '" "gsl_complex""'");
11094       } else {
11095         arg1 = *((gsl_complex *)(argp1));
11096       }
11097     }
11098     result = gsl_complex_sinh(arg1);
11099     ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
11100     XSRETURN(argvi);
11101   fail:
11102     SWIG_croak_null();
11103   }
11104 }
11105 
11106 
XS(_wrap_gsl_complex_cosh)11107 XS(_wrap_gsl_complex_cosh) {
11108   {
11109     gsl_complex arg1 ;
11110     void *argp1 ;
11111     int res1 = 0 ;
11112     int argvi = 0;
11113     gsl_complex result;
11114     dXSARGS;
11115 
11116     if ((items < 1) || (items > 1)) {
11117       SWIG_croak("Usage: gsl_complex_cosh(a);");
11118     }
11119     {
11120       res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex,  0 );
11121       if (!SWIG_IsOK(res1)) {
11122         SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_cosh" "', argument " "1"" of type '" "gsl_complex""'");
11123       }
11124       if (!argp1) {
11125         SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_cosh" "', argument " "1"" of type '" "gsl_complex""'");
11126       } else {
11127         arg1 = *((gsl_complex *)(argp1));
11128       }
11129     }
11130     result = gsl_complex_cosh(arg1);
11131     ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
11132     XSRETURN(argvi);
11133   fail:
11134     SWIG_croak_null();
11135   }
11136 }
11137 
11138 
XS(_wrap_gsl_complex_sech)11139 XS(_wrap_gsl_complex_sech) {
11140   {
11141     gsl_complex arg1 ;
11142     void *argp1 ;
11143     int res1 = 0 ;
11144     int argvi = 0;
11145     gsl_complex result;
11146     dXSARGS;
11147 
11148     if ((items < 1) || (items > 1)) {
11149       SWIG_croak("Usage: gsl_complex_sech(a);");
11150     }
11151     {
11152       res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex,  0 );
11153       if (!SWIG_IsOK(res1)) {
11154         SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_sech" "', argument " "1"" of type '" "gsl_complex""'");
11155       }
11156       if (!argp1) {
11157         SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_sech" "', argument " "1"" of type '" "gsl_complex""'");
11158       } else {
11159         arg1 = *((gsl_complex *)(argp1));
11160       }
11161     }
11162     result = gsl_complex_sech(arg1);
11163     ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
11164     XSRETURN(argvi);
11165   fail:
11166     SWIG_croak_null();
11167   }
11168 }
11169 
11170 
XS(_wrap_gsl_complex_csch)11171 XS(_wrap_gsl_complex_csch) {
11172   {
11173     gsl_complex arg1 ;
11174     void *argp1 ;
11175     int res1 = 0 ;
11176     int argvi = 0;
11177     gsl_complex result;
11178     dXSARGS;
11179 
11180     if ((items < 1) || (items > 1)) {
11181       SWIG_croak("Usage: gsl_complex_csch(a);");
11182     }
11183     {
11184       res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex,  0 );
11185       if (!SWIG_IsOK(res1)) {
11186         SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_csch" "', argument " "1"" of type '" "gsl_complex""'");
11187       }
11188       if (!argp1) {
11189         SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_csch" "', argument " "1"" of type '" "gsl_complex""'");
11190       } else {
11191         arg1 = *((gsl_complex *)(argp1));
11192       }
11193     }
11194     result = gsl_complex_csch(arg1);
11195     ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
11196     XSRETURN(argvi);
11197   fail:
11198     SWIG_croak_null();
11199   }
11200 }
11201 
11202 
XS(_wrap_gsl_complex_tanh)11203 XS(_wrap_gsl_complex_tanh) {
11204   {
11205     gsl_complex arg1 ;
11206     void *argp1 ;
11207     int res1 = 0 ;
11208     int argvi = 0;
11209     gsl_complex result;
11210     dXSARGS;
11211 
11212     if ((items < 1) || (items > 1)) {
11213       SWIG_croak("Usage: gsl_complex_tanh(a);");
11214     }
11215     {
11216       res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex,  0 );
11217       if (!SWIG_IsOK(res1)) {
11218         SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_tanh" "', argument " "1"" of type '" "gsl_complex""'");
11219       }
11220       if (!argp1) {
11221         SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_tanh" "', argument " "1"" of type '" "gsl_complex""'");
11222       } else {
11223         arg1 = *((gsl_complex *)(argp1));
11224       }
11225     }
11226     result = gsl_complex_tanh(arg1);
11227     ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
11228     XSRETURN(argvi);
11229   fail:
11230     SWIG_croak_null();
11231   }
11232 }
11233 
11234 
XS(_wrap_gsl_complex_coth)11235 XS(_wrap_gsl_complex_coth) {
11236   {
11237     gsl_complex arg1 ;
11238     void *argp1 ;
11239     int res1 = 0 ;
11240     int argvi = 0;
11241     gsl_complex result;
11242     dXSARGS;
11243 
11244     if ((items < 1) || (items > 1)) {
11245       SWIG_croak("Usage: gsl_complex_coth(a);");
11246     }
11247     {
11248       res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex,  0 );
11249       if (!SWIG_IsOK(res1)) {
11250         SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_coth" "', argument " "1"" of type '" "gsl_complex""'");
11251       }
11252       if (!argp1) {
11253         SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_coth" "', argument " "1"" of type '" "gsl_complex""'");
11254       } else {
11255         arg1 = *((gsl_complex *)(argp1));
11256       }
11257     }
11258     result = gsl_complex_coth(arg1);
11259     ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
11260     XSRETURN(argvi);
11261   fail:
11262     SWIG_croak_null();
11263   }
11264 }
11265 
11266 
XS(_wrap_gsl_complex_arcsinh)11267 XS(_wrap_gsl_complex_arcsinh) {
11268   {
11269     gsl_complex arg1 ;
11270     void *argp1 ;
11271     int res1 = 0 ;
11272     int argvi = 0;
11273     gsl_complex result;
11274     dXSARGS;
11275 
11276     if ((items < 1) || (items > 1)) {
11277       SWIG_croak("Usage: gsl_complex_arcsinh(a);");
11278     }
11279     {
11280       res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex,  0 );
11281       if (!SWIG_IsOK(res1)) {
11282         SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_arcsinh" "', argument " "1"" of type '" "gsl_complex""'");
11283       }
11284       if (!argp1) {
11285         SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_arcsinh" "', argument " "1"" of type '" "gsl_complex""'");
11286       } else {
11287         arg1 = *((gsl_complex *)(argp1));
11288       }
11289     }
11290     result = gsl_complex_arcsinh(arg1);
11291     ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
11292     XSRETURN(argvi);
11293   fail:
11294     SWIG_croak_null();
11295   }
11296 }
11297 
11298 
XS(_wrap_gsl_complex_arccosh)11299 XS(_wrap_gsl_complex_arccosh) {
11300   {
11301     gsl_complex arg1 ;
11302     void *argp1 ;
11303     int res1 = 0 ;
11304     int argvi = 0;
11305     gsl_complex result;
11306     dXSARGS;
11307 
11308     if ((items < 1) || (items > 1)) {
11309       SWIG_croak("Usage: gsl_complex_arccosh(a);");
11310     }
11311     {
11312       res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex,  0 );
11313       if (!SWIG_IsOK(res1)) {
11314         SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_arccosh" "', argument " "1"" of type '" "gsl_complex""'");
11315       }
11316       if (!argp1) {
11317         SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_arccosh" "', argument " "1"" of type '" "gsl_complex""'");
11318       } else {
11319         arg1 = *((gsl_complex *)(argp1));
11320       }
11321     }
11322     result = gsl_complex_arccosh(arg1);
11323     ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
11324     XSRETURN(argvi);
11325   fail:
11326     SWIG_croak_null();
11327   }
11328 }
11329 
11330 
XS(_wrap_gsl_complex_arccosh_real)11331 XS(_wrap_gsl_complex_arccosh_real) {
11332   {
11333     double arg1 ;
11334     double val1 ;
11335     int ecode1 = 0 ;
11336     int argvi = 0;
11337     gsl_complex result;
11338     dXSARGS;
11339 
11340     if ((items < 1) || (items > 1)) {
11341       SWIG_croak("Usage: gsl_complex_arccosh_real(a);");
11342     }
11343     ecode1 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
11344     if (!SWIG_IsOK(ecode1)) {
11345       SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_complex_arccosh_real" "', argument " "1"" of type '" "double""'");
11346     }
11347     arg1 = (double)(val1);
11348     result = gsl_complex_arccosh_real(arg1);
11349     ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
11350 
11351     XSRETURN(argvi);
11352   fail:
11353 
11354     SWIG_croak_null();
11355   }
11356 }
11357 
11358 
XS(_wrap_gsl_complex_arcsech)11359 XS(_wrap_gsl_complex_arcsech) {
11360   {
11361     gsl_complex arg1 ;
11362     void *argp1 ;
11363     int res1 = 0 ;
11364     int argvi = 0;
11365     gsl_complex result;
11366     dXSARGS;
11367 
11368     if ((items < 1) || (items > 1)) {
11369       SWIG_croak("Usage: gsl_complex_arcsech(a);");
11370     }
11371     {
11372       res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex,  0 );
11373       if (!SWIG_IsOK(res1)) {
11374         SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_arcsech" "', argument " "1"" of type '" "gsl_complex""'");
11375       }
11376       if (!argp1) {
11377         SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_arcsech" "', argument " "1"" of type '" "gsl_complex""'");
11378       } else {
11379         arg1 = *((gsl_complex *)(argp1));
11380       }
11381     }
11382     result = gsl_complex_arcsech(arg1);
11383     ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
11384     XSRETURN(argvi);
11385   fail:
11386     SWIG_croak_null();
11387   }
11388 }
11389 
11390 
XS(_wrap_gsl_complex_arccsch)11391 XS(_wrap_gsl_complex_arccsch) {
11392   {
11393     gsl_complex arg1 ;
11394     void *argp1 ;
11395     int res1 = 0 ;
11396     int argvi = 0;
11397     gsl_complex result;
11398     dXSARGS;
11399 
11400     if ((items < 1) || (items > 1)) {
11401       SWIG_croak("Usage: gsl_complex_arccsch(a);");
11402     }
11403     {
11404       res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex,  0 );
11405       if (!SWIG_IsOK(res1)) {
11406         SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_arccsch" "', argument " "1"" of type '" "gsl_complex""'");
11407       }
11408       if (!argp1) {
11409         SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_arccsch" "', argument " "1"" of type '" "gsl_complex""'");
11410       } else {
11411         arg1 = *((gsl_complex *)(argp1));
11412       }
11413     }
11414     result = gsl_complex_arccsch(arg1);
11415     ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
11416     XSRETURN(argvi);
11417   fail:
11418     SWIG_croak_null();
11419   }
11420 }
11421 
11422 
XS(_wrap_gsl_complex_arctanh)11423 XS(_wrap_gsl_complex_arctanh) {
11424   {
11425     gsl_complex arg1 ;
11426     void *argp1 ;
11427     int res1 = 0 ;
11428     int argvi = 0;
11429     gsl_complex result;
11430     dXSARGS;
11431 
11432     if ((items < 1) || (items > 1)) {
11433       SWIG_croak("Usage: gsl_complex_arctanh(a);");
11434     }
11435     {
11436       res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex,  0 );
11437       if (!SWIG_IsOK(res1)) {
11438         SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_arctanh" "', argument " "1"" of type '" "gsl_complex""'");
11439       }
11440       if (!argp1) {
11441         SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_arctanh" "', argument " "1"" of type '" "gsl_complex""'");
11442       } else {
11443         arg1 = *((gsl_complex *)(argp1));
11444       }
11445     }
11446     result = gsl_complex_arctanh(arg1);
11447     ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
11448     XSRETURN(argvi);
11449   fail:
11450     SWIG_croak_null();
11451   }
11452 }
11453 
11454 
XS(_wrap_gsl_complex_arctanh_real)11455 XS(_wrap_gsl_complex_arctanh_real) {
11456   {
11457     double arg1 ;
11458     double val1 ;
11459     int ecode1 = 0 ;
11460     int argvi = 0;
11461     gsl_complex result;
11462     dXSARGS;
11463 
11464     if ((items < 1) || (items > 1)) {
11465       SWIG_croak("Usage: gsl_complex_arctanh_real(a);");
11466     }
11467     ecode1 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
11468     if (!SWIG_IsOK(ecode1)) {
11469       SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_complex_arctanh_real" "', argument " "1"" of type '" "double""'");
11470     }
11471     arg1 = (double)(val1);
11472     result = gsl_complex_arctanh_real(arg1);
11473     ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
11474 
11475     XSRETURN(argvi);
11476   fail:
11477 
11478     SWIG_croak_null();
11479   }
11480 }
11481 
11482 
XS(_wrap_gsl_complex_arccoth)11483 XS(_wrap_gsl_complex_arccoth) {
11484   {
11485     gsl_complex arg1 ;
11486     void *argp1 ;
11487     int res1 = 0 ;
11488     int argvi = 0;
11489     gsl_complex result;
11490     dXSARGS;
11491 
11492     if ((items < 1) || (items > 1)) {
11493       SWIG_croak("Usage: gsl_complex_arccoth(a);");
11494     }
11495     {
11496       res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex,  0 );
11497       if (!SWIG_IsOK(res1)) {
11498         SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_arccoth" "', argument " "1"" of type '" "gsl_complex""'");
11499       }
11500       if (!argp1) {
11501         SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_arccoth" "', argument " "1"" of type '" "gsl_complex""'");
11502       } else {
11503         arg1 = *((gsl_complex *)(argp1));
11504       }
11505     }
11506     result = gsl_complex_arccoth(arg1);
11507     ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
11508     XSRETURN(argvi);
11509   fail:
11510     SWIG_croak_null();
11511   }
11512 }
11513 
11514 
11515 
11516 /* -------- TYPE CONVERSION AND EQUIVALENCE RULES (BEGIN) -------- */
11517 
11518 static swig_type_info _swigt__p_FILE = {"_p_FILE", "FILE *", 0, 0, (void*)0, 0};
11519 static swig_type_info _swigt__p_char = {"_p_char", "char *", 0, 0, (void*)0, 0};
11520 static swig_type_info _swigt__p_double = {"_p_double", "double *", 0, 0, (void*)0, 0};
11521 static swig_type_info _swigt__p_f_p_q_const__char_p_q_const__char_int_int__void = {"_p_f_p_q_const__char_p_q_const__char_int_int__void", "void (*)(char const *,char const *,int,int)|gsl_error_handler_t *", 0, 0, (void*)0, 0};
11522 static swig_type_info _swigt__p_f_p_q_const__char_p_q_const__char_int_p_q_const__char__void = {"_p_f_p_q_const__char_p_q_const__char_int_p_q_const__char__void", "gsl_stream_handler_t *|void (*)(char const *,char const *,int,char const *)", 0, 0, (void*)0, 0};
11523 static swig_type_info _swigt__p_float = {"_p_float", "float *", 0, 0, (void*)0, 0};
11524 static swig_type_info _swigt__p_gsl_complex = {"_p_gsl_complex", "gsl_complex *", 0, 0, (void*)"Math::GSL::Linalg::gsl_complex", 0};
11525 static swig_type_info _swigt__p_gsl_complex_float = {"_p_gsl_complex_float", "gsl_complex_float *", 0, 0, (void*)"Math::GSL::Linalg::gsl_complex_float", 0};
11526 static swig_type_info _swigt__p_gsl_complex_long_double = {"_p_gsl_complex_long_double", "gsl_complex_long_double *", 0, 0, (void*)"Math::GSL::Linalg::gsl_complex_long_double", 0};
11527 static swig_type_info _swigt__p_gsl_linalg_matrix_mod_t = {"_p_gsl_linalg_matrix_mod_t", "enum gsl_linalg_matrix_mod_t *|gsl_linalg_matrix_mod_t *", 0, 0, (void*)0, 0};
11528 static swig_type_info _swigt__p_gsl_matrix = {"_p_gsl_matrix", "gsl_matrix *", 0, 0, (void*)0, 0};
11529 static swig_type_info _swigt__p_gsl_matrix_complex = {"_p_gsl_matrix_complex", "gsl_matrix_complex *", 0, 0, (void*)0, 0};
11530 static swig_type_info _swigt__p_gsl_mode_t = {"_p_gsl_mode_t", "gsl_mode_t *", 0, 0, (void*)0, 0};
11531 static swig_type_info _swigt__p_gsl_permutation_struct = {"_p_gsl_permutation_struct", "gsl_permutation *|struct gsl_permutation_struct *|gsl_permutation_struct *", 0, 0, (void*)"Math::GSL::Linalg::gsl_permutation_struct", 0};
11532 static swig_type_info _swigt__p_gsl_vector = {"_p_gsl_vector", "gsl_vector *", 0, 0, (void*)0, 0};
11533 static swig_type_info _swigt__p_gsl_vector_complex = {"_p_gsl_vector_complex", "gsl_vector_complex *", 0, 0, (void*)0, 0};
11534 static swig_type_info _swigt__p_int = {"_p_int", "int *", 0, 0, (void*)0, 0};
11535 static swig_type_info _swigt__p_long_double = {"_p_long_double", "long double *", 0, 0, (void*)0, 0};
11536 static swig_type_info _swigt__p_size_t = {"_p_size_t", "size_t *", 0, 0, (void*)0, 0};
11537 
11538 static swig_type_info *swig_type_initial[] = {
11539   &_swigt__p_FILE,
11540   &_swigt__p_char,
11541   &_swigt__p_double,
11542   &_swigt__p_f_p_q_const__char_p_q_const__char_int_int__void,
11543   &_swigt__p_f_p_q_const__char_p_q_const__char_int_p_q_const__char__void,
11544   &_swigt__p_float,
11545   &_swigt__p_gsl_complex,
11546   &_swigt__p_gsl_complex_float,
11547   &_swigt__p_gsl_complex_long_double,
11548   &_swigt__p_gsl_linalg_matrix_mod_t,
11549   &_swigt__p_gsl_matrix,
11550   &_swigt__p_gsl_matrix_complex,
11551   &_swigt__p_gsl_mode_t,
11552   &_swigt__p_gsl_permutation_struct,
11553   &_swigt__p_gsl_vector,
11554   &_swigt__p_gsl_vector_complex,
11555   &_swigt__p_int,
11556   &_swigt__p_long_double,
11557   &_swigt__p_size_t,
11558 };
11559 
11560 static swig_cast_info _swigc__p_FILE[] = {  {&_swigt__p_FILE, 0, 0, 0},{0, 0, 0, 0}};
11561 static swig_cast_info _swigc__p_char[] = {  {&_swigt__p_char, 0, 0, 0},{0, 0, 0, 0}};
11562 static swig_cast_info _swigc__p_double[] = {  {&_swigt__p_double, 0, 0, 0},{0, 0, 0, 0}};
11563 static swig_cast_info _swigc__p_f_p_q_const__char_p_q_const__char_int_int__void[] = {  {&_swigt__p_f_p_q_const__char_p_q_const__char_int_int__void, 0, 0, 0},{0, 0, 0, 0}};
11564 static swig_cast_info _swigc__p_f_p_q_const__char_p_q_const__char_int_p_q_const__char__void[] = {  {&_swigt__p_f_p_q_const__char_p_q_const__char_int_p_q_const__char__void, 0, 0, 0},{0, 0, 0, 0}};
11565 static swig_cast_info _swigc__p_float[] = {  {&_swigt__p_float, 0, 0, 0},{0, 0, 0, 0}};
11566 static swig_cast_info _swigc__p_gsl_complex[] = {  {&_swigt__p_gsl_complex, 0, 0, 0},{0, 0, 0, 0}};
11567 static swig_cast_info _swigc__p_gsl_complex_float[] = {  {&_swigt__p_gsl_complex_float, 0, 0, 0},{0, 0, 0, 0}};
11568 static swig_cast_info _swigc__p_gsl_complex_long_double[] = {  {&_swigt__p_gsl_complex_long_double, 0, 0, 0},{0, 0, 0, 0}};
11569 static swig_cast_info _swigc__p_gsl_linalg_matrix_mod_t[] = {  {&_swigt__p_gsl_linalg_matrix_mod_t, 0, 0, 0},{0, 0, 0, 0}};
11570 static swig_cast_info _swigc__p_gsl_matrix[] = {  {&_swigt__p_gsl_matrix, 0, 0, 0},{0, 0, 0, 0}};
11571 static swig_cast_info _swigc__p_gsl_matrix_complex[] = {  {&_swigt__p_gsl_matrix_complex, 0, 0, 0},{0, 0, 0, 0}};
11572 static swig_cast_info _swigc__p_gsl_mode_t[] = {  {&_swigt__p_gsl_mode_t, 0, 0, 0},{0, 0, 0, 0}};
11573 static swig_cast_info _swigc__p_gsl_permutation_struct[] = {  {&_swigt__p_gsl_permutation_struct, 0, 0, 0},{0, 0, 0, 0}};
11574 static swig_cast_info _swigc__p_gsl_vector[] = {  {&_swigt__p_gsl_vector, 0, 0, 0},{0, 0, 0, 0}};
11575 static swig_cast_info _swigc__p_gsl_vector_complex[] = {  {&_swigt__p_gsl_vector_complex, 0, 0, 0},{0, 0, 0, 0}};
11576 static swig_cast_info _swigc__p_int[] = {  {&_swigt__p_int, 0, 0, 0},{0, 0, 0, 0}};
11577 static swig_cast_info _swigc__p_long_double[] = {  {&_swigt__p_long_double, 0, 0, 0},{0, 0, 0, 0}};
11578 static swig_cast_info _swigc__p_size_t[] = {  {&_swigt__p_size_t, 0, 0, 0},{0, 0, 0, 0}};
11579 
11580 static swig_cast_info *swig_cast_initial[] = {
11581   _swigc__p_FILE,
11582   _swigc__p_char,
11583   _swigc__p_double,
11584   _swigc__p_f_p_q_const__char_p_q_const__char_int_int__void,
11585   _swigc__p_f_p_q_const__char_p_q_const__char_int_p_q_const__char__void,
11586   _swigc__p_float,
11587   _swigc__p_gsl_complex,
11588   _swigc__p_gsl_complex_float,
11589   _swigc__p_gsl_complex_long_double,
11590   _swigc__p_gsl_linalg_matrix_mod_t,
11591   _swigc__p_gsl_matrix,
11592   _swigc__p_gsl_matrix_complex,
11593   _swigc__p_gsl_mode_t,
11594   _swigc__p_gsl_permutation_struct,
11595   _swigc__p_gsl_vector,
11596   _swigc__p_gsl_vector_complex,
11597   _swigc__p_int,
11598   _swigc__p_long_double,
11599   _swigc__p_size_t,
11600 };
11601 
11602 
11603 /* -------- TYPE CONVERSION AND EQUIVALENCE RULES (END) -------- */
11604 
11605 static swig_constant_info swig_constants[] = {
11606 {0,0,0,0,0,0}
11607 };
11608 #ifdef __cplusplus
11609 }
11610 #endif
11611 static swig_variable_info swig_variables[] = {
11612 {0,0,0,0}
11613 };
11614 static swig_command_info swig_commands[] = {
11615 {"Math::GSL::Linalgc::gsl_error", _wrap_gsl_error},
11616 {"Math::GSL::Linalgc::gsl_stream_printf", _wrap_gsl_stream_printf},
11617 {"Math::GSL::Linalgc::gsl_strerror", _wrap_gsl_strerror},
11618 {"Math::GSL::Linalgc::gsl_set_error_handler", _wrap_gsl_set_error_handler},
11619 {"Math::GSL::Linalgc::gsl_set_error_handler_off", _wrap_gsl_set_error_handler_off},
11620 {"Math::GSL::Linalgc::gsl_set_stream_handler", _wrap_gsl_set_stream_handler},
11621 {"Math::GSL::Linalgc::gsl_set_stream", _wrap_gsl_set_stream},
11622 {"Math::GSL::Linalgc::gsl_linalg_matmult", _wrap_gsl_linalg_matmult},
11623 {"Math::GSL::Linalgc::gsl_linalg_matmult_mod", _wrap_gsl_linalg_matmult_mod},
11624 {"Math::GSL::Linalgc::gsl_linalg_exponential_ss", _wrap_gsl_linalg_exponential_ss},
11625 {"Math::GSL::Linalgc::gsl_linalg_householder_transform", _wrap_gsl_linalg_householder_transform},
11626 {"Math::GSL::Linalgc::gsl_linalg_complex_householder_transform", _wrap_gsl_linalg_complex_householder_transform},
11627 {"Math::GSL::Linalgc::gsl_linalg_householder_hm", _wrap_gsl_linalg_householder_hm},
11628 {"Math::GSL::Linalgc::gsl_linalg_householder_mh", _wrap_gsl_linalg_householder_mh},
11629 {"Math::GSL::Linalgc::gsl_linalg_householder_hv", _wrap_gsl_linalg_householder_hv},
11630 {"Math::GSL::Linalgc::gsl_linalg_householder_hm1", _wrap_gsl_linalg_householder_hm1},
11631 {"Math::GSL::Linalgc::gsl_linalg_complex_householder_hm", _wrap_gsl_linalg_complex_householder_hm},
11632 {"Math::GSL::Linalgc::gsl_linalg_complex_householder_mh", _wrap_gsl_linalg_complex_householder_mh},
11633 {"Math::GSL::Linalgc::gsl_linalg_complex_householder_hv", _wrap_gsl_linalg_complex_householder_hv},
11634 {"Math::GSL::Linalgc::gsl_linalg_hessenberg_decomp", _wrap_gsl_linalg_hessenberg_decomp},
11635 {"Math::GSL::Linalgc::gsl_linalg_hessenberg_unpack", _wrap_gsl_linalg_hessenberg_unpack},
11636 {"Math::GSL::Linalgc::gsl_linalg_hessenberg_unpack_accum", _wrap_gsl_linalg_hessenberg_unpack_accum},
11637 {"Math::GSL::Linalgc::gsl_linalg_hessenberg_set_zero", _wrap_gsl_linalg_hessenberg_set_zero},
11638 {"Math::GSL::Linalgc::gsl_linalg_hessenberg_submatrix", _wrap_gsl_linalg_hessenberg_submatrix},
11639 {"Math::GSL::Linalgc::gsl_linalg_hesstri_decomp", _wrap_gsl_linalg_hesstri_decomp},
11640 {"Math::GSL::Linalgc::gsl_linalg_SV_decomp", _wrap_gsl_linalg_SV_decomp},
11641 {"Math::GSL::Linalgc::gsl_linalg_SV_decomp_mod", _wrap_gsl_linalg_SV_decomp_mod},
11642 {"Math::GSL::Linalgc::gsl_linalg_SV_decomp_jacobi", _wrap_gsl_linalg_SV_decomp_jacobi},
11643 {"Math::GSL::Linalgc::gsl_linalg_SV_solve", _wrap_gsl_linalg_SV_solve},
11644 {"Math::GSL::Linalgc::gsl_linalg_SV_leverage", _wrap_gsl_linalg_SV_leverage},
11645 {"Math::GSL::Linalgc::gsl_linalg_LU_decomp", _wrap_gsl_linalg_LU_decomp},
11646 {"Math::GSL::Linalgc::gsl_linalg_LU_solve", _wrap_gsl_linalg_LU_solve},
11647 {"Math::GSL::Linalgc::gsl_linalg_LU_svx", _wrap_gsl_linalg_LU_svx},
11648 {"Math::GSL::Linalgc::gsl_linalg_LU_refine", _wrap_gsl_linalg_LU_refine},
11649 {"Math::GSL::Linalgc::gsl_linalg_LU_invert", _wrap_gsl_linalg_LU_invert},
11650 {"Math::GSL::Linalgc::gsl_linalg_LU_det", _wrap_gsl_linalg_LU_det},
11651 {"Math::GSL::Linalgc::gsl_linalg_LU_lndet", _wrap_gsl_linalg_LU_lndet},
11652 {"Math::GSL::Linalgc::gsl_linalg_LU_sgndet", _wrap_gsl_linalg_LU_sgndet},
11653 {"Math::GSL::Linalgc::gsl_linalg_complex_LU_decomp", _wrap_gsl_linalg_complex_LU_decomp},
11654 {"Math::GSL::Linalgc::gsl_linalg_complex_LU_solve", _wrap_gsl_linalg_complex_LU_solve},
11655 {"Math::GSL::Linalgc::gsl_linalg_complex_LU_svx", _wrap_gsl_linalg_complex_LU_svx},
11656 {"Math::GSL::Linalgc::gsl_linalg_complex_LU_refine", _wrap_gsl_linalg_complex_LU_refine},
11657 {"Math::GSL::Linalgc::gsl_linalg_complex_LU_invert", _wrap_gsl_linalg_complex_LU_invert},
11658 {"Math::GSL::Linalgc::gsl_linalg_complex_LU_det", _wrap_gsl_linalg_complex_LU_det},
11659 {"Math::GSL::Linalgc::gsl_linalg_complex_LU_lndet", _wrap_gsl_linalg_complex_LU_lndet},
11660 {"Math::GSL::Linalgc::gsl_linalg_complex_LU_sgndet", _wrap_gsl_linalg_complex_LU_sgndet},
11661 {"Math::GSL::Linalgc::gsl_linalg_QR_decomp", _wrap_gsl_linalg_QR_decomp},
11662 {"Math::GSL::Linalgc::gsl_linalg_QR_solve", _wrap_gsl_linalg_QR_solve},
11663 {"Math::GSL::Linalgc::gsl_linalg_QR_svx", _wrap_gsl_linalg_QR_svx},
11664 {"Math::GSL::Linalgc::gsl_linalg_QR_lssolve", _wrap_gsl_linalg_QR_lssolve},
11665 {"Math::GSL::Linalgc::gsl_linalg_QR_QRsolve", _wrap_gsl_linalg_QR_QRsolve},
11666 {"Math::GSL::Linalgc::gsl_linalg_QR_Rsolve", _wrap_gsl_linalg_QR_Rsolve},
11667 {"Math::GSL::Linalgc::gsl_linalg_QR_Rsvx", _wrap_gsl_linalg_QR_Rsvx},
11668 {"Math::GSL::Linalgc::gsl_linalg_QR_update", _wrap_gsl_linalg_QR_update},
11669 {"Math::GSL::Linalgc::gsl_linalg_QR_QTvec", _wrap_gsl_linalg_QR_QTvec},
11670 {"Math::GSL::Linalgc::gsl_linalg_QR_Qvec", _wrap_gsl_linalg_QR_Qvec},
11671 {"Math::GSL::Linalgc::gsl_linalg_QR_QTmat", _wrap_gsl_linalg_QR_QTmat},
11672 {"Math::GSL::Linalgc::gsl_linalg_QR_unpack", _wrap_gsl_linalg_QR_unpack},
11673 {"Math::GSL::Linalgc::gsl_linalg_R_solve", _wrap_gsl_linalg_R_solve},
11674 {"Math::GSL::Linalgc::gsl_linalg_R_svx", _wrap_gsl_linalg_R_svx},
11675 {"Math::GSL::Linalgc::gsl_linalg_QRPT_decomp", _wrap_gsl_linalg_QRPT_decomp},
11676 {"Math::GSL::Linalgc::gsl_linalg_QRPT_decomp2", _wrap_gsl_linalg_QRPT_decomp2},
11677 {"Math::GSL::Linalgc::gsl_linalg_QRPT_solve", _wrap_gsl_linalg_QRPT_solve},
11678 {"Math::GSL::Linalgc::gsl_linalg_QRPT_svx", _wrap_gsl_linalg_QRPT_svx},
11679 {"Math::GSL::Linalgc::gsl_linalg_QRPT_QRsolve", _wrap_gsl_linalg_QRPT_QRsolve},
11680 {"Math::GSL::Linalgc::gsl_linalg_QRPT_Rsolve", _wrap_gsl_linalg_QRPT_Rsolve},
11681 {"Math::GSL::Linalgc::gsl_linalg_QRPT_Rsvx", _wrap_gsl_linalg_QRPT_Rsvx},
11682 {"Math::GSL::Linalgc::gsl_linalg_QRPT_update", _wrap_gsl_linalg_QRPT_update},
11683 {"Math::GSL::Linalgc::gsl_linalg_LQ_decomp", _wrap_gsl_linalg_LQ_decomp},
11684 {"Math::GSL::Linalgc::gsl_linalg_LQ_solve_T", _wrap_gsl_linalg_LQ_solve_T},
11685 {"Math::GSL::Linalgc::gsl_linalg_LQ_svx_T", _wrap_gsl_linalg_LQ_svx_T},
11686 {"Math::GSL::Linalgc::gsl_linalg_LQ_lssolve_T", _wrap_gsl_linalg_LQ_lssolve_T},
11687 {"Math::GSL::Linalgc::gsl_linalg_LQ_Lsolve_T", _wrap_gsl_linalg_LQ_Lsolve_T},
11688 {"Math::GSL::Linalgc::gsl_linalg_LQ_Lsvx_T", _wrap_gsl_linalg_LQ_Lsvx_T},
11689 {"Math::GSL::Linalgc::gsl_linalg_L_solve_T", _wrap_gsl_linalg_L_solve_T},
11690 {"Math::GSL::Linalgc::gsl_linalg_LQ_vecQ", _wrap_gsl_linalg_LQ_vecQ},
11691 {"Math::GSL::Linalgc::gsl_linalg_LQ_vecQT", _wrap_gsl_linalg_LQ_vecQT},
11692 {"Math::GSL::Linalgc::gsl_linalg_LQ_unpack", _wrap_gsl_linalg_LQ_unpack},
11693 {"Math::GSL::Linalgc::gsl_linalg_LQ_update", _wrap_gsl_linalg_LQ_update},
11694 {"Math::GSL::Linalgc::gsl_linalg_LQ_LQsolve", _wrap_gsl_linalg_LQ_LQsolve},
11695 {"Math::GSL::Linalgc::gsl_linalg_PTLQ_decomp", _wrap_gsl_linalg_PTLQ_decomp},
11696 {"Math::GSL::Linalgc::gsl_linalg_PTLQ_decomp2", _wrap_gsl_linalg_PTLQ_decomp2},
11697 {"Math::GSL::Linalgc::gsl_linalg_PTLQ_solve_T", _wrap_gsl_linalg_PTLQ_solve_T},
11698 {"Math::GSL::Linalgc::gsl_linalg_PTLQ_svx_T", _wrap_gsl_linalg_PTLQ_svx_T},
11699 {"Math::GSL::Linalgc::gsl_linalg_PTLQ_LQsolve_T", _wrap_gsl_linalg_PTLQ_LQsolve_T},
11700 {"Math::GSL::Linalgc::gsl_linalg_PTLQ_Lsolve_T", _wrap_gsl_linalg_PTLQ_Lsolve_T},
11701 {"Math::GSL::Linalgc::gsl_linalg_PTLQ_Lsvx_T", _wrap_gsl_linalg_PTLQ_Lsvx_T},
11702 {"Math::GSL::Linalgc::gsl_linalg_PTLQ_update", _wrap_gsl_linalg_PTLQ_update},
11703 {"Math::GSL::Linalgc::gsl_linalg_cholesky_decomp", _wrap_gsl_linalg_cholesky_decomp},
11704 {"Math::GSL::Linalgc::gsl_linalg_cholesky_solve", _wrap_gsl_linalg_cholesky_solve},
11705 {"Math::GSL::Linalgc::gsl_linalg_cholesky_svx", _wrap_gsl_linalg_cholesky_svx},
11706 {"Math::GSL::Linalgc::gsl_linalg_cholesky_invert", _wrap_gsl_linalg_cholesky_invert},
11707 {"Math::GSL::Linalgc::gsl_linalg_cholesky_decomp_unit", _wrap_gsl_linalg_cholesky_decomp_unit},
11708 {"Math::GSL::Linalgc::gsl_linalg_complex_cholesky_decomp", _wrap_gsl_linalg_complex_cholesky_decomp},
11709 {"Math::GSL::Linalgc::gsl_linalg_complex_cholesky_solve", _wrap_gsl_linalg_complex_cholesky_solve},
11710 {"Math::GSL::Linalgc::gsl_linalg_complex_cholesky_svx", _wrap_gsl_linalg_complex_cholesky_svx},
11711 {"Math::GSL::Linalgc::gsl_linalg_complex_cholesky_invert", _wrap_gsl_linalg_complex_cholesky_invert},
11712 {"Math::GSL::Linalgc::gsl_linalg_symmtd_decomp", _wrap_gsl_linalg_symmtd_decomp},
11713 {"Math::GSL::Linalgc::gsl_linalg_symmtd_unpack", _wrap_gsl_linalg_symmtd_unpack},
11714 {"Math::GSL::Linalgc::gsl_linalg_symmtd_unpack_T", _wrap_gsl_linalg_symmtd_unpack_T},
11715 {"Math::GSL::Linalgc::gsl_linalg_hermtd_decomp", _wrap_gsl_linalg_hermtd_decomp},
11716 {"Math::GSL::Linalgc::gsl_linalg_hermtd_unpack", _wrap_gsl_linalg_hermtd_unpack},
11717 {"Math::GSL::Linalgc::gsl_linalg_hermtd_unpack_T", _wrap_gsl_linalg_hermtd_unpack_T},
11718 {"Math::GSL::Linalgc::gsl_linalg_HH_solve", _wrap_gsl_linalg_HH_solve},
11719 {"Math::GSL::Linalgc::gsl_linalg_HH_svx", _wrap_gsl_linalg_HH_svx},
11720 {"Math::GSL::Linalgc::gsl_linalg_solve_symm_tridiag", _wrap_gsl_linalg_solve_symm_tridiag},
11721 {"Math::GSL::Linalgc::gsl_linalg_solve_tridiag", _wrap_gsl_linalg_solve_tridiag},
11722 {"Math::GSL::Linalgc::gsl_linalg_solve_symm_cyc_tridiag", _wrap_gsl_linalg_solve_symm_cyc_tridiag},
11723 {"Math::GSL::Linalgc::gsl_linalg_solve_cyc_tridiag", _wrap_gsl_linalg_solve_cyc_tridiag},
11724 {"Math::GSL::Linalgc::gsl_linalg_bidiag_decomp", _wrap_gsl_linalg_bidiag_decomp},
11725 {"Math::GSL::Linalgc::gsl_linalg_bidiag_unpack", _wrap_gsl_linalg_bidiag_unpack},
11726 {"Math::GSL::Linalgc::gsl_linalg_bidiag_unpack2", _wrap_gsl_linalg_bidiag_unpack2},
11727 {"Math::GSL::Linalgc::gsl_linalg_bidiag_unpack_B", _wrap_gsl_linalg_bidiag_unpack_B},
11728 {"Math::GSL::Linalgc::gsl_linalg_balance_matrix", _wrap_gsl_linalg_balance_matrix},
11729 {"Math::GSL::Linalgc::gsl_linalg_balance_accum", _wrap_gsl_linalg_balance_accum},
11730 {"Math::GSL::Linalgc::gsl_linalg_balance_columns", _wrap_gsl_linalg_balance_columns},
11731 {"Math::GSL::Linalgc::gsl_permutation_struct_size_set", _wrap_gsl_permutation_struct_size_set},
11732 {"Math::GSL::Linalgc::gsl_permutation_struct_size_get", _wrap_gsl_permutation_struct_size_get},
11733 {"Math::GSL::Linalgc::gsl_permutation_struct_data_set", _wrap_gsl_permutation_struct_data_set},
11734 {"Math::GSL::Linalgc::gsl_permutation_struct_data_get", _wrap_gsl_permutation_struct_data_get},
11735 {"Math::GSL::Linalgc::new_gsl_permutation_struct", _wrap_new_gsl_permutation_struct},
11736 {"Math::GSL::Linalgc::delete_gsl_permutation_struct", _wrap_delete_gsl_permutation_struct},
11737 {"Math::GSL::Linalgc::gsl_permutation_alloc", _wrap_gsl_permutation_alloc},
11738 {"Math::GSL::Linalgc::gsl_permutation_calloc", _wrap_gsl_permutation_calloc},
11739 {"Math::GSL::Linalgc::gsl_permutation_init", _wrap_gsl_permutation_init},
11740 {"Math::GSL::Linalgc::gsl_permutation_free", _wrap_gsl_permutation_free},
11741 {"Math::GSL::Linalgc::gsl_permutation_memcpy", _wrap_gsl_permutation_memcpy},
11742 {"Math::GSL::Linalgc::gsl_permutation_fread", _wrap_gsl_permutation_fread},
11743 {"Math::GSL::Linalgc::gsl_permutation_fwrite", _wrap_gsl_permutation_fwrite},
11744 {"Math::GSL::Linalgc::gsl_permutation_fscanf", _wrap_gsl_permutation_fscanf},
11745 {"Math::GSL::Linalgc::gsl_permutation_fprintf", _wrap_gsl_permutation_fprintf},
11746 {"Math::GSL::Linalgc::gsl_permutation_size", _wrap_gsl_permutation_size},
11747 {"Math::GSL::Linalgc::gsl_permutation_data", _wrap_gsl_permutation_data},
11748 {"Math::GSL::Linalgc::gsl_permutation_swap", _wrap_gsl_permutation_swap},
11749 {"Math::GSL::Linalgc::gsl_permutation_valid", _wrap_gsl_permutation_valid},
11750 {"Math::GSL::Linalgc::gsl_permutation_reverse", _wrap_gsl_permutation_reverse},
11751 {"Math::GSL::Linalgc::gsl_permutation_inverse", _wrap_gsl_permutation_inverse},
11752 {"Math::GSL::Linalgc::gsl_permutation_next", _wrap_gsl_permutation_next},
11753 {"Math::GSL::Linalgc::gsl_permutation_prev", _wrap_gsl_permutation_prev},
11754 {"Math::GSL::Linalgc::gsl_permutation_mul", _wrap_gsl_permutation_mul},
11755 {"Math::GSL::Linalgc::gsl_permutation_linear_to_canonical", _wrap_gsl_permutation_linear_to_canonical},
11756 {"Math::GSL::Linalgc::gsl_permutation_canonical_to_linear", _wrap_gsl_permutation_canonical_to_linear},
11757 {"Math::GSL::Linalgc::gsl_permutation_inversions", _wrap_gsl_permutation_inversions},
11758 {"Math::GSL::Linalgc::gsl_permutation_linear_cycles", _wrap_gsl_permutation_linear_cycles},
11759 {"Math::GSL::Linalgc::gsl_permutation_canonical_cycles", _wrap_gsl_permutation_canonical_cycles},
11760 {"Math::GSL::Linalgc::gsl_permutation_get", _wrap_gsl_permutation_get},
11761 {"Math::GSL::Linalgc::gsl_complex_dat_set", _wrap_gsl_complex_dat_set},
11762 {"Math::GSL::Linalgc::gsl_complex_dat_get", _wrap_gsl_complex_dat_get},
11763 {"Math::GSL::Linalgc::new_gsl_complex", _wrap_new_gsl_complex},
11764 {"Math::GSL::Linalgc::delete_gsl_complex", _wrap_delete_gsl_complex},
11765 {"Math::GSL::Linalgc::gsl_complex_long_double_dat_set", _wrap_gsl_complex_long_double_dat_set},
11766 {"Math::GSL::Linalgc::gsl_complex_long_double_dat_get", _wrap_gsl_complex_long_double_dat_get},
11767 {"Math::GSL::Linalgc::new_gsl_complex_long_double", _wrap_new_gsl_complex_long_double},
11768 {"Math::GSL::Linalgc::delete_gsl_complex_long_double", _wrap_delete_gsl_complex_long_double},
11769 {"Math::GSL::Linalgc::gsl_complex_float_dat_set", _wrap_gsl_complex_float_dat_set},
11770 {"Math::GSL::Linalgc::gsl_complex_float_dat_get", _wrap_gsl_complex_float_dat_get},
11771 {"Math::GSL::Linalgc::new_gsl_complex_float", _wrap_new_gsl_complex_float},
11772 {"Math::GSL::Linalgc::delete_gsl_complex_float", _wrap_delete_gsl_complex_float},
11773 {"Math::GSL::Linalgc::gsl_complex_polar", _wrap_gsl_complex_polar},
11774 {"Math::GSL::Linalgc::gsl_complex_rect", _wrap_gsl_complex_rect},
11775 {"Math::GSL::Linalgc::gsl_complex_arg", _wrap_gsl_complex_arg},
11776 {"Math::GSL::Linalgc::gsl_complex_abs", _wrap_gsl_complex_abs},
11777 {"Math::GSL::Linalgc::gsl_complex_abs2", _wrap_gsl_complex_abs2},
11778 {"Math::GSL::Linalgc::gsl_complex_logabs", _wrap_gsl_complex_logabs},
11779 {"Math::GSL::Linalgc::gsl_complex_add", _wrap_gsl_complex_add},
11780 {"Math::GSL::Linalgc::gsl_complex_sub", _wrap_gsl_complex_sub},
11781 {"Math::GSL::Linalgc::gsl_complex_mul", _wrap_gsl_complex_mul},
11782 {"Math::GSL::Linalgc::gsl_complex_div", _wrap_gsl_complex_div},
11783 {"Math::GSL::Linalgc::gsl_complex_add_real", _wrap_gsl_complex_add_real},
11784 {"Math::GSL::Linalgc::gsl_complex_sub_real", _wrap_gsl_complex_sub_real},
11785 {"Math::GSL::Linalgc::gsl_complex_mul_real", _wrap_gsl_complex_mul_real},
11786 {"Math::GSL::Linalgc::gsl_complex_div_real", _wrap_gsl_complex_div_real},
11787 {"Math::GSL::Linalgc::gsl_complex_add_imag", _wrap_gsl_complex_add_imag},
11788 {"Math::GSL::Linalgc::gsl_complex_sub_imag", _wrap_gsl_complex_sub_imag},
11789 {"Math::GSL::Linalgc::gsl_complex_mul_imag", _wrap_gsl_complex_mul_imag},
11790 {"Math::GSL::Linalgc::gsl_complex_div_imag", _wrap_gsl_complex_div_imag},
11791 {"Math::GSL::Linalgc::gsl_complex_conjugate", _wrap_gsl_complex_conjugate},
11792 {"Math::GSL::Linalgc::gsl_complex_inverse", _wrap_gsl_complex_inverse},
11793 {"Math::GSL::Linalgc::gsl_complex_negative", _wrap_gsl_complex_negative},
11794 {"Math::GSL::Linalgc::gsl_complex_sqrt", _wrap_gsl_complex_sqrt},
11795 {"Math::GSL::Linalgc::gsl_complex_sqrt_real", _wrap_gsl_complex_sqrt_real},
11796 {"Math::GSL::Linalgc::gsl_complex_pow", _wrap_gsl_complex_pow},
11797 {"Math::GSL::Linalgc::gsl_complex_pow_real", _wrap_gsl_complex_pow_real},
11798 {"Math::GSL::Linalgc::gsl_complex_exp", _wrap_gsl_complex_exp},
11799 {"Math::GSL::Linalgc::gsl_complex_log", _wrap_gsl_complex_log},
11800 {"Math::GSL::Linalgc::gsl_complex_log10", _wrap_gsl_complex_log10},
11801 {"Math::GSL::Linalgc::gsl_complex_log_b", _wrap_gsl_complex_log_b},
11802 {"Math::GSL::Linalgc::gsl_complex_sin", _wrap_gsl_complex_sin},
11803 {"Math::GSL::Linalgc::gsl_complex_cos", _wrap_gsl_complex_cos},
11804 {"Math::GSL::Linalgc::gsl_complex_sec", _wrap_gsl_complex_sec},
11805 {"Math::GSL::Linalgc::gsl_complex_csc", _wrap_gsl_complex_csc},
11806 {"Math::GSL::Linalgc::gsl_complex_tan", _wrap_gsl_complex_tan},
11807 {"Math::GSL::Linalgc::gsl_complex_cot", _wrap_gsl_complex_cot},
11808 {"Math::GSL::Linalgc::gsl_complex_arcsin", _wrap_gsl_complex_arcsin},
11809 {"Math::GSL::Linalgc::gsl_complex_arcsin_real", _wrap_gsl_complex_arcsin_real},
11810 {"Math::GSL::Linalgc::gsl_complex_arccos", _wrap_gsl_complex_arccos},
11811 {"Math::GSL::Linalgc::gsl_complex_arccos_real", _wrap_gsl_complex_arccos_real},
11812 {"Math::GSL::Linalgc::gsl_complex_arcsec", _wrap_gsl_complex_arcsec},
11813 {"Math::GSL::Linalgc::gsl_complex_arcsec_real", _wrap_gsl_complex_arcsec_real},
11814 {"Math::GSL::Linalgc::gsl_complex_arccsc", _wrap_gsl_complex_arccsc},
11815 {"Math::GSL::Linalgc::gsl_complex_arccsc_real", _wrap_gsl_complex_arccsc_real},
11816 {"Math::GSL::Linalgc::gsl_complex_arctan", _wrap_gsl_complex_arctan},
11817 {"Math::GSL::Linalgc::gsl_complex_arccot", _wrap_gsl_complex_arccot},
11818 {"Math::GSL::Linalgc::gsl_complex_sinh", _wrap_gsl_complex_sinh},
11819 {"Math::GSL::Linalgc::gsl_complex_cosh", _wrap_gsl_complex_cosh},
11820 {"Math::GSL::Linalgc::gsl_complex_sech", _wrap_gsl_complex_sech},
11821 {"Math::GSL::Linalgc::gsl_complex_csch", _wrap_gsl_complex_csch},
11822 {"Math::GSL::Linalgc::gsl_complex_tanh", _wrap_gsl_complex_tanh},
11823 {"Math::GSL::Linalgc::gsl_complex_coth", _wrap_gsl_complex_coth},
11824 {"Math::GSL::Linalgc::gsl_complex_arcsinh", _wrap_gsl_complex_arcsinh},
11825 {"Math::GSL::Linalgc::gsl_complex_arccosh", _wrap_gsl_complex_arccosh},
11826 {"Math::GSL::Linalgc::gsl_complex_arccosh_real", _wrap_gsl_complex_arccosh_real},
11827 {"Math::GSL::Linalgc::gsl_complex_arcsech", _wrap_gsl_complex_arcsech},
11828 {"Math::GSL::Linalgc::gsl_complex_arccsch", _wrap_gsl_complex_arccsch},
11829 {"Math::GSL::Linalgc::gsl_complex_arctanh", _wrap_gsl_complex_arctanh},
11830 {"Math::GSL::Linalgc::gsl_complex_arctanh_real", _wrap_gsl_complex_arctanh_real},
11831 {"Math::GSL::Linalgc::gsl_complex_arccoth", _wrap_gsl_complex_arccoth},
11832 {0,0}
11833 };
11834 /* -----------------------------------------------------------------------------
11835  * Type initialization:
11836  * This problem is tough by the requirement that no dynamic
11837  * memory is used. Also, since swig_type_info structures store pointers to
11838  * swig_cast_info structures and swig_cast_info structures store pointers back
11839  * to swig_type_info structures, we need some lookup code at initialization.
11840  * The idea is that swig generates all the structures that are needed.
11841  * The runtime then collects these partially filled structures.
11842  * The SWIG_InitializeModule function takes these initial arrays out of
11843  * swig_module, and does all the lookup, filling in the swig_module.types
11844  * array with the correct data and linking the correct swig_cast_info
11845  * structures together.
11846  *
11847  * The generated swig_type_info structures are assigned statically to an initial
11848  * array. We just loop through that array, and handle each type individually.
11849  * First we lookup if this type has been already loaded, and if so, use the
11850  * loaded structure instead of the generated one. Then we have to fill in the
11851  * cast linked list. The cast data is initially stored in something like a
11852  * two-dimensional array. Each row corresponds to a type (there are the same
11853  * number of rows as there are in the swig_type_initial array). Each entry in
11854  * a column is one of the swig_cast_info structures for that type.
11855  * The cast_initial array is actually an array of arrays, because each row has
11856  * a variable number of columns. So to actually build the cast linked list,
11857  * we find the array of casts associated with the type, and loop through it
11858  * adding the casts to the list. The one last trick we need to do is making
11859  * sure the type pointer in the swig_cast_info struct is correct.
11860  *
11861  * First off, we lookup the cast->type name to see if it is already loaded.
11862  * There are three cases to handle:
11863  *  1) If the cast->type has already been loaded AND the type we are adding
11864  *     casting info to has not been loaded (it is in this module), THEN we
11865  *     replace the cast->type pointer with the type pointer that has already
11866  *     been loaded.
11867  *  2) If BOTH types (the one we are adding casting info to, and the
11868  *     cast->type) are loaded, THEN the cast info has already been loaded by
11869  *     the previous module so we just ignore it.
11870  *  3) Finally, if cast->type has not already been loaded, then we add that
11871  *     swig_cast_info to the linked list (because the cast->type) pointer will
11872  *     be correct.
11873  * ----------------------------------------------------------------------------- */
11874 
11875 #ifdef __cplusplus
11876 extern "C" {
11877 #if 0
11878 } /* c-mode */
11879 #endif
11880 #endif
11881 
11882 #if 0
11883 #define SWIGRUNTIME_DEBUG
11884 #endif
11885 
11886 
11887 SWIGRUNTIME void
SWIG_InitializeModule(void * clientdata)11888 SWIG_InitializeModule(void *clientdata) {
11889   size_t i;
11890   swig_module_info *module_head, *iter;
11891   int init;
11892 
11893   /* check to see if the circular list has been setup, if not, set it up */
11894   if (swig_module.next==0) {
11895     /* Initialize the swig_module */
11896     swig_module.type_initial = swig_type_initial;
11897     swig_module.cast_initial = swig_cast_initial;
11898     swig_module.next = &swig_module;
11899     init = 1;
11900   } else {
11901     init = 0;
11902   }
11903 
11904   /* Try and load any already created modules */
11905   module_head = SWIG_GetModule(clientdata);
11906   if (!module_head) {
11907     /* This is the first module loaded for this interpreter */
11908     /* so set the swig module into the interpreter */
11909     SWIG_SetModule(clientdata, &swig_module);
11910   } else {
11911     /* the interpreter has loaded a SWIG module, but has it loaded this one? */
11912     iter=module_head;
11913     do {
11914       if (iter==&swig_module) {
11915         /* Our module is already in the list, so there's nothing more to do. */
11916         return;
11917       }
11918       iter=iter->next;
11919     } while (iter!= module_head);
11920 
11921     /* otherwise we must add our module into the list */
11922     swig_module.next = module_head->next;
11923     module_head->next = &swig_module;
11924   }
11925 
11926   /* When multiple interpreters are used, a module could have already been initialized in
11927        a different interpreter, but not yet have a pointer in this interpreter.
11928        In this case, we do not want to continue adding types... everything should be
11929        set up already */
11930   if (init == 0) return;
11931 
11932   /* Now work on filling in swig_module.types */
11933 #ifdef SWIGRUNTIME_DEBUG
11934   printf("SWIG_InitializeModule: size %lu\n", (unsigned long)swig_module.size);
11935 #endif
11936   for (i = 0; i < swig_module.size; ++i) {
11937     swig_type_info *type = 0;
11938     swig_type_info *ret;
11939     swig_cast_info *cast;
11940 
11941 #ifdef SWIGRUNTIME_DEBUG
11942     printf("SWIG_InitializeModule: type %lu %s\n", (unsigned long)i, swig_module.type_initial[i]->name);
11943 #endif
11944 
11945     /* if there is another module already loaded */
11946     if (swig_module.next != &swig_module) {
11947       type = SWIG_MangledTypeQueryModule(swig_module.next, &swig_module, swig_module.type_initial[i]->name);
11948     }
11949     if (type) {
11950       /* Overwrite clientdata field */
11951 #ifdef SWIGRUNTIME_DEBUG
11952       printf("SWIG_InitializeModule: found type %s\n", type->name);
11953 #endif
11954       if (swig_module.type_initial[i]->clientdata) {
11955         type->clientdata = swig_module.type_initial[i]->clientdata;
11956 #ifdef SWIGRUNTIME_DEBUG
11957         printf("SWIG_InitializeModule: found and overwrite type %s \n", type->name);
11958 #endif
11959       }
11960     } else {
11961       type = swig_module.type_initial[i];
11962     }
11963 
11964     /* Insert casting types */
11965     cast = swig_module.cast_initial[i];
11966     while (cast->type) {
11967       /* Don't need to add information already in the list */
11968       ret = 0;
11969 #ifdef SWIGRUNTIME_DEBUG
11970       printf("SWIG_InitializeModule: look cast %s\n", cast->type->name);
11971 #endif
11972       if (swig_module.next != &swig_module) {
11973         ret = SWIG_MangledTypeQueryModule(swig_module.next, &swig_module, cast->type->name);
11974 #ifdef SWIGRUNTIME_DEBUG
11975         if (ret) printf("SWIG_InitializeModule: found cast %s\n", ret->name);
11976 #endif
11977       }
11978       if (ret) {
11979         if (type == swig_module.type_initial[i]) {
11980 #ifdef SWIGRUNTIME_DEBUG
11981           printf("SWIG_InitializeModule: skip old type %s\n", ret->name);
11982 #endif
11983           cast->type = ret;
11984           ret = 0;
11985         } else {
11986           /* Check for casting already in the list */
11987           swig_cast_info *ocast = SWIG_TypeCheck(ret->name, type);
11988 #ifdef SWIGRUNTIME_DEBUG
11989           if (ocast) printf("SWIG_InitializeModule: skip old cast %s\n", ret->name);
11990 #endif
11991           if (!ocast) ret = 0;
11992         }
11993       }
11994 
11995       if (!ret) {
11996 #ifdef SWIGRUNTIME_DEBUG
11997         printf("SWIG_InitializeModule: adding cast %s\n", cast->type->name);
11998 #endif
11999         if (type->cast) {
12000           type->cast->prev = cast;
12001           cast->next = type->cast;
12002         }
12003         type->cast = cast;
12004       }
12005       cast++;
12006     }
12007     /* Set entry in modules->types array equal to the type */
12008     swig_module.types[i] = type;
12009   }
12010   swig_module.types[i] = 0;
12011 
12012 #ifdef SWIGRUNTIME_DEBUG
12013   printf("**** SWIG_InitializeModule: Cast List ******\n");
12014   for (i = 0; i < swig_module.size; ++i) {
12015     int j = 0;
12016     swig_cast_info *cast = swig_module.cast_initial[i];
12017     printf("SWIG_InitializeModule: type %lu %s\n", (unsigned long)i, swig_module.type_initial[i]->name);
12018     while (cast->type) {
12019       printf("SWIG_InitializeModule: cast type %s\n", cast->type->name);
12020       cast++;
12021       ++j;
12022     }
12023     printf("---- Total casts: %d\n",j);
12024   }
12025   printf("**** SWIG_InitializeModule: Cast List ******\n");
12026 #endif
12027 }
12028 
12029 /* This function will propagate the clientdata field of type to
12030 * any new swig_type_info structures that have been added into the list
12031 * of equivalent types.  It is like calling
12032 * SWIG_TypeClientData(type, clientdata) a second time.
12033 */
12034 SWIGRUNTIME void
SWIG_PropagateClientData(void)12035 SWIG_PropagateClientData(void) {
12036   size_t i;
12037   swig_cast_info *equiv;
12038   static int init_run = 0;
12039 
12040   if (init_run) return;
12041   init_run = 1;
12042 
12043   for (i = 0; i < swig_module.size; i++) {
12044     if (swig_module.types[i]->clientdata) {
12045       equiv = swig_module.types[i]->cast;
12046       while (equiv) {
12047         if (!equiv->converter) {
12048           if (equiv->type && !equiv->type->clientdata)
12049           SWIG_TypeClientData(equiv->type, swig_module.types[i]->clientdata);
12050         }
12051         equiv = equiv->next;
12052       }
12053     }
12054   }
12055 }
12056 
12057 #ifdef __cplusplus
12058 #if 0
12059 {
12060   /* c-mode */
12061 #endif
12062 }
12063 #endif
12064 
12065 
12066 
12067 #if defined(__cplusplus) && ! defined(XSPROTO)
12068 extern "C"
12069 #endif
12070 
XS(SWIG_init)12071 XS(SWIG_init) {
12072   dXSARGS;
12073   int i;
12074   (void)items;
12075 
12076   SWIG_InitializeModule(0);
12077 
12078   /* Install commands */
12079   for (i = 0; swig_commands[i].name; i++) {
12080     /* Casts only needed for Perl < 5.10. */
12081 #ifdef __cplusplus
12082     newXS(const_cast<char*>(swig_commands[i].name), swig_commands[i].wrapper, const_cast<char*>(__FILE__));
12083 #else
12084     newXS((char*)swig_commands[i].name, swig_commands[i].wrapper, (char*)__FILE__);
12085 #endif
12086   }
12087 
12088   /* Install variables */
12089   for (i = 0; swig_variables[i].name; i++) {
12090     SV *sv;
12091     sv = get_sv(swig_variables[i].name, TRUE | 0x2 | GV_ADDMULTI);
12092     if (swig_variables[i].type) {
12093       SWIG_MakePtr(sv,(void *)1, *swig_variables[i].type,0);
12094     } else {
12095       sv_setiv(sv,(IV) 0);
12096     }
12097     swig_create_magic(sv, swig_variables[i].name, swig_variables[i].set, swig_variables[i].get);
12098   }
12099 
12100   /* Install constant */
12101   for (i = 0; swig_constants[i].type; i++) {
12102     SV *sv;
12103     sv = get_sv(swig_constants[i].name, TRUE | 0x2 | GV_ADDMULTI);
12104     switch(swig_constants[i].type) {
12105     case SWIG_INT:
12106       sv_setiv(sv, (IV) swig_constants[i].lvalue);
12107       break;
12108     case SWIG_FLOAT:
12109       sv_setnv(sv, (double) swig_constants[i].dvalue);
12110       break;
12111     case SWIG_STRING:
12112       sv_setpv(sv, (const char *) swig_constants[i].pvalue);
12113       break;
12114     case SWIG_POINTER:
12115       SWIG_MakePtr(sv, swig_constants[i].pvalue, *(swig_constants[i].ptype),0);
12116       break;
12117     case SWIG_BINARY:
12118       SWIG_MakePackedObj(sv, swig_constants[i].pvalue, swig_constants[i].lvalue, *(swig_constants[i].ptype));
12119       break;
12120     default:
12121       break;
12122     }
12123     SvREADONLY_on(sv);
12124   }
12125 
12126   /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12127     SV *sv = get_sv((char*) SWIG_prefix "GSL_VERSION", TRUE | 0x2 | GV_ADDMULTI);
12128     sv_setsv(sv, SWIG_From_double  SWIG_PERL_CALL_ARGS_1((double)(2.7)));
12129     SvREADONLY_on(sv);
12130   } while(0) /*@SWIG@*/;
12131   /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12132     SV *sv = get_sv((char*) SWIG_prefix "GSL_MAJOR_VERSION", TRUE | 0x2 | GV_ADDMULTI);
12133     sv_setsv(sv, SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(2)));
12134     SvREADONLY_on(sv);
12135   } while(0) /*@SWIG@*/;
12136   /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12137     SV *sv = get_sv((char*) SWIG_prefix "GSL_MINOR_VERSION", TRUE | 0x2 | GV_ADDMULTI);
12138     sv_setsv(sv, SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(7)));
12139     SvREADONLY_on(sv);
12140   } while(0) /*@SWIG@*/;
12141   /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12142     SV *sv = get_sv((char*) SWIG_prefix "GSL_POSZERO", TRUE | 0x2 | GV_ADDMULTI);
12143     sv_setsv(sv, SWIG_From_double  SWIG_PERL_CALL_ARGS_1((double)((+0.0))));
12144     SvREADONLY_on(sv);
12145   } while(0) /*@SWIG@*/;
12146   /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12147     SV *sv = get_sv((char*) SWIG_prefix "GSL_NEGZERO", TRUE | 0x2 | GV_ADDMULTI);
12148     sv_setsv(sv, SWIG_From_double  SWIG_PERL_CALL_ARGS_1((double)((-0.0))));
12149     SvREADONLY_on(sv);
12150   } while(0) /*@SWIG@*/;
12151   /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12152     SV *sv = get_sv((char*) SWIG_prefix "GSL_SUCCESS", TRUE | 0x2 | GV_ADDMULTI);
12153     sv_setsv(sv, SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(GSL_SUCCESS)));
12154     SvREADONLY_on(sv);
12155   } while(0) /*@SWIG@*/;
12156   /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12157     SV *sv = get_sv((char*) SWIG_prefix "GSL_FAILURE", TRUE | 0x2 | GV_ADDMULTI);
12158     sv_setsv(sv, SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(GSL_FAILURE)));
12159     SvREADONLY_on(sv);
12160   } while(0) /*@SWIG@*/;
12161   /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12162     SV *sv = get_sv((char*) SWIG_prefix "GSL_CONTINUE", TRUE | 0x2 | GV_ADDMULTI);
12163     sv_setsv(sv, SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(GSL_CONTINUE)));
12164     SvREADONLY_on(sv);
12165   } while(0) /*@SWIG@*/;
12166   /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12167     SV *sv = get_sv((char*) SWIG_prefix "GSL_EDOM", TRUE | 0x2 | GV_ADDMULTI);
12168     sv_setsv(sv, SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(GSL_EDOM)));
12169     SvREADONLY_on(sv);
12170   } while(0) /*@SWIG@*/;
12171   /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12172     SV *sv = get_sv((char*) SWIG_prefix "GSL_ERANGE", TRUE | 0x2 | GV_ADDMULTI);
12173     sv_setsv(sv, SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(GSL_ERANGE)));
12174     SvREADONLY_on(sv);
12175   } while(0) /*@SWIG@*/;
12176   /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12177     SV *sv = get_sv((char*) SWIG_prefix "GSL_EFAULT", TRUE | 0x2 | GV_ADDMULTI);
12178     sv_setsv(sv, SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(GSL_EFAULT)));
12179     SvREADONLY_on(sv);
12180   } while(0) /*@SWIG@*/;
12181   /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12182     SV *sv = get_sv((char*) SWIG_prefix "GSL_EINVAL", TRUE | 0x2 | GV_ADDMULTI);
12183     sv_setsv(sv, SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(GSL_EINVAL)));
12184     SvREADONLY_on(sv);
12185   } while(0) /*@SWIG@*/;
12186   /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12187     SV *sv = get_sv((char*) SWIG_prefix "GSL_EFAILED", TRUE | 0x2 | GV_ADDMULTI);
12188     sv_setsv(sv, SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(GSL_EFAILED)));
12189     SvREADONLY_on(sv);
12190   } while(0) /*@SWIG@*/;
12191   /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12192     SV *sv = get_sv((char*) SWIG_prefix "GSL_EFACTOR", TRUE | 0x2 | GV_ADDMULTI);
12193     sv_setsv(sv, SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(GSL_EFACTOR)));
12194     SvREADONLY_on(sv);
12195   } while(0) /*@SWIG@*/;
12196   /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12197     SV *sv = get_sv((char*) SWIG_prefix "GSL_ESANITY", TRUE | 0x2 | GV_ADDMULTI);
12198     sv_setsv(sv, SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(GSL_ESANITY)));
12199     SvREADONLY_on(sv);
12200   } while(0) /*@SWIG@*/;
12201   /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12202     SV *sv = get_sv((char*) SWIG_prefix "GSL_ENOMEM", TRUE | 0x2 | GV_ADDMULTI);
12203     sv_setsv(sv, SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(GSL_ENOMEM)));
12204     SvREADONLY_on(sv);
12205   } while(0) /*@SWIG@*/;
12206   /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12207     SV *sv = get_sv((char*) SWIG_prefix "GSL_EBADFUNC", TRUE | 0x2 | GV_ADDMULTI);
12208     sv_setsv(sv, SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(GSL_EBADFUNC)));
12209     SvREADONLY_on(sv);
12210   } while(0) /*@SWIG@*/;
12211   /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12212     SV *sv = get_sv((char*) SWIG_prefix "GSL_ERUNAWAY", TRUE | 0x2 | GV_ADDMULTI);
12213     sv_setsv(sv, SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(GSL_ERUNAWAY)));
12214     SvREADONLY_on(sv);
12215   } while(0) /*@SWIG@*/;
12216   /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12217     SV *sv = get_sv((char*) SWIG_prefix "GSL_EMAXITER", TRUE | 0x2 | GV_ADDMULTI);
12218     sv_setsv(sv, SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(GSL_EMAXITER)));
12219     SvREADONLY_on(sv);
12220   } while(0) /*@SWIG@*/;
12221   /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12222     SV *sv = get_sv((char*) SWIG_prefix "GSL_EZERODIV", TRUE | 0x2 | GV_ADDMULTI);
12223     sv_setsv(sv, SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(GSL_EZERODIV)));
12224     SvREADONLY_on(sv);
12225   } while(0) /*@SWIG@*/;
12226   /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12227     SV *sv = get_sv((char*) SWIG_prefix "GSL_EBADTOL", TRUE | 0x2 | GV_ADDMULTI);
12228     sv_setsv(sv, SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(GSL_EBADTOL)));
12229     SvREADONLY_on(sv);
12230   } while(0) /*@SWIG@*/;
12231   /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12232     SV *sv = get_sv((char*) SWIG_prefix "GSL_ETOL", TRUE | 0x2 | GV_ADDMULTI);
12233     sv_setsv(sv, SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(GSL_ETOL)));
12234     SvREADONLY_on(sv);
12235   } while(0) /*@SWIG@*/;
12236   /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12237     SV *sv = get_sv((char*) SWIG_prefix "GSL_EUNDRFLW", TRUE | 0x2 | GV_ADDMULTI);
12238     sv_setsv(sv, SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(GSL_EUNDRFLW)));
12239     SvREADONLY_on(sv);
12240   } while(0) /*@SWIG@*/;
12241   /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12242     SV *sv = get_sv((char*) SWIG_prefix "GSL_EOVRFLW", TRUE | 0x2 | GV_ADDMULTI);
12243     sv_setsv(sv, SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(GSL_EOVRFLW)));
12244     SvREADONLY_on(sv);
12245   } while(0) /*@SWIG@*/;
12246   /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12247     SV *sv = get_sv((char*) SWIG_prefix "GSL_ELOSS", TRUE | 0x2 | GV_ADDMULTI);
12248     sv_setsv(sv, SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(GSL_ELOSS)));
12249     SvREADONLY_on(sv);
12250   } while(0) /*@SWIG@*/;
12251   /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12252     SV *sv = get_sv((char*) SWIG_prefix "GSL_EROUND", TRUE | 0x2 | GV_ADDMULTI);
12253     sv_setsv(sv, SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(GSL_EROUND)));
12254     SvREADONLY_on(sv);
12255   } while(0) /*@SWIG@*/;
12256   /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12257     SV *sv = get_sv((char*) SWIG_prefix "GSL_EBADLEN", TRUE | 0x2 | GV_ADDMULTI);
12258     sv_setsv(sv, SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(GSL_EBADLEN)));
12259     SvREADONLY_on(sv);
12260   } while(0) /*@SWIG@*/;
12261   /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12262     SV *sv = get_sv((char*) SWIG_prefix "GSL_ENOTSQR", TRUE | 0x2 | GV_ADDMULTI);
12263     sv_setsv(sv, SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(GSL_ENOTSQR)));
12264     SvREADONLY_on(sv);
12265   } while(0) /*@SWIG@*/;
12266   /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12267     SV *sv = get_sv((char*) SWIG_prefix "GSL_ESING", TRUE | 0x2 | GV_ADDMULTI);
12268     sv_setsv(sv, SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(GSL_ESING)));
12269     SvREADONLY_on(sv);
12270   } while(0) /*@SWIG@*/;
12271   /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12272     SV *sv = get_sv((char*) SWIG_prefix "GSL_EDIVERGE", TRUE | 0x2 | GV_ADDMULTI);
12273     sv_setsv(sv, SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(GSL_EDIVERGE)));
12274     SvREADONLY_on(sv);
12275   } while(0) /*@SWIG@*/;
12276   /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12277     SV *sv = get_sv((char*) SWIG_prefix "GSL_EUNSUP", TRUE | 0x2 | GV_ADDMULTI);
12278     sv_setsv(sv, SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(GSL_EUNSUP)));
12279     SvREADONLY_on(sv);
12280   } while(0) /*@SWIG@*/;
12281   /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12282     SV *sv = get_sv((char*) SWIG_prefix "GSL_EUNIMPL", TRUE | 0x2 | GV_ADDMULTI);
12283     sv_setsv(sv, SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(GSL_EUNIMPL)));
12284     SvREADONLY_on(sv);
12285   } while(0) /*@SWIG@*/;
12286   /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12287     SV *sv = get_sv((char*) SWIG_prefix "GSL_ECACHE", TRUE | 0x2 | GV_ADDMULTI);
12288     sv_setsv(sv, SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(GSL_ECACHE)));
12289     SvREADONLY_on(sv);
12290   } while(0) /*@SWIG@*/;
12291   /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12292     SV *sv = get_sv((char*) SWIG_prefix "GSL_ETABLE", TRUE | 0x2 | GV_ADDMULTI);
12293     sv_setsv(sv, SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(GSL_ETABLE)));
12294     SvREADONLY_on(sv);
12295   } while(0) /*@SWIG@*/;
12296   /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12297     SV *sv = get_sv((char*) SWIG_prefix "GSL_ENOPROG", TRUE | 0x2 | GV_ADDMULTI);
12298     sv_setsv(sv, SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(GSL_ENOPROG)));
12299     SvREADONLY_on(sv);
12300   } while(0) /*@SWIG@*/;
12301   /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12302     SV *sv = get_sv((char*) SWIG_prefix "GSL_ENOPROGJ", TRUE | 0x2 | GV_ADDMULTI);
12303     sv_setsv(sv, SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(GSL_ENOPROGJ)));
12304     SvREADONLY_on(sv);
12305   } while(0) /*@SWIG@*/;
12306   /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12307     SV *sv = get_sv((char*) SWIG_prefix "GSL_ETOLF", TRUE | 0x2 | GV_ADDMULTI);
12308     sv_setsv(sv, SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(GSL_ETOLF)));
12309     SvREADONLY_on(sv);
12310   } while(0) /*@SWIG@*/;
12311   /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12312     SV *sv = get_sv((char*) SWIG_prefix "GSL_ETOLX", TRUE | 0x2 | GV_ADDMULTI);
12313     sv_setsv(sv, SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(GSL_ETOLX)));
12314     SvREADONLY_on(sv);
12315   } while(0) /*@SWIG@*/;
12316   /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12317     SV *sv = get_sv((char*) SWIG_prefix "GSL_ETOLG", TRUE | 0x2 | GV_ADDMULTI);
12318     sv_setsv(sv, SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(GSL_ETOLG)));
12319     SvREADONLY_on(sv);
12320   } while(0) /*@SWIG@*/;
12321   /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12322     SV *sv = get_sv((char*) SWIG_prefix "GSL_EOF", TRUE | 0x2 | GV_ADDMULTI);
12323     sv_setsv(sv, SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(GSL_EOF)));
12324     SvREADONLY_on(sv);
12325   } while(0) /*@SWIG@*/;
12326   /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12327     SV *sv = get_sv((char*) SWIG_prefix "GSL_LINALG_MOD_NONE", TRUE | 0x2 | GV_ADDMULTI);
12328     sv_setsv(sv, SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(GSL_LINALG_MOD_NONE)));
12329     SvREADONLY_on(sv);
12330   } while(0) /*@SWIG@*/;
12331   /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12332     SV *sv = get_sv((char*) SWIG_prefix "GSL_LINALG_MOD_TRANSPOSE", TRUE | 0x2 | GV_ADDMULTI);
12333     sv_setsv(sv, SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(GSL_LINALG_MOD_TRANSPOSE)));
12334     SvREADONLY_on(sv);
12335   } while(0) /*@SWIG@*/;
12336   /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12337     SV *sv = get_sv((char*) SWIG_prefix "GSL_LINALG_MOD_CONJUGATE", TRUE | 0x2 | GV_ADDMULTI);
12338     sv_setsv(sv, SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(GSL_LINALG_MOD_CONJUGATE)));
12339     SvREADONLY_on(sv);
12340   } while(0) /*@SWIG@*/;
12341   SWIG_TypeClientData(SWIGTYPE_p_gsl_permutation_struct, (void*) "Math::GSL::Linalg::gsl_permutation_struct");
12342   SWIG_TypeClientData(SWIGTYPE_p_gsl_complex, (void*) "Math::GSL::Linalg::gsl_complex");
12343   SWIG_TypeClientData(SWIGTYPE_p_gsl_complex_long_double, (void*) "Math::GSL::Linalg::gsl_complex_long_double");
12344   SWIG_TypeClientData(SWIGTYPE_p_gsl_complex_float, (void*) "Math::GSL::Linalg::gsl_complex_float");
12345   ST(0) = &PL_sv_yes;
12346   XSRETURN(1);
12347 }
12348 
12349