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_double_a___double_p_void__int swig_types[3]
1523 #define SWIGTYPE_p_f_double_p_void__double swig_types[4]
1524 #define SWIGTYPE_p_f_double_p_void_p_double_p_double__void swig_types[5]
1525 #define SWIGTYPE_p_f_p_double_p_void__int swig_types[6]
1526 #define SWIGTYPE_p_f_p_gsl_matrix_p_gsl_vector_p_void__int swig_types[7]
1527 #define SWIGTYPE_p_f_p_gsl_vector_p_gsl_vector_p_gsl_vector_p_void__int swig_types[8]
1528 #define SWIGTYPE_p_f_p_q_const__char_p_q_const__char_int_int__void swig_types[9]
1529 #define SWIGTYPE_p_f_p_q_const__char_p_q_const__char_int_p_q_const__char__void swig_types[10]
1530 #define SWIGTYPE_p_f_p_q_const__gsl_vector_p_gsl_vector__int swig_types[11]
1531 #define SWIGTYPE_p_f_p_q_const__void__p_gsl_matrix swig_types[12]
1532 #define SWIGTYPE_p_f_p_q_const__void__p_gsl_vector swig_types[13]
1533 #define SWIGTYPE_p_f_p_void__int swig_types[14]
1534 #define SWIGTYPE_p_f_p_void__void swig_types[15]
1535 #define SWIGTYPE_p_f_q_const__double_p_gsl_vector_p_double_p_double_p_void__int swig_types[16]
1536 #define SWIGTYPE_p_f_q_const__size_t__p_void swig_types[17]
1537 #define SWIGTYPE_p_gsl_function_fdf_struct swig_types[18]
1538 #define SWIGTYPE_p_gsl_function_struct swig_types[19]
1539 #define SWIGTYPE_p_gsl_function_vec_struct swig_types[20]
1540 #define SWIGTYPE_p_gsl_matrix swig_types[21]
1541 #define SWIGTYPE_p_gsl_multifit_linear_workspace swig_types[22]
1542 #define SWIGTYPE_p_gsl_multifit_robust_stats swig_types[23]
1543 #define SWIGTYPE_p_gsl_multifit_robust_type swig_types[24]
1544 #define SWIGTYPE_p_gsl_multifit_robust_workspace swig_types[25]
1545 #define SWIGTYPE_p_gsl_multilarge_linear_type swig_types[26]
1546 #define SWIGTYPE_p_gsl_multilarge_linear_workspace swig_types[27]
1547 #define SWIGTYPE_p_gsl_permutation_struct swig_types[28]
1548 #define SWIGTYPE_p_gsl_vector swig_types[29]
1549 #define SWIGTYPE_p_size_t swig_types[30]
1550 #define SWIGTYPE_p_void swig_types[31]
1551 static swig_type_info *swig_types[33];
1552 static swig_module_info swig_module = {swig_types, 32, 0, 0, 0, 0};
1553 #define SWIG_TypeQuery(name) SWIG_TypeQueryModule(&swig_module, &swig_module, name)
1554 #define SWIG_MangledTypeQuery(name) SWIG_MangledTypeQueryModule(&swig_module, &swig_module, name)
1555 
1556 /* -------- TYPES TABLE (END) -------- */
1557 
1558 #define SWIG_init    boot_Math__GSL__Multilarge
1559 
1560 #define SWIG_name   "Math::GSL::Multilargec::boot_Math__GSL__Multilarge"
1561 #define SWIG_prefix "Math::GSL::Multilargec::"
1562 
1563 #define SWIGVERSION 0x040001
1564 #define SWIG_VERSION SWIGVERSION
1565 
1566 
1567 #define SWIG_as_voidptr(a) (void *)((const void *)(a))
1568 #define SWIG_as_voidptrptr(a) ((void)SWIG_as_voidptr(*a),(void**)(a))
1569 
1570 
1571 #ifdef __cplusplus
1572 extern "C"
1573 #endif
1574 #ifndef PERL_OBJECT
1575 #ifndef MULTIPLICITY
1576 SWIGEXPORT void SWIG_init (CV* cv);
1577 #else
1578 SWIGEXPORT void SWIG_init (pTHXo_ CV* cv);
1579 #endif
1580 #else
1581 SWIGEXPORT void SWIG_init (CV *cv, CPerlObj *);
1582 #endif
1583 
1584 
1585 SWIGINTERNINLINE SV *
SWIG_PERL_DECL_ARGS_1(double value)1586 SWIG_From_double  SWIG_PERL_DECL_ARGS_1(double value)
1587 {
1588   return sv_2mortal(newSVnv(value));
1589 }
1590 
1591 
1592 SWIGINTERNINLINE SV *
SWIG_PERL_DECL_ARGS_1(long value)1593 SWIG_From_long  SWIG_PERL_DECL_ARGS_1(long value)
1594 {
1595   SV *sv;
1596   if (IVSIZE >= sizeof(value) || (value >= IV_MIN && value <= IV_MAX))
1597     sv = newSViv(value);
1598   else
1599     sv = newSVpvf("%ld", value);
1600   return sv_2mortal(sv);
1601 }
1602 
1603 
1604 SWIGINTERNINLINE SV *
SWIG_PERL_DECL_ARGS_1(int value)1605 SWIG_From_int  SWIG_PERL_DECL_ARGS_1(int value)
1606 {
1607   return SWIG_From_long  SWIG_PERL_CALL_ARGS_1(value);
1608 }
1609 
1610 
1611 SWIGINTERN swig_type_info*
SWIG_pchar_descriptor(void)1612 SWIG_pchar_descriptor(void)
1613 {
1614   static int init = 0;
1615   static swig_type_info* info = 0;
1616   if (!init) {
1617     info = SWIG_TypeQuery("_p_char");
1618     init = 1;
1619   }
1620   return info;
1621 }
1622 
1623 
1624 SWIGINTERN int
SWIG_AsCharPtrAndSize(SV * obj,char ** cptr,size_t * psize,int * alloc)1625 SWIG_AsCharPtrAndSize(SV *obj, char** cptr, size_t* psize, int *alloc)
1626 {
1627   if (SvMAGICAL(obj)) {
1628      SV *tmp = sv_newmortal();
1629      SvSetSV(tmp, obj);
1630      obj = tmp;
1631   }
1632   if (SvPOK(obj)) {
1633     STRLEN len = 0;
1634     char *cstr = SvPV(obj, len);
1635     size_t size = len + 1;
1636     if (cptr)  {
1637       if (alloc) {
1638 	if (*alloc == SWIG_NEWOBJ) {
1639 	  *cptr = (char *)memcpy(malloc((size)*sizeof(char)), cstr, sizeof(char)*(size));
1640 	} else {
1641 	  *cptr = cstr;
1642 	  *alloc = SWIG_OLDOBJ;
1643 	}
1644       }
1645     }
1646     if (psize) *psize = size;
1647     return SWIG_OK;
1648   } else {
1649     swig_type_info* pchar_descriptor = SWIG_pchar_descriptor();
1650     if (pchar_descriptor) {
1651       char* vptr = 0;
1652       if (SWIG_ConvertPtr(obj, (void**)&vptr, pchar_descriptor, 0) == SWIG_OK) {
1653 	if (cptr) *cptr = vptr;
1654 	if (psize) *psize = vptr ? (strlen(vptr) + 1) : 0;
1655 	if (alloc) *alloc = SWIG_OLDOBJ;
1656 	return SWIG_OK;
1657       }
1658     }
1659   }
1660   return SWIG_TypeError;
1661 }
1662 
1663 
1664 
1665 
1666 
1667 #include <limits.h>
1668 #if !defined(SWIG_NO_LLONG_MAX)
1669 # if !defined(LLONG_MAX) && defined(__GNUC__) && defined (__LONG_LONG_MAX__)
1670 #   define LLONG_MAX __LONG_LONG_MAX__
1671 #   define LLONG_MIN (-LLONG_MAX - 1LL)
1672 #   define ULLONG_MAX (LLONG_MAX * 2ULL + 1ULL)
1673 # endif
1674 #endif
1675 
1676 
1677 #include <stdlib.h>
1678 #ifdef _MSC_VER
1679 # ifndef strtoull
1680 #  define strtoull _strtoui64
1681 # endif
1682 # ifndef strtoll
1683 #  define strtoll _strtoi64
1684 # endif
1685 #endif
1686 
1687 
1688 SWIGINTERN int
SWIG_PERL_DECL_ARGS_2(SV * obj,double * val)1689 SWIG_AsVal_double SWIG_PERL_DECL_ARGS_2(SV *obj, double *val)
1690 {
1691   if (SvNIOK(obj)) {
1692     if (val) *val = SvNV(obj);
1693     return SWIG_OK;
1694   } else if (SvIOK(obj)) {
1695     if (val) *val = (double) SvIV(obj);
1696     return SWIG_AddCast(SWIG_OK);
1697   } else {
1698     const char *nptr = SvPV_nolen(obj);
1699     if (nptr) {
1700       char *endptr;
1701       double v;
1702       errno = 0;
1703       v = strtod(nptr, &endptr);
1704       if (errno == ERANGE) {
1705 	errno = 0;
1706 	return SWIG_OverflowError;
1707       } else {
1708 	if (*endptr == '\0') {
1709 	  if (val) *val = v;
1710 	  return SWIG_Str2NumCast(SWIG_OK);
1711 	}
1712       }
1713     }
1714   }
1715   return SWIG_TypeError;
1716 }
1717 
1718 
1719 #include <float.h>
1720 
1721 
1722 #include <math.h>
1723 
1724 
1725 SWIGINTERNINLINE int
SWIG_CanCastAsInteger(double * d,double min,double max)1726 SWIG_CanCastAsInteger(double *d, double min, double max) {
1727   double x = *d;
1728   if ((min <= x && x <= max)) {
1729    double fx = floor(x);
1730    double cx = ceil(x);
1731    double rd =  ((x - fx) < 0.5) ? fx : cx; /* simple rint */
1732    if ((errno == EDOM) || (errno == ERANGE)) {
1733      errno = 0;
1734    } else {
1735      double summ, reps, diff;
1736      if (rd < x) {
1737        diff = x - rd;
1738      } else if (rd > x) {
1739        diff = rd - x;
1740      } else {
1741        return 1;
1742      }
1743      summ = rd + x;
1744      reps = diff/summ;
1745      if (reps < 8*DBL_EPSILON) {
1746        *d = rd;
1747        return 1;
1748      }
1749    }
1750   }
1751   return 0;
1752 }
1753 
1754 
1755 SWIGINTERN int
SWIG_PERL_DECL_ARGS_2(SV * obj,long * val)1756 SWIG_AsVal_long SWIG_PERL_DECL_ARGS_2(SV *obj, long* val)
1757 {
1758   if (SvUOK(obj)) {
1759     UV v = SvUV(obj);
1760     if (UVSIZE < sizeof(*val) || v <= LONG_MAX) {
1761       if (val) *val = v;
1762       return SWIG_OK;
1763     }
1764     return SWIG_OverflowError;
1765   } else if (SvIOK(obj)) {
1766     IV v = SvIV(obj);
1767     if (IVSIZE <= sizeof(*val) || (v >= LONG_MIN && v <= LONG_MAX)) {
1768       if(val) *val = v;
1769       return SWIG_OK;
1770     }
1771     return SWIG_OverflowError;
1772   } else {
1773     int dispatch = 0;
1774     const char *nptr = SvPV_nolen(obj);
1775     if (nptr) {
1776       char *endptr;
1777       long v;
1778       errno = 0;
1779       v = strtol(nptr, &endptr,0);
1780       if (errno == ERANGE) {
1781 	errno = 0;
1782 	return SWIG_OverflowError;
1783       } else {
1784 	if (*endptr == '\0') {
1785 	  if (val) *val = v;
1786 	  return SWIG_Str2NumCast(SWIG_OK);
1787 	}
1788       }
1789     }
1790     if (!dispatch) {
1791       double d;
1792       int res = SWIG_AddCast(SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(obj,&d));
1793       if (SWIG_IsOK(res) && SWIG_CanCastAsInteger(&d, LONG_MIN, LONG_MAX)) {
1794 	if (val) *val = (long)(d);
1795 	return res;
1796       }
1797     }
1798   }
1799   return SWIG_TypeError;
1800 }
1801 
1802 
1803 SWIGINTERN int
SWIG_PERL_DECL_ARGS_2(SV * obj,int * val)1804 SWIG_AsVal_int SWIG_PERL_DECL_ARGS_2(SV * obj, int *val)
1805 {
1806   long v;
1807   int res = SWIG_AsVal_long SWIG_PERL_CALL_ARGS_2(obj, &v);
1808   if (SWIG_IsOK(res)) {
1809     if ((v < INT_MIN || v > INT_MAX)) {
1810       return SWIG_OverflowError;
1811     } else {
1812       if (val) *val = (int)(v);
1813     }
1814   }
1815   return res;
1816 }
1817 
1818 
1819 SWIGINTERNINLINE SV *
SWIG_FromCharPtrAndSize(const char * carray,size_t size)1820 SWIG_FromCharPtrAndSize(const char* carray, size_t size)
1821 {
1822   SV *obj = sv_newmortal();
1823   if (carray) {
1824     sv_setpvn(obj, carray, size);
1825   } else {
1826     sv_setsv(obj, &PL_sv_undef);
1827   }
1828   return obj;
1829 }
1830 
1831 
1832 SWIGINTERNINLINE SV *
SWIG_FromCharPtr(const char * cptr)1833 SWIG_FromCharPtr(const char *cptr)
1834 {
1835   return SWIG_FromCharPtrAndSize(cptr, (cptr ? strlen(cptr) : 0));
1836 }
1837 
1838 
1839     #include "gsl/gsl_nan.h"
1840     #include "gsl/gsl_errno.h"
1841     #include "gsl/gsl_math.h"
1842     #include "gsl/gsl_monte.h"
1843 
1844 
1845     struct perl_array {
1846         I32 len;
1847         AV *array;
1848     };
1849 
1850 
1851 
1852 enum awType { awDouble, awFloat, awInt, awUnsigned };
1853 
1854 typedef struct {
1855     I32 size;
1856     enum awType type;
1857     void * data;
1858 } array_wrapper;
1859 
array_wrapper_alloc(int numelem,enum awType type)1860 array_wrapper * array_wrapper_alloc(int numelem, enum awType type){
1861     array_wrapper * rv =  malloc(sizeof(array_wrapper));
1862 
1863     if (rv == NULL)
1864         croak("array_wrapper_alloc: can't malloc wrapper\n");
1865 
1866     switch (type){
1867         case awDouble:
1868             rv->data = malloc(sizeof(double) * numelem);
1869             break;
1870         case awFloat:
1871             rv->data = malloc(sizeof(float) * numelem);
1872             break;
1873         case awInt:
1874             rv->data = malloc(sizeof(int) * numelem);
1875             break;
1876         case awUnsigned:
1877             rv->data = malloc(sizeof(unsigned int) * numelem);
1878             break;
1879         default:
1880             croak("array_wrapper_alloc: type should be awDouble, awFloat, awInt, or awUnsigned");
1881     }
1882 
1883     if (rv->data == NULL)
1884         croak("array_wrapper_alloc: can't malloc data");
1885 
1886     rv->size = numelem;
1887     rv->type = type;
1888     return rv;
1889 }
1890 
array_wrapper_free(array_wrapper * daw)1891 void array_wrapper_free(array_wrapper * daw){
1892     free(daw->data);
1893     free(daw);
1894 }
1895 
1896 
1897     /* structure to hold required information while the gsl function call
1898        for each callback
1899      */
1900     struct gsl_function_perl {
1901         gsl_function C_gsl_function;
1902         SV * function;
1903         SV * params;
1904     };
1905 
1906     struct gsl_function_fdf_perl {
1907         gsl_function_fdf C_gsl_function_fdf;
1908         SV * f;
1909         SV * df;
1910         SV * fdf;
1911         SV * params;
1912     };
1913 
1914     struct gsl_monte_function_perl {
1915         gsl_monte_function C_gsl_monte_function;
1916         SV * f;
1917         SV * dim;
1918         SV * params;
1919     };
1920 
gsl_function_perl_free(struct gsl_function_perl * perl_f)1921     void gsl_function_perl_free(struct gsl_function_perl * perl_f){
1922         if (perl_f != NULL) {
1923             SvREFCNT_dec(perl_f->function);
1924             SvREFCNT_dec(perl_f->params);
1925             Safefree(perl_f);
1926         }
1927     }
1928 
gsl_function_fdf_perl_free(struct gsl_function_fdf_perl * perl_fdf)1929     void gsl_function_fdf_perl_free(struct gsl_function_fdf_perl * perl_fdf){
1930         if (perl_fdf != NULL) {
1931 	  SvREFCNT_dec(perl_fdf->f);
1932 	  SvREFCNT_dec(perl_fdf->df);
1933 	  SvREFCNT_dec(perl_fdf->fdf);
1934 	  SvREFCNT_dec(perl_fdf->params);
1935 	  Safefree(perl_fdf);
1936         }
1937     }
1938 
1939     /* These functions (C callbacks) calls the perl callbacks.
1940        Info for perl callback can be found using the 'void*params' parameter
1941     */
call_gsl_function_x_params(SV * function,double x,SV * params)1942     double call_gsl_function_x_params(SV* function, double x, SV *params){
1943         unsigned int count;
1944         double y;
1945         dSP;
1946 
1947         //fprintf(stderr, "LOOKUP CALLBACK\n");
1948         ENTER;
1949         SAVETMPS;
1950 
1951         PUSHMARK(SP);
1952         XPUSHs(sv_2mortal(newSVnv((double)x)));
1953         XPUSHs(params);
1954         PUTBACK;                                /* make local stack pointer global */
1955 
1956         count = call_sv(function, G_SCALAR);
1957         SPAGAIN;
1958 
1959         if (count != 1)
1960                 croak("Expected to call subroutine in scalar context!");
1961 
1962         y = POPn;
1963 
1964         PUTBACK;                                /* make local stack pointer global */
1965         FREETMPS;
1966         LEAVE;
1967 
1968         return y;
1969     }
1970 
call_gsl_function(double x,void * params)1971     double call_gsl_function(double x , void *params){
1972         struct gsl_function_perl *F=(struct gsl_function_perl*)params;
1973 	return call_gsl_function_x_params( F->function, x, F->params );
1974     }
1975 
call_gsl_function_fdf_f(double x,void * params)1976     double call_gsl_function_fdf_f(double x , void *params){
1977         struct gsl_function_fdf_perl *F=(struct gsl_function_fdf_perl*)params;
1978 	return call_gsl_function_x_params( F->f, x, F->params );
1979     }
1980 
call_gsl_function_fdf_df(double x,void * params)1981     double call_gsl_function_fdf_df(double x , void *params){
1982         struct gsl_function_fdf_perl *F=(struct gsl_function_fdf_perl*)params;
1983 	return call_gsl_function_x_params( F->df, x, F->params );
1984     }
1985 
call_gsl_function_fdf_fdf(double x,void * params,double * f,double * df)1986     void call_gsl_function_fdf_fdf(double x , void *params, double *f, double *df ){
1987         struct gsl_function_fdf_perl *F=(struct gsl_function_fdf_perl*)params;
1988 
1989         dSP;
1990 
1991         ENTER;
1992         SAVETMPS;
1993 
1994         PUSHMARK(SP);
1995 	EXTEND(SP, 2);
1996         PUSHs(sv_2mortal(newSVnv((double)x)));
1997         PUSHs(F->params);
1998         PUTBACK;                                /* make local stack pointer global */
1999 
2000 	{
2001 	  unsigned int count = call_sv(F->fdf, G_ARRAY);
2002 	  SPAGAIN;
2003 
2004 	  if (count != 2)
2005 	    croak( "Expected two return values, got %d", count );
2006 	}
2007 
2008 	*df = POPn;
2009         *f = POPn;
2010 
2011         PUTBACK;                                /* make local stack pointer global */
2012         FREETMPS;
2013         LEAVE;
2014     }
2015 
call_gsl_monte_function(double * x_array,size_t dim,void * params)2016     double call_gsl_monte_function(double *x_array , size_t dim, void *params){
2017         struct gsl_monte_function_perl *F=(struct gsl_monte_function_perl*)params;
2018         unsigned int count;
2019         unsigned int i;
2020         AV* perl_array;
2021         double y;
2022         dSP;
2023 
2024         //fprintf(stderr, "LOOKUP CALLBACK\n");
2025         ENTER;
2026         SAVETMPS;
2027 
2028         PUSHMARK(SP);
2029         perl_array=newAV();
2030         sv_2mortal((SV*)perl_array);
2031         XPUSHs(sv_2mortal(newRV((SV *)perl_array)));
2032         for(i=0; i<dim; i++) {
2033                 /* no mortal : it is referenced by the array */
2034                 av_push(perl_array, newSVnv(x_array[i]));
2035         }
2036         XPUSHs(sv_2mortal(newSViv(dim)));
2037         XPUSHs(F->params);
2038         PUTBACK;                                /* make local stack pointer global */
2039 
2040         count = call_sv(F->f, G_SCALAR);
2041         SPAGAIN;
2042 
2043         if (count != 1)
2044                 croak("Expected to call subroutine in scalar context!");
2045 
2046         y = POPn;
2047 
2048         PUTBACK;                                /* make local stack pointer global */
2049         FREETMPS;
2050         LEAVE;
2051 
2052         return y;
2053     }
2054 
2055 
gsl_function_fdf_extract(char * param_name,HV * hash,SV * func[])2056   void gsl_function_fdf_extract( char* param_name, HV* hash, SV* func[] ) {
2057     static const char *keys[3] = { "f", "df", "fdf" };
2058 
2059     int ikey;
2060 
2061     for ( ikey = 0 ; ikey < 3 ; ++ikey ) {
2062       func[ikey] = 0;
2063       const char* key = keys[ikey];
2064       /* it just so happens that strlen(keys[ikey]) == ikey + 1 */
2065       SV** pp_sv = hv_fetch( hash, key, ikey+1, 0 );
2066       SV* function;
2067 
2068       if ( !pp_sv )
2069 	croak("Math::GSL : %s: missing key %s!", param_name, key);
2070 
2071       function = *pp_sv;
2072 
2073       if ( SvPOK(function) || ( SvROK( function ) && SvTYPE(SvRV(function)) == SVt_PVCV ) ) {
2074         /* hold on to SV after the enclosing hash goes away */
2075         SvREFCNT_inc( function );
2076 	func[ikey] = function;
2077       }
2078       else {
2079 	croak( "Math::GSL : %s:  key %s is not a reference to code!", param_name, key);
2080       }
2081     }
2082   }
2083 
2084 
2085 
2086     #include "gsl/gsl_inline.h"
2087     #include "gsl/gsl_types.h"
2088     #include "gsl/gsl_math.h"
2089     #include "gsl/gsl_vector.h"
2090     #include "gsl/gsl_matrix.h"
2091     #include "gsl/gsl_permutation.h"
2092     #include "gsl/gsl_multifit.h"
2093     #include "gsl/gsl_multilarge.h"
2094 
2095 
2096 SWIGINTERN int
SWIG_PERL_DECL_ARGS_2(SV * obj,unsigned long * val)2097 SWIG_AsVal_unsigned_SS_long SWIG_PERL_DECL_ARGS_2(SV *obj, unsigned long *val)
2098 {
2099   if (SvUOK(obj)) {
2100     UV v = SvUV(obj);
2101     if (UVSIZE <= sizeof(*val) || v <= ULONG_MAX) {
2102       if (val) *val = v;
2103       return SWIG_OK;
2104     }
2105     return SWIG_OverflowError;
2106   } else if (SvIOK(obj)) {
2107     IV v = SvIV(obj);
2108     if (v >= 0 && (IVSIZE <= sizeof(*val) || v <= ULONG_MAX)) {
2109       if (val) *val = v;
2110       return SWIG_OK;
2111     }
2112     return SWIG_OverflowError;
2113   } else {
2114     int dispatch = 0;
2115     const char *nptr = SvPV_nolen(obj);
2116     if (nptr) {
2117       char *endptr;
2118       unsigned long v;
2119       errno = 0;
2120       v = strtoul(nptr, &endptr,0);
2121       if (errno == ERANGE) {
2122 	errno = 0;
2123 	return SWIG_OverflowError;
2124       } else {
2125 	if (*endptr == '\0') {
2126 	  if (val) *val = v;
2127 	  return SWIG_Str2NumCast(SWIG_OK);
2128 	}
2129       }
2130     }
2131     if (!dispatch) {
2132       double d;
2133       int res = SWIG_AddCast(SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(obj,&d));
2134       if (SWIG_IsOK(res) && SWIG_CanCastAsInteger(&d, 0, ULONG_MAX)) {
2135 	if (val) *val = (unsigned long)(d);
2136 	return res;
2137       }
2138     }
2139   }
2140   return SWIG_TypeError;
2141 }
2142 
2143 
2144 #if defined(LLONG_MAX) && !defined(SWIG_LONG_LONG_AVAILABLE)
2145 #  define SWIG_LONG_LONG_AVAILABLE
2146 #endif
2147 
2148 
2149 #ifdef SWIG_LONG_LONG_AVAILABLE
2150 SWIGINTERN int
SWIG_PERL_DECL_ARGS_2(SV * obj,unsigned long long * val)2151 SWIG_AsVal_unsigned_SS_long_SS_long SWIG_PERL_DECL_ARGS_2(SV *obj, unsigned long long *val)
2152 {
2153   if (SvUOK(obj)) {
2154     /* pretty sure this should be conditional on
2155      * (UVSIZE <= sizeof(*val) || v <= ULLONG_MAX) */
2156     if (val) *val = SvUV(obj);
2157     return SWIG_OK;
2158   } else  if (SvIOK(obj)) {
2159     IV v = SvIV(obj);
2160     if (v >= 0 && (IVSIZE <= sizeof(*val) || v <= ULLONG_MAX)) {
2161       if (val) *val = v;
2162       return SWIG_OK;
2163     } else {
2164       return SWIG_OverflowError;
2165     }
2166   } else {
2167     int dispatch = 0;
2168     const char *nptr = SvPV_nolen(obj);
2169     if (nptr) {
2170       char *endptr;
2171       unsigned long long v;
2172       errno = 0;
2173       v = strtoull(nptr, &endptr,0);
2174       if (errno == ERANGE) {
2175 	errno = 0;
2176 	return SWIG_OverflowError;
2177       } else {
2178 	if (*endptr == '\0') {
2179 	  if (val) *val = v;
2180 	  return SWIG_Str2NumCast(SWIG_OK);
2181 	}
2182       }
2183     }
2184     if (!dispatch) {
2185       const double mant_max = 1LL << DBL_MANT_DIG;
2186       double d;
2187       int res = SWIG_AddCast(SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(obj,&d));
2188       if (SWIG_IsOK(res) && SWIG_CanCastAsInteger(&d, 0, mant_max)) {
2189 	if (val) *val = (unsigned long long)(d);
2190 	return res;
2191       }
2192     }
2193   }
2194   return SWIG_TypeError;
2195 }
2196 #endif
2197 
2198 
2199 SWIGINTERNINLINE int
SWIG_PERL_DECL_ARGS_2(SV * obj,size_t * val)2200 SWIG_AsVal_size_t SWIG_PERL_DECL_ARGS_2(SV * obj, size_t *val)
2201 {
2202   int res = SWIG_TypeError;
2203 #ifdef SWIG_LONG_LONG_AVAILABLE
2204   if (sizeof(size_t) <= sizeof(unsigned long)) {
2205 #endif
2206     unsigned long v;
2207     res = SWIG_AsVal_unsigned_SS_long SWIG_PERL_CALL_ARGS_2(obj, val ? &v : 0);
2208     if (SWIG_IsOK(res) && val) *val = (size_t)(v);
2209 #ifdef SWIG_LONG_LONG_AVAILABLE
2210   } else if (sizeof(size_t) <= sizeof(unsigned long long)) {
2211     unsigned long long v;
2212     res = SWIG_AsVal_unsigned_SS_long_SS_long SWIG_PERL_CALL_ARGS_2(obj, val ? &v : 0);
2213     if (SWIG_IsOK(res) && val) *val = (size_t)(v);
2214   }
2215 #endif
2216   return res;
2217 }
2218 
2219 
2220 SWIGINTERNINLINE SV *
SWIG_PERL_DECL_ARGS_1(unsigned long value)2221 SWIG_From_unsigned_SS_long  SWIG_PERL_DECL_ARGS_1(unsigned long value)
2222 {
2223   SV *sv;
2224   if (UVSIZE >= sizeof(value) || value <= UV_MAX)
2225     sv = newSVuv(value);
2226   else
2227     sv = newSVpvf("%lu", value);
2228   return sv_2mortal(sv);
2229 }
2230 
2231 
2232 #include <stdio.h>
2233 #if (defined(_MSC_VER) && (_MSC_VER < 1900)) || defined(__BORLANDC__) || defined(_WATCOM)
2234 # ifndef snprintf
2235 #  define snprintf _snprintf
2236 # endif
2237 #endif
2238 
2239 
2240 #ifdef SWIG_LONG_LONG_AVAILABLE
2241 SWIGINTERNINLINE SV *
SWIG_PERL_DECL_ARGS_1(unsigned long long value)2242 SWIG_From_unsigned_SS_long_SS_long  SWIG_PERL_DECL_ARGS_1(unsigned long long value)
2243 {
2244   SV *sv;
2245   if (UVSIZE >= sizeof(value) || value <= UV_MAX)
2246     sv = newSVuv((UV)(value));
2247   else {
2248     //sv = newSVpvf("%llu", value); doesn't work in non 64bit Perl
2249     char temp[256];
2250     sprintf(temp, "%llu", value);
2251     sv = newSVpv(temp, 0);
2252   }
2253   return sv_2mortal(sv);
2254 }
2255 #endif
2256 
2257 
2258 SWIGINTERNINLINE SV *
SWIG_PERL_DECL_ARGS_1(size_t value)2259 SWIG_From_size_t  SWIG_PERL_DECL_ARGS_1(size_t value)
2260 {
2261 #ifdef SWIG_LONG_LONG_AVAILABLE
2262   if (sizeof(size_t) <= sizeof(unsigned long)) {
2263 #endif
2264     return SWIG_From_unsigned_SS_long  SWIG_PERL_CALL_ARGS_1((unsigned long)(value));
2265 #ifdef SWIG_LONG_LONG_AVAILABLE
2266   } else {
2267     /* assume sizeof(size_t) <= sizeof(unsigned long long) */
2268     return SWIG_From_unsigned_SS_long_SS_long  SWIG_PERL_CALL_ARGS_1((unsigned long long)(value));
2269   }
2270 #endif
2271 }
2272 
2273 #ifdef __cplusplus
2274 extern "C" {
2275 #endif
2276 
2277 #ifdef PERL_OBJECT
2278 #define MAGIC_CLASS _wrap_Math__GSL__Multilarge_var::
2279 class _wrap_Math__GSL__Multilarge_var : public CPerlObj {
2280 public:
2281 #else
2282 #define MAGIC_CLASS
2283 #endif
swig_magic_readonly(pTHX_ SV * SWIGUNUSEDPARM (sv),MAGIC * SWIGUNUSEDPARM (mg))2284 SWIGCLASS_STATIC int swig_magic_readonly(pTHX_ SV *SWIGUNUSEDPARM(sv), MAGIC *SWIGUNUSEDPARM(mg)) {
2285     MAGIC_PPERL
2286     croak("Value is read-only.");
2287     return 0;
2288 }
_wrap_gsl_multifit_robust_default_set(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))2289 SWIGCLASS_STATIC int _wrap_gsl_multifit_robust_default_set(pTHX_ SV* sv, MAGIC * SWIGUNUSEDPARM(mg)) {
2290   MAGIC_PPERL
2291   {
2292     void *argp = 0;
2293     int res = SWIG_ConvertPtr(sv, &argp, SWIGTYPE_p_gsl_multifit_robust_type,  0 );
2294     if (!SWIG_IsOK(res)) {
2295       SWIG_exception_fail(SWIG_ArgError(res), "in variable '""gsl_multifit_robust_default""' of type '""gsl_multifit_robust_type const *""'");
2296     }
2297     gsl_multifit_robust_default = (gsl_multifit_robust_type *)(argp);
2298   }
2299 fail:
2300   return 1;
2301 }
2302 
2303 
_wrap_gsl_multifit_robust_default_get(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))2304 SWIGCLASS_STATIC int _wrap_gsl_multifit_robust_default_get(pTHX_ SV *sv, MAGIC *SWIGUNUSEDPARM(mg)) {
2305   MAGIC_PPERL
2306   sv_setiv(SvRV(sv),PTR2IV(gsl_multifit_robust_default));
2307   return 1;
2308 }
2309 
2310 
_wrap_gsl_multifit_robust_bisquare_set(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))2311 SWIGCLASS_STATIC int _wrap_gsl_multifit_robust_bisquare_set(pTHX_ SV* sv, MAGIC * SWIGUNUSEDPARM(mg)) {
2312   MAGIC_PPERL
2313   {
2314     void *argp = 0;
2315     int res = SWIG_ConvertPtr(sv, &argp, SWIGTYPE_p_gsl_multifit_robust_type,  0 );
2316     if (!SWIG_IsOK(res)) {
2317       SWIG_exception_fail(SWIG_ArgError(res), "in variable '""gsl_multifit_robust_bisquare""' of type '""gsl_multifit_robust_type const *""'");
2318     }
2319     gsl_multifit_robust_bisquare = (gsl_multifit_robust_type *)(argp);
2320   }
2321 fail:
2322   return 1;
2323 }
2324 
2325 
_wrap_gsl_multifit_robust_bisquare_get(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))2326 SWIGCLASS_STATIC int _wrap_gsl_multifit_robust_bisquare_get(pTHX_ SV *sv, MAGIC *SWIGUNUSEDPARM(mg)) {
2327   MAGIC_PPERL
2328   sv_setiv(SvRV(sv),PTR2IV(gsl_multifit_robust_bisquare));
2329   return 1;
2330 }
2331 
2332 
_wrap_gsl_multifit_robust_cauchy_set(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))2333 SWIGCLASS_STATIC int _wrap_gsl_multifit_robust_cauchy_set(pTHX_ SV* sv, MAGIC * SWIGUNUSEDPARM(mg)) {
2334   MAGIC_PPERL
2335   {
2336     void *argp = 0;
2337     int res = SWIG_ConvertPtr(sv, &argp, SWIGTYPE_p_gsl_multifit_robust_type,  0 );
2338     if (!SWIG_IsOK(res)) {
2339       SWIG_exception_fail(SWIG_ArgError(res), "in variable '""gsl_multifit_robust_cauchy""' of type '""gsl_multifit_robust_type const *""'");
2340     }
2341     gsl_multifit_robust_cauchy = (gsl_multifit_robust_type *)(argp);
2342   }
2343 fail:
2344   return 1;
2345 }
2346 
2347 
_wrap_gsl_multifit_robust_cauchy_get(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))2348 SWIGCLASS_STATIC int _wrap_gsl_multifit_robust_cauchy_get(pTHX_ SV *sv, MAGIC *SWIGUNUSEDPARM(mg)) {
2349   MAGIC_PPERL
2350   sv_setiv(SvRV(sv),PTR2IV(gsl_multifit_robust_cauchy));
2351   return 1;
2352 }
2353 
2354 
_wrap_gsl_multifit_robust_fair_set(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))2355 SWIGCLASS_STATIC int _wrap_gsl_multifit_robust_fair_set(pTHX_ SV* sv, MAGIC * SWIGUNUSEDPARM(mg)) {
2356   MAGIC_PPERL
2357   {
2358     void *argp = 0;
2359     int res = SWIG_ConvertPtr(sv, &argp, SWIGTYPE_p_gsl_multifit_robust_type,  0 );
2360     if (!SWIG_IsOK(res)) {
2361       SWIG_exception_fail(SWIG_ArgError(res), "in variable '""gsl_multifit_robust_fair""' of type '""gsl_multifit_robust_type const *""'");
2362     }
2363     gsl_multifit_robust_fair = (gsl_multifit_robust_type *)(argp);
2364   }
2365 fail:
2366   return 1;
2367 }
2368 
2369 
_wrap_gsl_multifit_robust_fair_get(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))2370 SWIGCLASS_STATIC int _wrap_gsl_multifit_robust_fair_get(pTHX_ SV *sv, MAGIC *SWIGUNUSEDPARM(mg)) {
2371   MAGIC_PPERL
2372   sv_setiv(SvRV(sv),PTR2IV(gsl_multifit_robust_fair));
2373   return 1;
2374 }
2375 
2376 
_wrap_gsl_multifit_robust_huber_set(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))2377 SWIGCLASS_STATIC int _wrap_gsl_multifit_robust_huber_set(pTHX_ SV* sv, MAGIC * SWIGUNUSEDPARM(mg)) {
2378   MAGIC_PPERL
2379   {
2380     void *argp = 0;
2381     int res = SWIG_ConvertPtr(sv, &argp, SWIGTYPE_p_gsl_multifit_robust_type,  0 );
2382     if (!SWIG_IsOK(res)) {
2383       SWIG_exception_fail(SWIG_ArgError(res), "in variable '""gsl_multifit_robust_huber""' of type '""gsl_multifit_robust_type const *""'");
2384     }
2385     gsl_multifit_robust_huber = (gsl_multifit_robust_type *)(argp);
2386   }
2387 fail:
2388   return 1;
2389 }
2390 
2391 
_wrap_gsl_multifit_robust_huber_get(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))2392 SWIGCLASS_STATIC int _wrap_gsl_multifit_robust_huber_get(pTHX_ SV *sv, MAGIC *SWIGUNUSEDPARM(mg)) {
2393   MAGIC_PPERL
2394   sv_setiv(SvRV(sv),PTR2IV(gsl_multifit_robust_huber));
2395   return 1;
2396 }
2397 
2398 
_wrap_gsl_multifit_robust_ols_set(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))2399 SWIGCLASS_STATIC int _wrap_gsl_multifit_robust_ols_set(pTHX_ SV* sv, MAGIC * SWIGUNUSEDPARM(mg)) {
2400   MAGIC_PPERL
2401   {
2402     void *argp = 0;
2403     int res = SWIG_ConvertPtr(sv, &argp, SWIGTYPE_p_gsl_multifit_robust_type,  0 );
2404     if (!SWIG_IsOK(res)) {
2405       SWIG_exception_fail(SWIG_ArgError(res), "in variable '""gsl_multifit_robust_ols""' of type '""gsl_multifit_robust_type const *""'");
2406     }
2407     gsl_multifit_robust_ols = (gsl_multifit_robust_type *)(argp);
2408   }
2409 fail:
2410   return 1;
2411 }
2412 
2413 
_wrap_gsl_multifit_robust_ols_get(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))2414 SWIGCLASS_STATIC int _wrap_gsl_multifit_robust_ols_get(pTHX_ SV *sv, MAGIC *SWIGUNUSEDPARM(mg)) {
2415   MAGIC_PPERL
2416   sv_setiv(SvRV(sv),PTR2IV(gsl_multifit_robust_ols));
2417   return 1;
2418 }
2419 
2420 
_wrap_gsl_multifit_robust_welsch_set(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))2421 SWIGCLASS_STATIC int _wrap_gsl_multifit_robust_welsch_set(pTHX_ SV* sv, MAGIC * SWIGUNUSEDPARM(mg)) {
2422   MAGIC_PPERL
2423   {
2424     void *argp = 0;
2425     int res = SWIG_ConvertPtr(sv, &argp, SWIGTYPE_p_gsl_multifit_robust_type,  0 );
2426     if (!SWIG_IsOK(res)) {
2427       SWIG_exception_fail(SWIG_ArgError(res), "in variable '""gsl_multifit_robust_welsch""' of type '""gsl_multifit_robust_type const *""'");
2428     }
2429     gsl_multifit_robust_welsch = (gsl_multifit_robust_type *)(argp);
2430   }
2431 fail:
2432   return 1;
2433 }
2434 
2435 
_wrap_gsl_multifit_robust_welsch_get(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))2436 SWIGCLASS_STATIC int _wrap_gsl_multifit_robust_welsch_get(pTHX_ SV *sv, MAGIC *SWIGUNUSEDPARM(mg)) {
2437   MAGIC_PPERL
2438   sv_setiv(SvRV(sv),PTR2IV(gsl_multifit_robust_welsch));
2439   return 1;
2440 }
2441 
2442 
_wrap_gsl_multilarge_linear_normal_set(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))2443 SWIGCLASS_STATIC int _wrap_gsl_multilarge_linear_normal_set(pTHX_ SV* sv, MAGIC * SWIGUNUSEDPARM(mg)) {
2444   MAGIC_PPERL
2445   {
2446     void *argp = 0;
2447     int res = SWIG_ConvertPtr(sv, &argp, SWIGTYPE_p_gsl_multilarge_linear_type,  0 );
2448     if (!SWIG_IsOK(res)) {
2449       SWIG_exception_fail(SWIG_ArgError(res), "in variable '""gsl_multilarge_linear_normal""' of type '""gsl_multilarge_linear_type const *""'");
2450     }
2451     gsl_multilarge_linear_normal = (gsl_multilarge_linear_type *)(argp);
2452   }
2453 fail:
2454   return 1;
2455 }
2456 
2457 
_wrap_gsl_multilarge_linear_normal_get(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))2458 SWIGCLASS_STATIC int _wrap_gsl_multilarge_linear_normal_get(pTHX_ SV *sv, MAGIC *SWIGUNUSEDPARM(mg)) {
2459   MAGIC_PPERL
2460   sv_setiv(SvRV(sv),PTR2IV(gsl_multilarge_linear_normal));
2461   return 1;
2462 }
2463 
2464 
_wrap_gsl_multilarge_linear_tsqr_set(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))2465 SWIGCLASS_STATIC int _wrap_gsl_multilarge_linear_tsqr_set(pTHX_ SV* sv, MAGIC * SWIGUNUSEDPARM(mg)) {
2466   MAGIC_PPERL
2467   {
2468     void *argp = 0;
2469     int res = SWIG_ConvertPtr(sv, &argp, SWIGTYPE_p_gsl_multilarge_linear_type,  0 );
2470     if (!SWIG_IsOK(res)) {
2471       SWIG_exception_fail(SWIG_ArgError(res), "in variable '""gsl_multilarge_linear_tsqr""' of type '""gsl_multilarge_linear_type const *""'");
2472     }
2473     gsl_multilarge_linear_tsqr = (gsl_multilarge_linear_type *)(argp);
2474   }
2475 fail:
2476   return 1;
2477 }
2478 
2479 
_wrap_gsl_multilarge_linear_tsqr_get(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))2480 SWIGCLASS_STATIC int _wrap_gsl_multilarge_linear_tsqr_get(pTHX_ SV *sv, MAGIC *SWIGUNUSEDPARM(mg)) {
2481   MAGIC_PPERL
2482   sv_setiv(SvRV(sv),PTR2IV(gsl_multilarge_linear_tsqr));
2483   return 1;
2484 }
2485 
2486 
2487 
2488 
2489 #ifdef PERL_OBJECT
2490 };
2491 #endif
2492 
2493 #ifdef __cplusplus
2494 }
2495 #endif
2496 
2497 #ifdef __cplusplus
2498 extern "C" {
2499 #endif
XS(_wrap_gsl_error)2500 XS(_wrap_gsl_error) {
2501   {
2502     char *arg1 = (char *) 0 ;
2503     char *arg2 = (char *) 0 ;
2504     int arg3 ;
2505     int arg4 ;
2506     int res1 ;
2507     char *buf1 = 0 ;
2508     int alloc1 = 0 ;
2509     int res2 ;
2510     char *buf2 = 0 ;
2511     int alloc2 = 0 ;
2512     int val3 ;
2513     int ecode3 = 0 ;
2514     int val4 ;
2515     int ecode4 = 0 ;
2516     int argvi = 0;
2517     dXSARGS;
2518 
2519     if ((items < 4) || (items > 4)) {
2520       SWIG_croak("Usage: gsl_error(reason,file,line,gsl_errno);");
2521     }
2522     res1 = SWIG_AsCharPtrAndSize(ST(0), &buf1, NULL, &alloc1);
2523     if (!SWIG_IsOK(res1)) {
2524       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_error" "', argument " "1"" of type '" "char const *""'");
2525     }
2526     arg1 = (char *)(buf1);
2527     res2 = SWIG_AsCharPtrAndSize(ST(1), &buf2, NULL, &alloc2);
2528     if (!SWIG_IsOK(res2)) {
2529       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_error" "', argument " "2"" of type '" "char const *""'");
2530     }
2531     arg2 = (char *)(buf2);
2532     ecode3 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
2533     if (!SWIG_IsOK(ecode3)) {
2534       SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_error" "', argument " "3"" of type '" "int""'");
2535     }
2536     arg3 = (int)(val3);
2537     ecode4 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(3), &val4);
2538     if (!SWIG_IsOK(ecode4)) {
2539       SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "gsl_error" "', argument " "4"" of type '" "int""'");
2540     }
2541     arg4 = (int)(val4);
2542     gsl_error((char const *)arg1,(char const *)arg2,arg3,arg4);
2543     ST(argvi) = &PL_sv_undef;
2544     if (alloc1 == SWIG_NEWOBJ) free((char*)buf1);
2545     if (alloc2 == SWIG_NEWOBJ) free((char*)buf2);
2546 
2547 
2548     XSRETURN(argvi);
2549   fail:
2550     if (alloc1 == SWIG_NEWOBJ) free((char*)buf1);
2551     if (alloc2 == SWIG_NEWOBJ) free((char*)buf2);
2552 
2553 
2554     SWIG_croak_null();
2555   }
2556 }
2557 
2558 
XS(_wrap_gsl_stream_printf)2559 XS(_wrap_gsl_stream_printf) {
2560   {
2561     char *arg1 = (char *) 0 ;
2562     char *arg2 = (char *) 0 ;
2563     int arg3 ;
2564     char *arg4 = (char *) 0 ;
2565     int res1 ;
2566     char *buf1 = 0 ;
2567     int alloc1 = 0 ;
2568     int res2 ;
2569     char *buf2 = 0 ;
2570     int alloc2 = 0 ;
2571     int val3 ;
2572     int ecode3 = 0 ;
2573     int res4 ;
2574     char *buf4 = 0 ;
2575     int alloc4 = 0 ;
2576     int argvi = 0;
2577     dXSARGS;
2578 
2579     if ((items < 4) || (items > 4)) {
2580       SWIG_croak("Usage: gsl_stream_printf(label,file,line,reason);");
2581     }
2582     res1 = SWIG_AsCharPtrAndSize(ST(0), &buf1, NULL, &alloc1);
2583     if (!SWIG_IsOK(res1)) {
2584       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_stream_printf" "', argument " "1"" of type '" "char const *""'");
2585     }
2586     arg1 = (char *)(buf1);
2587     res2 = SWIG_AsCharPtrAndSize(ST(1), &buf2, NULL, &alloc2);
2588     if (!SWIG_IsOK(res2)) {
2589       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_stream_printf" "', argument " "2"" of type '" "char const *""'");
2590     }
2591     arg2 = (char *)(buf2);
2592     ecode3 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
2593     if (!SWIG_IsOK(ecode3)) {
2594       SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_stream_printf" "', argument " "3"" of type '" "int""'");
2595     }
2596     arg3 = (int)(val3);
2597     res4 = SWIG_AsCharPtrAndSize(ST(3), &buf4, NULL, &alloc4);
2598     if (!SWIG_IsOK(res4)) {
2599       SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_stream_printf" "', argument " "4"" of type '" "char const *""'");
2600     }
2601     arg4 = (char *)(buf4);
2602     gsl_stream_printf((char const *)arg1,(char const *)arg2,arg3,(char const *)arg4);
2603     ST(argvi) = &PL_sv_undef;
2604     if (alloc1 == SWIG_NEWOBJ) free((char*)buf1);
2605     if (alloc2 == SWIG_NEWOBJ) free((char*)buf2);
2606 
2607     if (alloc4 == SWIG_NEWOBJ) free((char*)buf4);
2608     XSRETURN(argvi);
2609   fail:
2610     if (alloc1 == SWIG_NEWOBJ) free((char*)buf1);
2611     if (alloc2 == SWIG_NEWOBJ) free((char*)buf2);
2612 
2613     if (alloc4 == SWIG_NEWOBJ) free((char*)buf4);
2614     SWIG_croak_null();
2615   }
2616 }
2617 
2618 
XS(_wrap_gsl_strerror)2619 XS(_wrap_gsl_strerror) {
2620   {
2621     int arg1 ;
2622     int val1 ;
2623     int ecode1 = 0 ;
2624     int argvi = 0;
2625     char *result = 0 ;
2626     dXSARGS;
2627 
2628     if ((items < 1) || (items > 1)) {
2629       SWIG_croak("Usage: gsl_strerror(gsl_errno);");
2630     }
2631     ecode1 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
2632     if (!SWIG_IsOK(ecode1)) {
2633       SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_strerror" "', argument " "1"" of type '" "int""'");
2634     }
2635     arg1 = (int)(val1);
2636     result = (char *)gsl_strerror(arg1);
2637     ST(argvi) = SWIG_FromCharPtr((const char *)result); argvi++ ;
2638 
2639     XSRETURN(argvi);
2640   fail:
2641 
2642     SWIG_croak_null();
2643   }
2644 }
2645 
2646 
XS(_wrap_gsl_set_error_handler)2647 XS(_wrap_gsl_set_error_handler) {
2648   {
2649     gsl_error_handler_t *arg1 = (gsl_error_handler_t *) 0 ;
2650     int argvi = 0;
2651     gsl_error_handler_t *result = 0 ;
2652     dXSARGS;
2653 
2654     if ((items < 1) || (items > 1)) {
2655       SWIG_croak("Usage: gsl_set_error_handler(new_handler);");
2656     }
2657     {
2658       int res = SWIG_ConvertFunctionPtr(ST(0), (void**)(&arg1), SWIGTYPE_p_f_p_q_const__char_p_q_const__char_int_int__void);
2659       if (!SWIG_IsOK(res)) {
2660         SWIG_exception_fail(SWIG_ArgError(res), "in method '" "gsl_set_error_handler" "', argument " "1"" of type '" "gsl_error_handler_t *""'");
2661       }
2662     }
2663     result = (gsl_error_handler_t *)gsl_set_error_handler(arg1);
2664     ST(argvi) = SWIG_NewFunctionPtrObj((void *)(result), SWIGTYPE_p_f_p_q_const__char_p_q_const__char_int_int__void); argvi++ ;
2665 
2666     XSRETURN(argvi);
2667   fail:
2668 
2669     SWIG_croak_null();
2670   }
2671 }
2672 
2673 
XS(_wrap_gsl_set_error_handler_off)2674 XS(_wrap_gsl_set_error_handler_off) {
2675   {
2676     int argvi = 0;
2677     gsl_error_handler_t *result = 0 ;
2678     dXSARGS;
2679 
2680     if ((items < 0) || (items > 0)) {
2681       SWIG_croak("Usage: gsl_set_error_handler_off();");
2682     }
2683     result = (gsl_error_handler_t *)gsl_set_error_handler_off();
2684     ST(argvi) = SWIG_NewFunctionPtrObj((void *)(result), SWIGTYPE_p_f_p_q_const__char_p_q_const__char_int_int__void); argvi++ ;
2685     XSRETURN(argvi);
2686   fail:
2687     SWIG_croak_null();
2688   }
2689 }
2690 
2691 
XS(_wrap_gsl_set_stream_handler)2692 XS(_wrap_gsl_set_stream_handler) {
2693   {
2694     gsl_stream_handler_t *arg1 = (gsl_stream_handler_t *) 0 ;
2695     int argvi = 0;
2696     gsl_stream_handler_t *result = 0 ;
2697     dXSARGS;
2698 
2699     if ((items < 1) || (items > 1)) {
2700       SWIG_croak("Usage: gsl_set_stream_handler(new_handler);");
2701     }
2702     {
2703       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);
2704       if (!SWIG_IsOK(res)) {
2705         SWIG_exception_fail(SWIG_ArgError(res), "in method '" "gsl_set_stream_handler" "', argument " "1"" of type '" "gsl_stream_handler_t *""'");
2706       }
2707     }
2708     result = (gsl_stream_handler_t *)gsl_set_stream_handler(arg1);
2709     ST(argvi) = SWIG_NewFunctionPtrObj((void *)(result), SWIGTYPE_p_f_p_q_const__char_p_q_const__char_int_p_q_const__char__void); argvi++ ;
2710 
2711     XSRETURN(argvi);
2712   fail:
2713 
2714     SWIG_croak_null();
2715   }
2716 }
2717 
2718 
XS(_wrap_gsl_set_stream)2719 XS(_wrap_gsl_set_stream) {
2720   {
2721     FILE *arg1 = (FILE *) 0 ;
2722     void *argp1 = 0 ;
2723     int res1 = 0 ;
2724     int argvi = 0;
2725     FILE *result = 0 ;
2726     dXSARGS;
2727 
2728     if ((items < 1) || (items > 1)) {
2729       SWIG_croak("Usage: gsl_set_stream(new_stream);");
2730     }
2731     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_FILE, 0 |  0 );
2732     if (!SWIG_IsOK(res1)) {
2733       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_set_stream" "', argument " "1"" of type '" "FILE *""'");
2734     }
2735     arg1 = (FILE *)(argp1);
2736     result = (FILE *)gsl_set_stream(arg1);
2737     ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_FILE, 0 | 0); argvi++ ;
2738 
2739     XSRETURN(argvi);
2740   fail:
2741 
2742     SWIG_croak_null();
2743   }
2744 }
2745 
2746 
XS(_wrap_gsl_function_struct_function_set)2747 XS(_wrap_gsl_function_struct_function_set) {
2748   {
2749     struct gsl_function_struct *arg1 = (struct gsl_function_struct *) 0 ;
2750     double (*arg2)(double,void *) = (double (*)(double,void *)) 0 ;
2751     void *argp1 = 0 ;
2752     int res1 = 0 ;
2753     int argvi = 0;
2754     dXSARGS;
2755 
2756     if ((items < 2) || (items > 2)) {
2757       SWIG_croak("Usage: gsl_function_struct_function_set(self,function);");
2758     }
2759     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_function_struct, 0 |  0 );
2760     if (!SWIG_IsOK(res1)) {
2761       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_function_struct_function_set" "', argument " "1"" of type '" "struct gsl_function_struct *""'");
2762     }
2763     arg1 = (struct gsl_function_struct *)(argp1);
2764     {
2765       int res = SWIG_ConvertFunctionPtr(ST(1), (void**)(&arg2), SWIGTYPE_p_f_double_p_void__double);
2766       if (!SWIG_IsOK(res)) {
2767         SWIG_exception_fail(SWIG_ArgError(res), "in method '" "gsl_function_struct_function_set" "', argument " "2"" of type '" "double (*)(double,void *)""'");
2768       }
2769     }
2770     if (arg1) (arg1)->function = arg2;
2771     ST(argvi) = &PL_sv_undef;
2772 
2773 
2774     XSRETURN(argvi);
2775   fail:
2776 
2777 
2778     SWIG_croak_null();
2779   }
2780 }
2781 
2782 
XS(_wrap_gsl_function_struct_function_get)2783 XS(_wrap_gsl_function_struct_function_get) {
2784   {
2785     struct gsl_function_struct *arg1 = (struct gsl_function_struct *) 0 ;
2786     void *argp1 = 0 ;
2787     int res1 = 0 ;
2788     int argvi = 0;
2789     double (*result)(double,void *) = 0 ;
2790     dXSARGS;
2791 
2792     if ((items < 1) || (items > 1)) {
2793       SWIG_croak("Usage: gsl_function_struct_function_get(self);");
2794     }
2795     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_function_struct, 0 |  0 );
2796     if (!SWIG_IsOK(res1)) {
2797       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_function_struct_function_get" "', argument " "1"" of type '" "struct gsl_function_struct *""'");
2798     }
2799     arg1 = (struct gsl_function_struct *)(argp1);
2800     result = (double (*)(double,void *)) ((arg1)->function);
2801     ST(argvi) = SWIG_NewFunctionPtrObj((void *)(result), SWIGTYPE_p_f_double_p_void__double); argvi++ ;
2802 
2803     XSRETURN(argvi);
2804   fail:
2805 
2806     SWIG_croak_null();
2807   }
2808 }
2809 
2810 
XS(_wrap_gsl_function_struct_params_set)2811 XS(_wrap_gsl_function_struct_params_set) {
2812   {
2813     struct gsl_function_struct *arg1 = (struct gsl_function_struct *) 0 ;
2814     void *arg2 = (void *) 0 ;
2815     void *argp1 = 0 ;
2816     int res1 = 0 ;
2817     int res2 ;
2818     int argvi = 0;
2819     dXSARGS;
2820 
2821     if ((items < 2) || (items > 2)) {
2822       SWIG_croak("Usage: gsl_function_struct_params_set(self,params);");
2823     }
2824     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_function_struct, 0 |  0 );
2825     if (!SWIG_IsOK(res1)) {
2826       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_function_struct_params_set" "', argument " "1"" of type '" "struct gsl_function_struct *""'");
2827     }
2828     arg1 = (struct gsl_function_struct *)(argp1);
2829     res2 = SWIG_ConvertPtr(ST(1),SWIG_as_voidptrptr(&arg2), 0, SWIG_POINTER_DISOWN);
2830     if (!SWIG_IsOK(res2)) {
2831       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_function_struct_params_set" "', argument " "2"" of type '" "void *""'");
2832     }
2833     if (arg1) (arg1)->params = arg2;
2834     ST(argvi) = &PL_sv_undef;
2835 
2836 
2837     XSRETURN(argvi);
2838   fail:
2839 
2840 
2841     SWIG_croak_null();
2842   }
2843 }
2844 
2845 
XS(_wrap_gsl_function_struct_params_get)2846 XS(_wrap_gsl_function_struct_params_get) {
2847   {
2848     struct gsl_function_struct *arg1 = (struct gsl_function_struct *) 0 ;
2849     void *argp1 = 0 ;
2850     int res1 = 0 ;
2851     int argvi = 0;
2852     void *result = 0 ;
2853     dXSARGS;
2854 
2855     if ((items < 1) || (items > 1)) {
2856       SWIG_croak("Usage: gsl_function_struct_params_get(self);");
2857     }
2858     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_function_struct, 0 |  0 );
2859     if (!SWIG_IsOK(res1)) {
2860       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_function_struct_params_get" "', argument " "1"" of type '" "struct gsl_function_struct *""'");
2861     }
2862     arg1 = (struct gsl_function_struct *)(argp1);
2863     result = (void *) ((arg1)->params);
2864     ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_void, 0 | 0); argvi++ ;
2865 
2866     XSRETURN(argvi);
2867   fail:
2868 
2869     SWIG_croak_null();
2870   }
2871 }
2872 
2873 
XS(_wrap_new_gsl_function_struct)2874 XS(_wrap_new_gsl_function_struct) {
2875   {
2876     int argvi = 0;
2877     struct gsl_function_struct *result = 0 ;
2878     dXSARGS;
2879 
2880     if ((items < 0) || (items > 0)) {
2881       SWIG_croak("Usage: new_gsl_function_struct();");
2882     }
2883     result = (struct gsl_function_struct *)calloc(1, sizeof(struct gsl_function_struct));
2884     ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_function_struct, SWIG_OWNER | SWIG_SHADOW); argvi++ ;
2885     XSRETURN(argvi);
2886   fail:
2887     SWIG_croak_null();
2888   }
2889 }
2890 
2891 
XS(_wrap_delete_gsl_function_struct)2892 XS(_wrap_delete_gsl_function_struct) {
2893   {
2894     struct gsl_function_struct *arg1 = (struct gsl_function_struct *) 0 ;
2895     void *argp1 = 0 ;
2896     int res1 = 0 ;
2897     int argvi = 0;
2898     dXSARGS;
2899 
2900     if ((items < 1) || (items > 1)) {
2901       SWIG_croak("Usage: delete_gsl_function_struct(self);");
2902     }
2903     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_function_struct, SWIG_POINTER_DISOWN |  0 );
2904     if (!SWIG_IsOK(res1)) {
2905       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "delete_gsl_function_struct" "', argument " "1"" of type '" "struct gsl_function_struct *""'");
2906     }
2907     arg1 = (struct gsl_function_struct *)(argp1);
2908     free((char *) arg1);
2909     ST(argvi) = &PL_sv_undef;
2910 
2911     XSRETURN(argvi);
2912   fail:
2913 
2914     SWIG_croak_null();
2915   }
2916 }
2917 
2918 
XS(_wrap_gsl_function_fdf_struct_f_set)2919 XS(_wrap_gsl_function_fdf_struct_f_set) {
2920   {
2921     struct gsl_function_fdf_struct *arg1 = (struct gsl_function_fdf_struct *) 0 ;
2922     double (*arg2)(double,void *) = (double (*)(double,void *)) 0 ;
2923     void *argp1 = 0 ;
2924     int res1 = 0 ;
2925     int argvi = 0;
2926     dXSARGS;
2927 
2928     if ((items < 2) || (items > 2)) {
2929       SWIG_croak("Usage: gsl_function_fdf_struct_f_set(self,f);");
2930     }
2931     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_function_fdf_struct, 0 |  0 );
2932     if (!SWIG_IsOK(res1)) {
2933       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_function_fdf_struct_f_set" "', argument " "1"" of type '" "struct gsl_function_fdf_struct *""'");
2934     }
2935     arg1 = (struct gsl_function_fdf_struct *)(argp1);
2936     {
2937       int res = SWIG_ConvertFunctionPtr(ST(1), (void**)(&arg2), SWIGTYPE_p_f_double_p_void__double);
2938       if (!SWIG_IsOK(res)) {
2939         SWIG_exception_fail(SWIG_ArgError(res), "in method '" "gsl_function_fdf_struct_f_set" "', argument " "2"" of type '" "double (*)(double,void *)""'");
2940       }
2941     }
2942     if (arg1) (arg1)->f = arg2;
2943     ST(argvi) = &PL_sv_undef;
2944 
2945 
2946     XSRETURN(argvi);
2947   fail:
2948 
2949 
2950     SWIG_croak_null();
2951   }
2952 }
2953 
2954 
XS(_wrap_gsl_function_fdf_struct_f_get)2955 XS(_wrap_gsl_function_fdf_struct_f_get) {
2956   {
2957     struct gsl_function_fdf_struct *arg1 = (struct gsl_function_fdf_struct *) 0 ;
2958     void *argp1 = 0 ;
2959     int res1 = 0 ;
2960     int argvi = 0;
2961     double (*result)(double,void *) = 0 ;
2962     dXSARGS;
2963 
2964     if ((items < 1) || (items > 1)) {
2965       SWIG_croak("Usage: gsl_function_fdf_struct_f_get(self);");
2966     }
2967     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_function_fdf_struct, 0 |  0 );
2968     if (!SWIG_IsOK(res1)) {
2969       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_function_fdf_struct_f_get" "', argument " "1"" of type '" "struct gsl_function_fdf_struct *""'");
2970     }
2971     arg1 = (struct gsl_function_fdf_struct *)(argp1);
2972     result = (double (*)(double,void *)) ((arg1)->f);
2973     ST(argvi) = SWIG_NewFunctionPtrObj((void *)(result), SWIGTYPE_p_f_double_p_void__double); argvi++ ;
2974 
2975     XSRETURN(argvi);
2976   fail:
2977 
2978     SWIG_croak_null();
2979   }
2980 }
2981 
2982 
XS(_wrap_gsl_function_fdf_struct_df_set)2983 XS(_wrap_gsl_function_fdf_struct_df_set) {
2984   {
2985     struct gsl_function_fdf_struct *arg1 = (struct gsl_function_fdf_struct *) 0 ;
2986     double (*arg2)(double,void *) = (double (*)(double,void *)) 0 ;
2987     void *argp1 = 0 ;
2988     int res1 = 0 ;
2989     int argvi = 0;
2990     dXSARGS;
2991 
2992     if ((items < 2) || (items > 2)) {
2993       SWIG_croak("Usage: gsl_function_fdf_struct_df_set(self,df);");
2994     }
2995     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_function_fdf_struct, 0 |  0 );
2996     if (!SWIG_IsOK(res1)) {
2997       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_function_fdf_struct_df_set" "', argument " "1"" of type '" "struct gsl_function_fdf_struct *""'");
2998     }
2999     arg1 = (struct gsl_function_fdf_struct *)(argp1);
3000     {
3001       int res = SWIG_ConvertFunctionPtr(ST(1), (void**)(&arg2), SWIGTYPE_p_f_double_p_void__double);
3002       if (!SWIG_IsOK(res)) {
3003         SWIG_exception_fail(SWIG_ArgError(res), "in method '" "gsl_function_fdf_struct_df_set" "', argument " "2"" of type '" "double (*)(double,void *)""'");
3004       }
3005     }
3006     if (arg1) (arg1)->df = arg2;
3007     ST(argvi) = &PL_sv_undef;
3008 
3009 
3010     XSRETURN(argvi);
3011   fail:
3012 
3013 
3014     SWIG_croak_null();
3015   }
3016 }
3017 
3018 
XS(_wrap_gsl_function_fdf_struct_df_get)3019 XS(_wrap_gsl_function_fdf_struct_df_get) {
3020   {
3021     struct gsl_function_fdf_struct *arg1 = (struct gsl_function_fdf_struct *) 0 ;
3022     void *argp1 = 0 ;
3023     int res1 = 0 ;
3024     int argvi = 0;
3025     double (*result)(double,void *) = 0 ;
3026     dXSARGS;
3027 
3028     if ((items < 1) || (items > 1)) {
3029       SWIG_croak("Usage: gsl_function_fdf_struct_df_get(self);");
3030     }
3031     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_function_fdf_struct, 0 |  0 );
3032     if (!SWIG_IsOK(res1)) {
3033       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_function_fdf_struct_df_get" "', argument " "1"" of type '" "struct gsl_function_fdf_struct *""'");
3034     }
3035     arg1 = (struct gsl_function_fdf_struct *)(argp1);
3036     result = (double (*)(double,void *)) ((arg1)->df);
3037     ST(argvi) = SWIG_NewFunctionPtrObj((void *)(result), SWIGTYPE_p_f_double_p_void__double); argvi++ ;
3038 
3039     XSRETURN(argvi);
3040   fail:
3041 
3042     SWIG_croak_null();
3043   }
3044 }
3045 
3046 
XS(_wrap_gsl_function_fdf_struct_fdf_set)3047 XS(_wrap_gsl_function_fdf_struct_fdf_set) {
3048   {
3049     struct gsl_function_fdf_struct *arg1 = (struct gsl_function_fdf_struct *) 0 ;
3050     void (*arg2)(double,void *,double *,double *) = (void (*)(double,void *,double *,double *)) 0 ;
3051     void *argp1 = 0 ;
3052     int res1 = 0 ;
3053     int argvi = 0;
3054     dXSARGS;
3055 
3056     if ((items < 2) || (items > 2)) {
3057       SWIG_croak("Usage: gsl_function_fdf_struct_fdf_set(self,fdf);");
3058     }
3059     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_function_fdf_struct, 0 |  0 );
3060     if (!SWIG_IsOK(res1)) {
3061       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_function_fdf_struct_fdf_set" "', argument " "1"" of type '" "struct gsl_function_fdf_struct *""'");
3062     }
3063     arg1 = (struct gsl_function_fdf_struct *)(argp1);
3064     {
3065       int res = SWIG_ConvertFunctionPtr(ST(1), (void**)(&arg2), SWIGTYPE_p_f_double_p_void_p_double_p_double__void);
3066       if (!SWIG_IsOK(res)) {
3067         SWIG_exception_fail(SWIG_ArgError(res), "in method '" "gsl_function_fdf_struct_fdf_set" "', argument " "2"" of type '" "void (*)(double,void *,double *,double *)""'");
3068       }
3069     }
3070     if (arg1) (arg1)->fdf = arg2;
3071     ST(argvi) = &PL_sv_undef;
3072 
3073 
3074     XSRETURN(argvi);
3075   fail:
3076 
3077 
3078     SWIG_croak_null();
3079   }
3080 }
3081 
3082 
XS(_wrap_gsl_function_fdf_struct_fdf_get)3083 XS(_wrap_gsl_function_fdf_struct_fdf_get) {
3084   {
3085     struct gsl_function_fdf_struct *arg1 = (struct gsl_function_fdf_struct *) 0 ;
3086     void *argp1 = 0 ;
3087     int res1 = 0 ;
3088     int argvi = 0;
3089     void (*result)(double,void *,double *,double *) = 0 ;
3090     dXSARGS;
3091 
3092     if ((items < 1) || (items > 1)) {
3093       SWIG_croak("Usage: gsl_function_fdf_struct_fdf_get(self);");
3094     }
3095     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_function_fdf_struct, 0 |  0 );
3096     if (!SWIG_IsOK(res1)) {
3097       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_function_fdf_struct_fdf_get" "', argument " "1"" of type '" "struct gsl_function_fdf_struct *""'");
3098     }
3099     arg1 = (struct gsl_function_fdf_struct *)(argp1);
3100     result = (void (*)(double,void *,double *,double *)) ((arg1)->fdf);
3101     ST(argvi) = SWIG_NewFunctionPtrObj((void *)(result), SWIGTYPE_p_f_double_p_void_p_double_p_double__void); argvi++ ;
3102 
3103     XSRETURN(argvi);
3104   fail:
3105 
3106     SWIG_croak_null();
3107   }
3108 }
3109 
3110 
XS(_wrap_gsl_function_fdf_struct_params_set)3111 XS(_wrap_gsl_function_fdf_struct_params_set) {
3112   {
3113     struct gsl_function_fdf_struct *arg1 = (struct gsl_function_fdf_struct *) 0 ;
3114     void *arg2 = (void *) 0 ;
3115     void *argp1 = 0 ;
3116     int res1 = 0 ;
3117     int res2 ;
3118     int argvi = 0;
3119     dXSARGS;
3120 
3121     if ((items < 2) || (items > 2)) {
3122       SWIG_croak("Usage: gsl_function_fdf_struct_params_set(self,params);");
3123     }
3124     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_function_fdf_struct, 0 |  0 );
3125     if (!SWIG_IsOK(res1)) {
3126       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_function_fdf_struct_params_set" "', argument " "1"" of type '" "struct gsl_function_fdf_struct *""'");
3127     }
3128     arg1 = (struct gsl_function_fdf_struct *)(argp1);
3129     res2 = SWIG_ConvertPtr(ST(1),SWIG_as_voidptrptr(&arg2), 0, SWIG_POINTER_DISOWN);
3130     if (!SWIG_IsOK(res2)) {
3131       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_function_fdf_struct_params_set" "', argument " "2"" of type '" "void *""'");
3132     }
3133     if (arg1) (arg1)->params = arg2;
3134     ST(argvi) = &PL_sv_undef;
3135 
3136 
3137     XSRETURN(argvi);
3138   fail:
3139 
3140 
3141     SWIG_croak_null();
3142   }
3143 }
3144 
3145 
XS(_wrap_gsl_function_fdf_struct_params_get)3146 XS(_wrap_gsl_function_fdf_struct_params_get) {
3147   {
3148     struct gsl_function_fdf_struct *arg1 = (struct gsl_function_fdf_struct *) 0 ;
3149     void *argp1 = 0 ;
3150     int res1 = 0 ;
3151     int argvi = 0;
3152     void *result = 0 ;
3153     dXSARGS;
3154 
3155     if ((items < 1) || (items > 1)) {
3156       SWIG_croak("Usage: gsl_function_fdf_struct_params_get(self);");
3157     }
3158     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_function_fdf_struct, 0 |  0 );
3159     if (!SWIG_IsOK(res1)) {
3160       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_function_fdf_struct_params_get" "', argument " "1"" of type '" "struct gsl_function_fdf_struct *""'");
3161     }
3162     arg1 = (struct gsl_function_fdf_struct *)(argp1);
3163     result = (void *) ((arg1)->params);
3164     ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_void, 0 | 0); argvi++ ;
3165 
3166     XSRETURN(argvi);
3167   fail:
3168 
3169     SWIG_croak_null();
3170   }
3171 }
3172 
3173 
XS(_wrap_new_gsl_function_fdf_struct)3174 XS(_wrap_new_gsl_function_fdf_struct) {
3175   {
3176     int argvi = 0;
3177     struct gsl_function_fdf_struct *result = 0 ;
3178     dXSARGS;
3179 
3180     if ((items < 0) || (items > 0)) {
3181       SWIG_croak("Usage: new_gsl_function_fdf_struct();");
3182     }
3183     result = (struct gsl_function_fdf_struct *)calloc(1, sizeof(struct gsl_function_fdf_struct));
3184     ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_function_fdf_struct, SWIG_OWNER | SWIG_SHADOW); argvi++ ;
3185     XSRETURN(argvi);
3186   fail:
3187     SWIG_croak_null();
3188   }
3189 }
3190 
3191 
XS(_wrap_delete_gsl_function_fdf_struct)3192 XS(_wrap_delete_gsl_function_fdf_struct) {
3193   {
3194     struct gsl_function_fdf_struct *arg1 = (struct gsl_function_fdf_struct *) 0 ;
3195     void *argp1 = 0 ;
3196     int res1 = 0 ;
3197     int argvi = 0;
3198     dXSARGS;
3199 
3200     if ((items < 1) || (items > 1)) {
3201       SWIG_croak("Usage: delete_gsl_function_fdf_struct(self);");
3202     }
3203     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_function_fdf_struct, SWIG_POINTER_DISOWN |  0 );
3204     if (!SWIG_IsOK(res1)) {
3205       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "delete_gsl_function_fdf_struct" "', argument " "1"" of type '" "struct gsl_function_fdf_struct *""'");
3206     }
3207     arg1 = (struct gsl_function_fdf_struct *)(argp1);
3208     free((char *) arg1);
3209     ST(argvi) = &PL_sv_undef;
3210 
3211     XSRETURN(argvi);
3212   fail:
3213 
3214     SWIG_croak_null();
3215   }
3216 }
3217 
3218 
XS(_wrap_gsl_function_vec_struct_function_set)3219 XS(_wrap_gsl_function_vec_struct_function_set) {
3220   {
3221     struct gsl_function_vec_struct *arg1 = (struct gsl_function_vec_struct *) 0 ;
3222     int (*arg2)(double,double [],void *) = (int (*)(double,double [],void *)) 0 ;
3223     void *argp1 = 0 ;
3224     int res1 = 0 ;
3225     int argvi = 0;
3226     dXSARGS;
3227 
3228     if ((items < 2) || (items > 2)) {
3229       SWIG_croak("Usage: gsl_function_vec_struct_function_set(self,function);");
3230     }
3231     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_function_vec_struct, 0 |  0 );
3232     if (!SWIG_IsOK(res1)) {
3233       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_function_vec_struct_function_set" "', argument " "1"" of type '" "struct gsl_function_vec_struct *""'");
3234     }
3235     arg1 = (struct gsl_function_vec_struct *)(argp1);
3236     {
3237       int res = SWIG_ConvertFunctionPtr(ST(1), (void**)(&arg2), SWIGTYPE_p_f_double_a___double_p_void__int);
3238       if (!SWIG_IsOK(res)) {
3239         SWIG_exception_fail(SWIG_ArgError(res), "in method '" "gsl_function_vec_struct_function_set" "', argument " "2"" of type '" "int (*)(double,double [],void *)""'");
3240       }
3241     }
3242     if (arg1) (arg1)->function = arg2;
3243     ST(argvi) = &PL_sv_undef;
3244 
3245 
3246     XSRETURN(argvi);
3247   fail:
3248 
3249 
3250     SWIG_croak_null();
3251   }
3252 }
3253 
3254 
XS(_wrap_gsl_function_vec_struct_function_get)3255 XS(_wrap_gsl_function_vec_struct_function_get) {
3256   {
3257     struct gsl_function_vec_struct *arg1 = (struct gsl_function_vec_struct *) 0 ;
3258     void *argp1 = 0 ;
3259     int res1 = 0 ;
3260     int argvi = 0;
3261     int (*result)(double,double [],void *) = 0 ;
3262     dXSARGS;
3263 
3264     if ((items < 1) || (items > 1)) {
3265       SWIG_croak("Usage: gsl_function_vec_struct_function_get(self);");
3266     }
3267     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_function_vec_struct, 0 |  0 );
3268     if (!SWIG_IsOK(res1)) {
3269       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_function_vec_struct_function_get" "', argument " "1"" of type '" "struct gsl_function_vec_struct *""'");
3270     }
3271     arg1 = (struct gsl_function_vec_struct *)(argp1);
3272     result = (int (*)(double,double [],void *)) ((arg1)->function);
3273     ST(argvi) = SWIG_NewFunctionPtrObj((void *)(result), SWIGTYPE_p_f_double_a___double_p_void__int); argvi++ ;
3274 
3275     XSRETURN(argvi);
3276   fail:
3277 
3278     SWIG_croak_null();
3279   }
3280 }
3281 
3282 
XS(_wrap_gsl_function_vec_struct_params_set)3283 XS(_wrap_gsl_function_vec_struct_params_set) {
3284   {
3285     struct gsl_function_vec_struct *arg1 = (struct gsl_function_vec_struct *) 0 ;
3286     void *arg2 = (void *) 0 ;
3287     void *argp1 = 0 ;
3288     int res1 = 0 ;
3289     int res2 ;
3290     int argvi = 0;
3291     dXSARGS;
3292 
3293     if ((items < 2) || (items > 2)) {
3294       SWIG_croak("Usage: gsl_function_vec_struct_params_set(self,params);");
3295     }
3296     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_function_vec_struct, 0 |  0 );
3297     if (!SWIG_IsOK(res1)) {
3298       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_function_vec_struct_params_set" "', argument " "1"" of type '" "struct gsl_function_vec_struct *""'");
3299     }
3300     arg1 = (struct gsl_function_vec_struct *)(argp1);
3301     res2 = SWIG_ConvertPtr(ST(1),SWIG_as_voidptrptr(&arg2), 0, SWIG_POINTER_DISOWN);
3302     if (!SWIG_IsOK(res2)) {
3303       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_function_vec_struct_params_set" "', argument " "2"" of type '" "void *""'");
3304     }
3305     if (arg1) (arg1)->params = arg2;
3306     ST(argvi) = &PL_sv_undef;
3307 
3308 
3309     XSRETURN(argvi);
3310   fail:
3311 
3312 
3313     SWIG_croak_null();
3314   }
3315 }
3316 
3317 
XS(_wrap_gsl_function_vec_struct_params_get)3318 XS(_wrap_gsl_function_vec_struct_params_get) {
3319   {
3320     struct gsl_function_vec_struct *arg1 = (struct gsl_function_vec_struct *) 0 ;
3321     void *argp1 = 0 ;
3322     int res1 = 0 ;
3323     int argvi = 0;
3324     void *result = 0 ;
3325     dXSARGS;
3326 
3327     if ((items < 1) || (items > 1)) {
3328       SWIG_croak("Usage: gsl_function_vec_struct_params_get(self);");
3329     }
3330     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_function_vec_struct, 0 |  0 );
3331     if (!SWIG_IsOK(res1)) {
3332       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_function_vec_struct_params_get" "', argument " "1"" of type '" "struct gsl_function_vec_struct *""'");
3333     }
3334     arg1 = (struct gsl_function_vec_struct *)(argp1);
3335     result = (void *) ((arg1)->params);
3336     ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_void, 0 | 0); argvi++ ;
3337 
3338     XSRETURN(argvi);
3339   fail:
3340 
3341     SWIG_croak_null();
3342   }
3343 }
3344 
3345 
XS(_wrap_new_gsl_function_vec_struct)3346 XS(_wrap_new_gsl_function_vec_struct) {
3347   {
3348     int argvi = 0;
3349     struct gsl_function_vec_struct *result = 0 ;
3350     dXSARGS;
3351 
3352     if ((items < 0) || (items > 0)) {
3353       SWIG_croak("Usage: new_gsl_function_vec_struct();");
3354     }
3355     result = (struct gsl_function_vec_struct *)calloc(1, sizeof(struct gsl_function_vec_struct));
3356     ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_function_vec_struct, SWIG_OWNER | SWIG_SHADOW); argvi++ ;
3357     XSRETURN(argvi);
3358   fail:
3359     SWIG_croak_null();
3360   }
3361 }
3362 
3363 
XS(_wrap_delete_gsl_function_vec_struct)3364 XS(_wrap_delete_gsl_function_vec_struct) {
3365   {
3366     struct gsl_function_vec_struct *arg1 = (struct gsl_function_vec_struct *) 0 ;
3367     void *argp1 = 0 ;
3368     int res1 = 0 ;
3369     int argvi = 0;
3370     dXSARGS;
3371 
3372     if ((items < 1) || (items > 1)) {
3373       SWIG_croak("Usage: delete_gsl_function_vec_struct(self);");
3374     }
3375     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_function_vec_struct, SWIG_POINTER_DISOWN |  0 );
3376     if (!SWIG_IsOK(res1)) {
3377       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "delete_gsl_function_vec_struct" "', argument " "1"" of type '" "struct gsl_function_vec_struct *""'");
3378     }
3379     arg1 = (struct gsl_function_vec_struct *)(argp1);
3380     free((char *) arg1);
3381     ST(argvi) = &PL_sv_undef;
3382 
3383     XSRETURN(argvi);
3384   fail:
3385 
3386     SWIG_croak_null();
3387   }
3388 }
3389 
3390 
XS(_wrap_gsl_permutation_struct_size_set)3391 XS(_wrap_gsl_permutation_struct_size_set) {
3392   {
3393     struct gsl_permutation_struct *arg1 = (struct gsl_permutation_struct *) 0 ;
3394     size_t arg2 ;
3395     void *argp1 = 0 ;
3396     int res1 = 0 ;
3397     size_t val2 ;
3398     int ecode2 = 0 ;
3399     int argvi = 0;
3400     dXSARGS;
3401 
3402     if ((items < 2) || (items > 2)) {
3403       SWIG_croak("Usage: gsl_permutation_struct_size_set(self,size);");
3404     }
3405     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 |  0 );
3406     if (!SWIG_IsOK(res1)) {
3407       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_struct_size_set" "', argument " "1"" of type '" "struct gsl_permutation_struct *""'");
3408     }
3409     arg1 = (struct gsl_permutation_struct *)(argp1);
3410     ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
3411     if (!SWIG_IsOK(ecode2)) {
3412       SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_permutation_struct_size_set" "', argument " "2"" of type '" "size_t""'");
3413     }
3414     arg2 = (size_t)(val2);
3415     if (arg1) (arg1)->size = arg2;
3416     ST(argvi) = &PL_sv_undef;
3417 
3418 
3419     XSRETURN(argvi);
3420   fail:
3421 
3422 
3423     SWIG_croak_null();
3424   }
3425 }
3426 
3427 
XS(_wrap_gsl_permutation_struct_size_get)3428 XS(_wrap_gsl_permutation_struct_size_get) {
3429   {
3430     struct gsl_permutation_struct *arg1 = (struct gsl_permutation_struct *) 0 ;
3431     void *argp1 = 0 ;
3432     int res1 = 0 ;
3433     int argvi = 0;
3434     size_t result;
3435     dXSARGS;
3436 
3437     if ((items < 1) || (items > 1)) {
3438       SWIG_croak("Usage: gsl_permutation_struct_size_get(self);");
3439     }
3440     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 |  0 );
3441     if (!SWIG_IsOK(res1)) {
3442       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_struct_size_get" "', argument " "1"" of type '" "struct gsl_permutation_struct *""'");
3443     }
3444     arg1 = (struct gsl_permutation_struct *)(argp1);
3445     result =  ((arg1)->size);
3446     ST(argvi) = SWIG_From_size_t  SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
3447 
3448     XSRETURN(argvi);
3449   fail:
3450 
3451     SWIG_croak_null();
3452   }
3453 }
3454 
3455 
XS(_wrap_gsl_permutation_struct_data_set)3456 XS(_wrap_gsl_permutation_struct_data_set) {
3457   {
3458     struct gsl_permutation_struct *arg1 = (struct gsl_permutation_struct *) 0 ;
3459     size_t *arg2 = (size_t *) 0 ;
3460     void *argp1 = 0 ;
3461     int res1 = 0 ;
3462     void *argp2 = 0 ;
3463     int res2 = 0 ;
3464     int argvi = 0;
3465     dXSARGS;
3466 
3467     if ((items < 2) || (items > 2)) {
3468       SWIG_croak("Usage: gsl_permutation_struct_data_set(self,data);");
3469     }
3470     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 |  0 );
3471     if (!SWIG_IsOK(res1)) {
3472       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_struct_data_set" "', argument " "1"" of type '" "struct gsl_permutation_struct *""'");
3473     }
3474     arg1 = (struct gsl_permutation_struct *)(argp1);
3475     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_size_t, SWIG_POINTER_DISOWN |  0 );
3476     if (!SWIG_IsOK(res2)) {
3477       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_permutation_struct_data_set" "', argument " "2"" of type '" "size_t *""'");
3478     }
3479     arg2 = (size_t *)(argp2);
3480     if (arg1) (arg1)->data = arg2;
3481     ST(argvi) = &PL_sv_undef;
3482 
3483 
3484     XSRETURN(argvi);
3485   fail:
3486 
3487 
3488     SWIG_croak_null();
3489   }
3490 }
3491 
3492 
XS(_wrap_gsl_permutation_struct_data_get)3493 XS(_wrap_gsl_permutation_struct_data_get) {
3494   {
3495     struct gsl_permutation_struct *arg1 = (struct gsl_permutation_struct *) 0 ;
3496     void *argp1 = 0 ;
3497     int res1 = 0 ;
3498     int argvi = 0;
3499     size_t *result = 0 ;
3500     dXSARGS;
3501 
3502     if ((items < 1) || (items > 1)) {
3503       SWIG_croak("Usage: gsl_permutation_struct_data_get(self);");
3504     }
3505     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 |  0 );
3506     if (!SWIG_IsOK(res1)) {
3507       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_struct_data_get" "', argument " "1"" of type '" "struct gsl_permutation_struct *""'");
3508     }
3509     arg1 = (struct gsl_permutation_struct *)(argp1);
3510     result = (size_t *) ((arg1)->data);
3511     ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_size_t, 0 | 0); argvi++ ;
3512 
3513     XSRETURN(argvi);
3514   fail:
3515 
3516     SWIG_croak_null();
3517   }
3518 }
3519 
3520 
XS(_wrap_new_gsl_permutation_struct)3521 XS(_wrap_new_gsl_permutation_struct) {
3522   {
3523     int argvi = 0;
3524     struct gsl_permutation_struct *result = 0 ;
3525     dXSARGS;
3526 
3527     if ((items < 0) || (items > 0)) {
3528       SWIG_croak("Usage: new_gsl_permutation_struct();");
3529     }
3530     result = (struct gsl_permutation_struct *)calloc(1, sizeof(struct gsl_permutation_struct));
3531     ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_permutation_struct, SWIG_OWNER | SWIG_SHADOW); argvi++ ;
3532     XSRETURN(argvi);
3533   fail:
3534     SWIG_croak_null();
3535   }
3536 }
3537 
3538 
XS(_wrap_delete_gsl_permutation_struct)3539 XS(_wrap_delete_gsl_permutation_struct) {
3540   {
3541     struct gsl_permutation_struct *arg1 = (struct gsl_permutation_struct *) 0 ;
3542     void *argp1 = 0 ;
3543     int res1 = 0 ;
3544     int argvi = 0;
3545     dXSARGS;
3546 
3547     if ((items < 1) || (items > 1)) {
3548       SWIG_croak("Usage: delete_gsl_permutation_struct(self);");
3549     }
3550     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, SWIG_POINTER_DISOWN |  0 );
3551     if (!SWIG_IsOK(res1)) {
3552       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "delete_gsl_permutation_struct" "', argument " "1"" of type '" "struct gsl_permutation_struct *""'");
3553     }
3554     arg1 = (struct gsl_permutation_struct *)(argp1);
3555     free((char *) arg1);
3556     ST(argvi) = &PL_sv_undef;
3557 
3558     XSRETURN(argvi);
3559   fail:
3560 
3561     SWIG_croak_null();
3562   }
3563 }
3564 
3565 
XS(_wrap_gsl_permutation_alloc)3566 XS(_wrap_gsl_permutation_alloc) {
3567   {
3568     size_t arg1 ;
3569     size_t val1 ;
3570     int ecode1 = 0 ;
3571     int argvi = 0;
3572     gsl_permutation *result = 0 ;
3573     dXSARGS;
3574 
3575     if ((items < 1) || (items > 1)) {
3576       SWIG_croak("Usage: gsl_permutation_alloc(n);");
3577     }
3578     ecode1 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
3579     if (!SWIG_IsOK(ecode1)) {
3580       SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_permutation_alloc" "', argument " "1"" of type '" "size_t""'");
3581     }
3582     arg1 = (size_t)(val1);
3583     result = (gsl_permutation *)gsl_permutation_alloc(arg1);
3584     ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_permutation_struct, 0 | SWIG_SHADOW); argvi++ ;
3585 
3586     XSRETURN(argvi);
3587   fail:
3588 
3589     SWIG_croak_null();
3590   }
3591 }
3592 
3593 
XS(_wrap_gsl_permutation_calloc)3594 XS(_wrap_gsl_permutation_calloc) {
3595   {
3596     size_t arg1 ;
3597     size_t val1 ;
3598     int ecode1 = 0 ;
3599     int argvi = 0;
3600     gsl_permutation *result = 0 ;
3601     dXSARGS;
3602 
3603     if ((items < 1) || (items > 1)) {
3604       SWIG_croak("Usage: gsl_permutation_calloc(n);");
3605     }
3606     ecode1 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
3607     if (!SWIG_IsOK(ecode1)) {
3608       SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_permutation_calloc" "', argument " "1"" of type '" "size_t""'");
3609     }
3610     arg1 = (size_t)(val1);
3611     result = (gsl_permutation *)gsl_permutation_calloc(arg1);
3612     ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_permutation_struct, 0 | SWIG_SHADOW); argvi++ ;
3613 
3614     XSRETURN(argvi);
3615   fail:
3616 
3617     SWIG_croak_null();
3618   }
3619 }
3620 
3621 
XS(_wrap_gsl_permutation_init)3622 XS(_wrap_gsl_permutation_init) {
3623   {
3624     gsl_permutation *arg1 = (gsl_permutation *) 0 ;
3625     void *argp1 = 0 ;
3626     int res1 = 0 ;
3627     int argvi = 0;
3628     dXSARGS;
3629 
3630     if ((items < 1) || (items > 1)) {
3631       SWIG_croak("Usage: gsl_permutation_init(p);");
3632     }
3633     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 |  0 );
3634     if (!SWIG_IsOK(res1)) {
3635       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_init" "', argument " "1"" of type '" "gsl_permutation *""'");
3636     }
3637     arg1 = (gsl_permutation *)(argp1);
3638     gsl_permutation_init(arg1);
3639     ST(argvi) = &PL_sv_undef;
3640 
3641     XSRETURN(argvi);
3642   fail:
3643 
3644     SWIG_croak_null();
3645   }
3646 }
3647 
3648 
XS(_wrap_gsl_permutation_free)3649 XS(_wrap_gsl_permutation_free) {
3650   {
3651     gsl_permutation *arg1 = (gsl_permutation *) 0 ;
3652     void *argp1 = 0 ;
3653     int res1 = 0 ;
3654     int argvi = 0;
3655     dXSARGS;
3656 
3657     if ((items < 1) || (items > 1)) {
3658       SWIG_croak("Usage: gsl_permutation_free(p);");
3659     }
3660     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 |  0 );
3661     if (!SWIG_IsOK(res1)) {
3662       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_free" "', argument " "1"" of type '" "gsl_permutation *""'");
3663     }
3664     arg1 = (gsl_permutation *)(argp1);
3665     gsl_permutation_free(arg1);
3666     ST(argvi) = &PL_sv_undef;
3667 
3668     XSRETURN(argvi);
3669   fail:
3670 
3671     SWIG_croak_null();
3672   }
3673 }
3674 
3675 
XS(_wrap_gsl_permutation_memcpy)3676 XS(_wrap_gsl_permutation_memcpy) {
3677   {
3678     gsl_permutation *arg1 = (gsl_permutation *) 0 ;
3679     gsl_permutation *arg2 = (gsl_permutation *) 0 ;
3680     void *argp1 = 0 ;
3681     int res1 = 0 ;
3682     void *argp2 = 0 ;
3683     int res2 = 0 ;
3684     int argvi = 0;
3685     int result;
3686     dXSARGS;
3687 
3688     if ((items < 2) || (items > 2)) {
3689       SWIG_croak("Usage: gsl_permutation_memcpy(dest,src);");
3690     }
3691     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 |  0 );
3692     if (!SWIG_IsOK(res1)) {
3693       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_memcpy" "', argument " "1"" of type '" "gsl_permutation *""'");
3694     }
3695     arg1 = (gsl_permutation *)(argp1);
3696     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 |  0 );
3697     if (!SWIG_IsOK(res2)) {
3698       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_permutation_memcpy" "', argument " "2"" of type '" "gsl_permutation const *""'");
3699     }
3700     arg2 = (gsl_permutation *)(argp2);
3701     result = (int)gsl_permutation_memcpy(arg1,(struct gsl_permutation_struct const *)arg2);
3702     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3703 
3704 
3705     XSRETURN(argvi);
3706   fail:
3707 
3708 
3709     SWIG_croak_null();
3710   }
3711 }
3712 
3713 
XS(_wrap_gsl_permutation_fread)3714 XS(_wrap_gsl_permutation_fread) {
3715   {
3716     FILE *arg1 = (FILE *) 0 ;
3717     gsl_permutation *arg2 = (gsl_permutation *) 0 ;
3718     void *argp1 = 0 ;
3719     int res1 = 0 ;
3720     void *argp2 = 0 ;
3721     int res2 = 0 ;
3722     int argvi = 0;
3723     int result;
3724     dXSARGS;
3725 
3726     if ((items < 2) || (items > 2)) {
3727       SWIG_croak("Usage: gsl_permutation_fread(stream,p);");
3728     }
3729     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_FILE, 0 |  0 );
3730     if (!SWIG_IsOK(res1)) {
3731       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_fread" "', argument " "1"" of type '" "FILE *""'");
3732     }
3733     arg1 = (FILE *)(argp1);
3734     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 |  0 );
3735     if (!SWIG_IsOK(res2)) {
3736       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_permutation_fread" "', argument " "2"" of type '" "gsl_permutation *""'");
3737     }
3738     arg2 = (gsl_permutation *)(argp2);
3739     result = (int)gsl_permutation_fread(arg1,arg2);
3740     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3741 
3742 
3743     XSRETURN(argvi);
3744   fail:
3745 
3746 
3747     SWIG_croak_null();
3748   }
3749 }
3750 
3751 
XS(_wrap_gsl_permutation_fwrite)3752 XS(_wrap_gsl_permutation_fwrite) {
3753   {
3754     FILE *arg1 = (FILE *) 0 ;
3755     gsl_permutation *arg2 = (gsl_permutation *) 0 ;
3756     void *argp1 = 0 ;
3757     int res1 = 0 ;
3758     void *argp2 = 0 ;
3759     int res2 = 0 ;
3760     int argvi = 0;
3761     int result;
3762     dXSARGS;
3763 
3764     if ((items < 2) || (items > 2)) {
3765       SWIG_croak("Usage: gsl_permutation_fwrite(stream,p);");
3766     }
3767     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_FILE, 0 |  0 );
3768     if (!SWIG_IsOK(res1)) {
3769       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_fwrite" "', argument " "1"" of type '" "FILE *""'");
3770     }
3771     arg1 = (FILE *)(argp1);
3772     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 |  0 );
3773     if (!SWIG_IsOK(res2)) {
3774       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_permutation_fwrite" "', argument " "2"" of type '" "gsl_permutation const *""'");
3775     }
3776     arg2 = (gsl_permutation *)(argp2);
3777     result = (int)gsl_permutation_fwrite(arg1,(struct gsl_permutation_struct const *)arg2);
3778     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3779 
3780 
3781     XSRETURN(argvi);
3782   fail:
3783 
3784 
3785     SWIG_croak_null();
3786   }
3787 }
3788 
3789 
XS(_wrap_gsl_permutation_fscanf)3790 XS(_wrap_gsl_permutation_fscanf) {
3791   {
3792     FILE *arg1 = (FILE *) 0 ;
3793     gsl_permutation *arg2 = (gsl_permutation *) 0 ;
3794     void *argp1 = 0 ;
3795     int res1 = 0 ;
3796     void *argp2 = 0 ;
3797     int res2 = 0 ;
3798     int argvi = 0;
3799     int result;
3800     dXSARGS;
3801 
3802     if ((items < 2) || (items > 2)) {
3803       SWIG_croak("Usage: gsl_permutation_fscanf(stream,p);");
3804     }
3805     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_FILE, 0 |  0 );
3806     if (!SWIG_IsOK(res1)) {
3807       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_fscanf" "', argument " "1"" of type '" "FILE *""'");
3808     }
3809     arg1 = (FILE *)(argp1);
3810     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 |  0 );
3811     if (!SWIG_IsOK(res2)) {
3812       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_permutation_fscanf" "', argument " "2"" of type '" "gsl_permutation *""'");
3813     }
3814     arg2 = (gsl_permutation *)(argp2);
3815     result = (int)gsl_permutation_fscanf(arg1,arg2);
3816     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3817 
3818 
3819     XSRETURN(argvi);
3820   fail:
3821 
3822 
3823     SWIG_croak_null();
3824   }
3825 }
3826 
3827 
XS(_wrap_gsl_permutation_fprintf)3828 XS(_wrap_gsl_permutation_fprintf) {
3829   {
3830     FILE *arg1 = (FILE *) 0 ;
3831     gsl_permutation *arg2 = (gsl_permutation *) 0 ;
3832     char *arg3 = (char *) 0 ;
3833     void *argp1 = 0 ;
3834     int res1 = 0 ;
3835     void *argp2 = 0 ;
3836     int res2 = 0 ;
3837     int res3 ;
3838     char *buf3 = 0 ;
3839     int alloc3 = 0 ;
3840     int argvi = 0;
3841     int result;
3842     dXSARGS;
3843 
3844     if ((items < 3) || (items > 3)) {
3845       SWIG_croak("Usage: gsl_permutation_fprintf(stream,p,format);");
3846     }
3847     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_FILE, 0 |  0 );
3848     if (!SWIG_IsOK(res1)) {
3849       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_fprintf" "', argument " "1"" of type '" "FILE *""'");
3850     }
3851     arg1 = (FILE *)(argp1);
3852     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 |  0 );
3853     if (!SWIG_IsOK(res2)) {
3854       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_permutation_fprintf" "', argument " "2"" of type '" "gsl_permutation const *""'");
3855     }
3856     arg2 = (gsl_permutation *)(argp2);
3857     res3 = SWIG_AsCharPtrAndSize(ST(2), &buf3, NULL, &alloc3);
3858     if (!SWIG_IsOK(res3)) {
3859       SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_permutation_fprintf" "', argument " "3"" of type '" "char const *""'");
3860     }
3861     arg3 = (char *)(buf3);
3862     result = (int)gsl_permutation_fprintf(arg1,(struct gsl_permutation_struct const *)arg2,(char const *)arg3);
3863     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3864 
3865 
3866     if (alloc3 == SWIG_NEWOBJ) free((char*)buf3);
3867     XSRETURN(argvi);
3868   fail:
3869 
3870 
3871     if (alloc3 == SWIG_NEWOBJ) free((char*)buf3);
3872     SWIG_croak_null();
3873   }
3874 }
3875 
3876 
XS(_wrap_gsl_permutation_size)3877 XS(_wrap_gsl_permutation_size) {
3878   {
3879     gsl_permutation *arg1 = (gsl_permutation *) 0 ;
3880     void *argp1 = 0 ;
3881     int res1 = 0 ;
3882     int argvi = 0;
3883     size_t result;
3884     dXSARGS;
3885 
3886     if ((items < 1) || (items > 1)) {
3887       SWIG_croak("Usage: gsl_permutation_size(p);");
3888     }
3889     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 |  0 );
3890     if (!SWIG_IsOK(res1)) {
3891       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_size" "', argument " "1"" of type '" "gsl_permutation const *""'");
3892     }
3893     arg1 = (gsl_permutation *)(argp1);
3894     result = gsl_permutation_size((struct gsl_permutation_struct const *)arg1);
3895     ST(argvi) = SWIG_From_size_t  SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
3896 
3897     XSRETURN(argvi);
3898   fail:
3899 
3900     SWIG_croak_null();
3901   }
3902 }
3903 
3904 
XS(_wrap_gsl_permutation_data)3905 XS(_wrap_gsl_permutation_data) {
3906   {
3907     gsl_permutation *arg1 = (gsl_permutation *) 0 ;
3908     void *argp1 = 0 ;
3909     int res1 = 0 ;
3910     int argvi = 0;
3911     size_t *result = 0 ;
3912     dXSARGS;
3913 
3914     if ((items < 1) || (items > 1)) {
3915       SWIG_croak("Usage: gsl_permutation_data(p);");
3916     }
3917     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 |  0 );
3918     if (!SWIG_IsOK(res1)) {
3919       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_data" "', argument " "1"" of type '" "gsl_permutation const *""'");
3920     }
3921     arg1 = (gsl_permutation *)(argp1);
3922     result = (size_t *)gsl_permutation_data((struct gsl_permutation_struct const *)arg1);
3923     ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_size_t, 0 | 0); argvi++ ;
3924 
3925     XSRETURN(argvi);
3926   fail:
3927 
3928     SWIG_croak_null();
3929   }
3930 }
3931 
3932 
XS(_wrap_gsl_permutation_swap)3933 XS(_wrap_gsl_permutation_swap) {
3934   {
3935     gsl_permutation *arg1 = (gsl_permutation *) 0 ;
3936     size_t arg2 ;
3937     size_t arg3 ;
3938     void *argp1 = 0 ;
3939     int res1 = 0 ;
3940     size_t val2 ;
3941     int ecode2 = 0 ;
3942     size_t val3 ;
3943     int ecode3 = 0 ;
3944     int argvi = 0;
3945     int result;
3946     dXSARGS;
3947 
3948     if ((items < 3) || (items > 3)) {
3949       SWIG_croak("Usage: gsl_permutation_swap(p,i,j);");
3950     }
3951     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 |  0 );
3952     if (!SWIG_IsOK(res1)) {
3953       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_swap" "', argument " "1"" of type '" "gsl_permutation *""'");
3954     }
3955     arg1 = (gsl_permutation *)(argp1);
3956     ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
3957     if (!SWIG_IsOK(ecode2)) {
3958       SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_permutation_swap" "', argument " "2"" of type '" "size_t""'");
3959     }
3960     arg2 = (size_t)(val2);
3961     ecode3 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
3962     if (!SWIG_IsOK(ecode3)) {
3963       SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_permutation_swap" "', argument " "3"" of type '" "size_t""'");
3964     }
3965     arg3 = (size_t)(val3);
3966     result = (int)gsl_permutation_swap(arg1,arg2,arg3);
3967     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3968 
3969 
3970 
3971     XSRETURN(argvi);
3972   fail:
3973 
3974 
3975 
3976     SWIG_croak_null();
3977   }
3978 }
3979 
3980 
XS(_wrap_gsl_permutation_valid)3981 XS(_wrap_gsl_permutation_valid) {
3982   {
3983     gsl_permutation *arg1 = (gsl_permutation *) 0 ;
3984     void *argp1 = 0 ;
3985     int res1 = 0 ;
3986     int argvi = 0;
3987     int result;
3988     dXSARGS;
3989 
3990     if ((items < 1) || (items > 1)) {
3991       SWIG_croak("Usage: gsl_permutation_valid(p);");
3992     }
3993     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 |  0 );
3994     if (!SWIG_IsOK(res1)) {
3995       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_valid" "', argument " "1"" of type '" "gsl_permutation const *""'");
3996     }
3997     arg1 = (gsl_permutation *)(argp1);
3998     result = (int)gsl_permutation_valid((struct gsl_permutation_struct const *)arg1);
3999     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4000 
4001     XSRETURN(argvi);
4002   fail:
4003 
4004     SWIG_croak_null();
4005   }
4006 }
4007 
4008 
XS(_wrap_gsl_permutation_reverse)4009 XS(_wrap_gsl_permutation_reverse) {
4010   {
4011     gsl_permutation *arg1 = (gsl_permutation *) 0 ;
4012     void *argp1 = 0 ;
4013     int res1 = 0 ;
4014     int argvi = 0;
4015     dXSARGS;
4016 
4017     if ((items < 1) || (items > 1)) {
4018       SWIG_croak("Usage: gsl_permutation_reverse(p);");
4019     }
4020     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 |  0 );
4021     if (!SWIG_IsOK(res1)) {
4022       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_reverse" "', argument " "1"" of type '" "gsl_permutation *""'");
4023     }
4024     arg1 = (gsl_permutation *)(argp1);
4025     gsl_permutation_reverse(arg1);
4026     ST(argvi) = &PL_sv_undef;
4027 
4028     XSRETURN(argvi);
4029   fail:
4030 
4031     SWIG_croak_null();
4032   }
4033 }
4034 
4035 
XS(_wrap_gsl_permutation_inverse)4036 XS(_wrap_gsl_permutation_inverse) {
4037   {
4038     gsl_permutation *arg1 = (gsl_permutation *) 0 ;
4039     gsl_permutation *arg2 = (gsl_permutation *) 0 ;
4040     void *argp1 = 0 ;
4041     int res1 = 0 ;
4042     void *argp2 = 0 ;
4043     int res2 = 0 ;
4044     int argvi = 0;
4045     int result;
4046     dXSARGS;
4047 
4048     if ((items < 2) || (items > 2)) {
4049       SWIG_croak("Usage: gsl_permutation_inverse(inv,p);");
4050     }
4051     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 |  0 );
4052     if (!SWIG_IsOK(res1)) {
4053       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_inverse" "', argument " "1"" of type '" "gsl_permutation *""'");
4054     }
4055     arg1 = (gsl_permutation *)(argp1);
4056     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 |  0 );
4057     if (!SWIG_IsOK(res2)) {
4058       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_permutation_inverse" "', argument " "2"" of type '" "gsl_permutation const *""'");
4059     }
4060     arg2 = (gsl_permutation *)(argp2);
4061     result = (int)gsl_permutation_inverse(arg1,(struct gsl_permutation_struct const *)arg2);
4062     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4063 
4064 
4065     XSRETURN(argvi);
4066   fail:
4067 
4068 
4069     SWIG_croak_null();
4070   }
4071 }
4072 
4073 
XS(_wrap_gsl_permutation_next)4074 XS(_wrap_gsl_permutation_next) {
4075   {
4076     gsl_permutation *arg1 = (gsl_permutation *) 0 ;
4077     void *argp1 = 0 ;
4078     int res1 = 0 ;
4079     int argvi = 0;
4080     int result;
4081     dXSARGS;
4082 
4083     if ((items < 1) || (items > 1)) {
4084       SWIG_croak("Usage: gsl_permutation_next(p);");
4085     }
4086     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 |  0 );
4087     if (!SWIG_IsOK(res1)) {
4088       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_next" "', argument " "1"" of type '" "gsl_permutation *""'");
4089     }
4090     arg1 = (gsl_permutation *)(argp1);
4091     result = (int)gsl_permutation_next(arg1);
4092     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4093 
4094     XSRETURN(argvi);
4095   fail:
4096 
4097     SWIG_croak_null();
4098   }
4099 }
4100 
4101 
XS(_wrap_gsl_permutation_prev)4102 XS(_wrap_gsl_permutation_prev) {
4103   {
4104     gsl_permutation *arg1 = (gsl_permutation *) 0 ;
4105     void *argp1 = 0 ;
4106     int res1 = 0 ;
4107     int argvi = 0;
4108     int result;
4109     dXSARGS;
4110 
4111     if ((items < 1) || (items > 1)) {
4112       SWIG_croak("Usage: gsl_permutation_prev(p);");
4113     }
4114     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 |  0 );
4115     if (!SWIG_IsOK(res1)) {
4116       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_prev" "', argument " "1"" of type '" "gsl_permutation *""'");
4117     }
4118     arg1 = (gsl_permutation *)(argp1);
4119     result = (int)gsl_permutation_prev(arg1);
4120     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4121 
4122     XSRETURN(argvi);
4123   fail:
4124 
4125     SWIG_croak_null();
4126   }
4127 }
4128 
4129 
XS(_wrap_gsl_permutation_mul)4130 XS(_wrap_gsl_permutation_mul) {
4131   {
4132     gsl_permutation *arg1 = (gsl_permutation *) 0 ;
4133     gsl_permutation *arg2 = (gsl_permutation *) 0 ;
4134     gsl_permutation *arg3 = (gsl_permutation *) 0 ;
4135     void *argp1 = 0 ;
4136     int res1 = 0 ;
4137     void *argp2 = 0 ;
4138     int res2 = 0 ;
4139     void *argp3 = 0 ;
4140     int res3 = 0 ;
4141     int argvi = 0;
4142     int result;
4143     dXSARGS;
4144 
4145     if ((items < 3) || (items > 3)) {
4146       SWIG_croak("Usage: gsl_permutation_mul(p,pa,pb);");
4147     }
4148     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 |  0 );
4149     if (!SWIG_IsOK(res1)) {
4150       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_mul" "', argument " "1"" of type '" "gsl_permutation *""'");
4151     }
4152     arg1 = (gsl_permutation *)(argp1);
4153     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 |  0 );
4154     if (!SWIG_IsOK(res2)) {
4155       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_permutation_mul" "', argument " "2"" of type '" "gsl_permutation const *""'");
4156     }
4157     arg2 = (gsl_permutation *)(argp2);
4158     res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_permutation_struct, 0 |  0 );
4159     if (!SWIG_IsOK(res3)) {
4160       SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_permutation_mul" "', argument " "3"" of type '" "gsl_permutation const *""'");
4161     }
4162     arg3 = (gsl_permutation *)(argp3);
4163     result = (int)gsl_permutation_mul(arg1,(struct gsl_permutation_struct const *)arg2,(struct gsl_permutation_struct const *)arg3);
4164     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4165 
4166 
4167 
4168     XSRETURN(argvi);
4169   fail:
4170 
4171 
4172 
4173     SWIG_croak_null();
4174   }
4175 }
4176 
4177 
XS(_wrap_gsl_permutation_linear_to_canonical)4178 XS(_wrap_gsl_permutation_linear_to_canonical) {
4179   {
4180     gsl_permutation *arg1 = (gsl_permutation *) 0 ;
4181     gsl_permutation *arg2 = (gsl_permutation *) 0 ;
4182     void *argp1 = 0 ;
4183     int res1 = 0 ;
4184     void *argp2 = 0 ;
4185     int res2 = 0 ;
4186     int argvi = 0;
4187     int result;
4188     dXSARGS;
4189 
4190     if ((items < 2) || (items > 2)) {
4191       SWIG_croak("Usage: gsl_permutation_linear_to_canonical(q,p);");
4192     }
4193     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 |  0 );
4194     if (!SWIG_IsOK(res1)) {
4195       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_linear_to_canonical" "', argument " "1"" of type '" "gsl_permutation *""'");
4196     }
4197     arg1 = (gsl_permutation *)(argp1);
4198     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 |  0 );
4199     if (!SWIG_IsOK(res2)) {
4200       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_permutation_linear_to_canonical" "', argument " "2"" of type '" "gsl_permutation const *""'");
4201     }
4202     arg2 = (gsl_permutation *)(argp2);
4203     result = (int)gsl_permutation_linear_to_canonical(arg1,(struct gsl_permutation_struct const *)arg2);
4204     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4205 
4206 
4207     XSRETURN(argvi);
4208   fail:
4209 
4210 
4211     SWIG_croak_null();
4212   }
4213 }
4214 
4215 
XS(_wrap_gsl_permutation_canonical_to_linear)4216 XS(_wrap_gsl_permutation_canonical_to_linear) {
4217   {
4218     gsl_permutation *arg1 = (gsl_permutation *) 0 ;
4219     gsl_permutation *arg2 = (gsl_permutation *) 0 ;
4220     void *argp1 = 0 ;
4221     int res1 = 0 ;
4222     void *argp2 = 0 ;
4223     int res2 = 0 ;
4224     int argvi = 0;
4225     int result;
4226     dXSARGS;
4227 
4228     if ((items < 2) || (items > 2)) {
4229       SWIG_croak("Usage: gsl_permutation_canonical_to_linear(p,q);");
4230     }
4231     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 |  0 );
4232     if (!SWIG_IsOK(res1)) {
4233       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_canonical_to_linear" "', argument " "1"" of type '" "gsl_permutation *""'");
4234     }
4235     arg1 = (gsl_permutation *)(argp1);
4236     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 |  0 );
4237     if (!SWIG_IsOK(res2)) {
4238       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_permutation_canonical_to_linear" "', argument " "2"" of type '" "gsl_permutation const *""'");
4239     }
4240     arg2 = (gsl_permutation *)(argp2);
4241     result = (int)gsl_permutation_canonical_to_linear(arg1,(struct gsl_permutation_struct const *)arg2);
4242     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4243 
4244 
4245     XSRETURN(argvi);
4246   fail:
4247 
4248 
4249     SWIG_croak_null();
4250   }
4251 }
4252 
4253 
XS(_wrap_gsl_permutation_inversions)4254 XS(_wrap_gsl_permutation_inversions) {
4255   {
4256     gsl_permutation *arg1 = (gsl_permutation *) 0 ;
4257     void *argp1 = 0 ;
4258     int res1 = 0 ;
4259     int argvi = 0;
4260     size_t result;
4261     dXSARGS;
4262 
4263     if ((items < 1) || (items > 1)) {
4264       SWIG_croak("Usage: gsl_permutation_inversions(p);");
4265     }
4266     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 |  0 );
4267     if (!SWIG_IsOK(res1)) {
4268       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_inversions" "', argument " "1"" of type '" "gsl_permutation const *""'");
4269     }
4270     arg1 = (gsl_permutation *)(argp1);
4271     result = gsl_permutation_inversions((struct gsl_permutation_struct const *)arg1);
4272     ST(argvi) = SWIG_From_size_t  SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
4273 
4274     XSRETURN(argvi);
4275   fail:
4276 
4277     SWIG_croak_null();
4278   }
4279 }
4280 
4281 
XS(_wrap_gsl_permutation_linear_cycles)4282 XS(_wrap_gsl_permutation_linear_cycles) {
4283   {
4284     gsl_permutation *arg1 = (gsl_permutation *) 0 ;
4285     void *argp1 = 0 ;
4286     int res1 = 0 ;
4287     int argvi = 0;
4288     size_t result;
4289     dXSARGS;
4290 
4291     if ((items < 1) || (items > 1)) {
4292       SWIG_croak("Usage: gsl_permutation_linear_cycles(p);");
4293     }
4294     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 |  0 );
4295     if (!SWIG_IsOK(res1)) {
4296       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_linear_cycles" "', argument " "1"" of type '" "gsl_permutation const *""'");
4297     }
4298     arg1 = (gsl_permutation *)(argp1);
4299     result = gsl_permutation_linear_cycles((struct gsl_permutation_struct const *)arg1);
4300     ST(argvi) = SWIG_From_size_t  SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
4301 
4302     XSRETURN(argvi);
4303   fail:
4304 
4305     SWIG_croak_null();
4306   }
4307 }
4308 
4309 
XS(_wrap_gsl_permutation_canonical_cycles)4310 XS(_wrap_gsl_permutation_canonical_cycles) {
4311   {
4312     gsl_permutation *arg1 = (gsl_permutation *) 0 ;
4313     void *argp1 = 0 ;
4314     int res1 = 0 ;
4315     int argvi = 0;
4316     size_t result;
4317     dXSARGS;
4318 
4319     if ((items < 1) || (items > 1)) {
4320       SWIG_croak("Usage: gsl_permutation_canonical_cycles(q);");
4321     }
4322     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 |  0 );
4323     if (!SWIG_IsOK(res1)) {
4324       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_canonical_cycles" "', argument " "1"" of type '" "gsl_permutation const *""'");
4325     }
4326     arg1 = (gsl_permutation *)(argp1);
4327     result = gsl_permutation_canonical_cycles((struct gsl_permutation_struct const *)arg1);
4328     ST(argvi) = SWIG_From_size_t  SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
4329 
4330     XSRETURN(argvi);
4331   fail:
4332 
4333     SWIG_croak_null();
4334   }
4335 }
4336 
4337 
XS(_wrap_gsl_permutation_get)4338 XS(_wrap_gsl_permutation_get) {
4339   {
4340     gsl_permutation *arg1 = (gsl_permutation *) 0 ;
4341     size_t arg2 ;
4342     void *argp1 = 0 ;
4343     int res1 = 0 ;
4344     size_t val2 ;
4345     int ecode2 = 0 ;
4346     int argvi = 0;
4347     size_t result;
4348     dXSARGS;
4349 
4350     if ((items < 2) || (items > 2)) {
4351       SWIG_croak("Usage: gsl_permutation_get(p,i);");
4352     }
4353     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 |  0 );
4354     if (!SWIG_IsOK(res1)) {
4355       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_get" "', argument " "1"" of type '" "gsl_permutation const *""'");
4356     }
4357     arg1 = (gsl_permutation *)(argp1);
4358     ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
4359     if (!SWIG_IsOK(ecode2)) {
4360       SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_permutation_get" "', argument " "2"" of type '" "size_t""'");
4361     }
4362     arg2 = (size_t)(val2);
4363     result = gsl_permutation_get((struct gsl_permutation_struct const *)arg1,arg2);
4364     ST(argvi) = SWIG_From_size_t  SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
4365 
4366 
4367     XSRETURN(argvi);
4368   fail:
4369 
4370 
4371     SWIG_croak_null();
4372   }
4373 }
4374 
4375 
XS(_wrap_gsl_multifit_linear_workspace_nmax_set)4376 XS(_wrap_gsl_multifit_linear_workspace_nmax_set) {
4377   {
4378     gsl_multifit_linear_workspace *arg1 = (gsl_multifit_linear_workspace *) 0 ;
4379     size_t arg2 ;
4380     void *argp1 = 0 ;
4381     int res1 = 0 ;
4382     size_t val2 ;
4383     int ecode2 = 0 ;
4384     int argvi = 0;
4385     dXSARGS;
4386 
4387     if ((items < 2) || (items > 2)) {
4388       SWIG_croak("Usage: gsl_multifit_linear_workspace_nmax_set(self,nmax);");
4389     }
4390     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_linear_workspace, 0 |  0 );
4391     if (!SWIG_IsOK(res1)) {
4392       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_linear_workspace_nmax_set" "', argument " "1"" of type '" "gsl_multifit_linear_workspace *""'");
4393     }
4394     arg1 = (gsl_multifit_linear_workspace *)(argp1);
4395     ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
4396     if (!SWIG_IsOK(ecode2)) {
4397       SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_multifit_linear_workspace_nmax_set" "', argument " "2"" of type '" "size_t""'");
4398     }
4399     arg2 = (size_t)(val2);
4400     if (arg1) (arg1)->nmax = arg2;
4401     ST(argvi) = &PL_sv_undef;
4402 
4403 
4404     XSRETURN(argvi);
4405   fail:
4406 
4407 
4408     SWIG_croak_null();
4409   }
4410 }
4411 
4412 
XS(_wrap_gsl_multifit_linear_workspace_nmax_get)4413 XS(_wrap_gsl_multifit_linear_workspace_nmax_get) {
4414   {
4415     gsl_multifit_linear_workspace *arg1 = (gsl_multifit_linear_workspace *) 0 ;
4416     void *argp1 = 0 ;
4417     int res1 = 0 ;
4418     int argvi = 0;
4419     size_t result;
4420     dXSARGS;
4421 
4422     if ((items < 1) || (items > 1)) {
4423       SWIG_croak("Usage: gsl_multifit_linear_workspace_nmax_get(self);");
4424     }
4425     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_linear_workspace, 0 |  0 );
4426     if (!SWIG_IsOK(res1)) {
4427       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_linear_workspace_nmax_get" "', argument " "1"" of type '" "gsl_multifit_linear_workspace *""'");
4428     }
4429     arg1 = (gsl_multifit_linear_workspace *)(argp1);
4430     result =  ((arg1)->nmax);
4431     ST(argvi) = SWIG_From_size_t  SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
4432 
4433     XSRETURN(argvi);
4434   fail:
4435 
4436     SWIG_croak_null();
4437   }
4438 }
4439 
4440 
XS(_wrap_gsl_multifit_linear_workspace_pmax_set)4441 XS(_wrap_gsl_multifit_linear_workspace_pmax_set) {
4442   {
4443     gsl_multifit_linear_workspace *arg1 = (gsl_multifit_linear_workspace *) 0 ;
4444     size_t arg2 ;
4445     void *argp1 = 0 ;
4446     int res1 = 0 ;
4447     size_t val2 ;
4448     int ecode2 = 0 ;
4449     int argvi = 0;
4450     dXSARGS;
4451 
4452     if ((items < 2) || (items > 2)) {
4453       SWIG_croak("Usage: gsl_multifit_linear_workspace_pmax_set(self,pmax);");
4454     }
4455     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_linear_workspace, 0 |  0 );
4456     if (!SWIG_IsOK(res1)) {
4457       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_linear_workspace_pmax_set" "', argument " "1"" of type '" "gsl_multifit_linear_workspace *""'");
4458     }
4459     arg1 = (gsl_multifit_linear_workspace *)(argp1);
4460     ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
4461     if (!SWIG_IsOK(ecode2)) {
4462       SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_multifit_linear_workspace_pmax_set" "', argument " "2"" of type '" "size_t""'");
4463     }
4464     arg2 = (size_t)(val2);
4465     if (arg1) (arg1)->pmax = arg2;
4466     ST(argvi) = &PL_sv_undef;
4467 
4468 
4469     XSRETURN(argvi);
4470   fail:
4471 
4472 
4473     SWIG_croak_null();
4474   }
4475 }
4476 
4477 
XS(_wrap_gsl_multifit_linear_workspace_pmax_get)4478 XS(_wrap_gsl_multifit_linear_workspace_pmax_get) {
4479   {
4480     gsl_multifit_linear_workspace *arg1 = (gsl_multifit_linear_workspace *) 0 ;
4481     void *argp1 = 0 ;
4482     int res1 = 0 ;
4483     int argvi = 0;
4484     size_t result;
4485     dXSARGS;
4486 
4487     if ((items < 1) || (items > 1)) {
4488       SWIG_croak("Usage: gsl_multifit_linear_workspace_pmax_get(self);");
4489     }
4490     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_linear_workspace, 0 |  0 );
4491     if (!SWIG_IsOK(res1)) {
4492       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_linear_workspace_pmax_get" "', argument " "1"" of type '" "gsl_multifit_linear_workspace *""'");
4493     }
4494     arg1 = (gsl_multifit_linear_workspace *)(argp1);
4495     result =  ((arg1)->pmax);
4496     ST(argvi) = SWIG_From_size_t  SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
4497 
4498     XSRETURN(argvi);
4499   fail:
4500 
4501     SWIG_croak_null();
4502   }
4503 }
4504 
4505 
XS(_wrap_gsl_multifit_linear_workspace_n_set)4506 XS(_wrap_gsl_multifit_linear_workspace_n_set) {
4507   {
4508     gsl_multifit_linear_workspace *arg1 = (gsl_multifit_linear_workspace *) 0 ;
4509     size_t arg2 ;
4510     void *argp1 = 0 ;
4511     int res1 = 0 ;
4512     size_t val2 ;
4513     int ecode2 = 0 ;
4514     int argvi = 0;
4515     dXSARGS;
4516 
4517     if ((items < 2) || (items > 2)) {
4518       SWIG_croak("Usage: gsl_multifit_linear_workspace_n_set(self,n);");
4519     }
4520     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_linear_workspace, 0 |  0 );
4521     if (!SWIG_IsOK(res1)) {
4522       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_linear_workspace_n_set" "', argument " "1"" of type '" "gsl_multifit_linear_workspace *""'");
4523     }
4524     arg1 = (gsl_multifit_linear_workspace *)(argp1);
4525     ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
4526     if (!SWIG_IsOK(ecode2)) {
4527       SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_multifit_linear_workspace_n_set" "', argument " "2"" of type '" "size_t""'");
4528     }
4529     arg2 = (size_t)(val2);
4530     if (arg1) (arg1)->n = arg2;
4531     ST(argvi) = &PL_sv_undef;
4532 
4533 
4534     XSRETURN(argvi);
4535   fail:
4536 
4537 
4538     SWIG_croak_null();
4539   }
4540 }
4541 
4542 
XS(_wrap_gsl_multifit_linear_workspace_n_get)4543 XS(_wrap_gsl_multifit_linear_workspace_n_get) {
4544   {
4545     gsl_multifit_linear_workspace *arg1 = (gsl_multifit_linear_workspace *) 0 ;
4546     void *argp1 = 0 ;
4547     int res1 = 0 ;
4548     int argvi = 0;
4549     size_t result;
4550     dXSARGS;
4551 
4552     if ((items < 1) || (items > 1)) {
4553       SWIG_croak("Usage: gsl_multifit_linear_workspace_n_get(self);");
4554     }
4555     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_linear_workspace, 0 |  0 );
4556     if (!SWIG_IsOK(res1)) {
4557       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_linear_workspace_n_get" "', argument " "1"" of type '" "gsl_multifit_linear_workspace *""'");
4558     }
4559     arg1 = (gsl_multifit_linear_workspace *)(argp1);
4560     result =  ((arg1)->n);
4561     ST(argvi) = SWIG_From_size_t  SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
4562 
4563     XSRETURN(argvi);
4564   fail:
4565 
4566     SWIG_croak_null();
4567   }
4568 }
4569 
4570 
XS(_wrap_gsl_multifit_linear_workspace_p_set)4571 XS(_wrap_gsl_multifit_linear_workspace_p_set) {
4572   {
4573     gsl_multifit_linear_workspace *arg1 = (gsl_multifit_linear_workspace *) 0 ;
4574     size_t arg2 ;
4575     void *argp1 = 0 ;
4576     int res1 = 0 ;
4577     size_t val2 ;
4578     int ecode2 = 0 ;
4579     int argvi = 0;
4580     dXSARGS;
4581 
4582     if ((items < 2) || (items > 2)) {
4583       SWIG_croak("Usage: gsl_multifit_linear_workspace_p_set(self,p);");
4584     }
4585     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_linear_workspace, 0 |  0 );
4586     if (!SWIG_IsOK(res1)) {
4587       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_linear_workspace_p_set" "', argument " "1"" of type '" "gsl_multifit_linear_workspace *""'");
4588     }
4589     arg1 = (gsl_multifit_linear_workspace *)(argp1);
4590     ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
4591     if (!SWIG_IsOK(ecode2)) {
4592       SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_multifit_linear_workspace_p_set" "', argument " "2"" of type '" "size_t""'");
4593     }
4594     arg2 = (size_t)(val2);
4595     if (arg1) (arg1)->p = arg2;
4596     ST(argvi) = &PL_sv_undef;
4597 
4598 
4599     XSRETURN(argvi);
4600   fail:
4601 
4602 
4603     SWIG_croak_null();
4604   }
4605 }
4606 
4607 
XS(_wrap_gsl_multifit_linear_workspace_p_get)4608 XS(_wrap_gsl_multifit_linear_workspace_p_get) {
4609   {
4610     gsl_multifit_linear_workspace *arg1 = (gsl_multifit_linear_workspace *) 0 ;
4611     void *argp1 = 0 ;
4612     int res1 = 0 ;
4613     int argvi = 0;
4614     size_t result;
4615     dXSARGS;
4616 
4617     if ((items < 1) || (items > 1)) {
4618       SWIG_croak("Usage: gsl_multifit_linear_workspace_p_get(self);");
4619     }
4620     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_linear_workspace, 0 |  0 );
4621     if (!SWIG_IsOK(res1)) {
4622       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_linear_workspace_p_get" "', argument " "1"" of type '" "gsl_multifit_linear_workspace *""'");
4623     }
4624     arg1 = (gsl_multifit_linear_workspace *)(argp1);
4625     result =  ((arg1)->p);
4626     ST(argvi) = SWIG_From_size_t  SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
4627 
4628     XSRETURN(argvi);
4629   fail:
4630 
4631     SWIG_croak_null();
4632   }
4633 }
4634 
4635 
XS(_wrap_gsl_multifit_linear_workspace_A_set)4636 XS(_wrap_gsl_multifit_linear_workspace_A_set) {
4637   {
4638     gsl_multifit_linear_workspace *arg1 = (gsl_multifit_linear_workspace *) 0 ;
4639     gsl_matrix *arg2 = (gsl_matrix *) 0 ;
4640     void *argp1 = 0 ;
4641     int res1 = 0 ;
4642     void *argp2 = 0 ;
4643     int res2 = 0 ;
4644     int argvi = 0;
4645     dXSARGS;
4646 
4647     if ((items < 2) || (items > 2)) {
4648       SWIG_croak("Usage: gsl_multifit_linear_workspace_A_set(self,A);");
4649     }
4650     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_linear_workspace, 0 |  0 );
4651     if (!SWIG_IsOK(res1)) {
4652       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_linear_workspace_A_set" "', argument " "1"" of type '" "gsl_multifit_linear_workspace *""'");
4653     }
4654     arg1 = (gsl_multifit_linear_workspace *)(argp1);
4655     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, SWIG_POINTER_DISOWN |  0 );
4656     if (!SWIG_IsOK(res2)) {
4657       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_linear_workspace_A_set" "', argument " "2"" of type '" "gsl_matrix *""'");
4658     }
4659     arg2 = (gsl_matrix *)(argp2);
4660     if (arg1) (arg1)->A = arg2;
4661     ST(argvi) = &PL_sv_undef;
4662 
4663 
4664     XSRETURN(argvi);
4665   fail:
4666 
4667 
4668     SWIG_croak_null();
4669   }
4670 }
4671 
4672 
XS(_wrap_gsl_multifit_linear_workspace_A_get)4673 XS(_wrap_gsl_multifit_linear_workspace_A_get) {
4674   {
4675     gsl_multifit_linear_workspace *arg1 = (gsl_multifit_linear_workspace *) 0 ;
4676     void *argp1 = 0 ;
4677     int res1 = 0 ;
4678     int argvi = 0;
4679     gsl_matrix *result = 0 ;
4680     dXSARGS;
4681 
4682     if ((items < 1) || (items > 1)) {
4683       SWIG_croak("Usage: gsl_multifit_linear_workspace_A_get(self);");
4684     }
4685     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_linear_workspace, 0 |  0 );
4686     if (!SWIG_IsOK(res1)) {
4687       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_linear_workspace_A_get" "', argument " "1"" of type '" "gsl_multifit_linear_workspace *""'");
4688     }
4689     arg1 = (gsl_multifit_linear_workspace *)(argp1);
4690     result = (gsl_matrix *) ((arg1)->A);
4691     ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_matrix, 0 | 0); argvi++ ;
4692 
4693     XSRETURN(argvi);
4694   fail:
4695 
4696     SWIG_croak_null();
4697   }
4698 }
4699 
4700 
XS(_wrap_gsl_multifit_linear_workspace_Q_set)4701 XS(_wrap_gsl_multifit_linear_workspace_Q_set) {
4702   {
4703     gsl_multifit_linear_workspace *arg1 = (gsl_multifit_linear_workspace *) 0 ;
4704     gsl_matrix *arg2 = (gsl_matrix *) 0 ;
4705     void *argp1 = 0 ;
4706     int res1 = 0 ;
4707     void *argp2 = 0 ;
4708     int res2 = 0 ;
4709     int argvi = 0;
4710     dXSARGS;
4711 
4712     if ((items < 2) || (items > 2)) {
4713       SWIG_croak("Usage: gsl_multifit_linear_workspace_Q_set(self,Q);");
4714     }
4715     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_linear_workspace, 0 |  0 );
4716     if (!SWIG_IsOK(res1)) {
4717       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_linear_workspace_Q_set" "', argument " "1"" of type '" "gsl_multifit_linear_workspace *""'");
4718     }
4719     arg1 = (gsl_multifit_linear_workspace *)(argp1);
4720     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, SWIG_POINTER_DISOWN |  0 );
4721     if (!SWIG_IsOK(res2)) {
4722       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_linear_workspace_Q_set" "', argument " "2"" of type '" "gsl_matrix *""'");
4723     }
4724     arg2 = (gsl_matrix *)(argp2);
4725     if (arg1) (arg1)->Q = arg2;
4726     ST(argvi) = &PL_sv_undef;
4727 
4728 
4729     XSRETURN(argvi);
4730   fail:
4731 
4732 
4733     SWIG_croak_null();
4734   }
4735 }
4736 
4737 
XS(_wrap_gsl_multifit_linear_workspace_Q_get)4738 XS(_wrap_gsl_multifit_linear_workspace_Q_get) {
4739   {
4740     gsl_multifit_linear_workspace *arg1 = (gsl_multifit_linear_workspace *) 0 ;
4741     void *argp1 = 0 ;
4742     int res1 = 0 ;
4743     int argvi = 0;
4744     gsl_matrix *result = 0 ;
4745     dXSARGS;
4746 
4747     if ((items < 1) || (items > 1)) {
4748       SWIG_croak("Usage: gsl_multifit_linear_workspace_Q_get(self);");
4749     }
4750     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_linear_workspace, 0 |  0 );
4751     if (!SWIG_IsOK(res1)) {
4752       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_linear_workspace_Q_get" "', argument " "1"" of type '" "gsl_multifit_linear_workspace *""'");
4753     }
4754     arg1 = (gsl_multifit_linear_workspace *)(argp1);
4755     result = (gsl_matrix *) ((arg1)->Q);
4756     ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_matrix, 0 | 0); argvi++ ;
4757 
4758     XSRETURN(argvi);
4759   fail:
4760 
4761     SWIG_croak_null();
4762   }
4763 }
4764 
4765 
XS(_wrap_gsl_multifit_linear_workspace_QSI_set)4766 XS(_wrap_gsl_multifit_linear_workspace_QSI_set) {
4767   {
4768     gsl_multifit_linear_workspace *arg1 = (gsl_multifit_linear_workspace *) 0 ;
4769     gsl_matrix *arg2 = (gsl_matrix *) 0 ;
4770     void *argp1 = 0 ;
4771     int res1 = 0 ;
4772     void *argp2 = 0 ;
4773     int res2 = 0 ;
4774     int argvi = 0;
4775     dXSARGS;
4776 
4777     if ((items < 2) || (items > 2)) {
4778       SWIG_croak("Usage: gsl_multifit_linear_workspace_QSI_set(self,QSI);");
4779     }
4780     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_linear_workspace, 0 |  0 );
4781     if (!SWIG_IsOK(res1)) {
4782       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_linear_workspace_QSI_set" "', argument " "1"" of type '" "gsl_multifit_linear_workspace *""'");
4783     }
4784     arg1 = (gsl_multifit_linear_workspace *)(argp1);
4785     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, SWIG_POINTER_DISOWN |  0 );
4786     if (!SWIG_IsOK(res2)) {
4787       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_linear_workspace_QSI_set" "', argument " "2"" of type '" "gsl_matrix *""'");
4788     }
4789     arg2 = (gsl_matrix *)(argp2);
4790     if (arg1) (arg1)->QSI = arg2;
4791     ST(argvi) = &PL_sv_undef;
4792 
4793 
4794     XSRETURN(argvi);
4795   fail:
4796 
4797 
4798     SWIG_croak_null();
4799   }
4800 }
4801 
4802 
XS(_wrap_gsl_multifit_linear_workspace_QSI_get)4803 XS(_wrap_gsl_multifit_linear_workspace_QSI_get) {
4804   {
4805     gsl_multifit_linear_workspace *arg1 = (gsl_multifit_linear_workspace *) 0 ;
4806     void *argp1 = 0 ;
4807     int res1 = 0 ;
4808     int argvi = 0;
4809     gsl_matrix *result = 0 ;
4810     dXSARGS;
4811 
4812     if ((items < 1) || (items > 1)) {
4813       SWIG_croak("Usage: gsl_multifit_linear_workspace_QSI_get(self);");
4814     }
4815     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_linear_workspace, 0 |  0 );
4816     if (!SWIG_IsOK(res1)) {
4817       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_linear_workspace_QSI_get" "', argument " "1"" of type '" "gsl_multifit_linear_workspace *""'");
4818     }
4819     arg1 = (gsl_multifit_linear_workspace *)(argp1);
4820     result = (gsl_matrix *) ((arg1)->QSI);
4821     ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_matrix, 0 | 0); argvi++ ;
4822 
4823     XSRETURN(argvi);
4824   fail:
4825 
4826     SWIG_croak_null();
4827   }
4828 }
4829 
4830 
XS(_wrap_gsl_multifit_linear_workspace_S_set)4831 XS(_wrap_gsl_multifit_linear_workspace_S_set) {
4832   {
4833     gsl_multifit_linear_workspace *arg1 = (gsl_multifit_linear_workspace *) 0 ;
4834     gsl_vector *arg2 = (gsl_vector *) 0 ;
4835     void *argp1 = 0 ;
4836     int res1 = 0 ;
4837     void *argp2 = 0 ;
4838     int res2 = 0 ;
4839     int argvi = 0;
4840     dXSARGS;
4841 
4842     if ((items < 2) || (items > 2)) {
4843       SWIG_croak("Usage: gsl_multifit_linear_workspace_S_set(self,S);");
4844     }
4845     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_linear_workspace, 0 |  0 );
4846     if (!SWIG_IsOK(res1)) {
4847       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_linear_workspace_S_set" "', argument " "1"" of type '" "gsl_multifit_linear_workspace *""'");
4848     }
4849     arg1 = (gsl_multifit_linear_workspace *)(argp1);
4850     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, SWIG_POINTER_DISOWN |  0 );
4851     if (!SWIG_IsOK(res2)) {
4852       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_linear_workspace_S_set" "', argument " "2"" of type '" "gsl_vector *""'");
4853     }
4854     arg2 = (gsl_vector *)(argp2);
4855     if (arg1) (arg1)->S = arg2;
4856     ST(argvi) = &PL_sv_undef;
4857 
4858 
4859     XSRETURN(argvi);
4860   fail:
4861 
4862 
4863     SWIG_croak_null();
4864   }
4865 }
4866 
4867 
XS(_wrap_gsl_multifit_linear_workspace_S_get)4868 XS(_wrap_gsl_multifit_linear_workspace_S_get) {
4869   {
4870     gsl_multifit_linear_workspace *arg1 = (gsl_multifit_linear_workspace *) 0 ;
4871     void *argp1 = 0 ;
4872     int res1 = 0 ;
4873     int argvi = 0;
4874     gsl_vector *result = 0 ;
4875     dXSARGS;
4876 
4877     if ((items < 1) || (items > 1)) {
4878       SWIG_croak("Usage: gsl_multifit_linear_workspace_S_get(self);");
4879     }
4880     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_linear_workspace, 0 |  0 );
4881     if (!SWIG_IsOK(res1)) {
4882       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_linear_workspace_S_get" "', argument " "1"" of type '" "gsl_multifit_linear_workspace *""'");
4883     }
4884     arg1 = (gsl_multifit_linear_workspace *)(argp1);
4885     result = (gsl_vector *) ((arg1)->S);
4886     ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_vector, 0 | 0); argvi++ ;
4887 
4888     XSRETURN(argvi);
4889   fail:
4890 
4891     SWIG_croak_null();
4892   }
4893 }
4894 
4895 
XS(_wrap_gsl_multifit_linear_workspace_t_set)4896 XS(_wrap_gsl_multifit_linear_workspace_t_set) {
4897   {
4898     gsl_multifit_linear_workspace *arg1 = (gsl_multifit_linear_workspace *) 0 ;
4899     gsl_vector *arg2 = (gsl_vector *) 0 ;
4900     void *argp1 = 0 ;
4901     int res1 = 0 ;
4902     void *argp2 = 0 ;
4903     int res2 = 0 ;
4904     int argvi = 0;
4905     dXSARGS;
4906 
4907     if ((items < 2) || (items > 2)) {
4908       SWIG_croak("Usage: gsl_multifit_linear_workspace_t_set(self,t);");
4909     }
4910     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_linear_workspace, 0 |  0 );
4911     if (!SWIG_IsOK(res1)) {
4912       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_linear_workspace_t_set" "', argument " "1"" of type '" "gsl_multifit_linear_workspace *""'");
4913     }
4914     arg1 = (gsl_multifit_linear_workspace *)(argp1);
4915     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, SWIG_POINTER_DISOWN |  0 );
4916     if (!SWIG_IsOK(res2)) {
4917       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_linear_workspace_t_set" "', argument " "2"" of type '" "gsl_vector *""'");
4918     }
4919     arg2 = (gsl_vector *)(argp2);
4920     if (arg1) (arg1)->t = arg2;
4921     ST(argvi) = &PL_sv_undef;
4922 
4923 
4924     XSRETURN(argvi);
4925   fail:
4926 
4927 
4928     SWIG_croak_null();
4929   }
4930 }
4931 
4932 
XS(_wrap_gsl_multifit_linear_workspace_t_get)4933 XS(_wrap_gsl_multifit_linear_workspace_t_get) {
4934   {
4935     gsl_multifit_linear_workspace *arg1 = (gsl_multifit_linear_workspace *) 0 ;
4936     void *argp1 = 0 ;
4937     int res1 = 0 ;
4938     int argvi = 0;
4939     gsl_vector *result = 0 ;
4940     dXSARGS;
4941 
4942     if ((items < 1) || (items > 1)) {
4943       SWIG_croak("Usage: gsl_multifit_linear_workspace_t_get(self);");
4944     }
4945     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_linear_workspace, 0 |  0 );
4946     if (!SWIG_IsOK(res1)) {
4947       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_linear_workspace_t_get" "', argument " "1"" of type '" "gsl_multifit_linear_workspace *""'");
4948     }
4949     arg1 = (gsl_multifit_linear_workspace *)(argp1);
4950     result = (gsl_vector *) ((arg1)->t);
4951     ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_vector, 0 | 0); argvi++ ;
4952 
4953     XSRETURN(argvi);
4954   fail:
4955 
4956     SWIG_croak_null();
4957   }
4958 }
4959 
4960 
XS(_wrap_gsl_multifit_linear_workspace_xt_set)4961 XS(_wrap_gsl_multifit_linear_workspace_xt_set) {
4962   {
4963     gsl_multifit_linear_workspace *arg1 = (gsl_multifit_linear_workspace *) 0 ;
4964     gsl_vector *arg2 = (gsl_vector *) 0 ;
4965     void *argp1 = 0 ;
4966     int res1 = 0 ;
4967     void *argp2 = 0 ;
4968     int res2 = 0 ;
4969     int argvi = 0;
4970     dXSARGS;
4971 
4972     if ((items < 2) || (items > 2)) {
4973       SWIG_croak("Usage: gsl_multifit_linear_workspace_xt_set(self,xt);");
4974     }
4975     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_linear_workspace, 0 |  0 );
4976     if (!SWIG_IsOK(res1)) {
4977       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_linear_workspace_xt_set" "', argument " "1"" of type '" "gsl_multifit_linear_workspace *""'");
4978     }
4979     arg1 = (gsl_multifit_linear_workspace *)(argp1);
4980     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, SWIG_POINTER_DISOWN |  0 );
4981     if (!SWIG_IsOK(res2)) {
4982       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_linear_workspace_xt_set" "', argument " "2"" of type '" "gsl_vector *""'");
4983     }
4984     arg2 = (gsl_vector *)(argp2);
4985     if (arg1) (arg1)->xt = arg2;
4986     ST(argvi) = &PL_sv_undef;
4987 
4988 
4989     XSRETURN(argvi);
4990   fail:
4991 
4992 
4993     SWIG_croak_null();
4994   }
4995 }
4996 
4997 
XS(_wrap_gsl_multifit_linear_workspace_xt_get)4998 XS(_wrap_gsl_multifit_linear_workspace_xt_get) {
4999   {
5000     gsl_multifit_linear_workspace *arg1 = (gsl_multifit_linear_workspace *) 0 ;
5001     void *argp1 = 0 ;
5002     int res1 = 0 ;
5003     int argvi = 0;
5004     gsl_vector *result = 0 ;
5005     dXSARGS;
5006 
5007     if ((items < 1) || (items > 1)) {
5008       SWIG_croak("Usage: gsl_multifit_linear_workspace_xt_get(self);");
5009     }
5010     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_linear_workspace, 0 |  0 );
5011     if (!SWIG_IsOK(res1)) {
5012       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_linear_workspace_xt_get" "', argument " "1"" of type '" "gsl_multifit_linear_workspace *""'");
5013     }
5014     arg1 = (gsl_multifit_linear_workspace *)(argp1);
5015     result = (gsl_vector *) ((arg1)->xt);
5016     ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_vector, 0 | 0); argvi++ ;
5017 
5018     XSRETURN(argvi);
5019   fail:
5020 
5021     SWIG_croak_null();
5022   }
5023 }
5024 
5025 
XS(_wrap_gsl_multifit_linear_workspace_D_set)5026 XS(_wrap_gsl_multifit_linear_workspace_D_set) {
5027   {
5028     gsl_multifit_linear_workspace *arg1 = (gsl_multifit_linear_workspace *) 0 ;
5029     gsl_vector *arg2 = (gsl_vector *) 0 ;
5030     void *argp1 = 0 ;
5031     int res1 = 0 ;
5032     void *argp2 = 0 ;
5033     int res2 = 0 ;
5034     int argvi = 0;
5035     dXSARGS;
5036 
5037     if ((items < 2) || (items > 2)) {
5038       SWIG_croak("Usage: gsl_multifit_linear_workspace_D_set(self,D);");
5039     }
5040     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_linear_workspace, 0 |  0 );
5041     if (!SWIG_IsOK(res1)) {
5042       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_linear_workspace_D_set" "', argument " "1"" of type '" "gsl_multifit_linear_workspace *""'");
5043     }
5044     arg1 = (gsl_multifit_linear_workspace *)(argp1);
5045     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, SWIG_POINTER_DISOWN |  0 );
5046     if (!SWIG_IsOK(res2)) {
5047       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_linear_workspace_D_set" "', argument " "2"" of type '" "gsl_vector *""'");
5048     }
5049     arg2 = (gsl_vector *)(argp2);
5050     if (arg1) (arg1)->D = arg2;
5051     ST(argvi) = &PL_sv_undef;
5052 
5053 
5054     XSRETURN(argvi);
5055   fail:
5056 
5057 
5058     SWIG_croak_null();
5059   }
5060 }
5061 
5062 
XS(_wrap_gsl_multifit_linear_workspace_D_get)5063 XS(_wrap_gsl_multifit_linear_workspace_D_get) {
5064   {
5065     gsl_multifit_linear_workspace *arg1 = (gsl_multifit_linear_workspace *) 0 ;
5066     void *argp1 = 0 ;
5067     int res1 = 0 ;
5068     int argvi = 0;
5069     gsl_vector *result = 0 ;
5070     dXSARGS;
5071 
5072     if ((items < 1) || (items > 1)) {
5073       SWIG_croak("Usage: gsl_multifit_linear_workspace_D_get(self);");
5074     }
5075     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_linear_workspace, 0 |  0 );
5076     if (!SWIG_IsOK(res1)) {
5077       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_linear_workspace_D_get" "', argument " "1"" of type '" "gsl_multifit_linear_workspace *""'");
5078     }
5079     arg1 = (gsl_multifit_linear_workspace *)(argp1);
5080     result = (gsl_vector *) ((arg1)->D);
5081     ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_vector, 0 | 0); argvi++ ;
5082 
5083     XSRETURN(argvi);
5084   fail:
5085 
5086     SWIG_croak_null();
5087   }
5088 }
5089 
5090 
XS(_wrap_gsl_multifit_linear_workspace_rcond_set)5091 XS(_wrap_gsl_multifit_linear_workspace_rcond_set) {
5092   {
5093     gsl_multifit_linear_workspace *arg1 = (gsl_multifit_linear_workspace *) 0 ;
5094     double arg2 ;
5095     void *argp1 = 0 ;
5096     int res1 = 0 ;
5097     double val2 ;
5098     int ecode2 = 0 ;
5099     int argvi = 0;
5100     dXSARGS;
5101 
5102     if ((items < 2) || (items > 2)) {
5103       SWIG_croak("Usage: gsl_multifit_linear_workspace_rcond_set(self,rcond);");
5104     }
5105     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_linear_workspace, 0 |  0 );
5106     if (!SWIG_IsOK(res1)) {
5107       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_linear_workspace_rcond_set" "', argument " "1"" of type '" "gsl_multifit_linear_workspace *""'");
5108     }
5109     arg1 = (gsl_multifit_linear_workspace *)(argp1);
5110     ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
5111     if (!SWIG_IsOK(ecode2)) {
5112       SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_multifit_linear_workspace_rcond_set" "', argument " "2"" of type '" "double""'");
5113     }
5114     arg2 = (double)(val2);
5115     if (arg1) (arg1)->rcond = arg2;
5116     ST(argvi) = &PL_sv_undef;
5117 
5118 
5119     XSRETURN(argvi);
5120   fail:
5121 
5122 
5123     SWIG_croak_null();
5124   }
5125 }
5126 
5127 
XS(_wrap_gsl_multifit_linear_workspace_rcond_get)5128 XS(_wrap_gsl_multifit_linear_workspace_rcond_get) {
5129   {
5130     gsl_multifit_linear_workspace *arg1 = (gsl_multifit_linear_workspace *) 0 ;
5131     void *argp1 = 0 ;
5132     int res1 = 0 ;
5133     int argvi = 0;
5134     double result;
5135     dXSARGS;
5136 
5137     if ((items < 1) || (items > 1)) {
5138       SWIG_croak("Usage: gsl_multifit_linear_workspace_rcond_get(self);");
5139     }
5140     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_linear_workspace, 0 |  0 );
5141     if (!SWIG_IsOK(res1)) {
5142       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_linear_workspace_rcond_get" "', argument " "1"" of type '" "gsl_multifit_linear_workspace *""'");
5143     }
5144     arg1 = (gsl_multifit_linear_workspace *)(argp1);
5145     result = (double) ((arg1)->rcond);
5146     ST(argvi) = SWIG_From_double  SWIG_PERL_CALL_ARGS_1((double)(result)); argvi++ ;
5147 
5148     XSRETURN(argvi);
5149   fail:
5150 
5151     SWIG_croak_null();
5152   }
5153 }
5154 
5155 
XS(_wrap_new_gsl_multifit_linear_workspace)5156 XS(_wrap_new_gsl_multifit_linear_workspace) {
5157   {
5158     int argvi = 0;
5159     gsl_multifit_linear_workspace *result = 0 ;
5160     dXSARGS;
5161 
5162     if ((items < 0) || (items > 0)) {
5163       SWIG_croak("Usage: new_gsl_multifit_linear_workspace();");
5164     }
5165     result = (gsl_multifit_linear_workspace *)calloc(1, sizeof(gsl_multifit_linear_workspace));
5166     ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_multifit_linear_workspace, SWIG_OWNER | SWIG_SHADOW); argvi++ ;
5167     XSRETURN(argvi);
5168   fail:
5169     SWIG_croak_null();
5170   }
5171 }
5172 
5173 
XS(_wrap_delete_gsl_multifit_linear_workspace)5174 XS(_wrap_delete_gsl_multifit_linear_workspace) {
5175   {
5176     gsl_multifit_linear_workspace *arg1 = (gsl_multifit_linear_workspace *) 0 ;
5177     void *argp1 = 0 ;
5178     int res1 = 0 ;
5179     int argvi = 0;
5180     dXSARGS;
5181 
5182     if ((items < 1) || (items > 1)) {
5183       SWIG_croak("Usage: delete_gsl_multifit_linear_workspace(self);");
5184     }
5185     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_linear_workspace, SWIG_POINTER_DISOWN |  0 );
5186     if (!SWIG_IsOK(res1)) {
5187       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "delete_gsl_multifit_linear_workspace" "', argument " "1"" of type '" "gsl_multifit_linear_workspace *""'");
5188     }
5189     arg1 = (gsl_multifit_linear_workspace *)(argp1);
5190     free((char *) arg1);
5191     ST(argvi) = &PL_sv_undef;
5192 
5193     XSRETURN(argvi);
5194   fail:
5195 
5196     SWIG_croak_null();
5197   }
5198 }
5199 
5200 
XS(_wrap_gsl_multifit_linear_alloc)5201 XS(_wrap_gsl_multifit_linear_alloc) {
5202   {
5203     size_t arg1 ;
5204     size_t arg2 ;
5205     size_t val1 ;
5206     int ecode1 = 0 ;
5207     size_t val2 ;
5208     int ecode2 = 0 ;
5209     int argvi = 0;
5210     gsl_multifit_linear_workspace *result = 0 ;
5211     dXSARGS;
5212 
5213     if ((items < 2) || (items > 2)) {
5214       SWIG_croak("Usage: gsl_multifit_linear_alloc(n,p);");
5215     }
5216     ecode1 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
5217     if (!SWIG_IsOK(ecode1)) {
5218       SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_multifit_linear_alloc" "', argument " "1"" of type '" "size_t""'");
5219     }
5220     arg1 = (size_t)(val1);
5221     ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
5222     if (!SWIG_IsOK(ecode2)) {
5223       SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_multifit_linear_alloc" "', argument " "2"" of type '" "size_t""'");
5224     }
5225     arg2 = (size_t)(val2);
5226     result = (gsl_multifit_linear_workspace *)gsl_multifit_linear_alloc(arg1,arg2);
5227     ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_multifit_linear_workspace, 0 | SWIG_SHADOW); argvi++ ;
5228 
5229 
5230     XSRETURN(argvi);
5231   fail:
5232 
5233 
5234     SWIG_croak_null();
5235   }
5236 }
5237 
5238 
XS(_wrap_gsl_multifit_linear_free)5239 XS(_wrap_gsl_multifit_linear_free) {
5240   {
5241     gsl_multifit_linear_workspace *arg1 = (gsl_multifit_linear_workspace *) 0 ;
5242     void *argp1 = 0 ;
5243     int res1 = 0 ;
5244     int argvi = 0;
5245     dXSARGS;
5246 
5247     if ((items < 1) || (items > 1)) {
5248       SWIG_croak("Usage: gsl_multifit_linear_free(w);");
5249     }
5250     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_linear_workspace, 0 |  0 );
5251     if (!SWIG_IsOK(res1)) {
5252       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_linear_free" "', argument " "1"" of type '" "gsl_multifit_linear_workspace *""'");
5253     }
5254     arg1 = (gsl_multifit_linear_workspace *)(argp1);
5255     gsl_multifit_linear_free(arg1);
5256     ST(argvi) = &PL_sv_undef;
5257 
5258     XSRETURN(argvi);
5259   fail:
5260 
5261     SWIG_croak_null();
5262   }
5263 }
5264 
5265 
XS(_wrap_gsl_multifit_linear)5266 XS(_wrap_gsl_multifit_linear) {
5267   {
5268     gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5269     gsl_vector *arg2 = (gsl_vector *) 0 ;
5270     gsl_vector *arg3 = (gsl_vector *) 0 ;
5271     gsl_matrix *arg4 = (gsl_matrix *) 0 ;
5272     double *arg5 = (double *) 0 ;
5273     gsl_multifit_linear_workspace *arg6 = (gsl_multifit_linear_workspace *) 0 ;
5274     void *argp1 = 0 ;
5275     int res1 = 0 ;
5276     void *argp2 = 0 ;
5277     int res2 = 0 ;
5278     void *argp3 = 0 ;
5279     int res3 = 0 ;
5280     void *argp4 = 0 ;
5281     int res4 = 0 ;
5282     void *argp5 = 0 ;
5283     int res5 = 0 ;
5284     void *argp6 = 0 ;
5285     int res6 = 0 ;
5286     int argvi = 0;
5287     int result;
5288     dXSARGS;
5289 
5290     if ((items < 6) || (items > 6)) {
5291       SWIG_croak("Usage: gsl_multifit_linear(X,y,c,cov,chisq,work);");
5292     }
5293     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 |  0 );
5294     if (!SWIG_IsOK(res1)) {
5295       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_linear" "', argument " "1"" of type '" "gsl_matrix const *""'");
5296     }
5297     arg1 = (gsl_matrix *)(argp1);
5298     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 |  0 );
5299     if (!SWIG_IsOK(res2)) {
5300       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_linear" "', argument " "2"" of type '" "gsl_vector const *""'");
5301     }
5302     arg2 = (gsl_vector *)(argp2);
5303     res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 |  0 );
5304     if (!SWIG_IsOK(res3)) {
5305       SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_multifit_linear" "', argument " "3"" of type '" "gsl_vector *""'");
5306     }
5307     arg3 = (gsl_vector *)(argp3);
5308     res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_matrix, 0 |  0 );
5309     if (!SWIG_IsOK(res4)) {
5310       SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_multifit_linear" "', argument " "4"" of type '" "gsl_matrix *""'");
5311     }
5312     arg4 = (gsl_matrix *)(argp4);
5313     res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_double, 0 |  0 );
5314     if (!SWIG_IsOK(res5)) {
5315       SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_multifit_linear" "', argument " "5"" of type '" "double *""'");
5316     }
5317     arg5 = (double *)(argp5);
5318     res6 = SWIG_ConvertPtr(ST(5), &argp6,SWIGTYPE_p_gsl_multifit_linear_workspace, 0 |  0 );
5319     if (!SWIG_IsOK(res6)) {
5320       SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_multifit_linear" "', argument " "6"" of type '" "gsl_multifit_linear_workspace *""'");
5321     }
5322     arg6 = (gsl_multifit_linear_workspace *)(argp6);
5323     result = (int)gsl_multifit_linear((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3,arg4,arg5,arg6);
5324     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5325 
5326 
5327 
5328 
5329 
5330 
5331     XSRETURN(argvi);
5332   fail:
5333 
5334 
5335 
5336 
5337 
5338 
5339     SWIG_croak_null();
5340   }
5341 }
5342 
5343 
XS(_wrap_gsl_multifit_linear_tsvd)5344 XS(_wrap_gsl_multifit_linear_tsvd) {
5345   {
5346     gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5347     gsl_vector *arg2 = (gsl_vector *) 0 ;
5348     double arg3 ;
5349     gsl_vector *arg4 = (gsl_vector *) 0 ;
5350     gsl_matrix *arg5 = (gsl_matrix *) 0 ;
5351     double *arg6 = (double *) 0 ;
5352     size_t *arg7 = (size_t *) 0 ;
5353     gsl_multifit_linear_workspace *arg8 = (gsl_multifit_linear_workspace *) 0 ;
5354     void *argp1 = 0 ;
5355     int res1 = 0 ;
5356     void *argp2 = 0 ;
5357     int res2 = 0 ;
5358     double val3 ;
5359     int ecode3 = 0 ;
5360     void *argp4 = 0 ;
5361     int res4 = 0 ;
5362     void *argp5 = 0 ;
5363     int res5 = 0 ;
5364     void *argp6 = 0 ;
5365     int res6 = 0 ;
5366     void *argp7 = 0 ;
5367     int res7 = 0 ;
5368     void *argp8 = 0 ;
5369     int res8 = 0 ;
5370     int argvi = 0;
5371     int result;
5372     dXSARGS;
5373 
5374     if ((items < 8) || (items > 8)) {
5375       SWIG_croak("Usage: gsl_multifit_linear_tsvd(X,y,tol,c,cov,chisq,rank,work);");
5376     }
5377     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 |  0 );
5378     if (!SWIG_IsOK(res1)) {
5379       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_linear_tsvd" "', argument " "1"" of type '" "gsl_matrix const *""'");
5380     }
5381     arg1 = (gsl_matrix *)(argp1);
5382     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 |  0 );
5383     if (!SWIG_IsOK(res2)) {
5384       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_linear_tsvd" "', argument " "2"" of type '" "gsl_vector const *""'");
5385     }
5386     arg2 = (gsl_vector *)(argp2);
5387     ecode3 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
5388     if (!SWIG_IsOK(ecode3)) {
5389       SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_multifit_linear_tsvd" "', argument " "3"" of type '" "double""'");
5390     }
5391     arg3 = (double)(val3);
5392     res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 |  0 );
5393     if (!SWIG_IsOK(res4)) {
5394       SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_multifit_linear_tsvd" "', argument " "4"" of type '" "gsl_vector *""'");
5395     }
5396     arg4 = (gsl_vector *)(argp4);
5397     res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_matrix, 0 |  0 );
5398     if (!SWIG_IsOK(res5)) {
5399       SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_multifit_linear_tsvd" "', argument " "5"" of type '" "gsl_matrix *""'");
5400     }
5401     arg5 = (gsl_matrix *)(argp5);
5402     res6 = SWIG_ConvertPtr(ST(5), &argp6,SWIGTYPE_p_double, 0 |  0 );
5403     if (!SWIG_IsOK(res6)) {
5404       SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_multifit_linear_tsvd" "', argument " "6"" of type '" "double *""'");
5405     }
5406     arg6 = (double *)(argp6);
5407     res7 = SWIG_ConvertPtr(ST(6), &argp7,SWIGTYPE_p_size_t, 0 |  0 );
5408     if (!SWIG_IsOK(res7)) {
5409       SWIG_exception_fail(SWIG_ArgError(res7), "in method '" "gsl_multifit_linear_tsvd" "', argument " "7"" of type '" "size_t *""'");
5410     }
5411     arg7 = (size_t *)(argp7);
5412     res8 = SWIG_ConvertPtr(ST(7), &argp8,SWIGTYPE_p_gsl_multifit_linear_workspace, 0 |  0 );
5413     if (!SWIG_IsOK(res8)) {
5414       SWIG_exception_fail(SWIG_ArgError(res8), "in method '" "gsl_multifit_linear_tsvd" "', argument " "8"" of type '" "gsl_multifit_linear_workspace *""'");
5415     }
5416     arg8 = (gsl_multifit_linear_workspace *)(argp8);
5417     result = (int)gsl_multifit_linear_tsvd((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3,arg4,arg5,arg6,arg7,arg8);
5418     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5419 
5420 
5421 
5422 
5423 
5424 
5425 
5426 
5427     XSRETURN(argvi);
5428   fail:
5429 
5430 
5431 
5432 
5433 
5434 
5435 
5436 
5437     SWIG_croak_null();
5438   }
5439 }
5440 
5441 
XS(_wrap_gsl_multifit_linear_svd)5442 XS(_wrap_gsl_multifit_linear_svd) {
5443   {
5444     gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5445     gsl_multifit_linear_workspace *arg2 = (gsl_multifit_linear_workspace *) 0 ;
5446     void *argp1 = 0 ;
5447     int res1 = 0 ;
5448     void *argp2 = 0 ;
5449     int res2 = 0 ;
5450     int argvi = 0;
5451     int result;
5452     dXSARGS;
5453 
5454     if ((items < 2) || (items > 2)) {
5455       SWIG_croak("Usage: gsl_multifit_linear_svd(X,work);");
5456     }
5457     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 |  0 );
5458     if (!SWIG_IsOK(res1)) {
5459       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_linear_svd" "', argument " "1"" of type '" "gsl_matrix const *""'");
5460     }
5461     arg1 = (gsl_matrix *)(argp1);
5462     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_multifit_linear_workspace, 0 |  0 );
5463     if (!SWIG_IsOK(res2)) {
5464       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_linear_svd" "', argument " "2"" of type '" "gsl_multifit_linear_workspace *""'");
5465     }
5466     arg2 = (gsl_multifit_linear_workspace *)(argp2);
5467     result = (int)gsl_multifit_linear_svd((gsl_matrix const *)arg1,arg2);
5468     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5469 
5470 
5471     XSRETURN(argvi);
5472   fail:
5473 
5474 
5475     SWIG_croak_null();
5476   }
5477 }
5478 
5479 
XS(_wrap_gsl_multifit_linear_bsvd)5480 XS(_wrap_gsl_multifit_linear_bsvd) {
5481   {
5482     gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5483     gsl_multifit_linear_workspace *arg2 = (gsl_multifit_linear_workspace *) 0 ;
5484     void *argp1 = 0 ;
5485     int res1 = 0 ;
5486     void *argp2 = 0 ;
5487     int res2 = 0 ;
5488     int argvi = 0;
5489     int result;
5490     dXSARGS;
5491 
5492     if ((items < 2) || (items > 2)) {
5493       SWIG_croak("Usage: gsl_multifit_linear_bsvd(X,work);");
5494     }
5495     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 |  0 );
5496     if (!SWIG_IsOK(res1)) {
5497       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_linear_bsvd" "', argument " "1"" of type '" "gsl_matrix const *""'");
5498     }
5499     arg1 = (gsl_matrix *)(argp1);
5500     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_multifit_linear_workspace, 0 |  0 );
5501     if (!SWIG_IsOK(res2)) {
5502       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_linear_bsvd" "', argument " "2"" of type '" "gsl_multifit_linear_workspace *""'");
5503     }
5504     arg2 = (gsl_multifit_linear_workspace *)(argp2);
5505     result = (int)gsl_multifit_linear_bsvd((gsl_matrix const *)arg1,arg2);
5506     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5507 
5508 
5509     XSRETURN(argvi);
5510   fail:
5511 
5512 
5513     SWIG_croak_null();
5514   }
5515 }
5516 
5517 
XS(_wrap_gsl_multifit_linear_rank)5518 XS(_wrap_gsl_multifit_linear_rank) {
5519   {
5520     double arg1 ;
5521     gsl_multifit_linear_workspace *arg2 = (gsl_multifit_linear_workspace *) 0 ;
5522     double val1 ;
5523     int ecode1 = 0 ;
5524     void *argp2 = 0 ;
5525     int res2 = 0 ;
5526     int argvi = 0;
5527     size_t result;
5528     dXSARGS;
5529 
5530     if ((items < 2) || (items > 2)) {
5531       SWIG_croak("Usage: gsl_multifit_linear_rank(tol,work);");
5532     }
5533     ecode1 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
5534     if (!SWIG_IsOK(ecode1)) {
5535       SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_multifit_linear_rank" "', argument " "1"" of type '" "double""'");
5536     }
5537     arg1 = (double)(val1);
5538     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_multifit_linear_workspace, 0 |  0 );
5539     if (!SWIG_IsOK(res2)) {
5540       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_linear_rank" "', argument " "2"" of type '" "gsl_multifit_linear_workspace const *""'");
5541     }
5542     arg2 = (gsl_multifit_linear_workspace *)(argp2);
5543     result = gsl_multifit_linear_rank(arg1,(gsl_multifit_linear_workspace const *)arg2);
5544     ST(argvi) = SWIG_From_size_t  SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
5545 
5546 
5547     XSRETURN(argvi);
5548   fail:
5549 
5550 
5551     SWIG_croak_null();
5552   }
5553 }
5554 
5555 
XS(_wrap_gsl_multifit_linear_solve)5556 XS(_wrap_gsl_multifit_linear_solve) {
5557   {
5558     double arg1 ;
5559     gsl_matrix *arg2 = (gsl_matrix *) 0 ;
5560     gsl_vector *arg3 = (gsl_vector *) 0 ;
5561     gsl_vector *arg4 = (gsl_vector *) 0 ;
5562     double *arg5 = (double *) 0 ;
5563     double *arg6 = (double *) 0 ;
5564     gsl_multifit_linear_workspace *arg7 = (gsl_multifit_linear_workspace *) 0 ;
5565     double val1 ;
5566     int ecode1 = 0 ;
5567     void *argp2 = 0 ;
5568     int res2 = 0 ;
5569     void *argp3 = 0 ;
5570     int res3 = 0 ;
5571     void *argp4 = 0 ;
5572     int res4 = 0 ;
5573     double temp5 ;
5574     int res5 = SWIG_TMPOBJ ;
5575     double temp6 ;
5576     int res6 = SWIG_TMPOBJ ;
5577     void *argp7 = 0 ;
5578     int res7 = 0 ;
5579     int argvi = 0;
5580     int result;
5581     dXSARGS;
5582 
5583     arg5 = &temp5;
5584     arg6 = &temp6;
5585     if ((items < 5) || (items > 5)) {
5586       SWIG_croak("Usage: gsl_multifit_linear_solve(lambda,X,y,c,work);");
5587     }
5588     ecode1 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
5589     if (!SWIG_IsOK(ecode1)) {
5590       SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_multifit_linear_solve" "', argument " "1"" of type '" "double""'");
5591     }
5592     arg1 = (double)(val1);
5593     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 |  0 );
5594     if (!SWIG_IsOK(res2)) {
5595       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_linear_solve" "', argument " "2"" of type '" "gsl_matrix const *""'");
5596     }
5597     arg2 = (gsl_matrix *)(argp2);
5598     res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 |  0 );
5599     if (!SWIG_IsOK(res3)) {
5600       SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_multifit_linear_solve" "', argument " "3"" of type '" "gsl_vector const *""'");
5601     }
5602     arg3 = (gsl_vector *)(argp3);
5603     res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 |  0 );
5604     if (!SWIG_IsOK(res4)) {
5605       SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_multifit_linear_solve" "', argument " "4"" of type '" "gsl_vector *""'");
5606     }
5607     arg4 = (gsl_vector *)(argp4);
5608     res7 = SWIG_ConvertPtr(ST(4), &argp7,SWIGTYPE_p_gsl_multifit_linear_workspace, 0 |  0 );
5609     if (!SWIG_IsOK(res7)) {
5610       SWIG_exception_fail(SWIG_ArgError(res7), "in method '" "gsl_multifit_linear_solve" "', argument " "7"" of type '" "gsl_multifit_linear_workspace *""'");
5611     }
5612     arg7 = (gsl_multifit_linear_workspace *)(argp7);
5613     result = (int)gsl_multifit_linear_solve(arg1,(gsl_matrix const *)arg2,(gsl_vector const *)arg3,arg4,arg5,arg6,arg7);
5614     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5615     if (SWIG_IsTmpObj(res5)) {
5616       if (argvi >= items) EXTEND(sp, argvi+1);  ST(argvi) = SWIG_From_double  SWIG_PERL_CALL_ARGS_1((*arg5)); argvi++  ;
5617     } else {
5618       int new_flags = SWIG_IsNewObj(res5) ? (SWIG_POINTER_OWN | 0) : 0;
5619       if (argvi >= items) EXTEND(sp, argvi+1);  ST(argvi) = SWIG_NewPointerObj((void*)(arg5), SWIGTYPE_p_double, new_flags); argvi++  ;
5620     }
5621     if (SWIG_IsTmpObj(res6)) {
5622       if (argvi >= items) EXTEND(sp, argvi+1);  ST(argvi) = SWIG_From_double  SWIG_PERL_CALL_ARGS_1((*arg6)); argvi++  ;
5623     } else {
5624       int new_flags = SWIG_IsNewObj(res6) ? (SWIG_POINTER_OWN | 0) : 0;
5625       if (argvi >= items) EXTEND(sp, argvi+1);  ST(argvi) = SWIG_NewPointerObj((void*)(arg6), SWIGTYPE_p_double, new_flags); argvi++  ;
5626     }
5627 
5628 
5629 
5630 
5631 
5632 
5633 
5634     XSRETURN(argvi);
5635   fail:
5636 
5637 
5638 
5639 
5640 
5641 
5642 
5643     SWIG_croak_null();
5644   }
5645 }
5646 
5647 
XS(_wrap_gsl_multifit_linear_applyW)5648 XS(_wrap_gsl_multifit_linear_applyW) {
5649   {
5650     gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5651     gsl_vector *arg2 = (gsl_vector *) 0 ;
5652     gsl_vector *arg3 = (gsl_vector *) 0 ;
5653     gsl_matrix *arg4 = (gsl_matrix *) 0 ;
5654     gsl_vector *arg5 = (gsl_vector *) 0 ;
5655     void *argp1 = 0 ;
5656     int res1 = 0 ;
5657     void *argp2 = 0 ;
5658     int res2 = 0 ;
5659     void *argp3 = 0 ;
5660     int res3 = 0 ;
5661     void *argp4 = 0 ;
5662     int res4 = 0 ;
5663     void *argp5 = 0 ;
5664     int res5 = 0 ;
5665     int argvi = 0;
5666     int result;
5667     dXSARGS;
5668 
5669     if ((items < 5) || (items > 5)) {
5670       SWIG_croak("Usage: gsl_multifit_linear_applyW(X,w,y,WX,Wy);");
5671     }
5672     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 |  0 );
5673     if (!SWIG_IsOK(res1)) {
5674       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_linear_applyW" "', argument " "1"" of type '" "gsl_matrix const *""'");
5675     }
5676     arg1 = (gsl_matrix *)(argp1);
5677     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 |  0 );
5678     if (!SWIG_IsOK(res2)) {
5679       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_linear_applyW" "', argument " "2"" of type '" "gsl_vector const *""'");
5680     }
5681     arg2 = (gsl_vector *)(argp2);
5682     res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 |  0 );
5683     if (!SWIG_IsOK(res3)) {
5684       SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_multifit_linear_applyW" "', argument " "3"" of type '" "gsl_vector const *""'");
5685     }
5686     arg3 = (gsl_vector *)(argp3);
5687     res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_matrix, 0 |  0 );
5688     if (!SWIG_IsOK(res4)) {
5689       SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_multifit_linear_applyW" "', argument " "4"" of type '" "gsl_matrix *""'");
5690     }
5691     arg4 = (gsl_matrix *)(argp4);
5692     res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 |  0 );
5693     if (!SWIG_IsOK(res5)) {
5694       SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_multifit_linear_applyW" "', argument " "5"" of type '" "gsl_vector *""'");
5695     }
5696     arg5 = (gsl_vector *)(argp5);
5697     result = (int)gsl_multifit_linear_applyW((gsl_matrix const *)arg1,(gsl_vector const *)arg2,(gsl_vector const *)arg3,arg4,arg5);
5698     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5699 
5700 
5701 
5702 
5703 
5704     XSRETURN(argvi);
5705   fail:
5706 
5707 
5708 
5709 
5710 
5711     SWIG_croak_null();
5712   }
5713 }
5714 
5715 
XS(_wrap_gsl_multifit_linear_stdform1)5716 XS(_wrap_gsl_multifit_linear_stdform1) {
5717   {
5718     gsl_vector *arg1 = (gsl_vector *) 0 ;
5719     gsl_matrix *arg2 = (gsl_matrix *) 0 ;
5720     gsl_vector *arg3 = (gsl_vector *) 0 ;
5721     gsl_matrix *arg4 = (gsl_matrix *) 0 ;
5722     gsl_vector *arg5 = (gsl_vector *) 0 ;
5723     gsl_multifit_linear_workspace *arg6 = (gsl_multifit_linear_workspace *) 0 ;
5724     void *argp1 = 0 ;
5725     int res1 = 0 ;
5726     void *argp2 = 0 ;
5727     int res2 = 0 ;
5728     void *argp3 = 0 ;
5729     int res3 = 0 ;
5730     void *argp4 = 0 ;
5731     int res4 = 0 ;
5732     void *argp5 = 0 ;
5733     int res5 = 0 ;
5734     void *argp6 = 0 ;
5735     int res6 = 0 ;
5736     int argvi = 0;
5737     int result;
5738     dXSARGS;
5739 
5740     if ((items < 6) || (items > 6)) {
5741       SWIG_croak("Usage: gsl_multifit_linear_stdform1(L,X,y,Xs,ys,work);");
5742     }
5743     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 |  0 );
5744     if (!SWIG_IsOK(res1)) {
5745       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_linear_stdform1" "', argument " "1"" of type '" "gsl_vector const *""'");
5746     }
5747     arg1 = (gsl_vector *)(argp1);
5748     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 |  0 );
5749     if (!SWIG_IsOK(res2)) {
5750       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_linear_stdform1" "', argument " "2"" of type '" "gsl_matrix const *""'");
5751     }
5752     arg2 = (gsl_matrix *)(argp2);
5753     res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 |  0 );
5754     if (!SWIG_IsOK(res3)) {
5755       SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_multifit_linear_stdform1" "', argument " "3"" of type '" "gsl_vector const *""'");
5756     }
5757     arg3 = (gsl_vector *)(argp3);
5758     res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_matrix, 0 |  0 );
5759     if (!SWIG_IsOK(res4)) {
5760       SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_multifit_linear_stdform1" "', argument " "4"" of type '" "gsl_matrix *""'");
5761     }
5762     arg4 = (gsl_matrix *)(argp4);
5763     res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 |  0 );
5764     if (!SWIG_IsOK(res5)) {
5765       SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_multifit_linear_stdform1" "', argument " "5"" of type '" "gsl_vector *""'");
5766     }
5767     arg5 = (gsl_vector *)(argp5);
5768     res6 = SWIG_ConvertPtr(ST(5), &argp6,SWIGTYPE_p_gsl_multifit_linear_workspace, 0 |  0 );
5769     if (!SWIG_IsOK(res6)) {
5770       SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_multifit_linear_stdform1" "', argument " "6"" of type '" "gsl_multifit_linear_workspace *""'");
5771     }
5772     arg6 = (gsl_multifit_linear_workspace *)(argp6);
5773     result = (int)gsl_multifit_linear_stdform1((gsl_vector const *)arg1,(gsl_matrix const *)arg2,(gsl_vector const *)arg3,arg4,arg5,arg6);
5774     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5775 
5776 
5777 
5778 
5779 
5780 
5781     XSRETURN(argvi);
5782   fail:
5783 
5784 
5785 
5786 
5787 
5788 
5789     SWIG_croak_null();
5790   }
5791 }
5792 
5793 
XS(_wrap_gsl_multifit_linear_wstdform1)5794 XS(_wrap_gsl_multifit_linear_wstdform1) {
5795   {
5796     gsl_vector *arg1 = (gsl_vector *) 0 ;
5797     gsl_matrix *arg2 = (gsl_matrix *) 0 ;
5798     gsl_vector *arg3 = (gsl_vector *) 0 ;
5799     gsl_vector *arg4 = (gsl_vector *) 0 ;
5800     gsl_matrix *arg5 = (gsl_matrix *) 0 ;
5801     gsl_vector *arg6 = (gsl_vector *) 0 ;
5802     gsl_multifit_linear_workspace *arg7 = (gsl_multifit_linear_workspace *) 0 ;
5803     void *argp1 = 0 ;
5804     int res1 = 0 ;
5805     void *argp2 = 0 ;
5806     int res2 = 0 ;
5807     void *argp3 = 0 ;
5808     int res3 = 0 ;
5809     void *argp4 = 0 ;
5810     int res4 = 0 ;
5811     void *argp5 = 0 ;
5812     int res5 = 0 ;
5813     void *argp6 = 0 ;
5814     int res6 = 0 ;
5815     void *argp7 = 0 ;
5816     int res7 = 0 ;
5817     int argvi = 0;
5818     int result;
5819     dXSARGS;
5820 
5821     if ((items < 7) || (items > 7)) {
5822       SWIG_croak("Usage: gsl_multifit_linear_wstdform1(L,X,w,y,Xs,ys,work);");
5823     }
5824     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 |  0 );
5825     if (!SWIG_IsOK(res1)) {
5826       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_linear_wstdform1" "', argument " "1"" of type '" "gsl_vector const *""'");
5827     }
5828     arg1 = (gsl_vector *)(argp1);
5829     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 |  0 );
5830     if (!SWIG_IsOK(res2)) {
5831       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_linear_wstdform1" "', argument " "2"" of type '" "gsl_matrix const *""'");
5832     }
5833     arg2 = (gsl_matrix *)(argp2);
5834     res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 |  0 );
5835     if (!SWIG_IsOK(res3)) {
5836       SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_multifit_linear_wstdform1" "', argument " "3"" of type '" "gsl_vector const *""'");
5837     }
5838     arg3 = (gsl_vector *)(argp3);
5839     res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 |  0 );
5840     if (!SWIG_IsOK(res4)) {
5841       SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_multifit_linear_wstdform1" "', argument " "4"" of type '" "gsl_vector const *""'");
5842     }
5843     arg4 = (gsl_vector *)(argp4);
5844     res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_matrix, 0 |  0 );
5845     if (!SWIG_IsOK(res5)) {
5846       SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_multifit_linear_wstdform1" "', argument " "5"" of type '" "gsl_matrix *""'");
5847     }
5848     arg5 = (gsl_matrix *)(argp5);
5849     res6 = SWIG_ConvertPtr(ST(5), &argp6,SWIGTYPE_p_gsl_vector, 0 |  0 );
5850     if (!SWIG_IsOK(res6)) {
5851       SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_multifit_linear_wstdform1" "', argument " "6"" of type '" "gsl_vector *""'");
5852     }
5853     arg6 = (gsl_vector *)(argp6);
5854     res7 = SWIG_ConvertPtr(ST(6), &argp7,SWIGTYPE_p_gsl_multifit_linear_workspace, 0 |  0 );
5855     if (!SWIG_IsOK(res7)) {
5856       SWIG_exception_fail(SWIG_ArgError(res7), "in method '" "gsl_multifit_linear_wstdform1" "', argument " "7"" of type '" "gsl_multifit_linear_workspace *""'");
5857     }
5858     arg7 = (gsl_multifit_linear_workspace *)(argp7);
5859     result = (int)gsl_multifit_linear_wstdform1((gsl_vector const *)arg1,(gsl_matrix const *)arg2,(gsl_vector const *)arg3,(gsl_vector const *)arg4,arg5,arg6,arg7);
5860     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5861 
5862 
5863 
5864 
5865 
5866 
5867 
5868     XSRETURN(argvi);
5869   fail:
5870 
5871 
5872 
5873 
5874 
5875 
5876 
5877     SWIG_croak_null();
5878   }
5879 }
5880 
5881 
XS(_wrap_gsl_multifit_linear_L_decomp)5882 XS(_wrap_gsl_multifit_linear_L_decomp) {
5883   {
5884     gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5885     gsl_vector *arg2 = (gsl_vector *) 0 ;
5886     void *argp1 = 0 ;
5887     int res1 = 0 ;
5888     void *argp2 = 0 ;
5889     int res2 = 0 ;
5890     int argvi = 0;
5891     int result;
5892     dXSARGS;
5893 
5894     if ((items < 2) || (items > 2)) {
5895       SWIG_croak("Usage: gsl_multifit_linear_L_decomp(L,tau);");
5896     }
5897     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 |  0 );
5898     if (!SWIG_IsOK(res1)) {
5899       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_linear_L_decomp" "', argument " "1"" of type '" "gsl_matrix *""'");
5900     }
5901     arg1 = (gsl_matrix *)(argp1);
5902     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 |  0 );
5903     if (!SWIG_IsOK(res2)) {
5904       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_linear_L_decomp" "', argument " "2"" of type '" "gsl_vector *""'");
5905     }
5906     arg2 = (gsl_vector *)(argp2);
5907     result = (int)gsl_multifit_linear_L_decomp(arg1,arg2);
5908     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5909 
5910 
5911     XSRETURN(argvi);
5912   fail:
5913 
5914 
5915     SWIG_croak_null();
5916   }
5917 }
5918 
5919 
XS(_wrap_gsl_multifit_linear_stdform2)5920 XS(_wrap_gsl_multifit_linear_stdform2) {
5921   {
5922     gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5923     gsl_vector *arg2 = (gsl_vector *) 0 ;
5924     gsl_matrix *arg3 = (gsl_matrix *) 0 ;
5925     gsl_vector *arg4 = (gsl_vector *) 0 ;
5926     gsl_matrix *arg5 = (gsl_matrix *) 0 ;
5927     gsl_vector *arg6 = (gsl_vector *) 0 ;
5928     gsl_matrix *arg7 = (gsl_matrix *) 0 ;
5929     gsl_multifit_linear_workspace *arg8 = (gsl_multifit_linear_workspace *) 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     void *argp4 = 0 ;
5937     int res4 = 0 ;
5938     void *argp5 = 0 ;
5939     int res5 = 0 ;
5940     void *argp6 = 0 ;
5941     int res6 = 0 ;
5942     void *argp7 = 0 ;
5943     int res7 = 0 ;
5944     void *argp8 = 0 ;
5945     int res8 = 0 ;
5946     int argvi = 0;
5947     int result;
5948     dXSARGS;
5949 
5950     if ((items < 8) || (items > 8)) {
5951       SWIG_croak("Usage: gsl_multifit_linear_stdform2(LQR,Ltau,X,y,Xs,ys,M,work);");
5952     }
5953     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 |  0 );
5954     if (!SWIG_IsOK(res1)) {
5955       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_linear_stdform2" "', argument " "1"" of type '" "gsl_matrix const *""'");
5956     }
5957     arg1 = (gsl_matrix *)(argp1);
5958     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 |  0 );
5959     if (!SWIG_IsOK(res2)) {
5960       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_linear_stdform2" "', argument " "2"" of type '" "gsl_vector const *""'");
5961     }
5962     arg2 = (gsl_vector *)(argp2);
5963     res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 |  0 );
5964     if (!SWIG_IsOK(res3)) {
5965       SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_multifit_linear_stdform2" "', argument " "3"" of type '" "gsl_matrix const *""'");
5966     }
5967     arg3 = (gsl_matrix *)(argp3);
5968     res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 |  0 );
5969     if (!SWIG_IsOK(res4)) {
5970       SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_multifit_linear_stdform2" "', argument " "4"" of type '" "gsl_vector const *""'");
5971     }
5972     arg4 = (gsl_vector *)(argp4);
5973     res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_matrix, 0 |  0 );
5974     if (!SWIG_IsOK(res5)) {
5975       SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_multifit_linear_stdform2" "', argument " "5"" of type '" "gsl_matrix *""'");
5976     }
5977     arg5 = (gsl_matrix *)(argp5);
5978     res6 = SWIG_ConvertPtr(ST(5), &argp6,SWIGTYPE_p_gsl_vector, 0 |  0 );
5979     if (!SWIG_IsOK(res6)) {
5980       SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_multifit_linear_stdform2" "', argument " "6"" of type '" "gsl_vector *""'");
5981     }
5982     arg6 = (gsl_vector *)(argp6);
5983     res7 = SWIG_ConvertPtr(ST(6), &argp7,SWIGTYPE_p_gsl_matrix, 0 |  0 );
5984     if (!SWIG_IsOK(res7)) {
5985       SWIG_exception_fail(SWIG_ArgError(res7), "in method '" "gsl_multifit_linear_stdform2" "', argument " "7"" of type '" "gsl_matrix *""'");
5986     }
5987     arg7 = (gsl_matrix *)(argp7);
5988     res8 = SWIG_ConvertPtr(ST(7), &argp8,SWIGTYPE_p_gsl_multifit_linear_workspace, 0 |  0 );
5989     if (!SWIG_IsOK(res8)) {
5990       SWIG_exception_fail(SWIG_ArgError(res8), "in method '" "gsl_multifit_linear_stdform2" "', argument " "8"" of type '" "gsl_multifit_linear_workspace *""'");
5991     }
5992     arg8 = (gsl_multifit_linear_workspace *)(argp8);
5993     result = (int)gsl_multifit_linear_stdform2((gsl_matrix const *)arg1,(gsl_vector const *)arg2,(gsl_matrix const *)arg3,(gsl_vector const *)arg4,arg5,arg6,arg7,arg8);
5994     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5995 
5996 
5997 
5998 
5999 
6000 
6001 
6002 
6003     XSRETURN(argvi);
6004   fail:
6005 
6006 
6007 
6008 
6009 
6010 
6011 
6012 
6013     SWIG_croak_null();
6014   }
6015 }
6016 
6017 
XS(_wrap_gsl_multifit_linear_wstdform2)6018 XS(_wrap_gsl_multifit_linear_wstdform2) {
6019   {
6020     gsl_matrix *arg1 = (gsl_matrix *) 0 ;
6021     gsl_vector *arg2 = (gsl_vector *) 0 ;
6022     gsl_matrix *arg3 = (gsl_matrix *) 0 ;
6023     gsl_vector *arg4 = (gsl_vector *) 0 ;
6024     gsl_vector *arg5 = (gsl_vector *) 0 ;
6025     gsl_matrix *arg6 = (gsl_matrix *) 0 ;
6026     gsl_vector *arg7 = (gsl_vector *) 0 ;
6027     gsl_matrix *arg8 = (gsl_matrix *) 0 ;
6028     gsl_multifit_linear_workspace *arg9 = (gsl_multifit_linear_workspace *) 0 ;
6029     void *argp1 = 0 ;
6030     int res1 = 0 ;
6031     void *argp2 = 0 ;
6032     int res2 = 0 ;
6033     void *argp3 = 0 ;
6034     int res3 = 0 ;
6035     void *argp4 = 0 ;
6036     int res4 = 0 ;
6037     void *argp5 = 0 ;
6038     int res5 = 0 ;
6039     void *argp6 = 0 ;
6040     int res6 = 0 ;
6041     void *argp7 = 0 ;
6042     int res7 = 0 ;
6043     void *argp8 = 0 ;
6044     int res8 = 0 ;
6045     void *argp9 = 0 ;
6046     int res9 = 0 ;
6047     int argvi = 0;
6048     int result;
6049     dXSARGS;
6050 
6051     if ((items < 9) || (items > 9)) {
6052       SWIG_croak("Usage: gsl_multifit_linear_wstdform2(LQR,Ltau,X,w,y,Xs,ys,M,work);");
6053     }
6054     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 |  0 );
6055     if (!SWIG_IsOK(res1)) {
6056       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_linear_wstdform2" "', argument " "1"" of type '" "gsl_matrix const *""'");
6057     }
6058     arg1 = (gsl_matrix *)(argp1);
6059     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 |  0 );
6060     if (!SWIG_IsOK(res2)) {
6061       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_linear_wstdform2" "', argument " "2"" of type '" "gsl_vector const *""'");
6062     }
6063     arg2 = (gsl_vector *)(argp2);
6064     res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 |  0 );
6065     if (!SWIG_IsOK(res3)) {
6066       SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_multifit_linear_wstdform2" "', argument " "3"" of type '" "gsl_matrix const *""'");
6067     }
6068     arg3 = (gsl_matrix *)(argp3);
6069     res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 |  0 );
6070     if (!SWIG_IsOK(res4)) {
6071       SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_multifit_linear_wstdform2" "', argument " "4"" of type '" "gsl_vector const *""'");
6072     }
6073     arg4 = (gsl_vector *)(argp4);
6074     res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 |  0 );
6075     if (!SWIG_IsOK(res5)) {
6076       SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_multifit_linear_wstdform2" "', argument " "5"" of type '" "gsl_vector const *""'");
6077     }
6078     arg5 = (gsl_vector *)(argp5);
6079     res6 = SWIG_ConvertPtr(ST(5), &argp6,SWIGTYPE_p_gsl_matrix, 0 |  0 );
6080     if (!SWIG_IsOK(res6)) {
6081       SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_multifit_linear_wstdform2" "', argument " "6"" of type '" "gsl_matrix *""'");
6082     }
6083     arg6 = (gsl_matrix *)(argp6);
6084     res7 = SWIG_ConvertPtr(ST(6), &argp7,SWIGTYPE_p_gsl_vector, 0 |  0 );
6085     if (!SWIG_IsOK(res7)) {
6086       SWIG_exception_fail(SWIG_ArgError(res7), "in method '" "gsl_multifit_linear_wstdform2" "', argument " "7"" of type '" "gsl_vector *""'");
6087     }
6088     arg7 = (gsl_vector *)(argp7);
6089     res8 = SWIG_ConvertPtr(ST(7), &argp8,SWIGTYPE_p_gsl_matrix, 0 |  0 );
6090     if (!SWIG_IsOK(res8)) {
6091       SWIG_exception_fail(SWIG_ArgError(res8), "in method '" "gsl_multifit_linear_wstdform2" "', argument " "8"" of type '" "gsl_matrix *""'");
6092     }
6093     arg8 = (gsl_matrix *)(argp8);
6094     res9 = SWIG_ConvertPtr(ST(8), &argp9,SWIGTYPE_p_gsl_multifit_linear_workspace, 0 |  0 );
6095     if (!SWIG_IsOK(res9)) {
6096       SWIG_exception_fail(SWIG_ArgError(res9), "in method '" "gsl_multifit_linear_wstdform2" "', argument " "9"" of type '" "gsl_multifit_linear_workspace *""'");
6097     }
6098     arg9 = (gsl_multifit_linear_workspace *)(argp9);
6099     result = (int)gsl_multifit_linear_wstdform2((gsl_matrix const *)arg1,(gsl_vector const *)arg2,(gsl_matrix const *)arg3,(gsl_vector const *)arg4,(gsl_vector const *)arg5,arg6,arg7,arg8,arg9);
6100     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6101 
6102 
6103 
6104 
6105 
6106 
6107 
6108 
6109 
6110     XSRETURN(argvi);
6111   fail:
6112 
6113 
6114 
6115 
6116 
6117 
6118 
6119 
6120 
6121     SWIG_croak_null();
6122   }
6123 }
6124 
6125 
XS(_wrap_gsl_multifit_linear_genform1)6126 XS(_wrap_gsl_multifit_linear_genform1) {
6127   {
6128     gsl_vector *arg1 = (gsl_vector *) 0 ;
6129     gsl_vector *arg2 = (gsl_vector *) 0 ;
6130     gsl_vector *arg3 = (gsl_vector *) 0 ;
6131     gsl_multifit_linear_workspace *arg4 = (gsl_multifit_linear_workspace *) 0 ;
6132     void *argp1 = 0 ;
6133     int res1 = 0 ;
6134     void *argp2 = 0 ;
6135     int res2 = 0 ;
6136     void *argp3 = 0 ;
6137     int res3 = 0 ;
6138     void *argp4 = 0 ;
6139     int res4 = 0 ;
6140     int argvi = 0;
6141     int result;
6142     dXSARGS;
6143 
6144     if ((items < 4) || (items > 4)) {
6145       SWIG_croak("Usage: gsl_multifit_linear_genform1(L,cs,c,work);");
6146     }
6147     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 |  0 );
6148     if (!SWIG_IsOK(res1)) {
6149       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_linear_genform1" "', argument " "1"" of type '" "gsl_vector const *""'");
6150     }
6151     arg1 = (gsl_vector *)(argp1);
6152     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 |  0 );
6153     if (!SWIG_IsOK(res2)) {
6154       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_linear_genform1" "', argument " "2"" of type '" "gsl_vector const *""'");
6155     }
6156     arg2 = (gsl_vector *)(argp2);
6157     res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 |  0 );
6158     if (!SWIG_IsOK(res3)) {
6159       SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_multifit_linear_genform1" "', argument " "3"" of type '" "gsl_vector *""'");
6160     }
6161     arg3 = (gsl_vector *)(argp3);
6162     res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_multifit_linear_workspace, 0 |  0 );
6163     if (!SWIG_IsOK(res4)) {
6164       SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_multifit_linear_genform1" "', argument " "4"" of type '" "gsl_multifit_linear_workspace *""'");
6165     }
6166     arg4 = (gsl_multifit_linear_workspace *)(argp4);
6167     result = (int)gsl_multifit_linear_genform1((gsl_vector const *)arg1,(gsl_vector const *)arg2,arg3,arg4);
6168     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6169 
6170 
6171 
6172 
6173     XSRETURN(argvi);
6174   fail:
6175 
6176 
6177 
6178 
6179     SWIG_croak_null();
6180   }
6181 }
6182 
6183 
XS(_wrap_gsl_multifit_linear_genform2)6184 XS(_wrap_gsl_multifit_linear_genform2) {
6185   {
6186     gsl_matrix *arg1 = (gsl_matrix *) 0 ;
6187     gsl_vector *arg2 = (gsl_vector *) 0 ;
6188     gsl_matrix *arg3 = (gsl_matrix *) 0 ;
6189     gsl_vector *arg4 = (gsl_vector *) 0 ;
6190     gsl_vector *arg5 = (gsl_vector *) 0 ;
6191     gsl_matrix *arg6 = (gsl_matrix *) 0 ;
6192     gsl_vector *arg7 = (gsl_vector *) 0 ;
6193     gsl_multifit_linear_workspace *arg8 = (gsl_multifit_linear_workspace *) 0 ;
6194     void *argp1 = 0 ;
6195     int res1 = 0 ;
6196     void *argp2 = 0 ;
6197     int res2 = 0 ;
6198     void *argp3 = 0 ;
6199     int res3 = 0 ;
6200     void *argp4 = 0 ;
6201     int res4 = 0 ;
6202     void *argp5 = 0 ;
6203     int res5 = 0 ;
6204     void *argp6 = 0 ;
6205     int res6 = 0 ;
6206     void *argp7 = 0 ;
6207     int res7 = 0 ;
6208     void *argp8 = 0 ;
6209     int res8 = 0 ;
6210     int argvi = 0;
6211     int result;
6212     dXSARGS;
6213 
6214     if ((items < 8) || (items > 8)) {
6215       SWIG_croak("Usage: gsl_multifit_linear_genform2(LQR,Ltau,X,y,cs,M,c,work);");
6216     }
6217     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 |  0 );
6218     if (!SWIG_IsOK(res1)) {
6219       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_linear_genform2" "', argument " "1"" of type '" "gsl_matrix const *""'");
6220     }
6221     arg1 = (gsl_matrix *)(argp1);
6222     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 |  0 );
6223     if (!SWIG_IsOK(res2)) {
6224       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_linear_genform2" "', argument " "2"" of type '" "gsl_vector const *""'");
6225     }
6226     arg2 = (gsl_vector *)(argp2);
6227     res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 |  0 );
6228     if (!SWIG_IsOK(res3)) {
6229       SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_multifit_linear_genform2" "', argument " "3"" of type '" "gsl_matrix const *""'");
6230     }
6231     arg3 = (gsl_matrix *)(argp3);
6232     res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 |  0 );
6233     if (!SWIG_IsOK(res4)) {
6234       SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_multifit_linear_genform2" "', argument " "4"" of type '" "gsl_vector const *""'");
6235     }
6236     arg4 = (gsl_vector *)(argp4);
6237     res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 |  0 );
6238     if (!SWIG_IsOK(res5)) {
6239       SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_multifit_linear_genform2" "', argument " "5"" of type '" "gsl_vector const *""'");
6240     }
6241     arg5 = (gsl_vector *)(argp5);
6242     res6 = SWIG_ConvertPtr(ST(5), &argp6,SWIGTYPE_p_gsl_matrix, 0 |  0 );
6243     if (!SWIG_IsOK(res6)) {
6244       SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_multifit_linear_genform2" "', argument " "6"" of type '" "gsl_matrix const *""'");
6245     }
6246     arg6 = (gsl_matrix *)(argp6);
6247     res7 = SWIG_ConvertPtr(ST(6), &argp7,SWIGTYPE_p_gsl_vector, 0 |  0 );
6248     if (!SWIG_IsOK(res7)) {
6249       SWIG_exception_fail(SWIG_ArgError(res7), "in method '" "gsl_multifit_linear_genform2" "', argument " "7"" of type '" "gsl_vector *""'");
6250     }
6251     arg7 = (gsl_vector *)(argp7);
6252     res8 = SWIG_ConvertPtr(ST(7), &argp8,SWIGTYPE_p_gsl_multifit_linear_workspace, 0 |  0 );
6253     if (!SWIG_IsOK(res8)) {
6254       SWIG_exception_fail(SWIG_ArgError(res8), "in method '" "gsl_multifit_linear_genform2" "', argument " "8"" of type '" "gsl_multifit_linear_workspace *""'");
6255     }
6256     arg8 = (gsl_multifit_linear_workspace *)(argp8);
6257     result = (int)gsl_multifit_linear_genform2((gsl_matrix const *)arg1,(gsl_vector const *)arg2,(gsl_matrix const *)arg3,(gsl_vector const *)arg4,(gsl_vector const *)arg5,(gsl_matrix const *)arg6,arg7,arg8);
6258     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6259 
6260 
6261 
6262 
6263 
6264 
6265 
6266 
6267     XSRETURN(argvi);
6268   fail:
6269 
6270 
6271 
6272 
6273 
6274 
6275 
6276 
6277     SWIG_croak_null();
6278   }
6279 }
6280 
6281 
XS(_wrap_gsl_multifit_linear_wgenform2)6282 XS(_wrap_gsl_multifit_linear_wgenform2) {
6283   {
6284     gsl_matrix *arg1 = (gsl_matrix *) 0 ;
6285     gsl_vector *arg2 = (gsl_vector *) 0 ;
6286     gsl_matrix *arg3 = (gsl_matrix *) 0 ;
6287     gsl_vector *arg4 = (gsl_vector *) 0 ;
6288     gsl_vector *arg5 = (gsl_vector *) 0 ;
6289     gsl_vector *arg6 = (gsl_vector *) 0 ;
6290     gsl_matrix *arg7 = (gsl_matrix *) 0 ;
6291     gsl_vector *arg8 = (gsl_vector *) 0 ;
6292     gsl_multifit_linear_workspace *arg9 = (gsl_multifit_linear_workspace *) 0 ;
6293     void *argp1 = 0 ;
6294     int res1 = 0 ;
6295     void *argp2 = 0 ;
6296     int res2 = 0 ;
6297     void *argp3 = 0 ;
6298     int res3 = 0 ;
6299     void *argp4 = 0 ;
6300     int res4 = 0 ;
6301     void *argp5 = 0 ;
6302     int res5 = 0 ;
6303     void *argp6 = 0 ;
6304     int res6 = 0 ;
6305     void *argp7 = 0 ;
6306     int res7 = 0 ;
6307     void *argp8 = 0 ;
6308     int res8 = 0 ;
6309     void *argp9 = 0 ;
6310     int res9 = 0 ;
6311     int argvi = 0;
6312     int result;
6313     dXSARGS;
6314 
6315     if ((items < 9) || (items > 9)) {
6316       SWIG_croak("Usage: gsl_multifit_linear_wgenform2(LQR,Ltau,X,w,y,cs,M,c,work);");
6317     }
6318     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 |  0 );
6319     if (!SWIG_IsOK(res1)) {
6320       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_linear_wgenform2" "', argument " "1"" of type '" "gsl_matrix const *""'");
6321     }
6322     arg1 = (gsl_matrix *)(argp1);
6323     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 |  0 );
6324     if (!SWIG_IsOK(res2)) {
6325       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_linear_wgenform2" "', argument " "2"" of type '" "gsl_vector const *""'");
6326     }
6327     arg2 = (gsl_vector *)(argp2);
6328     res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 |  0 );
6329     if (!SWIG_IsOK(res3)) {
6330       SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_multifit_linear_wgenform2" "', argument " "3"" of type '" "gsl_matrix const *""'");
6331     }
6332     arg3 = (gsl_matrix *)(argp3);
6333     res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 |  0 );
6334     if (!SWIG_IsOK(res4)) {
6335       SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_multifit_linear_wgenform2" "', argument " "4"" of type '" "gsl_vector const *""'");
6336     }
6337     arg4 = (gsl_vector *)(argp4);
6338     res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 |  0 );
6339     if (!SWIG_IsOK(res5)) {
6340       SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_multifit_linear_wgenform2" "', argument " "5"" of type '" "gsl_vector const *""'");
6341     }
6342     arg5 = (gsl_vector *)(argp5);
6343     res6 = SWIG_ConvertPtr(ST(5), &argp6,SWIGTYPE_p_gsl_vector, 0 |  0 );
6344     if (!SWIG_IsOK(res6)) {
6345       SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_multifit_linear_wgenform2" "', argument " "6"" of type '" "gsl_vector const *""'");
6346     }
6347     arg6 = (gsl_vector *)(argp6);
6348     res7 = SWIG_ConvertPtr(ST(6), &argp7,SWIGTYPE_p_gsl_matrix, 0 |  0 );
6349     if (!SWIG_IsOK(res7)) {
6350       SWIG_exception_fail(SWIG_ArgError(res7), "in method '" "gsl_multifit_linear_wgenform2" "', argument " "7"" of type '" "gsl_matrix const *""'");
6351     }
6352     arg7 = (gsl_matrix *)(argp7);
6353     res8 = SWIG_ConvertPtr(ST(7), &argp8,SWIGTYPE_p_gsl_vector, 0 |  0 );
6354     if (!SWIG_IsOK(res8)) {
6355       SWIG_exception_fail(SWIG_ArgError(res8), "in method '" "gsl_multifit_linear_wgenform2" "', argument " "8"" of type '" "gsl_vector *""'");
6356     }
6357     arg8 = (gsl_vector *)(argp8);
6358     res9 = SWIG_ConvertPtr(ST(8), &argp9,SWIGTYPE_p_gsl_multifit_linear_workspace, 0 |  0 );
6359     if (!SWIG_IsOK(res9)) {
6360       SWIG_exception_fail(SWIG_ArgError(res9), "in method '" "gsl_multifit_linear_wgenform2" "', argument " "9"" of type '" "gsl_multifit_linear_workspace *""'");
6361     }
6362     arg9 = (gsl_multifit_linear_workspace *)(argp9);
6363     result = (int)gsl_multifit_linear_wgenform2((gsl_matrix const *)arg1,(gsl_vector const *)arg2,(gsl_matrix const *)arg3,(gsl_vector const *)arg4,(gsl_vector const *)arg5,(gsl_vector const *)arg6,(gsl_matrix const *)arg7,arg8,arg9);
6364     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6365 
6366 
6367 
6368 
6369 
6370 
6371 
6372 
6373 
6374     XSRETURN(argvi);
6375   fail:
6376 
6377 
6378 
6379 
6380 
6381 
6382 
6383 
6384 
6385     SWIG_croak_null();
6386   }
6387 }
6388 
6389 
XS(_wrap_gsl_multifit_linear_lreg)6390 XS(_wrap_gsl_multifit_linear_lreg) {
6391   {
6392     double arg1 ;
6393     double arg2 ;
6394     gsl_vector *arg3 = (gsl_vector *) 0 ;
6395     double val1 ;
6396     int ecode1 = 0 ;
6397     double val2 ;
6398     int ecode2 = 0 ;
6399     void *argp3 = 0 ;
6400     int res3 = 0 ;
6401     int argvi = 0;
6402     int result;
6403     dXSARGS;
6404 
6405     if ((items < 3) || (items > 3)) {
6406       SWIG_croak("Usage: gsl_multifit_linear_lreg(smin,smax,reg_param);");
6407     }
6408     ecode1 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
6409     if (!SWIG_IsOK(ecode1)) {
6410       SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_multifit_linear_lreg" "', argument " "1"" of type '" "double""'");
6411     }
6412     arg1 = (double)(val1);
6413     ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
6414     if (!SWIG_IsOK(ecode2)) {
6415       SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_multifit_linear_lreg" "', argument " "2"" of type '" "double""'");
6416     }
6417     arg2 = (double)(val2);
6418     res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 |  0 );
6419     if (!SWIG_IsOK(res3)) {
6420       SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_multifit_linear_lreg" "', argument " "3"" of type '" "gsl_vector *""'");
6421     }
6422     arg3 = (gsl_vector *)(argp3);
6423     result = (int)gsl_multifit_linear_lreg(arg1,arg2,arg3);
6424     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6425 
6426 
6427 
6428     XSRETURN(argvi);
6429   fail:
6430 
6431 
6432 
6433     SWIG_croak_null();
6434   }
6435 }
6436 
6437 
XS(_wrap_gsl_multifit_linear_lcurve)6438 XS(_wrap_gsl_multifit_linear_lcurve) {
6439   {
6440     gsl_vector *arg1 = (gsl_vector *) 0 ;
6441     gsl_vector *arg2 = (gsl_vector *) 0 ;
6442     gsl_vector *arg3 = (gsl_vector *) 0 ;
6443     gsl_vector *arg4 = (gsl_vector *) 0 ;
6444     gsl_multifit_linear_workspace *arg5 = (gsl_multifit_linear_workspace *) 0 ;
6445     void *argp1 = 0 ;
6446     int res1 = 0 ;
6447     void *argp2 = 0 ;
6448     int res2 = 0 ;
6449     void *argp3 = 0 ;
6450     int res3 = 0 ;
6451     void *argp4 = 0 ;
6452     int res4 = 0 ;
6453     void *argp5 = 0 ;
6454     int res5 = 0 ;
6455     int argvi = 0;
6456     int result;
6457     dXSARGS;
6458 
6459     if ((items < 5) || (items > 5)) {
6460       SWIG_croak("Usage: gsl_multifit_linear_lcurve(y,reg_param,rho,eta,work);");
6461     }
6462     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 |  0 );
6463     if (!SWIG_IsOK(res1)) {
6464       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_linear_lcurve" "', argument " "1"" of type '" "gsl_vector const *""'");
6465     }
6466     arg1 = (gsl_vector *)(argp1);
6467     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 |  0 );
6468     if (!SWIG_IsOK(res2)) {
6469       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_linear_lcurve" "', argument " "2"" of type '" "gsl_vector *""'");
6470     }
6471     arg2 = (gsl_vector *)(argp2);
6472     res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 |  0 );
6473     if (!SWIG_IsOK(res3)) {
6474       SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_multifit_linear_lcurve" "', argument " "3"" of type '" "gsl_vector *""'");
6475     }
6476     arg3 = (gsl_vector *)(argp3);
6477     res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 |  0 );
6478     if (!SWIG_IsOK(res4)) {
6479       SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_multifit_linear_lcurve" "', argument " "4"" of type '" "gsl_vector *""'");
6480     }
6481     arg4 = (gsl_vector *)(argp4);
6482     res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_multifit_linear_workspace, 0 |  0 );
6483     if (!SWIG_IsOK(res5)) {
6484       SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_multifit_linear_lcurve" "', argument " "5"" of type '" "gsl_multifit_linear_workspace *""'");
6485     }
6486     arg5 = (gsl_multifit_linear_workspace *)(argp5);
6487     result = (int)gsl_multifit_linear_lcurve((gsl_vector const *)arg1,arg2,arg3,arg4,arg5);
6488     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6489 
6490 
6491 
6492 
6493 
6494     XSRETURN(argvi);
6495   fail:
6496 
6497 
6498 
6499 
6500 
6501     SWIG_croak_null();
6502   }
6503 }
6504 
6505 
XS(_wrap_gsl_multifit_linear_lcurvature)6506 XS(_wrap_gsl_multifit_linear_lcurvature) {
6507   {
6508     gsl_vector *arg1 = (gsl_vector *) 0 ;
6509     gsl_vector *arg2 = (gsl_vector *) 0 ;
6510     gsl_vector *arg3 = (gsl_vector *) 0 ;
6511     gsl_vector *arg4 = (gsl_vector *) 0 ;
6512     gsl_vector *arg5 = (gsl_vector *) 0 ;
6513     gsl_multifit_linear_workspace *arg6 = (gsl_multifit_linear_workspace *) 0 ;
6514     void *argp1 = 0 ;
6515     int res1 = 0 ;
6516     void *argp2 = 0 ;
6517     int res2 = 0 ;
6518     void *argp3 = 0 ;
6519     int res3 = 0 ;
6520     void *argp4 = 0 ;
6521     int res4 = 0 ;
6522     void *argp5 = 0 ;
6523     int res5 = 0 ;
6524     void *argp6 = 0 ;
6525     int res6 = 0 ;
6526     int argvi = 0;
6527     int result;
6528     dXSARGS;
6529 
6530     if ((items < 6) || (items > 6)) {
6531       SWIG_croak("Usage: gsl_multifit_linear_lcurvature(y,reg_param,rho,eta,kappa,work);");
6532     }
6533     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 |  0 );
6534     if (!SWIG_IsOK(res1)) {
6535       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_linear_lcurvature" "', argument " "1"" of type '" "gsl_vector const *""'");
6536     }
6537     arg1 = (gsl_vector *)(argp1);
6538     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 |  0 );
6539     if (!SWIG_IsOK(res2)) {
6540       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_linear_lcurvature" "', argument " "2"" of type '" "gsl_vector const *""'");
6541     }
6542     arg2 = (gsl_vector *)(argp2);
6543     res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 |  0 );
6544     if (!SWIG_IsOK(res3)) {
6545       SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_multifit_linear_lcurvature" "', argument " "3"" of type '" "gsl_vector const *""'");
6546     }
6547     arg3 = (gsl_vector *)(argp3);
6548     res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 |  0 );
6549     if (!SWIG_IsOK(res4)) {
6550       SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_multifit_linear_lcurvature" "', argument " "4"" of type '" "gsl_vector const *""'");
6551     }
6552     arg4 = (gsl_vector *)(argp4);
6553     res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 |  0 );
6554     if (!SWIG_IsOK(res5)) {
6555       SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_multifit_linear_lcurvature" "', argument " "5"" of type '" "gsl_vector *""'");
6556     }
6557     arg5 = (gsl_vector *)(argp5);
6558     res6 = SWIG_ConvertPtr(ST(5), &argp6,SWIGTYPE_p_gsl_multifit_linear_workspace, 0 |  0 );
6559     if (!SWIG_IsOK(res6)) {
6560       SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_multifit_linear_lcurvature" "', argument " "6"" of type '" "gsl_multifit_linear_workspace *""'");
6561     }
6562     arg6 = (gsl_multifit_linear_workspace *)(argp6);
6563     result = (int)gsl_multifit_linear_lcurvature((gsl_vector const *)arg1,(gsl_vector const *)arg2,(gsl_vector const *)arg3,(gsl_vector const *)arg4,arg5,arg6);
6564     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6565 
6566 
6567 
6568 
6569 
6570 
6571     XSRETURN(argvi);
6572   fail:
6573 
6574 
6575 
6576 
6577 
6578 
6579     SWIG_croak_null();
6580   }
6581 }
6582 
6583 
XS(_wrap_gsl_multifit_linear_lcorner)6584 XS(_wrap_gsl_multifit_linear_lcorner) {
6585   {
6586     gsl_vector *arg1 = (gsl_vector *) 0 ;
6587     gsl_vector *arg2 = (gsl_vector *) 0 ;
6588     size_t *arg3 = (size_t *) 0 ;
6589     void *argp1 = 0 ;
6590     int res1 = 0 ;
6591     void *argp2 = 0 ;
6592     int res2 = 0 ;
6593     void *argp3 = 0 ;
6594     int res3 = 0 ;
6595     int argvi = 0;
6596     int result;
6597     dXSARGS;
6598 
6599     if ((items < 3) || (items > 3)) {
6600       SWIG_croak("Usage: gsl_multifit_linear_lcorner(rho,eta,idx);");
6601     }
6602     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 |  0 );
6603     if (!SWIG_IsOK(res1)) {
6604       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_linear_lcorner" "', argument " "1"" of type '" "gsl_vector const *""'");
6605     }
6606     arg1 = (gsl_vector *)(argp1);
6607     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 |  0 );
6608     if (!SWIG_IsOK(res2)) {
6609       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_linear_lcorner" "', argument " "2"" of type '" "gsl_vector const *""'");
6610     }
6611     arg2 = (gsl_vector *)(argp2);
6612     res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_size_t, 0 |  0 );
6613     if (!SWIG_IsOK(res3)) {
6614       SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_multifit_linear_lcorner" "', argument " "3"" of type '" "size_t *""'");
6615     }
6616     arg3 = (size_t *)(argp3);
6617     result = (int)gsl_multifit_linear_lcorner((gsl_vector const *)arg1,(gsl_vector const *)arg2,arg3);
6618     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6619 
6620 
6621 
6622     XSRETURN(argvi);
6623   fail:
6624 
6625 
6626 
6627     SWIG_croak_null();
6628   }
6629 }
6630 
6631 
XS(_wrap_gsl_multifit_linear_lcorner2)6632 XS(_wrap_gsl_multifit_linear_lcorner2) {
6633   {
6634     gsl_vector *arg1 = (gsl_vector *) 0 ;
6635     gsl_vector *arg2 = (gsl_vector *) 0 ;
6636     size_t *arg3 = (size_t *) 0 ;
6637     void *argp1 = 0 ;
6638     int res1 = 0 ;
6639     void *argp2 = 0 ;
6640     int res2 = 0 ;
6641     void *argp3 = 0 ;
6642     int res3 = 0 ;
6643     int argvi = 0;
6644     int result;
6645     dXSARGS;
6646 
6647     if ((items < 3) || (items > 3)) {
6648       SWIG_croak("Usage: gsl_multifit_linear_lcorner2(reg_param,eta,idx);");
6649     }
6650     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 |  0 );
6651     if (!SWIG_IsOK(res1)) {
6652       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_linear_lcorner2" "', argument " "1"" of type '" "gsl_vector const *""'");
6653     }
6654     arg1 = (gsl_vector *)(argp1);
6655     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 |  0 );
6656     if (!SWIG_IsOK(res2)) {
6657       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_linear_lcorner2" "', argument " "2"" of type '" "gsl_vector const *""'");
6658     }
6659     arg2 = (gsl_vector *)(argp2);
6660     res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_size_t, 0 |  0 );
6661     if (!SWIG_IsOK(res3)) {
6662       SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_multifit_linear_lcorner2" "', argument " "3"" of type '" "size_t *""'");
6663     }
6664     arg3 = (size_t *)(argp3);
6665     result = (int)gsl_multifit_linear_lcorner2((gsl_vector const *)arg1,(gsl_vector const *)arg2,arg3);
6666     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6667 
6668 
6669 
6670     XSRETURN(argvi);
6671   fail:
6672 
6673 
6674 
6675     SWIG_croak_null();
6676   }
6677 }
6678 
6679 
XS(_wrap_gsl_multifit_linear_Lk)6680 XS(_wrap_gsl_multifit_linear_Lk) {
6681   {
6682     size_t arg1 ;
6683     size_t arg2 ;
6684     gsl_matrix *arg3 = (gsl_matrix *) 0 ;
6685     size_t val1 ;
6686     int ecode1 = 0 ;
6687     size_t val2 ;
6688     int ecode2 = 0 ;
6689     void *argp3 = 0 ;
6690     int res3 = 0 ;
6691     int argvi = 0;
6692     int result;
6693     dXSARGS;
6694 
6695     if ((items < 3) || (items > 3)) {
6696       SWIG_croak("Usage: gsl_multifit_linear_Lk(p,k,L);");
6697     }
6698     ecode1 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
6699     if (!SWIG_IsOK(ecode1)) {
6700       SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_multifit_linear_Lk" "', argument " "1"" of type '" "size_t""'");
6701     }
6702     arg1 = (size_t)(val1);
6703     ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
6704     if (!SWIG_IsOK(ecode2)) {
6705       SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_multifit_linear_Lk" "', argument " "2"" of type '" "size_t""'");
6706     }
6707     arg2 = (size_t)(val2);
6708     res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 |  0 );
6709     if (!SWIG_IsOK(res3)) {
6710       SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_multifit_linear_Lk" "', argument " "3"" of type '" "gsl_matrix *""'");
6711     }
6712     arg3 = (gsl_matrix *)(argp3);
6713     result = (int)gsl_multifit_linear_Lk(arg1,arg2,arg3);
6714     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6715 
6716 
6717 
6718     XSRETURN(argvi);
6719   fail:
6720 
6721 
6722 
6723     SWIG_croak_null();
6724   }
6725 }
6726 
6727 
XS(_wrap_gsl_multifit_linear_Lsobolev)6728 XS(_wrap_gsl_multifit_linear_Lsobolev) {
6729   {
6730     size_t arg1 ;
6731     size_t arg2 ;
6732     gsl_vector *arg3 = (gsl_vector *) 0 ;
6733     gsl_matrix *arg4 = (gsl_matrix *) 0 ;
6734     gsl_multifit_linear_workspace *arg5 = (gsl_multifit_linear_workspace *) 0 ;
6735     size_t val1 ;
6736     int ecode1 = 0 ;
6737     size_t val2 ;
6738     int ecode2 = 0 ;
6739     void *argp3 = 0 ;
6740     int res3 = 0 ;
6741     void *argp4 = 0 ;
6742     int res4 = 0 ;
6743     void *argp5 = 0 ;
6744     int res5 = 0 ;
6745     int argvi = 0;
6746     int result;
6747     dXSARGS;
6748 
6749     if ((items < 5) || (items > 5)) {
6750       SWIG_croak("Usage: gsl_multifit_linear_Lsobolev(p,kmax,alpha,L,work);");
6751     }
6752     ecode1 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
6753     if (!SWIG_IsOK(ecode1)) {
6754       SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_multifit_linear_Lsobolev" "', argument " "1"" of type '" "size_t""'");
6755     }
6756     arg1 = (size_t)(val1);
6757     ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
6758     if (!SWIG_IsOK(ecode2)) {
6759       SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_multifit_linear_Lsobolev" "', argument " "2"" of type '" "size_t""'");
6760     }
6761     arg2 = (size_t)(val2);
6762     res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 |  0 );
6763     if (!SWIG_IsOK(res3)) {
6764       SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_multifit_linear_Lsobolev" "', argument " "3"" of type '" "gsl_vector const *""'");
6765     }
6766     arg3 = (gsl_vector *)(argp3);
6767     res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_matrix, 0 |  0 );
6768     if (!SWIG_IsOK(res4)) {
6769       SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_multifit_linear_Lsobolev" "', argument " "4"" of type '" "gsl_matrix *""'");
6770     }
6771     arg4 = (gsl_matrix *)(argp4);
6772     res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_multifit_linear_workspace, 0 |  0 );
6773     if (!SWIG_IsOK(res5)) {
6774       SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_multifit_linear_Lsobolev" "', argument " "5"" of type '" "gsl_multifit_linear_workspace *""'");
6775     }
6776     arg5 = (gsl_multifit_linear_workspace *)(argp5);
6777     result = (int)gsl_multifit_linear_Lsobolev(arg1,arg2,(gsl_vector const *)arg3,arg4,arg5);
6778     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6779 
6780 
6781 
6782 
6783 
6784     XSRETURN(argvi);
6785   fail:
6786 
6787 
6788 
6789 
6790 
6791     SWIG_croak_null();
6792   }
6793 }
6794 
6795 
XS(_wrap_gsl_multifit_wlinear)6796 XS(_wrap_gsl_multifit_wlinear) {
6797   {
6798     gsl_matrix *arg1 = (gsl_matrix *) 0 ;
6799     gsl_vector *arg2 = (gsl_vector *) 0 ;
6800     gsl_vector *arg3 = (gsl_vector *) 0 ;
6801     gsl_vector *arg4 = (gsl_vector *) 0 ;
6802     gsl_matrix *arg5 = (gsl_matrix *) 0 ;
6803     double *arg6 = (double *) 0 ;
6804     gsl_multifit_linear_workspace *arg7 = (gsl_multifit_linear_workspace *) 0 ;
6805     void *argp1 = 0 ;
6806     int res1 = 0 ;
6807     void *argp2 = 0 ;
6808     int res2 = 0 ;
6809     void *argp3 = 0 ;
6810     int res3 = 0 ;
6811     void *argp4 = 0 ;
6812     int res4 = 0 ;
6813     void *argp5 = 0 ;
6814     int res5 = 0 ;
6815     void *argp6 = 0 ;
6816     int res6 = 0 ;
6817     void *argp7 = 0 ;
6818     int res7 = 0 ;
6819     int argvi = 0;
6820     int result;
6821     dXSARGS;
6822 
6823     if ((items < 7) || (items > 7)) {
6824       SWIG_croak("Usage: gsl_multifit_wlinear(X,w,y,c,cov,chisq,work);");
6825     }
6826     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 |  0 );
6827     if (!SWIG_IsOK(res1)) {
6828       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_wlinear" "', argument " "1"" of type '" "gsl_matrix const *""'");
6829     }
6830     arg1 = (gsl_matrix *)(argp1);
6831     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 |  0 );
6832     if (!SWIG_IsOK(res2)) {
6833       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_wlinear" "', argument " "2"" of type '" "gsl_vector const *""'");
6834     }
6835     arg2 = (gsl_vector *)(argp2);
6836     res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 |  0 );
6837     if (!SWIG_IsOK(res3)) {
6838       SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_multifit_wlinear" "', argument " "3"" of type '" "gsl_vector const *""'");
6839     }
6840     arg3 = (gsl_vector *)(argp3);
6841     res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 |  0 );
6842     if (!SWIG_IsOK(res4)) {
6843       SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_multifit_wlinear" "', argument " "4"" of type '" "gsl_vector *""'");
6844     }
6845     arg4 = (gsl_vector *)(argp4);
6846     res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_matrix, 0 |  0 );
6847     if (!SWIG_IsOK(res5)) {
6848       SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_multifit_wlinear" "', argument " "5"" of type '" "gsl_matrix *""'");
6849     }
6850     arg5 = (gsl_matrix *)(argp5);
6851     res6 = SWIG_ConvertPtr(ST(5), &argp6,SWIGTYPE_p_double, 0 |  0 );
6852     if (!SWIG_IsOK(res6)) {
6853       SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_multifit_wlinear" "', argument " "6"" of type '" "double *""'");
6854     }
6855     arg6 = (double *)(argp6);
6856     res7 = SWIG_ConvertPtr(ST(6), &argp7,SWIGTYPE_p_gsl_multifit_linear_workspace, 0 |  0 );
6857     if (!SWIG_IsOK(res7)) {
6858       SWIG_exception_fail(SWIG_ArgError(res7), "in method '" "gsl_multifit_wlinear" "', argument " "7"" of type '" "gsl_multifit_linear_workspace *""'");
6859     }
6860     arg7 = (gsl_multifit_linear_workspace *)(argp7);
6861     result = (int)gsl_multifit_wlinear((gsl_matrix const *)arg1,(gsl_vector const *)arg2,(gsl_vector const *)arg3,arg4,arg5,arg6,arg7);
6862     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6863 
6864 
6865 
6866 
6867 
6868 
6869 
6870     XSRETURN(argvi);
6871   fail:
6872 
6873 
6874 
6875 
6876 
6877 
6878 
6879     SWIG_croak_null();
6880   }
6881 }
6882 
6883 
XS(_wrap_gsl_multifit_wlinear_tsvd)6884 XS(_wrap_gsl_multifit_wlinear_tsvd) {
6885   {
6886     gsl_matrix *arg1 = (gsl_matrix *) 0 ;
6887     gsl_vector *arg2 = (gsl_vector *) 0 ;
6888     gsl_vector *arg3 = (gsl_vector *) 0 ;
6889     double arg4 ;
6890     gsl_vector *arg5 = (gsl_vector *) 0 ;
6891     gsl_matrix *arg6 = (gsl_matrix *) 0 ;
6892     double *arg7 = (double *) 0 ;
6893     size_t *arg8 = (size_t *) 0 ;
6894     gsl_multifit_linear_workspace *arg9 = (gsl_multifit_linear_workspace *) 0 ;
6895     void *argp1 = 0 ;
6896     int res1 = 0 ;
6897     void *argp2 = 0 ;
6898     int res2 = 0 ;
6899     void *argp3 = 0 ;
6900     int res3 = 0 ;
6901     double val4 ;
6902     int ecode4 = 0 ;
6903     void *argp5 = 0 ;
6904     int res5 = 0 ;
6905     void *argp6 = 0 ;
6906     int res6 = 0 ;
6907     void *argp7 = 0 ;
6908     int res7 = 0 ;
6909     void *argp8 = 0 ;
6910     int res8 = 0 ;
6911     void *argp9 = 0 ;
6912     int res9 = 0 ;
6913     int argvi = 0;
6914     int result;
6915     dXSARGS;
6916 
6917     if ((items < 9) || (items > 9)) {
6918       SWIG_croak("Usage: gsl_multifit_wlinear_tsvd(X,w,y,tol,c,cov,chisq,rank,work);");
6919     }
6920     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 |  0 );
6921     if (!SWIG_IsOK(res1)) {
6922       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_wlinear_tsvd" "', argument " "1"" of type '" "gsl_matrix const *""'");
6923     }
6924     arg1 = (gsl_matrix *)(argp1);
6925     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 |  0 );
6926     if (!SWIG_IsOK(res2)) {
6927       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_wlinear_tsvd" "', argument " "2"" of type '" "gsl_vector const *""'");
6928     }
6929     arg2 = (gsl_vector *)(argp2);
6930     res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 |  0 );
6931     if (!SWIG_IsOK(res3)) {
6932       SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_multifit_wlinear_tsvd" "', argument " "3"" of type '" "gsl_vector const *""'");
6933     }
6934     arg3 = (gsl_vector *)(argp3);
6935     ecode4 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(3), &val4);
6936     if (!SWIG_IsOK(ecode4)) {
6937       SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "gsl_multifit_wlinear_tsvd" "', argument " "4"" of type '" "double""'");
6938     }
6939     arg4 = (double)(val4);
6940     res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 |  0 );
6941     if (!SWIG_IsOK(res5)) {
6942       SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_multifit_wlinear_tsvd" "', argument " "5"" of type '" "gsl_vector *""'");
6943     }
6944     arg5 = (gsl_vector *)(argp5);
6945     res6 = SWIG_ConvertPtr(ST(5), &argp6,SWIGTYPE_p_gsl_matrix, 0 |  0 );
6946     if (!SWIG_IsOK(res6)) {
6947       SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_multifit_wlinear_tsvd" "', argument " "6"" of type '" "gsl_matrix *""'");
6948     }
6949     arg6 = (gsl_matrix *)(argp6);
6950     res7 = SWIG_ConvertPtr(ST(6), &argp7,SWIGTYPE_p_double, 0 |  0 );
6951     if (!SWIG_IsOK(res7)) {
6952       SWIG_exception_fail(SWIG_ArgError(res7), "in method '" "gsl_multifit_wlinear_tsvd" "', argument " "7"" of type '" "double *""'");
6953     }
6954     arg7 = (double *)(argp7);
6955     res8 = SWIG_ConvertPtr(ST(7), &argp8,SWIGTYPE_p_size_t, 0 |  0 );
6956     if (!SWIG_IsOK(res8)) {
6957       SWIG_exception_fail(SWIG_ArgError(res8), "in method '" "gsl_multifit_wlinear_tsvd" "', argument " "8"" of type '" "size_t *""'");
6958     }
6959     arg8 = (size_t *)(argp8);
6960     res9 = SWIG_ConvertPtr(ST(8), &argp9,SWIGTYPE_p_gsl_multifit_linear_workspace, 0 |  0 );
6961     if (!SWIG_IsOK(res9)) {
6962       SWIG_exception_fail(SWIG_ArgError(res9), "in method '" "gsl_multifit_wlinear_tsvd" "', argument " "9"" of type '" "gsl_multifit_linear_workspace *""'");
6963     }
6964     arg9 = (gsl_multifit_linear_workspace *)(argp9);
6965     result = (int)gsl_multifit_wlinear_tsvd((gsl_matrix const *)arg1,(gsl_vector const *)arg2,(gsl_vector const *)arg3,arg4,arg5,arg6,arg7,arg8,arg9);
6966     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6967 
6968 
6969 
6970 
6971 
6972 
6973 
6974 
6975 
6976     XSRETURN(argvi);
6977   fail:
6978 
6979 
6980 
6981 
6982 
6983 
6984 
6985 
6986 
6987     SWIG_croak_null();
6988   }
6989 }
6990 
6991 
XS(_wrap_gsl_multifit_wlinear_svd)6992 XS(_wrap_gsl_multifit_wlinear_svd) {
6993   {
6994     gsl_matrix *arg1 = (gsl_matrix *) 0 ;
6995     gsl_vector *arg2 = (gsl_vector *) 0 ;
6996     gsl_vector *arg3 = (gsl_vector *) 0 ;
6997     double arg4 ;
6998     size_t *arg5 = (size_t *) 0 ;
6999     gsl_vector *arg6 = (gsl_vector *) 0 ;
7000     gsl_matrix *arg7 = (gsl_matrix *) 0 ;
7001     double *arg8 = (double *) 0 ;
7002     gsl_multifit_linear_workspace *arg9 = (gsl_multifit_linear_workspace *) 0 ;
7003     void *argp1 = 0 ;
7004     int res1 = 0 ;
7005     void *argp2 = 0 ;
7006     int res2 = 0 ;
7007     void *argp3 = 0 ;
7008     int res3 = 0 ;
7009     double val4 ;
7010     int ecode4 = 0 ;
7011     void *argp5 = 0 ;
7012     int res5 = 0 ;
7013     void *argp6 = 0 ;
7014     int res6 = 0 ;
7015     void *argp7 = 0 ;
7016     int res7 = 0 ;
7017     void *argp8 = 0 ;
7018     int res8 = 0 ;
7019     void *argp9 = 0 ;
7020     int res9 = 0 ;
7021     int argvi = 0;
7022     int result;
7023     dXSARGS;
7024 
7025     if ((items < 9) || (items > 9)) {
7026       SWIG_croak("Usage: gsl_multifit_wlinear_svd(X,w,y,tol,rank,c,cov,chisq,work);");
7027     }
7028     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 |  0 );
7029     if (!SWIG_IsOK(res1)) {
7030       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_wlinear_svd" "', argument " "1"" of type '" "gsl_matrix const *""'");
7031     }
7032     arg1 = (gsl_matrix *)(argp1);
7033     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 |  0 );
7034     if (!SWIG_IsOK(res2)) {
7035       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_wlinear_svd" "', argument " "2"" of type '" "gsl_vector const *""'");
7036     }
7037     arg2 = (gsl_vector *)(argp2);
7038     res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 |  0 );
7039     if (!SWIG_IsOK(res3)) {
7040       SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_multifit_wlinear_svd" "', argument " "3"" of type '" "gsl_vector const *""'");
7041     }
7042     arg3 = (gsl_vector *)(argp3);
7043     ecode4 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(3), &val4);
7044     if (!SWIG_IsOK(ecode4)) {
7045       SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "gsl_multifit_wlinear_svd" "', argument " "4"" of type '" "double""'");
7046     }
7047     arg4 = (double)(val4);
7048     res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_size_t, 0 |  0 );
7049     if (!SWIG_IsOK(res5)) {
7050       SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_multifit_wlinear_svd" "', argument " "5"" of type '" "size_t *""'");
7051     }
7052     arg5 = (size_t *)(argp5);
7053     res6 = SWIG_ConvertPtr(ST(5), &argp6,SWIGTYPE_p_gsl_vector, 0 |  0 );
7054     if (!SWIG_IsOK(res6)) {
7055       SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_multifit_wlinear_svd" "', argument " "6"" of type '" "gsl_vector *""'");
7056     }
7057     arg6 = (gsl_vector *)(argp6);
7058     res7 = SWIG_ConvertPtr(ST(6), &argp7,SWIGTYPE_p_gsl_matrix, 0 |  0 );
7059     if (!SWIG_IsOK(res7)) {
7060       SWIG_exception_fail(SWIG_ArgError(res7), "in method '" "gsl_multifit_wlinear_svd" "', argument " "7"" of type '" "gsl_matrix *""'");
7061     }
7062     arg7 = (gsl_matrix *)(argp7);
7063     res8 = SWIG_ConvertPtr(ST(7), &argp8,SWIGTYPE_p_double, 0 |  0 );
7064     if (!SWIG_IsOK(res8)) {
7065       SWIG_exception_fail(SWIG_ArgError(res8), "in method '" "gsl_multifit_wlinear_svd" "', argument " "8"" of type '" "double *""'");
7066     }
7067     arg8 = (double *)(argp8);
7068     res9 = SWIG_ConvertPtr(ST(8), &argp9,SWIGTYPE_p_gsl_multifit_linear_workspace, 0 |  0 );
7069     if (!SWIG_IsOK(res9)) {
7070       SWIG_exception_fail(SWIG_ArgError(res9), "in method '" "gsl_multifit_wlinear_svd" "', argument " "9"" of type '" "gsl_multifit_linear_workspace *""'");
7071     }
7072     arg9 = (gsl_multifit_linear_workspace *)(argp9);
7073     result = (int)gsl_multifit_wlinear_svd((gsl_matrix const *)arg1,(gsl_vector const *)arg2,(gsl_vector const *)arg3,arg4,arg5,arg6,arg7,arg8,arg9);
7074     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7075 
7076 
7077 
7078 
7079 
7080 
7081 
7082 
7083 
7084     XSRETURN(argvi);
7085   fail:
7086 
7087 
7088 
7089 
7090 
7091 
7092 
7093 
7094 
7095     SWIG_croak_null();
7096   }
7097 }
7098 
7099 
XS(_wrap_gsl_multifit_wlinear_usvd)7100 XS(_wrap_gsl_multifit_wlinear_usvd) {
7101   {
7102     gsl_matrix *arg1 = (gsl_matrix *) 0 ;
7103     gsl_vector *arg2 = (gsl_vector *) 0 ;
7104     gsl_vector *arg3 = (gsl_vector *) 0 ;
7105     double arg4 ;
7106     size_t *arg5 = (size_t *) 0 ;
7107     gsl_vector *arg6 = (gsl_vector *) 0 ;
7108     gsl_matrix *arg7 = (gsl_matrix *) 0 ;
7109     double *arg8 = (double *) 0 ;
7110     gsl_multifit_linear_workspace *arg9 = (gsl_multifit_linear_workspace *) 0 ;
7111     void *argp1 = 0 ;
7112     int res1 = 0 ;
7113     void *argp2 = 0 ;
7114     int res2 = 0 ;
7115     void *argp3 = 0 ;
7116     int res3 = 0 ;
7117     double val4 ;
7118     int ecode4 = 0 ;
7119     void *argp5 = 0 ;
7120     int res5 = 0 ;
7121     void *argp6 = 0 ;
7122     int res6 = 0 ;
7123     void *argp7 = 0 ;
7124     int res7 = 0 ;
7125     void *argp8 = 0 ;
7126     int res8 = 0 ;
7127     void *argp9 = 0 ;
7128     int res9 = 0 ;
7129     int argvi = 0;
7130     int result;
7131     dXSARGS;
7132 
7133     if ((items < 9) || (items > 9)) {
7134       SWIG_croak("Usage: gsl_multifit_wlinear_usvd(X,w,y,tol,rank,c,cov,chisq,work);");
7135     }
7136     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 |  0 );
7137     if (!SWIG_IsOK(res1)) {
7138       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_wlinear_usvd" "', argument " "1"" of type '" "gsl_matrix const *""'");
7139     }
7140     arg1 = (gsl_matrix *)(argp1);
7141     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 |  0 );
7142     if (!SWIG_IsOK(res2)) {
7143       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_wlinear_usvd" "', argument " "2"" of type '" "gsl_vector const *""'");
7144     }
7145     arg2 = (gsl_vector *)(argp2);
7146     res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 |  0 );
7147     if (!SWIG_IsOK(res3)) {
7148       SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_multifit_wlinear_usvd" "', argument " "3"" of type '" "gsl_vector const *""'");
7149     }
7150     arg3 = (gsl_vector *)(argp3);
7151     ecode4 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(3), &val4);
7152     if (!SWIG_IsOK(ecode4)) {
7153       SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "gsl_multifit_wlinear_usvd" "', argument " "4"" of type '" "double""'");
7154     }
7155     arg4 = (double)(val4);
7156     res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_size_t, 0 |  0 );
7157     if (!SWIG_IsOK(res5)) {
7158       SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_multifit_wlinear_usvd" "', argument " "5"" of type '" "size_t *""'");
7159     }
7160     arg5 = (size_t *)(argp5);
7161     res6 = SWIG_ConvertPtr(ST(5), &argp6,SWIGTYPE_p_gsl_vector, 0 |  0 );
7162     if (!SWIG_IsOK(res6)) {
7163       SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_multifit_wlinear_usvd" "', argument " "6"" of type '" "gsl_vector *""'");
7164     }
7165     arg6 = (gsl_vector *)(argp6);
7166     res7 = SWIG_ConvertPtr(ST(6), &argp7,SWIGTYPE_p_gsl_matrix, 0 |  0 );
7167     if (!SWIG_IsOK(res7)) {
7168       SWIG_exception_fail(SWIG_ArgError(res7), "in method '" "gsl_multifit_wlinear_usvd" "', argument " "7"" of type '" "gsl_matrix *""'");
7169     }
7170     arg7 = (gsl_matrix *)(argp7);
7171     res8 = SWIG_ConvertPtr(ST(7), &argp8,SWIGTYPE_p_double, 0 |  0 );
7172     if (!SWIG_IsOK(res8)) {
7173       SWIG_exception_fail(SWIG_ArgError(res8), "in method '" "gsl_multifit_wlinear_usvd" "', argument " "8"" of type '" "double *""'");
7174     }
7175     arg8 = (double *)(argp8);
7176     res9 = SWIG_ConvertPtr(ST(8), &argp9,SWIGTYPE_p_gsl_multifit_linear_workspace, 0 |  0 );
7177     if (!SWIG_IsOK(res9)) {
7178       SWIG_exception_fail(SWIG_ArgError(res9), "in method '" "gsl_multifit_wlinear_usvd" "', argument " "9"" of type '" "gsl_multifit_linear_workspace *""'");
7179     }
7180     arg9 = (gsl_multifit_linear_workspace *)(argp9);
7181     result = (int)gsl_multifit_wlinear_usvd((gsl_matrix const *)arg1,(gsl_vector const *)arg2,(gsl_vector const *)arg3,arg4,arg5,arg6,arg7,arg8,arg9);
7182     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7183 
7184 
7185 
7186 
7187 
7188 
7189 
7190 
7191 
7192     XSRETURN(argvi);
7193   fail:
7194 
7195 
7196 
7197 
7198 
7199 
7200 
7201 
7202 
7203     SWIG_croak_null();
7204   }
7205 }
7206 
7207 
XS(_wrap_gsl_multifit_linear_est)7208 XS(_wrap_gsl_multifit_linear_est) {
7209   {
7210     gsl_vector *arg1 = (gsl_vector *) 0 ;
7211     gsl_vector *arg2 = (gsl_vector *) 0 ;
7212     gsl_matrix *arg3 = (gsl_matrix *) 0 ;
7213     double *arg4 = (double *) 0 ;
7214     double *arg5 = (double *) 0 ;
7215     void *argp1 = 0 ;
7216     int res1 = 0 ;
7217     void *argp2 = 0 ;
7218     int res2 = 0 ;
7219     void *argp3 = 0 ;
7220     int res3 = 0 ;
7221     void *argp4 = 0 ;
7222     int res4 = 0 ;
7223     void *argp5 = 0 ;
7224     int res5 = 0 ;
7225     int argvi = 0;
7226     int result;
7227     dXSARGS;
7228 
7229     if ((items < 5) || (items > 5)) {
7230       SWIG_croak("Usage: gsl_multifit_linear_est(x,c,cov,y,y_err);");
7231     }
7232     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 |  0 );
7233     if (!SWIG_IsOK(res1)) {
7234       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_linear_est" "', argument " "1"" of type '" "gsl_vector const *""'");
7235     }
7236     arg1 = (gsl_vector *)(argp1);
7237     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 |  0 );
7238     if (!SWIG_IsOK(res2)) {
7239       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_linear_est" "', argument " "2"" of type '" "gsl_vector const *""'");
7240     }
7241     arg2 = (gsl_vector *)(argp2);
7242     res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 |  0 );
7243     if (!SWIG_IsOK(res3)) {
7244       SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_multifit_linear_est" "', argument " "3"" of type '" "gsl_matrix const *""'");
7245     }
7246     arg3 = (gsl_matrix *)(argp3);
7247     res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_double, 0 |  0 );
7248     if (!SWIG_IsOK(res4)) {
7249       SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_multifit_linear_est" "', argument " "4"" of type '" "double *""'");
7250     }
7251     arg4 = (double *)(argp4);
7252     res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_double, 0 |  0 );
7253     if (!SWIG_IsOK(res5)) {
7254       SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_multifit_linear_est" "', argument " "5"" of type '" "double *""'");
7255     }
7256     arg5 = (double *)(argp5);
7257     result = (int)gsl_multifit_linear_est((gsl_vector const *)arg1,(gsl_vector const *)arg2,(gsl_matrix const *)arg3,arg4,arg5);
7258     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7259 
7260 
7261 
7262 
7263 
7264     XSRETURN(argvi);
7265   fail:
7266 
7267 
7268 
7269 
7270 
7271     SWIG_croak_null();
7272   }
7273 }
7274 
7275 
XS(_wrap_gsl_multifit_linear_rcond)7276 XS(_wrap_gsl_multifit_linear_rcond) {
7277   {
7278     gsl_multifit_linear_workspace *arg1 = (gsl_multifit_linear_workspace *) 0 ;
7279     void *argp1 = 0 ;
7280     int res1 = 0 ;
7281     int argvi = 0;
7282     double result;
7283     dXSARGS;
7284 
7285     if ((items < 1) || (items > 1)) {
7286       SWIG_croak("Usage: gsl_multifit_linear_rcond(w);");
7287     }
7288     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_linear_workspace, 0 |  0 );
7289     if (!SWIG_IsOK(res1)) {
7290       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_linear_rcond" "', argument " "1"" of type '" "gsl_multifit_linear_workspace const *""'");
7291     }
7292     arg1 = (gsl_multifit_linear_workspace *)(argp1);
7293     result = (double)gsl_multifit_linear_rcond((gsl_multifit_linear_workspace const *)arg1);
7294     ST(argvi) = SWIG_From_double  SWIG_PERL_CALL_ARGS_1((double)(result)); argvi++ ;
7295 
7296     XSRETURN(argvi);
7297   fail:
7298 
7299     SWIG_croak_null();
7300   }
7301 }
7302 
7303 
XS(_wrap_gsl_multifit_linear_residuals)7304 XS(_wrap_gsl_multifit_linear_residuals) {
7305   {
7306     gsl_matrix *arg1 = (gsl_matrix *) 0 ;
7307     gsl_vector *arg2 = (gsl_vector *) 0 ;
7308     gsl_vector *arg3 = (gsl_vector *) 0 ;
7309     gsl_vector *arg4 = (gsl_vector *) 0 ;
7310     void *argp1 = 0 ;
7311     int res1 = 0 ;
7312     void *argp2 = 0 ;
7313     int res2 = 0 ;
7314     void *argp3 = 0 ;
7315     int res3 = 0 ;
7316     void *argp4 = 0 ;
7317     int res4 = 0 ;
7318     int argvi = 0;
7319     int result;
7320     dXSARGS;
7321 
7322     if ((items < 4) || (items > 4)) {
7323       SWIG_croak("Usage: gsl_multifit_linear_residuals(X,y,c,r);");
7324     }
7325     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 |  0 );
7326     if (!SWIG_IsOK(res1)) {
7327       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_linear_residuals" "', argument " "1"" of type '" "gsl_matrix const *""'");
7328     }
7329     arg1 = (gsl_matrix *)(argp1);
7330     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 |  0 );
7331     if (!SWIG_IsOK(res2)) {
7332       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_linear_residuals" "', argument " "2"" of type '" "gsl_vector const *""'");
7333     }
7334     arg2 = (gsl_vector *)(argp2);
7335     res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 |  0 );
7336     if (!SWIG_IsOK(res3)) {
7337       SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_multifit_linear_residuals" "', argument " "3"" of type '" "gsl_vector const *""'");
7338     }
7339     arg3 = (gsl_vector *)(argp3);
7340     res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 |  0 );
7341     if (!SWIG_IsOK(res4)) {
7342       SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_multifit_linear_residuals" "', argument " "4"" of type '" "gsl_vector *""'");
7343     }
7344     arg4 = (gsl_vector *)(argp4);
7345     result = (int)gsl_multifit_linear_residuals((gsl_matrix const *)arg1,(gsl_vector const *)arg2,(gsl_vector const *)arg3,arg4);
7346     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7347 
7348 
7349 
7350 
7351     XSRETURN(argvi);
7352   fail:
7353 
7354 
7355 
7356 
7357     SWIG_croak_null();
7358   }
7359 }
7360 
7361 
XS(_wrap_gsl_multifit_linear_gcv_init)7362 XS(_wrap_gsl_multifit_linear_gcv_init) {
7363   {
7364     gsl_vector *arg1 = (gsl_vector *) 0 ;
7365     gsl_vector *arg2 = (gsl_vector *) 0 ;
7366     gsl_vector *arg3 = (gsl_vector *) 0 ;
7367     double *arg4 = (double *) 0 ;
7368     gsl_multifit_linear_workspace *arg5 = (gsl_multifit_linear_workspace *) 0 ;
7369     void *argp1 = 0 ;
7370     int res1 = 0 ;
7371     void *argp2 = 0 ;
7372     int res2 = 0 ;
7373     void *argp3 = 0 ;
7374     int res3 = 0 ;
7375     void *argp4 = 0 ;
7376     int res4 = 0 ;
7377     void *argp5 = 0 ;
7378     int res5 = 0 ;
7379     int argvi = 0;
7380     int result;
7381     dXSARGS;
7382 
7383     if ((items < 5) || (items > 5)) {
7384       SWIG_croak("Usage: gsl_multifit_linear_gcv_init(y,reg_param,UTy,delta0,work);");
7385     }
7386     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 |  0 );
7387     if (!SWIG_IsOK(res1)) {
7388       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_linear_gcv_init" "', argument " "1"" of type '" "gsl_vector const *""'");
7389     }
7390     arg1 = (gsl_vector *)(argp1);
7391     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 |  0 );
7392     if (!SWIG_IsOK(res2)) {
7393       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_linear_gcv_init" "', argument " "2"" of type '" "gsl_vector *""'");
7394     }
7395     arg2 = (gsl_vector *)(argp2);
7396     res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 |  0 );
7397     if (!SWIG_IsOK(res3)) {
7398       SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_multifit_linear_gcv_init" "', argument " "3"" of type '" "gsl_vector *""'");
7399     }
7400     arg3 = (gsl_vector *)(argp3);
7401     res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_double, 0 |  0 );
7402     if (!SWIG_IsOK(res4)) {
7403       SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_multifit_linear_gcv_init" "', argument " "4"" of type '" "double *""'");
7404     }
7405     arg4 = (double *)(argp4);
7406     res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_multifit_linear_workspace, 0 |  0 );
7407     if (!SWIG_IsOK(res5)) {
7408       SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_multifit_linear_gcv_init" "', argument " "5"" of type '" "gsl_multifit_linear_workspace *""'");
7409     }
7410     arg5 = (gsl_multifit_linear_workspace *)(argp5);
7411     result = (int)gsl_multifit_linear_gcv_init((gsl_vector const *)arg1,arg2,arg3,arg4,arg5);
7412     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7413 
7414 
7415 
7416 
7417 
7418     XSRETURN(argvi);
7419   fail:
7420 
7421 
7422 
7423 
7424 
7425     SWIG_croak_null();
7426   }
7427 }
7428 
7429 
XS(_wrap_gsl_multifit_linear_gcv_curve)7430 XS(_wrap_gsl_multifit_linear_gcv_curve) {
7431   {
7432     gsl_vector *arg1 = (gsl_vector *) 0 ;
7433     gsl_vector *arg2 = (gsl_vector *) 0 ;
7434     double arg3 ;
7435     gsl_vector *arg4 = (gsl_vector *) 0 ;
7436     gsl_multifit_linear_workspace *arg5 = (gsl_multifit_linear_workspace *) 0 ;
7437     void *argp1 = 0 ;
7438     int res1 = 0 ;
7439     void *argp2 = 0 ;
7440     int res2 = 0 ;
7441     double val3 ;
7442     int ecode3 = 0 ;
7443     void *argp4 = 0 ;
7444     int res4 = 0 ;
7445     void *argp5 = 0 ;
7446     int res5 = 0 ;
7447     int argvi = 0;
7448     int result;
7449     dXSARGS;
7450 
7451     if ((items < 5) || (items > 5)) {
7452       SWIG_croak("Usage: gsl_multifit_linear_gcv_curve(reg_param,UTy,delta0,G,work);");
7453     }
7454     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 |  0 );
7455     if (!SWIG_IsOK(res1)) {
7456       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_linear_gcv_curve" "', argument " "1"" of type '" "gsl_vector const *""'");
7457     }
7458     arg1 = (gsl_vector *)(argp1);
7459     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 |  0 );
7460     if (!SWIG_IsOK(res2)) {
7461       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_linear_gcv_curve" "', argument " "2"" of type '" "gsl_vector const *""'");
7462     }
7463     arg2 = (gsl_vector *)(argp2);
7464     ecode3 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
7465     if (!SWIG_IsOK(ecode3)) {
7466       SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_multifit_linear_gcv_curve" "', argument " "3"" of type '" "double""'");
7467     }
7468     arg3 = (double)(val3);
7469     res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 |  0 );
7470     if (!SWIG_IsOK(res4)) {
7471       SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_multifit_linear_gcv_curve" "', argument " "4"" of type '" "gsl_vector *""'");
7472     }
7473     arg4 = (gsl_vector *)(argp4);
7474     res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_multifit_linear_workspace, 0 |  0 );
7475     if (!SWIG_IsOK(res5)) {
7476       SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_multifit_linear_gcv_curve" "', argument " "5"" of type '" "gsl_multifit_linear_workspace *""'");
7477     }
7478     arg5 = (gsl_multifit_linear_workspace *)(argp5);
7479     result = (int)gsl_multifit_linear_gcv_curve((gsl_vector const *)arg1,(gsl_vector const *)arg2,arg3,arg4,arg5);
7480     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7481 
7482 
7483 
7484 
7485 
7486     XSRETURN(argvi);
7487   fail:
7488 
7489 
7490 
7491 
7492 
7493     SWIG_croak_null();
7494   }
7495 }
7496 
7497 
XS(_wrap_gsl_multifit_linear_gcv_min)7498 XS(_wrap_gsl_multifit_linear_gcv_min) {
7499   {
7500     gsl_vector *arg1 = (gsl_vector *) 0 ;
7501     gsl_vector *arg2 = (gsl_vector *) 0 ;
7502     gsl_vector *arg3 = (gsl_vector *) 0 ;
7503     double arg4 ;
7504     double *arg5 = (double *) 0 ;
7505     gsl_multifit_linear_workspace *arg6 = (gsl_multifit_linear_workspace *) 0 ;
7506     void *argp1 = 0 ;
7507     int res1 = 0 ;
7508     void *argp2 = 0 ;
7509     int res2 = 0 ;
7510     void *argp3 = 0 ;
7511     int res3 = 0 ;
7512     double val4 ;
7513     int ecode4 = 0 ;
7514     void *argp5 = 0 ;
7515     int res5 = 0 ;
7516     void *argp6 = 0 ;
7517     int res6 = 0 ;
7518     int argvi = 0;
7519     int result;
7520     dXSARGS;
7521 
7522     if ((items < 6) || (items > 6)) {
7523       SWIG_croak("Usage: gsl_multifit_linear_gcv_min(reg_param,UTy,G,delta0,lambda,work);");
7524     }
7525     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 |  0 );
7526     if (!SWIG_IsOK(res1)) {
7527       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_linear_gcv_min" "', argument " "1"" of type '" "gsl_vector const *""'");
7528     }
7529     arg1 = (gsl_vector *)(argp1);
7530     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 |  0 );
7531     if (!SWIG_IsOK(res2)) {
7532       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_linear_gcv_min" "', argument " "2"" of type '" "gsl_vector const *""'");
7533     }
7534     arg2 = (gsl_vector *)(argp2);
7535     res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 |  0 );
7536     if (!SWIG_IsOK(res3)) {
7537       SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_multifit_linear_gcv_min" "', argument " "3"" of type '" "gsl_vector const *""'");
7538     }
7539     arg3 = (gsl_vector *)(argp3);
7540     ecode4 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(3), &val4);
7541     if (!SWIG_IsOK(ecode4)) {
7542       SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "gsl_multifit_linear_gcv_min" "', argument " "4"" of type '" "double""'");
7543     }
7544     arg4 = (double)(val4);
7545     res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_double, 0 |  0 );
7546     if (!SWIG_IsOK(res5)) {
7547       SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_multifit_linear_gcv_min" "', argument " "5"" of type '" "double *""'");
7548     }
7549     arg5 = (double *)(argp5);
7550     res6 = SWIG_ConvertPtr(ST(5), &argp6,SWIGTYPE_p_gsl_multifit_linear_workspace, 0 |  0 );
7551     if (!SWIG_IsOK(res6)) {
7552       SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_multifit_linear_gcv_min" "', argument " "6"" of type '" "gsl_multifit_linear_workspace *""'");
7553     }
7554     arg6 = (gsl_multifit_linear_workspace *)(argp6);
7555     result = (int)gsl_multifit_linear_gcv_min((gsl_vector const *)arg1,(gsl_vector const *)arg2,(gsl_vector const *)arg3,arg4,arg5,arg6);
7556     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7557 
7558 
7559 
7560 
7561 
7562 
7563     XSRETURN(argvi);
7564   fail:
7565 
7566 
7567 
7568 
7569 
7570 
7571     SWIG_croak_null();
7572   }
7573 }
7574 
7575 
XS(_wrap_gsl_multifit_linear_gcv_calc)7576 XS(_wrap_gsl_multifit_linear_gcv_calc) {
7577   {
7578     double arg1 ;
7579     gsl_vector *arg2 = (gsl_vector *) 0 ;
7580     double arg3 ;
7581     gsl_multifit_linear_workspace *arg4 = (gsl_multifit_linear_workspace *) 0 ;
7582     double val1 ;
7583     int ecode1 = 0 ;
7584     void *argp2 = 0 ;
7585     int res2 = 0 ;
7586     double val3 ;
7587     int ecode3 = 0 ;
7588     void *argp4 = 0 ;
7589     int res4 = 0 ;
7590     int argvi = 0;
7591     double result;
7592     dXSARGS;
7593 
7594     if ((items < 4) || (items > 4)) {
7595       SWIG_croak("Usage: gsl_multifit_linear_gcv_calc(lambda,UTy,delta0,work);");
7596     }
7597     ecode1 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
7598     if (!SWIG_IsOK(ecode1)) {
7599       SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_multifit_linear_gcv_calc" "', argument " "1"" of type '" "double""'");
7600     }
7601     arg1 = (double)(val1);
7602     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 |  0 );
7603     if (!SWIG_IsOK(res2)) {
7604       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_linear_gcv_calc" "', argument " "2"" of type '" "gsl_vector const *""'");
7605     }
7606     arg2 = (gsl_vector *)(argp2);
7607     ecode3 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
7608     if (!SWIG_IsOK(ecode3)) {
7609       SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_multifit_linear_gcv_calc" "', argument " "3"" of type '" "double""'");
7610     }
7611     arg3 = (double)(val3);
7612     res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_multifit_linear_workspace, 0 |  0 );
7613     if (!SWIG_IsOK(res4)) {
7614       SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_multifit_linear_gcv_calc" "', argument " "4"" of type '" "gsl_multifit_linear_workspace *""'");
7615     }
7616     arg4 = (gsl_multifit_linear_workspace *)(argp4);
7617     result = (double)gsl_multifit_linear_gcv_calc(arg1,(gsl_vector const *)arg2,arg3,arg4);
7618     ST(argvi) = SWIG_From_double  SWIG_PERL_CALL_ARGS_1((double)(result)); argvi++ ;
7619 
7620 
7621 
7622 
7623     XSRETURN(argvi);
7624   fail:
7625 
7626 
7627 
7628 
7629     SWIG_croak_null();
7630   }
7631 }
7632 
7633 
XS(_wrap_gsl_multifit_linear_gcv)7634 XS(_wrap_gsl_multifit_linear_gcv) {
7635   {
7636     gsl_vector *arg1 = (gsl_vector *) 0 ;
7637     gsl_vector *arg2 = (gsl_vector *) 0 ;
7638     gsl_vector *arg3 = (gsl_vector *) 0 ;
7639     double *arg4 = (double *) 0 ;
7640     double *arg5 = (double *) 0 ;
7641     gsl_multifit_linear_workspace *arg6 = (gsl_multifit_linear_workspace *) 0 ;
7642     void *argp1 = 0 ;
7643     int res1 = 0 ;
7644     void *argp2 = 0 ;
7645     int res2 = 0 ;
7646     void *argp3 = 0 ;
7647     int res3 = 0 ;
7648     void *argp4 = 0 ;
7649     int res4 = 0 ;
7650     void *argp5 = 0 ;
7651     int res5 = 0 ;
7652     void *argp6 = 0 ;
7653     int res6 = 0 ;
7654     int argvi = 0;
7655     int result;
7656     dXSARGS;
7657 
7658     if ((items < 6) || (items > 6)) {
7659       SWIG_croak("Usage: gsl_multifit_linear_gcv(y,reg_param,G,lambda,G_lambda,work);");
7660     }
7661     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 |  0 );
7662     if (!SWIG_IsOK(res1)) {
7663       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_linear_gcv" "', argument " "1"" of type '" "gsl_vector const *""'");
7664     }
7665     arg1 = (gsl_vector *)(argp1);
7666     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 |  0 );
7667     if (!SWIG_IsOK(res2)) {
7668       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_linear_gcv" "', argument " "2"" of type '" "gsl_vector *""'");
7669     }
7670     arg2 = (gsl_vector *)(argp2);
7671     res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 |  0 );
7672     if (!SWIG_IsOK(res3)) {
7673       SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_multifit_linear_gcv" "', argument " "3"" of type '" "gsl_vector *""'");
7674     }
7675     arg3 = (gsl_vector *)(argp3);
7676     res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_double, 0 |  0 );
7677     if (!SWIG_IsOK(res4)) {
7678       SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_multifit_linear_gcv" "', argument " "4"" of type '" "double *""'");
7679     }
7680     arg4 = (double *)(argp4);
7681     res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_double, 0 |  0 );
7682     if (!SWIG_IsOK(res5)) {
7683       SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_multifit_linear_gcv" "', argument " "5"" of type '" "double *""'");
7684     }
7685     arg5 = (double *)(argp5);
7686     res6 = SWIG_ConvertPtr(ST(5), &argp6,SWIGTYPE_p_gsl_multifit_linear_workspace, 0 |  0 );
7687     if (!SWIG_IsOK(res6)) {
7688       SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_multifit_linear_gcv" "', argument " "6"" of type '" "gsl_multifit_linear_workspace *""'");
7689     }
7690     arg6 = (gsl_multifit_linear_workspace *)(argp6);
7691     result = (int)gsl_multifit_linear_gcv((gsl_vector const *)arg1,arg2,arg3,arg4,arg5,arg6);
7692     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7693 
7694 
7695 
7696 
7697 
7698 
7699     XSRETURN(argvi);
7700   fail:
7701 
7702 
7703 
7704 
7705 
7706 
7707     SWIG_croak_null();
7708   }
7709 }
7710 
7711 
XS(_wrap_gsl_multifit_robust_type_name_set)7712 XS(_wrap_gsl_multifit_robust_type_name_set) {
7713   {
7714     gsl_multifit_robust_type *arg1 = (gsl_multifit_robust_type *) 0 ;
7715     char *arg2 = (char *) 0 ;
7716     void *argp1 = 0 ;
7717     int res1 = 0 ;
7718     int res2 ;
7719     char *buf2 = 0 ;
7720     int alloc2 = 0 ;
7721     int argvi = 0;
7722     dXSARGS;
7723 
7724     if ((items < 2) || (items > 2)) {
7725       SWIG_croak("Usage: gsl_multifit_robust_type_name_set(self,name);");
7726     }
7727     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_type, 0 |  0 );
7728     if (!SWIG_IsOK(res1)) {
7729       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_type_name_set" "', argument " "1"" of type '" "gsl_multifit_robust_type *""'");
7730     }
7731     arg1 = (gsl_multifit_robust_type *)(argp1);
7732     res2 = SWIG_AsCharPtrAndSize(ST(1), &buf2, NULL, &alloc2);
7733     if (!SWIG_IsOK(res2)) {
7734       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_robust_type_name_set" "', argument " "2"" of type '" "char const *""'");
7735     }
7736     arg2 = (char *)(buf2);
7737     if (arg2) {
7738       size_t size = strlen((const char *)((const char *)(arg2))) + 1;
7739       arg1->name = (char const *)(char *)memcpy(malloc((size)*sizeof(char)), arg2, sizeof(char)*(size));
7740     } else {
7741       arg1->name = 0;
7742     }
7743     ST(argvi) = &PL_sv_undef;
7744 
7745     if (alloc2 == SWIG_NEWOBJ) free((char*)buf2);
7746     XSRETURN(argvi);
7747   fail:
7748 
7749     if (alloc2 == SWIG_NEWOBJ) free((char*)buf2);
7750     SWIG_croak_null();
7751   }
7752 }
7753 
7754 
XS(_wrap_gsl_multifit_robust_type_name_get)7755 XS(_wrap_gsl_multifit_robust_type_name_get) {
7756   {
7757     gsl_multifit_robust_type *arg1 = (gsl_multifit_robust_type *) 0 ;
7758     void *argp1 = 0 ;
7759     int res1 = 0 ;
7760     int argvi = 0;
7761     char *result = 0 ;
7762     dXSARGS;
7763 
7764     if ((items < 1) || (items > 1)) {
7765       SWIG_croak("Usage: gsl_multifit_robust_type_name_get(self);");
7766     }
7767     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_type, 0 |  0 );
7768     if (!SWIG_IsOK(res1)) {
7769       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_type_name_get" "', argument " "1"" of type '" "gsl_multifit_robust_type *""'");
7770     }
7771     arg1 = (gsl_multifit_robust_type *)(argp1);
7772     result = (char *) ((arg1)->name);
7773     ST(argvi) = SWIG_FromCharPtr((const char *)result); argvi++ ;
7774 
7775     XSRETURN(argvi);
7776   fail:
7777 
7778     SWIG_croak_null();
7779   }
7780 }
7781 
7782 
XS(_wrap_gsl_multifit_robust_type_wfun_set)7783 XS(_wrap_gsl_multifit_robust_type_wfun_set) {
7784   {
7785     gsl_multifit_robust_type *arg1 = (gsl_multifit_robust_type *) 0 ;
7786     int (*arg2)(gsl_vector const *,gsl_vector *) = (int (*)(gsl_vector const *,gsl_vector *)) 0 ;
7787     void *argp1 = 0 ;
7788     int res1 = 0 ;
7789     int argvi = 0;
7790     dXSARGS;
7791 
7792     if ((items < 2) || (items > 2)) {
7793       SWIG_croak("Usage: gsl_multifit_robust_type_wfun_set(self,wfun);");
7794     }
7795     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_type, 0 |  0 );
7796     if (!SWIG_IsOK(res1)) {
7797       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_type_wfun_set" "', argument " "1"" of type '" "gsl_multifit_robust_type *""'");
7798     }
7799     arg1 = (gsl_multifit_robust_type *)(argp1);
7800     {
7801       int res = SWIG_ConvertFunctionPtr(ST(1), (void**)(&arg2), SWIGTYPE_p_f_p_q_const__gsl_vector_p_gsl_vector__int);
7802       if (!SWIG_IsOK(res)) {
7803         SWIG_exception_fail(SWIG_ArgError(res), "in method '" "gsl_multifit_robust_type_wfun_set" "', argument " "2"" of type '" "int (*)(gsl_vector const *,gsl_vector *)""'");
7804       }
7805     }
7806     if (arg1) (arg1)->wfun = arg2;
7807     ST(argvi) = &PL_sv_undef;
7808 
7809 
7810     XSRETURN(argvi);
7811   fail:
7812 
7813 
7814     SWIG_croak_null();
7815   }
7816 }
7817 
7818 
XS(_wrap_gsl_multifit_robust_type_wfun_get)7819 XS(_wrap_gsl_multifit_robust_type_wfun_get) {
7820   {
7821     gsl_multifit_robust_type *arg1 = (gsl_multifit_robust_type *) 0 ;
7822     void *argp1 = 0 ;
7823     int res1 = 0 ;
7824     int argvi = 0;
7825     int (*result)(gsl_vector const *,gsl_vector *) = 0 ;
7826     dXSARGS;
7827 
7828     if ((items < 1) || (items > 1)) {
7829       SWIG_croak("Usage: gsl_multifit_robust_type_wfun_get(self);");
7830     }
7831     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_type, 0 |  0 );
7832     if (!SWIG_IsOK(res1)) {
7833       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_type_wfun_get" "', argument " "1"" of type '" "gsl_multifit_robust_type *""'");
7834     }
7835     arg1 = (gsl_multifit_robust_type *)(argp1);
7836     result = (int (*)(gsl_vector const *,gsl_vector *)) ((arg1)->wfun);
7837     ST(argvi) = SWIG_NewFunctionPtrObj((void *)(result), SWIGTYPE_p_f_p_q_const__gsl_vector_p_gsl_vector__int); argvi++ ;
7838 
7839     XSRETURN(argvi);
7840   fail:
7841 
7842     SWIG_croak_null();
7843   }
7844 }
7845 
7846 
XS(_wrap_gsl_multifit_robust_type_psi_deriv_set)7847 XS(_wrap_gsl_multifit_robust_type_psi_deriv_set) {
7848   {
7849     gsl_multifit_robust_type *arg1 = (gsl_multifit_robust_type *) 0 ;
7850     int (*arg2)(gsl_vector const *,gsl_vector *) = (int (*)(gsl_vector const *,gsl_vector *)) 0 ;
7851     void *argp1 = 0 ;
7852     int res1 = 0 ;
7853     int argvi = 0;
7854     dXSARGS;
7855 
7856     if ((items < 2) || (items > 2)) {
7857       SWIG_croak("Usage: gsl_multifit_robust_type_psi_deriv_set(self,psi_deriv);");
7858     }
7859     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_type, 0 |  0 );
7860     if (!SWIG_IsOK(res1)) {
7861       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_type_psi_deriv_set" "', argument " "1"" of type '" "gsl_multifit_robust_type *""'");
7862     }
7863     arg1 = (gsl_multifit_robust_type *)(argp1);
7864     {
7865       int res = SWIG_ConvertFunctionPtr(ST(1), (void**)(&arg2), SWIGTYPE_p_f_p_q_const__gsl_vector_p_gsl_vector__int);
7866       if (!SWIG_IsOK(res)) {
7867         SWIG_exception_fail(SWIG_ArgError(res), "in method '" "gsl_multifit_robust_type_psi_deriv_set" "', argument " "2"" of type '" "int (*)(gsl_vector const *,gsl_vector *)""'");
7868       }
7869     }
7870     if (arg1) (arg1)->psi_deriv = arg2;
7871     ST(argvi) = &PL_sv_undef;
7872 
7873 
7874     XSRETURN(argvi);
7875   fail:
7876 
7877 
7878     SWIG_croak_null();
7879   }
7880 }
7881 
7882 
XS(_wrap_gsl_multifit_robust_type_psi_deriv_get)7883 XS(_wrap_gsl_multifit_robust_type_psi_deriv_get) {
7884   {
7885     gsl_multifit_robust_type *arg1 = (gsl_multifit_robust_type *) 0 ;
7886     void *argp1 = 0 ;
7887     int res1 = 0 ;
7888     int argvi = 0;
7889     int (*result)(gsl_vector const *,gsl_vector *) = 0 ;
7890     dXSARGS;
7891 
7892     if ((items < 1) || (items > 1)) {
7893       SWIG_croak("Usage: gsl_multifit_robust_type_psi_deriv_get(self);");
7894     }
7895     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_type, 0 |  0 );
7896     if (!SWIG_IsOK(res1)) {
7897       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_type_psi_deriv_get" "', argument " "1"" of type '" "gsl_multifit_robust_type *""'");
7898     }
7899     arg1 = (gsl_multifit_robust_type *)(argp1);
7900     result = (int (*)(gsl_vector const *,gsl_vector *)) ((arg1)->psi_deriv);
7901     ST(argvi) = SWIG_NewFunctionPtrObj((void *)(result), SWIGTYPE_p_f_p_q_const__gsl_vector_p_gsl_vector__int); argvi++ ;
7902 
7903     XSRETURN(argvi);
7904   fail:
7905 
7906     SWIG_croak_null();
7907   }
7908 }
7909 
7910 
XS(_wrap_gsl_multifit_robust_type_tuning_default_set)7911 XS(_wrap_gsl_multifit_robust_type_tuning_default_set) {
7912   {
7913     gsl_multifit_robust_type *arg1 = (gsl_multifit_robust_type *) 0 ;
7914     double arg2 ;
7915     void *argp1 = 0 ;
7916     int res1 = 0 ;
7917     double val2 ;
7918     int ecode2 = 0 ;
7919     int argvi = 0;
7920     dXSARGS;
7921 
7922     if ((items < 2) || (items > 2)) {
7923       SWIG_croak("Usage: gsl_multifit_robust_type_tuning_default_set(self,tuning_default);");
7924     }
7925     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_type, 0 |  0 );
7926     if (!SWIG_IsOK(res1)) {
7927       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_type_tuning_default_set" "', argument " "1"" of type '" "gsl_multifit_robust_type *""'");
7928     }
7929     arg1 = (gsl_multifit_robust_type *)(argp1);
7930     ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
7931     if (!SWIG_IsOK(ecode2)) {
7932       SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_multifit_robust_type_tuning_default_set" "', argument " "2"" of type '" "double""'");
7933     }
7934     arg2 = (double)(val2);
7935     if (arg1) (arg1)->tuning_default = arg2;
7936     ST(argvi) = &PL_sv_undef;
7937 
7938 
7939     XSRETURN(argvi);
7940   fail:
7941 
7942 
7943     SWIG_croak_null();
7944   }
7945 }
7946 
7947 
XS(_wrap_gsl_multifit_robust_type_tuning_default_get)7948 XS(_wrap_gsl_multifit_robust_type_tuning_default_get) {
7949   {
7950     gsl_multifit_robust_type *arg1 = (gsl_multifit_robust_type *) 0 ;
7951     void *argp1 = 0 ;
7952     int res1 = 0 ;
7953     int argvi = 0;
7954     double result;
7955     dXSARGS;
7956 
7957     if ((items < 1) || (items > 1)) {
7958       SWIG_croak("Usage: gsl_multifit_robust_type_tuning_default_get(self);");
7959     }
7960     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_type, 0 |  0 );
7961     if (!SWIG_IsOK(res1)) {
7962       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_type_tuning_default_get" "', argument " "1"" of type '" "gsl_multifit_robust_type *""'");
7963     }
7964     arg1 = (gsl_multifit_robust_type *)(argp1);
7965     result = (double) ((arg1)->tuning_default);
7966     ST(argvi) = SWIG_From_double  SWIG_PERL_CALL_ARGS_1((double)(result)); argvi++ ;
7967 
7968     XSRETURN(argvi);
7969   fail:
7970 
7971     SWIG_croak_null();
7972   }
7973 }
7974 
7975 
XS(_wrap_new_gsl_multifit_robust_type)7976 XS(_wrap_new_gsl_multifit_robust_type) {
7977   {
7978     int argvi = 0;
7979     gsl_multifit_robust_type *result = 0 ;
7980     dXSARGS;
7981 
7982     if ((items < 0) || (items > 0)) {
7983       SWIG_croak("Usage: new_gsl_multifit_robust_type();");
7984     }
7985     result = (gsl_multifit_robust_type *)calloc(1, sizeof(gsl_multifit_robust_type));
7986     ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_multifit_robust_type, SWIG_OWNER | SWIG_SHADOW); argvi++ ;
7987     XSRETURN(argvi);
7988   fail:
7989     SWIG_croak_null();
7990   }
7991 }
7992 
7993 
XS(_wrap_delete_gsl_multifit_robust_type)7994 XS(_wrap_delete_gsl_multifit_robust_type) {
7995   {
7996     gsl_multifit_robust_type *arg1 = (gsl_multifit_robust_type *) 0 ;
7997     void *argp1 = 0 ;
7998     int res1 = 0 ;
7999     int argvi = 0;
8000     dXSARGS;
8001 
8002     if ((items < 1) || (items > 1)) {
8003       SWIG_croak("Usage: delete_gsl_multifit_robust_type(self);");
8004     }
8005     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_type, SWIG_POINTER_DISOWN |  0 );
8006     if (!SWIG_IsOK(res1)) {
8007       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "delete_gsl_multifit_robust_type" "', argument " "1"" of type '" "gsl_multifit_robust_type *""'");
8008     }
8009     arg1 = (gsl_multifit_robust_type *)(argp1);
8010     free((char *) arg1);
8011     ST(argvi) = &PL_sv_undef;
8012 
8013     XSRETURN(argvi);
8014   fail:
8015 
8016     SWIG_croak_null();
8017   }
8018 }
8019 
8020 
XS(_wrap_gsl_multifit_robust_stats_sigma_ols_set)8021 XS(_wrap_gsl_multifit_robust_stats_sigma_ols_set) {
8022   {
8023     gsl_multifit_robust_stats *arg1 = (gsl_multifit_robust_stats *) 0 ;
8024     double arg2 ;
8025     void *argp1 = 0 ;
8026     int res1 = 0 ;
8027     double val2 ;
8028     int ecode2 = 0 ;
8029     int argvi = 0;
8030     dXSARGS;
8031 
8032     if ((items < 2) || (items > 2)) {
8033       SWIG_croak("Usage: gsl_multifit_robust_stats_sigma_ols_set(self,sigma_ols);");
8034     }
8035     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_stats, 0 |  0 );
8036     if (!SWIG_IsOK(res1)) {
8037       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_stats_sigma_ols_set" "', argument " "1"" of type '" "gsl_multifit_robust_stats *""'");
8038     }
8039     arg1 = (gsl_multifit_robust_stats *)(argp1);
8040     ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
8041     if (!SWIG_IsOK(ecode2)) {
8042       SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_multifit_robust_stats_sigma_ols_set" "', argument " "2"" of type '" "double""'");
8043     }
8044     arg2 = (double)(val2);
8045     if (arg1) (arg1)->sigma_ols = arg2;
8046     ST(argvi) = &PL_sv_undef;
8047 
8048 
8049     XSRETURN(argvi);
8050   fail:
8051 
8052 
8053     SWIG_croak_null();
8054   }
8055 }
8056 
8057 
XS(_wrap_gsl_multifit_robust_stats_sigma_ols_get)8058 XS(_wrap_gsl_multifit_robust_stats_sigma_ols_get) {
8059   {
8060     gsl_multifit_robust_stats *arg1 = (gsl_multifit_robust_stats *) 0 ;
8061     void *argp1 = 0 ;
8062     int res1 = 0 ;
8063     int argvi = 0;
8064     double result;
8065     dXSARGS;
8066 
8067     if ((items < 1) || (items > 1)) {
8068       SWIG_croak("Usage: gsl_multifit_robust_stats_sigma_ols_get(self);");
8069     }
8070     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_stats, 0 |  0 );
8071     if (!SWIG_IsOK(res1)) {
8072       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_stats_sigma_ols_get" "', argument " "1"" of type '" "gsl_multifit_robust_stats *""'");
8073     }
8074     arg1 = (gsl_multifit_robust_stats *)(argp1);
8075     result = (double) ((arg1)->sigma_ols);
8076     ST(argvi) = SWIG_From_double  SWIG_PERL_CALL_ARGS_1((double)(result)); argvi++ ;
8077 
8078     XSRETURN(argvi);
8079   fail:
8080 
8081     SWIG_croak_null();
8082   }
8083 }
8084 
8085 
XS(_wrap_gsl_multifit_robust_stats_sigma_mad_set)8086 XS(_wrap_gsl_multifit_robust_stats_sigma_mad_set) {
8087   {
8088     gsl_multifit_robust_stats *arg1 = (gsl_multifit_robust_stats *) 0 ;
8089     double arg2 ;
8090     void *argp1 = 0 ;
8091     int res1 = 0 ;
8092     double val2 ;
8093     int ecode2 = 0 ;
8094     int argvi = 0;
8095     dXSARGS;
8096 
8097     if ((items < 2) || (items > 2)) {
8098       SWIG_croak("Usage: gsl_multifit_robust_stats_sigma_mad_set(self,sigma_mad);");
8099     }
8100     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_stats, 0 |  0 );
8101     if (!SWIG_IsOK(res1)) {
8102       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_stats_sigma_mad_set" "', argument " "1"" of type '" "gsl_multifit_robust_stats *""'");
8103     }
8104     arg1 = (gsl_multifit_robust_stats *)(argp1);
8105     ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
8106     if (!SWIG_IsOK(ecode2)) {
8107       SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_multifit_robust_stats_sigma_mad_set" "', argument " "2"" of type '" "double""'");
8108     }
8109     arg2 = (double)(val2);
8110     if (arg1) (arg1)->sigma_mad = arg2;
8111     ST(argvi) = &PL_sv_undef;
8112 
8113 
8114     XSRETURN(argvi);
8115   fail:
8116 
8117 
8118     SWIG_croak_null();
8119   }
8120 }
8121 
8122 
XS(_wrap_gsl_multifit_robust_stats_sigma_mad_get)8123 XS(_wrap_gsl_multifit_robust_stats_sigma_mad_get) {
8124   {
8125     gsl_multifit_robust_stats *arg1 = (gsl_multifit_robust_stats *) 0 ;
8126     void *argp1 = 0 ;
8127     int res1 = 0 ;
8128     int argvi = 0;
8129     double result;
8130     dXSARGS;
8131 
8132     if ((items < 1) || (items > 1)) {
8133       SWIG_croak("Usage: gsl_multifit_robust_stats_sigma_mad_get(self);");
8134     }
8135     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_stats, 0 |  0 );
8136     if (!SWIG_IsOK(res1)) {
8137       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_stats_sigma_mad_get" "', argument " "1"" of type '" "gsl_multifit_robust_stats *""'");
8138     }
8139     arg1 = (gsl_multifit_robust_stats *)(argp1);
8140     result = (double) ((arg1)->sigma_mad);
8141     ST(argvi) = SWIG_From_double  SWIG_PERL_CALL_ARGS_1((double)(result)); argvi++ ;
8142 
8143     XSRETURN(argvi);
8144   fail:
8145 
8146     SWIG_croak_null();
8147   }
8148 }
8149 
8150 
XS(_wrap_gsl_multifit_robust_stats_sigma_rob_set)8151 XS(_wrap_gsl_multifit_robust_stats_sigma_rob_set) {
8152   {
8153     gsl_multifit_robust_stats *arg1 = (gsl_multifit_robust_stats *) 0 ;
8154     double arg2 ;
8155     void *argp1 = 0 ;
8156     int res1 = 0 ;
8157     double val2 ;
8158     int ecode2 = 0 ;
8159     int argvi = 0;
8160     dXSARGS;
8161 
8162     if ((items < 2) || (items > 2)) {
8163       SWIG_croak("Usage: gsl_multifit_robust_stats_sigma_rob_set(self,sigma_rob);");
8164     }
8165     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_stats, 0 |  0 );
8166     if (!SWIG_IsOK(res1)) {
8167       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_stats_sigma_rob_set" "', argument " "1"" of type '" "gsl_multifit_robust_stats *""'");
8168     }
8169     arg1 = (gsl_multifit_robust_stats *)(argp1);
8170     ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
8171     if (!SWIG_IsOK(ecode2)) {
8172       SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_multifit_robust_stats_sigma_rob_set" "', argument " "2"" of type '" "double""'");
8173     }
8174     arg2 = (double)(val2);
8175     if (arg1) (arg1)->sigma_rob = arg2;
8176     ST(argvi) = &PL_sv_undef;
8177 
8178 
8179     XSRETURN(argvi);
8180   fail:
8181 
8182 
8183     SWIG_croak_null();
8184   }
8185 }
8186 
8187 
XS(_wrap_gsl_multifit_robust_stats_sigma_rob_get)8188 XS(_wrap_gsl_multifit_robust_stats_sigma_rob_get) {
8189   {
8190     gsl_multifit_robust_stats *arg1 = (gsl_multifit_robust_stats *) 0 ;
8191     void *argp1 = 0 ;
8192     int res1 = 0 ;
8193     int argvi = 0;
8194     double result;
8195     dXSARGS;
8196 
8197     if ((items < 1) || (items > 1)) {
8198       SWIG_croak("Usage: gsl_multifit_robust_stats_sigma_rob_get(self);");
8199     }
8200     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_stats, 0 |  0 );
8201     if (!SWIG_IsOK(res1)) {
8202       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_stats_sigma_rob_get" "', argument " "1"" of type '" "gsl_multifit_robust_stats *""'");
8203     }
8204     arg1 = (gsl_multifit_robust_stats *)(argp1);
8205     result = (double) ((arg1)->sigma_rob);
8206     ST(argvi) = SWIG_From_double  SWIG_PERL_CALL_ARGS_1((double)(result)); argvi++ ;
8207 
8208     XSRETURN(argvi);
8209   fail:
8210 
8211     SWIG_croak_null();
8212   }
8213 }
8214 
8215 
XS(_wrap_gsl_multifit_robust_stats_sigma_set)8216 XS(_wrap_gsl_multifit_robust_stats_sigma_set) {
8217   {
8218     gsl_multifit_robust_stats *arg1 = (gsl_multifit_robust_stats *) 0 ;
8219     double arg2 ;
8220     void *argp1 = 0 ;
8221     int res1 = 0 ;
8222     double val2 ;
8223     int ecode2 = 0 ;
8224     int argvi = 0;
8225     dXSARGS;
8226 
8227     if ((items < 2) || (items > 2)) {
8228       SWIG_croak("Usage: gsl_multifit_robust_stats_sigma_set(self,sigma);");
8229     }
8230     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_stats, 0 |  0 );
8231     if (!SWIG_IsOK(res1)) {
8232       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_stats_sigma_set" "', argument " "1"" of type '" "gsl_multifit_robust_stats *""'");
8233     }
8234     arg1 = (gsl_multifit_robust_stats *)(argp1);
8235     ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
8236     if (!SWIG_IsOK(ecode2)) {
8237       SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_multifit_robust_stats_sigma_set" "', argument " "2"" of type '" "double""'");
8238     }
8239     arg2 = (double)(val2);
8240     if (arg1) (arg1)->sigma = arg2;
8241     ST(argvi) = &PL_sv_undef;
8242 
8243 
8244     XSRETURN(argvi);
8245   fail:
8246 
8247 
8248     SWIG_croak_null();
8249   }
8250 }
8251 
8252 
XS(_wrap_gsl_multifit_robust_stats_sigma_get)8253 XS(_wrap_gsl_multifit_robust_stats_sigma_get) {
8254   {
8255     gsl_multifit_robust_stats *arg1 = (gsl_multifit_robust_stats *) 0 ;
8256     void *argp1 = 0 ;
8257     int res1 = 0 ;
8258     int argvi = 0;
8259     double result;
8260     dXSARGS;
8261 
8262     if ((items < 1) || (items > 1)) {
8263       SWIG_croak("Usage: gsl_multifit_robust_stats_sigma_get(self);");
8264     }
8265     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_stats, 0 |  0 );
8266     if (!SWIG_IsOK(res1)) {
8267       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_stats_sigma_get" "', argument " "1"" of type '" "gsl_multifit_robust_stats *""'");
8268     }
8269     arg1 = (gsl_multifit_robust_stats *)(argp1);
8270     result = (double) ((arg1)->sigma);
8271     ST(argvi) = SWIG_From_double  SWIG_PERL_CALL_ARGS_1((double)(result)); argvi++ ;
8272 
8273     XSRETURN(argvi);
8274   fail:
8275 
8276     SWIG_croak_null();
8277   }
8278 }
8279 
8280 
XS(_wrap_gsl_multifit_robust_stats_Rsq_set)8281 XS(_wrap_gsl_multifit_robust_stats_Rsq_set) {
8282   {
8283     gsl_multifit_robust_stats *arg1 = (gsl_multifit_robust_stats *) 0 ;
8284     double arg2 ;
8285     void *argp1 = 0 ;
8286     int res1 = 0 ;
8287     double val2 ;
8288     int ecode2 = 0 ;
8289     int argvi = 0;
8290     dXSARGS;
8291 
8292     if ((items < 2) || (items > 2)) {
8293       SWIG_croak("Usage: gsl_multifit_robust_stats_Rsq_set(self,Rsq);");
8294     }
8295     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_stats, 0 |  0 );
8296     if (!SWIG_IsOK(res1)) {
8297       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_stats_Rsq_set" "', argument " "1"" of type '" "gsl_multifit_robust_stats *""'");
8298     }
8299     arg1 = (gsl_multifit_robust_stats *)(argp1);
8300     ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
8301     if (!SWIG_IsOK(ecode2)) {
8302       SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_multifit_robust_stats_Rsq_set" "', argument " "2"" of type '" "double""'");
8303     }
8304     arg2 = (double)(val2);
8305     if (arg1) (arg1)->Rsq = arg2;
8306     ST(argvi) = &PL_sv_undef;
8307 
8308 
8309     XSRETURN(argvi);
8310   fail:
8311 
8312 
8313     SWIG_croak_null();
8314   }
8315 }
8316 
8317 
XS(_wrap_gsl_multifit_robust_stats_Rsq_get)8318 XS(_wrap_gsl_multifit_robust_stats_Rsq_get) {
8319   {
8320     gsl_multifit_robust_stats *arg1 = (gsl_multifit_robust_stats *) 0 ;
8321     void *argp1 = 0 ;
8322     int res1 = 0 ;
8323     int argvi = 0;
8324     double result;
8325     dXSARGS;
8326 
8327     if ((items < 1) || (items > 1)) {
8328       SWIG_croak("Usage: gsl_multifit_robust_stats_Rsq_get(self);");
8329     }
8330     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_stats, 0 |  0 );
8331     if (!SWIG_IsOK(res1)) {
8332       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_stats_Rsq_get" "', argument " "1"" of type '" "gsl_multifit_robust_stats *""'");
8333     }
8334     arg1 = (gsl_multifit_robust_stats *)(argp1);
8335     result = (double) ((arg1)->Rsq);
8336     ST(argvi) = SWIG_From_double  SWIG_PERL_CALL_ARGS_1((double)(result)); argvi++ ;
8337 
8338     XSRETURN(argvi);
8339   fail:
8340 
8341     SWIG_croak_null();
8342   }
8343 }
8344 
8345 
XS(_wrap_gsl_multifit_robust_stats_adj_Rsq_set)8346 XS(_wrap_gsl_multifit_robust_stats_adj_Rsq_set) {
8347   {
8348     gsl_multifit_robust_stats *arg1 = (gsl_multifit_robust_stats *) 0 ;
8349     double arg2 ;
8350     void *argp1 = 0 ;
8351     int res1 = 0 ;
8352     double val2 ;
8353     int ecode2 = 0 ;
8354     int argvi = 0;
8355     dXSARGS;
8356 
8357     if ((items < 2) || (items > 2)) {
8358       SWIG_croak("Usage: gsl_multifit_robust_stats_adj_Rsq_set(self,adj_Rsq);");
8359     }
8360     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_stats, 0 |  0 );
8361     if (!SWIG_IsOK(res1)) {
8362       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_stats_adj_Rsq_set" "', argument " "1"" of type '" "gsl_multifit_robust_stats *""'");
8363     }
8364     arg1 = (gsl_multifit_robust_stats *)(argp1);
8365     ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
8366     if (!SWIG_IsOK(ecode2)) {
8367       SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_multifit_robust_stats_adj_Rsq_set" "', argument " "2"" of type '" "double""'");
8368     }
8369     arg2 = (double)(val2);
8370     if (arg1) (arg1)->adj_Rsq = arg2;
8371     ST(argvi) = &PL_sv_undef;
8372 
8373 
8374     XSRETURN(argvi);
8375   fail:
8376 
8377 
8378     SWIG_croak_null();
8379   }
8380 }
8381 
8382 
XS(_wrap_gsl_multifit_robust_stats_adj_Rsq_get)8383 XS(_wrap_gsl_multifit_robust_stats_adj_Rsq_get) {
8384   {
8385     gsl_multifit_robust_stats *arg1 = (gsl_multifit_robust_stats *) 0 ;
8386     void *argp1 = 0 ;
8387     int res1 = 0 ;
8388     int argvi = 0;
8389     double result;
8390     dXSARGS;
8391 
8392     if ((items < 1) || (items > 1)) {
8393       SWIG_croak("Usage: gsl_multifit_robust_stats_adj_Rsq_get(self);");
8394     }
8395     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_stats, 0 |  0 );
8396     if (!SWIG_IsOK(res1)) {
8397       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_stats_adj_Rsq_get" "', argument " "1"" of type '" "gsl_multifit_robust_stats *""'");
8398     }
8399     arg1 = (gsl_multifit_robust_stats *)(argp1);
8400     result = (double) ((arg1)->adj_Rsq);
8401     ST(argvi) = SWIG_From_double  SWIG_PERL_CALL_ARGS_1((double)(result)); argvi++ ;
8402 
8403     XSRETURN(argvi);
8404   fail:
8405 
8406     SWIG_croak_null();
8407   }
8408 }
8409 
8410 
XS(_wrap_gsl_multifit_robust_stats_rmse_set)8411 XS(_wrap_gsl_multifit_robust_stats_rmse_set) {
8412   {
8413     gsl_multifit_robust_stats *arg1 = (gsl_multifit_robust_stats *) 0 ;
8414     double arg2 ;
8415     void *argp1 = 0 ;
8416     int res1 = 0 ;
8417     double val2 ;
8418     int ecode2 = 0 ;
8419     int argvi = 0;
8420     dXSARGS;
8421 
8422     if ((items < 2) || (items > 2)) {
8423       SWIG_croak("Usage: gsl_multifit_robust_stats_rmse_set(self,rmse);");
8424     }
8425     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_stats, 0 |  0 );
8426     if (!SWIG_IsOK(res1)) {
8427       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_stats_rmse_set" "', argument " "1"" of type '" "gsl_multifit_robust_stats *""'");
8428     }
8429     arg1 = (gsl_multifit_robust_stats *)(argp1);
8430     ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
8431     if (!SWIG_IsOK(ecode2)) {
8432       SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_multifit_robust_stats_rmse_set" "', argument " "2"" of type '" "double""'");
8433     }
8434     arg2 = (double)(val2);
8435     if (arg1) (arg1)->rmse = arg2;
8436     ST(argvi) = &PL_sv_undef;
8437 
8438 
8439     XSRETURN(argvi);
8440   fail:
8441 
8442 
8443     SWIG_croak_null();
8444   }
8445 }
8446 
8447 
XS(_wrap_gsl_multifit_robust_stats_rmse_get)8448 XS(_wrap_gsl_multifit_robust_stats_rmse_get) {
8449   {
8450     gsl_multifit_robust_stats *arg1 = (gsl_multifit_robust_stats *) 0 ;
8451     void *argp1 = 0 ;
8452     int res1 = 0 ;
8453     int argvi = 0;
8454     double result;
8455     dXSARGS;
8456 
8457     if ((items < 1) || (items > 1)) {
8458       SWIG_croak("Usage: gsl_multifit_robust_stats_rmse_get(self);");
8459     }
8460     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_stats, 0 |  0 );
8461     if (!SWIG_IsOK(res1)) {
8462       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_stats_rmse_get" "', argument " "1"" of type '" "gsl_multifit_robust_stats *""'");
8463     }
8464     arg1 = (gsl_multifit_robust_stats *)(argp1);
8465     result = (double) ((arg1)->rmse);
8466     ST(argvi) = SWIG_From_double  SWIG_PERL_CALL_ARGS_1((double)(result)); argvi++ ;
8467 
8468     XSRETURN(argvi);
8469   fail:
8470 
8471     SWIG_croak_null();
8472   }
8473 }
8474 
8475 
XS(_wrap_gsl_multifit_robust_stats_sse_set)8476 XS(_wrap_gsl_multifit_robust_stats_sse_set) {
8477   {
8478     gsl_multifit_robust_stats *arg1 = (gsl_multifit_robust_stats *) 0 ;
8479     double arg2 ;
8480     void *argp1 = 0 ;
8481     int res1 = 0 ;
8482     double val2 ;
8483     int ecode2 = 0 ;
8484     int argvi = 0;
8485     dXSARGS;
8486 
8487     if ((items < 2) || (items > 2)) {
8488       SWIG_croak("Usage: gsl_multifit_robust_stats_sse_set(self,sse);");
8489     }
8490     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_stats, 0 |  0 );
8491     if (!SWIG_IsOK(res1)) {
8492       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_stats_sse_set" "', argument " "1"" of type '" "gsl_multifit_robust_stats *""'");
8493     }
8494     arg1 = (gsl_multifit_robust_stats *)(argp1);
8495     ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
8496     if (!SWIG_IsOK(ecode2)) {
8497       SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_multifit_robust_stats_sse_set" "', argument " "2"" of type '" "double""'");
8498     }
8499     arg2 = (double)(val2);
8500     if (arg1) (arg1)->sse = arg2;
8501     ST(argvi) = &PL_sv_undef;
8502 
8503 
8504     XSRETURN(argvi);
8505   fail:
8506 
8507 
8508     SWIG_croak_null();
8509   }
8510 }
8511 
8512 
XS(_wrap_gsl_multifit_robust_stats_sse_get)8513 XS(_wrap_gsl_multifit_robust_stats_sse_get) {
8514   {
8515     gsl_multifit_robust_stats *arg1 = (gsl_multifit_robust_stats *) 0 ;
8516     void *argp1 = 0 ;
8517     int res1 = 0 ;
8518     int argvi = 0;
8519     double result;
8520     dXSARGS;
8521 
8522     if ((items < 1) || (items > 1)) {
8523       SWIG_croak("Usage: gsl_multifit_robust_stats_sse_get(self);");
8524     }
8525     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_stats, 0 |  0 );
8526     if (!SWIG_IsOK(res1)) {
8527       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_stats_sse_get" "', argument " "1"" of type '" "gsl_multifit_robust_stats *""'");
8528     }
8529     arg1 = (gsl_multifit_robust_stats *)(argp1);
8530     result = (double) ((arg1)->sse);
8531     ST(argvi) = SWIG_From_double  SWIG_PERL_CALL_ARGS_1((double)(result)); argvi++ ;
8532 
8533     XSRETURN(argvi);
8534   fail:
8535 
8536     SWIG_croak_null();
8537   }
8538 }
8539 
8540 
XS(_wrap_gsl_multifit_robust_stats_dof_set)8541 XS(_wrap_gsl_multifit_robust_stats_dof_set) {
8542   {
8543     gsl_multifit_robust_stats *arg1 = (gsl_multifit_robust_stats *) 0 ;
8544     size_t arg2 ;
8545     void *argp1 = 0 ;
8546     int res1 = 0 ;
8547     size_t val2 ;
8548     int ecode2 = 0 ;
8549     int argvi = 0;
8550     dXSARGS;
8551 
8552     if ((items < 2) || (items > 2)) {
8553       SWIG_croak("Usage: gsl_multifit_robust_stats_dof_set(self,dof);");
8554     }
8555     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_stats, 0 |  0 );
8556     if (!SWIG_IsOK(res1)) {
8557       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_stats_dof_set" "', argument " "1"" of type '" "gsl_multifit_robust_stats *""'");
8558     }
8559     arg1 = (gsl_multifit_robust_stats *)(argp1);
8560     ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
8561     if (!SWIG_IsOK(ecode2)) {
8562       SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_multifit_robust_stats_dof_set" "', argument " "2"" of type '" "size_t""'");
8563     }
8564     arg2 = (size_t)(val2);
8565     if (arg1) (arg1)->dof = arg2;
8566     ST(argvi) = &PL_sv_undef;
8567 
8568 
8569     XSRETURN(argvi);
8570   fail:
8571 
8572 
8573     SWIG_croak_null();
8574   }
8575 }
8576 
8577 
XS(_wrap_gsl_multifit_robust_stats_dof_get)8578 XS(_wrap_gsl_multifit_robust_stats_dof_get) {
8579   {
8580     gsl_multifit_robust_stats *arg1 = (gsl_multifit_robust_stats *) 0 ;
8581     void *argp1 = 0 ;
8582     int res1 = 0 ;
8583     int argvi = 0;
8584     size_t result;
8585     dXSARGS;
8586 
8587     if ((items < 1) || (items > 1)) {
8588       SWIG_croak("Usage: gsl_multifit_robust_stats_dof_get(self);");
8589     }
8590     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_stats, 0 |  0 );
8591     if (!SWIG_IsOK(res1)) {
8592       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_stats_dof_get" "', argument " "1"" of type '" "gsl_multifit_robust_stats *""'");
8593     }
8594     arg1 = (gsl_multifit_robust_stats *)(argp1);
8595     result =  ((arg1)->dof);
8596     ST(argvi) = SWIG_From_size_t  SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
8597 
8598     XSRETURN(argvi);
8599   fail:
8600 
8601     SWIG_croak_null();
8602   }
8603 }
8604 
8605 
XS(_wrap_gsl_multifit_robust_stats_numit_set)8606 XS(_wrap_gsl_multifit_robust_stats_numit_set) {
8607   {
8608     gsl_multifit_robust_stats *arg1 = (gsl_multifit_robust_stats *) 0 ;
8609     size_t arg2 ;
8610     void *argp1 = 0 ;
8611     int res1 = 0 ;
8612     size_t val2 ;
8613     int ecode2 = 0 ;
8614     int argvi = 0;
8615     dXSARGS;
8616 
8617     if ((items < 2) || (items > 2)) {
8618       SWIG_croak("Usage: gsl_multifit_robust_stats_numit_set(self,numit);");
8619     }
8620     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_stats, 0 |  0 );
8621     if (!SWIG_IsOK(res1)) {
8622       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_stats_numit_set" "', argument " "1"" of type '" "gsl_multifit_robust_stats *""'");
8623     }
8624     arg1 = (gsl_multifit_robust_stats *)(argp1);
8625     ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
8626     if (!SWIG_IsOK(ecode2)) {
8627       SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_multifit_robust_stats_numit_set" "', argument " "2"" of type '" "size_t""'");
8628     }
8629     arg2 = (size_t)(val2);
8630     if (arg1) (arg1)->numit = arg2;
8631     ST(argvi) = &PL_sv_undef;
8632 
8633 
8634     XSRETURN(argvi);
8635   fail:
8636 
8637 
8638     SWIG_croak_null();
8639   }
8640 }
8641 
8642 
XS(_wrap_gsl_multifit_robust_stats_numit_get)8643 XS(_wrap_gsl_multifit_robust_stats_numit_get) {
8644   {
8645     gsl_multifit_robust_stats *arg1 = (gsl_multifit_robust_stats *) 0 ;
8646     void *argp1 = 0 ;
8647     int res1 = 0 ;
8648     int argvi = 0;
8649     size_t result;
8650     dXSARGS;
8651 
8652     if ((items < 1) || (items > 1)) {
8653       SWIG_croak("Usage: gsl_multifit_robust_stats_numit_get(self);");
8654     }
8655     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_stats, 0 |  0 );
8656     if (!SWIG_IsOK(res1)) {
8657       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_stats_numit_get" "', argument " "1"" of type '" "gsl_multifit_robust_stats *""'");
8658     }
8659     arg1 = (gsl_multifit_robust_stats *)(argp1);
8660     result =  ((arg1)->numit);
8661     ST(argvi) = SWIG_From_size_t  SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
8662 
8663     XSRETURN(argvi);
8664   fail:
8665 
8666     SWIG_croak_null();
8667   }
8668 }
8669 
8670 
XS(_wrap_gsl_multifit_robust_stats_weights_set)8671 XS(_wrap_gsl_multifit_robust_stats_weights_set) {
8672   {
8673     gsl_multifit_robust_stats *arg1 = (gsl_multifit_robust_stats *) 0 ;
8674     gsl_vector *arg2 = (gsl_vector *) 0 ;
8675     void *argp1 = 0 ;
8676     int res1 = 0 ;
8677     void *argp2 = 0 ;
8678     int res2 = 0 ;
8679     int argvi = 0;
8680     dXSARGS;
8681 
8682     if ((items < 2) || (items > 2)) {
8683       SWIG_croak("Usage: gsl_multifit_robust_stats_weights_set(self,weights);");
8684     }
8685     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_stats, 0 |  0 );
8686     if (!SWIG_IsOK(res1)) {
8687       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_stats_weights_set" "', argument " "1"" of type '" "gsl_multifit_robust_stats *""'");
8688     }
8689     arg1 = (gsl_multifit_robust_stats *)(argp1);
8690     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, SWIG_POINTER_DISOWN |  0 );
8691     if (!SWIG_IsOK(res2)) {
8692       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_robust_stats_weights_set" "', argument " "2"" of type '" "gsl_vector *""'");
8693     }
8694     arg2 = (gsl_vector *)(argp2);
8695     if (arg1) (arg1)->weights = arg2;
8696     ST(argvi) = &PL_sv_undef;
8697 
8698 
8699     XSRETURN(argvi);
8700   fail:
8701 
8702 
8703     SWIG_croak_null();
8704   }
8705 }
8706 
8707 
XS(_wrap_gsl_multifit_robust_stats_weights_get)8708 XS(_wrap_gsl_multifit_robust_stats_weights_get) {
8709   {
8710     gsl_multifit_robust_stats *arg1 = (gsl_multifit_robust_stats *) 0 ;
8711     void *argp1 = 0 ;
8712     int res1 = 0 ;
8713     int argvi = 0;
8714     gsl_vector *result = 0 ;
8715     dXSARGS;
8716 
8717     if ((items < 1) || (items > 1)) {
8718       SWIG_croak("Usage: gsl_multifit_robust_stats_weights_get(self);");
8719     }
8720     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_stats, 0 |  0 );
8721     if (!SWIG_IsOK(res1)) {
8722       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_stats_weights_get" "', argument " "1"" of type '" "gsl_multifit_robust_stats *""'");
8723     }
8724     arg1 = (gsl_multifit_robust_stats *)(argp1);
8725     result = (gsl_vector *) ((arg1)->weights);
8726     ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_vector, 0 | 0); argvi++ ;
8727 
8728     XSRETURN(argvi);
8729   fail:
8730 
8731     SWIG_croak_null();
8732   }
8733 }
8734 
8735 
XS(_wrap_gsl_multifit_robust_stats_r_set)8736 XS(_wrap_gsl_multifit_robust_stats_r_set) {
8737   {
8738     gsl_multifit_robust_stats *arg1 = (gsl_multifit_robust_stats *) 0 ;
8739     gsl_vector *arg2 = (gsl_vector *) 0 ;
8740     void *argp1 = 0 ;
8741     int res1 = 0 ;
8742     void *argp2 = 0 ;
8743     int res2 = 0 ;
8744     int argvi = 0;
8745     dXSARGS;
8746 
8747     if ((items < 2) || (items > 2)) {
8748       SWIG_croak("Usage: gsl_multifit_robust_stats_r_set(self,r);");
8749     }
8750     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_stats, 0 |  0 );
8751     if (!SWIG_IsOK(res1)) {
8752       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_stats_r_set" "', argument " "1"" of type '" "gsl_multifit_robust_stats *""'");
8753     }
8754     arg1 = (gsl_multifit_robust_stats *)(argp1);
8755     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, SWIG_POINTER_DISOWN |  0 );
8756     if (!SWIG_IsOK(res2)) {
8757       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_robust_stats_r_set" "', argument " "2"" of type '" "gsl_vector *""'");
8758     }
8759     arg2 = (gsl_vector *)(argp2);
8760     if (arg1) (arg1)->r = arg2;
8761     ST(argvi) = &PL_sv_undef;
8762 
8763 
8764     XSRETURN(argvi);
8765   fail:
8766 
8767 
8768     SWIG_croak_null();
8769   }
8770 }
8771 
8772 
XS(_wrap_gsl_multifit_robust_stats_r_get)8773 XS(_wrap_gsl_multifit_robust_stats_r_get) {
8774   {
8775     gsl_multifit_robust_stats *arg1 = (gsl_multifit_robust_stats *) 0 ;
8776     void *argp1 = 0 ;
8777     int res1 = 0 ;
8778     int argvi = 0;
8779     gsl_vector *result = 0 ;
8780     dXSARGS;
8781 
8782     if ((items < 1) || (items > 1)) {
8783       SWIG_croak("Usage: gsl_multifit_robust_stats_r_get(self);");
8784     }
8785     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_stats, 0 |  0 );
8786     if (!SWIG_IsOK(res1)) {
8787       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_stats_r_get" "', argument " "1"" of type '" "gsl_multifit_robust_stats *""'");
8788     }
8789     arg1 = (gsl_multifit_robust_stats *)(argp1);
8790     result = (gsl_vector *) ((arg1)->r);
8791     ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_vector, 0 | 0); argvi++ ;
8792 
8793     XSRETURN(argvi);
8794   fail:
8795 
8796     SWIG_croak_null();
8797   }
8798 }
8799 
8800 
XS(_wrap_new_gsl_multifit_robust_stats)8801 XS(_wrap_new_gsl_multifit_robust_stats) {
8802   {
8803     int argvi = 0;
8804     gsl_multifit_robust_stats *result = 0 ;
8805     dXSARGS;
8806 
8807     if ((items < 0) || (items > 0)) {
8808       SWIG_croak("Usage: new_gsl_multifit_robust_stats();");
8809     }
8810     result = (gsl_multifit_robust_stats *)calloc(1, sizeof(gsl_multifit_robust_stats));
8811     ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_multifit_robust_stats, SWIG_OWNER | SWIG_SHADOW); argvi++ ;
8812     XSRETURN(argvi);
8813   fail:
8814     SWIG_croak_null();
8815   }
8816 }
8817 
8818 
XS(_wrap_delete_gsl_multifit_robust_stats)8819 XS(_wrap_delete_gsl_multifit_robust_stats) {
8820   {
8821     gsl_multifit_robust_stats *arg1 = (gsl_multifit_robust_stats *) 0 ;
8822     void *argp1 = 0 ;
8823     int res1 = 0 ;
8824     int argvi = 0;
8825     dXSARGS;
8826 
8827     if ((items < 1) || (items > 1)) {
8828       SWIG_croak("Usage: delete_gsl_multifit_robust_stats(self);");
8829     }
8830     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_stats, SWIG_POINTER_DISOWN |  0 );
8831     if (!SWIG_IsOK(res1)) {
8832       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "delete_gsl_multifit_robust_stats" "', argument " "1"" of type '" "gsl_multifit_robust_stats *""'");
8833     }
8834     arg1 = (gsl_multifit_robust_stats *)(argp1);
8835     free((char *) arg1);
8836     ST(argvi) = &PL_sv_undef;
8837 
8838     XSRETURN(argvi);
8839   fail:
8840 
8841     SWIG_croak_null();
8842   }
8843 }
8844 
8845 
XS(_wrap_gsl_multifit_robust_workspace_n_set)8846 XS(_wrap_gsl_multifit_robust_workspace_n_set) {
8847   {
8848     gsl_multifit_robust_workspace *arg1 = (gsl_multifit_robust_workspace *) 0 ;
8849     size_t arg2 ;
8850     void *argp1 = 0 ;
8851     int res1 = 0 ;
8852     size_t val2 ;
8853     int ecode2 = 0 ;
8854     int argvi = 0;
8855     dXSARGS;
8856 
8857     if ((items < 2) || (items > 2)) {
8858       SWIG_croak("Usage: gsl_multifit_robust_workspace_n_set(self,n);");
8859     }
8860     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_workspace, 0 |  0 );
8861     if (!SWIG_IsOK(res1)) {
8862       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_workspace_n_set" "', argument " "1"" of type '" "gsl_multifit_robust_workspace *""'");
8863     }
8864     arg1 = (gsl_multifit_robust_workspace *)(argp1);
8865     ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
8866     if (!SWIG_IsOK(ecode2)) {
8867       SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_multifit_robust_workspace_n_set" "', argument " "2"" of type '" "size_t""'");
8868     }
8869     arg2 = (size_t)(val2);
8870     if (arg1) (arg1)->n = arg2;
8871     ST(argvi) = &PL_sv_undef;
8872 
8873 
8874     XSRETURN(argvi);
8875   fail:
8876 
8877 
8878     SWIG_croak_null();
8879   }
8880 }
8881 
8882 
XS(_wrap_gsl_multifit_robust_workspace_n_get)8883 XS(_wrap_gsl_multifit_robust_workspace_n_get) {
8884   {
8885     gsl_multifit_robust_workspace *arg1 = (gsl_multifit_robust_workspace *) 0 ;
8886     void *argp1 = 0 ;
8887     int res1 = 0 ;
8888     int argvi = 0;
8889     size_t result;
8890     dXSARGS;
8891 
8892     if ((items < 1) || (items > 1)) {
8893       SWIG_croak("Usage: gsl_multifit_robust_workspace_n_get(self);");
8894     }
8895     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_workspace, 0 |  0 );
8896     if (!SWIG_IsOK(res1)) {
8897       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_workspace_n_get" "', argument " "1"" of type '" "gsl_multifit_robust_workspace *""'");
8898     }
8899     arg1 = (gsl_multifit_robust_workspace *)(argp1);
8900     result =  ((arg1)->n);
8901     ST(argvi) = SWIG_From_size_t  SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
8902 
8903     XSRETURN(argvi);
8904   fail:
8905 
8906     SWIG_croak_null();
8907   }
8908 }
8909 
8910 
XS(_wrap_gsl_multifit_robust_workspace_p_set)8911 XS(_wrap_gsl_multifit_robust_workspace_p_set) {
8912   {
8913     gsl_multifit_robust_workspace *arg1 = (gsl_multifit_robust_workspace *) 0 ;
8914     size_t arg2 ;
8915     void *argp1 = 0 ;
8916     int res1 = 0 ;
8917     size_t val2 ;
8918     int ecode2 = 0 ;
8919     int argvi = 0;
8920     dXSARGS;
8921 
8922     if ((items < 2) || (items > 2)) {
8923       SWIG_croak("Usage: gsl_multifit_robust_workspace_p_set(self,p);");
8924     }
8925     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_workspace, 0 |  0 );
8926     if (!SWIG_IsOK(res1)) {
8927       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_workspace_p_set" "', argument " "1"" of type '" "gsl_multifit_robust_workspace *""'");
8928     }
8929     arg1 = (gsl_multifit_robust_workspace *)(argp1);
8930     ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
8931     if (!SWIG_IsOK(ecode2)) {
8932       SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_multifit_robust_workspace_p_set" "', argument " "2"" of type '" "size_t""'");
8933     }
8934     arg2 = (size_t)(val2);
8935     if (arg1) (arg1)->p = arg2;
8936     ST(argvi) = &PL_sv_undef;
8937 
8938 
8939     XSRETURN(argvi);
8940   fail:
8941 
8942 
8943     SWIG_croak_null();
8944   }
8945 }
8946 
8947 
XS(_wrap_gsl_multifit_robust_workspace_p_get)8948 XS(_wrap_gsl_multifit_robust_workspace_p_get) {
8949   {
8950     gsl_multifit_robust_workspace *arg1 = (gsl_multifit_robust_workspace *) 0 ;
8951     void *argp1 = 0 ;
8952     int res1 = 0 ;
8953     int argvi = 0;
8954     size_t result;
8955     dXSARGS;
8956 
8957     if ((items < 1) || (items > 1)) {
8958       SWIG_croak("Usage: gsl_multifit_robust_workspace_p_get(self);");
8959     }
8960     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_workspace, 0 |  0 );
8961     if (!SWIG_IsOK(res1)) {
8962       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_workspace_p_get" "', argument " "1"" of type '" "gsl_multifit_robust_workspace *""'");
8963     }
8964     arg1 = (gsl_multifit_robust_workspace *)(argp1);
8965     result =  ((arg1)->p);
8966     ST(argvi) = SWIG_From_size_t  SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
8967 
8968     XSRETURN(argvi);
8969   fail:
8970 
8971     SWIG_croak_null();
8972   }
8973 }
8974 
8975 
XS(_wrap_gsl_multifit_robust_workspace_numit_set)8976 XS(_wrap_gsl_multifit_robust_workspace_numit_set) {
8977   {
8978     gsl_multifit_robust_workspace *arg1 = (gsl_multifit_robust_workspace *) 0 ;
8979     size_t arg2 ;
8980     void *argp1 = 0 ;
8981     int res1 = 0 ;
8982     size_t val2 ;
8983     int ecode2 = 0 ;
8984     int argvi = 0;
8985     dXSARGS;
8986 
8987     if ((items < 2) || (items > 2)) {
8988       SWIG_croak("Usage: gsl_multifit_robust_workspace_numit_set(self,numit);");
8989     }
8990     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_workspace, 0 |  0 );
8991     if (!SWIG_IsOK(res1)) {
8992       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_workspace_numit_set" "', argument " "1"" of type '" "gsl_multifit_robust_workspace *""'");
8993     }
8994     arg1 = (gsl_multifit_robust_workspace *)(argp1);
8995     ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
8996     if (!SWIG_IsOK(ecode2)) {
8997       SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_multifit_robust_workspace_numit_set" "', argument " "2"" of type '" "size_t""'");
8998     }
8999     arg2 = (size_t)(val2);
9000     if (arg1) (arg1)->numit = arg2;
9001     ST(argvi) = &PL_sv_undef;
9002 
9003 
9004     XSRETURN(argvi);
9005   fail:
9006 
9007 
9008     SWIG_croak_null();
9009   }
9010 }
9011 
9012 
XS(_wrap_gsl_multifit_robust_workspace_numit_get)9013 XS(_wrap_gsl_multifit_robust_workspace_numit_get) {
9014   {
9015     gsl_multifit_robust_workspace *arg1 = (gsl_multifit_robust_workspace *) 0 ;
9016     void *argp1 = 0 ;
9017     int res1 = 0 ;
9018     int argvi = 0;
9019     size_t result;
9020     dXSARGS;
9021 
9022     if ((items < 1) || (items > 1)) {
9023       SWIG_croak("Usage: gsl_multifit_robust_workspace_numit_get(self);");
9024     }
9025     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_workspace, 0 |  0 );
9026     if (!SWIG_IsOK(res1)) {
9027       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_workspace_numit_get" "', argument " "1"" of type '" "gsl_multifit_robust_workspace *""'");
9028     }
9029     arg1 = (gsl_multifit_robust_workspace *)(argp1);
9030     result =  ((arg1)->numit);
9031     ST(argvi) = SWIG_From_size_t  SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
9032 
9033     XSRETURN(argvi);
9034   fail:
9035 
9036     SWIG_croak_null();
9037   }
9038 }
9039 
9040 
XS(_wrap_gsl_multifit_robust_workspace_maxiter_set)9041 XS(_wrap_gsl_multifit_robust_workspace_maxiter_set) {
9042   {
9043     gsl_multifit_robust_workspace *arg1 = (gsl_multifit_robust_workspace *) 0 ;
9044     size_t arg2 ;
9045     void *argp1 = 0 ;
9046     int res1 = 0 ;
9047     size_t val2 ;
9048     int ecode2 = 0 ;
9049     int argvi = 0;
9050     dXSARGS;
9051 
9052     if ((items < 2) || (items > 2)) {
9053       SWIG_croak("Usage: gsl_multifit_robust_workspace_maxiter_set(self,maxiter);");
9054     }
9055     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_workspace, 0 |  0 );
9056     if (!SWIG_IsOK(res1)) {
9057       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_workspace_maxiter_set" "', argument " "1"" of type '" "gsl_multifit_robust_workspace *""'");
9058     }
9059     arg1 = (gsl_multifit_robust_workspace *)(argp1);
9060     ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
9061     if (!SWIG_IsOK(ecode2)) {
9062       SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_multifit_robust_workspace_maxiter_set" "', argument " "2"" of type '" "size_t""'");
9063     }
9064     arg2 = (size_t)(val2);
9065     if (arg1) (arg1)->maxiter = arg2;
9066     ST(argvi) = &PL_sv_undef;
9067 
9068 
9069     XSRETURN(argvi);
9070   fail:
9071 
9072 
9073     SWIG_croak_null();
9074   }
9075 }
9076 
9077 
XS(_wrap_gsl_multifit_robust_workspace_maxiter_get)9078 XS(_wrap_gsl_multifit_robust_workspace_maxiter_get) {
9079   {
9080     gsl_multifit_robust_workspace *arg1 = (gsl_multifit_robust_workspace *) 0 ;
9081     void *argp1 = 0 ;
9082     int res1 = 0 ;
9083     int argvi = 0;
9084     size_t result;
9085     dXSARGS;
9086 
9087     if ((items < 1) || (items > 1)) {
9088       SWIG_croak("Usage: gsl_multifit_robust_workspace_maxiter_get(self);");
9089     }
9090     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_workspace, 0 |  0 );
9091     if (!SWIG_IsOK(res1)) {
9092       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_workspace_maxiter_get" "', argument " "1"" of type '" "gsl_multifit_robust_workspace *""'");
9093     }
9094     arg1 = (gsl_multifit_robust_workspace *)(argp1);
9095     result =  ((arg1)->maxiter);
9096     ST(argvi) = SWIG_From_size_t  SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
9097 
9098     XSRETURN(argvi);
9099   fail:
9100 
9101     SWIG_croak_null();
9102   }
9103 }
9104 
9105 
XS(_wrap_gsl_multifit_robust_workspace_type_set)9106 XS(_wrap_gsl_multifit_robust_workspace_type_set) {
9107   {
9108     gsl_multifit_robust_workspace *arg1 = (gsl_multifit_robust_workspace *) 0 ;
9109     gsl_multifit_robust_type *arg2 = (gsl_multifit_robust_type *) 0 ;
9110     void *argp1 = 0 ;
9111     int res1 = 0 ;
9112     void *argp2 = 0 ;
9113     int res2 = 0 ;
9114     int argvi = 0;
9115     dXSARGS;
9116 
9117     if ((items < 2) || (items > 2)) {
9118       SWIG_croak("Usage: gsl_multifit_robust_workspace_type_set(self,type);");
9119     }
9120     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_workspace, 0 |  0 );
9121     if (!SWIG_IsOK(res1)) {
9122       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_workspace_type_set" "', argument " "1"" of type '" "gsl_multifit_robust_workspace *""'");
9123     }
9124     arg1 = (gsl_multifit_robust_workspace *)(argp1);
9125     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_multifit_robust_type, SWIG_POINTER_DISOWN |  0 );
9126     if (!SWIG_IsOK(res2)) {
9127       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_robust_workspace_type_set" "', argument " "2"" of type '" "gsl_multifit_robust_type const *""'");
9128     }
9129     arg2 = (gsl_multifit_robust_type *)(argp2);
9130     if (arg1) (arg1)->type = (gsl_multifit_robust_type const *)arg2;
9131     ST(argvi) = &PL_sv_undef;
9132 
9133 
9134     XSRETURN(argvi);
9135   fail:
9136 
9137 
9138     SWIG_croak_null();
9139   }
9140 }
9141 
9142 
XS(_wrap_gsl_multifit_robust_workspace_type_get)9143 XS(_wrap_gsl_multifit_robust_workspace_type_get) {
9144   {
9145     gsl_multifit_robust_workspace *arg1 = (gsl_multifit_robust_workspace *) 0 ;
9146     void *argp1 = 0 ;
9147     int res1 = 0 ;
9148     int argvi = 0;
9149     gsl_multifit_robust_type *result = 0 ;
9150     dXSARGS;
9151 
9152     if ((items < 1) || (items > 1)) {
9153       SWIG_croak("Usage: gsl_multifit_robust_workspace_type_get(self);");
9154     }
9155     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_workspace, 0 |  0 );
9156     if (!SWIG_IsOK(res1)) {
9157       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_workspace_type_get" "', argument " "1"" of type '" "gsl_multifit_robust_workspace *""'");
9158     }
9159     arg1 = (gsl_multifit_robust_workspace *)(argp1);
9160     result = (gsl_multifit_robust_type *) ((arg1)->type);
9161     ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_multifit_robust_type, 0 | SWIG_SHADOW); argvi++ ;
9162 
9163     XSRETURN(argvi);
9164   fail:
9165 
9166     SWIG_croak_null();
9167   }
9168 }
9169 
9170 
XS(_wrap_gsl_multifit_robust_workspace_tune_set)9171 XS(_wrap_gsl_multifit_robust_workspace_tune_set) {
9172   {
9173     gsl_multifit_robust_workspace *arg1 = (gsl_multifit_robust_workspace *) 0 ;
9174     double arg2 ;
9175     void *argp1 = 0 ;
9176     int res1 = 0 ;
9177     double val2 ;
9178     int ecode2 = 0 ;
9179     int argvi = 0;
9180     dXSARGS;
9181 
9182     if ((items < 2) || (items > 2)) {
9183       SWIG_croak("Usage: gsl_multifit_robust_workspace_tune_set(self,tune);");
9184     }
9185     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_workspace, 0 |  0 );
9186     if (!SWIG_IsOK(res1)) {
9187       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_workspace_tune_set" "', argument " "1"" of type '" "gsl_multifit_robust_workspace *""'");
9188     }
9189     arg1 = (gsl_multifit_robust_workspace *)(argp1);
9190     ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
9191     if (!SWIG_IsOK(ecode2)) {
9192       SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_multifit_robust_workspace_tune_set" "', argument " "2"" of type '" "double""'");
9193     }
9194     arg2 = (double)(val2);
9195     if (arg1) (arg1)->tune = arg2;
9196     ST(argvi) = &PL_sv_undef;
9197 
9198 
9199     XSRETURN(argvi);
9200   fail:
9201 
9202 
9203     SWIG_croak_null();
9204   }
9205 }
9206 
9207 
XS(_wrap_gsl_multifit_robust_workspace_tune_get)9208 XS(_wrap_gsl_multifit_robust_workspace_tune_get) {
9209   {
9210     gsl_multifit_robust_workspace *arg1 = (gsl_multifit_robust_workspace *) 0 ;
9211     void *argp1 = 0 ;
9212     int res1 = 0 ;
9213     int argvi = 0;
9214     double result;
9215     dXSARGS;
9216 
9217     if ((items < 1) || (items > 1)) {
9218       SWIG_croak("Usage: gsl_multifit_robust_workspace_tune_get(self);");
9219     }
9220     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_workspace, 0 |  0 );
9221     if (!SWIG_IsOK(res1)) {
9222       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_workspace_tune_get" "', argument " "1"" of type '" "gsl_multifit_robust_workspace *""'");
9223     }
9224     arg1 = (gsl_multifit_robust_workspace *)(argp1);
9225     result = (double) ((arg1)->tune);
9226     ST(argvi) = SWIG_From_double  SWIG_PERL_CALL_ARGS_1((double)(result)); argvi++ ;
9227 
9228     XSRETURN(argvi);
9229   fail:
9230 
9231     SWIG_croak_null();
9232   }
9233 }
9234 
9235 
XS(_wrap_gsl_multifit_robust_workspace_r_set)9236 XS(_wrap_gsl_multifit_robust_workspace_r_set) {
9237   {
9238     gsl_multifit_robust_workspace *arg1 = (gsl_multifit_robust_workspace *) 0 ;
9239     gsl_vector *arg2 = (gsl_vector *) 0 ;
9240     void *argp1 = 0 ;
9241     int res1 = 0 ;
9242     void *argp2 = 0 ;
9243     int res2 = 0 ;
9244     int argvi = 0;
9245     dXSARGS;
9246 
9247     if ((items < 2) || (items > 2)) {
9248       SWIG_croak("Usage: gsl_multifit_robust_workspace_r_set(self,r);");
9249     }
9250     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_workspace, 0 |  0 );
9251     if (!SWIG_IsOK(res1)) {
9252       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_workspace_r_set" "', argument " "1"" of type '" "gsl_multifit_robust_workspace *""'");
9253     }
9254     arg1 = (gsl_multifit_robust_workspace *)(argp1);
9255     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, SWIG_POINTER_DISOWN |  0 );
9256     if (!SWIG_IsOK(res2)) {
9257       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_robust_workspace_r_set" "', argument " "2"" of type '" "gsl_vector *""'");
9258     }
9259     arg2 = (gsl_vector *)(argp2);
9260     if (arg1) (arg1)->r = arg2;
9261     ST(argvi) = &PL_sv_undef;
9262 
9263 
9264     XSRETURN(argvi);
9265   fail:
9266 
9267 
9268     SWIG_croak_null();
9269   }
9270 }
9271 
9272 
XS(_wrap_gsl_multifit_robust_workspace_r_get)9273 XS(_wrap_gsl_multifit_robust_workspace_r_get) {
9274   {
9275     gsl_multifit_robust_workspace *arg1 = (gsl_multifit_robust_workspace *) 0 ;
9276     void *argp1 = 0 ;
9277     int res1 = 0 ;
9278     int argvi = 0;
9279     gsl_vector *result = 0 ;
9280     dXSARGS;
9281 
9282     if ((items < 1) || (items > 1)) {
9283       SWIG_croak("Usage: gsl_multifit_robust_workspace_r_get(self);");
9284     }
9285     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_workspace, 0 |  0 );
9286     if (!SWIG_IsOK(res1)) {
9287       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_workspace_r_get" "', argument " "1"" of type '" "gsl_multifit_robust_workspace *""'");
9288     }
9289     arg1 = (gsl_multifit_robust_workspace *)(argp1);
9290     result = (gsl_vector *) ((arg1)->r);
9291     ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_vector, 0 | 0); argvi++ ;
9292 
9293     XSRETURN(argvi);
9294   fail:
9295 
9296     SWIG_croak_null();
9297   }
9298 }
9299 
9300 
XS(_wrap_gsl_multifit_robust_workspace_weights_set)9301 XS(_wrap_gsl_multifit_robust_workspace_weights_set) {
9302   {
9303     gsl_multifit_robust_workspace *arg1 = (gsl_multifit_robust_workspace *) 0 ;
9304     gsl_vector *arg2 = (gsl_vector *) 0 ;
9305     void *argp1 = 0 ;
9306     int res1 = 0 ;
9307     void *argp2 = 0 ;
9308     int res2 = 0 ;
9309     int argvi = 0;
9310     dXSARGS;
9311 
9312     if ((items < 2) || (items > 2)) {
9313       SWIG_croak("Usage: gsl_multifit_robust_workspace_weights_set(self,weights);");
9314     }
9315     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_workspace, 0 |  0 );
9316     if (!SWIG_IsOK(res1)) {
9317       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_workspace_weights_set" "', argument " "1"" of type '" "gsl_multifit_robust_workspace *""'");
9318     }
9319     arg1 = (gsl_multifit_robust_workspace *)(argp1);
9320     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, SWIG_POINTER_DISOWN |  0 );
9321     if (!SWIG_IsOK(res2)) {
9322       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_robust_workspace_weights_set" "', argument " "2"" of type '" "gsl_vector *""'");
9323     }
9324     arg2 = (gsl_vector *)(argp2);
9325     if (arg1) (arg1)->weights = arg2;
9326     ST(argvi) = &PL_sv_undef;
9327 
9328 
9329     XSRETURN(argvi);
9330   fail:
9331 
9332 
9333     SWIG_croak_null();
9334   }
9335 }
9336 
9337 
XS(_wrap_gsl_multifit_robust_workspace_weights_get)9338 XS(_wrap_gsl_multifit_robust_workspace_weights_get) {
9339   {
9340     gsl_multifit_robust_workspace *arg1 = (gsl_multifit_robust_workspace *) 0 ;
9341     void *argp1 = 0 ;
9342     int res1 = 0 ;
9343     int argvi = 0;
9344     gsl_vector *result = 0 ;
9345     dXSARGS;
9346 
9347     if ((items < 1) || (items > 1)) {
9348       SWIG_croak("Usage: gsl_multifit_robust_workspace_weights_get(self);");
9349     }
9350     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_workspace, 0 |  0 );
9351     if (!SWIG_IsOK(res1)) {
9352       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_workspace_weights_get" "', argument " "1"" of type '" "gsl_multifit_robust_workspace *""'");
9353     }
9354     arg1 = (gsl_multifit_robust_workspace *)(argp1);
9355     result = (gsl_vector *) ((arg1)->weights);
9356     ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_vector, 0 | 0); argvi++ ;
9357 
9358     XSRETURN(argvi);
9359   fail:
9360 
9361     SWIG_croak_null();
9362   }
9363 }
9364 
9365 
XS(_wrap_gsl_multifit_robust_workspace_c_prev_set)9366 XS(_wrap_gsl_multifit_robust_workspace_c_prev_set) {
9367   {
9368     gsl_multifit_robust_workspace *arg1 = (gsl_multifit_robust_workspace *) 0 ;
9369     gsl_vector *arg2 = (gsl_vector *) 0 ;
9370     void *argp1 = 0 ;
9371     int res1 = 0 ;
9372     void *argp2 = 0 ;
9373     int res2 = 0 ;
9374     int argvi = 0;
9375     dXSARGS;
9376 
9377     if ((items < 2) || (items > 2)) {
9378       SWIG_croak("Usage: gsl_multifit_robust_workspace_c_prev_set(self,c_prev);");
9379     }
9380     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_workspace, 0 |  0 );
9381     if (!SWIG_IsOK(res1)) {
9382       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_workspace_c_prev_set" "', argument " "1"" of type '" "gsl_multifit_robust_workspace *""'");
9383     }
9384     arg1 = (gsl_multifit_robust_workspace *)(argp1);
9385     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, SWIG_POINTER_DISOWN |  0 );
9386     if (!SWIG_IsOK(res2)) {
9387       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_robust_workspace_c_prev_set" "', argument " "2"" of type '" "gsl_vector *""'");
9388     }
9389     arg2 = (gsl_vector *)(argp2);
9390     if (arg1) (arg1)->c_prev = arg2;
9391     ST(argvi) = &PL_sv_undef;
9392 
9393 
9394     XSRETURN(argvi);
9395   fail:
9396 
9397 
9398     SWIG_croak_null();
9399   }
9400 }
9401 
9402 
XS(_wrap_gsl_multifit_robust_workspace_c_prev_get)9403 XS(_wrap_gsl_multifit_robust_workspace_c_prev_get) {
9404   {
9405     gsl_multifit_robust_workspace *arg1 = (gsl_multifit_robust_workspace *) 0 ;
9406     void *argp1 = 0 ;
9407     int res1 = 0 ;
9408     int argvi = 0;
9409     gsl_vector *result = 0 ;
9410     dXSARGS;
9411 
9412     if ((items < 1) || (items > 1)) {
9413       SWIG_croak("Usage: gsl_multifit_robust_workspace_c_prev_get(self);");
9414     }
9415     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_workspace, 0 |  0 );
9416     if (!SWIG_IsOK(res1)) {
9417       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_workspace_c_prev_get" "', argument " "1"" of type '" "gsl_multifit_robust_workspace *""'");
9418     }
9419     arg1 = (gsl_multifit_robust_workspace *)(argp1);
9420     result = (gsl_vector *) ((arg1)->c_prev);
9421     ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_vector, 0 | 0); argvi++ ;
9422 
9423     XSRETURN(argvi);
9424   fail:
9425 
9426     SWIG_croak_null();
9427   }
9428 }
9429 
9430 
XS(_wrap_gsl_multifit_robust_workspace_resfac_set)9431 XS(_wrap_gsl_multifit_robust_workspace_resfac_set) {
9432   {
9433     gsl_multifit_robust_workspace *arg1 = (gsl_multifit_robust_workspace *) 0 ;
9434     gsl_vector *arg2 = (gsl_vector *) 0 ;
9435     void *argp1 = 0 ;
9436     int res1 = 0 ;
9437     void *argp2 = 0 ;
9438     int res2 = 0 ;
9439     int argvi = 0;
9440     dXSARGS;
9441 
9442     if ((items < 2) || (items > 2)) {
9443       SWIG_croak("Usage: gsl_multifit_robust_workspace_resfac_set(self,resfac);");
9444     }
9445     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_workspace, 0 |  0 );
9446     if (!SWIG_IsOK(res1)) {
9447       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_workspace_resfac_set" "', argument " "1"" of type '" "gsl_multifit_robust_workspace *""'");
9448     }
9449     arg1 = (gsl_multifit_robust_workspace *)(argp1);
9450     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, SWIG_POINTER_DISOWN |  0 );
9451     if (!SWIG_IsOK(res2)) {
9452       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_robust_workspace_resfac_set" "', argument " "2"" of type '" "gsl_vector *""'");
9453     }
9454     arg2 = (gsl_vector *)(argp2);
9455     if (arg1) (arg1)->resfac = arg2;
9456     ST(argvi) = &PL_sv_undef;
9457 
9458 
9459     XSRETURN(argvi);
9460   fail:
9461 
9462 
9463     SWIG_croak_null();
9464   }
9465 }
9466 
9467 
XS(_wrap_gsl_multifit_robust_workspace_resfac_get)9468 XS(_wrap_gsl_multifit_robust_workspace_resfac_get) {
9469   {
9470     gsl_multifit_robust_workspace *arg1 = (gsl_multifit_robust_workspace *) 0 ;
9471     void *argp1 = 0 ;
9472     int res1 = 0 ;
9473     int argvi = 0;
9474     gsl_vector *result = 0 ;
9475     dXSARGS;
9476 
9477     if ((items < 1) || (items > 1)) {
9478       SWIG_croak("Usage: gsl_multifit_robust_workspace_resfac_get(self);");
9479     }
9480     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_workspace, 0 |  0 );
9481     if (!SWIG_IsOK(res1)) {
9482       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_workspace_resfac_get" "', argument " "1"" of type '" "gsl_multifit_robust_workspace *""'");
9483     }
9484     arg1 = (gsl_multifit_robust_workspace *)(argp1);
9485     result = (gsl_vector *) ((arg1)->resfac);
9486     ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_vector, 0 | 0); argvi++ ;
9487 
9488     XSRETURN(argvi);
9489   fail:
9490 
9491     SWIG_croak_null();
9492   }
9493 }
9494 
9495 
XS(_wrap_gsl_multifit_robust_workspace_psi_set)9496 XS(_wrap_gsl_multifit_robust_workspace_psi_set) {
9497   {
9498     gsl_multifit_robust_workspace *arg1 = (gsl_multifit_robust_workspace *) 0 ;
9499     gsl_vector *arg2 = (gsl_vector *) 0 ;
9500     void *argp1 = 0 ;
9501     int res1 = 0 ;
9502     void *argp2 = 0 ;
9503     int res2 = 0 ;
9504     int argvi = 0;
9505     dXSARGS;
9506 
9507     if ((items < 2) || (items > 2)) {
9508       SWIG_croak("Usage: gsl_multifit_robust_workspace_psi_set(self,psi);");
9509     }
9510     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_workspace, 0 |  0 );
9511     if (!SWIG_IsOK(res1)) {
9512       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_workspace_psi_set" "', argument " "1"" of type '" "gsl_multifit_robust_workspace *""'");
9513     }
9514     arg1 = (gsl_multifit_robust_workspace *)(argp1);
9515     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, SWIG_POINTER_DISOWN |  0 );
9516     if (!SWIG_IsOK(res2)) {
9517       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_robust_workspace_psi_set" "', argument " "2"" of type '" "gsl_vector *""'");
9518     }
9519     arg2 = (gsl_vector *)(argp2);
9520     if (arg1) (arg1)->psi = arg2;
9521     ST(argvi) = &PL_sv_undef;
9522 
9523 
9524     XSRETURN(argvi);
9525   fail:
9526 
9527 
9528     SWIG_croak_null();
9529   }
9530 }
9531 
9532 
XS(_wrap_gsl_multifit_robust_workspace_psi_get)9533 XS(_wrap_gsl_multifit_robust_workspace_psi_get) {
9534   {
9535     gsl_multifit_robust_workspace *arg1 = (gsl_multifit_robust_workspace *) 0 ;
9536     void *argp1 = 0 ;
9537     int res1 = 0 ;
9538     int argvi = 0;
9539     gsl_vector *result = 0 ;
9540     dXSARGS;
9541 
9542     if ((items < 1) || (items > 1)) {
9543       SWIG_croak("Usage: gsl_multifit_robust_workspace_psi_get(self);");
9544     }
9545     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_workspace, 0 |  0 );
9546     if (!SWIG_IsOK(res1)) {
9547       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_workspace_psi_get" "', argument " "1"" of type '" "gsl_multifit_robust_workspace *""'");
9548     }
9549     arg1 = (gsl_multifit_robust_workspace *)(argp1);
9550     result = (gsl_vector *) ((arg1)->psi);
9551     ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_vector, 0 | 0); argvi++ ;
9552 
9553     XSRETURN(argvi);
9554   fail:
9555 
9556     SWIG_croak_null();
9557   }
9558 }
9559 
9560 
XS(_wrap_gsl_multifit_robust_workspace_dpsi_set)9561 XS(_wrap_gsl_multifit_robust_workspace_dpsi_set) {
9562   {
9563     gsl_multifit_robust_workspace *arg1 = (gsl_multifit_robust_workspace *) 0 ;
9564     gsl_vector *arg2 = (gsl_vector *) 0 ;
9565     void *argp1 = 0 ;
9566     int res1 = 0 ;
9567     void *argp2 = 0 ;
9568     int res2 = 0 ;
9569     int argvi = 0;
9570     dXSARGS;
9571 
9572     if ((items < 2) || (items > 2)) {
9573       SWIG_croak("Usage: gsl_multifit_robust_workspace_dpsi_set(self,dpsi);");
9574     }
9575     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_workspace, 0 |  0 );
9576     if (!SWIG_IsOK(res1)) {
9577       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_workspace_dpsi_set" "', argument " "1"" of type '" "gsl_multifit_robust_workspace *""'");
9578     }
9579     arg1 = (gsl_multifit_robust_workspace *)(argp1);
9580     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, SWIG_POINTER_DISOWN |  0 );
9581     if (!SWIG_IsOK(res2)) {
9582       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_robust_workspace_dpsi_set" "', argument " "2"" of type '" "gsl_vector *""'");
9583     }
9584     arg2 = (gsl_vector *)(argp2);
9585     if (arg1) (arg1)->dpsi = arg2;
9586     ST(argvi) = &PL_sv_undef;
9587 
9588 
9589     XSRETURN(argvi);
9590   fail:
9591 
9592 
9593     SWIG_croak_null();
9594   }
9595 }
9596 
9597 
XS(_wrap_gsl_multifit_robust_workspace_dpsi_get)9598 XS(_wrap_gsl_multifit_robust_workspace_dpsi_get) {
9599   {
9600     gsl_multifit_robust_workspace *arg1 = (gsl_multifit_robust_workspace *) 0 ;
9601     void *argp1 = 0 ;
9602     int res1 = 0 ;
9603     int argvi = 0;
9604     gsl_vector *result = 0 ;
9605     dXSARGS;
9606 
9607     if ((items < 1) || (items > 1)) {
9608       SWIG_croak("Usage: gsl_multifit_robust_workspace_dpsi_get(self);");
9609     }
9610     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_workspace, 0 |  0 );
9611     if (!SWIG_IsOK(res1)) {
9612       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_workspace_dpsi_get" "', argument " "1"" of type '" "gsl_multifit_robust_workspace *""'");
9613     }
9614     arg1 = (gsl_multifit_robust_workspace *)(argp1);
9615     result = (gsl_vector *) ((arg1)->dpsi);
9616     ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_vector, 0 | 0); argvi++ ;
9617 
9618     XSRETURN(argvi);
9619   fail:
9620 
9621     SWIG_croak_null();
9622   }
9623 }
9624 
9625 
XS(_wrap_gsl_multifit_robust_workspace_QSI_set)9626 XS(_wrap_gsl_multifit_robust_workspace_QSI_set) {
9627   {
9628     gsl_multifit_robust_workspace *arg1 = (gsl_multifit_robust_workspace *) 0 ;
9629     gsl_matrix *arg2 = (gsl_matrix *) 0 ;
9630     void *argp1 = 0 ;
9631     int res1 = 0 ;
9632     void *argp2 = 0 ;
9633     int res2 = 0 ;
9634     int argvi = 0;
9635     dXSARGS;
9636 
9637     if ((items < 2) || (items > 2)) {
9638       SWIG_croak("Usage: gsl_multifit_robust_workspace_QSI_set(self,QSI);");
9639     }
9640     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_workspace, 0 |  0 );
9641     if (!SWIG_IsOK(res1)) {
9642       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_workspace_QSI_set" "', argument " "1"" of type '" "gsl_multifit_robust_workspace *""'");
9643     }
9644     arg1 = (gsl_multifit_robust_workspace *)(argp1);
9645     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, SWIG_POINTER_DISOWN |  0 );
9646     if (!SWIG_IsOK(res2)) {
9647       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_robust_workspace_QSI_set" "', argument " "2"" of type '" "gsl_matrix *""'");
9648     }
9649     arg2 = (gsl_matrix *)(argp2);
9650     if (arg1) (arg1)->QSI = arg2;
9651     ST(argvi) = &PL_sv_undef;
9652 
9653 
9654     XSRETURN(argvi);
9655   fail:
9656 
9657 
9658     SWIG_croak_null();
9659   }
9660 }
9661 
9662 
XS(_wrap_gsl_multifit_robust_workspace_QSI_get)9663 XS(_wrap_gsl_multifit_robust_workspace_QSI_get) {
9664   {
9665     gsl_multifit_robust_workspace *arg1 = (gsl_multifit_robust_workspace *) 0 ;
9666     void *argp1 = 0 ;
9667     int res1 = 0 ;
9668     int argvi = 0;
9669     gsl_matrix *result = 0 ;
9670     dXSARGS;
9671 
9672     if ((items < 1) || (items > 1)) {
9673       SWIG_croak("Usage: gsl_multifit_robust_workspace_QSI_get(self);");
9674     }
9675     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_workspace, 0 |  0 );
9676     if (!SWIG_IsOK(res1)) {
9677       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_workspace_QSI_get" "', argument " "1"" of type '" "gsl_multifit_robust_workspace *""'");
9678     }
9679     arg1 = (gsl_multifit_robust_workspace *)(argp1);
9680     result = (gsl_matrix *) ((arg1)->QSI);
9681     ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_matrix, 0 | 0); argvi++ ;
9682 
9683     XSRETURN(argvi);
9684   fail:
9685 
9686     SWIG_croak_null();
9687   }
9688 }
9689 
9690 
XS(_wrap_gsl_multifit_robust_workspace_D_set)9691 XS(_wrap_gsl_multifit_robust_workspace_D_set) {
9692   {
9693     gsl_multifit_robust_workspace *arg1 = (gsl_multifit_robust_workspace *) 0 ;
9694     gsl_vector *arg2 = (gsl_vector *) 0 ;
9695     void *argp1 = 0 ;
9696     int res1 = 0 ;
9697     void *argp2 = 0 ;
9698     int res2 = 0 ;
9699     int argvi = 0;
9700     dXSARGS;
9701 
9702     if ((items < 2) || (items > 2)) {
9703       SWIG_croak("Usage: gsl_multifit_robust_workspace_D_set(self,D);");
9704     }
9705     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_workspace, 0 |  0 );
9706     if (!SWIG_IsOK(res1)) {
9707       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_workspace_D_set" "', argument " "1"" of type '" "gsl_multifit_robust_workspace *""'");
9708     }
9709     arg1 = (gsl_multifit_robust_workspace *)(argp1);
9710     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, SWIG_POINTER_DISOWN |  0 );
9711     if (!SWIG_IsOK(res2)) {
9712       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_robust_workspace_D_set" "', argument " "2"" of type '" "gsl_vector *""'");
9713     }
9714     arg2 = (gsl_vector *)(argp2);
9715     if (arg1) (arg1)->D = arg2;
9716     ST(argvi) = &PL_sv_undef;
9717 
9718 
9719     XSRETURN(argvi);
9720   fail:
9721 
9722 
9723     SWIG_croak_null();
9724   }
9725 }
9726 
9727 
XS(_wrap_gsl_multifit_robust_workspace_D_get)9728 XS(_wrap_gsl_multifit_robust_workspace_D_get) {
9729   {
9730     gsl_multifit_robust_workspace *arg1 = (gsl_multifit_robust_workspace *) 0 ;
9731     void *argp1 = 0 ;
9732     int res1 = 0 ;
9733     int argvi = 0;
9734     gsl_vector *result = 0 ;
9735     dXSARGS;
9736 
9737     if ((items < 1) || (items > 1)) {
9738       SWIG_croak("Usage: gsl_multifit_robust_workspace_D_get(self);");
9739     }
9740     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_workspace, 0 |  0 );
9741     if (!SWIG_IsOK(res1)) {
9742       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_workspace_D_get" "', argument " "1"" of type '" "gsl_multifit_robust_workspace *""'");
9743     }
9744     arg1 = (gsl_multifit_robust_workspace *)(argp1);
9745     result = (gsl_vector *) ((arg1)->D);
9746     ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_vector, 0 | 0); argvi++ ;
9747 
9748     XSRETURN(argvi);
9749   fail:
9750 
9751     SWIG_croak_null();
9752   }
9753 }
9754 
9755 
XS(_wrap_gsl_multifit_robust_workspace_workn_set)9756 XS(_wrap_gsl_multifit_robust_workspace_workn_set) {
9757   {
9758     gsl_multifit_robust_workspace *arg1 = (gsl_multifit_robust_workspace *) 0 ;
9759     gsl_vector *arg2 = (gsl_vector *) 0 ;
9760     void *argp1 = 0 ;
9761     int res1 = 0 ;
9762     void *argp2 = 0 ;
9763     int res2 = 0 ;
9764     int argvi = 0;
9765     dXSARGS;
9766 
9767     if ((items < 2) || (items > 2)) {
9768       SWIG_croak("Usage: gsl_multifit_robust_workspace_workn_set(self,workn);");
9769     }
9770     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_workspace, 0 |  0 );
9771     if (!SWIG_IsOK(res1)) {
9772       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_workspace_workn_set" "', argument " "1"" of type '" "gsl_multifit_robust_workspace *""'");
9773     }
9774     arg1 = (gsl_multifit_robust_workspace *)(argp1);
9775     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, SWIG_POINTER_DISOWN |  0 );
9776     if (!SWIG_IsOK(res2)) {
9777       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_robust_workspace_workn_set" "', argument " "2"" of type '" "gsl_vector *""'");
9778     }
9779     arg2 = (gsl_vector *)(argp2);
9780     if (arg1) (arg1)->workn = arg2;
9781     ST(argvi) = &PL_sv_undef;
9782 
9783 
9784     XSRETURN(argvi);
9785   fail:
9786 
9787 
9788     SWIG_croak_null();
9789   }
9790 }
9791 
9792 
XS(_wrap_gsl_multifit_robust_workspace_workn_get)9793 XS(_wrap_gsl_multifit_robust_workspace_workn_get) {
9794   {
9795     gsl_multifit_robust_workspace *arg1 = (gsl_multifit_robust_workspace *) 0 ;
9796     void *argp1 = 0 ;
9797     int res1 = 0 ;
9798     int argvi = 0;
9799     gsl_vector *result = 0 ;
9800     dXSARGS;
9801 
9802     if ((items < 1) || (items > 1)) {
9803       SWIG_croak("Usage: gsl_multifit_robust_workspace_workn_get(self);");
9804     }
9805     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_workspace, 0 |  0 );
9806     if (!SWIG_IsOK(res1)) {
9807       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_workspace_workn_get" "', argument " "1"" of type '" "gsl_multifit_robust_workspace *""'");
9808     }
9809     arg1 = (gsl_multifit_robust_workspace *)(argp1);
9810     result = (gsl_vector *) ((arg1)->workn);
9811     ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_vector, 0 | 0); argvi++ ;
9812 
9813     XSRETURN(argvi);
9814   fail:
9815 
9816     SWIG_croak_null();
9817   }
9818 }
9819 
9820 
XS(_wrap_gsl_multifit_robust_workspace_stats_set)9821 XS(_wrap_gsl_multifit_robust_workspace_stats_set) {
9822   {
9823     gsl_multifit_robust_workspace *arg1 = (gsl_multifit_robust_workspace *) 0 ;
9824     gsl_multifit_robust_stats *arg2 = (gsl_multifit_robust_stats *) 0 ;
9825     void *argp1 = 0 ;
9826     int res1 = 0 ;
9827     void *argp2 = 0 ;
9828     int res2 = 0 ;
9829     int argvi = 0;
9830     dXSARGS;
9831 
9832     if ((items < 2) || (items > 2)) {
9833       SWIG_croak("Usage: gsl_multifit_robust_workspace_stats_set(self,stats);");
9834     }
9835     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_workspace, 0 |  0 );
9836     if (!SWIG_IsOK(res1)) {
9837       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_workspace_stats_set" "', argument " "1"" of type '" "gsl_multifit_robust_workspace *""'");
9838     }
9839     arg1 = (gsl_multifit_robust_workspace *)(argp1);
9840     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_multifit_robust_stats, 0 |  0 );
9841     if (!SWIG_IsOK(res2)) {
9842       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_robust_workspace_stats_set" "', argument " "2"" of type '" "gsl_multifit_robust_stats *""'");
9843     }
9844     arg2 = (gsl_multifit_robust_stats *)(argp2);
9845     if (arg1) (arg1)->stats = *arg2;
9846     ST(argvi) = &PL_sv_undef;
9847 
9848 
9849     XSRETURN(argvi);
9850   fail:
9851 
9852 
9853     SWIG_croak_null();
9854   }
9855 }
9856 
9857 
XS(_wrap_gsl_multifit_robust_workspace_stats_get)9858 XS(_wrap_gsl_multifit_robust_workspace_stats_get) {
9859   {
9860     gsl_multifit_robust_workspace *arg1 = (gsl_multifit_robust_workspace *) 0 ;
9861     void *argp1 = 0 ;
9862     int res1 = 0 ;
9863     int argvi = 0;
9864     gsl_multifit_robust_stats *result = 0 ;
9865     dXSARGS;
9866 
9867     if ((items < 1) || (items > 1)) {
9868       SWIG_croak("Usage: gsl_multifit_robust_workspace_stats_get(self);");
9869     }
9870     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_workspace, 0 |  0 );
9871     if (!SWIG_IsOK(res1)) {
9872       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_workspace_stats_get" "', argument " "1"" of type '" "gsl_multifit_robust_workspace *""'");
9873     }
9874     arg1 = (gsl_multifit_robust_workspace *)(argp1);
9875     result = (gsl_multifit_robust_stats *)& ((arg1)->stats);
9876     ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_multifit_robust_stats, 0 | SWIG_SHADOW); argvi++ ;
9877 
9878     XSRETURN(argvi);
9879   fail:
9880 
9881     SWIG_croak_null();
9882   }
9883 }
9884 
9885 
XS(_wrap_gsl_multifit_robust_workspace_multifit_p_set)9886 XS(_wrap_gsl_multifit_robust_workspace_multifit_p_set) {
9887   {
9888     gsl_multifit_robust_workspace *arg1 = (gsl_multifit_robust_workspace *) 0 ;
9889     gsl_multifit_linear_workspace *arg2 = (gsl_multifit_linear_workspace *) 0 ;
9890     void *argp1 = 0 ;
9891     int res1 = 0 ;
9892     void *argp2 = 0 ;
9893     int res2 = 0 ;
9894     int argvi = 0;
9895     dXSARGS;
9896 
9897     if ((items < 2) || (items > 2)) {
9898       SWIG_croak("Usage: gsl_multifit_robust_workspace_multifit_p_set(self,multifit_p);");
9899     }
9900     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_workspace, 0 |  0 );
9901     if (!SWIG_IsOK(res1)) {
9902       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_workspace_multifit_p_set" "', argument " "1"" of type '" "gsl_multifit_robust_workspace *""'");
9903     }
9904     arg1 = (gsl_multifit_robust_workspace *)(argp1);
9905     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_multifit_linear_workspace, SWIG_POINTER_DISOWN |  0 );
9906     if (!SWIG_IsOK(res2)) {
9907       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_robust_workspace_multifit_p_set" "', argument " "2"" of type '" "gsl_multifit_linear_workspace *""'");
9908     }
9909     arg2 = (gsl_multifit_linear_workspace *)(argp2);
9910     if (arg1) (arg1)->multifit_p = arg2;
9911     ST(argvi) = &PL_sv_undef;
9912 
9913 
9914     XSRETURN(argvi);
9915   fail:
9916 
9917 
9918     SWIG_croak_null();
9919   }
9920 }
9921 
9922 
XS(_wrap_gsl_multifit_robust_workspace_multifit_p_get)9923 XS(_wrap_gsl_multifit_robust_workspace_multifit_p_get) {
9924   {
9925     gsl_multifit_robust_workspace *arg1 = (gsl_multifit_robust_workspace *) 0 ;
9926     void *argp1 = 0 ;
9927     int res1 = 0 ;
9928     int argvi = 0;
9929     gsl_multifit_linear_workspace *result = 0 ;
9930     dXSARGS;
9931 
9932     if ((items < 1) || (items > 1)) {
9933       SWIG_croak("Usage: gsl_multifit_robust_workspace_multifit_p_get(self);");
9934     }
9935     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_workspace, 0 |  0 );
9936     if (!SWIG_IsOK(res1)) {
9937       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_workspace_multifit_p_get" "', argument " "1"" of type '" "gsl_multifit_robust_workspace *""'");
9938     }
9939     arg1 = (gsl_multifit_robust_workspace *)(argp1);
9940     result = (gsl_multifit_linear_workspace *) ((arg1)->multifit_p);
9941     ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_multifit_linear_workspace, 0 | SWIG_SHADOW); argvi++ ;
9942 
9943     XSRETURN(argvi);
9944   fail:
9945 
9946     SWIG_croak_null();
9947   }
9948 }
9949 
9950 
XS(_wrap_new_gsl_multifit_robust_workspace)9951 XS(_wrap_new_gsl_multifit_robust_workspace) {
9952   {
9953     int argvi = 0;
9954     gsl_multifit_robust_workspace *result = 0 ;
9955     dXSARGS;
9956 
9957     if ((items < 0) || (items > 0)) {
9958       SWIG_croak("Usage: new_gsl_multifit_robust_workspace();");
9959     }
9960     result = (gsl_multifit_robust_workspace *)calloc(1, sizeof(gsl_multifit_robust_workspace));
9961     ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_multifit_robust_workspace, SWIG_OWNER | SWIG_SHADOW); argvi++ ;
9962     XSRETURN(argvi);
9963   fail:
9964     SWIG_croak_null();
9965   }
9966 }
9967 
9968 
XS(_wrap_delete_gsl_multifit_robust_workspace)9969 XS(_wrap_delete_gsl_multifit_robust_workspace) {
9970   {
9971     gsl_multifit_robust_workspace *arg1 = (gsl_multifit_robust_workspace *) 0 ;
9972     void *argp1 = 0 ;
9973     int res1 = 0 ;
9974     int argvi = 0;
9975     dXSARGS;
9976 
9977     if ((items < 1) || (items > 1)) {
9978       SWIG_croak("Usage: delete_gsl_multifit_robust_workspace(self);");
9979     }
9980     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_workspace, SWIG_POINTER_DISOWN |  0 );
9981     if (!SWIG_IsOK(res1)) {
9982       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "delete_gsl_multifit_robust_workspace" "', argument " "1"" of type '" "gsl_multifit_robust_workspace *""'");
9983     }
9984     arg1 = (gsl_multifit_robust_workspace *)(argp1);
9985     free((char *) arg1);
9986     ST(argvi) = &PL_sv_undef;
9987 
9988     XSRETURN(argvi);
9989   fail:
9990 
9991     SWIG_croak_null();
9992   }
9993 }
9994 
9995 
XS(_wrap_gsl_multifit_robust_alloc)9996 XS(_wrap_gsl_multifit_robust_alloc) {
9997   {
9998     gsl_multifit_robust_type *arg1 = (gsl_multifit_robust_type *) 0 ;
9999     size_t arg2 ;
10000     size_t arg3 ;
10001     void *argp1 = 0 ;
10002     int res1 = 0 ;
10003     size_t val2 ;
10004     int ecode2 = 0 ;
10005     size_t val3 ;
10006     int ecode3 = 0 ;
10007     int argvi = 0;
10008     gsl_multifit_robust_workspace *result = 0 ;
10009     dXSARGS;
10010 
10011     if ((items < 3) || (items > 3)) {
10012       SWIG_croak("Usage: gsl_multifit_robust_alloc(T,n,p);");
10013     }
10014     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_type, 0 |  0 );
10015     if (!SWIG_IsOK(res1)) {
10016       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_alloc" "', argument " "1"" of type '" "gsl_multifit_robust_type const *""'");
10017     }
10018     arg1 = (gsl_multifit_robust_type *)(argp1);
10019     ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
10020     if (!SWIG_IsOK(ecode2)) {
10021       SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_multifit_robust_alloc" "', argument " "2"" of type '" "size_t""'");
10022     }
10023     arg2 = (size_t)(val2);
10024     ecode3 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
10025     if (!SWIG_IsOK(ecode3)) {
10026       SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_multifit_robust_alloc" "', argument " "3"" of type '" "size_t""'");
10027     }
10028     arg3 = (size_t)(val3);
10029     result = (gsl_multifit_robust_workspace *)gsl_multifit_robust_alloc((gsl_multifit_robust_type const *)arg1,arg2,arg3);
10030     ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_multifit_robust_workspace, 0 | SWIG_SHADOW); argvi++ ;
10031 
10032 
10033 
10034     XSRETURN(argvi);
10035   fail:
10036 
10037 
10038 
10039     SWIG_croak_null();
10040   }
10041 }
10042 
10043 
XS(_wrap_gsl_multifit_robust_free)10044 XS(_wrap_gsl_multifit_robust_free) {
10045   {
10046     gsl_multifit_robust_workspace *arg1 = (gsl_multifit_robust_workspace *) 0 ;
10047     void *argp1 = 0 ;
10048     int res1 = 0 ;
10049     int argvi = 0;
10050     dXSARGS;
10051 
10052     if ((items < 1) || (items > 1)) {
10053       SWIG_croak("Usage: gsl_multifit_robust_free(w);");
10054     }
10055     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_workspace, 0 |  0 );
10056     if (!SWIG_IsOK(res1)) {
10057       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_free" "', argument " "1"" of type '" "gsl_multifit_robust_workspace *""'");
10058     }
10059     arg1 = (gsl_multifit_robust_workspace *)(argp1);
10060     gsl_multifit_robust_free(arg1);
10061     ST(argvi) = &PL_sv_undef;
10062 
10063     XSRETURN(argvi);
10064   fail:
10065 
10066     SWIG_croak_null();
10067   }
10068 }
10069 
10070 
XS(_wrap_gsl_multifit_robust_tune)10071 XS(_wrap_gsl_multifit_robust_tune) {
10072   {
10073     double arg1 ;
10074     gsl_multifit_robust_workspace *arg2 = (gsl_multifit_robust_workspace *) 0 ;
10075     double val1 ;
10076     int ecode1 = 0 ;
10077     void *argp2 = 0 ;
10078     int res2 = 0 ;
10079     int argvi = 0;
10080     int result;
10081     dXSARGS;
10082 
10083     if ((items < 2) || (items > 2)) {
10084       SWIG_croak("Usage: gsl_multifit_robust_tune(tune,w);");
10085     }
10086     ecode1 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
10087     if (!SWIG_IsOK(ecode1)) {
10088       SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_multifit_robust_tune" "', argument " "1"" of type '" "double""'");
10089     }
10090     arg1 = (double)(val1);
10091     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_multifit_robust_workspace, 0 |  0 );
10092     if (!SWIG_IsOK(res2)) {
10093       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_robust_tune" "', argument " "2"" of type '" "gsl_multifit_robust_workspace *""'");
10094     }
10095     arg2 = (gsl_multifit_robust_workspace *)(argp2);
10096     result = (int)gsl_multifit_robust_tune(arg1,arg2);
10097     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
10098 
10099 
10100     XSRETURN(argvi);
10101   fail:
10102 
10103 
10104     SWIG_croak_null();
10105   }
10106 }
10107 
10108 
XS(_wrap_gsl_multifit_robust_maxiter)10109 XS(_wrap_gsl_multifit_robust_maxiter) {
10110   {
10111     size_t arg1 ;
10112     gsl_multifit_robust_workspace *arg2 = (gsl_multifit_robust_workspace *) 0 ;
10113     size_t val1 ;
10114     int ecode1 = 0 ;
10115     void *argp2 = 0 ;
10116     int res2 = 0 ;
10117     int argvi = 0;
10118     int result;
10119     dXSARGS;
10120 
10121     if ((items < 2) || (items > 2)) {
10122       SWIG_croak("Usage: gsl_multifit_robust_maxiter(maxiter,w);");
10123     }
10124     ecode1 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
10125     if (!SWIG_IsOK(ecode1)) {
10126       SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_multifit_robust_maxiter" "', argument " "1"" of type '" "size_t""'");
10127     }
10128     arg1 = (size_t)(val1);
10129     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_multifit_robust_workspace, 0 |  0 );
10130     if (!SWIG_IsOK(res2)) {
10131       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_robust_maxiter" "', argument " "2"" of type '" "gsl_multifit_robust_workspace *""'");
10132     }
10133     arg2 = (gsl_multifit_robust_workspace *)(argp2);
10134     result = (int)gsl_multifit_robust_maxiter(arg1,arg2);
10135     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
10136 
10137 
10138     XSRETURN(argvi);
10139   fail:
10140 
10141 
10142     SWIG_croak_null();
10143   }
10144 }
10145 
10146 
XS(_wrap_gsl_multifit_robust_name)10147 XS(_wrap_gsl_multifit_robust_name) {
10148   {
10149     gsl_multifit_robust_workspace *arg1 = (gsl_multifit_robust_workspace *) 0 ;
10150     void *argp1 = 0 ;
10151     int res1 = 0 ;
10152     int argvi = 0;
10153     char *result = 0 ;
10154     dXSARGS;
10155 
10156     if ((items < 1) || (items > 1)) {
10157       SWIG_croak("Usage: gsl_multifit_robust_name(w);");
10158     }
10159     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_workspace, 0 |  0 );
10160     if (!SWIG_IsOK(res1)) {
10161       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_name" "', argument " "1"" of type '" "gsl_multifit_robust_workspace const *""'");
10162     }
10163     arg1 = (gsl_multifit_robust_workspace *)(argp1);
10164     result = (char *)gsl_multifit_robust_name((gsl_multifit_robust_workspace const *)arg1);
10165     ST(argvi) = SWIG_FromCharPtr((const char *)result); argvi++ ;
10166 
10167     XSRETURN(argvi);
10168   fail:
10169 
10170     SWIG_croak_null();
10171   }
10172 }
10173 
10174 
XS(_wrap_gsl_multifit_robust_statistics)10175 XS(_wrap_gsl_multifit_robust_statistics) {
10176   {
10177     gsl_multifit_robust_workspace *arg1 = (gsl_multifit_robust_workspace *) 0 ;
10178     void *argp1 = 0 ;
10179     int res1 = 0 ;
10180     int argvi = 0;
10181     gsl_multifit_robust_stats result;
10182     dXSARGS;
10183 
10184     if ((items < 1) || (items > 1)) {
10185       SWIG_croak("Usage: gsl_multifit_robust_statistics(w);");
10186     }
10187     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_workspace, 0 |  0 );
10188     if (!SWIG_IsOK(res1)) {
10189       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_statistics" "', argument " "1"" of type '" "gsl_multifit_robust_workspace const *""'");
10190     }
10191     arg1 = (gsl_multifit_robust_workspace *)(argp1);
10192     result = gsl_multifit_robust_statistics((gsl_multifit_robust_workspace const *)arg1);
10193     ST(argvi) = SWIG_NewPointerObj((gsl_multifit_robust_stats *)memcpy((gsl_multifit_robust_stats *)calloc(1,sizeof(gsl_multifit_robust_stats)),&result,sizeof(gsl_multifit_robust_stats)), SWIGTYPE_p_gsl_multifit_robust_stats, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
10194 
10195     XSRETURN(argvi);
10196   fail:
10197 
10198     SWIG_croak_null();
10199   }
10200 }
10201 
10202 
XS(_wrap_gsl_multifit_robust_weights)10203 XS(_wrap_gsl_multifit_robust_weights) {
10204   {
10205     gsl_vector *arg1 = (gsl_vector *) 0 ;
10206     gsl_vector *arg2 = (gsl_vector *) 0 ;
10207     gsl_multifit_robust_workspace *arg3 = (gsl_multifit_robust_workspace *) 0 ;
10208     void *argp1 = 0 ;
10209     int res1 = 0 ;
10210     void *argp2 = 0 ;
10211     int res2 = 0 ;
10212     void *argp3 = 0 ;
10213     int res3 = 0 ;
10214     int argvi = 0;
10215     int result;
10216     dXSARGS;
10217 
10218     if ((items < 3) || (items > 3)) {
10219       SWIG_croak("Usage: gsl_multifit_robust_weights(r,wts,w);");
10220     }
10221     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 |  0 );
10222     if (!SWIG_IsOK(res1)) {
10223       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_weights" "', argument " "1"" of type '" "gsl_vector const *""'");
10224     }
10225     arg1 = (gsl_vector *)(argp1);
10226     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 |  0 );
10227     if (!SWIG_IsOK(res2)) {
10228       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_robust_weights" "', argument " "2"" of type '" "gsl_vector *""'");
10229     }
10230     arg2 = (gsl_vector *)(argp2);
10231     res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_multifit_robust_workspace, 0 |  0 );
10232     if (!SWIG_IsOK(res3)) {
10233       SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_multifit_robust_weights" "', argument " "3"" of type '" "gsl_multifit_robust_workspace *""'");
10234     }
10235     arg3 = (gsl_multifit_robust_workspace *)(argp3);
10236     result = (int)gsl_multifit_robust_weights((gsl_vector const *)arg1,arg2,arg3);
10237     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
10238 
10239 
10240 
10241     XSRETURN(argvi);
10242   fail:
10243 
10244 
10245 
10246     SWIG_croak_null();
10247   }
10248 }
10249 
10250 
XS(_wrap_gsl_multifit_robust)10251 XS(_wrap_gsl_multifit_robust) {
10252   {
10253     gsl_matrix *arg1 = (gsl_matrix *) 0 ;
10254     gsl_vector *arg2 = (gsl_vector *) 0 ;
10255     gsl_vector *arg3 = (gsl_vector *) 0 ;
10256     gsl_matrix *arg4 = (gsl_matrix *) 0 ;
10257     gsl_multifit_robust_workspace *arg5 = (gsl_multifit_robust_workspace *) 0 ;
10258     void *argp1 = 0 ;
10259     int res1 = 0 ;
10260     void *argp2 = 0 ;
10261     int res2 = 0 ;
10262     void *argp3 = 0 ;
10263     int res3 = 0 ;
10264     void *argp4 = 0 ;
10265     int res4 = 0 ;
10266     void *argp5 = 0 ;
10267     int res5 = 0 ;
10268     int argvi = 0;
10269     int result;
10270     dXSARGS;
10271 
10272     if ((items < 5) || (items > 5)) {
10273       SWIG_croak("Usage: gsl_multifit_robust(X,y,c,cov,w);");
10274     }
10275     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 |  0 );
10276     if (!SWIG_IsOK(res1)) {
10277       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust" "', argument " "1"" of type '" "gsl_matrix const *""'");
10278     }
10279     arg1 = (gsl_matrix *)(argp1);
10280     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 |  0 );
10281     if (!SWIG_IsOK(res2)) {
10282       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_robust" "', argument " "2"" of type '" "gsl_vector const *""'");
10283     }
10284     arg2 = (gsl_vector *)(argp2);
10285     res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 |  0 );
10286     if (!SWIG_IsOK(res3)) {
10287       SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_multifit_robust" "', argument " "3"" of type '" "gsl_vector *""'");
10288     }
10289     arg3 = (gsl_vector *)(argp3);
10290     res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_matrix, 0 |  0 );
10291     if (!SWIG_IsOK(res4)) {
10292       SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_multifit_robust" "', argument " "4"" of type '" "gsl_matrix *""'");
10293     }
10294     arg4 = (gsl_matrix *)(argp4);
10295     res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_multifit_robust_workspace, 0 |  0 );
10296     if (!SWIG_IsOK(res5)) {
10297       SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_multifit_robust" "', argument " "5"" of type '" "gsl_multifit_robust_workspace *""'");
10298     }
10299     arg5 = (gsl_multifit_robust_workspace *)(argp5);
10300     result = (int)gsl_multifit_robust((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3,arg4,arg5);
10301     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
10302 
10303 
10304 
10305 
10306 
10307     XSRETURN(argvi);
10308   fail:
10309 
10310 
10311 
10312 
10313 
10314     SWIG_croak_null();
10315   }
10316 }
10317 
10318 
XS(_wrap_gsl_multifit_robust_est)10319 XS(_wrap_gsl_multifit_robust_est) {
10320   {
10321     gsl_vector *arg1 = (gsl_vector *) 0 ;
10322     gsl_vector *arg2 = (gsl_vector *) 0 ;
10323     gsl_matrix *arg3 = (gsl_matrix *) 0 ;
10324     double *arg4 = (double *) 0 ;
10325     double *arg5 = (double *) 0 ;
10326     void *argp1 = 0 ;
10327     int res1 = 0 ;
10328     void *argp2 = 0 ;
10329     int res2 = 0 ;
10330     void *argp3 = 0 ;
10331     int res3 = 0 ;
10332     void *argp4 = 0 ;
10333     int res4 = 0 ;
10334     void *argp5 = 0 ;
10335     int res5 = 0 ;
10336     int argvi = 0;
10337     int result;
10338     dXSARGS;
10339 
10340     if ((items < 5) || (items > 5)) {
10341       SWIG_croak("Usage: gsl_multifit_robust_est(x,c,cov,y,y_err);");
10342     }
10343     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 |  0 );
10344     if (!SWIG_IsOK(res1)) {
10345       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_est" "', argument " "1"" of type '" "gsl_vector const *""'");
10346     }
10347     arg1 = (gsl_vector *)(argp1);
10348     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 |  0 );
10349     if (!SWIG_IsOK(res2)) {
10350       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_robust_est" "', argument " "2"" of type '" "gsl_vector const *""'");
10351     }
10352     arg2 = (gsl_vector *)(argp2);
10353     res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 |  0 );
10354     if (!SWIG_IsOK(res3)) {
10355       SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_multifit_robust_est" "', argument " "3"" of type '" "gsl_matrix const *""'");
10356     }
10357     arg3 = (gsl_matrix *)(argp3);
10358     res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_double, 0 |  0 );
10359     if (!SWIG_IsOK(res4)) {
10360       SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_multifit_robust_est" "', argument " "4"" of type '" "double *""'");
10361     }
10362     arg4 = (double *)(argp4);
10363     res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_double, 0 |  0 );
10364     if (!SWIG_IsOK(res5)) {
10365       SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_multifit_robust_est" "', argument " "5"" of type '" "double *""'");
10366     }
10367     arg5 = (double *)(argp5);
10368     result = (int)gsl_multifit_robust_est((gsl_vector const *)arg1,(gsl_vector const *)arg2,(gsl_matrix const *)arg3,arg4,arg5);
10369     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
10370 
10371 
10372 
10373 
10374 
10375     XSRETURN(argvi);
10376   fail:
10377 
10378 
10379 
10380 
10381 
10382     SWIG_croak_null();
10383   }
10384 }
10385 
10386 
XS(_wrap_gsl_multifit_robust_residuals)10387 XS(_wrap_gsl_multifit_robust_residuals) {
10388   {
10389     gsl_matrix *arg1 = (gsl_matrix *) 0 ;
10390     gsl_vector *arg2 = (gsl_vector *) 0 ;
10391     gsl_vector *arg3 = (gsl_vector *) 0 ;
10392     gsl_vector *arg4 = (gsl_vector *) 0 ;
10393     gsl_multifit_robust_workspace *arg5 = (gsl_multifit_robust_workspace *) 0 ;
10394     void *argp1 = 0 ;
10395     int res1 = 0 ;
10396     void *argp2 = 0 ;
10397     int res2 = 0 ;
10398     void *argp3 = 0 ;
10399     int res3 = 0 ;
10400     void *argp4 = 0 ;
10401     int res4 = 0 ;
10402     void *argp5 = 0 ;
10403     int res5 = 0 ;
10404     int argvi = 0;
10405     int result;
10406     dXSARGS;
10407 
10408     if ((items < 5) || (items > 5)) {
10409       SWIG_croak("Usage: gsl_multifit_robust_residuals(X,y,c,r,w);");
10410     }
10411     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 |  0 );
10412     if (!SWIG_IsOK(res1)) {
10413       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_residuals" "', argument " "1"" of type '" "gsl_matrix const *""'");
10414     }
10415     arg1 = (gsl_matrix *)(argp1);
10416     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 |  0 );
10417     if (!SWIG_IsOK(res2)) {
10418       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_robust_residuals" "', argument " "2"" of type '" "gsl_vector const *""'");
10419     }
10420     arg2 = (gsl_vector *)(argp2);
10421     res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 |  0 );
10422     if (!SWIG_IsOK(res3)) {
10423       SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_multifit_robust_residuals" "', argument " "3"" of type '" "gsl_vector const *""'");
10424     }
10425     arg3 = (gsl_vector *)(argp3);
10426     res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 |  0 );
10427     if (!SWIG_IsOK(res4)) {
10428       SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_multifit_robust_residuals" "', argument " "4"" of type '" "gsl_vector *""'");
10429     }
10430     arg4 = (gsl_vector *)(argp4);
10431     res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_multifit_robust_workspace, 0 |  0 );
10432     if (!SWIG_IsOK(res5)) {
10433       SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_multifit_robust_residuals" "', argument " "5"" of type '" "gsl_multifit_robust_workspace *""'");
10434     }
10435     arg5 = (gsl_multifit_robust_workspace *)(argp5);
10436     result = (int)gsl_multifit_robust_residuals((gsl_matrix const *)arg1,(gsl_vector const *)arg2,(gsl_vector const *)arg3,arg4,arg5);
10437     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
10438 
10439 
10440 
10441 
10442 
10443     XSRETURN(argvi);
10444   fail:
10445 
10446 
10447 
10448 
10449 
10450     SWIG_croak_null();
10451   }
10452 }
10453 
10454 
XS(_wrap_gsl_multilarge_linear_type_name_set)10455 XS(_wrap_gsl_multilarge_linear_type_name_set) {
10456   {
10457     gsl_multilarge_linear_type *arg1 = (gsl_multilarge_linear_type *) 0 ;
10458     char *arg2 = (char *) 0 ;
10459     void *argp1 = 0 ;
10460     int res1 = 0 ;
10461     int res2 ;
10462     char *buf2 = 0 ;
10463     int alloc2 = 0 ;
10464     int argvi = 0;
10465     dXSARGS;
10466 
10467     if ((items < 2) || (items > 2)) {
10468       SWIG_croak("Usage: gsl_multilarge_linear_type_name_set(self,name);");
10469     }
10470     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multilarge_linear_type, 0 |  0 );
10471     if (!SWIG_IsOK(res1)) {
10472       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multilarge_linear_type_name_set" "', argument " "1"" of type '" "gsl_multilarge_linear_type *""'");
10473     }
10474     arg1 = (gsl_multilarge_linear_type *)(argp1);
10475     res2 = SWIG_AsCharPtrAndSize(ST(1), &buf2, NULL, &alloc2);
10476     if (!SWIG_IsOK(res2)) {
10477       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multilarge_linear_type_name_set" "', argument " "2"" of type '" "char const *""'");
10478     }
10479     arg2 = (char *)(buf2);
10480     if (arg2) {
10481       size_t size = strlen((const char *)((const char *)(arg2))) + 1;
10482       arg1->name = (char const *)(char *)memcpy(malloc((size)*sizeof(char)), arg2, sizeof(char)*(size));
10483     } else {
10484       arg1->name = 0;
10485     }
10486     ST(argvi) = &PL_sv_undef;
10487 
10488     if (alloc2 == SWIG_NEWOBJ) free((char*)buf2);
10489     XSRETURN(argvi);
10490   fail:
10491 
10492     if (alloc2 == SWIG_NEWOBJ) free((char*)buf2);
10493     SWIG_croak_null();
10494   }
10495 }
10496 
10497 
XS(_wrap_gsl_multilarge_linear_type_name_get)10498 XS(_wrap_gsl_multilarge_linear_type_name_get) {
10499   {
10500     gsl_multilarge_linear_type *arg1 = (gsl_multilarge_linear_type *) 0 ;
10501     void *argp1 = 0 ;
10502     int res1 = 0 ;
10503     int argvi = 0;
10504     char *result = 0 ;
10505     dXSARGS;
10506 
10507     if ((items < 1) || (items > 1)) {
10508       SWIG_croak("Usage: gsl_multilarge_linear_type_name_get(self);");
10509     }
10510     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multilarge_linear_type, 0 |  0 );
10511     if (!SWIG_IsOK(res1)) {
10512       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multilarge_linear_type_name_get" "', argument " "1"" of type '" "gsl_multilarge_linear_type *""'");
10513     }
10514     arg1 = (gsl_multilarge_linear_type *)(argp1);
10515     result = (char *) ((arg1)->name);
10516     ST(argvi) = SWIG_FromCharPtr((const char *)result); argvi++ ;
10517 
10518     XSRETURN(argvi);
10519   fail:
10520 
10521     SWIG_croak_null();
10522   }
10523 }
10524 
10525 
XS(_wrap_gsl_multilarge_linear_type_alloc_set)10526 XS(_wrap_gsl_multilarge_linear_type_alloc_set) {
10527   {
10528     gsl_multilarge_linear_type *arg1 = (gsl_multilarge_linear_type *) 0 ;
10529     void *(*arg2)(size_t const) = (void *(*)(size_t const)) 0 ;
10530     void *argp1 = 0 ;
10531     int res1 = 0 ;
10532     int argvi = 0;
10533     dXSARGS;
10534 
10535     if ((items < 2) || (items > 2)) {
10536       SWIG_croak("Usage: gsl_multilarge_linear_type_alloc_set(self,alloc);");
10537     }
10538     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multilarge_linear_type, 0 |  0 );
10539     if (!SWIG_IsOK(res1)) {
10540       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multilarge_linear_type_alloc_set" "', argument " "1"" of type '" "gsl_multilarge_linear_type *""'");
10541     }
10542     arg1 = (gsl_multilarge_linear_type *)(argp1);
10543     {
10544       int res = SWIG_ConvertFunctionPtr(ST(1), (void**)(&arg2), SWIGTYPE_p_f_q_const__size_t__p_void);
10545       if (!SWIG_IsOK(res)) {
10546         SWIG_exception_fail(SWIG_ArgError(res), "in method '" "gsl_multilarge_linear_type_alloc_set" "', argument " "2"" of type '" "void *(*)(size_t const)""'");
10547       }
10548     }
10549     if (arg1) (arg1)->alloc = arg2;
10550     ST(argvi) = &PL_sv_undef;
10551 
10552 
10553     XSRETURN(argvi);
10554   fail:
10555 
10556 
10557     SWIG_croak_null();
10558   }
10559 }
10560 
10561 
XS(_wrap_gsl_multilarge_linear_type_alloc_get)10562 XS(_wrap_gsl_multilarge_linear_type_alloc_get) {
10563   {
10564     gsl_multilarge_linear_type *arg1 = (gsl_multilarge_linear_type *) 0 ;
10565     void *argp1 = 0 ;
10566     int res1 = 0 ;
10567     int argvi = 0;
10568     void *(*result)(size_t const) = 0 ;
10569     dXSARGS;
10570 
10571     if ((items < 1) || (items > 1)) {
10572       SWIG_croak("Usage: gsl_multilarge_linear_type_alloc_get(self);");
10573     }
10574     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multilarge_linear_type, 0 |  0 );
10575     if (!SWIG_IsOK(res1)) {
10576       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multilarge_linear_type_alloc_get" "', argument " "1"" of type '" "gsl_multilarge_linear_type *""'");
10577     }
10578     arg1 = (gsl_multilarge_linear_type *)(argp1);
10579     result = (void *(*)(size_t const)) ((arg1)->alloc);
10580     ST(argvi) = SWIG_NewFunctionPtrObj((void *)(result), SWIGTYPE_p_f_q_const__size_t__p_void); argvi++ ;
10581 
10582     XSRETURN(argvi);
10583   fail:
10584 
10585     SWIG_croak_null();
10586   }
10587 }
10588 
10589 
XS(_wrap_gsl_multilarge_linear_type_reset_set)10590 XS(_wrap_gsl_multilarge_linear_type_reset_set) {
10591   {
10592     gsl_multilarge_linear_type *arg1 = (gsl_multilarge_linear_type *) 0 ;
10593     int (*arg2)(void *) = (int (*)(void *)) 0 ;
10594     void *argp1 = 0 ;
10595     int res1 = 0 ;
10596     int argvi = 0;
10597     dXSARGS;
10598 
10599     if ((items < 2) || (items > 2)) {
10600       SWIG_croak("Usage: gsl_multilarge_linear_type_reset_set(self,reset);");
10601     }
10602     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multilarge_linear_type, 0 |  0 );
10603     if (!SWIG_IsOK(res1)) {
10604       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multilarge_linear_type_reset_set" "', argument " "1"" of type '" "gsl_multilarge_linear_type *""'");
10605     }
10606     arg1 = (gsl_multilarge_linear_type *)(argp1);
10607     {
10608       int res = SWIG_ConvertFunctionPtr(ST(1), (void**)(&arg2), SWIGTYPE_p_f_p_void__int);
10609       if (!SWIG_IsOK(res)) {
10610         SWIG_exception_fail(SWIG_ArgError(res), "in method '" "gsl_multilarge_linear_type_reset_set" "', argument " "2"" of type '" "int (*)(void *)""'");
10611       }
10612     }
10613     if (arg1) (arg1)->reset = arg2;
10614     ST(argvi) = &PL_sv_undef;
10615 
10616 
10617     XSRETURN(argvi);
10618   fail:
10619 
10620 
10621     SWIG_croak_null();
10622   }
10623 }
10624 
10625 
XS(_wrap_gsl_multilarge_linear_type_reset_get)10626 XS(_wrap_gsl_multilarge_linear_type_reset_get) {
10627   {
10628     gsl_multilarge_linear_type *arg1 = (gsl_multilarge_linear_type *) 0 ;
10629     void *argp1 = 0 ;
10630     int res1 = 0 ;
10631     int argvi = 0;
10632     int (*result)(void *) = 0 ;
10633     dXSARGS;
10634 
10635     if ((items < 1) || (items > 1)) {
10636       SWIG_croak("Usage: gsl_multilarge_linear_type_reset_get(self);");
10637     }
10638     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multilarge_linear_type, 0 |  0 );
10639     if (!SWIG_IsOK(res1)) {
10640       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multilarge_linear_type_reset_get" "', argument " "1"" of type '" "gsl_multilarge_linear_type *""'");
10641     }
10642     arg1 = (gsl_multilarge_linear_type *)(argp1);
10643     result = (int (*)(void *)) ((arg1)->reset);
10644     ST(argvi) = SWIG_NewFunctionPtrObj((void *)(result), SWIGTYPE_p_f_p_void__int); argvi++ ;
10645 
10646     XSRETURN(argvi);
10647   fail:
10648 
10649     SWIG_croak_null();
10650   }
10651 }
10652 
10653 
XS(_wrap_gsl_multilarge_linear_type_accumulate_set)10654 XS(_wrap_gsl_multilarge_linear_type_accumulate_set) {
10655   {
10656     gsl_multilarge_linear_type *arg1 = (gsl_multilarge_linear_type *) 0 ;
10657     int (*arg2)(gsl_matrix *,gsl_vector *,void *) = (int (*)(gsl_matrix *,gsl_vector *,void *)) 0 ;
10658     void *argp1 = 0 ;
10659     int res1 = 0 ;
10660     int argvi = 0;
10661     dXSARGS;
10662 
10663     if ((items < 2) || (items > 2)) {
10664       SWIG_croak("Usage: gsl_multilarge_linear_type_accumulate_set(self,accumulate);");
10665     }
10666     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multilarge_linear_type, 0 |  0 );
10667     if (!SWIG_IsOK(res1)) {
10668       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multilarge_linear_type_accumulate_set" "', argument " "1"" of type '" "gsl_multilarge_linear_type *""'");
10669     }
10670     arg1 = (gsl_multilarge_linear_type *)(argp1);
10671     {
10672       int res = SWIG_ConvertFunctionPtr(ST(1), (void**)(&arg2), SWIGTYPE_p_f_p_gsl_matrix_p_gsl_vector_p_void__int);
10673       if (!SWIG_IsOK(res)) {
10674         SWIG_exception_fail(SWIG_ArgError(res), "in method '" "gsl_multilarge_linear_type_accumulate_set" "', argument " "2"" of type '" "int (*)(gsl_matrix *,gsl_vector *,void *)""'");
10675       }
10676     }
10677     if (arg1) (arg1)->accumulate = arg2;
10678     ST(argvi) = &PL_sv_undef;
10679 
10680 
10681     XSRETURN(argvi);
10682   fail:
10683 
10684 
10685     SWIG_croak_null();
10686   }
10687 }
10688 
10689 
XS(_wrap_gsl_multilarge_linear_type_accumulate_get)10690 XS(_wrap_gsl_multilarge_linear_type_accumulate_get) {
10691   {
10692     gsl_multilarge_linear_type *arg1 = (gsl_multilarge_linear_type *) 0 ;
10693     void *argp1 = 0 ;
10694     int res1 = 0 ;
10695     int argvi = 0;
10696     int (*result)(gsl_matrix *,gsl_vector *,void *) = 0 ;
10697     dXSARGS;
10698 
10699     if ((items < 1) || (items > 1)) {
10700       SWIG_croak("Usage: gsl_multilarge_linear_type_accumulate_get(self);");
10701     }
10702     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multilarge_linear_type, 0 |  0 );
10703     if (!SWIG_IsOK(res1)) {
10704       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multilarge_linear_type_accumulate_get" "', argument " "1"" of type '" "gsl_multilarge_linear_type *""'");
10705     }
10706     arg1 = (gsl_multilarge_linear_type *)(argp1);
10707     result = (int (*)(gsl_matrix *,gsl_vector *,void *)) ((arg1)->accumulate);
10708     ST(argvi) = SWIG_NewFunctionPtrObj((void *)(result), SWIGTYPE_p_f_p_gsl_matrix_p_gsl_vector_p_void__int); argvi++ ;
10709 
10710     XSRETURN(argvi);
10711   fail:
10712 
10713     SWIG_croak_null();
10714   }
10715 }
10716 
10717 
XS(_wrap_gsl_multilarge_linear_type_solve_set)10718 XS(_wrap_gsl_multilarge_linear_type_solve_set) {
10719   {
10720     gsl_multilarge_linear_type *arg1 = (gsl_multilarge_linear_type *) 0 ;
10721     int (*arg2)(double const,gsl_vector *,double *,double *,void *) = (int (*)(double const,gsl_vector *,double *,double *,void *)) 0 ;
10722     void *argp1 = 0 ;
10723     int res1 = 0 ;
10724     int argvi = 0;
10725     dXSARGS;
10726 
10727     if ((items < 2) || (items > 2)) {
10728       SWIG_croak("Usage: gsl_multilarge_linear_type_solve_set(self,solve);");
10729     }
10730     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multilarge_linear_type, 0 |  0 );
10731     if (!SWIG_IsOK(res1)) {
10732       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multilarge_linear_type_solve_set" "', argument " "1"" of type '" "gsl_multilarge_linear_type *""'");
10733     }
10734     arg1 = (gsl_multilarge_linear_type *)(argp1);
10735     {
10736       int res = SWIG_ConvertFunctionPtr(ST(1), (void**)(&arg2), SWIGTYPE_p_f_q_const__double_p_gsl_vector_p_double_p_double_p_void__int);
10737       if (!SWIG_IsOK(res)) {
10738         SWIG_exception_fail(SWIG_ArgError(res), "in method '" "gsl_multilarge_linear_type_solve_set" "', argument " "2"" of type '" "int (*)(double const,gsl_vector *,double *,double *,void *)""'");
10739       }
10740     }
10741     if (arg1) (arg1)->solve = arg2;
10742     ST(argvi) = &PL_sv_undef;
10743 
10744 
10745     XSRETURN(argvi);
10746   fail:
10747 
10748 
10749     SWIG_croak_null();
10750   }
10751 }
10752 
10753 
XS(_wrap_gsl_multilarge_linear_type_solve_get)10754 XS(_wrap_gsl_multilarge_linear_type_solve_get) {
10755   {
10756     gsl_multilarge_linear_type *arg1 = (gsl_multilarge_linear_type *) 0 ;
10757     void *argp1 = 0 ;
10758     int res1 = 0 ;
10759     int argvi = 0;
10760     int (*result)(double const,gsl_vector *,double *,double *,void *) = 0 ;
10761     dXSARGS;
10762 
10763     if ((items < 1) || (items > 1)) {
10764       SWIG_croak("Usage: gsl_multilarge_linear_type_solve_get(self);");
10765     }
10766     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multilarge_linear_type, 0 |  0 );
10767     if (!SWIG_IsOK(res1)) {
10768       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multilarge_linear_type_solve_get" "', argument " "1"" of type '" "gsl_multilarge_linear_type *""'");
10769     }
10770     arg1 = (gsl_multilarge_linear_type *)(argp1);
10771     result = (int (*)(double const,gsl_vector *,double *,double *,void *)) ((arg1)->solve);
10772     ST(argvi) = SWIG_NewFunctionPtrObj((void *)(result), SWIGTYPE_p_f_q_const__double_p_gsl_vector_p_double_p_double_p_void__int); argvi++ ;
10773 
10774     XSRETURN(argvi);
10775   fail:
10776 
10777     SWIG_croak_null();
10778   }
10779 }
10780 
10781 
XS(_wrap_gsl_multilarge_linear_type_rcond_set)10782 XS(_wrap_gsl_multilarge_linear_type_rcond_set) {
10783   {
10784     gsl_multilarge_linear_type *arg1 = (gsl_multilarge_linear_type *) 0 ;
10785     int (*arg2)(double *,void *) = (int (*)(double *,void *)) 0 ;
10786     void *argp1 = 0 ;
10787     int res1 = 0 ;
10788     int argvi = 0;
10789     dXSARGS;
10790 
10791     if ((items < 2) || (items > 2)) {
10792       SWIG_croak("Usage: gsl_multilarge_linear_type_rcond_set(self,rcond);");
10793     }
10794     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multilarge_linear_type, 0 |  0 );
10795     if (!SWIG_IsOK(res1)) {
10796       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multilarge_linear_type_rcond_set" "', argument " "1"" of type '" "gsl_multilarge_linear_type *""'");
10797     }
10798     arg1 = (gsl_multilarge_linear_type *)(argp1);
10799     {
10800       int res = SWIG_ConvertFunctionPtr(ST(1), (void**)(&arg2), SWIGTYPE_p_f_p_double_p_void__int);
10801       if (!SWIG_IsOK(res)) {
10802         SWIG_exception_fail(SWIG_ArgError(res), "in method '" "gsl_multilarge_linear_type_rcond_set" "', argument " "2"" of type '" "int (*)(double *,void *)""'");
10803       }
10804     }
10805     if (arg1) (arg1)->rcond = arg2;
10806     ST(argvi) = &PL_sv_undef;
10807 
10808 
10809     XSRETURN(argvi);
10810   fail:
10811 
10812 
10813     SWIG_croak_null();
10814   }
10815 }
10816 
10817 
XS(_wrap_gsl_multilarge_linear_type_rcond_get)10818 XS(_wrap_gsl_multilarge_linear_type_rcond_get) {
10819   {
10820     gsl_multilarge_linear_type *arg1 = (gsl_multilarge_linear_type *) 0 ;
10821     void *argp1 = 0 ;
10822     int res1 = 0 ;
10823     int argvi = 0;
10824     int (*result)(double *,void *) = 0 ;
10825     dXSARGS;
10826 
10827     if ((items < 1) || (items > 1)) {
10828       SWIG_croak("Usage: gsl_multilarge_linear_type_rcond_get(self);");
10829     }
10830     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multilarge_linear_type, 0 |  0 );
10831     if (!SWIG_IsOK(res1)) {
10832       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multilarge_linear_type_rcond_get" "', argument " "1"" of type '" "gsl_multilarge_linear_type *""'");
10833     }
10834     arg1 = (gsl_multilarge_linear_type *)(argp1);
10835     result = (int (*)(double *,void *)) ((arg1)->rcond);
10836     ST(argvi) = SWIG_NewFunctionPtrObj((void *)(result), SWIGTYPE_p_f_p_double_p_void__int); argvi++ ;
10837 
10838     XSRETURN(argvi);
10839   fail:
10840 
10841     SWIG_croak_null();
10842   }
10843 }
10844 
10845 
XS(_wrap_gsl_multilarge_linear_type_lcurve_set)10846 XS(_wrap_gsl_multilarge_linear_type_lcurve_set) {
10847   {
10848     gsl_multilarge_linear_type *arg1 = (gsl_multilarge_linear_type *) 0 ;
10849     int (*arg2)(gsl_vector *,gsl_vector *,gsl_vector *,void *) = (int (*)(gsl_vector *,gsl_vector *,gsl_vector *,void *)) 0 ;
10850     void *argp1 = 0 ;
10851     int res1 = 0 ;
10852     int argvi = 0;
10853     dXSARGS;
10854 
10855     if ((items < 2) || (items > 2)) {
10856       SWIG_croak("Usage: gsl_multilarge_linear_type_lcurve_set(self,lcurve);");
10857     }
10858     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multilarge_linear_type, 0 |  0 );
10859     if (!SWIG_IsOK(res1)) {
10860       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multilarge_linear_type_lcurve_set" "', argument " "1"" of type '" "gsl_multilarge_linear_type *""'");
10861     }
10862     arg1 = (gsl_multilarge_linear_type *)(argp1);
10863     {
10864       int res = SWIG_ConvertFunctionPtr(ST(1), (void**)(&arg2), SWIGTYPE_p_f_p_gsl_vector_p_gsl_vector_p_gsl_vector_p_void__int);
10865       if (!SWIG_IsOK(res)) {
10866         SWIG_exception_fail(SWIG_ArgError(res), "in method '" "gsl_multilarge_linear_type_lcurve_set" "', argument " "2"" of type '" "int (*)(gsl_vector *,gsl_vector *,gsl_vector *,void *)""'");
10867       }
10868     }
10869     if (arg1) (arg1)->lcurve = arg2;
10870     ST(argvi) = &PL_sv_undef;
10871 
10872 
10873     XSRETURN(argvi);
10874   fail:
10875 
10876 
10877     SWIG_croak_null();
10878   }
10879 }
10880 
10881 
XS(_wrap_gsl_multilarge_linear_type_lcurve_get)10882 XS(_wrap_gsl_multilarge_linear_type_lcurve_get) {
10883   {
10884     gsl_multilarge_linear_type *arg1 = (gsl_multilarge_linear_type *) 0 ;
10885     void *argp1 = 0 ;
10886     int res1 = 0 ;
10887     int argvi = 0;
10888     int (*result)(gsl_vector *,gsl_vector *,gsl_vector *,void *) = 0 ;
10889     dXSARGS;
10890 
10891     if ((items < 1) || (items > 1)) {
10892       SWIG_croak("Usage: gsl_multilarge_linear_type_lcurve_get(self);");
10893     }
10894     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multilarge_linear_type, 0 |  0 );
10895     if (!SWIG_IsOK(res1)) {
10896       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multilarge_linear_type_lcurve_get" "', argument " "1"" of type '" "gsl_multilarge_linear_type *""'");
10897     }
10898     arg1 = (gsl_multilarge_linear_type *)(argp1);
10899     result = (int (*)(gsl_vector *,gsl_vector *,gsl_vector *,void *)) ((arg1)->lcurve);
10900     ST(argvi) = SWIG_NewFunctionPtrObj((void *)(result), SWIGTYPE_p_f_p_gsl_vector_p_gsl_vector_p_gsl_vector_p_void__int); argvi++ ;
10901 
10902     XSRETURN(argvi);
10903   fail:
10904 
10905     SWIG_croak_null();
10906   }
10907 }
10908 
10909 
XS(_wrap_gsl_multilarge_linear_type_matrix_ptr_set)10910 XS(_wrap_gsl_multilarge_linear_type_matrix_ptr_set) {
10911   {
10912     gsl_multilarge_linear_type *arg1 = (gsl_multilarge_linear_type *) 0 ;
10913     gsl_matrix *(*arg2)(void const *) = (gsl_matrix *(*)(void const *)) 0 ;
10914     void *argp1 = 0 ;
10915     int res1 = 0 ;
10916     int argvi = 0;
10917     dXSARGS;
10918 
10919     if ((items < 2) || (items > 2)) {
10920       SWIG_croak("Usage: gsl_multilarge_linear_type_matrix_ptr_set(self,matrix_ptr);");
10921     }
10922     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multilarge_linear_type, 0 |  0 );
10923     if (!SWIG_IsOK(res1)) {
10924       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multilarge_linear_type_matrix_ptr_set" "', argument " "1"" of type '" "gsl_multilarge_linear_type *""'");
10925     }
10926     arg1 = (gsl_multilarge_linear_type *)(argp1);
10927     {
10928       int res = SWIG_ConvertFunctionPtr(ST(1), (void**)(&arg2), SWIGTYPE_p_f_p_q_const__void__p_gsl_matrix);
10929       if (!SWIG_IsOK(res)) {
10930         SWIG_exception_fail(SWIG_ArgError(res), "in method '" "gsl_multilarge_linear_type_matrix_ptr_set" "', argument " "2"" of type '" "gsl_matrix const *(*)(void const *)""'");
10931       }
10932     }
10933     if (arg1) (arg1)->matrix_ptr = (gsl_matrix const *(*)(void const *))arg2;
10934     ST(argvi) = &PL_sv_undef;
10935 
10936 
10937     XSRETURN(argvi);
10938   fail:
10939 
10940 
10941     SWIG_croak_null();
10942   }
10943 }
10944 
10945 
XS(_wrap_gsl_multilarge_linear_type_matrix_ptr_get)10946 XS(_wrap_gsl_multilarge_linear_type_matrix_ptr_get) {
10947   {
10948     gsl_multilarge_linear_type *arg1 = (gsl_multilarge_linear_type *) 0 ;
10949     void *argp1 = 0 ;
10950     int res1 = 0 ;
10951     int argvi = 0;
10952     gsl_matrix *(*result)(void const *) = 0 ;
10953     dXSARGS;
10954 
10955     if ((items < 1) || (items > 1)) {
10956       SWIG_croak("Usage: gsl_multilarge_linear_type_matrix_ptr_get(self);");
10957     }
10958     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multilarge_linear_type, 0 |  0 );
10959     if (!SWIG_IsOK(res1)) {
10960       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multilarge_linear_type_matrix_ptr_get" "', argument " "1"" of type '" "gsl_multilarge_linear_type *""'");
10961     }
10962     arg1 = (gsl_multilarge_linear_type *)(argp1);
10963     result = (gsl_matrix *(*)(void const *)) ((arg1)->matrix_ptr);
10964     ST(argvi) = SWIG_NewFunctionPtrObj((void *)(result), SWIGTYPE_p_f_p_q_const__void__p_gsl_matrix); argvi++ ;
10965 
10966     XSRETURN(argvi);
10967   fail:
10968 
10969     SWIG_croak_null();
10970   }
10971 }
10972 
10973 
XS(_wrap_gsl_multilarge_linear_type_rhs_ptr_set)10974 XS(_wrap_gsl_multilarge_linear_type_rhs_ptr_set) {
10975   {
10976     gsl_multilarge_linear_type *arg1 = (gsl_multilarge_linear_type *) 0 ;
10977     gsl_vector *(*arg2)(void const *) = (gsl_vector *(*)(void const *)) 0 ;
10978     void *argp1 = 0 ;
10979     int res1 = 0 ;
10980     int argvi = 0;
10981     dXSARGS;
10982 
10983     if ((items < 2) || (items > 2)) {
10984       SWIG_croak("Usage: gsl_multilarge_linear_type_rhs_ptr_set(self,rhs_ptr);");
10985     }
10986     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multilarge_linear_type, 0 |  0 );
10987     if (!SWIG_IsOK(res1)) {
10988       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multilarge_linear_type_rhs_ptr_set" "', argument " "1"" of type '" "gsl_multilarge_linear_type *""'");
10989     }
10990     arg1 = (gsl_multilarge_linear_type *)(argp1);
10991     {
10992       int res = SWIG_ConvertFunctionPtr(ST(1), (void**)(&arg2), SWIGTYPE_p_f_p_q_const__void__p_gsl_vector);
10993       if (!SWIG_IsOK(res)) {
10994         SWIG_exception_fail(SWIG_ArgError(res), "in method '" "gsl_multilarge_linear_type_rhs_ptr_set" "', argument " "2"" of type '" "gsl_vector const *(*)(void const *)""'");
10995       }
10996     }
10997     if (arg1) (arg1)->rhs_ptr = (gsl_vector const *(*)(void const *))arg2;
10998     ST(argvi) = &PL_sv_undef;
10999 
11000 
11001     XSRETURN(argvi);
11002   fail:
11003 
11004 
11005     SWIG_croak_null();
11006   }
11007 }
11008 
11009 
XS(_wrap_gsl_multilarge_linear_type_rhs_ptr_get)11010 XS(_wrap_gsl_multilarge_linear_type_rhs_ptr_get) {
11011   {
11012     gsl_multilarge_linear_type *arg1 = (gsl_multilarge_linear_type *) 0 ;
11013     void *argp1 = 0 ;
11014     int res1 = 0 ;
11015     int argvi = 0;
11016     gsl_vector *(*result)(void const *) = 0 ;
11017     dXSARGS;
11018 
11019     if ((items < 1) || (items > 1)) {
11020       SWIG_croak("Usage: gsl_multilarge_linear_type_rhs_ptr_get(self);");
11021     }
11022     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multilarge_linear_type, 0 |  0 );
11023     if (!SWIG_IsOK(res1)) {
11024       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multilarge_linear_type_rhs_ptr_get" "', argument " "1"" of type '" "gsl_multilarge_linear_type *""'");
11025     }
11026     arg1 = (gsl_multilarge_linear_type *)(argp1);
11027     result = (gsl_vector *(*)(void const *)) ((arg1)->rhs_ptr);
11028     ST(argvi) = SWIG_NewFunctionPtrObj((void *)(result), SWIGTYPE_p_f_p_q_const__void__p_gsl_vector); argvi++ ;
11029 
11030     XSRETURN(argvi);
11031   fail:
11032 
11033     SWIG_croak_null();
11034   }
11035 }
11036 
11037 
XS(_wrap_gsl_multilarge_linear_type_free_set)11038 XS(_wrap_gsl_multilarge_linear_type_free_set) {
11039   {
11040     gsl_multilarge_linear_type *arg1 = (gsl_multilarge_linear_type *) 0 ;
11041     void (*arg2)(void *) = (void (*)(void *)) 0 ;
11042     void *argp1 = 0 ;
11043     int res1 = 0 ;
11044     int argvi = 0;
11045     dXSARGS;
11046 
11047     if ((items < 2) || (items > 2)) {
11048       SWIG_croak("Usage: gsl_multilarge_linear_type_free_set(self,free);");
11049     }
11050     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multilarge_linear_type, 0 |  0 );
11051     if (!SWIG_IsOK(res1)) {
11052       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multilarge_linear_type_free_set" "', argument " "1"" of type '" "gsl_multilarge_linear_type *""'");
11053     }
11054     arg1 = (gsl_multilarge_linear_type *)(argp1);
11055     {
11056       int res = SWIG_ConvertFunctionPtr(ST(1), (void**)(&arg2), SWIGTYPE_p_f_p_void__void);
11057       if (!SWIG_IsOK(res)) {
11058         SWIG_exception_fail(SWIG_ArgError(res), "in method '" "gsl_multilarge_linear_type_free_set" "', argument " "2"" of type '" "void (*)(void *)""'");
11059       }
11060     }
11061     if (arg1) (arg1)->free = arg2;
11062     ST(argvi) = &PL_sv_undef;
11063 
11064 
11065     XSRETURN(argvi);
11066   fail:
11067 
11068 
11069     SWIG_croak_null();
11070   }
11071 }
11072 
11073 
XS(_wrap_gsl_multilarge_linear_type_free_get)11074 XS(_wrap_gsl_multilarge_linear_type_free_get) {
11075   {
11076     gsl_multilarge_linear_type *arg1 = (gsl_multilarge_linear_type *) 0 ;
11077     void *argp1 = 0 ;
11078     int res1 = 0 ;
11079     int argvi = 0;
11080     void (*result)(void *) = 0 ;
11081     dXSARGS;
11082 
11083     if ((items < 1) || (items > 1)) {
11084       SWIG_croak("Usage: gsl_multilarge_linear_type_free_get(self);");
11085     }
11086     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multilarge_linear_type, 0 |  0 );
11087     if (!SWIG_IsOK(res1)) {
11088       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multilarge_linear_type_free_get" "', argument " "1"" of type '" "gsl_multilarge_linear_type *""'");
11089     }
11090     arg1 = (gsl_multilarge_linear_type *)(argp1);
11091     result = (void (*)(void *)) ((arg1)->free);
11092     ST(argvi) = SWIG_NewFunctionPtrObj((void *)(result), SWIGTYPE_p_f_p_void__void); argvi++ ;
11093 
11094     XSRETURN(argvi);
11095   fail:
11096 
11097     SWIG_croak_null();
11098   }
11099 }
11100 
11101 
XS(_wrap_new_gsl_multilarge_linear_type)11102 XS(_wrap_new_gsl_multilarge_linear_type) {
11103   {
11104     int argvi = 0;
11105     gsl_multilarge_linear_type *result = 0 ;
11106     dXSARGS;
11107 
11108     if ((items < 0) || (items > 0)) {
11109       SWIG_croak("Usage: new_gsl_multilarge_linear_type();");
11110     }
11111     result = (gsl_multilarge_linear_type *)calloc(1, sizeof(gsl_multilarge_linear_type));
11112     ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_multilarge_linear_type, SWIG_OWNER | SWIG_SHADOW); argvi++ ;
11113     XSRETURN(argvi);
11114   fail:
11115     SWIG_croak_null();
11116   }
11117 }
11118 
11119 
XS(_wrap_delete_gsl_multilarge_linear_type)11120 XS(_wrap_delete_gsl_multilarge_linear_type) {
11121   {
11122     gsl_multilarge_linear_type *arg1 = (gsl_multilarge_linear_type *) 0 ;
11123     void *argp1 = 0 ;
11124     int res1 = 0 ;
11125     int argvi = 0;
11126     dXSARGS;
11127 
11128     if ((items < 1) || (items > 1)) {
11129       SWIG_croak("Usage: delete_gsl_multilarge_linear_type(self);");
11130     }
11131     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multilarge_linear_type, SWIG_POINTER_DISOWN |  0 );
11132     if (!SWIG_IsOK(res1)) {
11133       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "delete_gsl_multilarge_linear_type" "', argument " "1"" of type '" "gsl_multilarge_linear_type *""'");
11134     }
11135     arg1 = (gsl_multilarge_linear_type *)(argp1);
11136     free((char *) arg1);
11137     ST(argvi) = &PL_sv_undef;
11138 
11139     XSRETURN(argvi);
11140   fail:
11141 
11142     SWIG_croak_null();
11143   }
11144 }
11145 
11146 
XS(_wrap_gsl_multilarge_linear_workspace_type_set)11147 XS(_wrap_gsl_multilarge_linear_workspace_type_set) {
11148   {
11149     gsl_multilarge_linear_workspace *arg1 = (gsl_multilarge_linear_workspace *) 0 ;
11150     gsl_multilarge_linear_type *arg2 = (gsl_multilarge_linear_type *) 0 ;
11151     void *argp1 = 0 ;
11152     int res1 = 0 ;
11153     void *argp2 = 0 ;
11154     int res2 = 0 ;
11155     int argvi = 0;
11156     dXSARGS;
11157 
11158     if ((items < 2) || (items > 2)) {
11159       SWIG_croak("Usage: gsl_multilarge_linear_workspace_type_set(self,type);");
11160     }
11161     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multilarge_linear_workspace, 0 |  0 );
11162     if (!SWIG_IsOK(res1)) {
11163       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multilarge_linear_workspace_type_set" "', argument " "1"" of type '" "gsl_multilarge_linear_workspace *""'");
11164     }
11165     arg1 = (gsl_multilarge_linear_workspace *)(argp1);
11166     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_multilarge_linear_type, SWIG_POINTER_DISOWN |  0 );
11167     if (!SWIG_IsOK(res2)) {
11168       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multilarge_linear_workspace_type_set" "', argument " "2"" of type '" "gsl_multilarge_linear_type const *""'");
11169     }
11170     arg2 = (gsl_multilarge_linear_type *)(argp2);
11171     if (arg1) (arg1)->type = (gsl_multilarge_linear_type const *)arg2;
11172     ST(argvi) = &PL_sv_undef;
11173 
11174 
11175     XSRETURN(argvi);
11176   fail:
11177 
11178 
11179     SWIG_croak_null();
11180   }
11181 }
11182 
11183 
XS(_wrap_gsl_multilarge_linear_workspace_type_get)11184 XS(_wrap_gsl_multilarge_linear_workspace_type_get) {
11185   {
11186     gsl_multilarge_linear_workspace *arg1 = (gsl_multilarge_linear_workspace *) 0 ;
11187     void *argp1 = 0 ;
11188     int res1 = 0 ;
11189     int argvi = 0;
11190     gsl_multilarge_linear_type *result = 0 ;
11191     dXSARGS;
11192 
11193     if ((items < 1) || (items > 1)) {
11194       SWIG_croak("Usage: gsl_multilarge_linear_workspace_type_get(self);");
11195     }
11196     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multilarge_linear_workspace, 0 |  0 );
11197     if (!SWIG_IsOK(res1)) {
11198       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multilarge_linear_workspace_type_get" "', argument " "1"" of type '" "gsl_multilarge_linear_workspace *""'");
11199     }
11200     arg1 = (gsl_multilarge_linear_workspace *)(argp1);
11201     result = (gsl_multilarge_linear_type *) ((arg1)->type);
11202     ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_multilarge_linear_type, 0 | SWIG_SHADOW); argvi++ ;
11203 
11204     XSRETURN(argvi);
11205   fail:
11206 
11207     SWIG_croak_null();
11208   }
11209 }
11210 
11211 
XS(_wrap_gsl_multilarge_linear_workspace_state_set)11212 XS(_wrap_gsl_multilarge_linear_workspace_state_set) {
11213   {
11214     gsl_multilarge_linear_workspace *arg1 = (gsl_multilarge_linear_workspace *) 0 ;
11215     void *arg2 = (void *) 0 ;
11216     void *argp1 = 0 ;
11217     int res1 = 0 ;
11218     int res2 ;
11219     int argvi = 0;
11220     dXSARGS;
11221 
11222     if ((items < 2) || (items > 2)) {
11223       SWIG_croak("Usage: gsl_multilarge_linear_workspace_state_set(self,state);");
11224     }
11225     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multilarge_linear_workspace, 0 |  0 );
11226     if (!SWIG_IsOK(res1)) {
11227       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multilarge_linear_workspace_state_set" "', argument " "1"" of type '" "gsl_multilarge_linear_workspace *""'");
11228     }
11229     arg1 = (gsl_multilarge_linear_workspace *)(argp1);
11230     res2 = SWIG_ConvertPtr(ST(1),SWIG_as_voidptrptr(&arg2), 0, SWIG_POINTER_DISOWN);
11231     if (!SWIG_IsOK(res2)) {
11232       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multilarge_linear_workspace_state_set" "', argument " "2"" of type '" "void *""'");
11233     }
11234     if (arg1) (arg1)->state = arg2;
11235     ST(argvi) = &PL_sv_undef;
11236 
11237 
11238     XSRETURN(argvi);
11239   fail:
11240 
11241 
11242     SWIG_croak_null();
11243   }
11244 }
11245 
11246 
XS(_wrap_gsl_multilarge_linear_workspace_state_get)11247 XS(_wrap_gsl_multilarge_linear_workspace_state_get) {
11248   {
11249     gsl_multilarge_linear_workspace *arg1 = (gsl_multilarge_linear_workspace *) 0 ;
11250     void *argp1 = 0 ;
11251     int res1 = 0 ;
11252     int argvi = 0;
11253     void *result = 0 ;
11254     dXSARGS;
11255 
11256     if ((items < 1) || (items > 1)) {
11257       SWIG_croak("Usage: gsl_multilarge_linear_workspace_state_get(self);");
11258     }
11259     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multilarge_linear_workspace, 0 |  0 );
11260     if (!SWIG_IsOK(res1)) {
11261       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multilarge_linear_workspace_state_get" "', argument " "1"" of type '" "gsl_multilarge_linear_workspace *""'");
11262     }
11263     arg1 = (gsl_multilarge_linear_workspace *)(argp1);
11264     result = (void *) ((arg1)->state);
11265     ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_void, 0 | 0); argvi++ ;
11266 
11267     XSRETURN(argvi);
11268   fail:
11269 
11270     SWIG_croak_null();
11271   }
11272 }
11273 
11274 
XS(_wrap_gsl_multilarge_linear_workspace_p_set)11275 XS(_wrap_gsl_multilarge_linear_workspace_p_set) {
11276   {
11277     gsl_multilarge_linear_workspace *arg1 = (gsl_multilarge_linear_workspace *) 0 ;
11278     size_t arg2 ;
11279     void *argp1 = 0 ;
11280     int res1 = 0 ;
11281     size_t val2 ;
11282     int ecode2 = 0 ;
11283     int argvi = 0;
11284     dXSARGS;
11285 
11286     if ((items < 2) || (items > 2)) {
11287       SWIG_croak("Usage: gsl_multilarge_linear_workspace_p_set(self,p);");
11288     }
11289     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multilarge_linear_workspace, 0 |  0 );
11290     if (!SWIG_IsOK(res1)) {
11291       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multilarge_linear_workspace_p_set" "', argument " "1"" of type '" "gsl_multilarge_linear_workspace *""'");
11292     }
11293     arg1 = (gsl_multilarge_linear_workspace *)(argp1);
11294     ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
11295     if (!SWIG_IsOK(ecode2)) {
11296       SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_multilarge_linear_workspace_p_set" "', argument " "2"" of type '" "size_t""'");
11297     }
11298     arg2 = (size_t)(val2);
11299     if (arg1) (arg1)->p = arg2;
11300     ST(argvi) = &PL_sv_undef;
11301 
11302 
11303     XSRETURN(argvi);
11304   fail:
11305 
11306 
11307     SWIG_croak_null();
11308   }
11309 }
11310 
11311 
XS(_wrap_gsl_multilarge_linear_workspace_p_get)11312 XS(_wrap_gsl_multilarge_linear_workspace_p_get) {
11313   {
11314     gsl_multilarge_linear_workspace *arg1 = (gsl_multilarge_linear_workspace *) 0 ;
11315     void *argp1 = 0 ;
11316     int res1 = 0 ;
11317     int argvi = 0;
11318     size_t result;
11319     dXSARGS;
11320 
11321     if ((items < 1) || (items > 1)) {
11322       SWIG_croak("Usage: gsl_multilarge_linear_workspace_p_get(self);");
11323     }
11324     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multilarge_linear_workspace, 0 |  0 );
11325     if (!SWIG_IsOK(res1)) {
11326       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multilarge_linear_workspace_p_get" "', argument " "1"" of type '" "gsl_multilarge_linear_workspace *""'");
11327     }
11328     arg1 = (gsl_multilarge_linear_workspace *)(argp1);
11329     result =  ((arg1)->p);
11330     ST(argvi) = SWIG_From_size_t  SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
11331 
11332     XSRETURN(argvi);
11333   fail:
11334 
11335     SWIG_croak_null();
11336   }
11337 }
11338 
11339 
XS(_wrap_new_gsl_multilarge_linear_workspace)11340 XS(_wrap_new_gsl_multilarge_linear_workspace) {
11341   {
11342     int argvi = 0;
11343     gsl_multilarge_linear_workspace *result = 0 ;
11344     dXSARGS;
11345 
11346     if ((items < 0) || (items > 0)) {
11347       SWIG_croak("Usage: new_gsl_multilarge_linear_workspace();");
11348     }
11349     result = (gsl_multilarge_linear_workspace *)calloc(1, sizeof(gsl_multilarge_linear_workspace));
11350     ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_multilarge_linear_workspace, SWIG_OWNER | SWIG_SHADOW); argvi++ ;
11351     XSRETURN(argvi);
11352   fail:
11353     SWIG_croak_null();
11354   }
11355 }
11356 
11357 
XS(_wrap_delete_gsl_multilarge_linear_workspace)11358 XS(_wrap_delete_gsl_multilarge_linear_workspace) {
11359   {
11360     gsl_multilarge_linear_workspace *arg1 = (gsl_multilarge_linear_workspace *) 0 ;
11361     void *argp1 = 0 ;
11362     int res1 = 0 ;
11363     int argvi = 0;
11364     dXSARGS;
11365 
11366     if ((items < 1) || (items > 1)) {
11367       SWIG_croak("Usage: delete_gsl_multilarge_linear_workspace(self);");
11368     }
11369     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multilarge_linear_workspace, SWIG_POINTER_DISOWN |  0 );
11370     if (!SWIG_IsOK(res1)) {
11371       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "delete_gsl_multilarge_linear_workspace" "', argument " "1"" of type '" "gsl_multilarge_linear_workspace *""'");
11372     }
11373     arg1 = (gsl_multilarge_linear_workspace *)(argp1);
11374     free((char *) arg1);
11375     ST(argvi) = &PL_sv_undef;
11376 
11377     XSRETURN(argvi);
11378   fail:
11379 
11380     SWIG_croak_null();
11381   }
11382 }
11383 
11384 
XS(_wrap_gsl_multilarge_linear_alloc)11385 XS(_wrap_gsl_multilarge_linear_alloc) {
11386   {
11387     gsl_multilarge_linear_type *arg1 = (gsl_multilarge_linear_type *) 0 ;
11388     size_t arg2 ;
11389     void *argp1 = 0 ;
11390     int res1 = 0 ;
11391     size_t val2 ;
11392     int ecode2 = 0 ;
11393     int argvi = 0;
11394     gsl_multilarge_linear_workspace *result = 0 ;
11395     dXSARGS;
11396 
11397     if ((items < 2) || (items > 2)) {
11398       SWIG_croak("Usage: gsl_multilarge_linear_alloc(T,p);");
11399     }
11400     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multilarge_linear_type, 0 |  0 );
11401     if (!SWIG_IsOK(res1)) {
11402       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multilarge_linear_alloc" "', argument " "1"" of type '" "gsl_multilarge_linear_type const *""'");
11403     }
11404     arg1 = (gsl_multilarge_linear_type *)(argp1);
11405     ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
11406     if (!SWIG_IsOK(ecode2)) {
11407       SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_multilarge_linear_alloc" "', argument " "2"" of type '" "size_t""'");
11408     }
11409     arg2 = (size_t)(val2);
11410     result = (gsl_multilarge_linear_workspace *)gsl_multilarge_linear_alloc((gsl_multilarge_linear_type const *)arg1,arg2);
11411     ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_multilarge_linear_workspace, 0 | SWIG_SHADOW); argvi++ ;
11412 
11413 
11414     XSRETURN(argvi);
11415   fail:
11416 
11417 
11418     SWIG_croak_null();
11419   }
11420 }
11421 
11422 
XS(_wrap_gsl_multilarge_linear_free)11423 XS(_wrap_gsl_multilarge_linear_free) {
11424   {
11425     gsl_multilarge_linear_workspace *arg1 = (gsl_multilarge_linear_workspace *) 0 ;
11426     void *argp1 = 0 ;
11427     int res1 = 0 ;
11428     int argvi = 0;
11429     dXSARGS;
11430 
11431     if ((items < 1) || (items > 1)) {
11432       SWIG_croak("Usage: gsl_multilarge_linear_free(w);");
11433     }
11434     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multilarge_linear_workspace, 0 |  0 );
11435     if (!SWIG_IsOK(res1)) {
11436       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multilarge_linear_free" "', argument " "1"" of type '" "gsl_multilarge_linear_workspace *""'");
11437     }
11438     arg1 = (gsl_multilarge_linear_workspace *)(argp1);
11439     gsl_multilarge_linear_free(arg1);
11440     ST(argvi) = &PL_sv_undef;
11441 
11442     XSRETURN(argvi);
11443   fail:
11444 
11445     SWIG_croak_null();
11446   }
11447 }
11448 
11449 
XS(_wrap_gsl_multilarge_linear_name)11450 XS(_wrap_gsl_multilarge_linear_name) {
11451   {
11452     gsl_multilarge_linear_workspace *arg1 = (gsl_multilarge_linear_workspace *) 0 ;
11453     void *argp1 = 0 ;
11454     int res1 = 0 ;
11455     int argvi = 0;
11456     char *result = 0 ;
11457     dXSARGS;
11458 
11459     if ((items < 1) || (items > 1)) {
11460       SWIG_croak("Usage: gsl_multilarge_linear_name(w);");
11461     }
11462     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multilarge_linear_workspace, 0 |  0 );
11463     if (!SWIG_IsOK(res1)) {
11464       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multilarge_linear_name" "', argument " "1"" of type '" "gsl_multilarge_linear_workspace const *""'");
11465     }
11466     arg1 = (gsl_multilarge_linear_workspace *)(argp1);
11467     result = (char *)gsl_multilarge_linear_name((gsl_multilarge_linear_workspace const *)arg1);
11468     ST(argvi) = SWIG_FromCharPtr((const char *)result); argvi++ ;
11469 
11470     XSRETURN(argvi);
11471   fail:
11472 
11473     SWIG_croak_null();
11474   }
11475 }
11476 
11477 
XS(_wrap_gsl_multilarge_linear_reset)11478 XS(_wrap_gsl_multilarge_linear_reset) {
11479   {
11480     gsl_multilarge_linear_workspace *arg1 = (gsl_multilarge_linear_workspace *) 0 ;
11481     void *argp1 = 0 ;
11482     int res1 = 0 ;
11483     int argvi = 0;
11484     int result;
11485     dXSARGS;
11486 
11487     if ((items < 1) || (items > 1)) {
11488       SWIG_croak("Usage: gsl_multilarge_linear_reset(w);");
11489     }
11490     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multilarge_linear_workspace, 0 |  0 );
11491     if (!SWIG_IsOK(res1)) {
11492       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multilarge_linear_reset" "', argument " "1"" of type '" "gsl_multilarge_linear_workspace *""'");
11493     }
11494     arg1 = (gsl_multilarge_linear_workspace *)(argp1);
11495     result = (int)gsl_multilarge_linear_reset(arg1);
11496     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
11497 
11498     XSRETURN(argvi);
11499   fail:
11500 
11501     SWIG_croak_null();
11502   }
11503 }
11504 
11505 
XS(_wrap_gsl_multilarge_linear_accumulate)11506 XS(_wrap_gsl_multilarge_linear_accumulate) {
11507   {
11508     gsl_matrix *arg1 = (gsl_matrix *) 0 ;
11509     gsl_vector *arg2 = (gsl_vector *) 0 ;
11510     gsl_multilarge_linear_workspace *arg3 = (gsl_multilarge_linear_workspace *) 0 ;
11511     void *argp1 = 0 ;
11512     int res1 = 0 ;
11513     void *argp2 = 0 ;
11514     int res2 = 0 ;
11515     void *argp3 = 0 ;
11516     int res3 = 0 ;
11517     int argvi = 0;
11518     int result;
11519     dXSARGS;
11520 
11521     if ((items < 3) || (items > 3)) {
11522       SWIG_croak("Usage: gsl_multilarge_linear_accumulate(X,y,w);");
11523     }
11524     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 |  0 );
11525     if (!SWIG_IsOK(res1)) {
11526       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multilarge_linear_accumulate" "', argument " "1"" of type '" "gsl_matrix *""'");
11527     }
11528     arg1 = (gsl_matrix *)(argp1);
11529     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 |  0 );
11530     if (!SWIG_IsOK(res2)) {
11531       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multilarge_linear_accumulate" "', argument " "2"" of type '" "gsl_vector *""'");
11532     }
11533     arg2 = (gsl_vector *)(argp2);
11534     res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_multilarge_linear_workspace, 0 |  0 );
11535     if (!SWIG_IsOK(res3)) {
11536       SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_multilarge_linear_accumulate" "', argument " "3"" of type '" "gsl_multilarge_linear_workspace *""'");
11537     }
11538     arg3 = (gsl_multilarge_linear_workspace *)(argp3);
11539     result = (int)gsl_multilarge_linear_accumulate(arg1,arg2,arg3);
11540     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
11541 
11542 
11543 
11544     XSRETURN(argvi);
11545   fail:
11546 
11547 
11548 
11549     SWIG_croak_null();
11550   }
11551 }
11552 
11553 
XS(_wrap_gsl_multilarge_linear_solve)11554 XS(_wrap_gsl_multilarge_linear_solve) {
11555   {
11556     double arg1 ;
11557     gsl_vector *arg2 = (gsl_vector *) 0 ;
11558     double *arg3 = (double *) 0 ;
11559     double *arg4 = (double *) 0 ;
11560     gsl_multilarge_linear_workspace *arg5 = (gsl_multilarge_linear_workspace *) 0 ;
11561     double val1 ;
11562     int ecode1 = 0 ;
11563     void *argp2 = 0 ;
11564     int res2 = 0 ;
11565     double temp3 ;
11566     int res3 = SWIG_TMPOBJ ;
11567     double temp4 ;
11568     int res4 = SWIG_TMPOBJ ;
11569     void *argp5 = 0 ;
11570     int res5 = 0 ;
11571     int argvi = 0;
11572     int result;
11573     dXSARGS;
11574 
11575     arg3 = &temp3;
11576     arg4 = &temp4;
11577     if ((items < 3) || (items > 3)) {
11578       SWIG_croak("Usage: gsl_multilarge_linear_solve(lambda,c,w);");
11579     }
11580     ecode1 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
11581     if (!SWIG_IsOK(ecode1)) {
11582       SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_multilarge_linear_solve" "', argument " "1"" of type '" "double""'");
11583     }
11584     arg1 = (double)(val1);
11585     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 |  0 );
11586     if (!SWIG_IsOK(res2)) {
11587       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multilarge_linear_solve" "', argument " "2"" of type '" "gsl_vector *""'");
11588     }
11589     arg2 = (gsl_vector *)(argp2);
11590     res5 = SWIG_ConvertPtr(ST(2), &argp5,SWIGTYPE_p_gsl_multilarge_linear_workspace, 0 |  0 );
11591     if (!SWIG_IsOK(res5)) {
11592       SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_multilarge_linear_solve" "', argument " "5"" of type '" "gsl_multilarge_linear_workspace *""'");
11593     }
11594     arg5 = (gsl_multilarge_linear_workspace *)(argp5);
11595     result = (int)gsl_multilarge_linear_solve(arg1,arg2,arg3,arg4,arg5);
11596     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
11597     if (SWIG_IsTmpObj(res3)) {
11598       if (argvi >= items) EXTEND(sp, argvi+1);  ST(argvi) = SWIG_From_double  SWIG_PERL_CALL_ARGS_1((*arg3)); argvi++  ;
11599     } else {
11600       int new_flags = SWIG_IsNewObj(res3) ? (SWIG_POINTER_OWN | 0) : 0;
11601       if (argvi >= items) EXTEND(sp, argvi+1);  ST(argvi) = SWIG_NewPointerObj((void*)(arg3), SWIGTYPE_p_double, new_flags); argvi++  ;
11602     }
11603     if (SWIG_IsTmpObj(res4)) {
11604       if (argvi >= items) EXTEND(sp, argvi+1);  ST(argvi) = SWIG_From_double  SWIG_PERL_CALL_ARGS_1((*arg4)); argvi++  ;
11605     } else {
11606       int new_flags = SWIG_IsNewObj(res4) ? (SWIG_POINTER_OWN | 0) : 0;
11607       if (argvi >= items) EXTEND(sp, argvi+1);  ST(argvi) = SWIG_NewPointerObj((void*)(arg4), SWIGTYPE_p_double, new_flags); argvi++  ;
11608     }
11609 
11610 
11611 
11612 
11613 
11614     XSRETURN(argvi);
11615   fail:
11616 
11617 
11618 
11619 
11620 
11621     SWIG_croak_null();
11622   }
11623 }
11624 
11625 
XS(_wrap_gsl_multilarge_linear_rcond)11626 XS(_wrap_gsl_multilarge_linear_rcond) {
11627   {
11628     double *arg1 = (double *) 0 ;
11629     gsl_multilarge_linear_workspace *arg2 = (gsl_multilarge_linear_workspace *) 0 ;
11630     void *argp1 = 0 ;
11631     int res1 = 0 ;
11632     void *argp2 = 0 ;
11633     int res2 = 0 ;
11634     int argvi = 0;
11635     int result;
11636     dXSARGS;
11637 
11638     if ((items < 2) || (items > 2)) {
11639       SWIG_croak("Usage: gsl_multilarge_linear_rcond(rcond,w);");
11640     }
11641     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_double, 0 |  0 );
11642     if (!SWIG_IsOK(res1)) {
11643       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multilarge_linear_rcond" "', argument " "1"" of type '" "double *""'");
11644     }
11645     arg1 = (double *)(argp1);
11646     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_multilarge_linear_workspace, 0 |  0 );
11647     if (!SWIG_IsOK(res2)) {
11648       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multilarge_linear_rcond" "', argument " "2"" of type '" "gsl_multilarge_linear_workspace *""'");
11649     }
11650     arg2 = (gsl_multilarge_linear_workspace *)(argp2);
11651     result = (int)gsl_multilarge_linear_rcond(arg1,arg2);
11652     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
11653 
11654 
11655     XSRETURN(argvi);
11656   fail:
11657 
11658 
11659     SWIG_croak_null();
11660   }
11661 }
11662 
11663 
XS(_wrap_gsl_multilarge_linear_lcurve)11664 XS(_wrap_gsl_multilarge_linear_lcurve) {
11665   {
11666     gsl_vector *arg1 = (gsl_vector *) 0 ;
11667     gsl_vector *arg2 = (gsl_vector *) 0 ;
11668     gsl_vector *arg3 = (gsl_vector *) 0 ;
11669     gsl_multilarge_linear_workspace *arg4 = (gsl_multilarge_linear_workspace *) 0 ;
11670     void *argp1 = 0 ;
11671     int res1 = 0 ;
11672     void *argp2 = 0 ;
11673     int res2 = 0 ;
11674     void *argp3 = 0 ;
11675     int res3 = 0 ;
11676     void *argp4 = 0 ;
11677     int res4 = 0 ;
11678     int argvi = 0;
11679     int result;
11680     dXSARGS;
11681 
11682     if ((items < 4) || (items > 4)) {
11683       SWIG_croak("Usage: gsl_multilarge_linear_lcurve(reg_param,rho,eta,w);");
11684     }
11685     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 |  0 );
11686     if (!SWIG_IsOK(res1)) {
11687       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multilarge_linear_lcurve" "', argument " "1"" of type '" "gsl_vector *""'");
11688     }
11689     arg1 = (gsl_vector *)(argp1);
11690     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 |  0 );
11691     if (!SWIG_IsOK(res2)) {
11692       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multilarge_linear_lcurve" "', argument " "2"" of type '" "gsl_vector *""'");
11693     }
11694     arg2 = (gsl_vector *)(argp2);
11695     res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 |  0 );
11696     if (!SWIG_IsOK(res3)) {
11697       SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_multilarge_linear_lcurve" "', argument " "3"" of type '" "gsl_vector *""'");
11698     }
11699     arg3 = (gsl_vector *)(argp3);
11700     res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_multilarge_linear_workspace, 0 |  0 );
11701     if (!SWIG_IsOK(res4)) {
11702       SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_multilarge_linear_lcurve" "', argument " "4"" of type '" "gsl_multilarge_linear_workspace *""'");
11703     }
11704     arg4 = (gsl_multilarge_linear_workspace *)(argp4);
11705     result = (int)gsl_multilarge_linear_lcurve(arg1,arg2,arg3,arg4);
11706     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
11707 
11708 
11709 
11710 
11711     XSRETURN(argvi);
11712   fail:
11713 
11714 
11715 
11716 
11717     SWIG_croak_null();
11718   }
11719 }
11720 
11721 
XS(_wrap_gsl_multilarge_linear_wstdform1)11722 XS(_wrap_gsl_multilarge_linear_wstdform1) {
11723   {
11724     gsl_vector *arg1 = (gsl_vector *) 0 ;
11725     gsl_matrix *arg2 = (gsl_matrix *) 0 ;
11726     gsl_vector *arg3 = (gsl_vector *) 0 ;
11727     gsl_vector *arg4 = (gsl_vector *) 0 ;
11728     gsl_matrix *arg5 = (gsl_matrix *) 0 ;
11729     gsl_vector *arg6 = (gsl_vector *) 0 ;
11730     gsl_multilarge_linear_workspace *arg7 = (gsl_multilarge_linear_workspace *) 0 ;
11731     void *argp1 = 0 ;
11732     int res1 = 0 ;
11733     void *argp2 = 0 ;
11734     int res2 = 0 ;
11735     void *argp3 = 0 ;
11736     int res3 = 0 ;
11737     void *argp4 = 0 ;
11738     int res4 = 0 ;
11739     void *argp5 = 0 ;
11740     int res5 = 0 ;
11741     void *argp6 = 0 ;
11742     int res6 = 0 ;
11743     void *argp7 = 0 ;
11744     int res7 = 0 ;
11745     int argvi = 0;
11746     int result;
11747     dXSARGS;
11748 
11749     if ((items < 7) || (items > 7)) {
11750       SWIG_croak("Usage: gsl_multilarge_linear_wstdform1(L,X,w,y,Xs,ys,work);");
11751     }
11752     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 |  0 );
11753     if (!SWIG_IsOK(res1)) {
11754       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multilarge_linear_wstdform1" "', argument " "1"" of type '" "gsl_vector const *""'");
11755     }
11756     arg1 = (gsl_vector *)(argp1);
11757     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 |  0 );
11758     if (!SWIG_IsOK(res2)) {
11759       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multilarge_linear_wstdform1" "', argument " "2"" of type '" "gsl_matrix const *""'");
11760     }
11761     arg2 = (gsl_matrix *)(argp2);
11762     res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 |  0 );
11763     if (!SWIG_IsOK(res3)) {
11764       SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_multilarge_linear_wstdform1" "', argument " "3"" of type '" "gsl_vector const *""'");
11765     }
11766     arg3 = (gsl_vector *)(argp3);
11767     res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 |  0 );
11768     if (!SWIG_IsOK(res4)) {
11769       SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_multilarge_linear_wstdform1" "', argument " "4"" of type '" "gsl_vector const *""'");
11770     }
11771     arg4 = (gsl_vector *)(argp4);
11772     res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_matrix, 0 |  0 );
11773     if (!SWIG_IsOK(res5)) {
11774       SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_multilarge_linear_wstdform1" "', argument " "5"" of type '" "gsl_matrix *""'");
11775     }
11776     arg5 = (gsl_matrix *)(argp5);
11777     res6 = SWIG_ConvertPtr(ST(5), &argp6,SWIGTYPE_p_gsl_vector, 0 |  0 );
11778     if (!SWIG_IsOK(res6)) {
11779       SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_multilarge_linear_wstdform1" "', argument " "6"" of type '" "gsl_vector *""'");
11780     }
11781     arg6 = (gsl_vector *)(argp6);
11782     res7 = SWIG_ConvertPtr(ST(6), &argp7,SWIGTYPE_p_gsl_multilarge_linear_workspace, 0 |  0 );
11783     if (!SWIG_IsOK(res7)) {
11784       SWIG_exception_fail(SWIG_ArgError(res7), "in method '" "gsl_multilarge_linear_wstdform1" "', argument " "7"" of type '" "gsl_multilarge_linear_workspace *""'");
11785     }
11786     arg7 = (gsl_multilarge_linear_workspace *)(argp7);
11787     result = (int)gsl_multilarge_linear_wstdform1((gsl_vector const *)arg1,(gsl_matrix const *)arg2,(gsl_vector const *)arg3,(gsl_vector const *)arg4,arg5,arg6,arg7);
11788     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
11789 
11790 
11791 
11792 
11793 
11794 
11795 
11796     XSRETURN(argvi);
11797   fail:
11798 
11799 
11800 
11801 
11802 
11803 
11804 
11805     SWIG_croak_null();
11806   }
11807 }
11808 
11809 
XS(_wrap_gsl_multilarge_linear_stdform1)11810 XS(_wrap_gsl_multilarge_linear_stdform1) {
11811   {
11812     gsl_vector *arg1 = (gsl_vector *) 0 ;
11813     gsl_matrix *arg2 = (gsl_matrix *) 0 ;
11814     gsl_vector *arg3 = (gsl_vector *) 0 ;
11815     gsl_matrix *arg4 = (gsl_matrix *) 0 ;
11816     gsl_vector *arg5 = (gsl_vector *) 0 ;
11817     gsl_multilarge_linear_workspace *arg6 = (gsl_multilarge_linear_workspace *) 0 ;
11818     void *argp1 = 0 ;
11819     int res1 = 0 ;
11820     void *argp2 = 0 ;
11821     int res2 = 0 ;
11822     void *argp3 = 0 ;
11823     int res3 = 0 ;
11824     void *argp4 = 0 ;
11825     int res4 = 0 ;
11826     void *argp5 = 0 ;
11827     int res5 = 0 ;
11828     void *argp6 = 0 ;
11829     int res6 = 0 ;
11830     int argvi = 0;
11831     int result;
11832     dXSARGS;
11833 
11834     if ((items < 6) || (items > 6)) {
11835       SWIG_croak("Usage: gsl_multilarge_linear_stdform1(L,X,y,Xs,ys,work);");
11836     }
11837     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 |  0 );
11838     if (!SWIG_IsOK(res1)) {
11839       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multilarge_linear_stdform1" "', argument " "1"" of type '" "gsl_vector const *""'");
11840     }
11841     arg1 = (gsl_vector *)(argp1);
11842     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 |  0 );
11843     if (!SWIG_IsOK(res2)) {
11844       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multilarge_linear_stdform1" "', argument " "2"" of type '" "gsl_matrix const *""'");
11845     }
11846     arg2 = (gsl_matrix *)(argp2);
11847     res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 |  0 );
11848     if (!SWIG_IsOK(res3)) {
11849       SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_multilarge_linear_stdform1" "', argument " "3"" of type '" "gsl_vector const *""'");
11850     }
11851     arg3 = (gsl_vector *)(argp3);
11852     res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_matrix, 0 |  0 );
11853     if (!SWIG_IsOK(res4)) {
11854       SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_multilarge_linear_stdform1" "', argument " "4"" of type '" "gsl_matrix *""'");
11855     }
11856     arg4 = (gsl_matrix *)(argp4);
11857     res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 |  0 );
11858     if (!SWIG_IsOK(res5)) {
11859       SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_multilarge_linear_stdform1" "', argument " "5"" of type '" "gsl_vector *""'");
11860     }
11861     arg5 = (gsl_vector *)(argp5);
11862     res6 = SWIG_ConvertPtr(ST(5), &argp6,SWIGTYPE_p_gsl_multilarge_linear_workspace, 0 |  0 );
11863     if (!SWIG_IsOK(res6)) {
11864       SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_multilarge_linear_stdform1" "', argument " "6"" of type '" "gsl_multilarge_linear_workspace *""'");
11865     }
11866     arg6 = (gsl_multilarge_linear_workspace *)(argp6);
11867     result = (int)gsl_multilarge_linear_stdform1((gsl_vector const *)arg1,(gsl_matrix const *)arg2,(gsl_vector const *)arg3,arg4,arg5,arg6);
11868     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
11869 
11870 
11871 
11872 
11873 
11874 
11875     XSRETURN(argvi);
11876   fail:
11877 
11878 
11879 
11880 
11881 
11882 
11883     SWIG_croak_null();
11884   }
11885 }
11886 
11887 
XS(_wrap_gsl_multilarge_linear_L_decomp)11888 XS(_wrap_gsl_multilarge_linear_L_decomp) {
11889   {
11890     gsl_matrix *arg1 = (gsl_matrix *) 0 ;
11891     gsl_vector *arg2 = (gsl_vector *) 0 ;
11892     void *argp1 = 0 ;
11893     int res1 = 0 ;
11894     void *argp2 = 0 ;
11895     int res2 = 0 ;
11896     int argvi = 0;
11897     int result;
11898     dXSARGS;
11899 
11900     if ((items < 2) || (items > 2)) {
11901       SWIG_croak("Usage: gsl_multilarge_linear_L_decomp(L,tau);");
11902     }
11903     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 |  0 );
11904     if (!SWIG_IsOK(res1)) {
11905       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multilarge_linear_L_decomp" "', argument " "1"" of type '" "gsl_matrix *""'");
11906     }
11907     arg1 = (gsl_matrix *)(argp1);
11908     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 |  0 );
11909     if (!SWIG_IsOK(res2)) {
11910       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multilarge_linear_L_decomp" "', argument " "2"" of type '" "gsl_vector *""'");
11911     }
11912     arg2 = (gsl_vector *)(argp2);
11913     result = (int)gsl_multilarge_linear_L_decomp(arg1,arg2);
11914     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
11915 
11916 
11917     XSRETURN(argvi);
11918   fail:
11919 
11920 
11921     SWIG_croak_null();
11922   }
11923 }
11924 
11925 
XS(_wrap_gsl_multilarge_linear_wstdform2)11926 XS(_wrap_gsl_multilarge_linear_wstdform2) {
11927   {
11928     gsl_matrix *arg1 = (gsl_matrix *) 0 ;
11929     gsl_vector *arg2 = (gsl_vector *) 0 ;
11930     gsl_matrix *arg3 = (gsl_matrix *) 0 ;
11931     gsl_vector *arg4 = (gsl_vector *) 0 ;
11932     gsl_vector *arg5 = (gsl_vector *) 0 ;
11933     gsl_matrix *arg6 = (gsl_matrix *) 0 ;
11934     gsl_vector *arg7 = (gsl_vector *) 0 ;
11935     gsl_multilarge_linear_workspace *arg8 = (gsl_multilarge_linear_workspace *) 0 ;
11936     void *argp1 = 0 ;
11937     int res1 = 0 ;
11938     void *argp2 = 0 ;
11939     int res2 = 0 ;
11940     void *argp3 = 0 ;
11941     int res3 = 0 ;
11942     void *argp4 = 0 ;
11943     int res4 = 0 ;
11944     void *argp5 = 0 ;
11945     int res5 = 0 ;
11946     void *argp6 = 0 ;
11947     int res6 = 0 ;
11948     void *argp7 = 0 ;
11949     int res7 = 0 ;
11950     void *argp8 = 0 ;
11951     int res8 = 0 ;
11952     int argvi = 0;
11953     int result;
11954     dXSARGS;
11955 
11956     if ((items < 8) || (items > 8)) {
11957       SWIG_croak("Usage: gsl_multilarge_linear_wstdform2(LQR,Ltau,X,w,y,Xs,ys,work);");
11958     }
11959     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 |  0 );
11960     if (!SWIG_IsOK(res1)) {
11961       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multilarge_linear_wstdform2" "', argument " "1"" of type '" "gsl_matrix const *""'");
11962     }
11963     arg1 = (gsl_matrix *)(argp1);
11964     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 |  0 );
11965     if (!SWIG_IsOK(res2)) {
11966       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multilarge_linear_wstdform2" "', argument " "2"" of type '" "gsl_vector const *""'");
11967     }
11968     arg2 = (gsl_vector *)(argp2);
11969     res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 |  0 );
11970     if (!SWIG_IsOK(res3)) {
11971       SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_multilarge_linear_wstdform2" "', argument " "3"" of type '" "gsl_matrix const *""'");
11972     }
11973     arg3 = (gsl_matrix *)(argp3);
11974     res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 |  0 );
11975     if (!SWIG_IsOK(res4)) {
11976       SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_multilarge_linear_wstdform2" "', argument " "4"" of type '" "gsl_vector const *""'");
11977     }
11978     arg4 = (gsl_vector *)(argp4);
11979     res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 |  0 );
11980     if (!SWIG_IsOK(res5)) {
11981       SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_multilarge_linear_wstdform2" "', argument " "5"" of type '" "gsl_vector const *""'");
11982     }
11983     arg5 = (gsl_vector *)(argp5);
11984     res6 = SWIG_ConvertPtr(ST(5), &argp6,SWIGTYPE_p_gsl_matrix, 0 |  0 );
11985     if (!SWIG_IsOK(res6)) {
11986       SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_multilarge_linear_wstdform2" "', argument " "6"" of type '" "gsl_matrix *""'");
11987     }
11988     arg6 = (gsl_matrix *)(argp6);
11989     res7 = SWIG_ConvertPtr(ST(6), &argp7,SWIGTYPE_p_gsl_vector, 0 |  0 );
11990     if (!SWIG_IsOK(res7)) {
11991       SWIG_exception_fail(SWIG_ArgError(res7), "in method '" "gsl_multilarge_linear_wstdform2" "', argument " "7"" of type '" "gsl_vector *""'");
11992     }
11993     arg7 = (gsl_vector *)(argp7);
11994     res8 = SWIG_ConvertPtr(ST(7), &argp8,SWIGTYPE_p_gsl_multilarge_linear_workspace, 0 |  0 );
11995     if (!SWIG_IsOK(res8)) {
11996       SWIG_exception_fail(SWIG_ArgError(res8), "in method '" "gsl_multilarge_linear_wstdform2" "', argument " "8"" of type '" "gsl_multilarge_linear_workspace *""'");
11997     }
11998     arg8 = (gsl_multilarge_linear_workspace *)(argp8);
11999     result = (int)gsl_multilarge_linear_wstdform2((gsl_matrix const *)arg1,(gsl_vector const *)arg2,(gsl_matrix const *)arg3,(gsl_vector const *)arg4,(gsl_vector const *)arg5,arg6,arg7,arg8);
12000     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
12001 
12002 
12003 
12004 
12005 
12006 
12007 
12008 
12009     XSRETURN(argvi);
12010   fail:
12011 
12012 
12013 
12014 
12015 
12016 
12017 
12018 
12019     SWIG_croak_null();
12020   }
12021 }
12022 
12023 
XS(_wrap_gsl_multilarge_linear_stdform2)12024 XS(_wrap_gsl_multilarge_linear_stdform2) {
12025   {
12026     gsl_matrix *arg1 = (gsl_matrix *) 0 ;
12027     gsl_vector *arg2 = (gsl_vector *) 0 ;
12028     gsl_matrix *arg3 = (gsl_matrix *) 0 ;
12029     gsl_vector *arg4 = (gsl_vector *) 0 ;
12030     gsl_matrix *arg5 = (gsl_matrix *) 0 ;
12031     gsl_vector *arg6 = (gsl_vector *) 0 ;
12032     gsl_multilarge_linear_workspace *arg7 = (gsl_multilarge_linear_workspace *) 0 ;
12033     void *argp1 = 0 ;
12034     int res1 = 0 ;
12035     void *argp2 = 0 ;
12036     int res2 = 0 ;
12037     void *argp3 = 0 ;
12038     int res3 = 0 ;
12039     void *argp4 = 0 ;
12040     int res4 = 0 ;
12041     void *argp5 = 0 ;
12042     int res5 = 0 ;
12043     void *argp6 = 0 ;
12044     int res6 = 0 ;
12045     void *argp7 = 0 ;
12046     int res7 = 0 ;
12047     int argvi = 0;
12048     int result;
12049     dXSARGS;
12050 
12051     if ((items < 7) || (items > 7)) {
12052       SWIG_croak("Usage: gsl_multilarge_linear_stdform2(LQR,Ltau,X,y,Xs,ys,work);");
12053     }
12054     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 |  0 );
12055     if (!SWIG_IsOK(res1)) {
12056       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multilarge_linear_stdform2" "', argument " "1"" of type '" "gsl_matrix const *""'");
12057     }
12058     arg1 = (gsl_matrix *)(argp1);
12059     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 |  0 );
12060     if (!SWIG_IsOK(res2)) {
12061       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multilarge_linear_stdform2" "', argument " "2"" of type '" "gsl_vector const *""'");
12062     }
12063     arg2 = (gsl_vector *)(argp2);
12064     res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 |  0 );
12065     if (!SWIG_IsOK(res3)) {
12066       SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_multilarge_linear_stdform2" "', argument " "3"" of type '" "gsl_matrix const *""'");
12067     }
12068     arg3 = (gsl_matrix *)(argp3);
12069     res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 |  0 );
12070     if (!SWIG_IsOK(res4)) {
12071       SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_multilarge_linear_stdform2" "', argument " "4"" of type '" "gsl_vector const *""'");
12072     }
12073     arg4 = (gsl_vector *)(argp4);
12074     res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_matrix, 0 |  0 );
12075     if (!SWIG_IsOK(res5)) {
12076       SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_multilarge_linear_stdform2" "', argument " "5"" of type '" "gsl_matrix *""'");
12077     }
12078     arg5 = (gsl_matrix *)(argp5);
12079     res6 = SWIG_ConvertPtr(ST(5), &argp6,SWIGTYPE_p_gsl_vector, 0 |  0 );
12080     if (!SWIG_IsOK(res6)) {
12081       SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_multilarge_linear_stdform2" "', argument " "6"" of type '" "gsl_vector *""'");
12082     }
12083     arg6 = (gsl_vector *)(argp6);
12084     res7 = SWIG_ConvertPtr(ST(6), &argp7,SWIGTYPE_p_gsl_multilarge_linear_workspace, 0 |  0 );
12085     if (!SWIG_IsOK(res7)) {
12086       SWIG_exception_fail(SWIG_ArgError(res7), "in method '" "gsl_multilarge_linear_stdform2" "', argument " "7"" of type '" "gsl_multilarge_linear_workspace *""'");
12087     }
12088     arg7 = (gsl_multilarge_linear_workspace *)(argp7);
12089     result = (int)gsl_multilarge_linear_stdform2((gsl_matrix const *)arg1,(gsl_vector const *)arg2,(gsl_matrix const *)arg3,(gsl_vector const *)arg4,arg5,arg6,arg7);
12090     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
12091 
12092 
12093 
12094 
12095 
12096 
12097 
12098     XSRETURN(argvi);
12099   fail:
12100 
12101 
12102 
12103 
12104 
12105 
12106 
12107     SWIG_croak_null();
12108   }
12109 }
12110 
12111 
XS(_wrap_gsl_multilarge_linear_genform1)12112 XS(_wrap_gsl_multilarge_linear_genform1) {
12113   {
12114     gsl_vector *arg1 = (gsl_vector *) 0 ;
12115     gsl_vector *arg2 = (gsl_vector *) 0 ;
12116     gsl_vector *arg3 = (gsl_vector *) 0 ;
12117     gsl_multilarge_linear_workspace *arg4 = (gsl_multilarge_linear_workspace *) 0 ;
12118     void *argp1 = 0 ;
12119     int res1 = 0 ;
12120     void *argp2 = 0 ;
12121     int res2 = 0 ;
12122     void *argp3 = 0 ;
12123     int res3 = 0 ;
12124     void *argp4 = 0 ;
12125     int res4 = 0 ;
12126     int argvi = 0;
12127     int result;
12128     dXSARGS;
12129 
12130     if ((items < 4) || (items > 4)) {
12131       SWIG_croak("Usage: gsl_multilarge_linear_genform1(L,cs,c,work);");
12132     }
12133     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 |  0 );
12134     if (!SWIG_IsOK(res1)) {
12135       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multilarge_linear_genform1" "', argument " "1"" of type '" "gsl_vector const *""'");
12136     }
12137     arg1 = (gsl_vector *)(argp1);
12138     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 |  0 );
12139     if (!SWIG_IsOK(res2)) {
12140       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multilarge_linear_genform1" "', argument " "2"" of type '" "gsl_vector const *""'");
12141     }
12142     arg2 = (gsl_vector *)(argp2);
12143     res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 |  0 );
12144     if (!SWIG_IsOK(res3)) {
12145       SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_multilarge_linear_genform1" "', argument " "3"" of type '" "gsl_vector *""'");
12146     }
12147     arg3 = (gsl_vector *)(argp3);
12148     res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_multilarge_linear_workspace, 0 |  0 );
12149     if (!SWIG_IsOK(res4)) {
12150       SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_multilarge_linear_genform1" "', argument " "4"" of type '" "gsl_multilarge_linear_workspace *""'");
12151     }
12152     arg4 = (gsl_multilarge_linear_workspace *)(argp4);
12153     result = (int)gsl_multilarge_linear_genform1((gsl_vector const *)arg1,(gsl_vector const *)arg2,arg3,arg4);
12154     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
12155 
12156 
12157 
12158 
12159     XSRETURN(argvi);
12160   fail:
12161 
12162 
12163 
12164 
12165     SWIG_croak_null();
12166   }
12167 }
12168 
12169 
XS(_wrap_gsl_multilarge_linear_genform2)12170 XS(_wrap_gsl_multilarge_linear_genform2) {
12171   {
12172     gsl_matrix *arg1 = (gsl_matrix *) 0 ;
12173     gsl_vector *arg2 = (gsl_vector *) 0 ;
12174     gsl_vector *arg3 = (gsl_vector *) 0 ;
12175     gsl_vector *arg4 = (gsl_vector *) 0 ;
12176     gsl_multilarge_linear_workspace *arg5 = (gsl_multilarge_linear_workspace *) 0 ;
12177     void *argp1 = 0 ;
12178     int res1 = 0 ;
12179     void *argp2 = 0 ;
12180     int res2 = 0 ;
12181     void *argp3 = 0 ;
12182     int res3 = 0 ;
12183     void *argp4 = 0 ;
12184     int res4 = 0 ;
12185     void *argp5 = 0 ;
12186     int res5 = 0 ;
12187     int argvi = 0;
12188     int result;
12189     dXSARGS;
12190 
12191     if ((items < 5) || (items > 5)) {
12192       SWIG_croak("Usage: gsl_multilarge_linear_genform2(LQR,Ltau,cs,c,work);");
12193     }
12194     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 |  0 );
12195     if (!SWIG_IsOK(res1)) {
12196       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multilarge_linear_genform2" "', argument " "1"" of type '" "gsl_matrix const *""'");
12197     }
12198     arg1 = (gsl_matrix *)(argp1);
12199     res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 |  0 );
12200     if (!SWIG_IsOK(res2)) {
12201       SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multilarge_linear_genform2" "', argument " "2"" of type '" "gsl_vector const *""'");
12202     }
12203     arg2 = (gsl_vector *)(argp2);
12204     res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 |  0 );
12205     if (!SWIG_IsOK(res3)) {
12206       SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_multilarge_linear_genform2" "', argument " "3"" of type '" "gsl_vector const *""'");
12207     }
12208     arg3 = (gsl_vector *)(argp3);
12209     res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 |  0 );
12210     if (!SWIG_IsOK(res4)) {
12211       SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_multilarge_linear_genform2" "', argument " "4"" of type '" "gsl_vector *""'");
12212     }
12213     arg4 = (gsl_vector *)(argp4);
12214     res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_multilarge_linear_workspace, 0 |  0 );
12215     if (!SWIG_IsOK(res5)) {
12216       SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_multilarge_linear_genform2" "', argument " "5"" of type '" "gsl_multilarge_linear_workspace *""'");
12217     }
12218     arg5 = (gsl_multilarge_linear_workspace *)(argp5);
12219     result = (int)gsl_multilarge_linear_genform2((gsl_matrix const *)arg1,(gsl_vector const *)arg2,(gsl_vector const *)arg3,arg4,arg5);
12220     ST(argvi) = SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
12221 
12222 
12223 
12224 
12225 
12226     XSRETURN(argvi);
12227   fail:
12228 
12229 
12230 
12231 
12232 
12233     SWIG_croak_null();
12234   }
12235 }
12236 
12237 
XS(_wrap_gsl_multilarge_linear_matrix_ptr)12238 XS(_wrap_gsl_multilarge_linear_matrix_ptr) {
12239   {
12240     gsl_multilarge_linear_workspace *arg1 = (gsl_multilarge_linear_workspace *) 0 ;
12241     void *argp1 = 0 ;
12242     int res1 = 0 ;
12243     int argvi = 0;
12244     gsl_matrix *result = 0 ;
12245     dXSARGS;
12246 
12247     if ((items < 1) || (items > 1)) {
12248       SWIG_croak("Usage: gsl_multilarge_linear_matrix_ptr(work);");
12249     }
12250     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multilarge_linear_workspace, 0 |  0 );
12251     if (!SWIG_IsOK(res1)) {
12252       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multilarge_linear_matrix_ptr" "', argument " "1"" of type '" "gsl_multilarge_linear_workspace const *""'");
12253     }
12254     arg1 = (gsl_multilarge_linear_workspace *)(argp1);
12255     result = (gsl_matrix *)gsl_multilarge_linear_matrix_ptr((gsl_multilarge_linear_workspace const *)arg1);
12256     ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_matrix, 0 | 0); argvi++ ;
12257 
12258     XSRETURN(argvi);
12259   fail:
12260 
12261     SWIG_croak_null();
12262   }
12263 }
12264 
12265 
XS(_wrap_gsl_multilarge_linear_rhs_ptr)12266 XS(_wrap_gsl_multilarge_linear_rhs_ptr) {
12267   {
12268     gsl_multilarge_linear_workspace *arg1 = (gsl_multilarge_linear_workspace *) 0 ;
12269     void *argp1 = 0 ;
12270     int res1 = 0 ;
12271     int argvi = 0;
12272     gsl_vector *result = 0 ;
12273     dXSARGS;
12274 
12275     if ((items < 1) || (items > 1)) {
12276       SWIG_croak("Usage: gsl_multilarge_linear_rhs_ptr(work);");
12277     }
12278     res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multilarge_linear_workspace, 0 |  0 );
12279     if (!SWIG_IsOK(res1)) {
12280       SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multilarge_linear_rhs_ptr" "', argument " "1"" of type '" "gsl_multilarge_linear_workspace const *""'");
12281     }
12282     arg1 = (gsl_multilarge_linear_workspace *)(argp1);
12283     result = (gsl_vector *)gsl_multilarge_linear_rhs_ptr((gsl_multilarge_linear_workspace const *)arg1);
12284     ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_vector, 0 | 0); argvi++ ;
12285 
12286     XSRETURN(argvi);
12287   fail:
12288 
12289     SWIG_croak_null();
12290   }
12291 }
12292 
12293 
12294 
12295 /* -------- TYPE CONVERSION AND EQUIVALENCE RULES (BEGIN) -------- */
12296 
12297 static swig_type_info _swigt__p_FILE = {"_p_FILE", "FILE *", 0, 0, (void*)0, 0};
12298 static swig_type_info _swigt__p_char = {"_p_char", "char *", 0, 0, (void*)0, 0};
12299 static swig_type_info _swigt__p_double = {"_p_double", "double *", 0, 0, (void*)0, 0};
12300 static swig_type_info _swigt__p_f_double_a___double_p_void__int = {"_p_f_double_a___double_p_void__int", "int (*)(double,double [],void *)", 0, 0, (void*)0, 0};
12301 static swig_type_info _swigt__p_f_double_p_void__double = {"_p_f_double_p_void__double", "double (*)(double,void *)", 0, 0, (void*)0, 0};
12302 static swig_type_info _swigt__p_f_double_p_void_p_double_p_double__void = {"_p_f_double_p_void_p_double_p_double__void", "void (*)(double,void *,double *,double *)", 0, 0, (void*)0, 0};
12303 static swig_type_info _swigt__p_f_p_double_p_void__int = {"_p_f_p_double_p_void__int", "int (*)(double *,void *)", 0, 0, (void*)0, 0};
12304 static swig_type_info _swigt__p_f_p_gsl_matrix_p_gsl_vector_p_void__int = {"_p_f_p_gsl_matrix_p_gsl_vector_p_void__int", "int (*)(gsl_matrix *,gsl_vector *,void *)", 0, 0, (void*)0, 0};
12305 static swig_type_info _swigt__p_f_p_gsl_vector_p_gsl_vector_p_gsl_vector_p_void__int = {"_p_f_p_gsl_vector_p_gsl_vector_p_gsl_vector_p_void__int", "int (*)(gsl_vector *,gsl_vector *,gsl_vector *,void *)", 0, 0, (void*)0, 0};
12306 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};
12307 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};
12308 static swig_type_info _swigt__p_f_p_q_const__gsl_vector_p_gsl_vector__int = {"_p_f_p_q_const__gsl_vector_p_gsl_vector__int", "int (*)(gsl_vector const *,gsl_vector *)", 0, 0, (void*)0, 0};
12309 static swig_type_info _swigt__p_f_p_q_const__void__p_gsl_matrix = {"_p_f_p_q_const__void__p_gsl_matrix", "gsl_matrix *(*)(void const *)", 0, 0, (void*)0, 0};
12310 static swig_type_info _swigt__p_f_p_q_const__void__p_gsl_vector = {"_p_f_p_q_const__void__p_gsl_vector", "gsl_vector *(*)(void const *)", 0, 0, (void*)0, 0};
12311 static swig_type_info _swigt__p_f_p_void__int = {"_p_f_p_void__int", "int (*)(void *)", 0, 0, (void*)0, 0};
12312 static swig_type_info _swigt__p_f_p_void__void = {"_p_f_p_void__void", "void (*)(void *)", 0, 0, (void*)0, 0};
12313 static swig_type_info _swigt__p_f_q_const__double_p_gsl_vector_p_double_p_double_p_void__int = {"_p_f_q_const__double_p_gsl_vector_p_double_p_double_p_void__int", "int (*)(double const,gsl_vector *,double *,double *,void *)", 0, 0, (void*)0, 0};
12314 static swig_type_info _swigt__p_f_q_const__size_t__p_void = {"_p_f_q_const__size_t__p_void", "void *(*)(size_t const)", 0, 0, (void*)0, 0};
12315 static swig_type_info _swigt__p_gsl_function_fdf_struct = {"_p_gsl_function_fdf_struct", "struct gsl_function_fdf_struct *|gsl_function_fdf_struct *|gsl_function_fdf *", 0, 0, (void*)"Math::GSL::Multilarge::gsl_function_fdf_struct", 0};
12316 static swig_type_info _swigt__p_gsl_function_struct = {"_p_gsl_function_struct", "gsl_function *|struct gsl_function_struct *|gsl_function_struct *", 0, 0, (void*)"Math::GSL::Multilarge::gsl_function_struct", 0};
12317 static swig_type_info _swigt__p_gsl_function_vec_struct = {"_p_gsl_function_vec_struct", "gsl_function_vec *|struct gsl_function_vec_struct *|gsl_function_vec_struct *", 0, 0, (void*)"Math::GSL::Multilarge::gsl_function_vec_struct", 0};
12318 static swig_type_info _swigt__p_gsl_matrix = {"_p_gsl_matrix", "gsl_matrix *", 0, 0, (void*)0, 0};
12319 static swig_type_info _swigt__p_gsl_multifit_linear_workspace = {"_p_gsl_multifit_linear_workspace", "gsl_multifit_linear_workspace *", 0, 0, (void*)"Math::GSL::Multilarge::gsl_multifit_linear_workspace", 0};
12320 static swig_type_info _swigt__p_gsl_multifit_robust_stats = {"_p_gsl_multifit_robust_stats", "gsl_multifit_robust_stats *", 0, 0, (void*)"Math::GSL::Multilarge::gsl_multifit_robust_stats", 0};
12321 static swig_type_info _swigt__p_gsl_multifit_robust_type = {"_p_gsl_multifit_robust_type", "gsl_multifit_robust_type *", 0, 0, (void*)"Math::GSL::Multilarge::gsl_multifit_robust_type", 0};
12322 static swig_type_info _swigt__p_gsl_multifit_robust_workspace = {"_p_gsl_multifit_robust_workspace", "gsl_multifit_robust_workspace *", 0, 0, (void*)"Math::GSL::Multilarge::gsl_multifit_robust_workspace", 0};
12323 static swig_type_info _swigt__p_gsl_multilarge_linear_type = {"_p_gsl_multilarge_linear_type", "gsl_multilarge_linear_type *", 0, 0, (void*)"Math::GSL::Multilarge::gsl_multilarge_linear_type", 0};
12324 static swig_type_info _swigt__p_gsl_multilarge_linear_workspace = {"_p_gsl_multilarge_linear_workspace", "gsl_multilarge_linear_workspace *", 0, 0, (void*)"Math::GSL::Multilarge::gsl_multilarge_linear_workspace", 0};
12325 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::Multilarge::gsl_permutation_struct", 0};
12326 static swig_type_info _swigt__p_gsl_vector = {"_p_gsl_vector", "gsl_vector *", 0, 0, (void*)0, 0};
12327 static swig_type_info _swigt__p_size_t = {"_p_size_t", "size_t *", 0, 0, (void*)0, 0};
12328 static swig_type_info _swigt__p_void = {"_p_void", "void *", 0, 0, (void*)0, 0};
12329 
12330 static swig_type_info *swig_type_initial[] = {
12331   &_swigt__p_FILE,
12332   &_swigt__p_char,
12333   &_swigt__p_double,
12334   &_swigt__p_f_double_a___double_p_void__int,
12335   &_swigt__p_f_double_p_void__double,
12336   &_swigt__p_f_double_p_void_p_double_p_double__void,
12337   &_swigt__p_f_p_double_p_void__int,
12338   &_swigt__p_f_p_gsl_matrix_p_gsl_vector_p_void__int,
12339   &_swigt__p_f_p_gsl_vector_p_gsl_vector_p_gsl_vector_p_void__int,
12340   &_swigt__p_f_p_q_const__char_p_q_const__char_int_int__void,
12341   &_swigt__p_f_p_q_const__char_p_q_const__char_int_p_q_const__char__void,
12342   &_swigt__p_f_p_q_const__gsl_vector_p_gsl_vector__int,
12343   &_swigt__p_f_p_q_const__void__p_gsl_matrix,
12344   &_swigt__p_f_p_q_const__void__p_gsl_vector,
12345   &_swigt__p_f_p_void__int,
12346   &_swigt__p_f_p_void__void,
12347   &_swigt__p_f_q_const__double_p_gsl_vector_p_double_p_double_p_void__int,
12348   &_swigt__p_f_q_const__size_t__p_void,
12349   &_swigt__p_gsl_function_fdf_struct,
12350   &_swigt__p_gsl_function_struct,
12351   &_swigt__p_gsl_function_vec_struct,
12352   &_swigt__p_gsl_matrix,
12353   &_swigt__p_gsl_multifit_linear_workspace,
12354   &_swigt__p_gsl_multifit_robust_stats,
12355   &_swigt__p_gsl_multifit_robust_type,
12356   &_swigt__p_gsl_multifit_robust_workspace,
12357   &_swigt__p_gsl_multilarge_linear_type,
12358   &_swigt__p_gsl_multilarge_linear_workspace,
12359   &_swigt__p_gsl_permutation_struct,
12360   &_swigt__p_gsl_vector,
12361   &_swigt__p_size_t,
12362   &_swigt__p_void,
12363 };
12364 
12365 static swig_cast_info _swigc__p_FILE[] = {  {&_swigt__p_FILE, 0, 0, 0},{0, 0, 0, 0}};
12366 static swig_cast_info _swigc__p_char[] = {  {&_swigt__p_char, 0, 0, 0},{0, 0, 0, 0}};
12367 static swig_cast_info _swigc__p_double[] = {  {&_swigt__p_double, 0, 0, 0},{0, 0, 0, 0}};
12368 static swig_cast_info _swigc__p_f_double_a___double_p_void__int[] = {  {&_swigt__p_f_double_a___double_p_void__int, 0, 0, 0},{0, 0, 0, 0}};
12369 static swig_cast_info _swigc__p_f_double_p_void__double[] = {  {&_swigt__p_f_double_p_void__double, 0, 0, 0},{0, 0, 0, 0}};
12370 static swig_cast_info _swigc__p_f_double_p_void_p_double_p_double__void[] = {  {&_swigt__p_f_double_p_void_p_double_p_double__void, 0, 0, 0},{0, 0, 0, 0}};
12371 static swig_cast_info _swigc__p_f_p_double_p_void__int[] = {  {&_swigt__p_f_p_double_p_void__int, 0, 0, 0},{0, 0, 0, 0}};
12372 static swig_cast_info _swigc__p_f_p_gsl_matrix_p_gsl_vector_p_void__int[] = {  {&_swigt__p_f_p_gsl_matrix_p_gsl_vector_p_void__int, 0, 0, 0},{0, 0, 0, 0}};
12373 static swig_cast_info _swigc__p_f_p_gsl_vector_p_gsl_vector_p_gsl_vector_p_void__int[] = {  {&_swigt__p_f_p_gsl_vector_p_gsl_vector_p_gsl_vector_p_void__int, 0, 0, 0},{0, 0, 0, 0}};
12374 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}};
12375 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}};
12376 static swig_cast_info _swigc__p_f_p_q_const__gsl_vector_p_gsl_vector__int[] = {  {&_swigt__p_f_p_q_const__gsl_vector_p_gsl_vector__int, 0, 0, 0},{0, 0, 0, 0}};
12377 static swig_cast_info _swigc__p_f_p_q_const__void__p_gsl_matrix[] = {  {&_swigt__p_f_p_q_const__void__p_gsl_matrix, 0, 0, 0},{0, 0, 0, 0}};
12378 static swig_cast_info _swigc__p_f_p_q_const__void__p_gsl_vector[] = {  {&_swigt__p_f_p_q_const__void__p_gsl_vector, 0, 0, 0},{0, 0, 0, 0}};
12379 static swig_cast_info _swigc__p_f_p_void__int[] = {  {&_swigt__p_f_p_void__int, 0, 0, 0},{0, 0, 0, 0}};
12380 static swig_cast_info _swigc__p_f_p_void__void[] = {  {&_swigt__p_f_p_void__void, 0, 0, 0},{0, 0, 0, 0}};
12381 static swig_cast_info _swigc__p_f_q_const__double_p_gsl_vector_p_double_p_double_p_void__int[] = {  {&_swigt__p_f_q_const__double_p_gsl_vector_p_double_p_double_p_void__int, 0, 0, 0},{0, 0, 0, 0}};
12382 static swig_cast_info _swigc__p_f_q_const__size_t__p_void[] = {  {&_swigt__p_f_q_const__size_t__p_void, 0, 0, 0},{0, 0, 0, 0}};
12383 static swig_cast_info _swigc__p_gsl_function_fdf_struct[] = {  {&_swigt__p_gsl_function_fdf_struct, 0, 0, 0},{0, 0, 0, 0}};
12384 static swig_cast_info _swigc__p_gsl_function_struct[] = {  {&_swigt__p_gsl_function_struct, 0, 0, 0},{0, 0, 0, 0}};
12385 static swig_cast_info _swigc__p_gsl_function_vec_struct[] = {  {&_swigt__p_gsl_function_vec_struct, 0, 0, 0},{0, 0, 0, 0}};
12386 static swig_cast_info _swigc__p_gsl_matrix[] = {  {&_swigt__p_gsl_matrix, 0, 0, 0},{0, 0, 0, 0}};
12387 static swig_cast_info _swigc__p_gsl_multifit_linear_workspace[] = {  {&_swigt__p_gsl_multifit_linear_workspace, 0, 0, 0},{0, 0, 0, 0}};
12388 static swig_cast_info _swigc__p_gsl_multifit_robust_stats[] = {  {&_swigt__p_gsl_multifit_robust_stats, 0, 0, 0},{0, 0, 0, 0}};
12389 static swig_cast_info _swigc__p_gsl_multifit_robust_type[] = {  {&_swigt__p_gsl_multifit_robust_type, 0, 0, 0},{0, 0, 0, 0}};
12390 static swig_cast_info _swigc__p_gsl_multifit_robust_workspace[] = {  {&_swigt__p_gsl_multifit_robust_workspace, 0, 0, 0},{0, 0, 0, 0}};
12391 static swig_cast_info _swigc__p_gsl_multilarge_linear_type[] = {  {&_swigt__p_gsl_multilarge_linear_type, 0, 0, 0},{0, 0, 0, 0}};
12392 static swig_cast_info _swigc__p_gsl_multilarge_linear_workspace[] = {  {&_swigt__p_gsl_multilarge_linear_workspace, 0, 0, 0},{0, 0, 0, 0}};
12393 static swig_cast_info _swigc__p_gsl_permutation_struct[] = {  {&_swigt__p_gsl_permutation_struct, 0, 0, 0},{0, 0, 0, 0}};
12394 static swig_cast_info _swigc__p_gsl_vector[] = {  {&_swigt__p_gsl_vector, 0, 0, 0},{0, 0, 0, 0}};
12395 static swig_cast_info _swigc__p_size_t[] = {  {&_swigt__p_size_t, 0, 0, 0},{0, 0, 0, 0}};
12396 static swig_cast_info _swigc__p_void[] = {  {&_swigt__p_void, 0, 0, 0},{0, 0, 0, 0}};
12397 
12398 static swig_cast_info *swig_cast_initial[] = {
12399   _swigc__p_FILE,
12400   _swigc__p_char,
12401   _swigc__p_double,
12402   _swigc__p_f_double_a___double_p_void__int,
12403   _swigc__p_f_double_p_void__double,
12404   _swigc__p_f_double_p_void_p_double_p_double__void,
12405   _swigc__p_f_p_double_p_void__int,
12406   _swigc__p_f_p_gsl_matrix_p_gsl_vector_p_void__int,
12407   _swigc__p_f_p_gsl_vector_p_gsl_vector_p_gsl_vector_p_void__int,
12408   _swigc__p_f_p_q_const__char_p_q_const__char_int_int__void,
12409   _swigc__p_f_p_q_const__char_p_q_const__char_int_p_q_const__char__void,
12410   _swigc__p_f_p_q_const__gsl_vector_p_gsl_vector__int,
12411   _swigc__p_f_p_q_const__void__p_gsl_matrix,
12412   _swigc__p_f_p_q_const__void__p_gsl_vector,
12413   _swigc__p_f_p_void__int,
12414   _swigc__p_f_p_void__void,
12415   _swigc__p_f_q_const__double_p_gsl_vector_p_double_p_double_p_void__int,
12416   _swigc__p_f_q_const__size_t__p_void,
12417   _swigc__p_gsl_function_fdf_struct,
12418   _swigc__p_gsl_function_struct,
12419   _swigc__p_gsl_function_vec_struct,
12420   _swigc__p_gsl_matrix,
12421   _swigc__p_gsl_multifit_linear_workspace,
12422   _swigc__p_gsl_multifit_robust_stats,
12423   _swigc__p_gsl_multifit_robust_type,
12424   _swigc__p_gsl_multifit_robust_workspace,
12425   _swigc__p_gsl_multilarge_linear_type,
12426   _swigc__p_gsl_multilarge_linear_workspace,
12427   _swigc__p_gsl_permutation_struct,
12428   _swigc__p_gsl_vector,
12429   _swigc__p_size_t,
12430   _swigc__p_void,
12431 };
12432 
12433 
12434 /* -------- TYPE CONVERSION AND EQUIVALENCE RULES (END) -------- */
12435 
12436 static swig_constant_info swig_constants[] = {
12437 {0,0,0,0,0,0}
12438 };
12439 #ifdef __cplusplus
12440 }
12441 #endif
12442 static swig_variable_info swig_variables[] = {
12443     { "Math::GSL::Multilargec::gsl_multifit_robust_default", MAGIC_CLASS _wrap_gsl_multifit_robust_default_set, MAGIC_CLASS _wrap_gsl_multifit_robust_default_get,&SWIGTYPE_p_gsl_multifit_robust_type },
12444     { "Math::GSL::Multilargec::gsl_multifit_robust_bisquare", MAGIC_CLASS _wrap_gsl_multifit_robust_bisquare_set, MAGIC_CLASS _wrap_gsl_multifit_robust_bisquare_get,&SWIGTYPE_p_gsl_multifit_robust_type },
12445     { "Math::GSL::Multilargec::gsl_multifit_robust_cauchy", MAGIC_CLASS _wrap_gsl_multifit_robust_cauchy_set, MAGIC_CLASS _wrap_gsl_multifit_robust_cauchy_get,&SWIGTYPE_p_gsl_multifit_robust_type },
12446     { "Math::GSL::Multilargec::gsl_multifit_robust_fair", MAGIC_CLASS _wrap_gsl_multifit_robust_fair_set, MAGIC_CLASS _wrap_gsl_multifit_robust_fair_get,&SWIGTYPE_p_gsl_multifit_robust_type },
12447     { "Math::GSL::Multilargec::gsl_multifit_robust_huber", MAGIC_CLASS _wrap_gsl_multifit_robust_huber_set, MAGIC_CLASS _wrap_gsl_multifit_robust_huber_get,&SWIGTYPE_p_gsl_multifit_robust_type },
12448     { "Math::GSL::Multilargec::gsl_multifit_robust_ols", MAGIC_CLASS _wrap_gsl_multifit_robust_ols_set, MAGIC_CLASS _wrap_gsl_multifit_robust_ols_get,&SWIGTYPE_p_gsl_multifit_robust_type },
12449     { "Math::GSL::Multilargec::gsl_multifit_robust_welsch", MAGIC_CLASS _wrap_gsl_multifit_robust_welsch_set, MAGIC_CLASS _wrap_gsl_multifit_robust_welsch_get,&SWIGTYPE_p_gsl_multifit_robust_type },
12450     { "Math::GSL::Multilargec::gsl_multilarge_linear_normal", MAGIC_CLASS _wrap_gsl_multilarge_linear_normal_set, MAGIC_CLASS _wrap_gsl_multilarge_linear_normal_get,&SWIGTYPE_p_gsl_multilarge_linear_type },
12451     { "Math::GSL::Multilargec::gsl_multilarge_linear_tsqr", MAGIC_CLASS _wrap_gsl_multilarge_linear_tsqr_set, MAGIC_CLASS _wrap_gsl_multilarge_linear_tsqr_get,&SWIGTYPE_p_gsl_multilarge_linear_type },
12452 {0,0,0,0}
12453 };
12454 static swig_command_info swig_commands[] = {
12455 {"Math::GSL::Multilargec::gsl_error", _wrap_gsl_error},
12456 {"Math::GSL::Multilargec::gsl_stream_printf", _wrap_gsl_stream_printf},
12457 {"Math::GSL::Multilargec::gsl_strerror", _wrap_gsl_strerror},
12458 {"Math::GSL::Multilargec::gsl_set_error_handler", _wrap_gsl_set_error_handler},
12459 {"Math::GSL::Multilargec::gsl_set_error_handler_off", _wrap_gsl_set_error_handler_off},
12460 {"Math::GSL::Multilargec::gsl_set_stream_handler", _wrap_gsl_set_stream_handler},
12461 {"Math::GSL::Multilargec::gsl_set_stream", _wrap_gsl_set_stream},
12462 {"Math::GSL::Multilargec::gsl_function_struct_function_set", _wrap_gsl_function_struct_function_set},
12463 {"Math::GSL::Multilargec::gsl_function_struct_function_get", _wrap_gsl_function_struct_function_get},
12464 {"Math::GSL::Multilargec::gsl_function_struct_params_set", _wrap_gsl_function_struct_params_set},
12465 {"Math::GSL::Multilargec::gsl_function_struct_params_get", _wrap_gsl_function_struct_params_get},
12466 {"Math::GSL::Multilargec::new_gsl_function_struct", _wrap_new_gsl_function_struct},
12467 {"Math::GSL::Multilargec::delete_gsl_function_struct", _wrap_delete_gsl_function_struct},
12468 {"Math::GSL::Multilargec::gsl_function_fdf_struct_f_set", _wrap_gsl_function_fdf_struct_f_set},
12469 {"Math::GSL::Multilargec::gsl_function_fdf_struct_f_get", _wrap_gsl_function_fdf_struct_f_get},
12470 {"Math::GSL::Multilargec::gsl_function_fdf_struct_df_set", _wrap_gsl_function_fdf_struct_df_set},
12471 {"Math::GSL::Multilargec::gsl_function_fdf_struct_df_get", _wrap_gsl_function_fdf_struct_df_get},
12472 {"Math::GSL::Multilargec::gsl_function_fdf_struct_fdf_set", _wrap_gsl_function_fdf_struct_fdf_set},
12473 {"Math::GSL::Multilargec::gsl_function_fdf_struct_fdf_get", _wrap_gsl_function_fdf_struct_fdf_get},
12474 {"Math::GSL::Multilargec::gsl_function_fdf_struct_params_set", _wrap_gsl_function_fdf_struct_params_set},
12475 {"Math::GSL::Multilargec::gsl_function_fdf_struct_params_get", _wrap_gsl_function_fdf_struct_params_get},
12476 {"Math::GSL::Multilargec::new_gsl_function_fdf_struct", _wrap_new_gsl_function_fdf_struct},
12477 {"Math::GSL::Multilargec::delete_gsl_function_fdf_struct", _wrap_delete_gsl_function_fdf_struct},
12478 {"Math::GSL::Multilargec::gsl_function_vec_struct_function_set", _wrap_gsl_function_vec_struct_function_set},
12479 {"Math::GSL::Multilargec::gsl_function_vec_struct_function_get", _wrap_gsl_function_vec_struct_function_get},
12480 {"Math::GSL::Multilargec::gsl_function_vec_struct_params_set", _wrap_gsl_function_vec_struct_params_set},
12481 {"Math::GSL::Multilargec::gsl_function_vec_struct_params_get", _wrap_gsl_function_vec_struct_params_get},
12482 {"Math::GSL::Multilargec::new_gsl_function_vec_struct", _wrap_new_gsl_function_vec_struct},
12483 {"Math::GSL::Multilargec::delete_gsl_function_vec_struct", _wrap_delete_gsl_function_vec_struct},
12484 {"Math::GSL::Multilargec::gsl_permutation_struct_size_set", _wrap_gsl_permutation_struct_size_set},
12485 {"Math::GSL::Multilargec::gsl_permutation_struct_size_get", _wrap_gsl_permutation_struct_size_get},
12486 {"Math::GSL::Multilargec::gsl_permutation_struct_data_set", _wrap_gsl_permutation_struct_data_set},
12487 {"Math::GSL::Multilargec::gsl_permutation_struct_data_get", _wrap_gsl_permutation_struct_data_get},
12488 {"Math::GSL::Multilargec::new_gsl_permutation_struct", _wrap_new_gsl_permutation_struct},
12489 {"Math::GSL::Multilargec::delete_gsl_permutation_struct", _wrap_delete_gsl_permutation_struct},
12490 {"Math::GSL::Multilargec::gsl_permutation_alloc", _wrap_gsl_permutation_alloc},
12491 {"Math::GSL::Multilargec::gsl_permutation_calloc", _wrap_gsl_permutation_calloc},
12492 {"Math::GSL::Multilargec::gsl_permutation_init", _wrap_gsl_permutation_init},
12493 {"Math::GSL::Multilargec::gsl_permutation_free", _wrap_gsl_permutation_free},
12494 {"Math::GSL::Multilargec::gsl_permutation_memcpy", _wrap_gsl_permutation_memcpy},
12495 {"Math::GSL::Multilargec::gsl_permutation_fread", _wrap_gsl_permutation_fread},
12496 {"Math::GSL::Multilargec::gsl_permutation_fwrite", _wrap_gsl_permutation_fwrite},
12497 {"Math::GSL::Multilargec::gsl_permutation_fscanf", _wrap_gsl_permutation_fscanf},
12498 {"Math::GSL::Multilargec::gsl_permutation_fprintf", _wrap_gsl_permutation_fprintf},
12499 {"Math::GSL::Multilargec::gsl_permutation_size", _wrap_gsl_permutation_size},
12500 {"Math::GSL::Multilargec::gsl_permutation_data", _wrap_gsl_permutation_data},
12501 {"Math::GSL::Multilargec::gsl_permutation_swap", _wrap_gsl_permutation_swap},
12502 {"Math::GSL::Multilargec::gsl_permutation_valid", _wrap_gsl_permutation_valid},
12503 {"Math::GSL::Multilargec::gsl_permutation_reverse", _wrap_gsl_permutation_reverse},
12504 {"Math::GSL::Multilargec::gsl_permutation_inverse", _wrap_gsl_permutation_inverse},
12505 {"Math::GSL::Multilargec::gsl_permutation_next", _wrap_gsl_permutation_next},
12506 {"Math::GSL::Multilargec::gsl_permutation_prev", _wrap_gsl_permutation_prev},
12507 {"Math::GSL::Multilargec::gsl_permutation_mul", _wrap_gsl_permutation_mul},
12508 {"Math::GSL::Multilargec::gsl_permutation_linear_to_canonical", _wrap_gsl_permutation_linear_to_canonical},
12509 {"Math::GSL::Multilargec::gsl_permutation_canonical_to_linear", _wrap_gsl_permutation_canonical_to_linear},
12510 {"Math::GSL::Multilargec::gsl_permutation_inversions", _wrap_gsl_permutation_inversions},
12511 {"Math::GSL::Multilargec::gsl_permutation_linear_cycles", _wrap_gsl_permutation_linear_cycles},
12512 {"Math::GSL::Multilargec::gsl_permutation_canonical_cycles", _wrap_gsl_permutation_canonical_cycles},
12513 {"Math::GSL::Multilargec::gsl_permutation_get", _wrap_gsl_permutation_get},
12514 {"Math::GSL::Multilargec::gsl_multifit_linear_workspace_nmax_set", _wrap_gsl_multifit_linear_workspace_nmax_set},
12515 {"Math::GSL::Multilargec::gsl_multifit_linear_workspace_nmax_get", _wrap_gsl_multifit_linear_workspace_nmax_get},
12516 {"Math::GSL::Multilargec::gsl_multifit_linear_workspace_pmax_set", _wrap_gsl_multifit_linear_workspace_pmax_set},
12517 {"Math::GSL::Multilargec::gsl_multifit_linear_workspace_pmax_get", _wrap_gsl_multifit_linear_workspace_pmax_get},
12518 {"Math::GSL::Multilargec::gsl_multifit_linear_workspace_n_set", _wrap_gsl_multifit_linear_workspace_n_set},
12519 {"Math::GSL::Multilargec::gsl_multifit_linear_workspace_n_get", _wrap_gsl_multifit_linear_workspace_n_get},
12520 {"Math::GSL::Multilargec::gsl_multifit_linear_workspace_p_set", _wrap_gsl_multifit_linear_workspace_p_set},
12521 {"Math::GSL::Multilargec::gsl_multifit_linear_workspace_p_get", _wrap_gsl_multifit_linear_workspace_p_get},
12522 {"Math::GSL::Multilargec::gsl_multifit_linear_workspace_A_set", _wrap_gsl_multifit_linear_workspace_A_set},
12523 {"Math::GSL::Multilargec::gsl_multifit_linear_workspace_A_get", _wrap_gsl_multifit_linear_workspace_A_get},
12524 {"Math::GSL::Multilargec::gsl_multifit_linear_workspace_Q_set", _wrap_gsl_multifit_linear_workspace_Q_set},
12525 {"Math::GSL::Multilargec::gsl_multifit_linear_workspace_Q_get", _wrap_gsl_multifit_linear_workspace_Q_get},
12526 {"Math::GSL::Multilargec::gsl_multifit_linear_workspace_QSI_set", _wrap_gsl_multifit_linear_workspace_QSI_set},
12527 {"Math::GSL::Multilargec::gsl_multifit_linear_workspace_QSI_get", _wrap_gsl_multifit_linear_workspace_QSI_get},
12528 {"Math::GSL::Multilargec::gsl_multifit_linear_workspace_S_set", _wrap_gsl_multifit_linear_workspace_S_set},
12529 {"Math::GSL::Multilargec::gsl_multifit_linear_workspace_S_get", _wrap_gsl_multifit_linear_workspace_S_get},
12530 {"Math::GSL::Multilargec::gsl_multifit_linear_workspace_t_set", _wrap_gsl_multifit_linear_workspace_t_set},
12531 {"Math::GSL::Multilargec::gsl_multifit_linear_workspace_t_get", _wrap_gsl_multifit_linear_workspace_t_get},
12532 {"Math::GSL::Multilargec::gsl_multifit_linear_workspace_xt_set", _wrap_gsl_multifit_linear_workspace_xt_set},
12533 {"Math::GSL::Multilargec::gsl_multifit_linear_workspace_xt_get", _wrap_gsl_multifit_linear_workspace_xt_get},
12534 {"Math::GSL::Multilargec::gsl_multifit_linear_workspace_D_set", _wrap_gsl_multifit_linear_workspace_D_set},
12535 {"Math::GSL::Multilargec::gsl_multifit_linear_workspace_D_get", _wrap_gsl_multifit_linear_workspace_D_get},
12536 {"Math::GSL::Multilargec::gsl_multifit_linear_workspace_rcond_set", _wrap_gsl_multifit_linear_workspace_rcond_set},
12537 {"Math::GSL::Multilargec::gsl_multifit_linear_workspace_rcond_get", _wrap_gsl_multifit_linear_workspace_rcond_get},
12538 {"Math::GSL::Multilargec::new_gsl_multifit_linear_workspace", _wrap_new_gsl_multifit_linear_workspace},
12539 {"Math::GSL::Multilargec::delete_gsl_multifit_linear_workspace", _wrap_delete_gsl_multifit_linear_workspace},
12540 {"Math::GSL::Multilargec::gsl_multifit_linear_alloc", _wrap_gsl_multifit_linear_alloc},
12541 {"Math::GSL::Multilargec::gsl_multifit_linear_free", _wrap_gsl_multifit_linear_free},
12542 {"Math::GSL::Multilargec::gsl_multifit_linear", _wrap_gsl_multifit_linear},
12543 {"Math::GSL::Multilargec::gsl_multifit_linear_tsvd", _wrap_gsl_multifit_linear_tsvd},
12544 {"Math::GSL::Multilargec::gsl_multifit_linear_svd", _wrap_gsl_multifit_linear_svd},
12545 {"Math::GSL::Multilargec::gsl_multifit_linear_bsvd", _wrap_gsl_multifit_linear_bsvd},
12546 {"Math::GSL::Multilargec::gsl_multifit_linear_rank", _wrap_gsl_multifit_linear_rank},
12547 {"Math::GSL::Multilargec::gsl_multifit_linear_solve", _wrap_gsl_multifit_linear_solve},
12548 {"Math::GSL::Multilargec::gsl_multifit_linear_applyW", _wrap_gsl_multifit_linear_applyW},
12549 {"Math::GSL::Multilargec::gsl_multifit_linear_stdform1", _wrap_gsl_multifit_linear_stdform1},
12550 {"Math::GSL::Multilargec::gsl_multifit_linear_wstdform1", _wrap_gsl_multifit_linear_wstdform1},
12551 {"Math::GSL::Multilargec::gsl_multifit_linear_L_decomp", _wrap_gsl_multifit_linear_L_decomp},
12552 {"Math::GSL::Multilargec::gsl_multifit_linear_stdform2", _wrap_gsl_multifit_linear_stdform2},
12553 {"Math::GSL::Multilargec::gsl_multifit_linear_wstdform2", _wrap_gsl_multifit_linear_wstdform2},
12554 {"Math::GSL::Multilargec::gsl_multifit_linear_genform1", _wrap_gsl_multifit_linear_genform1},
12555 {"Math::GSL::Multilargec::gsl_multifit_linear_genform2", _wrap_gsl_multifit_linear_genform2},
12556 {"Math::GSL::Multilargec::gsl_multifit_linear_wgenform2", _wrap_gsl_multifit_linear_wgenform2},
12557 {"Math::GSL::Multilargec::gsl_multifit_linear_lreg", _wrap_gsl_multifit_linear_lreg},
12558 {"Math::GSL::Multilargec::gsl_multifit_linear_lcurve", _wrap_gsl_multifit_linear_lcurve},
12559 {"Math::GSL::Multilargec::gsl_multifit_linear_lcurvature", _wrap_gsl_multifit_linear_lcurvature},
12560 {"Math::GSL::Multilargec::gsl_multifit_linear_lcorner", _wrap_gsl_multifit_linear_lcorner},
12561 {"Math::GSL::Multilargec::gsl_multifit_linear_lcorner2", _wrap_gsl_multifit_linear_lcorner2},
12562 {"Math::GSL::Multilargec::gsl_multifit_linear_Lk", _wrap_gsl_multifit_linear_Lk},
12563 {"Math::GSL::Multilargec::gsl_multifit_linear_Lsobolev", _wrap_gsl_multifit_linear_Lsobolev},
12564 {"Math::GSL::Multilargec::gsl_multifit_wlinear", _wrap_gsl_multifit_wlinear},
12565 {"Math::GSL::Multilargec::gsl_multifit_wlinear_tsvd", _wrap_gsl_multifit_wlinear_tsvd},
12566 {"Math::GSL::Multilargec::gsl_multifit_wlinear_svd", _wrap_gsl_multifit_wlinear_svd},
12567 {"Math::GSL::Multilargec::gsl_multifit_wlinear_usvd", _wrap_gsl_multifit_wlinear_usvd},
12568 {"Math::GSL::Multilargec::gsl_multifit_linear_est", _wrap_gsl_multifit_linear_est},
12569 {"Math::GSL::Multilargec::gsl_multifit_linear_rcond", _wrap_gsl_multifit_linear_rcond},
12570 {"Math::GSL::Multilargec::gsl_multifit_linear_residuals", _wrap_gsl_multifit_linear_residuals},
12571 {"Math::GSL::Multilargec::gsl_multifit_linear_gcv_init", _wrap_gsl_multifit_linear_gcv_init},
12572 {"Math::GSL::Multilargec::gsl_multifit_linear_gcv_curve", _wrap_gsl_multifit_linear_gcv_curve},
12573 {"Math::GSL::Multilargec::gsl_multifit_linear_gcv_min", _wrap_gsl_multifit_linear_gcv_min},
12574 {"Math::GSL::Multilargec::gsl_multifit_linear_gcv_calc", _wrap_gsl_multifit_linear_gcv_calc},
12575 {"Math::GSL::Multilargec::gsl_multifit_linear_gcv", _wrap_gsl_multifit_linear_gcv},
12576 {"Math::GSL::Multilargec::gsl_multifit_robust_type_name_set", _wrap_gsl_multifit_robust_type_name_set},
12577 {"Math::GSL::Multilargec::gsl_multifit_robust_type_name_get", _wrap_gsl_multifit_robust_type_name_get},
12578 {"Math::GSL::Multilargec::gsl_multifit_robust_type_wfun_set", _wrap_gsl_multifit_robust_type_wfun_set},
12579 {"Math::GSL::Multilargec::gsl_multifit_robust_type_wfun_get", _wrap_gsl_multifit_robust_type_wfun_get},
12580 {"Math::GSL::Multilargec::gsl_multifit_robust_type_psi_deriv_set", _wrap_gsl_multifit_robust_type_psi_deriv_set},
12581 {"Math::GSL::Multilargec::gsl_multifit_robust_type_psi_deriv_get", _wrap_gsl_multifit_robust_type_psi_deriv_get},
12582 {"Math::GSL::Multilargec::gsl_multifit_robust_type_tuning_default_set", _wrap_gsl_multifit_robust_type_tuning_default_set},
12583 {"Math::GSL::Multilargec::gsl_multifit_robust_type_tuning_default_get", _wrap_gsl_multifit_robust_type_tuning_default_get},
12584 {"Math::GSL::Multilargec::new_gsl_multifit_robust_type", _wrap_new_gsl_multifit_robust_type},
12585 {"Math::GSL::Multilargec::delete_gsl_multifit_robust_type", _wrap_delete_gsl_multifit_robust_type},
12586 {"Math::GSL::Multilargec::gsl_multifit_robust_stats_sigma_ols_set", _wrap_gsl_multifit_robust_stats_sigma_ols_set},
12587 {"Math::GSL::Multilargec::gsl_multifit_robust_stats_sigma_ols_get", _wrap_gsl_multifit_robust_stats_sigma_ols_get},
12588 {"Math::GSL::Multilargec::gsl_multifit_robust_stats_sigma_mad_set", _wrap_gsl_multifit_robust_stats_sigma_mad_set},
12589 {"Math::GSL::Multilargec::gsl_multifit_robust_stats_sigma_mad_get", _wrap_gsl_multifit_robust_stats_sigma_mad_get},
12590 {"Math::GSL::Multilargec::gsl_multifit_robust_stats_sigma_rob_set", _wrap_gsl_multifit_robust_stats_sigma_rob_set},
12591 {"Math::GSL::Multilargec::gsl_multifit_robust_stats_sigma_rob_get", _wrap_gsl_multifit_robust_stats_sigma_rob_get},
12592 {"Math::GSL::Multilargec::gsl_multifit_robust_stats_sigma_set", _wrap_gsl_multifit_robust_stats_sigma_set},
12593 {"Math::GSL::Multilargec::gsl_multifit_robust_stats_sigma_get", _wrap_gsl_multifit_robust_stats_sigma_get},
12594 {"Math::GSL::Multilargec::gsl_multifit_robust_stats_Rsq_set", _wrap_gsl_multifit_robust_stats_Rsq_set},
12595 {"Math::GSL::Multilargec::gsl_multifit_robust_stats_Rsq_get", _wrap_gsl_multifit_robust_stats_Rsq_get},
12596 {"Math::GSL::Multilargec::gsl_multifit_robust_stats_adj_Rsq_set", _wrap_gsl_multifit_robust_stats_adj_Rsq_set},
12597 {"Math::GSL::Multilargec::gsl_multifit_robust_stats_adj_Rsq_get", _wrap_gsl_multifit_robust_stats_adj_Rsq_get},
12598 {"Math::GSL::Multilargec::gsl_multifit_robust_stats_rmse_set", _wrap_gsl_multifit_robust_stats_rmse_set},
12599 {"Math::GSL::Multilargec::gsl_multifit_robust_stats_rmse_get", _wrap_gsl_multifit_robust_stats_rmse_get},
12600 {"Math::GSL::Multilargec::gsl_multifit_robust_stats_sse_set", _wrap_gsl_multifit_robust_stats_sse_set},
12601 {"Math::GSL::Multilargec::gsl_multifit_robust_stats_sse_get", _wrap_gsl_multifit_robust_stats_sse_get},
12602 {"Math::GSL::Multilargec::gsl_multifit_robust_stats_dof_set", _wrap_gsl_multifit_robust_stats_dof_set},
12603 {"Math::GSL::Multilargec::gsl_multifit_robust_stats_dof_get", _wrap_gsl_multifit_robust_stats_dof_get},
12604 {"Math::GSL::Multilargec::gsl_multifit_robust_stats_numit_set", _wrap_gsl_multifit_robust_stats_numit_set},
12605 {"Math::GSL::Multilargec::gsl_multifit_robust_stats_numit_get", _wrap_gsl_multifit_robust_stats_numit_get},
12606 {"Math::GSL::Multilargec::gsl_multifit_robust_stats_weights_set", _wrap_gsl_multifit_robust_stats_weights_set},
12607 {"Math::GSL::Multilargec::gsl_multifit_robust_stats_weights_get", _wrap_gsl_multifit_robust_stats_weights_get},
12608 {"Math::GSL::Multilargec::gsl_multifit_robust_stats_r_set", _wrap_gsl_multifit_robust_stats_r_set},
12609 {"Math::GSL::Multilargec::gsl_multifit_robust_stats_r_get", _wrap_gsl_multifit_robust_stats_r_get},
12610 {"Math::GSL::Multilargec::new_gsl_multifit_robust_stats", _wrap_new_gsl_multifit_robust_stats},
12611 {"Math::GSL::Multilargec::delete_gsl_multifit_robust_stats", _wrap_delete_gsl_multifit_robust_stats},
12612 {"Math::GSL::Multilargec::gsl_multifit_robust_workspace_n_set", _wrap_gsl_multifit_robust_workspace_n_set},
12613 {"Math::GSL::Multilargec::gsl_multifit_robust_workspace_n_get", _wrap_gsl_multifit_robust_workspace_n_get},
12614 {"Math::GSL::Multilargec::gsl_multifit_robust_workspace_p_set", _wrap_gsl_multifit_robust_workspace_p_set},
12615 {"Math::GSL::Multilargec::gsl_multifit_robust_workspace_p_get", _wrap_gsl_multifit_robust_workspace_p_get},
12616 {"Math::GSL::Multilargec::gsl_multifit_robust_workspace_numit_set", _wrap_gsl_multifit_robust_workspace_numit_set},
12617 {"Math::GSL::Multilargec::gsl_multifit_robust_workspace_numit_get", _wrap_gsl_multifit_robust_workspace_numit_get},
12618 {"Math::GSL::Multilargec::gsl_multifit_robust_workspace_maxiter_set", _wrap_gsl_multifit_robust_workspace_maxiter_set},
12619 {"Math::GSL::Multilargec::gsl_multifit_robust_workspace_maxiter_get", _wrap_gsl_multifit_robust_workspace_maxiter_get},
12620 {"Math::GSL::Multilargec::gsl_multifit_robust_workspace_type_set", _wrap_gsl_multifit_robust_workspace_type_set},
12621 {"Math::GSL::Multilargec::gsl_multifit_robust_workspace_type_get", _wrap_gsl_multifit_robust_workspace_type_get},
12622 {"Math::GSL::Multilargec::gsl_multifit_robust_workspace_tune_set", _wrap_gsl_multifit_robust_workspace_tune_set},
12623 {"Math::GSL::Multilargec::gsl_multifit_robust_workspace_tune_get", _wrap_gsl_multifit_robust_workspace_tune_get},
12624 {"Math::GSL::Multilargec::gsl_multifit_robust_workspace_r_set", _wrap_gsl_multifit_robust_workspace_r_set},
12625 {"Math::GSL::Multilargec::gsl_multifit_robust_workspace_r_get", _wrap_gsl_multifit_robust_workspace_r_get},
12626 {"Math::GSL::Multilargec::gsl_multifit_robust_workspace_weights_set", _wrap_gsl_multifit_robust_workspace_weights_set},
12627 {"Math::GSL::Multilargec::gsl_multifit_robust_workspace_weights_get", _wrap_gsl_multifit_robust_workspace_weights_get},
12628 {"Math::GSL::Multilargec::gsl_multifit_robust_workspace_c_prev_set", _wrap_gsl_multifit_robust_workspace_c_prev_set},
12629 {"Math::GSL::Multilargec::gsl_multifit_robust_workspace_c_prev_get", _wrap_gsl_multifit_robust_workspace_c_prev_get},
12630 {"Math::GSL::Multilargec::gsl_multifit_robust_workspace_resfac_set", _wrap_gsl_multifit_robust_workspace_resfac_set},
12631 {"Math::GSL::Multilargec::gsl_multifit_robust_workspace_resfac_get", _wrap_gsl_multifit_robust_workspace_resfac_get},
12632 {"Math::GSL::Multilargec::gsl_multifit_robust_workspace_psi_set", _wrap_gsl_multifit_robust_workspace_psi_set},
12633 {"Math::GSL::Multilargec::gsl_multifit_robust_workspace_psi_get", _wrap_gsl_multifit_robust_workspace_psi_get},
12634 {"Math::GSL::Multilargec::gsl_multifit_robust_workspace_dpsi_set", _wrap_gsl_multifit_robust_workspace_dpsi_set},
12635 {"Math::GSL::Multilargec::gsl_multifit_robust_workspace_dpsi_get", _wrap_gsl_multifit_robust_workspace_dpsi_get},
12636 {"Math::GSL::Multilargec::gsl_multifit_robust_workspace_QSI_set", _wrap_gsl_multifit_robust_workspace_QSI_set},
12637 {"Math::GSL::Multilargec::gsl_multifit_robust_workspace_QSI_get", _wrap_gsl_multifit_robust_workspace_QSI_get},
12638 {"Math::GSL::Multilargec::gsl_multifit_robust_workspace_D_set", _wrap_gsl_multifit_robust_workspace_D_set},
12639 {"Math::GSL::Multilargec::gsl_multifit_robust_workspace_D_get", _wrap_gsl_multifit_robust_workspace_D_get},
12640 {"Math::GSL::Multilargec::gsl_multifit_robust_workspace_workn_set", _wrap_gsl_multifit_robust_workspace_workn_set},
12641 {"Math::GSL::Multilargec::gsl_multifit_robust_workspace_workn_get", _wrap_gsl_multifit_robust_workspace_workn_get},
12642 {"Math::GSL::Multilargec::gsl_multifit_robust_workspace_stats_set", _wrap_gsl_multifit_robust_workspace_stats_set},
12643 {"Math::GSL::Multilargec::gsl_multifit_robust_workspace_stats_get", _wrap_gsl_multifit_robust_workspace_stats_get},
12644 {"Math::GSL::Multilargec::gsl_multifit_robust_workspace_multifit_p_set", _wrap_gsl_multifit_robust_workspace_multifit_p_set},
12645 {"Math::GSL::Multilargec::gsl_multifit_robust_workspace_multifit_p_get", _wrap_gsl_multifit_robust_workspace_multifit_p_get},
12646 {"Math::GSL::Multilargec::new_gsl_multifit_robust_workspace", _wrap_new_gsl_multifit_robust_workspace},
12647 {"Math::GSL::Multilargec::delete_gsl_multifit_robust_workspace", _wrap_delete_gsl_multifit_robust_workspace},
12648 {"Math::GSL::Multilargec::gsl_multifit_robust_alloc", _wrap_gsl_multifit_robust_alloc},
12649 {"Math::GSL::Multilargec::gsl_multifit_robust_free", _wrap_gsl_multifit_robust_free},
12650 {"Math::GSL::Multilargec::gsl_multifit_robust_tune", _wrap_gsl_multifit_robust_tune},
12651 {"Math::GSL::Multilargec::gsl_multifit_robust_maxiter", _wrap_gsl_multifit_robust_maxiter},
12652 {"Math::GSL::Multilargec::gsl_multifit_robust_name", _wrap_gsl_multifit_robust_name},
12653 {"Math::GSL::Multilargec::gsl_multifit_robust_statistics", _wrap_gsl_multifit_robust_statistics},
12654 {"Math::GSL::Multilargec::gsl_multifit_robust_weights", _wrap_gsl_multifit_robust_weights},
12655 {"Math::GSL::Multilargec::gsl_multifit_robust", _wrap_gsl_multifit_robust},
12656 {"Math::GSL::Multilargec::gsl_multifit_robust_est", _wrap_gsl_multifit_robust_est},
12657 {"Math::GSL::Multilargec::gsl_multifit_robust_residuals", _wrap_gsl_multifit_robust_residuals},
12658 {"Math::GSL::Multilargec::gsl_multilarge_linear_type_name_set", _wrap_gsl_multilarge_linear_type_name_set},
12659 {"Math::GSL::Multilargec::gsl_multilarge_linear_type_name_get", _wrap_gsl_multilarge_linear_type_name_get},
12660 {"Math::GSL::Multilargec::gsl_multilarge_linear_type_alloc_set", _wrap_gsl_multilarge_linear_type_alloc_set},
12661 {"Math::GSL::Multilargec::gsl_multilarge_linear_type_alloc_get", _wrap_gsl_multilarge_linear_type_alloc_get},
12662 {"Math::GSL::Multilargec::gsl_multilarge_linear_type_reset_set", _wrap_gsl_multilarge_linear_type_reset_set},
12663 {"Math::GSL::Multilargec::gsl_multilarge_linear_type_reset_get", _wrap_gsl_multilarge_linear_type_reset_get},
12664 {"Math::GSL::Multilargec::gsl_multilarge_linear_type_accumulate_set", _wrap_gsl_multilarge_linear_type_accumulate_set},
12665 {"Math::GSL::Multilargec::gsl_multilarge_linear_type_accumulate_get", _wrap_gsl_multilarge_linear_type_accumulate_get},
12666 {"Math::GSL::Multilargec::gsl_multilarge_linear_type_solve_set", _wrap_gsl_multilarge_linear_type_solve_set},
12667 {"Math::GSL::Multilargec::gsl_multilarge_linear_type_solve_get", _wrap_gsl_multilarge_linear_type_solve_get},
12668 {"Math::GSL::Multilargec::gsl_multilarge_linear_type_rcond_set", _wrap_gsl_multilarge_linear_type_rcond_set},
12669 {"Math::GSL::Multilargec::gsl_multilarge_linear_type_rcond_get", _wrap_gsl_multilarge_linear_type_rcond_get},
12670 {"Math::GSL::Multilargec::gsl_multilarge_linear_type_lcurve_set", _wrap_gsl_multilarge_linear_type_lcurve_set},
12671 {"Math::GSL::Multilargec::gsl_multilarge_linear_type_lcurve_get", _wrap_gsl_multilarge_linear_type_lcurve_get},
12672 {"Math::GSL::Multilargec::gsl_multilarge_linear_type_matrix_ptr_set", _wrap_gsl_multilarge_linear_type_matrix_ptr_set},
12673 {"Math::GSL::Multilargec::gsl_multilarge_linear_type_matrix_ptr_get", _wrap_gsl_multilarge_linear_type_matrix_ptr_get},
12674 {"Math::GSL::Multilargec::gsl_multilarge_linear_type_rhs_ptr_set", _wrap_gsl_multilarge_linear_type_rhs_ptr_set},
12675 {"Math::GSL::Multilargec::gsl_multilarge_linear_type_rhs_ptr_get", _wrap_gsl_multilarge_linear_type_rhs_ptr_get},
12676 {"Math::GSL::Multilargec::gsl_multilarge_linear_type_free_set", _wrap_gsl_multilarge_linear_type_free_set},
12677 {"Math::GSL::Multilargec::gsl_multilarge_linear_type_free_get", _wrap_gsl_multilarge_linear_type_free_get},
12678 {"Math::GSL::Multilargec::new_gsl_multilarge_linear_type", _wrap_new_gsl_multilarge_linear_type},
12679 {"Math::GSL::Multilargec::delete_gsl_multilarge_linear_type", _wrap_delete_gsl_multilarge_linear_type},
12680 {"Math::GSL::Multilargec::gsl_multilarge_linear_workspace_type_set", _wrap_gsl_multilarge_linear_workspace_type_set},
12681 {"Math::GSL::Multilargec::gsl_multilarge_linear_workspace_type_get", _wrap_gsl_multilarge_linear_workspace_type_get},
12682 {"Math::GSL::Multilargec::gsl_multilarge_linear_workspace_state_set", _wrap_gsl_multilarge_linear_workspace_state_set},
12683 {"Math::GSL::Multilargec::gsl_multilarge_linear_workspace_state_get", _wrap_gsl_multilarge_linear_workspace_state_get},
12684 {"Math::GSL::Multilargec::gsl_multilarge_linear_workspace_p_set", _wrap_gsl_multilarge_linear_workspace_p_set},
12685 {"Math::GSL::Multilargec::gsl_multilarge_linear_workspace_p_get", _wrap_gsl_multilarge_linear_workspace_p_get},
12686 {"Math::GSL::Multilargec::new_gsl_multilarge_linear_workspace", _wrap_new_gsl_multilarge_linear_workspace},
12687 {"Math::GSL::Multilargec::delete_gsl_multilarge_linear_workspace", _wrap_delete_gsl_multilarge_linear_workspace},
12688 {"Math::GSL::Multilargec::gsl_multilarge_linear_alloc", _wrap_gsl_multilarge_linear_alloc},
12689 {"Math::GSL::Multilargec::gsl_multilarge_linear_free", _wrap_gsl_multilarge_linear_free},
12690 {"Math::GSL::Multilargec::gsl_multilarge_linear_name", _wrap_gsl_multilarge_linear_name},
12691 {"Math::GSL::Multilargec::gsl_multilarge_linear_reset", _wrap_gsl_multilarge_linear_reset},
12692 {"Math::GSL::Multilargec::gsl_multilarge_linear_accumulate", _wrap_gsl_multilarge_linear_accumulate},
12693 {"Math::GSL::Multilargec::gsl_multilarge_linear_solve", _wrap_gsl_multilarge_linear_solve},
12694 {"Math::GSL::Multilargec::gsl_multilarge_linear_rcond", _wrap_gsl_multilarge_linear_rcond},
12695 {"Math::GSL::Multilargec::gsl_multilarge_linear_lcurve", _wrap_gsl_multilarge_linear_lcurve},
12696 {"Math::GSL::Multilargec::gsl_multilarge_linear_wstdform1", _wrap_gsl_multilarge_linear_wstdform1},
12697 {"Math::GSL::Multilargec::gsl_multilarge_linear_stdform1", _wrap_gsl_multilarge_linear_stdform1},
12698 {"Math::GSL::Multilargec::gsl_multilarge_linear_L_decomp", _wrap_gsl_multilarge_linear_L_decomp},
12699 {"Math::GSL::Multilargec::gsl_multilarge_linear_wstdform2", _wrap_gsl_multilarge_linear_wstdform2},
12700 {"Math::GSL::Multilargec::gsl_multilarge_linear_stdform2", _wrap_gsl_multilarge_linear_stdform2},
12701 {"Math::GSL::Multilargec::gsl_multilarge_linear_genform1", _wrap_gsl_multilarge_linear_genform1},
12702 {"Math::GSL::Multilargec::gsl_multilarge_linear_genform2", _wrap_gsl_multilarge_linear_genform2},
12703 {"Math::GSL::Multilargec::gsl_multilarge_linear_matrix_ptr", _wrap_gsl_multilarge_linear_matrix_ptr},
12704 {"Math::GSL::Multilargec::gsl_multilarge_linear_rhs_ptr", _wrap_gsl_multilarge_linear_rhs_ptr},
12705 {0,0}
12706 };
12707 /* -----------------------------------------------------------------------------
12708  * Type initialization:
12709  * This problem is tough by the requirement that no dynamic
12710  * memory is used. Also, since swig_type_info structures store pointers to
12711  * swig_cast_info structures and swig_cast_info structures store pointers back
12712  * to swig_type_info structures, we need some lookup code at initialization.
12713  * The idea is that swig generates all the structures that are needed.
12714  * The runtime then collects these partially filled structures.
12715  * The SWIG_InitializeModule function takes these initial arrays out of
12716  * swig_module, and does all the lookup, filling in the swig_module.types
12717  * array with the correct data and linking the correct swig_cast_info
12718  * structures together.
12719  *
12720  * The generated swig_type_info structures are assigned statically to an initial
12721  * array. We just loop through that array, and handle each type individually.
12722  * First we lookup if this type has been already loaded, and if so, use the
12723  * loaded structure instead of the generated one. Then we have to fill in the
12724  * cast linked list. The cast data is initially stored in something like a
12725  * two-dimensional array. Each row corresponds to a type (there are the same
12726  * number of rows as there are in the swig_type_initial array). Each entry in
12727  * a column is one of the swig_cast_info structures for that type.
12728  * The cast_initial array is actually an array of arrays, because each row has
12729  * a variable number of columns. So to actually build the cast linked list,
12730  * we find the array of casts associated with the type, and loop through it
12731  * adding the casts to the list. The one last trick we need to do is making
12732  * sure the type pointer in the swig_cast_info struct is correct.
12733  *
12734  * First off, we lookup the cast->type name to see if it is already loaded.
12735  * There are three cases to handle:
12736  *  1) If the cast->type has already been loaded AND the type we are adding
12737  *     casting info to has not been loaded (it is in this module), THEN we
12738  *     replace the cast->type pointer with the type pointer that has already
12739  *     been loaded.
12740  *  2) If BOTH types (the one we are adding casting info to, and the
12741  *     cast->type) are loaded, THEN the cast info has already been loaded by
12742  *     the previous module so we just ignore it.
12743  *  3) Finally, if cast->type has not already been loaded, then we add that
12744  *     swig_cast_info to the linked list (because the cast->type) pointer will
12745  *     be correct.
12746  * ----------------------------------------------------------------------------- */
12747 
12748 #ifdef __cplusplus
12749 extern "C" {
12750 #if 0
12751 } /* c-mode */
12752 #endif
12753 #endif
12754 
12755 #if 0
12756 #define SWIGRUNTIME_DEBUG
12757 #endif
12758 
12759 
12760 SWIGRUNTIME void
SWIG_InitializeModule(void * clientdata)12761 SWIG_InitializeModule(void *clientdata) {
12762   size_t i;
12763   swig_module_info *module_head, *iter;
12764   int init;
12765 
12766   /* check to see if the circular list has been setup, if not, set it up */
12767   if (swig_module.next==0) {
12768     /* Initialize the swig_module */
12769     swig_module.type_initial = swig_type_initial;
12770     swig_module.cast_initial = swig_cast_initial;
12771     swig_module.next = &swig_module;
12772     init = 1;
12773   } else {
12774     init = 0;
12775   }
12776 
12777   /* Try and load any already created modules */
12778   module_head = SWIG_GetModule(clientdata);
12779   if (!module_head) {
12780     /* This is the first module loaded for this interpreter */
12781     /* so set the swig module into the interpreter */
12782     SWIG_SetModule(clientdata, &swig_module);
12783   } else {
12784     /* the interpreter has loaded a SWIG module, but has it loaded this one? */
12785     iter=module_head;
12786     do {
12787       if (iter==&swig_module) {
12788         /* Our module is already in the list, so there's nothing more to do. */
12789         return;
12790       }
12791       iter=iter->next;
12792     } while (iter!= module_head);
12793 
12794     /* otherwise we must add our module into the list */
12795     swig_module.next = module_head->next;
12796     module_head->next = &swig_module;
12797   }
12798 
12799   /* When multiple interpreters are used, a module could have already been initialized in
12800        a different interpreter, but not yet have a pointer in this interpreter.
12801        In this case, we do not want to continue adding types... everything should be
12802        set up already */
12803   if (init == 0) return;
12804 
12805   /* Now work on filling in swig_module.types */
12806 #ifdef SWIGRUNTIME_DEBUG
12807   printf("SWIG_InitializeModule: size %lu\n", (unsigned long)swig_module.size);
12808 #endif
12809   for (i = 0; i < swig_module.size; ++i) {
12810     swig_type_info *type = 0;
12811     swig_type_info *ret;
12812     swig_cast_info *cast;
12813 
12814 #ifdef SWIGRUNTIME_DEBUG
12815     printf("SWIG_InitializeModule: type %lu %s\n", (unsigned long)i, swig_module.type_initial[i]->name);
12816 #endif
12817 
12818     /* if there is another module already loaded */
12819     if (swig_module.next != &swig_module) {
12820       type = SWIG_MangledTypeQueryModule(swig_module.next, &swig_module, swig_module.type_initial[i]->name);
12821     }
12822     if (type) {
12823       /* Overwrite clientdata field */
12824 #ifdef SWIGRUNTIME_DEBUG
12825       printf("SWIG_InitializeModule: found type %s\n", type->name);
12826 #endif
12827       if (swig_module.type_initial[i]->clientdata) {
12828         type->clientdata = swig_module.type_initial[i]->clientdata;
12829 #ifdef SWIGRUNTIME_DEBUG
12830         printf("SWIG_InitializeModule: found and overwrite type %s \n", type->name);
12831 #endif
12832       }
12833     } else {
12834       type = swig_module.type_initial[i];
12835     }
12836 
12837     /* Insert casting types */
12838     cast = swig_module.cast_initial[i];
12839     while (cast->type) {
12840       /* Don't need to add information already in the list */
12841       ret = 0;
12842 #ifdef SWIGRUNTIME_DEBUG
12843       printf("SWIG_InitializeModule: look cast %s\n", cast->type->name);
12844 #endif
12845       if (swig_module.next != &swig_module) {
12846         ret = SWIG_MangledTypeQueryModule(swig_module.next, &swig_module, cast->type->name);
12847 #ifdef SWIGRUNTIME_DEBUG
12848         if (ret) printf("SWIG_InitializeModule: found cast %s\n", ret->name);
12849 #endif
12850       }
12851       if (ret) {
12852         if (type == swig_module.type_initial[i]) {
12853 #ifdef SWIGRUNTIME_DEBUG
12854           printf("SWIG_InitializeModule: skip old type %s\n", ret->name);
12855 #endif
12856           cast->type = ret;
12857           ret = 0;
12858         } else {
12859           /* Check for casting already in the list */
12860           swig_cast_info *ocast = SWIG_TypeCheck(ret->name, type);
12861 #ifdef SWIGRUNTIME_DEBUG
12862           if (ocast) printf("SWIG_InitializeModule: skip old cast %s\n", ret->name);
12863 #endif
12864           if (!ocast) ret = 0;
12865         }
12866       }
12867 
12868       if (!ret) {
12869 #ifdef SWIGRUNTIME_DEBUG
12870         printf("SWIG_InitializeModule: adding cast %s\n", cast->type->name);
12871 #endif
12872         if (type->cast) {
12873           type->cast->prev = cast;
12874           cast->next = type->cast;
12875         }
12876         type->cast = cast;
12877       }
12878       cast++;
12879     }
12880     /* Set entry in modules->types array equal to the type */
12881     swig_module.types[i] = type;
12882   }
12883   swig_module.types[i] = 0;
12884 
12885 #ifdef SWIGRUNTIME_DEBUG
12886   printf("**** SWIG_InitializeModule: Cast List ******\n");
12887   for (i = 0; i < swig_module.size; ++i) {
12888     int j = 0;
12889     swig_cast_info *cast = swig_module.cast_initial[i];
12890     printf("SWIG_InitializeModule: type %lu %s\n", (unsigned long)i, swig_module.type_initial[i]->name);
12891     while (cast->type) {
12892       printf("SWIG_InitializeModule: cast type %s\n", cast->type->name);
12893       cast++;
12894       ++j;
12895     }
12896     printf("---- Total casts: %d\n",j);
12897   }
12898   printf("**** SWIG_InitializeModule: Cast List ******\n");
12899 #endif
12900 }
12901 
12902 /* This function will propagate the clientdata field of type to
12903 * any new swig_type_info structures that have been added into the list
12904 * of equivalent types.  It is like calling
12905 * SWIG_TypeClientData(type, clientdata) a second time.
12906 */
12907 SWIGRUNTIME void
SWIG_PropagateClientData(void)12908 SWIG_PropagateClientData(void) {
12909   size_t i;
12910   swig_cast_info *equiv;
12911   static int init_run = 0;
12912 
12913   if (init_run) return;
12914   init_run = 1;
12915 
12916   for (i = 0; i < swig_module.size; i++) {
12917     if (swig_module.types[i]->clientdata) {
12918       equiv = swig_module.types[i]->cast;
12919       while (equiv) {
12920         if (!equiv->converter) {
12921           if (equiv->type && !equiv->type->clientdata)
12922           SWIG_TypeClientData(equiv->type, swig_module.types[i]->clientdata);
12923         }
12924         equiv = equiv->next;
12925       }
12926     }
12927   }
12928 }
12929 
12930 #ifdef __cplusplus
12931 #if 0
12932 {
12933   /* c-mode */
12934 #endif
12935 }
12936 #endif
12937 
12938 
12939 
12940 #if defined(__cplusplus) && ! defined(XSPROTO)
12941 extern "C"
12942 #endif
12943 
XS(SWIG_init)12944 XS(SWIG_init) {
12945   dXSARGS;
12946   int i;
12947   (void)items;
12948 
12949   SWIG_InitializeModule(0);
12950 
12951   /* Install commands */
12952   for (i = 0; swig_commands[i].name; i++) {
12953     /* Casts only needed for Perl < 5.10. */
12954 #ifdef __cplusplus
12955     newXS(const_cast<char*>(swig_commands[i].name), swig_commands[i].wrapper, const_cast<char*>(__FILE__));
12956 #else
12957     newXS((char*)swig_commands[i].name, swig_commands[i].wrapper, (char*)__FILE__);
12958 #endif
12959   }
12960 
12961   /* Install variables */
12962   for (i = 0; swig_variables[i].name; i++) {
12963     SV *sv;
12964     sv = get_sv(swig_variables[i].name, TRUE | 0x2 | GV_ADDMULTI);
12965     if (swig_variables[i].type) {
12966       SWIG_MakePtr(sv,(void *)1, *swig_variables[i].type,0);
12967     } else {
12968       sv_setiv(sv,(IV) 0);
12969     }
12970     swig_create_magic(sv, swig_variables[i].name, swig_variables[i].set, swig_variables[i].get);
12971   }
12972 
12973   /* Install constant */
12974   for (i = 0; swig_constants[i].type; i++) {
12975     SV *sv;
12976     sv = get_sv(swig_constants[i].name, TRUE | 0x2 | GV_ADDMULTI);
12977     switch(swig_constants[i].type) {
12978     case SWIG_INT:
12979       sv_setiv(sv, (IV) swig_constants[i].lvalue);
12980       break;
12981     case SWIG_FLOAT:
12982       sv_setnv(sv, (double) swig_constants[i].dvalue);
12983       break;
12984     case SWIG_STRING:
12985       sv_setpv(sv, (const char *) swig_constants[i].pvalue);
12986       break;
12987     case SWIG_POINTER:
12988       SWIG_MakePtr(sv, swig_constants[i].pvalue, *(swig_constants[i].ptype),0);
12989       break;
12990     case SWIG_BINARY:
12991       SWIG_MakePackedObj(sv, swig_constants[i].pvalue, swig_constants[i].lvalue, *(swig_constants[i].ptype));
12992       break;
12993     default:
12994       break;
12995     }
12996     SvREADONLY_on(sv);
12997   }
12998 
12999   /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
13000     SV *sv = get_sv((char*) SWIG_prefix "GSL_VERSION", TRUE | 0x2 | GV_ADDMULTI);
13001     sv_setsv(sv, SWIG_From_double  SWIG_PERL_CALL_ARGS_1((double)(2.7)));
13002     SvREADONLY_on(sv);
13003   } while(0) /*@SWIG@*/;
13004   /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
13005     SV *sv = get_sv((char*) SWIG_prefix "GSL_MAJOR_VERSION", TRUE | 0x2 | GV_ADDMULTI);
13006     sv_setsv(sv, SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(2)));
13007     SvREADONLY_on(sv);
13008   } while(0) /*@SWIG@*/;
13009   /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
13010     SV *sv = get_sv((char*) SWIG_prefix "GSL_MINOR_VERSION", TRUE | 0x2 | GV_ADDMULTI);
13011     sv_setsv(sv, SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(7)));
13012     SvREADONLY_on(sv);
13013   } while(0) /*@SWIG@*/;
13014   /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
13015     SV *sv = get_sv((char*) SWIG_prefix "GSL_POSZERO", TRUE | 0x2 | GV_ADDMULTI);
13016     sv_setsv(sv, SWIG_From_double  SWIG_PERL_CALL_ARGS_1((double)((+0.0))));
13017     SvREADONLY_on(sv);
13018   } while(0) /*@SWIG@*/;
13019   /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
13020     SV *sv = get_sv((char*) SWIG_prefix "GSL_NEGZERO", TRUE | 0x2 | GV_ADDMULTI);
13021     sv_setsv(sv, SWIG_From_double  SWIG_PERL_CALL_ARGS_1((double)((-0.0))));
13022     SvREADONLY_on(sv);
13023   } while(0) /*@SWIG@*/;
13024   /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
13025     SV *sv = get_sv((char*) SWIG_prefix "GSL_SUCCESS", TRUE | 0x2 | GV_ADDMULTI);
13026     sv_setsv(sv, SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(GSL_SUCCESS)));
13027     SvREADONLY_on(sv);
13028   } while(0) /*@SWIG@*/;
13029   /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
13030     SV *sv = get_sv((char*) SWIG_prefix "GSL_FAILURE", TRUE | 0x2 | GV_ADDMULTI);
13031     sv_setsv(sv, SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(GSL_FAILURE)));
13032     SvREADONLY_on(sv);
13033   } while(0) /*@SWIG@*/;
13034   /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
13035     SV *sv = get_sv((char*) SWIG_prefix "GSL_CONTINUE", TRUE | 0x2 | GV_ADDMULTI);
13036     sv_setsv(sv, SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(GSL_CONTINUE)));
13037     SvREADONLY_on(sv);
13038   } while(0) /*@SWIG@*/;
13039   /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
13040     SV *sv = get_sv((char*) SWIG_prefix "GSL_EDOM", TRUE | 0x2 | GV_ADDMULTI);
13041     sv_setsv(sv, SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(GSL_EDOM)));
13042     SvREADONLY_on(sv);
13043   } while(0) /*@SWIG@*/;
13044   /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
13045     SV *sv = get_sv((char*) SWIG_prefix "GSL_ERANGE", TRUE | 0x2 | GV_ADDMULTI);
13046     sv_setsv(sv, SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(GSL_ERANGE)));
13047     SvREADONLY_on(sv);
13048   } while(0) /*@SWIG@*/;
13049   /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
13050     SV *sv = get_sv((char*) SWIG_prefix "GSL_EFAULT", TRUE | 0x2 | GV_ADDMULTI);
13051     sv_setsv(sv, SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(GSL_EFAULT)));
13052     SvREADONLY_on(sv);
13053   } while(0) /*@SWIG@*/;
13054   /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
13055     SV *sv = get_sv((char*) SWIG_prefix "GSL_EINVAL", TRUE | 0x2 | GV_ADDMULTI);
13056     sv_setsv(sv, SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(GSL_EINVAL)));
13057     SvREADONLY_on(sv);
13058   } while(0) /*@SWIG@*/;
13059   /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
13060     SV *sv = get_sv((char*) SWIG_prefix "GSL_EFAILED", TRUE | 0x2 | GV_ADDMULTI);
13061     sv_setsv(sv, SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(GSL_EFAILED)));
13062     SvREADONLY_on(sv);
13063   } while(0) /*@SWIG@*/;
13064   /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
13065     SV *sv = get_sv((char*) SWIG_prefix "GSL_EFACTOR", TRUE | 0x2 | GV_ADDMULTI);
13066     sv_setsv(sv, SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(GSL_EFACTOR)));
13067     SvREADONLY_on(sv);
13068   } while(0) /*@SWIG@*/;
13069   /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
13070     SV *sv = get_sv((char*) SWIG_prefix "GSL_ESANITY", TRUE | 0x2 | GV_ADDMULTI);
13071     sv_setsv(sv, SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(GSL_ESANITY)));
13072     SvREADONLY_on(sv);
13073   } while(0) /*@SWIG@*/;
13074   /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
13075     SV *sv = get_sv((char*) SWIG_prefix "GSL_ENOMEM", TRUE | 0x2 | GV_ADDMULTI);
13076     sv_setsv(sv, SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(GSL_ENOMEM)));
13077     SvREADONLY_on(sv);
13078   } while(0) /*@SWIG@*/;
13079   /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
13080     SV *sv = get_sv((char*) SWIG_prefix "GSL_EBADFUNC", TRUE | 0x2 | GV_ADDMULTI);
13081     sv_setsv(sv, SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(GSL_EBADFUNC)));
13082     SvREADONLY_on(sv);
13083   } while(0) /*@SWIG@*/;
13084   /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
13085     SV *sv = get_sv((char*) SWIG_prefix "GSL_ERUNAWAY", TRUE | 0x2 | GV_ADDMULTI);
13086     sv_setsv(sv, SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(GSL_ERUNAWAY)));
13087     SvREADONLY_on(sv);
13088   } while(0) /*@SWIG@*/;
13089   /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
13090     SV *sv = get_sv((char*) SWIG_prefix "GSL_EMAXITER", TRUE | 0x2 | GV_ADDMULTI);
13091     sv_setsv(sv, SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(GSL_EMAXITER)));
13092     SvREADONLY_on(sv);
13093   } while(0) /*@SWIG@*/;
13094   /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
13095     SV *sv = get_sv((char*) SWIG_prefix "GSL_EZERODIV", TRUE | 0x2 | GV_ADDMULTI);
13096     sv_setsv(sv, SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(GSL_EZERODIV)));
13097     SvREADONLY_on(sv);
13098   } while(0) /*@SWIG@*/;
13099   /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
13100     SV *sv = get_sv((char*) SWIG_prefix "GSL_EBADTOL", TRUE | 0x2 | GV_ADDMULTI);
13101     sv_setsv(sv, SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(GSL_EBADTOL)));
13102     SvREADONLY_on(sv);
13103   } while(0) /*@SWIG@*/;
13104   /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
13105     SV *sv = get_sv((char*) SWIG_prefix "GSL_ETOL", TRUE | 0x2 | GV_ADDMULTI);
13106     sv_setsv(sv, SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(GSL_ETOL)));
13107     SvREADONLY_on(sv);
13108   } while(0) /*@SWIG@*/;
13109   /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
13110     SV *sv = get_sv((char*) SWIG_prefix "GSL_EUNDRFLW", TRUE | 0x2 | GV_ADDMULTI);
13111     sv_setsv(sv, SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(GSL_EUNDRFLW)));
13112     SvREADONLY_on(sv);
13113   } while(0) /*@SWIG@*/;
13114   /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
13115     SV *sv = get_sv((char*) SWIG_prefix "GSL_EOVRFLW", TRUE | 0x2 | GV_ADDMULTI);
13116     sv_setsv(sv, SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(GSL_EOVRFLW)));
13117     SvREADONLY_on(sv);
13118   } while(0) /*@SWIG@*/;
13119   /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
13120     SV *sv = get_sv((char*) SWIG_prefix "GSL_ELOSS", TRUE | 0x2 | GV_ADDMULTI);
13121     sv_setsv(sv, SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(GSL_ELOSS)));
13122     SvREADONLY_on(sv);
13123   } while(0) /*@SWIG@*/;
13124   /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
13125     SV *sv = get_sv((char*) SWIG_prefix "GSL_EROUND", TRUE | 0x2 | GV_ADDMULTI);
13126     sv_setsv(sv, SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(GSL_EROUND)));
13127     SvREADONLY_on(sv);
13128   } while(0) /*@SWIG@*/;
13129   /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
13130     SV *sv = get_sv((char*) SWIG_prefix "GSL_EBADLEN", TRUE | 0x2 | GV_ADDMULTI);
13131     sv_setsv(sv, SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(GSL_EBADLEN)));
13132     SvREADONLY_on(sv);
13133   } while(0) /*@SWIG@*/;
13134   /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
13135     SV *sv = get_sv((char*) SWIG_prefix "GSL_ENOTSQR", TRUE | 0x2 | GV_ADDMULTI);
13136     sv_setsv(sv, SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(GSL_ENOTSQR)));
13137     SvREADONLY_on(sv);
13138   } while(0) /*@SWIG@*/;
13139   /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
13140     SV *sv = get_sv((char*) SWIG_prefix "GSL_ESING", TRUE | 0x2 | GV_ADDMULTI);
13141     sv_setsv(sv, SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(GSL_ESING)));
13142     SvREADONLY_on(sv);
13143   } while(0) /*@SWIG@*/;
13144   /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
13145     SV *sv = get_sv((char*) SWIG_prefix "GSL_EDIVERGE", TRUE | 0x2 | GV_ADDMULTI);
13146     sv_setsv(sv, SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(GSL_EDIVERGE)));
13147     SvREADONLY_on(sv);
13148   } while(0) /*@SWIG@*/;
13149   /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
13150     SV *sv = get_sv((char*) SWIG_prefix "GSL_EUNSUP", TRUE | 0x2 | GV_ADDMULTI);
13151     sv_setsv(sv, SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(GSL_EUNSUP)));
13152     SvREADONLY_on(sv);
13153   } while(0) /*@SWIG@*/;
13154   /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
13155     SV *sv = get_sv((char*) SWIG_prefix "GSL_EUNIMPL", TRUE | 0x2 | GV_ADDMULTI);
13156     sv_setsv(sv, SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(GSL_EUNIMPL)));
13157     SvREADONLY_on(sv);
13158   } while(0) /*@SWIG@*/;
13159   /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
13160     SV *sv = get_sv((char*) SWIG_prefix "GSL_ECACHE", TRUE | 0x2 | GV_ADDMULTI);
13161     sv_setsv(sv, SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(GSL_ECACHE)));
13162     SvREADONLY_on(sv);
13163   } while(0) /*@SWIG@*/;
13164   /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
13165     SV *sv = get_sv((char*) SWIG_prefix "GSL_ETABLE", TRUE | 0x2 | GV_ADDMULTI);
13166     sv_setsv(sv, SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(GSL_ETABLE)));
13167     SvREADONLY_on(sv);
13168   } while(0) /*@SWIG@*/;
13169   /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
13170     SV *sv = get_sv((char*) SWIG_prefix "GSL_ENOPROG", TRUE | 0x2 | GV_ADDMULTI);
13171     sv_setsv(sv, SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(GSL_ENOPROG)));
13172     SvREADONLY_on(sv);
13173   } while(0) /*@SWIG@*/;
13174   /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
13175     SV *sv = get_sv((char*) SWIG_prefix "GSL_ENOPROGJ", TRUE | 0x2 | GV_ADDMULTI);
13176     sv_setsv(sv, SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(GSL_ENOPROGJ)));
13177     SvREADONLY_on(sv);
13178   } while(0) /*@SWIG@*/;
13179   /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
13180     SV *sv = get_sv((char*) SWIG_prefix "GSL_ETOLF", TRUE | 0x2 | GV_ADDMULTI);
13181     sv_setsv(sv, SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(GSL_ETOLF)));
13182     SvREADONLY_on(sv);
13183   } while(0) /*@SWIG@*/;
13184   /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
13185     SV *sv = get_sv((char*) SWIG_prefix "GSL_ETOLX", TRUE | 0x2 | GV_ADDMULTI);
13186     sv_setsv(sv, SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(GSL_ETOLX)));
13187     SvREADONLY_on(sv);
13188   } while(0) /*@SWIG@*/;
13189   /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
13190     SV *sv = get_sv((char*) SWIG_prefix "GSL_ETOLG", TRUE | 0x2 | GV_ADDMULTI);
13191     sv_setsv(sv, SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(GSL_ETOLG)));
13192     SvREADONLY_on(sv);
13193   } while(0) /*@SWIG@*/;
13194   /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
13195     SV *sv = get_sv((char*) SWIG_prefix "GSL_EOF", TRUE | 0x2 | GV_ADDMULTI);
13196     sv_setsv(sv, SWIG_From_int  SWIG_PERL_CALL_ARGS_1((int)(GSL_EOF)));
13197     SvREADONLY_on(sv);
13198   } while(0) /*@SWIG@*/;
13199   /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
13200     SV *sv = get_sv((char*) SWIG_prefix "M_E", TRUE | 0x2 | GV_ADDMULTI);
13201     sv_setsv(sv, SWIG_From_double  SWIG_PERL_CALL_ARGS_1((double)(2.71828182845904523536028747135)));
13202     SvREADONLY_on(sv);
13203   } while(0) /*@SWIG@*/;
13204   /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
13205     SV *sv = get_sv((char*) SWIG_prefix "M_LOG2E", TRUE | 0x2 | GV_ADDMULTI);
13206     sv_setsv(sv, SWIG_From_double  SWIG_PERL_CALL_ARGS_1((double)(1.44269504088896340735992468100)));
13207     SvREADONLY_on(sv);
13208   } while(0) /*@SWIG@*/;
13209   /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
13210     SV *sv = get_sv((char*) SWIG_prefix "M_LOG10E", TRUE | 0x2 | GV_ADDMULTI);
13211     sv_setsv(sv, SWIG_From_double  SWIG_PERL_CALL_ARGS_1((double)(0.43429448190325182765112891892)));
13212     SvREADONLY_on(sv);
13213   } while(0) /*@SWIG@*/;
13214   /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
13215     SV *sv = get_sv((char*) SWIG_prefix "M_SQRT2", TRUE | 0x2 | GV_ADDMULTI);
13216     sv_setsv(sv, SWIG_From_double  SWIG_PERL_CALL_ARGS_1((double)(1.41421356237309504880168872421)));
13217     SvREADONLY_on(sv);
13218   } while(0) /*@SWIG@*/;
13219   /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
13220     SV *sv = get_sv((char*) SWIG_prefix "M_SQRT1_2", TRUE | 0x2 | GV_ADDMULTI);
13221     sv_setsv(sv, SWIG_From_double  SWIG_PERL_CALL_ARGS_1((double)(0.70710678118654752440084436210)));
13222     SvREADONLY_on(sv);
13223   } while(0) /*@SWIG@*/;
13224   /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
13225     SV *sv = get_sv((char*) SWIG_prefix "M_SQRT3", TRUE | 0x2 | GV_ADDMULTI);
13226     sv_setsv(sv, SWIG_From_double  SWIG_PERL_CALL_ARGS_1((double)(1.73205080756887729352744634151)));
13227     SvREADONLY_on(sv);
13228   } while(0) /*@SWIG@*/;
13229   /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
13230     SV *sv = get_sv((char*) SWIG_prefix "M_PI", TRUE | 0x2 | GV_ADDMULTI);
13231     sv_setsv(sv, SWIG_From_double  SWIG_PERL_CALL_ARGS_1((double)(3.14159265358979323846264338328)));
13232     SvREADONLY_on(sv);
13233   } while(0) /*@SWIG@*/;
13234   /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
13235     SV *sv = get_sv((char*) SWIG_prefix "M_PI_2", TRUE | 0x2 | GV_ADDMULTI);
13236     sv_setsv(sv, SWIG_From_double  SWIG_PERL_CALL_ARGS_1((double)(1.57079632679489661923132169164)));
13237     SvREADONLY_on(sv);
13238   } while(0) /*@SWIG@*/;
13239   /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
13240     SV *sv = get_sv((char*) SWIG_prefix "M_PI_4", TRUE | 0x2 | GV_ADDMULTI);
13241     sv_setsv(sv, SWIG_From_double  SWIG_PERL_CALL_ARGS_1((double)(0.78539816339744830961566084582)));
13242     SvREADONLY_on(sv);
13243   } while(0) /*@SWIG@*/;
13244   /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
13245     SV *sv = get_sv((char*) SWIG_prefix "M_SQRTPI", TRUE | 0x2 | GV_ADDMULTI);
13246     sv_setsv(sv, SWIG_From_double  SWIG_PERL_CALL_ARGS_1((double)(1.77245385090551602729816748334)));
13247     SvREADONLY_on(sv);
13248   } while(0) /*@SWIG@*/;
13249   /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
13250     SV *sv = get_sv((char*) SWIG_prefix "M_2_SQRTPI", TRUE | 0x2 | GV_ADDMULTI);
13251     sv_setsv(sv, SWIG_From_double  SWIG_PERL_CALL_ARGS_1((double)(1.12837916709551257389615890312)));
13252     SvREADONLY_on(sv);
13253   } while(0) /*@SWIG@*/;
13254   /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
13255     SV *sv = get_sv((char*) SWIG_prefix "M_1_PI", TRUE | 0x2 | GV_ADDMULTI);
13256     sv_setsv(sv, SWIG_From_double  SWIG_PERL_CALL_ARGS_1((double)(0.31830988618379067153776752675)));
13257     SvREADONLY_on(sv);
13258   } while(0) /*@SWIG@*/;
13259   /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
13260     SV *sv = get_sv((char*) SWIG_prefix "M_2_PI", TRUE | 0x2 | GV_ADDMULTI);
13261     sv_setsv(sv, SWIG_From_double  SWIG_PERL_CALL_ARGS_1((double)(0.63661977236758134307553505349)));
13262     SvREADONLY_on(sv);
13263   } while(0) /*@SWIG@*/;
13264   /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
13265     SV *sv = get_sv((char*) SWIG_prefix "M_LN10", TRUE | 0x2 | GV_ADDMULTI);
13266     sv_setsv(sv, SWIG_From_double  SWIG_PERL_CALL_ARGS_1((double)(2.30258509299404568401799145468)));
13267     SvREADONLY_on(sv);
13268   } while(0) /*@SWIG@*/;
13269   /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
13270     SV *sv = get_sv((char*) SWIG_prefix "M_LN2", TRUE | 0x2 | GV_ADDMULTI);
13271     sv_setsv(sv, SWIG_From_double  SWIG_PERL_CALL_ARGS_1((double)(0.69314718055994530941723212146)));
13272     SvREADONLY_on(sv);
13273   } while(0) /*@SWIG@*/;
13274   /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
13275     SV *sv = get_sv((char*) SWIG_prefix "M_LNPI", TRUE | 0x2 | GV_ADDMULTI);
13276     sv_setsv(sv, SWIG_From_double  SWIG_PERL_CALL_ARGS_1((double)(1.14472988584940017414342735135)));
13277     SvREADONLY_on(sv);
13278   } while(0) /*@SWIG@*/;
13279   /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
13280     SV *sv = get_sv((char*) SWIG_prefix "M_EULER", TRUE | 0x2 | GV_ADDMULTI);
13281     sv_setsv(sv, SWIG_From_double  SWIG_PERL_CALL_ARGS_1((double)(0.57721566490153286060651209008)));
13282     SvREADONLY_on(sv);
13283   } while(0) /*@SWIG@*/;
13284   SWIG_TypeClientData(SWIGTYPE_p_gsl_function_struct, (void*) "Math::GSL::Multilarge::gsl_function_struct");
13285   SWIG_TypeClientData(SWIGTYPE_p_gsl_function_fdf_struct, (void*) "Math::GSL::Multilarge::gsl_function_fdf_struct");
13286   SWIG_TypeClientData(SWIGTYPE_p_gsl_function_vec_struct, (void*) "Math::GSL::Multilarge::gsl_function_vec_struct");
13287   SWIG_TypeClientData(SWIGTYPE_p_gsl_permutation_struct, (void*) "Math::GSL::Multilarge::gsl_permutation_struct");
13288   SWIG_TypeClientData(SWIGTYPE_p_gsl_multifit_linear_workspace, (void*) "Math::GSL::Multilarge::gsl_multifit_linear_workspace");
13289   SWIG_TypeClientData(SWIGTYPE_p_gsl_multifit_robust_type, (void*) "Math::GSL::Multilarge::gsl_multifit_robust_type");
13290   SWIG_TypeClientData(SWIGTYPE_p_gsl_multifit_robust_stats, (void*) "Math::GSL::Multilarge::gsl_multifit_robust_stats");
13291   SWIG_TypeClientData(SWIGTYPE_p_gsl_multifit_robust_workspace, (void*) "Math::GSL::Multilarge::gsl_multifit_robust_workspace");
13292   SWIG_TypeClientData(SWIGTYPE_p_gsl_multilarge_linear_type, (void*) "Math::GSL::Multilarge::gsl_multilarge_linear_type");
13293   SWIG_TypeClientData(SWIGTYPE_p_gsl_multilarge_linear_workspace, (void*) "Math::GSL::Multilarge::gsl_multilarge_linear_workspace");
13294   ST(0) = &PL_sv_yes;
13295   XSRETURN(1);
13296 }
13297 
13298