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_matQ)4993 XS(_wrap_gsl_linalg_QR_matQ) {
4994   {
4995     gsl_matrix *arg1 = (gsl_matrix *) 0 ;
4996     gsl_vector *arg2 = (gsl_vector *) 0 ;
4997     gsl_matrix *arg3 = (gsl_matrix *) 0 ;
4998     void *argp1 = 0 ;
4999     int res1 = 0 ;
5000     void *argp2 = 0 ;
5001     int res2 = 0 ;
5002     void *argp3 = 0 ;
5003     int res3 = 0 ;
5004     int argvi = 0;
5005     int result;
5006     dXSARGS;
5007 
5008     if ((items < 3) || (items > 3)) {
5009       SWIG_croak("Usage: gsl_linalg_QR_matQ(QR,tau,A);");
5010     }
5011     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 |  0 );
5012     if (!SWIG_IsOK(res1)) {
5013       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QR_matQ" "', argument " "1"" of type '" "gsl_matrix const *""'");
5014     }
5015     arg1 = (gsl_matrix *)(argp1);
5016     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 |  0 );
5017     if (!SWIG_IsOK(res2)) {
5018       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QR_matQ" "', argument " "2"" of type '" "gsl_vector const *""'");
5019     }
5020     arg2 = (gsl_vector *)(argp2);
5021     res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 |  0 );
5022     if (!SWIG_IsOK(res3)) {
5023       SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QR_matQ" "', argument " "3"" of type '" "gsl_matrix *""'");
5024     }
5025     arg3 = (gsl_matrix *)(argp3);
5026     result = (int)gsl_linalg_QR_matQ((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3);
5027     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5028 
5029 
5030 
5031     XSRETURN(argvi);
5032   fail:
5033 
5034 
5035 
5036     SWIG_croak_null();
5037   }
5038 }
5039 
5040 
XS(_wrap_gsl_linalg_QR_unpack)5041 XS(_wrap_gsl_linalg_QR_unpack) {
5042   {
5043     gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5044     gsl_vector *arg2 = (gsl_vector *) 0 ;
5045     gsl_matrix *arg3 = (gsl_matrix *) 0 ;
5046     gsl_matrix *arg4 = (gsl_matrix *) 0 ;
5047     void *argp1 = 0 ;
5048     int res1 = 0 ;
5049     void *argp2 = 0 ;
5050     int res2 = 0 ;
5051     void *argp3 = 0 ;
5052     int res3 = 0 ;
5053     void *argp4 = 0 ;
5054     int res4 = 0 ;
5055     int argvi = 0;
5056     int result;
5057     dXSARGS;
5058 
5059     if ((items < 4) || (items > 4)) {
5060       SWIG_croak("Usage: gsl_linalg_QR_unpack(QR,tau,Q,R);");
5061     }
5062     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 |  0 );
5063     if (!SWIG_IsOK(res1)) {
5064       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QR_unpack" "', argument " "1"" of type '" "gsl_matrix const *""'");
5065     }
5066     arg1 = (gsl_matrix *)(argp1);
5067     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 |  0 );
5068     if (!SWIG_IsOK(res2)) {
5069       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QR_unpack" "', argument " "2"" of type '" "gsl_vector const *""'");
5070     }
5071     arg2 = (gsl_vector *)(argp2);
5072     res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 |  0 );
5073     if (!SWIG_IsOK(res3)) {
5074       SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QR_unpack" "', argument " "3"" of type '" "gsl_matrix *""'");
5075     }
5076     arg3 = (gsl_matrix *)(argp3);
5077     res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_matrix, 0 |  0 );
5078     if (!SWIG_IsOK(res4)) {
5079       SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_QR_unpack" "', argument " "4"" of type '" "gsl_matrix *""'");
5080     }
5081     arg4 = (gsl_matrix *)(argp4);
5082     result = (int)gsl_linalg_QR_unpack((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3,arg4);
5083     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5084 
5085 
5086 
5087 
5088     XSRETURN(argvi);
5089   fail:
5090 
5091 
5092 
5093 
5094     SWIG_croak_null();
5095   }
5096 }
5097 
5098 
XS(_wrap_gsl_linalg_R_solve)5099 XS(_wrap_gsl_linalg_R_solve) {
5100   {
5101     gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5102     gsl_vector *arg2 = (gsl_vector *) 0 ;
5103     gsl_vector *arg3 = (gsl_vector *) 0 ;
5104     void *argp1 = 0 ;
5105     int res1 = 0 ;
5106     void *argp2 = 0 ;
5107     int res2 = 0 ;
5108     void *argp3 = 0 ;
5109     int res3 = 0 ;
5110     int argvi = 0;
5111     int result;
5112     dXSARGS;
5113 
5114     if ((items < 3) || (items > 3)) {
5115       SWIG_croak("Usage: gsl_linalg_R_solve(R,b,x);");
5116     }
5117     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 |  0 );
5118     if (!SWIG_IsOK(res1)) {
5119       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_R_solve" "', argument " "1"" of type '" "gsl_matrix const *""'");
5120     }
5121     arg1 = (gsl_matrix *)(argp1);
5122     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 |  0 );
5123     if (!SWIG_IsOK(res2)) {
5124       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_R_solve" "', argument " "2"" of type '" "gsl_vector const *""'");
5125     }
5126     arg2 = (gsl_vector *)(argp2);
5127     res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 |  0 );
5128     if (!SWIG_IsOK(res3)) {
5129       SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_R_solve" "', argument " "3"" of type '" "gsl_vector *""'");
5130     }
5131     arg3 = (gsl_vector *)(argp3);
5132     result = (int)gsl_linalg_R_solve((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3);
5133     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5134 
5135 
5136 
5137     XSRETURN(argvi);
5138   fail:
5139 
5140 
5141 
5142     SWIG_croak_null();
5143   }
5144 }
5145 
5146 
XS(_wrap_gsl_linalg_R_svx)5147 XS(_wrap_gsl_linalg_R_svx) {
5148   {
5149     gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5150     gsl_vector *arg2 = (gsl_vector *) 0 ;
5151     void *argp1 = 0 ;
5152     int res1 = 0 ;
5153     void *argp2 = 0 ;
5154     int res2 = 0 ;
5155     int argvi = 0;
5156     int result;
5157     dXSARGS;
5158 
5159     if ((items < 2) || (items > 2)) {
5160       SWIG_croak("Usage: gsl_linalg_R_svx(R,x);");
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_R_svx" "', argument " "1"" of type '" "gsl_matrix const *""'");
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_R_svx" "', argument " "2"" of type '" "gsl_vector *""'");
5170     }
5171     arg2 = (gsl_vector *)(argp2);
5172     result = (int)gsl_linalg_R_svx((gsl_matrix const *)arg1,arg2);
5173     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5174 
5175 
5176     XSRETURN(argvi);
5177   fail:
5178 
5179 
5180     SWIG_croak_null();
5181   }
5182 }
5183 
5184 
XS(_wrap_gsl_linalg_QRPT_decomp)5185 XS(_wrap_gsl_linalg_QRPT_decomp) {
5186   {
5187     gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5188     gsl_vector *arg2 = (gsl_vector *) 0 ;
5189     gsl_permutation *arg3 = (gsl_permutation *) 0 ;
5190     int *arg4 = (int *) 0 ;
5191     gsl_vector *arg5 = (gsl_vector *) 0 ;
5192     void *argp1 = 0 ;
5193     int res1 = 0 ;
5194     void *argp2 = 0 ;
5195     int res2 = 0 ;
5196     void *argp3 = 0 ;
5197     int res3 = 0 ;
5198     int temp4 ;
5199     int res4 = SWIG_TMPOBJ ;
5200     void *argp5 = 0 ;
5201     int res5 = 0 ;
5202     int argvi = 0;
5203     int result;
5204     dXSARGS;
5205 
5206     arg4 = &temp4;
5207     if ((items < 4) || (items > 4)) {
5208       SWIG_croak("Usage: gsl_linalg_QRPT_decomp(A,tau,p,norm);");
5209     }
5210     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 |  0 );
5211     if (!SWIG_IsOK(res1)) {
5212       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QRPT_decomp" "', argument " "1"" of type '" "gsl_matrix *""'");
5213     }
5214     arg1 = (gsl_matrix *)(argp1);
5215     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 |  0 );
5216     if (!SWIG_IsOK(res2)) {
5217       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QRPT_decomp" "', argument " "2"" of type '" "gsl_vector *""'");
5218     }
5219     arg2 = (gsl_vector *)(argp2);
5220     res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_permutation_struct, 0 |  0 );
5221     if (!SWIG_IsOK(res3)) {
5222       SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QRPT_decomp" "', argument " "3"" of type '" "gsl_permutation *""'");
5223     }
5224     arg3 = (gsl_permutation *)(argp3);
5225     res5 = SWIG_ConvertPtr(ST(3), &argp5,SWIGTYPE_p_gsl_vector, 0 |  0 );
5226     if (!SWIG_IsOK(res5)) {
5227       SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_QRPT_decomp" "', argument " "5"" of type '" "gsl_vector *""'");
5228     }
5229     arg5 = (gsl_vector *)(argp5);
5230     result = (int)gsl_linalg_QRPT_decomp(arg1,arg2,arg3,arg4,arg5);
5231     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5232     if (SWIG_IsTmpObj(res4)) {
5233       if (argvi >= items) EXTEND(sp, argvi+1);  ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((*arg4)); argvi++  ;
5234     } else {
5235       int new_flags = SWIG_IsNewObj(res4) ? (SWIG_POINTER_OWN | 0) : 0;
5236       if (argvi >= items) EXTEND(sp, argvi+1);  ST(argvi) = SWIG_NewPointerObj((void*)(arg4), SWIGTYPE_p_int, new_flags); argvi++  ;
5237     }
5238 
5239 
5240 
5241 
5242 
5243     XSRETURN(argvi);
5244   fail:
5245 
5246 
5247 
5248 
5249 
5250     SWIG_croak_null();
5251   }
5252 }
5253 
5254 
XS(_wrap_gsl_linalg_QRPT_decomp2)5255 XS(_wrap_gsl_linalg_QRPT_decomp2) {
5256   {
5257     gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5258     gsl_matrix *arg2 = (gsl_matrix *) 0 ;
5259     gsl_matrix *arg3 = (gsl_matrix *) 0 ;
5260     gsl_vector *arg4 = (gsl_vector *) 0 ;
5261     gsl_permutation *arg5 = (gsl_permutation *) 0 ;
5262     int *arg6 = (int *) 0 ;
5263     gsl_vector *arg7 = (gsl_vector *) 0 ;
5264     void *argp1 = 0 ;
5265     int res1 = 0 ;
5266     void *argp2 = 0 ;
5267     int res2 = 0 ;
5268     void *argp3 = 0 ;
5269     int res3 = 0 ;
5270     void *argp4 = 0 ;
5271     int res4 = 0 ;
5272     void *argp5 = 0 ;
5273     int res5 = 0 ;
5274     int temp6 ;
5275     int res6 = SWIG_TMPOBJ ;
5276     void *argp7 = 0 ;
5277     int res7 = 0 ;
5278     int argvi = 0;
5279     int result;
5280     dXSARGS;
5281 
5282     arg6 = &temp6;
5283     if ((items < 6) || (items > 6)) {
5284       SWIG_croak("Usage: gsl_linalg_QRPT_decomp2(A,q,r,tau,p,norm);");
5285     }
5286     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 |  0 );
5287     if (!SWIG_IsOK(res1)) {
5288       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QRPT_decomp2" "', argument " "1"" of type '" "gsl_matrix const *""'");
5289     }
5290     arg1 = (gsl_matrix *)(argp1);
5291     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 |  0 );
5292     if (!SWIG_IsOK(res2)) {
5293       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QRPT_decomp2" "', argument " "2"" of type '" "gsl_matrix *""'");
5294     }
5295     arg2 = (gsl_matrix *)(argp2);
5296     res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 |  0 );
5297     if (!SWIG_IsOK(res3)) {
5298       SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QRPT_decomp2" "', argument " "3"" of type '" "gsl_matrix *""'");
5299     }
5300     arg3 = (gsl_matrix *)(argp3);
5301     res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 |  0 );
5302     if (!SWIG_IsOK(res4)) {
5303       SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_QRPT_decomp2" "', argument " "4"" of type '" "gsl_vector *""'");
5304     }
5305     arg4 = (gsl_vector *)(argp4);
5306     res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_permutation_struct, 0 |  0 );
5307     if (!SWIG_IsOK(res5)) {
5308       SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_QRPT_decomp2" "', argument " "5"" of type '" "gsl_permutation *""'");
5309     }
5310     arg5 = (gsl_permutation *)(argp5);
5311     res7 = SWIG_ConvertPtr(ST(5), &argp7,SWIGTYPE_p_gsl_vector, 0 |  0 );
5312     if (!SWIG_IsOK(res7)) {
5313       SWIG_exception_fail(SWIG_ArgError(res7), "in method '" "gsl_linalg_QRPT_decomp2" "', argument " "7"" of type '" "gsl_vector *""'");
5314     }
5315     arg7 = (gsl_vector *)(argp7);
5316     result = (int)gsl_linalg_QRPT_decomp2((gsl_matrix const *)arg1,arg2,arg3,arg4,arg5,arg6,arg7);
5317     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5318     if (SWIG_IsTmpObj(res6)) {
5319       if (argvi >= items) EXTEND(sp, argvi+1);  ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((*arg6)); argvi++  ;
5320     } else {
5321       int new_flags = SWIG_IsNewObj(res6) ? (SWIG_POINTER_OWN | 0) : 0;
5322       if (argvi >= items) EXTEND(sp, argvi+1);  ST(argvi) = SWIG_NewPointerObj((void*)(arg6), SWIGTYPE_p_int, new_flags); argvi++  ;
5323     }
5324 
5325 
5326 
5327 
5328 
5329 
5330 
5331     XSRETURN(argvi);
5332   fail:
5333 
5334 
5335 
5336 
5337 
5338 
5339 
5340     SWIG_croak_null();
5341   }
5342 }
5343 
5344 
XS(_wrap_gsl_linalg_QRPT_solve)5345 XS(_wrap_gsl_linalg_QRPT_solve) {
5346   {
5347     gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5348     gsl_vector *arg2 = (gsl_vector *) 0 ;
5349     gsl_permutation *arg3 = (gsl_permutation *) 0 ;
5350     gsl_vector *arg4 = (gsl_vector *) 0 ;
5351     gsl_vector *arg5 = (gsl_vector *) 0 ;
5352     void *argp1 = 0 ;
5353     int res1 = 0 ;
5354     void *argp2 = 0 ;
5355     int res2 = 0 ;
5356     void *argp3 = 0 ;
5357     int res3 = 0 ;
5358     void *argp4 = 0 ;
5359     int res4 = 0 ;
5360     void *argp5 = 0 ;
5361     int res5 = 0 ;
5362     int argvi = 0;
5363     int result;
5364     dXSARGS;
5365 
5366     if ((items < 5) || (items > 5)) {
5367       SWIG_croak("Usage: gsl_linalg_QRPT_solve(QR,tau,p,b,x);");
5368     }
5369     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 |  0 );
5370     if (!SWIG_IsOK(res1)) {
5371       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QRPT_solve" "', argument " "1"" of type '" "gsl_matrix const *""'");
5372     }
5373     arg1 = (gsl_matrix *)(argp1);
5374     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 |  0 );
5375     if (!SWIG_IsOK(res2)) {
5376       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QRPT_solve" "', argument " "2"" of type '" "gsl_vector const *""'");
5377     }
5378     arg2 = (gsl_vector *)(argp2);
5379     res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_permutation_struct, 0 |  0 );
5380     if (!SWIG_IsOK(res3)) {
5381       SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QRPT_solve" "', argument " "3"" of type '" "gsl_permutation const *""'");
5382     }
5383     arg3 = (gsl_permutation *)(argp3);
5384     res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 |  0 );
5385     if (!SWIG_IsOK(res4)) {
5386       SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_QRPT_solve" "', argument " "4"" of type '" "gsl_vector const *""'");
5387     }
5388     arg4 = (gsl_vector *)(argp4);
5389     res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 |  0 );
5390     if (!SWIG_IsOK(res5)) {
5391       SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_QRPT_solve" "', argument " "5"" of type '" "gsl_vector *""'");
5392     }
5393     arg5 = (gsl_vector *)(argp5);
5394     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);
5395     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5396 
5397 
5398 
5399 
5400 
5401     XSRETURN(argvi);
5402   fail:
5403 
5404 
5405 
5406 
5407 
5408     SWIG_croak_null();
5409   }
5410 }
5411 
5412 
XS(_wrap_gsl_linalg_QRPT_svx)5413 XS(_wrap_gsl_linalg_QRPT_svx) {
5414   {
5415     gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5416     gsl_vector *arg2 = (gsl_vector *) 0 ;
5417     gsl_permutation *arg3 = (gsl_permutation *) 0 ;
5418     gsl_vector *arg4 = (gsl_vector *) 0 ;
5419     void *argp1 = 0 ;
5420     int res1 = 0 ;
5421     void *argp2 = 0 ;
5422     int res2 = 0 ;
5423     void *argp3 = 0 ;
5424     int res3 = 0 ;
5425     void *argp4 = 0 ;
5426     int res4 = 0 ;
5427     int argvi = 0;
5428     int result;
5429     dXSARGS;
5430 
5431     if ((items < 4) || (items > 4)) {
5432       SWIG_croak("Usage: gsl_linalg_QRPT_svx(QR,tau,p,x);");
5433     }
5434     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 |  0 );
5435     if (!SWIG_IsOK(res1)) {
5436       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QRPT_svx" "', argument " "1"" of type '" "gsl_matrix const *""'");
5437     }
5438     arg1 = (gsl_matrix *)(argp1);
5439     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 |  0 );
5440     if (!SWIG_IsOK(res2)) {
5441       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QRPT_svx" "', argument " "2"" of type '" "gsl_vector const *""'");
5442     }
5443     arg2 = (gsl_vector *)(argp2);
5444     res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_permutation_struct, 0 |  0 );
5445     if (!SWIG_IsOK(res3)) {
5446       SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QRPT_svx" "', argument " "3"" of type '" "gsl_permutation const *""'");
5447     }
5448     arg3 = (gsl_permutation *)(argp3);
5449     res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 |  0 );
5450     if (!SWIG_IsOK(res4)) {
5451       SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_QRPT_svx" "', argument " "4"" of type '" "gsl_vector *""'");
5452     }
5453     arg4 = (gsl_vector *)(argp4);
5454     result = (int)gsl_linalg_QRPT_svx((gsl_matrix const *)arg1,(gsl_vector const *)arg2,(struct gsl_permutation_struct const *)arg3,arg4);
5455     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5456 
5457 
5458 
5459 
5460     XSRETURN(argvi);
5461   fail:
5462 
5463 
5464 
5465 
5466     SWIG_croak_null();
5467   }
5468 }
5469 
5470 
XS(_wrap_gsl_linalg_QRPT_QRsolve)5471 XS(_wrap_gsl_linalg_QRPT_QRsolve) {
5472   {
5473     gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5474     gsl_matrix *arg2 = (gsl_matrix *) 0 ;
5475     gsl_permutation *arg3 = (gsl_permutation *) 0 ;
5476     gsl_vector *arg4 = (gsl_vector *) 0 ;
5477     gsl_vector *arg5 = (gsl_vector *) 0 ;
5478     void *argp1 = 0 ;
5479     int res1 = 0 ;
5480     void *argp2 = 0 ;
5481     int res2 = 0 ;
5482     void *argp3 = 0 ;
5483     int res3 = 0 ;
5484     void *argp4 = 0 ;
5485     int res4 = 0 ;
5486     void *argp5 = 0 ;
5487     int res5 = 0 ;
5488     int argvi = 0;
5489     int result;
5490     dXSARGS;
5491 
5492     if ((items < 5) || (items > 5)) {
5493       SWIG_croak("Usage: gsl_linalg_QRPT_QRsolve(Q,R,p,b,x);");
5494     }
5495     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 |  0 );
5496     if (!SWIG_IsOK(res1)) {
5497       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QRPT_QRsolve" "', argument " "1"" of type '" "gsl_matrix const *""'");
5498     }
5499     arg1 = (gsl_matrix *)(argp1);
5500     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 |  0 );
5501     if (!SWIG_IsOK(res2)) {
5502       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QRPT_QRsolve" "', argument " "2"" of type '" "gsl_matrix const *""'");
5503     }
5504     arg2 = (gsl_matrix *)(argp2);
5505     res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_permutation_struct, 0 |  0 );
5506     if (!SWIG_IsOK(res3)) {
5507       SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QRPT_QRsolve" "', argument " "3"" of type '" "gsl_permutation const *""'");
5508     }
5509     arg3 = (gsl_permutation *)(argp3);
5510     res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 |  0 );
5511     if (!SWIG_IsOK(res4)) {
5512       SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_QRPT_QRsolve" "', argument " "4"" of type '" "gsl_vector const *""'");
5513     }
5514     arg4 = (gsl_vector *)(argp4);
5515     res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 |  0 );
5516     if (!SWIG_IsOK(res5)) {
5517       SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_QRPT_QRsolve" "', argument " "5"" of type '" "gsl_vector *""'");
5518     }
5519     arg5 = (gsl_vector *)(argp5);
5520     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);
5521     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5522 
5523 
5524 
5525 
5526 
5527     XSRETURN(argvi);
5528   fail:
5529 
5530 
5531 
5532 
5533 
5534     SWIG_croak_null();
5535   }
5536 }
5537 
5538 
XS(_wrap_gsl_linalg_QRPT_Rsolve)5539 XS(_wrap_gsl_linalg_QRPT_Rsolve) {
5540   {
5541     gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5542     gsl_permutation *arg2 = (gsl_permutation *) 0 ;
5543     gsl_vector *arg3 = (gsl_vector *) 0 ;
5544     gsl_vector *arg4 = (gsl_vector *) 0 ;
5545     void *argp1 = 0 ;
5546     int res1 = 0 ;
5547     void *argp2 = 0 ;
5548     int res2 = 0 ;
5549     void *argp3 = 0 ;
5550     int res3 = 0 ;
5551     void *argp4 = 0 ;
5552     int res4 = 0 ;
5553     int argvi = 0;
5554     int result;
5555     dXSARGS;
5556 
5557     if ((items < 4) || (items > 4)) {
5558       SWIG_croak("Usage: gsl_linalg_QRPT_Rsolve(QR,p,b,x);");
5559     }
5560     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 |  0 );
5561     if (!SWIG_IsOK(res1)) {
5562       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QRPT_Rsolve" "', argument " "1"" of type '" "gsl_matrix const *""'");
5563     }
5564     arg1 = (gsl_matrix *)(argp1);
5565     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 |  0 );
5566     if (!SWIG_IsOK(res2)) {
5567       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QRPT_Rsolve" "', argument " "2"" of type '" "gsl_permutation const *""'");
5568     }
5569     arg2 = (gsl_permutation *)(argp2);
5570     res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 |  0 );
5571     if (!SWIG_IsOK(res3)) {
5572       SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QRPT_Rsolve" "', argument " "3"" of type '" "gsl_vector const *""'");
5573     }
5574     arg3 = (gsl_vector *)(argp3);
5575     res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 |  0 );
5576     if (!SWIG_IsOK(res4)) {
5577       SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_QRPT_Rsolve" "', argument " "4"" of type '" "gsl_vector *""'");
5578     }
5579     arg4 = (gsl_vector *)(argp4);
5580     result = (int)gsl_linalg_QRPT_Rsolve((gsl_matrix const *)arg1,(struct gsl_permutation_struct const *)arg2,(gsl_vector const *)arg3,arg4);
5581     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5582 
5583 
5584 
5585 
5586     XSRETURN(argvi);
5587   fail:
5588 
5589 
5590 
5591 
5592     SWIG_croak_null();
5593   }
5594 }
5595 
5596 
XS(_wrap_gsl_linalg_QRPT_Rsvx)5597 XS(_wrap_gsl_linalg_QRPT_Rsvx) {
5598   {
5599     gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5600     gsl_permutation *arg2 = (gsl_permutation *) 0 ;
5601     gsl_vector *arg3 = (gsl_vector *) 0 ;
5602     void *argp1 = 0 ;
5603     int res1 = 0 ;
5604     void *argp2 = 0 ;
5605     int res2 = 0 ;
5606     void *argp3 = 0 ;
5607     int res3 = 0 ;
5608     int argvi = 0;
5609     int result;
5610     dXSARGS;
5611 
5612     if ((items < 3) || (items > 3)) {
5613       SWIG_croak("Usage: gsl_linalg_QRPT_Rsvx(QR,p,x);");
5614     }
5615     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 |  0 );
5616     if (!SWIG_IsOK(res1)) {
5617       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QRPT_Rsvx" "', argument " "1"" of type '" "gsl_matrix const *""'");
5618     }
5619     arg1 = (gsl_matrix *)(argp1);
5620     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 |  0 );
5621     if (!SWIG_IsOK(res2)) {
5622       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QRPT_Rsvx" "', argument " "2"" of type '" "gsl_permutation const *""'");
5623     }
5624     arg2 = (gsl_permutation *)(argp2);
5625     res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 |  0 );
5626     if (!SWIG_IsOK(res3)) {
5627       SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QRPT_Rsvx" "', argument " "3"" of type '" "gsl_vector *""'");
5628     }
5629     arg3 = (gsl_vector *)(argp3);
5630     result = (int)gsl_linalg_QRPT_Rsvx((gsl_matrix const *)arg1,(struct gsl_permutation_struct const *)arg2,arg3);
5631     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5632 
5633 
5634 
5635     XSRETURN(argvi);
5636   fail:
5637 
5638 
5639 
5640     SWIG_croak_null();
5641   }
5642 }
5643 
5644 
XS(_wrap_gsl_linalg_QRPT_update)5645 XS(_wrap_gsl_linalg_QRPT_update) {
5646   {
5647     gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5648     gsl_matrix *arg2 = (gsl_matrix *) 0 ;
5649     gsl_permutation *arg3 = (gsl_permutation *) 0 ;
5650     gsl_vector *arg4 = (gsl_vector *) 0 ;
5651     gsl_vector *arg5 = (gsl_vector *) 0 ;
5652     void *argp1 = 0 ;
5653     int res1 = 0 ;
5654     void *argp2 = 0 ;
5655     int res2 = 0 ;
5656     void *argp3 = 0 ;
5657     int res3 = 0 ;
5658     void *argp4 = 0 ;
5659     int res4 = 0 ;
5660     void *argp5 = 0 ;
5661     int res5 = 0 ;
5662     int argvi = 0;
5663     int result;
5664     dXSARGS;
5665 
5666     if ((items < 5) || (items > 5)) {
5667       SWIG_croak("Usage: gsl_linalg_QRPT_update(Q,R,p,u,v);");
5668     }
5669     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 |  0 );
5670     if (!SWIG_IsOK(res1)) {
5671       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QRPT_update" "', argument " "1"" of type '" "gsl_matrix *""'");
5672     }
5673     arg1 = (gsl_matrix *)(argp1);
5674     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 |  0 );
5675     if (!SWIG_IsOK(res2)) {
5676       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QRPT_update" "', argument " "2"" of type '" "gsl_matrix *""'");
5677     }
5678     arg2 = (gsl_matrix *)(argp2);
5679     res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_permutation_struct, 0 |  0 );
5680     if (!SWIG_IsOK(res3)) {
5681       SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QRPT_update" "', argument " "3"" of type '" "gsl_permutation const *""'");
5682     }
5683     arg3 = (gsl_permutation *)(argp3);
5684     res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 |  0 );
5685     if (!SWIG_IsOK(res4)) {
5686       SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_QRPT_update" "', argument " "4"" of type '" "gsl_vector *""'");
5687     }
5688     arg4 = (gsl_vector *)(argp4);
5689     res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 |  0 );
5690     if (!SWIG_IsOK(res5)) {
5691       SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_QRPT_update" "', argument " "5"" of type '" "gsl_vector const *""'");
5692     }
5693     arg5 = (gsl_vector *)(argp5);
5694     result = (int)gsl_linalg_QRPT_update(arg1,arg2,(struct gsl_permutation_struct const *)arg3,arg4,(gsl_vector const *)arg5);
5695     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5696 
5697 
5698 
5699 
5700 
5701     XSRETURN(argvi);
5702   fail:
5703 
5704 
5705 
5706 
5707 
5708     SWIG_croak_null();
5709   }
5710 }
5711 
5712 
XS(_wrap_gsl_linalg_LQ_decomp)5713 XS(_wrap_gsl_linalg_LQ_decomp) {
5714   {
5715     gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5716     gsl_vector *arg2 = (gsl_vector *) 0 ;
5717     void *argp1 = 0 ;
5718     int res1 = 0 ;
5719     void *argp2 = 0 ;
5720     int res2 = 0 ;
5721     int argvi = 0;
5722     int result;
5723     dXSARGS;
5724 
5725     if ((items < 2) || (items > 2)) {
5726       SWIG_croak("Usage: gsl_linalg_LQ_decomp(A,tau);");
5727     }
5728     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 |  0 );
5729     if (!SWIG_IsOK(res1)) {
5730       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LQ_decomp" "', argument " "1"" of type '" "gsl_matrix *""'");
5731     }
5732     arg1 = (gsl_matrix *)(argp1);
5733     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 |  0 );
5734     if (!SWIG_IsOK(res2)) {
5735       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_LQ_decomp" "', argument " "2"" of type '" "gsl_vector *""'");
5736     }
5737     arg2 = (gsl_vector *)(argp2);
5738     result = (int)gsl_linalg_LQ_decomp(arg1,arg2);
5739     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5740 
5741 
5742     XSRETURN(argvi);
5743   fail:
5744 
5745 
5746     SWIG_croak_null();
5747   }
5748 }
5749 
5750 
XS(_wrap_gsl_linalg_LQ_solve_T)5751 XS(_wrap_gsl_linalg_LQ_solve_T) {
5752   {
5753     gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5754     gsl_vector *arg2 = (gsl_vector *) 0 ;
5755     gsl_vector *arg3 = (gsl_vector *) 0 ;
5756     gsl_vector *arg4 = (gsl_vector *) 0 ;
5757     void *argp1 = 0 ;
5758     int res1 = 0 ;
5759     void *argp2 = 0 ;
5760     int res2 = 0 ;
5761     void *argp3 = 0 ;
5762     int res3 = 0 ;
5763     void *argp4 = 0 ;
5764     int res4 = 0 ;
5765     int argvi = 0;
5766     int result;
5767     dXSARGS;
5768 
5769     if ((items < 4) || (items > 4)) {
5770       SWIG_croak("Usage: gsl_linalg_LQ_solve_T(LQ,tau,b,x);");
5771     }
5772     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 |  0 );
5773     if (!SWIG_IsOK(res1)) {
5774       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LQ_solve_T" "', argument " "1"" of type '" "gsl_matrix const *""'");
5775     }
5776     arg1 = (gsl_matrix *)(argp1);
5777     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 |  0 );
5778     if (!SWIG_IsOK(res2)) {
5779       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_LQ_solve_T" "', argument " "2"" of type '" "gsl_vector const *""'");
5780     }
5781     arg2 = (gsl_vector *)(argp2);
5782     res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 |  0 );
5783     if (!SWIG_IsOK(res3)) {
5784       SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_LQ_solve_T" "', argument " "3"" of type '" "gsl_vector const *""'");
5785     }
5786     arg3 = (gsl_vector *)(argp3);
5787     res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 |  0 );
5788     if (!SWIG_IsOK(res4)) {
5789       SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_LQ_solve_T" "', argument " "4"" of type '" "gsl_vector *""'");
5790     }
5791     arg4 = (gsl_vector *)(argp4);
5792     result = (int)gsl_linalg_LQ_solve_T((gsl_matrix const *)arg1,(gsl_vector const *)arg2,(gsl_vector const *)arg3,arg4);
5793     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5794 
5795 
5796 
5797 
5798     XSRETURN(argvi);
5799   fail:
5800 
5801 
5802 
5803 
5804     SWIG_croak_null();
5805   }
5806 }
5807 
5808 
XS(_wrap_gsl_linalg_LQ_svx_T)5809 XS(_wrap_gsl_linalg_LQ_svx_T) {
5810   {
5811     gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5812     gsl_vector *arg2 = (gsl_vector *) 0 ;
5813     gsl_vector *arg3 = (gsl_vector *) 0 ;
5814     void *argp1 = 0 ;
5815     int res1 = 0 ;
5816     void *argp2 = 0 ;
5817     int res2 = 0 ;
5818     void *argp3 = 0 ;
5819     int res3 = 0 ;
5820     int argvi = 0;
5821     int result;
5822     dXSARGS;
5823 
5824     if ((items < 3) || (items > 3)) {
5825       SWIG_croak("Usage: gsl_linalg_LQ_svx_T(LQ,tau,x);");
5826     }
5827     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 |  0 );
5828     if (!SWIG_IsOK(res1)) {
5829       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LQ_svx_T" "', argument " "1"" of type '" "gsl_matrix const *""'");
5830     }
5831     arg1 = (gsl_matrix *)(argp1);
5832     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 |  0 );
5833     if (!SWIG_IsOK(res2)) {
5834       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_LQ_svx_T" "', argument " "2"" of type '" "gsl_vector const *""'");
5835     }
5836     arg2 = (gsl_vector *)(argp2);
5837     res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 |  0 );
5838     if (!SWIG_IsOK(res3)) {
5839       SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_LQ_svx_T" "', argument " "3"" of type '" "gsl_vector *""'");
5840     }
5841     arg3 = (gsl_vector *)(argp3);
5842     result = (int)gsl_linalg_LQ_svx_T((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3);
5843     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5844 
5845 
5846 
5847     XSRETURN(argvi);
5848   fail:
5849 
5850 
5851 
5852     SWIG_croak_null();
5853   }
5854 }
5855 
5856 
XS(_wrap_gsl_linalg_LQ_lssolve_T)5857 XS(_wrap_gsl_linalg_LQ_lssolve_T) {
5858   {
5859     gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5860     gsl_vector *arg2 = (gsl_vector *) 0 ;
5861     gsl_vector *arg3 = (gsl_vector *) 0 ;
5862     gsl_vector *arg4 = (gsl_vector *) 0 ;
5863     gsl_vector *arg5 = (gsl_vector *) 0 ;
5864     void *argp1 = 0 ;
5865     int res1 = 0 ;
5866     void *argp2 = 0 ;
5867     int res2 = 0 ;
5868     void *argp3 = 0 ;
5869     int res3 = 0 ;
5870     void *argp4 = 0 ;
5871     int res4 = 0 ;
5872     void *argp5 = 0 ;
5873     int res5 = 0 ;
5874     int argvi = 0;
5875     int result;
5876     dXSARGS;
5877 
5878     if ((items < 5) || (items > 5)) {
5879       SWIG_croak("Usage: gsl_linalg_LQ_lssolve_T(LQ,tau,b,x,residual);");
5880     }
5881     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 |  0 );
5882     if (!SWIG_IsOK(res1)) {
5883       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LQ_lssolve_T" "', argument " "1"" of type '" "gsl_matrix const *""'");
5884     }
5885     arg1 = (gsl_matrix *)(argp1);
5886     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 |  0 );
5887     if (!SWIG_IsOK(res2)) {
5888       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_LQ_lssolve_T" "', argument " "2"" of type '" "gsl_vector const *""'");
5889     }
5890     arg2 = (gsl_vector *)(argp2);
5891     res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 |  0 );
5892     if (!SWIG_IsOK(res3)) {
5893       SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_LQ_lssolve_T" "', argument " "3"" of type '" "gsl_vector const *""'");
5894     }
5895     arg3 = (gsl_vector *)(argp3);
5896     res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 |  0 );
5897     if (!SWIG_IsOK(res4)) {
5898       SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_LQ_lssolve_T" "', argument " "4"" of type '" "gsl_vector *""'");
5899     }
5900     arg4 = (gsl_vector *)(argp4);
5901     res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 |  0 );
5902     if (!SWIG_IsOK(res5)) {
5903       SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_LQ_lssolve_T" "', argument " "5"" of type '" "gsl_vector *""'");
5904     }
5905     arg5 = (gsl_vector *)(argp5);
5906     result = (int)gsl_linalg_LQ_lssolve_T((gsl_matrix const *)arg1,(gsl_vector const *)arg2,(gsl_vector const *)arg3,arg4,arg5);
5907     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5908 
5909 
5910 
5911 
5912 
5913     XSRETURN(argvi);
5914   fail:
5915 
5916 
5917 
5918 
5919 
5920     SWIG_croak_null();
5921   }
5922 }
5923 
5924 
XS(_wrap_gsl_linalg_LQ_Lsolve_T)5925 XS(_wrap_gsl_linalg_LQ_Lsolve_T) {
5926   {
5927     gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5928     gsl_vector *arg2 = (gsl_vector *) 0 ;
5929     gsl_vector *arg3 = (gsl_vector *) 0 ;
5930     void *argp1 = 0 ;
5931     int res1 = 0 ;
5932     void *argp2 = 0 ;
5933     int res2 = 0 ;
5934     void *argp3 = 0 ;
5935     int res3 = 0 ;
5936     int argvi = 0;
5937     int result;
5938     dXSARGS;
5939 
5940     if ((items < 3) || (items > 3)) {
5941       SWIG_croak("Usage: gsl_linalg_LQ_Lsolve_T(LQ,b,x);");
5942     }
5943     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 |  0 );
5944     if (!SWIG_IsOK(res1)) {
5945       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LQ_Lsolve_T" "', argument " "1"" of type '" "gsl_matrix const *""'");
5946     }
5947     arg1 = (gsl_matrix *)(argp1);
5948     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 |  0 );
5949     if (!SWIG_IsOK(res2)) {
5950       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_LQ_Lsolve_T" "', argument " "2"" of type '" "gsl_vector const *""'");
5951     }
5952     arg2 = (gsl_vector *)(argp2);
5953     res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 |  0 );
5954     if (!SWIG_IsOK(res3)) {
5955       SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_LQ_Lsolve_T" "', argument " "3"" of type '" "gsl_vector *""'");
5956     }
5957     arg3 = (gsl_vector *)(argp3);
5958     result = (int)gsl_linalg_LQ_Lsolve_T((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3);
5959     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5960 
5961 
5962 
5963     XSRETURN(argvi);
5964   fail:
5965 
5966 
5967 
5968     SWIG_croak_null();
5969   }
5970 }
5971 
5972 
XS(_wrap_gsl_linalg_LQ_Lsvx_T)5973 XS(_wrap_gsl_linalg_LQ_Lsvx_T) {
5974   {
5975     gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5976     gsl_vector *arg2 = (gsl_vector *) 0 ;
5977     void *argp1 = 0 ;
5978     int res1 = 0 ;
5979     void *argp2 = 0 ;
5980     int res2 = 0 ;
5981     int argvi = 0;
5982     int result;
5983     dXSARGS;
5984 
5985     if ((items < 2) || (items > 2)) {
5986       SWIG_croak("Usage: gsl_linalg_LQ_Lsvx_T(LQ,x);");
5987     }
5988     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 |  0 );
5989     if (!SWIG_IsOK(res1)) {
5990       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LQ_Lsvx_T" "', argument " "1"" of type '" "gsl_matrix const *""'");
5991     }
5992     arg1 = (gsl_matrix *)(argp1);
5993     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 |  0 );
5994     if (!SWIG_IsOK(res2)) {
5995       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_LQ_Lsvx_T" "', argument " "2"" of type '" "gsl_vector *""'");
5996     }
5997     arg2 = (gsl_vector *)(argp2);
5998     result = (int)gsl_linalg_LQ_Lsvx_T((gsl_matrix const *)arg1,arg2);
5999     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6000 
6001 
6002     XSRETURN(argvi);
6003   fail:
6004 
6005 
6006     SWIG_croak_null();
6007   }
6008 }
6009 
6010 
XS(_wrap_gsl_linalg_L_solve_T)6011 XS(_wrap_gsl_linalg_L_solve_T) {
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_L_solve_T(L,b,x);");
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_L_solve_T" "', 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_L_solve_T" "', 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_L_solve_T" "', argument " "3"" of type '" "gsl_vector *""'");
6042     }
6043     arg3 = (gsl_vector *)(argp3);
6044     result = (int)gsl_linalg_L_solve_T((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_vecQ)6059 XS(_wrap_gsl_linalg_LQ_vecQ) {
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_vecQ(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_vecQ" "', 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_vecQ" "', 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_vecQ" "', argument " "3"" of type '" "gsl_vector *""'");
6090     }
6091     arg3 = (gsl_vector *)(argp3);
6092     result = (int)gsl_linalg_LQ_vecQ((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_vecQT)6107 XS(_wrap_gsl_linalg_LQ_vecQT) {
6108   {
6109     gsl_matrix *arg1 = (gsl_matrix *) 0 ;
6110     gsl_vector *arg2 = (gsl_vector *) 0 ;
6111     gsl_vector *arg3 = (gsl_vector *) 0 ;
6112     void *argp1 = 0 ;
6113     int res1 = 0 ;
6114     void *argp2 = 0 ;
6115     int res2 = 0 ;
6116     void *argp3 = 0 ;
6117     int res3 = 0 ;
6118     int argvi = 0;
6119     int result;
6120     dXSARGS;
6121 
6122     if ((items < 3) || (items > 3)) {
6123       SWIG_croak("Usage: gsl_linalg_LQ_vecQT(LQ,tau,v);");
6124     }
6125     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 |  0 );
6126     if (!SWIG_IsOK(res1)) {
6127       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LQ_vecQT" "', argument " "1"" of type '" "gsl_matrix const *""'");
6128     }
6129     arg1 = (gsl_matrix *)(argp1);
6130     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 |  0 );
6131     if (!SWIG_IsOK(res2)) {
6132       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_LQ_vecQT" "', argument " "2"" of type '" "gsl_vector const *""'");
6133     }
6134     arg2 = (gsl_vector *)(argp2);
6135     res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 |  0 );
6136     if (!SWIG_IsOK(res3)) {
6137       SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_LQ_vecQT" "', argument " "3"" of type '" "gsl_vector *""'");
6138     }
6139     arg3 = (gsl_vector *)(argp3);
6140     result = (int)gsl_linalg_LQ_vecQT((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3);
6141     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6142 
6143 
6144 
6145     XSRETURN(argvi);
6146   fail:
6147 
6148 
6149 
6150     SWIG_croak_null();
6151   }
6152 }
6153 
6154 
XS(_wrap_gsl_linalg_LQ_unpack)6155 XS(_wrap_gsl_linalg_LQ_unpack) {
6156   {
6157     gsl_matrix *arg1 = (gsl_matrix *) 0 ;
6158     gsl_vector *arg2 = (gsl_vector *) 0 ;
6159     gsl_matrix *arg3 = (gsl_matrix *) 0 ;
6160     gsl_matrix *arg4 = (gsl_matrix *) 0 ;
6161     void *argp1 = 0 ;
6162     int res1 = 0 ;
6163     void *argp2 = 0 ;
6164     int res2 = 0 ;
6165     void *argp3 = 0 ;
6166     int res3 = 0 ;
6167     void *argp4 = 0 ;
6168     int res4 = 0 ;
6169     int argvi = 0;
6170     int result;
6171     dXSARGS;
6172 
6173     if ((items < 4) || (items > 4)) {
6174       SWIG_croak("Usage: gsl_linalg_LQ_unpack(LQ,tau,Q,L);");
6175     }
6176     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 |  0 );
6177     if (!SWIG_IsOK(res1)) {
6178       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LQ_unpack" "', argument " "1"" of type '" "gsl_matrix const *""'");
6179     }
6180     arg1 = (gsl_matrix *)(argp1);
6181     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 |  0 );
6182     if (!SWIG_IsOK(res2)) {
6183       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_LQ_unpack" "', argument " "2"" of type '" "gsl_vector const *""'");
6184     }
6185     arg2 = (gsl_vector *)(argp2);
6186     res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 |  0 );
6187     if (!SWIG_IsOK(res3)) {
6188       SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_LQ_unpack" "', argument " "3"" of type '" "gsl_matrix *""'");
6189     }
6190     arg3 = (gsl_matrix *)(argp3);
6191     res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_matrix, 0 |  0 );
6192     if (!SWIG_IsOK(res4)) {
6193       SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_LQ_unpack" "', argument " "4"" of type '" "gsl_matrix *""'");
6194     }
6195     arg4 = (gsl_matrix *)(argp4);
6196     result = (int)gsl_linalg_LQ_unpack((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3,arg4);
6197     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6198 
6199 
6200 
6201 
6202     XSRETURN(argvi);
6203   fail:
6204 
6205 
6206 
6207 
6208     SWIG_croak_null();
6209   }
6210 }
6211 
6212 
XS(_wrap_gsl_linalg_LQ_update)6213 XS(_wrap_gsl_linalg_LQ_update) {
6214   {
6215     gsl_matrix *arg1 = (gsl_matrix *) 0 ;
6216     gsl_matrix *arg2 = (gsl_matrix *) 0 ;
6217     gsl_vector *arg3 = (gsl_vector *) 0 ;
6218     gsl_vector *arg4 = (gsl_vector *) 0 ;
6219     void *argp1 = 0 ;
6220     int res1 = 0 ;
6221     void *argp2 = 0 ;
6222     int res2 = 0 ;
6223     void *argp3 = 0 ;
6224     int res3 = 0 ;
6225     void *argp4 = 0 ;
6226     int res4 = 0 ;
6227     int argvi = 0;
6228     int result;
6229     dXSARGS;
6230 
6231     if ((items < 4) || (items > 4)) {
6232       SWIG_croak("Usage: gsl_linalg_LQ_update(Q,R,v,w);");
6233     }
6234     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 |  0 );
6235     if (!SWIG_IsOK(res1)) {
6236       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LQ_update" "', argument " "1"" of type '" "gsl_matrix *""'");
6237     }
6238     arg1 = (gsl_matrix *)(argp1);
6239     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 |  0 );
6240     if (!SWIG_IsOK(res2)) {
6241       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_LQ_update" "', argument " "2"" of type '" "gsl_matrix *""'");
6242     }
6243     arg2 = (gsl_matrix *)(argp2);
6244     res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 |  0 );
6245     if (!SWIG_IsOK(res3)) {
6246       SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_LQ_update" "', argument " "3"" of type '" "gsl_vector const *""'");
6247     }
6248     arg3 = (gsl_vector *)(argp3);
6249     res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 |  0 );
6250     if (!SWIG_IsOK(res4)) {
6251       SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_LQ_update" "', argument " "4"" of type '" "gsl_vector *""'");
6252     }
6253     arg4 = (gsl_vector *)(argp4);
6254     result = (int)gsl_linalg_LQ_update(arg1,arg2,(gsl_vector const *)arg3,arg4);
6255     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6256 
6257 
6258 
6259 
6260     XSRETURN(argvi);
6261   fail:
6262 
6263 
6264 
6265 
6266     SWIG_croak_null();
6267   }
6268 }
6269 
6270 
XS(_wrap_gsl_linalg_LQ_LQsolve)6271 XS(_wrap_gsl_linalg_LQ_LQsolve) {
6272   {
6273     gsl_matrix *arg1 = (gsl_matrix *) 0 ;
6274     gsl_matrix *arg2 = (gsl_matrix *) 0 ;
6275     gsl_vector *arg3 = (gsl_vector *) 0 ;
6276     gsl_vector *arg4 = (gsl_vector *) 0 ;
6277     void *argp1 = 0 ;
6278     int res1 = 0 ;
6279     void *argp2 = 0 ;
6280     int res2 = 0 ;
6281     void *argp3 = 0 ;
6282     int res3 = 0 ;
6283     void *argp4 = 0 ;
6284     int res4 = 0 ;
6285     int argvi = 0;
6286     int result;
6287     dXSARGS;
6288 
6289     if ((items < 4) || (items > 4)) {
6290       SWIG_croak("Usage: gsl_linalg_LQ_LQsolve(Q,L,b,x);");
6291     }
6292     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 |  0 );
6293     if (!SWIG_IsOK(res1)) {
6294       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LQ_LQsolve" "', argument " "1"" of type '" "gsl_matrix *""'");
6295     }
6296     arg1 = (gsl_matrix *)(argp1);
6297     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 |  0 );
6298     if (!SWIG_IsOK(res2)) {
6299       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_LQ_LQsolve" "', argument " "2"" of type '" "gsl_matrix *""'");
6300     }
6301     arg2 = (gsl_matrix *)(argp2);
6302     res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 |  0 );
6303     if (!SWIG_IsOK(res3)) {
6304       SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_LQ_LQsolve" "', argument " "3"" of type '" "gsl_vector const *""'");
6305     }
6306     arg3 = (gsl_vector *)(argp3);
6307     res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 |  0 );
6308     if (!SWIG_IsOK(res4)) {
6309       SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_LQ_LQsolve" "', argument " "4"" of type '" "gsl_vector *""'");
6310     }
6311     arg4 = (gsl_vector *)(argp4);
6312     result = (int)gsl_linalg_LQ_LQsolve(arg1,arg2,(gsl_vector const *)arg3,arg4);
6313     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6314 
6315 
6316 
6317 
6318     XSRETURN(argvi);
6319   fail:
6320 
6321 
6322 
6323 
6324     SWIG_croak_null();
6325   }
6326 }
6327 
6328 
XS(_wrap_gsl_linalg_PTLQ_decomp)6329 XS(_wrap_gsl_linalg_PTLQ_decomp) {
6330   {
6331     gsl_matrix *arg1 = (gsl_matrix *) 0 ;
6332     gsl_vector *arg2 = (gsl_vector *) 0 ;
6333     gsl_permutation *arg3 = (gsl_permutation *) 0 ;
6334     int *arg4 = (int *) 0 ;
6335     gsl_vector *arg5 = (gsl_vector *) 0 ;
6336     void *argp1 = 0 ;
6337     int res1 = 0 ;
6338     void *argp2 = 0 ;
6339     int res2 = 0 ;
6340     void *argp3 = 0 ;
6341     int res3 = 0 ;
6342     int temp4 ;
6343     int res4 = SWIG_TMPOBJ ;
6344     void *argp5 = 0 ;
6345     int res5 = 0 ;
6346     int argvi = 0;
6347     int result;
6348     dXSARGS;
6349 
6350     arg4 = &temp4;
6351     if ((items < 4) || (items > 4)) {
6352       SWIG_croak("Usage: gsl_linalg_PTLQ_decomp(A,tau,p,norm);");
6353     }
6354     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 |  0 );
6355     if (!SWIG_IsOK(res1)) {
6356       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_PTLQ_decomp" "', argument " "1"" of type '" "gsl_matrix *""'");
6357     }
6358     arg1 = (gsl_matrix *)(argp1);
6359     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 |  0 );
6360     if (!SWIG_IsOK(res2)) {
6361       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_PTLQ_decomp" "', argument " "2"" of type '" "gsl_vector *""'");
6362     }
6363     arg2 = (gsl_vector *)(argp2);
6364     res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_permutation_struct, 0 |  0 );
6365     if (!SWIG_IsOK(res3)) {
6366       SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_PTLQ_decomp" "', argument " "3"" of type '" "gsl_permutation *""'");
6367     }
6368     arg3 = (gsl_permutation *)(argp3);
6369     res5 = SWIG_ConvertPtr(ST(3), &argp5,SWIGTYPE_p_gsl_vector, 0 |  0 );
6370     if (!SWIG_IsOK(res5)) {
6371       SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_PTLQ_decomp" "', argument " "5"" of type '" "gsl_vector *""'");
6372     }
6373     arg5 = (gsl_vector *)(argp5);
6374     result = (int)gsl_linalg_PTLQ_decomp(arg1,arg2,arg3,arg4,arg5);
6375     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6376     if (SWIG_IsTmpObj(res4)) {
6377       if (argvi >= items) EXTEND(sp, argvi+1);  ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((*arg4)); argvi++  ;
6378     } else {
6379       int new_flags = SWIG_IsNewObj(res4) ? (SWIG_POINTER_OWN | 0) : 0;
6380       if (argvi >= items) EXTEND(sp, argvi+1);  ST(argvi) = SWIG_NewPointerObj((void*)(arg4), SWIGTYPE_p_int, new_flags); argvi++  ;
6381     }
6382 
6383 
6384 
6385 
6386 
6387     XSRETURN(argvi);
6388   fail:
6389 
6390 
6391 
6392 
6393 
6394     SWIG_croak_null();
6395   }
6396 }
6397 
6398 
XS(_wrap_gsl_linalg_PTLQ_decomp2)6399 XS(_wrap_gsl_linalg_PTLQ_decomp2) {
6400   {
6401     gsl_matrix *arg1 = (gsl_matrix *) 0 ;
6402     gsl_matrix *arg2 = (gsl_matrix *) 0 ;
6403     gsl_matrix *arg3 = (gsl_matrix *) 0 ;
6404     gsl_vector *arg4 = (gsl_vector *) 0 ;
6405     gsl_permutation *arg5 = (gsl_permutation *) 0 ;
6406     int *arg6 = (int *) 0 ;
6407     gsl_vector *arg7 = (gsl_vector *) 0 ;
6408     void *argp1 = 0 ;
6409     int res1 = 0 ;
6410     void *argp2 = 0 ;
6411     int res2 = 0 ;
6412     void *argp3 = 0 ;
6413     int res3 = 0 ;
6414     void *argp4 = 0 ;
6415     int res4 = 0 ;
6416     void *argp5 = 0 ;
6417     int res5 = 0 ;
6418     int temp6 ;
6419     int res6 = SWIG_TMPOBJ ;
6420     void *argp7 = 0 ;
6421     int res7 = 0 ;
6422     int argvi = 0;
6423     int result;
6424     dXSARGS;
6425 
6426     arg6 = &temp6;
6427     if ((items < 6) || (items > 6)) {
6428       SWIG_croak("Usage: gsl_linalg_PTLQ_decomp2(A,q,r,tau,p,norm);");
6429     }
6430     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 |  0 );
6431     if (!SWIG_IsOK(res1)) {
6432       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_PTLQ_decomp2" "', argument " "1"" of type '" "gsl_matrix const *""'");
6433     }
6434     arg1 = (gsl_matrix *)(argp1);
6435     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 |  0 );
6436     if (!SWIG_IsOK(res2)) {
6437       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_PTLQ_decomp2" "', argument " "2"" of type '" "gsl_matrix *""'");
6438     }
6439     arg2 = (gsl_matrix *)(argp2);
6440     res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 |  0 );
6441     if (!SWIG_IsOK(res3)) {
6442       SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_PTLQ_decomp2" "', argument " "3"" of type '" "gsl_matrix *""'");
6443     }
6444     arg3 = (gsl_matrix *)(argp3);
6445     res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 |  0 );
6446     if (!SWIG_IsOK(res4)) {
6447       SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_PTLQ_decomp2" "', argument " "4"" of type '" "gsl_vector *""'");
6448     }
6449     arg4 = (gsl_vector *)(argp4);
6450     res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_permutation_struct, 0 |  0 );
6451     if (!SWIG_IsOK(res5)) {
6452       SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_PTLQ_decomp2" "', argument " "5"" of type '" "gsl_permutation *""'");
6453     }
6454     arg5 = (gsl_permutation *)(argp5);
6455     res7 = SWIG_ConvertPtr(ST(5), &argp7,SWIGTYPE_p_gsl_vector, 0 |  0 );
6456     if (!SWIG_IsOK(res7)) {
6457       SWIG_exception_fail(SWIG_ArgError(res7), "in method '" "gsl_linalg_PTLQ_decomp2" "', argument " "7"" of type '" "gsl_vector *""'");
6458     }
6459     arg7 = (gsl_vector *)(argp7);
6460     result = (int)gsl_linalg_PTLQ_decomp2((gsl_matrix const *)arg1,arg2,arg3,arg4,arg5,arg6,arg7);
6461     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6462     if (SWIG_IsTmpObj(res6)) {
6463       if (argvi >= items) EXTEND(sp, argvi+1);  ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((*arg6)); argvi++  ;
6464     } else {
6465       int new_flags = SWIG_IsNewObj(res6) ? (SWIG_POINTER_OWN | 0) : 0;
6466       if (argvi >= items) EXTEND(sp, argvi+1);  ST(argvi) = SWIG_NewPointerObj((void*)(arg6), SWIGTYPE_p_int, new_flags); argvi++  ;
6467     }
6468 
6469 
6470 
6471 
6472 
6473 
6474 
6475     XSRETURN(argvi);
6476   fail:
6477 
6478 
6479 
6480 
6481 
6482 
6483 
6484     SWIG_croak_null();
6485   }
6486 }
6487 
6488 
XS(_wrap_gsl_linalg_PTLQ_solve_T)6489 XS(_wrap_gsl_linalg_PTLQ_solve_T) {
6490   {
6491     gsl_matrix *arg1 = (gsl_matrix *) 0 ;
6492     gsl_vector *arg2 = (gsl_vector *) 0 ;
6493     gsl_permutation *arg3 = (gsl_permutation *) 0 ;
6494     gsl_vector *arg4 = (gsl_vector *) 0 ;
6495     gsl_vector *arg5 = (gsl_vector *) 0 ;
6496     void *argp1 = 0 ;
6497     int res1 = 0 ;
6498     void *argp2 = 0 ;
6499     int res2 = 0 ;
6500     void *argp3 = 0 ;
6501     int res3 = 0 ;
6502     void *argp4 = 0 ;
6503     int res4 = 0 ;
6504     void *argp5 = 0 ;
6505     int res5 = 0 ;
6506     int argvi = 0;
6507     int result;
6508     dXSARGS;
6509 
6510     if ((items < 5) || (items > 5)) {
6511       SWIG_croak("Usage: gsl_linalg_PTLQ_solve_T(QR,tau,p,b,x);");
6512     }
6513     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 |  0 );
6514     if (!SWIG_IsOK(res1)) {
6515       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_PTLQ_solve_T" "', argument " "1"" of type '" "gsl_matrix const *""'");
6516     }
6517     arg1 = (gsl_matrix *)(argp1);
6518     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 |  0 );
6519     if (!SWIG_IsOK(res2)) {
6520       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_PTLQ_solve_T" "', argument " "2"" of type '" "gsl_vector const *""'");
6521     }
6522     arg2 = (gsl_vector *)(argp2);
6523     res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_permutation_struct, 0 |  0 );
6524     if (!SWIG_IsOK(res3)) {
6525       SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_PTLQ_solve_T" "', argument " "3"" of type '" "gsl_permutation const *""'");
6526     }
6527     arg3 = (gsl_permutation *)(argp3);
6528     res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 |  0 );
6529     if (!SWIG_IsOK(res4)) {
6530       SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_PTLQ_solve_T" "', argument " "4"" of type '" "gsl_vector const *""'");
6531     }
6532     arg4 = (gsl_vector *)(argp4);
6533     res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 |  0 );
6534     if (!SWIG_IsOK(res5)) {
6535       SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_PTLQ_solve_T" "', argument " "5"" of type '" "gsl_vector *""'");
6536     }
6537     arg5 = (gsl_vector *)(argp5);
6538     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);
6539     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6540 
6541 
6542 
6543 
6544 
6545     XSRETURN(argvi);
6546   fail:
6547 
6548 
6549 
6550 
6551 
6552     SWIG_croak_null();
6553   }
6554 }
6555 
6556 
XS(_wrap_gsl_linalg_PTLQ_svx_T)6557 XS(_wrap_gsl_linalg_PTLQ_svx_T) {
6558   {
6559     gsl_matrix *arg1 = (gsl_matrix *) 0 ;
6560     gsl_vector *arg2 = (gsl_vector *) 0 ;
6561     gsl_permutation *arg3 = (gsl_permutation *) 0 ;
6562     gsl_vector *arg4 = (gsl_vector *) 0 ;
6563     void *argp1 = 0 ;
6564     int res1 = 0 ;
6565     void *argp2 = 0 ;
6566     int res2 = 0 ;
6567     void *argp3 = 0 ;
6568     int res3 = 0 ;
6569     void *argp4 = 0 ;
6570     int res4 = 0 ;
6571     int argvi = 0;
6572     int result;
6573     dXSARGS;
6574 
6575     if ((items < 4) || (items > 4)) {
6576       SWIG_croak("Usage: gsl_linalg_PTLQ_svx_T(LQ,tau,p,x);");
6577     }
6578     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 |  0 );
6579     if (!SWIG_IsOK(res1)) {
6580       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_PTLQ_svx_T" "', argument " "1"" of type '" "gsl_matrix const *""'");
6581     }
6582     arg1 = (gsl_matrix *)(argp1);
6583     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 |  0 );
6584     if (!SWIG_IsOK(res2)) {
6585       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_PTLQ_svx_T" "', argument " "2"" of type '" "gsl_vector const *""'");
6586     }
6587     arg2 = (gsl_vector *)(argp2);
6588     res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_permutation_struct, 0 |  0 );
6589     if (!SWIG_IsOK(res3)) {
6590       SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_PTLQ_svx_T" "', argument " "3"" of type '" "gsl_permutation const *""'");
6591     }
6592     arg3 = (gsl_permutation *)(argp3);
6593     res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 |  0 );
6594     if (!SWIG_IsOK(res4)) {
6595       SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_PTLQ_svx_T" "', argument " "4"" of type '" "gsl_vector *""'");
6596     }
6597     arg4 = (gsl_vector *)(argp4);
6598     result = (int)gsl_linalg_PTLQ_svx_T((gsl_matrix const *)arg1,(gsl_vector const *)arg2,(struct gsl_permutation_struct const *)arg3,arg4);
6599     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6600 
6601 
6602 
6603 
6604     XSRETURN(argvi);
6605   fail:
6606 
6607 
6608 
6609 
6610     SWIG_croak_null();
6611   }
6612 }
6613 
6614 
XS(_wrap_gsl_linalg_PTLQ_LQsolve_T)6615 XS(_wrap_gsl_linalg_PTLQ_LQsolve_T) {
6616   {
6617     gsl_matrix *arg1 = (gsl_matrix *) 0 ;
6618     gsl_matrix *arg2 = (gsl_matrix *) 0 ;
6619     gsl_permutation *arg3 = (gsl_permutation *) 0 ;
6620     gsl_vector *arg4 = (gsl_vector *) 0 ;
6621     gsl_vector *arg5 = (gsl_vector *) 0 ;
6622     void *argp1 = 0 ;
6623     int res1 = 0 ;
6624     void *argp2 = 0 ;
6625     int res2 = 0 ;
6626     void *argp3 = 0 ;
6627     int res3 = 0 ;
6628     void *argp4 = 0 ;
6629     int res4 = 0 ;
6630     void *argp5 = 0 ;
6631     int res5 = 0 ;
6632     int argvi = 0;
6633     int result;
6634     dXSARGS;
6635 
6636     if ((items < 5) || (items > 5)) {
6637       SWIG_croak("Usage: gsl_linalg_PTLQ_LQsolve_T(Q,L,p,b,x);");
6638     }
6639     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 |  0 );
6640     if (!SWIG_IsOK(res1)) {
6641       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_PTLQ_LQsolve_T" "', argument " "1"" of type '" "gsl_matrix const *""'");
6642     }
6643     arg1 = (gsl_matrix *)(argp1);
6644     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 |  0 );
6645     if (!SWIG_IsOK(res2)) {
6646       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_PTLQ_LQsolve_T" "', argument " "2"" of type '" "gsl_matrix const *""'");
6647     }
6648     arg2 = (gsl_matrix *)(argp2);
6649     res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_permutation_struct, 0 |  0 );
6650     if (!SWIG_IsOK(res3)) {
6651       SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_PTLQ_LQsolve_T" "', argument " "3"" of type '" "gsl_permutation const *""'");
6652     }
6653     arg3 = (gsl_permutation *)(argp3);
6654     res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 |  0 );
6655     if (!SWIG_IsOK(res4)) {
6656       SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_PTLQ_LQsolve_T" "', argument " "4"" of type '" "gsl_vector const *""'");
6657     }
6658     arg4 = (gsl_vector *)(argp4);
6659     res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 |  0 );
6660     if (!SWIG_IsOK(res5)) {
6661       SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_PTLQ_LQsolve_T" "', argument " "5"" of type '" "gsl_vector *""'");
6662     }
6663     arg5 = (gsl_vector *)(argp5);
6664     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);
6665     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6666 
6667 
6668 
6669 
6670 
6671     XSRETURN(argvi);
6672   fail:
6673 
6674 
6675 
6676 
6677 
6678     SWIG_croak_null();
6679   }
6680 }
6681 
6682 
XS(_wrap_gsl_linalg_PTLQ_Lsolve_T)6683 XS(_wrap_gsl_linalg_PTLQ_Lsolve_T) {
6684   {
6685     gsl_matrix *arg1 = (gsl_matrix *) 0 ;
6686     gsl_permutation *arg2 = (gsl_permutation *) 0 ;
6687     gsl_vector *arg3 = (gsl_vector *) 0 ;
6688     gsl_vector *arg4 = (gsl_vector *) 0 ;
6689     void *argp1 = 0 ;
6690     int res1 = 0 ;
6691     void *argp2 = 0 ;
6692     int res2 = 0 ;
6693     void *argp3 = 0 ;
6694     int res3 = 0 ;
6695     void *argp4 = 0 ;
6696     int res4 = 0 ;
6697     int argvi = 0;
6698     int result;
6699     dXSARGS;
6700 
6701     if ((items < 4) || (items > 4)) {
6702       SWIG_croak("Usage: gsl_linalg_PTLQ_Lsolve_T(LQ,p,b,x);");
6703     }
6704     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 |  0 );
6705     if (!SWIG_IsOK(res1)) {
6706       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_PTLQ_Lsolve_T" "', argument " "1"" of type '" "gsl_matrix const *""'");
6707     }
6708     arg1 = (gsl_matrix *)(argp1);
6709     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 |  0 );
6710     if (!SWIG_IsOK(res2)) {
6711       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_PTLQ_Lsolve_T" "', argument " "2"" of type '" "gsl_permutation const *""'");
6712     }
6713     arg2 = (gsl_permutation *)(argp2);
6714     res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 |  0 );
6715     if (!SWIG_IsOK(res3)) {
6716       SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_PTLQ_Lsolve_T" "', argument " "3"" of type '" "gsl_vector const *""'");
6717     }
6718     arg3 = (gsl_vector *)(argp3);
6719     res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 |  0 );
6720     if (!SWIG_IsOK(res4)) {
6721       SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_PTLQ_Lsolve_T" "', argument " "4"" of type '" "gsl_vector *""'");
6722     }
6723     arg4 = (gsl_vector *)(argp4);
6724     result = (int)gsl_linalg_PTLQ_Lsolve_T((gsl_matrix const *)arg1,(struct gsl_permutation_struct const *)arg2,(gsl_vector const *)arg3,arg4);
6725     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6726 
6727 
6728 
6729 
6730     XSRETURN(argvi);
6731   fail:
6732 
6733 
6734 
6735 
6736     SWIG_croak_null();
6737   }
6738 }
6739 
6740 
XS(_wrap_gsl_linalg_PTLQ_Lsvx_T)6741 XS(_wrap_gsl_linalg_PTLQ_Lsvx_T) {
6742   {
6743     gsl_matrix *arg1 = (gsl_matrix *) 0 ;
6744     gsl_permutation *arg2 = (gsl_permutation *) 0 ;
6745     gsl_vector *arg3 = (gsl_vector *) 0 ;
6746     void *argp1 = 0 ;
6747     int res1 = 0 ;
6748     void *argp2 = 0 ;
6749     int res2 = 0 ;
6750     void *argp3 = 0 ;
6751     int res3 = 0 ;
6752     int argvi = 0;
6753     int result;
6754     dXSARGS;
6755 
6756     if ((items < 3) || (items > 3)) {
6757       SWIG_croak("Usage: gsl_linalg_PTLQ_Lsvx_T(LQ,p,x);");
6758     }
6759     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 |  0 );
6760     if (!SWIG_IsOK(res1)) {
6761       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_PTLQ_Lsvx_T" "', argument " "1"" of type '" "gsl_matrix const *""'");
6762     }
6763     arg1 = (gsl_matrix *)(argp1);
6764     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 |  0 );
6765     if (!SWIG_IsOK(res2)) {
6766       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_PTLQ_Lsvx_T" "', argument " "2"" of type '" "gsl_permutation const *""'");
6767     }
6768     arg2 = (gsl_permutation *)(argp2);
6769     res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 |  0 );
6770     if (!SWIG_IsOK(res3)) {
6771       SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_PTLQ_Lsvx_T" "', argument " "3"" of type '" "gsl_vector *""'");
6772     }
6773     arg3 = (gsl_vector *)(argp3);
6774     result = (int)gsl_linalg_PTLQ_Lsvx_T((gsl_matrix const *)arg1,(struct gsl_permutation_struct const *)arg2,arg3);
6775     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6776 
6777 
6778 
6779     XSRETURN(argvi);
6780   fail:
6781 
6782 
6783 
6784     SWIG_croak_null();
6785   }
6786 }
6787 
6788 
XS(_wrap_gsl_linalg_PTLQ_update)6789 XS(_wrap_gsl_linalg_PTLQ_update) {
6790   {
6791     gsl_matrix *arg1 = (gsl_matrix *) 0 ;
6792     gsl_matrix *arg2 = (gsl_matrix *) 0 ;
6793     gsl_permutation *arg3 = (gsl_permutation *) 0 ;
6794     gsl_vector *arg4 = (gsl_vector *) 0 ;
6795     gsl_vector *arg5 = (gsl_vector *) 0 ;
6796     void *argp1 = 0 ;
6797     int res1 = 0 ;
6798     void *argp2 = 0 ;
6799     int res2 = 0 ;
6800     void *argp3 = 0 ;
6801     int res3 = 0 ;
6802     void *argp4 = 0 ;
6803     int res4 = 0 ;
6804     void *argp5 = 0 ;
6805     int res5 = 0 ;
6806     int argvi = 0;
6807     int result;
6808     dXSARGS;
6809 
6810     if ((items < 5) || (items > 5)) {
6811       SWIG_croak("Usage: gsl_linalg_PTLQ_update(Q,L,p,v,w);");
6812     }
6813     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 |  0 );
6814     if (!SWIG_IsOK(res1)) {
6815       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_PTLQ_update" "', argument " "1"" of type '" "gsl_matrix *""'");
6816     }
6817     arg1 = (gsl_matrix *)(argp1);
6818     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 |  0 );
6819     if (!SWIG_IsOK(res2)) {
6820       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_PTLQ_update" "', argument " "2"" of type '" "gsl_matrix *""'");
6821     }
6822     arg2 = (gsl_matrix *)(argp2);
6823     res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_permutation_struct, 0 |  0 );
6824     if (!SWIG_IsOK(res3)) {
6825       SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_PTLQ_update" "', argument " "3"" of type '" "gsl_permutation const *""'");
6826     }
6827     arg3 = (gsl_permutation *)(argp3);
6828     res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 |  0 );
6829     if (!SWIG_IsOK(res4)) {
6830       SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_PTLQ_update" "', argument " "4"" of type '" "gsl_vector const *""'");
6831     }
6832     arg4 = (gsl_vector *)(argp4);
6833     res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 |  0 );
6834     if (!SWIG_IsOK(res5)) {
6835       SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_PTLQ_update" "', argument " "5"" of type '" "gsl_vector *""'");
6836     }
6837     arg5 = (gsl_vector *)(argp5);
6838     result = (int)gsl_linalg_PTLQ_update(arg1,arg2,(struct gsl_permutation_struct const *)arg3,(gsl_vector const *)arg4,arg5);
6839     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6840 
6841 
6842 
6843 
6844 
6845     XSRETURN(argvi);
6846   fail:
6847 
6848 
6849 
6850 
6851 
6852     SWIG_croak_null();
6853   }
6854 }
6855 
6856 
XS(_wrap_gsl_linalg_cholesky_decomp)6857 XS(_wrap_gsl_linalg_cholesky_decomp) {
6858   {
6859     gsl_matrix *arg1 = (gsl_matrix *) 0 ;
6860     void *argp1 = 0 ;
6861     int res1 = 0 ;
6862     int argvi = 0;
6863     int result;
6864     dXSARGS;
6865 
6866     if ((items < 1) || (items > 1)) {
6867       SWIG_croak("Usage: gsl_linalg_cholesky_decomp(A);");
6868     }
6869     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 |  0 );
6870     if (!SWIG_IsOK(res1)) {
6871       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_cholesky_decomp" "', argument " "1"" of type '" "gsl_matrix *""'");
6872     }
6873     arg1 = (gsl_matrix *)(argp1);
6874     result = (int)gsl_linalg_cholesky_decomp(arg1);
6875     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6876 
6877     XSRETURN(argvi);
6878   fail:
6879 
6880     SWIG_croak_null();
6881   }
6882 }
6883 
6884 
XS(_wrap_gsl_linalg_cholesky_solve)6885 XS(_wrap_gsl_linalg_cholesky_solve) {
6886   {
6887     gsl_matrix *arg1 = (gsl_matrix *) 0 ;
6888     gsl_vector *arg2 = (gsl_vector *) 0 ;
6889     gsl_vector *arg3 = (gsl_vector *) 0 ;
6890     void *argp1 = 0 ;
6891     int res1 = 0 ;
6892     void *argp2 = 0 ;
6893     int res2 = 0 ;
6894     void *argp3 = 0 ;
6895     int res3 = 0 ;
6896     int argvi = 0;
6897     int result;
6898     dXSARGS;
6899 
6900     if ((items < 3) || (items > 3)) {
6901       SWIG_croak("Usage: gsl_linalg_cholesky_solve(cholesky,b,x);");
6902     }
6903     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 |  0 );
6904     if (!SWIG_IsOK(res1)) {
6905       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_cholesky_solve" "', argument " "1"" of type '" "gsl_matrix const *""'");
6906     }
6907     arg1 = (gsl_matrix *)(argp1);
6908     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 |  0 );
6909     if (!SWIG_IsOK(res2)) {
6910       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_cholesky_solve" "', argument " "2"" of type '" "gsl_vector const *""'");
6911     }
6912     arg2 = (gsl_vector *)(argp2);
6913     res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 |  0 );
6914     if (!SWIG_IsOK(res3)) {
6915       SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_cholesky_solve" "', argument " "3"" of type '" "gsl_vector *""'");
6916     }
6917     arg3 = (gsl_vector *)(argp3);
6918     result = (int)gsl_linalg_cholesky_solve((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3);
6919     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6920 
6921 
6922 
6923     XSRETURN(argvi);
6924   fail:
6925 
6926 
6927 
6928     SWIG_croak_null();
6929   }
6930 }
6931 
6932 
XS(_wrap_gsl_linalg_cholesky_svx)6933 XS(_wrap_gsl_linalg_cholesky_svx) {
6934   {
6935     gsl_matrix *arg1 = (gsl_matrix *) 0 ;
6936     gsl_vector *arg2 = (gsl_vector *) 0 ;
6937     void *argp1 = 0 ;
6938     int res1 = 0 ;
6939     void *argp2 = 0 ;
6940     int res2 = 0 ;
6941     int argvi = 0;
6942     int result;
6943     dXSARGS;
6944 
6945     if ((items < 2) || (items > 2)) {
6946       SWIG_croak("Usage: gsl_linalg_cholesky_svx(cholesky,x);");
6947     }
6948     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 |  0 );
6949     if (!SWIG_IsOK(res1)) {
6950       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_cholesky_svx" "', argument " "1"" of type '" "gsl_matrix const *""'");
6951     }
6952     arg1 = (gsl_matrix *)(argp1);
6953     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 |  0 );
6954     if (!SWIG_IsOK(res2)) {
6955       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_cholesky_svx" "', argument " "2"" of type '" "gsl_vector *""'");
6956     }
6957     arg2 = (gsl_vector *)(argp2);
6958     result = (int)gsl_linalg_cholesky_svx((gsl_matrix const *)arg1,arg2);
6959     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6960 
6961 
6962     XSRETURN(argvi);
6963   fail:
6964 
6965 
6966     SWIG_croak_null();
6967   }
6968 }
6969 
6970 
XS(_wrap_gsl_linalg_cholesky_invert)6971 XS(_wrap_gsl_linalg_cholesky_invert) {
6972   {
6973     gsl_matrix *arg1 = (gsl_matrix *) 0 ;
6974     void *argp1 = 0 ;
6975     int res1 = 0 ;
6976     int argvi = 0;
6977     int result;
6978     dXSARGS;
6979 
6980     if ((items < 1) || (items > 1)) {
6981       SWIG_croak("Usage: gsl_linalg_cholesky_invert(cholesky);");
6982     }
6983     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 |  0 );
6984     if (!SWIG_IsOK(res1)) {
6985       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_cholesky_invert" "', argument " "1"" of type '" "gsl_matrix *""'");
6986     }
6987     arg1 = (gsl_matrix *)(argp1);
6988     result = (int)gsl_linalg_cholesky_invert(arg1);
6989     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6990 
6991     XSRETURN(argvi);
6992   fail:
6993 
6994     SWIG_croak_null();
6995   }
6996 }
6997 
6998 
XS(_wrap_gsl_linalg_cholesky_decomp_unit)6999 XS(_wrap_gsl_linalg_cholesky_decomp_unit) {
7000   {
7001     gsl_matrix *arg1 = (gsl_matrix *) 0 ;
7002     gsl_vector *arg2 = (gsl_vector *) 0 ;
7003     void *argp1 = 0 ;
7004     int res1 = 0 ;
7005     void *argp2 = 0 ;
7006     int res2 = 0 ;
7007     int argvi = 0;
7008     int result;
7009     dXSARGS;
7010 
7011     if ((items < 2) || (items > 2)) {
7012       SWIG_croak("Usage: gsl_linalg_cholesky_decomp_unit(A,D);");
7013     }
7014     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 |  0 );
7015     if (!SWIG_IsOK(res1)) {
7016       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_cholesky_decomp_unit" "', argument " "1"" of type '" "gsl_matrix *""'");
7017     }
7018     arg1 = (gsl_matrix *)(argp1);
7019     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 |  0 );
7020     if (!SWIG_IsOK(res2)) {
7021       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_cholesky_decomp_unit" "', argument " "2"" of type '" "gsl_vector *""'");
7022     }
7023     arg2 = (gsl_vector *)(argp2);
7024     result = (int)gsl_linalg_cholesky_decomp_unit(arg1,arg2);
7025     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7026 
7027 
7028     XSRETURN(argvi);
7029   fail:
7030 
7031 
7032     SWIG_croak_null();
7033   }
7034 }
7035 
7036 
XS(_wrap_gsl_linalg_complex_cholesky_decomp)7037 XS(_wrap_gsl_linalg_complex_cholesky_decomp) {
7038   {
7039     gsl_matrix_complex *arg1 = (gsl_matrix_complex *) 0 ;
7040     void *argp1 = 0 ;
7041     int res1 = 0 ;
7042     int argvi = 0;
7043     int result;
7044     dXSARGS;
7045 
7046     if ((items < 1) || (items > 1)) {
7047       SWIG_croak("Usage: gsl_linalg_complex_cholesky_decomp(A);");
7048     }
7049     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix_complex, 0 |  0 );
7050     if (!SWIG_IsOK(res1)) {
7051       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_complex_cholesky_decomp" "', argument " "1"" of type '" "gsl_matrix_complex *""'");
7052     }
7053     arg1 = (gsl_matrix_complex *)(argp1);
7054     result = (int)gsl_linalg_complex_cholesky_decomp(arg1);
7055     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7056 
7057     XSRETURN(argvi);
7058   fail:
7059 
7060     SWIG_croak_null();
7061   }
7062 }
7063 
7064 
XS(_wrap_gsl_linalg_complex_cholesky_solve)7065 XS(_wrap_gsl_linalg_complex_cholesky_solve) {
7066   {
7067     gsl_matrix_complex *arg1 = (gsl_matrix_complex *) 0 ;
7068     gsl_vector_complex *arg2 = (gsl_vector_complex *) 0 ;
7069     gsl_vector_complex *arg3 = (gsl_vector_complex *) 0 ;
7070     void *argp1 = 0 ;
7071     int res1 = 0 ;
7072     void *argp2 = 0 ;
7073     int res2 = 0 ;
7074     void *argp3 = 0 ;
7075     int res3 = 0 ;
7076     int argvi = 0;
7077     int result;
7078     dXSARGS;
7079 
7080     if ((items < 3) || (items > 3)) {
7081       SWIG_croak("Usage: gsl_linalg_complex_cholesky_solve(cholesky,b,x);");
7082     }
7083     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix_complex, 0 |  0 );
7084     if (!SWIG_IsOK(res1)) {
7085       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_complex_cholesky_solve" "', argument " "1"" of type '" "gsl_matrix_complex const *""'");
7086     }
7087     arg1 = (gsl_matrix_complex *)(argp1);
7088     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_complex, 0 |  0 );
7089     if (!SWIG_IsOK(res2)) {
7090       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_complex_cholesky_solve" "', argument " "2"" of type '" "gsl_vector_complex const *""'");
7091     }
7092     arg2 = (gsl_vector_complex *)(argp2);
7093     res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector_complex, 0 |  0 );
7094     if (!SWIG_IsOK(res3)) {
7095       SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_complex_cholesky_solve" "', argument " "3"" of type '" "gsl_vector_complex *""'");
7096     }
7097     arg3 = (gsl_vector_complex *)(argp3);
7098     result = (int)gsl_linalg_complex_cholesky_solve((gsl_matrix_complex const *)arg1,(gsl_vector_complex const *)arg2,arg3);
7099     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7100 
7101 
7102 
7103     XSRETURN(argvi);
7104   fail:
7105 
7106 
7107 
7108     SWIG_croak_null();
7109   }
7110 }
7111 
7112 
XS(_wrap_gsl_linalg_complex_cholesky_svx)7113 XS(_wrap_gsl_linalg_complex_cholesky_svx) {
7114   {
7115     gsl_matrix_complex *arg1 = (gsl_matrix_complex *) 0 ;
7116     gsl_vector_complex *arg2 = (gsl_vector_complex *) 0 ;
7117     void *argp1 = 0 ;
7118     int res1 = 0 ;
7119     void *argp2 = 0 ;
7120     int res2 = 0 ;
7121     int argvi = 0;
7122     int result;
7123     dXSARGS;
7124 
7125     if ((items < 2) || (items > 2)) {
7126       SWIG_croak("Usage: gsl_linalg_complex_cholesky_svx(cholesky,x);");
7127     }
7128     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix_complex, 0 |  0 );
7129     if (!SWIG_IsOK(res1)) {
7130       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_complex_cholesky_svx" "', argument " "1"" of type '" "gsl_matrix_complex const *""'");
7131     }
7132     arg1 = (gsl_matrix_complex *)(argp1);
7133     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_complex, 0 |  0 );
7134     if (!SWIG_IsOK(res2)) {
7135       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_complex_cholesky_svx" "', argument " "2"" of type '" "gsl_vector_complex *""'");
7136     }
7137     arg2 = (gsl_vector_complex *)(argp2);
7138     result = (int)gsl_linalg_complex_cholesky_svx((gsl_matrix_complex const *)arg1,arg2);
7139     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7140 
7141 
7142     XSRETURN(argvi);
7143   fail:
7144 
7145 
7146     SWIG_croak_null();
7147   }
7148 }
7149 
7150 
XS(_wrap_gsl_linalg_complex_cholesky_invert)7151 XS(_wrap_gsl_linalg_complex_cholesky_invert) {
7152   {
7153     gsl_matrix_complex *arg1 = (gsl_matrix_complex *) 0 ;
7154     void *argp1 = 0 ;
7155     int res1 = 0 ;
7156     int argvi = 0;
7157     int result;
7158     dXSARGS;
7159 
7160     if ((items < 1) || (items > 1)) {
7161       SWIG_croak("Usage: gsl_linalg_complex_cholesky_invert(cholesky);");
7162     }
7163     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix_complex, 0 |  0 );
7164     if (!SWIG_IsOK(res1)) {
7165       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_complex_cholesky_invert" "', argument " "1"" of type '" "gsl_matrix_complex *""'");
7166     }
7167     arg1 = (gsl_matrix_complex *)(argp1);
7168     result = (int)gsl_linalg_complex_cholesky_invert(arg1);
7169     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7170 
7171     XSRETURN(argvi);
7172   fail:
7173 
7174     SWIG_croak_null();
7175   }
7176 }
7177 
7178 
XS(_wrap_gsl_linalg_symmtd_decomp)7179 XS(_wrap_gsl_linalg_symmtd_decomp) {
7180   {
7181     gsl_matrix *arg1 = (gsl_matrix *) 0 ;
7182     gsl_vector *arg2 = (gsl_vector *) 0 ;
7183     void *argp1 = 0 ;
7184     int res1 = 0 ;
7185     void *argp2 = 0 ;
7186     int res2 = 0 ;
7187     int argvi = 0;
7188     int result;
7189     dXSARGS;
7190 
7191     if ((items < 2) || (items > 2)) {
7192       SWIG_croak("Usage: gsl_linalg_symmtd_decomp(A,tau);");
7193     }
7194     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 |  0 );
7195     if (!SWIG_IsOK(res1)) {
7196       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_symmtd_decomp" "', argument " "1"" of type '" "gsl_matrix *""'");
7197     }
7198     arg1 = (gsl_matrix *)(argp1);
7199     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 |  0 );
7200     if (!SWIG_IsOK(res2)) {
7201       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_symmtd_decomp" "', argument " "2"" of type '" "gsl_vector *""'");
7202     }
7203     arg2 = (gsl_vector *)(argp2);
7204     result = (int)gsl_linalg_symmtd_decomp(arg1,arg2);
7205     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7206 
7207 
7208     XSRETURN(argvi);
7209   fail:
7210 
7211 
7212     SWIG_croak_null();
7213   }
7214 }
7215 
7216 
XS(_wrap_gsl_linalg_symmtd_unpack)7217 XS(_wrap_gsl_linalg_symmtd_unpack) {
7218   {
7219     gsl_matrix *arg1 = (gsl_matrix *) 0 ;
7220     gsl_vector *arg2 = (gsl_vector *) 0 ;
7221     gsl_matrix *arg3 = (gsl_matrix *) 0 ;
7222     gsl_vector *arg4 = (gsl_vector *) 0 ;
7223     gsl_vector *arg5 = (gsl_vector *) 0 ;
7224     void *argp1 = 0 ;
7225     int res1 = 0 ;
7226     void *argp2 = 0 ;
7227     int res2 = 0 ;
7228     void *argp3 = 0 ;
7229     int res3 = 0 ;
7230     void *argp4 = 0 ;
7231     int res4 = 0 ;
7232     void *argp5 = 0 ;
7233     int res5 = 0 ;
7234     int argvi = 0;
7235     int result;
7236     dXSARGS;
7237 
7238     if ((items < 5) || (items > 5)) {
7239       SWIG_croak("Usage: gsl_linalg_symmtd_unpack(A,tau,Q,diag,subdiag);");
7240     }
7241     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 |  0 );
7242     if (!SWIG_IsOK(res1)) {
7243       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_symmtd_unpack" "', argument " "1"" of type '" "gsl_matrix const *""'");
7244     }
7245     arg1 = (gsl_matrix *)(argp1);
7246     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 |  0 );
7247     if (!SWIG_IsOK(res2)) {
7248       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_symmtd_unpack" "', argument " "2"" of type '" "gsl_vector const *""'");
7249     }
7250     arg2 = (gsl_vector *)(argp2);
7251     res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 |  0 );
7252     if (!SWIG_IsOK(res3)) {
7253       SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_symmtd_unpack" "', argument " "3"" of type '" "gsl_matrix *""'");
7254     }
7255     arg3 = (gsl_matrix *)(argp3);
7256     res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 |  0 );
7257     if (!SWIG_IsOK(res4)) {
7258       SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_symmtd_unpack" "', argument " "4"" of type '" "gsl_vector *""'");
7259     }
7260     arg4 = (gsl_vector *)(argp4);
7261     res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 |  0 );
7262     if (!SWIG_IsOK(res5)) {
7263       SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_symmtd_unpack" "', argument " "5"" of type '" "gsl_vector *""'");
7264     }
7265     arg5 = (gsl_vector *)(argp5);
7266     result = (int)gsl_linalg_symmtd_unpack((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3,arg4,arg5);
7267     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7268 
7269 
7270 
7271 
7272 
7273     XSRETURN(argvi);
7274   fail:
7275 
7276 
7277 
7278 
7279 
7280     SWIG_croak_null();
7281   }
7282 }
7283 
7284 
XS(_wrap_gsl_linalg_symmtd_unpack_T)7285 XS(_wrap_gsl_linalg_symmtd_unpack_T) {
7286   {
7287     gsl_matrix *arg1 = (gsl_matrix *) 0 ;
7288     gsl_vector *arg2 = (gsl_vector *) 0 ;
7289     gsl_vector *arg3 = (gsl_vector *) 0 ;
7290     void *argp1 = 0 ;
7291     int res1 = 0 ;
7292     void *argp2 = 0 ;
7293     int res2 = 0 ;
7294     void *argp3 = 0 ;
7295     int res3 = 0 ;
7296     int argvi = 0;
7297     int result;
7298     dXSARGS;
7299 
7300     if ((items < 3) || (items > 3)) {
7301       SWIG_croak("Usage: gsl_linalg_symmtd_unpack_T(A,diag,subdiag);");
7302     }
7303     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 |  0 );
7304     if (!SWIG_IsOK(res1)) {
7305       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_symmtd_unpack_T" "', argument " "1"" of type '" "gsl_matrix const *""'");
7306     }
7307     arg1 = (gsl_matrix *)(argp1);
7308     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 |  0 );
7309     if (!SWIG_IsOK(res2)) {
7310       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_symmtd_unpack_T" "', argument " "2"" of type '" "gsl_vector *""'");
7311     }
7312     arg2 = (gsl_vector *)(argp2);
7313     res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 |  0 );
7314     if (!SWIG_IsOK(res3)) {
7315       SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_symmtd_unpack_T" "', argument " "3"" of type '" "gsl_vector *""'");
7316     }
7317     arg3 = (gsl_vector *)(argp3);
7318     result = (int)gsl_linalg_symmtd_unpack_T((gsl_matrix const *)arg1,arg2,arg3);
7319     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7320 
7321 
7322 
7323     XSRETURN(argvi);
7324   fail:
7325 
7326 
7327 
7328     SWIG_croak_null();
7329   }
7330 }
7331 
7332 
XS(_wrap_gsl_linalg_hermtd_decomp)7333 XS(_wrap_gsl_linalg_hermtd_decomp) {
7334   {
7335     gsl_matrix_complex *arg1 = (gsl_matrix_complex *) 0 ;
7336     gsl_vector_complex *arg2 = (gsl_vector_complex *) 0 ;
7337     void *argp1 = 0 ;
7338     int res1 = 0 ;
7339     void *argp2 = 0 ;
7340     int res2 = 0 ;
7341     int argvi = 0;
7342     int result;
7343     dXSARGS;
7344 
7345     if ((items < 2) || (items > 2)) {
7346       SWIG_croak("Usage: gsl_linalg_hermtd_decomp(A,tau);");
7347     }
7348     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix_complex, 0 |  0 );
7349     if (!SWIG_IsOK(res1)) {
7350       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_hermtd_decomp" "', argument " "1"" of type '" "gsl_matrix_complex *""'");
7351     }
7352     arg1 = (gsl_matrix_complex *)(argp1);
7353     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_complex, 0 |  0 );
7354     if (!SWIG_IsOK(res2)) {
7355       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_hermtd_decomp" "', argument " "2"" of type '" "gsl_vector_complex *""'");
7356     }
7357     arg2 = (gsl_vector_complex *)(argp2);
7358     result = (int)gsl_linalg_hermtd_decomp(arg1,arg2);
7359     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7360 
7361 
7362     XSRETURN(argvi);
7363   fail:
7364 
7365 
7366     SWIG_croak_null();
7367   }
7368 }
7369 
7370 
XS(_wrap_gsl_linalg_hermtd_unpack)7371 XS(_wrap_gsl_linalg_hermtd_unpack) {
7372   {
7373     gsl_matrix_complex *arg1 = (gsl_matrix_complex *) 0 ;
7374     gsl_vector_complex *arg2 = (gsl_vector_complex *) 0 ;
7375     gsl_matrix_complex *arg3 = (gsl_matrix_complex *) 0 ;
7376     gsl_vector *arg4 = (gsl_vector *) 0 ;
7377     gsl_vector *arg5 = (gsl_vector *) 0 ;
7378     void *argp1 = 0 ;
7379     int res1 = 0 ;
7380     void *argp2 = 0 ;
7381     int res2 = 0 ;
7382     void *argp3 = 0 ;
7383     int res3 = 0 ;
7384     void *argp4 = 0 ;
7385     int res4 = 0 ;
7386     void *argp5 = 0 ;
7387     int res5 = 0 ;
7388     int argvi = 0;
7389     int result;
7390     dXSARGS;
7391 
7392     if ((items < 5) || (items > 5)) {
7393       SWIG_croak("Usage: gsl_linalg_hermtd_unpack(A,tau,U,diag,sudiag);");
7394     }
7395     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix_complex, 0 |  0 );
7396     if (!SWIG_IsOK(res1)) {
7397       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_hermtd_unpack" "', argument " "1"" of type '" "gsl_matrix_complex const *""'");
7398     }
7399     arg1 = (gsl_matrix_complex *)(argp1);
7400     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_complex, 0 |  0 );
7401     if (!SWIG_IsOK(res2)) {
7402       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_hermtd_unpack" "', argument " "2"" of type '" "gsl_vector_complex const *""'");
7403     }
7404     arg2 = (gsl_vector_complex *)(argp2);
7405     res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix_complex, 0 |  0 );
7406     if (!SWIG_IsOK(res3)) {
7407       SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_hermtd_unpack" "', argument " "3"" of type '" "gsl_matrix_complex *""'");
7408     }
7409     arg3 = (gsl_matrix_complex *)(argp3);
7410     res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 |  0 );
7411     if (!SWIG_IsOK(res4)) {
7412       SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_hermtd_unpack" "', argument " "4"" of type '" "gsl_vector *""'");
7413     }
7414     arg4 = (gsl_vector *)(argp4);
7415     res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 |  0 );
7416     if (!SWIG_IsOK(res5)) {
7417       SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_hermtd_unpack" "', argument " "5"" of type '" "gsl_vector *""'");
7418     }
7419     arg5 = (gsl_vector *)(argp5);
7420     result = (int)gsl_linalg_hermtd_unpack((gsl_matrix_complex const *)arg1,(gsl_vector_complex const *)arg2,arg3,arg4,arg5);
7421     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7422 
7423 
7424 
7425 
7426 
7427     XSRETURN(argvi);
7428   fail:
7429 
7430 
7431 
7432 
7433 
7434     SWIG_croak_null();
7435   }
7436 }
7437 
7438 
XS(_wrap_gsl_linalg_hermtd_unpack_T)7439 XS(_wrap_gsl_linalg_hermtd_unpack_T) {
7440   {
7441     gsl_matrix_complex *arg1 = (gsl_matrix_complex *) 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_hermtd_unpack_T(A,diag,subdiag);");
7456     }
7457     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix_complex, 0 |  0 );
7458     if (!SWIG_IsOK(res1)) {
7459       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_hermtd_unpack_T" "', argument " "1"" of type '" "gsl_matrix_complex const *""'");
7460     }
7461     arg1 = (gsl_matrix_complex *)(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_hermtd_unpack_T" "', argument " "2"" of type '" "gsl_vector *""'");
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_hermtd_unpack_T" "', argument " "3"" of type '" "gsl_vector *""'");
7470     }
7471     arg3 = (gsl_vector *)(argp3);
7472     result = (int)gsl_linalg_hermtd_unpack_T((gsl_matrix_complex const *)arg1,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_solve)7487 XS(_wrap_gsl_linalg_HH_solve) {
7488   {
7489     gsl_matrix *arg1 = (gsl_matrix *) 0 ;
7490     gsl_vector *arg2 = (gsl_vector *) 0 ;
7491     gsl_vector *arg3 = (gsl_vector *) 0 ;
7492     void *argp1 = 0 ;
7493     int res1 = 0 ;
7494     void *argp2 = 0 ;
7495     int res2 = 0 ;
7496     void *argp3 = 0 ;
7497     int res3 = 0 ;
7498     int argvi = 0;
7499     int result;
7500     dXSARGS;
7501 
7502     if ((items < 3) || (items > 3)) {
7503       SWIG_croak("Usage: gsl_linalg_HH_solve(A,b,x);");
7504     }
7505     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 |  0 );
7506     if (!SWIG_IsOK(res1)) {
7507       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_HH_solve" "', argument " "1"" of type '" "gsl_matrix *""'");
7508     }
7509     arg1 = (gsl_matrix *)(argp1);
7510     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 |  0 );
7511     if (!SWIG_IsOK(res2)) {
7512       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_HH_solve" "', argument " "2"" of type '" "gsl_vector const *""'");
7513     }
7514     arg2 = (gsl_vector *)(argp2);
7515     res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 |  0 );
7516     if (!SWIG_IsOK(res3)) {
7517       SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_HH_solve" "', argument " "3"" of type '" "gsl_vector *""'");
7518     }
7519     arg3 = (gsl_vector *)(argp3);
7520     result = (int)gsl_linalg_HH_solve(arg1,(gsl_vector const *)arg2,arg3);
7521     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7522 
7523 
7524 
7525     XSRETURN(argvi);
7526   fail:
7527 
7528 
7529 
7530     SWIG_croak_null();
7531   }
7532 }
7533 
7534 
XS(_wrap_gsl_linalg_HH_svx)7535 XS(_wrap_gsl_linalg_HH_svx) {
7536   {
7537     gsl_matrix *arg1 = (gsl_matrix *) 0 ;
7538     gsl_vector *arg2 = (gsl_vector *) 0 ;
7539     void *argp1 = 0 ;
7540     int res1 = 0 ;
7541     void *argp2 = 0 ;
7542     int res2 = 0 ;
7543     int argvi = 0;
7544     int result;
7545     dXSARGS;
7546 
7547     if ((items < 2) || (items > 2)) {
7548       SWIG_croak("Usage: gsl_linalg_HH_svx(A,x);");
7549     }
7550     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 |  0 );
7551     if (!SWIG_IsOK(res1)) {
7552       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_HH_svx" "', argument " "1"" of type '" "gsl_matrix *""'");
7553     }
7554     arg1 = (gsl_matrix *)(argp1);
7555     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 |  0 );
7556     if (!SWIG_IsOK(res2)) {
7557       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_HH_svx" "', argument " "2"" of type '" "gsl_vector *""'");
7558     }
7559     arg2 = (gsl_vector *)(argp2);
7560     result = (int)gsl_linalg_HH_svx(arg1,arg2);
7561     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7562 
7563 
7564     XSRETURN(argvi);
7565   fail:
7566 
7567 
7568     SWIG_croak_null();
7569   }
7570 }
7571 
7572 
XS(_wrap_gsl_linalg_solve_symm_tridiag)7573 XS(_wrap_gsl_linalg_solve_symm_tridiag) {
7574   {
7575     gsl_vector *arg1 = (gsl_vector *) 0 ;
7576     gsl_vector *arg2 = (gsl_vector *) 0 ;
7577     gsl_vector *arg3 = (gsl_vector *) 0 ;
7578     gsl_vector *arg4 = (gsl_vector *) 0 ;
7579     void *argp1 = 0 ;
7580     int res1 = 0 ;
7581     void *argp2 = 0 ;
7582     int res2 = 0 ;
7583     void *argp3 = 0 ;
7584     int res3 = 0 ;
7585     void *argp4 = 0 ;
7586     int res4 = 0 ;
7587     int argvi = 0;
7588     int result;
7589     dXSARGS;
7590 
7591     if ((items < 4) || (items > 4)) {
7592       SWIG_croak("Usage: gsl_linalg_solve_symm_tridiag(diag,offdiag,b,x);");
7593     }
7594     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 |  0 );
7595     if (!SWIG_IsOK(res1)) {
7596       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_solve_symm_tridiag" "', argument " "1"" of type '" "gsl_vector const *""'");
7597     }
7598     arg1 = (gsl_vector *)(argp1);
7599     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 |  0 );
7600     if (!SWIG_IsOK(res2)) {
7601       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_solve_symm_tridiag" "', argument " "2"" of type '" "gsl_vector const *""'");
7602     }
7603     arg2 = (gsl_vector *)(argp2);
7604     res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 |  0 );
7605     if (!SWIG_IsOK(res3)) {
7606       SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_solve_symm_tridiag" "', argument " "3"" of type '" "gsl_vector const *""'");
7607     }
7608     arg3 = (gsl_vector *)(argp3);
7609     res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 |  0 );
7610     if (!SWIG_IsOK(res4)) {
7611       SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_solve_symm_tridiag" "', argument " "4"" of type '" "gsl_vector *""'");
7612     }
7613     arg4 = (gsl_vector *)(argp4);
7614     result = (int)gsl_linalg_solve_symm_tridiag((gsl_vector const *)arg1,(gsl_vector const *)arg2,(gsl_vector const *)arg3,arg4);
7615     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7616 
7617 
7618 
7619 
7620     XSRETURN(argvi);
7621   fail:
7622 
7623 
7624 
7625 
7626     SWIG_croak_null();
7627   }
7628 }
7629 
7630 
XS(_wrap_gsl_linalg_solve_tridiag)7631 XS(_wrap_gsl_linalg_solve_tridiag) {
7632   {
7633     gsl_vector *arg1 = (gsl_vector *) 0 ;
7634     gsl_vector *arg2 = (gsl_vector *) 0 ;
7635     gsl_vector *arg3 = (gsl_vector *) 0 ;
7636     gsl_vector *arg4 = (gsl_vector *) 0 ;
7637     gsl_vector *arg5 = (gsl_vector *) 0 ;
7638     void *argp1 = 0 ;
7639     int res1 = 0 ;
7640     void *argp2 = 0 ;
7641     int res2 = 0 ;
7642     void *argp3 = 0 ;
7643     int res3 = 0 ;
7644     void *argp4 = 0 ;
7645     int res4 = 0 ;
7646     void *argp5 = 0 ;
7647     int res5 = 0 ;
7648     int argvi = 0;
7649     int result;
7650     dXSARGS;
7651 
7652     if ((items < 5) || (items > 5)) {
7653       SWIG_croak("Usage: gsl_linalg_solve_tridiag(diag,abovediag,belowdiag,b,x);");
7654     }
7655     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 |  0 );
7656     if (!SWIG_IsOK(res1)) {
7657       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_solve_tridiag" "', argument " "1"" of type '" "gsl_vector const *""'");
7658     }
7659     arg1 = (gsl_vector *)(argp1);
7660     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 |  0 );
7661     if (!SWIG_IsOK(res2)) {
7662       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_solve_tridiag" "', argument " "2"" of type '" "gsl_vector const *""'");
7663     }
7664     arg2 = (gsl_vector *)(argp2);
7665     res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 |  0 );
7666     if (!SWIG_IsOK(res3)) {
7667       SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_solve_tridiag" "', argument " "3"" of type '" "gsl_vector const *""'");
7668     }
7669     arg3 = (gsl_vector *)(argp3);
7670     res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 |  0 );
7671     if (!SWIG_IsOK(res4)) {
7672       SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_solve_tridiag" "', argument " "4"" of type '" "gsl_vector const *""'");
7673     }
7674     arg4 = (gsl_vector *)(argp4);
7675     res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 |  0 );
7676     if (!SWIG_IsOK(res5)) {
7677       SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_solve_tridiag" "', argument " "5"" of type '" "gsl_vector *""'");
7678     }
7679     arg5 = (gsl_vector *)(argp5);
7680     result = (int)gsl_linalg_solve_tridiag((gsl_vector const *)arg1,(gsl_vector const *)arg2,(gsl_vector const *)arg3,(gsl_vector const *)arg4,arg5);
7681     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7682 
7683 
7684 
7685 
7686 
7687     XSRETURN(argvi);
7688   fail:
7689 
7690 
7691 
7692 
7693 
7694     SWIG_croak_null();
7695   }
7696 }
7697 
7698 
XS(_wrap_gsl_linalg_solve_symm_cyc_tridiag)7699 XS(_wrap_gsl_linalg_solve_symm_cyc_tridiag) {
7700   {
7701     gsl_vector *arg1 = (gsl_vector *) 0 ;
7702     gsl_vector *arg2 = (gsl_vector *) 0 ;
7703     gsl_vector *arg3 = (gsl_vector *) 0 ;
7704     gsl_vector *arg4 = (gsl_vector *) 0 ;
7705     void *argp1 = 0 ;
7706     int res1 = 0 ;
7707     void *argp2 = 0 ;
7708     int res2 = 0 ;
7709     void *argp3 = 0 ;
7710     int res3 = 0 ;
7711     void *argp4 = 0 ;
7712     int res4 = 0 ;
7713     int argvi = 0;
7714     int result;
7715     dXSARGS;
7716 
7717     if ((items < 4) || (items > 4)) {
7718       SWIG_croak("Usage: gsl_linalg_solve_symm_cyc_tridiag(diag,offdiag,b,x);");
7719     }
7720     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 |  0 );
7721     if (!SWIG_IsOK(res1)) {
7722       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_solve_symm_cyc_tridiag" "', argument " "1"" of type '" "gsl_vector const *""'");
7723     }
7724     arg1 = (gsl_vector *)(argp1);
7725     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 |  0 );
7726     if (!SWIG_IsOK(res2)) {
7727       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_solve_symm_cyc_tridiag" "', argument " "2"" of type '" "gsl_vector const *""'");
7728     }
7729     arg2 = (gsl_vector *)(argp2);
7730     res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 |  0 );
7731     if (!SWIG_IsOK(res3)) {
7732       SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_solve_symm_cyc_tridiag" "', argument " "3"" of type '" "gsl_vector const *""'");
7733     }
7734     arg3 = (gsl_vector *)(argp3);
7735     res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 |  0 );
7736     if (!SWIG_IsOK(res4)) {
7737       SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_solve_symm_cyc_tridiag" "', argument " "4"" of type '" "gsl_vector *""'");
7738     }
7739     arg4 = (gsl_vector *)(argp4);
7740     result = (int)gsl_linalg_solve_symm_cyc_tridiag((gsl_vector const *)arg1,(gsl_vector const *)arg2,(gsl_vector const *)arg3,arg4);
7741     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7742 
7743 
7744 
7745 
7746     XSRETURN(argvi);
7747   fail:
7748 
7749 
7750 
7751 
7752     SWIG_croak_null();
7753   }
7754 }
7755 
7756 
XS(_wrap_gsl_linalg_solve_cyc_tridiag)7757 XS(_wrap_gsl_linalg_solve_cyc_tridiag) {
7758   {
7759     gsl_vector *arg1 = (gsl_vector *) 0 ;
7760     gsl_vector *arg2 = (gsl_vector *) 0 ;
7761     gsl_vector *arg3 = (gsl_vector *) 0 ;
7762     gsl_vector *arg4 = (gsl_vector *) 0 ;
7763     gsl_vector *arg5 = (gsl_vector *) 0 ;
7764     void *argp1 = 0 ;
7765     int res1 = 0 ;
7766     void *argp2 = 0 ;
7767     int res2 = 0 ;
7768     void *argp3 = 0 ;
7769     int res3 = 0 ;
7770     void *argp4 = 0 ;
7771     int res4 = 0 ;
7772     void *argp5 = 0 ;
7773     int res5 = 0 ;
7774     int argvi = 0;
7775     int result;
7776     dXSARGS;
7777 
7778     if ((items < 5) || (items > 5)) {
7779       SWIG_croak("Usage: gsl_linalg_solve_cyc_tridiag(diag,abovediag,belowdiag,b,x);");
7780     }
7781     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 |  0 );
7782     if (!SWIG_IsOK(res1)) {
7783       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_solve_cyc_tridiag" "', argument " "1"" of type '" "gsl_vector const *""'");
7784     }
7785     arg1 = (gsl_vector *)(argp1);
7786     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 |  0 );
7787     if (!SWIG_IsOK(res2)) {
7788       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_solve_cyc_tridiag" "', argument " "2"" of type '" "gsl_vector const *""'");
7789     }
7790     arg2 = (gsl_vector *)(argp2);
7791     res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 |  0 );
7792     if (!SWIG_IsOK(res3)) {
7793       SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_solve_cyc_tridiag" "', argument " "3"" of type '" "gsl_vector const *""'");
7794     }
7795     arg3 = (gsl_vector *)(argp3);
7796     res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 |  0 );
7797     if (!SWIG_IsOK(res4)) {
7798       SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_solve_cyc_tridiag" "', argument " "4"" of type '" "gsl_vector const *""'");
7799     }
7800     arg4 = (gsl_vector *)(argp4);
7801     res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 |  0 );
7802     if (!SWIG_IsOK(res5)) {
7803       SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_solve_cyc_tridiag" "', argument " "5"" of type '" "gsl_vector *""'");
7804     }
7805     arg5 = (gsl_vector *)(argp5);
7806     result = (int)gsl_linalg_solve_cyc_tridiag((gsl_vector const *)arg1,(gsl_vector const *)arg2,(gsl_vector const *)arg3,(gsl_vector const *)arg4,arg5);
7807     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7808 
7809 
7810 
7811 
7812 
7813     XSRETURN(argvi);
7814   fail:
7815 
7816 
7817 
7818 
7819 
7820     SWIG_croak_null();
7821   }
7822 }
7823 
7824 
XS(_wrap_gsl_linalg_bidiag_decomp)7825 XS(_wrap_gsl_linalg_bidiag_decomp) {
7826   {
7827     gsl_matrix *arg1 = (gsl_matrix *) 0 ;
7828     gsl_vector *arg2 = (gsl_vector *) 0 ;
7829     gsl_vector *arg3 = (gsl_vector *) 0 ;
7830     void *argp1 = 0 ;
7831     int res1 = 0 ;
7832     void *argp2 = 0 ;
7833     int res2 = 0 ;
7834     void *argp3 = 0 ;
7835     int res3 = 0 ;
7836     int argvi = 0;
7837     int result;
7838     dXSARGS;
7839 
7840     if ((items < 3) || (items > 3)) {
7841       SWIG_croak("Usage: gsl_linalg_bidiag_decomp(A,tau_U,tau_V);");
7842     }
7843     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 |  0 );
7844     if (!SWIG_IsOK(res1)) {
7845       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_bidiag_decomp" "', argument " "1"" of type '" "gsl_matrix *""'");
7846     }
7847     arg1 = (gsl_matrix *)(argp1);
7848     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 |  0 );
7849     if (!SWIG_IsOK(res2)) {
7850       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_bidiag_decomp" "', argument " "2"" of type '" "gsl_vector *""'");
7851     }
7852     arg2 = (gsl_vector *)(argp2);
7853     res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 |  0 );
7854     if (!SWIG_IsOK(res3)) {
7855       SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_bidiag_decomp" "', argument " "3"" of type '" "gsl_vector *""'");
7856     }
7857     arg3 = (gsl_vector *)(argp3);
7858     result = (int)gsl_linalg_bidiag_decomp(arg1,arg2,arg3);
7859     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7860 
7861 
7862 
7863     XSRETURN(argvi);
7864   fail:
7865 
7866 
7867 
7868     SWIG_croak_null();
7869   }
7870 }
7871 
7872 
XS(_wrap_gsl_linalg_bidiag_unpack)7873 XS(_wrap_gsl_linalg_bidiag_unpack) {
7874   {
7875     gsl_matrix *arg1 = (gsl_matrix *) 0 ;
7876     gsl_vector *arg2 = (gsl_vector *) 0 ;
7877     gsl_matrix *arg3 = (gsl_matrix *) 0 ;
7878     gsl_vector *arg4 = (gsl_vector *) 0 ;
7879     gsl_matrix *arg5 = (gsl_matrix *) 0 ;
7880     gsl_vector *arg6 = (gsl_vector *) 0 ;
7881     gsl_vector *arg7 = (gsl_vector *) 0 ;
7882     void *argp1 = 0 ;
7883     int res1 = 0 ;
7884     void *argp2 = 0 ;
7885     int res2 = 0 ;
7886     void *argp3 = 0 ;
7887     int res3 = 0 ;
7888     void *argp4 = 0 ;
7889     int res4 = 0 ;
7890     void *argp5 = 0 ;
7891     int res5 = 0 ;
7892     void *argp6 = 0 ;
7893     int res6 = 0 ;
7894     void *argp7 = 0 ;
7895     int res7 = 0 ;
7896     int argvi = 0;
7897     int result;
7898     dXSARGS;
7899 
7900     if ((items < 7) || (items > 7)) {
7901       SWIG_croak("Usage: gsl_linalg_bidiag_unpack(A,tau_U,U,tau_V,V,diag,superdiag);");
7902     }
7903     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 |  0 );
7904     if (!SWIG_IsOK(res1)) {
7905       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_bidiag_unpack" "', argument " "1"" of type '" "gsl_matrix const *""'");
7906     }
7907     arg1 = (gsl_matrix *)(argp1);
7908     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 |  0 );
7909     if (!SWIG_IsOK(res2)) {
7910       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_bidiag_unpack" "', argument " "2"" of type '" "gsl_vector const *""'");
7911     }
7912     arg2 = (gsl_vector *)(argp2);
7913     res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 |  0 );
7914     if (!SWIG_IsOK(res3)) {
7915       SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_bidiag_unpack" "', argument " "3"" of type '" "gsl_matrix *""'");
7916     }
7917     arg3 = (gsl_matrix *)(argp3);
7918     res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 |  0 );
7919     if (!SWIG_IsOK(res4)) {
7920       SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_bidiag_unpack" "', argument " "4"" of type '" "gsl_vector const *""'");
7921     }
7922     arg4 = (gsl_vector *)(argp4);
7923     res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_matrix, 0 |  0 );
7924     if (!SWIG_IsOK(res5)) {
7925       SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_bidiag_unpack" "', argument " "5"" of type '" "gsl_matrix *""'");
7926     }
7927     arg5 = (gsl_matrix *)(argp5);
7928     res6 = SWIG_ConvertPtr(ST(5), &argp6,SWIGTYPE_p_gsl_vector, 0 |  0 );
7929     if (!SWIG_IsOK(res6)) {
7930       SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_linalg_bidiag_unpack" "', argument " "6"" of type '" "gsl_vector *""'");
7931     }
7932     arg6 = (gsl_vector *)(argp6);
7933     res7 = SWIG_ConvertPtr(ST(6), &argp7,SWIGTYPE_p_gsl_vector, 0 |  0 );
7934     if (!SWIG_IsOK(res7)) {
7935       SWIG_exception_fail(SWIG_ArgError(res7), "in method '" "gsl_linalg_bidiag_unpack" "', argument " "7"" of type '" "gsl_vector *""'");
7936     }
7937     arg7 = (gsl_vector *)(argp7);
7938     result = (int)gsl_linalg_bidiag_unpack((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3,(gsl_vector const *)arg4,arg5,arg6,arg7);
7939     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7940 
7941 
7942 
7943 
7944 
7945 
7946 
7947     XSRETURN(argvi);
7948   fail:
7949 
7950 
7951 
7952 
7953 
7954 
7955 
7956     SWIG_croak_null();
7957   }
7958 }
7959 
7960 
XS(_wrap_gsl_linalg_bidiag_unpack2)7961 XS(_wrap_gsl_linalg_bidiag_unpack2) {
7962   {
7963     gsl_matrix *arg1 = (gsl_matrix *) 0 ;
7964     gsl_vector *arg2 = (gsl_vector *) 0 ;
7965     gsl_vector *arg3 = (gsl_vector *) 0 ;
7966     gsl_matrix *arg4 = (gsl_matrix *) 0 ;
7967     void *argp1 = 0 ;
7968     int res1 = 0 ;
7969     void *argp2 = 0 ;
7970     int res2 = 0 ;
7971     void *argp3 = 0 ;
7972     int res3 = 0 ;
7973     void *argp4 = 0 ;
7974     int res4 = 0 ;
7975     int argvi = 0;
7976     int result;
7977     dXSARGS;
7978 
7979     if ((items < 4) || (items > 4)) {
7980       SWIG_croak("Usage: gsl_linalg_bidiag_unpack2(A,tau_U,tau_V,V);");
7981     }
7982     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 |  0 );
7983     if (!SWIG_IsOK(res1)) {
7984       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_bidiag_unpack2" "', argument " "1"" of type '" "gsl_matrix *""'");
7985     }
7986     arg1 = (gsl_matrix *)(argp1);
7987     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 |  0 );
7988     if (!SWIG_IsOK(res2)) {
7989       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_bidiag_unpack2" "', argument " "2"" of type '" "gsl_vector *""'");
7990     }
7991     arg2 = (gsl_vector *)(argp2);
7992     res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 |  0 );
7993     if (!SWIG_IsOK(res3)) {
7994       SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_bidiag_unpack2" "', argument " "3"" of type '" "gsl_vector *""'");
7995     }
7996     arg3 = (gsl_vector *)(argp3);
7997     res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_matrix, 0 |  0 );
7998     if (!SWIG_IsOK(res4)) {
7999       SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_bidiag_unpack2" "', argument " "4"" of type '" "gsl_matrix *""'");
8000     }
8001     arg4 = (gsl_matrix *)(argp4);
8002     result = (int)gsl_linalg_bidiag_unpack2(arg1,arg2,arg3,arg4);
8003     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8004 
8005 
8006 
8007 
8008     XSRETURN(argvi);
8009   fail:
8010 
8011 
8012 
8013 
8014     SWIG_croak_null();
8015   }
8016 }
8017 
8018 
XS(_wrap_gsl_linalg_bidiag_unpack_B)8019 XS(_wrap_gsl_linalg_bidiag_unpack_B) {
8020   {
8021     gsl_matrix *arg1 = (gsl_matrix *) 0 ;
8022     gsl_vector *arg2 = (gsl_vector *) 0 ;
8023     gsl_vector *arg3 = (gsl_vector *) 0 ;
8024     void *argp1 = 0 ;
8025     int res1 = 0 ;
8026     void *argp2 = 0 ;
8027     int res2 = 0 ;
8028     void *argp3 = 0 ;
8029     int res3 = 0 ;
8030     int argvi = 0;
8031     int result;
8032     dXSARGS;
8033 
8034     if ((items < 3) || (items > 3)) {
8035       SWIG_croak("Usage: gsl_linalg_bidiag_unpack_B(A,diag,superdiag);");
8036     }
8037     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 |  0 );
8038     if (!SWIG_IsOK(res1)) {
8039       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_bidiag_unpack_B" "', argument " "1"" of type '" "gsl_matrix const *""'");
8040     }
8041     arg1 = (gsl_matrix *)(argp1);
8042     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 |  0 );
8043     if (!SWIG_IsOK(res2)) {
8044       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_bidiag_unpack_B" "', argument " "2"" of type '" "gsl_vector *""'");
8045     }
8046     arg2 = (gsl_vector *)(argp2);
8047     res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 |  0 );
8048     if (!SWIG_IsOK(res3)) {
8049       SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_bidiag_unpack_B" "', argument " "3"" of type '" "gsl_vector *""'");
8050     }
8051     arg3 = (gsl_vector *)(argp3);
8052     result = (int)gsl_linalg_bidiag_unpack_B((gsl_matrix const *)arg1,arg2,arg3);
8053     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8054 
8055 
8056 
8057     XSRETURN(argvi);
8058   fail:
8059 
8060 
8061 
8062     SWIG_croak_null();
8063   }
8064 }
8065 
8066 
XS(_wrap_gsl_linalg_balance_matrix)8067 XS(_wrap_gsl_linalg_balance_matrix) {
8068   {
8069     gsl_matrix *arg1 = (gsl_matrix *) 0 ;
8070     gsl_vector *arg2 = (gsl_vector *) 0 ;
8071     void *argp1 = 0 ;
8072     int res1 = 0 ;
8073     void *argp2 = 0 ;
8074     int res2 = 0 ;
8075     int argvi = 0;
8076     int result;
8077     dXSARGS;
8078 
8079     if ((items < 2) || (items > 2)) {
8080       SWIG_croak("Usage: gsl_linalg_balance_matrix(A,D);");
8081     }
8082     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 |  0 );
8083     if (!SWIG_IsOK(res1)) {
8084       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_balance_matrix" "', argument " "1"" of type '" "gsl_matrix *""'");
8085     }
8086     arg1 = (gsl_matrix *)(argp1);
8087     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 |  0 );
8088     if (!SWIG_IsOK(res2)) {
8089       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_balance_matrix" "', argument " "2"" of type '" "gsl_vector *""'");
8090     }
8091     arg2 = (gsl_vector *)(argp2);
8092     result = (int)gsl_linalg_balance_matrix(arg1,arg2);
8093     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8094 
8095 
8096     XSRETURN(argvi);
8097   fail:
8098 
8099 
8100     SWIG_croak_null();
8101   }
8102 }
8103 
8104 
XS(_wrap_gsl_linalg_balance_accum)8105 XS(_wrap_gsl_linalg_balance_accum) {
8106   {
8107     gsl_matrix *arg1 = (gsl_matrix *) 0 ;
8108     gsl_vector *arg2 = (gsl_vector *) 0 ;
8109     void *argp1 = 0 ;
8110     int res1 = 0 ;
8111     void *argp2 = 0 ;
8112     int res2 = 0 ;
8113     int argvi = 0;
8114     int result;
8115     dXSARGS;
8116 
8117     if ((items < 2) || (items > 2)) {
8118       SWIG_croak("Usage: gsl_linalg_balance_accum(A,D);");
8119     }
8120     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 |  0 );
8121     if (!SWIG_IsOK(res1)) {
8122       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_balance_accum" "', argument " "1"" of type '" "gsl_matrix *""'");
8123     }
8124     arg1 = (gsl_matrix *)(argp1);
8125     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 |  0 );
8126     if (!SWIG_IsOK(res2)) {
8127       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_balance_accum" "', argument " "2"" of type '" "gsl_vector *""'");
8128     }
8129     arg2 = (gsl_vector *)(argp2);
8130     result = (int)gsl_linalg_balance_accum(arg1,arg2);
8131     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8132 
8133 
8134     XSRETURN(argvi);
8135   fail:
8136 
8137 
8138     SWIG_croak_null();
8139   }
8140 }
8141 
8142 
XS(_wrap_gsl_linalg_balance_columns)8143 XS(_wrap_gsl_linalg_balance_columns) {
8144   {
8145     gsl_matrix *arg1 = (gsl_matrix *) 0 ;
8146     gsl_vector *arg2 = (gsl_vector *) 0 ;
8147     void *argp1 = 0 ;
8148     int res1 = 0 ;
8149     void *argp2 = 0 ;
8150     int res2 = 0 ;
8151     int argvi = 0;
8152     int result;
8153     dXSARGS;
8154 
8155     if ((items < 2) || (items > 2)) {
8156       SWIG_croak("Usage: gsl_linalg_balance_columns(A,D);");
8157     }
8158     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 |  0 );
8159     if (!SWIG_IsOK(res1)) {
8160       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_balance_columns" "', argument " "1"" of type '" "gsl_matrix *""'");
8161     }
8162     arg1 = (gsl_matrix *)(argp1);
8163     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 |  0 );
8164     if (!SWIG_IsOK(res2)) {
8165       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_balance_columns" "', argument " "2"" of type '" "gsl_vector *""'");
8166     }
8167     arg2 = (gsl_vector *)(argp2);
8168     result = (int)gsl_linalg_balance_columns(arg1,arg2);
8169     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8170 
8171 
8172     XSRETURN(argvi);
8173   fail:
8174 
8175 
8176     SWIG_croak_null();
8177   }
8178 }
8179 
8180 
XS(_wrap_gsl_linalg_givens)8181 XS(_wrap_gsl_linalg_givens) {
8182   {
8183     double arg1 ;
8184     double arg2 ;
8185     double *arg3 = (double *) 0 ;
8186     double *arg4 = (double *) 0 ;
8187     double val1 ;
8188     int ecode1 = 0 ;
8189     double val2 ;
8190     int ecode2 = 0 ;
8191     double temp3 ;
8192     int res3 = SWIG_TMPOBJ ;
8193     double temp4 ;
8194     int res4 = SWIG_TMPOBJ ;
8195     int argvi = 0;
8196     dXSARGS;
8197 
8198     arg3 = &temp3;
8199     arg4 = &temp4;
8200     if ((items < 2) || (items > 2)) {
8201       SWIG_croak("Usage: gsl_linalg_givens(a,b);");
8202     }
8203     ecode1 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
8204     if (!SWIG_IsOK(ecode1)) {
8205       SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_linalg_givens" "', argument " "1"" of type '" "double""'");
8206     }
8207     arg1 = (double)(val1);
8208     ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
8209     if (!SWIG_IsOK(ecode2)) {
8210       SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_linalg_givens" "', argument " "2"" of type '" "double""'");
8211     }
8212     arg2 = (double)(val2);
8213     gsl_linalg_givens(arg1,arg2,arg3,arg4);
8214     ST(argvi) = &PL_sv_undef;
8215     if (SWIG_IsTmpObj(res3)) {
8216       if (argvi >= items) EXTEND(sp, argvi+1);  ST(argvi) = SWIG_From_double  SWIG_PERL_CALL_ARGS_1((*arg3)); argvi++  ;
8217     } else {
8218       int new_flags = SWIG_IsNewObj(res3) ? (SWIG_POINTER_OWN | 0) : 0;
8219       if (argvi >= items) EXTEND(sp, argvi+1);  ST(argvi) = SWIG_NewPointerObj((void*)(arg3), SWIGTYPE_p_double, new_flags); argvi++  ;
8220     }
8221     if (SWIG_IsTmpObj(res4)) {
8222       if (argvi >= items) EXTEND(sp, argvi+1);  ST(argvi) = SWIG_From_double  SWIG_PERL_CALL_ARGS_1((*arg4)); argvi++  ;
8223     } else {
8224       int new_flags = SWIG_IsNewObj(res4) ? (SWIG_POINTER_OWN | 0) : 0;
8225       if (argvi >= items) EXTEND(sp, argvi+1);  ST(argvi) = SWIG_NewPointerObj((void*)(arg4), SWIGTYPE_p_double, new_flags); argvi++  ;
8226     }
8227 
8228 
8229 
8230 
8231     XSRETURN(argvi);
8232   fail:
8233 
8234 
8235 
8236 
8237     SWIG_croak_null();
8238   }
8239 }
8240 
8241 
XS(_wrap_gsl_linalg_givens_gv)8242 XS(_wrap_gsl_linalg_givens_gv) {
8243   {
8244     gsl_vector *arg1 = (gsl_vector *) 0 ;
8245     size_t arg2 ;
8246     size_t arg3 ;
8247     double arg4 ;
8248     double arg5 ;
8249     void *argp1 = 0 ;
8250     int res1 = 0 ;
8251     size_t val2 ;
8252     int ecode2 = 0 ;
8253     size_t val3 ;
8254     int ecode3 = 0 ;
8255     double val4 ;
8256     int ecode4 = 0 ;
8257     double val5 ;
8258     int ecode5 = 0 ;
8259     int argvi = 0;
8260     dXSARGS;
8261 
8262     if ((items < 5) || (items > 5)) {
8263       SWIG_croak("Usage: gsl_linalg_givens_gv(v,i,j,c,s);");
8264     }
8265     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 |  0 );
8266     if (!SWIG_IsOK(res1)) {
8267       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_givens_gv" "', argument " "1"" of type '" "gsl_vector *""'");
8268     }
8269     arg1 = (gsl_vector *)(argp1);
8270     ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
8271     if (!SWIG_IsOK(ecode2)) {
8272       SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_linalg_givens_gv" "', argument " "2"" of type '" "size_t""'");
8273     }
8274     arg2 = (size_t)(val2);
8275     ecode3 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
8276     if (!SWIG_IsOK(ecode3)) {
8277       SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_linalg_givens_gv" "', argument " "3"" of type '" "size_t""'");
8278     }
8279     arg3 = (size_t)(val3);
8280     ecode4 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(3), &val4);
8281     if (!SWIG_IsOK(ecode4)) {
8282       SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "gsl_linalg_givens_gv" "', argument " "4"" of type '" "double""'");
8283     }
8284     arg4 = (double)(val4);
8285     ecode5 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(4), &val5);
8286     if (!SWIG_IsOK(ecode5)) {
8287       SWIG_exception_fail(SWIG_ArgError(ecode5), "in method '" "gsl_linalg_givens_gv" "', argument " "5"" of type '" "double""'");
8288     }
8289     arg5 = (double)(val5);
8290     gsl_linalg_givens_gv(arg1,arg2,arg3,arg4,arg5);
8291     ST(argvi) = &PL_sv_undef;
8292 
8293 
8294 
8295 
8296 
8297     XSRETURN(argvi);
8298   fail:
8299 
8300 
8301 
8302 
8303 
8304     SWIG_croak_null();
8305   }
8306 }
8307 
8308 
XS(_wrap_gsl_permutation_struct_size_set)8309 XS(_wrap_gsl_permutation_struct_size_set) {
8310   {
8311     struct gsl_permutation_struct *arg1 = (struct gsl_permutation_struct *) 0 ;
8312     size_t arg2 ;
8313     void *argp1 = 0 ;
8314     int res1 = 0 ;
8315     size_t val2 ;
8316     int ecode2 = 0 ;
8317     int argvi = 0;
8318     dXSARGS;
8319 
8320     if ((items < 2) || (items > 2)) {
8321       SWIG_croak("Usage: gsl_permutation_struct_size_set(self,size);");
8322     }
8323     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 |  0 );
8324     if (!SWIG_IsOK(res1)) {
8325       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_struct_size_set" "', argument " "1"" of type '" "struct gsl_permutation_struct *""'");
8326     }
8327     arg1 = (struct gsl_permutation_struct *)(argp1);
8328     ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
8329     if (!SWIG_IsOK(ecode2)) {
8330       SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_permutation_struct_size_set" "', argument " "2"" of type '" "size_t""'");
8331     }
8332     arg2 = (size_t)(val2);
8333     if (arg1) (arg1)->size = arg2;
8334     ST(argvi) = &PL_sv_undef;
8335 
8336 
8337     XSRETURN(argvi);
8338   fail:
8339 
8340 
8341     SWIG_croak_null();
8342   }
8343 }
8344 
8345 
XS(_wrap_gsl_permutation_struct_size_get)8346 XS(_wrap_gsl_permutation_struct_size_get) {
8347   {
8348     struct gsl_permutation_struct *arg1 = (struct gsl_permutation_struct *) 0 ;
8349     void *argp1 = 0 ;
8350     int res1 = 0 ;
8351     int argvi = 0;
8352     size_t result;
8353     dXSARGS;
8354 
8355     if ((items < 1) || (items > 1)) {
8356       SWIG_croak("Usage: gsl_permutation_struct_size_get(self);");
8357     }
8358     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 |  0 );
8359     if (!SWIG_IsOK(res1)) {
8360       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_struct_size_get" "', argument " "1"" of type '" "struct gsl_permutation_struct *""'");
8361     }
8362     arg1 = (struct gsl_permutation_struct *)(argp1);
8363     result =  ((arg1)->size);
8364     ST(argvi) = SWIG_From_size_t  SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
8365 
8366     XSRETURN(argvi);
8367   fail:
8368 
8369     SWIG_croak_null();
8370   }
8371 }
8372 
8373 
XS(_wrap_gsl_permutation_struct_data_set)8374 XS(_wrap_gsl_permutation_struct_data_set) {
8375   {
8376     struct gsl_permutation_struct *arg1 = (struct gsl_permutation_struct *) 0 ;
8377     size_t *arg2 = (size_t *) 0 ;
8378     void *argp1 = 0 ;
8379     int res1 = 0 ;
8380     void *argp2 = 0 ;
8381     int res2 = 0 ;
8382     int argvi = 0;
8383     dXSARGS;
8384 
8385     if ((items < 2) || (items > 2)) {
8386       SWIG_croak("Usage: gsl_permutation_struct_data_set(self,data);");
8387     }
8388     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 |  0 );
8389     if (!SWIG_IsOK(res1)) {
8390       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_struct_data_set" "', argument " "1"" of type '" "struct gsl_permutation_struct *""'");
8391     }
8392     arg1 = (struct gsl_permutation_struct *)(argp1);
8393     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_size_t, SWIG_POINTER_DISOWN |  0 );
8394     if (!SWIG_IsOK(res2)) {
8395       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_permutation_struct_data_set" "', argument " "2"" of type '" "size_t *""'");
8396     }
8397     arg2 = (size_t *)(argp2);
8398     if (arg1) (arg1)->data = arg2;
8399     ST(argvi) = &PL_sv_undef;
8400 
8401 
8402     XSRETURN(argvi);
8403   fail:
8404 
8405 
8406     SWIG_croak_null();
8407   }
8408 }
8409 
8410 
XS(_wrap_gsl_permutation_struct_data_get)8411 XS(_wrap_gsl_permutation_struct_data_get) {
8412   {
8413     struct gsl_permutation_struct *arg1 = (struct gsl_permutation_struct *) 0 ;
8414     void *argp1 = 0 ;
8415     int res1 = 0 ;
8416     int argvi = 0;
8417     size_t *result = 0 ;
8418     dXSARGS;
8419 
8420     if ((items < 1) || (items > 1)) {
8421       SWIG_croak("Usage: gsl_permutation_struct_data_get(self);");
8422     }
8423     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 |  0 );
8424     if (!SWIG_IsOK(res1)) {
8425       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_struct_data_get" "', argument " "1"" of type '" "struct gsl_permutation_struct *""'");
8426     }
8427     arg1 = (struct gsl_permutation_struct *)(argp1);
8428     result = (size_t *) ((arg1)->data);
8429     ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_size_t, 0 | 0); argvi++ ;
8430 
8431     XSRETURN(argvi);
8432   fail:
8433 
8434     SWIG_croak_null();
8435   }
8436 }
8437 
8438 
XS(_wrap_new_gsl_permutation_struct)8439 XS(_wrap_new_gsl_permutation_struct) {
8440   {
8441     int argvi = 0;
8442     struct gsl_permutation_struct *result = 0 ;
8443     dXSARGS;
8444 
8445     if ((items < 0) || (items > 0)) {
8446       SWIG_croak("Usage: new_gsl_permutation_struct();");
8447     }
8448     result = (struct gsl_permutation_struct *)calloc(1, sizeof(struct gsl_permutation_struct));
8449     ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_permutation_struct, SWIG_OWNER | SWIG_SHADOW); argvi++ ;
8450     XSRETURN(argvi);
8451   fail:
8452     SWIG_croak_null();
8453   }
8454 }
8455 
8456 
XS(_wrap_delete_gsl_permutation_struct)8457 XS(_wrap_delete_gsl_permutation_struct) {
8458   {
8459     struct gsl_permutation_struct *arg1 = (struct gsl_permutation_struct *) 0 ;
8460     void *argp1 = 0 ;
8461     int res1 = 0 ;
8462     int argvi = 0;
8463     dXSARGS;
8464 
8465     if ((items < 1) || (items > 1)) {
8466       SWIG_croak("Usage: delete_gsl_permutation_struct(self);");
8467     }
8468     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, SWIG_POINTER_DISOWN |  0 );
8469     if (!SWIG_IsOK(res1)) {
8470       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "delete_gsl_permutation_struct" "', argument " "1"" of type '" "struct gsl_permutation_struct *""'");
8471     }
8472     arg1 = (struct gsl_permutation_struct *)(argp1);
8473     free((char *) arg1);
8474     ST(argvi) = &PL_sv_undef;
8475 
8476     XSRETURN(argvi);
8477   fail:
8478 
8479     SWIG_croak_null();
8480   }
8481 }
8482 
8483 
XS(_wrap_gsl_permutation_alloc)8484 XS(_wrap_gsl_permutation_alloc) {
8485   {
8486     size_t arg1 ;
8487     size_t val1 ;
8488     int ecode1 = 0 ;
8489     int argvi = 0;
8490     gsl_permutation *result = 0 ;
8491     dXSARGS;
8492 
8493     if ((items < 1) || (items > 1)) {
8494       SWIG_croak("Usage: gsl_permutation_alloc(n);");
8495     }
8496     ecode1 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
8497     if (!SWIG_IsOK(ecode1)) {
8498       SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_permutation_alloc" "', argument " "1"" of type '" "size_t""'");
8499     }
8500     arg1 = (size_t)(val1);
8501     result = (gsl_permutation *)gsl_permutation_alloc(arg1);
8502     ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_permutation_struct, 0 | SWIG_SHADOW); argvi++ ;
8503 
8504     XSRETURN(argvi);
8505   fail:
8506 
8507     SWIG_croak_null();
8508   }
8509 }
8510 
8511 
XS(_wrap_gsl_permutation_calloc)8512 XS(_wrap_gsl_permutation_calloc) {
8513   {
8514     size_t arg1 ;
8515     size_t val1 ;
8516     int ecode1 = 0 ;
8517     int argvi = 0;
8518     gsl_permutation *result = 0 ;
8519     dXSARGS;
8520 
8521     if ((items < 1) || (items > 1)) {
8522       SWIG_croak("Usage: gsl_permutation_calloc(n);");
8523     }
8524     ecode1 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
8525     if (!SWIG_IsOK(ecode1)) {
8526       SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_permutation_calloc" "', argument " "1"" of type '" "size_t""'");
8527     }
8528     arg1 = (size_t)(val1);
8529     result = (gsl_permutation *)gsl_permutation_calloc(arg1);
8530     ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_permutation_struct, 0 | SWIG_SHADOW); argvi++ ;
8531 
8532     XSRETURN(argvi);
8533   fail:
8534 
8535     SWIG_croak_null();
8536   }
8537 }
8538 
8539 
XS(_wrap_gsl_permutation_init)8540 XS(_wrap_gsl_permutation_init) {
8541   {
8542     gsl_permutation *arg1 = (gsl_permutation *) 0 ;
8543     void *argp1 = 0 ;
8544     int res1 = 0 ;
8545     int argvi = 0;
8546     dXSARGS;
8547 
8548     if ((items < 1) || (items > 1)) {
8549       SWIG_croak("Usage: gsl_permutation_init(p);");
8550     }
8551     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 |  0 );
8552     if (!SWIG_IsOK(res1)) {
8553       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_init" "', argument " "1"" of type '" "gsl_permutation *""'");
8554     }
8555     arg1 = (gsl_permutation *)(argp1);
8556     gsl_permutation_init(arg1);
8557     ST(argvi) = &PL_sv_undef;
8558 
8559     XSRETURN(argvi);
8560   fail:
8561 
8562     SWIG_croak_null();
8563   }
8564 }
8565 
8566 
XS(_wrap_gsl_permutation_free)8567 XS(_wrap_gsl_permutation_free) {
8568   {
8569     gsl_permutation *arg1 = (gsl_permutation *) 0 ;
8570     void *argp1 = 0 ;
8571     int res1 = 0 ;
8572     int argvi = 0;
8573     dXSARGS;
8574 
8575     if ((items < 1) || (items > 1)) {
8576       SWIG_croak("Usage: gsl_permutation_free(p);");
8577     }
8578     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 |  0 );
8579     if (!SWIG_IsOK(res1)) {
8580       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_free" "', argument " "1"" of type '" "gsl_permutation *""'");
8581     }
8582     arg1 = (gsl_permutation *)(argp1);
8583     gsl_permutation_free(arg1);
8584     ST(argvi) = &PL_sv_undef;
8585 
8586     XSRETURN(argvi);
8587   fail:
8588 
8589     SWIG_croak_null();
8590   }
8591 }
8592 
8593 
XS(_wrap_gsl_permutation_memcpy)8594 XS(_wrap_gsl_permutation_memcpy) {
8595   {
8596     gsl_permutation *arg1 = (gsl_permutation *) 0 ;
8597     gsl_permutation *arg2 = (gsl_permutation *) 0 ;
8598     void *argp1 = 0 ;
8599     int res1 = 0 ;
8600     void *argp2 = 0 ;
8601     int res2 = 0 ;
8602     int argvi = 0;
8603     int result;
8604     dXSARGS;
8605 
8606     if ((items < 2) || (items > 2)) {
8607       SWIG_croak("Usage: gsl_permutation_memcpy(dest,src);");
8608     }
8609     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 |  0 );
8610     if (!SWIG_IsOK(res1)) {
8611       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_memcpy" "', argument " "1"" of type '" "gsl_permutation *""'");
8612     }
8613     arg1 = (gsl_permutation *)(argp1);
8614     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 |  0 );
8615     if (!SWIG_IsOK(res2)) {
8616       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_permutation_memcpy" "', argument " "2"" of type '" "gsl_permutation const *""'");
8617     }
8618     arg2 = (gsl_permutation *)(argp2);
8619     result = (int)gsl_permutation_memcpy(arg1,(struct gsl_permutation_struct const *)arg2);
8620     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8621 
8622 
8623     XSRETURN(argvi);
8624   fail:
8625 
8626 
8627     SWIG_croak_null();
8628   }
8629 }
8630 
8631 
XS(_wrap_gsl_permutation_fread)8632 XS(_wrap_gsl_permutation_fread) {
8633   {
8634     FILE *arg1 = (FILE *) 0 ;
8635     gsl_permutation *arg2 = (gsl_permutation *) 0 ;
8636     void *argp1 = 0 ;
8637     int res1 = 0 ;
8638     void *argp2 = 0 ;
8639     int res2 = 0 ;
8640     int argvi = 0;
8641     int result;
8642     dXSARGS;
8643 
8644     if ((items < 2) || (items > 2)) {
8645       SWIG_croak("Usage: gsl_permutation_fread(stream,p);");
8646     }
8647     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_FILE, 0 |  0 );
8648     if (!SWIG_IsOK(res1)) {
8649       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_fread" "', argument " "1"" of type '" "FILE *""'");
8650     }
8651     arg1 = (FILE *)(argp1);
8652     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 |  0 );
8653     if (!SWIG_IsOK(res2)) {
8654       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_permutation_fread" "', argument " "2"" of type '" "gsl_permutation *""'");
8655     }
8656     arg2 = (gsl_permutation *)(argp2);
8657     result = (int)gsl_permutation_fread(arg1,arg2);
8658     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8659 
8660 
8661     XSRETURN(argvi);
8662   fail:
8663 
8664 
8665     SWIG_croak_null();
8666   }
8667 }
8668 
8669 
XS(_wrap_gsl_permutation_fwrite)8670 XS(_wrap_gsl_permutation_fwrite) {
8671   {
8672     FILE *arg1 = (FILE *) 0 ;
8673     gsl_permutation *arg2 = (gsl_permutation *) 0 ;
8674     void *argp1 = 0 ;
8675     int res1 = 0 ;
8676     void *argp2 = 0 ;
8677     int res2 = 0 ;
8678     int argvi = 0;
8679     int result;
8680     dXSARGS;
8681 
8682     if ((items < 2) || (items > 2)) {
8683       SWIG_croak("Usage: gsl_permutation_fwrite(stream,p);");
8684     }
8685     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_FILE, 0 |  0 );
8686     if (!SWIG_IsOK(res1)) {
8687       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_fwrite" "', argument " "1"" of type '" "FILE *""'");
8688     }
8689     arg1 = (FILE *)(argp1);
8690     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 |  0 );
8691     if (!SWIG_IsOK(res2)) {
8692       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_permutation_fwrite" "', argument " "2"" of type '" "gsl_permutation const *""'");
8693     }
8694     arg2 = (gsl_permutation *)(argp2);
8695     result = (int)gsl_permutation_fwrite(arg1,(struct gsl_permutation_struct const *)arg2);
8696     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8697 
8698 
8699     XSRETURN(argvi);
8700   fail:
8701 
8702 
8703     SWIG_croak_null();
8704   }
8705 }
8706 
8707 
XS(_wrap_gsl_permutation_fscanf)8708 XS(_wrap_gsl_permutation_fscanf) {
8709   {
8710     FILE *arg1 = (FILE *) 0 ;
8711     gsl_permutation *arg2 = (gsl_permutation *) 0 ;
8712     void *argp1 = 0 ;
8713     int res1 = 0 ;
8714     void *argp2 = 0 ;
8715     int res2 = 0 ;
8716     int argvi = 0;
8717     int result;
8718     dXSARGS;
8719 
8720     if ((items < 2) || (items > 2)) {
8721       SWIG_croak("Usage: gsl_permutation_fscanf(stream,p);");
8722     }
8723     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_FILE, 0 |  0 );
8724     if (!SWIG_IsOK(res1)) {
8725       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_fscanf" "', argument " "1"" of type '" "FILE *""'");
8726     }
8727     arg1 = (FILE *)(argp1);
8728     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 |  0 );
8729     if (!SWIG_IsOK(res2)) {
8730       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_permutation_fscanf" "', argument " "2"" of type '" "gsl_permutation *""'");
8731     }
8732     arg2 = (gsl_permutation *)(argp2);
8733     result = (int)gsl_permutation_fscanf(arg1,arg2);
8734     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8735 
8736 
8737     XSRETURN(argvi);
8738   fail:
8739 
8740 
8741     SWIG_croak_null();
8742   }
8743 }
8744 
8745 
XS(_wrap_gsl_permutation_fprintf)8746 XS(_wrap_gsl_permutation_fprintf) {
8747   {
8748     FILE *arg1 = (FILE *) 0 ;
8749     gsl_permutation *arg2 = (gsl_permutation *) 0 ;
8750     char *arg3 = (char *) 0 ;
8751     void *argp1 = 0 ;
8752     int res1 = 0 ;
8753     void *argp2 = 0 ;
8754     int res2 = 0 ;
8755     int res3 ;
8756     char *buf3 = 0 ;
8757     int alloc3 = 0 ;
8758     int argvi = 0;
8759     int result;
8760     dXSARGS;
8761 
8762     if ((items < 3) || (items > 3)) {
8763       SWIG_croak("Usage: gsl_permutation_fprintf(stream,p,format);");
8764     }
8765     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_FILE, 0 |  0 );
8766     if (!SWIG_IsOK(res1)) {
8767       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_fprintf" "', argument " "1"" of type '" "FILE *""'");
8768     }
8769     arg1 = (FILE *)(argp1);
8770     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 |  0 );
8771     if (!SWIG_IsOK(res2)) {
8772       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_permutation_fprintf" "', argument " "2"" of type '" "gsl_permutation const *""'");
8773     }
8774     arg2 = (gsl_permutation *)(argp2);
8775     res3 = SWIG_AsCharPtrAndSize(ST(2), &buf3, NULL, &alloc3);
8776     if (!SWIG_IsOK(res3)) {
8777       SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_permutation_fprintf" "', argument " "3"" of type '" "char const *""'");
8778     }
8779     arg3 = (char *)(buf3);
8780     result = (int)gsl_permutation_fprintf(arg1,(struct gsl_permutation_struct const *)arg2,(char const *)arg3);
8781     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8782 
8783 
8784     if (alloc3 == SWIG_NEWOBJ) free((char*)buf3);
8785     XSRETURN(argvi);
8786   fail:
8787 
8788 
8789     if (alloc3 == SWIG_NEWOBJ) free((char*)buf3);
8790     SWIG_croak_null();
8791   }
8792 }
8793 
8794 
XS(_wrap_gsl_permutation_size)8795 XS(_wrap_gsl_permutation_size) {
8796   {
8797     gsl_permutation *arg1 = (gsl_permutation *) 0 ;
8798     void *argp1 = 0 ;
8799     int res1 = 0 ;
8800     int argvi = 0;
8801     size_t result;
8802     dXSARGS;
8803 
8804     if ((items < 1) || (items > 1)) {
8805       SWIG_croak("Usage: gsl_permutation_size(p);");
8806     }
8807     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 |  0 );
8808     if (!SWIG_IsOK(res1)) {
8809       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_size" "', argument " "1"" of type '" "gsl_permutation const *""'");
8810     }
8811     arg1 = (gsl_permutation *)(argp1);
8812     result = gsl_permutation_size((struct gsl_permutation_struct const *)arg1);
8813     ST(argvi) = SWIG_From_size_t  SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
8814 
8815     XSRETURN(argvi);
8816   fail:
8817 
8818     SWIG_croak_null();
8819   }
8820 }
8821 
8822 
XS(_wrap_gsl_permutation_data)8823 XS(_wrap_gsl_permutation_data) {
8824   {
8825     gsl_permutation *arg1 = (gsl_permutation *) 0 ;
8826     void *argp1 = 0 ;
8827     int res1 = 0 ;
8828     int argvi = 0;
8829     size_t *result = 0 ;
8830     dXSARGS;
8831 
8832     if ((items < 1) || (items > 1)) {
8833       SWIG_croak("Usage: gsl_permutation_data(p);");
8834     }
8835     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 |  0 );
8836     if (!SWIG_IsOK(res1)) {
8837       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_data" "', argument " "1"" of type '" "gsl_permutation const *""'");
8838     }
8839     arg1 = (gsl_permutation *)(argp1);
8840     result = (size_t *)gsl_permutation_data((struct gsl_permutation_struct const *)arg1);
8841     ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_size_t, 0 | 0); argvi++ ;
8842 
8843     XSRETURN(argvi);
8844   fail:
8845 
8846     SWIG_croak_null();
8847   }
8848 }
8849 
8850 
XS(_wrap_gsl_permutation_swap)8851 XS(_wrap_gsl_permutation_swap) {
8852   {
8853     gsl_permutation *arg1 = (gsl_permutation *) 0 ;
8854     size_t arg2 ;
8855     size_t arg3 ;
8856     void *argp1 = 0 ;
8857     int res1 = 0 ;
8858     size_t val2 ;
8859     int ecode2 = 0 ;
8860     size_t val3 ;
8861     int ecode3 = 0 ;
8862     int argvi = 0;
8863     int result;
8864     dXSARGS;
8865 
8866     if ((items < 3) || (items > 3)) {
8867       SWIG_croak("Usage: gsl_permutation_swap(p,i,j);");
8868     }
8869     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 |  0 );
8870     if (!SWIG_IsOK(res1)) {
8871       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_swap" "', argument " "1"" of type '" "gsl_permutation *""'");
8872     }
8873     arg1 = (gsl_permutation *)(argp1);
8874     ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
8875     if (!SWIG_IsOK(ecode2)) {
8876       SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_permutation_swap" "', argument " "2"" of type '" "size_t""'");
8877     }
8878     arg2 = (size_t)(val2);
8879     ecode3 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
8880     if (!SWIG_IsOK(ecode3)) {
8881       SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_permutation_swap" "', argument " "3"" of type '" "size_t""'");
8882     }
8883     arg3 = (size_t)(val3);
8884     result = (int)gsl_permutation_swap(arg1,arg2,arg3);
8885     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8886 
8887 
8888 
8889     XSRETURN(argvi);
8890   fail:
8891 
8892 
8893 
8894     SWIG_croak_null();
8895   }
8896 }
8897 
8898 
XS(_wrap_gsl_permutation_valid)8899 XS(_wrap_gsl_permutation_valid) {
8900   {
8901     gsl_permutation *arg1 = (gsl_permutation *) 0 ;
8902     void *argp1 = 0 ;
8903     int res1 = 0 ;
8904     int argvi = 0;
8905     int result;
8906     dXSARGS;
8907 
8908     if ((items < 1) || (items > 1)) {
8909       SWIG_croak("Usage: gsl_permutation_valid(p);");
8910     }
8911     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 |  0 );
8912     if (!SWIG_IsOK(res1)) {
8913       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_valid" "', argument " "1"" of type '" "gsl_permutation const *""'");
8914     }
8915     arg1 = (gsl_permutation *)(argp1);
8916     result = (int)gsl_permutation_valid((struct gsl_permutation_struct const *)arg1);
8917     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8918 
8919     XSRETURN(argvi);
8920   fail:
8921 
8922     SWIG_croak_null();
8923   }
8924 }
8925 
8926 
XS(_wrap_gsl_permutation_reverse)8927 XS(_wrap_gsl_permutation_reverse) {
8928   {
8929     gsl_permutation *arg1 = (gsl_permutation *) 0 ;
8930     void *argp1 = 0 ;
8931     int res1 = 0 ;
8932     int argvi = 0;
8933     dXSARGS;
8934 
8935     if ((items < 1) || (items > 1)) {
8936       SWIG_croak("Usage: gsl_permutation_reverse(p);");
8937     }
8938     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 |  0 );
8939     if (!SWIG_IsOK(res1)) {
8940       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_reverse" "', argument " "1"" of type '" "gsl_permutation *""'");
8941     }
8942     arg1 = (gsl_permutation *)(argp1);
8943     gsl_permutation_reverse(arg1);
8944     ST(argvi) = &PL_sv_undef;
8945 
8946     XSRETURN(argvi);
8947   fail:
8948 
8949     SWIG_croak_null();
8950   }
8951 }
8952 
8953 
XS(_wrap_gsl_permutation_inverse)8954 XS(_wrap_gsl_permutation_inverse) {
8955   {
8956     gsl_permutation *arg1 = (gsl_permutation *) 0 ;
8957     gsl_permutation *arg2 = (gsl_permutation *) 0 ;
8958     void *argp1 = 0 ;
8959     int res1 = 0 ;
8960     void *argp2 = 0 ;
8961     int res2 = 0 ;
8962     int argvi = 0;
8963     int result;
8964     dXSARGS;
8965 
8966     if ((items < 2) || (items > 2)) {
8967       SWIG_croak("Usage: gsl_permutation_inverse(inv,p);");
8968     }
8969     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 |  0 );
8970     if (!SWIG_IsOK(res1)) {
8971       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_inverse" "', argument " "1"" of type '" "gsl_permutation *""'");
8972     }
8973     arg1 = (gsl_permutation *)(argp1);
8974     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 |  0 );
8975     if (!SWIG_IsOK(res2)) {
8976       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_permutation_inverse" "', argument " "2"" of type '" "gsl_permutation const *""'");
8977     }
8978     arg2 = (gsl_permutation *)(argp2);
8979     result = (int)gsl_permutation_inverse(arg1,(struct gsl_permutation_struct const *)arg2);
8980     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8981 
8982 
8983     XSRETURN(argvi);
8984   fail:
8985 
8986 
8987     SWIG_croak_null();
8988   }
8989 }
8990 
8991 
XS(_wrap_gsl_permutation_next)8992 XS(_wrap_gsl_permutation_next) {
8993   {
8994     gsl_permutation *arg1 = (gsl_permutation *) 0 ;
8995     void *argp1 = 0 ;
8996     int res1 = 0 ;
8997     int argvi = 0;
8998     int result;
8999     dXSARGS;
9000 
9001     if ((items < 1) || (items > 1)) {
9002       SWIG_croak("Usage: gsl_permutation_next(p);");
9003     }
9004     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 |  0 );
9005     if (!SWIG_IsOK(res1)) {
9006       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_next" "', argument " "1"" of type '" "gsl_permutation *""'");
9007     }
9008     arg1 = (gsl_permutation *)(argp1);
9009     result = (int)gsl_permutation_next(arg1);
9010     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
9011 
9012     XSRETURN(argvi);
9013   fail:
9014 
9015     SWIG_croak_null();
9016   }
9017 }
9018 
9019 
XS(_wrap_gsl_permutation_prev)9020 XS(_wrap_gsl_permutation_prev) {
9021   {
9022     gsl_permutation *arg1 = (gsl_permutation *) 0 ;
9023     void *argp1 = 0 ;
9024     int res1 = 0 ;
9025     int argvi = 0;
9026     int result;
9027     dXSARGS;
9028 
9029     if ((items < 1) || (items > 1)) {
9030       SWIG_croak("Usage: gsl_permutation_prev(p);");
9031     }
9032     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 |  0 );
9033     if (!SWIG_IsOK(res1)) {
9034       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_prev" "', argument " "1"" of type '" "gsl_permutation *""'");
9035     }
9036     arg1 = (gsl_permutation *)(argp1);
9037     result = (int)gsl_permutation_prev(arg1);
9038     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
9039 
9040     XSRETURN(argvi);
9041   fail:
9042 
9043     SWIG_croak_null();
9044   }
9045 }
9046 
9047 
XS(_wrap_gsl_permutation_mul)9048 XS(_wrap_gsl_permutation_mul) {
9049   {
9050     gsl_permutation *arg1 = (gsl_permutation *) 0 ;
9051     gsl_permutation *arg2 = (gsl_permutation *) 0 ;
9052     gsl_permutation *arg3 = (gsl_permutation *) 0 ;
9053     void *argp1 = 0 ;
9054     int res1 = 0 ;
9055     void *argp2 = 0 ;
9056     int res2 = 0 ;
9057     void *argp3 = 0 ;
9058     int res3 = 0 ;
9059     int argvi = 0;
9060     int result;
9061     dXSARGS;
9062 
9063     if ((items < 3) || (items > 3)) {
9064       SWIG_croak("Usage: gsl_permutation_mul(p,pa,pb);");
9065     }
9066     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 |  0 );
9067     if (!SWIG_IsOK(res1)) {
9068       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_mul" "', argument " "1"" of type '" "gsl_permutation *""'");
9069     }
9070     arg1 = (gsl_permutation *)(argp1);
9071     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 |  0 );
9072     if (!SWIG_IsOK(res2)) {
9073       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_permutation_mul" "', argument " "2"" of type '" "gsl_permutation const *""'");
9074     }
9075     arg2 = (gsl_permutation *)(argp2);
9076     res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_permutation_struct, 0 |  0 );
9077     if (!SWIG_IsOK(res3)) {
9078       SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_permutation_mul" "', argument " "3"" of type '" "gsl_permutation const *""'");
9079     }
9080     arg3 = (gsl_permutation *)(argp3);
9081     result = (int)gsl_permutation_mul(arg1,(struct gsl_permutation_struct const *)arg2,(struct gsl_permutation_struct const *)arg3);
9082     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
9083 
9084 
9085 
9086     XSRETURN(argvi);
9087   fail:
9088 
9089 
9090 
9091     SWIG_croak_null();
9092   }
9093 }
9094 
9095 
XS(_wrap_gsl_permutation_linear_to_canonical)9096 XS(_wrap_gsl_permutation_linear_to_canonical) {
9097   {
9098     gsl_permutation *arg1 = (gsl_permutation *) 0 ;
9099     gsl_permutation *arg2 = (gsl_permutation *) 0 ;
9100     void *argp1 = 0 ;
9101     int res1 = 0 ;
9102     void *argp2 = 0 ;
9103     int res2 = 0 ;
9104     int argvi = 0;
9105     int result;
9106     dXSARGS;
9107 
9108     if ((items < 2) || (items > 2)) {
9109       SWIG_croak("Usage: gsl_permutation_linear_to_canonical(q,p);");
9110     }
9111     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 |  0 );
9112     if (!SWIG_IsOK(res1)) {
9113       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_linear_to_canonical" "', argument " "1"" of type '" "gsl_permutation *""'");
9114     }
9115     arg1 = (gsl_permutation *)(argp1);
9116     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 |  0 );
9117     if (!SWIG_IsOK(res2)) {
9118       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_permutation_linear_to_canonical" "', argument " "2"" of type '" "gsl_permutation const *""'");
9119     }
9120     arg2 = (gsl_permutation *)(argp2);
9121     result = (int)gsl_permutation_linear_to_canonical(arg1,(struct gsl_permutation_struct const *)arg2);
9122     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
9123 
9124 
9125     XSRETURN(argvi);
9126   fail:
9127 
9128 
9129     SWIG_croak_null();
9130   }
9131 }
9132 
9133 
XS(_wrap_gsl_permutation_canonical_to_linear)9134 XS(_wrap_gsl_permutation_canonical_to_linear) {
9135   {
9136     gsl_permutation *arg1 = (gsl_permutation *) 0 ;
9137     gsl_permutation *arg2 = (gsl_permutation *) 0 ;
9138     void *argp1 = 0 ;
9139     int res1 = 0 ;
9140     void *argp2 = 0 ;
9141     int res2 = 0 ;
9142     int argvi = 0;
9143     int result;
9144     dXSARGS;
9145 
9146     if ((items < 2) || (items > 2)) {
9147       SWIG_croak("Usage: gsl_permutation_canonical_to_linear(p,q);");
9148     }
9149     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 |  0 );
9150     if (!SWIG_IsOK(res1)) {
9151       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_canonical_to_linear" "', argument " "1"" of type '" "gsl_permutation *""'");
9152     }
9153     arg1 = (gsl_permutation *)(argp1);
9154     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 |  0 );
9155     if (!SWIG_IsOK(res2)) {
9156       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_permutation_canonical_to_linear" "', argument " "2"" of type '" "gsl_permutation const *""'");
9157     }
9158     arg2 = (gsl_permutation *)(argp2);
9159     result = (int)gsl_permutation_canonical_to_linear(arg1,(struct gsl_permutation_struct const *)arg2);
9160     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
9161 
9162 
9163     XSRETURN(argvi);
9164   fail:
9165 
9166 
9167     SWIG_croak_null();
9168   }
9169 }
9170 
9171 
XS(_wrap_gsl_permutation_inversions)9172 XS(_wrap_gsl_permutation_inversions) {
9173   {
9174     gsl_permutation *arg1 = (gsl_permutation *) 0 ;
9175     void *argp1 = 0 ;
9176     int res1 = 0 ;
9177     int argvi = 0;
9178     size_t result;
9179     dXSARGS;
9180 
9181     if ((items < 1) || (items > 1)) {
9182       SWIG_croak("Usage: gsl_permutation_inversions(p);");
9183     }
9184     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 |  0 );
9185     if (!SWIG_IsOK(res1)) {
9186       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_inversions" "', argument " "1"" of type '" "gsl_permutation const *""'");
9187     }
9188     arg1 = (gsl_permutation *)(argp1);
9189     result = gsl_permutation_inversions((struct gsl_permutation_struct const *)arg1);
9190     ST(argvi) = SWIG_From_size_t  SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
9191 
9192     XSRETURN(argvi);
9193   fail:
9194 
9195     SWIG_croak_null();
9196   }
9197 }
9198 
9199 
XS(_wrap_gsl_permutation_linear_cycles)9200 XS(_wrap_gsl_permutation_linear_cycles) {
9201   {
9202     gsl_permutation *arg1 = (gsl_permutation *) 0 ;
9203     void *argp1 = 0 ;
9204     int res1 = 0 ;
9205     int argvi = 0;
9206     size_t result;
9207     dXSARGS;
9208 
9209     if ((items < 1) || (items > 1)) {
9210       SWIG_croak("Usage: gsl_permutation_linear_cycles(p);");
9211     }
9212     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 |  0 );
9213     if (!SWIG_IsOK(res1)) {
9214       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_linear_cycles" "', argument " "1"" of type '" "gsl_permutation const *""'");
9215     }
9216     arg1 = (gsl_permutation *)(argp1);
9217     result = gsl_permutation_linear_cycles((struct gsl_permutation_struct const *)arg1);
9218     ST(argvi) = SWIG_From_size_t  SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
9219 
9220     XSRETURN(argvi);
9221   fail:
9222 
9223     SWIG_croak_null();
9224   }
9225 }
9226 
9227 
XS(_wrap_gsl_permutation_canonical_cycles)9228 XS(_wrap_gsl_permutation_canonical_cycles) {
9229   {
9230     gsl_permutation *arg1 = (gsl_permutation *) 0 ;
9231     void *argp1 = 0 ;
9232     int res1 = 0 ;
9233     int argvi = 0;
9234     size_t result;
9235     dXSARGS;
9236 
9237     if ((items < 1) || (items > 1)) {
9238       SWIG_croak("Usage: gsl_permutation_canonical_cycles(q);");
9239     }
9240     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 |  0 );
9241     if (!SWIG_IsOK(res1)) {
9242       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_canonical_cycles" "', argument " "1"" of type '" "gsl_permutation const *""'");
9243     }
9244     arg1 = (gsl_permutation *)(argp1);
9245     result = gsl_permutation_canonical_cycles((struct gsl_permutation_struct const *)arg1);
9246     ST(argvi) = SWIG_From_size_t  SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
9247 
9248     XSRETURN(argvi);
9249   fail:
9250 
9251     SWIG_croak_null();
9252   }
9253 }
9254 
9255 
XS(_wrap_gsl_permutation_get)9256 XS(_wrap_gsl_permutation_get) {
9257   {
9258     gsl_permutation *arg1 = (gsl_permutation *) 0 ;
9259     size_t arg2 ;
9260     void *argp1 = 0 ;
9261     int res1 = 0 ;
9262     size_t val2 ;
9263     int ecode2 = 0 ;
9264     int argvi = 0;
9265     size_t result;
9266     dXSARGS;
9267 
9268     if ((items < 2) || (items > 2)) {
9269       SWIG_croak("Usage: gsl_permutation_get(p,i);");
9270     }
9271     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 |  0 );
9272     if (!SWIG_IsOK(res1)) {
9273       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_get" "', argument " "1"" of type '" "gsl_permutation const *""'");
9274     }
9275     arg1 = (gsl_permutation *)(argp1);
9276     ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
9277     if (!SWIG_IsOK(ecode2)) {
9278       SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_permutation_get" "', argument " "2"" of type '" "size_t""'");
9279     }
9280     arg2 = (size_t)(val2);
9281     result = gsl_permutation_get((struct gsl_permutation_struct const *)arg1,arg2);
9282     ST(argvi) = SWIG_From_size_t  SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
9283 
9284 
9285     XSRETURN(argvi);
9286   fail:
9287 
9288 
9289     SWIG_croak_null();
9290   }
9291 }
9292 
9293 
XS(_wrap_gsl_complex_dat_set)9294 XS(_wrap_gsl_complex_dat_set) {
9295   {
9296     gsl_complex *arg1 = (gsl_complex *) 0 ;
9297     double *arg2 ;
9298     void *argp1 = 0 ;
9299     int res1 = 0 ;
9300     void *argp2 = 0 ;
9301     int res2 = 0 ;
9302     int argvi = 0;
9303     dXSARGS;
9304 
9305     if ((items < 2) || (items > 2)) {
9306       SWIG_croak("Usage: gsl_complex_dat_set(self,dat);");
9307     }
9308     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_complex, 0 |  0 );
9309     if (!SWIG_IsOK(res1)) {
9310       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_dat_set" "', argument " "1"" of type '" "gsl_complex *""'");
9311     }
9312     arg1 = (gsl_complex *)(argp1);
9313     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_double, 0 |  0 );
9314     if (!SWIG_IsOK(res2)) {
9315       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_complex_dat_set" "', argument " "2"" of type '" "double [2]""'");
9316     }
9317     arg2 = (double *)(argp2);
9318     {
9319       if (arg2) {
9320         size_t ii = 0;
9321         for (; ii < (size_t)2; ++ii) *(double *)&arg1->dat[ii] = *((double *)arg2 + ii);
9322       } else {
9323         SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in variable '""dat""' of type '""double [2]""'");
9324       }
9325     }
9326     ST(argvi) = &PL_sv_undef;
9327 
9328 
9329     XSRETURN(argvi);
9330   fail:
9331 
9332 
9333     SWIG_croak_null();
9334   }
9335 }
9336 
9337 
XS(_wrap_gsl_complex_dat_get)9338 XS(_wrap_gsl_complex_dat_get) {
9339   {
9340     gsl_complex *arg1 = (gsl_complex *) 0 ;
9341     void *argp1 = 0 ;
9342     int res1 = 0 ;
9343     int argvi = 0;
9344     double *result = 0 ;
9345     dXSARGS;
9346 
9347     if ((items < 1) || (items > 1)) {
9348       SWIG_croak("Usage: gsl_complex_dat_get(self);");
9349     }
9350     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_complex, 0 |  0 );
9351     if (!SWIG_IsOK(res1)) {
9352       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_dat_get" "', argument " "1"" of type '" "gsl_complex *""'");
9353     }
9354     arg1 = (gsl_complex *)(argp1);
9355     result = (double *)(double *) ((arg1)->dat);
9356     ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_double, 0 | 0); argvi++ ;
9357 
9358     XSRETURN(argvi);
9359   fail:
9360 
9361     SWIG_croak_null();
9362   }
9363 }
9364 
9365 
XS(_wrap_new_gsl_complex)9366 XS(_wrap_new_gsl_complex) {
9367   {
9368     int argvi = 0;
9369     gsl_complex *result = 0 ;
9370     dXSARGS;
9371 
9372     if ((items < 0) || (items > 0)) {
9373       SWIG_croak("Usage: new_gsl_complex();");
9374     }
9375     result = (gsl_complex *)calloc(1, sizeof(gsl_complex));
9376     ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_complex, SWIG_OWNER | SWIG_SHADOW); argvi++ ;
9377     XSRETURN(argvi);
9378   fail:
9379     SWIG_croak_null();
9380   }
9381 }
9382 
9383 
XS(_wrap_delete_gsl_complex)9384 XS(_wrap_delete_gsl_complex) {
9385   {
9386     gsl_complex *arg1 = (gsl_complex *) 0 ;
9387     void *argp1 = 0 ;
9388     int res1 = 0 ;
9389     int argvi = 0;
9390     dXSARGS;
9391 
9392     if ((items < 1) || (items > 1)) {
9393       SWIG_croak("Usage: delete_gsl_complex(self);");
9394     }
9395     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_complex, SWIG_POINTER_DISOWN |  0 );
9396     if (!SWIG_IsOK(res1)) {
9397       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "delete_gsl_complex" "', argument " "1"" of type '" "gsl_complex *""'");
9398     }
9399     arg1 = (gsl_complex *)(argp1);
9400     free((char *) arg1);
9401     ST(argvi) = &PL_sv_undef;
9402 
9403     XSRETURN(argvi);
9404   fail:
9405 
9406     SWIG_croak_null();
9407   }
9408 }
9409 
9410 
XS(_wrap_gsl_complex_long_double_dat_set)9411 XS(_wrap_gsl_complex_long_double_dat_set) {
9412   {
9413     gsl_complex_long_double *arg1 = (gsl_complex_long_double *) 0 ;
9414     long double *arg2 ;
9415     void *argp1 = 0 ;
9416     int res1 = 0 ;
9417     void *argp2 = 0 ;
9418     int res2 = 0 ;
9419     int argvi = 0;
9420     dXSARGS;
9421 
9422     if ((items < 2) || (items > 2)) {
9423       SWIG_croak("Usage: gsl_complex_long_double_dat_set(self,dat);");
9424     }
9425     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_complex_long_double, 0 |  0 );
9426     if (!SWIG_IsOK(res1)) {
9427       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_long_double_dat_set" "', argument " "1"" of type '" "gsl_complex_long_double *""'");
9428     }
9429     arg1 = (gsl_complex_long_double *)(argp1);
9430     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_long_double, 0 |  0 );
9431     if (!SWIG_IsOK(res2)) {
9432       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_complex_long_double_dat_set" "', argument " "2"" of type '" "long double [2]""'");
9433     }
9434     arg2 = (long double *)(argp2);
9435     {
9436       if (arg2) {
9437         size_t ii = 0;
9438         for (; ii < (size_t)2; ++ii) *(long double *)&arg1->dat[ii] = *((long double *)arg2 + ii);
9439       } else {
9440         SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in variable '""dat""' of type '""long double [2]""'");
9441       }
9442     }
9443     ST(argvi) = &PL_sv_undef;
9444 
9445 
9446     XSRETURN(argvi);
9447   fail:
9448 
9449 
9450     SWIG_croak_null();
9451   }
9452 }
9453 
9454 
XS(_wrap_gsl_complex_long_double_dat_get)9455 XS(_wrap_gsl_complex_long_double_dat_get) {
9456   {
9457     gsl_complex_long_double *arg1 = (gsl_complex_long_double *) 0 ;
9458     void *argp1 = 0 ;
9459     int res1 = 0 ;
9460     int argvi = 0;
9461     long double *result = 0 ;
9462     dXSARGS;
9463 
9464     if ((items < 1) || (items > 1)) {
9465       SWIG_croak("Usage: gsl_complex_long_double_dat_get(self);");
9466     }
9467     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_complex_long_double, 0 |  0 );
9468     if (!SWIG_IsOK(res1)) {
9469       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_long_double_dat_get" "', argument " "1"" of type '" "gsl_complex_long_double *""'");
9470     }
9471     arg1 = (gsl_complex_long_double *)(argp1);
9472     result = (long double *)(long double *) ((arg1)->dat);
9473     ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_long_double, 0 | 0); argvi++ ;
9474 
9475     XSRETURN(argvi);
9476   fail:
9477 
9478     SWIG_croak_null();
9479   }
9480 }
9481 
9482 
XS(_wrap_new_gsl_complex_long_double)9483 XS(_wrap_new_gsl_complex_long_double) {
9484   {
9485     int argvi = 0;
9486     gsl_complex_long_double *result = 0 ;
9487     dXSARGS;
9488 
9489     if ((items < 0) || (items > 0)) {
9490       SWIG_croak("Usage: new_gsl_complex_long_double();");
9491     }
9492     result = (gsl_complex_long_double *)calloc(1, sizeof(gsl_complex_long_double));
9493     ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_complex_long_double, SWIG_OWNER | SWIG_SHADOW); argvi++ ;
9494     XSRETURN(argvi);
9495   fail:
9496     SWIG_croak_null();
9497   }
9498 }
9499 
9500 
XS(_wrap_delete_gsl_complex_long_double)9501 XS(_wrap_delete_gsl_complex_long_double) {
9502   {
9503     gsl_complex_long_double *arg1 = (gsl_complex_long_double *) 0 ;
9504     void *argp1 = 0 ;
9505     int res1 = 0 ;
9506     int argvi = 0;
9507     dXSARGS;
9508 
9509     if ((items < 1) || (items > 1)) {
9510       SWIG_croak("Usage: delete_gsl_complex_long_double(self);");
9511     }
9512     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_complex_long_double, SWIG_POINTER_DISOWN |  0 );
9513     if (!SWIG_IsOK(res1)) {
9514       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "delete_gsl_complex_long_double" "', argument " "1"" of type '" "gsl_complex_long_double *""'");
9515     }
9516     arg1 = (gsl_complex_long_double *)(argp1);
9517     free((char *) arg1);
9518     ST(argvi) = &PL_sv_undef;
9519 
9520     XSRETURN(argvi);
9521   fail:
9522 
9523     SWIG_croak_null();
9524   }
9525 }
9526 
9527 
XS(_wrap_gsl_complex_float_dat_set)9528 XS(_wrap_gsl_complex_float_dat_set) {
9529   {
9530     gsl_complex_float *arg1 = (gsl_complex_float *) 0 ;
9531     float *arg2 ;
9532     void *argp1 = 0 ;
9533     int res1 = 0 ;
9534     void *argp2 = 0 ;
9535     int res2 = 0 ;
9536     int argvi = 0;
9537     dXSARGS;
9538 
9539     if ((items < 2) || (items > 2)) {
9540       SWIG_croak("Usage: gsl_complex_float_dat_set(self,dat);");
9541     }
9542     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_complex_float, 0 |  0 );
9543     if (!SWIG_IsOK(res1)) {
9544       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_float_dat_set" "', argument " "1"" of type '" "gsl_complex_float *""'");
9545     }
9546     arg1 = (gsl_complex_float *)(argp1);
9547     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_float, 0 |  0 );
9548     if (!SWIG_IsOK(res2)) {
9549       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_complex_float_dat_set" "', argument " "2"" of type '" "float [2]""'");
9550     }
9551     arg2 = (float *)(argp2);
9552     {
9553       if (arg2) {
9554         size_t ii = 0;
9555         for (; ii < (size_t)2; ++ii) *(float *)&arg1->dat[ii] = *((float *)arg2 + ii);
9556       } else {
9557         SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in variable '""dat""' of type '""float [2]""'");
9558       }
9559     }
9560     ST(argvi) = &PL_sv_undef;
9561 
9562 
9563     XSRETURN(argvi);
9564   fail:
9565 
9566 
9567     SWIG_croak_null();
9568   }
9569 }
9570 
9571 
XS(_wrap_gsl_complex_float_dat_get)9572 XS(_wrap_gsl_complex_float_dat_get) {
9573   {
9574     gsl_complex_float *arg1 = (gsl_complex_float *) 0 ;
9575     void *argp1 = 0 ;
9576     int res1 = 0 ;
9577     int argvi = 0;
9578     float *result = 0 ;
9579     dXSARGS;
9580 
9581     if ((items < 1) || (items > 1)) {
9582       SWIG_croak("Usage: gsl_complex_float_dat_get(self);");
9583     }
9584     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_complex_float, 0 |  0 );
9585     if (!SWIG_IsOK(res1)) {
9586       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_float_dat_get" "', argument " "1"" of type '" "gsl_complex_float *""'");
9587     }
9588     arg1 = (gsl_complex_float *)(argp1);
9589     result = (float *)(float *) ((arg1)->dat);
9590     ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_float, 0 | 0); argvi++ ;
9591 
9592     XSRETURN(argvi);
9593   fail:
9594 
9595     SWIG_croak_null();
9596   }
9597 }
9598 
9599 
XS(_wrap_new_gsl_complex_float)9600 XS(_wrap_new_gsl_complex_float) {
9601   {
9602     int argvi = 0;
9603     gsl_complex_float *result = 0 ;
9604     dXSARGS;
9605 
9606     if ((items < 0) || (items > 0)) {
9607       SWIG_croak("Usage: new_gsl_complex_float();");
9608     }
9609     result = (gsl_complex_float *)calloc(1, sizeof(gsl_complex_float));
9610     ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_complex_float, SWIG_OWNER | SWIG_SHADOW); argvi++ ;
9611     XSRETURN(argvi);
9612   fail:
9613     SWIG_croak_null();
9614   }
9615 }
9616 
9617 
XS(_wrap_delete_gsl_complex_float)9618 XS(_wrap_delete_gsl_complex_float) {
9619   {
9620     gsl_complex_float *arg1 = (gsl_complex_float *) 0 ;
9621     void *argp1 = 0 ;
9622     int res1 = 0 ;
9623     int argvi = 0;
9624     dXSARGS;
9625 
9626     if ((items < 1) || (items > 1)) {
9627       SWIG_croak("Usage: delete_gsl_complex_float(self);");
9628     }
9629     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_complex_float, SWIG_POINTER_DISOWN |  0 );
9630     if (!SWIG_IsOK(res1)) {
9631       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "delete_gsl_complex_float" "', argument " "1"" of type '" "gsl_complex_float *""'");
9632     }
9633     arg1 = (gsl_complex_float *)(argp1);
9634     free((char *) arg1);
9635     ST(argvi) = &PL_sv_undef;
9636 
9637     XSRETURN(argvi);
9638   fail:
9639 
9640     SWIG_croak_null();
9641   }
9642 }
9643 
9644 
XS(_wrap_gsl_complex_polar)9645 XS(_wrap_gsl_complex_polar) {
9646   {
9647     double arg1 ;
9648     double arg2 ;
9649     double val1 ;
9650     int ecode1 = 0 ;
9651     double val2 ;
9652     int ecode2 = 0 ;
9653     int argvi = 0;
9654     gsl_complex result;
9655     dXSARGS;
9656 
9657     if ((items < 2) || (items > 2)) {
9658       SWIG_croak("Usage: gsl_complex_polar(r,theta);");
9659     }
9660     ecode1 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
9661     if (!SWIG_IsOK(ecode1)) {
9662       SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_complex_polar" "', argument " "1"" of type '" "double""'");
9663     }
9664     arg1 = (double)(val1);
9665     ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
9666     if (!SWIG_IsOK(ecode2)) {
9667       SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_complex_polar" "', argument " "2"" of type '" "double""'");
9668     }
9669     arg2 = (double)(val2);
9670     result = gsl_complex_polar(arg1,arg2);
9671     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++ ;
9672 
9673 
9674     XSRETURN(argvi);
9675   fail:
9676 
9677 
9678     SWIG_croak_null();
9679   }
9680 }
9681 
9682 
XS(_wrap_gsl_complex_rect)9683 XS(_wrap_gsl_complex_rect) {
9684   {
9685     double arg1 ;
9686     double arg2 ;
9687     double val1 ;
9688     int ecode1 = 0 ;
9689     double val2 ;
9690     int ecode2 = 0 ;
9691     int argvi = 0;
9692     gsl_complex result;
9693     dXSARGS;
9694 
9695     if ((items < 2) || (items > 2)) {
9696       SWIG_croak("Usage: gsl_complex_rect(x,y);");
9697     }
9698     ecode1 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
9699     if (!SWIG_IsOK(ecode1)) {
9700       SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_complex_rect" "', argument " "1"" of type '" "double""'");
9701     }
9702     arg1 = (double)(val1);
9703     ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
9704     if (!SWIG_IsOK(ecode2)) {
9705       SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_complex_rect" "', argument " "2"" of type '" "double""'");
9706     }
9707     arg2 = (double)(val2);
9708     result = gsl_complex_rect(arg1,arg2);
9709     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++ ;
9710 
9711 
9712     XSRETURN(argvi);
9713   fail:
9714 
9715 
9716     SWIG_croak_null();
9717   }
9718 }
9719 
9720 
XS(_wrap_gsl_complex_arg)9721 XS(_wrap_gsl_complex_arg) {
9722   {
9723     gsl_complex arg1 ;
9724     void *argp1 ;
9725     int res1 = 0 ;
9726     int argvi = 0;
9727     double result;
9728     dXSARGS;
9729 
9730     if ((items < 1) || (items > 1)) {
9731       SWIG_croak("Usage: gsl_complex_arg(z);");
9732     }
9733     {
9734       res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex,  0 );
9735       if (!SWIG_IsOK(res1)) {
9736         SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_arg" "', argument " "1"" of type '" "gsl_complex""'");
9737       }
9738       if (!argp1) {
9739         SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_arg" "', argument " "1"" of type '" "gsl_complex""'");
9740       } else {
9741         arg1 = *((gsl_complex *)(argp1));
9742       }
9743     }
9744     result = (double)gsl_complex_arg(arg1);
9745     ST(argvi) = SWIG_From_double  SWIG_PERL_CALL_ARGS_1((double)(result)); argvi++ ;
9746     XSRETURN(argvi);
9747   fail:
9748     SWIG_croak_null();
9749   }
9750 }
9751 
9752 
XS(_wrap_gsl_complex_abs)9753 XS(_wrap_gsl_complex_abs) {
9754   {
9755     gsl_complex arg1 ;
9756     void *argp1 ;
9757     int res1 = 0 ;
9758     int argvi = 0;
9759     double result;
9760     dXSARGS;
9761 
9762     if ((items < 1) || (items > 1)) {
9763       SWIG_croak("Usage: gsl_complex_abs(z);");
9764     }
9765     {
9766       res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex,  0 );
9767       if (!SWIG_IsOK(res1)) {
9768         SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_abs" "', argument " "1"" of type '" "gsl_complex""'");
9769       }
9770       if (!argp1) {
9771         SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_abs" "', argument " "1"" of type '" "gsl_complex""'");
9772       } else {
9773         arg1 = *((gsl_complex *)(argp1));
9774       }
9775     }
9776     result = (double)gsl_complex_abs(arg1);
9777     ST(argvi) = SWIG_From_double  SWIG_PERL_CALL_ARGS_1((double)(result)); argvi++ ;
9778     XSRETURN(argvi);
9779   fail:
9780     SWIG_croak_null();
9781   }
9782 }
9783 
9784 
XS(_wrap_gsl_complex_abs2)9785 XS(_wrap_gsl_complex_abs2) {
9786   {
9787     gsl_complex arg1 ;
9788     void *argp1 ;
9789     int res1 = 0 ;
9790     int argvi = 0;
9791     double result;
9792     dXSARGS;
9793 
9794     if ((items < 1) || (items > 1)) {
9795       SWIG_croak("Usage: gsl_complex_abs2(z);");
9796     }
9797     {
9798       res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex,  0 );
9799       if (!SWIG_IsOK(res1)) {
9800         SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_abs2" "', argument " "1"" of type '" "gsl_complex""'");
9801       }
9802       if (!argp1) {
9803         SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_abs2" "', argument " "1"" of type '" "gsl_complex""'");
9804       } else {
9805         arg1 = *((gsl_complex *)(argp1));
9806       }
9807     }
9808     result = (double)gsl_complex_abs2(arg1);
9809     ST(argvi) = SWIG_From_double  SWIG_PERL_CALL_ARGS_1((double)(result)); argvi++ ;
9810     XSRETURN(argvi);
9811   fail:
9812     SWIG_croak_null();
9813   }
9814 }
9815 
9816 
XS(_wrap_gsl_complex_logabs)9817 XS(_wrap_gsl_complex_logabs) {
9818   {
9819     gsl_complex arg1 ;
9820     void *argp1 ;
9821     int res1 = 0 ;
9822     int argvi = 0;
9823     double result;
9824     dXSARGS;
9825 
9826     if ((items < 1) || (items > 1)) {
9827       SWIG_croak("Usage: gsl_complex_logabs(z);");
9828     }
9829     {
9830       res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex,  0 );
9831       if (!SWIG_IsOK(res1)) {
9832         SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_logabs" "', argument " "1"" of type '" "gsl_complex""'");
9833       }
9834       if (!argp1) {
9835         SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_logabs" "', argument " "1"" of type '" "gsl_complex""'");
9836       } else {
9837         arg1 = *((gsl_complex *)(argp1));
9838       }
9839     }
9840     result = (double)gsl_complex_logabs(arg1);
9841     ST(argvi) = SWIG_From_double  SWIG_PERL_CALL_ARGS_1((double)(result)); argvi++ ;
9842     XSRETURN(argvi);
9843   fail:
9844     SWIG_croak_null();
9845   }
9846 }
9847 
9848 
XS(_wrap_gsl_complex_add)9849 XS(_wrap_gsl_complex_add) {
9850   {
9851     gsl_complex arg1 ;
9852     gsl_complex arg2 ;
9853     void *argp1 ;
9854     int res1 = 0 ;
9855     void *argp2 ;
9856     int res2 = 0 ;
9857     int argvi = 0;
9858     gsl_complex result;
9859     dXSARGS;
9860 
9861     if ((items < 2) || (items > 2)) {
9862       SWIG_croak("Usage: gsl_complex_add(a,b);");
9863     }
9864     {
9865       res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex,  0 );
9866       if (!SWIG_IsOK(res1)) {
9867         SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_add" "', argument " "1"" of type '" "gsl_complex""'");
9868       }
9869       if (!argp1) {
9870         SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_add" "', argument " "1"" of type '" "gsl_complex""'");
9871       } else {
9872         arg1 = *((gsl_complex *)(argp1));
9873       }
9874     }
9875     {
9876       res2 = SWIG_ConvertPtr(ST(1), &argp2, SWIGTYPE_p_gsl_complex,  0 );
9877       if (!SWIG_IsOK(res2)) {
9878         SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_complex_add" "', argument " "2"" of type '" "gsl_complex""'");
9879       }
9880       if (!argp2) {
9881         SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_add" "', argument " "2"" of type '" "gsl_complex""'");
9882       } else {
9883         arg2 = *((gsl_complex *)(argp2));
9884       }
9885     }
9886     result = gsl_complex_add(arg1,arg2);
9887     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++ ;
9888     XSRETURN(argvi);
9889   fail:
9890     SWIG_croak_null();
9891   }
9892 }
9893 
9894 
XS(_wrap_gsl_complex_sub)9895 XS(_wrap_gsl_complex_sub) {
9896   {
9897     gsl_complex arg1 ;
9898     gsl_complex arg2 ;
9899     void *argp1 ;
9900     int res1 = 0 ;
9901     void *argp2 ;
9902     int res2 = 0 ;
9903     int argvi = 0;
9904     gsl_complex result;
9905     dXSARGS;
9906 
9907     if ((items < 2) || (items > 2)) {
9908       SWIG_croak("Usage: gsl_complex_sub(a,b);");
9909     }
9910     {
9911       res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex,  0 );
9912       if (!SWIG_IsOK(res1)) {
9913         SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_sub" "', argument " "1"" of type '" "gsl_complex""'");
9914       }
9915       if (!argp1) {
9916         SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_sub" "', argument " "1"" of type '" "gsl_complex""'");
9917       } else {
9918         arg1 = *((gsl_complex *)(argp1));
9919       }
9920     }
9921     {
9922       res2 = SWIG_ConvertPtr(ST(1), &argp2, SWIGTYPE_p_gsl_complex,  0 );
9923       if (!SWIG_IsOK(res2)) {
9924         SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_complex_sub" "', argument " "2"" of type '" "gsl_complex""'");
9925       }
9926       if (!argp2) {
9927         SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_sub" "', argument " "2"" of type '" "gsl_complex""'");
9928       } else {
9929         arg2 = *((gsl_complex *)(argp2));
9930       }
9931     }
9932     result = gsl_complex_sub(arg1,arg2);
9933     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++ ;
9934     XSRETURN(argvi);
9935   fail:
9936     SWIG_croak_null();
9937   }
9938 }
9939 
9940 
XS(_wrap_gsl_complex_mul)9941 XS(_wrap_gsl_complex_mul) {
9942   {
9943     gsl_complex arg1 ;
9944     gsl_complex arg2 ;
9945     void *argp1 ;
9946     int res1 = 0 ;
9947     void *argp2 ;
9948     int res2 = 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(a,b);");
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" "', argument " "1"" of type '" "gsl_complex""'");
9960       }
9961       if (!argp1) {
9962         SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_mul" "', argument " "1"" of type '" "gsl_complex""'");
9963       } else {
9964         arg1 = *((gsl_complex *)(argp1));
9965       }
9966     }
9967     {
9968       res2 = SWIG_ConvertPtr(ST(1), &argp2, SWIGTYPE_p_gsl_complex,  0 );
9969       if (!SWIG_IsOK(res2)) {
9970         SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_complex_mul" "', argument " "2"" of type '" "gsl_complex""'");
9971       }
9972       if (!argp2) {
9973         SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_mul" "', argument " "2"" of type '" "gsl_complex""'");
9974       } else {
9975         arg2 = *((gsl_complex *)(argp2));
9976       }
9977     }
9978     result = gsl_complex_mul(arg1,arg2);
9979     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++ ;
9980     XSRETURN(argvi);
9981   fail:
9982     SWIG_croak_null();
9983   }
9984 }
9985 
9986 
XS(_wrap_gsl_complex_div)9987 XS(_wrap_gsl_complex_div) {
9988   {
9989     gsl_complex arg1 ;
9990     gsl_complex arg2 ;
9991     void *argp1 ;
9992     int res1 = 0 ;
9993     void *argp2 ;
9994     int res2 = 0 ;
9995     int argvi = 0;
9996     gsl_complex result;
9997     dXSARGS;
9998 
9999     if ((items < 2) || (items > 2)) {
10000       SWIG_croak("Usage: gsl_complex_div(a,b);");
10001     }
10002     {
10003       res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex,  0 );
10004       if (!SWIG_IsOK(res1)) {
10005         SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_div" "', argument " "1"" of type '" "gsl_complex""'");
10006       }
10007       if (!argp1) {
10008         SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_div" "', argument " "1"" of type '" "gsl_complex""'");
10009       } else {
10010         arg1 = *((gsl_complex *)(argp1));
10011       }
10012     }
10013     {
10014       res2 = SWIG_ConvertPtr(ST(1), &argp2, SWIGTYPE_p_gsl_complex,  0 );
10015       if (!SWIG_IsOK(res2)) {
10016         SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_complex_div" "', argument " "2"" of type '" "gsl_complex""'");
10017       }
10018       if (!argp2) {
10019         SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_div" "', argument " "2"" of type '" "gsl_complex""'");
10020       } else {
10021         arg2 = *((gsl_complex *)(argp2));
10022       }
10023     }
10024     result = gsl_complex_div(arg1,arg2);
10025     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++ ;
10026     XSRETURN(argvi);
10027   fail:
10028     SWIG_croak_null();
10029   }
10030 }
10031 
10032 
XS(_wrap_gsl_complex_add_real)10033 XS(_wrap_gsl_complex_add_real) {
10034   {
10035     gsl_complex arg1 ;
10036     double arg2 ;
10037     void *argp1 ;
10038     int res1 = 0 ;
10039     double val2 ;
10040     int ecode2 = 0 ;
10041     int argvi = 0;
10042     gsl_complex result;
10043     dXSARGS;
10044 
10045     if ((items < 2) || (items > 2)) {
10046       SWIG_croak("Usage: gsl_complex_add_real(a,x);");
10047     }
10048     {
10049       res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex,  0 );
10050       if (!SWIG_IsOK(res1)) {
10051         SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_add_real" "', argument " "1"" of type '" "gsl_complex""'");
10052       }
10053       if (!argp1) {
10054         SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_add_real" "', argument " "1"" of type '" "gsl_complex""'");
10055       } else {
10056         arg1 = *((gsl_complex *)(argp1));
10057       }
10058     }
10059     ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
10060     if (!SWIG_IsOK(ecode2)) {
10061       SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_complex_add_real" "', argument " "2"" of type '" "double""'");
10062     }
10063     arg2 = (double)(val2);
10064     result = gsl_complex_add_real(arg1,arg2);
10065     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++ ;
10066 
10067     XSRETURN(argvi);
10068   fail:
10069 
10070     SWIG_croak_null();
10071   }
10072 }
10073 
10074 
XS(_wrap_gsl_complex_sub_real)10075 XS(_wrap_gsl_complex_sub_real) {
10076   {
10077     gsl_complex arg1 ;
10078     double arg2 ;
10079     void *argp1 ;
10080     int res1 = 0 ;
10081     double val2 ;
10082     int ecode2 = 0 ;
10083     int argvi = 0;
10084     gsl_complex result;
10085     dXSARGS;
10086 
10087     if ((items < 2) || (items > 2)) {
10088       SWIG_croak("Usage: gsl_complex_sub_real(a,x);");
10089     }
10090     {
10091       res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex,  0 );
10092       if (!SWIG_IsOK(res1)) {
10093         SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_sub_real" "', argument " "1"" of type '" "gsl_complex""'");
10094       }
10095       if (!argp1) {
10096         SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_sub_real" "', argument " "1"" of type '" "gsl_complex""'");
10097       } else {
10098         arg1 = *((gsl_complex *)(argp1));
10099       }
10100     }
10101     ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
10102     if (!SWIG_IsOK(ecode2)) {
10103       SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_complex_sub_real" "', argument " "2"" of type '" "double""'");
10104     }
10105     arg2 = (double)(val2);
10106     result = gsl_complex_sub_real(arg1,arg2);
10107     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++ ;
10108 
10109     XSRETURN(argvi);
10110   fail:
10111 
10112     SWIG_croak_null();
10113   }
10114 }
10115 
10116 
XS(_wrap_gsl_complex_mul_real)10117 XS(_wrap_gsl_complex_mul_real) {
10118   {
10119     gsl_complex arg1 ;
10120     double arg2 ;
10121     void *argp1 ;
10122     int res1 = 0 ;
10123     double val2 ;
10124     int ecode2 = 0 ;
10125     int argvi = 0;
10126     gsl_complex result;
10127     dXSARGS;
10128 
10129     if ((items < 2) || (items > 2)) {
10130       SWIG_croak("Usage: gsl_complex_mul_real(a,x);");
10131     }
10132     {
10133       res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex,  0 );
10134       if (!SWIG_IsOK(res1)) {
10135         SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_mul_real" "', argument " "1"" of type '" "gsl_complex""'");
10136       }
10137       if (!argp1) {
10138         SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_mul_real" "', argument " "1"" of type '" "gsl_complex""'");
10139       } else {
10140         arg1 = *((gsl_complex *)(argp1));
10141       }
10142     }
10143     ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
10144     if (!SWIG_IsOK(ecode2)) {
10145       SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_complex_mul_real" "', argument " "2"" of type '" "double""'");
10146     }
10147     arg2 = (double)(val2);
10148     result = gsl_complex_mul_real(arg1,arg2);
10149     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++ ;
10150 
10151     XSRETURN(argvi);
10152   fail:
10153 
10154     SWIG_croak_null();
10155   }
10156 }
10157 
10158 
XS(_wrap_gsl_complex_div_real)10159 XS(_wrap_gsl_complex_div_real) {
10160   {
10161     gsl_complex arg1 ;
10162     double arg2 ;
10163     void *argp1 ;
10164     int res1 = 0 ;
10165     double val2 ;
10166     int ecode2 = 0 ;
10167     int argvi = 0;
10168     gsl_complex result;
10169     dXSARGS;
10170 
10171     if ((items < 2) || (items > 2)) {
10172       SWIG_croak("Usage: gsl_complex_div_real(a,x);");
10173     }
10174     {
10175       res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex,  0 );
10176       if (!SWIG_IsOK(res1)) {
10177         SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_div_real" "', argument " "1"" of type '" "gsl_complex""'");
10178       }
10179       if (!argp1) {
10180         SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_div_real" "', argument " "1"" of type '" "gsl_complex""'");
10181       } else {
10182         arg1 = *((gsl_complex *)(argp1));
10183       }
10184     }
10185     ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
10186     if (!SWIG_IsOK(ecode2)) {
10187       SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_complex_div_real" "', argument " "2"" of type '" "double""'");
10188     }
10189     arg2 = (double)(val2);
10190     result = gsl_complex_div_real(arg1,arg2);
10191     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++ ;
10192 
10193     XSRETURN(argvi);
10194   fail:
10195 
10196     SWIG_croak_null();
10197   }
10198 }
10199 
10200 
XS(_wrap_gsl_complex_add_imag)10201 XS(_wrap_gsl_complex_add_imag) {
10202   {
10203     gsl_complex arg1 ;
10204     double arg2 ;
10205     void *argp1 ;
10206     int res1 = 0 ;
10207     double val2 ;
10208     int ecode2 = 0 ;
10209     int argvi = 0;
10210     gsl_complex result;
10211     dXSARGS;
10212 
10213     if ((items < 2) || (items > 2)) {
10214       SWIG_croak("Usage: gsl_complex_add_imag(a,y);");
10215     }
10216     {
10217       res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex,  0 );
10218       if (!SWIG_IsOK(res1)) {
10219         SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_add_imag" "', argument " "1"" of type '" "gsl_complex""'");
10220       }
10221       if (!argp1) {
10222         SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_add_imag" "', argument " "1"" of type '" "gsl_complex""'");
10223       } else {
10224         arg1 = *((gsl_complex *)(argp1));
10225       }
10226     }
10227     ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
10228     if (!SWIG_IsOK(ecode2)) {
10229       SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_complex_add_imag" "', argument " "2"" of type '" "double""'");
10230     }
10231     arg2 = (double)(val2);
10232     result = gsl_complex_add_imag(arg1,arg2);
10233     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++ ;
10234 
10235     XSRETURN(argvi);
10236   fail:
10237 
10238     SWIG_croak_null();
10239   }
10240 }
10241 
10242 
XS(_wrap_gsl_complex_sub_imag)10243 XS(_wrap_gsl_complex_sub_imag) {
10244   {
10245     gsl_complex arg1 ;
10246     double arg2 ;
10247     void *argp1 ;
10248     int res1 = 0 ;
10249     double val2 ;
10250     int ecode2 = 0 ;
10251     int argvi = 0;
10252     gsl_complex result;
10253     dXSARGS;
10254 
10255     if ((items < 2) || (items > 2)) {
10256       SWIG_croak("Usage: gsl_complex_sub_imag(a,y);");
10257     }
10258     {
10259       res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex,  0 );
10260       if (!SWIG_IsOK(res1)) {
10261         SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_sub_imag" "', argument " "1"" of type '" "gsl_complex""'");
10262       }
10263       if (!argp1) {
10264         SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_sub_imag" "', argument " "1"" of type '" "gsl_complex""'");
10265       } else {
10266         arg1 = *((gsl_complex *)(argp1));
10267       }
10268     }
10269     ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
10270     if (!SWIG_IsOK(ecode2)) {
10271       SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_complex_sub_imag" "', argument " "2"" of type '" "double""'");
10272     }
10273     arg2 = (double)(val2);
10274     result = gsl_complex_sub_imag(arg1,arg2);
10275     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++ ;
10276 
10277     XSRETURN(argvi);
10278   fail:
10279 
10280     SWIG_croak_null();
10281   }
10282 }
10283 
10284 
XS(_wrap_gsl_complex_mul_imag)10285 XS(_wrap_gsl_complex_mul_imag) {
10286   {
10287     gsl_complex arg1 ;
10288     double arg2 ;
10289     void *argp1 ;
10290     int res1 = 0 ;
10291     double val2 ;
10292     int ecode2 = 0 ;
10293     int argvi = 0;
10294     gsl_complex result;
10295     dXSARGS;
10296 
10297     if ((items < 2) || (items > 2)) {
10298       SWIG_croak("Usage: gsl_complex_mul_imag(a,y);");
10299     }
10300     {
10301       res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex,  0 );
10302       if (!SWIG_IsOK(res1)) {
10303         SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_mul_imag" "', argument " "1"" of type '" "gsl_complex""'");
10304       }
10305       if (!argp1) {
10306         SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_mul_imag" "', argument " "1"" of type '" "gsl_complex""'");
10307       } else {
10308         arg1 = *((gsl_complex *)(argp1));
10309       }
10310     }
10311     ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
10312     if (!SWIG_IsOK(ecode2)) {
10313       SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_complex_mul_imag" "', argument " "2"" of type '" "double""'");
10314     }
10315     arg2 = (double)(val2);
10316     result = gsl_complex_mul_imag(arg1,arg2);
10317     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++ ;
10318 
10319     XSRETURN(argvi);
10320   fail:
10321 
10322     SWIG_croak_null();
10323   }
10324 }
10325 
10326 
XS(_wrap_gsl_complex_div_imag)10327 XS(_wrap_gsl_complex_div_imag) {
10328   {
10329     gsl_complex arg1 ;
10330     double arg2 ;
10331     void *argp1 ;
10332     int res1 = 0 ;
10333     double val2 ;
10334     int ecode2 = 0 ;
10335     int argvi = 0;
10336     gsl_complex result;
10337     dXSARGS;
10338 
10339     if ((items < 2) || (items > 2)) {
10340       SWIG_croak("Usage: gsl_complex_div_imag(a,y);");
10341     }
10342     {
10343       res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex,  0 );
10344       if (!SWIG_IsOK(res1)) {
10345         SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_div_imag" "', argument " "1"" of type '" "gsl_complex""'");
10346       }
10347       if (!argp1) {
10348         SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_div_imag" "', argument " "1"" of type '" "gsl_complex""'");
10349       } else {
10350         arg1 = *((gsl_complex *)(argp1));
10351       }
10352     }
10353     ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
10354     if (!SWIG_IsOK(ecode2)) {
10355       SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_complex_div_imag" "', argument " "2"" of type '" "double""'");
10356     }
10357     arg2 = (double)(val2);
10358     result = gsl_complex_div_imag(arg1,arg2);
10359     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++ ;
10360 
10361     XSRETURN(argvi);
10362   fail:
10363 
10364     SWIG_croak_null();
10365   }
10366 }
10367 
10368 
XS(_wrap_gsl_complex_conjugate)10369 XS(_wrap_gsl_complex_conjugate) {
10370   {
10371     gsl_complex arg1 ;
10372     void *argp1 ;
10373     int res1 = 0 ;
10374     int argvi = 0;
10375     gsl_complex result;
10376     dXSARGS;
10377 
10378     if ((items < 1) || (items > 1)) {
10379       SWIG_croak("Usage: gsl_complex_conjugate(z);");
10380     }
10381     {
10382       res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex,  0 );
10383       if (!SWIG_IsOK(res1)) {
10384         SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_conjugate" "', argument " "1"" of type '" "gsl_complex""'");
10385       }
10386       if (!argp1) {
10387         SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_conjugate" "', argument " "1"" of type '" "gsl_complex""'");
10388       } else {
10389         arg1 = *((gsl_complex *)(argp1));
10390       }
10391     }
10392     result = gsl_complex_conjugate(arg1);
10393     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++ ;
10394     XSRETURN(argvi);
10395   fail:
10396     SWIG_croak_null();
10397   }
10398 }
10399 
10400 
XS(_wrap_gsl_complex_inverse)10401 XS(_wrap_gsl_complex_inverse) {
10402   {
10403     gsl_complex arg1 ;
10404     void *argp1 ;
10405     int res1 = 0 ;
10406     int argvi = 0;
10407     gsl_complex result;
10408     dXSARGS;
10409 
10410     if ((items < 1) || (items > 1)) {
10411       SWIG_croak("Usage: gsl_complex_inverse(a);");
10412     }
10413     {
10414       res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex,  0 );
10415       if (!SWIG_IsOK(res1)) {
10416         SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_inverse" "', argument " "1"" of type '" "gsl_complex""'");
10417       }
10418       if (!argp1) {
10419         SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_inverse" "', argument " "1"" of type '" "gsl_complex""'");
10420       } else {
10421         arg1 = *((gsl_complex *)(argp1));
10422       }
10423     }
10424     result = gsl_complex_inverse(arg1);
10425     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++ ;
10426     XSRETURN(argvi);
10427   fail:
10428     SWIG_croak_null();
10429   }
10430 }
10431 
10432 
XS(_wrap_gsl_complex_negative)10433 XS(_wrap_gsl_complex_negative) {
10434   {
10435     gsl_complex arg1 ;
10436     void *argp1 ;
10437     int res1 = 0 ;
10438     int argvi = 0;
10439     gsl_complex result;
10440     dXSARGS;
10441 
10442     if ((items < 1) || (items > 1)) {
10443       SWIG_croak("Usage: gsl_complex_negative(a);");
10444     }
10445     {
10446       res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex,  0 );
10447       if (!SWIG_IsOK(res1)) {
10448         SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_negative" "', argument " "1"" of type '" "gsl_complex""'");
10449       }
10450       if (!argp1) {
10451         SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_negative" "', argument " "1"" of type '" "gsl_complex""'");
10452       } else {
10453         arg1 = *((gsl_complex *)(argp1));
10454       }
10455     }
10456     result = gsl_complex_negative(arg1);
10457     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++ ;
10458     XSRETURN(argvi);
10459   fail:
10460     SWIG_croak_null();
10461   }
10462 }
10463 
10464 
XS(_wrap_gsl_complex_sqrt)10465 XS(_wrap_gsl_complex_sqrt) {
10466   {
10467     gsl_complex arg1 ;
10468     void *argp1 ;
10469     int res1 = 0 ;
10470     int argvi = 0;
10471     gsl_complex result;
10472     dXSARGS;
10473 
10474     if ((items < 1) || (items > 1)) {
10475       SWIG_croak("Usage: gsl_complex_sqrt(z);");
10476     }
10477     {
10478       res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex,  0 );
10479       if (!SWIG_IsOK(res1)) {
10480         SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_sqrt" "', argument " "1"" of type '" "gsl_complex""'");
10481       }
10482       if (!argp1) {
10483         SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_sqrt" "', argument " "1"" of type '" "gsl_complex""'");
10484       } else {
10485         arg1 = *((gsl_complex *)(argp1));
10486       }
10487     }
10488     result = gsl_complex_sqrt(arg1);
10489     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++ ;
10490     XSRETURN(argvi);
10491   fail:
10492     SWIG_croak_null();
10493   }
10494 }
10495 
10496 
XS(_wrap_gsl_complex_sqrt_real)10497 XS(_wrap_gsl_complex_sqrt_real) {
10498   {
10499     double arg1 ;
10500     double val1 ;
10501     int ecode1 = 0 ;
10502     int argvi = 0;
10503     gsl_complex result;
10504     dXSARGS;
10505 
10506     if ((items < 1) || (items > 1)) {
10507       SWIG_croak("Usage: gsl_complex_sqrt_real(x);");
10508     }
10509     ecode1 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
10510     if (!SWIG_IsOK(ecode1)) {
10511       SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_complex_sqrt_real" "', argument " "1"" of type '" "double""'");
10512     }
10513     arg1 = (double)(val1);
10514     result = gsl_complex_sqrt_real(arg1);
10515     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++ ;
10516 
10517     XSRETURN(argvi);
10518   fail:
10519 
10520     SWIG_croak_null();
10521   }
10522 }
10523 
10524 
XS(_wrap_gsl_complex_pow)10525 XS(_wrap_gsl_complex_pow) {
10526   {
10527     gsl_complex arg1 ;
10528     gsl_complex arg2 ;
10529     void *argp1 ;
10530     int res1 = 0 ;
10531     void *argp2 ;
10532     int res2 = 0 ;
10533     int argvi = 0;
10534     gsl_complex result;
10535     dXSARGS;
10536 
10537     if ((items < 2) || (items > 2)) {
10538       SWIG_croak("Usage: gsl_complex_pow(a,b);");
10539     }
10540     {
10541       res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex,  0 );
10542       if (!SWIG_IsOK(res1)) {
10543         SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_pow" "', argument " "1"" of type '" "gsl_complex""'");
10544       }
10545       if (!argp1) {
10546         SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_pow" "', argument " "1"" of type '" "gsl_complex""'");
10547       } else {
10548         arg1 = *((gsl_complex *)(argp1));
10549       }
10550     }
10551     {
10552       res2 = SWIG_ConvertPtr(ST(1), &argp2, SWIGTYPE_p_gsl_complex,  0 );
10553       if (!SWIG_IsOK(res2)) {
10554         SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_complex_pow" "', argument " "2"" of type '" "gsl_complex""'");
10555       }
10556       if (!argp2) {
10557         SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_pow" "', argument " "2"" of type '" "gsl_complex""'");
10558       } else {
10559         arg2 = *((gsl_complex *)(argp2));
10560       }
10561     }
10562     result = gsl_complex_pow(arg1,arg2);
10563     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++ ;
10564     XSRETURN(argvi);
10565   fail:
10566     SWIG_croak_null();
10567   }
10568 }
10569 
10570 
XS(_wrap_gsl_complex_pow_real)10571 XS(_wrap_gsl_complex_pow_real) {
10572   {
10573     gsl_complex arg1 ;
10574     double arg2 ;
10575     void *argp1 ;
10576     int res1 = 0 ;
10577     double val2 ;
10578     int ecode2 = 0 ;
10579     int argvi = 0;
10580     gsl_complex result;
10581     dXSARGS;
10582 
10583     if ((items < 2) || (items > 2)) {
10584       SWIG_croak("Usage: gsl_complex_pow_real(a,b);");
10585     }
10586     {
10587       res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex,  0 );
10588       if (!SWIG_IsOK(res1)) {
10589         SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_pow_real" "', argument " "1"" of type '" "gsl_complex""'");
10590       }
10591       if (!argp1) {
10592         SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_pow_real" "', argument " "1"" of type '" "gsl_complex""'");
10593       } else {
10594         arg1 = *((gsl_complex *)(argp1));
10595       }
10596     }
10597     ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
10598     if (!SWIG_IsOK(ecode2)) {
10599       SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_complex_pow_real" "', argument " "2"" of type '" "double""'");
10600     }
10601     arg2 = (double)(val2);
10602     result = gsl_complex_pow_real(arg1,arg2);
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 
10605     XSRETURN(argvi);
10606   fail:
10607 
10608     SWIG_croak_null();
10609   }
10610 }
10611 
10612 
XS(_wrap_gsl_complex_exp)10613 XS(_wrap_gsl_complex_exp) {
10614   {
10615     gsl_complex arg1 ;
10616     void *argp1 ;
10617     int res1 = 0 ;
10618     int argvi = 0;
10619     gsl_complex result;
10620     dXSARGS;
10621 
10622     if ((items < 1) || (items > 1)) {
10623       SWIG_croak("Usage: gsl_complex_exp(a);");
10624     }
10625     {
10626       res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex,  0 );
10627       if (!SWIG_IsOK(res1)) {
10628         SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_exp" "', argument " "1"" of type '" "gsl_complex""'");
10629       }
10630       if (!argp1) {
10631         SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_exp" "', argument " "1"" of type '" "gsl_complex""'");
10632       } else {
10633         arg1 = *((gsl_complex *)(argp1));
10634       }
10635     }
10636     result = gsl_complex_exp(arg1);
10637     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++ ;
10638     XSRETURN(argvi);
10639   fail:
10640     SWIG_croak_null();
10641   }
10642 }
10643 
10644 
XS(_wrap_gsl_complex_log)10645 XS(_wrap_gsl_complex_log) {
10646   {
10647     gsl_complex arg1 ;
10648     void *argp1 ;
10649     int res1 = 0 ;
10650     int argvi = 0;
10651     gsl_complex result;
10652     dXSARGS;
10653 
10654     if ((items < 1) || (items > 1)) {
10655       SWIG_croak("Usage: gsl_complex_log(a);");
10656     }
10657     {
10658       res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex,  0 );
10659       if (!SWIG_IsOK(res1)) {
10660         SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_log" "', argument " "1"" of type '" "gsl_complex""'");
10661       }
10662       if (!argp1) {
10663         SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_log" "', argument " "1"" of type '" "gsl_complex""'");
10664       } else {
10665         arg1 = *((gsl_complex *)(argp1));
10666       }
10667     }
10668     result = gsl_complex_log(arg1);
10669     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++ ;
10670     XSRETURN(argvi);
10671   fail:
10672     SWIG_croak_null();
10673   }
10674 }
10675 
10676 
XS(_wrap_gsl_complex_log10)10677 XS(_wrap_gsl_complex_log10) {
10678   {
10679     gsl_complex arg1 ;
10680     void *argp1 ;
10681     int res1 = 0 ;
10682     int argvi = 0;
10683     gsl_complex result;
10684     dXSARGS;
10685 
10686     if ((items < 1) || (items > 1)) {
10687       SWIG_croak("Usage: gsl_complex_log10(a);");
10688     }
10689     {
10690       res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex,  0 );
10691       if (!SWIG_IsOK(res1)) {
10692         SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_log10" "', argument " "1"" of type '" "gsl_complex""'");
10693       }
10694       if (!argp1) {
10695         SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_log10" "', argument " "1"" of type '" "gsl_complex""'");
10696       } else {
10697         arg1 = *((gsl_complex *)(argp1));
10698       }
10699     }
10700     result = gsl_complex_log10(arg1);
10701     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++ ;
10702     XSRETURN(argvi);
10703   fail:
10704     SWIG_croak_null();
10705   }
10706 }
10707 
10708 
XS(_wrap_gsl_complex_log_b)10709 XS(_wrap_gsl_complex_log_b) {
10710   {
10711     gsl_complex arg1 ;
10712     gsl_complex arg2 ;
10713     void *argp1 ;
10714     int res1 = 0 ;
10715     void *argp2 ;
10716     int res2 = 0 ;
10717     int argvi = 0;
10718     gsl_complex result;
10719     dXSARGS;
10720 
10721     if ((items < 2) || (items > 2)) {
10722       SWIG_croak("Usage: gsl_complex_log_b(a,b);");
10723     }
10724     {
10725       res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex,  0 );
10726       if (!SWIG_IsOK(res1)) {
10727         SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_log_b" "', argument " "1"" of type '" "gsl_complex""'");
10728       }
10729       if (!argp1) {
10730         SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_log_b" "', argument " "1"" of type '" "gsl_complex""'");
10731       } else {
10732         arg1 = *((gsl_complex *)(argp1));
10733       }
10734     }
10735     {
10736       res2 = SWIG_ConvertPtr(ST(1), &argp2, SWIGTYPE_p_gsl_complex,  0 );
10737       if (!SWIG_IsOK(res2)) {
10738         SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_complex_log_b" "', argument " "2"" of type '" "gsl_complex""'");
10739       }
10740       if (!argp2) {
10741         SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_log_b" "', argument " "2"" of type '" "gsl_complex""'");
10742       } else {
10743         arg2 = *((gsl_complex *)(argp2));
10744       }
10745     }
10746     result = gsl_complex_log_b(arg1,arg2);
10747     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++ ;
10748     XSRETURN(argvi);
10749   fail:
10750     SWIG_croak_null();
10751   }
10752 }
10753 
10754 
XS(_wrap_gsl_complex_sin)10755 XS(_wrap_gsl_complex_sin) {
10756   {
10757     gsl_complex arg1 ;
10758     void *argp1 ;
10759     int res1 = 0 ;
10760     int argvi = 0;
10761     gsl_complex result;
10762     dXSARGS;
10763 
10764     if ((items < 1) || (items > 1)) {
10765       SWIG_croak("Usage: gsl_complex_sin(a);");
10766     }
10767     {
10768       res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex,  0 );
10769       if (!SWIG_IsOK(res1)) {
10770         SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_sin" "', argument " "1"" of type '" "gsl_complex""'");
10771       }
10772       if (!argp1) {
10773         SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_sin" "', argument " "1"" of type '" "gsl_complex""'");
10774       } else {
10775         arg1 = *((gsl_complex *)(argp1));
10776       }
10777     }
10778     result = gsl_complex_sin(arg1);
10779     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++ ;
10780     XSRETURN(argvi);
10781   fail:
10782     SWIG_croak_null();
10783   }
10784 }
10785 
10786 
XS(_wrap_gsl_complex_cos)10787 XS(_wrap_gsl_complex_cos) {
10788   {
10789     gsl_complex arg1 ;
10790     void *argp1 ;
10791     int res1 = 0 ;
10792     int argvi = 0;
10793     gsl_complex result;
10794     dXSARGS;
10795 
10796     if ((items < 1) || (items > 1)) {
10797       SWIG_croak("Usage: gsl_complex_cos(a);");
10798     }
10799     {
10800       res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex,  0 );
10801       if (!SWIG_IsOK(res1)) {
10802         SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_cos" "', argument " "1"" of type '" "gsl_complex""'");
10803       }
10804       if (!argp1) {
10805         SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_cos" "', argument " "1"" of type '" "gsl_complex""'");
10806       } else {
10807         arg1 = *((gsl_complex *)(argp1));
10808       }
10809     }
10810     result = gsl_complex_cos(arg1);
10811     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++ ;
10812     XSRETURN(argvi);
10813   fail:
10814     SWIG_croak_null();
10815   }
10816 }
10817 
10818 
XS(_wrap_gsl_complex_sec)10819 XS(_wrap_gsl_complex_sec) {
10820   {
10821     gsl_complex arg1 ;
10822     void *argp1 ;
10823     int res1 = 0 ;
10824     int argvi = 0;
10825     gsl_complex result;
10826     dXSARGS;
10827 
10828     if ((items < 1) || (items > 1)) {
10829       SWIG_croak("Usage: gsl_complex_sec(a);");
10830     }
10831     {
10832       res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex,  0 );
10833       if (!SWIG_IsOK(res1)) {
10834         SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_sec" "', argument " "1"" of type '" "gsl_complex""'");
10835       }
10836       if (!argp1) {
10837         SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_sec" "', argument " "1"" of type '" "gsl_complex""'");
10838       } else {
10839         arg1 = *((gsl_complex *)(argp1));
10840       }
10841     }
10842     result = gsl_complex_sec(arg1);
10843     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++ ;
10844     XSRETURN(argvi);
10845   fail:
10846     SWIG_croak_null();
10847   }
10848 }
10849 
10850 
XS(_wrap_gsl_complex_csc)10851 XS(_wrap_gsl_complex_csc) {
10852   {
10853     gsl_complex arg1 ;
10854     void *argp1 ;
10855     int res1 = 0 ;
10856     int argvi = 0;
10857     gsl_complex result;
10858     dXSARGS;
10859 
10860     if ((items < 1) || (items > 1)) {
10861       SWIG_croak("Usage: gsl_complex_csc(a);");
10862     }
10863     {
10864       res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex,  0 );
10865       if (!SWIG_IsOK(res1)) {
10866         SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_csc" "', argument " "1"" of type '" "gsl_complex""'");
10867       }
10868       if (!argp1) {
10869         SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_csc" "', argument " "1"" of type '" "gsl_complex""'");
10870       } else {
10871         arg1 = *((gsl_complex *)(argp1));
10872       }
10873     }
10874     result = gsl_complex_csc(arg1);
10875     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++ ;
10876     XSRETURN(argvi);
10877   fail:
10878     SWIG_croak_null();
10879   }
10880 }
10881 
10882 
XS(_wrap_gsl_complex_tan)10883 XS(_wrap_gsl_complex_tan) {
10884   {
10885     gsl_complex arg1 ;
10886     void *argp1 ;
10887     int res1 = 0 ;
10888     int argvi = 0;
10889     gsl_complex result;
10890     dXSARGS;
10891 
10892     if ((items < 1) || (items > 1)) {
10893       SWIG_croak("Usage: gsl_complex_tan(a);");
10894     }
10895     {
10896       res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex,  0 );
10897       if (!SWIG_IsOK(res1)) {
10898         SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_tan" "', argument " "1"" of type '" "gsl_complex""'");
10899       }
10900       if (!argp1) {
10901         SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_tan" "', argument " "1"" of type '" "gsl_complex""'");
10902       } else {
10903         arg1 = *((gsl_complex *)(argp1));
10904       }
10905     }
10906     result = gsl_complex_tan(arg1);
10907     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++ ;
10908     XSRETURN(argvi);
10909   fail:
10910     SWIG_croak_null();
10911   }
10912 }
10913 
10914 
XS(_wrap_gsl_complex_cot)10915 XS(_wrap_gsl_complex_cot) {
10916   {
10917     gsl_complex arg1 ;
10918     void *argp1 ;
10919     int res1 = 0 ;
10920     int argvi = 0;
10921     gsl_complex result;
10922     dXSARGS;
10923 
10924     if ((items < 1) || (items > 1)) {
10925       SWIG_croak("Usage: gsl_complex_cot(a);");
10926     }
10927     {
10928       res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex,  0 );
10929       if (!SWIG_IsOK(res1)) {
10930         SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_cot" "', argument " "1"" of type '" "gsl_complex""'");
10931       }
10932       if (!argp1) {
10933         SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_cot" "', argument " "1"" of type '" "gsl_complex""'");
10934       } else {
10935         arg1 = *((gsl_complex *)(argp1));
10936       }
10937     }
10938     result = gsl_complex_cot(arg1);
10939     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++ ;
10940     XSRETURN(argvi);
10941   fail:
10942     SWIG_croak_null();
10943   }
10944 }
10945 
10946 
XS(_wrap_gsl_complex_arcsin)10947 XS(_wrap_gsl_complex_arcsin) {
10948   {
10949     gsl_complex arg1 ;
10950     void *argp1 ;
10951     int res1 = 0 ;
10952     int argvi = 0;
10953     gsl_complex result;
10954     dXSARGS;
10955 
10956     if ((items < 1) || (items > 1)) {
10957       SWIG_croak("Usage: gsl_complex_arcsin(a);");
10958     }
10959     {
10960       res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex,  0 );
10961       if (!SWIG_IsOK(res1)) {
10962         SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_arcsin" "', argument " "1"" of type '" "gsl_complex""'");
10963       }
10964       if (!argp1) {
10965         SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_arcsin" "', argument " "1"" of type '" "gsl_complex""'");
10966       } else {
10967         arg1 = *((gsl_complex *)(argp1));
10968       }
10969     }
10970     result = gsl_complex_arcsin(arg1);
10971     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++ ;
10972     XSRETURN(argvi);
10973   fail:
10974     SWIG_croak_null();
10975   }
10976 }
10977 
10978 
XS(_wrap_gsl_complex_arcsin_real)10979 XS(_wrap_gsl_complex_arcsin_real) {
10980   {
10981     double arg1 ;
10982     double val1 ;
10983     int ecode1 = 0 ;
10984     int argvi = 0;
10985     gsl_complex result;
10986     dXSARGS;
10987 
10988     if ((items < 1) || (items > 1)) {
10989       SWIG_croak("Usage: gsl_complex_arcsin_real(a);");
10990     }
10991     ecode1 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
10992     if (!SWIG_IsOK(ecode1)) {
10993       SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_complex_arcsin_real" "', argument " "1"" of type '" "double""'");
10994     }
10995     arg1 = (double)(val1);
10996     result = gsl_complex_arcsin_real(arg1);
10997     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++ ;
10998 
10999     XSRETURN(argvi);
11000   fail:
11001 
11002     SWIG_croak_null();
11003   }
11004 }
11005 
11006 
XS(_wrap_gsl_complex_arccos)11007 XS(_wrap_gsl_complex_arccos) {
11008   {
11009     gsl_complex arg1 ;
11010     void *argp1 ;
11011     int res1 = 0 ;
11012     int argvi = 0;
11013     gsl_complex result;
11014     dXSARGS;
11015 
11016     if ((items < 1) || (items > 1)) {
11017       SWIG_croak("Usage: gsl_complex_arccos(a);");
11018     }
11019     {
11020       res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex,  0 );
11021       if (!SWIG_IsOK(res1)) {
11022         SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_arccos" "', argument " "1"" of type '" "gsl_complex""'");
11023       }
11024       if (!argp1) {
11025         SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_arccos" "', argument " "1"" of type '" "gsl_complex""'");
11026       } else {
11027         arg1 = *((gsl_complex *)(argp1));
11028       }
11029     }
11030     result = gsl_complex_arccos(arg1);
11031     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++ ;
11032     XSRETURN(argvi);
11033   fail:
11034     SWIG_croak_null();
11035   }
11036 }
11037 
11038 
XS(_wrap_gsl_complex_arccos_real)11039 XS(_wrap_gsl_complex_arccos_real) {
11040   {
11041     double arg1 ;
11042     double val1 ;
11043     int ecode1 = 0 ;
11044     int argvi = 0;
11045     gsl_complex result;
11046     dXSARGS;
11047 
11048     if ((items < 1) || (items > 1)) {
11049       SWIG_croak("Usage: gsl_complex_arccos_real(a);");
11050     }
11051     ecode1 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
11052     if (!SWIG_IsOK(ecode1)) {
11053       SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_complex_arccos_real" "', argument " "1"" of type '" "double""'");
11054     }
11055     arg1 = (double)(val1);
11056     result = gsl_complex_arccos_real(arg1);
11057     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++ ;
11058 
11059     XSRETURN(argvi);
11060   fail:
11061 
11062     SWIG_croak_null();
11063   }
11064 }
11065 
11066 
XS(_wrap_gsl_complex_arcsec)11067 XS(_wrap_gsl_complex_arcsec) {
11068   {
11069     gsl_complex arg1 ;
11070     void *argp1 ;
11071     int res1 = 0 ;
11072     int argvi = 0;
11073     gsl_complex result;
11074     dXSARGS;
11075 
11076     if ((items < 1) || (items > 1)) {
11077       SWIG_croak("Usage: gsl_complex_arcsec(a);");
11078     }
11079     {
11080       res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex,  0 );
11081       if (!SWIG_IsOK(res1)) {
11082         SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_arcsec" "', argument " "1"" of type '" "gsl_complex""'");
11083       }
11084       if (!argp1) {
11085         SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_arcsec" "', argument " "1"" of type '" "gsl_complex""'");
11086       } else {
11087         arg1 = *((gsl_complex *)(argp1));
11088       }
11089     }
11090     result = gsl_complex_arcsec(arg1);
11091     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++ ;
11092     XSRETURN(argvi);
11093   fail:
11094     SWIG_croak_null();
11095   }
11096 }
11097 
11098 
XS(_wrap_gsl_complex_arcsec_real)11099 XS(_wrap_gsl_complex_arcsec_real) {
11100   {
11101     double arg1 ;
11102     double val1 ;
11103     int ecode1 = 0 ;
11104     int argvi = 0;
11105     gsl_complex result;
11106     dXSARGS;
11107 
11108     if ((items < 1) || (items > 1)) {
11109       SWIG_croak("Usage: gsl_complex_arcsec_real(a);");
11110     }
11111     ecode1 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
11112     if (!SWIG_IsOK(ecode1)) {
11113       SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_complex_arcsec_real" "', argument " "1"" of type '" "double""'");
11114     }
11115     arg1 = (double)(val1);
11116     result = gsl_complex_arcsec_real(arg1);
11117     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++ ;
11118 
11119     XSRETURN(argvi);
11120   fail:
11121 
11122     SWIG_croak_null();
11123   }
11124 }
11125 
11126 
XS(_wrap_gsl_complex_arccsc)11127 XS(_wrap_gsl_complex_arccsc) {
11128   {
11129     gsl_complex arg1 ;
11130     void *argp1 ;
11131     int res1 = 0 ;
11132     int argvi = 0;
11133     gsl_complex result;
11134     dXSARGS;
11135 
11136     if ((items < 1) || (items > 1)) {
11137       SWIG_croak("Usage: gsl_complex_arccsc(a);");
11138     }
11139     {
11140       res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex,  0 );
11141       if (!SWIG_IsOK(res1)) {
11142         SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_arccsc" "', argument " "1"" of type '" "gsl_complex""'");
11143       }
11144       if (!argp1) {
11145         SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_arccsc" "', argument " "1"" of type '" "gsl_complex""'");
11146       } else {
11147         arg1 = *((gsl_complex *)(argp1));
11148       }
11149     }
11150     result = gsl_complex_arccsc(arg1);
11151     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++ ;
11152     XSRETURN(argvi);
11153   fail:
11154     SWIG_croak_null();
11155   }
11156 }
11157 
11158 
XS(_wrap_gsl_complex_arccsc_real)11159 XS(_wrap_gsl_complex_arccsc_real) {
11160   {
11161     double arg1 ;
11162     double val1 ;
11163     int ecode1 = 0 ;
11164     int argvi = 0;
11165     gsl_complex result;
11166     dXSARGS;
11167 
11168     if ((items < 1) || (items > 1)) {
11169       SWIG_croak("Usage: gsl_complex_arccsc_real(a);");
11170     }
11171     ecode1 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
11172     if (!SWIG_IsOK(ecode1)) {
11173       SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_complex_arccsc_real" "', argument " "1"" of type '" "double""'");
11174     }
11175     arg1 = (double)(val1);
11176     result = gsl_complex_arccsc_real(arg1);
11177     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++ ;
11178 
11179     XSRETURN(argvi);
11180   fail:
11181 
11182     SWIG_croak_null();
11183   }
11184 }
11185 
11186 
XS(_wrap_gsl_complex_arctan)11187 XS(_wrap_gsl_complex_arctan) {
11188   {
11189     gsl_complex arg1 ;
11190     void *argp1 ;
11191     int res1 = 0 ;
11192     int argvi = 0;
11193     gsl_complex result;
11194     dXSARGS;
11195 
11196     if ((items < 1) || (items > 1)) {
11197       SWIG_croak("Usage: gsl_complex_arctan(a);");
11198     }
11199     {
11200       res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex,  0 );
11201       if (!SWIG_IsOK(res1)) {
11202         SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_arctan" "', argument " "1"" of type '" "gsl_complex""'");
11203       }
11204       if (!argp1) {
11205         SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_arctan" "', argument " "1"" of type '" "gsl_complex""'");
11206       } else {
11207         arg1 = *((gsl_complex *)(argp1));
11208       }
11209     }
11210     result = gsl_complex_arctan(arg1);
11211     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++ ;
11212     XSRETURN(argvi);
11213   fail:
11214     SWIG_croak_null();
11215   }
11216 }
11217 
11218 
XS(_wrap_gsl_complex_arccot)11219 XS(_wrap_gsl_complex_arccot) {
11220   {
11221     gsl_complex arg1 ;
11222     void *argp1 ;
11223     int res1 = 0 ;
11224     int argvi = 0;
11225     gsl_complex result;
11226     dXSARGS;
11227 
11228     if ((items < 1) || (items > 1)) {
11229       SWIG_croak("Usage: gsl_complex_arccot(a);");
11230     }
11231     {
11232       res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex,  0 );
11233       if (!SWIG_IsOK(res1)) {
11234         SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_arccot" "', argument " "1"" of type '" "gsl_complex""'");
11235       }
11236       if (!argp1) {
11237         SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_arccot" "', argument " "1"" of type '" "gsl_complex""'");
11238       } else {
11239         arg1 = *((gsl_complex *)(argp1));
11240       }
11241     }
11242     result = gsl_complex_arccot(arg1);
11243     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++ ;
11244     XSRETURN(argvi);
11245   fail:
11246     SWIG_croak_null();
11247   }
11248 }
11249 
11250 
XS(_wrap_gsl_complex_sinh)11251 XS(_wrap_gsl_complex_sinh) {
11252   {
11253     gsl_complex arg1 ;
11254     void *argp1 ;
11255     int res1 = 0 ;
11256     int argvi = 0;
11257     gsl_complex result;
11258     dXSARGS;
11259 
11260     if ((items < 1) || (items > 1)) {
11261       SWIG_croak("Usage: gsl_complex_sinh(a);");
11262     }
11263     {
11264       res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex,  0 );
11265       if (!SWIG_IsOK(res1)) {
11266         SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_sinh" "', argument " "1"" of type '" "gsl_complex""'");
11267       }
11268       if (!argp1) {
11269         SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_sinh" "', argument " "1"" of type '" "gsl_complex""'");
11270       } else {
11271         arg1 = *((gsl_complex *)(argp1));
11272       }
11273     }
11274     result = gsl_complex_sinh(arg1);
11275     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++ ;
11276     XSRETURN(argvi);
11277   fail:
11278     SWIG_croak_null();
11279   }
11280 }
11281 
11282 
XS(_wrap_gsl_complex_cosh)11283 XS(_wrap_gsl_complex_cosh) {
11284   {
11285     gsl_complex arg1 ;
11286     void *argp1 ;
11287     int res1 = 0 ;
11288     int argvi = 0;
11289     gsl_complex result;
11290     dXSARGS;
11291 
11292     if ((items < 1) || (items > 1)) {
11293       SWIG_croak("Usage: gsl_complex_cosh(a);");
11294     }
11295     {
11296       res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex,  0 );
11297       if (!SWIG_IsOK(res1)) {
11298         SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_cosh" "', argument " "1"" of type '" "gsl_complex""'");
11299       }
11300       if (!argp1) {
11301         SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_cosh" "', argument " "1"" of type '" "gsl_complex""'");
11302       } else {
11303         arg1 = *((gsl_complex *)(argp1));
11304       }
11305     }
11306     result = gsl_complex_cosh(arg1);
11307     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++ ;
11308     XSRETURN(argvi);
11309   fail:
11310     SWIG_croak_null();
11311   }
11312 }
11313 
11314 
XS(_wrap_gsl_complex_sech)11315 XS(_wrap_gsl_complex_sech) {
11316   {
11317     gsl_complex arg1 ;
11318     void *argp1 ;
11319     int res1 = 0 ;
11320     int argvi = 0;
11321     gsl_complex result;
11322     dXSARGS;
11323 
11324     if ((items < 1) || (items > 1)) {
11325       SWIG_croak("Usage: gsl_complex_sech(a);");
11326     }
11327     {
11328       res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex,  0 );
11329       if (!SWIG_IsOK(res1)) {
11330         SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_sech" "', argument " "1"" of type '" "gsl_complex""'");
11331       }
11332       if (!argp1) {
11333         SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_sech" "', argument " "1"" of type '" "gsl_complex""'");
11334       } else {
11335         arg1 = *((gsl_complex *)(argp1));
11336       }
11337     }
11338     result = gsl_complex_sech(arg1);
11339     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++ ;
11340     XSRETURN(argvi);
11341   fail:
11342     SWIG_croak_null();
11343   }
11344 }
11345 
11346 
XS(_wrap_gsl_complex_csch)11347 XS(_wrap_gsl_complex_csch) {
11348   {
11349     gsl_complex arg1 ;
11350     void *argp1 ;
11351     int res1 = 0 ;
11352     int argvi = 0;
11353     gsl_complex result;
11354     dXSARGS;
11355 
11356     if ((items < 1) || (items > 1)) {
11357       SWIG_croak("Usage: gsl_complex_csch(a);");
11358     }
11359     {
11360       res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex,  0 );
11361       if (!SWIG_IsOK(res1)) {
11362         SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_csch" "', argument " "1"" of type '" "gsl_complex""'");
11363       }
11364       if (!argp1) {
11365         SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_csch" "', argument " "1"" of type '" "gsl_complex""'");
11366       } else {
11367         arg1 = *((gsl_complex *)(argp1));
11368       }
11369     }
11370     result = gsl_complex_csch(arg1);
11371     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++ ;
11372     XSRETURN(argvi);
11373   fail:
11374     SWIG_croak_null();
11375   }
11376 }
11377 
11378 
XS(_wrap_gsl_complex_tanh)11379 XS(_wrap_gsl_complex_tanh) {
11380   {
11381     gsl_complex arg1 ;
11382     void *argp1 ;
11383     int res1 = 0 ;
11384     int argvi = 0;
11385     gsl_complex result;
11386     dXSARGS;
11387 
11388     if ((items < 1) || (items > 1)) {
11389       SWIG_croak("Usage: gsl_complex_tanh(a);");
11390     }
11391     {
11392       res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex,  0 );
11393       if (!SWIG_IsOK(res1)) {
11394         SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_tanh" "', argument " "1"" of type '" "gsl_complex""'");
11395       }
11396       if (!argp1) {
11397         SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_tanh" "', argument " "1"" of type '" "gsl_complex""'");
11398       } else {
11399         arg1 = *((gsl_complex *)(argp1));
11400       }
11401     }
11402     result = gsl_complex_tanh(arg1);
11403     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++ ;
11404     XSRETURN(argvi);
11405   fail:
11406     SWIG_croak_null();
11407   }
11408 }
11409 
11410 
XS(_wrap_gsl_complex_coth)11411 XS(_wrap_gsl_complex_coth) {
11412   {
11413     gsl_complex arg1 ;
11414     void *argp1 ;
11415     int res1 = 0 ;
11416     int argvi = 0;
11417     gsl_complex result;
11418     dXSARGS;
11419 
11420     if ((items < 1) || (items > 1)) {
11421       SWIG_croak("Usage: gsl_complex_coth(a);");
11422     }
11423     {
11424       res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex,  0 );
11425       if (!SWIG_IsOK(res1)) {
11426         SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_coth" "', argument " "1"" of type '" "gsl_complex""'");
11427       }
11428       if (!argp1) {
11429         SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_coth" "', argument " "1"" of type '" "gsl_complex""'");
11430       } else {
11431         arg1 = *((gsl_complex *)(argp1));
11432       }
11433     }
11434     result = gsl_complex_coth(arg1);
11435     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++ ;
11436     XSRETURN(argvi);
11437   fail:
11438     SWIG_croak_null();
11439   }
11440 }
11441 
11442 
XS(_wrap_gsl_complex_arcsinh)11443 XS(_wrap_gsl_complex_arcsinh) {
11444   {
11445     gsl_complex arg1 ;
11446     void *argp1 ;
11447     int res1 = 0 ;
11448     int argvi = 0;
11449     gsl_complex result;
11450     dXSARGS;
11451 
11452     if ((items < 1) || (items > 1)) {
11453       SWIG_croak("Usage: gsl_complex_arcsinh(a);");
11454     }
11455     {
11456       res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex,  0 );
11457       if (!SWIG_IsOK(res1)) {
11458         SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_arcsinh" "', argument " "1"" of type '" "gsl_complex""'");
11459       }
11460       if (!argp1) {
11461         SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_arcsinh" "', argument " "1"" of type '" "gsl_complex""'");
11462       } else {
11463         arg1 = *((gsl_complex *)(argp1));
11464       }
11465     }
11466     result = gsl_complex_arcsinh(arg1);
11467     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++ ;
11468     XSRETURN(argvi);
11469   fail:
11470     SWIG_croak_null();
11471   }
11472 }
11473 
11474 
XS(_wrap_gsl_complex_arccosh)11475 XS(_wrap_gsl_complex_arccosh) {
11476   {
11477     gsl_complex arg1 ;
11478     void *argp1 ;
11479     int res1 = 0 ;
11480     int argvi = 0;
11481     gsl_complex result;
11482     dXSARGS;
11483 
11484     if ((items < 1) || (items > 1)) {
11485       SWIG_croak("Usage: gsl_complex_arccosh(a);");
11486     }
11487     {
11488       res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex,  0 );
11489       if (!SWIG_IsOK(res1)) {
11490         SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_arccosh" "', argument " "1"" of type '" "gsl_complex""'");
11491       }
11492       if (!argp1) {
11493         SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_arccosh" "', argument " "1"" of type '" "gsl_complex""'");
11494       } else {
11495         arg1 = *((gsl_complex *)(argp1));
11496       }
11497     }
11498     result = gsl_complex_arccosh(arg1);
11499     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++ ;
11500     XSRETURN(argvi);
11501   fail:
11502     SWIG_croak_null();
11503   }
11504 }
11505 
11506 
XS(_wrap_gsl_complex_arccosh_real)11507 XS(_wrap_gsl_complex_arccosh_real) {
11508   {
11509     double arg1 ;
11510     double val1 ;
11511     int ecode1 = 0 ;
11512     int argvi = 0;
11513     gsl_complex result;
11514     dXSARGS;
11515 
11516     if ((items < 1) || (items > 1)) {
11517       SWIG_croak("Usage: gsl_complex_arccosh_real(a);");
11518     }
11519     ecode1 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
11520     if (!SWIG_IsOK(ecode1)) {
11521       SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_complex_arccosh_real" "', argument " "1"" of type '" "double""'");
11522     }
11523     arg1 = (double)(val1);
11524     result = gsl_complex_arccosh_real(arg1);
11525     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++ ;
11526 
11527     XSRETURN(argvi);
11528   fail:
11529 
11530     SWIG_croak_null();
11531   }
11532 }
11533 
11534 
XS(_wrap_gsl_complex_arcsech)11535 XS(_wrap_gsl_complex_arcsech) {
11536   {
11537     gsl_complex arg1 ;
11538     void *argp1 ;
11539     int res1 = 0 ;
11540     int argvi = 0;
11541     gsl_complex result;
11542     dXSARGS;
11543 
11544     if ((items < 1) || (items > 1)) {
11545       SWIG_croak("Usage: gsl_complex_arcsech(a);");
11546     }
11547     {
11548       res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex,  0 );
11549       if (!SWIG_IsOK(res1)) {
11550         SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_arcsech" "', argument " "1"" of type '" "gsl_complex""'");
11551       }
11552       if (!argp1) {
11553         SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_arcsech" "', argument " "1"" of type '" "gsl_complex""'");
11554       } else {
11555         arg1 = *((gsl_complex *)(argp1));
11556       }
11557     }
11558     result = gsl_complex_arcsech(arg1);
11559     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++ ;
11560     XSRETURN(argvi);
11561   fail:
11562     SWIG_croak_null();
11563   }
11564 }
11565 
11566 
XS(_wrap_gsl_complex_arccsch)11567 XS(_wrap_gsl_complex_arccsch) {
11568   {
11569     gsl_complex arg1 ;
11570     void *argp1 ;
11571     int res1 = 0 ;
11572     int argvi = 0;
11573     gsl_complex result;
11574     dXSARGS;
11575 
11576     if ((items < 1) || (items > 1)) {
11577       SWIG_croak("Usage: gsl_complex_arccsch(a);");
11578     }
11579     {
11580       res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex,  0 );
11581       if (!SWIG_IsOK(res1)) {
11582         SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_arccsch" "', argument " "1"" of type '" "gsl_complex""'");
11583       }
11584       if (!argp1) {
11585         SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_arccsch" "', argument " "1"" of type '" "gsl_complex""'");
11586       } else {
11587         arg1 = *((gsl_complex *)(argp1));
11588       }
11589     }
11590     result = gsl_complex_arccsch(arg1);
11591     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++ ;
11592     XSRETURN(argvi);
11593   fail:
11594     SWIG_croak_null();
11595   }
11596 }
11597 
11598 
XS(_wrap_gsl_complex_arctanh)11599 XS(_wrap_gsl_complex_arctanh) {
11600   {
11601     gsl_complex arg1 ;
11602     void *argp1 ;
11603     int res1 = 0 ;
11604     int argvi = 0;
11605     gsl_complex result;
11606     dXSARGS;
11607 
11608     if ((items < 1) || (items > 1)) {
11609       SWIG_croak("Usage: gsl_complex_arctanh(a);");
11610     }
11611     {
11612       res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex,  0 );
11613       if (!SWIG_IsOK(res1)) {
11614         SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_arctanh" "', argument " "1"" of type '" "gsl_complex""'");
11615       }
11616       if (!argp1) {
11617         SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_arctanh" "', argument " "1"" of type '" "gsl_complex""'");
11618       } else {
11619         arg1 = *((gsl_complex *)(argp1));
11620       }
11621     }
11622     result = gsl_complex_arctanh(arg1);
11623     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++ ;
11624     XSRETURN(argvi);
11625   fail:
11626     SWIG_croak_null();
11627   }
11628 }
11629 
11630 
XS(_wrap_gsl_complex_arctanh_real)11631 XS(_wrap_gsl_complex_arctanh_real) {
11632   {
11633     double arg1 ;
11634     double val1 ;
11635     int ecode1 = 0 ;
11636     int argvi = 0;
11637     gsl_complex result;
11638     dXSARGS;
11639 
11640     if ((items < 1) || (items > 1)) {
11641       SWIG_croak("Usage: gsl_complex_arctanh_real(a);");
11642     }
11643     ecode1 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
11644     if (!SWIG_IsOK(ecode1)) {
11645       SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_complex_arctanh_real" "', argument " "1"" of type '" "double""'");
11646     }
11647     arg1 = (double)(val1);
11648     result = gsl_complex_arctanh_real(arg1);
11649     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++ ;
11650 
11651     XSRETURN(argvi);
11652   fail:
11653 
11654     SWIG_croak_null();
11655   }
11656 }
11657 
11658 
XS(_wrap_gsl_complex_arccoth)11659 XS(_wrap_gsl_complex_arccoth) {
11660   {
11661     gsl_complex arg1 ;
11662     void *argp1 ;
11663     int res1 = 0 ;
11664     int argvi = 0;
11665     gsl_complex result;
11666     dXSARGS;
11667 
11668     if ((items < 1) || (items > 1)) {
11669       SWIG_croak("Usage: gsl_complex_arccoth(a);");
11670     }
11671     {
11672       res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex,  0 );
11673       if (!SWIG_IsOK(res1)) {
11674         SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_arccoth" "', argument " "1"" of type '" "gsl_complex""'");
11675       }
11676       if (!argp1) {
11677         SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_arccoth" "', argument " "1"" of type '" "gsl_complex""'");
11678       } else {
11679         arg1 = *((gsl_complex *)(argp1));
11680       }
11681     }
11682     result = gsl_complex_arccoth(arg1);
11683     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++ ;
11684     XSRETURN(argvi);
11685   fail:
11686     SWIG_croak_null();
11687   }
11688 }
11689 
11690 
11691 
11692 /* -------- TYPE CONVERSION AND EQUIVALENCE RULES (BEGIN) -------- */
11693 
11694 static swig_type_info _swigt__p_FILE = {"_p_FILE", "FILE *", 0, 0, (void*)0, 0};
11695 static swig_type_info _swigt__p_char = {"_p_char", "char *", 0, 0, (void*)0, 0};
11696 static swig_type_info _swigt__p_double = {"_p_double", "double *", 0, 0, (void*)0, 0};
11697 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};
11698 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};
11699 static swig_type_info _swigt__p_float = {"_p_float", "float *", 0, 0, (void*)0, 0};
11700 static swig_type_info _swigt__p_gsl_complex = {"_p_gsl_complex", "gsl_complex *", 0, 0, (void*)"Math::GSL::Linalg::gsl_complex", 0};
11701 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};
11702 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};
11703 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};
11704 static swig_type_info _swigt__p_gsl_matrix = {"_p_gsl_matrix", "gsl_matrix *", 0, 0, (void*)0, 0};
11705 static swig_type_info _swigt__p_gsl_matrix_complex = {"_p_gsl_matrix_complex", "gsl_matrix_complex *", 0, 0, (void*)0, 0};
11706 static swig_type_info _swigt__p_gsl_mode_t = {"_p_gsl_mode_t", "gsl_mode_t *", 0, 0, (void*)0, 0};
11707 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};
11708 static swig_type_info _swigt__p_gsl_vector = {"_p_gsl_vector", "gsl_vector *", 0, 0, (void*)0, 0};
11709 static swig_type_info _swigt__p_gsl_vector_complex = {"_p_gsl_vector_complex", "gsl_vector_complex *", 0, 0, (void*)0, 0};
11710 static swig_type_info _swigt__p_int = {"_p_int", "int *", 0, 0, (void*)0, 0};
11711 static swig_type_info _swigt__p_long_double = {"_p_long_double", "long double *", 0, 0, (void*)0, 0};
11712 static swig_type_info _swigt__p_size_t = {"_p_size_t", "size_t *", 0, 0, (void*)0, 0};
11713 
11714 static swig_type_info *swig_type_initial[] = {
11715   &_swigt__p_FILE,
11716   &_swigt__p_char,
11717   &_swigt__p_double,
11718   &_swigt__p_f_p_q_const__char_p_q_const__char_int_int__void,
11719   &_swigt__p_f_p_q_const__char_p_q_const__char_int_p_q_const__char__void,
11720   &_swigt__p_float,
11721   &_swigt__p_gsl_complex,
11722   &_swigt__p_gsl_complex_float,
11723   &_swigt__p_gsl_complex_long_double,
11724   &_swigt__p_gsl_linalg_matrix_mod_t,
11725   &_swigt__p_gsl_matrix,
11726   &_swigt__p_gsl_matrix_complex,
11727   &_swigt__p_gsl_mode_t,
11728   &_swigt__p_gsl_permutation_struct,
11729   &_swigt__p_gsl_vector,
11730   &_swigt__p_gsl_vector_complex,
11731   &_swigt__p_int,
11732   &_swigt__p_long_double,
11733   &_swigt__p_size_t,
11734 };
11735 
11736 static swig_cast_info _swigc__p_FILE[] = {  {&_swigt__p_FILE, 0, 0, 0},{0, 0, 0, 0}};
11737 static swig_cast_info _swigc__p_char[] = {  {&_swigt__p_char, 0, 0, 0},{0, 0, 0, 0}};
11738 static swig_cast_info _swigc__p_double[] = {  {&_swigt__p_double, 0, 0, 0},{0, 0, 0, 0}};
11739 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}};
11740 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}};
11741 static swig_cast_info _swigc__p_float[] = {  {&_swigt__p_float, 0, 0, 0},{0, 0, 0, 0}};
11742 static swig_cast_info _swigc__p_gsl_complex[] = {  {&_swigt__p_gsl_complex, 0, 0, 0},{0, 0, 0, 0}};
11743 static swig_cast_info _swigc__p_gsl_complex_float[] = {  {&_swigt__p_gsl_complex_float, 0, 0, 0},{0, 0, 0, 0}};
11744 static swig_cast_info _swigc__p_gsl_complex_long_double[] = {  {&_swigt__p_gsl_complex_long_double, 0, 0, 0},{0, 0, 0, 0}};
11745 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}};
11746 static swig_cast_info _swigc__p_gsl_matrix[] = {  {&_swigt__p_gsl_matrix, 0, 0, 0},{0, 0, 0, 0}};
11747 static swig_cast_info _swigc__p_gsl_matrix_complex[] = {  {&_swigt__p_gsl_matrix_complex, 0, 0, 0},{0, 0, 0, 0}};
11748 static swig_cast_info _swigc__p_gsl_mode_t[] = {  {&_swigt__p_gsl_mode_t, 0, 0, 0},{0, 0, 0, 0}};
11749 static swig_cast_info _swigc__p_gsl_permutation_struct[] = {  {&_swigt__p_gsl_permutation_struct, 0, 0, 0},{0, 0, 0, 0}};
11750 static swig_cast_info _swigc__p_gsl_vector[] = {  {&_swigt__p_gsl_vector, 0, 0, 0},{0, 0, 0, 0}};
11751 static swig_cast_info _swigc__p_gsl_vector_complex[] = {  {&_swigt__p_gsl_vector_complex, 0, 0, 0},{0, 0, 0, 0}};
11752 static swig_cast_info _swigc__p_int[] = {  {&_swigt__p_int, 0, 0, 0},{0, 0, 0, 0}};
11753 static swig_cast_info _swigc__p_long_double[] = {  {&_swigt__p_long_double, 0, 0, 0},{0, 0, 0, 0}};
11754 static swig_cast_info _swigc__p_size_t[] = {  {&_swigt__p_size_t, 0, 0, 0},{0, 0, 0, 0}};
11755 
11756 static swig_cast_info *swig_cast_initial[] = {
11757   _swigc__p_FILE,
11758   _swigc__p_char,
11759   _swigc__p_double,
11760   _swigc__p_f_p_q_const__char_p_q_const__char_int_int__void,
11761   _swigc__p_f_p_q_const__char_p_q_const__char_int_p_q_const__char__void,
11762   _swigc__p_float,
11763   _swigc__p_gsl_complex,
11764   _swigc__p_gsl_complex_float,
11765   _swigc__p_gsl_complex_long_double,
11766   _swigc__p_gsl_linalg_matrix_mod_t,
11767   _swigc__p_gsl_matrix,
11768   _swigc__p_gsl_matrix_complex,
11769   _swigc__p_gsl_mode_t,
11770   _swigc__p_gsl_permutation_struct,
11771   _swigc__p_gsl_vector,
11772   _swigc__p_gsl_vector_complex,
11773   _swigc__p_int,
11774   _swigc__p_long_double,
11775   _swigc__p_size_t,
11776 };
11777 
11778 
11779 /* -------- TYPE CONVERSION AND EQUIVALENCE RULES (END) -------- */
11780 
11781 static swig_constant_info swig_constants[] = {
11782 {0,0,0,0,0,0}
11783 };
11784 #ifdef __cplusplus
11785 }
11786 #endif
11787 static swig_variable_info swig_variables[] = {
11788 {0,0,0,0}
11789 };
11790 static swig_command_info swig_commands[] = {
11791 {"Math::GSL::Linalgc::gsl_error", _wrap_gsl_error},
11792 {"Math::GSL::Linalgc::gsl_stream_printf", _wrap_gsl_stream_printf},
11793 {"Math::GSL::Linalgc::gsl_strerror", _wrap_gsl_strerror},
11794 {"Math::GSL::Linalgc::gsl_set_error_handler", _wrap_gsl_set_error_handler},
11795 {"Math::GSL::Linalgc::gsl_set_error_handler_off", _wrap_gsl_set_error_handler_off},
11796 {"Math::GSL::Linalgc::gsl_set_stream_handler", _wrap_gsl_set_stream_handler},
11797 {"Math::GSL::Linalgc::gsl_set_stream", _wrap_gsl_set_stream},
11798 {"Math::GSL::Linalgc::gsl_linalg_matmult", _wrap_gsl_linalg_matmult},
11799 {"Math::GSL::Linalgc::gsl_linalg_matmult_mod", _wrap_gsl_linalg_matmult_mod},
11800 {"Math::GSL::Linalgc::gsl_linalg_exponential_ss", _wrap_gsl_linalg_exponential_ss},
11801 {"Math::GSL::Linalgc::gsl_linalg_householder_transform", _wrap_gsl_linalg_householder_transform},
11802 {"Math::GSL::Linalgc::gsl_linalg_complex_householder_transform", _wrap_gsl_linalg_complex_householder_transform},
11803 {"Math::GSL::Linalgc::gsl_linalg_householder_hm", _wrap_gsl_linalg_householder_hm},
11804 {"Math::GSL::Linalgc::gsl_linalg_householder_mh", _wrap_gsl_linalg_householder_mh},
11805 {"Math::GSL::Linalgc::gsl_linalg_householder_hv", _wrap_gsl_linalg_householder_hv},
11806 {"Math::GSL::Linalgc::gsl_linalg_householder_hm1", _wrap_gsl_linalg_householder_hm1},
11807 {"Math::GSL::Linalgc::gsl_linalg_complex_householder_hm", _wrap_gsl_linalg_complex_householder_hm},
11808 {"Math::GSL::Linalgc::gsl_linalg_complex_householder_mh", _wrap_gsl_linalg_complex_householder_mh},
11809 {"Math::GSL::Linalgc::gsl_linalg_complex_householder_hv", _wrap_gsl_linalg_complex_householder_hv},
11810 {"Math::GSL::Linalgc::gsl_linalg_hessenberg_decomp", _wrap_gsl_linalg_hessenberg_decomp},
11811 {"Math::GSL::Linalgc::gsl_linalg_hessenberg_unpack", _wrap_gsl_linalg_hessenberg_unpack},
11812 {"Math::GSL::Linalgc::gsl_linalg_hessenberg_unpack_accum", _wrap_gsl_linalg_hessenberg_unpack_accum},
11813 {"Math::GSL::Linalgc::gsl_linalg_hessenberg_set_zero", _wrap_gsl_linalg_hessenberg_set_zero},
11814 {"Math::GSL::Linalgc::gsl_linalg_hessenberg_submatrix", _wrap_gsl_linalg_hessenberg_submatrix},
11815 {"Math::GSL::Linalgc::gsl_linalg_hesstri_decomp", _wrap_gsl_linalg_hesstri_decomp},
11816 {"Math::GSL::Linalgc::gsl_linalg_SV_decomp", _wrap_gsl_linalg_SV_decomp},
11817 {"Math::GSL::Linalgc::gsl_linalg_SV_decomp_mod", _wrap_gsl_linalg_SV_decomp_mod},
11818 {"Math::GSL::Linalgc::gsl_linalg_SV_decomp_jacobi", _wrap_gsl_linalg_SV_decomp_jacobi},
11819 {"Math::GSL::Linalgc::gsl_linalg_SV_solve", _wrap_gsl_linalg_SV_solve},
11820 {"Math::GSL::Linalgc::gsl_linalg_SV_leverage", _wrap_gsl_linalg_SV_leverage},
11821 {"Math::GSL::Linalgc::gsl_linalg_LU_decomp", _wrap_gsl_linalg_LU_decomp},
11822 {"Math::GSL::Linalgc::gsl_linalg_LU_solve", _wrap_gsl_linalg_LU_solve},
11823 {"Math::GSL::Linalgc::gsl_linalg_LU_svx", _wrap_gsl_linalg_LU_svx},
11824 {"Math::GSL::Linalgc::gsl_linalg_LU_refine", _wrap_gsl_linalg_LU_refine},
11825 {"Math::GSL::Linalgc::gsl_linalg_LU_invert", _wrap_gsl_linalg_LU_invert},
11826 {"Math::GSL::Linalgc::gsl_linalg_LU_det", _wrap_gsl_linalg_LU_det},
11827 {"Math::GSL::Linalgc::gsl_linalg_LU_lndet", _wrap_gsl_linalg_LU_lndet},
11828 {"Math::GSL::Linalgc::gsl_linalg_LU_sgndet", _wrap_gsl_linalg_LU_sgndet},
11829 {"Math::GSL::Linalgc::gsl_linalg_complex_LU_decomp", _wrap_gsl_linalg_complex_LU_decomp},
11830 {"Math::GSL::Linalgc::gsl_linalg_complex_LU_solve", _wrap_gsl_linalg_complex_LU_solve},
11831 {"Math::GSL::Linalgc::gsl_linalg_complex_LU_svx", _wrap_gsl_linalg_complex_LU_svx},
11832 {"Math::GSL::Linalgc::gsl_linalg_complex_LU_refine", _wrap_gsl_linalg_complex_LU_refine},
11833 {"Math::GSL::Linalgc::gsl_linalg_complex_LU_invert", _wrap_gsl_linalg_complex_LU_invert},
11834 {"Math::GSL::Linalgc::gsl_linalg_complex_LU_det", _wrap_gsl_linalg_complex_LU_det},
11835 {"Math::GSL::Linalgc::gsl_linalg_complex_LU_lndet", _wrap_gsl_linalg_complex_LU_lndet},
11836 {"Math::GSL::Linalgc::gsl_linalg_complex_LU_sgndet", _wrap_gsl_linalg_complex_LU_sgndet},
11837 {"Math::GSL::Linalgc::gsl_linalg_QR_decomp", _wrap_gsl_linalg_QR_decomp},
11838 {"Math::GSL::Linalgc::gsl_linalg_QR_solve", _wrap_gsl_linalg_QR_solve},
11839 {"Math::GSL::Linalgc::gsl_linalg_QR_svx", _wrap_gsl_linalg_QR_svx},
11840 {"Math::GSL::Linalgc::gsl_linalg_QR_lssolve", _wrap_gsl_linalg_QR_lssolve},
11841 {"Math::GSL::Linalgc::gsl_linalg_QR_QRsolve", _wrap_gsl_linalg_QR_QRsolve},
11842 {"Math::GSL::Linalgc::gsl_linalg_QR_Rsolve", _wrap_gsl_linalg_QR_Rsolve},
11843 {"Math::GSL::Linalgc::gsl_linalg_QR_Rsvx", _wrap_gsl_linalg_QR_Rsvx},
11844 {"Math::GSL::Linalgc::gsl_linalg_QR_update", _wrap_gsl_linalg_QR_update},
11845 {"Math::GSL::Linalgc::gsl_linalg_QR_QTvec", _wrap_gsl_linalg_QR_QTvec},
11846 {"Math::GSL::Linalgc::gsl_linalg_QR_Qvec", _wrap_gsl_linalg_QR_Qvec},
11847 {"Math::GSL::Linalgc::gsl_linalg_QR_QTmat", _wrap_gsl_linalg_QR_QTmat},
11848 {"Math::GSL::Linalgc::gsl_linalg_QR_matQ", _wrap_gsl_linalg_QR_matQ},
11849 {"Math::GSL::Linalgc::gsl_linalg_QR_unpack", _wrap_gsl_linalg_QR_unpack},
11850 {"Math::GSL::Linalgc::gsl_linalg_R_solve", _wrap_gsl_linalg_R_solve},
11851 {"Math::GSL::Linalgc::gsl_linalg_R_svx", _wrap_gsl_linalg_R_svx},
11852 {"Math::GSL::Linalgc::gsl_linalg_QRPT_decomp", _wrap_gsl_linalg_QRPT_decomp},
11853 {"Math::GSL::Linalgc::gsl_linalg_QRPT_decomp2", _wrap_gsl_linalg_QRPT_decomp2},
11854 {"Math::GSL::Linalgc::gsl_linalg_QRPT_solve", _wrap_gsl_linalg_QRPT_solve},
11855 {"Math::GSL::Linalgc::gsl_linalg_QRPT_svx", _wrap_gsl_linalg_QRPT_svx},
11856 {"Math::GSL::Linalgc::gsl_linalg_QRPT_QRsolve", _wrap_gsl_linalg_QRPT_QRsolve},
11857 {"Math::GSL::Linalgc::gsl_linalg_QRPT_Rsolve", _wrap_gsl_linalg_QRPT_Rsolve},
11858 {"Math::GSL::Linalgc::gsl_linalg_QRPT_Rsvx", _wrap_gsl_linalg_QRPT_Rsvx},
11859 {"Math::GSL::Linalgc::gsl_linalg_QRPT_update", _wrap_gsl_linalg_QRPT_update},
11860 {"Math::GSL::Linalgc::gsl_linalg_LQ_decomp", _wrap_gsl_linalg_LQ_decomp},
11861 {"Math::GSL::Linalgc::gsl_linalg_LQ_solve_T", _wrap_gsl_linalg_LQ_solve_T},
11862 {"Math::GSL::Linalgc::gsl_linalg_LQ_svx_T", _wrap_gsl_linalg_LQ_svx_T},
11863 {"Math::GSL::Linalgc::gsl_linalg_LQ_lssolve_T", _wrap_gsl_linalg_LQ_lssolve_T},
11864 {"Math::GSL::Linalgc::gsl_linalg_LQ_Lsolve_T", _wrap_gsl_linalg_LQ_Lsolve_T},
11865 {"Math::GSL::Linalgc::gsl_linalg_LQ_Lsvx_T", _wrap_gsl_linalg_LQ_Lsvx_T},
11866 {"Math::GSL::Linalgc::gsl_linalg_L_solve_T", _wrap_gsl_linalg_L_solve_T},
11867 {"Math::GSL::Linalgc::gsl_linalg_LQ_vecQ", _wrap_gsl_linalg_LQ_vecQ},
11868 {"Math::GSL::Linalgc::gsl_linalg_LQ_vecQT", _wrap_gsl_linalg_LQ_vecQT},
11869 {"Math::GSL::Linalgc::gsl_linalg_LQ_unpack", _wrap_gsl_linalg_LQ_unpack},
11870 {"Math::GSL::Linalgc::gsl_linalg_LQ_update", _wrap_gsl_linalg_LQ_update},
11871 {"Math::GSL::Linalgc::gsl_linalg_LQ_LQsolve", _wrap_gsl_linalg_LQ_LQsolve},
11872 {"Math::GSL::Linalgc::gsl_linalg_PTLQ_decomp", _wrap_gsl_linalg_PTLQ_decomp},
11873 {"Math::GSL::Linalgc::gsl_linalg_PTLQ_decomp2", _wrap_gsl_linalg_PTLQ_decomp2},
11874 {"Math::GSL::Linalgc::gsl_linalg_PTLQ_solve_T", _wrap_gsl_linalg_PTLQ_solve_T},
11875 {"Math::GSL::Linalgc::gsl_linalg_PTLQ_svx_T", _wrap_gsl_linalg_PTLQ_svx_T},
11876 {"Math::GSL::Linalgc::gsl_linalg_PTLQ_LQsolve_T", _wrap_gsl_linalg_PTLQ_LQsolve_T},
11877 {"Math::GSL::Linalgc::gsl_linalg_PTLQ_Lsolve_T", _wrap_gsl_linalg_PTLQ_Lsolve_T},
11878 {"Math::GSL::Linalgc::gsl_linalg_PTLQ_Lsvx_T", _wrap_gsl_linalg_PTLQ_Lsvx_T},
11879 {"Math::GSL::Linalgc::gsl_linalg_PTLQ_update", _wrap_gsl_linalg_PTLQ_update},
11880 {"Math::GSL::Linalgc::gsl_linalg_cholesky_decomp", _wrap_gsl_linalg_cholesky_decomp},
11881 {"Math::GSL::Linalgc::gsl_linalg_cholesky_solve", _wrap_gsl_linalg_cholesky_solve},
11882 {"Math::GSL::Linalgc::gsl_linalg_cholesky_svx", _wrap_gsl_linalg_cholesky_svx},
11883 {"Math::GSL::Linalgc::gsl_linalg_cholesky_invert", _wrap_gsl_linalg_cholesky_invert},
11884 {"Math::GSL::Linalgc::gsl_linalg_cholesky_decomp_unit", _wrap_gsl_linalg_cholesky_decomp_unit},
11885 {"Math::GSL::Linalgc::gsl_linalg_complex_cholesky_decomp", _wrap_gsl_linalg_complex_cholesky_decomp},
11886 {"Math::GSL::Linalgc::gsl_linalg_complex_cholesky_solve", _wrap_gsl_linalg_complex_cholesky_solve},
11887 {"Math::GSL::Linalgc::gsl_linalg_complex_cholesky_svx", _wrap_gsl_linalg_complex_cholesky_svx},
11888 {"Math::GSL::Linalgc::gsl_linalg_complex_cholesky_invert", _wrap_gsl_linalg_complex_cholesky_invert},
11889 {"Math::GSL::Linalgc::gsl_linalg_symmtd_decomp", _wrap_gsl_linalg_symmtd_decomp},
11890 {"Math::GSL::Linalgc::gsl_linalg_symmtd_unpack", _wrap_gsl_linalg_symmtd_unpack},
11891 {"Math::GSL::Linalgc::gsl_linalg_symmtd_unpack_T", _wrap_gsl_linalg_symmtd_unpack_T},
11892 {"Math::GSL::Linalgc::gsl_linalg_hermtd_decomp", _wrap_gsl_linalg_hermtd_decomp},
11893 {"Math::GSL::Linalgc::gsl_linalg_hermtd_unpack", _wrap_gsl_linalg_hermtd_unpack},
11894 {"Math::GSL::Linalgc::gsl_linalg_hermtd_unpack_T", _wrap_gsl_linalg_hermtd_unpack_T},
11895 {"Math::GSL::Linalgc::gsl_linalg_HH_solve", _wrap_gsl_linalg_HH_solve},
11896 {"Math::GSL::Linalgc::gsl_linalg_HH_svx", _wrap_gsl_linalg_HH_svx},
11897 {"Math::GSL::Linalgc::gsl_linalg_solve_symm_tridiag", _wrap_gsl_linalg_solve_symm_tridiag},
11898 {"Math::GSL::Linalgc::gsl_linalg_solve_tridiag", _wrap_gsl_linalg_solve_tridiag},
11899 {"Math::GSL::Linalgc::gsl_linalg_solve_symm_cyc_tridiag", _wrap_gsl_linalg_solve_symm_cyc_tridiag},
11900 {"Math::GSL::Linalgc::gsl_linalg_solve_cyc_tridiag", _wrap_gsl_linalg_solve_cyc_tridiag},
11901 {"Math::GSL::Linalgc::gsl_linalg_bidiag_decomp", _wrap_gsl_linalg_bidiag_decomp},
11902 {"Math::GSL::Linalgc::gsl_linalg_bidiag_unpack", _wrap_gsl_linalg_bidiag_unpack},
11903 {"Math::GSL::Linalgc::gsl_linalg_bidiag_unpack2", _wrap_gsl_linalg_bidiag_unpack2},
11904 {"Math::GSL::Linalgc::gsl_linalg_bidiag_unpack_B", _wrap_gsl_linalg_bidiag_unpack_B},
11905 {"Math::GSL::Linalgc::gsl_linalg_balance_matrix", _wrap_gsl_linalg_balance_matrix},
11906 {"Math::GSL::Linalgc::gsl_linalg_balance_accum", _wrap_gsl_linalg_balance_accum},
11907 {"Math::GSL::Linalgc::gsl_linalg_balance_columns", _wrap_gsl_linalg_balance_columns},
11908 {"Math::GSL::Linalgc::gsl_linalg_givens", _wrap_gsl_linalg_givens},
11909 {"Math::GSL::Linalgc::gsl_linalg_givens_gv", _wrap_gsl_linalg_givens_gv},
11910 {"Math::GSL::Linalgc::gsl_permutation_struct_size_set", _wrap_gsl_permutation_struct_size_set},
11911 {"Math::GSL::Linalgc::gsl_permutation_struct_size_get", _wrap_gsl_permutation_struct_size_get},
11912 {"Math::GSL::Linalgc::gsl_permutation_struct_data_set", _wrap_gsl_permutation_struct_data_set},
11913 {"Math::GSL::Linalgc::gsl_permutation_struct_data_get", _wrap_gsl_permutation_struct_data_get},
11914 {"Math::GSL::Linalgc::new_gsl_permutation_struct", _wrap_new_gsl_permutation_struct},
11915 {"Math::GSL::Linalgc::delete_gsl_permutation_struct", _wrap_delete_gsl_permutation_struct},
11916 {"Math::GSL::Linalgc::gsl_permutation_alloc", _wrap_gsl_permutation_alloc},
11917 {"Math::GSL::Linalgc::gsl_permutation_calloc", _wrap_gsl_permutation_calloc},
11918 {"Math::GSL::Linalgc::gsl_permutation_init", _wrap_gsl_permutation_init},
11919 {"Math::GSL::Linalgc::gsl_permutation_free", _wrap_gsl_permutation_free},
11920 {"Math::GSL::Linalgc::gsl_permutation_memcpy", _wrap_gsl_permutation_memcpy},
11921 {"Math::GSL::Linalgc::gsl_permutation_fread", _wrap_gsl_permutation_fread},
11922 {"Math::GSL::Linalgc::gsl_permutation_fwrite", _wrap_gsl_permutation_fwrite},
11923 {"Math::GSL::Linalgc::gsl_permutation_fscanf", _wrap_gsl_permutation_fscanf},
11924 {"Math::GSL::Linalgc::gsl_permutation_fprintf", _wrap_gsl_permutation_fprintf},
11925 {"Math::GSL::Linalgc::gsl_permutation_size", _wrap_gsl_permutation_size},
11926 {"Math::GSL::Linalgc::gsl_permutation_data", _wrap_gsl_permutation_data},
11927 {"Math::GSL::Linalgc::gsl_permutation_swap", _wrap_gsl_permutation_swap},
11928 {"Math::GSL::Linalgc::gsl_permutation_valid", _wrap_gsl_permutation_valid},
11929 {"Math::GSL::Linalgc::gsl_permutation_reverse", _wrap_gsl_permutation_reverse},
11930 {"Math::GSL::Linalgc::gsl_permutation_inverse", _wrap_gsl_permutation_inverse},
11931 {"Math::GSL::Linalgc::gsl_permutation_next", _wrap_gsl_permutation_next},
11932 {"Math::GSL::Linalgc::gsl_permutation_prev", _wrap_gsl_permutation_prev},
11933 {"Math::GSL::Linalgc::gsl_permutation_mul", _wrap_gsl_permutation_mul},
11934 {"Math::GSL::Linalgc::gsl_permutation_linear_to_canonical", _wrap_gsl_permutation_linear_to_canonical},
11935 {"Math::GSL::Linalgc::gsl_permutation_canonical_to_linear", _wrap_gsl_permutation_canonical_to_linear},
11936 {"Math::GSL::Linalgc::gsl_permutation_inversions", _wrap_gsl_permutation_inversions},
11937 {"Math::GSL::Linalgc::gsl_permutation_linear_cycles", _wrap_gsl_permutation_linear_cycles},
11938 {"Math::GSL::Linalgc::gsl_permutation_canonical_cycles", _wrap_gsl_permutation_canonical_cycles},
11939 {"Math::GSL::Linalgc::gsl_permutation_get", _wrap_gsl_permutation_get},
11940 {"Math::GSL::Linalgc::gsl_complex_dat_set", _wrap_gsl_complex_dat_set},
11941 {"Math::GSL::Linalgc::gsl_complex_dat_get", _wrap_gsl_complex_dat_get},
11942 {"Math::GSL::Linalgc::new_gsl_complex", _wrap_new_gsl_complex},
11943 {"Math::GSL::Linalgc::delete_gsl_complex", _wrap_delete_gsl_complex},
11944 {"Math::GSL::Linalgc::gsl_complex_long_double_dat_set", _wrap_gsl_complex_long_double_dat_set},
11945 {"Math::GSL::Linalgc::gsl_complex_long_double_dat_get", _wrap_gsl_complex_long_double_dat_get},
11946 {"Math::GSL::Linalgc::new_gsl_complex_long_double", _wrap_new_gsl_complex_long_double},
11947 {"Math::GSL::Linalgc::delete_gsl_complex_long_double", _wrap_delete_gsl_complex_long_double},
11948 {"Math::GSL::Linalgc::gsl_complex_float_dat_set", _wrap_gsl_complex_float_dat_set},
11949 {"Math::GSL::Linalgc::gsl_complex_float_dat_get", _wrap_gsl_complex_float_dat_get},
11950 {"Math::GSL::Linalgc::new_gsl_complex_float", _wrap_new_gsl_complex_float},
11951 {"Math::GSL::Linalgc::delete_gsl_complex_float", _wrap_delete_gsl_complex_float},
11952 {"Math::GSL::Linalgc::gsl_complex_polar", _wrap_gsl_complex_polar},
11953 {"Math::GSL::Linalgc::gsl_complex_rect", _wrap_gsl_complex_rect},
11954 {"Math::GSL::Linalgc::gsl_complex_arg", _wrap_gsl_complex_arg},
11955 {"Math::GSL::Linalgc::gsl_complex_abs", _wrap_gsl_complex_abs},
11956 {"Math::GSL::Linalgc::gsl_complex_abs2", _wrap_gsl_complex_abs2},
11957 {"Math::GSL::Linalgc::gsl_complex_logabs", _wrap_gsl_complex_logabs},
11958 {"Math::GSL::Linalgc::gsl_complex_add", _wrap_gsl_complex_add},
11959 {"Math::GSL::Linalgc::gsl_complex_sub", _wrap_gsl_complex_sub},
11960 {"Math::GSL::Linalgc::gsl_complex_mul", _wrap_gsl_complex_mul},
11961 {"Math::GSL::Linalgc::gsl_complex_div", _wrap_gsl_complex_div},
11962 {"Math::GSL::Linalgc::gsl_complex_add_real", _wrap_gsl_complex_add_real},
11963 {"Math::GSL::Linalgc::gsl_complex_sub_real", _wrap_gsl_complex_sub_real},
11964 {"Math::GSL::Linalgc::gsl_complex_mul_real", _wrap_gsl_complex_mul_real},
11965 {"Math::GSL::Linalgc::gsl_complex_div_real", _wrap_gsl_complex_div_real},
11966 {"Math::GSL::Linalgc::gsl_complex_add_imag", _wrap_gsl_complex_add_imag},
11967 {"Math::GSL::Linalgc::gsl_complex_sub_imag", _wrap_gsl_complex_sub_imag},
11968 {"Math::GSL::Linalgc::gsl_complex_mul_imag", _wrap_gsl_complex_mul_imag},
11969 {"Math::GSL::Linalgc::gsl_complex_div_imag", _wrap_gsl_complex_div_imag},
11970 {"Math::GSL::Linalgc::gsl_complex_conjugate", _wrap_gsl_complex_conjugate},
11971 {"Math::GSL::Linalgc::gsl_complex_inverse", _wrap_gsl_complex_inverse},
11972 {"Math::GSL::Linalgc::gsl_complex_negative", _wrap_gsl_complex_negative},
11973 {"Math::GSL::Linalgc::gsl_complex_sqrt", _wrap_gsl_complex_sqrt},
11974 {"Math::GSL::Linalgc::gsl_complex_sqrt_real", _wrap_gsl_complex_sqrt_real},
11975 {"Math::GSL::Linalgc::gsl_complex_pow", _wrap_gsl_complex_pow},
11976 {"Math::GSL::Linalgc::gsl_complex_pow_real", _wrap_gsl_complex_pow_real},
11977 {"Math::GSL::Linalgc::gsl_complex_exp", _wrap_gsl_complex_exp},
11978 {"Math::GSL::Linalgc::gsl_complex_log", _wrap_gsl_complex_log},
11979 {"Math::GSL::Linalgc::gsl_complex_log10", _wrap_gsl_complex_log10},
11980 {"Math::GSL::Linalgc::gsl_complex_log_b", _wrap_gsl_complex_log_b},
11981 {"Math::GSL::Linalgc::gsl_complex_sin", _wrap_gsl_complex_sin},
11982 {"Math::GSL::Linalgc::gsl_complex_cos", _wrap_gsl_complex_cos},
11983 {"Math::GSL::Linalgc::gsl_complex_sec", _wrap_gsl_complex_sec},
11984 {"Math::GSL::Linalgc::gsl_complex_csc", _wrap_gsl_complex_csc},
11985 {"Math::GSL::Linalgc::gsl_complex_tan", _wrap_gsl_complex_tan},
11986 {"Math::GSL::Linalgc::gsl_complex_cot", _wrap_gsl_complex_cot},
11987 {"Math::GSL::Linalgc::gsl_complex_arcsin", _wrap_gsl_complex_arcsin},
11988 {"Math::GSL::Linalgc::gsl_complex_arcsin_real", _wrap_gsl_complex_arcsin_real},
11989 {"Math::GSL::Linalgc::gsl_complex_arccos", _wrap_gsl_complex_arccos},
11990 {"Math::GSL::Linalgc::gsl_complex_arccos_real", _wrap_gsl_complex_arccos_real},
11991 {"Math::GSL::Linalgc::gsl_complex_arcsec", _wrap_gsl_complex_arcsec},
11992 {"Math::GSL::Linalgc::gsl_complex_arcsec_real", _wrap_gsl_complex_arcsec_real},
11993 {"Math::GSL::Linalgc::gsl_complex_arccsc", _wrap_gsl_complex_arccsc},
11994 {"Math::GSL::Linalgc::gsl_complex_arccsc_real", _wrap_gsl_complex_arccsc_real},
11995 {"Math::GSL::Linalgc::gsl_complex_arctan", _wrap_gsl_complex_arctan},
11996 {"Math::GSL::Linalgc::gsl_complex_arccot", _wrap_gsl_complex_arccot},
11997 {"Math::GSL::Linalgc::gsl_complex_sinh", _wrap_gsl_complex_sinh},
11998 {"Math::GSL::Linalgc::gsl_complex_cosh", _wrap_gsl_complex_cosh},
11999 {"Math::GSL::Linalgc::gsl_complex_sech", _wrap_gsl_complex_sech},
12000 {"Math::GSL::Linalgc::gsl_complex_csch", _wrap_gsl_complex_csch},
12001 {"Math::GSL::Linalgc::gsl_complex_tanh", _wrap_gsl_complex_tanh},
12002 {"Math::GSL::Linalgc::gsl_complex_coth", _wrap_gsl_complex_coth},
12003 {"Math::GSL::Linalgc::gsl_complex_arcsinh", _wrap_gsl_complex_arcsinh},
12004 {"Math::GSL::Linalgc::gsl_complex_arccosh", _wrap_gsl_complex_arccosh},
12005 {"Math::GSL::Linalgc::gsl_complex_arccosh_real", _wrap_gsl_complex_arccosh_real},
12006 {"Math::GSL::Linalgc::gsl_complex_arcsech", _wrap_gsl_complex_arcsech},
12007 {"Math::GSL::Linalgc::gsl_complex_arccsch", _wrap_gsl_complex_arccsch},
12008 {"Math::GSL::Linalgc::gsl_complex_arctanh", _wrap_gsl_complex_arctanh},
12009 {"Math::GSL::Linalgc::gsl_complex_arctanh_real", _wrap_gsl_complex_arctanh_real},
12010 {"Math::GSL::Linalgc::gsl_complex_arccoth", _wrap_gsl_complex_arccoth},
12011 {0,0}
12012 };
12013 /* -----------------------------------------------------------------------------
12014  * Type initialization:
12015  * This problem is tough by the requirement that no dynamic
12016  * memory is used. Also, since swig_type_info structures store pointers to
12017  * swig_cast_info structures and swig_cast_info structures store pointers back
12018  * to swig_type_info structures, we need some lookup code at initialization.
12019  * The idea is that swig generates all the structures that are needed.
12020  * The runtime then collects these partially filled structures.
12021  * The SWIG_InitializeModule function takes these initial arrays out of
12022  * swig_module, and does all the lookup, filling in the swig_module.types
12023  * array with the correct data and linking the correct swig_cast_info
12024  * structures together.
12025  *
12026  * The generated swig_type_info structures are assigned statically to an initial
12027  * array. We just loop through that array, and handle each type individually.
12028  * First we lookup if this type has been already loaded, and if so, use the
12029  * loaded structure instead of the generated one. Then we have to fill in the
12030  * cast linked list. The cast data is initially stored in something like a
12031  * two-dimensional array. Each row corresponds to a type (there are the same
12032  * number of rows as there are in the swig_type_initial array). Each entry in
12033  * a column is one of the swig_cast_info structures for that type.
12034  * The cast_initial array is actually an array of arrays, because each row has
12035  * a variable number of columns. So to actually build the cast linked list,
12036  * we find the array of casts associated with the type, and loop through it
12037  * adding the casts to the list. The one last trick we need to do is making
12038  * sure the type pointer in the swig_cast_info struct is correct.
12039  *
12040  * First off, we lookup the cast->type name to see if it is already loaded.
12041  * There are three cases to handle:
12042  *  1) If the cast->type has already been loaded AND the type we are adding
12043  *     casting info to has not been loaded (it is in this module), THEN we
12044  *     replace the cast->type pointer with the type pointer that has already
12045  *     been loaded.
12046  *  2) If BOTH types (the one we are adding casting info to, and the
12047  *     cast->type) are loaded, THEN the cast info has already been loaded by
12048  *     the previous module so we just ignore it.
12049  *  3) Finally, if cast->type has not already been loaded, then we add that
12050  *     swig_cast_info to the linked list (because the cast->type) pointer will
12051  *     be correct.
12052  * ----------------------------------------------------------------------------- */
12053 
12054 #ifdef __cplusplus
12055 extern "C" {
12056 #if 0
12057 } /* c-mode */
12058 #endif
12059 #endif
12060 
12061 #if 0
12062 #define SWIGRUNTIME_DEBUG
12063 #endif
12064 
12065 
12066 SWIGRUNTIME void
SWIG_InitializeModule(void * clientdata)12067 SWIG_InitializeModule(void *clientdata) {
12068   size_t i;
12069   swig_module_info *module_head, *iter;
12070   int init;
12071 
12072   /* check to see if the circular list has been setup, if not, set it up */
12073   if (swig_module.next==0) {
12074     /* Initialize the swig_module */
12075     swig_module.type_initial = swig_type_initial;
12076     swig_module.cast_initial = swig_cast_initial;
12077     swig_module.next = &swig_module;
12078     init = 1;
12079   } else {
12080     init = 0;
12081   }
12082 
12083   /* Try and load any already created modules */
12084   module_head = SWIG_GetModule(clientdata);
12085   if (!module_head) {
12086     /* This is the first module loaded for this interpreter */
12087     /* so set the swig module into the interpreter */
12088     SWIG_SetModule(clientdata, &swig_module);
12089   } else {
12090     /* the interpreter has loaded a SWIG module, but has it loaded this one? */
12091     iter=module_head;
12092     do {
12093       if (iter==&swig_module) {
12094         /* Our module is already in the list, so there's nothing more to do. */
12095         return;
12096       }
12097       iter=iter->next;
12098     } while (iter!= module_head);
12099 
12100     /* otherwise we must add our module into the list */
12101     swig_module.next = module_head->next;
12102     module_head->next = &swig_module;
12103   }
12104 
12105   /* When multiple interpreters are used, a module could have already been initialized in
12106        a different interpreter, but not yet have a pointer in this interpreter.
12107        In this case, we do not want to continue adding types... everything should be
12108        set up already */
12109   if (init == 0) return;
12110 
12111   /* Now work on filling in swig_module.types */
12112 #ifdef SWIGRUNTIME_DEBUG
12113   printf("SWIG_InitializeModule: size %lu\n", (unsigned long)swig_module.size);
12114 #endif
12115   for (i = 0; i < swig_module.size; ++i) {
12116     swig_type_info *type = 0;
12117     swig_type_info *ret;
12118     swig_cast_info *cast;
12119 
12120 #ifdef SWIGRUNTIME_DEBUG
12121     printf("SWIG_InitializeModule: type %lu %s\n", (unsigned long)i, swig_module.type_initial[i]->name);
12122 #endif
12123 
12124     /* if there is another module already loaded */
12125     if (swig_module.next != &swig_module) {
12126       type = SWIG_MangledTypeQueryModule(swig_module.next, &swig_module, swig_module.type_initial[i]->name);
12127     }
12128     if (type) {
12129       /* Overwrite clientdata field */
12130 #ifdef SWIGRUNTIME_DEBUG
12131       printf("SWIG_InitializeModule: found type %s\n", type->name);
12132 #endif
12133       if (swig_module.type_initial[i]->clientdata) {
12134         type->clientdata = swig_module.type_initial[i]->clientdata;
12135 #ifdef SWIGRUNTIME_DEBUG
12136         printf("SWIG_InitializeModule: found and overwrite type %s \n", type->name);
12137 #endif
12138       }
12139     } else {
12140       type = swig_module.type_initial[i];
12141     }
12142 
12143     /* Insert casting types */
12144     cast = swig_module.cast_initial[i];
12145     while (cast->type) {
12146       /* Don't need to add information already in the list */
12147       ret = 0;
12148 #ifdef SWIGRUNTIME_DEBUG
12149       printf("SWIG_InitializeModule: look cast %s\n", cast->type->name);
12150 #endif
12151       if (swig_module.next != &swig_module) {
12152         ret = SWIG_MangledTypeQueryModule(swig_module.next, &swig_module, cast->type->name);
12153 #ifdef SWIGRUNTIME_DEBUG
12154         if (ret) printf("SWIG_InitializeModule: found cast %s\n", ret->name);
12155 #endif
12156       }
12157       if (ret) {
12158         if (type == swig_module.type_initial[i]) {
12159 #ifdef SWIGRUNTIME_DEBUG
12160           printf("SWIG_InitializeModule: skip old type %s\n", ret->name);
12161 #endif
12162           cast->type = ret;
12163           ret = 0;
12164         } else {
12165           /* Check for casting already in the list */
12166           swig_cast_info *ocast = SWIG_TypeCheck(ret->name, type);
12167 #ifdef SWIGRUNTIME_DEBUG
12168           if (ocast) printf("SWIG_InitializeModule: skip old cast %s\n", ret->name);
12169 #endif
12170           if (!ocast) ret = 0;
12171         }
12172       }
12173 
12174       if (!ret) {
12175 #ifdef SWIGRUNTIME_DEBUG
12176         printf("SWIG_InitializeModule: adding cast %s\n", cast->type->name);
12177 #endif
12178         if (type->cast) {
12179           type->cast->prev = cast;
12180           cast->next = type->cast;
12181         }
12182         type->cast = cast;
12183       }
12184       cast++;
12185     }
12186     /* Set entry in modules->types array equal to the type */
12187     swig_module.types[i] = type;
12188   }
12189   swig_module.types[i] = 0;
12190 
12191 #ifdef SWIGRUNTIME_DEBUG
12192   printf("**** SWIG_InitializeModule: Cast List ******\n");
12193   for (i = 0; i < swig_module.size; ++i) {
12194     int j = 0;
12195     swig_cast_info *cast = swig_module.cast_initial[i];
12196     printf("SWIG_InitializeModule: type %lu %s\n", (unsigned long)i, swig_module.type_initial[i]->name);
12197     while (cast->type) {
12198       printf("SWIG_InitializeModule: cast type %s\n", cast->type->name);
12199       cast++;
12200       ++j;
12201     }
12202     printf("---- Total casts: %d\n",j);
12203   }
12204   printf("**** SWIG_InitializeModule: Cast List ******\n");
12205 #endif
12206 }
12207 
12208 /* This function will propagate the clientdata field of type to
12209 * any new swig_type_info structures that have been added into the list
12210 * of equivalent types.  It is like calling
12211 * SWIG_TypeClientData(type, clientdata) a second time.
12212 */
12213 SWIGRUNTIME void
SWIG_PropagateClientData(void)12214 SWIG_PropagateClientData(void) {
12215   size_t i;
12216   swig_cast_info *equiv;
12217   static int init_run = 0;
12218 
12219   if (init_run) return;
12220   init_run = 1;
12221 
12222   for (i = 0; i < swig_module.size; i++) {
12223     if (swig_module.types[i]->clientdata) {
12224       equiv = swig_module.types[i]->cast;
12225       while (equiv) {
12226         if (!equiv->converter) {
12227           if (equiv->type && !equiv->type->clientdata)
12228           SWIG_TypeClientData(equiv->type, swig_module.types[i]->clientdata);
12229         }
12230         equiv = equiv->next;
12231       }
12232     }
12233   }
12234 }
12235 
12236 #ifdef __cplusplus
12237 #if 0
12238 {
12239   /* c-mode */
12240 #endif
12241 }
12242 #endif
12243 
12244 
12245 
12246 #if defined(__cplusplus) && ! defined(XSPROTO)
12247 extern "C"
12248 #endif
12249 
XS(SWIG_init)12250 XS(SWIG_init) {
12251   dXSARGS;
12252   int i;
12253   (void)items;
12254 
12255   SWIG_InitializeModule(0);
12256 
12257   /* Install commands */
12258   for (i = 0; swig_commands[i].name; i++) {
12259     /* Casts only needed for Perl < 5.10. */
12260 #ifdef __cplusplus
12261     newXS(const_cast<char*>(swig_commands[i].name), swig_commands[i].wrapper, const_cast<char*>(__FILE__));
12262 #else
12263     newXS((char*)swig_commands[i].name, swig_commands[i].wrapper, (char*)__FILE__);
12264 #endif
12265   }
12266 
12267   /* Install variables */
12268   for (i = 0; swig_variables[i].name; i++) {
12269     SV *sv;
12270     sv = get_sv(swig_variables[i].name, TRUE | 0x2 | GV_ADDMULTI);
12271     if (swig_variables[i].type) {
12272       SWIG_MakePtr(sv,(void *)1, *swig_variables[i].type,0);
12273     } else {
12274       sv_setiv(sv,(IV) 0);
12275     }
12276     swig_create_magic(sv, swig_variables[i].name, swig_variables[i].set, swig_variables[i].get);
12277   }
12278 
12279   /* Install constant */
12280   for (i = 0; swig_constants[i].type; i++) {
12281     SV *sv;
12282     sv = get_sv(swig_constants[i].name, TRUE | 0x2 | GV_ADDMULTI);
12283     switch(swig_constants[i].type) {
12284     case SWIG_INT:
12285       sv_setiv(sv, (IV) swig_constants[i].lvalue);
12286       break;
12287     case SWIG_FLOAT:
12288       sv_setnv(sv, (double) swig_constants[i].dvalue);
12289       break;
12290     case SWIG_STRING:
12291       sv_setpv(sv, (const char *) swig_constants[i].pvalue);
12292       break;
12293     case SWIG_POINTER:
12294       SWIG_MakePtr(sv, swig_constants[i].pvalue, *(swig_constants[i].ptype),0);
12295       break;
12296     case SWIG_BINARY:
12297       SWIG_MakePackedObj(sv, swig_constants[i].pvalue, swig_constants[i].lvalue, *(swig_constants[i].ptype));
12298       break;
12299     default:
12300       break;
12301     }
12302     SvREADONLY_on(sv);
12303   }
12304 
12305   /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12306     SV *sv = get_sv((char*) SWIG_prefix "GSL_VERSION", TRUE | 0x2 | GV_ADDMULTI);
12307     sv_setsv(sv, SWIG_From_double  SWIG_PERL_CALL_ARGS_1((double)(2.7)));
12308     SvREADONLY_on(sv);
12309   } while(0) /*@SWIG@*/;
12310   /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12311     SV *sv = get_sv((char*) SWIG_prefix "GSL_MAJOR_VERSION", TRUE | 0x2 | GV_ADDMULTI);
12312     sv_setsv(sv, SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(2)));
12313     SvREADONLY_on(sv);
12314   } while(0) /*@SWIG@*/;
12315   /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12316     SV *sv = get_sv((char*) SWIG_prefix "GSL_MINOR_VERSION", TRUE | 0x2 | GV_ADDMULTI);
12317     sv_setsv(sv, SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(7)));
12318     SvREADONLY_on(sv);
12319   } while(0) /*@SWIG@*/;
12320   /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12321     SV *sv = get_sv((char*) SWIG_prefix "GSL_POSZERO", TRUE | 0x2 | GV_ADDMULTI);
12322     sv_setsv(sv, SWIG_From_double  SWIG_PERL_CALL_ARGS_1((double)((+0.0))));
12323     SvREADONLY_on(sv);
12324   } while(0) /*@SWIG@*/;
12325   /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12326     SV *sv = get_sv((char*) SWIG_prefix "GSL_NEGZERO", TRUE | 0x2 | GV_ADDMULTI);
12327     sv_setsv(sv, SWIG_From_double  SWIG_PERL_CALL_ARGS_1((double)((-0.0))));
12328     SvREADONLY_on(sv);
12329   } while(0) /*@SWIG@*/;
12330   /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12331     SV *sv = get_sv((char*) SWIG_prefix "GSL_SUCCESS", TRUE | 0x2 | GV_ADDMULTI);
12332     sv_setsv(sv, SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(GSL_SUCCESS)));
12333     SvREADONLY_on(sv);
12334   } while(0) /*@SWIG@*/;
12335   /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12336     SV *sv = get_sv((char*) SWIG_prefix "GSL_FAILURE", TRUE | 0x2 | GV_ADDMULTI);
12337     sv_setsv(sv, SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(GSL_FAILURE)));
12338     SvREADONLY_on(sv);
12339   } while(0) /*@SWIG@*/;
12340   /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12341     SV *sv = get_sv((char*) SWIG_prefix "GSL_CONTINUE", TRUE | 0x2 | GV_ADDMULTI);
12342     sv_setsv(sv, SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(GSL_CONTINUE)));
12343     SvREADONLY_on(sv);
12344   } while(0) /*@SWIG@*/;
12345   /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12346     SV *sv = get_sv((char*) SWIG_prefix "GSL_EDOM", TRUE | 0x2 | GV_ADDMULTI);
12347     sv_setsv(sv, SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(GSL_EDOM)));
12348     SvREADONLY_on(sv);
12349   } while(0) /*@SWIG@*/;
12350   /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12351     SV *sv = get_sv((char*) SWIG_prefix "GSL_ERANGE", TRUE | 0x2 | GV_ADDMULTI);
12352     sv_setsv(sv, SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(GSL_ERANGE)));
12353     SvREADONLY_on(sv);
12354   } while(0) /*@SWIG@*/;
12355   /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12356     SV *sv = get_sv((char*) SWIG_prefix "GSL_EFAULT", TRUE | 0x2 | GV_ADDMULTI);
12357     sv_setsv(sv, SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(GSL_EFAULT)));
12358     SvREADONLY_on(sv);
12359   } while(0) /*@SWIG@*/;
12360   /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12361     SV *sv = get_sv((char*) SWIG_prefix "GSL_EINVAL", TRUE | 0x2 | GV_ADDMULTI);
12362     sv_setsv(sv, SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(GSL_EINVAL)));
12363     SvREADONLY_on(sv);
12364   } while(0) /*@SWIG@*/;
12365   /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12366     SV *sv = get_sv((char*) SWIG_prefix "GSL_EFAILED", TRUE | 0x2 | GV_ADDMULTI);
12367     sv_setsv(sv, SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(GSL_EFAILED)));
12368     SvREADONLY_on(sv);
12369   } while(0) /*@SWIG@*/;
12370   /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12371     SV *sv = get_sv((char*) SWIG_prefix "GSL_EFACTOR", TRUE | 0x2 | GV_ADDMULTI);
12372     sv_setsv(sv, SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(GSL_EFACTOR)));
12373     SvREADONLY_on(sv);
12374   } while(0) /*@SWIG@*/;
12375   /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12376     SV *sv = get_sv((char*) SWIG_prefix "GSL_ESANITY", TRUE | 0x2 | GV_ADDMULTI);
12377     sv_setsv(sv, SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(GSL_ESANITY)));
12378     SvREADONLY_on(sv);
12379   } while(0) /*@SWIG@*/;
12380   /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12381     SV *sv = get_sv((char*) SWIG_prefix "GSL_ENOMEM", TRUE | 0x2 | GV_ADDMULTI);
12382     sv_setsv(sv, SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(GSL_ENOMEM)));
12383     SvREADONLY_on(sv);
12384   } while(0) /*@SWIG@*/;
12385   /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12386     SV *sv = get_sv((char*) SWIG_prefix "GSL_EBADFUNC", TRUE | 0x2 | GV_ADDMULTI);
12387     sv_setsv(sv, SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(GSL_EBADFUNC)));
12388     SvREADONLY_on(sv);
12389   } while(0) /*@SWIG@*/;
12390   /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12391     SV *sv = get_sv((char*) SWIG_prefix "GSL_ERUNAWAY", TRUE | 0x2 | GV_ADDMULTI);
12392     sv_setsv(sv, SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(GSL_ERUNAWAY)));
12393     SvREADONLY_on(sv);
12394   } while(0) /*@SWIG@*/;
12395   /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12396     SV *sv = get_sv((char*) SWIG_prefix "GSL_EMAXITER", TRUE | 0x2 | GV_ADDMULTI);
12397     sv_setsv(sv, SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(GSL_EMAXITER)));
12398     SvREADONLY_on(sv);
12399   } while(0) /*@SWIG@*/;
12400   /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12401     SV *sv = get_sv((char*) SWIG_prefix "GSL_EZERODIV", TRUE | 0x2 | GV_ADDMULTI);
12402     sv_setsv(sv, SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(GSL_EZERODIV)));
12403     SvREADONLY_on(sv);
12404   } while(0) /*@SWIG@*/;
12405   /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12406     SV *sv = get_sv((char*) SWIG_prefix "GSL_EBADTOL", TRUE | 0x2 | GV_ADDMULTI);
12407     sv_setsv(sv, SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(GSL_EBADTOL)));
12408     SvREADONLY_on(sv);
12409   } while(0) /*@SWIG@*/;
12410   /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12411     SV *sv = get_sv((char*) SWIG_prefix "GSL_ETOL", TRUE | 0x2 | GV_ADDMULTI);
12412     sv_setsv(sv, SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(GSL_ETOL)));
12413     SvREADONLY_on(sv);
12414   } while(0) /*@SWIG@*/;
12415   /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12416     SV *sv = get_sv((char*) SWIG_prefix "GSL_EUNDRFLW", TRUE | 0x2 | GV_ADDMULTI);
12417     sv_setsv(sv, SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(GSL_EUNDRFLW)));
12418     SvREADONLY_on(sv);
12419   } while(0) /*@SWIG@*/;
12420   /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12421     SV *sv = get_sv((char*) SWIG_prefix "GSL_EOVRFLW", TRUE | 0x2 | GV_ADDMULTI);
12422     sv_setsv(sv, SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(GSL_EOVRFLW)));
12423     SvREADONLY_on(sv);
12424   } while(0) /*@SWIG@*/;
12425   /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12426     SV *sv = get_sv((char*) SWIG_prefix "GSL_ELOSS", TRUE | 0x2 | GV_ADDMULTI);
12427     sv_setsv(sv, SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(GSL_ELOSS)));
12428     SvREADONLY_on(sv);
12429   } while(0) /*@SWIG@*/;
12430   /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12431     SV *sv = get_sv((char*) SWIG_prefix "GSL_EROUND", TRUE | 0x2 | GV_ADDMULTI);
12432     sv_setsv(sv, SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(GSL_EROUND)));
12433     SvREADONLY_on(sv);
12434   } while(0) /*@SWIG@*/;
12435   /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12436     SV *sv = get_sv((char*) SWIG_prefix "GSL_EBADLEN", TRUE | 0x2 | GV_ADDMULTI);
12437     sv_setsv(sv, SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(GSL_EBADLEN)));
12438     SvREADONLY_on(sv);
12439   } while(0) /*@SWIG@*/;
12440   /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12441     SV *sv = get_sv((char*) SWIG_prefix "GSL_ENOTSQR", TRUE | 0x2 | GV_ADDMULTI);
12442     sv_setsv(sv, SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(GSL_ENOTSQR)));
12443     SvREADONLY_on(sv);
12444   } while(0) /*@SWIG@*/;
12445   /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12446     SV *sv = get_sv((char*) SWIG_prefix "GSL_ESING", TRUE | 0x2 | GV_ADDMULTI);
12447     sv_setsv(sv, SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(GSL_ESING)));
12448     SvREADONLY_on(sv);
12449   } while(0) /*@SWIG@*/;
12450   /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12451     SV *sv = get_sv((char*) SWIG_prefix "GSL_EDIVERGE", TRUE | 0x2 | GV_ADDMULTI);
12452     sv_setsv(sv, SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(GSL_EDIVERGE)));
12453     SvREADONLY_on(sv);
12454   } while(0) /*@SWIG@*/;
12455   /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12456     SV *sv = get_sv((char*) SWIG_prefix "GSL_EUNSUP", TRUE | 0x2 | GV_ADDMULTI);
12457     sv_setsv(sv, SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(GSL_EUNSUP)));
12458     SvREADONLY_on(sv);
12459   } while(0) /*@SWIG@*/;
12460   /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12461     SV *sv = get_sv((char*) SWIG_prefix "GSL_EUNIMPL", TRUE | 0x2 | GV_ADDMULTI);
12462     sv_setsv(sv, SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(GSL_EUNIMPL)));
12463     SvREADONLY_on(sv);
12464   } while(0) /*@SWIG@*/;
12465   /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12466     SV *sv = get_sv((char*) SWIG_prefix "GSL_ECACHE", TRUE | 0x2 | GV_ADDMULTI);
12467     sv_setsv(sv, SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(GSL_ECACHE)));
12468     SvREADONLY_on(sv);
12469   } while(0) /*@SWIG@*/;
12470   /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12471     SV *sv = get_sv((char*) SWIG_prefix "GSL_ETABLE", TRUE | 0x2 | GV_ADDMULTI);
12472     sv_setsv(sv, SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(GSL_ETABLE)));
12473     SvREADONLY_on(sv);
12474   } while(0) /*@SWIG@*/;
12475   /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12476     SV *sv = get_sv((char*) SWIG_prefix "GSL_ENOPROG", TRUE | 0x2 | GV_ADDMULTI);
12477     sv_setsv(sv, SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(GSL_ENOPROG)));
12478     SvREADONLY_on(sv);
12479   } while(0) /*@SWIG@*/;
12480   /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12481     SV *sv = get_sv((char*) SWIG_prefix "GSL_ENOPROGJ", TRUE | 0x2 | GV_ADDMULTI);
12482     sv_setsv(sv, SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(GSL_ENOPROGJ)));
12483     SvREADONLY_on(sv);
12484   } while(0) /*@SWIG@*/;
12485   /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12486     SV *sv = get_sv((char*) SWIG_prefix "GSL_ETOLF", TRUE | 0x2 | GV_ADDMULTI);
12487     sv_setsv(sv, SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(GSL_ETOLF)));
12488     SvREADONLY_on(sv);
12489   } while(0) /*@SWIG@*/;
12490   /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12491     SV *sv = get_sv((char*) SWIG_prefix "GSL_ETOLX", TRUE | 0x2 | GV_ADDMULTI);
12492     sv_setsv(sv, SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(GSL_ETOLX)));
12493     SvREADONLY_on(sv);
12494   } while(0) /*@SWIG@*/;
12495   /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12496     SV *sv = get_sv((char*) SWIG_prefix "GSL_ETOLG", TRUE | 0x2 | GV_ADDMULTI);
12497     sv_setsv(sv, SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(GSL_ETOLG)));
12498     SvREADONLY_on(sv);
12499   } while(0) /*@SWIG@*/;
12500   /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12501     SV *sv = get_sv((char*) SWIG_prefix "GSL_EOF", TRUE | 0x2 | GV_ADDMULTI);
12502     sv_setsv(sv, SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(GSL_EOF)));
12503     SvREADONLY_on(sv);
12504   } while(0) /*@SWIG@*/;
12505   /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12506     SV *sv = get_sv((char*) SWIG_prefix "GSL_LINALG_MOD_NONE", TRUE | 0x2 | GV_ADDMULTI);
12507     sv_setsv(sv, SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(GSL_LINALG_MOD_NONE)));
12508     SvREADONLY_on(sv);
12509   } while(0) /*@SWIG@*/;
12510   /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12511     SV *sv = get_sv((char*) SWIG_prefix "GSL_LINALG_MOD_TRANSPOSE", TRUE | 0x2 | GV_ADDMULTI);
12512     sv_setsv(sv, SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(GSL_LINALG_MOD_TRANSPOSE)));
12513     SvREADONLY_on(sv);
12514   } while(0) /*@SWIG@*/;
12515   /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12516     SV *sv = get_sv((char*) SWIG_prefix "GSL_LINALG_MOD_CONJUGATE", TRUE | 0x2 | GV_ADDMULTI);
12517     sv_setsv(sv, SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(GSL_LINALG_MOD_CONJUGATE)));
12518     SvREADONLY_on(sv);
12519   } while(0) /*@SWIG@*/;
12520   SWIG_TypeClientData(SWIGTYPE_p_gsl_permutation_struct, (void*) "Math::GSL::Linalg::gsl_permutation_struct");
12521   SWIG_TypeClientData(SWIGTYPE_p_gsl_complex, (void*) "Math::GSL::Linalg::gsl_complex");
12522   SWIG_TypeClientData(SWIGTYPE_p_gsl_complex_long_double, (void*) "Math::GSL::Linalg::gsl_complex_long_double");
12523   SWIG_TypeClientData(SWIGTYPE_p_gsl_complex_float, (void*) "Math::GSL::Linalg::gsl_complex_float");
12524   ST(0) = &PL_sv_yes;
12525   XSRETURN(1);
12526 }
12527 
12528