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