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_CBLAS_TRANSPOSE_t_p_gsl_vector_p_void__int swig_types[3]
1523 #define SWIGTYPE_p_f_p_q_const__char_p_q_const__char_int_int__void swig_types[4]
1524 #define SWIGTYPE_p_f_p_q_const__char_p_q_const__char_int_p_q_const__char__void swig_types[5]
1525 #define SWIGTYPE_p_float swig_types[6]
1526 #define SWIGTYPE_p_gsl_complex swig_types[7]
1527 #define SWIGTYPE_p_gsl_complex_float swig_types[8]
1528 #define SWIGTYPE_p_gsl_complex_long_double swig_types[9]
1529 #define SWIGTYPE_p_gsl_linalg_matrix_mod_t swig_types[10]
1530 #define SWIGTYPE_p_gsl_matrix swig_types[11]
1531 #define SWIGTYPE_p_gsl_matrix_complex swig_types[12]
1532 #define SWIGTYPE_p_gsl_mode_t swig_types[13]
1533 #define SWIGTYPE_p_gsl_permutation_struct swig_types[14]
1534 #define SWIGTYPE_p_gsl_vector swig_types[15]
1535 #define SWIGTYPE_p_gsl_vector_complex swig_types[16]
1536 #define SWIGTYPE_p_int swig_types[17]
1537 #define SWIGTYPE_p_long_double swig_types[18]
1538 #define SWIGTYPE_p_size_t swig_types[19]
1539 static swig_type_info *swig_types[21];
1540 static swig_module_info swig_module = {swig_types, 20, 0, 0, 0, 0};
1541 #define SWIG_TypeQuery(name) SWIG_TypeQueryModule(&swig_module, &swig_module, name)
1542 #define SWIG_MangledTypeQuery(name) SWIG_MangledTypeQueryModule(&swig_module, &swig_module, name)
1543
1544 /* -------- TYPES TABLE (END) -------- */
1545
1546 #define SWIG_init boot_Math__GSL__Linalg
1547
1548 #define SWIG_name "Math::GSL::Linalgc::boot_Math__GSL__Linalg"
1549 #define SWIG_prefix "Math::GSL::Linalgc::"
1550
1551 #define SWIGVERSION 0x040001
1552 #define SWIG_VERSION SWIGVERSION
1553
1554
1555 #define SWIG_as_voidptr(a) (void *)((const void *)(a))
1556 #define SWIG_as_voidptrptr(a) ((void)SWIG_as_voidptr(*a),(void**)(a))
1557
1558
1559 #ifdef __cplusplus
1560 extern "C"
1561 #endif
1562 #ifndef PERL_OBJECT
1563 #ifndef MULTIPLICITY
1564 SWIGEXPORT void SWIG_init (CV* cv);
1565 #else
1566 SWIGEXPORT void SWIG_init (pTHXo_ CV* cv);
1567 #endif
1568 #else
1569 SWIGEXPORT void SWIG_init (CV *cv, CPerlObj *);
1570 #endif
1571
1572
1573 SWIGINTERNINLINE SV *
SWIG_PERL_DECL_ARGS_1(double value)1574 SWIG_From_double SWIG_PERL_DECL_ARGS_1(double value)
1575 {
1576 return sv_2mortal(newSVnv(value));
1577 }
1578
1579
1580 SWIGINTERNINLINE SV *
SWIG_PERL_DECL_ARGS_1(long value)1581 SWIG_From_long SWIG_PERL_DECL_ARGS_1(long value)
1582 {
1583 SV *sv;
1584 if (IVSIZE >= sizeof(value) || (value >= IV_MIN && value <= IV_MAX))
1585 sv = newSViv(value);
1586 else
1587 sv = newSVpvf("%ld", value);
1588 return sv_2mortal(sv);
1589 }
1590
1591
1592 SWIGINTERNINLINE SV *
SWIG_PERL_DECL_ARGS_1(int value)1593 SWIG_From_int SWIG_PERL_DECL_ARGS_1(int value)
1594 {
1595 return SWIG_From_long SWIG_PERL_CALL_ARGS_1(value);
1596 }
1597
1598
1599 SWIGINTERN swig_type_info*
SWIG_pchar_descriptor(void)1600 SWIG_pchar_descriptor(void)
1601 {
1602 static int init = 0;
1603 static swig_type_info* info = 0;
1604 if (!init) {
1605 info = SWIG_TypeQuery("_p_char");
1606 init = 1;
1607 }
1608 return info;
1609 }
1610
1611
1612 SWIGINTERN int
SWIG_AsCharPtrAndSize(SV * obj,char ** cptr,size_t * psize,int * alloc)1613 SWIG_AsCharPtrAndSize(SV *obj, char** cptr, size_t* psize, int *alloc)
1614 {
1615 if (SvMAGICAL(obj)) {
1616 SV *tmp = sv_newmortal();
1617 SvSetSV(tmp, obj);
1618 obj = tmp;
1619 }
1620 if (SvPOK(obj)) {
1621 STRLEN len = 0;
1622 char *cstr = SvPV(obj, len);
1623 size_t size = len + 1;
1624 if (cptr) {
1625 if (alloc) {
1626 if (*alloc == SWIG_NEWOBJ) {
1627 *cptr = (char *)memcpy(malloc((size)*sizeof(char)), cstr, sizeof(char)*(size));
1628 } else {
1629 *cptr = cstr;
1630 *alloc = SWIG_OLDOBJ;
1631 }
1632 }
1633 }
1634 if (psize) *psize = size;
1635 return SWIG_OK;
1636 } else {
1637 swig_type_info* pchar_descriptor = SWIG_pchar_descriptor();
1638 if (pchar_descriptor) {
1639 char* vptr = 0;
1640 if (SWIG_ConvertPtr(obj, (void**)&vptr, pchar_descriptor, 0) == SWIG_OK) {
1641 if (cptr) *cptr = vptr;
1642 if (psize) *psize = vptr ? (strlen(vptr) + 1) : 0;
1643 if (alloc) *alloc = SWIG_OLDOBJ;
1644 return SWIG_OK;
1645 }
1646 }
1647 }
1648 return SWIG_TypeError;
1649 }
1650
1651
1652
1653
1654
1655 #include <limits.h>
1656 #if !defined(SWIG_NO_LLONG_MAX)
1657 # if !defined(LLONG_MAX) && defined(__GNUC__) && defined (__LONG_LONG_MAX__)
1658 # define LLONG_MAX __LONG_LONG_MAX__
1659 # define LLONG_MIN (-LLONG_MAX - 1LL)
1660 # define ULLONG_MAX (LLONG_MAX * 2ULL + 1ULL)
1661 # endif
1662 #endif
1663
1664
1665 #include <stdlib.h>
1666 #ifdef _MSC_VER
1667 # ifndef strtoull
1668 # define strtoull _strtoui64
1669 # endif
1670 # ifndef strtoll
1671 # define strtoll _strtoi64
1672 # endif
1673 #endif
1674
1675
1676 SWIGINTERN int
SWIG_PERL_DECL_ARGS_2(SV * obj,double * val)1677 SWIG_AsVal_double SWIG_PERL_DECL_ARGS_2(SV *obj, double *val)
1678 {
1679 if (SvNIOK(obj)) {
1680 if (val) *val = SvNV(obj);
1681 return SWIG_OK;
1682 } else if (SvIOK(obj)) {
1683 if (val) *val = (double) SvIV(obj);
1684 return SWIG_AddCast(SWIG_OK);
1685 } else {
1686 const char *nptr = SvPV_nolen(obj);
1687 if (nptr) {
1688 char *endptr;
1689 double v;
1690 errno = 0;
1691 v = strtod(nptr, &endptr);
1692 if (errno == ERANGE) {
1693 errno = 0;
1694 return SWIG_OverflowError;
1695 } else {
1696 if (*endptr == '\0') {
1697 if (val) *val = v;
1698 return SWIG_Str2NumCast(SWIG_OK);
1699 }
1700 }
1701 }
1702 }
1703 return SWIG_TypeError;
1704 }
1705
1706
1707 #include <float.h>
1708
1709
1710 #include <math.h>
1711
1712
1713 SWIGINTERNINLINE int
SWIG_CanCastAsInteger(double * d,double min,double max)1714 SWIG_CanCastAsInteger(double *d, double min, double max) {
1715 double x = *d;
1716 if ((min <= x && x <= max)) {
1717 double fx = floor(x);
1718 double cx = ceil(x);
1719 double rd = ((x - fx) < 0.5) ? fx : cx; /* simple rint */
1720 if ((errno == EDOM) || (errno == ERANGE)) {
1721 errno = 0;
1722 } else {
1723 double summ, reps, diff;
1724 if (rd < x) {
1725 diff = x - rd;
1726 } else if (rd > x) {
1727 diff = rd - x;
1728 } else {
1729 return 1;
1730 }
1731 summ = rd + x;
1732 reps = diff/summ;
1733 if (reps < 8*DBL_EPSILON) {
1734 *d = rd;
1735 return 1;
1736 }
1737 }
1738 }
1739 return 0;
1740 }
1741
1742
1743 SWIGINTERN int
SWIG_PERL_DECL_ARGS_2(SV * obj,long * val)1744 SWIG_AsVal_long SWIG_PERL_DECL_ARGS_2(SV *obj, long* val)
1745 {
1746 if (SvUOK(obj)) {
1747 UV v = SvUV(obj);
1748 if (UVSIZE < sizeof(*val) || v <= LONG_MAX) {
1749 if (val) *val = v;
1750 return SWIG_OK;
1751 }
1752 return SWIG_OverflowError;
1753 } else if (SvIOK(obj)) {
1754 IV v = SvIV(obj);
1755 if (IVSIZE <= sizeof(*val) || (v >= LONG_MIN && v <= LONG_MAX)) {
1756 if(val) *val = v;
1757 return SWIG_OK;
1758 }
1759 return SWIG_OverflowError;
1760 } else {
1761 int dispatch = 0;
1762 const char *nptr = SvPV_nolen(obj);
1763 if (nptr) {
1764 char *endptr;
1765 long v;
1766 errno = 0;
1767 v = strtol(nptr, &endptr,0);
1768 if (errno == ERANGE) {
1769 errno = 0;
1770 return SWIG_OverflowError;
1771 } else {
1772 if (*endptr == '\0') {
1773 if (val) *val = v;
1774 return SWIG_Str2NumCast(SWIG_OK);
1775 }
1776 }
1777 }
1778 if (!dispatch) {
1779 double d;
1780 int res = SWIG_AddCast(SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(obj,&d));
1781 if (SWIG_IsOK(res) && SWIG_CanCastAsInteger(&d, LONG_MIN, LONG_MAX)) {
1782 if (val) *val = (long)(d);
1783 return res;
1784 }
1785 }
1786 }
1787 return SWIG_TypeError;
1788 }
1789
1790
1791 SWIGINTERN int
SWIG_PERL_DECL_ARGS_2(SV * obj,int * val)1792 SWIG_AsVal_int SWIG_PERL_DECL_ARGS_2(SV * obj, int *val)
1793 {
1794 long v;
1795 int res = SWIG_AsVal_long SWIG_PERL_CALL_ARGS_2(obj, &v);
1796 if (SWIG_IsOK(res)) {
1797 if ((v < INT_MIN || v > INT_MAX)) {
1798 return SWIG_OverflowError;
1799 } else {
1800 if (val) *val = (int)(v);
1801 }
1802 }
1803 return res;
1804 }
1805
1806
1807 SWIGINTERNINLINE SV *
SWIG_FromCharPtrAndSize(const char * carray,size_t size)1808 SWIG_FromCharPtrAndSize(const char* carray, size_t size)
1809 {
1810 SV *obj = sv_newmortal();
1811 if (carray) {
1812 sv_setpvn(obj, carray, size);
1813 } else {
1814 sv_setsv(obj, &PL_sv_undef);
1815 }
1816 return obj;
1817 }
1818
1819
1820 SWIGINTERNINLINE SV *
SWIG_FromCharPtr(const char * cptr)1821 SWIG_FromCharPtr(const char *cptr)
1822 {
1823 return SWIG_FromCharPtrAndSize(cptr, (cptr ? strlen(cptr) : 0));
1824 }
1825
1826
1827 #include "gsl/gsl_nan.h"
1828 #include "gsl/gsl_errno.h"
1829 #include "gsl/gsl_math.h"
1830 #include "gsl/gsl_monte.h"
1831
1832
1833 struct perl_array {
1834 I32 len;
1835 AV *array;
1836 };
1837
1838
1839
1840 enum awType { awDouble, awFloat, awInt, awUnsigned };
1841
1842 typedef struct {
1843 I32 size;
1844 enum awType type;
1845 void * data;
1846 } array_wrapper;
1847
array_wrapper_alloc(int numelem,enum awType type)1848 array_wrapper * array_wrapper_alloc(int numelem, enum awType type){
1849 array_wrapper * rv = malloc(sizeof(array_wrapper));
1850
1851 if (rv == NULL)
1852 croak("array_wrapper_alloc: can't malloc wrapper\n");
1853
1854 switch (type){
1855 case awDouble:
1856 rv->data = malloc(sizeof(double) * numelem);
1857 break;
1858 case awFloat:
1859 rv->data = malloc(sizeof(float) * numelem);
1860 break;
1861 case awInt:
1862 rv->data = malloc(sizeof(int) * numelem);
1863 break;
1864 case awUnsigned:
1865 rv->data = malloc(sizeof(unsigned int) * numelem);
1866 break;
1867 default:
1868 croak("array_wrapper_alloc: type should be awDouble, awFloat, awInt, or awUnsigned");
1869 }
1870
1871 if (rv->data == NULL)
1872 croak("array_wrapper_alloc: can't malloc data");
1873
1874 rv->size = numelem;
1875 rv->type = type;
1876 return rv;
1877 }
1878
array_wrapper_free(array_wrapper * daw)1879 void array_wrapper_free(array_wrapper * daw){
1880 free(daw->data);
1881 free(daw);
1882 }
1883
1884
1885 /* structure to hold required information while the gsl function call
1886 for each callback
1887 */
1888 struct gsl_function_perl {
1889 gsl_function C_gsl_function;
1890 SV * function;
1891 SV * params;
1892 };
1893
1894 struct gsl_function_fdf_perl {
1895 gsl_function_fdf C_gsl_function_fdf;
1896 SV * f;
1897 SV * df;
1898 SV * fdf;
1899 SV * params;
1900 };
1901
1902 struct gsl_monte_function_perl {
1903 gsl_monte_function C_gsl_monte_function;
1904 SV * f;
1905 SV * dim;
1906 SV * params;
1907 };
1908
gsl_function_perl_free(struct gsl_function_perl * perl_f)1909 void gsl_function_perl_free(struct gsl_function_perl * perl_f){
1910 if (perl_f != NULL) {
1911 SvREFCNT_dec(perl_f->function);
1912 SvREFCNT_dec(perl_f->params);
1913 Safefree(perl_f);
1914 }
1915 }
1916
gsl_function_fdf_perl_free(struct gsl_function_fdf_perl * perl_fdf)1917 void gsl_function_fdf_perl_free(struct gsl_function_fdf_perl * perl_fdf){
1918 if (perl_fdf != NULL) {
1919 SvREFCNT_dec(perl_fdf->f);
1920 SvREFCNT_dec(perl_fdf->df);
1921 SvREFCNT_dec(perl_fdf->fdf);
1922 SvREFCNT_dec(perl_fdf->params);
1923 Safefree(perl_fdf);
1924 }
1925 }
1926
1927 /* These functions (C callbacks) calls the perl callbacks.
1928 Info for perl callback can be found using the 'void*params' parameter
1929 */
call_gsl_function_x_params(SV * function,double x,SV * params)1930 double call_gsl_function_x_params(SV* function, double x, SV *params){
1931 unsigned int count;
1932 double y;
1933 dSP;
1934
1935 //fprintf(stderr, "LOOKUP CALLBACK\n");
1936 ENTER;
1937 SAVETMPS;
1938
1939 PUSHMARK(SP);
1940 XPUSHs(sv_2mortal(newSVnv((double)x)));
1941 XPUSHs(params);
1942 PUTBACK; /* make local stack pointer global */
1943
1944 count = call_sv(function, G_SCALAR);
1945 SPAGAIN;
1946
1947 if (count != 1)
1948 croak("Expected to call subroutine in scalar context!");
1949
1950 y = POPn;
1951
1952 PUTBACK; /* make local stack pointer global */
1953 FREETMPS;
1954 LEAVE;
1955
1956 return y;
1957 }
1958
call_gsl_function(double x,void * params)1959 double call_gsl_function(double x , void *params){
1960 struct gsl_function_perl *F=(struct gsl_function_perl*)params;
1961 return call_gsl_function_x_params( F->function, x, F->params );
1962 }
1963
call_gsl_function_fdf_f(double x,void * params)1964 double call_gsl_function_fdf_f(double x , void *params){
1965 struct gsl_function_fdf_perl *F=(struct gsl_function_fdf_perl*)params;
1966 return call_gsl_function_x_params( F->f, x, F->params );
1967 }
1968
call_gsl_function_fdf_df(double x,void * params)1969 double call_gsl_function_fdf_df(double x , void *params){
1970 struct gsl_function_fdf_perl *F=(struct gsl_function_fdf_perl*)params;
1971 return call_gsl_function_x_params( F->df, x, F->params );
1972 }
1973
call_gsl_function_fdf_fdf(double x,void * params,double * f,double * df)1974 void call_gsl_function_fdf_fdf(double x , void *params, double *f, double *df ){
1975 struct gsl_function_fdf_perl *F=(struct gsl_function_fdf_perl*)params;
1976
1977 dSP;
1978
1979 ENTER;
1980 SAVETMPS;
1981
1982 PUSHMARK(SP);
1983 EXTEND(SP, 2);
1984 PUSHs(sv_2mortal(newSVnv((double)x)));
1985 PUSHs(F->params);
1986 PUTBACK; /* make local stack pointer global */
1987
1988 {
1989 unsigned int count = call_sv(F->fdf, G_ARRAY);
1990 SPAGAIN;
1991
1992 if (count != 2)
1993 croak( "Expected two return values, got %d", count );
1994 }
1995
1996 *df = POPn;
1997 *f = POPn;
1998
1999 PUTBACK; /* make local stack pointer global */
2000 FREETMPS;
2001 LEAVE;
2002 }
2003
call_gsl_monte_function(double * x_array,size_t dim,void * params)2004 double call_gsl_monte_function(double *x_array , size_t dim, void *params){
2005 struct gsl_monte_function_perl *F=(struct gsl_monte_function_perl*)params;
2006 unsigned int count;
2007 unsigned int i;
2008 AV* perl_array;
2009 double y;
2010 dSP;
2011
2012 //fprintf(stderr, "LOOKUP CALLBACK\n");
2013 ENTER;
2014 SAVETMPS;
2015
2016 PUSHMARK(SP);
2017 perl_array=newAV();
2018 sv_2mortal((SV*)perl_array);
2019 XPUSHs(sv_2mortal(newRV((SV *)perl_array)));
2020 for(i=0; i<dim; i++) {
2021 /* no mortal : it is referenced by the array */
2022 av_push(perl_array, newSVnv(x_array[i]));
2023 }
2024 XPUSHs(sv_2mortal(newSViv(dim)));
2025 XPUSHs(F->params);
2026 PUTBACK; /* make local stack pointer global */
2027
2028 count = call_sv(F->f, G_SCALAR);
2029 SPAGAIN;
2030
2031 if (count != 1)
2032 croak("Expected to call subroutine in scalar context!");
2033
2034 y = POPn;
2035
2036 PUTBACK; /* make local stack pointer global */
2037 FREETMPS;
2038 LEAVE;
2039
2040 return y;
2041 }
2042
2043
gsl_function_fdf_extract(char * param_name,HV * hash,SV * func[])2044 void gsl_function_fdf_extract( char* param_name, HV* hash, SV* func[] ) {
2045 static const char *keys[3] = { "f", "df", "fdf" };
2046
2047 int ikey;
2048
2049 for ( ikey = 0 ; ikey < 3 ; ++ikey ) {
2050 func[ikey] = 0;
2051 const char* key = keys[ikey];
2052 /* it just so happens that strlen(keys[ikey]) == ikey + 1 */
2053 SV** pp_sv = hv_fetch( hash, key, ikey+1, 0 );
2054 SV* function;
2055
2056 if ( !pp_sv )
2057 croak("Math::GSL : %s: missing key %s!", param_name, key);
2058
2059 function = *pp_sv;
2060
2061 if ( SvPOK(function) || ( SvROK( function ) && SvTYPE(SvRV(function)) == SVt_PVCV ) ) {
2062 /* hold on to SV after the enclosing hash goes away */
2063 SvREFCNT_inc( function );
2064 func[ikey] = function;
2065 }
2066 else {
2067 croak( "Math::GSL : %s: key %s is not a reference to code!", param_name, key);
2068 }
2069 }
2070 }
2071
2072
2073
2074 #include "gsl/gsl_inline.h"
2075 #include "gsl/gsl_linalg.h"
2076 #include "gsl/gsl_permutation.h"
2077 #include "gsl/gsl_complex.h"
2078 #include "gsl/gsl_complex_math.h"
2079
2080
2081 SWIGINTERN int
SWIG_PERL_DECL_ARGS_2(SV * obj,unsigned long * val)2082 SWIG_AsVal_unsigned_SS_long SWIG_PERL_DECL_ARGS_2(SV *obj, unsigned long *val)
2083 {
2084 if (SvUOK(obj)) {
2085 UV v = SvUV(obj);
2086 if (UVSIZE <= sizeof(*val) || v <= ULONG_MAX) {
2087 if (val) *val = v;
2088 return SWIG_OK;
2089 }
2090 return SWIG_OverflowError;
2091 } else if (SvIOK(obj)) {
2092 IV v = SvIV(obj);
2093 if (v >= 0 && (IVSIZE <= sizeof(*val) || v <= ULONG_MAX)) {
2094 if (val) *val = v;
2095 return SWIG_OK;
2096 }
2097 return SWIG_OverflowError;
2098 } else {
2099 int dispatch = 0;
2100 const char *nptr = SvPV_nolen(obj);
2101 if (nptr) {
2102 char *endptr;
2103 unsigned long v;
2104 errno = 0;
2105 v = strtoul(nptr, &endptr,0);
2106 if (errno == ERANGE) {
2107 errno = 0;
2108 return SWIG_OverflowError;
2109 } else {
2110 if (*endptr == '\0') {
2111 if (val) *val = v;
2112 return SWIG_Str2NumCast(SWIG_OK);
2113 }
2114 }
2115 }
2116 if (!dispatch) {
2117 double d;
2118 int res = SWIG_AddCast(SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(obj,&d));
2119 if (SWIG_IsOK(res) && SWIG_CanCastAsInteger(&d, 0, ULONG_MAX)) {
2120 if (val) *val = (unsigned long)(d);
2121 return res;
2122 }
2123 }
2124 }
2125 return SWIG_TypeError;
2126 }
2127
2128
2129 #if defined(LLONG_MAX) && !defined(SWIG_LONG_LONG_AVAILABLE)
2130 # define SWIG_LONG_LONG_AVAILABLE
2131 #endif
2132
2133
2134 #ifdef SWIG_LONG_LONG_AVAILABLE
2135 SWIGINTERN int
SWIG_PERL_DECL_ARGS_2(SV * obj,unsigned long long * val)2136 SWIG_AsVal_unsigned_SS_long_SS_long SWIG_PERL_DECL_ARGS_2(SV *obj, unsigned long long *val)
2137 {
2138 if (SvUOK(obj)) {
2139 /* pretty sure this should be conditional on
2140 * (UVSIZE <= sizeof(*val) || v <= ULLONG_MAX) */
2141 if (val) *val = SvUV(obj);
2142 return SWIG_OK;
2143 } else if (SvIOK(obj)) {
2144 IV v = SvIV(obj);
2145 if (v >= 0 && (IVSIZE <= sizeof(*val) || v <= ULLONG_MAX)) {
2146 if (val) *val = v;
2147 return SWIG_OK;
2148 } else {
2149 return SWIG_OverflowError;
2150 }
2151 } else {
2152 int dispatch = 0;
2153 const char *nptr = SvPV_nolen(obj);
2154 if (nptr) {
2155 char *endptr;
2156 unsigned long long v;
2157 errno = 0;
2158 v = strtoull(nptr, &endptr,0);
2159 if (errno == ERANGE) {
2160 errno = 0;
2161 return SWIG_OverflowError;
2162 } else {
2163 if (*endptr == '\0') {
2164 if (val) *val = v;
2165 return SWIG_Str2NumCast(SWIG_OK);
2166 }
2167 }
2168 }
2169 if (!dispatch) {
2170 const double mant_max = 1LL << DBL_MANT_DIG;
2171 double d;
2172 int res = SWIG_AddCast(SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(obj,&d));
2173 if (SWIG_IsOK(res) && SWIG_CanCastAsInteger(&d, 0, mant_max)) {
2174 if (val) *val = (unsigned long long)(d);
2175 return res;
2176 }
2177 }
2178 }
2179 return SWIG_TypeError;
2180 }
2181 #endif
2182
2183
2184 SWIGINTERNINLINE int
SWIG_PERL_DECL_ARGS_2(SV * obj,size_t * val)2185 SWIG_AsVal_size_t SWIG_PERL_DECL_ARGS_2(SV * obj, size_t *val)
2186 {
2187 int res = SWIG_TypeError;
2188 #ifdef SWIG_LONG_LONG_AVAILABLE
2189 if (sizeof(size_t) <= sizeof(unsigned long)) {
2190 #endif
2191 unsigned long v;
2192 res = SWIG_AsVal_unsigned_SS_long SWIG_PERL_CALL_ARGS_2(obj, val ? &v : 0);
2193 if (SWIG_IsOK(res) && val) *val = (size_t)(v);
2194 #ifdef SWIG_LONG_LONG_AVAILABLE
2195 } else if (sizeof(size_t) <= sizeof(unsigned long long)) {
2196 unsigned long long v;
2197 res = SWIG_AsVal_unsigned_SS_long_SS_long SWIG_PERL_CALL_ARGS_2(obj, val ? &v : 0);
2198 if (SWIG_IsOK(res) && val) *val = (size_t)(v);
2199 }
2200 #endif
2201 return res;
2202 }
2203
2204
2205 SWIGINTERNINLINE SV *
SWIG_PERL_DECL_ARGS_1(unsigned long value)2206 SWIG_From_unsigned_SS_long SWIG_PERL_DECL_ARGS_1(unsigned long value)
2207 {
2208 SV *sv;
2209 if (UVSIZE >= sizeof(value) || value <= UV_MAX)
2210 sv = newSVuv(value);
2211 else
2212 sv = newSVpvf("%lu", value);
2213 return sv_2mortal(sv);
2214 }
2215
2216
2217 #include <stdio.h>
2218 #if (defined(_MSC_VER) && (_MSC_VER < 1900)) || defined(__BORLANDC__) || defined(_WATCOM)
2219 # ifndef snprintf
2220 # define snprintf _snprintf
2221 # endif
2222 #endif
2223
2224
2225 #ifdef SWIG_LONG_LONG_AVAILABLE
2226 SWIGINTERNINLINE SV *
SWIG_PERL_DECL_ARGS_1(unsigned long long value)2227 SWIG_From_unsigned_SS_long_SS_long SWIG_PERL_DECL_ARGS_1(unsigned long long value)
2228 {
2229 SV *sv;
2230 if (UVSIZE >= sizeof(value) || value <= UV_MAX)
2231 sv = newSVuv((UV)(value));
2232 else {
2233 //sv = newSVpvf("%llu", value); doesn't work in non 64bit Perl
2234 char temp[256];
2235 sprintf(temp, "%llu", value);
2236 sv = newSVpv(temp, 0);
2237 }
2238 return sv_2mortal(sv);
2239 }
2240 #endif
2241
2242
2243 SWIGINTERNINLINE SV *
SWIG_PERL_DECL_ARGS_1(size_t value)2244 SWIG_From_size_t SWIG_PERL_DECL_ARGS_1(size_t value)
2245 {
2246 #ifdef SWIG_LONG_LONG_AVAILABLE
2247 if (sizeof(size_t) <= sizeof(unsigned long)) {
2248 #endif
2249 return SWIG_From_unsigned_SS_long SWIG_PERL_CALL_ARGS_1((unsigned long)(value));
2250 #ifdef SWIG_LONG_LONG_AVAILABLE
2251 } else {
2252 /* assume sizeof(size_t) <= sizeof(unsigned long long) */
2253 return SWIG_From_unsigned_SS_long_SS_long SWIG_PERL_CALL_ARGS_1((unsigned long long)(value));
2254 }
2255 #endif
2256 }
2257
2258 #ifdef __cplusplus
2259 extern "C" {
2260 #endif
2261
2262 #ifdef PERL_OBJECT
2263 #define MAGIC_CLASS _wrap_Math__GSL__Linalg_var::
2264 class _wrap_Math__GSL__Linalg_var : public CPerlObj {
2265 public:
2266 #else
2267 #define MAGIC_CLASS
2268 #endif
swig_magic_readonly(pTHX_ SV * SWIGUNUSEDPARM (sv),MAGIC * SWIGUNUSEDPARM (mg))2269 SWIGCLASS_STATIC int swig_magic_readonly(pTHX_ SV *SWIGUNUSEDPARM(sv), MAGIC *SWIGUNUSEDPARM(mg)) {
2270 MAGIC_PPERL
2271 croak("Value is read-only.");
2272 return 0;
2273 }
2274
2275
2276 #ifdef PERL_OBJECT
2277 };
2278 #endif
2279
2280 #ifdef __cplusplus
2281 }
2282 #endif
2283
2284 #ifdef __cplusplus
2285 extern "C" {
2286 #endif
XS(_wrap_gsl_error)2287 XS(_wrap_gsl_error) {
2288 {
2289 char *arg1 = (char *) 0 ;
2290 char *arg2 = (char *) 0 ;
2291 int arg3 ;
2292 int arg4 ;
2293 int res1 ;
2294 char *buf1 = 0 ;
2295 int alloc1 = 0 ;
2296 int res2 ;
2297 char *buf2 = 0 ;
2298 int alloc2 = 0 ;
2299 int val3 ;
2300 int ecode3 = 0 ;
2301 int val4 ;
2302 int ecode4 = 0 ;
2303 int argvi = 0;
2304 dXSARGS;
2305
2306 if ((items < 4) || (items > 4)) {
2307 SWIG_croak("Usage: gsl_error(reason,file,line,gsl_errno);");
2308 }
2309 res1 = SWIG_AsCharPtrAndSize(ST(0), &buf1, NULL, &alloc1);
2310 if (!SWIG_IsOK(res1)) {
2311 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_error" "', argument " "1"" of type '" "char const *""'");
2312 }
2313 arg1 = (char *)(buf1);
2314 res2 = SWIG_AsCharPtrAndSize(ST(1), &buf2, NULL, &alloc2);
2315 if (!SWIG_IsOK(res2)) {
2316 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_error" "', argument " "2"" of type '" "char const *""'");
2317 }
2318 arg2 = (char *)(buf2);
2319 ecode3 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
2320 if (!SWIG_IsOK(ecode3)) {
2321 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_error" "', argument " "3"" of type '" "int""'");
2322 }
2323 arg3 = (int)(val3);
2324 ecode4 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(3), &val4);
2325 if (!SWIG_IsOK(ecode4)) {
2326 SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "gsl_error" "', argument " "4"" of type '" "int""'");
2327 }
2328 arg4 = (int)(val4);
2329 gsl_error((char const *)arg1,(char const *)arg2,arg3,arg4);
2330 ST(argvi) = &PL_sv_undef;
2331 if (alloc1 == SWIG_NEWOBJ) free((char*)buf1);
2332 if (alloc2 == SWIG_NEWOBJ) free((char*)buf2);
2333
2334
2335 XSRETURN(argvi);
2336 fail:
2337 if (alloc1 == SWIG_NEWOBJ) free((char*)buf1);
2338 if (alloc2 == SWIG_NEWOBJ) free((char*)buf2);
2339
2340
2341 SWIG_croak_null();
2342 }
2343 }
2344
2345
XS(_wrap_gsl_stream_printf)2346 XS(_wrap_gsl_stream_printf) {
2347 {
2348 char *arg1 = (char *) 0 ;
2349 char *arg2 = (char *) 0 ;
2350 int arg3 ;
2351 char *arg4 = (char *) 0 ;
2352 int res1 ;
2353 char *buf1 = 0 ;
2354 int alloc1 = 0 ;
2355 int res2 ;
2356 char *buf2 = 0 ;
2357 int alloc2 = 0 ;
2358 int val3 ;
2359 int ecode3 = 0 ;
2360 int res4 ;
2361 char *buf4 = 0 ;
2362 int alloc4 = 0 ;
2363 int argvi = 0;
2364 dXSARGS;
2365
2366 if ((items < 4) || (items > 4)) {
2367 SWIG_croak("Usage: gsl_stream_printf(label,file,line,reason);");
2368 }
2369 res1 = SWIG_AsCharPtrAndSize(ST(0), &buf1, NULL, &alloc1);
2370 if (!SWIG_IsOK(res1)) {
2371 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_stream_printf" "', argument " "1"" of type '" "char const *""'");
2372 }
2373 arg1 = (char *)(buf1);
2374 res2 = SWIG_AsCharPtrAndSize(ST(1), &buf2, NULL, &alloc2);
2375 if (!SWIG_IsOK(res2)) {
2376 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_stream_printf" "', argument " "2"" of type '" "char const *""'");
2377 }
2378 arg2 = (char *)(buf2);
2379 ecode3 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
2380 if (!SWIG_IsOK(ecode3)) {
2381 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_stream_printf" "', argument " "3"" of type '" "int""'");
2382 }
2383 arg3 = (int)(val3);
2384 res4 = SWIG_AsCharPtrAndSize(ST(3), &buf4, NULL, &alloc4);
2385 if (!SWIG_IsOK(res4)) {
2386 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_stream_printf" "', argument " "4"" of type '" "char const *""'");
2387 }
2388 arg4 = (char *)(buf4);
2389 gsl_stream_printf((char const *)arg1,(char const *)arg2,arg3,(char const *)arg4);
2390 ST(argvi) = &PL_sv_undef;
2391 if (alloc1 == SWIG_NEWOBJ) free((char*)buf1);
2392 if (alloc2 == SWIG_NEWOBJ) free((char*)buf2);
2393
2394 if (alloc4 == SWIG_NEWOBJ) free((char*)buf4);
2395 XSRETURN(argvi);
2396 fail:
2397 if (alloc1 == SWIG_NEWOBJ) free((char*)buf1);
2398 if (alloc2 == SWIG_NEWOBJ) free((char*)buf2);
2399
2400 if (alloc4 == SWIG_NEWOBJ) free((char*)buf4);
2401 SWIG_croak_null();
2402 }
2403 }
2404
2405
XS(_wrap_gsl_strerror)2406 XS(_wrap_gsl_strerror) {
2407 {
2408 int arg1 ;
2409 int val1 ;
2410 int ecode1 = 0 ;
2411 int argvi = 0;
2412 char *result = 0 ;
2413 dXSARGS;
2414
2415 if ((items < 1) || (items > 1)) {
2416 SWIG_croak("Usage: gsl_strerror(gsl_errno);");
2417 }
2418 ecode1 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
2419 if (!SWIG_IsOK(ecode1)) {
2420 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_strerror" "', argument " "1"" of type '" "int""'");
2421 }
2422 arg1 = (int)(val1);
2423 result = (char *)gsl_strerror(arg1);
2424 ST(argvi) = SWIG_FromCharPtr((const char *)result); argvi++ ;
2425
2426 XSRETURN(argvi);
2427 fail:
2428
2429 SWIG_croak_null();
2430 }
2431 }
2432
2433
XS(_wrap_gsl_set_error_handler)2434 XS(_wrap_gsl_set_error_handler) {
2435 {
2436 gsl_error_handler_t *arg1 = (gsl_error_handler_t *) 0 ;
2437 int argvi = 0;
2438 gsl_error_handler_t *result = 0 ;
2439 dXSARGS;
2440
2441 if ((items < 1) || (items > 1)) {
2442 SWIG_croak("Usage: gsl_set_error_handler(new_handler);");
2443 }
2444 {
2445 int res = SWIG_ConvertFunctionPtr(ST(0), (void**)(&arg1), SWIGTYPE_p_f_p_q_const__char_p_q_const__char_int_int__void);
2446 if (!SWIG_IsOK(res)) {
2447 SWIG_exception_fail(SWIG_ArgError(res), "in method '" "gsl_set_error_handler" "', argument " "1"" of type '" "gsl_error_handler_t *""'");
2448 }
2449 }
2450 result = (gsl_error_handler_t *)gsl_set_error_handler(arg1);
2451 ST(argvi) = SWIG_NewFunctionPtrObj((void *)(result), SWIGTYPE_p_f_p_q_const__char_p_q_const__char_int_int__void); argvi++ ;
2452
2453 XSRETURN(argvi);
2454 fail:
2455
2456 SWIG_croak_null();
2457 }
2458 }
2459
2460
XS(_wrap_gsl_set_error_handler_off)2461 XS(_wrap_gsl_set_error_handler_off) {
2462 {
2463 int argvi = 0;
2464 gsl_error_handler_t *result = 0 ;
2465 dXSARGS;
2466
2467 if ((items < 0) || (items > 0)) {
2468 SWIG_croak("Usage: gsl_set_error_handler_off();");
2469 }
2470 result = (gsl_error_handler_t *)gsl_set_error_handler_off();
2471 ST(argvi) = SWIG_NewFunctionPtrObj((void *)(result), SWIGTYPE_p_f_p_q_const__char_p_q_const__char_int_int__void); argvi++ ;
2472 XSRETURN(argvi);
2473 fail:
2474 SWIG_croak_null();
2475 }
2476 }
2477
2478
XS(_wrap_gsl_set_stream_handler)2479 XS(_wrap_gsl_set_stream_handler) {
2480 {
2481 gsl_stream_handler_t *arg1 = (gsl_stream_handler_t *) 0 ;
2482 int argvi = 0;
2483 gsl_stream_handler_t *result = 0 ;
2484 dXSARGS;
2485
2486 if ((items < 1) || (items > 1)) {
2487 SWIG_croak("Usage: gsl_set_stream_handler(new_handler);");
2488 }
2489 {
2490 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);
2491 if (!SWIG_IsOK(res)) {
2492 SWIG_exception_fail(SWIG_ArgError(res), "in method '" "gsl_set_stream_handler" "', argument " "1"" of type '" "gsl_stream_handler_t *""'");
2493 }
2494 }
2495 result = (gsl_stream_handler_t *)gsl_set_stream_handler(arg1);
2496 ST(argvi) = SWIG_NewFunctionPtrObj((void *)(result), SWIGTYPE_p_f_p_q_const__char_p_q_const__char_int_p_q_const__char__void); argvi++ ;
2497
2498 XSRETURN(argvi);
2499 fail:
2500
2501 SWIG_croak_null();
2502 }
2503 }
2504
2505
XS(_wrap_gsl_set_stream)2506 XS(_wrap_gsl_set_stream) {
2507 {
2508 FILE *arg1 = (FILE *) 0 ;
2509 void *argp1 = 0 ;
2510 int res1 = 0 ;
2511 int argvi = 0;
2512 FILE *result = 0 ;
2513 dXSARGS;
2514
2515 if ((items < 1) || (items > 1)) {
2516 SWIG_croak("Usage: gsl_set_stream(new_stream);");
2517 }
2518 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_FILE, 0 | 0 );
2519 if (!SWIG_IsOK(res1)) {
2520 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_set_stream" "', argument " "1"" of type '" "FILE *""'");
2521 }
2522 arg1 = (FILE *)(argp1);
2523 result = (FILE *)gsl_set_stream(arg1);
2524 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_FILE, 0 | 0); argvi++ ;
2525
2526 XSRETURN(argvi);
2527 fail:
2528
2529 SWIG_croak_null();
2530 }
2531 }
2532
2533
XS(_wrap_gsl_linalg_matmult)2534 XS(_wrap_gsl_linalg_matmult) {
2535 {
2536 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
2537 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
2538 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
2539 void *argp1 = 0 ;
2540 int res1 = 0 ;
2541 void *argp2 = 0 ;
2542 int res2 = 0 ;
2543 void *argp3 = 0 ;
2544 int res3 = 0 ;
2545 int argvi = 0;
2546 int result;
2547 dXSARGS;
2548
2549 if ((items < 3) || (items > 3)) {
2550 SWIG_croak("Usage: gsl_linalg_matmult(A,B,C);");
2551 }
2552 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
2553 if (!SWIG_IsOK(res1)) {
2554 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_matmult" "', argument " "1"" of type '" "gsl_matrix const *""'");
2555 }
2556 arg1 = (gsl_matrix *)(argp1);
2557 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
2558 if (!SWIG_IsOK(res2)) {
2559 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_matmult" "', argument " "2"" of type '" "gsl_matrix const *""'");
2560 }
2561 arg2 = (gsl_matrix *)(argp2);
2562 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
2563 if (!SWIG_IsOK(res3)) {
2564 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_matmult" "', argument " "3"" of type '" "gsl_matrix *""'");
2565 }
2566 arg3 = (gsl_matrix *)(argp3);
2567 result = (int)gsl_linalg_matmult((gsl_matrix const *)arg1,(gsl_matrix const *)arg2,arg3);
2568 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
2569
2570
2571
2572 XSRETURN(argvi);
2573 fail:
2574
2575
2576
2577 SWIG_croak_null();
2578 }
2579 }
2580
2581
XS(_wrap_gsl_linalg_matmult_mod)2582 XS(_wrap_gsl_linalg_matmult_mod) {
2583 {
2584 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
2585 gsl_linalg_matrix_mod_t arg2 ;
2586 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
2587 gsl_linalg_matrix_mod_t arg4 ;
2588 gsl_matrix *arg5 = (gsl_matrix *) 0 ;
2589 void *argp1 = 0 ;
2590 int res1 = 0 ;
2591 int val2 ;
2592 int ecode2 = 0 ;
2593 void *argp3 = 0 ;
2594 int res3 = 0 ;
2595 int val4 ;
2596 int ecode4 = 0 ;
2597 void *argp5 = 0 ;
2598 int res5 = 0 ;
2599 int argvi = 0;
2600 int result;
2601 dXSARGS;
2602
2603 if ((items < 5) || (items > 5)) {
2604 SWIG_croak("Usage: gsl_linalg_matmult_mod(A,modA,B,modB,C);");
2605 }
2606 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
2607 if (!SWIG_IsOK(res1)) {
2608 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_matmult_mod" "', argument " "1"" of type '" "gsl_matrix const *""'");
2609 }
2610 arg1 = (gsl_matrix *)(argp1);
2611 ecode2 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
2612 if (!SWIG_IsOK(ecode2)) {
2613 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_linalg_matmult_mod" "', argument " "2"" of type '" "gsl_linalg_matrix_mod_t""'");
2614 }
2615 arg2 = (gsl_linalg_matrix_mod_t)(val2);
2616 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
2617 if (!SWIG_IsOK(res3)) {
2618 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_matmult_mod" "', argument " "3"" of type '" "gsl_matrix const *""'");
2619 }
2620 arg3 = (gsl_matrix *)(argp3);
2621 ecode4 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(3), &val4);
2622 if (!SWIG_IsOK(ecode4)) {
2623 SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "gsl_linalg_matmult_mod" "', argument " "4"" of type '" "gsl_linalg_matrix_mod_t""'");
2624 }
2625 arg4 = (gsl_linalg_matrix_mod_t)(val4);
2626 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_matrix, 0 | 0 );
2627 if (!SWIG_IsOK(res5)) {
2628 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_matmult_mod" "', argument " "5"" of type '" "gsl_matrix *""'");
2629 }
2630 arg5 = (gsl_matrix *)(argp5);
2631 result = (int)gsl_linalg_matmult_mod((gsl_matrix const *)arg1,arg2,(gsl_matrix const *)arg3,arg4,arg5);
2632 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
2633
2634
2635
2636
2637
2638 XSRETURN(argvi);
2639 fail:
2640
2641
2642
2643
2644
2645 SWIG_croak_null();
2646 }
2647 }
2648
2649
XS(_wrap_gsl_linalg_exponential_ss)2650 XS(_wrap_gsl_linalg_exponential_ss) {
2651 {
2652 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
2653 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
2654 gsl_mode_t arg3 ;
2655 void *argp1 = 0 ;
2656 int res1 = 0 ;
2657 void *argp2 = 0 ;
2658 int res2 = 0 ;
2659 void *argp3 ;
2660 int res3 = 0 ;
2661 int argvi = 0;
2662 int result;
2663 dXSARGS;
2664
2665 if ((items < 3) || (items > 3)) {
2666 SWIG_croak("Usage: gsl_linalg_exponential_ss(A,eA,mode);");
2667 }
2668 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
2669 if (!SWIG_IsOK(res1)) {
2670 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_exponential_ss" "', argument " "1"" of type '" "gsl_matrix const *""'");
2671 }
2672 arg1 = (gsl_matrix *)(argp1);
2673 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
2674 if (!SWIG_IsOK(res2)) {
2675 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_exponential_ss" "', argument " "2"" of type '" "gsl_matrix *""'");
2676 }
2677 arg2 = (gsl_matrix *)(argp2);
2678 {
2679 res3 = SWIG_ConvertPtr(ST(2), &argp3, SWIGTYPE_p_gsl_mode_t, 0 );
2680 if (!SWIG_IsOK(res3)) {
2681 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_exponential_ss" "', argument " "3"" of type '" "gsl_mode_t""'");
2682 }
2683 if (!argp3) {
2684 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_linalg_exponential_ss" "', argument " "3"" of type '" "gsl_mode_t""'");
2685 } else {
2686 arg3 = *((gsl_mode_t *)(argp3));
2687 }
2688 }
2689 result = (int)gsl_linalg_exponential_ss((gsl_matrix const *)arg1,arg2,arg3);
2690 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
2691
2692
2693 XSRETURN(argvi);
2694 fail:
2695
2696
2697 SWIG_croak_null();
2698 }
2699 }
2700
2701
XS(_wrap_gsl_linalg_householder_transform)2702 XS(_wrap_gsl_linalg_householder_transform) {
2703 {
2704 gsl_vector *arg1 = (gsl_vector *) 0 ;
2705 void *argp1 = 0 ;
2706 int res1 = 0 ;
2707 int argvi = 0;
2708 double result;
2709 dXSARGS;
2710
2711 if ((items < 1) || (items > 1)) {
2712 SWIG_croak("Usage: gsl_linalg_householder_transform(v);");
2713 }
2714 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
2715 if (!SWIG_IsOK(res1)) {
2716 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_householder_transform" "', argument " "1"" of type '" "gsl_vector *""'");
2717 }
2718 arg1 = (gsl_vector *)(argp1);
2719 result = (double)gsl_linalg_householder_transform(arg1);
2720 ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(result)); argvi++ ;
2721
2722 XSRETURN(argvi);
2723 fail:
2724
2725 SWIG_croak_null();
2726 }
2727 }
2728
2729
XS(_wrap_gsl_linalg_complex_householder_transform)2730 XS(_wrap_gsl_linalg_complex_householder_transform) {
2731 {
2732 gsl_vector_complex *arg1 = (gsl_vector_complex *) 0 ;
2733 void *argp1 = 0 ;
2734 int res1 = 0 ;
2735 int argvi = 0;
2736 gsl_complex result;
2737 dXSARGS;
2738
2739 if ((items < 1) || (items > 1)) {
2740 SWIG_croak("Usage: gsl_linalg_complex_householder_transform(v);");
2741 }
2742 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
2743 if (!SWIG_IsOK(res1)) {
2744 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_complex_householder_transform" "', argument " "1"" of type '" "gsl_vector_complex *""'");
2745 }
2746 arg1 = (gsl_vector_complex *)(argp1);
2747 result = gsl_linalg_complex_householder_transform(arg1);
2748 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
2749
2750 XSRETURN(argvi);
2751 fail:
2752
2753 SWIG_croak_null();
2754 }
2755 }
2756
2757
XS(_wrap_gsl_linalg_householder_hm)2758 XS(_wrap_gsl_linalg_householder_hm) {
2759 {
2760 double arg1 ;
2761 gsl_vector *arg2 = (gsl_vector *) 0 ;
2762 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
2763 double val1 ;
2764 int ecode1 = 0 ;
2765 void *argp2 = 0 ;
2766 int res2 = 0 ;
2767 void *argp3 = 0 ;
2768 int res3 = 0 ;
2769 int argvi = 0;
2770 int result;
2771 dXSARGS;
2772
2773 if ((items < 3) || (items > 3)) {
2774 SWIG_croak("Usage: gsl_linalg_householder_hm(tau,v,A);");
2775 }
2776 ecode1 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
2777 if (!SWIG_IsOK(ecode1)) {
2778 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_linalg_householder_hm" "', argument " "1"" of type '" "double""'");
2779 }
2780 arg1 = (double)(val1);
2781 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
2782 if (!SWIG_IsOK(res2)) {
2783 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_householder_hm" "', argument " "2"" of type '" "gsl_vector const *""'");
2784 }
2785 arg2 = (gsl_vector *)(argp2);
2786 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
2787 if (!SWIG_IsOK(res3)) {
2788 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_householder_hm" "', argument " "3"" of type '" "gsl_matrix *""'");
2789 }
2790 arg3 = (gsl_matrix *)(argp3);
2791 result = (int)gsl_linalg_householder_hm(arg1,(gsl_vector const *)arg2,arg3);
2792 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
2793
2794
2795
2796 XSRETURN(argvi);
2797 fail:
2798
2799
2800
2801 SWIG_croak_null();
2802 }
2803 }
2804
2805
XS(_wrap_gsl_linalg_householder_mh)2806 XS(_wrap_gsl_linalg_householder_mh) {
2807 {
2808 double arg1 ;
2809 gsl_vector *arg2 = (gsl_vector *) 0 ;
2810 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
2811 double val1 ;
2812 int ecode1 = 0 ;
2813 void *argp2 = 0 ;
2814 int res2 = 0 ;
2815 void *argp3 = 0 ;
2816 int res3 = 0 ;
2817 int argvi = 0;
2818 int result;
2819 dXSARGS;
2820
2821 if ((items < 3) || (items > 3)) {
2822 SWIG_croak("Usage: gsl_linalg_householder_mh(tau,v,A);");
2823 }
2824 ecode1 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
2825 if (!SWIG_IsOK(ecode1)) {
2826 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_linalg_householder_mh" "', argument " "1"" of type '" "double""'");
2827 }
2828 arg1 = (double)(val1);
2829 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
2830 if (!SWIG_IsOK(res2)) {
2831 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_householder_mh" "', argument " "2"" of type '" "gsl_vector const *""'");
2832 }
2833 arg2 = (gsl_vector *)(argp2);
2834 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
2835 if (!SWIG_IsOK(res3)) {
2836 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_householder_mh" "', argument " "3"" of type '" "gsl_matrix *""'");
2837 }
2838 arg3 = (gsl_matrix *)(argp3);
2839 result = (int)gsl_linalg_householder_mh(arg1,(gsl_vector const *)arg2,arg3);
2840 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
2841
2842
2843
2844 XSRETURN(argvi);
2845 fail:
2846
2847
2848
2849 SWIG_croak_null();
2850 }
2851 }
2852
2853
XS(_wrap_gsl_linalg_householder_hv)2854 XS(_wrap_gsl_linalg_householder_hv) {
2855 {
2856 double arg1 ;
2857 gsl_vector *arg2 = (gsl_vector *) 0 ;
2858 gsl_vector *arg3 = (gsl_vector *) 0 ;
2859 double val1 ;
2860 int ecode1 = 0 ;
2861 void *argp2 = 0 ;
2862 int res2 = 0 ;
2863 void *argp3 = 0 ;
2864 int res3 = 0 ;
2865 int argvi = 0;
2866 int result;
2867 dXSARGS;
2868
2869 if ((items < 3) || (items > 3)) {
2870 SWIG_croak("Usage: gsl_linalg_householder_hv(tau,v,w);");
2871 }
2872 ecode1 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
2873 if (!SWIG_IsOK(ecode1)) {
2874 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_linalg_householder_hv" "', argument " "1"" of type '" "double""'");
2875 }
2876 arg1 = (double)(val1);
2877 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
2878 if (!SWIG_IsOK(res2)) {
2879 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_householder_hv" "', argument " "2"" of type '" "gsl_vector const *""'");
2880 }
2881 arg2 = (gsl_vector *)(argp2);
2882 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
2883 if (!SWIG_IsOK(res3)) {
2884 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_householder_hv" "', argument " "3"" of type '" "gsl_vector *""'");
2885 }
2886 arg3 = (gsl_vector *)(argp3);
2887 result = (int)gsl_linalg_householder_hv(arg1,(gsl_vector const *)arg2,arg3);
2888 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
2889
2890
2891
2892 XSRETURN(argvi);
2893 fail:
2894
2895
2896
2897 SWIG_croak_null();
2898 }
2899 }
2900
2901
XS(_wrap_gsl_linalg_householder_hm1)2902 XS(_wrap_gsl_linalg_householder_hm1) {
2903 {
2904 double arg1 ;
2905 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
2906 double val1 ;
2907 int ecode1 = 0 ;
2908 void *argp2 = 0 ;
2909 int res2 = 0 ;
2910 int argvi = 0;
2911 int result;
2912 dXSARGS;
2913
2914 if ((items < 2) || (items > 2)) {
2915 SWIG_croak("Usage: gsl_linalg_householder_hm1(tau,A);");
2916 }
2917 ecode1 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
2918 if (!SWIG_IsOK(ecode1)) {
2919 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_linalg_householder_hm1" "', argument " "1"" of type '" "double""'");
2920 }
2921 arg1 = (double)(val1);
2922 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
2923 if (!SWIG_IsOK(res2)) {
2924 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_householder_hm1" "', argument " "2"" of type '" "gsl_matrix *""'");
2925 }
2926 arg2 = (gsl_matrix *)(argp2);
2927 result = (int)gsl_linalg_householder_hm1(arg1,arg2);
2928 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
2929
2930
2931 XSRETURN(argvi);
2932 fail:
2933
2934
2935 SWIG_croak_null();
2936 }
2937 }
2938
2939
XS(_wrap_gsl_linalg_complex_householder_hm)2940 XS(_wrap_gsl_linalg_complex_householder_hm) {
2941 {
2942 gsl_complex arg1 ;
2943 gsl_vector_complex *arg2 = (gsl_vector_complex *) 0 ;
2944 gsl_matrix_complex *arg3 = (gsl_matrix_complex *) 0 ;
2945 void *argp1 ;
2946 int res1 = 0 ;
2947 void *argp2 = 0 ;
2948 int res2 = 0 ;
2949 void *argp3 = 0 ;
2950 int res3 = 0 ;
2951 int argvi = 0;
2952 int result;
2953 dXSARGS;
2954
2955 if ((items < 3) || (items > 3)) {
2956 SWIG_croak("Usage: gsl_linalg_complex_householder_hm(tau,v,A);");
2957 }
2958 {
2959 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
2960 if (!SWIG_IsOK(res1)) {
2961 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_complex_householder_hm" "', argument " "1"" of type '" "gsl_complex""'");
2962 }
2963 if (!argp1) {
2964 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_linalg_complex_householder_hm" "', argument " "1"" of type '" "gsl_complex""'");
2965 } else {
2966 arg1 = *((gsl_complex *)(argp1));
2967 }
2968 }
2969 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
2970 if (!SWIG_IsOK(res2)) {
2971 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_complex_householder_hm" "', argument " "2"" of type '" "gsl_vector_complex const *""'");
2972 }
2973 arg2 = (gsl_vector_complex *)(argp2);
2974 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
2975 if (!SWIG_IsOK(res3)) {
2976 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_complex_householder_hm" "', argument " "3"" of type '" "gsl_matrix_complex *""'");
2977 }
2978 arg3 = (gsl_matrix_complex *)(argp3);
2979 result = (int)gsl_linalg_complex_householder_hm(arg1,(gsl_vector_complex const *)arg2,arg3);
2980 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
2981
2982
2983 XSRETURN(argvi);
2984 fail:
2985
2986
2987 SWIG_croak_null();
2988 }
2989 }
2990
2991
XS(_wrap_gsl_linalg_complex_householder_mh)2992 XS(_wrap_gsl_linalg_complex_householder_mh) {
2993 {
2994 gsl_complex arg1 ;
2995 gsl_vector_complex *arg2 = (gsl_vector_complex *) 0 ;
2996 gsl_matrix_complex *arg3 = (gsl_matrix_complex *) 0 ;
2997 void *argp1 ;
2998 int res1 = 0 ;
2999 void *argp2 = 0 ;
3000 int res2 = 0 ;
3001 void *argp3 = 0 ;
3002 int res3 = 0 ;
3003 int argvi = 0;
3004 int result;
3005 dXSARGS;
3006
3007 if ((items < 3) || (items > 3)) {
3008 SWIG_croak("Usage: gsl_linalg_complex_householder_mh(tau,v,A);");
3009 }
3010 {
3011 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
3012 if (!SWIG_IsOK(res1)) {
3013 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_complex_householder_mh" "', argument " "1"" of type '" "gsl_complex""'");
3014 }
3015 if (!argp1) {
3016 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_linalg_complex_householder_mh" "', argument " "1"" of type '" "gsl_complex""'");
3017 } else {
3018 arg1 = *((gsl_complex *)(argp1));
3019 }
3020 }
3021 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
3022 if (!SWIG_IsOK(res2)) {
3023 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_complex_householder_mh" "', argument " "2"" of type '" "gsl_vector_complex const *""'");
3024 }
3025 arg2 = (gsl_vector_complex *)(argp2);
3026 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
3027 if (!SWIG_IsOK(res3)) {
3028 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_complex_householder_mh" "', argument " "3"" of type '" "gsl_matrix_complex *""'");
3029 }
3030 arg3 = (gsl_matrix_complex *)(argp3);
3031 result = (int)gsl_linalg_complex_householder_mh(arg1,(gsl_vector_complex const *)arg2,arg3);
3032 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3033
3034
3035 XSRETURN(argvi);
3036 fail:
3037
3038
3039 SWIG_croak_null();
3040 }
3041 }
3042
3043
XS(_wrap_gsl_linalg_complex_householder_hv)3044 XS(_wrap_gsl_linalg_complex_householder_hv) {
3045 {
3046 gsl_complex arg1 ;
3047 gsl_vector_complex *arg2 = (gsl_vector_complex *) 0 ;
3048 gsl_vector_complex *arg3 = (gsl_vector_complex *) 0 ;
3049 void *argp1 ;
3050 int res1 = 0 ;
3051 void *argp2 = 0 ;
3052 int res2 = 0 ;
3053 void *argp3 = 0 ;
3054 int res3 = 0 ;
3055 int argvi = 0;
3056 int result;
3057 dXSARGS;
3058
3059 if ((items < 3) || (items > 3)) {
3060 SWIG_croak("Usage: gsl_linalg_complex_householder_hv(tau,v,w);");
3061 }
3062 {
3063 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
3064 if (!SWIG_IsOK(res1)) {
3065 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_complex_householder_hv" "', argument " "1"" of type '" "gsl_complex""'");
3066 }
3067 if (!argp1) {
3068 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_linalg_complex_householder_hv" "', argument " "1"" of type '" "gsl_complex""'");
3069 } else {
3070 arg1 = *((gsl_complex *)(argp1));
3071 }
3072 }
3073 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
3074 if (!SWIG_IsOK(res2)) {
3075 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_complex_householder_hv" "', argument " "2"" of type '" "gsl_vector_complex const *""'");
3076 }
3077 arg2 = (gsl_vector_complex *)(argp2);
3078 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
3079 if (!SWIG_IsOK(res3)) {
3080 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_complex_householder_hv" "', argument " "3"" of type '" "gsl_vector_complex *""'");
3081 }
3082 arg3 = (gsl_vector_complex *)(argp3);
3083 result = (int)gsl_linalg_complex_householder_hv(arg1,(gsl_vector_complex const *)arg2,arg3);
3084 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3085
3086
3087 XSRETURN(argvi);
3088 fail:
3089
3090
3091 SWIG_croak_null();
3092 }
3093 }
3094
3095
XS(_wrap_gsl_linalg_hessenberg_decomp)3096 XS(_wrap_gsl_linalg_hessenberg_decomp) {
3097 {
3098 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
3099 gsl_vector *arg2 = (gsl_vector *) 0 ;
3100 void *argp1 = 0 ;
3101 int res1 = 0 ;
3102 void *argp2 = 0 ;
3103 int res2 = 0 ;
3104 int argvi = 0;
3105 int result;
3106 dXSARGS;
3107
3108 if ((items < 2) || (items > 2)) {
3109 SWIG_croak("Usage: gsl_linalg_hessenberg_decomp(A,tau);");
3110 }
3111 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3112 if (!SWIG_IsOK(res1)) {
3113 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_hessenberg_decomp" "', argument " "1"" of type '" "gsl_matrix *""'");
3114 }
3115 arg1 = (gsl_matrix *)(argp1);
3116 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
3117 if (!SWIG_IsOK(res2)) {
3118 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_hessenberg_decomp" "', argument " "2"" of type '" "gsl_vector *""'");
3119 }
3120 arg2 = (gsl_vector *)(argp2);
3121 result = (int)gsl_linalg_hessenberg_decomp(arg1,arg2);
3122 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3123
3124
3125 XSRETURN(argvi);
3126 fail:
3127
3128
3129 SWIG_croak_null();
3130 }
3131 }
3132
3133
XS(_wrap_gsl_linalg_hessenberg_unpack)3134 XS(_wrap_gsl_linalg_hessenberg_unpack) {
3135 {
3136 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
3137 gsl_vector *arg2 = (gsl_vector *) 0 ;
3138 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
3139 void *argp1 = 0 ;
3140 int res1 = 0 ;
3141 void *argp2 = 0 ;
3142 int res2 = 0 ;
3143 void *argp3 = 0 ;
3144 int res3 = 0 ;
3145 int argvi = 0;
3146 int result;
3147 dXSARGS;
3148
3149 if ((items < 3) || (items > 3)) {
3150 SWIG_croak("Usage: gsl_linalg_hessenberg_unpack(H,tau,U);");
3151 }
3152 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3153 if (!SWIG_IsOK(res1)) {
3154 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_hessenberg_unpack" "', argument " "1"" of type '" "gsl_matrix *""'");
3155 }
3156 arg1 = (gsl_matrix *)(argp1);
3157 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
3158 if (!SWIG_IsOK(res2)) {
3159 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_hessenberg_unpack" "', argument " "2"" of type '" "gsl_vector *""'");
3160 }
3161 arg2 = (gsl_vector *)(argp2);
3162 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3163 if (!SWIG_IsOK(res3)) {
3164 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_hessenberg_unpack" "', argument " "3"" of type '" "gsl_matrix *""'");
3165 }
3166 arg3 = (gsl_matrix *)(argp3);
3167 result = (int)gsl_linalg_hessenberg_unpack(arg1,arg2,arg3);
3168 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3169
3170
3171
3172 XSRETURN(argvi);
3173 fail:
3174
3175
3176
3177 SWIG_croak_null();
3178 }
3179 }
3180
3181
XS(_wrap_gsl_linalg_hessenberg_unpack_accum)3182 XS(_wrap_gsl_linalg_hessenberg_unpack_accum) {
3183 {
3184 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
3185 gsl_vector *arg2 = (gsl_vector *) 0 ;
3186 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
3187 void *argp1 = 0 ;
3188 int res1 = 0 ;
3189 void *argp2 = 0 ;
3190 int res2 = 0 ;
3191 void *argp3 = 0 ;
3192 int res3 = 0 ;
3193 int argvi = 0;
3194 int result;
3195 dXSARGS;
3196
3197 if ((items < 3) || (items > 3)) {
3198 SWIG_croak("Usage: gsl_linalg_hessenberg_unpack_accum(H,tau,U);");
3199 }
3200 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3201 if (!SWIG_IsOK(res1)) {
3202 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_hessenberg_unpack_accum" "', argument " "1"" of type '" "gsl_matrix *""'");
3203 }
3204 arg1 = (gsl_matrix *)(argp1);
3205 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
3206 if (!SWIG_IsOK(res2)) {
3207 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_hessenberg_unpack_accum" "', argument " "2"" of type '" "gsl_vector *""'");
3208 }
3209 arg2 = (gsl_vector *)(argp2);
3210 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3211 if (!SWIG_IsOK(res3)) {
3212 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_hessenberg_unpack_accum" "', argument " "3"" of type '" "gsl_matrix *""'");
3213 }
3214 arg3 = (gsl_matrix *)(argp3);
3215 result = (int)gsl_linalg_hessenberg_unpack_accum(arg1,arg2,arg3);
3216 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3217
3218
3219
3220 XSRETURN(argvi);
3221 fail:
3222
3223
3224
3225 SWIG_croak_null();
3226 }
3227 }
3228
3229
XS(_wrap_gsl_linalg_hessenberg_set_zero)3230 XS(_wrap_gsl_linalg_hessenberg_set_zero) {
3231 {
3232 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
3233 void *argp1 = 0 ;
3234 int res1 = 0 ;
3235 int argvi = 0;
3236 int result;
3237 dXSARGS;
3238
3239 if ((items < 1) || (items > 1)) {
3240 SWIG_croak("Usage: gsl_linalg_hessenberg_set_zero(H);");
3241 }
3242 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3243 if (!SWIG_IsOK(res1)) {
3244 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_hessenberg_set_zero" "', argument " "1"" of type '" "gsl_matrix *""'");
3245 }
3246 arg1 = (gsl_matrix *)(argp1);
3247 result = (int)gsl_linalg_hessenberg_set_zero(arg1);
3248 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3249
3250 XSRETURN(argvi);
3251 fail:
3252
3253 SWIG_croak_null();
3254 }
3255 }
3256
3257
XS(_wrap_gsl_linalg_hessenberg_submatrix)3258 XS(_wrap_gsl_linalg_hessenberg_submatrix) {
3259 {
3260 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
3261 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
3262 size_t arg3 ;
3263 gsl_vector *arg4 = (gsl_vector *) 0 ;
3264 void *argp1 = 0 ;
3265 int res1 = 0 ;
3266 void *argp2 = 0 ;
3267 int res2 = 0 ;
3268 size_t val3 ;
3269 int ecode3 = 0 ;
3270 void *argp4 = 0 ;
3271 int res4 = 0 ;
3272 int argvi = 0;
3273 int result;
3274 dXSARGS;
3275
3276 if ((items < 4) || (items > 4)) {
3277 SWIG_croak("Usage: gsl_linalg_hessenberg_submatrix(M,A,top,tau);");
3278 }
3279 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3280 if (!SWIG_IsOK(res1)) {
3281 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_hessenberg_submatrix" "', argument " "1"" of type '" "gsl_matrix *""'");
3282 }
3283 arg1 = (gsl_matrix *)(argp1);
3284 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3285 if (!SWIG_IsOK(res2)) {
3286 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_hessenberg_submatrix" "', argument " "2"" of type '" "gsl_matrix *""'");
3287 }
3288 arg2 = (gsl_matrix *)(argp2);
3289 ecode3 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
3290 if (!SWIG_IsOK(ecode3)) {
3291 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_linalg_hessenberg_submatrix" "', argument " "3"" of type '" "size_t""'");
3292 }
3293 arg3 = (size_t)(val3);
3294 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
3295 if (!SWIG_IsOK(res4)) {
3296 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_hessenberg_submatrix" "', argument " "4"" of type '" "gsl_vector *""'");
3297 }
3298 arg4 = (gsl_vector *)(argp4);
3299 result = (int)gsl_linalg_hessenberg_submatrix(arg1,arg2,arg3,arg4);
3300 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3301
3302
3303
3304
3305 XSRETURN(argvi);
3306 fail:
3307
3308
3309
3310
3311 SWIG_croak_null();
3312 }
3313 }
3314
3315
XS(_wrap_gsl_linalg_hesstri_decomp)3316 XS(_wrap_gsl_linalg_hesstri_decomp) {
3317 {
3318 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
3319 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
3320 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
3321 gsl_matrix *arg4 = (gsl_matrix *) 0 ;
3322 gsl_vector *arg5 = (gsl_vector *) 0 ;
3323 void *argp1 = 0 ;
3324 int res1 = 0 ;
3325 void *argp2 = 0 ;
3326 int res2 = 0 ;
3327 void *argp3 = 0 ;
3328 int res3 = 0 ;
3329 void *argp4 = 0 ;
3330 int res4 = 0 ;
3331 void *argp5 = 0 ;
3332 int res5 = 0 ;
3333 int argvi = 0;
3334 int result;
3335 dXSARGS;
3336
3337 if ((items < 5) || (items > 5)) {
3338 SWIG_croak("Usage: gsl_linalg_hesstri_decomp(A,B,U,V,work);");
3339 }
3340 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3341 if (!SWIG_IsOK(res1)) {
3342 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_hesstri_decomp" "', argument " "1"" of type '" "gsl_matrix *""'");
3343 }
3344 arg1 = (gsl_matrix *)(argp1);
3345 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3346 if (!SWIG_IsOK(res2)) {
3347 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_hesstri_decomp" "', argument " "2"" of type '" "gsl_matrix *""'");
3348 }
3349 arg2 = (gsl_matrix *)(argp2);
3350 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3351 if (!SWIG_IsOK(res3)) {
3352 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_hesstri_decomp" "', argument " "3"" of type '" "gsl_matrix *""'");
3353 }
3354 arg3 = (gsl_matrix *)(argp3);
3355 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3356 if (!SWIG_IsOK(res4)) {
3357 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_hesstri_decomp" "', argument " "4"" of type '" "gsl_matrix *""'");
3358 }
3359 arg4 = (gsl_matrix *)(argp4);
3360 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
3361 if (!SWIG_IsOK(res5)) {
3362 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_hesstri_decomp" "', argument " "5"" of type '" "gsl_vector *""'");
3363 }
3364 arg5 = (gsl_vector *)(argp5);
3365 result = (int)gsl_linalg_hesstri_decomp(arg1,arg2,arg3,arg4,arg5);
3366 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3367
3368
3369
3370
3371
3372 XSRETURN(argvi);
3373 fail:
3374
3375
3376
3377
3378
3379 SWIG_croak_null();
3380 }
3381 }
3382
3383
XS(_wrap_gsl_linalg_SV_decomp)3384 XS(_wrap_gsl_linalg_SV_decomp) {
3385 {
3386 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
3387 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
3388 gsl_vector *arg3 = (gsl_vector *) 0 ;
3389 gsl_vector *arg4 = (gsl_vector *) 0 ;
3390 void *argp1 = 0 ;
3391 int res1 = 0 ;
3392 void *argp2 = 0 ;
3393 int res2 = 0 ;
3394 void *argp3 = 0 ;
3395 int res3 = 0 ;
3396 void *argp4 = 0 ;
3397 int res4 = 0 ;
3398 int argvi = 0;
3399 int result;
3400 dXSARGS;
3401
3402 if ((items < 4) || (items > 4)) {
3403 SWIG_croak("Usage: gsl_linalg_SV_decomp(A,V,S,work);");
3404 }
3405 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3406 if (!SWIG_IsOK(res1)) {
3407 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_SV_decomp" "', argument " "1"" of type '" "gsl_matrix *""'");
3408 }
3409 arg1 = (gsl_matrix *)(argp1);
3410 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3411 if (!SWIG_IsOK(res2)) {
3412 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_SV_decomp" "', argument " "2"" of type '" "gsl_matrix *""'");
3413 }
3414 arg2 = (gsl_matrix *)(argp2);
3415 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
3416 if (!SWIG_IsOK(res3)) {
3417 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_SV_decomp" "', argument " "3"" of type '" "gsl_vector *""'");
3418 }
3419 arg3 = (gsl_vector *)(argp3);
3420 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
3421 if (!SWIG_IsOK(res4)) {
3422 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_SV_decomp" "', argument " "4"" of type '" "gsl_vector *""'");
3423 }
3424 arg4 = (gsl_vector *)(argp4);
3425 result = (int)gsl_linalg_SV_decomp(arg1,arg2,arg3,arg4);
3426 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3427
3428
3429
3430
3431 XSRETURN(argvi);
3432 fail:
3433
3434
3435
3436
3437 SWIG_croak_null();
3438 }
3439 }
3440
3441
XS(_wrap_gsl_linalg_SV_decomp_mod)3442 XS(_wrap_gsl_linalg_SV_decomp_mod) {
3443 {
3444 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
3445 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
3446 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
3447 gsl_vector *arg4 = (gsl_vector *) 0 ;
3448 gsl_vector *arg5 = (gsl_vector *) 0 ;
3449 void *argp1 = 0 ;
3450 int res1 = 0 ;
3451 void *argp2 = 0 ;
3452 int res2 = 0 ;
3453 void *argp3 = 0 ;
3454 int res3 = 0 ;
3455 void *argp4 = 0 ;
3456 int res4 = 0 ;
3457 void *argp5 = 0 ;
3458 int res5 = 0 ;
3459 int argvi = 0;
3460 int result;
3461 dXSARGS;
3462
3463 if ((items < 5) || (items > 5)) {
3464 SWIG_croak("Usage: gsl_linalg_SV_decomp_mod(A,X,V,S,work);");
3465 }
3466 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3467 if (!SWIG_IsOK(res1)) {
3468 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_SV_decomp_mod" "', argument " "1"" of type '" "gsl_matrix *""'");
3469 }
3470 arg1 = (gsl_matrix *)(argp1);
3471 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3472 if (!SWIG_IsOK(res2)) {
3473 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_SV_decomp_mod" "', argument " "2"" of type '" "gsl_matrix *""'");
3474 }
3475 arg2 = (gsl_matrix *)(argp2);
3476 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3477 if (!SWIG_IsOK(res3)) {
3478 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_SV_decomp_mod" "', argument " "3"" of type '" "gsl_matrix *""'");
3479 }
3480 arg3 = (gsl_matrix *)(argp3);
3481 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
3482 if (!SWIG_IsOK(res4)) {
3483 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_SV_decomp_mod" "', argument " "4"" of type '" "gsl_vector *""'");
3484 }
3485 arg4 = (gsl_vector *)(argp4);
3486 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
3487 if (!SWIG_IsOK(res5)) {
3488 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_SV_decomp_mod" "', argument " "5"" of type '" "gsl_vector *""'");
3489 }
3490 arg5 = (gsl_vector *)(argp5);
3491 result = (int)gsl_linalg_SV_decomp_mod(arg1,arg2,arg3,arg4,arg5);
3492 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3493
3494
3495
3496
3497
3498 XSRETURN(argvi);
3499 fail:
3500
3501
3502
3503
3504
3505 SWIG_croak_null();
3506 }
3507 }
3508
3509
XS(_wrap_gsl_linalg_SV_decomp_jacobi)3510 XS(_wrap_gsl_linalg_SV_decomp_jacobi) {
3511 {
3512 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
3513 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
3514 gsl_vector *arg3 = (gsl_vector *) 0 ;
3515 void *argp1 = 0 ;
3516 int res1 = 0 ;
3517 void *argp2 = 0 ;
3518 int res2 = 0 ;
3519 void *argp3 = 0 ;
3520 int res3 = 0 ;
3521 int argvi = 0;
3522 int result;
3523 dXSARGS;
3524
3525 if ((items < 3) || (items > 3)) {
3526 SWIG_croak("Usage: gsl_linalg_SV_decomp_jacobi(A,Q,S);");
3527 }
3528 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3529 if (!SWIG_IsOK(res1)) {
3530 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_SV_decomp_jacobi" "', argument " "1"" of type '" "gsl_matrix *""'");
3531 }
3532 arg1 = (gsl_matrix *)(argp1);
3533 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3534 if (!SWIG_IsOK(res2)) {
3535 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_SV_decomp_jacobi" "', argument " "2"" of type '" "gsl_matrix *""'");
3536 }
3537 arg2 = (gsl_matrix *)(argp2);
3538 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
3539 if (!SWIG_IsOK(res3)) {
3540 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_SV_decomp_jacobi" "', argument " "3"" of type '" "gsl_vector *""'");
3541 }
3542 arg3 = (gsl_vector *)(argp3);
3543 result = (int)gsl_linalg_SV_decomp_jacobi(arg1,arg2,arg3);
3544 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3545
3546
3547
3548 XSRETURN(argvi);
3549 fail:
3550
3551
3552
3553 SWIG_croak_null();
3554 }
3555 }
3556
3557
XS(_wrap_gsl_linalg_SV_solve)3558 XS(_wrap_gsl_linalg_SV_solve) {
3559 {
3560 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
3561 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
3562 gsl_vector *arg3 = (gsl_vector *) 0 ;
3563 gsl_vector *arg4 = (gsl_vector *) 0 ;
3564 gsl_vector *arg5 = (gsl_vector *) 0 ;
3565 void *argp1 = 0 ;
3566 int res1 = 0 ;
3567 void *argp2 = 0 ;
3568 int res2 = 0 ;
3569 void *argp3 = 0 ;
3570 int res3 = 0 ;
3571 void *argp4 = 0 ;
3572 int res4 = 0 ;
3573 void *argp5 = 0 ;
3574 int res5 = 0 ;
3575 int argvi = 0;
3576 int result;
3577 dXSARGS;
3578
3579 if ((items < 5) || (items > 5)) {
3580 SWIG_croak("Usage: gsl_linalg_SV_solve(U,Q,S,b,x);");
3581 }
3582 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3583 if (!SWIG_IsOK(res1)) {
3584 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_SV_solve" "', argument " "1"" of type '" "gsl_matrix const *""'");
3585 }
3586 arg1 = (gsl_matrix *)(argp1);
3587 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3588 if (!SWIG_IsOK(res2)) {
3589 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_SV_solve" "', argument " "2"" of type '" "gsl_matrix const *""'");
3590 }
3591 arg2 = (gsl_matrix *)(argp2);
3592 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
3593 if (!SWIG_IsOK(res3)) {
3594 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_SV_solve" "', argument " "3"" of type '" "gsl_vector const *""'");
3595 }
3596 arg3 = (gsl_vector *)(argp3);
3597 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
3598 if (!SWIG_IsOK(res4)) {
3599 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_SV_solve" "', argument " "4"" of type '" "gsl_vector const *""'");
3600 }
3601 arg4 = (gsl_vector *)(argp4);
3602 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
3603 if (!SWIG_IsOK(res5)) {
3604 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_SV_solve" "', argument " "5"" of type '" "gsl_vector *""'");
3605 }
3606 arg5 = (gsl_vector *)(argp5);
3607 result = (int)gsl_linalg_SV_solve((gsl_matrix const *)arg1,(gsl_matrix const *)arg2,(gsl_vector const *)arg3,(gsl_vector const *)arg4,arg5);
3608 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3609
3610
3611
3612
3613
3614 XSRETURN(argvi);
3615 fail:
3616
3617
3618
3619
3620
3621 SWIG_croak_null();
3622 }
3623 }
3624
3625
XS(_wrap_gsl_linalg_SV_leverage)3626 XS(_wrap_gsl_linalg_SV_leverage) {
3627 {
3628 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
3629 gsl_vector *arg2 = (gsl_vector *) 0 ;
3630 void *argp1 = 0 ;
3631 int res1 = 0 ;
3632 void *argp2 = 0 ;
3633 int res2 = 0 ;
3634 int argvi = 0;
3635 int result;
3636 dXSARGS;
3637
3638 if ((items < 2) || (items > 2)) {
3639 SWIG_croak("Usage: gsl_linalg_SV_leverage(U,h);");
3640 }
3641 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3642 if (!SWIG_IsOK(res1)) {
3643 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_SV_leverage" "', argument " "1"" of type '" "gsl_matrix const *""'");
3644 }
3645 arg1 = (gsl_matrix *)(argp1);
3646 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
3647 if (!SWIG_IsOK(res2)) {
3648 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_SV_leverage" "', argument " "2"" of type '" "gsl_vector *""'");
3649 }
3650 arg2 = (gsl_vector *)(argp2);
3651 result = (int)gsl_linalg_SV_leverage((gsl_matrix const *)arg1,arg2);
3652 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3653
3654
3655 XSRETURN(argvi);
3656 fail:
3657
3658
3659 SWIG_croak_null();
3660 }
3661 }
3662
3663
XS(_wrap_gsl_linalg_LU_decomp)3664 XS(_wrap_gsl_linalg_LU_decomp) {
3665 {
3666 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
3667 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
3668 int *arg3 = (int *) 0 ;
3669 void *argp1 = 0 ;
3670 int res1 = 0 ;
3671 void *argp2 = 0 ;
3672 int res2 = 0 ;
3673 int temp3 ;
3674 int res3 = SWIG_TMPOBJ ;
3675 int argvi = 0;
3676 int result;
3677 dXSARGS;
3678
3679 arg3 = &temp3;
3680 if ((items < 2) || (items > 2)) {
3681 SWIG_croak("Usage: gsl_linalg_LU_decomp(A,p);");
3682 }
3683 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3684 if (!SWIG_IsOK(res1)) {
3685 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LU_decomp" "', argument " "1"" of type '" "gsl_matrix *""'");
3686 }
3687 arg1 = (gsl_matrix *)(argp1);
3688 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
3689 if (!SWIG_IsOK(res2)) {
3690 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_LU_decomp" "', argument " "2"" of type '" "gsl_permutation *""'");
3691 }
3692 arg2 = (gsl_permutation *)(argp2);
3693 result = (int)gsl_linalg_LU_decomp(arg1,arg2,arg3);
3694 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3695 if (SWIG_IsTmpObj(res3)) {
3696 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((*arg3)); argvi++ ;
3697 } else {
3698 int new_flags = SWIG_IsNewObj(res3) ? (SWIG_POINTER_OWN | 0) : 0;
3699 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg3), SWIGTYPE_p_int, new_flags); argvi++ ;
3700 }
3701
3702
3703
3704 XSRETURN(argvi);
3705 fail:
3706
3707
3708
3709 SWIG_croak_null();
3710 }
3711 }
3712
3713
XS(_wrap_gsl_linalg_LU_solve)3714 XS(_wrap_gsl_linalg_LU_solve) {
3715 {
3716 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
3717 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
3718 gsl_vector *arg3 = (gsl_vector *) 0 ;
3719 gsl_vector *arg4 = (gsl_vector *) 0 ;
3720 void *argp1 = 0 ;
3721 int res1 = 0 ;
3722 void *argp2 = 0 ;
3723 int res2 = 0 ;
3724 void *argp3 = 0 ;
3725 int res3 = 0 ;
3726 void *argp4 = 0 ;
3727 int res4 = 0 ;
3728 int argvi = 0;
3729 int result;
3730 dXSARGS;
3731
3732 if ((items < 4) || (items > 4)) {
3733 SWIG_croak("Usage: gsl_linalg_LU_solve(LU,p,b,x);");
3734 }
3735 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3736 if (!SWIG_IsOK(res1)) {
3737 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LU_solve" "', argument " "1"" of type '" "gsl_matrix const *""'");
3738 }
3739 arg1 = (gsl_matrix *)(argp1);
3740 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
3741 if (!SWIG_IsOK(res2)) {
3742 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_LU_solve" "', argument " "2"" of type '" "gsl_permutation const *""'");
3743 }
3744 arg2 = (gsl_permutation *)(argp2);
3745 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
3746 if (!SWIG_IsOK(res3)) {
3747 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_LU_solve" "', argument " "3"" of type '" "gsl_vector const *""'");
3748 }
3749 arg3 = (gsl_vector *)(argp3);
3750 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
3751 if (!SWIG_IsOK(res4)) {
3752 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_LU_solve" "', argument " "4"" of type '" "gsl_vector *""'");
3753 }
3754 arg4 = (gsl_vector *)(argp4);
3755 result = (int)gsl_linalg_LU_solve((gsl_matrix const *)arg1,(struct gsl_permutation_struct const *)arg2,(gsl_vector const *)arg3,arg4);
3756 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3757
3758
3759
3760
3761 XSRETURN(argvi);
3762 fail:
3763
3764
3765
3766
3767 SWIG_croak_null();
3768 }
3769 }
3770
3771
XS(_wrap_gsl_linalg_LU_svx)3772 XS(_wrap_gsl_linalg_LU_svx) {
3773 {
3774 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
3775 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
3776 gsl_vector *arg3 = (gsl_vector *) 0 ;
3777 void *argp1 = 0 ;
3778 int res1 = 0 ;
3779 void *argp2 = 0 ;
3780 int res2 = 0 ;
3781 void *argp3 = 0 ;
3782 int res3 = 0 ;
3783 int argvi = 0;
3784 int result;
3785 dXSARGS;
3786
3787 if ((items < 3) || (items > 3)) {
3788 SWIG_croak("Usage: gsl_linalg_LU_svx(LU,p,x);");
3789 }
3790 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3791 if (!SWIG_IsOK(res1)) {
3792 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LU_svx" "', argument " "1"" of type '" "gsl_matrix const *""'");
3793 }
3794 arg1 = (gsl_matrix *)(argp1);
3795 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
3796 if (!SWIG_IsOK(res2)) {
3797 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_LU_svx" "', argument " "2"" of type '" "gsl_permutation const *""'");
3798 }
3799 arg2 = (gsl_permutation *)(argp2);
3800 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
3801 if (!SWIG_IsOK(res3)) {
3802 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_LU_svx" "', argument " "3"" of type '" "gsl_vector *""'");
3803 }
3804 arg3 = (gsl_vector *)(argp3);
3805 result = (int)gsl_linalg_LU_svx((gsl_matrix const *)arg1,(struct gsl_permutation_struct const *)arg2,arg3);
3806 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3807
3808
3809
3810 XSRETURN(argvi);
3811 fail:
3812
3813
3814
3815 SWIG_croak_null();
3816 }
3817 }
3818
3819
XS(_wrap_gsl_linalg_LU_refine)3820 XS(_wrap_gsl_linalg_LU_refine) {
3821 {
3822 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
3823 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
3824 gsl_permutation *arg3 = (gsl_permutation *) 0 ;
3825 gsl_vector *arg4 = (gsl_vector *) 0 ;
3826 gsl_vector *arg5 = (gsl_vector *) 0 ;
3827 gsl_vector *arg6 = (gsl_vector *) 0 ;
3828 void *argp1 = 0 ;
3829 int res1 = 0 ;
3830 void *argp2 = 0 ;
3831 int res2 = 0 ;
3832 void *argp3 = 0 ;
3833 int res3 = 0 ;
3834 void *argp4 = 0 ;
3835 int res4 = 0 ;
3836 void *argp5 = 0 ;
3837 int res5 = 0 ;
3838 void *argp6 = 0 ;
3839 int res6 = 0 ;
3840 int argvi = 0;
3841 int result;
3842 dXSARGS;
3843
3844 if ((items < 6) || (items > 6)) {
3845 SWIG_croak("Usage: gsl_linalg_LU_refine(A,LU,p,b,x,work);");
3846 }
3847 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3848 if (!SWIG_IsOK(res1)) {
3849 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LU_refine" "', argument " "1"" of type '" "gsl_matrix const *""'");
3850 }
3851 arg1 = (gsl_matrix *)(argp1);
3852 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3853 if (!SWIG_IsOK(res2)) {
3854 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_LU_refine" "', argument " "2"" of type '" "gsl_matrix const *""'");
3855 }
3856 arg2 = (gsl_matrix *)(argp2);
3857 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
3858 if (!SWIG_IsOK(res3)) {
3859 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_LU_refine" "', argument " "3"" of type '" "gsl_permutation const *""'");
3860 }
3861 arg3 = (gsl_permutation *)(argp3);
3862 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
3863 if (!SWIG_IsOK(res4)) {
3864 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_LU_refine" "', argument " "4"" of type '" "gsl_vector const *""'");
3865 }
3866 arg4 = (gsl_vector *)(argp4);
3867 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
3868 if (!SWIG_IsOK(res5)) {
3869 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_LU_refine" "', argument " "5"" of type '" "gsl_vector *""'");
3870 }
3871 arg5 = (gsl_vector *)(argp5);
3872 res6 = SWIG_ConvertPtr(ST(5), &argp6,SWIGTYPE_p_gsl_vector, 0 | 0 );
3873 if (!SWIG_IsOK(res6)) {
3874 SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_linalg_LU_refine" "', argument " "6"" of type '" "gsl_vector *""'");
3875 }
3876 arg6 = (gsl_vector *)(argp6);
3877 result = (int)gsl_linalg_LU_refine((gsl_matrix const *)arg1,(gsl_matrix const *)arg2,(struct gsl_permutation_struct const *)arg3,(gsl_vector const *)arg4,arg5,arg6);
3878 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3879
3880
3881
3882
3883
3884
3885 XSRETURN(argvi);
3886 fail:
3887
3888
3889
3890
3891
3892
3893 SWIG_croak_null();
3894 }
3895 }
3896
3897
XS(_wrap_gsl_linalg_LU_invert)3898 XS(_wrap_gsl_linalg_LU_invert) {
3899 {
3900 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
3901 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
3902 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
3903 void *argp1 = 0 ;
3904 int res1 = 0 ;
3905 void *argp2 = 0 ;
3906 int res2 = 0 ;
3907 void *argp3 = 0 ;
3908 int res3 = 0 ;
3909 int argvi = 0;
3910 int result;
3911 dXSARGS;
3912
3913 if ((items < 3) || (items > 3)) {
3914 SWIG_croak("Usage: gsl_linalg_LU_invert(LU,p,inverse);");
3915 }
3916 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3917 if (!SWIG_IsOK(res1)) {
3918 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LU_invert" "', argument " "1"" of type '" "gsl_matrix const *""'");
3919 }
3920 arg1 = (gsl_matrix *)(argp1);
3921 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
3922 if (!SWIG_IsOK(res2)) {
3923 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_LU_invert" "', argument " "2"" of type '" "gsl_permutation const *""'");
3924 }
3925 arg2 = (gsl_permutation *)(argp2);
3926 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3927 if (!SWIG_IsOK(res3)) {
3928 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_LU_invert" "', argument " "3"" of type '" "gsl_matrix *""'");
3929 }
3930 arg3 = (gsl_matrix *)(argp3);
3931 result = (int)gsl_linalg_LU_invert((gsl_matrix const *)arg1,(struct gsl_permutation_struct const *)arg2,arg3);
3932 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3933
3934
3935
3936 XSRETURN(argvi);
3937 fail:
3938
3939
3940
3941 SWIG_croak_null();
3942 }
3943 }
3944
3945
XS(_wrap_gsl_linalg_LU_det)3946 XS(_wrap_gsl_linalg_LU_det) {
3947 {
3948 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
3949 int arg2 ;
3950 void *argp1 = 0 ;
3951 int res1 = 0 ;
3952 int val2 ;
3953 int ecode2 = 0 ;
3954 int argvi = 0;
3955 double result;
3956 dXSARGS;
3957
3958 if ((items < 2) || (items > 2)) {
3959 SWIG_croak("Usage: gsl_linalg_LU_det(LU,signum);");
3960 }
3961 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3962 if (!SWIG_IsOK(res1)) {
3963 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LU_det" "', argument " "1"" of type '" "gsl_matrix *""'");
3964 }
3965 arg1 = (gsl_matrix *)(argp1);
3966 ecode2 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
3967 if (!SWIG_IsOK(ecode2)) {
3968 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_linalg_LU_det" "', argument " "2"" of type '" "int""'");
3969 }
3970 arg2 = (int)(val2);
3971 result = (double)gsl_linalg_LU_det(arg1,arg2);
3972 ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(result)); argvi++ ;
3973
3974
3975 XSRETURN(argvi);
3976 fail:
3977
3978
3979 SWIG_croak_null();
3980 }
3981 }
3982
3983
XS(_wrap_gsl_linalg_LU_lndet)3984 XS(_wrap_gsl_linalg_LU_lndet) {
3985 {
3986 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
3987 void *argp1 = 0 ;
3988 int res1 = 0 ;
3989 int argvi = 0;
3990 double result;
3991 dXSARGS;
3992
3993 if ((items < 1) || (items > 1)) {
3994 SWIG_croak("Usage: gsl_linalg_LU_lndet(LU);");
3995 }
3996 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3997 if (!SWIG_IsOK(res1)) {
3998 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LU_lndet" "', argument " "1"" of type '" "gsl_matrix *""'");
3999 }
4000 arg1 = (gsl_matrix *)(argp1);
4001 result = (double)gsl_linalg_LU_lndet(arg1);
4002 ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(result)); argvi++ ;
4003
4004 XSRETURN(argvi);
4005 fail:
4006
4007 SWIG_croak_null();
4008 }
4009 }
4010
4011
XS(_wrap_gsl_linalg_LU_sgndet)4012 XS(_wrap_gsl_linalg_LU_sgndet) {
4013 {
4014 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
4015 int arg2 ;
4016 void *argp1 = 0 ;
4017 int res1 = 0 ;
4018 int val2 ;
4019 int ecode2 = 0 ;
4020 int argvi = 0;
4021 int result;
4022 dXSARGS;
4023
4024 if ((items < 2) || (items > 2)) {
4025 SWIG_croak("Usage: gsl_linalg_LU_sgndet(lu,signum);");
4026 }
4027 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
4028 if (!SWIG_IsOK(res1)) {
4029 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LU_sgndet" "', argument " "1"" of type '" "gsl_matrix *""'");
4030 }
4031 arg1 = (gsl_matrix *)(argp1);
4032 ecode2 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
4033 if (!SWIG_IsOK(ecode2)) {
4034 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_linalg_LU_sgndet" "', argument " "2"" of type '" "int""'");
4035 }
4036 arg2 = (int)(val2);
4037 result = (int)gsl_linalg_LU_sgndet(arg1,arg2);
4038 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4039
4040
4041 XSRETURN(argvi);
4042 fail:
4043
4044
4045 SWIG_croak_null();
4046 }
4047 }
4048
4049
XS(_wrap_gsl_linalg_complex_LU_decomp)4050 XS(_wrap_gsl_linalg_complex_LU_decomp) {
4051 {
4052 gsl_matrix_complex *arg1 = (gsl_matrix_complex *) 0 ;
4053 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
4054 int *arg3 = (int *) 0 ;
4055 void *argp1 = 0 ;
4056 int res1 = 0 ;
4057 void *argp2 = 0 ;
4058 int res2 = 0 ;
4059 int temp3 ;
4060 int res3 = SWIG_TMPOBJ ;
4061 int argvi = 0;
4062 int result;
4063 dXSARGS;
4064
4065 arg3 = &temp3;
4066 if ((items < 2) || (items > 2)) {
4067 SWIG_croak("Usage: gsl_linalg_complex_LU_decomp(A,p);");
4068 }
4069 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
4070 if (!SWIG_IsOK(res1)) {
4071 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_complex_LU_decomp" "', argument " "1"" of type '" "gsl_matrix_complex *""'");
4072 }
4073 arg1 = (gsl_matrix_complex *)(argp1);
4074 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
4075 if (!SWIG_IsOK(res2)) {
4076 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_complex_LU_decomp" "', argument " "2"" of type '" "gsl_permutation *""'");
4077 }
4078 arg2 = (gsl_permutation *)(argp2);
4079 result = (int)gsl_linalg_complex_LU_decomp(arg1,arg2,arg3);
4080 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4081 if (SWIG_IsTmpObj(res3)) {
4082 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((*arg3)); argvi++ ;
4083 } else {
4084 int new_flags = SWIG_IsNewObj(res3) ? (SWIG_POINTER_OWN | 0) : 0;
4085 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg3), SWIGTYPE_p_int, new_flags); argvi++ ;
4086 }
4087
4088
4089
4090 XSRETURN(argvi);
4091 fail:
4092
4093
4094
4095 SWIG_croak_null();
4096 }
4097 }
4098
4099
XS(_wrap_gsl_linalg_complex_LU_solve)4100 XS(_wrap_gsl_linalg_complex_LU_solve) {
4101 {
4102 gsl_matrix_complex *arg1 = (gsl_matrix_complex *) 0 ;
4103 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
4104 gsl_vector_complex *arg3 = (gsl_vector_complex *) 0 ;
4105 gsl_vector_complex *arg4 = (gsl_vector_complex *) 0 ;
4106 void *argp1 = 0 ;
4107 int res1 = 0 ;
4108 void *argp2 = 0 ;
4109 int res2 = 0 ;
4110 void *argp3 = 0 ;
4111 int res3 = 0 ;
4112 void *argp4 = 0 ;
4113 int res4 = 0 ;
4114 int argvi = 0;
4115 int result;
4116 dXSARGS;
4117
4118 if ((items < 4) || (items > 4)) {
4119 SWIG_croak("Usage: gsl_linalg_complex_LU_solve(LU,p,b,x);");
4120 }
4121 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
4122 if (!SWIG_IsOK(res1)) {
4123 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_complex_LU_solve" "', argument " "1"" of type '" "gsl_matrix_complex const *""'");
4124 }
4125 arg1 = (gsl_matrix_complex *)(argp1);
4126 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
4127 if (!SWIG_IsOK(res2)) {
4128 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_complex_LU_solve" "', argument " "2"" of type '" "gsl_permutation const *""'");
4129 }
4130 arg2 = (gsl_permutation *)(argp2);
4131 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
4132 if (!SWIG_IsOK(res3)) {
4133 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_complex_LU_solve" "', argument " "3"" of type '" "gsl_vector_complex const *""'");
4134 }
4135 arg3 = (gsl_vector_complex *)(argp3);
4136 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
4137 if (!SWIG_IsOK(res4)) {
4138 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_complex_LU_solve" "', argument " "4"" of type '" "gsl_vector_complex *""'");
4139 }
4140 arg4 = (gsl_vector_complex *)(argp4);
4141 result = (int)gsl_linalg_complex_LU_solve((gsl_matrix_complex const *)arg1,(struct gsl_permutation_struct const *)arg2,(gsl_vector_complex const *)arg3,arg4);
4142 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4143
4144
4145
4146
4147 XSRETURN(argvi);
4148 fail:
4149
4150
4151
4152
4153 SWIG_croak_null();
4154 }
4155 }
4156
4157
XS(_wrap_gsl_linalg_complex_LU_svx)4158 XS(_wrap_gsl_linalg_complex_LU_svx) {
4159 {
4160 gsl_matrix_complex *arg1 = (gsl_matrix_complex *) 0 ;
4161 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
4162 gsl_vector_complex *arg3 = (gsl_vector_complex *) 0 ;
4163 void *argp1 = 0 ;
4164 int res1 = 0 ;
4165 void *argp2 = 0 ;
4166 int res2 = 0 ;
4167 void *argp3 = 0 ;
4168 int res3 = 0 ;
4169 int argvi = 0;
4170 int result;
4171 dXSARGS;
4172
4173 if ((items < 3) || (items > 3)) {
4174 SWIG_croak("Usage: gsl_linalg_complex_LU_svx(LU,p,x);");
4175 }
4176 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
4177 if (!SWIG_IsOK(res1)) {
4178 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_complex_LU_svx" "', argument " "1"" of type '" "gsl_matrix_complex const *""'");
4179 }
4180 arg1 = (gsl_matrix_complex *)(argp1);
4181 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
4182 if (!SWIG_IsOK(res2)) {
4183 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_complex_LU_svx" "', argument " "2"" of type '" "gsl_permutation const *""'");
4184 }
4185 arg2 = (gsl_permutation *)(argp2);
4186 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
4187 if (!SWIG_IsOK(res3)) {
4188 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_complex_LU_svx" "', argument " "3"" of type '" "gsl_vector_complex *""'");
4189 }
4190 arg3 = (gsl_vector_complex *)(argp3);
4191 result = (int)gsl_linalg_complex_LU_svx((gsl_matrix_complex const *)arg1,(struct gsl_permutation_struct const *)arg2,arg3);
4192 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4193
4194
4195
4196 XSRETURN(argvi);
4197 fail:
4198
4199
4200
4201 SWIG_croak_null();
4202 }
4203 }
4204
4205
XS(_wrap_gsl_linalg_complex_LU_refine)4206 XS(_wrap_gsl_linalg_complex_LU_refine) {
4207 {
4208 gsl_matrix_complex *arg1 = (gsl_matrix_complex *) 0 ;
4209 gsl_matrix_complex *arg2 = (gsl_matrix_complex *) 0 ;
4210 gsl_permutation *arg3 = (gsl_permutation *) 0 ;
4211 gsl_vector_complex *arg4 = (gsl_vector_complex *) 0 ;
4212 gsl_vector_complex *arg5 = (gsl_vector_complex *) 0 ;
4213 gsl_vector_complex *arg6 = (gsl_vector_complex *) 0 ;
4214 void *argp1 = 0 ;
4215 int res1 = 0 ;
4216 void *argp2 = 0 ;
4217 int res2 = 0 ;
4218 void *argp3 = 0 ;
4219 int res3 = 0 ;
4220 void *argp4 = 0 ;
4221 int res4 = 0 ;
4222 void *argp5 = 0 ;
4223 int res5 = 0 ;
4224 void *argp6 = 0 ;
4225 int res6 = 0 ;
4226 int argvi = 0;
4227 int result;
4228 dXSARGS;
4229
4230 if ((items < 6) || (items > 6)) {
4231 SWIG_croak("Usage: gsl_linalg_complex_LU_refine(A,LU,p,b,x,work);");
4232 }
4233 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
4234 if (!SWIG_IsOK(res1)) {
4235 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_complex_LU_refine" "', argument " "1"" of type '" "gsl_matrix_complex const *""'");
4236 }
4237 arg1 = (gsl_matrix_complex *)(argp1);
4238 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
4239 if (!SWIG_IsOK(res2)) {
4240 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_complex_LU_refine" "', argument " "2"" of type '" "gsl_matrix_complex const *""'");
4241 }
4242 arg2 = (gsl_matrix_complex *)(argp2);
4243 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
4244 if (!SWIG_IsOK(res3)) {
4245 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_complex_LU_refine" "', argument " "3"" of type '" "gsl_permutation const *""'");
4246 }
4247 arg3 = (gsl_permutation *)(argp3);
4248 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
4249 if (!SWIG_IsOK(res4)) {
4250 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_complex_LU_refine" "', argument " "4"" of type '" "gsl_vector_complex const *""'");
4251 }
4252 arg4 = (gsl_vector_complex *)(argp4);
4253 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
4254 if (!SWIG_IsOK(res5)) {
4255 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_complex_LU_refine" "', argument " "5"" of type '" "gsl_vector_complex *""'");
4256 }
4257 arg5 = (gsl_vector_complex *)(argp5);
4258 res6 = SWIG_ConvertPtr(ST(5), &argp6,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
4259 if (!SWIG_IsOK(res6)) {
4260 SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_linalg_complex_LU_refine" "', argument " "6"" of type '" "gsl_vector_complex *""'");
4261 }
4262 arg6 = (gsl_vector_complex *)(argp6);
4263 result = (int)gsl_linalg_complex_LU_refine((gsl_matrix_complex const *)arg1,(gsl_matrix_complex const *)arg2,(struct gsl_permutation_struct const *)arg3,(gsl_vector_complex const *)arg4,arg5,arg6);
4264 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4265
4266
4267
4268
4269
4270
4271 XSRETURN(argvi);
4272 fail:
4273
4274
4275
4276
4277
4278
4279 SWIG_croak_null();
4280 }
4281 }
4282
4283
XS(_wrap_gsl_linalg_complex_LU_invert)4284 XS(_wrap_gsl_linalg_complex_LU_invert) {
4285 {
4286 gsl_matrix_complex *arg1 = (gsl_matrix_complex *) 0 ;
4287 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
4288 gsl_matrix_complex *arg3 = (gsl_matrix_complex *) 0 ;
4289 void *argp1 = 0 ;
4290 int res1 = 0 ;
4291 void *argp2 = 0 ;
4292 int res2 = 0 ;
4293 void *argp3 = 0 ;
4294 int res3 = 0 ;
4295 int argvi = 0;
4296 int result;
4297 dXSARGS;
4298
4299 if ((items < 3) || (items > 3)) {
4300 SWIG_croak("Usage: gsl_linalg_complex_LU_invert(LU,p,inverse);");
4301 }
4302 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
4303 if (!SWIG_IsOK(res1)) {
4304 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_complex_LU_invert" "', argument " "1"" of type '" "gsl_matrix_complex const *""'");
4305 }
4306 arg1 = (gsl_matrix_complex *)(argp1);
4307 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
4308 if (!SWIG_IsOK(res2)) {
4309 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_complex_LU_invert" "', argument " "2"" of type '" "gsl_permutation const *""'");
4310 }
4311 arg2 = (gsl_permutation *)(argp2);
4312 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
4313 if (!SWIG_IsOK(res3)) {
4314 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_complex_LU_invert" "', argument " "3"" of type '" "gsl_matrix_complex *""'");
4315 }
4316 arg3 = (gsl_matrix_complex *)(argp3);
4317 result = (int)gsl_linalg_complex_LU_invert((gsl_matrix_complex const *)arg1,(struct gsl_permutation_struct const *)arg2,arg3);
4318 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4319
4320
4321
4322 XSRETURN(argvi);
4323 fail:
4324
4325
4326
4327 SWIG_croak_null();
4328 }
4329 }
4330
4331
XS(_wrap_gsl_linalg_complex_LU_det)4332 XS(_wrap_gsl_linalg_complex_LU_det) {
4333 {
4334 gsl_matrix_complex *arg1 = (gsl_matrix_complex *) 0 ;
4335 int arg2 ;
4336 void *argp1 = 0 ;
4337 int res1 = 0 ;
4338 int val2 ;
4339 int ecode2 = 0 ;
4340 int argvi = 0;
4341 gsl_complex result;
4342 dXSARGS;
4343
4344 if ((items < 2) || (items > 2)) {
4345 SWIG_croak("Usage: gsl_linalg_complex_LU_det(LU,signum);");
4346 }
4347 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
4348 if (!SWIG_IsOK(res1)) {
4349 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_complex_LU_det" "', argument " "1"" of type '" "gsl_matrix_complex *""'");
4350 }
4351 arg1 = (gsl_matrix_complex *)(argp1);
4352 ecode2 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
4353 if (!SWIG_IsOK(ecode2)) {
4354 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_linalg_complex_LU_det" "', argument " "2"" of type '" "int""'");
4355 }
4356 arg2 = (int)(val2);
4357 result = gsl_linalg_complex_LU_det(arg1,arg2);
4358 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
4359
4360
4361 XSRETURN(argvi);
4362 fail:
4363
4364
4365 SWIG_croak_null();
4366 }
4367 }
4368
4369
XS(_wrap_gsl_linalg_complex_LU_lndet)4370 XS(_wrap_gsl_linalg_complex_LU_lndet) {
4371 {
4372 gsl_matrix_complex *arg1 = (gsl_matrix_complex *) 0 ;
4373 void *argp1 = 0 ;
4374 int res1 = 0 ;
4375 int argvi = 0;
4376 double result;
4377 dXSARGS;
4378
4379 if ((items < 1) || (items > 1)) {
4380 SWIG_croak("Usage: gsl_linalg_complex_LU_lndet(LU);");
4381 }
4382 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
4383 if (!SWIG_IsOK(res1)) {
4384 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_complex_LU_lndet" "', argument " "1"" of type '" "gsl_matrix_complex *""'");
4385 }
4386 arg1 = (gsl_matrix_complex *)(argp1);
4387 result = (double)gsl_linalg_complex_LU_lndet(arg1);
4388 ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(result)); argvi++ ;
4389
4390 XSRETURN(argvi);
4391 fail:
4392
4393 SWIG_croak_null();
4394 }
4395 }
4396
4397
XS(_wrap_gsl_linalg_complex_LU_sgndet)4398 XS(_wrap_gsl_linalg_complex_LU_sgndet) {
4399 {
4400 gsl_matrix_complex *arg1 = (gsl_matrix_complex *) 0 ;
4401 int arg2 ;
4402 void *argp1 = 0 ;
4403 int res1 = 0 ;
4404 int val2 ;
4405 int ecode2 = 0 ;
4406 int argvi = 0;
4407 gsl_complex result;
4408 dXSARGS;
4409
4410 if ((items < 2) || (items > 2)) {
4411 SWIG_croak("Usage: gsl_linalg_complex_LU_sgndet(LU,signum);");
4412 }
4413 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
4414 if (!SWIG_IsOK(res1)) {
4415 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_complex_LU_sgndet" "', argument " "1"" of type '" "gsl_matrix_complex *""'");
4416 }
4417 arg1 = (gsl_matrix_complex *)(argp1);
4418 ecode2 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
4419 if (!SWIG_IsOK(ecode2)) {
4420 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_linalg_complex_LU_sgndet" "', argument " "2"" of type '" "int""'");
4421 }
4422 arg2 = (int)(val2);
4423 result = gsl_linalg_complex_LU_sgndet(arg1,arg2);
4424 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
4425
4426
4427 XSRETURN(argvi);
4428 fail:
4429
4430
4431 SWIG_croak_null();
4432 }
4433 }
4434
4435
XS(_wrap_gsl_linalg_QR_decomp)4436 XS(_wrap_gsl_linalg_QR_decomp) {
4437 {
4438 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
4439 gsl_vector *arg2 = (gsl_vector *) 0 ;
4440 void *argp1 = 0 ;
4441 int res1 = 0 ;
4442 void *argp2 = 0 ;
4443 int res2 = 0 ;
4444 int argvi = 0;
4445 int result;
4446 dXSARGS;
4447
4448 if ((items < 2) || (items > 2)) {
4449 SWIG_croak("Usage: gsl_linalg_QR_decomp(A,tau);");
4450 }
4451 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
4452 if (!SWIG_IsOK(res1)) {
4453 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QR_decomp" "', argument " "1"" of type '" "gsl_matrix *""'");
4454 }
4455 arg1 = (gsl_matrix *)(argp1);
4456 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
4457 if (!SWIG_IsOK(res2)) {
4458 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QR_decomp" "', argument " "2"" of type '" "gsl_vector *""'");
4459 }
4460 arg2 = (gsl_vector *)(argp2);
4461 result = (int)gsl_linalg_QR_decomp(arg1,arg2);
4462 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4463
4464
4465 XSRETURN(argvi);
4466 fail:
4467
4468
4469 SWIG_croak_null();
4470 }
4471 }
4472
4473
XS(_wrap_gsl_linalg_QR_solve)4474 XS(_wrap_gsl_linalg_QR_solve) {
4475 {
4476 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
4477 gsl_vector *arg2 = (gsl_vector *) 0 ;
4478 gsl_vector *arg3 = (gsl_vector *) 0 ;
4479 gsl_vector *arg4 = (gsl_vector *) 0 ;
4480 void *argp1 = 0 ;
4481 int res1 = 0 ;
4482 void *argp2 = 0 ;
4483 int res2 = 0 ;
4484 void *argp3 = 0 ;
4485 int res3 = 0 ;
4486 void *argp4 = 0 ;
4487 int res4 = 0 ;
4488 int argvi = 0;
4489 int result;
4490 dXSARGS;
4491
4492 if ((items < 4) || (items > 4)) {
4493 SWIG_croak("Usage: gsl_linalg_QR_solve(QR,tau,b,x);");
4494 }
4495 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
4496 if (!SWIG_IsOK(res1)) {
4497 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QR_solve" "', argument " "1"" of type '" "gsl_matrix const *""'");
4498 }
4499 arg1 = (gsl_matrix *)(argp1);
4500 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
4501 if (!SWIG_IsOK(res2)) {
4502 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QR_solve" "', argument " "2"" of type '" "gsl_vector const *""'");
4503 }
4504 arg2 = (gsl_vector *)(argp2);
4505 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
4506 if (!SWIG_IsOK(res3)) {
4507 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QR_solve" "', argument " "3"" of type '" "gsl_vector const *""'");
4508 }
4509 arg3 = (gsl_vector *)(argp3);
4510 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
4511 if (!SWIG_IsOK(res4)) {
4512 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_QR_solve" "', argument " "4"" of type '" "gsl_vector *""'");
4513 }
4514 arg4 = (gsl_vector *)(argp4);
4515 result = (int)gsl_linalg_QR_solve((gsl_matrix const *)arg1,(gsl_vector const *)arg2,(gsl_vector const *)arg3,arg4);
4516 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4517
4518
4519
4520
4521 XSRETURN(argvi);
4522 fail:
4523
4524
4525
4526
4527 SWIG_croak_null();
4528 }
4529 }
4530
4531
XS(_wrap_gsl_linalg_QR_svx)4532 XS(_wrap_gsl_linalg_QR_svx) {
4533 {
4534 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
4535 gsl_vector *arg2 = (gsl_vector *) 0 ;
4536 gsl_vector *arg3 = (gsl_vector *) 0 ;
4537 void *argp1 = 0 ;
4538 int res1 = 0 ;
4539 void *argp2 = 0 ;
4540 int res2 = 0 ;
4541 void *argp3 = 0 ;
4542 int res3 = 0 ;
4543 int argvi = 0;
4544 int result;
4545 dXSARGS;
4546
4547 if ((items < 3) || (items > 3)) {
4548 SWIG_croak("Usage: gsl_linalg_QR_svx(QR,tau,x);");
4549 }
4550 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
4551 if (!SWIG_IsOK(res1)) {
4552 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QR_svx" "', argument " "1"" of type '" "gsl_matrix const *""'");
4553 }
4554 arg1 = (gsl_matrix *)(argp1);
4555 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
4556 if (!SWIG_IsOK(res2)) {
4557 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QR_svx" "', argument " "2"" of type '" "gsl_vector const *""'");
4558 }
4559 arg2 = (gsl_vector *)(argp2);
4560 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
4561 if (!SWIG_IsOK(res3)) {
4562 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QR_svx" "', argument " "3"" of type '" "gsl_vector *""'");
4563 }
4564 arg3 = (gsl_vector *)(argp3);
4565 result = (int)gsl_linalg_QR_svx((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3);
4566 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4567
4568
4569
4570 XSRETURN(argvi);
4571 fail:
4572
4573
4574
4575 SWIG_croak_null();
4576 }
4577 }
4578
4579
XS(_wrap_gsl_linalg_QR_lssolve)4580 XS(_wrap_gsl_linalg_QR_lssolve) {
4581 {
4582 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
4583 gsl_vector *arg2 = (gsl_vector *) 0 ;
4584 gsl_vector *arg3 = (gsl_vector *) 0 ;
4585 gsl_vector *arg4 = (gsl_vector *) 0 ;
4586 gsl_vector *arg5 = (gsl_vector *) 0 ;
4587 void *argp1 = 0 ;
4588 int res1 = 0 ;
4589 void *argp2 = 0 ;
4590 int res2 = 0 ;
4591 void *argp3 = 0 ;
4592 int res3 = 0 ;
4593 void *argp4 = 0 ;
4594 int res4 = 0 ;
4595 void *argp5 = 0 ;
4596 int res5 = 0 ;
4597 int argvi = 0;
4598 int result;
4599 dXSARGS;
4600
4601 if ((items < 5) || (items > 5)) {
4602 SWIG_croak("Usage: gsl_linalg_QR_lssolve(QR,tau,b,x,residual);");
4603 }
4604 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
4605 if (!SWIG_IsOK(res1)) {
4606 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QR_lssolve" "', argument " "1"" of type '" "gsl_matrix const *""'");
4607 }
4608 arg1 = (gsl_matrix *)(argp1);
4609 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
4610 if (!SWIG_IsOK(res2)) {
4611 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QR_lssolve" "', argument " "2"" of type '" "gsl_vector const *""'");
4612 }
4613 arg2 = (gsl_vector *)(argp2);
4614 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
4615 if (!SWIG_IsOK(res3)) {
4616 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QR_lssolve" "', argument " "3"" of type '" "gsl_vector const *""'");
4617 }
4618 arg3 = (gsl_vector *)(argp3);
4619 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
4620 if (!SWIG_IsOK(res4)) {
4621 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_QR_lssolve" "', argument " "4"" of type '" "gsl_vector *""'");
4622 }
4623 arg4 = (gsl_vector *)(argp4);
4624 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
4625 if (!SWIG_IsOK(res5)) {
4626 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_QR_lssolve" "', argument " "5"" of type '" "gsl_vector *""'");
4627 }
4628 arg5 = (gsl_vector *)(argp5);
4629 result = (int)gsl_linalg_QR_lssolve((gsl_matrix const *)arg1,(gsl_vector const *)arg2,(gsl_vector const *)arg3,arg4,arg5);
4630 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4631
4632
4633
4634
4635
4636 XSRETURN(argvi);
4637 fail:
4638
4639
4640
4641
4642
4643 SWIG_croak_null();
4644 }
4645 }
4646
4647
XS(_wrap_gsl_linalg_QR_QRsolve)4648 XS(_wrap_gsl_linalg_QR_QRsolve) {
4649 {
4650 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
4651 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
4652 gsl_vector *arg3 = (gsl_vector *) 0 ;
4653 gsl_vector *arg4 = (gsl_vector *) 0 ;
4654 void *argp1 = 0 ;
4655 int res1 = 0 ;
4656 void *argp2 = 0 ;
4657 int res2 = 0 ;
4658 void *argp3 = 0 ;
4659 int res3 = 0 ;
4660 void *argp4 = 0 ;
4661 int res4 = 0 ;
4662 int argvi = 0;
4663 int result;
4664 dXSARGS;
4665
4666 if ((items < 4) || (items > 4)) {
4667 SWIG_croak("Usage: gsl_linalg_QR_QRsolve(Q,R,b,x);");
4668 }
4669 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
4670 if (!SWIG_IsOK(res1)) {
4671 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QR_QRsolve" "', argument " "1"" of type '" "gsl_matrix *""'");
4672 }
4673 arg1 = (gsl_matrix *)(argp1);
4674 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
4675 if (!SWIG_IsOK(res2)) {
4676 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QR_QRsolve" "', argument " "2"" of type '" "gsl_matrix *""'");
4677 }
4678 arg2 = (gsl_matrix *)(argp2);
4679 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
4680 if (!SWIG_IsOK(res3)) {
4681 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QR_QRsolve" "', argument " "3"" of type '" "gsl_vector const *""'");
4682 }
4683 arg3 = (gsl_vector *)(argp3);
4684 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
4685 if (!SWIG_IsOK(res4)) {
4686 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_QR_QRsolve" "', argument " "4"" of type '" "gsl_vector *""'");
4687 }
4688 arg4 = (gsl_vector *)(argp4);
4689 result = (int)gsl_linalg_QR_QRsolve(arg1,arg2,(gsl_vector const *)arg3,arg4);
4690 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4691
4692
4693
4694
4695 XSRETURN(argvi);
4696 fail:
4697
4698
4699
4700
4701 SWIG_croak_null();
4702 }
4703 }
4704
4705
XS(_wrap_gsl_linalg_QR_Rsolve)4706 XS(_wrap_gsl_linalg_QR_Rsolve) {
4707 {
4708 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
4709 gsl_vector *arg2 = (gsl_vector *) 0 ;
4710 gsl_vector *arg3 = (gsl_vector *) 0 ;
4711 void *argp1 = 0 ;
4712 int res1 = 0 ;
4713 void *argp2 = 0 ;
4714 int res2 = 0 ;
4715 void *argp3 = 0 ;
4716 int res3 = 0 ;
4717 int argvi = 0;
4718 int result;
4719 dXSARGS;
4720
4721 if ((items < 3) || (items > 3)) {
4722 SWIG_croak("Usage: gsl_linalg_QR_Rsolve(QR,b,x);");
4723 }
4724 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
4725 if (!SWIG_IsOK(res1)) {
4726 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QR_Rsolve" "', argument " "1"" of type '" "gsl_matrix const *""'");
4727 }
4728 arg1 = (gsl_matrix *)(argp1);
4729 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
4730 if (!SWIG_IsOK(res2)) {
4731 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QR_Rsolve" "', argument " "2"" of type '" "gsl_vector const *""'");
4732 }
4733 arg2 = (gsl_vector *)(argp2);
4734 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
4735 if (!SWIG_IsOK(res3)) {
4736 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QR_Rsolve" "', argument " "3"" of type '" "gsl_vector *""'");
4737 }
4738 arg3 = (gsl_vector *)(argp3);
4739 result = (int)gsl_linalg_QR_Rsolve((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3);
4740 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4741
4742
4743
4744 XSRETURN(argvi);
4745 fail:
4746
4747
4748
4749 SWIG_croak_null();
4750 }
4751 }
4752
4753
XS(_wrap_gsl_linalg_QR_Rsvx)4754 XS(_wrap_gsl_linalg_QR_Rsvx) {
4755 {
4756 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
4757 gsl_vector *arg2 = (gsl_vector *) 0 ;
4758 void *argp1 = 0 ;
4759 int res1 = 0 ;
4760 void *argp2 = 0 ;
4761 int res2 = 0 ;
4762 int argvi = 0;
4763 int result;
4764 dXSARGS;
4765
4766 if ((items < 2) || (items > 2)) {
4767 SWIG_croak("Usage: gsl_linalg_QR_Rsvx(QR,x);");
4768 }
4769 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
4770 if (!SWIG_IsOK(res1)) {
4771 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QR_Rsvx" "', argument " "1"" of type '" "gsl_matrix const *""'");
4772 }
4773 arg1 = (gsl_matrix *)(argp1);
4774 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
4775 if (!SWIG_IsOK(res2)) {
4776 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QR_Rsvx" "', argument " "2"" of type '" "gsl_vector *""'");
4777 }
4778 arg2 = (gsl_vector *)(argp2);
4779 result = (int)gsl_linalg_QR_Rsvx((gsl_matrix const *)arg1,arg2);
4780 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4781
4782
4783 XSRETURN(argvi);
4784 fail:
4785
4786
4787 SWIG_croak_null();
4788 }
4789 }
4790
4791
XS(_wrap_gsl_linalg_QR_update)4792 XS(_wrap_gsl_linalg_QR_update) {
4793 {
4794 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
4795 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
4796 gsl_vector *arg3 = (gsl_vector *) 0 ;
4797 gsl_vector *arg4 = (gsl_vector *) 0 ;
4798 void *argp1 = 0 ;
4799 int res1 = 0 ;
4800 void *argp2 = 0 ;
4801 int res2 = 0 ;
4802 void *argp3 = 0 ;
4803 int res3 = 0 ;
4804 void *argp4 = 0 ;
4805 int res4 = 0 ;
4806 int argvi = 0;
4807 int result;
4808 dXSARGS;
4809
4810 if ((items < 4) || (items > 4)) {
4811 SWIG_croak("Usage: gsl_linalg_QR_update(Q,R,w,v);");
4812 }
4813 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
4814 if (!SWIG_IsOK(res1)) {
4815 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QR_update" "', argument " "1"" of type '" "gsl_matrix *""'");
4816 }
4817 arg1 = (gsl_matrix *)(argp1);
4818 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
4819 if (!SWIG_IsOK(res2)) {
4820 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QR_update" "', argument " "2"" of type '" "gsl_matrix *""'");
4821 }
4822 arg2 = (gsl_matrix *)(argp2);
4823 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
4824 if (!SWIG_IsOK(res3)) {
4825 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QR_update" "', argument " "3"" of type '" "gsl_vector *""'");
4826 }
4827 arg3 = (gsl_vector *)(argp3);
4828 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
4829 if (!SWIG_IsOK(res4)) {
4830 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_QR_update" "', argument " "4"" of type '" "gsl_vector const *""'");
4831 }
4832 arg4 = (gsl_vector *)(argp4);
4833 result = (int)gsl_linalg_QR_update(arg1,arg2,arg3,(gsl_vector const *)arg4);
4834 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4835
4836
4837
4838
4839 XSRETURN(argvi);
4840 fail:
4841
4842
4843
4844
4845 SWIG_croak_null();
4846 }
4847 }
4848
4849
XS(_wrap_gsl_linalg_QR_QTvec)4850 XS(_wrap_gsl_linalg_QR_QTvec) {
4851 {
4852 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
4853 gsl_vector *arg2 = (gsl_vector *) 0 ;
4854 gsl_vector *arg3 = (gsl_vector *) 0 ;
4855 void *argp1 = 0 ;
4856 int res1 = 0 ;
4857 void *argp2 = 0 ;
4858 int res2 = 0 ;
4859 void *argp3 = 0 ;
4860 int res3 = 0 ;
4861 int argvi = 0;
4862 int result;
4863 dXSARGS;
4864
4865 if ((items < 3) || (items > 3)) {
4866 SWIG_croak("Usage: gsl_linalg_QR_QTvec(QR,tau,v);");
4867 }
4868 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
4869 if (!SWIG_IsOK(res1)) {
4870 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QR_QTvec" "', argument " "1"" of type '" "gsl_matrix const *""'");
4871 }
4872 arg1 = (gsl_matrix *)(argp1);
4873 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
4874 if (!SWIG_IsOK(res2)) {
4875 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QR_QTvec" "', argument " "2"" of type '" "gsl_vector const *""'");
4876 }
4877 arg2 = (gsl_vector *)(argp2);
4878 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
4879 if (!SWIG_IsOK(res3)) {
4880 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QR_QTvec" "', argument " "3"" of type '" "gsl_vector *""'");
4881 }
4882 arg3 = (gsl_vector *)(argp3);
4883 result = (int)gsl_linalg_QR_QTvec((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3);
4884 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4885
4886
4887
4888 XSRETURN(argvi);
4889 fail:
4890
4891
4892
4893 SWIG_croak_null();
4894 }
4895 }
4896
4897
XS(_wrap_gsl_linalg_QR_Qvec)4898 XS(_wrap_gsl_linalg_QR_Qvec) {
4899 {
4900 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
4901 gsl_vector *arg2 = (gsl_vector *) 0 ;
4902 gsl_vector *arg3 = (gsl_vector *) 0 ;
4903 void *argp1 = 0 ;
4904 int res1 = 0 ;
4905 void *argp2 = 0 ;
4906 int res2 = 0 ;
4907 void *argp3 = 0 ;
4908 int res3 = 0 ;
4909 int argvi = 0;
4910 int result;
4911 dXSARGS;
4912
4913 if ((items < 3) || (items > 3)) {
4914 SWIG_croak("Usage: gsl_linalg_QR_Qvec(QR,tau,v);");
4915 }
4916 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
4917 if (!SWIG_IsOK(res1)) {
4918 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QR_Qvec" "', argument " "1"" of type '" "gsl_matrix const *""'");
4919 }
4920 arg1 = (gsl_matrix *)(argp1);
4921 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
4922 if (!SWIG_IsOK(res2)) {
4923 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QR_Qvec" "', argument " "2"" of type '" "gsl_vector const *""'");
4924 }
4925 arg2 = (gsl_vector *)(argp2);
4926 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
4927 if (!SWIG_IsOK(res3)) {
4928 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QR_Qvec" "', argument " "3"" of type '" "gsl_vector *""'");
4929 }
4930 arg3 = (gsl_vector *)(argp3);
4931 result = (int)gsl_linalg_QR_Qvec((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3);
4932 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4933
4934
4935
4936 XSRETURN(argvi);
4937 fail:
4938
4939
4940
4941 SWIG_croak_null();
4942 }
4943 }
4944
4945
XS(_wrap_gsl_linalg_QR_QTmat)4946 XS(_wrap_gsl_linalg_QR_QTmat) {
4947 {
4948 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
4949 gsl_vector *arg2 = (gsl_vector *) 0 ;
4950 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
4951 void *argp1 = 0 ;
4952 int res1 = 0 ;
4953 void *argp2 = 0 ;
4954 int res2 = 0 ;
4955 void *argp3 = 0 ;
4956 int res3 = 0 ;
4957 int argvi = 0;
4958 int result;
4959 dXSARGS;
4960
4961 if ((items < 3) || (items > 3)) {
4962 SWIG_croak("Usage: gsl_linalg_QR_QTmat(QR,tau,A);");
4963 }
4964 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
4965 if (!SWIG_IsOK(res1)) {
4966 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QR_QTmat" "', argument " "1"" of type '" "gsl_matrix const *""'");
4967 }
4968 arg1 = (gsl_matrix *)(argp1);
4969 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
4970 if (!SWIG_IsOK(res2)) {
4971 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QR_QTmat" "', argument " "2"" of type '" "gsl_vector const *""'");
4972 }
4973 arg2 = (gsl_vector *)(argp2);
4974 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
4975 if (!SWIG_IsOK(res3)) {
4976 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QR_QTmat" "', argument " "3"" of type '" "gsl_matrix *""'");
4977 }
4978 arg3 = (gsl_matrix *)(argp3);
4979 result = (int)gsl_linalg_QR_QTmat((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3);
4980 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4981
4982
4983
4984 XSRETURN(argvi);
4985 fail:
4986
4987
4988
4989 SWIG_croak_null();
4990 }
4991 }
4992
4993
XS(_wrap_gsl_linalg_QR_matQ)4994 XS(_wrap_gsl_linalg_QR_matQ) {
4995 {
4996 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
4997 gsl_vector *arg2 = (gsl_vector *) 0 ;
4998 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
4999 void *argp1 = 0 ;
5000 int res1 = 0 ;
5001 void *argp2 = 0 ;
5002 int res2 = 0 ;
5003 void *argp3 = 0 ;
5004 int res3 = 0 ;
5005 int argvi = 0;
5006 int result;
5007 dXSARGS;
5008
5009 if ((items < 3) || (items > 3)) {
5010 SWIG_croak("Usage: gsl_linalg_QR_matQ(QR,tau,A);");
5011 }
5012 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5013 if (!SWIG_IsOK(res1)) {
5014 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QR_matQ" "', argument " "1"" of type '" "gsl_matrix const *""'");
5015 }
5016 arg1 = (gsl_matrix *)(argp1);
5017 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
5018 if (!SWIG_IsOK(res2)) {
5019 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QR_matQ" "', argument " "2"" of type '" "gsl_vector const *""'");
5020 }
5021 arg2 = (gsl_vector *)(argp2);
5022 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5023 if (!SWIG_IsOK(res3)) {
5024 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QR_matQ" "', argument " "3"" of type '" "gsl_matrix *""'");
5025 }
5026 arg3 = (gsl_matrix *)(argp3);
5027 result = (int)gsl_linalg_QR_matQ((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3);
5028 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5029
5030
5031
5032 XSRETURN(argvi);
5033 fail:
5034
5035
5036
5037 SWIG_croak_null();
5038 }
5039 }
5040
5041
XS(_wrap_gsl_linalg_QR_unpack)5042 XS(_wrap_gsl_linalg_QR_unpack) {
5043 {
5044 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5045 gsl_vector *arg2 = (gsl_vector *) 0 ;
5046 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
5047 gsl_matrix *arg4 = (gsl_matrix *) 0 ;
5048 void *argp1 = 0 ;
5049 int res1 = 0 ;
5050 void *argp2 = 0 ;
5051 int res2 = 0 ;
5052 void *argp3 = 0 ;
5053 int res3 = 0 ;
5054 void *argp4 = 0 ;
5055 int res4 = 0 ;
5056 int argvi = 0;
5057 int result;
5058 dXSARGS;
5059
5060 if ((items < 4) || (items > 4)) {
5061 SWIG_croak("Usage: gsl_linalg_QR_unpack(QR,tau,Q,R);");
5062 }
5063 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5064 if (!SWIG_IsOK(res1)) {
5065 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QR_unpack" "', argument " "1"" of type '" "gsl_matrix const *""'");
5066 }
5067 arg1 = (gsl_matrix *)(argp1);
5068 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
5069 if (!SWIG_IsOK(res2)) {
5070 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QR_unpack" "', argument " "2"" of type '" "gsl_vector const *""'");
5071 }
5072 arg2 = (gsl_vector *)(argp2);
5073 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5074 if (!SWIG_IsOK(res3)) {
5075 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QR_unpack" "', argument " "3"" of type '" "gsl_matrix *""'");
5076 }
5077 arg3 = (gsl_matrix *)(argp3);
5078 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5079 if (!SWIG_IsOK(res4)) {
5080 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_QR_unpack" "', argument " "4"" of type '" "gsl_matrix *""'");
5081 }
5082 arg4 = (gsl_matrix *)(argp4);
5083 result = (int)gsl_linalg_QR_unpack((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3,arg4);
5084 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5085
5086
5087
5088
5089 XSRETURN(argvi);
5090 fail:
5091
5092
5093
5094
5095 SWIG_croak_null();
5096 }
5097 }
5098
5099
XS(_wrap_gsl_linalg_R_solve)5100 XS(_wrap_gsl_linalg_R_solve) {
5101 {
5102 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5103 gsl_vector *arg2 = (gsl_vector *) 0 ;
5104 gsl_vector *arg3 = (gsl_vector *) 0 ;
5105 void *argp1 = 0 ;
5106 int res1 = 0 ;
5107 void *argp2 = 0 ;
5108 int res2 = 0 ;
5109 void *argp3 = 0 ;
5110 int res3 = 0 ;
5111 int argvi = 0;
5112 int result;
5113 dXSARGS;
5114
5115 if ((items < 3) || (items > 3)) {
5116 SWIG_croak("Usage: gsl_linalg_R_solve(R,b,x);");
5117 }
5118 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5119 if (!SWIG_IsOK(res1)) {
5120 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_R_solve" "', argument " "1"" of type '" "gsl_matrix const *""'");
5121 }
5122 arg1 = (gsl_matrix *)(argp1);
5123 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
5124 if (!SWIG_IsOK(res2)) {
5125 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_R_solve" "', argument " "2"" of type '" "gsl_vector const *""'");
5126 }
5127 arg2 = (gsl_vector *)(argp2);
5128 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
5129 if (!SWIG_IsOK(res3)) {
5130 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_R_solve" "', argument " "3"" of type '" "gsl_vector *""'");
5131 }
5132 arg3 = (gsl_vector *)(argp3);
5133 result = (int)gsl_linalg_R_solve((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3);
5134 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5135
5136
5137
5138 XSRETURN(argvi);
5139 fail:
5140
5141
5142
5143 SWIG_croak_null();
5144 }
5145 }
5146
5147
XS(_wrap_gsl_linalg_R_svx)5148 XS(_wrap_gsl_linalg_R_svx) {
5149 {
5150 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5151 gsl_vector *arg2 = (gsl_vector *) 0 ;
5152 void *argp1 = 0 ;
5153 int res1 = 0 ;
5154 void *argp2 = 0 ;
5155 int res2 = 0 ;
5156 int argvi = 0;
5157 int result;
5158 dXSARGS;
5159
5160 if ((items < 2) || (items > 2)) {
5161 SWIG_croak("Usage: gsl_linalg_R_svx(R,x);");
5162 }
5163 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5164 if (!SWIG_IsOK(res1)) {
5165 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_R_svx" "', argument " "1"" of type '" "gsl_matrix const *""'");
5166 }
5167 arg1 = (gsl_matrix *)(argp1);
5168 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
5169 if (!SWIG_IsOK(res2)) {
5170 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_R_svx" "', argument " "2"" of type '" "gsl_vector *""'");
5171 }
5172 arg2 = (gsl_vector *)(argp2);
5173 result = (int)gsl_linalg_R_svx((gsl_matrix const *)arg1,arg2);
5174 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5175
5176
5177 XSRETURN(argvi);
5178 fail:
5179
5180
5181 SWIG_croak_null();
5182 }
5183 }
5184
5185
XS(_wrap_gsl_linalg_QRPT_decomp)5186 XS(_wrap_gsl_linalg_QRPT_decomp) {
5187 {
5188 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5189 gsl_vector *arg2 = (gsl_vector *) 0 ;
5190 gsl_permutation *arg3 = (gsl_permutation *) 0 ;
5191 int *arg4 = (int *) 0 ;
5192 gsl_vector *arg5 = (gsl_vector *) 0 ;
5193 void *argp1 = 0 ;
5194 int res1 = 0 ;
5195 void *argp2 = 0 ;
5196 int res2 = 0 ;
5197 void *argp3 = 0 ;
5198 int res3 = 0 ;
5199 int temp4 ;
5200 int res4 = SWIG_TMPOBJ ;
5201 void *argp5 = 0 ;
5202 int res5 = 0 ;
5203 int argvi = 0;
5204 int result;
5205 dXSARGS;
5206
5207 arg4 = &temp4;
5208 if ((items < 4) || (items > 4)) {
5209 SWIG_croak("Usage: gsl_linalg_QRPT_decomp(A,tau,p,norm);");
5210 }
5211 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5212 if (!SWIG_IsOK(res1)) {
5213 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QRPT_decomp" "', argument " "1"" of type '" "gsl_matrix *""'");
5214 }
5215 arg1 = (gsl_matrix *)(argp1);
5216 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
5217 if (!SWIG_IsOK(res2)) {
5218 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QRPT_decomp" "', argument " "2"" of type '" "gsl_vector *""'");
5219 }
5220 arg2 = (gsl_vector *)(argp2);
5221 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
5222 if (!SWIG_IsOK(res3)) {
5223 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QRPT_decomp" "', argument " "3"" of type '" "gsl_permutation *""'");
5224 }
5225 arg3 = (gsl_permutation *)(argp3);
5226 res5 = SWIG_ConvertPtr(ST(3), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
5227 if (!SWIG_IsOK(res5)) {
5228 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_QRPT_decomp" "', argument " "5"" of type '" "gsl_vector *""'");
5229 }
5230 arg5 = (gsl_vector *)(argp5);
5231 result = (int)gsl_linalg_QRPT_decomp(arg1,arg2,arg3,arg4,arg5);
5232 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5233 if (SWIG_IsTmpObj(res4)) {
5234 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((*arg4)); argvi++ ;
5235 } else {
5236 int new_flags = SWIG_IsNewObj(res4) ? (SWIG_POINTER_OWN | 0) : 0;
5237 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg4), SWIGTYPE_p_int, new_flags); argvi++ ;
5238 }
5239
5240
5241
5242
5243
5244 XSRETURN(argvi);
5245 fail:
5246
5247
5248
5249
5250
5251 SWIG_croak_null();
5252 }
5253 }
5254
5255
XS(_wrap_gsl_linalg_QRPT_decomp2)5256 XS(_wrap_gsl_linalg_QRPT_decomp2) {
5257 {
5258 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5259 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
5260 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
5261 gsl_vector *arg4 = (gsl_vector *) 0 ;
5262 gsl_permutation *arg5 = (gsl_permutation *) 0 ;
5263 int *arg6 = (int *) 0 ;
5264 gsl_vector *arg7 = (gsl_vector *) 0 ;
5265 void *argp1 = 0 ;
5266 int res1 = 0 ;
5267 void *argp2 = 0 ;
5268 int res2 = 0 ;
5269 void *argp3 = 0 ;
5270 int res3 = 0 ;
5271 void *argp4 = 0 ;
5272 int res4 = 0 ;
5273 void *argp5 = 0 ;
5274 int res5 = 0 ;
5275 int temp6 ;
5276 int res6 = SWIG_TMPOBJ ;
5277 void *argp7 = 0 ;
5278 int res7 = 0 ;
5279 int argvi = 0;
5280 int result;
5281 dXSARGS;
5282
5283 arg6 = &temp6;
5284 if ((items < 6) || (items > 6)) {
5285 SWIG_croak("Usage: gsl_linalg_QRPT_decomp2(A,q,r,tau,p,norm);");
5286 }
5287 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5288 if (!SWIG_IsOK(res1)) {
5289 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QRPT_decomp2" "', argument " "1"" of type '" "gsl_matrix const *""'");
5290 }
5291 arg1 = (gsl_matrix *)(argp1);
5292 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5293 if (!SWIG_IsOK(res2)) {
5294 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QRPT_decomp2" "', argument " "2"" of type '" "gsl_matrix *""'");
5295 }
5296 arg2 = (gsl_matrix *)(argp2);
5297 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5298 if (!SWIG_IsOK(res3)) {
5299 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QRPT_decomp2" "', argument " "3"" of type '" "gsl_matrix *""'");
5300 }
5301 arg3 = (gsl_matrix *)(argp3);
5302 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
5303 if (!SWIG_IsOK(res4)) {
5304 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_QRPT_decomp2" "', argument " "4"" of type '" "gsl_vector *""'");
5305 }
5306 arg4 = (gsl_vector *)(argp4);
5307 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
5308 if (!SWIG_IsOK(res5)) {
5309 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_QRPT_decomp2" "', argument " "5"" of type '" "gsl_permutation *""'");
5310 }
5311 arg5 = (gsl_permutation *)(argp5);
5312 res7 = SWIG_ConvertPtr(ST(5), &argp7,SWIGTYPE_p_gsl_vector, 0 | 0 );
5313 if (!SWIG_IsOK(res7)) {
5314 SWIG_exception_fail(SWIG_ArgError(res7), "in method '" "gsl_linalg_QRPT_decomp2" "', argument " "7"" of type '" "gsl_vector *""'");
5315 }
5316 arg7 = (gsl_vector *)(argp7);
5317 result = (int)gsl_linalg_QRPT_decomp2((gsl_matrix const *)arg1,arg2,arg3,arg4,arg5,arg6,arg7);
5318 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5319 if (SWIG_IsTmpObj(res6)) {
5320 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((*arg6)); argvi++ ;
5321 } else {
5322 int new_flags = SWIG_IsNewObj(res6) ? (SWIG_POINTER_OWN | 0) : 0;
5323 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg6), SWIGTYPE_p_int, new_flags); argvi++ ;
5324 }
5325
5326
5327
5328
5329
5330
5331
5332 XSRETURN(argvi);
5333 fail:
5334
5335
5336
5337
5338
5339
5340
5341 SWIG_croak_null();
5342 }
5343 }
5344
5345
XS(_wrap_gsl_linalg_QRPT_solve)5346 XS(_wrap_gsl_linalg_QRPT_solve) {
5347 {
5348 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5349 gsl_vector *arg2 = (gsl_vector *) 0 ;
5350 gsl_permutation *arg3 = (gsl_permutation *) 0 ;
5351 gsl_vector *arg4 = (gsl_vector *) 0 ;
5352 gsl_vector *arg5 = (gsl_vector *) 0 ;
5353 void *argp1 = 0 ;
5354 int res1 = 0 ;
5355 void *argp2 = 0 ;
5356 int res2 = 0 ;
5357 void *argp3 = 0 ;
5358 int res3 = 0 ;
5359 void *argp4 = 0 ;
5360 int res4 = 0 ;
5361 void *argp5 = 0 ;
5362 int res5 = 0 ;
5363 int argvi = 0;
5364 int result;
5365 dXSARGS;
5366
5367 if ((items < 5) || (items > 5)) {
5368 SWIG_croak("Usage: gsl_linalg_QRPT_solve(QR,tau,p,b,x);");
5369 }
5370 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5371 if (!SWIG_IsOK(res1)) {
5372 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QRPT_solve" "', argument " "1"" of type '" "gsl_matrix const *""'");
5373 }
5374 arg1 = (gsl_matrix *)(argp1);
5375 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
5376 if (!SWIG_IsOK(res2)) {
5377 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QRPT_solve" "', argument " "2"" of type '" "gsl_vector const *""'");
5378 }
5379 arg2 = (gsl_vector *)(argp2);
5380 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
5381 if (!SWIG_IsOK(res3)) {
5382 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QRPT_solve" "', argument " "3"" of type '" "gsl_permutation const *""'");
5383 }
5384 arg3 = (gsl_permutation *)(argp3);
5385 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
5386 if (!SWIG_IsOK(res4)) {
5387 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_QRPT_solve" "', argument " "4"" of type '" "gsl_vector const *""'");
5388 }
5389 arg4 = (gsl_vector *)(argp4);
5390 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
5391 if (!SWIG_IsOK(res5)) {
5392 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_QRPT_solve" "', argument " "5"" of type '" "gsl_vector *""'");
5393 }
5394 arg5 = (gsl_vector *)(argp5);
5395 result = (int)gsl_linalg_QRPT_solve((gsl_matrix const *)arg1,(gsl_vector const *)arg2,(struct gsl_permutation_struct const *)arg3,(gsl_vector const *)arg4,arg5);
5396 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5397
5398
5399
5400
5401
5402 XSRETURN(argvi);
5403 fail:
5404
5405
5406
5407
5408
5409 SWIG_croak_null();
5410 }
5411 }
5412
5413
XS(_wrap_gsl_linalg_QRPT_lssolve)5414 XS(_wrap_gsl_linalg_QRPT_lssolve) {
5415 {
5416 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5417 gsl_vector *arg2 = (gsl_vector *) 0 ;
5418 gsl_permutation *arg3 = (gsl_permutation *) 0 ;
5419 gsl_vector *arg4 = (gsl_vector *) 0 ;
5420 gsl_vector *arg5 = (gsl_vector *) 0 ;
5421 gsl_vector *arg6 = (gsl_vector *) 0 ;
5422 void *argp1 = 0 ;
5423 int res1 = 0 ;
5424 void *argp2 = 0 ;
5425 int res2 = 0 ;
5426 void *argp3 = 0 ;
5427 int res3 = 0 ;
5428 void *argp4 = 0 ;
5429 int res4 = 0 ;
5430 void *argp5 = 0 ;
5431 int res5 = 0 ;
5432 void *argp6 = 0 ;
5433 int res6 = 0 ;
5434 int argvi = 0;
5435 int result;
5436 dXSARGS;
5437
5438 if ((items < 6) || (items > 6)) {
5439 SWIG_croak("Usage: gsl_linalg_QRPT_lssolve(QR,tau,p,b,x,residual);");
5440 }
5441 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5442 if (!SWIG_IsOK(res1)) {
5443 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QRPT_lssolve" "', argument " "1"" of type '" "gsl_matrix const *""'");
5444 }
5445 arg1 = (gsl_matrix *)(argp1);
5446 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
5447 if (!SWIG_IsOK(res2)) {
5448 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QRPT_lssolve" "', argument " "2"" of type '" "gsl_vector const *""'");
5449 }
5450 arg2 = (gsl_vector *)(argp2);
5451 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
5452 if (!SWIG_IsOK(res3)) {
5453 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QRPT_lssolve" "', argument " "3"" of type '" "gsl_permutation const *""'");
5454 }
5455 arg3 = (gsl_permutation *)(argp3);
5456 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
5457 if (!SWIG_IsOK(res4)) {
5458 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_QRPT_lssolve" "', argument " "4"" of type '" "gsl_vector const *""'");
5459 }
5460 arg4 = (gsl_vector *)(argp4);
5461 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
5462 if (!SWIG_IsOK(res5)) {
5463 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_QRPT_lssolve" "', argument " "5"" of type '" "gsl_vector *""'");
5464 }
5465 arg5 = (gsl_vector *)(argp5);
5466 res6 = SWIG_ConvertPtr(ST(5), &argp6,SWIGTYPE_p_gsl_vector, 0 | 0 );
5467 if (!SWIG_IsOK(res6)) {
5468 SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_linalg_QRPT_lssolve" "', argument " "6"" of type '" "gsl_vector *""'");
5469 }
5470 arg6 = (gsl_vector *)(argp6);
5471 result = (int)gsl_linalg_QRPT_lssolve((gsl_matrix const *)arg1,(gsl_vector const *)arg2,(struct gsl_permutation_struct const *)arg3,(gsl_vector const *)arg4,arg5,arg6);
5472 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5473
5474
5475
5476
5477
5478
5479 XSRETURN(argvi);
5480 fail:
5481
5482
5483
5484
5485
5486
5487 SWIG_croak_null();
5488 }
5489 }
5490
5491
XS(_wrap_gsl_linalg_QRPT_lssolve2)5492 XS(_wrap_gsl_linalg_QRPT_lssolve2) {
5493 {
5494 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5495 gsl_vector *arg2 = (gsl_vector *) 0 ;
5496 gsl_permutation *arg3 = (gsl_permutation *) 0 ;
5497 gsl_vector *arg4 = (gsl_vector *) 0 ;
5498 size_t arg5 ;
5499 gsl_vector *arg6 = (gsl_vector *) 0 ;
5500 gsl_vector *arg7 = (gsl_vector *) 0 ;
5501 void *argp1 = 0 ;
5502 int res1 = 0 ;
5503 void *argp2 = 0 ;
5504 int res2 = 0 ;
5505 void *argp3 = 0 ;
5506 int res3 = 0 ;
5507 void *argp4 = 0 ;
5508 int res4 = 0 ;
5509 size_t val5 ;
5510 int ecode5 = 0 ;
5511 void *argp6 = 0 ;
5512 int res6 = 0 ;
5513 void *argp7 = 0 ;
5514 int res7 = 0 ;
5515 int argvi = 0;
5516 int result;
5517 dXSARGS;
5518
5519 if ((items < 7) || (items > 7)) {
5520 SWIG_croak("Usage: gsl_linalg_QRPT_lssolve2(QR,tau,p,b,rank,x,residual);");
5521 }
5522 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5523 if (!SWIG_IsOK(res1)) {
5524 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QRPT_lssolve2" "', argument " "1"" of type '" "gsl_matrix const *""'");
5525 }
5526 arg1 = (gsl_matrix *)(argp1);
5527 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
5528 if (!SWIG_IsOK(res2)) {
5529 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QRPT_lssolve2" "', argument " "2"" of type '" "gsl_vector const *""'");
5530 }
5531 arg2 = (gsl_vector *)(argp2);
5532 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
5533 if (!SWIG_IsOK(res3)) {
5534 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QRPT_lssolve2" "', argument " "3"" of type '" "gsl_permutation const *""'");
5535 }
5536 arg3 = (gsl_permutation *)(argp3);
5537 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
5538 if (!SWIG_IsOK(res4)) {
5539 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_QRPT_lssolve2" "', argument " "4"" of type '" "gsl_vector const *""'");
5540 }
5541 arg4 = (gsl_vector *)(argp4);
5542 ecode5 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(4), &val5);
5543 if (!SWIG_IsOK(ecode5)) {
5544 SWIG_exception_fail(SWIG_ArgError(ecode5), "in method '" "gsl_linalg_QRPT_lssolve2" "', argument " "5"" of type '" "size_t""'");
5545 }
5546 arg5 = (size_t)(val5);
5547 res6 = SWIG_ConvertPtr(ST(5), &argp6,SWIGTYPE_p_gsl_vector, 0 | 0 );
5548 if (!SWIG_IsOK(res6)) {
5549 SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_linalg_QRPT_lssolve2" "', argument " "6"" of type '" "gsl_vector *""'");
5550 }
5551 arg6 = (gsl_vector *)(argp6);
5552 res7 = SWIG_ConvertPtr(ST(6), &argp7,SWIGTYPE_p_gsl_vector, 0 | 0 );
5553 if (!SWIG_IsOK(res7)) {
5554 SWIG_exception_fail(SWIG_ArgError(res7), "in method '" "gsl_linalg_QRPT_lssolve2" "', argument " "7"" of type '" "gsl_vector *""'");
5555 }
5556 arg7 = (gsl_vector *)(argp7);
5557 result = (int)gsl_linalg_QRPT_lssolve2((gsl_matrix const *)arg1,(gsl_vector const *)arg2,(struct gsl_permutation_struct const *)arg3,(gsl_vector const *)arg4,arg5,arg6,arg7);
5558 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5559
5560
5561
5562
5563
5564
5565
5566 XSRETURN(argvi);
5567 fail:
5568
5569
5570
5571
5572
5573
5574
5575 SWIG_croak_null();
5576 }
5577 }
5578
5579
XS(_wrap_gsl_linalg_QRPT_svx)5580 XS(_wrap_gsl_linalg_QRPT_svx) {
5581 {
5582 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5583 gsl_vector *arg2 = (gsl_vector *) 0 ;
5584 gsl_permutation *arg3 = (gsl_permutation *) 0 ;
5585 gsl_vector *arg4 = (gsl_vector *) 0 ;
5586 void *argp1 = 0 ;
5587 int res1 = 0 ;
5588 void *argp2 = 0 ;
5589 int res2 = 0 ;
5590 void *argp3 = 0 ;
5591 int res3 = 0 ;
5592 void *argp4 = 0 ;
5593 int res4 = 0 ;
5594 int argvi = 0;
5595 int result;
5596 dXSARGS;
5597
5598 if ((items < 4) || (items > 4)) {
5599 SWIG_croak("Usage: gsl_linalg_QRPT_svx(QR,tau,p,x);");
5600 }
5601 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5602 if (!SWIG_IsOK(res1)) {
5603 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QRPT_svx" "', argument " "1"" of type '" "gsl_matrix const *""'");
5604 }
5605 arg1 = (gsl_matrix *)(argp1);
5606 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
5607 if (!SWIG_IsOK(res2)) {
5608 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QRPT_svx" "', argument " "2"" of type '" "gsl_vector const *""'");
5609 }
5610 arg2 = (gsl_vector *)(argp2);
5611 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
5612 if (!SWIG_IsOK(res3)) {
5613 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QRPT_svx" "', argument " "3"" of type '" "gsl_permutation const *""'");
5614 }
5615 arg3 = (gsl_permutation *)(argp3);
5616 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
5617 if (!SWIG_IsOK(res4)) {
5618 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_QRPT_svx" "', argument " "4"" of type '" "gsl_vector *""'");
5619 }
5620 arg4 = (gsl_vector *)(argp4);
5621 result = (int)gsl_linalg_QRPT_svx((gsl_matrix const *)arg1,(gsl_vector const *)arg2,(struct gsl_permutation_struct const *)arg3,arg4);
5622 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5623
5624
5625
5626
5627 XSRETURN(argvi);
5628 fail:
5629
5630
5631
5632
5633 SWIG_croak_null();
5634 }
5635 }
5636
5637
XS(_wrap_gsl_linalg_QRPT_QRsolve)5638 XS(_wrap_gsl_linalg_QRPT_QRsolve) {
5639 {
5640 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5641 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
5642 gsl_permutation *arg3 = (gsl_permutation *) 0 ;
5643 gsl_vector *arg4 = (gsl_vector *) 0 ;
5644 gsl_vector *arg5 = (gsl_vector *) 0 ;
5645 void *argp1 = 0 ;
5646 int res1 = 0 ;
5647 void *argp2 = 0 ;
5648 int res2 = 0 ;
5649 void *argp3 = 0 ;
5650 int res3 = 0 ;
5651 void *argp4 = 0 ;
5652 int res4 = 0 ;
5653 void *argp5 = 0 ;
5654 int res5 = 0 ;
5655 int argvi = 0;
5656 int result;
5657 dXSARGS;
5658
5659 if ((items < 5) || (items > 5)) {
5660 SWIG_croak("Usage: gsl_linalg_QRPT_QRsolve(Q,R,p,b,x);");
5661 }
5662 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5663 if (!SWIG_IsOK(res1)) {
5664 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QRPT_QRsolve" "', argument " "1"" of type '" "gsl_matrix const *""'");
5665 }
5666 arg1 = (gsl_matrix *)(argp1);
5667 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5668 if (!SWIG_IsOK(res2)) {
5669 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QRPT_QRsolve" "', argument " "2"" of type '" "gsl_matrix const *""'");
5670 }
5671 arg2 = (gsl_matrix *)(argp2);
5672 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
5673 if (!SWIG_IsOK(res3)) {
5674 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QRPT_QRsolve" "', argument " "3"" of type '" "gsl_permutation const *""'");
5675 }
5676 arg3 = (gsl_permutation *)(argp3);
5677 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
5678 if (!SWIG_IsOK(res4)) {
5679 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_QRPT_QRsolve" "', argument " "4"" of type '" "gsl_vector const *""'");
5680 }
5681 arg4 = (gsl_vector *)(argp4);
5682 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
5683 if (!SWIG_IsOK(res5)) {
5684 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_QRPT_QRsolve" "', argument " "5"" of type '" "gsl_vector *""'");
5685 }
5686 arg5 = (gsl_vector *)(argp5);
5687 result = (int)gsl_linalg_QRPT_QRsolve((gsl_matrix const *)arg1,(gsl_matrix const *)arg2,(struct gsl_permutation_struct const *)arg3,(gsl_vector const *)arg4,arg5);
5688 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5689
5690
5691
5692
5693
5694 XSRETURN(argvi);
5695 fail:
5696
5697
5698
5699
5700
5701 SWIG_croak_null();
5702 }
5703 }
5704
5705
XS(_wrap_gsl_linalg_QRPT_Rsolve)5706 XS(_wrap_gsl_linalg_QRPT_Rsolve) {
5707 {
5708 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5709 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
5710 gsl_vector *arg3 = (gsl_vector *) 0 ;
5711 gsl_vector *arg4 = (gsl_vector *) 0 ;
5712 void *argp1 = 0 ;
5713 int res1 = 0 ;
5714 void *argp2 = 0 ;
5715 int res2 = 0 ;
5716 void *argp3 = 0 ;
5717 int res3 = 0 ;
5718 void *argp4 = 0 ;
5719 int res4 = 0 ;
5720 int argvi = 0;
5721 int result;
5722 dXSARGS;
5723
5724 if ((items < 4) || (items > 4)) {
5725 SWIG_croak("Usage: gsl_linalg_QRPT_Rsolve(QR,p,b,x);");
5726 }
5727 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5728 if (!SWIG_IsOK(res1)) {
5729 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QRPT_Rsolve" "', argument " "1"" of type '" "gsl_matrix const *""'");
5730 }
5731 arg1 = (gsl_matrix *)(argp1);
5732 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
5733 if (!SWIG_IsOK(res2)) {
5734 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QRPT_Rsolve" "', argument " "2"" of type '" "gsl_permutation const *""'");
5735 }
5736 arg2 = (gsl_permutation *)(argp2);
5737 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
5738 if (!SWIG_IsOK(res3)) {
5739 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QRPT_Rsolve" "', argument " "3"" of type '" "gsl_vector const *""'");
5740 }
5741 arg3 = (gsl_vector *)(argp3);
5742 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
5743 if (!SWIG_IsOK(res4)) {
5744 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_QRPT_Rsolve" "', argument " "4"" of type '" "gsl_vector *""'");
5745 }
5746 arg4 = (gsl_vector *)(argp4);
5747 result = (int)gsl_linalg_QRPT_Rsolve((gsl_matrix const *)arg1,(struct gsl_permutation_struct const *)arg2,(gsl_vector const *)arg3,arg4);
5748 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5749
5750
5751
5752
5753 XSRETURN(argvi);
5754 fail:
5755
5756
5757
5758
5759 SWIG_croak_null();
5760 }
5761 }
5762
5763
XS(_wrap_gsl_linalg_QRPT_Rsvx)5764 XS(_wrap_gsl_linalg_QRPT_Rsvx) {
5765 {
5766 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5767 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
5768 gsl_vector *arg3 = (gsl_vector *) 0 ;
5769 void *argp1 = 0 ;
5770 int res1 = 0 ;
5771 void *argp2 = 0 ;
5772 int res2 = 0 ;
5773 void *argp3 = 0 ;
5774 int res3 = 0 ;
5775 int argvi = 0;
5776 int result;
5777 dXSARGS;
5778
5779 if ((items < 3) || (items > 3)) {
5780 SWIG_croak("Usage: gsl_linalg_QRPT_Rsvx(QR,p,x);");
5781 }
5782 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5783 if (!SWIG_IsOK(res1)) {
5784 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QRPT_Rsvx" "', argument " "1"" of type '" "gsl_matrix const *""'");
5785 }
5786 arg1 = (gsl_matrix *)(argp1);
5787 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
5788 if (!SWIG_IsOK(res2)) {
5789 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QRPT_Rsvx" "', argument " "2"" of type '" "gsl_permutation const *""'");
5790 }
5791 arg2 = (gsl_permutation *)(argp2);
5792 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
5793 if (!SWIG_IsOK(res3)) {
5794 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QRPT_Rsvx" "', argument " "3"" of type '" "gsl_vector *""'");
5795 }
5796 arg3 = (gsl_vector *)(argp3);
5797 result = (int)gsl_linalg_QRPT_Rsvx((gsl_matrix const *)arg1,(struct gsl_permutation_struct const *)arg2,arg3);
5798 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5799
5800
5801
5802 XSRETURN(argvi);
5803 fail:
5804
5805
5806
5807 SWIG_croak_null();
5808 }
5809 }
5810
5811
XS(_wrap_gsl_linalg_QRPT_update)5812 XS(_wrap_gsl_linalg_QRPT_update) {
5813 {
5814 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5815 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
5816 gsl_permutation *arg3 = (gsl_permutation *) 0 ;
5817 gsl_vector *arg4 = (gsl_vector *) 0 ;
5818 gsl_vector *arg5 = (gsl_vector *) 0 ;
5819 void *argp1 = 0 ;
5820 int res1 = 0 ;
5821 void *argp2 = 0 ;
5822 int res2 = 0 ;
5823 void *argp3 = 0 ;
5824 int res3 = 0 ;
5825 void *argp4 = 0 ;
5826 int res4 = 0 ;
5827 void *argp5 = 0 ;
5828 int res5 = 0 ;
5829 int argvi = 0;
5830 int result;
5831 dXSARGS;
5832
5833 if ((items < 5) || (items > 5)) {
5834 SWIG_croak("Usage: gsl_linalg_QRPT_update(Q,R,p,u,v);");
5835 }
5836 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5837 if (!SWIG_IsOK(res1)) {
5838 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QRPT_update" "', argument " "1"" of type '" "gsl_matrix *""'");
5839 }
5840 arg1 = (gsl_matrix *)(argp1);
5841 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5842 if (!SWIG_IsOK(res2)) {
5843 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QRPT_update" "', argument " "2"" of type '" "gsl_matrix *""'");
5844 }
5845 arg2 = (gsl_matrix *)(argp2);
5846 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
5847 if (!SWIG_IsOK(res3)) {
5848 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QRPT_update" "', argument " "3"" of type '" "gsl_permutation const *""'");
5849 }
5850 arg3 = (gsl_permutation *)(argp3);
5851 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
5852 if (!SWIG_IsOK(res4)) {
5853 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_QRPT_update" "', argument " "4"" of type '" "gsl_vector *""'");
5854 }
5855 arg4 = (gsl_vector *)(argp4);
5856 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
5857 if (!SWIG_IsOK(res5)) {
5858 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_QRPT_update" "', argument " "5"" of type '" "gsl_vector const *""'");
5859 }
5860 arg5 = (gsl_vector *)(argp5);
5861 result = (int)gsl_linalg_QRPT_update(arg1,arg2,(struct gsl_permutation_struct const *)arg3,arg4,(gsl_vector const *)arg5);
5862 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5863
5864
5865
5866
5867
5868 XSRETURN(argvi);
5869 fail:
5870
5871
5872
5873
5874
5875 SWIG_croak_null();
5876 }
5877 }
5878
5879
XS(_wrap_gsl_linalg_QRPT_rank)5880 XS(_wrap_gsl_linalg_QRPT_rank) {
5881 {
5882 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5883 double arg2 ;
5884 void *argp1 = 0 ;
5885 int res1 = 0 ;
5886 double val2 ;
5887 int ecode2 = 0 ;
5888 int argvi = 0;
5889 size_t result;
5890 dXSARGS;
5891
5892 if ((items < 2) || (items > 2)) {
5893 SWIG_croak("Usage: gsl_linalg_QRPT_rank(QR,tol);");
5894 }
5895 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5896 if (!SWIG_IsOK(res1)) {
5897 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QRPT_rank" "', argument " "1"" of type '" "gsl_matrix const *""'");
5898 }
5899 arg1 = (gsl_matrix *)(argp1);
5900 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
5901 if (!SWIG_IsOK(ecode2)) {
5902 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_linalg_QRPT_rank" "', argument " "2"" of type '" "double""'");
5903 }
5904 arg2 = (double)(val2);
5905 result = gsl_linalg_QRPT_rank((gsl_matrix const *)arg1,arg2);
5906 ST(argvi) = SWIG_From_size_t SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
5907
5908
5909 XSRETURN(argvi);
5910 fail:
5911
5912
5913 SWIG_croak_null();
5914 }
5915 }
5916
5917
XS(_wrap_gsl_linalg_QRPT_rcond)5918 XS(_wrap_gsl_linalg_QRPT_rcond) {
5919 {
5920 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5921 double *arg2 = (double *) 0 ;
5922 gsl_vector *arg3 = (gsl_vector *) 0 ;
5923 void *argp1 = 0 ;
5924 int res1 = 0 ;
5925 void *argp2 = 0 ;
5926 int res2 = 0 ;
5927 void *argp3 = 0 ;
5928 int res3 = 0 ;
5929 int argvi = 0;
5930 int result;
5931 dXSARGS;
5932
5933 if ((items < 3) || (items > 3)) {
5934 SWIG_croak("Usage: gsl_linalg_QRPT_rcond(QR,rcond,work);");
5935 }
5936 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5937 if (!SWIG_IsOK(res1)) {
5938 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QRPT_rcond" "', argument " "1"" of type '" "gsl_matrix const *""'");
5939 }
5940 arg1 = (gsl_matrix *)(argp1);
5941 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_double, 0 | 0 );
5942 if (!SWIG_IsOK(res2)) {
5943 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QRPT_rcond" "', argument " "2"" of type '" "double *""'");
5944 }
5945 arg2 = (double *)(argp2);
5946 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
5947 if (!SWIG_IsOK(res3)) {
5948 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QRPT_rcond" "', argument " "3"" of type '" "gsl_vector *""'");
5949 }
5950 arg3 = (gsl_vector *)(argp3);
5951 result = (int)gsl_linalg_QRPT_rcond((gsl_matrix const *)arg1,arg2,arg3);
5952 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5953
5954
5955
5956 XSRETURN(argvi);
5957 fail:
5958
5959
5960
5961 SWIG_croak_null();
5962 }
5963 }
5964
5965
XS(_wrap_gsl_linalg_COD_decomp)5966 XS(_wrap_gsl_linalg_COD_decomp) {
5967 {
5968 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5969 gsl_vector *arg2 = (gsl_vector *) 0 ;
5970 gsl_vector *arg3 = (gsl_vector *) 0 ;
5971 gsl_permutation *arg4 = (gsl_permutation *) 0 ;
5972 size_t *arg5 = (size_t *) 0 ;
5973 gsl_vector *arg6 = (gsl_vector *) 0 ;
5974 void *argp1 = 0 ;
5975 int res1 = 0 ;
5976 void *argp2 = 0 ;
5977 int res2 = 0 ;
5978 void *argp3 = 0 ;
5979 int res3 = 0 ;
5980 void *argp4 = 0 ;
5981 int res4 = 0 ;
5982 void *argp5 = 0 ;
5983 int res5 = 0 ;
5984 void *argp6 = 0 ;
5985 int res6 = 0 ;
5986 int argvi = 0;
5987 int result;
5988 dXSARGS;
5989
5990 if ((items < 6) || (items > 6)) {
5991 SWIG_croak("Usage: gsl_linalg_COD_decomp(A,tau_Q,tau_Z,p,rank,work);");
5992 }
5993 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5994 if (!SWIG_IsOK(res1)) {
5995 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_COD_decomp" "', argument " "1"" of type '" "gsl_matrix *""'");
5996 }
5997 arg1 = (gsl_matrix *)(argp1);
5998 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
5999 if (!SWIG_IsOK(res2)) {
6000 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_COD_decomp" "', argument " "2"" of type '" "gsl_vector *""'");
6001 }
6002 arg2 = (gsl_vector *)(argp2);
6003 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
6004 if (!SWIG_IsOK(res3)) {
6005 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_COD_decomp" "', argument " "3"" of type '" "gsl_vector *""'");
6006 }
6007 arg3 = (gsl_vector *)(argp3);
6008 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
6009 if (!SWIG_IsOK(res4)) {
6010 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_COD_decomp" "', argument " "4"" of type '" "gsl_permutation *""'");
6011 }
6012 arg4 = (gsl_permutation *)(argp4);
6013 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_size_t, 0 | 0 );
6014 if (!SWIG_IsOK(res5)) {
6015 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_COD_decomp" "', argument " "5"" of type '" "size_t *""'");
6016 }
6017 arg5 = (size_t *)(argp5);
6018 res6 = SWIG_ConvertPtr(ST(5), &argp6,SWIGTYPE_p_gsl_vector, 0 | 0 );
6019 if (!SWIG_IsOK(res6)) {
6020 SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_linalg_COD_decomp" "', argument " "6"" of type '" "gsl_vector *""'");
6021 }
6022 arg6 = (gsl_vector *)(argp6);
6023 result = (int)gsl_linalg_COD_decomp(arg1,arg2,arg3,arg4,arg5,arg6);
6024 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6025
6026
6027
6028
6029
6030
6031 XSRETURN(argvi);
6032 fail:
6033
6034
6035
6036
6037
6038
6039 SWIG_croak_null();
6040 }
6041 }
6042
6043
XS(_wrap_gsl_linalg_COD_decomp_e)6044 XS(_wrap_gsl_linalg_COD_decomp_e) {
6045 {
6046 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
6047 gsl_vector *arg2 = (gsl_vector *) 0 ;
6048 gsl_vector *arg3 = (gsl_vector *) 0 ;
6049 gsl_permutation *arg4 = (gsl_permutation *) 0 ;
6050 double arg5 ;
6051 size_t *arg6 = (size_t *) 0 ;
6052 gsl_vector *arg7 = (gsl_vector *) 0 ;
6053 void *argp1 = 0 ;
6054 int res1 = 0 ;
6055 void *argp2 = 0 ;
6056 int res2 = 0 ;
6057 void *argp3 = 0 ;
6058 int res3 = 0 ;
6059 void *argp4 = 0 ;
6060 int res4 = 0 ;
6061 double val5 ;
6062 int ecode5 = 0 ;
6063 void *argp6 = 0 ;
6064 int res6 = 0 ;
6065 void *argp7 = 0 ;
6066 int res7 = 0 ;
6067 int argvi = 0;
6068 int result;
6069 dXSARGS;
6070
6071 if ((items < 7) || (items > 7)) {
6072 SWIG_croak("Usage: gsl_linalg_COD_decomp_e(A,tau_Q,tau_Z,p,tol,rank,work);");
6073 }
6074 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6075 if (!SWIG_IsOK(res1)) {
6076 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_COD_decomp_e" "', argument " "1"" of type '" "gsl_matrix *""'");
6077 }
6078 arg1 = (gsl_matrix *)(argp1);
6079 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
6080 if (!SWIG_IsOK(res2)) {
6081 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_COD_decomp_e" "', argument " "2"" of type '" "gsl_vector *""'");
6082 }
6083 arg2 = (gsl_vector *)(argp2);
6084 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
6085 if (!SWIG_IsOK(res3)) {
6086 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_COD_decomp_e" "', argument " "3"" of type '" "gsl_vector *""'");
6087 }
6088 arg3 = (gsl_vector *)(argp3);
6089 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
6090 if (!SWIG_IsOK(res4)) {
6091 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_COD_decomp_e" "', argument " "4"" of type '" "gsl_permutation *""'");
6092 }
6093 arg4 = (gsl_permutation *)(argp4);
6094 ecode5 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(4), &val5);
6095 if (!SWIG_IsOK(ecode5)) {
6096 SWIG_exception_fail(SWIG_ArgError(ecode5), "in method '" "gsl_linalg_COD_decomp_e" "', argument " "5"" of type '" "double""'");
6097 }
6098 arg5 = (double)(val5);
6099 res6 = SWIG_ConvertPtr(ST(5), &argp6,SWIGTYPE_p_size_t, 0 | 0 );
6100 if (!SWIG_IsOK(res6)) {
6101 SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_linalg_COD_decomp_e" "', argument " "6"" of type '" "size_t *""'");
6102 }
6103 arg6 = (size_t *)(argp6);
6104 res7 = SWIG_ConvertPtr(ST(6), &argp7,SWIGTYPE_p_gsl_vector, 0 | 0 );
6105 if (!SWIG_IsOK(res7)) {
6106 SWIG_exception_fail(SWIG_ArgError(res7), "in method '" "gsl_linalg_COD_decomp_e" "', argument " "7"" of type '" "gsl_vector *""'");
6107 }
6108 arg7 = (gsl_vector *)(argp7);
6109 result = (int)gsl_linalg_COD_decomp_e(arg1,arg2,arg3,arg4,arg5,arg6,arg7);
6110 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6111
6112
6113
6114
6115
6116
6117
6118 XSRETURN(argvi);
6119 fail:
6120
6121
6122
6123
6124
6125
6126
6127 SWIG_croak_null();
6128 }
6129 }
6130
6131
XS(_wrap_gsl_linalg_COD_lssolve)6132 XS(_wrap_gsl_linalg_COD_lssolve) {
6133 {
6134 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
6135 gsl_vector *arg2 = (gsl_vector *) 0 ;
6136 gsl_vector *arg3 = (gsl_vector *) 0 ;
6137 gsl_permutation *arg4 = (gsl_permutation *) 0 ;
6138 size_t arg5 ;
6139 gsl_vector *arg6 = (gsl_vector *) 0 ;
6140 gsl_vector *arg7 = (gsl_vector *) 0 ;
6141 gsl_vector *arg8 = (gsl_vector *) 0 ;
6142 void *argp1 = 0 ;
6143 int res1 = 0 ;
6144 void *argp2 = 0 ;
6145 int res2 = 0 ;
6146 void *argp3 = 0 ;
6147 int res3 = 0 ;
6148 void *argp4 = 0 ;
6149 int res4 = 0 ;
6150 size_t val5 ;
6151 int ecode5 = 0 ;
6152 void *argp6 = 0 ;
6153 int res6 = 0 ;
6154 void *argp7 = 0 ;
6155 int res7 = 0 ;
6156 void *argp8 = 0 ;
6157 int res8 = 0 ;
6158 int argvi = 0;
6159 int result;
6160 dXSARGS;
6161
6162 if ((items < 8) || (items > 8)) {
6163 SWIG_croak("Usage: gsl_linalg_COD_lssolve(QRZT,tau_Q,tau_Z,perm,rank,b,x,residual);");
6164 }
6165 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6166 if (!SWIG_IsOK(res1)) {
6167 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_COD_lssolve" "', argument " "1"" of type '" "gsl_matrix const *""'");
6168 }
6169 arg1 = (gsl_matrix *)(argp1);
6170 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
6171 if (!SWIG_IsOK(res2)) {
6172 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_COD_lssolve" "', argument " "2"" of type '" "gsl_vector const *""'");
6173 }
6174 arg2 = (gsl_vector *)(argp2);
6175 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
6176 if (!SWIG_IsOK(res3)) {
6177 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_COD_lssolve" "', argument " "3"" of type '" "gsl_vector const *""'");
6178 }
6179 arg3 = (gsl_vector *)(argp3);
6180 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
6181 if (!SWIG_IsOK(res4)) {
6182 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_COD_lssolve" "', argument " "4"" of type '" "gsl_permutation const *""'");
6183 }
6184 arg4 = (gsl_permutation *)(argp4);
6185 ecode5 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(4), &val5);
6186 if (!SWIG_IsOK(ecode5)) {
6187 SWIG_exception_fail(SWIG_ArgError(ecode5), "in method '" "gsl_linalg_COD_lssolve" "', argument " "5"" of type '" "size_t""'");
6188 }
6189 arg5 = (size_t)(val5);
6190 res6 = SWIG_ConvertPtr(ST(5), &argp6,SWIGTYPE_p_gsl_vector, 0 | 0 );
6191 if (!SWIG_IsOK(res6)) {
6192 SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_linalg_COD_lssolve" "', argument " "6"" of type '" "gsl_vector const *""'");
6193 }
6194 arg6 = (gsl_vector *)(argp6);
6195 res7 = SWIG_ConvertPtr(ST(6), &argp7,SWIGTYPE_p_gsl_vector, 0 | 0 );
6196 if (!SWIG_IsOK(res7)) {
6197 SWIG_exception_fail(SWIG_ArgError(res7), "in method '" "gsl_linalg_COD_lssolve" "', argument " "7"" of type '" "gsl_vector *""'");
6198 }
6199 arg7 = (gsl_vector *)(argp7);
6200 res8 = SWIG_ConvertPtr(ST(7), &argp8,SWIGTYPE_p_gsl_vector, 0 | 0 );
6201 if (!SWIG_IsOK(res8)) {
6202 SWIG_exception_fail(SWIG_ArgError(res8), "in method '" "gsl_linalg_COD_lssolve" "', argument " "8"" of type '" "gsl_vector *""'");
6203 }
6204 arg8 = (gsl_vector *)(argp8);
6205 result = (int)gsl_linalg_COD_lssolve((gsl_matrix const *)arg1,(gsl_vector const *)arg2,(gsl_vector const *)arg3,(struct gsl_permutation_struct const *)arg4,arg5,(gsl_vector const *)arg6,arg7,arg8);
6206 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6207
6208
6209
6210
6211
6212
6213
6214
6215 XSRETURN(argvi);
6216 fail:
6217
6218
6219
6220
6221
6222
6223
6224
6225 SWIG_croak_null();
6226 }
6227 }
6228
6229
XS(_wrap_gsl_linalg_COD_lssolve2)6230 XS(_wrap_gsl_linalg_COD_lssolve2) {
6231 {
6232 double arg1 ;
6233 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
6234 gsl_vector *arg3 = (gsl_vector *) 0 ;
6235 gsl_vector *arg4 = (gsl_vector *) 0 ;
6236 gsl_permutation *arg5 = (gsl_permutation *) 0 ;
6237 size_t arg6 ;
6238 gsl_vector *arg7 = (gsl_vector *) 0 ;
6239 gsl_vector *arg8 = (gsl_vector *) 0 ;
6240 gsl_vector *arg9 = (gsl_vector *) 0 ;
6241 gsl_matrix *arg10 = (gsl_matrix *) 0 ;
6242 gsl_vector *arg11 = (gsl_vector *) 0 ;
6243 double val1 ;
6244 int ecode1 = 0 ;
6245 void *argp2 = 0 ;
6246 int res2 = 0 ;
6247 void *argp3 = 0 ;
6248 int res3 = 0 ;
6249 void *argp4 = 0 ;
6250 int res4 = 0 ;
6251 void *argp5 = 0 ;
6252 int res5 = 0 ;
6253 size_t val6 ;
6254 int ecode6 = 0 ;
6255 void *argp7 = 0 ;
6256 int res7 = 0 ;
6257 void *argp8 = 0 ;
6258 int res8 = 0 ;
6259 void *argp9 = 0 ;
6260 int res9 = 0 ;
6261 void *argp10 = 0 ;
6262 int res10 = 0 ;
6263 void *argp11 = 0 ;
6264 int res11 = 0 ;
6265 int argvi = 0;
6266 int result;
6267 dXSARGS;
6268
6269 if ((items < 11) || (items > 11)) {
6270 SWIG_croak("Usage: gsl_linalg_COD_lssolve2(lambda,QRZT,tau_Q,tau_Z,perm,rank,b,x,residual,S,work);");
6271 }
6272 ecode1 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
6273 if (!SWIG_IsOK(ecode1)) {
6274 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_linalg_COD_lssolve2" "', argument " "1"" of type '" "double""'");
6275 }
6276 arg1 = (double)(val1);
6277 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6278 if (!SWIG_IsOK(res2)) {
6279 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_COD_lssolve2" "', argument " "2"" of type '" "gsl_matrix const *""'");
6280 }
6281 arg2 = (gsl_matrix *)(argp2);
6282 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
6283 if (!SWIG_IsOK(res3)) {
6284 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_COD_lssolve2" "', argument " "3"" of type '" "gsl_vector const *""'");
6285 }
6286 arg3 = (gsl_vector *)(argp3);
6287 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
6288 if (!SWIG_IsOK(res4)) {
6289 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_COD_lssolve2" "', argument " "4"" of type '" "gsl_vector const *""'");
6290 }
6291 arg4 = (gsl_vector *)(argp4);
6292 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
6293 if (!SWIG_IsOK(res5)) {
6294 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_COD_lssolve2" "', argument " "5"" of type '" "gsl_permutation const *""'");
6295 }
6296 arg5 = (gsl_permutation *)(argp5);
6297 ecode6 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(5), &val6);
6298 if (!SWIG_IsOK(ecode6)) {
6299 SWIG_exception_fail(SWIG_ArgError(ecode6), "in method '" "gsl_linalg_COD_lssolve2" "', argument " "6"" of type '" "size_t""'");
6300 }
6301 arg6 = (size_t)(val6);
6302 res7 = SWIG_ConvertPtr(ST(6), &argp7,SWIGTYPE_p_gsl_vector, 0 | 0 );
6303 if (!SWIG_IsOK(res7)) {
6304 SWIG_exception_fail(SWIG_ArgError(res7), "in method '" "gsl_linalg_COD_lssolve2" "', argument " "7"" of type '" "gsl_vector const *""'");
6305 }
6306 arg7 = (gsl_vector *)(argp7);
6307 res8 = SWIG_ConvertPtr(ST(7), &argp8,SWIGTYPE_p_gsl_vector, 0 | 0 );
6308 if (!SWIG_IsOK(res8)) {
6309 SWIG_exception_fail(SWIG_ArgError(res8), "in method '" "gsl_linalg_COD_lssolve2" "', argument " "8"" of type '" "gsl_vector *""'");
6310 }
6311 arg8 = (gsl_vector *)(argp8);
6312 res9 = SWIG_ConvertPtr(ST(8), &argp9,SWIGTYPE_p_gsl_vector, 0 | 0 );
6313 if (!SWIG_IsOK(res9)) {
6314 SWIG_exception_fail(SWIG_ArgError(res9), "in method '" "gsl_linalg_COD_lssolve2" "', argument " "9"" of type '" "gsl_vector *""'");
6315 }
6316 arg9 = (gsl_vector *)(argp9);
6317 res10 = SWIG_ConvertPtr(ST(9), &argp10,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6318 if (!SWIG_IsOK(res10)) {
6319 SWIG_exception_fail(SWIG_ArgError(res10), "in method '" "gsl_linalg_COD_lssolve2" "', argument " "10"" of type '" "gsl_matrix *""'");
6320 }
6321 arg10 = (gsl_matrix *)(argp10);
6322 res11 = SWIG_ConvertPtr(ST(10), &argp11,SWIGTYPE_p_gsl_vector, 0 | 0 );
6323 if (!SWIG_IsOK(res11)) {
6324 SWIG_exception_fail(SWIG_ArgError(res11), "in method '" "gsl_linalg_COD_lssolve2" "', argument " "11"" of type '" "gsl_vector *""'");
6325 }
6326 arg11 = (gsl_vector *)(argp11);
6327 result = (int)gsl_linalg_COD_lssolve2(arg1,(gsl_matrix const *)arg2,(gsl_vector const *)arg3,(gsl_vector const *)arg4,(struct gsl_permutation_struct const *)arg5,arg6,(gsl_vector const *)arg7,arg8,arg9,arg10,arg11);
6328 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6329
6330
6331
6332
6333
6334
6335
6336
6337
6338
6339
6340 XSRETURN(argvi);
6341 fail:
6342
6343
6344
6345
6346
6347
6348
6349
6350
6351
6352
6353 SWIG_croak_null();
6354 }
6355 }
6356
6357
XS(_wrap_gsl_linalg_COD_unpack)6358 XS(_wrap_gsl_linalg_COD_unpack) {
6359 {
6360 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
6361 gsl_vector *arg2 = (gsl_vector *) 0 ;
6362 gsl_vector *arg3 = (gsl_vector *) 0 ;
6363 size_t arg4 ;
6364 gsl_matrix *arg5 = (gsl_matrix *) 0 ;
6365 gsl_matrix *arg6 = (gsl_matrix *) 0 ;
6366 gsl_matrix *arg7 = (gsl_matrix *) 0 ;
6367 void *argp1 = 0 ;
6368 int res1 = 0 ;
6369 void *argp2 = 0 ;
6370 int res2 = 0 ;
6371 void *argp3 = 0 ;
6372 int res3 = 0 ;
6373 size_t val4 ;
6374 int ecode4 = 0 ;
6375 void *argp5 = 0 ;
6376 int res5 = 0 ;
6377 void *argp6 = 0 ;
6378 int res6 = 0 ;
6379 void *argp7 = 0 ;
6380 int res7 = 0 ;
6381 int argvi = 0;
6382 int result;
6383 dXSARGS;
6384
6385 if ((items < 7) || (items > 7)) {
6386 SWIG_croak("Usage: gsl_linalg_COD_unpack(QRZT,tau_Q,tau_Z,rank,Q,R,Z);");
6387 }
6388 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6389 if (!SWIG_IsOK(res1)) {
6390 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_COD_unpack" "', argument " "1"" of type '" "gsl_matrix const *""'");
6391 }
6392 arg1 = (gsl_matrix *)(argp1);
6393 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
6394 if (!SWIG_IsOK(res2)) {
6395 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_COD_unpack" "', argument " "2"" of type '" "gsl_vector const *""'");
6396 }
6397 arg2 = (gsl_vector *)(argp2);
6398 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
6399 if (!SWIG_IsOK(res3)) {
6400 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_COD_unpack" "', argument " "3"" of type '" "gsl_vector const *""'");
6401 }
6402 arg3 = (gsl_vector *)(argp3);
6403 ecode4 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(3), &val4);
6404 if (!SWIG_IsOK(ecode4)) {
6405 SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "gsl_linalg_COD_unpack" "', argument " "4"" of type '" "size_t""'");
6406 }
6407 arg4 = (size_t)(val4);
6408 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6409 if (!SWIG_IsOK(res5)) {
6410 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_COD_unpack" "', argument " "5"" of type '" "gsl_matrix *""'");
6411 }
6412 arg5 = (gsl_matrix *)(argp5);
6413 res6 = SWIG_ConvertPtr(ST(5), &argp6,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6414 if (!SWIG_IsOK(res6)) {
6415 SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_linalg_COD_unpack" "', argument " "6"" of type '" "gsl_matrix *""'");
6416 }
6417 arg6 = (gsl_matrix *)(argp6);
6418 res7 = SWIG_ConvertPtr(ST(6), &argp7,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6419 if (!SWIG_IsOK(res7)) {
6420 SWIG_exception_fail(SWIG_ArgError(res7), "in method '" "gsl_linalg_COD_unpack" "', argument " "7"" of type '" "gsl_matrix *""'");
6421 }
6422 arg7 = (gsl_matrix *)(argp7);
6423 result = (int)gsl_linalg_COD_unpack((gsl_matrix const *)arg1,(gsl_vector const *)arg2,(gsl_vector const *)arg3,arg4,arg5,arg6,arg7);
6424 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6425
6426
6427
6428
6429
6430
6431
6432 XSRETURN(argvi);
6433 fail:
6434
6435
6436
6437
6438
6439
6440
6441 SWIG_croak_null();
6442 }
6443 }
6444
6445
XS(_wrap_gsl_linalg_COD_matZ)6446 XS(_wrap_gsl_linalg_COD_matZ) {
6447 {
6448 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
6449 gsl_vector *arg2 = (gsl_vector *) 0 ;
6450 size_t arg3 ;
6451 gsl_matrix *arg4 = (gsl_matrix *) 0 ;
6452 gsl_vector *arg5 = (gsl_vector *) 0 ;
6453 void *argp1 = 0 ;
6454 int res1 = 0 ;
6455 void *argp2 = 0 ;
6456 int res2 = 0 ;
6457 size_t val3 ;
6458 int ecode3 = 0 ;
6459 void *argp4 = 0 ;
6460 int res4 = 0 ;
6461 void *argp5 = 0 ;
6462 int res5 = 0 ;
6463 int argvi = 0;
6464 int result;
6465 dXSARGS;
6466
6467 if ((items < 5) || (items > 5)) {
6468 SWIG_croak("Usage: gsl_linalg_COD_matZ(QRZT,tau_Z,rank,A,work);");
6469 }
6470 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6471 if (!SWIG_IsOK(res1)) {
6472 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_COD_matZ" "', argument " "1"" of type '" "gsl_matrix const *""'");
6473 }
6474 arg1 = (gsl_matrix *)(argp1);
6475 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
6476 if (!SWIG_IsOK(res2)) {
6477 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_COD_matZ" "', argument " "2"" of type '" "gsl_vector const *""'");
6478 }
6479 arg2 = (gsl_vector *)(argp2);
6480 ecode3 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
6481 if (!SWIG_IsOK(ecode3)) {
6482 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_linalg_COD_matZ" "', argument " "3"" of type '" "size_t""'");
6483 }
6484 arg3 = (size_t)(val3);
6485 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6486 if (!SWIG_IsOK(res4)) {
6487 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_COD_matZ" "', argument " "4"" of type '" "gsl_matrix *""'");
6488 }
6489 arg4 = (gsl_matrix *)(argp4);
6490 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
6491 if (!SWIG_IsOK(res5)) {
6492 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_COD_matZ" "', argument " "5"" of type '" "gsl_vector *""'");
6493 }
6494 arg5 = (gsl_vector *)(argp5);
6495 result = (int)gsl_linalg_COD_matZ((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3,arg4,arg5);
6496 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6497
6498
6499
6500
6501
6502 XSRETURN(argvi);
6503 fail:
6504
6505
6506
6507
6508
6509 SWIG_croak_null();
6510 }
6511 }
6512
6513
XS(_wrap_gsl_linalg_LQ_decomp)6514 XS(_wrap_gsl_linalg_LQ_decomp) {
6515 {
6516 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
6517 gsl_vector *arg2 = (gsl_vector *) 0 ;
6518 void *argp1 = 0 ;
6519 int res1 = 0 ;
6520 void *argp2 = 0 ;
6521 int res2 = 0 ;
6522 int argvi = 0;
6523 int result;
6524 dXSARGS;
6525
6526 if ((items < 2) || (items > 2)) {
6527 SWIG_croak("Usage: gsl_linalg_LQ_decomp(A,tau);");
6528 }
6529 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6530 if (!SWIG_IsOK(res1)) {
6531 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LQ_decomp" "', argument " "1"" of type '" "gsl_matrix *""'");
6532 }
6533 arg1 = (gsl_matrix *)(argp1);
6534 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
6535 if (!SWIG_IsOK(res2)) {
6536 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_LQ_decomp" "', argument " "2"" of type '" "gsl_vector *""'");
6537 }
6538 arg2 = (gsl_vector *)(argp2);
6539 result = (int)gsl_linalg_LQ_decomp(arg1,arg2);
6540 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6541
6542
6543 XSRETURN(argvi);
6544 fail:
6545
6546
6547 SWIG_croak_null();
6548 }
6549 }
6550
6551
XS(_wrap_gsl_linalg_LQ_solve_T)6552 XS(_wrap_gsl_linalg_LQ_solve_T) {
6553 {
6554 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
6555 gsl_vector *arg2 = (gsl_vector *) 0 ;
6556 gsl_vector *arg3 = (gsl_vector *) 0 ;
6557 gsl_vector *arg4 = (gsl_vector *) 0 ;
6558 void *argp1 = 0 ;
6559 int res1 = 0 ;
6560 void *argp2 = 0 ;
6561 int res2 = 0 ;
6562 void *argp3 = 0 ;
6563 int res3 = 0 ;
6564 void *argp4 = 0 ;
6565 int res4 = 0 ;
6566 int argvi = 0;
6567 int result;
6568 dXSARGS;
6569
6570 if ((items < 4) || (items > 4)) {
6571 SWIG_croak("Usage: gsl_linalg_LQ_solve_T(LQ,tau,b,x);");
6572 }
6573 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6574 if (!SWIG_IsOK(res1)) {
6575 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LQ_solve_T" "', argument " "1"" of type '" "gsl_matrix const *""'");
6576 }
6577 arg1 = (gsl_matrix *)(argp1);
6578 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
6579 if (!SWIG_IsOK(res2)) {
6580 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_LQ_solve_T" "', argument " "2"" of type '" "gsl_vector const *""'");
6581 }
6582 arg2 = (gsl_vector *)(argp2);
6583 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
6584 if (!SWIG_IsOK(res3)) {
6585 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_LQ_solve_T" "', argument " "3"" of type '" "gsl_vector const *""'");
6586 }
6587 arg3 = (gsl_vector *)(argp3);
6588 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
6589 if (!SWIG_IsOK(res4)) {
6590 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_LQ_solve_T" "', argument " "4"" of type '" "gsl_vector *""'");
6591 }
6592 arg4 = (gsl_vector *)(argp4);
6593 result = (int)gsl_linalg_LQ_solve_T((gsl_matrix const *)arg1,(gsl_vector const *)arg2,(gsl_vector const *)arg3,arg4);
6594 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6595
6596
6597
6598
6599 XSRETURN(argvi);
6600 fail:
6601
6602
6603
6604
6605 SWIG_croak_null();
6606 }
6607 }
6608
6609
XS(_wrap_gsl_linalg_LQ_svx_T)6610 XS(_wrap_gsl_linalg_LQ_svx_T) {
6611 {
6612 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
6613 gsl_vector *arg2 = (gsl_vector *) 0 ;
6614 gsl_vector *arg3 = (gsl_vector *) 0 ;
6615 void *argp1 = 0 ;
6616 int res1 = 0 ;
6617 void *argp2 = 0 ;
6618 int res2 = 0 ;
6619 void *argp3 = 0 ;
6620 int res3 = 0 ;
6621 int argvi = 0;
6622 int result;
6623 dXSARGS;
6624
6625 if ((items < 3) || (items > 3)) {
6626 SWIG_croak("Usage: gsl_linalg_LQ_svx_T(LQ,tau,x);");
6627 }
6628 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6629 if (!SWIG_IsOK(res1)) {
6630 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LQ_svx_T" "', argument " "1"" of type '" "gsl_matrix const *""'");
6631 }
6632 arg1 = (gsl_matrix *)(argp1);
6633 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
6634 if (!SWIG_IsOK(res2)) {
6635 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_LQ_svx_T" "', argument " "2"" of type '" "gsl_vector const *""'");
6636 }
6637 arg2 = (gsl_vector *)(argp2);
6638 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
6639 if (!SWIG_IsOK(res3)) {
6640 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_LQ_svx_T" "', argument " "3"" of type '" "gsl_vector *""'");
6641 }
6642 arg3 = (gsl_vector *)(argp3);
6643 result = (int)gsl_linalg_LQ_svx_T((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3);
6644 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6645
6646
6647
6648 XSRETURN(argvi);
6649 fail:
6650
6651
6652
6653 SWIG_croak_null();
6654 }
6655 }
6656
6657
XS(_wrap_gsl_linalg_LQ_lssolve_T)6658 XS(_wrap_gsl_linalg_LQ_lssolve_T) {
6659 {
6660 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
6661 gsl_vector *arg2 = (gsl_vector *) 0 ;
6662 gsl_vector *arg3 = (gsl_vector *) 0 ;
6663 gsl_vector *arg4 = (gsl_vector *) 0 ;
6664 gsl_vector *arg5 = (gsl_vector *) 0 ;
6665 void *argp1 = 0 ;
6666 int res1 = 0 ;
6667 void *argp2 = 0 ;
6668 int res2 = 0 ;
6669 void *argp3 = 0 ;
6670 int res3 = 0 ;
6671 void *argp4 = 0 ;
6672 int res4 = 0 ;
6673 void *argp5 = 0 ;
6674 int res5 = 0 ;
6675 int argvi = 0;
6676 int result;
6677 dXSARGS;
6678
6679 if ((items < 5) || (items > 5)) {
6680 SWIG_croak("Usage: gsl_linalg_LQ_lssolve_T(LQ,tau,b,x,residual);");
6681 }
6682 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6683 if (!SWIG_IsOK(res1)) {
6684 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LQ_lssolve_T" "', argument " "1"" of type '" "gsl_matrix const *""'");
6685 }
6686 arg1 = (gsl_matrix *)(argp1);
6687 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
6688 if (!SWIG_IsOK(res2)) {
6689 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_LQ_lssolve_T" "', argument " "2"" of type '" "gsl_vector const *""'");
6690 }
6691 arg2 = (gsl_vector *)(argp2);
6692 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
6693 if (!SWIG_IsOK(res3)) {
6694 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_LQ_lssolve_T" "', argument " "3"" of type '" "gsl_vector const *""'");
6695 }
6696 arg3 = (gsl_vector *)(argp3);
6697 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
6698 if (!SWIG_IsOK(res4)) {
6699 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_LQ_lssolve_T" "', argument " "4"" of type '" "gsl_vector *""'");
6700 }
6701 arg4 = (gsl_vector *)(argp4);
6702 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
6703 if (!SWIG_IsOK(res5)) {
6704 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_LQ_lssolve_T" "', argument " "5"" of type '" "gsl_vector *""'");
6705 }
6706 arg5 = (gsl_vector *)(argp5);
6707 result = (int)gsl_linalg_LQ_lssolve_T((gsl_matrix const *)arg1,(gsl_vector const *)arg2,(gsl_vector const *)arg3,arg4,arg5);
6708 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6709
6710
6711
6712
6713
6714 XSRETURN(argvi);
6715 fail:
6716
6717
6718
6719
6720
6721 SWIG_croak_null();
6722 }
6723 }
6724
6725
XS(_wrap_gsl_linalg_LQ_Lsolve_T)6726 XS(_wrap_gsl_linalg_LQ_Lsolve_T) {
6727 {
6728 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
6729 gsl_vector *arg2 = (gsl_vector *) 0 ;
6730 gsl_vector *arg3 = (gsl_vector *) 0 ;
6731 void *argp1 = 0 ;
6732 int res1 = 0 ;
6733 void *argp2 = 0 ;
6734 int res2 = 0 ;
6735 void *argp3 = 0 ;
6736 int res3 = 0 ;
6737 int argvi = 0;
6738 int result;
6739 dXSARGS;
6740
6741 if ((items < 3) || (items > 3)) {
6742 SWIG_croak("Usage: gsl_linalg_LQ_Lsolve_T(LQ,b,x);");
6743 }
6744 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6745 if (!SWIG_IsOK(res1)) {
6746 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LQ_Lsolve_T" "', argument " "1"" of type '" "gsl_matrix const *""'");
6747 }
6748 arg1 = (gsl_matrix *)(argp1);
6749 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
6750 if (!SWIG_IsOK(res2)) {
6751 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_LQ_Lsolve_T" "', argument " "2"" of type '" "gsl_vector const *""'");
6752 }
6753 arg2 = (gsl_vector *)(argp2);
6754 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
6755 if (!SWIG_IsOK(res3)) {
6756 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_LQ_Lsolve_T" "', argument " "3"" of type '" "gsl_vector *""'");
6757 }
6758 arg3 = (gsl_vector *)(argp3);
6759 result = (int)gsl_linalg_LQ_Lsolve_T((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3);
6760 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6761
6762
6763
6764 XSRETURN(argvi);
6765 fail:
6766
6767
6768
6769 SWIG_croak_null();
6770 }
6771 }
6772
6773
XS(_wrap_gsl_linalg_LQ_Lsvx_T)6774 XS(_wrap_gsl_linalg_LQ_Lsvx_T) {
6775 {
6776 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
6777 gsl_vector *arg2 = (gsl_vector *) 0 ;
6778 void *argp1 = 0 ;
6779 int res1 = 0 ;
6780 void *argp2 = 0 ;
6781 int res2 = 0 ;
6782 int argvi = 0;
6783 int result;
6784 dXSARGS;
6785
6786 if ((items < 2) || (items > 2)) {
6787 SWIG_croak("Usage: gsl_linalg_LQ_Lsvx_T(LQ,x);");
6788 }
6789 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6790 if (!SWIG_IsOK(res1)) {
6791 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LQ_Lsvx_T" "', argument " "1"" of type '" "gsl_matrix const *""'");
6792 }
6793 arg1 = (gsl_matrix *)(argp1);
6794 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
6795 if (!SWIG_IsOK(res2)) {
6796 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_LQ_Lsvx_T" "', argument " "2"" of type '" "gsl_vector *""'");
6797 }
6798 arg2 = (gsl_vector *)(argp2);
6799 result = (int)gsl_linalg_LQ_Lsvx_T((gsl_matrix const *)arg1,arg2);
6800 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6801
6802
6803 XSRETURN(argvi);
6804 fail:
6805
6806
6807 SWIG_croak_null();
6808 }
6809 }
6810
6811
XS(_wrap_gsl_linalg_L_solve_T)6812 XS(_wrap_gsl_linalg_L_solve_T) {
6813 {
6814 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
6815 gsl_vector *arg2 = (gsl_vector *) 0 ;
6816 gsl_vector *arg3 = (gsl_vector *) 0 ;
6817 void *argp1 = 0 ;
6818 int res1 = 0 ;
6819 void *argp2 = 0 ;
6820 int res2 = 0 ;
6821 void *argp3 = 0 ;
6822 int res3 = 0 ;
6823 int argvi = 0;
6824 int result;
6825 dXSARGS;
6826
6827 if ((items < 3) || (items > 3)) {
6828 SWIG_croak("Usage: gsl_linalg_L_solve_T(L,b,x);");
6829 }
6830 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6831 if (!SWIG_IsOK(res1)) {
6832 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_L_solve_T" "', argument " "1"" of type '" "gsl_matrix const *""'");
6833 }
6834 arg1 = (gsl_matrix *)(argp1);
6835 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
6836 if (!SWIG_IsOK(res2)) {
6837 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_L_solve_T" "', argument " "2"" of type '" "gsl_vector const *""'");
6838 }
6839 arg2 = (gsl_vector *)(argp2);
6840 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
6841 if (!SWIG_IsOK(res3)) {
6842 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_L_solve_T" "', argument " "3"" of type '" "gsl_vector *""'");
6843 }
6844 arg3 = (gsl_vector *)(argp3);
6845 result = (int)gsl_linalg_L_solve_T((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3);
6846 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6847
6848
6849
6850 XSRETURN(argvi);
6851 fail:
6852
6853
6854
6855 SWIG_croak_null();
6856 }
6857 }
6858
6859
XS(_wrap_gsl_linalg_LQ_vecQ)6860 XS(_wrap_gsl_linalg_LQ_vecQ) {
6861 {
6862 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
6863 gsl_vector *arg2 = (gsl_vector *) 0 ;
6864 gsl_vector *arg3 = (gsl_vector *) 0 ;
6865 void *argp1 = 0 ;
6866 int res1 = 0 ;
6867 void *argp2 = 0 ;
6868 int res2 = 0 ;
6869 void *argp3 = 0 ;
6870 int res3 = 0 ;
6871 int argvi = 0;
6872 int result;
6873 dXSARGS;
6874
6875 if ((items < 3) || (items > 3)) {
6876 SWIG_croak("Usage: gsl_linalg_LQ_vecQ(LQ,tau,v);");
6877 }
6878 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6879 if (!SWIG_IsOK(res1)) {
6880 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LQ_vecQ" "', argument " "1"" of type '" "gsl_matrix const *""'");
6881 }
6882 arg1 = (gsl_matrix *)(argp1);
6883 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
6884 if (!SWIG_IsOK(res2)) {
6885 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_LQ_vecQ" "', argument " "2"" of type '" "gsl_vector const *""'");
6886 }
6887 arg2 = (gsl_vector *)(argp2);
6888 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
6889 if (!SWIG_IsOK(res3)) {
6890 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_LQ_vecQ" "', argument " "3"" of type '" "gsl_vector *""'");
6891 }
6892 arg3 = (gsl_vector *)(argp3);
6893 result = (int)gsl_linalg_LQ_vecQ((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3);
6894 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6895
6896
6897
6898 XSRETURN(argvi);
6899 fail:
6900
6901
6902
6903 SWIG_croak_null();
6904 }
6905 }
6906
6907
XS(_wrap_gsl_linalg_LQ_vecQT)6908 XS(_wrap_gsl_linalg_LQ_vecQT) {
6909 {
6910 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
6911 gsl_vector *arg2 = (gsl_vector *) 0 ;
6912 gsl_vector *arg3 = (gsl_vector *) 0 ;
6913 void *argp1 = 0 ;
6914 int res1 = 0 ;
6915 void *argp2 = 0 ;
6916 int res2 = 0 ;
6917 void *argp3 = 0 ;
6918 int res3 = 0 ;
6919 int argvi = 0;
6920 int result;
6921 dXSARGS;
6922
6923 if ((items < 3) || (items > 3)) {
6924 SWIG_croak("Usage: gsl_linalg_LQ_vecQT(LQ,tau,v);");
6925 }
6926 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6927 if (!SWIG_IsOK(res1)) {
6928 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LQ_vecQT" "', argument " "1"" of type '" "gsl_matrix const *""'");
6929 }
6930 arg1 = (gsl_matrix *)(argp1);
6931 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
6932 if (!SWIG_IsOK(res2)) {
6933 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_LQ_vecQT" "', argument " "2"" of type '" "gsl_vector const *""'");
6934 }
6935 arg2 = (gsl_vector *)(argp2);
6936 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
6937 if (!SWIG_IsOK(res3)) {
6938 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_LQ_vecQT" "', argument " "3"" of type '" "gsl_vector *""'");
6939 }
6940 arg3 = (gsl_vector *)(argp3);
6941 result = (int)gsl_linalg_LQ_vecQT((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3);
6942 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6943
6944
6945
6946 XSRETURN(argvi);
6947 fail:
6948
6949
6950
6951 SWIG_croak_null();
6952 }
6953 }
6954
6955
XS(_wrap_gsl_linalg_LQ_unpack)6956 XS(_wrap_gsl_linalg_LQ_unpack) {
6957 {
6958 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
6959 gsl_vector *arg2 = (gsl_vector *) 0 ;
6960 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
6961 gsl_matrix *arg4 = (gsl_matrix *) 0 ;
6962 void *argp1 = 0 ;
6963 int res1 = 0 ;
6964 void *argp2 = 0 ;
6965 int res2 = 0 ;
6966 void *argp3 = 0 ;
6967 int res3 = 0 ;
6968 void *argp4 = 0 ;
6969 int res4 = 0 ;
6970 int argvi = 0;
6971 int result;
6972 dXSARGS;
6973
6974 if ((items < 4) || (items > 4)) {
6975 SWIG_croak("Usage: gsl_linalg_LQ_unpack(LQ,tau,Q,L);");
6976 }
6977 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6978 if (!SWIG_IsOK(res1)) {
6979 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LQ_unpack" "', argument " "1"" of type '" "gsl_matrix const *""'");
6980 }
6981 arg1 = (gsl_matrix *)(argp1);
6982 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
6983 if (!SWIG_IsOK(res2)) {
6984 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_LQ_unpack" "', argument " "2"" of type '" "gsl_vector const *""'");
6985 }
6986 arg2 = (gsl_vector *)(argp2);
6987 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6988 if (!SWIG_IsOK(res3)) {
6989 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_LQ_unpack" "', argument " "3"" of type '" "gsl_matrix *""'");
6990 }
6991 arg3 = (gsl_matrix *)(argp3);
6992 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6993 if (!SWIG_IsOK(res4)) {
6994 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_LQ_unpack" "', argument " "4"" of type '" "gsl_matrix *""'");
6995 }
6996 arg4 = (gsl_matrix *)(argp4);
6997 result = (int)gsl_linalg_LQ_unpack((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3,arg4);
6998 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6999
7000
7001
7002
7003 XSRETURN(argvi);
7004 fail:
7005
7006
7007
7008
7009 SWIG_croak_null();
7010 }
7011 }
7012
7013
XS(_wrap_gsl_linalg_LQ_update)7014 XS(_wrap_gsl_linalg_LQ_update) {
7015 {
7016 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
7017 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
7018 gsl_vector *arg3 = (gsl_vector *) 0 ;
7019 gsl_vector *arg4 = (gsl_vector *) 0 ;
7020 void *argp1 = 0 ;
7021 int res1 = 0 ;
7022 void *argp2 = 0 ;
7023 int res2 = 0 ;
7024 void *argp3 = 0 ;
7025 int res3 = 0 ;
7026 void *argp4 = 0 ;
7027 int res4 = 0 ;
7028 int argvi = 0;
7029 int result;
7030 dXSARGS;
7031
7032 if ((items < 4) || (items > 4)) {
7033 SWIG_croak("Usage: gsl_linalg_LQ_update(Q,R,v,w);");
7034 }
7035 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7036 if (!SWIG_IsOK(res1)) {
7037 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LQ_update" "', argument " "1"" of type '" "gsl_matrix *""'");
7038 }
7039 arg1 = (gsl_matrix *)(argp1);
7040 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7041 if (!SWIG_IsOK(res2)) {
7042 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_LQ_update" "', argument " "2"" of type '" "gsl_matrix *""'");
7043 }
7044 arg2 = (gsl_matrix *)(argp2);
7045 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
7046 if (!SWIG_IsOK(res3)) {
7047 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_LQ_update" "', argument " "3"" of type '" "gsl_vector const *""'");
7048 }
7049 arg3 = (gsl_vector *)(argp3);
7050 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
7051 if (!SWIG_IsOK(res4)) {
7052 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_LQ_update" "', argument " "4"" of type '" "gsl_vector *""'");
7053 }
7054 arg4 = (gsl_vector *)(argp4);
7055 result = (int)gsl_linalg_LQ_update(arg1,arg2,(gsl_vector const *)arg3,arg4);
7056 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7057
7058
7059
7060
7061 XSRETURN(argvi);
7062 fail:
7063
7064
7065
7066
7067 SWIG_croak_null();
7068 }
7069 }
7070
7071
XS(_wrap_gsl_linalg_LQ_LQsolve)7072 XS(_wrap_gsl_linalg_LQ_LQsolve) {
7073 {
7074 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
7075 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
7076 gsl_vector *arg3 = (gsl_vector *) 0 ;
7077 gsl_vector *arg4 = (gsl_vector *) 0 ;
7078 void *argp1 = 0 ;
7079 int res1 = 0 ;
7080 void *argp2 = 0 ;
7081 int res2 = 0 ;
7082 void *argp3 = 0 ;
7083 int res3 = 0 ;
7084 void *argp4 = 0 ;
7085 int res4 = 0 ;
7086 int argvi = 0;
7087 int result;
7088 dXSARGS;
7089
7090 if ((items < 4) || (items > 4)) {
7091 SWIG_croak("Usage: gsl_linalg_LQ_LQsolve(Q,L,b,x);");
7092 }
7093 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7094 if (!SWIG_IsOK(res1)) {
7095 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LQ_LQsolve" "', argument " "1"" of type '" "gsl_matrix *""'");
7096 }
7097 arg1 = (gsl_matrix *)(argp1);
7098 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7099 if (!SWIG_IsOK(res2)) {
7100 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_LQ_LQsolve" "', argument " "2"" of type '" "gsl_matrix *""'");
7101 }
7102 arg2 = (gsl_matrix *)(argp2);
7103 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
7104 if (!SWIG_IsOK(res3)) {
7105 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_LQ_LQsolve" "', argument " "3"" of type '" "gsl_vector const *""'");
7106 }
7107 arg3 = (gsl_vector *)(argp3);
7108 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
7109 if (!SWIG_IsOK(res4)) {
7110 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_LQ_LQsolve" "', argument " "4"" of type '" "gsl_vector *""'");
7111 }
7112 arg4 = (gsl_vector *)(argp4);
7113 result = (int)gsl_linalg_LQ_LQsolve(arg1,arg2,(gsl_vector const *)arg3,arg4);
7114 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7115
7116
7117
7118
7119 XSRETURN(argvi);
7120 fail:
7121
7122
7123
7124
7125 SWIG_croak_null();
7126 }
7127 }
7128
7129
XS(_wrap_gsl_linalg_PTLQ_decomp)7130 XS(_wrap_gsl_linalg_PTLQ_decomp) {
7131 {
7132 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
7133 gsl_vector *arg2 = (gsl_vector *) 0 ;
7134 gsl_permutation *arg3 = (gsl_permutation *) 0 ;
7135 int *arg4 = (int *) 0 ;
7136 gsl_vector *arg5 = (gsl_vector *) 0 ;
7137 void *argp1 = 0 ;
7138 int res1 = 0 ;
7139 void *argp2 = 0 ;
7140 int res2 = 0 ;
7141 void *argp3 = 0 ;
7142 int res3 = 0 ;
7143 int temp4 ;
7144 int res4 = SWIG_TMPOBJ ;
7145 void *argp5 = 0 ;
7146 int res5 = 0 ;
7147 int argvi = 0;
7148 int result;
7149 dXSARGS;
7150
7151 arg4 = &temp4;
7152 if ((items < 4) || (items > 4)) {
7153 SWIG_croak("Usage: gsl_linalg_PTLQ_decomp(A,tau,p,norm);");
7154 }
7155 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7156 if (!SWIG_IsOK(res1)) {
7157 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_PTLQ_decomp" "', argument " "1"" of type '" "gsl_matrix *""'");
7158 }
7159 arg1 = (gsl_matrix *)(argp1);
7160 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
7161 if (!SWIG_IsOK(res2)) {
7162 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_PTLQ_decomp" "', argument " "2"" of type '" "gsl_vector *""'");
7163 }
7164 arg2 = (gsl_vector *)(argp2);
7165 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
7166 if (!SWIG_IsOK(res3)) {
7167 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_PTLQ_decomp" "', argument " "3"" of type '" "gsl_permutation *""'");
7168 }
7169 arg3 = (gsl_permutation *)(argp3);
7170 res5 = SWIG_ConvertPtr(ST(3), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
7171 if (!SWIG_IsOK(res5)) {
7172 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_PTLQ_decomp" "', argument " "5"" of type '" "gsl_vector *""'");
7173 }
7174 arg5 = (gsl_vector *)(argp5);
7175 result = (int)gsl_linalg_PTLQ_decomp(arg1,arg2,arg3,arg4,arg5);
7176 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7177 if (SWIG_IsTmpObj(res4)) {
7178 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((*arg4)); argvi++ ;
7179 } else {
7180 int new_flags = SWIG_IsNewObj(res4) ? (SWIG_POINTER_OWN | 0) : 0;
7181 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg4), SWIGTYPE_p_int, new_flags); argvi++ ;
7182 }
7183
7184
7185
7186
7187
7188 XSRETURN(argvi);
7189 fail:
7190
7191
7192
7193
7194
7195 SWIG_croak_null();
7196 }
7197 }
7198
7199
XS(_wrap_gsl_linalg_PTLQ_decomp2)7200 XS(_wrap_gsl_linalg_PTLQ_decomp2) {
7201 {
7202 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
7203 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
7204 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
7205 gsl_vector *arg4 = (gsl_vector *) 0 ;
7206 gsl_permutation *arg5 = (gsl_permutation *) 0 ;
7207 int *arg6 = (int *) 0 ;
7208 gsl_vector *arg7 = (gsl_vector *) 0 ;
7209 void *argp1 = 0 ;
7210 int res1 = 0 ;
7211 void *argp2 = 0 ;
7212 int res2 = 0 ;
7213 void *argp3 = 0 ;
7214 int res3 = 0 ;
7215 void *argp4 = 0 ;
7216 int res4 = 0 ;
7217 void *argp5 = 0 ;
7218 int res5 = 0 ;
7219 int temp6 ;
7220 int res6 = SWIG_TMPOBJ ;
7221 void *argp7 = 0 ;
7222 int res7 = 0 ;
7223 int argvi = 0;
7224 int result;
7225 dXSARGS;
7226
7227 arg6 = &temp6;
7228 if ((items < 6) || (items > 6)) {
7229 SWIG_croak("Usage: gsl_linalg_PTLQ_decomp2(A,q,r,tau,p,norm);");
7230 }
7231 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7232 if (!SWIG_IsOK(res1)) {
7233 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_PTLQ_decomp2" "', argument " "1"" of type '" "gsl_matrix const *""'");
7234 }
7235 arg1 = (gsl_matrix *)(argp1);
7236 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7237 if (!SWIG_IsOK(res2)) {
7238 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_PTLQ_decomp2" "', argument " "2"" of type '" "gsl_matrix *""'");
7239 }
7240 arg2 = (gsl_matrix *)(argp2);
7241 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7242 if (!SWIG_IsOK(res3)) {
7243 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_PTLQ_decomp2" "', argument " "3"" of type '" "gsl_matrix *""'");
7244 }
7245 arg3 = (gsl_matrix *)(argp3);
7246 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
7247 if (!SWIG_IsOK(res4)) {
7248 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_PTLQ_decomp2" "', argument " "4"" of type '" "gsl_vector *""'");
7249 }
7250 arg4 = (gsl_vector *)(argp4);
7251 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
7252 if (!SWIG_IsOK(res5)) {
7253 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_PTLQ_decomp2" "', argument " "5"" of type '" "gsl_permutation *""'");
7254 }
7255 arg5 = (gsl_permutation *)(argp5);
7256 res7 = SWIG_ConvertPtr(ST(5), &argp7,SWIGTYPE_p_gsl_vector, 0 | 0 );
7257 if (!SWIG_IsOK(res7)) {
7258 SWIG_exception_fail(SWIG_ArgError(res7), "in method '" "gsl_linalg_PTLQ_decomp2" "', argument " "7"" of type '" "gsl_vector *""'");
7259 }
7260 arg7 = (gsl_vector *)(argp7);
7261 result = (int)gsl_linalg_PTLQ_decomp2((gsl_matrix const *)arg1,arg2,arg3,arg4,arg5,arg6,arg7);
7262 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7263 if (SWIG_IsTmpObj(res6)) {
7264 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((*arg6)); argvi++ ;
7265 } else {
7266 int new_flags = SWIG_IsNewObj(res6) ? (SWIG_POINTER_OWN | 0) : 0;
7267 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg6), SWIGTYPE_p_int, new_flags); argvi++ ;
7268 }
7269
7270
7271
7272
7273
7274
7275
7276 XSRETURN(argvi);
7277 fail:
7278
7279
7280
7281
7282
7283
7284
7285 SWIG_croak_null();
7286 }
7287 }
7288
7289
XS(_wrap_gsl_linalg_PTLQ_solve_T)7290 XS(_wrap_gsl_linalg_PTLQ_solve_T) {
7291 {
7292 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
7293 gsl_vector *arg2 = (gsl_vector *) 0 ;
7294 gsl_permutation *arg3 = (gsl_permutation *) 0 ;
7295 gsl_vector *arg4 = (gsl_vector *) 0 ;
7296 gsl_vector *arg5 = (gsl_vector *) 0 ;
7297 void *argp1 = 0 ;
7298 int res1 = 0 ;
7299 void *argp2 = 0 ;
7300 int res2 = 0 ;
7301 void *argp3 = 0 ;
7302 int res3 = 0 ;
7303 void *argp4 = 0 ;
7304 int res4 = 0 ;
7305 void *argp5 = 0 ;
7306 int res5 = 0 ;
7307 int argvi = 0;
7308 int result;
7309 dXSARGS;
7310
7311 if ((items < 5) || (items > 5)) {
7312 SWIG_croak("Usage: gsl_linalg_PTLQ_solve_T(QR,tau,p,b,x);");
7313 }
7314 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7315 if (!SWIG_IsOK(res1)) {
7316 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_PTLQ_solve_T" "', argument " "1"" of type '" "gsl_matrix const *""'");
7317 }
7318 arg1 = (gsl_matrix *)(argp1);
7319 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
7320 if (!SWIG_IsOK(res2)) {
7321 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_PTLQ_solve_T" "', argument " "2"" of type '" "gsl_vector const *""'");
7322 }
7323 arg2 = (gsl_vector *)(argp2);
7324 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
7325 if (!SWIG_IsOK(res3)) {
7326 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_PTLQ_solve_T" "', argument " "3"" of type '" "gsl_permutation const *""'");
7327 }
7328 arg3 = (gsl_permutation *)(argp3);
7329 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
7330 if (!SWIG_IsOK(res4)) {
7331 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_PTLQ_solve_T" "', argument " "4"" of type '" "gsl_vector const *""'");
7332 }
7333 arg4 = (gsl_vector *)(argp4);
7334 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
7335 if (!SWIG_IsOK(res5)) {
7336 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_PTLQ_solve_T" "', argument " "5"" of type '" "gsl_vector *""'");
7337 }
7338 arg5 = (gsl_vector *)(argp5);
7339 result = (int)gsl_linalg_PTLQ_solve_T((gsl_matrix const *)arg1,(gsl_vector const *)arg2,(struct gsl_permutation_struct const *)arg3,(gsl_vector const *)arg4,arg5);
7340 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7341
7342
7343
7344
7345
7346 XSRETURN(argvi);
7347 fail:
7348
7349
7350
7351
7352
7353 SWIG_croak_null();
7354 }
7355 }
7356
7357
XS(_wrap_gsl_linalg_PTLQ_svx_T)7358 XS(_wrap_gsl_linalg_PTLQ_svx_T) {
7359 {
7360 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
7361 gsl_vector *arg2 = (gsl_vector *) 0 ;
7362 gsl_permutation *arg3 = (gsl_permutation *) 0 ;
7363 gsl_vector *arg4 = (gsl_vector *) 0 ;
7364 void *argp1 = 0 ;
7365 int res1 = 0 ;
7366 void *argp2 = 0 ;
7367 int res2 = 0 ;
7368 void *argp3 = 0 ;
7369 int res3 = 0 ;
7370 void *argp4 = 0 ;
7371 int res4 = 0 ;
7372 int argvi = 0;
7373 int result;
7374 dXSARGS;
7375
7376 if ((items < 4) || (items > 4)) {
7377 SWIG_croak("Usage: gsl_linalg_PTLQ_svx_T(LQ,tau,p,x);");
7378 }
7379 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7380 if (!SWIG_IsOK(res1)) {
7381 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_PTLQ_svx_T" "', argument " "1"" of type '" "gsl_matrix const *""'");
7382 }
7383 arg1 = (gsl_matrix *)(argp1);
7384 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
7385 if (!SWIG_IsOK(res2)) {
7386 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_PTLQ_svx_T" "', argument " "2"" of type '" "gsl_vector const *""'");
7387 }
7388 arg2 = (gsl_vector *)(argp2);
7389 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
7390 if (!SWIG_IsOK(res3)) {
7391 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_PTLQ_svx_T" "', argument " "3"" of type '" "gsl_permutation const *""'");
7392 }
7393 arg3 = (gsl_permutation *)(argp3);
7394 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
7395 if (!SWIG_IsOK(res4)) {
7396 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_PTLQ_svx_T" "', argument " "4"" of type '" "gsl_vector *""'");
7397 }
7398 arg4 = (gsl_vector *)(argp4);
7399 result = (int)gsl_linalg_PTLQ_svx_T((gsl_matrix const *)arg1,(gsl_vector const *)arg2,(struct gsl_permutation_struct const *)arg3,arg4);
7400 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7401
7402
7403
7404
7405 XSRETURN(argvi);
7406 fail:
7407
7408
7409
7410
7411 SWIG_croak_null();
7412 }
7413 }
7414
7415
XS(_wrap_gsl_linalg_PTLQ_LQsolve_T)7416 XS(_wrap_gsl_linalg_PTLQ_LQsolve_T) {
7417 {
7418 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
7419 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
7420 gsl_permutation *arg3 = (gsl_permutation *) 0 ;
7421 gsl_vector *arg4 = (gsl_vector *) 0 ;
7422 gsl_vector *arg5 = (gsl_vector *) 0 ;
7423 void *argp1 = 0 ;
7424 int res1 = 0 ;
7425 void *argp2 = 0 ;
7426 int res2 = 0 ;
7427 void *argp3 = 0 ;
7428 int res3 = 0 ;
7429 void *argp4 = 0 ;
7430 int res4 = 0 ;
7431 void *argp5 = 0 ;
7432 int res5 = 0 ;
7433 int argvi = 0;
7434 int result;
7435 dXSARGS;
7436
7437 if ((items < 5) || (items > 5)) {
7438 SWIG_croak("Usage: gsl_linalg_PTLQ_LQsolve_T(Q,L,p,b,x);");
7439 }
7440 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7441 if (!SWIG_IsOK(res1)) {
7442 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_PTLQ_LQsolve_T" "', argument " "1"" of type '" "gsl_matrix const *""'");
7443 }
7444 arg1 = (gsl_matrix *)(argp1);
7445 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7446 if (!SWIG_IsOK(res2)) {
7447 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_PTLQ_LQsolve_T" "', argument " "2"" of type '" "gsl_matrix const *""'");
7448 }
7449 arg2 = (gsl_matrix *)(argp2);
7450 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
7451 if (!SWIG_IsOK(res3)) {
7452 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_PTLQ_LQsolve_T" "', argument " "3"" of type '" "gsl_permutation const *""'");
7453 }
7454 arg3 = (gsl_permutation *)(argp3);
7455 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
7456 if (!SWIG_IsOK(res4)) {
7457 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_PTLQ_LQsolve_T" "', argument " "4"" of type '" "gsl_vector const *""'");
7458 }
7459 arg4 = (gsl_vector *)(argp4);
7460 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
7461 if (!SWIG_IsOK(res5)) {
7462 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_PTLQ_LQsolve_T" "', argument " "5"" of type '" "gsl_vector *""'");
7463 }
7464 arg5 = (gsl_vector *)(argp5);
7465 result = (int)gsl_linalg_PTLQ_LQsolve_T((gsl_matrix const *)arg1,(gsl_matrix const *)arg2,(struct gsl_permutation_struct const *)arg3,(gsl_vector const *)arg4,arg5);
7466 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7467
7468
7469
7470
7471
7472 XSRETURN(argvi);
7473 fail:
7474
7475
7476
7477
7478
7479 SWIG_croak_null();
7480 }
7481 }
7482
7483
XS(_wrap_gsl_linalg_PTLQ_Lsolve_T)7484 XS(_wrap_gsl_linalg_PTLQ_Lsolve_T) {
7485 {
7486 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
7487 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
7488 gsl_vector *arg3 = (gsl_vector *) 0 ;
7489 gsl_vector *arg4 = (gsl_vector *) 0 ;
7490 void *argp1 = 0 ;
7491 int res1 = 0 ;
7492 void *argp2 = 0 ;
7493 int res2 = 0 ;
7494 void *argp3 = 0 ;
7495 int res3 = 0 ;
7496 void *argp4 = 0 ;
7497 int res4 = 0 ;
7498 int argvi = 0;
7499 int result;
7500 dXSARGS;
7501
7502 if ((items < 4) || (items > 4)) {
7503 SWIG_croak("Usage: gsl_linalg_PTLQ_Lsolve_T(LQ,p,b,x);");
7504 }
7505 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7506 if (!SWIG_IsOK(res1)) {
7507 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_PTLQ_Lsolve_T" "', argument " "1"" of type '" "gsl_matrix const *""'");
7508 }
7509 arg1 = (gsl_matrix *)(argp1);
7510 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
7511 if (!SWIG_IsOK(res2)) {
7512 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_PTLQ_Lsolve_T" "', argument " "2"" of type '" "gsl_permutation const *""'");
7513 }
7514 arg2 = (gsl_permutation *)(argp2);
7515 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
7516 if (!SWIG_IsOK(res3)) {
7517 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_PTLQ_Lsolve_T" "', argument " "3"" of type '" "gsl_vector const *""'");
7518 }
7519 arg3 = (gsl_vector *)(argp3);
7520 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
7521 if (!SWIG_IsOK(res4)) {
7522 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_PTLQ_Lsolve_T" "', argument " "4"" of type '" "gsl_vector *""'");
7523 }
7524 arg4 = (gsl_vector *)(argp4);
7525 result = (int)gsl_linalg_PTLQ_Lsolve_T((gsl_matrix const *)arg1,(struct gsl_permutation_struct const *)arg2,(gsl_vector const *)arg3,arg4);
7526 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7527
7528
7529
7530
7531 XSRETURN(argvi);
7532 fail:
7533
7534
7535
7536
7537 SWIG_croak_null();
7538 }
7539 }
7540
7541
XS(_wrap_gsl_linalg_PTLQ_Lsvx_T)7542 XS(_wrap_gsl_linalg_PTLQ_Lsvx_T) {
7543 {
7544 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
7545 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
7546 gsl_vector *arg3 = (gsl_vector *) 0 ;
7547 void *argp1 = 0 ;
7548 int res1 = 0 ;
7549 void *argp2 = 0 ;
7550 int res2 = 0 ;
7551 void *argp3 = 0 ;
7552 int res3 = 0 ;
7553 int argvi = 0;
7554 int result;
7555 dXSARGS;
7556
7557 if ((items < 3) || (items > 3)) {
7558 SWIG_croak("Usage: gsl_linalg_PTLQ_Lsvx_T(LQ,p,x);");
7559 }
7560 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7561 if (!SWIG_IsOK(res1)) {
7562 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_PTLQ_Lsvx_T" "', argument " "1"" of type '" "gsl_matrix const *""'");
7563 }
7564 arg1 = (gsl_matrix *)(argp1);
7565 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
7566 if (!SWIG_IsOK(res2)) {
7567 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_PTLQ_Lsvx_T" "', argument " "2"" of type '" "gsl_permutation const *""'");
7568 }
7569 arg2 = (gsl_permutation *)(argp2);
7570 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
7571 if (!SWIG_IsOK(res3)) {
7572 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_PTLQ_Lsvx_T" "', argument " "3"" of type '" "gsl_vector *""'");
7573 }
7574 arg3 = (gsl_vector *)(argp3);
7575 result = (int)gsl_linalg_PTLQ_Lsvx_T((gsl_matrix const *)arg1,(struct gsl_permutation_struct const *)arg2,arg3);
7576 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7577
7578
7579
7580 XSRETURN(argvi);
7581 fail:
7582
7583
7584
7585 SWIG_croak_null();
7586 }
7587 }
7588
7589
XS(_wrap_gsl_linalg_PTLQ_update)7590 XS(_wrap_gsl_linalg_PTLQ_update) {
7591 {
7592 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
7593 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
7594 gsl_permutation *arg3 = (gsl_permutation *) 0 ;
7595 gsl_vector *arg4 = (gsl_vector *) 0 ;
7596 gsl_vector *arg5 = (gsl_vector *) 0 ;
7597 void *argp1 = 0 ;
7598 int res1 = 0 ;
7599 void *argp2 = 0 ;
7600 int res2 = 0 ;
7601 void *argp3 = 0 ;
7602 int res3 = 0 ;
7603 void *argp4 = 0 ;
7604 int res4 = 0 ;
7605 void *argp5 = 0 ;
7606 int res5 = 0 ;
7607 int argvi = 0;
7608 int result;
7609 dXSARGS;
7610
7611 if ((items < 5) || (items > 5)) {
7612 SWIG_croak("Usage: gsl_linalg_PTLQ_update(Q,L,p,v,w);");
7613 }
7614 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7615 if (!SWIG_IsOK(res1)) {
7616 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_PTLQ_update" "', argument " "1"" of type '" "gsl_matrix *""'");
7617 }
7618 arg1 = (gsl_matrix *)(argp1);
7619 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7620 if (!SWIG_IsOK(res2)) {
7621 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_PTLQ_update" "', argument " "2"" of type '" "gsl_matrix *""'");
7622 }
7623 arg2 = (gsl_matrix *)(argp2);
7624 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
7625 if (!SWIG_IsOK(res3)) {
7626 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_PTLQ_update" "', argument " "3"" of type '" "gsl_permutation const *""'");
7627 }
7628 arg3 = (gsl_permutation *)(argp3);
7629 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
7630 if (!SWIG_IsOK(res4)) {
7631 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_PTLQ_update" "', argument " "4"" of type '" "gsl_vector const *""'");
7632 }
7633 arg4 = (gsl_vector *)(argp4);
7634 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
7635 if (!SWIG_IsOK(res5)) {
7636 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_PTLQ_update" "', argument " "5"" of type '" "gsl_vector *""'");
7637 }
7638 arg5 = (gsl_vector *)(argp5);
7639 result = (int)gsl_linalg_PTLQ_update(arg1,arg2,(struct gsl_permutation_struct const *)arg3,(gsl_vector const *)arg4,arg5);
7640 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7641
7642
7643
7644
7645
7646 XSRETURN(argvi);
7647 fail:
7648
7649
7650
7651
7652
7653 SWIG_croak_null();
7654 }
7655 }
7656
7657
XS(_wrap_gsl_linalg_cholesky_decomp)7658 XS(_wrap_gsl_linalg_cholesky_decomp) {
7659 {
7660 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
7661 void *argp1 = 0 ;
7662 int res1 = 0 ;
7663 int argvi = 0;
7664 int result;
7665 dXSARGS;
7666
7667 if ((items < 1) || (items > 1)) {
7668 SWIG_croak("Usage: gsl_linalg_cholesky_decomp(A);");
7669 }
7670 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7671 if (!SWIG_IsOK(res1)) {
7672 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_cholesky_decomp" "', argument " "1"" of type '" "gsl_matrix *""'");
7673 }
7674 arg1 = (gsl_matrix *)(argp1);
7675 result = (int)gsl_linalg_cholesky_decomp(arg1);
7676 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7677
7678 XSRETURN(argvi);
7679 fail:
7680
7681 SWIG_croak_null();
7682 }
7683 }
7684
7685
XS(_wrap_gsl_linalg_cholesky_decomp1)7686 XS(_wrap_gsl_linalg_cholesky_decomp1) {
7687 {
7688 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
7689 void *argp1 = 0 ;
7690 int res1 = 0 ;
7691 int argvi = 0;
7692 int result;
7693 dXSARGS;
7694
7695 if ((items < 1) || (items > 1)) {
7696 SWIG_croak("Usage: gsl_linalg_cholesky_decomp1(A);");
7697 }
7698 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7699 if (!SWIG_IsOK(res1)) {
7700 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_cholesky_decomp1" "', argument " "1"" of type '" "gsl_matrix *""'");
7701 }
7702 arg1 = (gsl_matrix *)(argp1);
7703 result = (int)gsl_linalg_cholesky_decomp1(arg1);
7704 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7705
7706 XSRETURN(argvi);
7707 fail:
7708
7709 SWIG_croak_null();
7710 }
7711 }
7712
7713
XS(_wrap_gsl_linalg_cholesky_solve)7714 XS(_wrap_gsl_linalg_cholesky_solve) {
7715 {
7716 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
7717 gsl_vector *arg2 = (gsl_vector *) 0 ;
7718 gsl_vector *arg3 = (gsl_vector *) 0 ;
7719 void *argp1 = 0 ;
7720 int res1 = 0 ;
7721 void *argp2 = 0 ;
7722 int res2 = 0 ;
7723 void *argp3 = 0 ;
7724 int res3 = 0 ;
7725 int argvi = 0;
7726 int result;
7727 dXSARGS;
7728
7729 if ((items < 3) || (items > 3)) {
7730 SWIG_croak("Usage: gsl_linalg_cholesky_solve(cholesky,b,x);");
7731 }
7732 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7733 if (!SWIG_IsOK(res1)) {
7734 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_cholesky_solve" "', argument " "1"" of type '" "gsl_matrix const *""'");
7735 }
7736 arg1 = (gsl_matrix *)(argp1);
7737 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
7738 if (!SWIG_IsOK(res2)) {
7739 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_cholesky_solve" "', argument " "2"" of type '" "gsl_vector const *""'");
7740 }
7741 arg2 = (gsl_vector *)(argp2);
7742 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
7743 if (!SWIG_IsOK(res3)) {
7744 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_cholesky_solve" "', argument " "3"" of type '" "gsl_vector *""'");
7745 }
7746 arg3 = (gsl_vector *)(argp3);
7747 result = (int)gsl_linalg_cholesky_solve((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3);
7748 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7749
7750
7751
7752 XSRETURN(argvi);
7753 fail:
7754
7755
7756
7757 SWIG_croak_null();
7758 }
7759 }
7760
7761
XS(_wrap_gsl_linalg_cholesky_solve_mat)7762 XS(_wrap_gsl_linalg_cholesky_solve_mat) {
7763 {
7764 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
7765 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
7766 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
7767 void *argp1 = 0 ;
7768 int res1 = 0 ;
7769 void *argp2 = 0 ;
7770 int res2 = 0 ;
7771 void *argp3 = 0 ;
7772 int res3 = 0 ;
7773 int argvi = 0;
7774 int result;
7775 dXSARGS;
7776
7777 if ((items < 3) || (items > 3)) {
7778 SWIG_croak("Usage: gsl_linalg_cholesky_solve_mat(cholesky,B,X);");
7779 }
7780 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7781 if (!SWIG_IsOK(res1)) {
7782 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_cholesky_solve_mat" "', argument " "1"" of type '" "gsl_matrix const *""'");
7783 }
7784 arg1 = (gsl_matrix *)(argp1);
7785 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7786 if (!SWIG_IsOK(res2)) {
7787 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_cholesky_solve_mat" "', argument " "2"" of type '" "gsl_matrix const *""'");
7788 }
7789 arg2 = (gsl_matrix *)(argp2);
7790 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7791 if (!SWIG_IsOK(res3)) {
7792 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_cholesky_solve_mat" "', argument " "3"" of type '" "gsl_matrix *""'");
7793 }
7794 arg3 = (gsl_matrix *)(argp3);
7795 result = (int)gsl_linalg_cholesky_solve_mat((gsl_matrix const *)arg1,(gsl_matrix const *)arg2,arg3);
7796 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7797
7798
7799
7800 XSRETURN(argvi);
7801 fail:
7802
7803
7804
7805 SWIG_croak_null();
7806 }
7807 }
7808
7809
XS(_wrap_gsl_linalg_cholesky_svx)7810 XS(_wrap_gsl_linalg_cholesky_svx) {
7811 {
7812 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
7813 gsl_vector *arg2 = (gsl_vector *) 0 ;
7814 void *argp1 = 0 ;
7815 int res1 = 0 ;
7816 void *argp2 = 0 ;
7817 int res2 = 0 ;
7818 int argvi = 0;
7819 int result;
7820 dXSARGS;
7821
7822 if ((items < 2) || (items > 2)) {
7823 SWIG_croak("Usage: gsl_linalg_cholesky_svx(cholesky,x);");
7824 }
7825 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7826 if (!SWIG_IsOK(res1)) {
7827 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_cholesky_svx" "', argument " "1"" of type '" "gsl_matrix const *""'");
7828 }
7829 arg1 = (gsl_matrix *)(argp1);
7830 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
7831 if (!SWIG_IsOK(res2)) {
7832 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_cholesky_svx" "', argument " "2"" of type '" "gsl_vector *""'");
7833 }
7834 arg2 = (gsl_vector *)(argp2);
7835 result = (int)gsl_linalg_cholesky_svx((gsl_matrix const *)arg1,arg2);
7836 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7837
7838
7839 XSRETURN(argvi);
7840 fail:
7841
7842
7843 SWIG_croak_null();
7844 }
7845 }
7846
7847
XS(_wrap_gsl_linalg_cholesky_svx_mat)7848 XS(_wrap_gsl_linalg_cholesky_svx_mat) {
7849 {
7850 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
7851 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
7852 void *argp1 = 0 ;
7853 int res1 = 0 ;
7854 void *argp2 = 0 ;
7855 int res2 = 0 ;
7856 int argvi = 0;
7857 int result;
7858 dXSARGS;
7859
7860 if ((items < 2) || (items > 2)) {
7861 SWIG_croak("Usage: gsl_linalg_cholesky_svx_mat(cholesky,X);");
7862 }
7863 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7864 if (!SWIG_IsOK(res1)) {
7865 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_cholesky_svx_mat" "', argument " "1"" of type '" "gsl_matrix const *""'");
7866 }
7867 arg1 = (gsl_matrix *)(argp1);
7868 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7869 if (!SWIG_IsOK(res2)) {
7870 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_cholesky_svx_mat" "', argument " "2"" of type '" "gsl_matrix *""'");
7871 }
7872 arg2 = (gsl_matrix *)(argp2);
7873 result = (int)gsl_linalg_cholesky_svx_mat((gsl_matrix const *)arg1,arg2);
7874 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7875
7876
7877 XSRETURN(argvi);
7878 fail:
7879
7880
7881 SWIG_croak_null();
7882 }
7883 }
7884
7885
XS(_wrap_gsl_linalg_cholesky_invert)7886 XS(_wrap_gsl_linalg_cholesky_invert) {
7887 {
7888 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
7889 void *argp1 = 0 ;
7890 int res1 = 0 ;
7891 int argvi = 0;
7892 int result;
7893 dXSARGS;
7894
7895 if ((items < 1) || (items > 1)) {
7896 SWIG_croak("Usage: gsl_linalg_cholesky_invert(cholesky);");
7897 }
7898 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7899 if (!SWIG_IsOK(res1)) {
7900 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_cholesky_invert" "', argument " "1"" of type '" "gsl_matrix *""'");
7901 }
7902 arg1 = (gsl_matrix *)(argp1);
7903 result = (int)gsl_linalg_cholesky_invert(arg1);
7904 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7905
7906 XSRETURN(argvi);
7907 fail:
7908
7909 SWIG_croak_null();
7910 }
7911 }
7912
7913
XS(_wrap_gsl_linalg_cholesky_decomp_unit)7914 XS(_wrap_gsl_linalg_cholesky_decomp_unit) {
7915 {
7916 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
7917 gsl_vector *arg2 = (gsl_vector *) 0 ;
7918 void *argp1 = 0 ;
7919 int res1 = 0 ;
7920 void *argp2 = 0 ;
7921 int res2 = 0 ;
7922 int argvi = 0;
7923 int result;
7924 dXSARGS;
7925
7926 if ((items < 2) || (items > 2)) {
7927 SWIG_croak("Usage: gsl_linalg_cholesky_decomp_unit(A,D);");
7928 }
7929 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7930 if (!SWIG_IsOK(res1)) {
7931 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_cholesky_decomp_unit" "', argument " "1"" of type '" "gsl_matrix *""'");
7932 }
7933 arg1 = (gsl_matrix *)(argp1);
7934 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
7935 if (!SWIG_IsOK(res2)) {
7936 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_cholesky_decomp_unit" "', argument " "2"" of type '" "gsl_vector *""'");
7937 }
7938 arg2 = (gsl_vector *)(argp2);
7939 result = (int)gsl_linalg_cholesky_decomp_unit(arg1,arg2);
7940 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7941
7942
7943 XSRETURN(argvi);
7944 fail:
7945
7946
7947 SWIG_croak_null();
7948 }
7949 }
7950
7951
XS(_wrap_gsl_linalg_cholesky_scale)7952 XS(_wrap_gsl_linalg_cholesky_scale) {
7953 {
7954 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
7955 gsl_vector *arg2 = (gsl_vector *) 0 ;
7956 void *argp1 = 0 ;
7957 int res1 = 0 ;
7958 void *argp2 = 0 ;
7959 int res2 = 0 ;
7960 int argvi = 0;
7961 int result;
7962 dXSARGS;
7963
7964 if ((items < 2) || (items > 2)) {
7965 SWIG_croak("Usage: gsl_linalg_cholesky_scale(A,S);");
7966 }
7967 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7968 if (!SWIG_IsOK(res1)) {
7969 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_cholesky_scale" "', argument " "1"" of type '" "gsl_matrix const *""'");
7970 }
7971 arg1 = (gsl_matrix *)(argp1);
7972 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
7973 if (!SWIG_IsOK(res2)) {
7974 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_cholesky_scale" "', argument " "2"" of type '" "gsl_vector *""'");
7975 }
7976 arg2 = (gsl_vector *)(argp2);
7977 result = (int)gsl_linalg_cholesky_scale((gsl_matrix const *)arg1,arg2);
7978 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7979
7980
7981 XSRETURN(argvi);
7982 fail:
7983
7984
7985 SWIG_croak_null();
7986 }
7987 }
7988
7989
XS(_wrap_gsl_linalg_cholesky_scale_apply)7990 XS(_wrap_gsl_linalg_cholesky_scale_apply) {
7991 {
7992 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
7993 gsl_vector *arg2 = (gsl_vector *) 0 ;
7994 void *argp1 = 0 ;
7995 int res1 = 0 ;
7996 void *argp2 = 0 ;
7997 int res2 = 0 ;
7998 int argvi = 0;
7999 int result;
8000 dXSARGS;
8001
8002 if ((items < 2) || (items > 2)) {
8003 SWIG_croak("Usage: gsl_linalg_cholesky_scale_apply(A,S);");
8004 }
8005 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
8006 if (!SWIG_IsOK(res1)) {
8007 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_cholesky_scale_apply" "', argument " "1"" of type '" "gsl_matrix *""'");
8008 }
8009 arg1 = (gsl_matrix *)(argp1);
8010 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
8011 if (!SWIG_IsOK(res2)) {
8012 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_cholesky_scale_apply" "', argument " "2"" of type '" "gsl_vector const *""'");
8013 }
8014 arg2 = (gsl_vector *)(argp2);
8015 result = (int)gsl_linalg_cholesky_scale_apply(arg1,(gsl_vector const *)arg2);
8016 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8017
8018
8019 XSRETURN(argvi);
8020 fail:
8021
8022
8023 SWIG_croak_null();
8024 }
8025 }
8026
8027
XS(_wrap_gsl_linalg_cholesky_decomp2)8028 XS(_wrap_gsl_linalg_cholesky_decomp2) {
8029 {
8030 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
8031 gsl_vector *arg2 = (gsl_vector *) 0 ;
8032 void *argp1 = 0 ;
8033 int res1 = 0 ;
8034 void *argp2 = 0 ;
8035 int res2 = 0 ;
8036 int argvi = 0;
8037 int result;
8038 dXSARGS;
8039
8040 if ((items < 2) || (items > 2)) {
8041 SWIG_croak("Usage: gsl_linalg_cholesky_decomp2(A,S);");
8042 }
8043 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
8044 if (!SWIG_IsOK(res1)) {
8045 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_cholesky_decomp2" "', argument " "1"" of type '" "gsl_matrix *""'");
8046 }
8047 arg1 = (gsl_matrix *)(argp1);
8048 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
8049 if (!SWIG_IsOK(res2)) {
8050 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_cholesky_decomp2" "', argument " "2"" of type '" "gsl_vector *""'");
8051 }
8052 arg2 = (gsl_vector *)(argp2);
8053 result = (int)gsl_linalg_cholesky_decomp2(arg1,arg2);
8054 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8055
8056
8057 XSRETURN(argvi);
8058 fail:
8059
8060
8061 SWIG_croak_null();
8062 }
8063 }
8064
8065
XS(_wrap_gsl_linalg_cholesky_svx2)8066 XS(_wrap_gsl_linalg_cholesky_svx2) {
8067 {
8068 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
8069 gsl_vector *arg2 = (gsl_vector *) 0 ;
8070 gsl_vector *arg3 = (gsl_vector *) 0 ;
8071 void *argp1 = 0 ;
8072 int res1 = 0 ;
8073 void *argp2 = 0 ;
8074 int res2 = 0 ;
8075 void *argp3 = 0 ;
8076 int res3 = 0 ;
8077 int argvi = 0;
8078 int result;
8079 dXSARGS;
8080
8081 if ((items < 3) || (items > 3)) {
8082 SWIG_croak("Usage: gsl_linalg_cholesky_svx2(LLT,S,x);");
8083 }
8084 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
8085 if (!SWIG_IsOK(res1)) {
8086 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_cholesky_svx2" "', argument " "1"" of type '" "gsl_matrix const *""'");
8087 }
8088 arg1 = (gsl_matrix *)(argp1);
8089 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
8090 if (!SWIG_IsOK(res2)) {
8091 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_cholesky_svx2" "', argument " "2"" of type '" "gsl_vector const *""'");
8092 }
8093 arg2 = (gsl_vector *)(argp2);
8094 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
8095 if (!SWIG_IsOK(res3)) {
8096 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_cholesky_svx2" "', argument " "3"" of type '" "gsl_vector *""'");
8097 }
8098 arg3 = (gsl_vector *)(argp3);
8099 result = (int)gsl_linalg_cholesky_svx2((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3);
8100 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8101
8102
8103
8104 XSRETURN(argvi);
8105 fail:
8106
8107
8108
8109 SWIG_croak_null();
8110 }
8111 }
8112
8113
XS(_wrap_gsl_linalg_cholesky_solve2)8114 XS(_wrap_gsl_linalg_cholesky_solve2) {
8115 {
8116 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
8117 gsl_vector *arg2 = (gsl_vector *) 0 ;
8118 gsl_vector *arg3 = (gsl_vector *) 0 ;
8119 gsl_vector *arg4 = (gsl_vector *) 0 ;
8120 void *argp1 = 0 ;
8121 int res1 = 0 ;
8122 void *argp2 = 0 ;
8123 int res2 = 0 ;
8124 void *argp3 = 0 ;
8125 int res3 = 0 ;
8126 void *argp4 = 0 ;
8127 int res4 = 0 ;
8128 int argvi = 0;
8129 int result;
8130 dXSARGS;
8131
8132 if ((items < 4) || (items > 4)) {
8133 SWIG_croak("Usage: gsl_linalg_cholesky_solve2(LLT,S,b,x);");
8134 }
8135 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
8136 if (!SWIG_IsOK(res1)) {
8137 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_cholesky_solve2" "', argument " "1"" of type '" "gsl_matrix const *""'");
8138 }
8139 arg1 = (gsl_matrix *)(argp1);
8140 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
8141 if (!SWIG_IsOK(res2)) {
8142 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_cholesky_solve2" "', argument " "2"" of type '" "gsl_vector const *""'");
8143 }
8144 arg2 = (gsl_vector *)(argp2);
8145 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
8146 if (!SWIG_IsOK(res3)) {
8147 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_cholesky_solve2" "', argument " "3"" of type '" "gsl_vector const *""'");
8148 }
8149 arg3 = (gsl_vector *)(argp3);
8150 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
8151 if (!SWIG_IsOK(res4)) {
8152 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_cholesky_solve2" "', argument " "4"" of type '" "gsl_vector *""'");
8153 }
8154 arg4 = (gsl_vector *)(argp4);
8155 result = (int)gsl_linalg_cholesky_solve2((gsl_matrix const *)arg1,(gsl_vector const *)arg2,(gsl_vector const *)arg3,arg4);
8156 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8157
8158
8159
8160
8161 XSRETURN(argvi);
8162 fail:
8163
8164
8165
8166
8167 SWIG_croak_null();
8168 }
8169 }
8170
8171
XS(_wrap_gsl_linalg_cholesky_rcond)8172 XS(_wrap_gsl_linalg_cholesky_rcond) {
8173 {
8174 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
8175 double *arg2 = (double *) 0 ;
8176 gsl_vector *arg3 = (gsl_vector *) 0 ;
8177 void *argp1 = 0 ;
8178 int res1 = 0 ;
8179 void *argp2 = 0 ;
8180 int res2 = 0 ;
8181 void *argp3 = 0 ;
8182 int res3 = 0 ;
8183 int argvi = 0;
8184 int result;
8185 dXSARGS;
8186
8187 if ((items < 3) || (items > 3)) {
8188 SWIG_croak("Usage: gsl_linalg_cholesky_rcond(LLT,rcond,work);");
8189 }
8190 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
8191 if (!SWIG_IsOK(res1)) {
8192 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_cholesky_rcond" "', argument " "1"" of type '" "gsl_matrix const *""'");
8193 }
8194 arg1 = (gsl_matrix *)(argp1);
8195 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_double, 0 | 0 );
8196 if (!SWIG_IsOK(res2)) {
8197 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_cholesky_rcond" "', argument " "2"" of type '" "double *""'");
8198 }
8199 arg2 = (double *)(argp2);
8200 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
8201 if (!SWIG_IsOK(res3)) {
8202 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_cholesky_rcond" "', argument " "3"" of type '" "gsl_vector *""'");
8203 }
8204 arg3 = (gsl_vector *)(argp3);
8205 result = (int)gsl_linalg_cholesky_rcond((gsl_matrix const *)arg1,arg2,arg3);
8206 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8207
8208
8209
8210 XSRETURN(argvi);
8211 fail:
8212
8213
8214
8215 SWIG_croak_null();
8216 }
8217 }
8218
8219
XS(_wrap_gsl_linalg_complex_cholesky_decomp)8220 XS(_wrap_gsl_linalg_complex_cholesky_decomp) {
8221 {
8222 gsl_matrix_complex *arg1 = (gsl_matrix_complex *) 0 ;
8223 void *argp1 = 0 ;
8224 int res1 = 0 ;
8225 int argvi = 0;
8226 int result;
8227 dXSARGS;
8228
8229 if ((items < 1) || (items > 1)) {
8230 SWIG_croak("Usage: gsl_linalg_complex_cholesky_decomp(A);");
8231 }
8232 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
8233 if (!SWIG_IsOK(res1)) {
8234 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_complex_cholesky_decomp" "', argument " "1"" of type '" "gsl_matrix_complex *""'");
8235 }
8236 arg1 = (gsl_matrix_complex *)(argp1);
8237 result = (int)gsl_linalg_complex_cholesky_decomp(arg1);
8238 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8239
8240 XSRETURN(argvi);
8241 fail:
8242
8243 SWIG_croak_null();
8244 }
8245 }
8246
8247
XS(_wrap_gsl_linalg_complex_cholesky_solve)8248 XS(_wrap_gsl_linalg_complex_cholesky_solve) {
8249 {
8250 gsl_matrix_complex *arg1 = (gsl_matrix_complex *) 0 ;
8251 gsl_vector_complex *arg2 = (gsl_vector_complex *) 0 ;
8252 gsl_vector_complex *arg3 = (gsl_vector_complex *) 0 ;
8253 void *argp1 = 0 ;
8254 int res1 = 0 ;
8255 void *argp2 = 0 ;
8256 int res2 = 0 ;
8257 void *argp3 = 0 ;
8258 int res3 = 0 ;
8259 int argvi = 0;
8260 int result;
8261 dXSARGS;
8262
8263 if ((items < 3) || (items > 3)) {
8264 SWIG_croak("Usage: gsl_linalg_complex_cholesky_solve(cholesky,b,x);");
8265 }
8266 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
8267 if (!SWIG_IsOK(res1)) {
8268 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_complex_cholesky_solve" "', argument " "1"" of type '" "gsl_matrix_complex const *""'");
8269 }
8270 arg1 = (gsl_matrix_complex *)(argp1);
8271 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
8272 if (!SWIG_IsOK(res2)) {
8273 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_complex_cholesky_solve" "', argument " "2"" of type '" "gsl_vector_complex const *""'");
8274 }
8275 arg2 = (gsl_vector_complex *)(argp2);
8276 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
8277 if (!SWIG_IsOK(res3)) {
8278 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_complex_cholesky_solve" "', argument " "3"" of type '" "gsl_vector_complex *""'");
8279 }
8280 arg3 = (gsl_vector_complex *)(argp3);
8281 result = (int)gsl_linalg_complex_cholesky_solve((gsl_matrix_complex const *)arg1,(gsl_vector_complex const *)arg2,arg3);
8282 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8283
8284
8285
8286 XSRETURN(argvi);
8287 fail:
8288
8289
8290
8291 SWIG_croak_null();
8292 }
8293 }
8294
8295
XS(_wrap_gsl_linalg_complex_cholesky_svx)8296 XS(_wrap_gsl_linalg_complex_cholesky_svx) {
8297 {
8298 gsl_matrix_complex *arg1 = (gsl_matrix_complex *) 0 ;
8299 gsl_vector_complex *arg2 = (gsl_vector_complex *) 0 ;
8300 void *argp1 = 0 ;
8301 int res1 = 0 ;
8302 void *argp2 = 0 ;
8303 int res2 = 0 ;
8304 int argvi = 0;
8305 int result;
8306 dXSARGS;
8307
8308 if ((items < 2) || (items > 2)) {
8309 SWIG_croak("Usage: gsl_linalg_complex_cholesky_svx(cholesky,x);");
8310 }
8311 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
8312 if (!SWIG_IsOK(res1)) {
8313 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_complex_cholesky_svx" "', argument " "1"" of type '" "gsl_matrix_complex const *""'");
8314 }
8315 arg1 = (gsl_matrix_complex *)(argp1);
8316 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
8317 if (!SWIG_IsOK(res2)) {
8318 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_complex_cholesky_svx" "', argument " "2"" of type '" "gsl_vector_complex *""'");
8319 }
8320 arg2 = (gsl_vector_complex *)(argp2);
8321 result = (int)gsl_linalg_complex_cholesky_svx((gsl_matrix_complex const *)arg1,arg2);
8322 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8323
8324
8325 XSRETURN(argvi);
8326 fail:
8327
8328
8329 SWIG_croak_null();
8330 }
8331 }
8332
8333
XS(_wrap_gsl_linalg_complex_cholesky_invert)8334 XS(_wrap_gsl_linalg_complex_cholesky_invert) {
8335 {
8336 gsl_matrix_complex *arg1 = (gsl_matrix_complex *) 0 ;
8337 void *argp1 = 0 ;
8338 int res1 = 0 ;
8339 int argvi = 0;
8340 int result;
8341 dXSARGS;
8342
8343 if ((items < 1) || (items > 1)) {
8344 SWIG_croak("Usage: gsl_linalg_complex_cholesky_invert(cholesky);");
8345 }
8346 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
8347 if (!SWIG_IsOK(res1)) {
8348 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_complex_cholesky_invert" "', argument " "1"" of type '" "gsl_matrix_complex *""'");
8349 }
8350 arg1 = (gsl_matrix_complex *)(argp1);
8351 result = (int)gsl_linalg_complex_cholesky_invert(arg1);
8352 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8353
8354 XSRETURN(argvi);
8355 fail:
8356
8357 SWIG_croak_null();
8358 }
8359 }
8360
8361
XS(_wrap_gsl_linalg_pcholesky_decomp)8362 XS(_wrap_gsl_linalg_pcholesky_decomp) {
8363 {
8364 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
8365 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
8366 void *argp1 = 0 ;
8367 int res1 = 0 ;
8368 void *argp2 = 0 ;
8369 int res2 = 0 ;
8370 int argvi = 0;
8371 int result;
8372 dXSARGS;
8373
8374 if ((items < 2) || (items > 2)) {
8375 SWIG_croak("Usage: gsl_linalg_pcholesky_decomp(A,p);");
8376 }
8377 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
8378 if (!SWIG_IsOK(res1)) {
8379 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_pcholesky_decomp" "', argument " "1"" of type '" "gsl_matrix *""'");
8380 }
8381 arg1 = (gsl_matrix *)(argp1);
8382 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
8383 if (!SWIG_IsOK(res2)) {
8384 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_pcholesky_decomp" "', argument " "2"" of type '" "gsl_permutation *""'");
8385 }
8386 arg2 = (gsl_permutation *)(argp2);
8387 result = (int)gsl_linalg_pcholesky_decomp(arg1,arg2);
8388 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8389
8390
8391 XSRETURN(argvi);
8392 fail:
8393
8394
8395 SWIG_croak_null();
8396 }
8397 }
8398
8399
XS(_wrap_gsl_linalg_pcholesky_solve)8400 XS(_wrap_gsl_linalg_pcholesky_solve) {
8401 {
8402 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
8403 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
8404 gsl_vector *arg3 = (gsl_vector *) 0 ;
8405 gsl_vector *arg4 = (gsl_vector *) 0 ;
8406 void *argp1 = 0 ;
8407 int res1 = 0 ;
8408 void *argp2 = 0 ;
8409 int res2 = 0 ;
8410 void *argp3 = 0 ;
8411 int res3 = 0 ;
8412 void *argp4 = 0 ;
8413 int res4 = 0 ;
8414 int argvi = 0;
8415 int result;
8416 dXSARGS;
8417
8418 if ((items < 4) || (items > 4)) {
8419 SWIG_croak("Usage: gsl_linalg_pcholesky_solve(LDLT,p,b,x);");
8420 }
8421 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
8422 if (!SWIG_IsOK(res1)) {
8423 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_pcholesky_solve" "', argument " "1"" of type '" "gsl_matrix const *""'");
8424 }
8425 arg1 = (gsl_matrix *)(argp1);
8426 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
8427 if (!SWIG_IsOK(res2)) {
8428 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_pcholesky_solve" "', argument " "2"" of type '" "gsl_permutation const *""'");
8429 }
8430 arg2 = (gsl_permutation *)(argp2);
8431 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
8432 if (!SWIG_IsOK(res3)) {
8433 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_pcholesky_solve" "', argument " "3"" of type '" "gsl_vector const *""'");
8434 }
8435 arg3 = (gsl_vector *)(argp3);
8436 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
8437 if (!SWIG_IsOK(res4)) {
8438 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_pcholesky_solve" "', argument " "4"" of type '" "gsl_vector *""'");
8439 }
8440 arg4 = (gsl_vector *)(argp4);
8441 result = (int)gsl_linalg_pcholesky_solve((gsl_matrix const *)arg1,(struct gsl_permutation_struct const *)arg2,(gsl_vector const *)arg3,arg4);
8442 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8443
8444
8445
8446
8447 XSRETURN(argvi);
8448 fail:
8449
8450
8451
8452
8453 SWIG_croak_null();
8454 }
8455 }
8456
8457
XS(_wrap_gsl_linalg_pcholesky_svx)8458 XS(_wrap_gsl_linalg_pcholesky_svx) {
8459 {
8460 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
8461 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
8462 gsl_vector *arg3 = (gsl_vector *) 0 ;
8463 void *argp1 = 0 ;
8464 int res1 = 0 ;
8465 void *argp2 = 0 ;
8466 int res2 = 0 ;
8467 void *argp3 = 0 ;
8468 int res3 = 0 ;
8469 int argvi = 0;
8470 int result;
8471 dXSARGS;
8472
8473 if ((items < 3) || (items > 3)) {
8474 SWIG_croak("Usage: gsl_linalg_pcholesky_svx(LDLT,p,x);");
8475 }
8476 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
8477 if (!SWIG_IsOK(res1)) {
8478 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_pcholesky_svx" "', argument " "1"" of type '" "gsl_matrix const *""'");
8479 }
8480 arg1 = (gsl_matrix *)(argp1);
8481 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
8482 if (!SWIG_IsOK(res2)) {
8483 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_pcholesky_svx" "', argument " "2"" of type '" "gsl_permutation const *""'");
8484 }
8485 arg2 = (gsl_permutation *)(argp2);
8486 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
8487 if (!SWIG_IsOK(res3)) {
8488 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_pcholesky_svx" "', argument " "3"" of type '" "gsl_vector *""'");
8489 }
8490 arg3 = (gsl_vector *)(argp3);
8491 result = (int)gsl_linalg_pcholesky_svx((gsl_matrix const *)arg1,(struct gsl_permutation_struct const *)arg2,arg3);
8492 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8493
8494
8495
8496 XSRETURN(argvi);
8497 fail:
8498
8499
8500
8501 SWIG_croak_null();
8502 }
8503 }
8504
8505
XS(_wrap_gsl_linalg_pcholesky_decomp2)8506 XS(_wrap_gsl_linalg_pcholesky_decomp2) {
8507 {
8508 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
8509 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
8510 gsl_vector *arg3 = (gsl_vector *) 0 ;
8511 void *argp1 = 0 ;
8512 int res1 = 0 ;
8513 void *argp2 = 0 ;
8514 int res2 = 0 ;
8515 void *argp3 = 0 ;
8516 int res3 = 0 ;
8517 int argvi = 0;
8518 int result;
8519 dXSARGS;
8520
8521 if ((items < 3) || (items > 3)) {
8522 SWIG_croak("Usage: gsl_linalg_pcholesky_decomp2(A,p,S);");
8523 }
8524 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
8525 if (!SWIG_IsOK(res1)) {
8526 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_pcholesky_decomp2" "', argument " "1"" of type '" "gsl_matrix *""'");
8527 }
8528 arg1 = (gsl_matrix *)(argp1);
8529 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
8530 if (!SWIG_IsOK(res2)) {
8531 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_pcholesky_decomp2" "', argument " "2"" of type '" "gsl_permutation *""'");
8532 }
8533 arg2 = (gsl_permutation *)(argp2);
8534 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
8535 if (!SWIG_IsOK(res3)) {
8536 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_pcholesky_decomp2" "', argument " "3"" of type '" "gsl_vector *""'");
8537 }
8538 arg3 = (gsl_vector *)(argp3);
8539 result = (int)gsl_linalg_pcholesky_decomp2(arg1,arg2,arg3);
8540 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8541
8542
8543
8544 XSRETURN(argvi);
8545 fail:
8546
8547
8548
8549 SWIG_croak_null();
8550 }
8551 }
8552
8553
XS(_wrap_gsl_linalg_pcholesky_solve2)8554 XS(_wrap_gsl_linalg_pcholesky_solve2) {
8555 {
8556 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
8557 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
8558 gsl_vector *arg3 = (gsl_vector *) 0 ;
8559 gsl_vector *arg4 = (gsl_vector *) 0 ;
8560 gsl_vector *arg5 = (gsl_vector *) 0 ;
8561 void *argp1 = 0 ;
8562 int res1 = 0 ;
8563 void *argp2 = 0 ;
8564 int res2 = 0 ;
8565 void *argp3 = 0 ;
8566 int res3 = 0 ;
8567 void *argp4 = 0 ;
8568 int res4 = 0 ;
8569 void *argp5 = 0 ;
8570 int res5 = 0 ;
8571 int argvi = 0;
8572 int result;
8573 dXSARGS;
8574
8575 if ((items < 5) || (items > 5)) {
8576 SWIG_croak("Usage: gsl_linalg_pcholesky_solve2(LDLT,p,S,b,x);");
8577 }
8578 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
8579 if (!SWIG_IsOK(res1)) {
8580 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_pcholesky_solve2" "', argument " "1"" of type '" "gsl_matrix const *""'");
8581 }
8582 arg1 = (gsl_matrix *)(argp1);
8583 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
8584 if (!SWIG_IsOK(res2)) {
8585 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_pcholesky_solve2" "', argument " "2"" of type '" "gsl_permutation const *""'");
8586 }
8587 arg2 = (gsl_permutation *)(argp2);
8588 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
8589 if (!SWIG_IsOK(res3)) {
8590 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_pcholesky_solve2" "', argument " "3"" of type '" "gsl_vector const *""'");
8591 }
8592 arg3 = (gsl_vector *)(argp3);
8593 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
8594 if (!SWIG_IsOK(res4)) {
8595 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_pcholesky_solve2" "', argument " "4"" of type '" "gsl_vector const *""'");
8596 }
8597 arg4 = (gsl_vector *)(argp4);
8598 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
8599 if (!SWIG_IsOK(res5)) {
8600 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_pcholesky_solve2" "', argument " "5"" of type '" "gsl_vector *""'");
8601 }
8602 arg5 = (gsl_vector *)(argp5);
8603 result = (int)gsl_linalg_pcholesky_solve2((gsl_matrix const *)arg1,(struct gsl_permutation_struct const *)arg2,(gsl_vector const *)arg3,(gsl_vector const *)arg4,arg5);
8604 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8605
8606
8607
8608
8609
8610 XSRETURN(argvi);
8611 fail:
8612
8613
8614
8615
8616
8617 SWIG_croak_null();
8618 }
8619 }
8620
8621
XS(_wrap_gsl_linalg_pcholesky_svx2)8622 XS(_wrap_gsl_linalg_pcholesky_svx2) {
8623 {
8624 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
8625 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
8626 gsl_vector *arg3 = (gsl_vector *) 0 ;
8627 gsl_vector *arg4 = (gsl_vector *) 0 ;
8628 void *argp1 = 0 ;
8629 int res1 = 0 ;
8630 void *argp2 = 0 ;
8631 int res2 = 0 ;
8632 void *argp3 = 0 ;
8633 int res3 = 0 ;
8634 void *argp4 = 0 ;
8635 int res4 = 0 ;
8636 int argvi = 0;
8637 int result;
8638 dXSARGS;
8639
8640 if ((items < 4) || (items > 4)) {
8641 SWIG_croak("Usage: gsl_linalg_pcholesky_svx2(LDLT,p,S,x);");
8642 }
8643 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
8644 if (!SWIG_IsOK(res1)) {
8645 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_pcholesky_svx2" "', argument " "1"" of type '" "gsl_matrix const *""'");
8646 }
8647 arg1 = (gsl_matrix *)(argp1);
8648 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
8649 if (!SWIG_IsOK(res2)) {
8650 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_pcholesky_svx2" "', argument " "2"" of type '" "gsl_permutation const *""'");
8651 }
8652 arg2 = (gsl_permutation *)(argp2);
8653 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
8654 if (!SWIG_IsOK(res3)) {
8655 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_pcholesky_svx2" "', argument " "3"" of type '" "gsl_vector const *""'");
8656 }
8657 arg3 = (gsl_vector *)(argp3);
8658 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
8659 if (!SWIG_IsOK(res4)) {
8660 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_pcholesky_svx2" "', argument " "4"" of type '" "gsl_vector *""'");
8661 }
8662 arg4 = (gsl_vector *)(argp4);
8663 result = (int)gsl_linalg_pcholesky_svx2((gsl_matrix const *)arg1,(struct gsl_permutation_struct const *)arg2,(gsl_vector const *)arg3,arg4);
8664 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8665
8666
8667
8668
8669 XSRETURN(argvi);
8670 fail:
8671
8672
8673
8674
8675 SWIG_croak_null();
8676 }
8677 }
8678
8679
XS(_wrap_gsl_linalg_pcholesky_invert)8680 XS(_wrap_gsl_linalg_pcholesky_invert) {
8681 {
8682 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
8683 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
8684 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
8685 void *argp1 = 0 ;
8686 int res1 = 0 ;
8687 void *argp2 = 0 ;
8688 int res2 = 0 ;
8689 void *argp3 = 0 ;
8690 int res3 = 0 ;
8691 int argvi = 0;
8692 int result;
8693 dXSARGS;
8694
8695 if ((items < 3) || (items > 3)) {
8696 SWIG_croak("Usage: gsl_linalg_pcholesky_invert(LDLT,p,Ainv);");
8697 }
8698 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
8699 if (!SWIG_IsOK(res1)) {
8700 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_pcholesky_invert" "', argument " "1"" of type '" "gsl_matrix const *""'");
8701 }
8702 arg1 = (gsl_matrix *)(argp1);
8703 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
8704 if (!SWIG_IsOK(res2)) {
8705 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_pcholesky_invert" "', argument " "2"" of type '" "gsl_permutation const *""'");
8706 }
8707 arg2 = (gsl_permutation *)(argp2);
8708 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
8709 if (!SWIG_IsOK(res3)) {
8710 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_pcholesky_invert" "', argument " "3"" of type '" "gsl_matrix *""'");
8711 }
8712 arg3 = (gsl_matrix *)(argp3);
8713 result = (int)gsl_linalg_pcholesky_invert((gsl_matrix const *)arg1,(struct gsl_permutation_struct const *)arg2,arg3);
8714 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8715
8716
8717
8718 XSRETURN(argvi);
8719 fail:
8720
8721
8722
8723 SWIG_croak_null();
8724 }
8725 }
8726
8727
XS(_wrap_gsl_linalg_pcholesky_rcond)8728 XS(_wrap_gsl_linalg_pcholesky_rcond) {
8729 {
8730 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
8731 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
8732 double *arg3 = (double *) 0 ;
8733 gsl_vector *arg4 = (gsl_vector *) 0 ;
8734 void *argp1 = 0 ;
8735 int res1 = 0 ;
8736 void *argp2 = 0 ;
8737 int res2 = 0 ;
8738 void *argp3 = 0 ;
8739 int res3 = 0 ;
8740 void *argp4 = 0 ;
8741 int res4 = 0 ;
8742 int argvi = 0;
8743 int result;
8744 dXSARGS;
8745
8746 if ((items < 4) || (items > 4)) {
8747 SWIG_croak("Usage: gsl_linalg_pcholesky_rcond(LDLT,p,rcond,work);");
8748 }
8749 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
8750 if (!SWIG_IsOK(res1)) {
8751 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_pcholesky_rcond" "', argument " "1"" of type '" "gsl_matrix const *""'");
8752 }
8753 arg1 = (gsl_matrix *)(argp1);
8754 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
8755 if (!SWIG_IsOK(res2)) {
8756 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_pcholesky_rcond" "', argument " "2"" of type '" "gsl_permutation const *""'");
8757 }
8758 arg2 = (gsl_permutation *)(argp2);
8759 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_double, 0 | 0 );
8760 if (!SWIG_IsOK(res3)) {
8761 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_pcholesky_rcond" "', argument " "3"" of type '" "double *""'");
8762 }
8763 arg3 = (double *)(argp3);
8764 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
8765 if (!SWIG_IsOK(res4)) {
8766 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_pcholesky_rcond" "', argument " "4"" of type '" "gsl_vector *""'");
8767 }
8768 arg4 = (gsl_vector *)(argp4);
8769 result = (int)gsl_linalg_pcholesky_rcond((gsl_matrix const *)arg1,(struct gsl_permutation_struct const *)arg2,arg3,arg4);
8770 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8771
8772
8773
8774
8775 XSRETURN(argvi);
8776 fail:
8777
8778
8779
8780
8781 SWIG_croak_null();
8782 }
8783 }
8784
8785
XS(_wrap_gsl_linalg_mcholesky_decomp)8786 XS(_wrap_gsl_linalg_mcholesky_decomp) {
8787 {
8788 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
8789 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
8790 gsl_vector *arg3 = (gsl_vector *) 0 ;
8791 void *argp1 = 0 ;
8792 int res1 = 0 ;
8793 void *argp2 = 0 ;
8794 int res2 = 0 ;
8795 void *argp3 = 0 ;
8796 int res3 = 0 ;
8797 int argvi = 0;
8798 int result;
8799 dXSARGS;
8800
8801 if ((items < 3) || (items > 3)) {
8802 SWIG_croak("Usage: gsl_linalg_mcholesky_decomp(A,p,E);");
8803 }
8804 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
8805 if (!SWIG_IsOK(res1)) {
8806 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_mcholesky_decomp" "', argument " "1"" of type '" "gsl_matrix *""'");
8807 }
8808 arg1 = (gsl_matrix *)(argp1);
8809 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
8810 if (!SWIG_IsOK(res2)) {
8811 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_mcholesky_decomp" "', argument " "2"" of type '" "gsl_permutation *""'");
8812 }
8813 arg2 = (gsl_permutation *)(argp2);
8814 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
8815 if (!SWIG_IsOK(res3)) {
8816 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_mcholesky_decomp" "', argument " "3"" of type '" "gsl_vector *""'");
8817 }
8818 arg3 = (gsl_vector *)(argp3);
8819 result = (int)gsl_linalg_mcholesky_decomp(arg1,arg2,arg3);
8820 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8821
8822
8823
8824 XSRETURN(argvi);
8825 fail:
8826
8827
8828
8829 SWIG_croak_null();
8830 }
8831 }
8832
8833
XS(_wrap_gsl_linalg_mcholesky_solve)8834 XS(_wrap_gsl_linalg_mcholesky_solve) {
8835 {
8836 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
8837 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
8838 gsl_vector *arg3 = (gsl_vector *) 0 ;
8839 gsl_vector *arg4 = (gsl_vector *) 0 ;
8840 void *argp1 = 0 ;
8841 int res1 = 0 ;
8842 void *argp2 = 0 ;
8843 int res2 = 0 ;
8844 void *argp3 = 0 ;
8845 int res3 = 0 ;
8846 void *argp4 = 0 ;
8847 int res4 = 0 ;
8848 int argvi = 0;
8849 int result;
8850 dXSARGS;
8851
8852 if ((items < 4) || (items > 4)) {
8853 SWIG_croak("Usage: gsl_linalg_mcholesky_solve(LDLT,p,b,x);");
8854 }
8855 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
8856 if (!SWIG_IsOK(res1)) {
8857 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_mcholesky_solve" "', argument " "1"" of type '" "gsl_matrix const *""'");
8858 }
8859 arg1 = (gsl_matrix *)(argp1);
8860 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
8861 if (!SWIG_IsOK(res2)) {
8862 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_mcholesky_solve" "', argument " "2"" of type '" "gsl_permutation const *""'");
8863 }
8864 arg2 = (gsl_permutation *)(argp2);
8865 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
8866 if (!SWIG_IsOK(res3)) {
8867 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_mcholesky_solve" "', argument " "3"" of type '" "gsl_vector const *""'");
8868 }
8869 arg3 = (gsl_vector *)(argp3);
8870 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
8871 if (!SWIG_IsOK(res4)) {
8872 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_mcholesky_solve" "', argument " "4"" of type '" "gsl_vector *""'");
8873 }
8874 arg4 = (gsl_vector *)(argp4);
8875 result = (int)gsl_linalg_mcholesky_solve((gsl_matrix const *)arg1,(struct gsl_permutation_struct const *)arg2,(gsl_vector const *)arg3,arg4);
8876 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8877
8878
8879
8880
8881 XSRETURN(argvi);
8882 fail:
8883
8884
8885
8886
8887 SWIG_croak_null();
8888 }
8889 }
8890
8891
XS(_wrap_gsl_linalg_mcholesky_svx)8892 XS(_wrap_gsl_linalg_mcholesky_svx) {
8893 {
8894 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
8895 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
8896 gsl_vector *arg3 = (gsl_vector *) 0 ;
8897 void *argp1 = 0 ;
8898 int res1 = 0 ;
8899 void *argp2 = 0 ;
8900 int res2 = 0 ;
8901 void *argp3 = 0 ;
8902 int res3 = 0 ;
8903 int argvi = 0;
8904 int result;
8905 dXSARGS;
8906
8907 if ((items < 3) || (items > 3)) {
8908 SWIG_croak("Usage: gsl_linalg_mcholesky_svx(LDLT,p,x);");
8909 }
8910 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
8911 if (!SWIG_IsOK(res1)) {
8912 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_mcholesky_svx" "', argument " "1"" of type '" "gsl_matrix const *""'");
8913 }
8914 arg1 = (gsl_matrix *)(argp1);
8915 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
8916 if (!SWIG_IsOK(res2)) {
8917 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_mcholesky_svx" "', argument " "2"" of type '" "gsl_permutation const *""'");
8918 }
8919 arg2 = (gsl_permutation *)(argp2);
8920 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
8921 if (!SWIG_IsOK(res3)) {
8922 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_mcholesky_svx" "', argument " "3"" of type '" "gsl_vector *""'");
8923 }
8924 arg3 = (gsl_vector *)(argp3);
8925 result = (int)gsl_linalg_mcholesky_svx((gsl_matrix const *)arg1,(struct gsl_permutation_struct const *)arg2,arg3);
8926 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8927
8928
8929
8930 XSRETURN(argvi);
8931 fail:
8932
8933
8934
8935 SWIG_croak_null();
8936 }
8937 }
8938
8939
XS(_wrap_gsl_linalg_mcholesky_rcond)8940 XS(_wrap_gsl_linalg_mcholesky_rcond) {
8941 {
8942 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
8943 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
8944 double *arg3 = (double *) 0 ;
8945 gsl_vector *arg4 = (gsl_vector *) 0 ;
8946 void *argp1 = 0 ;
8947 int res1 = 0 ;
8948 void *argp2 = 0 ;
8949 int res2 = 0 ;
8950 void *argp3 = 0 ;
8951 int res3 = 0 ;
8952 void *argp4 = 0 ;
8953 int res4 = 0 ;
8954 int argvi = 0;
8955 int result;
8956 dXSARGS;
8957
8958 if ((items < 4) || (items > 4)) {
8959 SWIG_croak("Usage: gsl_linalg_mcholesky_rcond(LDLT,p,rcond,work);");
8960 }
8961 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
8962 if (!SWIG_IsOK(res1)) {
8963 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_mcholesky_rcond" "', argument " "1"" of type '" "gsl_matrix const *""'");
8964 }
8965 arg1 = (gsl_matrix *)(argp1);
8966 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
8967 if (!SWIG_IsOK(res2)) {
8968 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_mcholesky_rcond" "', argument " "2"" of type '" "gsl_permutation const *""'");
8969 }
8970 arg2 = (gsl_permutation *)(argp2);
8971 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_double, 0 | 0 );
8972 if (!SWIG_IsOK(res3)) {
8973 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_mcholesky_rcond" "', argument " "3"" of type '" "double *""'");
8974 }
8975 arg3 = (double *)(argp3);
8976 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
8977 if (!SWIG_IsOK(res4)) {
8978 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_mcholesky_rcond" "', argument " "4"" of type '" "gsl_vector *""'");
8979 }
8980 arg4 = (gsl_vector *)(argp4);
8981 result = (int)gsl_linalg_mcholesky_rcond((gsl_matrix const *)arg1,(struct gsl_permutation_struct const *)arg2,arg3,arg4);
8982 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8983
8984
8985
8986
8987 XSRETURN(argvi);
8988 fail:
8989
8990
8991
8992
8993 SWIG_croak_null();
8994 }
8995 }
8996
8997
XS(_wrap_gsl_linalg_mcholesky_invert)8998 XS(_wrap_gsl_linalg_mcholesky_invert) {
8999 {
9000 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
9001 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
9002 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
9003 void *argp1 = 0 ;
9004 int res1 = 0 ;
9005 void *argp2 = 0 ;
9006 int res2 = 0 ;
9007 void *argp3 = 0 ;
9008 int res3 = 0 ;
9009 int argvi = 0;
9010 int result;
9011 dXSARGS;
9012
9013 if ((items < 3) || (items > 3)) {
9014 SWIG_croak("Usage: gsl_linalg_mcholesky_invert(LDLT,p,Ainv);");
9015 }
9016 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
9017 if (!SWIG_IsOK(res1)) {
9018 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_mcholesky_invert" "', argument " "1"" of type '" "gsl_matrix const *""'");
9019 }
9020 arg1 = (gsl_matrix *)(argp1);
9021 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
9022 if (!SWIG_IsOK(res2)) {
9023 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_mcholesky_invert" "', argument " "2"" of type '" "gsl_permutation const *""'");
9024 }
9025 arg2 = (gsl_permutation *)(argp2);
9026 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
9027 if (!SWIG_IsOK(res3)) {
9028 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_mcholesky_invert" "', argument " "3"" of type '" "gsl_matrix *""'");
9029 }
9030 arg3 = (gsl_matrix *)(argp3);
9031 result = (int)gsl_linalg_mcholesky_invert((gsl_matrix const *)arg1,(struct gsl_permutation_struct const *)arg2,arg3);
9032 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
9033
9034
9035
9036 XSRETURN(argvi);
9037 fail:
9038
9039
9040
9041 SWIG_croak_null();
9042 }
9043 }
9044
9045
XS(_wrap_gsl_linalg_symmtd_decomp)9046 XS(_wrap_gsl_linalg_symmtd_decomp) {
9047 {
9048 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
9049 gsl_vector *arg2 = (gsl_vector *) 0 ;
9050 void *argp1 = 0 ;
9051 int res1 = 0 ;
9052 void *argp2 = 0 ;
9053 int res2 = 0 ;
9054 int argvi = 0;
9055 int result;
9056 dXSARGS;
9057
9058 if ((items < 2) || (items > 2)) {
9059 SWIG_croak("Usage: gsl_linalg_symmtd_decomp(A,tau);");
9060 }
9061 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
9062 if (!SWIG_IsOK(res1)) {
9063 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_symmtd_decomp" "', argument " "1"" of type '" "gsl_matrix *""'");
9064 }
9065 arg1 = (gsl_matrix *)(argp1);
9066 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
9067 if (!SWIG_IsOK(res2)) {
9068 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_symmtd_decomp" "', argument " "2"" of type '" "gsl_vector *""'");
9069 }
9070 arg2 = (gsl_vector *)(argp2);
9071 result = (int)gsl_linalg_symmtd_decomp(arg1,arg2);
9072 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
9073
9074
9075 XSRETURN(argvi);
9076 fail:
9077
9078
9079 SWIG_croak_null();
9080 }
9081 }
9082
9083
XS(_wrap_gsl_linalg_symmtd_unpack)9084 XS(_wrap_gsl_linalg_symmtd_unpack) {
9085 {
9086 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
9087 gsl_vector *arg2 = (gsl_vector *) 0 ;
9088 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
9089 gsl_vector *arg4 = (gsl_vector *) 0 ;
9090 gsl_vector *arg5 = (gsl_vector *) 0 ;
9091 void *argp1 = 0 ;
9092 int res1 = 0 ;
9093 void *argp2 = 0 ;
9094 int res2 = 0 ;
9095 void *argp3 = 0 ;
9096 int res3 = 0 ;
9097 void *argp4 = 0 ;
9098 int res4 = 0 ;
9099 void *argp5 = 0 ;
9100 int res5 = 0 ;
9101 int argvi = 0;
9102 int result;
9103 dXSARGS;
9104
9105 if ((items < 5) || (items > 5)) {
9106 SWIG_croak("Usage: gsl_linalg_symmtd_unpack(A,tau,Q,diag,subdiag);");
9107 }
9108 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
9109 if (!SWIG_IsOK(res1)) {
9110 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_symmtd_unpack" "', argument " "1"" of type '" "gsl_matrix const *""'");
9111 }
9112 arg1 = (gsl_matrix *)(argp1);
9113 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
9114 if (!SWIG_IsOK(res2)) {
9115 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_symmtd_unpack" "', argument " "2"" of type '" "gsl_vector const *""'");
9116 }
9117 arg2 = (gsl_vector *)(argp2);
9118 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
9119 if (!SWIG_IsOK(res3)) {
9120 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_symmtd_unpack" "', argument " "3"" of type '" "gsl_matrix *""'");
9121 }
9122 arg3 = (gsl_matrix *)(argp3);
9123 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
9124 if (!SWIG_IsOK(res4)) {
9125 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_symmtd_unpack" "', argument " "4"" of type '" "gsl_vector *""'");
9126 }
9127 arg4 = (gsl_vector *)(argp4);
9128 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
9129 if (!SWIG_IsOK(res5)) {
9130 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_symmtd_unpack" "', argument " "5"" of type '" "gsl_vector *""'");
9131 }
9132 arg5 = (gsl_vector *)(argp5);
9133 result = (int)gsl_linalg_symmtd_unpack((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3,arg4,arg5);
9134 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
9135
9136
9137
9138
9139
9140 XSRETURN(argvi);
9141 fail:
9142
9143
9144
9145
9146
9147 SWIG_croak_null();
9148 }
9149 }
9150
9151
XS(_wrap_gsl_linalg_symmtd_unpack_T)9152 XS(_wrap_gsl_linalg_symmtd_unpack_T) {
9153 {
9154 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
9155 gsl_vector *arg2 = (gsl_vector *) 0 ;
9156 gsl_vector *arg3 = (gsl_vector *) 0 ;
9157 void *argp1 = 0 ;
9158 int res1 = 0 ;
9159 void *argp2 = 0 ;
9160 int res2 = 0 ;
9161 void *argp3 = 0 ;
9162 int res3 = 0 ;
9163 int argvi = 0;
9164 int result;
9165 dXSARGS;
9166
9167 if ((items < 3) || (items > 3)) {
9168 SWIG_croak("Usage: gsl_linalg_symmtd_unpack_T(A,diag,subdiag);");
9169 }
9170 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
9171 if (!SWIG_IsOK(res1)) {
9172 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_symmtd_unpack_T" "', argument " "1"" of type '" "gsl_matrix const *""'");
9173 }
9174 arg1 = (gsl_matrix *)(argp1);
9175 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
9176 if (!SWIG_IsOK(res2)) {
9177 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_symmtd_unpack_T" "', argument " "2"" of type '" "gsl_vector *""'");
9178 }
9179 arg2 = (gsl_vector *)(argp2);
9180 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
9181 if (!SWIG_IsOK(res3)) {
9182 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_symmtd_unpack_T" "', argument " "3"" of type '" "gsl_vector *""'");
9183 }
9184 arg3 = (gsl_vector *)(argp3);
9185 result = (int)gsl_linalg_symmtd_unpack_T((gsl_matrix const *)arg1,arg2,arg3);
9186 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
9187
9188
9189
9190 XSRETURN(argvi);
9191 fail:
9192
9193
9194
9195 SWIG_croak_null();
9196 }
9197 }
9198
9199
XS(_wrap_gsl_linalg_hermtd_decomp)9200 XS(_wrap_gsl_linalg_hermtd_decomp) {
9201 {
9202 gsl_matrix_complex *arg1 = (gsl_matrix_complex *) 0 ;
9203 gsl_vector_complex *arg2 = (gsl_vector_complex *) 0 ;
9204 void *argp1 = 0 ;
9205 int res1 = 0 ;
9206 void *argp2 = 0 ;
9207 int res2 = 0 ;
9208 int argvi = 0;
9209 int result;
9210 dXSARGS;
9211
9212 if ((items < 2) || (items > 2)) {
9213 SWIG_croak("Usage: gsl_linalg_hermtd_decomp(A,tau);");
9214 }
9215 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
9216 if (!SWIG_IsOK(res1)) {
9217 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_hermtd_decomp" "', argument " "1"" of type '" "gsl_matrix_complex *""'");
9218 }
9219 arg1 = (gsl_matrix_complex *)(argp1);
9220 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
9221 if (!SWIG_IsOK(res2)) {
9222 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_hermtd_decomp" "', argument " "2"" of type '" "gsl_vector_complex *""'");
9223 }
9224 arg2 = (gsl_vector_complex *)(argp2);
9225 result = (int)gsl_linalg_hermtd_decomp(arg1,arg2);
9226 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
9227
9228
9229 XSRETURN(argvi);
9230 fail:
9231
9232
9233 SWIG_croak_null();
9234 }
9235 }
9236
9237
XS(_wrap_gsl_linalg_hermtd_unpack)9238 XS(_wrap_gsl_linalg_hermtd_unpack) {
9239 {
9240 gsl_matrix_complex *arg1 = (gsl_matrix_complex *) 0 ;
9241 gsl_vector_complex *arg2 = (gsl_vector_complex *) 0 ;
9242 gsl_matrix_complex *arg3 = (gsl_matrix_complex *) 0 ;
9243 gsl_vector *arg4 = (gsl_vector *) 0 ;
9244 gsl_vector *arg5 = (gsl_vector *) 0 ;
9245 void *argp1 = 0 ;
9246 int res1 = 0 ;
9247 void *argp2 = 0 ;
9248 int res2 = 0 ;
9249 void *argp3 = 0 ;
9250 int res3 = 0 ;
9251 void *argp4 = 0 ;
9252 int res4 = 0 ;
9253 void *argp5 = 0 ;
9254 int res5 = 0 ;
9255 int argvi = 0;
9256 int result;
9257 dXSARGS;
9258
9259 if ((items < 5) || (items > 5)) {
9260 SWIG_croak("Usage: gsl_linalg_hermtd_unpack(A,tau,U,diag,sudiag);");
9261 }
9262 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
9263 if (!SWIG_IsOK(res1)) {
9264 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_hermtd_unpack" "', argument " "1"" of type '" "gsl_matrix_complex const *""'");
9265 }
9266 arg1 = (gsl_matrix_complex *)(argp1);
9267 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
9268 if (!SWIG_IsOK(res2)) {
9269 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_hermtd_unpack" "', argument " "2"" of type '" "gsl_vector_complex const *""'");
9270 }
9271 arg2 = (gsl_vector_complex *)(argp2);
9272 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
9273 if (!SWIG_IsOK(res3)) {
9274 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_hermtd_unpack" "', argument " "3"" of type '" "gsl_matrix_complex *""'");
9275 }
9276 arg3 = (gsl_matrix_complex *)(argp3);
9277 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
9278 if (!SWIG_IsOK(res4)) {
9279 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_hermtd_unpack" "', argument " "4"" of type '" "gsl_vector *""'");
9280 }
9281 arg4 = (gsl_vector *)(argp4);
9282 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
9283 if (!SWIG_IsOK(res5)) {
9284 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_hermtd_unpack" "', argument " "5"" of type '" "gsl_vector *""'");
9285 }
9286 arg5 = (gsl_vector *)(argp5);
9287 result = (int)gsl_linalg_hermtd_unpack((gsl_matrix_complex const *)arg1,(gsl_vector_complex const *)arg2,arg3,arg4,arg5);
9288 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
9289
9290
9291
9292
9293
9294 XSRETURN(argvi);
9295 fail:
9296
9297
9298
9299
9300
9301 SWIG_croak_null();
9302 }
9303 }
9304
9305
XS(_wrap_gsl_linalg_hermtd_unpack_T)9306 XS(_wrap_gsl_linalg_hermtd_unpack_T) {
9307 {
9308 gsl_matrix_complex *arg1 = (gsl_matrix_complex *) 0 ;
9309 gsl_vector *arg2 = (gsl_vector *) 0 ;
9310 gsl_vector *arg3 = (gsl_vector *) 0 ;
9311 void *argp1 = 0 ;
9312 int res1 = 0 ;
9313 void *argp2 = 0 ;
9314 int res2 = 0 ;
9315 void *argp3 = 0 ;
9316 int res3 = 0 ;
9317 int argvi = 0;
9318 int result;
9319 dXSARGS;
9320
9321 if ((items < 3) || (items > 3)) {
9322 SWIG_croak("Usage: gsl_linalg_hermtd_unpack_T(A,diag,subdiag);");
9323 }
9324 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
9325 if (!SWIG_IsOK(res1)) {
9326 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_hermtd_unpack_T" "', argument " "1"" of type '" "gsl_matrix_complex const *""'");
9327 }
9328 arg1 = (gsl_matrix_complex *)(argp1);
9329 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
9330 if (!SWIG_IsOK(res2)) {
9331 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_hermtd_unpack_T" "', argument " "2"" of type '" "gsl_vector *""'");
9332 }
9333 arg2 = (gsl_vector *)(argp2);
9334 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
9335 if (!SWIG_IsOK(res3)) {
9336 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_hermtd_unpack_T" "', argument " "3"" of type '" "gsl_vector *""'");
9337 }
9338 arg3 = (gsl_vector *)(argp3);
9339 result = (int)gsl_linalg_hermtd_unpack_T((gsl_matrix_complex const *)arg1,arg2,arg3);
9340 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
9341
9342
9343
9344 XSRETURN(argvi);
9345 fail:
9346
9347
9348
9349 SWIG_croak_null();
9350 }
9351 }
9352
9353
XS(_wrap_gsl_linalg_HH_solve)9354 XS(_wrap_gsl_linalg_HH_solve) {
9355 {
9356 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
9357 gsl_vector *arg2 = (gsl_vector *) 0 ;
9358 gsl_vector *arg3 = (gsl_vector *) 0 ;
9359 void *argp1 = 0 ;
9360 int res1 = 0 ;
9361 void *argp2 = 0 ;
9362 int res2 = 0 ;
9363 void *argp3 = 0 ;
9364 int res3 = 0 ;
9365 int argvi = 0;
9366 int result;
9367 dXSARGS;
9368
9369 if ((items < 3) || (items > 3)) {
9370 SWIG_croak("Usage: gsl_linalg_HH_solve(A,b,x);");
9371 }
9372 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
9373 if (!SWIG_IsOK(res1)) {
9374 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_HH_solve" "', argument " "1"" of type '" "gsl_matrix *""'");
9375 }
9376 arg1 = (gsl_matrix *)(argp1);
9377 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
9378 if (!SWIG_IsOK(res2)) {
9379 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_HH_solve" "', argument " "2"" of type '" "gsl_vector const *""'");
9380 }
9381 arg2 = (gsl_vector *)(argp2);
9382 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
9383 if (!SWIG_IsOK(res3)) {
9384 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_HH_solve" "', argument " "3"" of type '" "gsl_vector *""'");
9385 }
9386 arg3 = (gsl_vector *)(argp3);
9387 result = (int)gsl_linalg_HH_solve(arg1,(gsl_vector const *)arg2,arg3);
9388 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
9389
9390
9391
9392 XSRETURN(argvi);
9393 fail:
9394
9395
9396
9397 SWIG_croak_null();
9398 }
9399 }
9400
9401
XS(_wrap_gsl_linalg_HH_svx)9402 XS(_wrap_gsl_linalg_HH_svx) {
9403 {
9404 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
9405 gsl_vector *arg2 = (gsl_vector *) 0 ;
9406 void *argp1 = 0 ;
9407 int res1 = 0 ;
9408 void *argp2 = 0 ;
9409 int res2 = 0 ;
9410 int argvi = 0;
9411 int result;
9412 dXSARGS;
9413
9414 if ((items < 2) || (items > 2)) {
9415 SWIG_croak("Usage: gsl_linalg_HH_svx(A,x);");
9416 }
9417 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
9418 if (!SWIG_IsOK(res1)) {
9419 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_HH_svx" "', argument " "1"" of type '" "gsl_matrix *""'");
9420 }
9421 arg1 = (gsl_matrix *)(argp1);
9422 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
9423 if (!SWIG_IsOK(res2)) {
9424 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_HH_svx" "', argument " "2"" of type '" "gsl_vector *""'");
9425 }
9426 arg2 = (gsl_vector *)(argp2);
9427 result = (int)gsl_linalg_HH_svx(arg1,arg2);
9428 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
9429
9430
9431 XSRETURN(argvi);
9432 fail:
9433
9434
9435 SWIG_croak_null();
9436 }
9437 }
9438
9439
XS(_wrap_gsl_linalg_solve_symm_tridiag)9440 XS(_wrap_gsl_linalg_solve_symm_tridiag) {
9441 {
9442 gsl_vector *arg1 = (gsl_vector *) 0 ;
9443 gsl_vector *arg2 = (gsl_vector *) 0 ;
9444 gsl_vector *arg3 = (gsl_vector *) 0 ;
9445 gsl_vector *arg4 = (gsl_vector *) 0 ;
9446 void *argp1 = 0 ;
9447 int res1 = 0 ;
9448 void *argp2 = 0 ;
9449 int res2 = 0 ;
9450 void *argp3 = 0 ;
9451 int res3 = 0 ;
9452 void *argp4 = 0 ;
9453 int res4 = 0 ;
9454 int argvi = 0;
9455 int result;
9456 dXSARGS;
9457
9458 if ((items < 4) || (items > 4)) {
9459 SWIG_croak("Usage: gsl_linalg_solve_symm_tridiag(diag,offdiag,b,x);");
9460 }
9461 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
9462 if (!SWIG_IsOK(res1)) {
9463 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_solve_symm_tridiag" "', argument " "1"" of type '" "gsl_vector const *""'");
9464 }
9465 arg1 = (gsl_vector *)(argp1);
9466 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
9467 if (!SWIG_IsOK(res2)) {
9468 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_solve_symm_tridiag" "', argument " "2"" of type '" "gsl_vector const *""'");
9469 }
9470 arg2 = (gsl_vector *)(argp2);
9471 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
9472 if (!SWIG_IsOK(res3)) {
9473 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_solve_symm_tridiag" "', argument " "3"" of type '" "gsl_vector const *""'");
9474 }
9475 arg3 = (gsl_vector *)(argp3);
9476 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
9477 if (!SWIG_IsOK(res4)) {
9478 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_solve_symm_tridiag" "', argument " "4"" of type '" "gsl_vector *""'");
9479 }
9480 arg4 = (gsl_vector *)(argp4);
9481 result = (int)gsl_linalg_solve_symm_tridiag((gsl_vector const *)arg1,(gsl_vector const *)arg2,(gsl_vector const *)arg3,arg4);
9482 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
9483
9484
9485
9486
9487 XSRETURN(argvi);
9488 fail:
9489
9490
9491
9492
9493 SWIG_croak_null();
9494 }
9495 }
9496
9497
XS(_wrap_gsl_linalg_solve_tridiag)9498 XS(_wrap_gsl_linalg_solve_tridiag) {
9499 {
9500 gsl_vector *arg1 = (gsl_vector *) 0 ;
9501 gsl_vector *arg2 = (gsl_vector *) 0 ;
9502 gsl_vector *arg3 = (gsl_vector *) 0 ;
9503 gsl_vector *arg4 = (gsl_vector *) 0 ;
9504 gsl_vector *arg5 = (gsl_vector *) 0 ;
9505 void *argp1 = 0 ;
9506 int res1 = 0 ;
9507 void *argp2 = 0 ;
9508 int res2 = 0 ;
9509 void *argp3 = 0 ;
9510 int res3 = 0 ;
9511 void *argp4 = 0 ;
9512 int res4 = 0 ;
9513 void *argp5 = 0 ;
9514 int res5 = 0 ;
9515 int argvi = 0;
9516 int result;
9517 dXSARGS;
9518
9519 if ((items < 5) || (items > 5)) {
9520 SWIG_croak("Usage: gsl_linalg_solve_tridiag(diag,abovediag,belowdiag,b,x);");
9521 }
9522 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
9523 if (!SWIG_IsOK(res1)) {
9524 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_solve_tridiag" "', argument " "1"" of type '" "gsl_vector const *""'");
9525 }
9526 arg1 = (gsl_vector *)(argp1);
9527 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
9528 if (!SWIG_IsOK(res2)) {
9529 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_solve_tridiag" "', argument " "2"" of type '" "gsl_vector const *""'");
9530 }
9531 arg2 = (gsl_vector *)(argp2);
9532 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
9533 if (!SWIG_IsOK(res3)) {
9534 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_solve_tridiag" "', argument " "3"" of type '" "gsl_vector const *""'");
9535 }
9536 arg3 = (gsl_vector *)(argp3);
9537 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
9538 if (!SWIG_IsOK(res4)) {
9539 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_solve_tridiag" "', argument " "4"" of type '" "gsl_vector const *""'");
9540 }
9541 arg4 = (gsl_vector *)(argp4);
9542 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
9543 if (!SWIG_IsOK(res5)) {
9544 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_solve_tridiag" "', argument " "5"" of type '" "gsl_vector *""'");
9545 }
9546 arg5 = (gsl_vector *)(argp5);
9547 result = (int)gsl_linalg_solve_tridiag((gsl_vector const *)arg1,(gsl_vector const *)arg2,(gsl_vector const *)arg3,(gsl_vector const *)arg4,arg5);
9548 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
9549
9550
9551
9552
9553
9554 XSRETURN(argvi);
9555 fail:
9556
9557
9558
9559
9560
9561 SWIG_croak_null();
9562 }
9563 }
9564
9565
XS(_wrap_gsl_linalg_solve_symm_cyc_tridiag)9566 XS(_wrap_gsl_linalg_solve_symm_cyc_tridiag) {
9567 {
9568 gsl_vector *arg1 = (gsl_vector *) 0 ;
9569 gsl_vector *arg2 = (gsl_vector *) 0 ;
9570 gsl_vector *arg3 = (gsl_vector *) 0 ;
9571 gsl_vector *arg4 = (gsl_vector *) 0 ;
9572 void *argp1 = 0 ;
9573 int res1 = 0 ;
9574 void *argp2 = 0 ;
9575 int res2 = 0 ;
9576 void *argp3 = 0 ;
9577 int res3 = 0 ;
9578 void *argp4 = 0 ;
9579 int res4 = 0 ;
9580 int argvi = 0;
9581 int result;
9582 dXSARGS;
9583
9584 if ((items < 4) || (items > 4)) {
9585 SWIG_croak("Usage: gsl_linalg_solve_symm_cyc_tridiag(diag,offdiag,b,x);");
9586 }
9587 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
9588 if (!SWIG_IsOK(res1)) {
9589 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_solve_symm_cyc_tridiag" "', argument " "1"" of type '" "gsl_vector const *""'");
9590 }
9591 arg1 = (gsl_vector *)(argp1);
9592 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
9593 if (!SWIG_IsOK(res2)) {
9594 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_solve_symm_cyc_tridiag" "', argument " "2"" of type '" "gsl_vector const *""'");
9595 }
9596 arg2 = (gsl_vector *)(argp2);
9597 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
9598 if (!SWIG_IsOK(res3)) {
9599 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_solve_symm_cyc_tridiag" "', argument " "3"" of type '" "gsl_vector const *""'");
9600 }
9601 arg3 = (gsl_vector *)(argp3);
9602 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
9603 if (!SWIG_IsOK(res4)) {
9604 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_solve_symm_cyc_tridiag" "', argument " "4"" of type '" "gsl_vector *""'");
9605 }
9606 arg4 = (gsl_vector *)(argp4);
9607 result = (int)gsl_linalg_solve_symm_cyc_tridiag((gsl_vector const *)arg1,(gsl_vector const *)arg2,(gsl_vector const *)arg3,arg4);
9608 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
9609
9610
9611
9612
9613 XSRETURN(argvi);
9614 fail:
9615
9616
9617
9618
9619 SWIG_croak_null();
9620 }
9621 }
9622
9623
XS(_wrap_gsl_linalg_solve_cyc_tridiag)9624 XS(_wrap_gsl_linalg_solve_cyc_tridiag) {
9625 {
9626 gsl_vector *arg1 = (gsl_vector *) 0 ;
9627 gsl_vector *arg2 = (gsl_vector *) 0 ;
9628 gsl_vector *arg3 = (gsl_vector *) 0 ;
9629 gsl_vector *arg4 = (gsl_vector *) 0 ;
9630 gsl_vector *arg5 = (gsl_vector *) 0 ;
9631 void *argp1 = 0 ;
9632 int res1 = 0 ;
9633 void *argp2 = 0 ;
9634 int res2 = 0 ;
9635 void *argp3 = 0 ;
9636 int res3 = 0 ;
9637 void *argp4 = 0 ;
9638 int res4 = 0 ;
9639 void *argp5 = 0 ;
9640 int res5 = 0 ;
9641 int argvi = 0;
9642 int result;
9643 dXSARGS;
9644
9645 if ((items < 5) || (items > 5)) {
9646 SWIG_croak("Usage: gsl_linalg_solve_cyc_tridiag(diag,abovediag,belowdiag,b,x);");
9647 }
9648 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
9649 if (!SWIG_IsOK(res1)) {
9650 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_solve_cyc_tridiag" "', argument " "1"" of type '" "gsl_vector const *""'");
9651 }
9652 arg1 = (gsl_vector *)(argp1);
9653 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
9654 if (!SWIG_IsOK(res2)) {
9655 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_solve_cyc_tridiag" "', argument " "2"" of type '" "gsl_vector const *""'");
9656 }
9657 arg2 = (gsl_vector *)(argp2);
9658 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
9659 if (!SWIG_IsOK(res3)) {
9660 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_solve_cyc_tridiag" "', argument " "3"" of type '" "gsl_vector const *""'");
9661 }
9662 arg3 = (gsl_vector *)(argp3);
9663 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
9664 if (!SWIG_IsOK(res4)) {
9665 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_solve_cyc_tridiag" "', argument " "4"" of type '" "gsl_vector const *""'");
9666 }
9667 arg4 = (gsl_vector *)(argp4);
9668 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
9669 if (!SWIG_IsOK(res5)) {
9670 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_solve_cyc_tridiag" "', argument " "5"" of type '" "gsl_vector *""'");
9671 }
9672 arg5 = (gsl_vector *)(argp5);
9673 result = (int)gsl_linalg_solve_cyc_tridiag((gsl_vector const *)arg1,(gsl_vector const *)arg2,(gsl_vector const *)arg3,(gsl_vector const *)arg4,arg5);
9674 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
9675
9676
9677
9678
9679
9680 XSRETURN(argvi);
9681 fail:
9682
9683
9684
9685
9686
9687 SWIG_croak_null();
9688 }
9689 }
9690
9691
XS(_wrap_gsl_linalg_bidiag_decomp)9692 XS(_wrap_gsl_linalg_bidiag_decomp) {
9693 {
9694 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
9695 gsl_vector *arg2 = (gsl_vector *) 0 ;
9696 gsl_vector *arg3 = (gsl_vector *) 0 ;
9697 void *argp1 = 0 ;
9698 int res1 = 0 ;
9699 void *argp2 = 0 ;
9700 int res2 = 0 ;
9701 void *argp3 = 0 ;
9702 int res3 = 0 ;
9703 int argvi = 0;
9704 int result;
9705 dXSARGS;
9706
9707 if ((items < 3) || (items > 3)) {
9708 SWIG_croak("Usage: gsl_linalg_bidiag_decomp(A,tau_U,tau_V);");
9709 }
9710 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
9711 if (!SWIG_IsOK(res1)) {
9712 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_bidiag_decomp" "', argument " "1"" of type '" "gsl_matrix *""'");
9713 }
9714 arg1 = (gsl_matrix *)(argp1);
9715 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
9716 if (!SWIG_IsOK(res2)) {
9717 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_bidiag_decomp" "', argument " "2"" of type '" "gsl_vector *""'");
9718 }
9719 arg2 = (gsl_vector *)(argp2);
9720 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
9721 if (!SWIG_IsOK(res3)) {
9722 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_bidiag_decomp" "', argument " "3"" of type '" "gsl_vector *""'");
9723 }
9724 arg3 = (gsl_vector *)(argp3);
9725 result = (int)gsl_linalg_bidiag_decomp(arg1,arg2,arg3);
9726 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
9727
9728
9729
9730 XSRETURN(argvi);
9731 fail:
9732
9733
9734
9735 SWIG_croak_null();
9736 }
9737 }
9738
9739
XS(_wrap_gsl_linalg_bidiag_unpack)9740 XS(_wrap_gsl_linalg_bidiag_unpack) {
9741 {
9742 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
9743 gsl_vector *arg2 = (gsl_vector *) 0 ;
9744 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
9745 gsl_vector *arg4 = (gsl_vector *) 0 ;
9746 gsl_matrix *arg5 = (gsl_matrix *) 0 ;
9747 gsl_vector *arg6 = (gsl_vector *) 0 ;
9748 gsl_vector *arg7 = (gsl_vector *) 0 ;
9749 void *argp1 = 0 ;
9750 int res1 = 0 ;
9751 void *argp2 = 0 ;
9752 int res2 = 0 ;
9753 void *argp3 = 0 ;
9754 int res3 = 0 ;
9755 void *argp4 = 0 ;
9756 int res4 = 0 ;
9757 void *argp5 = 0 ;
9758 int res5 = 0 ;
9759 void *argp6 = 0 ;
9760 int res6 = 0 ;
9761 void *argp7 = 0 ;
9762 int res7 = 0 ;
9763 int argvi = 0;
9764 int result;
9765 dXSARGS;
9766
9767 if ((items < 7) || (items > 7)) {
9768 SWIG_croak("Usage: gsl_linalg_bidiag_unpack(A,tau_U,U,tau_V,V,diag,superdiag);");
9769 }
9770 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
9771 if (!SWIG_IsOK(res1)) {
9772 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_bidiag_unpack" "', argument " "1"" of type '" "gsl_matrix const *""'");
9773 }
9774 arg1 = (gsl_matrix *)(argp1);
9775 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
9776 if (!SWIG_IsOK(res2)) {
9777 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_bidiag_unpack" "', argument " "2"" of type '" "gsl_vector const *""'");
9778 }
9779 arg2 = (gsl_vector *)(argp2);
9780 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
9781 if (!SWIG_IsOK(res3)) {
9782 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_bidiag_unpack" "', argument " "3"" of type '" "gsl_matrix *""'");
9783 }
9784 arg3 = (gsl_matrix *)(argp3);
9785 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
9786 if (!SWIG_IsOK(res4)) {
9787 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_bidiag_unpack" "', argument " "4"" of type '" "gsl_vector const *""'");
9788 }
9789 arg4 = (gsl_vector *)(argp4);
9790 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_matrix, 0 | 0 );
9791 if (!SWIG_IsOK(res5)) {
9792 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_bidiag_unpack" "', argument " "5"" of type '" "gsl_matrix *""'");
9793 }
9794 arg5 = (gsl_matrix *)(argp5);
9795 res6 = SWIG_ConvertPtr(ST(5), &argp6,SWIGTYPE_p_gsl_vector, 0 | 0 );
9796 if (!SWIG_IsOK(res6)) {
9797 SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_linalg_bidiag_unpack" "', argument " "6"" of type '" "gsl_vector *""'");
9798 }
9799 arg6 = (gsl_vector *)(argp6);
9800 res7 = SWIG_ConvertPtr(ST(6), &argp7,SWIGTYPE_p_gsl_vector, 0 | 0 );
9801 if (!SWIG_IsOK(res7)) {
9802 SWIG_exception_fail(SWIG_ArgError(res7), "in method '" "gsl_linalg_bidiag_unpack" "', argument " "7"" of type '" "gsl_vector *""'");
9803 }
9804 arg7 = (gsl_vector *)(argp7);
9805 result = (int)gsl_linalg_bidiag_unpack((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3,(gsl_vector const *)arg4,arg5,arg6,arg7);
9806 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
9807
9808
9809
9810
9811
9812
9813
9814 XSRETURN(argvi);
9815 fail:
9816
9817
9818
9819
9820
9821
9822
9823 SWIG_croak_null();
9824 }
9825 }
9826
9827
XS(_wrap_gsl_linalg_bidiag_unpack2)9828 XS(_wrap_gsl_linalg_bidiag_unpack2) {
9829 {
9830 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
9831 gsl_vector *arg2 = (gsl_vector *) 0 ;
9832 gsl_vector *arg3 = (gsl_vector *) 0 ;
9833 gsl_matrix *arg4 = (gsl_matrix *) 0 ;
9834 void *argp1 = 0 ;
9835 int res1 = 0 ;
9836 void *argp2 = 0 ;
9837 int res2 = 0 ;
9838 void *argp3 = 0 ;
9839 int res3 = 0 ;
9840 void *argp4 = 0 ;
9841 int res4 = 0 ;
9842 int argvi = 0;
9843 int result;
9844 dXSARGS;
9845
9846 if ((items < 4) || (items > 4)) {
9847 SWIG_croak("Usage: gsl_linalg_bidiag_unpack2(A,tau_U,tau_V,V);");
9848 }
9849 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
9850 if (!SWIG_IsOK(res1)) {
9851 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_bidiag_unpack2" "', argument " "1"" of type '" "gsl_matrix *""'");
9852 }
9853 arg1 = (gsl_matrix *)(argp1);
9854 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
9855 if (!SWIG_IsOK(res2)) {
9856 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_bidiag_unpack2" "', argument " "2"" of type '" "gsl_vector *""'");
9857 }
9858 arg2 = (gsl_vector *)(argp2);
9859 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
9860 if (!SWIG_IsOK(res3)) {
9861 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_bidiag_unpack2" "', argument " "3"" of type '" "gsl_vector *""'");
9862 }
9863 arg3 = (gsl_vector *)(argp3);
9864 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_matrix, 0 | 0 );
9865 if (!SWIG_IsOK(res4)) {
9866 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_bidiag_unpack2" "', argument " "4"" of type '" "gsl_matrix *""'");
9867 }
9868 arg4 = (gsl_matrix *)(argp4);
9869 result = (int)gsl_linalg_bidiag_unpack2(arg1,arg2,arg3,arg4);
9870 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
9871
9872
9873
9874
9875 XSRETURN(argvi);
9876 fail:
9877
9878
9879
9880
9881 SWIG_croak_null();
9882 }
9883 }
9884
9885
XS(_wrap_gsl_linalg_bidiag_unpack_B)9886 XS(_wrap_gsl_linalg_bidiag_unpack_B) {
9887 {
9888 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
9889 gsl_vector *arg2 = (gsl_vector *) 0 ;
9890 gsl_vector *arg3 = (gsl_vector *) 0 ;
9891 void *argp1 = 0 ;
9892 int res1 = 0 ;
9893 void *argp2 = 0 ;
9894 int res2 = 0 ;
9895 void *argp3 = 0 ;
9896 int res3 = 0 ;
9897 int argvi = 0;
9898 int result;
9899 dXSARGS;
9900
9901 if ((items < 3) || (items > 3)) {
9902 SWIG_croak("Usage: gsl_linalg_bidiag_unpack_B(A,diag,superdiag);");
9903 }
9904 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
9905 if (!SWIG_IsOK(res1)) {
9906 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_bidiag_unpack_B" "', argument " "1"" of type '" "gsl_matrix const *""'");
9907 }
9908 arg1 = (gsl_matrix *)(argp1);
9909 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
9910 if (!SWIG_IsOK(res2)) {
9911 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_bidiag_unpack_B" "', argument " "2"" of type '" "gsl_vector *""'");
9912 }
9913 arg2 = (gsl_vector *)(argp2);
9914 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
9915 if (!SWIG_IsOK(res3)) {
9916 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_bidiag_unpack_B" "', argument " "3"" of type '" "gsl_vector *""'");
9917 }
9918 arg3 = (gsl_vector *)(argp3);
9919 result = (int)gsl_linalg_bidiag_unpack_B((gsl_matrix const *)arg1,arg2,arg3);
9920 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
9921
9922
9923
9924 XSRETURN(argvi);
9925 fail:
9926
9927
9928
9929 SWIG_croak_null();
9930 }
9931 }
9932
9933
XS(_wrap_gsl_linalg_balance_matrix)9934 XS(_wrap_gsl_linalg_balance_matrix) {
9935 {
9936 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
9937 gsl_vector *arg2 = (gsl_vector *) 0 ;
9938 void *argp1 = 0 ;
9939 int res1 = 0 ;
9940 void *argp2 = 0 ;
9941 int res2 = 0 ;
9942 int argvi = 0;
9943 int result;
9944 dXSARGS;
9945
9946 if ((items < 2) || (items > 2)) {
9947 SWIG_croak("Usage: gsl_linalg_balance_matrix(A,D);");
9948 }
9949 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
9950 if (!SWIG_IsOK(res1)) {
9951 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_balance_matrix" "', argument " "1"" of type '" "gsl_matrix *""'");
9952 }
9953 arg1 = (gsl_matrix *)(argp1);
9954 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
9955 if (!SWIG_IsOK(res2)) {
9956 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_balance_matrix" "', argument " "2"" of type '" "gsl_vector *""'");
9957 }
9958 arg2 = (gsl_vector *)(argp2);
9959 result = (int)gsl_linalg_balance_matrix(arg1,arg2);
9960 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
9961
9962
9963 XSRETURN(argvi);
9964 fail:
9965
9966
9967 SWIG_croak_null();
9968 }
9969 }
9970
9971
XS(_wrap_gsl_linalg_balance_accum)9972 XS(_wrap_gsl_linalg_balance_accum) {
9973 {
9974 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
9975 gsl_vector *arg2 = (gsl_vector *) 0 ;
9976 void *argp1 = 0 ;
9977 int res1 = 0 ;
9978 void *argp2 = 0 ;
9979 int res2 = 0 ;
9980 int argvi = 0;
9981 int result;
9982 dXSARGS;
9983
9984 if ((items < 2) || (items > 2)) {
9985 SWIG_croak("Usage: gsl_linalg_balance_accum(A,D);");
9986 }
9987 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
9988 if (!SWIG_IsOK(res1)) {
9989 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_balance_accum" "', argument " "1"" of type '" "gsl_matrix *""'");
9990 }
9991 arg1 = (gsl_matrix *)(argp1);
9992 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
9993 if (!SWIG_IsOK(res2)) {
9994 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_balance_accum" "', argument " "2"" of type '" "gsl_vector *""'");
9995 }
9996 arg2 = (gsl_vector *)(argp2);
9997 result = (int)gsl_linalg_balance_accum(arg1,arg2);
9998 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
9999
10000
10001 XSRETURN(argvi);
10002 fail:
10003
10004
10005 SWIG_croak_null();
10006 }
10007 }
10008
10009
XS(_wrap_gsl_linalg_balance_columns)10010 XS(_wrap_gsl_linalg_balance_columns) {
10011 {
10012 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
10013 gsl_vector *arg2 = (gsl_vector *) 0 ;
10014 void *argp1 = 0 ;
10015 int res1 = 0 ;
10016 void *argp2 = 0 ;
10017 int res2 = 0 ;
10018 int argvi = 0;
10019 int result;
10020 dXSARGS;
10021
10022 if ((items < 2) || (items > 2)) {
10023 SWIG_croak("Usage: gsl_linalg_balance_columns(A,D);");
10024 }
10025 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
10026 if (!SWIG_IsOK(res1)) {
10027 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_balance_columns" "', argument " "1"" of type '" "gsl_matrix *""'");
10028 }
10029 arg1 = (gsl_matrix *)(argp1);
10030 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
10031 if (!SWIG_IsOK(res2)) {
10032 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_balance_columns" "', argument " "2"" of type '" "gsl_vector *""'");
10033 }
10034 arg2 = (gsl_vector *)(argp2);
10035 result = (int)gsl_linalg_balance_columns(arg1,arg2);
10036 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
10037
10038
10039 XSRETURN(argvi);
10040 fail:
10041
10042
10043 SWIG_croak_null();
10044 }
10045 }
10046
10047
XS(_wrap_gsl_linalg_tri_upper_rcond)10048 XS(_wrap_gsl_linalg_tri_upper_rcond) {
10049 {
10050 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
10051 double *arg2 = (double *) 0 ;
10052 gsl_vector *arg3 = (gsl_vector *) 0 ;
10053 void *argp1 = 0 ;
10054 int res1 = 0 ;
10055 void *argp2 = 0 ;
10056 int res2 = 0 ;
10057 void *argp3 = 0 ;
10058 int res3 = 0 ;
10059 int argvi = 0;
10060 int result;
10061 dXSARGS;
10062
10063 if ((items < 3) || (items > 3)) {
10064 SWIG_croak("Usage: gsl_linalg_tri_upper_rcond(A,rcond,work);");
10065 }
10066 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
10067 if (!SWIG_IsOK(res1)) {
10068 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_tri_upper_rcond" "', argument " "1"" of type '" "gsl_matrix const *""'");
10069 }
10070 arg1 = (gsl_matrix *)(argp1);
10071 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_double, 0 | 0 );
10072 if (!SWIG_IsOK(res2)) {
10073 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_tri_upper_rcond" "', argument " "2"" of type '" "double *""'");
10074 }
10075 arg2 = (double *)(argp2);
10076 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
10077 if (!SWIG_IsOK(res3)) {
10078 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_tri_upper_rcond" "', argument " "3"" of type '" "gsl_vector *""'");
10079 }
10080 arg3 = (gsl_vector *)(argp3);
10081 result = (int)gsl_linalg_tri_upper_rcond((gsl_matrix const *)arg1,arg2,arg3);
10082 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
10083
10084
10085
10086 XSRETURN(argvi);
10087 fail:
10088
10089
10090
10091 SWIG_croak_null();
10092 }
10093 }
10094
10095
XS(_wrap_gsl_linalg_tri_lower_rcond)10096 XS(_wrap_gsl_linalg_tri_lower_rcond) {
10097 {
10098 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
10099 double *arg2 = (double *) 0 ;
10100 gsl_vector *arg3 = (gsl_vector *) 0 ;
10101 void *argp1 = 0 ;
10102 int res1 = 0 ;
10103 void *argp2 = 0 ;
10104 int res2 = 0 ;
10105 void *argp3 = 0 ;
10106 int res3 = 0 ;
10107 int argvi = 0;
10108 int result;
10109 dXSARGS;
10110
10111 if ((items < 3) || (items > 3)) {
10112 SWIG_croak("Usage: gsl_linalg_tri_lower_rcond(A,rcond,work);");
10113 }
10114 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
10115 if (!SWIG_IsOK(res1)) {
10116 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_tri_lower_rcond" "', argument " "1"" of type '" "gsl_matrix const *""'");
10117 }
10118 arg1 = (gsl_matrix *)(argp1);
10119 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_double, 0 | 0 );
10120 if (!SWIG_IsOK(res2)) {
10121 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_tri_lower_rcond" "', argument " "2"" of type '" "double *""'");
10122 }
10123 arg2 = (double *)(argp2);
10124 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
10125 if (!SWIG_IsOK(res3)) {
10126 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_tri_lower_rcond" "', argument " "3"" of type '" "gsl_vector *""'");
10127 }
10128 arg3 = (gsl_vector *)(argp3);
10129 result = (int)gsl_linalg_tri_lower_rcond((gsl_matrix const *)arg1,arg2,arg3);
10130 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
10131
10132
10133
10134 XSRETURN(argvi);
10135 fail:
10136
10137
10138
10139 SWIG_croak_null();
10140 }
10141 }
10142
10143
XS(_wrap_gsl_linalg_invnorm1)10144 XS(_wrap_gsl_linalg_invnorm1) {
10145 {
10146 size_t arg1 ;
10147 int (*arg2)(CBLAS_TRANSPOSE_t,gsl_vector *,void *) = (int (*)(CBLAS_TRANSPOSE_t,gsl_vector *,void *)) 0 ;
10148 void *arg3 = (void *) 0 ;
10149 double *arg4 = (double *) 0 ;
10150 gsl_vector *arg5 = (gsl_vector *) 0 ;
10151 size_t val1 ;
10152 int ecode1 = 0 ;
10153 int res3 ;
10154 void *argp4 = 0 ;
10155 int res4 = 0 ;
10156 void *argp5 = 0 ;
10157 int res5 = 0 ;
10158 int argvi = 0;
10159 int result;
10160 dXSARGS;
10161
10162 if ((items < 5) || (items > 5)) {
10163 SWIG_croak("Usage: gsl_linalg_invnorm1(N,Ainvx,params,Ainvnorm,work);");
10164 }
10165 ecode1 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
10166 if (!SWIG_IsOK(ecode1)) {
10167 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_linalg_invnorm1" "', argument " "1"" of type '" "size_t""'");
10168 }
10169 arg1 = (size_t)(val1);
10170 {
10171 int res = SWIG_ConvertFunctionPtr(ST(1), (void**)(&arg2), SWIGTYPE_p_f_CBLAS_TRANSPOSE_t_p_gsl_vector_p_void__int);
10172 if (!SWIG_IsOK(res)) {
10173 SWIG_exception_fail(SWIG_ArgError(res), "in method '" "gsl_linalg_invnorm1" "', argument " "2"" of type '" "int (*)(CBLAS_TRANSPOSE_t,gsl_vector *,void *)""'");
10174 }
10175 }
10176 res3 = SWIG_ConvertPtr(ST(2),SWIG_as_voidptrptr(&arg3), 0, 0);
10177 if (!SWIG_IsOK(res3)) {
10178 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_invnorm1" "', argument " "3"" of type '" "void *""'");
10179 }
10180 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_double, 0 | 0 );
10181 if (!SWIG_IsOK(res4)) {
10182 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_invnorm1" "', argument " "4"" of type '" "double *""'");
10183 }
10184 arg4 = (double *)(argp4);
10185 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
10186 if (!SWIG_IsOK(res5)) {
10187 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_invnorm1" "', argument " "5"" of type '" "gsl_vector *""'");
10188 }
10189 arg5 = (gsl_vector *)(argp5);
10190 result = (int)gsl_linalg_invnorm1(arg1,arg2,arg3,arg4,arg5);
10191 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
10192
10193
10194
10195
10196
10197 XSRETURN(argvi);
10198 fail:
10199
10200
10201
10202
10203
10204 SWIG_croak_null();
10205 }
10206 }
10207
10208
XS(_wrap_gsl_linalg_tri_upper_invert)10209 XS(_wrap_gsl_linalg_tri_upper_invert) {
10210 {
10211 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
10212 void *argp1 = 0 ;
10213 int res1 = 0 ;
10214 int argvi = 0;
10215 int result;
10216 dXSARGS;
10217
10218 if ((items < 1) || (items > 1)) {
10219 SWIG_croak("Usage: gsl_linalg_tri_upper_invert(T);");
10220 }
10221 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
10222 if (!SWIG_IsOK(res1)) {
10223 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_tri_upper_invert" "', argument " "1"" of type '" "gsl_matrix *""'");
10224 }
10225 arg1 = (gsl_matrix *)(argp1);
10226 result = (int)gsl_linalg_tri_upper_invert(arg1);
10227 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
10228
10229 XSRETURN(argvi);
10230 fail:
10231
10232 SWIG_croak_null();
10233 }
10234 }
10235
10236
XS(_wrap_gsl_linalg_tri_lower_invert)10237 XS(_wrap_gsl_linalg_tri_lower_invert) {
10238 {
10239 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
10240 void *argp1 = 0 ;
10241 int res1 = 0 ;
10242 int argvi = 0;
10243 int result;
10244 dXSARGS;
10245
10246 if ((items < 1) || (items > 1)) {
10247 SWIG_croak("Usage: gsl_linalg_tri_lower_invert(T);");
10248 }
10249 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
10250 if (!SWIG_IsOK(res1)) {
10251 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_tri_lower_invert" "', argument " "1"" of type '" "gsl_matrix *""'");
10252 }
10253 arg1 = (gsl_matrix *)(argp1);
10254 result = (int)gsl_linalg_tri_lower_invert(arg1);
10255 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
10256
10257 XSRETURN(argvi);
10258 fail:
10259
10260 SWIG_croak_null();
10261 }
10262 }
10263
10264
XS(_wrap_gsl_linalg_tri_upper_unit_invert)10265 XS(_wrap_gsl_linalg_tri_upper_unit_invert) {
10266 {
10267 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
10268 void *argp1 = 0 ;
10269 int res1 = 0 ;
10270 int argvi = 0;
10271 int result;
10272 dXSARGS;
10273
10274 if ((items < 1) || (items > 1)) {
10275 SWIG_croak("Usage: gsl_linalg_tri_upper_unit_invert(T);");
10276 }
10277 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
10278 if (!SWIG_IsOK(res1)) {
10279 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_tri_upper_unit_invert" "', argument " "1"" of type '" "gsl_matrix *""'");
10280 }
10281 arg1 = (gsl_matrix *)(argp1);
10282 result = (int)gsl_linalg_tri_upper_unit_invert(arg1);
10283 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
10284
10285 XSRETURN(argvi);
10286 fail:
10287
10288 SWIG_croak_null();
10289 }
10290 }
10291
10292
XS(_wrap_gsl_linalg_tri_lower_unit_invert)10293 XS(_wrap_gsl_linalg_tri_lower_unit_invert) {
10294 {
10295 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
10296 void *argp1 = 0 ;
10297 int res1 = 0 ;
10298 int argvi = 0;
10299 int result;
10300 dXSARGS;
10301
10302 if ((items < 1) || (items > 1)) {
10303 SWIG_croak("Usage: gsl_linalg_tri_lower_unit_invert(T);");
10304 }
10305 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
10306 if (!SWIG_IsOK(res1)) {
10307 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_tri_lower_unit_invert" "', argument " "1"" of type '" "gsl_matrix *""'");
10308 }
10309 arg1 = (gsl_matrix *)(argp1);
10310 result = (int)gsl_linalg_tri_lower_unit_invert(arg1);
10311 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
10312
10313 XSRETURN(argvi);
10314 fail:
10315
10316 SWIG_croak_null();
10317 }
10318 }
10319
10320
XS(_wrap_gsl_linalg_givens)10321 XS(_wrap_gsl_linalg_givens) {
10322 {
10323 double arg1 ;
10324 double arg2 ;
10325 double *arg3 = (double *) 0 ;
10326 double *arg4 = (double *) 0 ;
10327 double val1 ;
10328 int ecode1 = 0 ;
10329 double val2 ;
10330 int ecode2 = 0 ;
10331 double temp3 ;
10332 int res3 = SWIG_TMPOBJ ;
10333 double temp4 ;
10334 int res4 = SWIG_TMPOBJ ;
10335 int argvi = 0;
10336 dXSARGS;
10337
10338 arg3 = &temp3;
10339 arg4 = &temp4;
10340 if ((items < 2) || (items > 2)) {
10341 SWIG_croak("Usage: gsl_linalg_givens(a,b);");
10342 }
10343 ecode1 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
10344 if (!SWIG_IsOK(ecode1)) {
10345 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_linalg_givens" "', argument " "1"" of type '" "double""'");
10346 }
10347 arg1 = (double)(val1);
10348 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
10349 if (!SWIG_IsOK(ecode2)) {
10350 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_linalg_givens" "', argument " "2"" of type '" "double""'");
10351 }
10352 arg2 = (double)(val2);
10353 gsl_linalg_givens(arg1,arg2,arg3,arg4);
10354 ST(argvi) = &PL_sv_undef;
10355 if (SWIG_IsTmpObj(res3)) {
10356 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((*arg3)); argvi++ ;
10357 } else {
10358 int new_flags = SWIG_IsNewObj(res3) ? (SWIG_POINTER_OWN | 0) : 0;
10359 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg3), SWIGTYPE_p_double, new_flags); argvi++ ;
10360 }
10361 if (SWIG_IsTmpObj(res4)) {
10362 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((*arg4)); argvi++ ;
10363 } else {
10364 int new_flags = SWIG_IsNewObj(res4) ? (SWIG_POINTER_OWN | 0) : 0;
10365 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg4), SWIGTYPE_p_double, new_flags); argvi++ ;
10366 }
10367
10368
10369
10370
10371 XSRETURN(argvi);
10372 fail:
10373
10374
10375
10376
10377 SWIG_croak_null();
10378 }
10379 }
10380
10381
XS(_wrap_gsl_linalg_givens_gv)10382 XS(_wrap_gsl_linalg_givens_gv) {
10383 {
10384 gsl_vector *arg1 = (gsl_vector *) 0 ;
10385 size_t arg2 ;
10386 size_t arg3 ;
10387 double arg4 ;
10388 double arg5 ;
10389 void *argp1 = 0 ;
10390 int res1 = 0 ;
10391 size_t val2 ;
10392 int ecode2 = 0 ;
10393 size_t val3 ;
10394 int ecode3 = 0 ;
10395 double val4 ;
10396 int ecode4 = 0 ;
10397 double val5 ;
10398 int ecode5 = 0 ;
10399 int argvi = 0;
10400 dXSARGS;
10401
10402 if ((items < 5) || (items > 5)) {
10403 SWIG_croak("Usage: gsl_linalg_givens_gv(v,i,j,c,s);");
10404 }
10405 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
10406 if (!SWIG_IsOK(res1)) {
10407 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_givens_gv" "', argument " "1"" of type '" "gsl_vector *""'");
10408 }
10409 arg1 = (gsl_vector *)(argp1);
10410 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
10411 if (!SWIG_IsOK(ecode2)) {
10412 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_linalg_givens_gv" "', argument " "2"" of type '" "size_t""'");
10413 }
10414 arg2 = (size_t)(val2);
10415 ecode3 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
10416 if (!SWIG_IsOK(ecode3)) {
10417 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_linalg_givens_gv" "', argument " "3"" of type '" "size_t""'");
10418 }
10419 arg3 = (size_t)(val3);
10420 ecode4 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(3), &val4);
10421 if (!SWIG_IsOK(ecode4)) {
10422 SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "gsl_linalg_givens_gv" "', argument " "4"" of type '" "double""'");
10423 }
10424 arg4 = (double)(val4);
10425 ecode5 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(4), &val5);
10426 if (!SWIG_IsOK(ecode5)) {
10427 SWIG_exception_fail(SWIG_ArgError(ecode5), "in method '" "gsl_linalg_givens_gv" "', argument " "5"" of type '" "double""'");
10428 }
10429 arg5 = (double)(val5);
10430 gsl_linalg_givens_gv(arg1,arg2,arg3,arg4,arg5);
10431 ST(argvi) = &PL_sv_undef;
10432
10433
10434
10435
10436
10437 XSRETURN(argvi);
10438 fail:
10439
10440
10441
10442
10443
10444 SWIG_croak_null();
10445 }
10446 }
10447
10448
XS(_wrap_gsl_permutation_struct_size_set)10449 XS(_wrap_gsl_permutation_struct_size_set) {
10450 {
10451 struct gsl_permutation_struct *arg1 = (struct gsl_permutation_struct *) 0 ;
10452 size_t arg2 ;
10453 void *argp1 = 0 ;
10454 int res1 = 0 ;
10455 size_t val2 ;
10456 int ecode2 = 0 ;
10457 int argvi = 0;
10458 dXSARGS;
10459
10460 if ((items < 2) || (items > 2)) {
10461 SWIG_croak("Usage: gsl_permutation_struct_size_set(self,size);");
10462 }
10463 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
10464 if (!SWIG_IsOK(res1)) {
10465 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_struct_size_set" "', argument " "1"" of type '" "struct gsl_permutation_struct *""'");
10466 }
10467 arg1 = (struct gsl_permutation_struct *)(argp1);
10468 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
10469 if (!SWIG_IsOK(ecode2)) {
10470 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_permutation_struct_size_set" "', argument " "2"" of type '" "size_t""'");
10471 }
10472 arg2 = (size_t)(val2);
10473 if (arg1) (arg1)->size = arg2;
10474 ST(argvi) = &PL_sv_undef;
10475
10476
10477 XSRETURN(argvi);
10478 fail:
10479
10480
10481 SWIG_croak_null();
10482 }
10483 }
10484
10485
XS(_wrap_gsl_permutation_struct_size_get)10486 XS(_wrap_gsl_permutation_struct_size_get) {
10487 {
10488 struct gsl_permutation_struct *arg1 = (struct gsl_permutation_struct *) 0 ;
10489 void *argp1 = 0 ;
10490 int res1 = 0 ;
10491 int argvi = 0;
10492 size_t result;
10493 dXSARGS;
10494
10495 if ((items < 1) || (items > 1)) {
10496 SWIG_croak("Usage: gsl_permutation_struct_size_get(self);");
10497 }
10498 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
10499 if (!SWIG_IsOK(res1)) {
10500 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_struct_size_get" "', argument " "1"" of type '" "struct gsl_permutation_struct *""'");
10501 }
10502 arg1 = (struct gsl_permutation_struct *)(argp1);
10503 result = ((arg1)->size);
10504 ST(argvi) = SWIG_From_size_t SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
10505
10506 XSRETURN(argvi);
10507 fail:
10508
10509 SWIG_croak_null();
10510 }
10511 }
10512
10513
XS(_wrap_gsl_permutation_struct_data_set)10514 XS(_wrap_gsl_permutation_struct_data_set) {
10515 {
10516 struct gsl_permutation_struct *arg1 = (struct gsl_permutation_struct *) 0 ;
10517 size_t *arg2 = (size_t *) 0 ;
10518 void *argp1 = 0 ;
10519 int res1 = 0 ;
10520 void *argp2 = 0 ;
10521 int res2 = 0 ;
10522 int argvi = 0;
10523 dXSARGS;
10524
10525 if ((items < 2) || (items > 2)) {
10526 SWIG_croak("Usage: gsl_permutation_struct_data_set(self,data);");
10527 }
10528 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
10529 if (!SWIG_IsOK(res1)) {
10530 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_struct_data_set" "', argument " "1"" of type '" "struct gsl_permutation_struct *""'");
10531 }
10532 arg1 = (struct gsl_permutation_struct *)(argp1);
10533 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_size_t, SWIG_POINTER_DISOWN | 0 );
10534 if (!SWIG_IsOK(res2)) {
10535 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_permutation_struct_data_set" "', argument " "2"" of type '" "size_t *""'");
10536 }
10537 arg2 = (size_t *)(argp2);
10538 if (arg1) (arg1)->data = arg2;
10539 ST(argvi) = &PL_sv_undef;
10540
10541
10542 XSRETURN(argvi);
10543 fail:
10544
10545
10546 SWIG_croak_null();
10547 }
10548 }
10549
10550
XS(_wrap_gsl_permutation_struct_data_get)10551 XS(_wrap_gsl_permutation_struct_data_get) {
10552 {
10553 struct gsl_permutation_struct *arg1 = (struct gsl_permutation_struct *) 0 ;
10554 void *argp1 = 0 ;
10555 int res1 = 0 ;
10556 int argvi = 0;
10557 size_t *result = 0 ;
10558 dXSARGS;
10559
10560 if ((items < 1) || (items > 1)) {
10561 SWIG_croak("Usage: gsl_permutation_struct_data_get(self);");
10562 }
10563 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
10564 if (!SWIG_IsOK(res1)) {
10565 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_struct_data_get" "', argument " "1"" of type '" "struct gsl_permutation_struct *""'");
10566 }
10567 arg1 = (struct gsl_permutation_struct *)(argp1);
10568 result = (size_t *) ((arg1)->data);
10569 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_size_t, 0 | 0); argvi++ ;
10570
10571 XSRETURN(argvi);
10572 fail:
10573
10574 SWIG_croak_null();
10575 }
10576 }
10577
10578
XS(_wrap_new_gsl_permutation_struct)10579 XS(_wrap_new_gsl_permutation_struct) {
10580 {
10581 int argvi = 0;
10582 struct gsl_permutation_struct *result = 0 ;
10583 dXSARGS;
10584
10585 if ((items < 0) || (items > 0)) {
10586 SWIG_croak("Usage: new_gsl_permutation_struct();");
10587 }
10588 result = (struct gsl_permutation_struct *)calloc(1, sizeof(struct gsl_permutation_struct));
10589 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_permutation_struct, SWIG_OWNER | SWIG_SHADOW); argvi++ ;
10590 XSRETURN(argvi);
10591 fail:
10592 SWIG_croak_null();
10593 }
10594 }
10595
10596
XS(_wrap_delete_gsl_permutation_struct)10597 XS(_wrap_delete_gsl_permutation_struct) {
10598 {
10599 struct gsl_permutation_struct *arg1 = (struct gsl_permutation_struct *) 0 ;
10600 void *argp1 = 0 ;
10601 int res1 = 0 ;
10602 int argvi = 0;
10603 dXSARGS;
10604
10605 if ((items < 1) || (items > 1)) {
10606 SWIG_croak("Usage: delete_gsl_permutation_struct(self);");
10607 }
10608 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, SWIG_POINTER_DISOWN | 0 );
10609 if (!SWIG_IsOK(res1)) {
10610 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "delete_gsl_permutation_struct" "', argument " "1"" of type '" "struct gsl_permutation_struct *""'");
10611 }
10612 arg1 = (struct gsl_permutation_struct *)(argp1);
10613 free((char *) arg1);
10614 ST(argvi) = &PL_sv_undef;
10615
10616 XSRETURN(argvi);
10617 fail:
10618
10619 SWIG_croak_null();
10620 }
10621 }
10622
10623
XS(_wrap_gsl_permutation_alloc)10624 XS(_wrap_gsl_permutation_alloc) {
10625 {
10626 size_t arg1 ;
10627 size_t val1 ;
10628 int ecode1 = 0 ;
10629 int argvi = 0;
10630 gsl_permutation *result = 0 ;
10631 dXSARGS;
10632
10633 if ((items < 1) || (items > 1)) {
10634 SWIG_croak("Usage: gsl_permutation_alloc(n);");
10635 }
10636 ecode1 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
10637 if (!SWIG_IsOK(ecode1)) {
10638 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_permutation_alloc" "', argument " "1"" of type '" "size_t""'");
10639 }
10640 arg1 = (size_t)(val1);
10641 result = (gsl_permutation *)gsl_permutation_alloc(arg1);
10642 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_permutation_struct, 0 | SWIG_SHADOW); argvi++ ;
10643
10644 XSRETURN(argvi);
10645 fail:
10646
10647 SWIG_croak_null();
10648 }
10649 }
10650
10651
XS(_wrap_gsl_permutation_calloc)10652 XS(_wrap_gsl_permutation_calloc) {
10653 {
10654 size_t arg1 ;
10655 size_t val1 ;
10656 int ecode1 = 0 ;
10657 int argvi = 0;
10658 gsl_permutation *result = 0 ;
10659 dXSARGS;
10660
10661 if ((items < 1) || (items > 1)) {
10662 SWIG_croak("Usage: gsl_permutation_calloc(n);");
10663 }
10664 ecode1 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
10665 if (!SWIG_IsOK(ecode1)) {
10666 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_permutation_calloc" "', argument " "1"" of type '" "size_t""'");
10667 }
10668 arg1 = (size_t)(val1);
10669 result = (gsl_permutation *)gsl_permutation_calloc(arg1);
10670 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_permutation_struct, 0 | SWIG_SHADOW); argvi++ ;
10671
10672 XSRETURN(argvi);
10673 fail:
10674
10675 SWIG_croak_null();
10676 }
10677 }
10678
10679
XS(_wrap_gsl_permutation_init)10680 XS(_wrap_gsl_permutation_init) {
10681 {
10682 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
10683 void *argp1 = 0 ;
10684 int res1 = 0 ;
10685 int argvi = 0;
10686 dXSARGS;
10687
10688 if ((items < 1) || (items > 1)) {
10689 SWIG_croak("Usage: gsl_permutation_init(p);");
10690 }
10691 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
10692 if (!SWIG_IsOK(res1)) {
10693 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_init" "', argument " "1"" of type '" "gsl_permutation *""'");
10694 }
10695 arg1 = (gsl_permutation *)(argp1);
10696 gsl_permutation_init(arg1);
10697 ST(argvi) = &PL_sv_undef;
10698
10699 XSRETURN(argvi);
10700 fail:
10701
10702 SWIG_croak_null();
10703 }
10704 }
10705
10706
XS(_wrap_gsl_permutation_free)10707 XS(_wrap_gsl_permutation_free) {
10708 {
10709 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
10710 void *argp1 = 0 ;
10711 int res1 = 0 ;
10712 int argvi = 0;
10713 dXSARGS;
10714
10715 if ((items < 1) || (items > 1)) {
10716 SWIG_croak("Usage: gsl_permutation_free(p);");
10717 }
10718 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
10719 if (!SWIG_IsOK(res1)) {
10720 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_free" "', argument " "1"" of type '" "gsl_permutation *""'");
10721 }
10722 arg1 = (gsl_permutation *)(argp1);
10723 gsl_permutation_free(arg1);
10724 ST(argvi) = &PL_sv_undef;
10725
10726 XSRETURN(argvi);
10727 fail:
10728
10729 SWIG_croak_null();
10730 }
10731 }
10732
10733
XS(_wrap_gsl_permutation_memcpy)10734 XS(_wrap_gsl_permutation_memcpy) {
10735 {
10736 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
10737 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
10738 void *argp1 = 0 ;
10739 int res1 = 0 ;
10740 void *argp2 = 0 ;
10741 int res2 = 0 ;
10742 int argvi = 0;
10743 int result;
10744 dXSARGS;
10745
10746 if ((items < 2) || (items > 2)) {
10747 SWIG_croak("Usage: gsl_permutation_memcpy(dest,src);");
10748 }
10749 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
10750 if (!SWIG_IsOK(res1)) {
10751 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_memcpy" "', argument " "1"" of type '" "gsl_permutation *""'");
10752 }
10753 arg1 = (gsl_permutation *)(argp1);
10754 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
10755 if (!SWIG_IsOK(res2)) {
10756 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_permutation_memcpy" "', argument " "2"" of type '" "gsl_permutation const *""'");
10757 }
10758 arg2 = (gsl_permutation *)(argp2);
10759 result = (int)gsl_permutation_memcpy(arg1,(struct gsl_permutation_struct const *)arg2);
10760 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
10761
10762
10763 XSRETURN(argvi);
10764 fail:
10765
10766
10767 SWIG_croak_null();
10768 }
10769 }
10770
10771
XS(_wrap_gsl_permutation_fread)10772 XS(_wrap_gsl_permutation_fread) {
10773 {
10774 FILE *arg1 = (FILE *) 0 ;
10775 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
10776 void *argp1 = 0 ;
10777 int res1 = 0 ;
10778 void *argp2 = 0 ;
10779 int res2 = 0 ;
10780 int argvi = 0;
10781 int result;
10782 dXSARGS;
10783
10784 if ((items < 2) || (items > 2)) {
10785 SWIG_croak("Usage: gsl_permutation_fread(stream,p);");
10786 }
10787 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_FILE, 0 | 0 );
10788 if (!SWIG_IsOK(res1)) {
10789 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_fread" "', argument " "1"" of type '" "FILE *""'");
10790 }
10791 arg1 = (FILE *)(argp1);
10792 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
10793 if (!SWIG_IsOK(res2)) {
10794 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_permutation_fread" "', argument " "2"" of type '" "gsl_permutation *""'");
10795 }
10796 arg2 = (gsl_permutation *)(argp2);
10797 result = (int)gsl_permutation_fread(arg1,arg2);
10798 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
10799
10800
10801 XSRETURN(argvi);
10802 fail:
10803
10804
10805 SWIG_croak_null();
10806 }
10807 }
10808
10809
XS(_wrap_gsl_permutation_fwrite)10810 XS(_wrap_gsl_permutation_fwrite) {
10811 {
10812 FILE *arg1 = (FILE *) 0 ;
10813 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
10814 void *argp1 = 0 ;
10815 int res1 = 0 ;
10816 void *argp2 = 0 ;
10817 int res2 = 0 ;
10818 int argvi = 0;
10819 int result;
10820 dXSARGS;
10821
10822 if ((items < 2) || (items > 2)) {
10823 SWIG_croak("Usage: gsl_permutation_fwrite(stream,p);");
10824 }
10825 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_FILE, 0 | 0 );
10826 if (!SWIG_IsOK(res1)) {
10827 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_fwrite" "', argument " "1"" of type '" "FILE *""'");
10828 }
10829 arg1 = (FILE *)(argp1);
10830 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
10831 if (!SWIG_IsOK(res2)) {
10832 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_permutation_fwrite" "', argument " "2"" of type '" "gsl_permutation const *""'");
10833 }
10834 arg2 = (gsl_permutation *)(argp2);
10835 result = (int)gsl_permutation_fwrite(arg1,(struct gsl_permutation_struct const *)arg2);
10836 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
10837
10838
10839 XSRETURN(argvi);
10840 fail:
10841
10842
10843 SWIG_croak_null();
10844 }
10845 }
10846
10847
XS(_wrap_gsl_permutation_fscanf)10848 XS(_wrap_gsl_permutation_fscanf) {
10849 {
10850 FILE *arg1 = (FILE *) 0 ;
10851 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
10852 void *argp1 = 0 ;
10853 int res1 = 0 ;
10854 void *argp2 = 0 ;
10855 int res2 = 0 ;
10856 int argvi = 0;
10857 int result;
10858 dXSARGS;
10859
10860 if ((items < 2) || (items > 2)) {
10861 SWIG_croak("Usage: gsl_permutation_fscanf(stream,p);");
10862 }
10863 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_FILE, 0 | 0 );
10864 if (!SWIG_IsOK(res1)) {
10865 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_fscanf" "', argument " "1"" of type '" "FILE *""'");
10866 }
10867 arg1 = (FILE *)(argp1);
10868 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
10869 if (!SWIG_IsOK(res2)) {
10870 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_permutation_fscanf" "', argument " "2"" of type '" "gsl_permutation *""'");
10871 }
10872 arg2 = (gsl_permutation *)(argp2);
10873 result = (int)gsl_permutation_fscanf(arg1,arg2);
10874 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
10875
10876
10877 XSRETURN(argvi);
10878 fail:
10879
10880
10881 SWIG_croak_null();
10882 }
10883 }
10884
10885
XS(_wrap_gsl_permutation_fprintf)10886 XS(_wrap_gsl_permutation_fprintf) {
10887 {
10888 FILE *arg1 = (FILE *) 0 ;
10889 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
10890 char *arg3 = (char *) 0 ;
10891 void *argp1 = 0 ;
10892 int res1 = 0 ;
10893 void *argp2 = 0 ;
10894 int res2 = 0 ;
10895 int res3 ;
10896 char *buf3 = 0 ;
10897 int alloc3 = 0 ;
10898 int argvi = 0;
10899 int result;
10900 dXSARGS;
10901
10902 if ((items < 3) || (items > 3)) {
10903 SWIG_croak("Usage: gsl_permutation_fprintf(stream,p,format);");
10904 }
10905 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_FILE, 0 | 0 );
10906 if (!SWIG_IsOK(res1)) {
10907 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_fprintf" "', argument " "1"" of type '" "FILE *""'");
10908 }
10909 arg1 = (FILE *)(argp1);
10910 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
10911 if (!SWIG_IsOK(res2)) {
10912 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_permutation_fprintf" "', argument " "2"" of type '" "gsl_permutation const *""'");
10913 }
10914 arg2 = (gsl_permutation *)(argp2);
10915 res3 = SWIG_AsCharPtrAndSize(ST(2), &buf3, NULL, &alloc3);
10916 if (!SWIG_IsOK(res3)) {
10917 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_permutation_fprintf" "', argument " "3"" of type '" "char const *""'");
10918 }
10919 arg3 = (char *)(buf3);
10920 result = (int)gsl_permutation_fprintf(arg1,(struct gsl_permutation_struct const *)arg2,(char const *)arg3);
10921 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
10922
10923
10924 if (alloc3 == SWIG_NEWOBJ) free((char*)buf3);
10925 XSRETURN(argvi);
10926 fail:
10927
10928
10929 if (alloc3 == SWIG_NEWOBJ) free((char*)buf3);
10930 SWIG_croak_null();
10931 }
10932 }
10933
10934
XS(_wrap_gsl_permutation_size)10935 XS(_wrap_gsl_permutation_size) {
10936 {
10937 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
10938 void *argp1 = 0 ;
10939 int res1 = 0 ;
10940 int argvi = 0;
10941 size_t result;
10942 dXSARGS;
10943
10944 if ((items < 1) || (items > 1)) {
10945 SWIG_croak("Usage: gsl_permutation_size(p);");
10946 }
10947 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
10948 if (!SWIG_IsOK(res1)) {
10949 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_size" "', argument " "1"" of type '" "gsl_permutation const *""'");
10950 }
10951 arg1 = (gsl_permutation *)(argp1);
10952 result = gsl_permutation_size((struct gsl_permutation_struct const *)arg1);
10953 ST(argvi) = SWIG_From_size_t SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
10954
10955 XSRETURN(argvi);
10956 fail:
10957
10958 SWIG_croak_null();
10959 }
10960 }
10961
10962
XS(_wrap_gsl_permutation_data)10963 XS(_wrap_gsl_permutation_data) {
10964 {
10965 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
10966 void *argp1 = 0 ;
10967 int res1 = 0 ;
10968 int argvi = 0;
10969 size_t *result = 0 ;
10970 dXSARGS;
10971
10972 if ((items < 1) || (items > 1)) {
10973 SWIG_croak("Usage: gsl_permutation_data(p);");
10974 }
10975 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
10976 if (!SWIG_IsOK(res1)) {
10977 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_data" "', argument " "1"" of type '" "gsl_permutation const *""'");
10978 }
10979 arg1 = (gsl_permutation *)(argp1);
10980 result = (size_t *)gsl_permutation_data((struct gsl_permutation_struct const *)arg1);
10981 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_size_t, 0 | 0); argvi++ ;
10982
10983 XSRETURN(argvi);
10984 fail:
10985
10986 SWIG_croak_null();
10987 }
10988 }
10989
10990
XS(_wrap_gsl_permutation_swap)10991 XS(_wrap_gsl_permutation_swap) {
10992 {
10993 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
10994 size_t arg2 ;
10995 size_t arg3 ;
10996 void *argp1 = 0 ;
10997 int res1 = 0 ;
10998 size_t val2 ;
10999 int ecode2 = 0 ;
11000 size_t val3 ;
11001 int ecode3 = 0 ;
11002 int argvi = 0;
11003 int result;
11004 dXSARGS;
11005
11006 if ((items < 3) || (items > 3)) {
11007 SWIG_croak("Usage: gsl_permutation_swap(p,i,j);");
11008 }
11009 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
11010 if (!SWIG_IsOK(res1)) {
11011 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_swap" "', argument " "1"" of type '" "gsl_permutation *""'");
11012 }
11013 arg1 = (gsl_permutation *)(argp1);
11014 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
11015 if (!SWIG_IsOK(ecode2)) {
11016 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_permutation_swap" "', argument " "2"" of type '" "size_t""'");
11017 }
11018 arg2 = (size_t)(val2);
11019 ecode3 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
11020 if (!SWIG_IsOK(ecode3)) {
11021 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_permutation_swap" "', argument " "3"" of type '" "size_t""'");
11022 }
11023 arg3 = (size_t)(val3);
11024 result = (int)gsl_permutation_swap(arg1,arg2,arg3);
11025 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
11026
11027
11028
11029 XSRETURN(argvi);
11030 fail:
11031
11032
11033
11034 SWIG_croak_null();
11035 }
11036 }
11037
11038
XS(_wrap_gsl_permutation_valid)11039 XS(_wrap_gsl_permutation_valid) {
11040 {
11041 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
11042 void *argp1 = 0 ;
11043 int res1 = 0 ;
11044 int argvi = 0;
11045 int result;
11046 dXSARGS;
11047
11048 if ((items < 1) || (items > 1)) {
11049 SWIG_croak("Usage: gsl_permutation_valid(p);");
11050 }
11051 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
11052 if (!SWIG_IsOK(res1)) {
11053 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_valid" "', argument " "1"" of type '" "gsl_permutation const *""'");
11054 }
11055 arg1 = (gsl_permutation *)(argp1);
11056 result = (int)gsl_permutation_valid((struct gsl_permutation_struct const *)arg1);
11057 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
11058
11059 XSRETURN(argvi);
11060 fail:
11061
11062 SWIG_croak_null();
11063 }
11064 }
11065
11066
XS(_wrap_gsl_permutation_reverse)11067 XS(_wrap_gsl_permutation_reverse) {
11068 {
11069 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
11070 void *argp1 = 0 ;
11071 int res1 = 0 ;
11072 int argvi = 0;
11073 dXSARGS;
11074
11075 if ((items < 1) || (items > 1)) {
11076 SWIG_croak("Usage: gsl_permutation_reverse(p);");
11077 }
11078 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
11079 if (!SWIG_IsOK(res1)) {
11080 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_reverse" "', argument " "1"" of type '" "gsl_permutation *""'");
11081 }
11082 arg1 = (gsl_permutation *)(argp1);
11083 gsl_permutation_reverse(arg1);
11084 ST(argvi) = &PL_sv_undef;
11085
11086 XSRETURN(argvi);
11087 fail:
11088
11089 SWIG_croak_null();
11090 }
11091 }
11092
11093
XS(_wrap_gsl_permutation_inverse)11094 XS(_wrap_gsl_permutation_inverse) {
11095 {
11096 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
11097 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
11098 void *argp1 = 0 ;
11099 int res1 = 0 ;
11100 void *argp2 = 0 ;
11101 int res2 = 0 ;
11102 int argvi = 0;
11103 int result;
11104 dXSARGS;
11105
11106 if ((items < 2) || (items > 2)) {
11107 SWIG_croak("Usage: gsl_permutation_inverse(inv,p);");
11108 }
11109 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
11110 if (!SWIG_IsOK(res1)) {
11111 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_inverse" "', argument " "1"" of type '" "gsl_permutation *""'");
11112 }
11113 arg1 = (gsl_permutation *)(argp1);
11114 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
11115 if (!SWIG_IsOK(res2)) {
11116 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_permutation_inverse" "', argument " "2"" of type '" "gsl_permutation const *""'");
11117 }
11118 arg2 = (gsl_permutation *)(argp2);
11119 result = (int)gsl_permutation_inverse(arg1,(struct gsl_permutation_struct const *)arg2);
11120 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
11121
11122
11123 XSRETURN(argvi);
11124 fail:
11125
11126
11127 SWIG_croak_null();
11128 }
11129 }
11130
11131
XS(_wrap_gsl_permutation_next)11132 XS(_wrap_gsl_permutation_next) {
11133 {
11134 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
11135 void *argp1 = 0 ;
11136 int res1 = 0 ;
11137 int argvi = 0;
11138 int result;
11139 dXSARGS;
11140
11141 if ((items < 1) || (items > 1)) {
11142 SWIG_croak("Usage: gsl_permutation_next(p);");
11143 }
11144 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
11145 if (!SWIG_IsOK(res1)) {
11146 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_next" "', argument " "1"" of type '" "gsl_permutation *""'");
11147 }
11148 arg1 = (gsl_permutation *)(argp1);
11149 result = (int)gsl_permutation_next(arg1);
11150 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
11151
11152 XSRETURN(argvi);
11153 fail:
11154
11155 SWIG_croak_null();
11156 }
11157 }
11158
11159
XS(_wrap_gsl_permutation_prev)11160 XS(_wrap_gsl_permutation_prev) {
11161 {
11162 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
11163 void *argp1 = 0 ;
11164 int res1 = 0 ;
11165 int argvi = 0;
11166 int result;
11167 dXSARGS;
11168
11169 if ((items < 1) || (items > 1)) {
11170 SWIG_croak("Usage: gsl_permutation_prev(p);");
11171 }
11172 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
11173 if (!SWIG_IsOK(res1)) {
11174 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_prev" "', argument " "1"" of type '" "gsl_permutation *""'");
11175 }
11176 arg1 = (gsl_permutation *)(argp1);
11177 result = (int)gsl_permutation_prev(arg1);
11178 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
11179
11180 XSRETURN(argvi);
11181 fail:
11182
11183 SWIG_croak_null();
11184 }
11185 }
11186
11187
XS(_wrap_gsl_permutation_mul)11188 XS(_wrap_gsl_permutation_mul) {
11189 {
11190 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
11191 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
11192 gsl_permutation *arg3 = (gsl_permutation *) 0 ;
11193 void *argp1 = 0 ;
11194 int res1 = 0 ;
11195 void *argp2 = 0 ;
11196 int res2 = 0 ;
11197 void *argp3 = 0 ;
11198 int res3 = 0 ;
11199 int argvi = 0;
11200 int result;
11201 dXSARGS;
11202
11203 if ((items < 3) || (items > 3)) {
11204 SWIG_croak("Usage: gsl_permutation_mul(p,pa,pb);");
11205 }
11206 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
11207 if (!SWIG_IsOK(res1)) {
11208 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_mul" "', argument " "1"" of type '" "gsl_permutation *""'");
11209 }
11210 arg1 = (gsl_permutation *)(argp1);
11211 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
11212 if (!SWIG_IsOK(res2)) {
11213 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_permutation_mul" "', argument " "2"" of type '" "gsl_permutation const *""'");
11214 }
11215 arg2 = (gsl_permutation *)(argp2);
11216 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
11217 if (!SWIG_IsOK(res3)) {
11218 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_permutation_mul" "', argument " "3"" of type '" "gsl_permutation const *""'");
11219 }
11220 arg3 = (gsl_permutation *)(argp3);
11221 result = (int)gsl_permutation_mul(arg1,(struct gsl_permutation_struct const *)arg2,(struct gsl_permutation_struct const *)arg3);
11222 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
11223
11224
11225
11226 XSRETURN(argvi);
11227 fail:
11228
11229
11230
11231 SWIG_croak_null();
11232 }
11233 }
11234
11235
XS(_wrap_gsl_permutation_linear_to_canonical)11236 XS(_wrap_gsl_permutation_linear_to_canonical) {
11237 {
11238 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
11239 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
11240 void *argp1 = 0 ;
11241 int res1 = 0 ;
11242 void *argp2 = 0 ;
11243 int res2 = 0 ;
11244 int argvi = 0;
11245 int result;
11246 dXSARGS;
11247
11248 if ((items < 2) || (items > 2)) {
11249 SWIG_croak("Usage: gsl_permutation_linear_to_canonical(q,p);");
11250 }
11251 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
11252 if (!SWIG_IsOK(res1)) {
11253 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_linear_to_canonical" "', argument " "1"" of type '" "gsl_permutation *""'");
11254 }
11255 arg1 = (gsl_permutation *)(argp1);
11256 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
11257 if (!SWIG_IsOK(res2)) {
11258 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_permutation_linear_to_canonical" "', argument " "2"" of type '" "gsl_permutation const *""'");
11259 }
11260 arg2 = (gsl_permutation *)(argp2);
11261 result = (int)gsl_permutation_linear_to_canonical(arg1,(struct gsl_permutation_struct const *)arg2);
11262 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
11263
11264
11265 XSRETURN(argvi);
11266 fail:
11267
11268
11269 SWIG_croak_null();
11270 }
11271 }
11272
11273
XS(_wrap_gsl_permutation_canonical_to_linear)11274 XS(_wrap_gsl_permutation_canonical_to_linear) {
11275 {
11276 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
11277 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
11278 void *argp1 = 0 ;
11279 int res1 = 0 ;
11280 void *argp2 = 0 ;
11281 int res2 = 0 ;
11282 int argvi = 0;
11283 int result;
11284 dXSARGS;
11285
11286 if ((items < 2) || (items > 2)) {
11287 SWIG_croak("Usage: gsl_permutation_canonical_to_linear(p,q);");
11288 }
11289 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
11290 if (!SWIG_IsOK(res1)) {
11291 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_canonical_to_linear" "', argument " "1"" of type '" "gsl_permutation *""'");
11292 }
11293 arg1 = (gsl_permutation *)(argp1);
11294 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
11295 if (!SWIG_IsOK(res2)) {
11296 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_permutation_canonical_to_linear" "', argument " "2"" of type '" "gsl_permutation const *""'");
11297 }
11298 arg2 = (gsl_permutation *)(argp2);
11299 result = (int)gsl_permutation_canonical_to_linear(arg1,(struct gsl_permutation_struct const *)arg2);
11300 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
11301
11302
11303 XSRETURN(argvi);
11304 fail:
11305
11306
11307 SWIG_croak_null();
11308 }
11309 }
11310
11311
XS(_wrap_gsl_permutation_inversions)11312 XS(_wrap_gsl_permutation_inversions) {
11313 {
11314 gsl_permutation *arg1 = (gsl_permutation *) 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_permutation_inversions(p);");
11323 }
11324 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
11325 if (!SWIG_IsOK(res1)) {
11326 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_inversions" "', argument " "1"" of type '" "gsl_permutation const *""'");
11327 }
11328 arg1 = (gsl_permutation *)(argp1);
11329 result = gsl_permutation_inversions((struct gsl_permutation_struct const *)arg1);
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_gsl_permutation_linear_cycles)11340 XS(_wrap_gsl_permutation_linear_cycles) {
11341 {
11342 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
11343 void *argp1 = 0 ;
11344 int res1 = 0 ;
11345 int argvi = 0;
11346 size_t result;
11347 dXSARGS;
11348
11349 if ((items < 1) || (items > 1)) {
11350 SWIG_croak("Usage: gsl_permutation_linear_cycles(p);");
11351 }
11352 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
11353 if (!SWIG_IsOK(res1)) {
11354 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_linear_cycles" "', argument " "1"" of type '" "gsl_permutation const *""'");
11355 }
11356 arg1 = (gsl_permutation *)(argp1);
11357 result = gsl_permutation_linear_cycles((struct gsl_permutation_struct const *)arg1);
11358 ST(argvi) = SWIG_From_size_t SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
11359
11360 XSRETURN(argvi);
11361 fail:
11362
11363 SWIG_croak_null();
11364 }
11365 }
11366
11367
XS(_wrap_gsl_permutation_canonical_cycles)11368 XS(_wrap_gsl_permutation_canonical_cycles) {
11369 {
11370 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
11371 void *argp1 = 0 ;
11372 int res1 = 0 ;
11373 int argvi = 0;
11374 size_t result;
11375 dXSARGS;
11376
11377 if ((items < 1) || (items > 1)) {
11378 SWIG_croak("Usage: gsl_permutation_canonical_cycles(q);");
11379 }
11380 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
11381 if (!SWIG_IsOK(res1)) {
11382 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_canonical_cycles" "', argument " "1"" of type '" "gsl_permutation const *""'");
11383 }
11384 arg1 = (gsl_permutation *)(argp1);
11385 result = gsl_permutation_canonical_cycles((struct gsl_permutation_struct const *)arg1);
11386 ST(argvi) = SWIG_From_size_t SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
11387
11388 XSRETURN(argvi);
11389 fail:
11390
11391 SWIG_croak_null();
11392 }
11393 }
11394
11395
XS(_wrap_gsl_permutation_get)11396 XS(_wrap_gsl_permutation_get) {
11397 {
11398 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
11399 size_t arg2 ;
11400 void *argp1 = 0 ;
11401 int res1 = 0 ;
11402 size_t val2 ;
11403 int ecode2 = 0 ;
11404 int argvi = 0;
11405 size_t result;
11406 dXSARGS;
11407
11408 if ((items < 2) || (items > 2)) {
11409 SWIG_croak("Usage: gsl_permutation_get(p,i);");
11410 }
11411 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
11412 if (!SWIG_IsOK(res1)) {
11413 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_get" "', argument " "1"" of type '" "gsl_permutation const *""'");
11414 }
11415 arg1 = (gsl_permutation *)(argp1);
11416 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
11417 if (!SWIG_IsOK(ecode2)) {
11418 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_permutation_get" "', argument " "2"" of type '" "size_t""'");
11419 }
11420 arg2 = (size_t)(val2);
11421 result = gsl_permutation_get((struct gsl_permutation_struct const *)arg1,arg2);
11422 ST(argvi) = SWIG_From_size_t SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
11423
11424
11425 XSRETURN(argvi);
11426 fail:
11427
11428
11429 SWIG_croak_null();
11430 }
11431 }
11432
11433
XS(_wrap_gsl_complex_dat_set)11434 XS(_wrap_gsl_complex_dat_set) {
11435 {
11436 gsl_complex *arg1 = (gsl_complex *) 0 ;
11437 double *arg2 ;
11438 void *argp1 = 0 ;
11439 int res1 = 0 ;
11440 void *argp2 = 0 ;
11441 int res2 = 0 ;
11442 int argvi = 0;
11443 dXSARGS;
11444
11445 if ((items < 2) || (items > 2)) {
11446 SWIG_croak("Usage: gsl_complex_dat_set(self,dat);");
11447 }
11448 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_complex, 0 | 0 );
11449 if (!SWIG_IsOK(res1)) {
11450 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_dat_set" "', argument " "1"" of type '" "gsl_complex *""'");
11451 }
11452 arg1 = (gsl_complex *)(argp1);
11453 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_double, 0 | 0 );
11454 if (!SWIG_IsOK(res2)) {
11455 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_complex_dat_set" "', argument " "2"" of type '" "double [2]""'");
11456 }
11457 arg2 = (double *)(argp2);
11458 {
11459 if (arg2) {
11460 size_t ii = 0;
11461 for (; ii < (size_t)2; ++ii) *(double *)&arg1->dat[ii] = *((double *)arg2 + ii);
11462 } else {
11463 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in variable '""dat""' of type '""double [2]""'");
11464 }
11465 }
11466 ST(argvi) = &PL_sv_undef;
11467
11468
11469 XSRETURN(argvi);
11470 fail:
11471
11472
11473 SWIG_croak_null();
11474 }
11475 }
11476
11477
XS(_wrap_gsl_complex_dat_get)11478 XS(_wrap_gsl_complex_dat_get) {
11479 {
11480 gsl_complex *arg1 = (gsl_complex *) 0 ;
11481 void *argp1 = 0 ;
11482 int res1 = 0 ;
11483 int argvi = 0;
11484 double *result = 0 ;
11485 dXSARGS;
11486
11487 if ((items < 1) || (items > 1)) {
11488 SWIG_croak("Usage: gsl_complex_dat_get(self);");
11489 }
11490 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_complex, 0 | 0 );
11491 if (!SWIG_IsOK(res1)) {
11492 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_dat_get" "', argument " "1"" of type '" "gsl_complex *""'");
11493 }
11494 arg1 = (gsl_complex *)(argp1);
11495 result = (double *)(double *) ((arg1)->dat);
11496 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_double, 0 | 0); argvi++ ;
11497
11498 XSRETURN(argvi);
11499 fail:
11500
11501 SWIG_croak_null();
11502 }
11503 }
11504
11505
XS(_wrap_new_gsl_complex)11506 XS(_wrap_new_gsl_complex) {
11507 {
11508 int argvi = 0;
11509 gsl_complex *result = 0 ;
11510 dXSARGS;
11511
11512 if ((items < 0) || (items > 0)) {
11513 SWIG_croak("Usage: new_gsl_complex();");
11514 }
11515 result = (gsl_complex *)calloc(1, sizeof(gsl_complex));
11516 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_complex, SWIG_OWNER | SWIG_SHADOW); argvi++ ;
11517 XSRETURN(argvi);
11518 fail:
11519 SWIG_croak_null();
11520 }
11521 }
11522
11523
XS(_wrap_delete_gsl_complex)11524 XS(_wrap_delete_gsl_complex) {
11525 {
11526 gsl_complex *arg1 = (gsl_complex *) 0 ;
11527 void *argp1 = 0 ;
11528 int res1 = 0 ;
11529 int argvi = 0;
11530 dXSARGS;
11531
11532 if ((items < 1) || (items > 1)) {
11533 SWIG_croak("Usage: delete_gsl_complex(self);");
11534 }
11535 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_complex, SWIG_POINTER_DISOWN | 0 );
11536 if (!SWIG_IsOK(res1)) {
11537 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "delete_gsl_complex" "', argument " "1"" of type '" "gsl_complex *""'");
11538 }
11539 arg1 = (gsl_complex *)(argp1);
11540 free((char *) arg1);
11541 ST(argvi) = &PL_sv_undef;
11542
11543 XSRETURN(argvi);
11544 fail:
11545
11546 SWIG_croak_null();
11547 }
11548 }
11549
11550
XS(_wrap_gsl_complex_long_double_dat_set)11551 XS(_wrap_gsl_complex_long_double_dat_set) {
11552 {
11553 gsl_complex_long_double *arg1 = (gsl_complex_long_double *) 0 ;
11554 long double *arg2 ;
11555 void *argp1 = 0 ;
11556 int res1 = 0 ;
11557 void *argp2 = 0 ;
11558 int res2 = 0 ;
11559 int argvi = 0;
11560 dXSARGS;
11561
11562 if ((items < 2) || (items > 2)) {
11563 SWIG_croak("Usage: gsl_complex_long_double_dat_set(self,dat);");
11564 }
11565 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_complex_long_double, 0 | 0 );
11566 if (!SWIG_IsOK(res1)) {
11567 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_long_double_dat_set" "', argument " "1"" of type '" "gsl_complex_long_double *""'");
11568 }
11569 arg1 = (gsl_complex_long_double *)(argp1);
11570 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_long_double, 0 | 0 );
11571 if (!SWIG_IsOK(res2)) {
11572 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_complex_long_double_dat_set" "', argument " "2"" of type '" "long double [2]""'");
11573 }
11574 arg2 = (long double *)(argp2);
11575 {
11576 if (arg2) {
11577 size_t ii = 0;
11578 for (; ii < (size_t)2; ++ii) *(long double *)&arg1->dat[ii] = *((long double *)arg2 + ii);
11579 } else {
11580 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in variable '""dat""' of type '""long double [2]""'");
11581 }
11582 }
11583 ST(argvi) = &PL_sv_undef;
11584
11585
11586 XSRETURN(argvi);
11587 fail:
11588
11589
11590 SWIG_croak_null();
11591 }
11592 }
11593
11594
XS(_wrap_gsl_complex_long_double_dat_get)11595 XS(_wrap_gsl_complex_long_double_dat_get) {
11596 {
11597 gsl_complex_long_double *arg1 = (gsl_complex_long_double *) 0 ;
11598 void *argp1 = 0 ;
11599 int res1 = 0 ;
11600 int argvi = 0;
11601 long double *result = 0 ;
11602 dXSARGS;
11603
11604 if ((items < 1) || (items > 1)) {
11605 SWIG_croak("Usage: gsl_complex_long_double_dat_get(self);");
11606 }
11607 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_complex_long_double, 0 | 0 );
11608 if (!SWIG_IsOK(res1)) {
11609 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_long_double_dat_get" "', argument " "1"" of type '" "gsl_complex_long_double *""'");
11610 }
11611 arg1 = (gsl_complex_long_double *)(argp1);
11612 result = (long double *)(long double *) ((arg1)->dat);
11613 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_long_double, 0 | 0); argvi++ ;
11614
11615 XSRETURN(argvi);
11616 fail:
11617
11618 SWIG_croak_null();
11619 }
11620 }
11621
11622
XS(_wrap_new_gsl_complex_long_double)11623 XS(_wrap_new_gsl_complex_long_double) {
11624 {
11625 int argvi = 0;
11626 gsl_complex_long_double *result = 0 ;
11627 dXSARGS;
11628
11629 if ((items < 0) || (items > 0)) {
11630 SWIG_croak("Usage: new_gsl_complex_long_double();");
11631 }
11632 result = (gsl_complex_long_double *)calloc(1, sizeof(gsl_complex_long_double));
11633 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_complex_long_double, SWIG_OWNER | SWIG_SHADOW); argvi++ ;
11634 XSRETURN(argvi);
11635 fail:
11636 SWIG_croak_null();
11637 }
11638 }
11639
11640
XS(_wrap_delete_gsl_complex_long_double)11641 XS(_wrap_delete_gsl_complex_long_double) {
11642 {
11643 gsl_complex_long_double *arg1 = (gsl_complex_long_double *) 0 ;
11644 void *argp1 = 0 ;
11645 int res1 = 0 ;
11646 int argvi = 0;
11647 dXSARGS;
11648
11649 if ((items < 1) || (items > 1)) {
11650 SWIG_croak("Usage: delete_gsl_complex_long_double(self);");
11651 }
11652 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_complex_long_double, SWIG_POINTER_DISOWN | 0 );
11653 if (!SWIG_IsOK(res1)) {
11654 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "delete_gsl_complex_long_double" "', argument " "1"" of type '" "gsl_complex_long_double *""'");
11655 }
11656 arg1 = (gsl_complex_long_double *)(argp1);
11657 free((char *) arg1);
11658 ST(argvi) = &PL_sv_undef;
11659
11660 XSRETURN(argvi);
11661 fail:
11662
11663 SWIG_croak_null();
11664 }
11665 }
11666
11667
XS(_wrap_gsl_complex_float_dat_set)11668 XS(_wrap_gsl_complex_float_dat_set) {
11669 {
11670 gsl_complex_float *arg1 = (gsl_complex_float *) 0 ;
11671 float *arg2 ;
11672 void *argp1 = 0 ;
11673 int res1 = 0 ;
11674 void *argp2 = 0 ;
11675 int res2 = 0 ;
11676 int argvi = 0;
11677 dXSARGS;
11678
11679 if ((items < 2) || (items > 2)) {
11680 SWIG_croak("Usage: gsl_complex_float_dat_set(self,dat);");
11681 }
11682 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_complex_float, 0 | 0 );
11683 if (!SWIG_IsOK(res1)) {
11684 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_float_dat_set" "', argument " "1"" of type '" "gsl_complex_float *""'");
11685 }
11686 arg1 = (gsl_complex_float *)(argp1);
11687 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_float, 0 | 0 );
11688 if (!SWIG_IsOK(res2)) {
11689 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_complex_float_dat_set" "', argument " "2"" of type '" "float [2]""'");
11690 }
11691 arg2 = (float *)(argp2);
11692 {
11693 if (arg2) {
11694 size_t ii = 0;
11695 for (; ii < (size_t)2; ++ii) *(float *)&arg1->dat[ii] = *((float *)arg2 + ii);
11696 } else {
11697 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in variable '""dat""' of type '""float [2]""'");
11698 }
11699 }
11700 ST(argvi) = &PL_sv_undef;
11701
11702
11703 XSRETURN(argvi);
11704 fail:
11705
11706
11707 SWIG_croak_null();
11708 }
11709 }
11710
11711
XS(_wrap_gsl_complex_float_dat_get)11712 XS(_wrap_gsl_complex_float_dat_get) {
11713 {
11714 gsl_complex_float *arg1 = (gsl_complex_float *) 0 ;
11715 void *argp1 = 0 ;
11716 int res1 = 0 ;
11717 int argvi = 0;
11718 float *result = 0 ;
11719 dXSARGS;
11720
11721 if ((items < 1) || (items > 1)) {
11722 SWIG_croak("Usage: gsl_complex_float_dat_get(self);");
11723 }
11724 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_complex_float, 0 | 0 );
11725 if (!SWIG_IsOK(res1)) {
11726 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_float_dat_get" "', argument " "1"" of type '" "gsl_complex_float *""'");
11727 }
11728 arg1 = (gsl_complex_float *)(argp1);
11729 result = (float *)(float *) ((arg1)->dat);
11730 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_float, 0 | 0); argvi++ ;
11731
11732 XSRETURN(argvi);
11733 fail:
11734
11735 SWIG_croak_null();
11736 }
11737 }
11738
11739
XS(_wrap_new_gsl_complex_float)11740 XS(_wrap_new_gsl_complex_float) {
11741 {
11742 int argvi = 0;
11743 gsl_complex_float *result = 0 ;
11744 dXSARGS;
11745
11746 if ((items < 0) || (items > 0)) {
11747 SWIG_croak("Usage: new_gsl_complex_float();");
11748 }
11749 result = (gsl_complex_float *)calloc(1, sizeof(gsl_complex_float));
11750 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_complex_float, SWIG_OWNER | SWIG_SHADOW); argvi++ ;
11751 XSRETURN(argvi);
11752 fail:
11753 SWIG_croak_null();
11754 }
11755 }
11756
11757
XS(_wrap_delete_gsl_complex_float)11758 XS(_wrap_delete_gsl_complex_float) {
11759 {
11760 gsl_complex_float *arg1 = (gsl_complex_float *) 0 ;
11761 void *argp1 = 0 ;
11762 int res1 = 0 ;
11763 int argvi = 0;
11764 dXSARGS;
11765
11766 if ((items < 1) || (items > 1)) {
11767 SWIG_croak("Usage: delete_gsl_complex_float(self);");
11768 }
11769 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_complex_float, SWIG_POINTER_DISOWN | 0 );
11770 if (!SWIG_IsOK(res1)) {
11771 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "delete_gsl_complex_float" "', argument " "1"" of type '" "gsl_complex_float *""'");
11772 }
11773 arg1 = (gsl_complex_float *)(argp1);
11774 free((char *) arg1);
11775 ST(argvi) = &PL_sv_undef;
11776
11777 XSRETURN(argvi);
11778 fail:
11779
11780 SWIG_croak_null();
11781 }
11782 }
11783
11784
XS(_wrap_gsl_complex_polar)11785 XS(_wrap_gsl_complex_polar) {
11786 {
11787 double arg1 ;
11788 double arg2 ;
11789 double val1 ;
11790 int ecode1 = 0 ;
11791 double val2 ;
11792 int ecode2 = 0 ;
11793 int argvi = 0;
11794 gsl_complex result;
11795 dXSARGS;
11796
11797 if ((items < 2) || (items > 2)) {
11798 SWIG_croak("Usage: gsl_complex_polar(r,theta);");
11799 }
11800 ecode1 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
11801 if (!SWIG_IsOK(ecode1)) {
11802 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_complex_polar" "', argument " "1"" of type '" "double""'");
11803 }
11804 arg1 = (double)(val1);
11805 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
11806 if (!SWIG_IsOK(ecode2)) {
11807 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_complex_polar" "', argument " "2"" of type '" "double""'");
11808 }
11809 arg2 = (double)(val2);
11810 result = gsl_complex_polar(arg1,arg2);
11811 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
11812
11813
11814 XSRETURN(argvi);
11815 fail:
11816
11817
11818 SWIG_croak_null();
11819 }
11820 }
11821
11822
XS(_wrap_gsl_complex_rect)11823 XS(_wrap_gsl_complex_rect) {
11824 {
11825 double arg1 ;
11826 double arg2 ;
11827 double val1 ;
11828 int ecode1 = 0 ;
11829 double val2 ;
11830 int ecode2 = 0 ;
11831 int argvi = 0;
11832 gsl_complex result;
11833 dXSARGS;
11834
11835 if ((items < 2) || (items > 2)) {
11836 SWIG_croak("Usage: gsl_complex_rect(x,y);");
11837 }
11838 ecode1 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
11839 if (!SWIG_IsOK(ecode1)) {
11840 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_complex_rect" "', argument " "1"" of type '" "double""'");
11841 }
11842 arg1 = (double)(val1);
11843 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
11844 if (!SWIG_IsOK(ecode2)) {
11845 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_complex_rect" "', argument " "2"" of type '" "double""'");
11846 }
11847 arg2 = (double)(val2);
11848 result = gsl_complex_rect(arg1,arg2);
11849 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
11850
11851
11852 XSRETURN(argvi);
11853 fail:
11854
11855
11856 SWIG_croak_null();
11857 }
11858 }
11859
11860
XS(_wrap_gsl_complex_arg)11861 XS(_wrap_gsl_complex_arg) {
11862 {
11863 gsl_complex arg1 ;
11864 void *argp1 ;
11865 int res1 = 0 ;
11866 int argvi = 0;
11867 double result;
11868 dXSARGS;
11869
11870 if ((items < 1) || (items > 1)) {
11871 SWIG_croak("Usage: gsl_complex_arg(z);");
11872 }
11873 {
11874 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
11875 if (!SWIG_IsOK(res1)) {
11876 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_arg" "', argument " "1"" of type '" "gsl_complex""'");
11877 }
11878 if (!argp1) {
11879 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_arg" "', argument " "1"" of type '" "gsl_complex""'");
11880 } else {
11881 arg1 = *((gsl_complex *)(argp1));
11882 }
11883 }
11884 result = (double)gsl_complex_arg(arg1);
11885 ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(result)); argvi++ ;
11886 XSRETURN(argvi);
11887 fail:
11888 SWIG_croak_null();
11889 }
11890 }
11891
11892
XS(_wrap_gsl_complex_abs)11893 XS(_wrap_gsl_complex_abs) {
11894 {
11895 gsl_complex arg1 ;
11896 void *argp1 ;
11897 int res1 = 0 ;
11898 int argvi = 0;
11899 double result;
11900 dXSARGS;
11901
11902 if ((items < 1) || (items > 1)) {
11903 SWIG_croak("Usage: gsl_complex_abs(z);");
11904 }
11905 {
11906 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
11907 if (!SWIG_IsOK(res1)) {
11908 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_abs" "', argument " "1"" of type '" "gsl_complex""'");
11909 }
11910 if (!argp1) {
11911 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_abs" "', argument " "1"" of type '" "gsl_complex""'");
11912 } else {
11913 arg1 = *((gsl_complex *)(argp1));
11914 }
11915 }
11916 result = (double)gsl_complex_abs(arg1);
11917 ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(result)); argvi++ ;
11918 XSRETURN(argvi);
11919 fail:
11920 SWIG_croak_null();
11921 }
11922 }
11923
11924
XS(_wrap_gsl_complex_abs2)11925 XS(_wrap_gsl_complex_abs2) {
11926 {
11927 gsl_complex arg1 ;
11928 void *argp1 ;
11929 int res1 = 0 ;
11930 int argvi = 0;
11931 double result;
11932 dXSARGS;
11933
11934 if ((items < 1) || (items > 1)) {
11935 SWIG_croak("Usage: gsl_complex_abs2(z);");
11936 }
11937 {
11938 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
11939 if (!SWIG_IsOK(res1)) {
11940 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_abs2" "', argument " "1"" of type '" "gsl_complex""'");
11941 }
11942 if (!argp1) {
11943 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_abs2" "', argument " "1"" of type '" "gsl_complex""'");
11944 } else {
11945 arg1 = *((gsl_complex *)(argp1));
11946 }
11947 }
11948 result = (double)gsl_complex_abs2(arg1);
11949 ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(result)); argvi++ ;
11950 XSRETURN(argvi);
11951 fail:
11952 SWIG_croak_null();
11953 }
11954 }
11955
11956
XS(_wrap_gsl_complex_logabs)11957 XS(_wrap_gsl_complex_logabs) {
11958 {
11959 gsl_complex arg1 ;
11960 void *argp1 ;
11961 int res1 = 0 ;
11962 int argvi = 0;
11963 double result;
11964 dXSARGS;
11965
11966 if ((items < 1) || (items > 1)) {
11967 SWIG_croak("Usage: gsl_complex_logabs(z);");
11968 }
11969 {
11970 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
11971 if (!SWIG_IsOK(res1)) {
11972 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_logabs" "', argument " "1"" of type '" "gsl_complex""'");
11973 }
11974 if (!argp1) {
11975 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_logabs" "', argument " "1"" of type '" "gsl_complex""'");
11976 } else {
11977 arg1 = *((gsl_complex *)(argp1));
11978 }
11979 }
11980 result = (double)gsl_complex_logabs(arg1);
11981 ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(result)); argvi++ ;
11982 XSRETURN(argvi);
11983 fail:
11984 SWIG_croak_null();
11985 }
11986 }
11987
11988
XS(_wrap_gsl_complex_add)11989 XS(_wrap_gsl_complex_add) {
11990 {
11991 gsl_complex arg1 ;
11992 gsl_complex arg2 ;
11993 void *argp1 ;
11994 int res1 = 0 ;
11995 void *argp2 ;
11996 int res2 = 0 ;
11997 int argvi = 0;
11998 gsl_complex result;
11999 dXSARGS;
12000
12001 if ((items < 2) || (items > 2)) {
12002 SWIG_croak("Usage: gsl_complex_add(a,b);");
12003 }
12004 {
12005 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
12006 if (!SWIG_IsOK(res1)) {
12007 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_add" "', argument " "1"" of type '" "gsl_complex""'");
12008 }
12009 if (!argp1) {
12010 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_add" "', argument " "1"" of type '" "gsl_complex""'");
12011 } else {
12012 arg1 = *((gsl_complex *)(argp1));
12013 }
12014 }
12015 {
12016 res2 = SWIG_ConvertPtr(ST(1), &argp2, SWIGTYPE_p_gsl_complex, 0 );
12017 if (!SWIG_IsOK(res2)) {
12018 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_complex_add" "', argument " "2"" of type '" "gsl_complex""'");
12019 }
12020 if (!argp2) {
12021 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_add" "', argument " "2"" of type '" "gsl_complex""'");
12022 } else {
12023 arg2 = *((gsl_complex *)(argp2));
12024 }
12025 }
12026 result = gsl_complex_add(arg1,arg2);
12027 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
12028 XSRETURN(argvi);
12029 fail:
12030 SWIG_croak_null();
12031 }
12032 }
12033
12034
XS(_wrap_gsl_complex_sub)12035 XS(_wrap_gsl_complex_sub) {
12036 {
12037 gsl_complex arg1 ;
12038 gsl_complex arg2 ;
12039 void *argp1 ;
12040 int res1 = 0 ;
12041 void *argp2 ;
12042 int res2 = 0 ;
12043 int argvi = 0;
12044 gsl_complex result;
12045 dXSARGS;
12046
12047 if ((items < 2) || (items > 2)) {
12048 SWIG_croak("Usage: gsl_complex_sub(a,b);");
12049 }
12050 {
12051 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
12052 if (!SWIG_IsOK(res1)) {
12053 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_sub" "', argument " "1"" of type '" "gsl_complex""'");
12054 }
12055 if (!argp1) {
12056 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_sub" "', argument " "1"" of type '" "gsl_complex""'");
12057 } else {
12058 arg1 = *((gsl_complex *)(argp1));
12059 }
12060 }
12061 {
12062 res2 = SWIG_ConvertPtr(ST(1), &argp2, SWIGTYPE_p_gsl_complex, 0 );
12063 if (!SWIG_IsOK(res2)) {
12064 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_complex_sub" "', argument " "2"" of type '" "gsl_complex""'");
12065 }
12066 if (!argp2) {
12067 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_sub" "', argument " "2"" of type '" "gsl_complex""'");
12068 } else {
12069 arg2 = *((gsl_complex *)(argp2));
12070 }
12071 }
12072 result = gsl_complex_sub(arg1,arg2);
12073 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
12074 XSRETURN(argvi);
12075 fail:
12076 SWIG_croak_null();
12077 }
12078 }
12079
12080
XS(_wrap_gsl_complex_mul)12081 XS(_wrap_gsl_complex_mul) {
12082 {
12083 gsl_complex arg1 ;
12084 gsl_complex arg2 ;
12085 void *argp1 ;
12086 int res1 = 0 ;
12087 void *argp2 ;
12088 int res2 = 0 ;
12089 int argvi = 0;
12090 gsl_complex result;
12091 dXSARGS;
12092
12093 if ((items < 2) || (items > 2)) {
12094 SWIG_croak("Usage: gsl_complex_mul(a,b);");
12095 }
12096 {
12097 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
12098 if (!SWIG_IsOK(res1)) {
12099 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_mul" "', argument " "1"" of type '" "gsl_complex""'");
12100 }
12101 if (!argp1) {
12102 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_mul" "', argument " "1"" of type '" "gsl_complex""'");
12103 } else {
12104 arg1 = *((gsl_complex *)(argp1));
12105 }
12106 }
12107 {
12108 res2 = SWIG_ConvertPtr(ST(1), &argp2, SWIGTYPE_p_gsl_complex, 0 );
12109 if (!SWIG_IsOK(res2)) {
12110 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_complex_mul" "', argument " "2"" of type '" "gsl_complex""'");
12111 }
12112 if (!argp2) {
12113 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_mul" "', argument " "2"" of type '" "gsl_complex""'");
12114 } else {
12115 arg2 = *((gsl_complex *)(argp2));
12116 }
12117 }
12118 result = gsl_complex_mul(arg1,arg2);
12119 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
12120 XSRETURN(argvi);
12121 fail:
12122 SWIG_croak_null();
12123 }
12124 }
12125
12126
XS(_wrap_gsl_complex_div)12127 XS(_wrap_gsl_complex_div) {
12128 {
12129 gsl_complex arg1 ;
12130 gsl_complex arg2 ;
12131 void *argp1 ;
12132 int res1 = 0 ;
12133 void *argp2 ;
12134 int res2 = 0 ;
12135 int argvi = 0;
12136 gsl_complex result;
12137 dXSARGS;
12138
12139 if ((items < 2) || (items > 2)) {
12140 SWIG_croak("Usage: gsl_complex_div(a,b);");
12141 }
12142 {
12143 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
12144 if (!SWIG_IsOK(res1)) {
12145 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_div" "', argument " "1"" of type '" "gsl_complex""'");
12146 }
12147 if (!argp1) {
12148 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_div" "', argument " "1"" of type '" "gsl_complex""'");
12149 } else {
12150 arg1 = *((gsl_complex *)(argp1));
12151 }
12152 }
12153 {
12154 res2 = SWIG_ConvertPtr(ST(1), &argp2, SWIGTYPE_p_gsl_complex, 0 );
12155 if (!SWIG_IsOK(res2)) {
12156 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_complex_div" "', argument " "2"" of type '" "gsl_complex""'");
12157 }
12158 if (!argp2) {
12159 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_div" "', argument " "2"" of type '" "gsl_complex""'");
12160 } else {
12161 arg2 = *((gsl_complex *)(argp2));
12162 }
12163 }
12164 result = gsl_complex_div(arg1,arg2);
12165 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
12166 XSRETURN(argvi);
12167 fail:
12168 SWIG_croak_null();
12169 }
12170 }
12171
12172
XS(_wrap_gsl_complex_add_real)12173 XS(_wrap_gsl_complex_add_real) {
12174 {
12175 gsl_complex arg1 ;
12176 double arg2 ;
12177 void *argp1 ;
12178 int res1 = 0 ;
12179 double val2 ;
12180 int ecode2 = 0 ;
12181 int argvi = 0;
12182 gsl_complex result;
12183 dXSARGS;
12184
12185 if ((items < 2) || (items > 2)) {
12186 SWIG_croak("Usage: gsl_complex_add_real(a,x);");
12187 }
12188 {
12189 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
12190 if (!SWIG_IsOK(res1)) {
12191 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_add_real" "', argument " "1"" of type '" "gsl_complex""'");
12192 }
12193 if (!argp1) {
12194 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_add_real" "', argument " "1"" of type '" "gsl_complex""'");
12195 } else {
12196 arg1 = *((gsl_complex *)(argp1));
12197 }
12198 }
12199 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
12200 if (!SWIG_IsOK(ecode2)) {
12201 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_complex_add_real" "', argument " "2"" of type '" "double""'");
12202 }
12203 arg2 = (double)(val2);
12204 result = gsl_complex_add_real(arg1,arg2);
12205 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
12206
12207 XSRETURN(argvi);
12208 fail:
12209
12210 SWIG_croak_null();
12211 }
12212 }
12213
12214
XS(_wrap_gsl_complex_sub_real)12215 XS(_wrap_gsl_complex_sub_real) {
12216 {
12217 gsl_complex arg1 ;
12218 double arg2 ;
12219 void *argp1 ;
12220 int res1 = 0 ;
12221 double val2 ;
12222 int ecode2 = 0 ;
12223 int argvi = 0;
12224 gsl_complex result;
12225 dXSARGS;
12226
12227 if ((items < 2) || (items > 2)) {
12228 SWIG_croak("Usage: gsl_complex_sub_real(a,x);");
12229 }
12230 {
12231 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
12232 if (!SWIG_IsOK(res1)) {
12233 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_sub_real" "', argument " "1"" of type '" "gsl_complex""'");
12234 }
12235 if (!argp1) {
12236 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_sub_real" "', argument " "1"" of type '" "gsl_complex""'");
12237 } else {
12238 arg1 = *((gsl_complex *)(argp1));
12239 }
12240 }
12241 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
12242 if (!SWIG_IsOK(ecode2)) {
12243 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_complex_sub_real" "', argument " "2"" of type '" "double""'");
12244 }
12245 arg2 = (double)(val2);
12246 result = gsl_complex_sub_real(arg1,arg2);
12247 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
12248
12249 XSRETURN(argvi);
12250 fail:
12251
12252 SWIG_croak_null();
12253 }
12254 }
12255
12256
XS(_wrap_gsl_complex_mul_real)12257 XS(_wrap_gsl_complex_mul_real) {
12258 {
12259 gsl_complex arg1 ;
12260 double arg2 ;
12261 void *argp1 ;
12262 int res1 = 0 ;
12263 double val2 ;
12264 int ecode2 = 0 ;
12265 int argvi = 0;
12266 gsl_complex result;
12267 dXSARGS;
12268
12269 if ((items < 2) || (items > 2)) {
12270 SWIG_croak("Usage: gsl_complex_mul_real(a,x);");
12271 }
12272 {
12273 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
12274 if (!SWIG_IsOK(res1)) {
12275 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_mul_real" "', argument " "1"" of type '" "gsl_complex""'");
12276 }
12277 if (!argp1) {
12278 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_mul_real" "', argument " "1"" of type '" "gsl_complex""'");
12279 } else {
12280 arg1 = *((gsl_complex *)(argp1));
12281 }
12282 }
12283 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
12284 if (!SWIG_IsOK(ecode2)) {
12285 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_complex_mul_real" "', argument " "2"" of type '" "double""'");
12286 }
12287 arg2 = (double)(val2);
12288 result = gsl_complex_mul_real(arg1,arg2);
12289 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
12290
12291 XSRETURN(argvi);
12292 fail:
12293
12294 SWIG_croak_null();
12295 }
12296 }
12297
12298
XS(_wrap_gsl_complex_div_real)12299 XS(_wrap_gsl_complex_div_real) {
12300 {
12301 gsl_complex arg1 ;
12302 double arg2 ;
12303 void *argp1 ;
12304 int res1 = 0 ;
12305 double val2 ;
12306 int ecode2 = 0 ;
12307 int argvi = 0;
12308 gsl_complex result;
12309 dXSARGS;
12310
12311 if ((items < 2) || (items > 2)) {
12312 SWIG_croak("Usage: gsl_complex_div_real(a,x);");
12313 }
12314 {
12315 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
12316 if (!SWIG_IsOK(res1)) {
12317 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_div_real" "', argument " "1"" of type '" "gsl_complex""'");
12318 }
12319 if (!argp1) {
12320 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_div_real" "', argument " "1"" of type '" "gsl_complex""'");
12321 } else {
12322 arg1 = *((gsl_complex *)(argp1));
12323 }
12324 }
12325 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
12326 if (!SWIG_IsOK(ecode2)) {
12327 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_complex_div_real" "', argument " "2"" of type '" "double""'");
12328 }
12329 arg2 = (double)(val2);
12330 result = gsl_complex_div_real(arg1,arg2);
12331 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
12332
12333 XSRETURN(argvi);
12334 fail:
12335
12336 SWIG_croak_null();
12337 }
12338 }
12339
12340
XS(_wrap_gsl_complex_add_imag)12341 XS(_wrap_gsl_complex_add_imag) {
12342 {
12343 gsl_complex arg1 ;
12344 double arg2 ;
12345 void *argp1 ;
12346 int res1 = 0 ;
12347 double val2 ;
12348 int ecode2 = 0 ;
12349 int argvi = 0;
12350 gsl_complex result;
12351 dXSARGS;
12352
12353 if ((items < 2) || (items > 2)) {
12354 SWIG_croak("Usage: gsl_complex_add_imag(a,y);");
12355 }
12356 {
12357 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
12358 if (!SWIG_IsOK(res1)) {
12359 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_add_imag" "', argument " "1"" of type '" "gsl_complex""'");
12360 }
12361 if (!argp1) {
12362 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_add_imag" "', argument " "1"" of type '" "gsl_complex""'");
12363 } else {
12364 arg1 = *((gsl_complex *)(argp1));
12365 }
12366 }
12367 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
12368 if (!SWIG_IsOK(ecode2)) {
12369 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_complex_add_imag" "', argument " "2"" of type '" "double""'");
12370 }
12371 arg2 = (double)(val2);
12372 result = gsl_complex_add_imag(arg1,arg2);
12373 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
12374
12375 XSRETURN(argvi);
12376 fail:
12377
12378 SWIG_croak_null();
12379 }
12380 }
12381
12382
XS(_wrap_gsl_complex_sub_imag)12383 XS(_wrap_gsl_complex_sub_imag) {
12384 {
12385 gsl_complex arg1 ;
12386 double arg2 ;
12387 void *argp1 ;
12388 int res1 = 0 ;
12389 double val2 ;
12390 int ecode2 = 0 ;
12391 int argvi = 0;
12392 gsl_complex result;
12393 dXSARGS;
12394
12395 if ((items < 2) || (items > 2)) {
12396 SWIG_croak("Usage: gsl_complex_sub_imag(a,y);");
12397 }
12398 {
12399 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
12400 if (!SWIG_IsOK(res1)) {
12401 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_sub_imag" "', argument " "1"" of type '" "gsl_complex""'");
12402 }
12403 if (!argp1) {
12404 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_sub_imag" "', argument " "1"" of type '" "gsl_complex""'");
12405 } else {
12406 arg1 = *((gsl_complex *)(argp1));
12407 }
12408 }
12409 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
12410 if (!SWIG_IsOK(ecode2)) {
12411 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_complex_sub_imag" "', argument " "2"" of type '" "double""'");
12412 }
12413 arg2 = (double)(val2);
12414 result = gsl_complex_sub_imag(arg1,arg2);
12415 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
12416
12417 XSRETURN(argvi);
12418 fail:
12419
12420 SWIG_croak_null();
12421 }
12422 }
12423
12424
XS(_wrap_gsl_complex_mul_imag)12425 XS(_wrap_gsl_complex_mul_imag) {
12426 {
12427 gsl_complex arg1 ;
12428 double arg2 ;
12429 void *argp1 ;
12430 int res1 = 0 ;
12431 double val2 ;
12432 int ecode2 = 0 ;
12433 int argvi = 0;
12434 gsl_complex result;
12435 dXSARGS;
12436
12437 if ((items < 2) || (items > 2)) {
12438 SWIG_croak("Usage: gsl_complex_mul_imag(a,y);");
12439 }
12440 {
12441 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
12442 if (!SWIG_IsOK(res1)) {
12443 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_mul_imag" "', argument " "1"" of type '" "gsl_complex""'");
12444 }
12445 if (!argp1) {
12446 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_mul_imag" "', argument " "1"" of type '" "gsl_complex""'");
12447 } else {
12448 arg1 = *((gsl_complex *)(argp1));
12449 }
12450 }
12451 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
12452 if (!SWIG_IsOK(ecode2)) {
12453 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_complex_mul_imag" "', argument " "2"" of type '" "double""'");
12454 }
12455 arg2 = (double)(val2);
12456 result = gsl_complex_mul_imag(arg1,arg2);
12457 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
12458
12459 XSRETURN(argvi);
12460 fail:
12461
12462 SWIG_croak_null();
12463 }
12464 }
12465
12466
XS(_wrap_gsl_complex_div_imag)12467 XS(_wrap_gsl_complex_div_imag) {
12468 {
12469 gsl_complex arg1 ;
12470 double arg2 ;
12471 void *argp1 ;
12472 int res1 = 0 ;
12473 double val2 ;
12474 int ecode2 = 0 ;
12475 int argvi = 0;
12476 gsl_complex result;
12477 dXSARGS;
12478
12479 if ((items < 2) || (items > 2)) {
12480 SWIG_croak("Usage: gsl_complex_div_imag(a,y);");
12481 }
12482 {
12483 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
12484 if (!SWIG_IsOK(res1)) {
12485 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_div_imag" "', argument " "1"" of type '" "gsl_complex""'");
12486 }
12487 if (!argp1) {
12488 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_div_imag" "', argument " "1"" of type '" "gsl_complex""'");
12489 } else {
12490 arg1 = *((gsl_complex *)(argp1));
12491 }
12492 }
12493 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
12494 if (!SWIG_IsOK(ecode2)) {
12495 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_complex_div_imag" "', argument " "2"" of type '" "double""'");
12496 }
12497 arg2 = (double)(val2);
12498 result = gsl_complex_div_imag(arg1,arg2);
12499 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
12500
12501 XSRETURN(argvi);
12502 fail:
12503
12504 SWIG_croak_null();
12505 }
12506 }
12507
12508
XS(_wrap_gsl_complex_conjugate)12509 XS(_wrap_gsl_complex_conjugate) {
12510 {
12511 gsl_complex arg1 ;
12512 void *argp1 ;
12513 int res1 = 0 ;
12514 int argvi = 0;
12515 gsl_complex result;
12516 dXSARGS;
12517
12518 if ((items < 1) || (items > 1)) {
12519 SWIG_croak("Usage: gsl_complex_conjugate(z);");
12520 }
12521 {
12522 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
12523 if (!SWIG_IsOK(res1)) {
12524 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_conjugate" "', argument " "1"" of type '" "gsl_complex""'");
12525 }
12526 if (!argp1) {
12527 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_conjugate" "', argument " "1"" of type '" "gsl_complex""'");
12528 } else {
12529 arg1 = *((gsl_complex *)(argp1));
12530 }
12531 }
12532 result = gsl_complex_conjugate(arg1);
12533 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
12534 XSRETURN(argvi);
12535 fail:
12536 SWIG_croak_null();
12537 }
12538 }
12539
12540
XS(_wrap_gsl_complex_inverse)12541 XS(_wrap_gsl_complex_inverse) {
12542 {
12543 gsl_complex arg1 ;
12544 void *argp1 ;
12545 int res1 = 0 ;
12546 int argvi = 0;
12547 gsl_complex result;
12548 dXSARGS;
12549
12550 if ((items < 1) || (items > 1)) {
12551 SWIG_croak("Usage: gsl_complex_inverse(a);");
12552 }
12553 {
12554 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
12555 if (!SWIG_IsOK(res1)) {
12556 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_inverse" "', argument " "1"" of type '" "gsl_complex""'");
12557 }
12558 if (!argp1) {
12559 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_inverse" "', argument " "1"" of type '" "gsl_complex""'");
12560 } else {
12561 arg1 = *((gsl_complex *)(argp1));
12562 }
12563 }
12564 result = gsl_complex_inverse(arg1);
12565 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
12566 XSRETURN(argvi);
12567 fail:
12568 SWIG_croak_null();
12569 }
12570 }
12571
12572
XS(_wrap_gsl_complex_negative)12573 XS(_wrap_gsl_complex_negative) {
12574 {
12575 gsl_complex arg1 ;
12576 void *argp1 ;
12577 int res1 = 0 ;
12578 int argvi = 0;
12579 gsl_complex result;
12580 dXSARGS;
12581
12582 if ((items < 1) || (items > 1)) {
12583 SWIG_croak("Usage: gsl_complex_negative(a);");
12584 }
12585 {
12586 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
12587 if (!SWIG_IsOK(res1)) {
12588 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_negative" "', argument " "1"" of type '" "gsl_complex""'");
12589 }
12590 if (!argp1) {
12591 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_negative" "', argument " "1"" of type '" "gsl_complex""'");
12592 } else {
12593 arg1 = *((gsl_complex *)(argp1));
12594 }
12595 }
12596 result = gsl_complex_negative(arg1);
12597 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
12598 XSRETURN(argvi);
12599 fail:
12600 SWIG_croak_null();
12601 }
12602 }
12603
12604
XS(_wrap_gsl_complex_sqrt)12605 XS(_wrap_gsl_complex_sqrt) {
12606 {
12607 gsl_complex arg1 ;
12608 void *argp1 ;
12609 int res1 = 0 ;
12610 int argvi = 0;
12611 gsl_complex result;
12612 dXSARGS;
12613
12614 if ((items < 1) || (items > 1)) {
12615 SWIG_croak("Usage: gsl_complex_sqrt(z);");
12616 }
12617 {
12618 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
12619 if (!SWIG_IsOK(res1)) {
12620 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_sqrt" "', argument " "1"" of type '" "gsl_complex""'");
12621 }
12622 if (!argp1) {
12623 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_sqrt" "', argument " "1"" of type '" "gsl_complex""'");
12624 } else {
12625 arg1 = *((gsl_complex *)(argp1));
12626 }
12627 }
12628 result = gsl_complex_sqrt(arg1);
12629 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
12630 XSRETURN(argvi);
12631 fail:
12632 SWIG_croak_null();
12633 }
12634 }
12635
12636
XS(_wrap_gsl_complex_sqrt_real)12637 XS(_wrap_gsl_complex_sqrt_real) {
12638 {
12639 double arg1 ;
12640 double val1 ;
12641 int ecode1 = 0 ;
12642 int argvi = 0;
12643 gsl_complex result;
12644 dXSARGS;
12645
12646 if ((items < 1) || (items > 1)) {
12647 SWIG_croak("Usage: gsl_complex_sqrt_real(x);");
12648 }
12649 ecode1 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
12650 if (!SWIG_IsOK(ecode1)) {
12651 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_complex_sqrt_real" "', argument " "1"" of type '" "double""'");
12652 }
12653 arg1 = (double)(val1);
12654 result = gsl_complex_sqrt_real(arg1);
12655 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
12656
12657 XSRETURN(argvi);
12658 fail:
12659
12660 SWIG_croak_null();
12661 }
12662 }
12663
12664
XS(_wrap_gsl_complex_pow)12665 XS(_wrap_gsl_complex_pow) {
12666 {
12667 gsl_complex arg1 ;
12668 gsl_complex arg2 ;
12669 void *argp1 ;
12670 int res1 = 0 ;
12671 void *argp2 ;
12672 int res2 = 0 ;
12673 int argvi = 0;
12674 gsl_complex result;
12675 dXSARGS;
12676
12677 if ((items < 2) || (items > 2)) {
12678 SWIG_croak("Usage: gsl_complex_pow(a,b);");
12679 }
12680 {
12681 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
12682 if (!SWIG_IsOK(res1)) {
12683 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_pow" "', argument " "1"" of type '" "gsl_complex""'");
12684 }
12685 if (!argp1) {
12686 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_pow" "', argument " "1"" of type '" "gsl_complex""'");
12687 } else {
12688 arg1 = *((gsl_complex *)(argp1));
12689 }
12690 }
12691 {
12692 res2 = SWIG_ConvertPtr(ST(1), &argp2, SWIGTYPE_p_gsl_complex, 0 );
12693 if (!SWIG_IsOK(res2)) {
12694 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_complex_pow" "', argument " "2"" of type '" "gsl_complex""'");
12695 }
12696 if (!argp2) {
12697 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_pow" "', argument " "2"" of type '" "gsl_complex""'");
12698 } else {
12699 arg2 = *((gsl_complex *)(argp2));
12700 }
12701 }
12702 result = gsl_complex_pow(arg1,arg2);
12703 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
12704 XSRETURN(argvi);
12705 fail:
12706 SWIG_croak_null();
12707 }
12708 }
12709
12710
XS(_wrap_gsl_complex_pow_real)12711 XS(_wrap_gsl_complex_pow_real) {
12712 {
12713 gsl_complex arg1 ;
12714 double arg2 ;
12715 void *argp1 ;
12716 int res1 = 0 ;
12717 double val2 ;
12718 int ecode2 = 0 ;
12719 int argvi = 0;
12720 gsl_complex result;
12721 dXSARGS;
12722
12723 if ((items < 2) || (items > 2)) {
12724 SWIG_croak("Usage: gsl_complex_pow_real(a,b);");
12725 }
12726 {
12727 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
12728 if (!SWIG_IsOK(res1)) {
12729 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_pow_real" "', argument " "1"" of type '" "gsl_complex""'");
12730 }
12731 if (!argp1) {
12732 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_pow_real" "', argument " "1"" of type '" "gsl_complex""'");
12733 } else {
12734 arg1 = *((gsl_complex *)(argp1));
12735 }
12736 }
12737 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
12738 if (!SWIG_IsOK(ecode2)) {
12739 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_complex_pow_real" "', argument " "2"" of type '" "double""'");
12740 }
12741 arg2 = (double)(val2);
12742 result = gsl_complex_pow_real(arg1,arg2);
12743 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
12744
12745 XSRETURN(argvi);
12746 fail:
12747
12748 SWIG_croak_null();
12749 }
12750 }
12751
12752
XS(_wrap_gsl_complex_exp)12753 XS(_wrap_gsl_complex_exp) {
12754 {
12755 gsl_complex arg1 ;
12756 void *argp1 ;
12757 int res1 = 0 ;
12758 int argvi = 0;
12759 gsl_complex result;
12760 dXSARGS;
12761
12762 if ((items < 1) || (items > 1)) {
12763 SWIG_croak("Usage: gsl_complex_exp(a);");
12764 }
12765 {
12766 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
12767 if (!SWIG_IsOK(res1)) {
12768 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_exp" "', argument " "1"" of type '" "gsl_complex""'");
12769 }
12770 if (!argp1) {
12771 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_exp" "', argument " "1"" of type '" "gsl_complex""'");
12772 } else {
12773 arg1 = *((gsl_complex *)(argp1));
12774 }
12775 }
12776 result = gsl_complex_exp(arg1);
12777 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
12778 XSRETURN(argvi);
12779 fail:
12780 SWIG_croak_null();
12781 }
12782 }
12783
12784
XS(_wrap_gsl_complex_log)12785 XS(_wrap_gsl_complex_log) {
12786 {
12787 gsl_complex arg1 ;
12788 void *argp1 ;
12789 int res1 = 0 ;
12790 int argvi = 0;
12791 gsl_complex result;
12792 dXSARGS;
12793
12794 if ((items < 1) || (items > 1)) {
12795 SWIG_croak("Usage: gsl_complex_log(a);");
12796 }
12797 {
12798 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
12799 if (!SWIG_IsOK(res1)) {
12800 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_log" "', argument " "1"" of type '" "gsl_complex""'");
12801 }
12802 if (!argp1) {
12803 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_log" "', argument " "1"" of type '" "gsl_complex""'");
12804 } else {
12805 arg1 = *((gsl_complex *)(argp1));
12806 }
12807 }
12808 result = gsl_complex_log(arg1);
12809 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
12810 XSRETURN(argvi);
12811 fail:
12812 SWIG_croak_null();
12813 }
12814 }
12815
12816
XS(_wrap_gsl_complex_log10)12817 XS(_wrap_gsl_complex_log10) {
12818 {
12819 gsl_complex arg1 ;
12820 void *argp1 ;
12821 int res1 = 0 ;
12822 int argvi = 0;
12823 gsl_complex result;
12824 dXSARGS;
12825
12826 if ((items < 1) || (items > 1)) {
12827 SWIG_croak("Usage: gsl_complex_log10(a);");
12828 }
12829 {
12830 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
12831 if (!SWIG_IsOK(res1)) {
12832 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_log10" "', argument " "1"" of type '" "gsl_complex""'");
12833 }
12834 if (!argp1) {
12835 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_log10" "', argument " "1"" of type '" "gsl_complex""'");
12836 } else {
12837 arg1 = *((gsl_complex *)(argp1));
12838 }
12839 }
12840 result = gsl_complex_log10(arg1);
12841 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
12842 XSRETURN(argvi);
12843 fail:
12844 SWIG_croak_null();
12845 }
12846 }
12847
12848
XS(_wrap_gsl_complex_log_b)12849 XS(_wrap_gsl_complex_log_b) {
12850 {
12851 gsl_complex arg1 ;
12852 gsl_complex arg2 ;
12853 void *argp1 ;
12854 int res1 = 0 ;
12855 void *argp2 ;
12856 int res2 = 0 ;
12857 int argvi = 0;
12858 gsl_complex result;
12859 dXSARGS;
12860
12861 if ((items < 2) || (items > 2)) {
12862 SWIG_croak("Usage: gsl_complex_log_b(a,b);");
12863 }
12864 {
12865 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
12866 if (!SWIG_IsOK(res1)) {
12867 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_log_b" "', argument " "1"" of type '" "gsl_complex""'");
12868 }
12869 if (!argp1) {
12870 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_log_b" "', argument " "1"" of type '" "gsl_complex""'");
12871 } else {
12872 arg1 = *((gsl_complex *)(argp1));
12873 }
12874 }
12875 {
12876 res2 = SWIG_ConvertPtr(ST(1), &argp2, SWIGTYPE_p_gsl_complex, 0 );
12877 if (!SWIG_IsOK(res2)) {
12878 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_complex_log_b" "', argument " "2"" of type '" "gsl_complex""'");
12879 }
12880 if (!argp2) {
12881 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_log_b" "', argument " "2"" of type '" "gsl_complex""'");
12882 } else {
12883 arg2 = *((gsl_complex *)(argp2));
12884 }
12885 }
12886 result = gsl_complex_log_b(arg1,arg2);
12887 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
12888 XSRETURN(argvi);
12889 fail:
12890 SWIG_croak_null();
12891 }
12892 }
12893
12894
XS(_wrap_gsl_complex_sin)12895 XS(_wrap_gsl_complex_sin) {
12896 {
12897 gsl_complex arg1 ;
12898 void *argp1 ;
12899 int res1 = 0 ;
12900 int argvi = 0;
12901 gsl_complex result;
12902 dXSARGS;
12903
12904 if ((items < 1) || (items > 1)) {
12905 SWIG_croak("Usage: gsl_complex_sin(a);");
12906 }
12907 {
12908 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
12909 if (!SWIG_IsOK(res1)) {
12910 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_sin" "', argument " "1"" of type '" "gsl_complex""'");
12911 }
12912 if (!argp1) {
12913 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_sin" "', argument " "1"" of type '" "gsl_complex""'");
12914 } else {
12915 arg1 = *((gsl_complex *)(argp1));
12916 }
12917 }
12918 result = gsl_complex_sin(arg1);
12919 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
12920 XSRETURN(argvi);
12921 fail:
12922 SWIG_croak_null();
12923 }
12924 }
12925
12926
XS(_wrap_gsl_complex_cos)12927 XS(_wrap_gsl_complex_cos) {
12928 {
12929 gsl_complex arg1 ;
12930 void *argp1 ;
12931 int res1 = 0 ;
12932 int argvi = 0;
12933 gsl_complex result;
12934 dXSARGS;
12935
12936 if ((items < 1) || (items > 1)) {
12937 SWIG_croak("Usage: gsl_complex_cos(a);");
12938 }
12939 {
12940 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
12941 if (!SWIG_IsOK(res1)) {
12942 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_cos" "', argument " "1"" of type '" "gsl_complex""'");
12943 }
12944 if (!argp1) {
12945 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_cos" "', argument " "1"" of type '" "gsl_complex""'");
12946 } else {
12947 arg1 = *((gsl_complex *)(argp1));
12948 }
12949 }
12950 result = gsl_complex_cos(arg1);
12951 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
12952 XSRETURN(argvi);
12953 fail:
12954 SWIG_croak_null();
12955 }
12956 }
12957
12958
XS(_wrap_gsl_complex_sec)12959 XS(_wrap_gsl_complex_sec) {
12960 {
12961 gsl_complex arg1 ;
12962 void *argp1 ;
12963 int res1 = 0 ;
12964 int argvi = 0;
12965 gsl_complex result;
12966 dXSARGS;
12967
12968 if ((items < 1) || (items > 1)) {
12969 SWIG_croak("Usage: gsl_complex_sec(a);");
12970 }
12971 {
12972 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
12973 if (!SWIG_IsOK(res1)) {
12974 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_sec" "', argument " "1"" of type '" "gsl_complex""'");
12975 }
12976 if (!argp1) {
12977 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_sec" "', argument " "1"" of type '" "gsl_complex""'");
12978 } else {
12979 arg1 = *((gsl_complex *)(argp1));
12980 }
12981 }
12982 result = gsl_complex_sec(arg1);
12983 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
12984 XSRETURN(argvi);
12985 fail:
12986 SWIG_croak_null();
12987 }
12988 }
12989
12990
XS(_wrap_gsl_complex_csc)12991 XS(_wrap_gsl_complex_csc) {
12992 {
12993 gsl_complex arg1 ;
12994 void *argp1 ;
12995 int res1 = 0 ;
12996 int argvi = 0;
12997 gsl_complex result;
12998 dXSARGS;
12999
13000 if ((items < 1) || (items > 1)) {
13001 SWIG_croak("Usage: gsl_complex_csc(a);");
13002 }
13003 {
13004 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
13005 if (!SWIG_IsOK(res1)) {
13006 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_csc" "', argument " "1"" of type '" "gsl_complex""'");
13007 }
13008 if (!argp1) {
13009 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_csc" "', argument " "1"" of type '" "gsl_complex""'");
13010 } else {
13011 arg1 = *((gsl_complex *)(argp1));
13012 }
13013 }
13014 result = gsl_complex_csc(arg1);
13015 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
13016 XSRETURN(argvi);
13017 fail:
13018 SWIG_croak_null();
13019 }
13020 }
13021
13022
XS(_wrap_gsl_complex_tan)13023 XS(_wrap_gsl_complex_tan) {
13024 {
13025 gsl_complex arg1 ;
13026 void *argp1 ;
13027 int res1 = 0 ;
13028 int argvi = 0;
13029 gsl_complex result;
13030 dXSARGS;
13031
13032 if ((items < 1) || (items > 1)) {
13033 SWIG_croak("Usage: gsl_complex_tan(a);");
13034 }
13035 {
13036 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
13037 if (!SWIG_IsOK(res1)) {
13038 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_tan" "', argument " "1"" of type '" "gsl_complex""'");
13039 }
13040 if (!argp1) {
13041 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_tan" "', argument " "1"" of type '" "gsl_complex""'");
13042 } else {
13043 arg1 = *((gsl_complex *)(argp1));
13044 }
13045 }
13046 result = gsl_complex_tan(arg1);
13047 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
13048 XSRETURN(argvi);
13049 fail:
13050 SWIG_croak_null();
13051 }
13052 }
13053
13054
XS(_wrap_gsl_complex_cot)13055 XS(_wrap_gsl_complex_cot) {
13056 {
13057 gsl_complex arg1 ;
13058 void *argp1 ;
13059 int res1 = 0 ;
13060 int argvi = 0;
13061 gsl_complex result;
13062 dXSARGS;
13063
13064 if ((items < 1) || (items > 1)) {
13065 SWIG_croak("Usage: gsl_complex_cot(a);");
13066 }
13067 {
13068 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
13069 if (!SWIG_IsOK(res1)) {
13070 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_cot" "', argument " "1"" of type '" "gsl_complex""'");
13071 }
13072 if (!argp1) {
13073 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_cot" "', argument " "1"" of type '" "gsl_complex""'");
13074 } else {
13075 arg1 = *((gsl_complex *)(argp1));
13076 }
13077 }
13078 result = gsl_complex_cot(arg1);
13079 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
13080 XSRETURN(argvi);
13081 fail:
13082 SWIG_croak_null();
13083 }
13084 }
13085
13086
XS(_wrap_gsl_complex_arcsin)13087 XS(_wrap_gsl_complex_arcsin) {
13088 {
13089 gsl_complex arg1 ;
13090 void *argp1 ;
13091 int res1 = 0 ;
13092 int argvi = 0;
13093 gsl_complex result;
13094 dXSARGS;
13095
13096 if ((items < 1) || (items > 1)) {
13097 SWIG_croak("Usage: gsl_complex_arcsin(a);");
13098 }
13099 {
13100 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
13101 if (!SWIG_IsOK(res1)) {
13102 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_arcsin" "', argument " "1"" of type '" "gsl_complex""'");
13103 }
13104 if (!argp1) {
13105 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_arcsin" "', argument " "1"" of type '" "gsl_complex""'");
13106 } else {
13107 arg1 = *((gsl_complex *)(argp1));
13108 }
13109 }
13110 result = gsl_complex_arcsin(arg1);
13111 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
13112 XSRETURN(argvi);
13113 fail:
13114 SWIG_croak_null();
13115 }
13116 }
13117
13118
XS(_wrap_gsl_complex_arcsin_real)13119 XS(_wrap_gsl_complex_arcsin_real) {
13120 {
13121 double arg1 ;
13122 double val1 ;
13123 int ecode1 = 0 ;
13124 int argvi = 0;
13125 gsl_complex result;
13126 dXSARGS;
13127
13128 if ((items < 1) || (items > 1)) {
13129 SWIG_croak("Usage: gsl_complex_arcsin_real(a);");
13130 }
13131 ecode1 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
13132 if (!SWIG_IsOK(ecode1)) {
13133 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_complex_arcsin_real" "', argument " "1"" of type '" "double""'");
13134 }
13135 arg1 = (double)(val1);
13136 result = gsl_complex_arcsin_real(arg1);
13137 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
13138
13139 XSRETURN(argvi);
13140 fail:
13141
13142 SWIG_croak_null();
13143 }
13144 }
13145
13146
XS(_wrap_gsl_complex_arccos)13147 XS(_wrap_gsl_complex_arccos) {
13148 {
13149 gsl_complex arg1 ;
13150 void *argp1 ;
13151 int res1 = 0 ;
13152 int argvi = 0;
13153 gsl_complex result;
13154 dXSARGS;
13155
13156 if ((items < 1) || (items > 1)) {
13157 SWIG_croak("Usage: gsl_complex_arccos(a);");
13158 }
13159 {
13160 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
13161 if (!SWIG_IsOK(res1)) {
13162 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_arccos" "', argument " "1"" of type '" "gsl_complex""'");
13163 }
13164 if (!argp1) {
13165 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_arccos" "', argument " "1"" of type '" "gsl_complex""'");
13166 } else {
13167 arg1 = *((gsl_complex *)(argp1));
13168 }
13169 }
13170 result = gsl_complex_arccos(arg1);
13171 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
13172 XSRETURN(argvi);
13173 fail:
13174 SWIG_croak_null();
13175 }
13176 }
13177
13178
XS(_wrap_gsl_complex_arccos_real)13179 XS(_wrap_gsl_complex_arccos_real) {
13180 {
13181 double arg1 ;
13182 double val1 ;
13183 int ecode1 = 0 ;
13184 int argvi = 0;
13185 gsl_complex result;
13186 dXSARGS;
13187
13188 if ((items < 1) || (items > 1)) {
13189 SWIG_croak("Usage: gsl_complex_arccos_real(a);");
13190 }
13191 ecode1 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
13192 if (!SWIG_IsOK(ecode1)) {
13193 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_complex_arccos_real" "', argument " "1"" of type '" "double""'");
13194 }
13195 arg1 = (double)(val1);
13196 result = gsl_complex_arccos_real(arg1);
13197 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
13198
13199 XSRETURN(argvi);
13200 fail:
13201
13202 SWIG_croak_null();
13203 }
13204 }
13205
13206
XS(_wrap_gsl_complex_arcsec)13207 XS(_wrap_gsl_complex_arcsec) {
13208 {
13209 gsl_complex arg1 ;
13210 void *argp1 ;
13211 int res1 = 0 ;
13212 int argvi = 0;
13213 gsl_complex result;
13214 dXSARGS;
13215
13216 if ((items < 1) || (items > 1)) {
13217 SWIG_croak("Usage: gsl_complex_arcsec(a);");
13218 }
13219 {
13220 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
13221 if (!SWIG_IsOK(res1)) {
13222 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_arcsec" "', argument " "1"" of type '" "gsl_complex""'");
13223 }
13224 if (!argp1) {
13225 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_arcsec" "', argument " "1"" of type '" "gsl_complex""'");
13226 } else {
13227 arg1 = *((gsl_complex *)(argp1));
13228 }
13229 }
13230 result = gsl_complex_arcsec(arg1);
13231 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
13232 XSRETURN(argvi);
13233 fail:
13234 SWIG_croak_null();
13235 }
13236 }
13237
13238
XS(_wrap_gsl_complex_arcsec_real)13239 XS(_wrap_gsl_complex_arcsec_real) {
13240 {
13241 double arg1 ;
13242 double val1 ;
13243 int ecode1 = 0 ;
13244 int argvi = 0;
13245 gsl_complex result;
13246 dXSARGS;
13247
13248 if ((items < 1) || (items > 1)) {
13249 SWIG_croak("Usage: gsl_complex_arcsec_real(a);");
13250 }
13251 ecode1 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
13252 if (!SWIG_IsOK(ecode1)) {
13253 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_complex_arcsec_real" "', argument " "1"" of type '" "double""'");
13254 }
13255 arg1 = (double)(val1);
13256 result = gsl_complex_arcsec_real(arg1);
13257 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
13258
13259 XSRETURN(argvi);
13260 fail:
13261
13262 SWIG_croak_null();
13263 }
13264 }
13265
13266
XS(_wrap_gsl_complex_arccsc)13267 XS(_wrap_gsl_complex_arccsc) {
13268 {
13269 gsl_complex arg1 ;
13270 void *argp1 ;
13271 int res1 = 0 ;
13272 int argvi = 0;
13273 gsl_complex result;
13274 dXSARGS;
13275
13276 if ((items < 1) || (items > 1)) {
13277 SWIG_croak("Usage: gsl_complex_arccsc(a);");
13278 }
13279 {
13280 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
13281 if (!SWIG_IsOK(res1)) {
13282 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_arccsc" "', argument " "1"" of type '" "gsl_complex""'");
13283 }
13284 if (!argp1) {
13285 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_arccsc" "', argument " "1"" of type '" "gsl_complex""'");
13286 } else {
13287 arg1 = *((gsl_complex *)(argp1));
13288 }
13289 }
13290 result = gsl_complex_arccsc(arg1);
13291 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
13292 XSRETURN(argvi);
13293 fail:
13294 SWIG_croak_null();
13295 }
13296 }
13297
13298
XS(_wrap_gsl_complex_arccsc_real)13299 XS(_wrap_gsl_complex_arccsc_real) {
13300 {
13301 double arg1 ;
13302 double val1 ;
13303 int ecode1 = 0 ;
13304 int argvi = 0;
13305 gsl_complex result;
13306 dXSARGS;
13307
13308 if ((items < 1) || (items > 1)) {
13309 SWIG_croak("Usage: gsl_complex_arccsc_real(a);");
13310 }
13311 ecode1 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
13312 if (!SWIG_IsOK(ecode1)) {
13313 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_complex_arccsc_real" "', argument " "1"" of type '" "double""'");
13314 }
13315 arg1 = (double)(val1);
13316 result = gsl_complex_arccsc_real(arg1);
13317 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
13318
13319 XSRETURN(argvi);
13320 fail:
13321
13322 SWIG_croak_null();
13323 }
13324 }
13325
13326
XS(_wrap_gsl_complex_arctan)13327 XS(_wrap_gsl_complex_arctan) {
13328 {
13329 gsl_complex arg1 ;
13330 void *argp1 ;
13331 int res1 = 0 ;
13332 int argvi = 0;
13333 gsl_complex result;
13334 dXSARGS;
13335
13336 if ((items < 1) || (items > 1)) {
13337 SWIG_croak("Usage: gsl_complex_arctan(a);");
13338 }
13339 {
13340 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
13341 if (!SWIG_IsOK(res1)) {
13342 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_arctan" "', argument " "1"" of type '" "gsl_complex""'");
13343 }
13344 if (!argp1) {
13345 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_arctan" "', argument " "1"" of type '" "gsl_complex""'");
13346 } else {
13347 arg1 = *((gsl_complex *)(argp1));
13348 }
13349 }
13350 result = gsl_complex_arctan(arg1);
13351 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
13352 XSRETURN(argvi);
13353 fail:
13354 SWIG_croak_null();
13355 }
13356 }
13357
13358
XS(_wrap_gsl_complex_arccot)13359 XS(_wrap_gsl_complex_arccot) {
13360 {
13361 gsl_complex arg1 ;
13362 void *argp1 ;
13363 int res1 = 0 ;
13364 int argvi = 0;
13365 gsl_complex result;
13366 dXSARGS;
13367
13368 if ((items < 1) || (items > 1)) {
13369 SWIG_croak("Usage: gsl_complex_arccot(a);");
13370 }
13371 {
13372 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
13373 if (!SWIG_IsOK(res1)) {
13374 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_arccot" "', argument " "1"" of type '" "gsl_complex""'");
13375 }
13376 if (!argp1) {
13377 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_arccot" "', argument " "1"" of type '" "gsl_complex""'");
13378 } else {
13379 arg1 = *((gsl_complex *)(argp1));
13380 }
13381 }
13382 result = gsl_complex_arccot(arg1);
13383 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
13384 XSRETURN(argvi);
13385 fail:
13386 SWIG_croak_null();
13387 }
13388 }
13389
13390
XS(_wrap_gsl_complex_sinh)13391 XS(_wrap_gsl_complex_sinh) {
13392 {
13393 gsl_complex arg1 ;
13394 void *argp1 ;
13395 int res1 = 0 ;
13396 int argvi = 0;
13397 gsl_complex result;
13398 dXSARGS;
13399
13400 if ((items < 1) || (items > 1)) {
13401 SWIG_croak("Usage: gsl_complex_sinh(a);");
13402 }
13403 {
13404 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
13405 if (!SWIG_IsOK(res1)) {
13406 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_sinh" "', argument " "1"" of type '" "gsl_complex""'");
13407 }
13408 if (!argp1) {
13409 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_sinh" "', argument " "1"" of type '" "gsl_complex""'");
13410 } else {
13411 arg1 = *((gsl_complex *)(argp1));
13412 }
13413 }
13414 result = gsl_complex_sinh(arg1);
13415 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
13416 XSRETURN(argvi);
13417 fail:
13418 SWIG_croak_null();
13419 }
13420 }
13421
13422
XS(_wrap_gsl_complex_cosh)13423 XS(_wrap_gsl_complex_cosh) {
13424 {
13425 gsl_complex arg1 ;
13426 void *argp1 ;
13427 int res1 = 0 ;
13428 int argvi = 0;
13429 gsl_complex result;
13430 dXSARGS;
13431
13432 if ((items < 1) || (items > 1)) {
13433 SWIG_croak("Usage: gsl_complex_cosh(a);");
13434 }
13435 {
13436 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
13437 if (!SWIG_IsOK(res1)) {
13438 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_cosh" "', argument " "1"" of type '" "gsl_complex""'");
13439 }
13440 if (!argp1) {
13441 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_cosh" "', argument " "1"" of type '" "gsl_complex""'");
13442 } else {
13443 arg1 = *((gsl_complex *)(argp1));
13444 }
13445 }
13446 result = gsl_complex_cosh(arg1);
13447 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
13448 XSRETURN(argvi);
13449 fail:
13450 SWIG_croak_null();
13451 }
13452 }
13453
13454
XS(_wrap_gsl_complex_sech)13455 XS(_wrap_gsl_complex_sech) {
13456 {
13457 gsl_complex arg1 ;
13458 void *argp1 ;
13459 int res1 = 0 ;
13460 int argvi = 0;
13461 gsl_complex result;
13462 dXSARGS;
13463
13464 if ((items < 1) || (items > 1)) {
13465 SWIG_croak("Usage: gsl_complex_sech(a);");
13466 }
13467 {
13468 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
13469 if (!SWIG_IsOK(res1)) {
13470 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_sech" "', argument " "1"" of type '" "gsl_complex""'");
13471 }
13472 if (!argp1) {
13473 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_sech" "', argument " "1"" of type '" "gsl_complex""'");
13474 } else {
13475 arg1 = *((gsl_complex *)(argp1));
13476 }
13477 }
13478 result = gsl_complex_sech(arg1);
13479 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
13480 XSRETURN(argvi);
13481 fail:
13482 SWIG_croak_null();
13483 }
13484 }
13485
13486
XS(_wrap_gsl_complex_csch)13487 XS(_wrap_gsl_complex_csch) {
13488 {
13489 gsl_complex arg1 ;
13490 void *argp1 ;
13491 int res1 = 0 ;
13492 int argvi = 0;
13493 gsl_complex result;
13494 dXSARGS;
13495
13496 if ((items < 1) || (items > 1)) {
13497 SWIG_croak("Usage: gsl_complex_csch(a);");
13498 }
13499 {
13500 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
13501 if (!SWIG_IsOK(res1)) {
13502 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_csch" "', argument " "1"" of type '" "gsl_complex""'");
13503 }
13504 if (!argp1) {
13505 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_csch" "', argument " "1"" of type '" "gsl_complex""'");
13506 } else {
13507 arg1 = *((gsl_complex *)(argp1));
13508 }
13509 }
13510 result = gsl_complex_csch(arg1);
13511 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
13512 XSRETURN(argvi);
13513 fail:
13514 SWIG_croak_null();
13515 }
13516 }
13517
13518
XS(_wrap_gsl_complex_tanh)13519 XS(_wrap_gsl_complex_tanh) {
13520 {
13521 gsl_complex arg1 ;
13522 void *argp1 ;
13523 int res1 = 0 ;
13524 int argvi = 0;
13525 gsl_complex result;
13526 dXSARGS;
13527
13528 if ((items < 1) || (items > 1)) {
13529 SWIG_croak("Usage: gsl_complex_tanh(a);");
13530 }
13531 {
13532 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
13533 if (!SWIG_IsOK(res1)) {
13534 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_tanh" "', argument " "1"" of type '" "gsl_complex""'");
13535 }
13536 if (!argp1) {
13537 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_tanh" "', argument " "1"" of type '" "gsl_complex""'");
13538 } else {
13539 arg1 = *((gsl_complex *)(argp1));
13540 }
13541 }
13542 result = gsl_complex_tanh(arg1);
13543 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
13544 XSRETURN(argvi);
13545 fail:
13546 SWIG_croak_null();
13547 }
13548 }
13549
13550
XS(_wrap_gsl_complex_coth)13551 XS(_wrap_gsl_complex_coth) {
13552 {
13553 gsl_complex arg1 ;
13554 void *argp1 ;
13555 int res1 = 0 ;
13556 int argvi = 0;
13557 gsl_complex result;
13558 dXSARGS;
13559
13560 if ((items < 1) || (items > 1)) {
13561 SWIG_croak("Usage: gsl_complex_coth(a);");
13562 }
13563 {
13564 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
13565 if (!SWIG_IsOK(res1)) {
13566 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_coth" "', argument " "1"" of type '" "gsl_complex""'");
13567 }
13568 if (!argp1) {
13569 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_coth" "', argument " "1"" of type '" "gsl_complex""'");
13570 } else {
13571 arg1 = *((gsl_complex *)(argp1));
13572 }
13573 }
13574 result = gsl_complex_coth(arg1);
13575 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
13576 XSRETURN(argvi);
13577 fail:
13578 SWIG_croak_null();
13579 }
13580 }
13581
13582
XS(_wrap_gsl_complex_arcsinh)13583 XS(_wrap_gsl_complex_arcsinh) {
13584 {
13585 gsl_complex arg1 ;
13586 void *argp1 ;
13587 int res1 = 0 ;
13588 int argvi = 0;
13589 gsl_complex result;
13590 dXSARGS;
13591
13592 if ((items < 1) || (items > 1)) {
13593 SWIG_croak("Usage: gsl_complex_arcsinh(a);");
13594 }
13595 {
13596 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
13597 if (!SWIG_IsOK(res1)) {
13598 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_arcsinh" "', argument " "1"" of type '" "gsl_complex""'");
13599 }
13600 if (!argp1) {
13601 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_arcsinh" "', argument " "1"" of type '" "gsl_complex""'");
13602 } else {
13603 arg1 = *((gsl_complex *)(argp1));
13604 }
13605 }
13606 result = gsl_complex_arcsinh(arg1);
13607 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
13608 XSRETURN(argvi);
13609 fail:
13610 SWIG_croak_null();
13611 }
13612 }
13613
13614
XS(_wrap_gsl_complex_arccosh)13615 XS(_wrap_gsl_complex_arccosh) {
13616 {
13617 gsl_complex arg1 ;
13618 void *argp1 ;
13619 int res1 = 0 ;
13620 int argvi = 0;
13621 gsl_complex result;
13622 dXSARGS;
13623
13624 if ((items < 1) || (items > 1)) {
13625 SWIG_croak("Usage: gsl_complex_arccosh(a);");
13626 }
13627 {
13628 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
13629 if (!SWIG_IsOK(res1)) {
13630 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_arccosh" "', argument " "1"" of type '" "gsl_complex""'");
13631 }
13632 if (!argp1) {
13633 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_arccosh" "', argument " "1"" of type '" "gsl_complex""'");
13634 } else {
13635 arg1 = *((gsl_complex *)(argp1));
13636 }
13637 }
13638 result = gsl_complex_arccosh(arg1);
13639 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
13640 XSRETURN(argvi);
13641 fail:
13642 SWIG_croak_null();
13643 }
13644 }
13645
13646
XS(_wrap_gsl_complex_arccosh_real)13647 XS(_wrap_gsl_complex_arccosh_real) {
13648 {
13649 double arg1 ;
13650 double val1 ;
13651 int ecode1 = 0 ;
13652 int argvi = 0;
13653 gsl_complex result;
13654 dXSARGS;
13655
13656 if ((items < 1) || (items > 1)) {
13657 SWIG_croak("Usage: gsl_complex_arccosh_real(a);");
13658 }
13659 ecode1 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
13660 if (!SWIG_IsOK(ecode1)) {
13661 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_complex_arccosh_real" "', argument " "1"" of type '" "double""'");
13662 }
13663 arg1 = (double)(val1);
13664 result = gsl_complex_arccosh_real(arg1);
13665 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
13666
13667 XSRETURN(argvi);
13668 fail:
13669
13670 SWIG_croak_null();
13671 }
13672 }
13673
13674
XS(_wrap_gsl_complex_arcsech)13675 XS(_wrap_gsl_complex_arcsech) {
13676 {
13677 gsl_complex arg1 ;
13678 void *argp1 ;
13679 int res1 = 0 ;
13680 int argvi = 0;
13681 gsl_complex result;
13682 dXSARGS;
13683
13684 if ((items < 1) || (items > 1)) {
13685 SWIG_croak("Usage: gsl_complex_arcsech(a);");
13686 }
13687 {
13688 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
13689 if (!SWIG_IsOK(res1)) {
13690 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_arcsech" "', argument " "1"" of type '" "gsl_complex""'");
13691 }
13692 if (!argp1) {
13693 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_arcsech" "', argument " "1"" of type '" "gsl_complex""'");
13694 } else {
13695 arg1 = *((gsl_complex *)(argp1));
13696 }
13697 }
13698 result = gsl_complex_arcsech(arg1);
13699 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
13700 XSRETURN(argvi);
13701 fail:
13702 SWIG_croak_null();
13703 }
13704 }
13705
13706
XS(_wrap_gsl_complex_arccsch)13707 XS(_wrap_gsl_complex_arccsch) {
13708 {
13709 gsl_complex arg1 ;
13710 void *argp1 ;
13711 int res1 = 0 ;
13712 int argvi = 0;
13713 gsl_complex result;
13714 dXSARGS;
13715
13716 if ((items < 1) || (items > 1)) {
13717 SWIG_croak("Usage: gsl_complex_arccsch(a);");
13718 }
13719 {
13720 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
13721 if (!SWIG_IsOK(res1)) {
13722 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_arccsch" "', argument " "1"" of type '" "gsl_complex""'");
13723 }
13724 if (!argp1) {
13725 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_arccsch" "', argument " "1"" of type '" "gsl_complex""'");
13726 } else {
13727 arg1 = *((gsl_complex *)(argp1));
13728 }
13729 }
13730 result = gsl_complex_arccsch(arg1);
13731 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
13732 XSRETURN(argvi);
13733 fail:
13734 SWIG_croak_null();
13735 }
13736 }
13737
13738
XS(_wrap_gsl_complex_arctanh)13739 XS(_wrap_gsl_complex_arctanh) {
13740 {
13741 gsl_complex arg1 ;
13742 void *argp1 ;
13743 int res1 = 0 ;
13744 int argvi = 0;
13745 gsl_complex result;
13746 dXSARGS;
13747
13748 if ((items < 1) || (items > 1)) {
13749 SWIG_croak("Usage: gsl_complex_arctanh(a);");
13750 }
13751 {
13752 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
13753 if (!SWIG_IsOK(res1)) {
13754 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_arctanh" "', argument " "1"" of type '" "gsl_complex""'");
13755 }
13756 if (!argp1) {
13757 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_arctanh" "', argument " "1"" of type '" "gsl_complex""'");
13758 } else {
13759 arg1 = *((gsl_complex *)(argp1));
13760 }
13761 }
13762 result = gsl_complex_arctanh(arg1);
13763 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
13764 XSRETURN(argvi);
13765 fail:
13766 SWIG_croak_null();
13767 }
13768 }
13769
13770
XS(_wrap_gsl_complex_arctanh_real)13771 XS(_wrap_gsl_complex_arctanh_real) {
13772 {
13773 double arg1 ;
13774 double val1 ;
13775 int ecode1 = 0 ;
13776 int argvi = 0;
13777 gsl_complex result;
13778 dXSARGS;
13779
13780 if ((items < 1) || (items > 1)) {
13781 SWIG_croak("Usage: gsl_complex_arctanh_real(a);");
13782 }
13783 ecode1 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
13784 if (!SWIG_IsOK(ecode1)) {
13785 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_complex_arctanh_real" "', argument " "1"" of type '" "double""'");
13786 }
13787 arg1 = (double)(val1);
13788 result = gsl_complex_arctanh_real(arg1);
13789 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
13790
13791 XSRETURN(argvi);
13792 fail:
13793
13794 SWIG_croak_null();
13795 }
13796 }
13797
13798
XS(_wrap_gsl_complex_arccoth)13799 XS(_wrap_gsl_complex_arccoth) {
13800 {
13801 gsl_complex arg1 ;
13802 void *argp1 ;
13803 int res1 = 0 ;
13804 int argvi = 0;
13805 gsl_complex result;
13806 dXSARGS;
13807
13808 if ((items < 1) || (items > 1)) {
13809 SWIG_croak("Usage: gsl_complex_arccoth(a);");
13810 }
13811 {
13812 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
13813 if (!SWIG_IsOK(res1)) {
13814 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_arccoth" "', argument " "1"" of type '" "gsl_complex""'");
13815 }
13816 if (!argp1) {
13817 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_arccoth" "', argument " "1"" of type '" "gsl_complex""'");
13818 } else {
13819 arg1 = *((gsl_complex *)(argp1));
13820 }
13821 }
13822 result = gsl_complex_arccoth(arg1);
13823 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
13824 XSRETURN(argvi);
13825 fail:
13826 SWIG_croak_null();
13827 }
13828 }
13829
13830
13831
13832 /* -------- TYPE CONVERSION AND EQUIVALENCE RULES (BEGIN) -------- */
13833
13834 static swig_type_info _swigt__p_FILE = {"_p_FILE", "FILE *", 0, 0, (void*)0, 0};
13835 static swig_type_info _swigt__p_char = {"_p_char", "char *", 0, 0, (void*)0, 0};
13836 static swig_type_info _swigt__p_double = {"_p_double", "double *", 0, 0, (void*)0, 0};
13837 static swig_type_info _swigt__p_f_CBLAS_TRANSPOSE_t_p_gsl_vector_p_void__int = {"_p_f_CBLAS_TRANSPOSE_t_p_gsl_vector_p_void__int", "int (*)(CBLAS_TRANSPOSE_t,gsl_vector *,void *)", 0, 0, (void*)0, 0};
13838 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};
13839 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};
13840 static swig_type_info _swigt__p_float = {"_p_float", "float *", 0, 0, (void*)0, 0};
13841 static swig_type_info _swigt__p_gsl_complex = {"_p_gsl_complex", "gsl_complex *", 0, 0, (void*)"Math::GSL::Linalg::gsl_complex", 0};
13842 static swig_type_info _swigt__p_gsl_complex_float = {"_p_gsl_complex_float", "gsl_complex_float *", 0, 0, (void*)"Math::GSL::Linalg::gsl_complex_float", 0};
13843 static swig_type_info _swigt__p_gsl_complex_long_double = {"_p_gsl_complex_long_double", "gsl_complex_long_double *", 0, 0, (void*)"Math::GSL::Linalg::gsl_complex_long_double", 0};
13844 static swig_type_info _swigt__p_gsl_linalg_matrix_mod_t = {"_p_gsl_linalg_matrix_mod_t", "enum gsl_linalg_matrix_mod_t *|gsl_linalg_matrix_mod_t *", 0, 0, (void*)0, 0};
13845 static swig_type_info _swigt__p_gsl_matrix = {"_p_gsl_matrix", "gsl_matrix *", 0, 0, (void*)0, 0};
13846 static swig_type_info _swigt__p_gsl_matrix_complex = {"_p_gsl_matrix_complex", "gsl_matrix_complex *", 0, 0, (void*)0, 0};
13847 static swig_type_info _swigt__p_gsl_mode_t = {"_p_gsl_mode_t", "gsl_mode_t *", 0, 0, (void*)0, 0};
13848 static swig_type_info _swigt__p_gsl_permutation_struct = {"_p_gsl_permutation_struct", "gsl_permutation *|struct gsl_permutation_struct *|gsl_permutation_struct *", 0, 0, (void*)"Math::GSL::Linalg::gsl_permutation_struct", 0};
13849 static swig_type_info _swigt__p_gsl_vector = {"_p_gsl_vector", "gsl_vector *", 0, 0, (void*)0, 0};
13850 static swig_type_info _swigt__p_gsl_vector_complex = {"_p_gsl_vector_complex", "gsl_vector_complex *", 0, 0, (void*)0, 0};
13851 static swig_type_info _swigt__p_int = {"_p_int", "int *", 0, 0, (void*)0, 0};
13852 static swig_type_info _swigt__p_long_double = {"_p_long_double", "long double *", 0, 0, (void*)0, 0};
13853 static swig_type_info _swigt__p_size_t = {"_p_size_t", "size_t *", 0, 0, (void*)0, 0};
13854
13855 static swig_type_info *swig_type_initial[] = {
13856 &_swigt__p_FILE,
13857 &_swigt__p_char,
13858 &_swigt__p_double,
13859 &_swigt__p_f_CBLAS_TRANSPOSE_t_p_gsl_vector_p_void__int,
13860 &_swigt__p_f_p_q_const__char_p_q_const__char_int_int__void,
13861 &_swigt__p_f_p_q_const__char_p_q_const__char_int_p_q_const__char__void,
13862 &_swigt__p_float,
13863 &_swigt__p_gsl_complex,
13864 &_swigt__p_gsl_complex_float,
13865 &_swigt__p_gsl_complex_long_double,
13866 &_swigt__p_gsl_linalg_matrix_mod_t,
13867 &_swigt__p_gsl_matrix,
13868 &_swigt__p_gsl_matrix_complex,
13869 &_swigt__p_gsl_mode_t,
13870 &_swigt__p_gsl_permutation_struct,
13871 &_swigt__p_gsl_vector,
13872 &_swigt__p_gsl_vector_complex,
13873 &_swigt__p_int,
13874 &_swigt__p_long_double,
13875 &_swigt__p_size_t,
13876 };
13877
13878 static swig_cast_info _swigc__p_FILE[] = { {&_swigt__p_FILE, 0, 0, 0},{0, 0, 0, 0}};
13879 static swig_cast_info _swigc__p_char[] = { {&_swigt__p_char, 0, 0, 0},{0, 0, 0, 0}};
13880 static swig_cast_info _swigc__p_double[] = { {&_swigt__p_double, 0, 0, 0},{0, 0, 0, 0}};
13881 static swig_cast_info _swigc__p_f_CBLAS_TRANSPOSE_t_p_gsl_vector_p_void__int[] = { {&_swigt__p_f_CBLAS_TRANSPOSE_t_p_gsl_vector_p_void__int, 0, 0, 0},{0, 0, 0, 0}};
13882 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}};
13883 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}};
13884 static swig_cast_info _swigc__p_float[] = { {&_swigt__p_float, 0, 0, 0},{0, 0, 0, 0}};
13885 static swig_cast_info _swigc__p_gsl_complex[] = { {&_swigt__p_gsl_complex, 0, 0, 0},{0, 0, 0, 0}};
13886 static swig_cast_info _swigc__p_gsl_complex_float[] = { {&_swigt__p_gsl_complex_float, 0, 0, 0},{0, 0, 0, 0}};
13887 static swig_cast_info _swigc__p_gsl_complex_long_double[] = { {&_swigt__p_gsl_complex_long_double, 0, 0, 0},{0, 0, 0, 0}};
13888 static swig_cast_info _swigc__p_gsl_linalg_matrix_mod_t[] = { {&_swigt__p_gsl_linalg_matrix_mod_t, 0, 0, 0},{0, 0, 0, 0}};
13889 static swig_cast_info _swigc__p_gsl_matrix[] = { {&_swigt__p_gsl_matrix, 0, 0, 0},{0, 0, 0, 0}};
13890 static swig_cast_info _swigc__p_gsl_matrix_complex[] = { {&_swigt__p_gsl_matrix_complex, 0, 0, 0},{0, 0, 0, 0}};
13891 static swig_cast_info _swigc__p_gsl_mode_t[] = { {&_swigt__p_gsl_mode_t, 0, 0, 0},{0, 0, 0, 0}};
13892 static swig_cast_info _swigc__p_gsl_permutation_struct[] = { {&_swigt__p_gsl_permutation_struct, 0, 0, 0},{0, 0, 0, 0}};
13893 static swig_cast_info _swigc__p_gsl_vector[] = { {&_swigt__p_gsl_vector, 0, 0, 0},{0, 0, 0, 0}};
13894 static swig_cast_info _swigc__p_gsl_vector_complex[] = { {&_swigt__p_gsl_vector_complex, 0, 0, 0},{0, 0, 0, 0}};
13895 static swig_cast_info _swigc__p_int[] = { {&_swigt__p_int, 0, 0, 0},{0, 0, 0, 0}};
13896 static swig_cast_info _swigc__p_long_double[] = { {&_swigt__p_long_double, 0, 0, 0},{0, 0, 0, 0}};
13897 static swig_cast_info _swigc__p_size_t[] = { {&_swigt__p_size_t, 0, 0, 0},{0, 0, 0, 0}};
13898
13899 static swig_cast_info *swig_cast_initial[] = {
13900 _swigc__p_FILE,
13901 _swigc__p_char,
13902 _swigc__p_double,
13903 _swigc__p_f_CBLAS_TRANSPOSE_t_p_gsl_vector_p_void__int,
13904 _swigc__p_f_p_q_const__char_p_q_const__char_int_int__void,
13905 _swigc__p_f_p_q_const__char_p_q_const__char_int_p_q_const__char__void,
13906 _swigc__p_float,
13907 _swigc__p_gsl_complex,
13908 _swigc__p_gsl_complex_float,
13909 _swigc__p_gsl_complex_long_double,
13910 _swigc__p_gsl_linalg_matrix_mod_t,
13911 _swigc__p_gsl_matrix,
13912 _swigc__p_gsl_matrix_complex,
13913 _swigc__p_gsl_mode_t,
13914 _swigc__p_gsl_permutation_struct,
13915 _swigc__p_gsl_vector,
13916 _swigc__p_gsl_vector_complex,
13917 _swigc__p_int,
13918 _swigc__p_long_double,
13919 _swigc__p_size_t,
13920 };
13921
13922
13923 /* -------- TYPE CONVERSION AND EQUIVALENCE RULES (END) -------- */
13924
13925 static swig_constant_info swig_constants[] = {
13926 {0,0,0,0,0,0}
13927 };
13928 #ifdef __cplusplus
13929 }
13930 #endif
13931 static swig_variable_info swig_variables[] = {
13932 {0,0,0,0}
13933 };
13934 static swig_command_info swig_commands[] = {
13935 {"Math::GSL::Linalgc::gsl_error", _wrap_gsl_error},
13936 {"Math::GSL::Linalgc::gsl_stream_printf", _wrap_gsl_stream_printf},
13937 {"Math::GSL::Linalgc::gsl_strerror", _wrap_gsl_strerror},
13938 {"Math::GSL::Linalgc::gsl_set_error_handler", _wrap_gsl_set_error_handler},
13939 {"Math::GSL::Linalgc::gsl_set_error_handler_off", _wrap_gsl_set_error_handler_off},
13940 {"Math::GSL::Linalgc::gsl_set_stream_handler", _wrap_gsl_set_stream_handler},
13941 {"Math::GSL::Linalgc::gsl_set_stream", _wrap_gsl_set_stream},
13942 {"Math::GSL::Linalgc::gsl_linalg_matmult", _wrap_gsl_linalg_matmult},
13943 {"Math::GSL::Linalgc::gsl_linalg_matmult_mod", _wrap_gsl_linalg_matmult_mod},
13944 {"Math::GSL::Linalgc::gsl_linalg_exponential_ss", _wrap_gsl_linalg_exponential_ss},
13945 {"Math::GSL::Linalgc::gsl_linalg_householder_transform", _wrap_gsl_linalg_householder_transform},
13946 {"Math::GSL::Linalgc::gsl_linalg_complex_householder_transform", _wrap_gsl_linalg_complex_householder_transform},
13947 {"Math::GSL::Linalgc::gsl_linalg_householder_hm", _wrap_gsl_linalg_householder_hm},
13948 {"Math::GSL::Linalgc::gsl_linalg_householder_mh", _wrap_gsl_linalg_householder_mh},
13949 {"Math::GSL::Linalgc::gsl_linalg_householder_hv", _wrap_gsl_linalg_householder_hv},
13950 {"Math::GSL::Linalgc::gsl_linalg_householder_hm1", _wrap_gsl_linalg_householder_hm1},
13951 {"Math::GSL::Linalgc::gsl_linalg_complex_householder_hm", _wrap_gsl_linalg_complex_householder_hm},
13952 {"Math::GSL::Linalgc::gsl_linalg_complex_householder_mh", _wrap_gsl_linalg_complex_householder_mh},
13953 {"Math::GSL::Linalgc::gsl_linalg_complex_householder_hv", _wrap_gsl_linalg_complex_householder_hv},
13954 {"Math::GSL::Linalgc::gsl_linalg_hessenberg_decomp", _wrap_gsl_linalg_hessenberg_decomp},
13955 {"Math::GSL::Linalgc::gsl_linalg_hessenberg_unpack", _wrap_gsl_linalg_hessenberg_unpack},
13956 {"Math::GSL::Linalgc::gsl_linalg_hessenberg_unpack_accum", _wrap_gsl_linalg_hessenberg_unpack_accum},
13957 {"Math::GSL::Linalgc::gsl_linalg_hessenberg_set_zero", _wrap_gsl_linalg_hessenberg_set_zero},
13958 {"Math::GSL::Linalgc::gsl_linalg_hessenberg_submatrix", _wrap_gsl_linalg_hessenberg_submatrix},
13959 {"Math::GSL::Linalgc::gsl_linalg_hesstri_decomp", _wrap_gsl_linalg_hesstri_decomp},
13960 {"Math::GSL::Linalgc::gsl_linalg_SV_decomp", _wrap_gsl_linalg_SV_decomp},
13961 {"Math::GSL::Linalgc::gsl_linalg_SV_decomp_mod", _wrap_gsl_linalg_SV_decomp_mod},
13962 {"Math::GSL::Linalgc::gsl_linalg_SV_decomp_jacobi", _wrap_gsl_linalg_SV_decomp_jacobi},
13963 {"Math::GSL::Linalgc::gsl_linalg_SV_solve", _wrap_gsl_linalg_SV_solve},
13964 {"Math::GSL::Linalgc::gsl_linalg_SV_leverage", _wrap_gsl_linalg_SV_leverage},
13965 {"Math::GSL::Linalgc::gsl_linalg_LU_decomp", _wrap_gsl_linalg_LU_decomp},
13966 {"Math::GSL::Linalgc::gsl_linalg_LU_solve", _wrap_gsl_linalg_LU_solve},
13967 {"Math::GSL::Linalgc::gsl_linalg_LU_svx", _wrap_gsl_linalg_LU_svx},
13968 {"Math::GSL::Linalgc::gsl_linalg_LU_refine", _wrap_gsl_linalg_LU_refine},
13969 {"Math::GSL::Linalgc::gsl_linalg_LU_invert", _wrap_gsl_linalg_LU_invert},
13970 {"Math::GSL::Linalgc::gsl_linalg_LU_det", _wrap_gsl_linalg_LU_det},
13971 {"Math::GSL::Linalgc::gsl_linalg_LU_lndet", _wrap_gsl_linalg_LU_lndet},
13972 {"Math::GSL::Linalgc::gsl_linalg_LU_sgndet", _wrap_gsl_linalg_LU_sgndet},
13973 {"Math::GSL::Linalgc::gsl_linalg_complex_LU_decomp", _wrap_gsl_linalg_complex_LU_decomp},
13974 {"Math::GSL::Linalgc::gsl_linalg_complex_LU_solve", _wrap_gsl_linalg_complex_LU_solve},
13975 {"Math::GSL::Linalgc::gsl_linalg_complex_LU_svx", _wrap_gsl_linalg_complex_LU_svx},
13976 {"Math::GSL::Linalgc::gsl_linalg_complex_LU_refine", _wrap_gsl_linalg_complex_LU_refine},
13977 {"Math::GSL::Linalgc::gsl_linalg_complex_LU_invert", _wrap_gsl_linalg_complex_LU_invert},
13978 {"Math::GSL::Linalgc::gsl_linalg_complex_LU_det", _wrap_gsl_linalg_complex_LU_det},
13979 {"Math::GSL::Linalgc::gsl_linalg_complex_LU_lndet", _wrap_gsl_linalg_complex_LU_lndet},
13980 {"Math::GSL::Linalgc::gsl_linalg_complex_LU_sgndet", _wrap_gsl_linalg_complex_LU_sgndet},
13981 {"Math::GSL::Linalgc::gsl_linalg_QR_decomp", _wrap_gsl_linalg_QR_decomp},
13982 {"Math::GSL::Linalgc::gsl_linalg_QR_solve", _wrap_gsl_linalg_QR_solve},
13983 {"Math::GSL::Linalgc::gsl_linalg_QR_svx", _wrap_gsl_linalg_QR_svx},
13984 {"Math::GSL::Linalgc::gsl_linalg_QR_lssolve", _wrap_gsl_linalg_QR_lssolve},
13985 {"Math::GSL::Linalgc::gsl_linalg_QR_QRsolve", _wrap_gsl_linalg_QR_QRsolve},
13986 {"Math::GSL::Linalgc::gsl_linalg_QR_Rsolve", _wrap_gsl_linalg_QR_Rsolve},
13987 {"Math::GSL::Linalgc::gsl_linalg_QR_Rsvx", _wrap_gsl_linalg_QR_Rsvx},
13988 {"Math::GSL::Linalgc::gsl_linalg_QR_update", _wrap_gsl_linalg_QR_update},
13989 {"Math::GSL::Linalgc::gsl_linalg_QR_QTvec", _wrap_gsl_linalg_QR_QTvec},
13990 {"Math::GSL::Linalgc::gsl_linalg_QR_Qvec", _wrap_gsl_linalg_QR_Qvec},
13991 {"Math::GSL::Linalgc::gsl_linalg_QR_QTmat", _wrap_gsl_linalg_QR_QTmat},
13992 {"Math::GSL::Linalgc::gsl_linalg_QR_matQ", _wrap_gsl_linalg_QR_matQ},
13993 {"Math::GSL::Linalgc::gsl_linalg_QR_unpack", _wrap_gsl_linalg_QR_unpack},
13994 {"Math::GSL::Linalgc::gsl_linalg_R_solve", _wrap_gsl_linalg_R_solve},
13995 {"Math::GSL::Linalgc::gsl_linalg_R_svx", _wrap_gsl_linalg_R_svx},
13996 {"Math::GSL::Linalgc::gsl_linalg_QRPT_decomp", _wrap_gsl_linalg_QRPT_decomp},
13997 {"Math::GSL::Linalgc::gsl_linalg_QRPT_decomp2", _wrap_gsl_linalg_QRPT_decomp2},
13998 {"Math::GSL::Linalgc::gsl_linalg_QRPT_solve", _wrap_gsl_linalg_QRPT_solve},
13999 {"Math::GSL::Linalgc::gsl_linalg_QRPT_lssolve", _wrap_gsl_linalg_QRPT_lssolve},
14000 {"Math::GSL::Linalgc::gsl_linalg_QRPT_lssolve2", _wrap_gsl_linalg_QRPT_lssolve2},
14001 {"Math::GSL::Linalgc::gsl_linalg_QRPT_svx", _wrap_gsl_linalg_QRPT_svx},
14002 {"Math::GSL::Linalgc::gsl_linalg_QRPT_QRsolve", _wrap_gsl_linalg_QRPT_QRsolve},
14003 {"Math::GSL::Linalgc::gsl_linalg_QRPT_Rsolve", _wrap_gsl_linalg_QRPT_Rsolve},
14004 {"Math::GSL::Linalgc::gsl_linalg_QRPT_Rsvx", _wrap_gsl_linalg_QRPT_Rsvx},
14005 {"Math::GSL::Linalgc::gsl_linalg_QRPT_update", _wrap_gsl_linalg_QRPT_update},
14006 {"Math::GSL::Linalgc::gsl_linalg_QRPT_rank", _wrap_gsl_linalg_QRPT_rank},
14007 {"Math::GSL::Linalgc::gsl_linalg_QRPT_rcond", _wrap_gsl_linalg_QRPT_rcond},
14008 {"Math::GSL::Linalgc::gsl_linalg_COD_decomp", _wrap_gsl_linalg_COD_decomp},
14009 {"Math::GSL::Linalgc::gsl_linalg_COD_decomp_e", _wrap_gsl_linalg_COD_decomp_e},
14010 {"Math::GSL::Linalgc::gsl_linalg_COD_lssolve", _wrap_gsl_linalg_COD_lssolve},
14011 {"Math::GSL::Linalgc::gsl_linalg_COD_lssolve2", _wrap_gsl_linalg_COD_lssolve2},
14012 {"Math::GSL::Linalgc::gsl_linalg_COD_unpack", _wrap_gsl_linalg_COD_unpack},
14013 {"Math::GSL::Linalgc::gsl_linalg_COD_matZ", _wrap_gsl_linalg_COD_matZ},
14014 {"Math::GSL::Linalgc::gsl_linalg_LQ_decomp", _wrap_gsl_linalg_LQ_decomp},
14015 {"Math::GSL::Linalgc::gsl_linalg_LQ_solve_T", _wrap_gsl_linalg_LQ_solve_T},
14016 {"Math::GSL::Linalgc::gsl_linalg_LQ_svx_T", _wrap_gsl_linalg_LQ_svx_T},
14017 {"Math::GSL::Linalgc::gsl_linalg_LQ_lssolve_T", _wrap_gsl_linalg_LQ_lssolve_T},
14018 {"Math::GSL::Linalgc::gsl_linalg_LQ_Lsolve_T", _wrap_gsl_linalg_LQ_Lsolve_T},
14019 {"Math::GSL::Linalgc::gsl_linalg_LQ_Lsvx_T", _wrap_gsl_linalg_LQ_Lsvx_T},
14020 {"Math::GSL::Linalgc::gsl_linalg_L_solve_T", _wrap_gsl_linalg_L_solve_T},
14021 {"Math::GSL::Linalgc::gsl_linalg_LQ_vecQ", _wrap_gsl_linalg_LQ_vecQ},
14022 {"Math::GSL::Linalgc::gsl_linalg_LQ_vecQT", _wrap_gsl_linalg_LQ_vecQT},
14023 {"Math::GSL::Linalgc::gsl_linalg_LQ_unpack", _wrap_gsl_linalg_LQ_unpack},
14024 {"Math::GSL::Linalgc::gsl_linalg_LQ_update", _wrap_gsl_linalg_LQ_update},
14025 {"Math::GSL::Linalgc::gsl_linalg_LQ_LQsolve", _wrap_gsl_linalg_LQ_LQsolve},
14026 {"Math::GSL::Linalgc::gsl_linalg_PTLQ_decomp", _wrap_gsl_linalg_PTLQ_decomp},
14027 {"Math::GSL::Linalgc::gsl_linalg_PTLQ_decomp2", _wrap_gsl_linalg_PTLQ_decomp2},
14028 {"Math::GSL::Linalgc::gsl_linalg_PTLQ_solve_T", _wrap_gsl_linalg_PTLQ_solve_T},
14029 {"Math::GSL::Linalgc::gsl_linalg_PTLQ_svx_T", _wrap_gsl_linalg_PTLQ_svx_T},
14030 {"Math::GSL::Linalgc::gsl_linalg_PTLQ_LQsolve_T", _wrap_gsl_linalg_PTLQ_LQsolve_T},
14031 {"Math::GSL::Linalgc::gsl_linalg_PTLQ_Lsolve_T", _wrap_gsl_linalg_PTLQ_Lsolve_T},
14032 {"Math::GSL::Linalgc::gsl_linalg_PTLQ_Lsvx_T", _wrap_gsl_linalg_PTLQ_Lsvx_T},
14033 {"Math::GSL::Linalgc::gsl_linalg_PTLQ_update", _wrap_gsl_linalg_PTLQ_update},
14034 {"Math::GSL::Linalgc::gsl_linalg_cholesky_decomp", _wrap_gsl_linalg_cholesky_decomp},
14035 {"Math::GSL::Linalgc::gsl_linalg_cholesky_decomp1", _wrap_gsl_linalg_cholesky_decomp1},
14036 {"Math::GSL::Linalgc::gsl_linalg_cholesky_solve", _wrap_gsl_linalg_cholesky_solve},
14037 {"Math::GSL::Linalgc::gsl_linalg_cholesky_solve_mat", _wrap_gsl_linalg_cholesky_solve_mat},
14038 {"Math::GSL::Linalgc::gsl_linalg_cholesky_svx", _wrap_gsl_linalg_cholesky_svx},
14039 {"Math::GSL::Linalgc::gsl_linalg_cholesky_svx_mat", _wrap_gsl_linalg_cholesky_svx_mat},
14040 {"Math::GSL::Linalgc::gsl_linalg_cholesky_invert", _wrap_gsl_linalg_cholesky_invert},
14041 {"Math::GSL::Linalgc::gsl_linalg_cholesky_decomp_unit", _wrap_gsl_linalg_cholesky_decomp_unit},
14042 {"Math::GSL::Linalgc::gsl_linalg_cholesky_scale", _wrap_gsl_linalg_cholesky_scale},
14043 {"Math::GSL::Linalgc::gsl_linalg_cholesky_scale_apply", _wrap_gsl_linalg_cholesky_scale_apply},
14044 {"Math::GSL::Linalgc::gsl_linalg_cholesky_decomp2", _wrap_gsl_linalg_cholesky_decomp2},
14045 {"Math::GSL::Linalgc::gsl_linalg_cholesky_svx2", _wrap_gsl_linalg_cholesky_svx2},
14046 {"Math::GSL::Linalgc::gsl_linalg_cholesky_solve2", _wrap_gsl_linalg_cholesky_solve2},
14047 {"Math::GSL::Linalgc::gsl_linalg_cholesky_rcond", _wrap_gsl_linalg_cholesky_rcond},
14048 {"Math::GSL::Linalgc::gsl_linalg_complex_cholesky_decomp", _wrap_gsl_linalg_complex_cholesky_decomp},
14049 {"Math::GSL::Linalgc::gsl_linalg_complex_cholesky_solve", _wrap_gsl_linalg_complex_cholesky_solve},
14050 {"Math::GSL::Linalgc::gsl_linalg_complex_cholesky_svx", _wrap_gsl_linalg_complex_cholesky_svx},
14051 {"Math::GSL::Linalgc::gsl_linalg_complex_cholesky_invert", _wrap_gsl_linalg_complex_cholesky_invert},
14052 {"Math::GSL::Linalgc::gsl_linalg_pcholesky_decomp", _wrap_gsl_linalg_pcholesky_decomp},
14053 {"Math::GSL::Linalgc::gsl_linalg_pcholesky_solve", _wrap_gsl_linalg_pcholesky_solve},
14054 {"Math::GSL::Linalgc::gsl_linalg_pcholesky_svx", _wrap_gsl_linalg_pcholesky_svx},
14055 {"Math::GSL::Linalgc::gsl_linalg_pcholesky_decomp2", _wrap_gsl_linalg_pcholesky_decomp2},
14056 {"Math::GSL::Linalgc::gsl_linalg_pcholesky_solve2", _wrap_gsl_linalg_pcholesky_solve2},
14057 {"Math::GSL::Linalgc::gsl_linalg_pcholesky_svx2", _wrap_gsl_linalg_pcholesky_svx2},
14058 {"Math::GSL::Linalgc::gsl_linalg_pcholesky_invert", _wrap_gsl_linalg_pcholesky_invert},
14059 {"Math::GSL::Linalgc::gsl_linalg_pcholesky_rcond", _wrap_gsl_linalg_pcholesky_rcond},
14060 {"Math::GSL::Linalgc::gsl_linalg_mcholesky_decomp", _wrap_gsl_linalg_mcholesky_decomp},
14061 {"Math::GSL::Linalgc::gsl_linalg_mcholesky_solve", _wrap_gsl_linalg_mcholesky_solve},
14062 {"Math::GSL::Linalgc::gsl_linalg_mcholesky_svx", _wrap_gsl_linalg_mcholesky_svx},
14063 {"Math::GSL::Linalgc::gsl_linalg_mcholesky_rcond", _wrap_gsl_linalg_mcholesky_rcond},
14064 {"Math::GSL::Linalgc::gsl_linalg_mcholesky_invert", _wrap_gsl_linalg_mcholesky_invert},
14065 {"Math::GSL::Linalgc::gsl_linalg_symmtd_decomp", _wrap_gsl_linalg_symmtd_decomp},
14066 {"Math::GSL::Linalgc::gsl_linalg_symmtd_unpack", _wrap_gsl_linalg_symmtd_unpack},
14067 {"Math::GSL::Linalgc::gsl_linalg_symmtd_unpack_T", _wrap_gsl_linalg_symmtd_unpack_T},
14068 {"Math::GSL::Linalgc::gsl_linalg_hermtd_decomp", _wrap_gsl_linalg_hermtd_decomp},
14069 {"Math::GSL::Linalgc::gsl_linalg_hermtd_unpack", _wrap_gsl_linalg_hermtd_unpack},
14070 {"Math::GSL::Linalgc::gsl_linalg_hermtd_unpack_T", _wrap_gsl_linalg_hermtd_unpack_T},
14071 {"Math::GSL::Linalgc::gsl_linalg_HH_solve", _wrap_gsl_linalg_HH_solve},
14072 {"Math::GSL::Linalgc::gsl_linalg_HH_svx", _wrap_gsl_linalg_HH_svx},
14073 {"Math::GSL::Linalgc::gsl_linalg_solve_symm_tridiag", _wrap_gsl_linalg_solve_symm_tridiag},
14074 {"Math::GSL::Linalgc::gsl_linalg_solve_tridiag", _wrap_gsl_linalg_solve_tridiag},
14075 {"Math::GSL::Linalgc::gsl_linalg_solve_symm_cyc_tridiag", _wrap_gsl_linalg_solve_symm_cyc_tridiag},
14076 {"Math::GSL::Linalgc::gsl_linalg_solve_cyc_tridiag", _wrap_gsl_linalg_solve_cyc_tridiag},
14077 {"Math::GSL::Linalgc::gsl_linalg_bidiag_decomp", _wrap_gsl_linalg_bidiag_decomp},
14078 {"Math::GSL::Linalgc::gsl_linalg_bidiag_unpack", _wrap_gsl_linalg_bidiag_unpack},
14079 {"Math::GSL::Linalgc::gsl_linalg_bidiag_unpack2", _wrap_gsl_linalg_bidiag_unpack2},
14080 {"Math::GSL::Linalgc::gsl_linalg_bidiag_unpack_B", _wrap_gsl_linalg_bidiag_unpack_B},
14081 {"Math::GSL::Linalgc::gsl_linalg_balance_matrix", _wrap_gsl_linalg_balance_matrix},
14082 {"Math::GSL::Linalgc::gsl_linalg_balance_accum", _wrap_gsl_linalg_balance_accum},
14083 {"Math::GSL::Linalgc::gsl_linalg_balance_columns", _wrap_gsl_linalg_balance_columns},
14084 {"Math::GSL::Linalgc::gsl_linalg_tri_upper_rcond", _wrap_gsl_linalg_tri_upper_rcond},
14085 {"Math::GSL::Linalgc::gsl_linalg_tri_lower_rcond", _wrap_gsl_linalg_tri_lower_rcond},
14086 {"Math::GSL::Linalgc::gsl_linalg_invnorm1", _wrap_gsl_linalg_invnorm1},
14087 {"Math::GSL::Linalgc::gsl_linalg_tri_upper_invert", _wrap_gsl_linalg_tri_upper_invert},
14088 {"Math::GSL::Linalgc::gsl_linalg_tri_lower_invert", _wrap_gsl_linalg_tri_lower_invert},
14089 {"Math::GSL::Linalgc::gsl_linalg_tri_upper_unit_invert", _wrap_gsl_linalg_tri_upper_unit_invert},
14090 {"Math::GSL::Linalgc::gsl_linalg_tri_lower_unit_invert", _wrap_gsl_linalg_tri_lower_unit_invert},
14091 {"Math::GSL::Linalgc::gsl_linalg_givens", _wrap_gsl_linalg_givens},
14092 {"Math::GSL::Linalgc::gsl_linalg_givens_gv", _wrap_gsl_linalg_givens_gv},
14093 {"Math::GSL::Linalgc::gsl_permutation_struct_size_set", _wrap_gsl_permutation_struct_size_set},
14094 {"Math::GSL::Linalgc::gsl_permutation_struct_size_get", _wrap_gsl_permutation_struct_size_get},
14095 {"Math::GSL::Linalgc::gsl_permutation_struct_data_set", _wrap_gsl_permutation_struct_data_set},
14096 {"Math::GSL::Linalgc::gsl_permutation_struct_data_get", _wrap_gsl_permutation_struct_data_get},
14097 {"Math::GSL::Linalgc::new_gsl_permutation_struct", _wrap_new_gsl_permutation_struct},
14098 {"Math::GSL::Linalgc::delete_gsl_permutation_struct", _wrap_delete_gsl_permutation_struct},
14099 {"Math::GSL::Linalgc::gsl_permutation_alloc", _wrap_gsl_permutation_alloc},
14100 {"Math::GSL::Linalgc::gsl_permutation_calloc", _wrap_gsl_permutation_calloc},
14101 {"Math::GSL::Linalgc::gsl_permutation_init", _wrap_gsl_permutation_init},
14102 {"Math::GSL::Linalgc::gsl_permutation_free", _wrap_gsl_permutation_free},
14103 {"Math::GSL::Linalgc::gsl_permutation_memcpy", _wrap_gsl_permutation_memcpy},
14104 {"Math::GSL::Linalgc::gsl_permutation_fread", _wrap_gsl_permutation_fread},
14105 {"Math::GSL::Linalgc::gsl_permutation_fwrite", _wrap_gsl_permutation_fwrite},
14106 {"Math::GSL::Linalgc::gsl_permutation_fscanf", _wrap_gsl_permutation_fscanf},
14107 {"Math::GSL::Linalgc::gsl_permutation_fprintf", _wrap_gsl_permutation_fprintf},
14108 {"Math::GSL::Linalgc::gsl_permutation_size", _wrap_gsl_permutation_size},
14109 {"Math::GSL::Linalgc::gsl_permutation_data", _wrap_gsl_permutation_data},
14110 {"Math::GSL::Linalgc::gsl_permutation_swap", _wrap_gsl_permutation_swap},
14111 {"Math::GSL::Linalgc::gsl_permutation_valid", _wrap_gsl_permutation_valid},
14112 {"Math::GSL::Linalgc::gsl_permutation_reverse", _wrap_gsl_permutation_reverse},
14113 {"Math::GSL::Linalgc::gsl_permutation_inverse", _wrap_gsl_permutation_inverse},
14114 {"Math::GSL::Linalgc::gsl_permutation_next", _wrap_gsl_permutation_next},
14115 {"Math::GSL::Linalgc::gsl_permutation_prev", _wrap_gsl_permutation_prev},
14116 {"Math::GSL::Linalgc::gsl_permutation_mul", _wrap_gsl_permutation_mul},
14117 {"Math::GSL::Linalgc::gsl_permutation_linear_to_canonical", _wrap_gsl_permutation_linear_to_canonical},
14118 {"Math::GSL::Linalgc::gsl_permutation_canonical_to_linear", _wrap_gsl_permutation_canonical_to_linear},
14119 {"Math::GSL::Linalgc::gsl_permutation_inversions", _wrap_gsl_permutation_inversions},
14120 {"Math::GSL::Linalgc::gsl_permutation_linear_cycles", _wrap_gsl_permutation_linear_cycles},
14121 {"Math::GSL::Linalgc::gsl_permutation_canonical_cycles", _wrap_gsl_permutation_canonical_cycles},
14122 {"Math::GSL::Linalgc::gsl_permutation_get", _wrap_gsl_permutation_get},
14123 {"Math::GSL::Linalgc::gsl_complex_dat_set", _wrap_gsl_complex_dat_set},
14124 {"Math::GSL::Linalgc::gsl_complex_dat_get", _wrap_gsl_complex_dat_get},
14125 {"Math::GSL::Linalgc::new_gsl_complex", _wrap_new_gsl_complex},
14126 {"Math::GSL::Linalgc::delete_gsl_complex", _wrap_delete_gsl_complex},
14127 {"Math::GSL::Linalgc::gsl_complex_long_double_dat_set", _wrap_gsl_complex_long_double_dat_set},
14128 {"Math::GSL::Linalgc::gsl_complex_long_double_dat_get", _wrap_gsl_complex_long_double_dat_get},
14129 {"Math::GSL::Linalgc::new_gsl_complex_long_double", _wrap_new_gsl_complex_long_double},
14130 {"Math::GSL::Linalgc::delete_gsl_complex_long_double", _wrap_delete_gsl_complex_long_double},
14131 {"Math::GSL::Linalgc::gsl_complex_float_dat_set", _wrap_gsl_complex_float_dat_set},
14132 {"Math::GSL::Linalgc::gsl_complex_float_dat_get", _wrap_gsl_complex_float_dat_get},
14133 {"Math::GSL::Linalgc::new_gsl_complex_float", _wrap_new_gsl_complex_float},
14134 {"Math::GSL::Linalgc::delete_gsl_complex_float", _wrap_delete_gsl_complex_float},
14135 {"Math::GSL::Linalgc::gsl_complex_polar", _wrap_gsl_complex_polar},
14136 {"Math::GSL::Linalgc::gsl_complex_rect", _wrap_gsl_complex_rect},
14137 {"Math::GSL::Linalgc::gsl_complex_arg", _wrap_gsl_complex_arg},
14138 {"Math::GSL::Linalgc::gsl_complex_abs", _wrap_gsl_complex_abs},
14139 {"Math::GSL::Linalgc::gsl_complex_abs2", _wrap_gsl_complex_abs2},
14140 {"Math::GSL::Linalgc::gsl_complex_logabs", _wrap_gsl_complex_logabs},
14141 {"Math::GSL::Linalgc::gsl_complex_add", _wrap_gsl_complex_add},
14142 {"Math::GSL::Linalgc::gsl_complex_sub", _wrap_gsl_complex_sub},
14143 {"Math::GSL::Linalgc::gsl_complex_mul", _wrap_gsl_complex_mul},
14144 {"Math::GSL::Linalgc::gsl_complex_div", _wrap_gsl_complex_div},
14145 {"Math::GSL::Linalgc::gsl_complex_add_real", _wrap_gsl_complex_add_real},
14146 {"Math::GSL::Linalgc::gsl_complex_sub_real", _wrap_gsl_complex_sub_real},
14147 {"Math::GSL::Linalgc::gsl_complex_mul_real", _wrap_gsl_complex_mul_real},
14148 {"Math::GSL::Linalgc::gsl_complex_div_real", _wrap_gsl_complex_div_real},
14149 {"Math::GSL::Linalgc::gsl_complex_add_imag", _wrap_gsl_complex_add_imag},
14150 {"Math::GSL::Linalgc::gsl_complex_sub_imag", _wrap_gsl_complex_sub_imag},
14151 {"Math::GSL::Linalgc::gsl_complex_mul_imag", _wrap_gsl_complex_mul_imag},
14152 {"Math::GSL::Linalgc::gsl_complex_div_imag", _wrap_gsl_complex_div_imag},
14153 {"Math::GSL::Linalgc::gsl_complex_conjugate", _wrap_gsl_complex_conjugate},
14154 {"Math::GSL::Linalgc::gsl_complex_inverse", _wrap_gsl_complex_inverse},
14155 {"Math::GSL::Linalgc::gsl_complex_negative", _wrap_gsl_complex_negative},
14156 {"Math::GSL::Linalgc::gsl_complex_sqrt", _wrap_gsl_complex_sqrt},
14157 {"Math::GSL::Linalgc::gsl_complex_sqrt_real", _wrap_gsl_complex_sqrt_real},
14158 {"Math::GSL::Linalgc::gsl_complex_pow", _wrap_gsl_complex_pow},
14159 {"Math::GSL::Linalgc::gsl_complex_pow_real", _wrap_gsl_complex_pow_real},
14160 {"Math::GSL::Linalgc::gsl_complex_exp", _wrap_gsl_complex_exp},
14161 {"Math::GSL::Linalgc::gsl_complex_log", _wrap_gsl_complex_log},
14162 {"Math::GSL::Linalgc::gsl_complex_log10", _wrap_gsl_complex_log10},
14163 {"Math::GSL::Linalgc::gsl_complex_log_b", _wrap_gsl_complex_log_b},
14164 {"Math::GSL::Linalgc::gsl_complex_sin", _wrap_gsl_complex_sin},
14165 {"Math::GSL::Linalgc::gsl_complex_cos", _wrap_gsl_complex_cos},
14166 {"Math::GSL::Linalgc::gsl_complex_sec", _wrap_gsl_complex_sec},
14167 {"Math::GSL::Linalgc::gsl_complex_csc", _wrap_gsl_complex_csc},
14168 {"Math::GSL::Linalgc::gsl_complex_tan", _wrap_gsl_complex_tan},
14169 {"Math::GSL::Linalgc::gsl_complex_cot", _wrap_gsl_complex_cot},
14170 {"Math::GSL::Linalgc::gsl_complex_arcsin", _wrap_gsl_complex_arcsin},
14171 {"Math::GSL::Linalgc::gsl_complex_arcsin_real", _wrap_gsl_complex_arcsin_real},
14172 {"Math::GSL::Linalgc::gsl_complex_arccos", _wrap_gsl_complex_arccos},
14173 {"Math::GSL::Linalgc::gsl_complex_arccos_real", _wrap_gsl_complex_arccos_real},
14174 {"Math::GSL::Linalgc::gsl_complex_arcsec", _wrap_gsl_complex_arcsec},
14175 {"Math::GSL::Linalgc::gsl_complex_arcsec_real", _wrap_gsl_complex_arcsec_real},
14176 {"Math::GSL::Linalgc::gsl_complex_arccsc", _wrap_gsl_complex_arccsc},
14177 {"Math::GSL::Linalgc::gsl_complex_arccsc_real", _wrap_gsl_complex_arccsc_real},
14178 {"Math::GSL::Linalgc::gsl_complex_arctan", _wrap_gsl_complex_arctan},
14179 {"Math::GSL::Linalgc::gsl_complex_arccot", _wrap_gsl_complex_arccot},
14180 {"Math::GSL::Linalgc::gsl_complex_sinh", _wrap_gsl_complex_sinh},
14181 {"Math::GSL::Linalgc::gsl_complex_cosh", _wrap_gsl_complex_cosh},
14182 {"Math::GSL::Linalgc::gsl_complex_sech", _wrap_gsl_complex_sech},
14183 {"Math::GSL::Linalgc::gsl_complex_csch", _wrap_gsl_complex_csch},
14184 {"Math::GSL::Linalgc::gsl_complex_tanh", _wrap_gsl_complex_tanh},
14185 {"Math::GSL::Linalgc::gsl_complex_coth", _wrap_gsl_complex_coth},
14186 {"Math::GSL::Linalgc::gsl_complex_arcsinh", _wrap_gsl_complex_arcsinh},
14187 {"Math::GSL::Linalgc::gsl_complex_arccosh", _wrap_gsl_complex_arccosh},
14188 {"Math::GSL::Linalgc::gsl_complex_arccosh_real", _wrap_gsl_complex_arccosh_real},
14189 {"Math::GSL::Linalgc::gsl_complex_arcsech", _wrap_gsl_complex_arcsech},
14190 {"Math::GSL::Linalgc::gsl_complex_arccsch", _wrap_gsl_complex_arccsch},
14191 {"Math::GSL::Linalgc::gsl_complex_arctanh", _wrap_gsl_complex_arctanh},
14192 {"Math::GSL::Linalgc::gsl_complex_arctanh_real", _wrap_gsl_complex_arctanh_real},
14193 {"Math::GSL::Linalgc::gsl_complex_arccoth", _wrap_gsl_complex_arccoth},
14194 {0,0}
14195 };
14196 /* -----------------------------------------------------------------------------
14197 * Type initialization:
14198 * This problem is tough by the requirement that no dynamic
14199 * memory is used. Also, since swig_type_info structures store pointers to
14200 * swig_cast_info structures and swig_cast_info structures store pointers back
14201 * to swig_type_info structures, we need some lookup code at initialization.
14202 * The idea is that swig generates all the structures that are needed.
14203 * The runtime then collects these partially filled structures.
14204 * The SWIG_InitializeModule function takes these initial arrays out of
14205 * swig_module, and does all the lookup, filling in the swig_module.types
14206 * array with the correct data and linking the correct swig_cast_info
14207 * structures together.
14208 *
14209 * The generated swig_type_info structures are assigned statically to an initial
14210 * array. We just loop through that array, and handle each type individually.
14211 * First we lookup if this type has been already loaded, and if so, use the
14212 * loaded structure instead of the generated one. Then we have to fill in the
14213 * cast linked list. The cast data is initially stored in something like a
14214 * two-dimensional array. Each row corresponds to a type (there are the same
14215 * number of rows as there are in the swig_type_initial array). Each entry in
14216 * a column is one of the swig_cast_info structures for that type.
14217 * The cast_initial array is actually an array of arrays, because each row has
14218 * a variable number of columns. So to actually build the cast linked list,
14219 * we find the array of casts associated with the type, and loop through it
14220 * adding the casts to the list. The one last trick we need to do is making
14221 * sure the type pointer in the swig_cast_info struct is correct.
14222 *
14223 * First off, we lookup the cast->type name to see if it is already loaded.
14224 * There are three cases to handle:
14225 * 1) If the cast->type has already been loaded AND the type we are adding
14226 * casting info to has not been loaded (it is in this module), THEN we
14227 * replace the cast->type pointer with the type pointer that has already
14228 * been loaded.
14229 * 2) If BOTH types (the one we are adding casting info to, and the
14230 * cast->type) are loaded, THEN the cast info has already been loaded by
14231 * the previous module so we just ignore it.
14232 * 3) Finally, if cast->type has not already been loaded, then we add that
14233 * swig_cast_info to the linked list (because the cast->type) pointer will
14234 * be correct.
14235 * ----------------------------------------------------------------------------- */
14236
14237 #ifdef __cplusplus
14238 extern "C" {
14239 #if 0
14240 } /* c-mode */
14241 #endif
14242 #endif
14243
14244 #if 0
14245 #define SWIGRUNTIME_DEBUG
14246 #endif
14247
14248
14249 SWIGRUNTIME void
SWIG_InitializeModule(void * clientdata)14250 SWIG_InitializeModule(void *clientdata) {
14251 size_t i;
14252 swig_module_info *module_head, *iter;
14253 int init;
14254
14255 /* check to see if the circular list has been setup, if not, set it up */
14256 if (swig_module.next==0) {
14257 /* Initialize the swig_module */
14258 swig_module.type_initial = swig_type_initial;
14259 swig_module.cast_initial = swig_cast_initial;
14260 swig_module.next = &swig_module;
14261 init = 1;
14262 } else {
14263 init = 0;
14264 }
14265
14266 /* Try and load any already created modules */
14267 module_head = SWIG_GetModule(clientdata);
14268 if (!module_head) {
14269 /* This is the first module loaded for this interpreter */
14270 /* so set the swig module into the interpreter */
14271 SWIG_SetModule(clientdata, &swig_module);
14272 } else {
14273 /* the interpreter has loaded a SWIG module, but has it loaded this one? */
14274 iter=module_head;
14275 do {
14276 if (iter==&swig_module) {
14277 /* Our module is already in the list, so there's nothing more to do. */
14278 return;
14279 }
14280 iter=iter->next;
14281 } while (iter!= module_head);
14282
14283 /* otherwise we must add our module into the list */
14284 swig_module.next = module_head->next;
14285 module_head->next = &swig_module;
14286 }
14287
14288 /* When multiple interpreters are used, a module could have already been initialized in
14289 a different interpreter, but not yet have a pointer in this interpreter.
14290 In this case, we do not want to continue adding types... everything should be
14291 set up already */
14292 if (init == 0) return;
14293
14294 /* Now work on filling in swig_module.types */
14295 #ifdef SWIGRUNTIME_DEBUG
14296 printf("SWIG_InitializeModule: size %lu\n", (unsigned long)swig_module.size);
14297 #endif
14298 for (i = 0; i < swig_module.size; ++i) {
14299 swig_type_info *type = 0;
14300 swig_type_info *ret;
14301 swig_cast_info *cast;
14302
14303 #ifdef SWIGRUNTIME_DEBUG
14304 printf("SWIG_InitializeModule: type %lu %s\n", (unsigned long)i, swig_module.type_initial[i]->name);
14305 #endif
14306
14307 /* if there is another module already loaded */
14308 if (swig_module.next != &swig_module) {
14309 type = SWIG_MangledTypeQueryModule(swig_module.next, &swig_module, swig_module.type_initial[i]->name);
14310 }
14311 if (type) {
14312 /* Overwrite clientdata field */
14313 #ifdef SWIGRUNTIME_DEBUG
14314 printf("SWIG_InitializeModule: found type %s\n", type->name);
14315 #endif
14316 if (swig_module.type_initial[i]->clientdata) {
14317 type->clientdata = swig_module.type_initial[i]->clientdata;
14318 #ifdef SWIGRUNTIME_DEBUG
14319 printf("SWIG_InitializeModule: found and overwrite type %s \n", type->name);
14320 #endif
14321 }
14322 } else {
14323 type = swig_module.type_initial[i];
14324 }
14325
14326 /* Insert casting types */
14327 cast = swig_module.cast_initial[i];
14328 while (cast->type) {
14329 /* Don't need to add information already in the list */
14330 ret = 0;
14331 #ifdef SWIGRUNTIME_DEBUG
14332 printf("SWIG_InitializeModule: look cast %s\n", cast->type->name);
14333 #endif
14334 if (swig_module.next != &swig_module) {
14335 ret = SWIG_MangledTypeQueryModule(swig_module.next, &swig_module, cast->type->name);
14336 #ifdef SWIGRUNTIME_DEBUG
14337 if (ret) printf("SWIG_InitializeModule: found cast %s\n", ret->name);
14338 #endif
14339 }
14340 if (ret) {
14341 if (type == swig_module.type_initial[i]) {
14342 #ifdef SWIGRUNTIME_DEBUG
14343 printf("SWIG_InitializeModule: skip old type %s\n", ret->name);
14344 #endif
14345 cast->type = ret;
14346 ret = 0;
14347 } else {
14348 /* Check for casting already in the list */
14349 swig_cast_info *ocast = SWIG_TypeCheck(ret->name, type);
14350 #ifdef SWIGRUNTIME_DEBUG
14351 if (ocast) printf("SWIG_InitializeModule: skip old cast %s\n", ret->name);
14352 #endif
14353 if (!ocast) ret = 0;
14354 }
14355 }
14356
14357 if (!ret) {
14358 #ifdef SWIGRUNTIME_DEBUG
14359 printf("SWIG_InitializeModule: adding cast %s\n", cast->type->name);
14360 #endif
14361 if (type->cast) {
14362 type->cast->prev = cast;
14363 cast->next = type->cast;
14364 }
14365 type->cast = cast;
14366 }
14367 cast++;
14368 }
14369 /* Set entry in modules->types array equal to the type */
14370 swig_module.types[i] = type;
14371 }
14372 swig_module.types[i] = 0;
14373
14374 #ifdef SWIGRUNTIME_DEBUG
14375 printf("**** SWIG_InitializeModule: Cast List ******\n");
14376 for (i = 0; i < swig_module.size; ++i) {
14377 int j = 0;
14378 swig_cast_info *cast = swig_module.cast_initial[i];
14379 printf("SWIG_InitializeModule: type %lu %s\n", (unsigned long)i, swig_module.type_initial[i]->name);
14380 while (cast->type) {
14381 printf("SWIG_InitializeModule: cast type %s\n", cast->type->name);
14382 cast++;
14383 ++j;
14384 }
14385 printf("---- Total casts: %d\n",j);
14386 }
14387 printf("**** SWIG_InitializeModule: Cast List ******\n");
14388 #endif
14389 }
14390
14391 /* This function will propagate the clientdata field of type to
14392 * any new swig_type_info structures that have been added into the list
14393 * of equivalent types. It is like calling
14394 * SWIG_TypeClientData(type, clientdata) a second time.
14395 */
14396 SWIGRUNTIME void
SWIG_PropagateClientData(void)14397 SWIG_PropagateClientData(void) {
14398 size_t i;
14399 swig_cast_info *equiv;
14400 static int init_run = 0;
14401
14402 if (init_run) return;
14403 init_run = 1;
14404
14405 for (i = 0; i < swig_module.size; i++) {
14406 if (swig_module.types[i]->clientdata) {
14407 equiv = swig_module.types[i]->cast;
14408 while (equiv) {
14409 if (!equiv->converter) {
14410 if (equiv->type && !equiv->type->clientdata)
14411 SWIG_TypeClientData(equiv->type, swig_module.types[i]->clientdata);
14412 }
14413 equiv = equiv->next;
14414 }
14415 }
14416 }
14417 }
14418
14419 #ifdef __cplusplus
14420 #if 0
14421 {
14422 /* c-mode */
14423 #endif
14424 }
14425 #endif
14426
14427
14428
14429 #if defined(__cplusplus) && ! defined(XSPROTO)
14430 extern "C"
14431 #endif
14432
XS(SWIG_init)14433 XS(SWIG_init) {
14434 dXSARGS;
14435 int i;
14436 (void)items;
14437
14438 SWIG_InitializeModule(0);
14439
14440 /* Install commands */
14441 for (i = 0; swig_commands[i].name; i++) {
14442 /* Casts only needed for Perl < 5.10. */
14443 #ifdef __cplusplus
14444 newXS(const_cast<char*>(swig_commands[i].name), swig_commands[i].wrapper, const_cast<char*>(__FILE__));
14445 #else
14446 newXS((char*)swig_commands[i].name, swig_commands[i].wrapper, (char*)__FILE__);
14447 #endif
14448 }
14449
14450 /* Install variables */
14451 for (i = 0; swig_variables[i].name; i++) {
14452 SV *sv;
14453 sv = get_sv(swig_variables[i].name, TRUE | 0x2 | GV_ADDMULTI);
14454 if (swig_variables[i].type) {
14455 SWIG_MakePtr(sv,(void *)1, *swig_variables[i].type,0);
14456 } else {
14457 sv_setiv(sv,(IV) 0);
14458 }
14459 swig_create_magic(sv, swig_variables[i].name, swig_variables[i].set, swig_variables[i].get);
14460 }
14461
14462 /* Install constant */
14463 for (i = 0; swig_constants[i].type; i++) {
14464 SV *sv;
14465 sv = get_sv(swig_constants[i].name, TRUE | 0x2 | GV_ADDMULTI);
14466 switch(swig_constants[i].type) {
14467 case SWIG_INT:
14468 sv_setiv(sv, (IV) swig_constants[i].lvalue);
14469 break;
14470 case SWIG_FLOAT:
14471 sv_setnv(sv, (double) swig_constants[i].dvalue);
14472 break;
14473 case SWIG_STRING:
14474 sv_setpv(sv, (const char *) swig_constants[i].pvalue);
14475 break;
14476 case SWIG_POINTER:
14477 SWIG_MakePtr(sv, swig_constants[i].pvalue, *(swig_constants[i].ptype),0);
14478 break;
14479 case SWIG_BINARY:
14480 SWIG_MakePackedObj(sv, swig_constants[i].pvalue, swig_constants[i].lvalue, *(swig_constants[i].ptype));
14481 break;
14482 default:
14483 break;
14484 }
14485 SvREADONLY_on(sv);
14486 }
14487
14488 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
14489 SV *sv = get_sv((char*) SWIG_prefix "GSL_VERSION", TRUE | 0x2 | GV_ADDMULTI);
14490 sv_setsv(sv, SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(2.7)));
14491 SvREADONLY_on(sv);
14492 } while(0) /*@SWIG@*/;
14493 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
14494 SV *sv = get_sv((char*) SWIG_prefix "GSL_MAJOR_VERSION", TRUE | 0x2 | GV_ADDMULTI);
14495 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(2)));
14496 SvREADONLY_on(sv);
14497 } while(0) /*@SWIG@*/;
14498 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
14499 SV *sv = get_sv((char*) SWIG_prefix "GSL_MINOR_VERSION", TRUE | 0x2 | GV_ADDMULTI);
14500 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(7)));
14501 SvREADONLY_on(sv);
14502 } while(0) /*@SWIG@*/;
14503 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
14504 SV *sv = get_sv((char*) SWIG_prefix "GSL_POSZERO", TRUE | 0x2 | GV_ADDMULTI);
14505 sv_setsv(sv, SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)((+0.0))));
14506 SvREADONLY_on(sv);
14507 } while(0) /*@SWIG@*/;
14508 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
14509 SV *sv = get_sv((char*) SWIG_prefix "GSL_NEGZERO", TRUE | 0x2 | GV_ADDMULTI);
14510 sv_setsv(sv, SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)((-0.0))));
14511 SvREADONLY_on(sv);
14512 } while(0) /*@SWIG@*/;
14513 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
14514 SV *sv = get_sv((char*) SWIG_prefix "GSL_SUCCESS", TRUE | 0x2 | GV_ADDMULTI);
14515 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_SUCCESS)));
14516 SvREADONLY_on(sv);
14517 } while(0) /*@SWIG@*/;
14518 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
14519 SV *sv = get_sv((char*) SWIG_prefix "GSL_FAILURE", TRUE | 0x2 | GV_ADDMULTI);
14520 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_FAILURE)));
14521 SvREADONLY_on(sv);
14522 } while(0) /*@SWIG@*/;
14523 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
14524 SV *sv = get_sv((char*) SWIG_prefix "GSL_CONTINUE", TRUE | 0x2 | GV_ADDMULTI);
14525 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_CONTINUE)));
14526 SvREADONLY_on(sv);
14527 } while(0) /*@SWIG@*/;
14528 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
14529 SV *sv = get_sv((char*) SWIG_prefix "GSL_EDOM", TRUE | 0x2 | GV_ADDMULTI);
14530 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EDOM)));
14531 SvREADONLY_on(sv);
14532 } while(0) /*@SWIG@*/;
14533 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
14534 SV *sv = get_sv((char*) SWIG_prefix "GSL_ERANGE", TRUE | 0x2 | GV_ADDMULTI);
14535 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ERANGE)));
14536 SvREADONLY_on(sv);
14537 } while(0) /*@SWIG@*/;
14538 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
14539 SV *sv = get_sv((char*) SWIG_prefix "GSL_EFAULT", TRUE | 0x2 | GV_ADDMULTI);
14540 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EFAULT)));
14541 SvREADONLY_on(sv);
14542 } while(0) /*@SWIG@*/;
14543 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
14544 SV *sv = get_sv((char*) SWIG_prefix "GSL_EINVAL", TRUE | 0x2 | GV_ADDMULTI);
14545 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EINVAL)));
14546 SvREADONLY_on(sv);
14547 } while(0) /*@SWIG@*/;
14548 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
14549 SV *sv = get_sv((char*) SWIG_prefix "GSL_EFAILED", TRUE | 0x2 | GV_ADDMULTI);
14550 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EFAILED)));
14551 SvREADONLY_on(sv);
14552 } while(0) /*@SWIG@*/;
14553 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
14554 SV *sv = get_sv((char*) SWIG_prefix "GSL_EFACTOR", TRUE | 0x2 | GV_ADDMULTI);
14555 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EFACTOR)));
14556 SvREADONLY_on(sv);
14557 } while(0) /*@SWIG@*/;
14558 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
14559 SV *sv = get_sv((char*) SWIG_prefix "GSL_ESANITY", TRUE | 0x2 | GV_ADDMULTI);
14560 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ESANITY)));
14561 SvREADONLY_on(sv);
14562 } while(0) /*@SWIG@*/;
14563 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
14564 SV *sv = get_sv((char*) SWIG_prefix "GSL_ENOMEM", TRUE | 0x2 | GV_ADDMULTI);
14565 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ENOMEM)));
14566 SvREADONLY_on(sv);
14567 } while(0) /*@SWIG@*/;
14568 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
14569 SV *sv = get_sv((char*) SWIG_prefix "GSL_EBADFUNC", TRUE | 0x2 | GV_ADDMULTI);
14570 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EBADFUNC)));
14571 SvREADONLY_on(sv);
14572 } while(0) /*@SWIG@*/;
14573 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
14574 SV *sv = get_sv((char*) SWIG_prefix "GSL_ERUNAWAY", TRUE | 0x2 | GV_ADDMULTI);
14575 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ERUNAWAY)));
14576 SvREADONLY_on(sv);
14577 } while(0) /*@SWIG@*/;
14578 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
14579 SV *sv = get_sv((char*) SWIG_prefix "GSL_EMAXITER", TRUE | 0x2 | GV_ADDMULTI);
14580 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EMAXITER)));
14581 SvREADONLY_on(sv);
14582 } while(0) /*@SWIG@*/;
14583 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
14584 SV *sv = get_sv((char*) SWIG_prefix "GSL_EZERODIV", TRUE | 0x2 | GV_ADDMULTI);
14585 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EZERODIV)));
14586 SvREADONLY_on(sv);
14587 } while(0) /*@SWIG@*/;
14588 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
14589 SV *sv = get_sv((char*) SWIG_prefix "GSL_EBADTOL", TRUE | 0x2 | GV_ADDMULTI);
14590 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EBADTOL)));
14591 SvREADONLY_on(sv);
14592 } while(0) /*@SWIG@*/;
14593 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
14594 SV *sv = get_sv((char*) SWIG_prefix "GSL_ETOL", TRUE | 0x2 | GV_ADDMULTI);
14595 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ETOL)));
14596 SvREADONLY_on(sv);
14597 } while(0) /*@SWIG@*/;
14598 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
14599 SV *sv = get_sv((char*) SWIG_prefix "GSL_EUNDRFLW", TRUE | 0x2 | GV_ADDMULTI);
14600 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EUNDRFLW)));
14601 SvREADONLY_on(sv);
14602 } while(0) /*@SWIG@*/;
14603 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
14604 SV *sv = get_sv((char*) SWIG_prefix "GSL_EOVRFLW", TRUE | 0x2 | GV_ADDMULTI);
14605 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EOVRFLW)));
14606 SvREADONLY_on(sv);
14607 } while(0) /*@SWIG@*/;
14608 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
14609 SV *sv = get_sv((char*) SWIG_prefix "GSL_ELOSS", TRUE | 0x2 | GV_ADDMULTI);
14610 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ELOSS)));
14611 SvREADONLY_on(sv);
14612 } while(0) /*@SWIG@*/;
14613 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
14614 SV *sv = get_sv((char*) SWIG_prefix "GSL_EROUND", TRUE | 0x2 | GV_ADDMULTI);
14615 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EROUND)));
14616 SvREADONLY_on(sv);
14617 } while(0) /*@SWIG@*/;
14618 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
14619 SV *sv = get_sv((char*) SWIG_prefix "GSL_EBADLEN", TRUE | 0x2 | GV_ADDMULTI);
14620 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EBADLEN)));
14621 SvREADONLY_on(sv);
14622 } while(0) /*@SWIG@*/;
14623 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
14624 SV *sv = get_sv((char*) SWIG_prefix "GSL_ENOTSQR", TRUE | 0x2 | GV_ADDMULTI);
14625 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ENOTSQR)));
14626 SvREADONLY_on(sv);
14627 } while(0) /*@SWIG@*/;
14628 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
14629 SV *sv = get_sv((char*) SWIG_prefix "GSL_ESING", TRUE | 0x2 | GV_ADDMULTI);
14630 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ESING)));
14631 SvREADONLY_on(sv);
14632 } while(0) /*@SWIG@*/;
14633 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
14634 SV *sv = get_sv((char*) SWIG_prefix "GSL_EDIVERGE", TRUE | 0x2 | GV_ADDMULTI);
14635 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EDIVERGE)));
14636 SvREADONLY_on(sv);
14637 } while(0) /*@SWIG@*/;
14638 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
14639 SV *sv = get_sv((char*) SWIG_prefix "GSL_EUNSUP", TRUE | 0x2 | GV_ADDMULTI);
14640 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EUNSUP)));
14641 SvREADONLY_on(sv);
14642 } while(0) /*@SWIG@*/;
14643 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
14644 SV *sv = get_sv((char*) SWIG_prefix "GSL_EUNIMPL", TRUE | 0x2 | GV_ADDMULTI);
14645 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EUNIMPL)));
14646 SvREADONLY_on(sv);
14647 } while(0) /*@SWIG@*/;
14648 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
14649 SV *sv = get_sv((char*) SWIG_prefix "GSL_ECACHE", TRUE | 0x2 | GV_ADDMULTI);
14650 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ECACHE)));
14651 SvREADONLY_on(sv);
14652 } while(0) /*@SWIG@*/;
14653 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
14654 SV *sv = get_sv((char*) SWIG_prefix "GSL_ETABLE", TRUE | 0x2 | GV_ADDMULTI);
14655 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ETABLE)));
14656 SvREADONLY_on(sv);
14657 } while(0) /*@SWIG@*/;
14658 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
14659 SV *sv = get_sv((char*) SWIG_prefix "GSL_ENOPROG", TRUE | 0x2 | GV_ADDMULTI);
14660 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ENOPROG)));
14661 SvREADONLY_on(sv);
14662 } while(0) /*@SWIG@*/;
14663 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
14664 SV *sv = get_sv((char*) SWIG_prefix "GSL_ENOPROGJ", TRUE | 0x2 | GV_ADDMULTI);
14665 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ENOPROGJ)));
14666 SvREADONLY_on(sv);
14667 } while(0) /*@SWIG@*/;
14668 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
14669 SV *sv = get_sv((char*) SWIG_prefix "GSL_ETOLF", TRUE | 0x2 | GV_ADDMULTI);
14670 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ETOLF)));
14671 SvREADONLY_on(sv);
14672 } while(0) /*@SWIG@*/;
14673 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
14674 SV *sv = get_sv((char*) SWIG_prefix "GSL_ETOLX", TRUE | 0x2 | GV_ADDMULTI);
14675 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ETOLX)));
14676 SvREADONLY_on(sv);
14677 } while(0) /*@SWIG@*/;
14678 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
14679 SV *sv = get_sv((char*) SWIG_prefix "GSL_ETOLG", TRUE | 0x2 | GV_ADDMULTI);
14680 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ETOLG)));
14681 SvREADONLY_on(sv);
14682 } while(0) /*@SWIG@*/;
14683 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
14684 SV *sv = get_sv((char*) SWIG_prefix "GSL_EOF", TRUE | 0x2 | GV_ADDMULTI);
14685 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EOF)));
14686 SvREADONLY_on(sv);
14687 } while(0) /*@SWIG@*/;
14688 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
14689 SV *sv = get_sv((char*) SWIG_prefix "GSL_LINALG_MOD_NONE", TRUE | 0x2 | GV_ADDMULTI);
14690 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_LINALG_MOD_NONE)));
14691 SvREADONLY_on(sv);
14692 } while(0) /*@SWIG@*/;
14693 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
14694 SV *sv = get_sv((char*) SWIG_prefix "GSL_LINALG_MOD_TRANSPOSE", TRUE | 0x2 | GV_ADDMULTI);
14695 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_LINALG_MOD_TRANSPOSE)));
14696 SvREADONLY_on(sv);
14697 } while(0) /*@SWIG@*/;
14698 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
14699 SV *sv = get_sv((char*) SWIG_prefix "GSL_LINALG_MOD_CONJUGATE", TRUE | 0x2 | GV_ADDMULTI);
14700 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_LINALG_MOD_CONJUGATE)));
14701 SvREADONLY_on(sv);
14702 } while(0) /*@SWIG@*/;
14703 SWIG_TypeClientData(SWIGTYPE_p_gsl_permutation_struct, (void*) "Math::GSL::Linalg::gsl_permutation_struct");
14704 SWIG_TypeClientData(SWIGTYPE_p_gsl_complex, (void*) "Math::GSL::Linalg::gsl_complex");
14705 SWIG_TypeClientData(SWIGTYPE_p_gsl_complex_long_double, (void*) "Math::GSL::Linalg::gsl_complex_long_double");
14706 SWIG_TypeClientData(SWIGTYPE_p_gsl_complex_float, (void*) "Math::GSL::Linalg::gsl_complex_float");
14707 ST(0) = &PL_sv_yes;
14708 XSRETURN(1);
14709 }
14710
14711