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_CBLAS_DIAG_t swig_types[0]
1520 #define SWIGTYPE_p_CBLAS_UPLO_t swig_types[1]
1521 #define SWIGTYPE_p_FILE swig_types[2]
1522 #define SWIGTYPE_p_char swig_types[3]
1523 #define SWIGTYPE_p_double swig_types[4]
1524 #define SWIGTYPE_p_f_CBLAS_TRANSPOSE_t_p_gsl_vector_p_void__int swig_types[5]
1525 #define SWIGTYPE_p_f_p_q_const__char_p_q_const__char_int_int__void swig_types[6]
1526 #define SWIGTYPE_p_f_p_q_const__char_p_q_const__char_int_p_q_const__char__void swig_types[7]
1527 #define SWIGTYPE_p_float swig_types[8]
1528 #define SWIGTYPE_p_gsl_complex swig_types[9]
1529 #define SWIGTYPE_p_gsl_complex_float swig_types[10]
1530 #define SWIGTYPE_p_gsl_complex_long_double swig_types[11]
1531 #define SWIGTYPE_p_gsl_linalg_matrix_mod_t swig_types[12]
1532 #define SWIGTYPE_p_gsl_matrix swig_types[13]
1533 #define SWIGTYPE_p_gsl_matrix_complex swig_types[14]
1534 #define SWIGTYPE_p_gsl_mode_t swig_types[15]
1535 #define SWIGTYPE_p_gsl_permutation_struct swig_types[16]
1536 #define SWIGTYPE_p_gsl_vector swig_types[17]
1537 #define SWIGTYPE_p_gsl_vector_complex swig_types[18]
1538 #define SWIGTYPE_p_gsl_vector_uint swig_types[19]
1539 #define SWIGTYPE_p_int swig_types[20]
1540 #define SWIGTYPE_p_long_double swig_types[21]
1541 #define SWIGTYPE_p_size_t swig_types[22]
1542 static swig_type_info *swig_types[24];
1543 static swig_module_info swig_module = {swig_types, 23, 0, 0, 0, 0};
1544 #define SWIG_TypeQuery(name) SWIG_TypeQueryModule(&swig_module, &swig_module, name)
1545 #define SWIG_MangledTypeQuery(name) SWIG_MangledTypeQueryModule(&swig_module, &swig_module, name)
1546
1547 /* -------- TYPES TABLE (END) -------- */
1548
1549 #define SWIG_init boot_Math__GSL__Linalg
1550
1551 #define SWIG_name "Math::GSL::Linalgc::boot_Math__GSL__Linalg"
1552 #define SWIG_prefix "Math::GSL::Linalgc::"
1553
1554 #define SWIGVERSION 0x040001
1555 #define SWIG_VERSION SWIGVERSION
1556
1557
1558 #define SWIG_as_voidptr(a) (void *)((const void *)(a))
1559 #define SWIG_as_voidptrptr(a) ((void)SWIG_as_voidptr(*a),(void**)(a))
1560
1561
1562 #ifdef __cplusplus
1563 extern "C"
1564 #endif
1565 #ifndef PERL_OBJECT
1566 #ifndef MULTIPLICITY
1567 SWIGEXPORT void SWIG_init (CV* cv);
1568 #else
1569 SWIGEXPORT void SWIG_init (pTHXo_ CV* cv);
1570 #endif
1571 #else
1572 SWIGEXPORT void SWIG_init (CV *cv, CPerlObj *);
1573 #endif
1574
1575
1576 SWIGINTERNINLINE SV *
SWIG_PERL_DECL_ARGS_1(double value)1577 SWIG_From_double SWIG_PERL_DECL_ARGS_1(double value)
1578 {
1579 return sv_2mortal(newSVnv(value));
1580 }
1581
1582
1583 SWIGINTERNINLINE SV *
SWIG_PERL_DECL_ARGS_1(long value)1584 SWIG_From_long SWIG_PERL_DECL_ARGS_1(long value)
1585 {
1586 SV *sv;
1587 if (IVSIZE >= sizeof(value) || (value >= IV_MIN && value <= IV_MAX))
1588 sv = newSViv(value);
1589 else
1590 sv = newSVpvf("%ld", value);
1591 return sv_2mortal(sv);
1592 }
1593
1594
1595 SWIGINTERNINLINE SV *
SWIG_PERL_DECL_ARGS_1(int value)1596 SWIG_From_int SWIG_PERL_DECL_ARGS_1(int value)
1597 {
1598 return SWIG_From_long SWIG_PERL_CALL_ARGS_1(value);
1599 }
1600
1601
1602 SWIGINTERN swig_type_info*
SWIG_pchar_descriptor(void)1603 SWIG_pchar_descriptor(void)
1604 {
1605 static int init = 0;
1606 static swig_type_info* info = 0;
1607 if (!init) {
1608 info = SWIG_TypeQuery("_p_char");
1609 init = 1;
1610 }
1611 return info;
1612 }
1613
1614
1615 SWIGINTERN int
SWIG_AsCharPtrAndSize(SV * obj,char ** cptr,size_t * psize,int * alloc)1616 SWIG_AsCharPtrAndSize(SV *obj, char** cptr, size_t* psize, int *alloc)
1617 {
1618 if (SvMAGICAL(obj)) {
1619 SV *tmp = sv_newmortal();
1620 SvSetSV(tmp, obj);
1621 obj = tmp;
1622 }
1623 if (SvPOK(obj)) {
1624 STRLEN len = 0;
1625 char *cstr = SvPV(obj, len);
1626 size_t size = len + 1;
1627 if (cptr) {
1628 if (alloc) {
1629 if (*alloc == SWIG_NEWOBJ) {
1630 *cptr = (char *)memcpy(malloc((size)*sizeof(char)), cstr, sizeof(char)*(size));
1631 } else {
1632 *cptr = cstr;
1633 *alloc = SWIG_OLDOBJ;
1634 }
1635 }
1636 }
1637 if (psize) *psize = size;
1638 return SWIG_OK;
1639 } else {
1640 swig_type_info* pchar_descriptor = SWIG_pchar_descriptor();
1641 if (pchar_descriptor) {
1642 char* vptr = 0;
1643 if (SWIG_ConvertPtr(obj, (void**)&vptr, pchar_descriptor, 0) == SWIG_OK) {
1644 if (cptr) *cptr = vptr;
1645 if (psize) *psize = vptr ? (strlen(vptr) + 1) : 0;
1646 if (alloc) *alloc = SWIG_OLDOBJ;
1647 return SWIG_OK;
1648 }
1649 }
1650 }
1651 return SWIG_TypeError;
1652 }
1653
1654
1655
1656
1657
1658 #include <limits.h>
1659 #if !defined(SWIG_NO_LLONG_MAX)
1660 # if !defined(LLONG_MAX) && defined(__GNUC__) && defined (__LONG_LONG_MAX__)
1661 # define LLONG_MAX __LONG_LONG_MAX__
1662 # define LLONG_MIN (-LLONG_MAX - 1LL)
1663 # define ULLONG_MAX (LLONG_MAX * 2ULL + 1ULL)
1664 # endif
1665 #endif
1666
1667
1668 #include <stdlib.h>
1669 #ifdef _MSC_VER
1670 # ifndef strtoull
1671 # define strtoull _strtoui64
1672 # endif
1673 # ifndef strtoll
1674 # define strtoll _strtoi64
1675 # endif
1676 #endif
1677
1678
1679 SWIGINTERN int
SWIG_PERL_DECL_ARGS_2(SV * obj,double * val)1680 SWIG_AsVal_double SWIG_PERL_DECL_ARGS_2(SV *obj, double *val)
1681 {
1682 if (SvNIOK(obj)) {
1683 if (val) *val = SvNV(obj);
1684 return SWIG_OK;
1685 } else if (SvIOK(obj)) {
1686 if (val) *val = (double) SvIV(obj);
1687 return SWIG_AddCast(SWIG_OK);
1688 } else {
1689 const char *nptr = SvPV_nolen(obj);
1690 if (nptr) {
1691 char *endptr;
1692 double v;
1693 errno = 0;
1694 v = strtod(nptr, &endptr);
1695 if (errno == ERANGE) {
1696 errno = 0;
1697 return SWIG_OverflowError;
1698 } else {
1699 if (*endptr == '\0') {
1700 if (val) *val = v;
1701 return SWIG_Str2NumCast(SWIG_OK);
1702 }
1703 }
1704 }
1705 }
1706 return SWIG_TypeError;
1707 }
1708
1709
1710 #include <float.h>
1711
1712
1713 #include <math.h>
1714
1715
1716 SWIGINTERNINLINE int
SWIG_CanCastAsInteger(double * d,double min,double max)1717 SWIG_CanCastAsInteger(double *d, double min, double max) {
1718 double x = *d;
1719 if ((min <= x && x <= max)) {
1720 double fx = floor(x);
1721 double cx = ceil(x);
1722 double rd = ((x - fx) < 0.5) ? fx : cx; /* simple rint */
1723 if ((errno == EDOM) || (errno == ERANGE)) {
1724 errno = 0;
1725 } else {
1726 double summ, reps, diff;
1727 if (rd < x) {
1728 diff = x - rd;
1729 } else if (rd > x) {
1730 diff = rd - x;
1731 } else {
1732 return 1;
1733 }
1734 summ = rd + x;
1735 reps = diff/summ;
1736 if (reps < 8*DBL_EPSILON) {
1737 *d = rd;
1738 return 1;
1739 }
1740 }
1741 }
1742 return 0;
1743 }
1744
1745
1746 SWIGINTERN int
SWIG_PERL_DECL_ARGS_2(SV * obj,long * val)1747 SWIG_AsVal_long SWIG_PERL_DECL_ARGS_2(SV *obj, long* val)
1748 {
1749 if (SvUOK(obj)) {
1750 UV v = SvUV(obj);
1751 if (UVSIZE < sizeof(*val) || v <= LONG_MAX) {
1752 if (val) *val = v;
1753 return SWIG_OK;
1754 }
1755 return SWIG_OverflowError;
1756 } else if (SvIOK(obj)) {
1757 IV v = SvIV(obj);
1758 if (IVSIZE <= sizeof(*val) || (v >= LONG_MIN && v <= LONG_MAX)) {
1759 if(val) *val = v;
1760 return SWIG_OK;
1761 }
1762 return SWIG_OverflowError;
1763 } else {
1764 int dispatch = 0;
1765 const char *nptr = SvPV_nolen(obj);
1766 if (nptr) {
1767 char *endptr;
1768 long v;
1769 errno = 0;
1770 v = strtol(nptr, &endptr,0);
1771 if (errno == ERANGE) {
1772 errno = 0;
1773 return SWIG_OverflowError;
1774 } else {
1775 if (*endptr == '\0') {
1776 if (val) *val = v;
1777 return SWIG_Str2NumCast(SWIG_OK);
1778 }
1779 }
1780 }
1781 if (!dispatch) {
1782 double d;
1783 int res = SWIG_AddCast(SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(obj,&d));
1784 if (SWIG_IsOK(res) && SWIG_CanCastAsInteger(&d, LONG_MIN, LONG_MAX)) {
1785 if (val) *val = (long)(d);
1786 return res;
1787 }
1788 }
1789 }
1790 return SWIG_TypeError;
1791 }
1792
1793
1794 SWIGINTERN int
SWIG_PERL_DECL_ARGS_2(SV * obj,int * val)1795 SWIG_AsVal_int SWIG_PERL_DECL_ARGS_2(SV * obj, int *val)
1796 {
1797 long v;
1798 int res = SWIG_AsVal_long SWIG_PERL_CALL_ARGS_2(obj, &v);
1799 if (SWIG_IsOK(res)) {
1800 if ((v < INT_MIN || v > INT_MAX)) {
1801 return SWIG_OverflowError;
1802 } else {
1803 if (val) *val = (int)(v);
1804 }
1805 }
1806 return res;
1807 }
1808
1809
1810 SWIGINTERNINLINE SV *
SWIG_FromCharPtrAndSize(const char * carray,size_t size)1811 SWIG_FromCharPtrAndSize(const char* carray, size_t size)
1812 {
1813 SV *obj = sv_newmortal();
1814 if (carray) {
1815 sv_setpvn(obj, carray, size);
1816 } else {
1817 sv_setsv(obj, &PL_sv_undef);
1818 }
1819 return obj;
1820 }
1821
1822
1823 SWIGINTERNINLINE SV *
SWIG_FromCharPtr(const char * cptr)1824 SWIG_FromCharPtr(const char *cptr)
1825 {
1826 return SWIG_FromCharPtrAndSize(cptr, (cptr ? strlen(cptr) : 0));
1827 }
1828
1829
1830 #include "gsl/gsl_nan.h"
1831 #include "gsl/gsl_errno.h"
1832 #include "gsl/gsl_math.h"
1833 #include "gsl/gsl_monte.h"
1834
1835
1836 struct perl_array {
1837 I32 len;
1838 AV *array;
1839 };
1840
1841
1842
1843 enum awType { awDouble, awFloat, awInt, awUnsigned };
1844
1845 typedef struct {
1846 I32 size;
1847 enum awType type;
1848 void * data;
1849 } array_wrapper;
1850
array_wrapper_alloc(int numelem,enum awType type)1851 array_wrapper * array_wrapper_alloc(int numelem, enum awType type){
1852 array_wrapper * rv = malloc(sizeof(array_wrapper));
1853
1854 if (rv == NULL)
1855 croak("array_wrapper_alloc: can't malloc wrapper\n");
1856
1857 switch (type){
1858 case awDouble:
1859 rv->data = malloc(sizeof(double) * numelem);
1860 break;
1861 case awFloat:
1862 rv->data = malloc(sizeof(float) * numelem);
1863 break;
1864 case awInt:
1865 rv->data = malloc(sizeof(int) * numelem);
1866 break;
1867 case awUnsigned:
1868 rv->data = malloc(sizeof(unsigned int) * numelem);
1869 break;
1870 default:
1871 croak("array_wrapper_alloc: type should be awDouble, awFloat, awInt, or awUnsigned");
1872 }
1873
1874 if (rv->data == NULL)
1875 croak("array_wrapper_alloc: can't malloc data");
1876
1877 rv->size = numelem;
1878 rv->type = type;
1879 return rv;
1880 }
1881
array_wrapper_free(array_wrapper * daw)1882 void array_wrapper_free(array_wrapper * daw){
1883 free(daw->data);
1884 free(daw);
1885 }
1886
1887
1888 /* structure to hold required information while the gsl function call
1889 for each callback
1890 */
1891 struct gsl_function_perl {
1892 gsl_function C_gsl_function;
1893 SV * function;
1894 SV * params;
1895 };
1896
1897 struct gsl_function_fdf_perl {
1898 gsl_function_fdf C_gsl_function_fdf;
1899 SV * f;
1900 SV * df;
1901 SV * fdf;
1902 SV * params;
1903 };
1904
1905 struct gsl_monte_function_perl {
1906 gsl_monte_function C_gsl_monte_function;
1907 SV * f;
1908 SV * dim;
1909 SV * params;
1910 };
1911
gsl_function_perl_free(struct gsl_function_perl * perl_f)1912 void gsl_function_perl_free(struct gsl_function_perl * perl_f){
1913 if (perl_f != NULL) {
1914 SvREFCNT_dec(perl_f->function);
1915 SvREFCNT_dec(perl_f->params);
1916 Safefree(perl_f);
1917 }
1918 }
1919
gsl_function_fdf_perl_free(struct gsl_function_fdf_perl * perl_fdf)1920 void gsl_function_fdf_perl_free(struct gsl_function_fdf_perl * perl_fdf){
1921 if (perl_fdf != NULL) {
1922 SvREFCNT_dec(perl_fdf->f);
1923 SvREFCNT_dec(perl_fdf->df);
1924 SvREFCNT_dec(perl_fdf->fdf);
1925 SvREFCNT_dec(perl_fdf->params);
1926 Safefree(perl_fdf);
1927 }
1928 }
1929
1930 /* These functions (C callbacks) calls the perl callbacks.
1931 Info for perl callback can be found using the 'void*params' parameter
1932 */
call_gsl_function_x_params(SV * function,double x,SV * params)1933 double call_gsl_function_x_params(SV* function, double x, SV *params){
1934 unsigned int count;
1935 double y;
1936 dSP;
1937
1938 //fprintf(stderr, "LOOKUP CALLBACK\n");
1939 ENTER;
1940 SAVETMPS;
1941
1942 PUSHMARK(SP);
1943 XPUSHs(sv_2mortal(newSVnv((double)x)));
1944 XPUSHs(params);
1945 PUTBACK; /* make local stack pointer global */
1946
1947 count = call_sv(function, G_SCALAR);
1948 SPAGAIN;
1949
1950 if (count != 1)
1951 croak("Expected to call subroutine in scalar context!");
1952
1953 y = POPn;
1954
1955 PUTBACK; /* make local stack pointer global */
1956 FREETMPS;
1957 LEAVE;
1958
1959 return y;
1960 }
1961
call_gsl_function(double x,void * params)1962 double call_gsl_function(double x , void *params){
1963 struct gsl_function_perl *F=(struct gsl_function_perl*)params;
1964 return call_gsl_function_x_params( F->function, x, F->params );
1965 }
1966
call_gsl_function_fdf_f(double x,void * params)1967 double call_gsl_function_fdf_f(double x , void *params){
1968 struct gsl_function_fdf_perl *F=(struct gsl_function_fdf_perl*)params;
1969 return call_gsl_function_x_params( F->f, x, F->params );
1970 }
1971
call_gsl_function_fdf_df(double x,void * params)1972 double call_gsl_function_fdf_df(double x , void *params){
1973 struct gsl_function_fdf_perl *F=(struct gsl_function_fdf_perl*)params;
1974 return call_gsl_function_x_params( F->df, x, F->params );
1975 }
1976
call_gsl_function_fdf_fdf(double x,void * params,double * f,double * df)1977 void call_gsl_function_fdf_fdf(double x , void *params, double *f, double *df ){
1978 struct gsl_function_fdf_perl *F=(struct gsl_function_fdf_perl*)params;
1979
1980 dSP;
1981
1982 ENTER;
1983 SAVETMPS;
1984
1985 PUSHMARK(SP);
1986 EXTEND(SP, 2);
1987 PUSHs(sv_2mortal(newSVnv((double)x)));
1988 PUSHs(F->params);
1989 PUTBACK; /* make local stack pointer global */
1990
1991 {
1992 unsigned int count = call_sv(F->fdf, G_ARRAY);
1993 SPAGAIN;
1994
1995 if (count != 2)
1996 croak( "Expected two return values, got %d", count );
1997 }
1998
1999 *df = POPn;
2000 *f = POPn;
2001
2002 PUTBACK; /* make local stack pointer global */
2003 FREETMPS;
2004 LEAVE;
2005 }
2006
call_gsl_monte_function(double * x_array,size_t dim,void * params)2007 double call_gsl_monte_function(double *x_array , size_t dim, void *params){
2008 struct gsl_monte_function_perl *F=(struct gsl_monte_function_perl*)params;
2009 unsigned int count;
2010 unsigned int i;
2011 AV* perl_array;
2012 double y;
2013 dSP;
2014
2015 //fprintf(stderr, "LOOKUP CALLBACK\n");
2016 ENTER;
2017 SAVETMPS;
2018
2019 PUSHMARK(SP);
2020 perl_array=newAV();
2021 sv_2mortal((SV*)perl_array);
2022 XPUSHs(sv_2mortal(newRV((SV *)perl_array)));
2023 for(i=0; i<dim; i++) {
2024 /* no mortal : it is referenced by the array */
2025 av_push(perl_array, newSVnv(x_array[i]));
2026 }
2027 XPUSHs(sv_2mortal(newSViv(dim)));
2028 XPUSHs(F->params);
2029 PUTBACK; /* make local stack pointer global */
2030
2031 count = call_sv(F->f, G_SCALAR);
2032 SPAGAIN;
2033
2034 if (count != 1)
2035 croak("Expected to call subroutine in scalar context!");
2036
2037 y = POPn;
2038
2039 PUTBACK; /* make local stack pointer global */
2040 FREETMPS;
2041 LEAVE;
2042
2043 return y;
2044 }
2045
2046
gsl_function_fdf_extract(char * param_name,HV * hash,SV * func[])2047 void gsl_function_fdf_extract( char* param_name, HV* hash, SV* func[] ) {
2048 static const char *keys[3] = { "f", "df", "fdf" };
2049
2050 int ikey;
2051
2052 for ( ikey = 0 ; ikey < 3 ; ++ikey ) {
2053 func[ikey] = 0;
2054 const char* key = keys[ikey];
2055 /* it just so happens that strlen(keys[ikey]) == ikey + 1 */
2056 SV** pp_sv = hv_fetch( hash, key, ikey+1, 0 );
2057 SV* function;
2058
2059 if ( !pp_sv )
2060 croak("Math::GSL : %s: missing key %s!", param_name, key);
2061
2062 function = *pp_sv;
2063
2064 if ( SvPOK(function) || ( SvROK( function ) && SvTYPE(SvRV(function)) == SVt_PVCV ) ) {
2065 /* hold on to SV after the enclosing hash goes away */
2066 SvREFCNT_inc( function );
2067 func[ikey] = function;
2068 }
2069 else {
2070 croak( "Math::GSL : %s: key %s is not a reference to code!", param_name, key);
2071 }
2072 }
2073 }
2074
2075
2076
2077 #include "gsl/gsl_inline.h"
2078 #include "gsl/gsl_linalg.h"
2079 #include "gsl/gsl_permutation.h"
2080 #include "gsl/gsl_complex.h"
2081 #include "gsl/gsl_complex_math.h"
2082
2083
2084 SWIGINTERN int
SWIG_PERL_DECL_ARGS_2(SV * obj,unsigned long * val)2085 SWIG_AsVal_unsigned_SS_long SWIG_PERL_DECL_ARGS_2(SV *obj, unsigned long *val)
2086 {
2087 if (SvUOK(obj)) {
2088 UV v = SvUV(obj);
2089 if (UVSIZE <= sizeof(*val) || v <= ULONG_MAX) {
2090 if (val) *val = v;
2091 return SWIG_OK;
2092 }
2093 return SWIG_OverflowError;
2094 } else if (SvIOK(obj)) {
2095 IV v = SvIV(obj);
2096 if (v >= 0 && (IVSIZE <= sizeof(*val) || v <= ULONG_MAX)) {
2097 if (val) *val = v;
2098 return SWIG_OK;
2099 }
2100 return SWIG_OverflowError;
2101 } else {
2102 int dispatch = 0;
2103 const char *nptr = SvPV_nolen(obj);
2104 if (nptr) {
2105 char *endptr;
2106 unsigned long v;
2107 errno = 0;
2108 v = strtoul(nptr, &endptr,0);
2109 if (errno == ERANGE) {
2110 errno = 0;
2111 return SWIG_OverflowError;
2112 } else {
2113 if (*endptr == '\0') {
2114 if (val) *val = v;
2115 return SWIG_Str2NumCast(SWIG_OK);
2116 }
2117 }
2118 }
2119 if (!dispatch) {
2120 double d;
2121 int res = SWIG_AddCast(SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(obj,&d));
2122 if (SWIG_IsOK(res) && SWIG_CanCastAsInteger(&d, 0, ULONG_MAX)) {
2123 if (val) *val = (unsigned long)(d);
2124 return res;
2125 }
2126 }
2127 }
2128 return SWIG_TypeError;
2129 }
2130
2131
2132 #if defined(LLONG_MAX) && !defined(SWIG_LONG_LONG_AVAILABLE)
2133 # define SWIG_LONG_LONG_AVAILABLE
2134 #endif
2135
2136
2137 #ifdef SWIG_LONG_LONG_AVAILABLE
2138 SWIGINTERN int
SWIG_PERL_DECL_ARGS_2(SV * obj,unsigned long long * val)2139 SWIG_AsVal_unsigned_SS_long_SS_long SWIG_PERL_DECL_ARGS_2(SV *obj, unsigned long long *val)
2140 {
2141 if (SvUOK(obj)) {
2142 /* pretty sure this should be conditional on
2143 * (UVSIZE <= sizeof(*val) || v <= ULLONG_MAX) */
2144 if (val) *val = SvUV(obj);
2145 return SWIG_OK;
2146 } else if (SvIOK(obj)) {
2147 IV v = SvIV(obj);
2148 if (v >= 0 && (IVSIZE <= sizeof(*val) || v <= ULLONG_MAX)) {
2149 if (val) *val = v;
2150 return SWIG_OK;
2151 } else {
2152 return SWIG_OverflowError;
2153 }
2154 } else {
2155 int dispatch = 0;
2156 const char *nptr = SvPV_nolen(obj);
2157 if (nptr) {
2158 char *endptr;
2159 unsigned long long v;
2160 errno = 0;
2161 v = strtoull(nptr, &endptr,0);
2162 if (errno == ERANGE) {
2163 errno = 0;
2164 return SWIG_OverflowError;
2165 } else {
2166 if (*endptr == '\0') {
2167 if (val) *val = v;
2168 return SWIG_Str2NumCast(SWIG_OK);
2169 }
2170 }
2171 }
2172 if (!dispatch) {
2173 const double mant_max = 1LL << DBL_MANT_DIG;
2174 double d;
2175 int res = SWIG_AddCast(SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(obj,&d));
2176 if (SWIG_IsOK(res) && SWIG_CanCastAsInteger(&d, 0, mant_max)) {
2177 if (val) *val = (unsigned long long)(d);
2178 return res;
2179 }
2180 }
2181 }
2182 return SWIG_TypeError;
2183 }
2184 #endif
2185
2186
2187 SWIGINTERNINLINE int
SWIG_PERL_DECL_ARGS_2(SV * obj,size_t * val)2188 SWIG_AsVal_size_t SWIG_PERL_DECL_ARGS_2(SV * obj, size_t *val)
2189 {
2190 int res = SWIG_TypeError;
2191 #ifdef SWIG_LONG_LONG_AVAILABLE
2192 if (sizeof(size_t) <= sizeof(unsigned long)) {
2193 #endif
2194 unsigned long v;
2195 res = SWIG_AsVal_unsigned_SS_long SWIG_PERL_CALL_ARGS_2(obj, val ? &v : 0);
2196 if (SWIG_IsOK(res) && val) *val = (size_t)(v);
2197 #ifdef SWIG_LONG_LONG_AVAILABLE
2198 } else if (sizeof(size_t) <= sizeof(unsigned long long)) {
2199 unsigned long long v;
2200 res = SWIG_AsVal_unsigned_SS_long_SS_long SWIG_PERL_CALL_ARGS_2(obj, val ? &v : 0);
2201 if (SWIG_IsOK(res) && val) *val = (size_t)(v);
2202 }
2203 #endif
2204 return res;
2205 }
2206
2207
2208 SWIGINTERNINLINE SV *
SWIG_PERL_DECL_ARGS_1(unsigned long value)2209 SWIG_From_unsigned_SS_long SWIG_PERL_DECL_ARGS_1(unsigned long value)
2210 {
2211 SV *sv;
2212 if (UVSIZE >= sizeof(value) || value <= UV_MAX)
2213 sv = newSVuv(value);
2214 else
2215 sv = newSVpvf("%lu", value);
2216 return sv_2mortal(sv);
2217 }
2218
2219
2220 #include <stdio.h>
2221 #if (defined(_MSC_VER) && (_MSC_VER < 1900)) || defined(__BORLANDC__) || defined(_WATCOM)
2222 # ifndef snprintf
2223 # define snprintf _snprintf
2224 # endif
2225 #endif
2226
2227
2228 #ifdef SWIG_LONG_LONG_AVAILABLE
2229 SWIGINTERNINLINE SV *
SWIG_PERL_DECL_ARGS_1(unsigned long long value)2230 SWIG_From_unsigned_SS_long_SS_long SWIG_PERL_DECL_ARGS_1(unsigned long long value)
2231 {
2232 SV *sv;
2233 if (UVSIZE >= sizeof(value) || value <= UV_MAX)
2234 sv = newSVuv((UV)(value));
2235 else {
2236 //sv = newSVpvf("%llu", value); doesn't work in non 64bit Perl
2237 char temp[256];
2238 sprintf(temp, "%llu", value);
2239 sv = newSVpv(temp, 0);
2240 }
2241 return sv_2mortal(sv);
2242 }
2243 #endif
2244
2245
2246 SWIGINTERNINLINE SV *
SWIG_PERL_DECL_ARGS_1(size_t value)2247 SWIG_From_size_t SWIG_PERL_DECL_ARGS_1(size_t value)
2248 {
2249 #ifdef SWIG_LONG_LONG_AVAILABLE
2250 if (sizeof(size_t) <= sizeof(unsigned long)) {
2251 #endif
2252 return SWIG_From_unsigned_SS_long SWIG_PERL_CALL_ARGS_1((unsigned long)(value));
2253 #ifdef SWIG_LONG_LONG_AVAILABLE
2254 } else {
2255 /* assume sizeof(size_t) <= sizeof(unsigned long long) */
2256 return SWIG_From_unsigned_SS_long_SS_long SWIG_PERL_CALL_ARGS_1((unsigned long long)(value));
2257 }
2258 #endif
2259 }
2260
2261 #ifdef __cplusplus
2262 extern "C" {
2263 #endif
2264
2265 #ifdef PERL_OBJECT
2266 #define MAGIC_CLASS _wrap_Math__GSL__Linalg_var::
2267 class _wrap_Math__GSL__Linalg_var : public CPerlObj {
2268 public:
2269 #else
2270 #define MAGIC_CLASS
2271 #endif
swig_magic_readonly(pTHX_ SV * SWIGUNUSEDPARM (sv),MAGIC * SWIGUNUSEDPARM (mg))2272 SWIGCLASS_STATIC int swig_magic_readonly(pTHX_ SV *SWIGUNUSEDPARM(sv), MAGIC *SWIGUNUSEDPARM(mg)) {
2273 MAGIC_PPERL
2274 croak("Value is read-only.");
2275 return 0;
2276 }
2277
2278
2279 #ifdef PERL_OBJECT
2280 };
2281 #endif
2282
2283 #ifdef __cplusplus
2284 }
2285 #endif
2286
2287 #ifdef __cplusplus
2288 extern "C" {
2289 #endif
XS(_wrap_gsl_error)2290 XS(_wrap_gsl_error) {
2291 {
2292 char *arg1 = (char *) 0 ;
2293 char *arg2 = (char *) 0 ;
2294 int arg3 ;
2295 int arg4 ;
2296 int res1 ;
2297 char *buf1 = 0 ;
2298 int alloc1 = 0 ;
2299 int res2 ;
2300 char *buf2 = 0 ;
2301 int alloc2 = 0 ;
2302 int val3 ;
2303 int ecode3 = 0 ;
2304 int val4 ;
2305 int ecode4 = 0 ;
2306 int argvi = 0;
2307 dXSARGS;
2308
2309 if ((items < 4) || (items > 4)) {
2310 SWIG_croak("Usage: gsl_error(reason,file,line,gsl_errno);");
2311 }
2312 res1 = SWIG_AsCharPtrAndSize(ST(0), &buf1, NULL, &alloc1);
2313 if (!SWIG_IsOK(res1)) {
2314 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_error" "', argument " "1"" of type '" "char const *""'");
2315 }
2316 arg1 = (char *)(buf1);
2317 res2 = SWIG_AsCharPtrAndSize(ST(1), &buf2, NULL, &alloc2);
2318 if (!SWIG_IsOK(res2)) {
2319 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_error" "', argument " "2"" of type '" "char const *""'");
2320 }
2321 arg2 = (char *)(buf2);
2322 ecode3 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
2323 if (!SWIG_IsOK(ecode3)) {
2324 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_error" "', argument " "3"" of type '" "int""'");
2325 }
2326 arg3 = (int)(val3);
2327 ecode4 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(3), &val4);
2328 if (!SWIG_IsOK(ecode4)) {
2329 SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "gsl_error" "', argument " "4"" of type '" "int""'");
2330 }
2331 arg4 = (int)(val4);
2332 gsl_error((char const *)arg1,(char const *)arg2,arg3,arg4);
2333 ST(argvi) = &PL_sv_undef;
2334 if (alloc1 == SWIG_NEWOBJ) free((char*)buf1);
2335 if (alloc2 == SWIG_NEWOBJ) free((char*)buf2);
2336
2337
2338 XSRETURN(argvi);
2339 fail:
2340 if (alloc1 == SWIG_NEWOBJ) free((char*)buf1);
2341 if (alloc2 == SWIG_NEWOBJ) free((char*)buf2);
2342
2343
2344 SWIG_croak_null();
2345 }
2346 }
2347
2348
XS(_wrap_gsl_stream_printf)2349 XS(_wrap_gsl_stream_printf) {
2350 {
2351 char *arg1 = (char *) 0 ;
2352 char *arg2 = (char *) 0 ;
2353 int arg3 ;
2354 char *arg4 = (char *) 0 ;
2355 int res1 ;
2356 char *buf1 = 0 ;
2357 int alloc1 = 0 ;
2358 int res2 ;
2359 char *buf2 = 0 ;
2360 int alloc2 = 0 ;
2361 int val3 ;
2362 int ecode3 = 0 ;
2363 int res4 ;
2364 char *buf4 = 0 ;
2365 int alloc4 = 0 ;
2366 int argvi = 0;
2367 dXSARGS;
2368
2369 if ((items < 4) || (items > 4)) {
2370 SWIG_croak("Usage: gsl_stream_printf(label,file,line,reason);");
2371 }
2372 res1 = SWIG_AsCharPtrAndSize(ST(0), &buf1, NULL, &alloc1);
2373 if (!SWIG_IsOK(res1)) {
2374 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_stream_printf" "', argument " "1"" of type '" "char const *""'");
2375 }
2376 arg1 = (char *)(buf1);
2377 res2 = SWIG_AsCharPtrAndSize(ST(1), &buf2, NULL, &alloc2);
2378 if (!SWIG_IsOK(res2)) {
2379 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_stream_printf" "', argument " "2"" of type '" "char const *""'");
2380 }
2381 arg2 = (char *)(buf2);
2382 ecode3 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
2383 if (!SWIG_IsOK(ecode3)) {
2384 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_stream_printf" "', argument " "3"" of type '" "int""'");
2385 }
2386 arg3 = (int)(val3);
2387 res4 = SWIG_AsCharPtrAndSize(ST(3), &buf4, NULL, &alloc4);
2388 if (!SWIG_IsOK(res4)) {
2389 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_stream_printf" "', argument " "4"" of type '" "char const *""'");
2390 }
2391 arg4 = (char *)(buf4);
2392 gsl_stream_printf((char const *)arg1,(char const *)arg2,arg3,(char const *)arg4);
2393 ST(argvi) = &PL_sv_undef;
2394 if (alloc1 == SWIG_NEWOBJ) free((char*)buf1);
2395 if (alloc2 == SWIG_NEWOBJ) free((char*)buf2);
2396
2397 if (alloc4 == SWIG_NEWOBJ) free((char*)buf4);
2398 XSRETURN(argvi);
2399 fail:
2400 if (alloc1 == SWIG_NEWOBJ) free((char*)buf1);
2401 if (alloc2 == SWIG_NEWOBJ) free((char*)buf2);
2402
2403 if (alloc4 == SWIG_NEWOBJ) free((char*)buf4);
2404 SWIG_croak_null();
2405 }
2406 }
2407
2408
XS(_wrap_gsl_strerror)2409 XS(_wrap_gsl_strerror) {
2410 {
2411 int arg1 ;
2412 int val1 ;
2413 int ecode1 = 0 ;
2414 int argvi = 0;
2415 char *result = 0 ;
2416 dXSARGS;
2417
2418 if ((items < 1) || (items > 1)) {
2419 SWIG_croak("Usage: gsl_strerror(gsl_errno);");
2420 }
2421 ecode1 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
2422 if (!SWIG_IsOK(ecode1)) {
2423 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_strerror" "', argument " "1"" of type '" "int""'");
2424 }
2425 arg1 = (int)(val1);
2426 result = (char *)gsl_strerror(arg1);
2427 ST(argvi) = SWIG_FromCharPtr((const char *)result); argvi++ ;
2428
2429 XSRETURN(argvi);
2430 fail:
2431
2432 SWIG_croak_null();
2433 }
2434 }
2435
2436
XS(_wrap_gsl_set_error_handler)2437 XS(_wrap_gsl_set_error_handler) {
2438 {
2439 gsl_error_handler_t *arg1 = (gsl_error_handler_t *) 0 ;
2440 int argvi = 0;
2441 gsl_error_handler_t *result = 0 ;
2442 dXSARGS;
2443
2444 if ((items < 1) || (items > 1)) {
2445 SWIG_croak("Usage: gsl_set_error_handler(new_handler);");
2446 }
2447 {
2448 int res = SWIG_ConvertFunctionPtr(ST(0), (void**)(&arg1), SWIGTYPE_p_f_p_q_const__char_p_q_const__char_int_int__void);
2449 if (!SWIG_IsOK(res)) {
2450 SWIG_exception_fail(SWIG_ArgError(res), "in method '" "gsl_set_error_handler" "', argument " "1"" of type '" "gsl_error_handler_t *""'");
2451 }
2452 }
2453 result = (gsl_error_handler_t *)gsl_set_error_handler(arg1);
2454 ST(argvi) = SWIG_NewFunctionPtrObj((void *)(result), SWIGTYPE_p_f_p_q_const__char_p_q_const__char_int_int__void); argvi++ ;
2455
2456 XSRETURN(argvi);
2457 fail:
2458
2459 SWIG_croak_null();
2460 }
2461 }
2462
2463
XS(_wrap_gsl_set_error_handler_off)2464 XS(_wrap_gsl_set_error_handler_off) {
2465 {
2466 int argvi = 0;
2467 gsl_error_handler_t *result = 0 ;
2468 dXSARGS;
2469
2470 if ((items < 0) || (items > 0)) {
2471 SWIG_croak("Usage: gsl_set_error_handler_off();");
2472 }
2473 result = (gsl_error_handler_t *)gsl_set_error_handler_off();
2474 ST(argvi) = SWIG_NewFunctionPtrObj((void *)(result), SWIGTYPE_p_f_p_q_const__char_p_q_const__char_int_int__void); argvi++ ;
2475 XSRETURN(argvi);
2476 fail:
2477 SWIG_croak_null();
2478 }
2479 }
2480
2481
XS(_wrap_gsl_set_stream_handler)2482 XS(_wrap_gsl_set_stream_handler) {
2483 {
2484 gsl_stream_handler_t *arg1 = (gsl_stream_handler_t *) 0 ;
2485 int argvi = 0;
2486 gsl_stream_handler_t *result = 0 ;
2487 dXSARGS;
2488
2489 if ((items < 1) || (items > 1)) {
2490 SWIG_croak("Usage: gsl_set_stream_handler(new_handler);");
2491 }
2492 {
2493 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);
2494 if (!SWIG_IsOK(res)) {
2495 SWIG_exception_fail(SWIG_ArgError(res), "in method '" "gsl_set_stream_handler" "', argument " "1"" of type '" "gsl_stream_handler_t *""'");
2496 }
2497 }
2498 result = (gsl_stream_handler_t *)gsl_set_stream_handler(arg1);
2499 ST(argvi) = SWIG_NewFunctionPtrObj((void *)(result), SWIGTYPE_p_f_p_q_const__char_p_q_const__char_int_p_q_const__char__void); argvi++ ;
2500
2501 XSRETURN(argvi);
2502 fail:
2503
2504 SWIG_croak_null();
2505 }
2506 }
2507
2508
XS(_wrap_gsl_set_stream)2509 XS(_wrap_gsl_set_stream) {
2510 {
2511 FILE *arg1 = (FILE *) 0 ;
2512 void *argp1 = 0 ;
2513 int res1 = 0 ;
2514 int argvi = 0;
2515 FILE *result = 0 ;
2516 dXSARGS;
2517
2518 if ((items < 1) || (items > 1)) {
2519 SWIG_croak("Usage: gsl_set_stream(new_stream);");
2520 }
2521 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_FILE, 0 | 0 );
2522 if (!SWIG_IsOK(res1)) {
2523 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_set_stream" "', argument " "1"" of type '" "FILE *""'");
2524 }
2525 arg1 = (FILE *)(argp1);
2526 result = (FILE *)gsl_set_stream(arg1);
2527 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_FILE, 0 | 0); argvi++ ;
2528
2529 XSRETURN(argvi);
2530 fail:
2531
2532 SWIG_croak_null();
2533 }
2534 }
2535
2536
XS(_wrap_gsl_linalg_matmult)2537 XS(_wrap_gsl_linalg_matmult) {
2538 {
2539 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
2540 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
2541 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
2542 void *argp1 = 0 ;
2543 int res1 = 0 ;
2544 void *argp2 = 0 ;
2545 int res2 = 0 ;
2546 void *argp3 = 0 ;
2547 int res3 = 0 ;
2548 int argvi = 0;
2549 int result;
2550 dXSARGS;
2551
2552 if ((items < 3) || (items > 3)) {
2553 SWIG_croak("Usage: gsl_linalg_matmult(A,B,C);");
2554 }
2555 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
2556 if (!SWIG_IsOK(res1)) {
2557 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_matmult" "', argument " "1"" of type '" "gsl_matrix const *""'");
2558 }
2559 arg1 = (gsl_matrix *)(argp1);
2560 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
2561 if (!SWIG_IsOK(res2)) {
2562 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_matmult" "', argument " "2"" of type '" "gsl_matrix const *""'");
2563 }
2564 arg2 = (gsl_matrix *)(argp2);
2565 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
2566 if (!SWIG_IsOK(res3)) {
2567 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_matmult" "', argument " "3"" of type '" "gsl_matrix *""'");
2568 }
2569 arg3 = (gsl_matrix *)(argp3);
2570 result = (int)gsl_linalg_matmult((gsl_matrix const *)arg1,(gsl_matrix const *)arg2,arg3);
2571 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
2572
2573
2574
2575 XSRETURN(argvi);
2576 fail:
2577
2578
2579
2580 SWIG_croak_null();
2581 }
2582 }
2583
2584
XS(_wrap_gsl_linalg_matmult_mod)2585 XS(_wrap_gsl_linalg_matmult_mod) {
2586 {
2587 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
2588 gsl_linalg_matrix_mod_t arg2 ;
2589 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
2590 gsl_linalg_matrix_mod_t arg4 ;
2591 gsl_matrix *arg5 = (gsl_matrix *) 0 ;
2592 void *argp1 = 0 ;
2593 int res1 = 0 ;
2594 int val2 ;
2595 int ecode2 = 0 ;
2596 void *argp3 = 0 ;
2597 int res3 = 0 ;
2598 int val4 ;
2599 int ecode4 = 0 ;
2600 void *argp5 = 0 ;
2601 int res5 = 0 ;
2602 int argvi = 0;
2603 int result;
2604 dXSARGS;
2605
2606 if ((items < 5) || (items > 5)) {
2607 SWIG_croak("Usage: gsl_linalg_matmult_mod(A,modA,B,modB,C);");
2608 }
2609 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
2610 if (!SWIG_IsOK(res1)) {
2611 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_matmult_mod" "', argument " "1"" of type '" "gsl_matrix const *""'");
2612 }
2613 arg1 = (gsl_matrix *)(argp1);
2614 ecode2 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
2615 if (!SWIG_IsOK(ecode2)) {
2616 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_linalg_matmult_mod" "', argument " "2"" of type '" "gsl_linalg_matrix_mod_t""'");
2617 }
2618 arg2 = (gsl_linalg_matrix_mod_t)(val2);
2619 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
2620 if (!SWIG_IsOK(res3)) {
2621 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_matmult_mod" "', argument " "3"" of type '" "gsl_matrix const *""'");
2622 }
2623 arg3 = (gsl_matrix *)(argp3);
2624 ecode4 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(3), &val4);
2625 if (!SWIG_IsOK(ecode4)) {
2626 SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "gsl_linalg_matmult_mod" "', argument " "4"" of type '" "gsl_linalg_matrix_mod_t""'");
2627 }
2628 arg4 = (gsl_linalg_matrix_mod_t)(val4);
2629 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_matrix, 0 | 0 );
2630 if (!SWIG_IsOK(res5)) {
2631 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_matmult_mod" "', argument " "5"" of type '" "gsl_matrix *""'");
2632 }
2633 arg5 = (gsl_matrix *)(argp5);
2634 result = (int)gsl_linalg_matmult_mod((gsl_matrix const *)arg1,arg2,(gsl_matrix const *)arg3,arg4,arg5);
2635 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
2636
2637
2638
2639
2640
2641 XSRETURN(argvi);
2642 fail:
2643
2644
2645
2646
2647
2648 SWIG_croak_null();
2649 }
2650 }
2651
2652
XS(_wrap_gsl_linalg_exponential_ss)2653 XS(_wrap_gsl_linalg_exponential_ss) {
2654 {
2655 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
2656 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
2657 gsl_mode_t arg3 ;
2658 void *argp1 = 0 ;
2659 int res1 = 0 ;
2660 void *argp2 = 0 ;
2661 int res2 = 0 ;
2662 void *argp3 ;
2663 int res3 = 0 ;
2664 int argvi = 0;
2665 int result;
2666 dXSARGS;
2667
2668 if ((items < 3) || (items > 3)) {
2669 SWIG_croak("Usage: gsl_linalg_exponential_ss(A,eA,mode);");
2670 }
2671 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
2672 if (!SWIG_IsOK(res1)) {
2673 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_exponential_ss" "', argument " "1"" of type '" "gsl_matrix const *""'");
2674 }
2675 arg1 = (gsl_matrix *)(argp1);
2676 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
2677 if (!SWIG_IsOK(res2)) {
2678 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_exponential_ss" "', argument " "2"" of type '" "gsl_matrix *""'");
2679 }
2680 arg2 = (gsl_matrix *)(argp2);
2681 {
2682 res3 = SWIG_ConvertPtr(ST(2), &argp3, SWIGTYPE_p_gsl_mode_t, 0 );
2683 if (!SWIG_IsOK(res3)) {
2684 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_exponential_ss" "', argument " "3"" of type '" "gsl_mode_t""'");
2685 }
2686 if (!argp3) {
2687 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_linalg_exponential_ss" "', argument " "3"" of type '" "gsl_mode_t""'");
2688 } else {
2689 arg3 = *((gsl_mode_t *)(argp3));
2690 }
2691 }
2692 result = (int)gsl_linalg_exponential_ss((gsl_matrix const *)arg1,arg2,arg3);
2693 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
2694
2695
2696 XSRETURN(argvi);
2697 fail:
2698
2699
2700 SWIG_croak_null();
2701 }
2702 }
2703
2704
XS(_wrap_gsl_linalg_householder_transform)2705 XS(_wrap_gsl_linalg_householder_transform) {
2706 {
2707 gsl_vector *arg1 = (gsl_vector *) 0 ;
2708 void *argp1 = 0 ;
2709 int res1 = 0 ;
2710 int argvi = 0;
2711 double result;
2712 dXSARGS;
2713
2714 if ((items < 1) || (items > 1)) {
2715 SWIG_croak("Usage: gsl_linalg_householder_transform(v);");
2716 }
2717 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
2718 if (!SWIG_IsOK(res1)) {
2719 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_householder_transform" "', argument " "1"" of type '" "gsl_vector *""'");
2720 }
2721 arg1 = (gsl_vector *)(argp1);
2722 result = (double)gsl_linalg_householder_transform(arg1);
2723 ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(result)); argvi++ ;
2724
2725 XSRETURN(argvi);
2726 fail:
2727
2728 SWIG_croak_null();
2729 }
2730 }
2731
2732
XS(_wrap_gsl_linalg_householder_transform2)2733 XS(_wrap_gsl_linalg_householder_transform2) {
2734 {
2735 double *arg1 = (double *) 0 ;
2736 gsl_vector *arg2 = (gsl_vector *) 0 ;
2737 void *argp1 = 0 ;
2738 int res1 = 0 ;
2739 void *argp2 = 0 ;
2740 int res2 = 0 ;
2741 int argvi = 0;
2742 double result;
2743 dXSARGS;
2744
2745 if ((items < 2) || (items > 2)) {
2746 SWIG_croak("Usage: gsl_linalg_householder_transform2(alpha,v);");
2747 }
2748 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_double, 0 | 0 );
2749 if (!SWIG_IsOK(res1)) {
2750 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_householder_transform2" "', argument " "1"" of type '" "double *""'");
2751 }
2752 arg1 = (double *)(argp1);
2753 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
2754 if (!SWIG_IsOK(res2)) {
2755 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_householder_transform2" "', argument " "2"" of type '" "gsl_vector *""'");
2756 }
2757 arg2 = (gsl_vector *)(argp2);
2758 result = (double)gsl_linalg_householder_transform2(arg1,arg2);
2759 ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(result)); argvi++ ;
2760
2761
2762 XSRETURN(argvi);
2763 fail:
2764
2765
2766 SWIG_croak_null();
2767 }
2768 }
2769
2770
XS(_wrap_gsl_linalg_complex_householder_transform)2771 XS(_wrap_gsl_linalg_complex_householder_transform) {
2772 {
2773 gsl_vector_complex *arg1 = (gsl_vector_complex *) 0 ;
2774 void *argp1 = 0 ;
2775 int res1 = 0 ;
2776 int argvi = 0;
2777 gsl_complex result;
2778 dXSARGS;
2779
2780 if ((items < 1) || (items > 1)) {
2781 SWIG_croak("Usage: gsl_linalg_complex_householder_transform(v);");
2782 }
2783 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
2784 if (!SWIG_IsOK(res1)) {
2785 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_complex_householder_transform" "', argument " "1"" of type '" "gsl_vector_complex *""'");
2786 }
2787 arg1 = (gsl_vector_complex *)(argp1);
2788 result = gsl_linalg_complex_householder_transform(arg1);
2789 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++ ;
2790
2791 XSRETURN(argvi);
2792 fail:
2793
2794 SWIG_croak_null();
2795 }
2796 }
2797
2798
XS(_wrap_gsl_linalg_householder_hm)2799 XS(_wrap_gsl_linalg_householder_hm) {
2800 {
2801 double arg1 ;
2802 gsl_vector *arg2 = (gsl_vector *) 0 ;
2803 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
2804 double val1 ;
2805 int ecode1 = 0 ;
2806 void *argp2 = 0 ;
2807 int res2 = 0 ;
2808 void *argp3 = 0 ;
2809 int res3 = 0 ;
2810 int argvi = 0;
2811 int result;
2812 dXSARGS;
2813
2814 if ((items < 3) || (items > 3)) {
2815 SWIG_croak("Usage: gsl_linalg_householder_hm(tau,v,A);");
2816 }
2817 ecode1 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
2818 if (!SWIG_IsOK(ecode1)) {
2819 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_linalg_householder_hm" "', argument " "1"" of type '" "double""'");
2820 }
2821 arg1 = (double)(val1);
2822 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
2823 if (!SWIG_IsOK(res2)) {
2824 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_householder_hm" "', argument " "2"" of type '" "gsl_vector const *""'");
2825 }
2826 arg2 = (gsl_vector *)(argp2);
2827 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
2828 if (!SWIG_IsOK(res3)) {
2829 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_householder_hm" "', argument " "3"" of type '" "gsl_matrix *""'");
2830 }
2831 arg3 = (gsl_matrix *)(argp3);
2832 result = (int)gsl_linalg_householder_hm(arg1,(gsl_vector const *)arg2,arg3);
2833 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
2834
2835
2836
2837 XSRETURN(argvi);
2838 fail:
2839
2840
2841
2842 SWIG_croak_null();
2843 }
2844 }
2845
2846
XS(_wrap_gsl_linalg_householder_mh)2847 XS(_wrap_gsl_linalg_householder_mh) {
2848 {
2849 double arg1 ;
2850 gsl_vector *arg2 = (gsl_vector *) 0 ;
2851 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
2852 double val1 ;
2853 int ecode1 = 0 ;
2854 void *argp2 = 0 ;
2855 int res2 = 0 ;
2856 void *argp3 = 0 ;
2857 int res3 = 0 ;
2858 int argvi = 0;
2859 int result;
2860 dXSARGS;
2861
2862 if ((items < 3) || (items > 3)) {
2863 SWIG_croak("Usage: gsl_linalg_householder_mh(tau,v,A);");
2864 }
2865 ecode1 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
2866 if (!SWIG_IsOK(ecode1)) {
2867 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_linalg_householder_mh" "', argument " "1"" of type '" "double""'");
2868 }
2869 arg1 = (double)(val1);
2870 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
2871 if (!SWIG_IsOK(res2)) {
2872 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_householder_mh" "', argument " "2"" of type '" "gsl_vector const *""'");
2873 }
2874 arg2 = (gsl_vector *)(argp2);
2875 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
2876 if (!SWIG_IsOK(res3)) {
2877 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_householder_mh" "', argument " "3"" of type '" "gsl_matrix *""'");
2878 }
2879 arg3 = (gsl_matrix *)(argp3);
2880 result = (int)gsl_linalg_householder_mh(arg1,(gsl_vector const *)arg2,arg3);
2881 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
2882
2883
2884
2885 XSRETURN(argvi);
2886 fail:
2887
2888
2889
2890 SWIG_croak_null();
2891 }
2892 }
2893
2894
XS(_wrap_gsl_linalg_householder_hv)2895 XS(_wrap_gsl_linalg_householder_hv) {
2896 {
2897 double arg1 ;
2898 gsl_vector *arg2 = (gsl_vector *) 0 ;
2899 gsl_vector *arg3 = (gsl_vector *) 0 ;
2900 double val1 ;
2901 int ecode1 = 0 ;
2902 void *argp2 = 0 ;
2903 int res2 = 0 ;
2904 void *argp3 = 0 ;
2905 int res3 = 0 ;
2906 int argvi = 0;
2907 int result;
2908 dXSARGS;
2909
2910 if ((items < 3) || (items > 3)) {
2911 SWIG_croak("Usage: gsl_linalg_householder_hv(tau,v,w);");
2912 }
2913 ecode1 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
2914 if (!SWIG_IsOK(ecode1)) {
2915 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_linalg_householder_hv" "', argument " "1"" of type '" "double""'");
2916 }
2917 arg1 = (double)(val1);
2918 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
2919 if (!SWIG_IsOK(res2)) {
2920 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_householder_hv" "', argument " "2"" of type '" "gsl_vector const *""'");
2921 }
2922 arg2 = (gsl_vector *)(argp2);
2923 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
2924 if (!SWIG_IsOK(res3)) {
2925 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_householder_hv" "', argument " "3"" of type '" "gsl_vector *""'");
2926 }
2927 arg3 = (gsl_vector *)(argp3);
2928 result = (int)gsl_linalg_householder_hv(arg1,(gsl_vector const *)arg2,arg3);
2929 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
2930
2931
2932
2933 XSRETURN(argvi);
2934 fail:
2935
2936
2937
2938 SWIG_croak_null();
2939 }
2940 }
2941
2942
XS(_wrap_gsl_linalg_householder_left)2943 XS(_wrap_gsl_linalg_householder_left) {
2944 {
2945 double arg1 ;
2946 gsl_vector *arg2 = (gsl_vector *) 0 ;
2947 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
2948 gsl_vector *arg4 = (gsl_vector *) 0 ;
2949 double val1 ;
2950 int ecode1 = 0 ;
2951 void *argp2 = 0 ;
2952 int res2 = 0 ;
2953 void *argp3 = 0 ;
2954 int res3 = 0 ;
2955 void *argp4 = 0 ;
2956 int res4 = 0 ;
2957 int argvi = 0;
2958 int result;
2959 dXSARGS;
2960
2961 if ((items < 4) || (items > 4)) {
2962 SWIG_croak("Usage: gsl_linalg_householder_left(tau,v,A,work);");
2963 }
2964 ecode1 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
2965 if (!SWIG_IsOK(ecode1)) {
2966 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_linalg_householder_left" "', argument " "1"" of type '" "double""'");
2967 }
2968 arg1 = (double)(val1);
2969 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
2970 if (!SWIG_IsOK(res2)) {
2971 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_householder_left" "', argument " "2"" of type '" "gsl_vector const *""'");
2972 }
2973 arg2 = (gsl_vector *)(argp2);
2974 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
2975 if (!SWIG_IsOK(res3)) {
2976 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_householder_left" "', argument " "3"" of type '" "gsl_matrix *""'");
2977 }
2978 arg3 = (gsl_matrix *)(argp3);
2979 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
2980 if (!SWIG_IsOK(res4)) {
2981 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_householder_left" "', argument " "4"" of type '" "gsl_vector *""'");
2982 }
2983 arg4 = (gsl_vector *)(argp4);
2984 result = (int)gsl_linalg_householder_left(arg1,(gsl_vector const *)arg2,arg3,arg4);
2985 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
2986
2987
2988
2989
2990 XSRETURN(argvi);
2991 fail:
2992
2993
2994
2995
2996 SWIG_croak_null();
2997 }
2998 }
2999
3000
XS(_wrap_gsl_linalg_householder_right)3001 XS(_wrap_gsl_linalg_householder_right) {
3002 {
3003 double arg1 ;
3004 gsl_vector *arg2 = (gsl_vector *) 0 ;
3005 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
3006 gsl_vector *arg4 = (gsl_vector *) 0 ;
3007 double val1 ;
3008 int ecode1 = 0 ;
3009 void *argp2 = 0 ;
3010 int res2 = 0 ;
3011 void *argp3 = 0 ;
3012 int res3 = 0 ;
3013 void *argp4 = 0 ;
3014 int res4 = 0 ;
3015 int argvi = 0;
3016 int result;
3017 dXSARGS;
3018
3019 if ((items < 4) || (items > 4)) {
3020 SWIG_croak("Usage: gsl_linalg_householder_right(tau,v,A,work);");
3021 }
3022 ecode1 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
3023 if (!SWIG_IsOK(ecode1)) {
3024 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_linalg_householder_right" "', argument " "1"" of type '" "double""'");
3025 }
3026 arg1 = (double)(val1);
3027 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
3028 if (!SWIG_IsOK(res2)) {
3029 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_householder_right" "', argument " "2"" of type '" "gsl_vector const *""'");
3030 }
3031 arg2 = (gsl_vector *)(argp2);
3032 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3033 if (!SWIG_IsOK(res3)) {
3034 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_householder_right" "', argument " "3"" of type '" "gsl_matrix *""'");
3035 }
3036 arg3 = (gsl_matrix *)(argp3);
3037 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
3038 if (!SWIG_IsOK(res4)) {
3039 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_householder_right" "', argument " "4"" of type '" "gsl_vector *""'");
3040 }
3041 arg4 = (gsl_vector *)(argp4);
3042 result = (int)gsl_linalg_householder_right(arg1,(gsl_vector const *)arg2,arg3,arg4);
3043 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3044
3045
3046
3047
3048 XSRETURN(argvi);
3049 fail:
3050
3051
3052
3053
3054 SWIG_croak_null();
3055 }
3056 }
3057
3058
XS(_wrap_gsl_linalg_householder_hm1)3059 XS(_wrap_gsl_linalg_householder_hm1) {
3060 {
3061 double arg1 ;
3062 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
3063 double val1 ;
3064 int ecode1 = 0 ;
3065 void *argp2 = 0 ;
3066 int res2 = 0 ;
3067 int argvi = 0;
3068 int result;
3069 dXSARGS;
3070
3071 if ((items < 2) || (items > 2)) {
3072 SWIG_croak("Usage: gsl_linalg_householder_hm1(tau,A);");
3073 }
3074 ecode1 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
3075 if (!SWIG_IsOK(ecode1)) {
3076 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_linalg_householder_hm1" "', argument " "1"" of type '" "double""'");
3077 }
3078 arg1 = (double)(val1);
3079 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3080 if (!SWIG_IsOK(res2)) {
3081 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_householder_hm1" "', argument " "2"" of type '" "gsl_matrix *""'");
3082 }
3083 arg2 = (gsl_matrix *)(argp2);
3084 result = (int)gsl_linalg_householder_hm1(arg1,arg2);
3085 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3086
3087
3088 XSRETURN(argvi);
3089 fail:
3090
3091
3092 SWIG_croak_null();
3093 }
3094 }
3095
3096
XS(_wrap_gsl_linalg_complex_householder_hm)3097 XS(_wrap_gsl_linalg_complex_householder_hm) {
3098 {
3099 gsl_complex arg1 ;
3100 gsl_vector_complex *arg2 = (gsl_vector_complex *) 0 ;
3101 gsl_matrix_complex *arg3 = (gsl_matrix_complex *) 0 ;
3102 void *argp1 ;
3103 int res1 = 0 ;
3104 void *argp2 = 0 ;
3105 int res2 = 0 ;
3106 void *argp3 = 0 ;
3107 int res3 = 0 ;
3108 int argvi = 0;
3109 int result;
3110 dXSARGS;
3111
3112 if ((items < 3) || (items > 3)) {
3113 SWIG_croak("Usage: gsl_linalg_complex_householder_hm(tau,v,A);");
3114 }
3115 {
3116 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
3117 if (!SWIG_IsOK(res1)) {
3118 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_complex_householder_hm" "', argument " "1"" of type '" "gsl_complex""'");
3119 }
3120 if (!argp1) {
3121 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_linalg_complex_householder_hm" "', argument " "1"" of type '" "gsl_complex""'");
3122 } else {
3123 arg1 = *((gsl_complex *)(argp1));
3124 }
3125 }
3126 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
3127 if (!SWIG_IsOK(res2)) {
3128 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_complex_householder_hm" "', argument " "2"" of type '" "gsl_vector_complex const *""'");
3129 }
3130 arg2 = (gsl_vector_complex *)(argp2);
3131 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
3132 if (!SWIG_IsOK(res3)) {
3133 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_complex_householder_hm" "', argument " "3"" of type '" "gsl_matrix_complex *""'");
3134 }
3135 arg3 = (gsl_matrix_complex *)(argp3);
3136 result = (int)gsl_linalg_complex_householder_hm(arg1,(gsl_vector_complex const *)arg2,arg3);
3137 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3138
3139
3140 XSRETURN(argvi);
3141 fail:
3142
3143
3144 SWIG_croak_null();
3145 }
3146 }
3147
3148
XS(_wrap_gsl_linalg_complex_householder_mh)3149 XS(_wrap_gsl_linalg_complex_householder_mh) {
3150 {
3151 gsl_complex arg1 ;
3152 gsl_vector_complex *arg2 = (gsl_vector_complex *) 0 ;
3153 gsl_matrix_complex *arg3 = (gsl_matrix_complex *) 0 ;
3154 void *argp1 ;
3155 int res1 = 0 ;
3156 void *argp2 = 0 ;
3157 int res2 = 0 ;
3158 void *argp3 = 0 ;
3159 int res3 = 0 ;
3160 int argvi = 0;
3161 int result;
3162 dXSARGS;
3163
3164 if ((items < 3) || (items > 3)) {
3165 SWIG_croak("Usage: gsl_linalg_complex_householder_mh(tau,v,A);");
3166 }
3167 {
3168 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
3169 if (!SWIG_IsOK(res1)) {
3170 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_complex_householder_mh" "', argument " "1"" of type '" "gsl_complex""'");
3171 }
3172 if (!argp1) {
3173 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_linalg_complex_householder_mh" "', argument " "1"" of type '" "gsl_complex""'");
3174 } else {
3175 arg1 = *((gsl_complex *)(argp1));
3176 }
3177 }
3178 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
3179 if (!SWIG_IsOK(res2)) {
3180 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_complex_householder_mh" "', argument " "2"" of type '" "gsl_vector_complex const *""'");
3181 }
3182 arg2 = (gsl_vector_complex *)(argp2);
3183 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
3184 if (!SWIG_IsOK(res3)) {
3185 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_complex_householder_mh" "', argument " "3"" of type '" "gsl_matrix_complex *""'");
3186 }
3187 arg3 = (gsl_matrix_complex *)(argp3);
3188 result = (int)gsl_linalg_complex_householder_mh(arg1,(gsl_vector_complex const *)arg2,arg3);
3189 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3190
3191
3192 XSRETURN(argvi);
3193 fail:
3194
3195
3196 SWIG_croak_null();
3197 }
3198 }
3199
3200
XS(_wrap_gsl_linalg_complex_householder_hv)3201 XS(_wrap_gsl_linalg_complex_householder_hv) {
3202 {
3203 gsl_complex arg1 ;
3204 gsl_vector_complex *arg2 = (gsl_vector_complex *) 0 ;
3205 gsl_vector_complex *arg3 = (gsl_vector_complex *) 0 ;
3206 void *argp1 ;
3207 int res1 = 0 ;
3208 void *argp2 = 0 ;
3209 int res2 = 0 ;
3210 void *argp3 = 0 ;
3211 int res3 = 0 ;
3212 int argvi = 0;
3213 int result;
3214 dXSARGS;
3215
3216 if ((items < 3) || (items > 3)) {
3217 SWIG_croak("Usage: gsl_linalg_complex_householder_hv(tau,v,w);");
3218 }
3219 {
3220 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
3221 if (!SWIG_IsOK(res1)) {
3222 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_complex_householder_hv" "', argument " "1"" of type '" "gsl_complex""'");
3223 }
3224 if (!argp1) {
3225 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_linalg_complex_householder_hv" "', argument " "1"" of type '" "gsl_complex""'");
3226 } else {
3227 arg1 = *((gsl_complex *)(argp1));
3228 }
3229 }
3230 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
3231 if (!SWIG_IsOK(res2)) {
3232 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_complex_householder_hv" "', argument " "2"" of type '" "gsl_vector_complex const *""'");
3233 }
3234 arg2 = (gsl_vector_complex *)(argp2);
3235 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
3236 if (!SWIG_IsOK(res3)) {
3237 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_complex_householder_hv" "', argument " "3"" of type '" "gsl_vector_complex *""'");
3238 }
3239 arg3 = (gsl_vector_complex *)(argp3);
3240 result = (int)gsl_linalg_complex_householder_hv(arg1,(gsl_vector_complex const *)arg2,arg3);
3241 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3242
3243
3244 XSRETURN(argvi);
3245 fail:
3246
3247
3248 SWIG_croak_null();
3249 }
3250 }
3251
3252
XS(_wrap_gsl_linalg_complex_householder_left)3253 XS(_wrap_gsl_linalg_complex_householder_left) {
3254 {
3255 gsl_complex arg1 ;
3256 gsl_vector_complex *arg2 = (gsl_vector_complex *) 0 ;
3257 gsl_matrix_complex *arg3 = (gsl_matrix_complex *) 0 ;
3258 gsl_vector_complex *arg4 = (gsl_vector_complex *) 0 ;
3259 void *argp1 ;
3260 int res1 = 0 ;
3261 void *argp2 = 0 ;
3262 int res2 = 0 ;
3263 void *argp3 = 0 ;
3264 int res3 = 0 ;
3265 void *argp4 = 0 ;
3266 int res4 = 0 ;
3267 int argvi = 0;
3268 int result;
3269 dXSARGS;
3270
3271 if ((items < 4) || (items > 4)) {
3272 SWIG_croak("Usage: gsl_linalg_complex_householder_left(tau,v,A,work);");
3273 }
3274 {
3275 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
3276 if (!SWIG_IsOK(res1)) {
3277 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_complex_householder_left" "', argument " "1"" of type '" "gsl_complex const""'");
3278 }
3279 if (!argp1) {
3280 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_linalg_complex_householder_left" "', argument " "1"" of type '" "gsl_complex const""'");
3281 } else {
3282 arg1 = *((gsl_complex *)(argp1));
3283 }
3284 }
3285 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
3286 if (!SWIG_IsOK(res2)) {
3287 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_complex_householder_left" "', argument " "2"" of type '" "gsl_vector_complex const *""'");
3288 }
3289 arg2 = (gsl_vector_complex *)(argp2);
3290 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
3291 if (!SWIG_IsOK(res3)) {
3292 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_complex_householder_left" "', argument " "3"" of type '" "gsl_matrix_complex *""'");
3293 }
3294 arg3 = (gsl_matrix_complex *)(argp3);
3295 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
3296 if (!SWIG_IsOK(res4)) {
3297 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_complex_householder_left" "', argument " "4"" of type '" "gsl_vector_complex *""'");
3298 }
3299 arg4 = (gsl_vector_complex *)(argp4);
3300 result = (int)gsl_linalg_complex_householder_left(arg1,(gsl_vector_complex const *)arg2,arg3,arg4);
3301 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3302
3303
3304
3305 XSRETURN(argvi);
3306 fail:
3307
3308
3309
3310 SWIG_croak_null();
3311 }
3312 }
3313
3314
XS(_wrap_gsl_linalg_hessenberg_decomp)3315 XS(_wrap_gsl_linalg_hessenberg_decomp) {
3316 {
3317 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
3318 gsl_vector *arg2 = (gsl_vector *) 0 ;
3319 void *argp1 = 0 ;
3320 int res1 = 0 ;
3321 void *argp2 = 0 ;
3322 int res2 = 0 ;
3323 int argvi = 0;
3324 int result;
3325 dXSARGS;
3326
3327 if ((items < 2) || (items > 2)) {
3328 SWIG_croak("Usage: gsl_linalg_hessenberg_decomp(A,tau);");
3329 }
3330 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3331 if (!SWIG_IsOK(res1)) {
3332 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_hessenberg_decomp" "', argument " "1"" of type '" "gsl_matrix *""'");
3333 }
3334 arg1 = (gsl_matrix *)(argp1);
3335 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
3336 if (!SWIG_IsOK(res2)) {
3337 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_hessenberg_decomp" "', argument " "2"" of type '" "gsl_vector *""'");
3338 }
3339 arg2 = (gsl_vector *)(argp2);
3340 result = (int)gsl_linalg_hessenberg_decomp(arg1,arg2);
3341 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3342
3343
3344 XSRETURN(argvi);
3345 fail:
3346
3347
3348 SWIG_croak_null();
3349 }
3350 }
3351
3352
XS(_wrap_gsl_linalg_hessenberg_unpack)3353 XS(_wrap_gsl_linalg_hessenberg_unpack) {
3354 {
3355 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
3356 gsl_vector *arg2 = (gsl_vector *) 0 ;
3357 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
3358 void *argp1 = 0 ;
3359 int res1 = 0 ;
3360 void *argp2 = 0 ;
3361 int res2 = 0 ;
3362 void *argp3 = 0 ;
3363 int res3 = 0 ;
3364 int argvi = 0;
3365 int result;
3366 dXSARGS;
3367
3368 if ((items < 3) || (items > 3)) {
3369 SWIG_croak("Usage: gsl_linalg_hessenberg_unpack(H,tau,U);");
3370 }
3371 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3372 if (!SWIG_IsOK(res1)) {
3373 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_hessenberg_unpack" "', argument " "1"" of type '" "gsl_matrix *""'");
3374 }
3375 arg1 = (gsl_matrix *)(argp1);
3376 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
3377 if (!SWIG_IsOK(res2)) {
3378 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_hessenberg_unpack" "', argument " "2"" of type '" "gsl_vector *""'");
3379 }
3380 arg2 = (gsl_vector *)(argp2);
3381 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3382 if (!SWIG_IsOK(res3)) {
3383 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_hessenberg_unpack" "', argument " "3"" of type '" "gsl_matrix *""'");
3384 }
3385 arg3 = (gsl_matrix *)(argp3);
3386 result = (int)gsl_linalg_hessenberg_unpack(arg1,arg2,arg3);
3387 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3388
3389
3390
3391 XSRETURN(argvi);
3392 fail:
3393
3394
3395
3396 SWIG_croak_null();
3397 }
3398 }
3399
3400
XS(_wrap_gsl_linalg_hessenberg_unpack_accum)3401 XS(_wrap_gsl_linalg_hessenberg_unpack_accum) {
3402 {
3403 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
3404 gsl_vector *arg2 = (gsl_vector *) 0 ;
3405 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
3406 void *argp1 = 0 ;
3407 int res1 = 0 ;
3408 void *argp2 = 0 ;
3409 int res2 = 0 ;
3410 void *argp3 = 0 ;
3411 int res3 = 0 ;
3412 int argvi = 0;
3413 int result;
3414 dXSARGS;
3415
3416 if ((items < 3) || (items > 3)) {
3417 SWIG_croak("Usage: gsl_linalg_hessenberg_unpack_accum(H,tau,U);");
3418 }
3419 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3420 if (!SWIG_IsOK(res1)) {
3421 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_hessenberg_unpack_accum" "', argument " "1"" of type '" "gsl_matrix *""'");
3422 }
3423 arg1 = (gsl_matrix *)(argp1);
3424 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
3425 if (!SWIG_IsOK(res2)) {
3426 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_hessenberg_unpack_accum" "', argument " "2"" of type '" "gsl_vector *""'");
3427 }
3428 arg2 = (gsl_vector *)(argp2);
3429 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3430 if (!SWIG_IsOK(res3)) {
3431 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_hessenberg_unpack_accum" "', argument " "3"" of type '" "gsl_matrix *""'");
3432 }
3433 arg3 = (gsl_matrix *)(argp3);
3434 result = (int)gsl_linalg_hessenberg_unpack_accum(arg1,arg2,arg3);
3435 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3436
3437
3438
3439 XSRETURN(argvi);
3440 fail:
3441
3442
3443
3444 SWIG_croak_null();
3445 }
3446 }
3447
3448
XS(_wrap_gsl_linalg_hessenberg_set_zero)3449 XS(_wrap_gsl_linalg_hessenberg_set_zero) {
3450 {
3451 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
3452 void *argp1 = 0 ;
3453 int res1 = 0 ;
3454 int argvi = 0;
3455 int result;
3456 dXSARGS;
3457
3458 if ((items < 1) || (items > 1)) {
3459 SWIG_croak("Usage: gsl_linalg_hessenberg_set_zero(H);");
3460 }
3461 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3462 if (!SWIG_IsOK(res1)) {
3463 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_hessenberg_set_zero" "', argument " "1"" of type '" "gsl_matrix *""'");
3464 }
3465 arg1 = (gsl_matrix *)(argp1);
3466 result = (int)gsl_linalg_hessenberg_set_zero(arg1);
3467 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3468
3469 XSRETURN(argvi);
3470 fail:
3471
3472 SWIG_croak_null();
3473 }
3474 }
3475
3476
XS(_wrap_gsl_linalg_hessenberg_submatrix)3477 XS(_wrap_gsl_linalg_hessenberg_submatrix) {
3478 {
3479 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
3480 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
3481 size_t arg3 ;
3482 gsl_vector *arg4 = (gsl_vector *) 0 ;
3483 void *argp1 = 0 ;
3484 int res1 = 0 ;
3485 void *argp2 = 0 ;
3486 int res2 = 0 ;
3487 size_t val3 ;
3488 int ecode3 = 0 ;
3489 void *argp4 = 0 ;
3490 int res4 = 0 ;
3491 int argvi = 0;
3492 int result;
3493 dXSARGS;
3494
3495 if ((items < 4) || (items > 4)) {
3496 SWIG_croak("Usage: gsl_linalg_hessenberg_submatrix(M,A,top,tau);");
3497 }
3498 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3499 if (!SWIG_IsOK(res1)) {
3500 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_hessenberg_submatrix" "', argument " "1"" of type '" "gsl_matrix *""'");
3501 }
3502 arg1 = (gsl_matrix *)(argp1);
3503 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3504 if (!SWIG_IsOK(res2)) {
3505 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_hessenberg_submatrix" "', argument " "2"" of type '" "gsl_matrix *""'");
3506 }
3507 arg2 = (gsl_matrix *)(argp2);
3508 ecode3 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
3509 if (!SWIG_IsOK(ecode3)) {
3510 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_linalg_hessenberg_submatrix" "', argument " "3"" of type '" "size_t""'");
3511 }
3512 arg3 = (size_t)(val3);
3513 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
3514 if (!SWIG_IsOK(res4)) {
3515 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_hessenberg_submatrix" "', argument " "4"" of type '" "gsl_vector *""'");
3516 }
3517 arg4 = (gsl_vector *)(argp4);
3518 result = (int)gsl_linalg_hessenberg_submatrix(arg1,arg2,arg3,arg4);
3519 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3520
3521
3522
3523
3524 XSRETURN(argvi);
3525 fail:
3526
3527
3528
3529
3530 SWIG_croak_null();
3531 }
3532 }
3533
3534
XS(_wrap_gsl_linalg_hesstri_decomp)3535 XS(_wrap_gsl_linalg_hesstri_decomp) {
3536 {
3537 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
3538 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
3539 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
3540 gsl_matrix *arg4 = (gsl_matrix *) 0 ;
3541 gsl_vector *arg5 = (gsl_vector *) 0 ;
3542 void *argp1 = 0 ;
3543 int res1 = 0 ;
3544 void *argp2 = 0 ;
3545 int res2 = 0 ;
3546 void *argp3 = 0 ;
3547 int res3 = 0 ;
3548 void *argp4 = 0 ;
3549 int res4 = 0 ;
3550 void *argp5 = 0 ;
3551 int res5 = 0 ;
3552 int argvi = 0;
3553 int result;
3554 dXSARGS;
3555
3556 if ((items < 5) || (items > 5)) {
3557 SWIG_croak("Usage: gsl_linalg_hesstri_decomp(A,B,U,V,work);");
3558 }
3559 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3560 if (!SWIG_IsOK(res1)) {
3561 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_hesstri_decomp" "', argument " "1"" of type '" "gsl_matrix *""'");
3562 }
3563 arg1 = (gsl_matrix *)(argp1);
3564 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3565 if (!SWIG_IsOK(res2)) {
3566 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_hesstri_decomp" "', argument " "2"" of type '" "gsl_matrix *""'");
3567 }
3568 arg2 = (gsl_matrix *)(argp2);
3569 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3570 if (!SWIG_IsOK(res3)) {
3571 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_hesstri_decomp" "', argument " "3"" of type '" "gsl_matrix *""'");
3572 }
3573 arg3 = (gsl_matrix *)(argp3);
3574 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3575 if (!SWIG_IsOK(res4)) {
3576 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_hesstri_decomp" "', argument " "4"" of type '" "gsl_matrix *""'");
3577 }
3578 arg4 = (gsl_matrix *)(argp4);
3579 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
3580 if (!SWIG_IsOK(res5)) {
3581 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_hesstri_decomp" "', argument " "5"" of type '" "gsl_vector *""'");
3582 }
3583 arg5 = (gsl_vector *)(argp5);
3584 result = (int)gsl_linalg_hesstri_decomp(arg1,arg2,arg3,arg4,arg5);
3585 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3586
3587
3588
3589
3590
3591 XSRETURN(argvi);
3592 fail:
3593
3594
3595
3596
3597
3598 SWIG_croak_null();
3599 }
3600 }
3601
3602
XS(_wrap_gsl_linalg_SV_decomp)3603 XS(_wrap_gsl_linalg_SV_decomp) {
3604 {
3605 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
3606 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
3607 gsl_vector *arg3 = (gsl_vector *) 0 ;
3608 gsl_vector *arg4 = (gsl_vector *) 0 ;
3609 void *argp1 = 0 ;
3610 int res1 = 0 ;
3611 void *argp2 = 0 ;
3612 int res2 = 0 ;
3613 void *argp3 = 0 ;
3614 int res3 = 0 ;
3615 void *argp4 = 0 ;
3616 int res4 = 0 ;
3617 int argvi = 0;
3618 int result;
3619 dXSARGS;
3620
3621 if ((items < 4) || (items > 4)) {
3622 SWIG_croak("Usage: gsl_linalg_SV_decomp(A,V,S,work);");
3623 }
3624 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3625 if (!SWIG_IsOK(res1)) {
3626 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_SV_decomp" "', argument " "1"" of type '" "gsl_matrix *""'");
3627 }
3628 arg1 = (gsl_matrix *)(argp1);
3629 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3630 if (!SWIG_IsOK(res2)) {
3631 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_SV_decomp" "', argument " "2"" of type '" "gsl_matrix *""'");
3632 }
3633 arg2 = (gsl_matrix *)(argp2);
3634 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
3635 if (!SWIG_IsOK(res3)) {
3636 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_SV_decomp" "', argument " "3"" of type '" "gsl_vector *""'");
3637 }
3638 arg3 = (gsl_vector *)(argp3);
3639 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
3640 if (!SWIG_IsOK(res4)) {
3641 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_SV_decomp" "', argument " "4"" of type '" "gsl_vector *""'");
3642 }
3643 arg4 = (gsl_vector *)(argp4);
3644 result = (int)gsl_linalg_SV_decomp(arg1,arg2,arg3,arg4);
3645 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3646
3647
3648
3649
3650 XSRETURN(argvi);
3651 fail:
3652
3653
3654
3655
3656 SWIG_croak_null();
3657 }
3658 }
3659
3660
XS(_wrap_gsl_linalg_SV_decomp_mod)3661 XS(_wrap_gsl_linalg_SV_decomp_mod) {
3662 {
3663 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
3664 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
3665 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
3666 gsl_vector *arg4 = (gsl_vector *) 0 ;
3667 gsl_vector *arg5 = (gsl_vector *) 0 ;
3668 void *argp1 = 0 ;
3669 int res1 = 0 ;
3670 void *argp2 = 0 ;
3671 int res2 = 0 ;
3672 void *argp3 = 0 ;
3673 int res3 = 0 ;
3674 void *argp4 = 0 ;
3675 int res4 = 0 ;
3676 void *argp5 = 0 ;
3677 int res5 = 0 ;
3678 int argvi = 0;
3679 int result;
3680 dXSARGS;
3681
3682 if ((items < 5) || (items > 5)) {
3683 SWIG_croak("Usage: gsl_linalg_SV_decomp_mod(A,X,V,S,work);");
3684 }
3685 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3686 if (!SWIG_IsOK(res1)) {
3687 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_SV_decomp_mod" "', argument " "1"" of type '" "gsl_matrix *""'");
3688 }
3689 arg1 = (gsl_matrix *)(argp1);
3690 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3691 if (!SWIG_IsOK(res2)) {
3692 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_SV_decomp_mod" "', argument " "2"" of type '" "gsl_matrix *""'");
3693 }
3694 arg2 = (gsl_matrix *)(argp2);
3695 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3696 if (!SWIG_IsOK(res3)) {
3697 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_SV_decomp_mod" "', argument " "3"" of type '" "gsl_matrix *""'");
3698 }
3699 arg3 = (gsl_matrix *)(argp3);
3700 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
3701 if (!SWIG_IsOK(res4)) {
3702 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_SV_decomp_mod" "', argument " "4"" of type '" "gsl_vector *""'");
3703 }
3704 arg4 = (gsl_vector *)(argp4);
3705 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
3706 if (!SWIG_IsOK(res5)) {
3707 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_SV_decomp_mod" "', argument " "5"" of type '" "gsl_vector *""'");
3708 }
3709 arg5 = (gsl_vector *)(argp5);
3710 result = (int)gsl_linalg_SV_decomp_mod(arg1,arg2,arg3,arg4,arg5);
3711 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3712
3713
3714
3715
3716
3717 XSRETURN(argvi);
3718 fail:
3719
3720
3721
3722
3723
3724 SWIG_croak_null();
3725 }
3726 }
3727
3728
XS(_wrap_gsl_linalg_SV_decomp_jacobi)3729 XS(_wrap_gsl_linalg_SV_decomp_jacobi) {
3730 {
3731 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
3732 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
3733 gsl_vector *arg3 = (gsl_vector *) 0 ;
3734 void *argp1 = 0 ;
3735 int res1 = 0 ;
3736 void *argp2 = 0 ;
3737 int res2 = 0 ;
3738 void *argp3 = 0 ;
3739 int res3 = 0 ;
3740 int argvi = 0;
3741 int result;
3742 dXSARGS;
3743
3744 if ((items < 3) || (items > 3)) {
3745 SWIG_croak("Usage: gsl_linalg_SV_decomp_jacobi(A,Q,S);");
3746 }
3747 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3748 if (!SWIG_IsOK(res1)) {
3749 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_SV_decomp_jacobi" "', argument " "1"" of type '" "gsl_matrix *""'");
3750 }
3751 arg1 = (gsl_matrix *)(argp1);
3752 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3753 if (!SWIG_IsOK(res2)) {
3754 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_SV_decomp_jacobi" "', argument " "2"" of type '" "gsl_matrix *""'");
3755 }
3756 arg2 = (gsl_matrix *)(argp2);
3757 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
3758 if (!SWIG_IsOK(res3)) {
3759 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_SV_decomp_jacobi" "', argument " "3"" of type '" "gsl_vector *""'");
3760 }
3761 arg3 = (gsl_vector *)(argp3);
3762 result = (int)gsl_linalg_SV_decomp_jacobi(arg1,arg2,arg3);
3763 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3764
3765
3766
3767 XSRETURN(argvi);
3768 fail:
3769
3770
3771
3772 SWIG_croak_null();
3773 }
3774 }
3775
3776
XS(_wrap_gsl_linalg_SV_solve)3777 XS(_wrap_gsl_linalg_SV_solve) {
3778 {
3779 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
3780 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
3781 gsl_vector *arg3 = (gsl_vector *) 0 ;
3782 gsl_vector *arg4 = (gsl_vector *) 0 ;
3783 gsl_vector *arg5 = (gsl_vector *) 0 ;
3784 void *argp1 = 0 ;
3785 int res1 = 0 ;
3786 void *argp2 = 0 ;
3787 int res2 = 0 ;
3788 void *argp3 = 0 ;
3789 int res3 = 0 ;
3790 void *argp4 = 0 ;
3791 int res4 = 0 ;
3792 void *argp5 = 0 ;
3793 int res5 = 0 ;
3794 int argvi = 0;
3795 int result;
3796 dXSARGS;
3797
3798 if ((items < 5) || (items > 5)) {
3799 SWIG_croak("Usage: gsl_linalg_SV_solve(U,Q,S,b,x);");
3800 }
3801 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3802 if (!SWIG_IsOK(res1)) {
3803 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_SV_solve" "', argument " "1"" of type '" "gsl_matrix const *""'");
3804 }
3805 arg1 = (gsl_matrix *)(argp1);
3806 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3807 if (!SWIG_IsOK(res2)) {
3808 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_SV_solve" "', argument " "2"" of type '" "gsl_matrix const *""'");
3809 }
3810 arg2 = (gsl_matrix *)(argp2);
3811 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
3812 if (!SWIG_IsOK(res3)) {
3813 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_SV_solve" "', argument " "3"" of type '" "gsl_vector const *""'");
3814 }
3815 arg3 = (gsl_vector *)(argp3);
3816 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
3817 if (!SWIG_IsOK(res4)) {
3818 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_SV_solve" "', argument " "4"" of type '" "gsl_vector const *""'");
3819 }
3820 arg4 = (gsl_vector *)(argp4);
3821 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
3822 if (!SWIG_IsOK(res5)) {
3823 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_SV_solve" "', argument " "5"" of type '" "gsl_vector *""'");
3824 }
3825 arg5 = (gsl_vector *)(argp5);
3826 result = (int)gsl_linalg_SV_solve((gsl_matrix const *)arg1,(gsl_matrix const *)arg2,(gsl_vector const *)arg3,(gsl_vector const *)arg4,arg5);
3827 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3828
3829
3830
3831
3832
3833 XSRETURN(argvi);
3834 fail:
3835
3836
3837
3838
3839
3840 SWIG_croak_null();
3841 }
3842 }
3843
3844
XS(_wrap_gsl_linalg_SV_leverage)3845 XS(_wrap_gsl_linalg_SV_leverage) {
3846 {
3847 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
3848 gsl_vector *arg2 = (gsl_vector *) 0 ;
3849 void *argp1 = 0 ;
3850 int res1 = 0 ;
3851 void *argp2 = 0 ;
3852 int res2 = 0 ;
3853 int argvi = 0;
3854 int result;
3855 dXSARGS;
3856
3857 if ((items < 2) || (items > 2)) {
3858 SWIG_croak("Usage: gsl_linalg_SV_leverage(U,h);");
3859 }
3860 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3861 if (!SWIG_IsOK(res1)) {
3862 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_SV_leverage" "', argument " "1"" of type '" "gsl_matrix const *""'");
3863 }
3864 arg1 = (gsl_matrix *)(argp1);
3865 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
3866 if (!SWIG_IsOK(res2)) {
3867 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_SV_leverage" "', argument " "2"" of type '" "gsl_vector *""'");
3868 }
3869 arg2 = (gsl_vector *)(argp2);
3870 result = (int)gsl_linalg_SV_leverage((gsl_matrix const *)arg1,arg2);
3871 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3872
3873
3874 XSRETURN(argvi);
3875 fail:
3876
3877
3878 SWIG_croak_null();
3879 }
3880 }
3881
3882
XS(_wrap_gsl_linalg_LU_decomp)3883 XS(_wrap_gsl_linalg_LU_decomp) {
3884 {
3885 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
3886 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
3887 int *arg3 = (int *) 0 ;
3888 void *argp1 = 0 ;
3889 int res1 = 0 ;
3890 void *argp2 = 0 ;
3891 int res2 = 0 ;
3892 int temp3 ;
3893 int res3 = SWIG_TMPOBJ ;
3894 int argvi = 0;
3895 int result;
3896 dXSARGS;
3897
3898 arg3 = &temp3;
3899 if ((items < 2) || (items > 2)) {
3900 SWIG_croak("Usage: gsl_linalg_LU_decomp(A,p);");
3901 }
3902 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3903 if (!SWIG_IsOK(res1)) {
3904 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LU_decomp" "', argument " "1"" of type '" "gsl_matrix *""'");
3905 }
3906 arg1 = (gsl_matrix *)(argp1);
3907 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
3908 if (!SWIG_IsOK(res2)) {
3909 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_LU_decomp" "', argument " "2"" of type '" "gsl_permutation *""'");
3910 }
3911 arg2 = (gsl_permutation *)(argp2);
3912 result = (int)gsl_linalg_LU_decomp(arg1,arg2,arg3);
3913 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3914 if (SWIG_IsTmpObj(res3)) {
3915 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((*arg3)); argvi++ ;
3916 } else {
3917 int new_flags = SWIG_IsNewObj(res3) ? (SWIG_POINTER_OWN | 0) : 0;
3918 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg3), SWIGTYPE_p_int, new_flags); argvi++ ;
3919 }
3920
3921
3922
3923 XSRETURN(argvi);
3924 fail:
3925
3926
3927
3928 SWIG_croak_null();
3929 }
3930 }
3931
3932
XS(_wrap_gsl_linalg_LU_solve)3933 XS(_wrap_gsl_linalg_LU_solve) {
3934 {
3935 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
3936 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
3937 gsl_vector *arg3 = (gsl_vector *) 0 ;
3938 gsl_vector *arg4 = (gsl_vector *) 0 ;
3939 void *argp1 = 0 ;
3940 int res1 = 0 ;
3941 void *argp2 = 0 ;
3942 int res2 = 0 ;
3943 void *argp3 = 0 ;
3944 int res3 = 0 ;
3945 void *argp4 = 0 ;
3946 int res4 = 0 ;
3947 int argvi = 0;
3948 int result;
3949 dXSARGS;
3950
3951 if ((items < 4) || (items > 4)) {
3952 SWIG_croak("Usage: gsl_linalg_LU_solve(LU,p,b,x);");
3953 }
3954 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3955 if (!SWIG_IsOK(res1)) {
3956 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LU_solve" "', argument " "1"" of type '" "gsl_matrix const *""'");
3957 }
3958 arg1 = (gsl_matrix *)(argp1);
3959 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
3960 if (!SWIG_IsOK(res2)) {
3961 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_LU_solve" "', argument " "2"" of type '" "gsl_permutation const *""'");
3962 }
3963 arg2 = (gsl_permutation *)(argp2);
3964 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
3965 if (!SWIG_IsOK(res3)) {
3966 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_LU_solve" "', argument " "3"" of type '" "gsl_vector const *""'");
3967 }
3968 arg3 = (gsl_vector *)(argp3);
3969 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
3970 if (!SWIG_IsOK(res4)) {
3971 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_LU_solve" "', argument " "4"" of type '" "gsl_vector *""'");
3972 }
3973 arg4 = (gsl_vector *)(argp4);
3974 result = (int)gsl_linalg_LU_solve((gsl_matrix const *)arg1,(struct gsl_permutation_struct const *)arg2,(gsl_vector const *)arg3,arg4);
3975 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3976
3977
3978
3979
3980 XSRETURN(argvi);
3981 fail:
3982
3983
3984
3985
3986 SWIG_croak_null();
3987 }
3988 }
3989
3990
XS(_wrap_gsl_linalg_LU_svx)3991 XS(_wrap_gsl_linalg_LU_svx) {
3992 {
3993 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
3994 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
3995 gsl_vector *arg3 = (gsl_vector *) 0 ;
3996 void *argp1 = 0 ;
3997 int res1 = 0 ;
3998 void *argp2 = 0 ;
3999 int res2 = 0 ;
4000 void *argp3 = 0 ;
4001 int res3 = 0 ;
4002 int argvi = 0;
4003 int result;
4004 dXSARGS;
4005
4006 if ((items < 3) || (items > 3)) {
4007 SWIG_croak("Usage: gsl_linalg_LU_svx(LU,p,x);");
4008 }
4009 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
4010 if (!SWIG_IsOK(res1)) {
4011 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LU_svx" "', argument " "1"" of type '" "gsl_matrix const *""'");
4012 }
4013 arg1 = (gsl_matrix *)(argp1);
4014 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
4015 if (!SWIG_IsOK(res2)) {
4016 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_LU_svx" "', argument " "2"" of type '" "gsl_permutation const *""'");
4017 }
4018 arg2 = (gsl_permutation *)(argp2);
4019 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
4020 if (!SWIG_IsOK(res3)) {
4021 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_LU_svx" "', argument " "3"" of type '" "gsl_vector *""'");
4022 }
4023 arg3 = (gsl_vector *)(argp3);
4024 result = (int)gsl_linalg_LU_svx((gsl_matrix const *)arg1,(struct gsl_permutation_struct const *)arg2,arg3);
4025 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4026
4027
4028
4029 XSRETURN(argvi);
4030 fail:
4031
4032
4033
4034 SWIG_croak_null();
4035 }
4036 }
4037
4038
XS(_wrap_gsl_linalg_LU_refine)4039 XS(_wrap_gsl_linalg_LU_refine) {
4040 {
4041 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
4042 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
4043 gsl_permutation *arg3 = (gsl_permutation *) 0 ;
4044 gsl_vector *arg4 = (gsl_vector *) 0 ;
4045 gsl_vector *arg5 = (gsl_vector *) 0 ;
4046 gsl_vector *arg6 = (gsl_vector *) 0 ;
4047 void *argp1 = 0 ;
4048 int res1 = 0 ;
4049 void *argp2 = 0 ;
4050 int res2 = 0 ;
4051 void *argp3 = 0 ;
4052 int res3 = 0 ;
4053 void *argp4 = 0 ;
4054 int res4 = 0 ;
4055 void *argp5 = 0 ;
4056 int res5 = 0 ;
4057 void *argp6 = 0 ;
4058 int res6 = 0 ;
4059 int argvi = 0;
4060 int result;
4061 dXSARGS;
4062
4063 if ((items < 6) || (items > 6)) {
4064 SWIG_croak("Usage: gsl_linalg_LU_refine(A,LU,p,b,x,work);");
4065 }
4066 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
4067 if (!SWIG_IsOK(res1)) {
4068 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LU_refine" "', argument " "1"" of type '" "gsl_matrix const *""'");
4069 }
4070 arg1 = (gsl_matrix *)(argp1);
4071 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
4072 if (!SWIG_IsOK(res2)) {
4073 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_LU_refine" "', argument " "2"" of type '" "gsl_matrix const *""'");
4074 }
4075 arg2 = (gsl_matrix *)(argp2);
4076 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
4077 if (!SWIG_IsOK(res3)) {
4078 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_LU_refine" "', argument " "3"" of type '" "gsl_permutation const *""'");
4079 }
4080 arg3 = (gsl_permutation *)(argp3);
4081 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
4082 if (!SWIG_IsOK(res4)) {
4083 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_LU_refine" "', argument " "4"" of type '" "gsl_vector const *""'");
4084 }
4085 arg4 = (gsl_vector *)(argp4);
4086 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
4087 if (!SWIG_IsOK(res5)) {
4088 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_LU_refine" "', argument " "5"" of type '" "gsl_vector *""'");
4089 }
4090 arg5 = (gsl_vector *)(argp5);
4091 res6 = SWIG_ConvertPtr(ST(5), &argp6,SWIGTYPE_p_gsl_vector, 0 | 0 );
4092 if (!SWIG_IsOK(res6)) {
4093 SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_linalg_LU_refine" "', argument " "6"" of type '" "gsl_vector *""'");
4094 }
4095 arg6 = (gsl_vector *)(argp6);
4096 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);
4097 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4098
4099
4100
4101
4102
4103
4104 XSRETURN(argvi);
4105 fail:
4106
4107
4108
4109
4110
4111
4112 SWIG_croak_null();
4113 }
4114 }
4115
4116
XS(_wrap_gsl_linalg_LU_invert)4117 XS(_wrap_gsl_linalg_LU_invert) {
4118 {
4119 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
4120 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
4121 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
4122 void *argp1 = 0 ;
4123 int res1 = 0 ;
4124 void *argp2 = 0 ;
4125 int res2 = 0 ;
4126 void *argp3 = 0 ;
4127 int res3 = 0 ;
4128 int argvi = 0;
4129 int result;
4130 dXSARGS;
4131
4132 if ((items < 3) || (items > 3)) {
4133 SWIG_croak("Usage: gsl_linalg_LU_invert(LU,p,inverse);");
4134 }
4135 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
4136 if (!SWIG_IsOK(res1)) {
4137 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LU_invert" "', argument " "1"" of type '" "gsl_matrix const *""'");
4138 }
4139 arg1 = (gsl_matrix *)(argp1);
4140 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
4141 if (!SWIG_IsOK(res2)) {
4142 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_LU_invert" "', argument " "2"" of type '" "gsl_permutation const *""'");
4143 }
4144 arg2 = (gsl_permutation *)(argp2);
4145 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
4146 if (!SWIG_IsOK(res3)) {
4147 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_LU_invert" "', argument " "3"" of type '" "gsl_matrix *""'");
4148 }
4149 arg3 = (gsl_matrix *)(argp3);
4150 result = (int)gsl_linalg_LU_invert((gsl_matrix const *)arg1,(struct gsl_permutation_struct const *)arg2,arg3);
4151 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4152
4153
4154
4155 XSRETURN(argvi);
4156 fail:
4157
4158
4159
4160 SWIG_croak_null();
4161 }
4162 }
4163
4164
XS(_wrap_gsl_linalg_LU_invx)4165 XS(_wrap_gsl_linalg_LU_invx) {
4166 {
4167 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
4168 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
4169 void *argp1 = 0 ;
4170 int res1 = 0 ;
4171 void *argp2 = 0 ;
4172 int res2 = 0 ;
4173 int argvi = 0;
4174 int result;
4175 dXSARGS;
4176
4177 if ((items < 2) || (items > 2)) {
4178 SWIG_croak("Usage: gsl_linalg_LU_invx(LU,p);");
4179 }
4180 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
4181 if (!SWIG_IsOK(res1)) {
4182 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LU_invx" "', argument " "1"" of type '" "gsl_matrix *""'");
4183 }
4184 arg1 = (gsl_matrix *)(argp1);
4185 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
4186 if (!SWIG_IsOK(res2)) {
4187 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_LU_invx" "', argument " "2"" of type '" "gsl_permutation const *""'");
4188 }
4189 arg2 = (gsl_permutation *)(argp2);
4190 result = (int)gsl_linalg_LU_invx(arg1,(struct gsl_permutation_struct const *)arg2);
4191 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4192
4193
4194 XSRETURN(argvi);
4195 fail:
4196
4197
4198 SWIG_croak_null();
4199 }
4200 }
4201
4202
XS(_wrap_gsl_linalg_LU_det)4203 XS(_wrap_gsl_linalg_LU_det) {
4204 {
4205 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
4206 int arg2 ;
4207 void *argp1 = 0 ;
4208 int res1 = 0 ;
4209 int val2 ;
4210 int ecode2 = 0 ;
4211 int argvi = 0;
4212 double result;
4213 dXSARGS;
4214
4215 if ((items < 2) || (items > 2)) {
4216 SWIG_croak("Usage: gsl_linalg_LU_det(LU,signum);");
4217 }
4218 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
4219 if (!SWIG_IsOK(res1)) {
4220 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LU_det" "', argument " "1"" of type '" "gsl_matrix *""'");
4221 }
4222 arg1 = (gsl_matrix *)(argp1);
4223 ecode2 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
4224 if (!SWIG_IsOK(ecode2)) {
4225 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_linalg_LU_det" "', argument " "2"" of type '" "int""'");
4226 }
4227 arg2 = (int)(val2);
4228 result = (double)gsl_linalg_LU_det(arg1,arg2);
4229 ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(result)); argvi++ ;
4230
4231
4232 XSRETURN(argvi);
4233 fail:
4234
4235
4236 SWIG_croak_null();
4237 }
4238 }
4239
4240
XS(_wrap_gsl_linalg_LU_lndet)4241 XS(_wrap_gsl_linalg_LU_lndet) {
4242 {
4243 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
4244 void *argp1 = 0 ;
4245 int res1 = 0 ;
4246 int argvi = 0;
4247 double result;
4248 dXSARGS;
4249
4250 if ((items < 1) || (items > 1)) {
4251 SWIG_croak("Usage: gsl_linalg_LU_lndet(LU);");
4252 }
4253 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
4254 if (!SWIG_IsOK(res1)) {
4255 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LU_lndet" "', argument " "1"" of type '" "gsl_matrix *""'");
4256 }
4257 arg1 = (gsl_matrix *)(argp1);
4258 result = (double)gsl_linalg_LU_lndet(arg1);
4259 ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(result)); argvi++ ;
4260
4261 XSRETURN(argvi);
4262 fail:
4263
4264 SWIG_croak_null();
4265 }
4266 }
4267
4268
XS(_wrap_gsl_linalg_LU_sgndet)4269 XS(_wrap_gsl_linalg_LU_sgndet) {
4270 {
4271 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
4272 int arg2 ;
4273 void *argp1 = 0 ;
4274 int res1 = 0 ;
4275 int val2 ;
4276 int ecode2 = 0 ;
4277 int argvi = 0;
4278 int result;
4279 dXSARGS;
4280
4281 if ((items < 2) || (items > 2)) {
4282 SWIG_croak("Usage: gsl_linalg_LU_sgndet(lu,signum);");
4283 }
4284 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
4285 if (!SWIG_IsOK(res1)) {
4286 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LU_sgndet" "', argument " "1"" of type '" "gsl_matrix *""'");
4287 }
4288 arg1 = (gsl_matrix *)(argp1);
4289 ecode2 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
4290 if (!SWIG_IsOK(ecode2)) {
4291 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_linalg_LU_sgndet" "', argument " "2"" of type '" "int""'");
4292 }
4293 arg2 = (int)(val2);
4294 result = (int)gsl_linalg_LU_sgndet(arg1,arg2);
4295 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4296
4297
4298 XSRETURN(argvi);
4299 fail:
4300
4301
4302 SWIG_croak_null();
4303 }
4304 }
4305
4306
XS(_wrap_gsl_linalg_LU_band_decomp)4307 XS(_wrap_gsl_linalg_LU_band_decomp) {
4308 {
4309 size_t arg1 ;
4310 size_t arg2 ;
4311 size_t arg3 ;
4312 gsl_matrix *arg4 = (gsl_matrix *) 0 ;
4313 gsl_vector_uint *arg5 = (gsl_vector_uint *) 0 ;
4314 size_t val1 ;
4315 int ecode1 = 0 ;
4316 size_t val2 ;
4317 int ecode2 = 0 ;
4318 size_t val3 ;
4319 int ecode3 = 0 ;
4320 void *argp4 = 0 ;
4321 int res4 = 0 ;
4322 void *argp5 = 0 ;
4323 int res5 = 0 ;
4324 int argvi = 0;
4325 int result;
4326 dXSARGS;
4327
4328 if ((items < 5) || (items > 5)) {
4329 SWIG_croak("Usage: gsl_linalg_LU_band_decomp(M,lb,ub,AB,piv);");
4330 }
4331 ecode1 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
4332 if (!SWIG_IsOK(ecode1)) {
4333 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_linalg_LU_band_decomp" "', argument " "1"" of type '" "size_t""'");
4334 }
4335 arg1 = (size_t)(val1);
4336 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
4337 if (!SWIG_IsOK(ecode2)) {
4338 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_linalg_LU_band_decomp" "', argument " "2"" of type '" "size_t""'");
4339 }
4340 arg2 = (size_t)(val2);
4341 ecode3 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
4342 if (!SWIG_IsOK(ecode3)) {
4343 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_linalg_LU_band_decomp" "', argument " "3"" of type '" "size_t""'");
4344 }
4345 arg3 = (size_t)(val3);
4346 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_matrix, 0 | 0 );
4347 if (!SWIG_IsOK(res4)) {
4348 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_LU_band_decomp" "', argument " "4"" of type '" "gsl_matrix *""'");
4349 }
4350 arg4 = (gsl_matrix *)(argp4);
4351 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector_uint, 0 | 0 );
4352 if (!SWIG_IsOK(res5)) {
4353 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_LU_band_decomp" "', argument " "5"" of type '" "gsl_vector_uint *""'");
4354 }
4355 arg5 = (gsl_vector_uint *)(argp5);
4356 result = (int)gsl_linalg_LU_band_decomp(arg1,arg2,arg3,arg4,arg5);
4357 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4358
4359
4360
4361
4362
4363 XSRETURN(argvi);
4364 fail:
4365
4366
4367
4368
4369
4370 SWIG_croak_null();
4371 }
4372 }
4373
4374
XS(_wrap_gsl_linalg_LU_band_solve)4375 XS(_wrap_gsl_linalg_LU_band_solve) {
4376 {
4377 size_t arg1 ;
4378 size_t arg2 ;
4379 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
4380 gsl_vector_uint *arg4 = (gsl_vector_uint *) 0 ;
4381 gsl_vector *arg5 = (gsl_vector *) 0 ;
4382 gsl_vector *arg6 = (gsl_vector *) 0 ;
4383 size_t val1 ;
4384 int ecode1 = 0 ;
4385 size_t val2 ;
4386 int ecode2 = 0 ;
4387 void *argp3 = 0 ;
4388 int res3 = 0 ;
4389 void *argp4 = 0 ;
4390 int res4 = 0 ;
4391 void *argp5 = 0 ;
4392 int res5 = 0 ;
4393 void *argp6 = 0 ;
4394 int res6 = 0 ;
4395 int argvi = 0;
4396 int result;
4397 dXSARGS;
4398
4399 if ((items < 6) || (items > 6)) {
4400 SWIG_croak("Usage: gsl_linalg_LU_band_solve(lb,ub,LUB,piv,b,x);");
4401 }
4402 ecode1 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
4403 if (!SWIG_IsOK(ecode1)) {
4404 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_linalg_LU_band_solve" "', argument " "1"" of type '" "size_t""'");
4405 }
4406 arg1 = (size_t)(val1);
4407 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
4408 if (!SWIG_IsOK(ecode2)) {
4409 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_linalg_LU_band_solve" "', argument " "2"" of type '" "size_t""'");
4410 }
4411 arg2 = (size_t)(val2);
4412 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
4413 if (!SWIG_IsOK(res3)) {
4414 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_LU_band_solve" "', argument " "3"" of type '" "gsl_matrix const *""'");
4415 }
4416 arg3 = (gsl_matrix *)(argp3);
4417 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector_uint, 0 | 0 );
4418 if (!SWIG_IsOK(res4)) {
4419 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_LU_band_solve" "', argument " "4"" of type '" "gsl_vector_uint const *""'");
4420 }
4421 arg4 = (gsl_vector_uint *)(argp4);
4422 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
4423 if (!SWIG_IsOK(res5)) {
4424 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_LU_band_solve" "', argument " "5"" of type '" "gsl_vector const *""'");
4425 }
4426 arg5 = (gsl_vector *)(argp5);
4427 res6 = SWIG_ConvertPtr(ST(5), &argp6,SWIGTYPE_p_gsl_vector, 0 | 0 );
4428 if (!SWIG_IsOK(res6)) {
4429 SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_linalg_LU_band_solve" "', argument " "6"" of type '" "gsl_vector *""'");
4430 }
4431 arg6 = (gsl_vector *)(argp6);
4432 result = (int)gsl_linalg_LU_band_solve(arg1,arg2,(gsl_matrix const *)arg3,(gsl_vector_uint const *)arg4,(gsl_vector const *)arg5,arg6);
4433 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4434
4435
4436
4437
4438
4439
4440 XSRETURN(argvi);
4441 fail:
4442
4443
4444
4445
4446
4447
4448 SWIG_croak_null();
4449 }
4450 }
4451
4452
XS(_wrap_gsl_linalg_LU_band_svx)4453 XS(_wrap_gsl_linalg_LU_band_svx) {
4454 {
4455 size_t arg1 ;
4456 size_t arg2 ;
4457 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
4458 gsl_vector_uint *arg4 = (gsl_vector_uint *) 0 ;
4459 gsl_vector *arg5 = (gsl_vector *) 0 ;
4460 size_t val1 ;
4461 int ecode1 = 0 ;
4462 size_t val2 ;
4463 int ecode2 = 0 ;
4464 void *argp3 = 0 ;
4465 int res3 = 0 ;
4466 void *argp4 = 0 ;
4467 int res4 = 0 ;
4468 void *argp5 = 0 ;
4469 int res5 = 0 ;
4470 int argvi = 0;
4471 int result;
4472 dXSARGS;
4473
4474 if ((items < 5) || (items > 5)) {
4475 SWIG_croak("Usage: gsl_linalg_LU_band_svx(lb,ub,LUB,piv,x);");
4476 }
4477 ecode1 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
4478 if (!SWIG_IsOK(ecode1)) {
4479 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_linalg_LU_band_svx" "', argument " "1"" of type '" "size_t""'");
4480 }
4481 arg1 = (size_t)(val1);
4482 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
4483 if (!SWIG_IsOK(ecode2)) {
4484 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_linalg_LU_band_svx" "', argument " "2"" of type '" "size_t""'");
4485 }
4486 arg2 = (size_t)(val2);
4487 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
4488 if (!SWIG_IsOK(res3)) {
4489 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_LU_band_svx" "', argument " "3"" of type '" "gsl_matrix const *""'");
4490 }
4491 arg3 = (gsl_matrix *)(argp3);
4492 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector_uint, 0 | 0 );
4493 if (!SWIG_IsOK(res4)) {
4494 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_LU_band_svx" "', argument " "4"" of type '" "gsl_vector_uint const *""'");
4495 }
4496 arg4 = (gsl_vector_uint *)(argp4);
4497 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
4498 if (!SWIG_IsOK(res5)) {
4499 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_LU_band_svx" "', argument " "5"" of type '" "gsl_vector *""'");
4500 }
4501 arg5 = (gsl_vector *)(argp5);
4502 result = (int)gsl_linalg_LU_band_svx(arg1,arg2,(gsl_matrix const *)arg3,(gsl_vector_uint const *)arg4,arg5);
4503 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4504
4505
4506
4507
4508
4509 XSRETURN(argvi);
4510 fail:
4511
4512
4513
4514
4515
4516 SWIG_croak_null();
4517 }
4518 }
4519
4520
XS(_wrap_gsl_linalg_LU_band_unpack)4521 XS(_wrap_gsl_linalg_LU_band_unpack) {
4522 {
4523 size_t arg1 ;
4524 size_t arg2 ;
4525 size_t arg3 ;
4526 gsl_matrix *arg4 = (gsl_matrix *) 0 ;
4527 gsl_vector_uint *arg5 = (gsl_vector_uint *) 0 ;
4528 gsl_matrix *arg6 = (gsl_matrix *) 0 ;
4529 gsl_matrix *arg7 = (gsl_matrix *) 0 ;
4530 size_t val1 ;
4531 int ecode1 = 0 ;
4532 size_t val2 ;
4533 int ecode2 = 0 ;
4534 size_t val3 ;
4535 int ecode3 = 0 ;
4536 void *argp4 = 0 ;
4537 int res4 = 0 ;
4538 void *argp5 = 0 ;
4539 int res5 = 0 ;
4540 void *argp6 = 0 ;
4541 int res6 = 0 ;
4542 void *argp7 = 0 ;
4543 int res7 = 0 ;
4544 int argvi = 0;
4545 int result;
4546 dXSARGS;
4547
4548 if ((items < 7) || (items > 7)) {
4549 SWIG_croak("Usage: gsl_linalg_LU_band_unpack(M,lb,ub,LUB,piv,L,U);");
4550 }
4551 ecode1 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
4552 if (!SWIG_IsOK(ecode1)) {
4553 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_linalg_LU_band_unpack" "', argument " "1"" of type '" "size_t""'");
4554 }
4555 arg1 = (size_t)(val1);
4556 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
4557 if (!SWIG_IsOK(ecode2)) {
4558 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_linalg_LU_band_unpack" "', argument " "2"" of type '" "size_t""'");
4559 }
4560 arg2 = (size_t)(val2);
4561 ecode3 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
4562 if (!SWIG_IsOK(ecode3)) {
4563 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_linalg_LU_band_unpack" "', argument " "3"" of type '" "size_t""'");
4564 }
4565 arg3 = (size_t)(val3);
4566 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_matrix, 0 | 0 );
4567 if (!SWIG_IsOK(res4)) {
4568 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_LU_band_unpack" "', argument " "4"" of type '" "gsl_matrix const *""'");
4569 }
4570 arg4 = (gsl_matrix *)(argp4);
4571 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector_uint, 0 | 0 );
4572 if (!SWIG_IsOK(res5)) {
4573 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_LU_band_unpack" "', argument " "5"" of type '" "gsl_vector_uint const *""'");
4574 }
4575 arg5 = (gsl_vector_uint *)(argp5);
4576 res6 = SWIG_ConvertPtr(ST(5), &argp6,SWIGTYPE_p_gsl_matrix, 0 | 0 );
4577 if (!SWIG_IsOK(res6)) {
4578 SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_linalg_LU_band_unpack" "', argument " "6"" of type '" "gsl_matrix *""'");
4579 }
4580 arg6 = (gsl_matrix *)(argp6);
4581 res7 = SWIG_ConvertPtr(ST(6), &argp7,SWIGTYPE_p_gsl_matrix, 0 | 0 );
4582 if (!SWIG_IsOK(res7)) {
4583 SWIG_exception_fail(SWIG_ArgError(res7), "in method '" "gsl_linalg_LU_band_unpack" "', argument " "7"" of type '" "gsl_matrix *""'");
4584 }
4585 arg7 = (gsl_matrix *)(argp7);
4586 result = (int)gsl_linalg_LU_band_unpack(arg1,arg2,arg3,(gsl_matrix const *)arg4,(gsl_vector_uint const *)arg5,arg6,arg7);
4587 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4588
4589
4590
4591
4592
4593
4594
4595 XSRETURN(argvi);
4596 fail:
4597
4598
4599
4600
4601
4602
4603
4604 SWIG_croak_null();
4605 }
4606 }
4607
4608
XS(_wrap_gsl_linalg_complex_LU_decomp)4609 XS(_wrap_gsl_linalg_complex_LU_decomp) {
4610 {
4611 gsl_matrix_complex *arg1 = (gsl_matrix_complex *) 0 ;
4612 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
4613 int *arg3 = (int *) 0 ;
4614 void *argp1 = 0 ;
4615 int res1 = 0 ;
4616 void *argp2 = 0 ;
4617 int res2 = 0 ;
4618 int temp3 ;
4619 int res3 = SWIG_TMPOBJ ;
4620 int argvi = 0;
4621 int result;
4622 dXSARGS;
4623
4624 arg3 = &temp3;
4625 if ((items < 2) || (items > 2)) {
4626 SWIG_croak("Usage: gsl_linalg_complex_LU_decomp(A,p);");
4627 }
4628 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
4629 if (!SWIG_IsOK(res1)) {
4630 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_complex_LU_decomp" "', argument " "1"" of type '" "gsl_matrix_complex *""'");
4631 }
4632 arg1 = (gsl_matrix_complex *)(argp1);
4633 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
4634 if (!SWIG_IsOK(res2)) {
4635 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_complex_LU_decomp" "', argument " "2"" of type '" "gsl_permutation *""'");
4636 }
4637 arg2 = (gsl_permutation *)(argp2);
4638 result = (int)gsl_linalg_complex_LU_decomp(arg1,arg2,arg3);
4639 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4640 if (SWIG_IsTmpObj(res3)) {
4641 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((*arg3)); argvi++ ;
4642 } else {
4643 int new_flags = SWIG_IsNewObj(res3) ? (SWIG_POINTER_OWN | 0) : 0;
4644 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg3), SWIGTYPE_p_int, new_flags); argvi++ ;
4645 }
4646
4647
4648
4649 XSRETURN(argvi);
4650 fail:
4651
4652
4653
4654 SWIG_croak_null();
4655 }
4656 }
4657
4658
XS(_wrap_gsl_linalg_complex_LU_solve)4659 XS(_wrap_gsl_linalg_complex_LU_solve) {
4660 {
4661 gsl_matrix_complex *arg1 = (gsl_matrix_complex *) 0 ;
4662 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
4663 gsl_vector_complex *arg3 = (gsl_vector_complex *) 0 ;
4664 gsl_vector_complex *arg4 = (gsl_vector_complex *) 0 ;
4665 void *argp1 = 0 ;
4666 int res1 = 0 ;
4667 void *argp2 = 0 ;
4668 int res2 = 0 ;
4669 void *argp3 = 0 ;
4670 int res3 = 0 ;
4671 void *argp4 = 0 ;
4672 int res4 = 0 ;
4673 int argvi = 0;
4674 int result;
4675 dXSARGS;
4676
4677 if ((items < 4) || (items > 4)) {
4678 SWIG_croak("Usage: gsl_linalg_complex_LU_solve(LU,p,b,x);");
4679 }
4680 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
4681 if (!SWIG_IsOK(res1)) {
4682 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_complex_LU_solve" "', argument " "1"" of type '" "gsl_matrix_complex const *""'");
4683 }
4684 arg1 = (gsl_matrix_complex *)(argp1);
4685 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
4686 if (!SWIG_IsOK(res2)) {
4687 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_complex_LU_solve" "', argument " "2"" of type '" "gsl_permutation const *""'");
4688 }
4689 arg2 = (gsl_permutation *)(argp2);
4690 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
4691 if (!SWIG_IsOK(res3)) {
4692 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_complex_LU_solve" "', argument " "3"" of type '" "gsl_vector_complex const *""'");
4693 }
4694 arg3 = (gsl_vector_complex *)(argp3);
4695 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
4696 if (!SWIG_IsOK(res4)) {
4697 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_complex_LU_solve" "', argument " "4"" of type '" "gsl_vector_complex *""'");
4698 }
4699 arg4 = (gsl_vector_complex *)(argp4);
4700 result = (int)gsl_linalg_complex_LU_solve((gsl_matrix_complex const *)arg1,(struct gsl_permutation_struct const *)arg2,(gsl_vector_complex const *)arg3,arg4);
4701 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4702
4703
4704
4705
4706 XSRETURN(argvi);
4707 fail:
4708
4709
4710
4711
4712 SWIG_croak_null();
4713 }
4714 }
4715
4716
XS(_wrap_gsl_linalg_complex_LU_svx)4717 XS(_wrap_gsl_linalg_complex_LU_svx) {
4718 {
4719 gsl_matrix_complex *arg1 = (gsl_matrix_complex *) 0 ;
4720 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
4721 gsl_vector_complex *arg3 = (gsl_vector_complex *) 0 ;
4722 void *argp1 = 0 ;
4723 int res1 = 0 ;
4724 void *argp2 = 0 ;
4725 int res2 = 0 ;
4726 void *argp3 = 0 ;
4727 int res3 = 0 ;
4728 int argvi = 0;
4729 int result;
4730 dXSARGS;
4731
4732 if ((items < 3) || (items > 3)) {
4733 SWIG_croak("Usage: gsl_linalg_complex_LU_svx(LU,p,x);");
4734 }
4735 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
4736 if (!SWIG_IsOK(res1)) {
4737 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_complex_LU_svx" "', argument " "1"" of type '" "gsl_matrix_complex const *""'");
4738 }
4739 arg1 = (gsl_matrix_complex *)(argp1);
4740 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
4741 if (!SWIG_IsOK(res2)) {
4742 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_complex_LU_svx" "', argument " "2"" of type '" "gsl_permutation const *""'");
4743 }
4744 arg2 = (gsl_permutation *)(argp2);
4745 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
4746 if (!SWIG_IsOK(res3)) {
4747 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_complex_LU_svx" "', argument " "3"" of type '" "gsl_vector_complex *""'");
4748 }
4749 arg3 = (gsl_vector_complex *)(argp3);
4750 result = (int)gsl_linalg_complex_LU_svx((gsl_matrix_complex const *)arg1,(struct gsl_permutation_struct const *)arg2,arg3);
4751 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4752
4753
4754
4755 XSRETURN(argvi);
4756 fail:
4757
4758
4759
4760 SWIG_croak_null();
4761 }
4762 }
4763
4764
XS(_wrap_gsl_linalg_complex_LU_refine)4765 XS(_wrap_gsl_linalg_complex_LU_refine) {
4766 {
4767 gsl_matrix_complex *arg1 = (gsl_matrix_complex *) 0 ;
4768 gsl_matrix_complex *arg2 = (gsl_matrix_complex *) 0 ;
4769 gsl_permutation *arg3 = (gsl_permutation *) 0 ;
4770 gsl_vector_complex *arg4 = (gsl_vector_complex *) 0 ;
4771 gsl_vector_complex *arg5 = (gsl_vector_complex *) 0 ;
4772 gsl_vector_complex *arg6 = (gsl_vector_complex *) 0 ;
4773 void *argp1 = 0 ;
4774 int res1 = 0 ;
4775 void *argp2 = 0 ;
4776 int res2 = 0 ;
4777 void *argp3 = 0 ;
4778 int res3 = 0 ;
4779 void *argp4 = 0 ;
4780 int res4 = 0 ;
4781 void *argp5 = 0 ;
4782 int res5 = 0 ;
4783 void *argp6 = 0 ;
4784 int res6 = 0 ;
4785 int argvi = 0;
4786 int result;
4787 dXSARGS;
4788
4789 if ((items < 6) || (items > 6)) {
4790 SWIG_croak("Usage: gsl_linalg_complex_LU_refine(A,LU,p,b,x,work);");
4791 }
4792 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
4793 if (!SWIG_IsOK(res1)) {
4794 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_complex_LU_refine" "', argument " "1"" of type '" "gsl_matrix_complex const *""'");
4795 }
4796 arg1 = (gsl_matrix_complex *)(argp1);
4797 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
4798 if (!SWIG_IsOK(res2)) {
4799 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_complex_LU_refine" "', argument " "2"" of type '" "gsl_matrix_complex const *""'");
4800 }
4801 arg2 = (gsl_matrix_complex *)(argp2);
4802 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
4803 if (!SWIG_IsOK(res3)) {
4804 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_complex_LU_refine" "', argument " "3"" of type '" "gsl_permutation const *""'");
4805 }
4806 arg3 = (gsl_permutation *)(argp3);
4807 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
4808 if (!SWIG_IsOK(res4)) {
4809 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_complex_LU_refine" "', argument " "4"" of type '" "gsl_vector_complex const *""'");
4810 }
4811 arg4 = (gsl_vector_complex *)(argp4);
4812 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
4813 if (!SWIG_IsOK(res5)) {
4814 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_complex_LU_refine" "', argument " "5"" of type '" "gsl_vector_complex *""'");
4815 }
4816 arg5 = (gsl_vector_complex *)(argp5);
4817 res6 = SWIG_ConvertPtr(ST(5), &argp6,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
4818 if (!SWIG_IsOK(res6)) {
4819 SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_linalg_complex_LU_refine" "', argument " "6"" of type '" "gsl_vector_complex *""'");
4820 }
4821 arg6 = (gsl_vector_complex *)(argp6);
4822 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);
4823 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4824
4825
4826
4827
4828
4829
4830 XSRETURN(argvi);
4831 fail:
4832
4833
4834
4835
4836
4837
4838 SWIG_croak_null();
4839 }
4840 }
4841
4842
XS(_wrap_gsl_linalg_complex_LU_invert)4843 XS(_wrap_gsl_linalg_complex_LU_invert) {
4844 {
4845 gsl_matrix_complex *arg1 = (gsl_matrix_complex *) 0 ;
4846 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
4847 gsl_matrix_complex *arg3 = (gsl_matrix_complex *) 0 ;
4848 void *argp1 = 0 ;
4849 int res1 = 0 ;
4850 void *argp2 = 0 ;
4851 int res2 = 0 ;
4852 void *argp3 = 0 ;
4853 int res3 = 0 ;
4854 int argvi = 0;
4855 int result;
4856 dXSARGS;
4857
4858 if ((items < 3) || (items > 3)) {
4859 SWIG_croak("Usage: gsl_linalg_complex_LU_invert(LU,p,inverse);");
4860 }
4861 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
4862 if (!SWIG_IsOK(res1)) {
4863 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_complex_LU_invert" "', argument " "1"" of type '" "gsl_matrix_complex const *""'");
4864 }
4865 arg1 = (gsl_matrix_complex *)(argp1);
4866 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
4867 if (!SWIG_IsOK(res2)) {
4868 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_complex_LU_invert" "', argument " "2"" of type '" "gsl_permutation const *""'");
4869 }
4870 arg2 = (gsl_permutation *)(argp2);
4871 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
4872 if (!SWIG_IsOK(res3)) {
4873 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_complex_LU_invert" "', argument " "3"" of type '" "gsl_matrix_complex *""'");
4874 }
4875 arg3 = (gsl_matrix_complex *)(argp3);
4876 result = (int)gsl_linalg_complex_LU_invert((gsl_matrix_complex const *)arg1,(struct gsl_permutation_struct const *)arg2,arg3);
4877 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4878
4879
4880
4881 XSRETURN(argvi);
4882 fail:
4883
4884
4885
4886 SWIG_croak_null();
4887 }
4888 }
4889
4890
XS(_wrap_gsl_linalg_complex_LU_invx)4891 XS(_wrap_gsl_linalg_complex_LU_invx) {
4892 {
4893 gsl_matrix_complex *arg1 = (gsl_matrix_complex *) 0 ;
4894 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
4895 void *argp1 = 0 ;
4896 int res1 = 0 ;
4897 void *argp2 = 0 ;
4898 int res2 = 0 ;
4899 int argvi = 0;
4900 int result;
4901 dXSARGS;
4902
4903 if ((items < 2) || (items > 2)) {
4904 SWIG_croak("Usage: gsl_linalg_complex_LU_invx(LU,p);");
4905 }
4906 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
4907 if (!SWIG_IsOK(res1)) {
4908 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_complex_LU_invx" "', argument " "1"" of type '" "gsl_matrix_complex *""'");
4909 }
4910 arg1 = (gsl_matrix_complex *)(argp1);
4911 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
4912 if (!SWIG_IsOK(res2)) {
4913 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_complex_LU_invx" "', argument " "2"" of type '" "gsl_permutation const *""'");
4914 }
4915 arg2 = (gsl_permutation *)(argp2);
4916 result = (int)gsl_linalg_complex_LU_invx(arg1,(struct gsl_permutation_struct const *)arg2);
4917 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4918
4919
4920 XSRETURN(argvi);
4921 fail:
4922
4923
4924 SWIG_croak_null();
4925 }
4926 }
4927
4928
XS(_wrap_gsl_linalg_complex_LU_det)4929 XS(_wrap_gsl_linalg_complex_LU_det) {
4930 {
4931 gsl_matrix_complex *arg1 = (gsl_matrix_complex *) 0 ;
4932 int arg2 ;
4933 void *argp1 = 0 ;
4934 int res1 = 0 ;
4935 int val2 ;
4936 int ecode2 = 0 ;
4937 int argvi = 0;
4938 gsl_complex result;
4939 dXSARGS;
4940
4941 if ((items < 2) || (items > 2)) {
4942 SWIG_croak("Usage: gsl_linalg_complex_LU_det(LU,signum);");
4943 }
4944 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
4945 if (!SWIG_IsOK(res1)) {
4946 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_complex_LU_det" "', argument " "1"" of type '" "gsl_matrix_complex *""'");
4947 }
4948 arg1 = (gsl_matrix_complex *)(argp1);
4949 ecode2 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
4950 if (!SWIG_IsOK(ecode2)) {
4951 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_linalg_complex_LU_det" "', argument " "2"" of type '" "int""'");
4952 }
4953 arg2 = (int)(val2);
4954 result = gsl_linalg_complex_LU_det(arg1,arg2);
4955 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++ ;
4956
4957
4958 XSRETURN(argvi);
4959 fail:
4960
4961
4962 SWIG_croak_null();
4963 }
4964 }
4965
4966
XS(_wrap_gsl_linalg_complex_LU_lndet)4967 XS(_wrap_gsl_linalg_complex_LU_lndet) {
4968 {
4969 gsl_matrix_complex *arg1 = (gsl_matrix_complex *) 0 ;
4970 void *argp1 = 0 ;
4971 int res1 = 0 ;
4972 int argvi = 0;
4973 double result;
4974 dXSARGS;
4975
4976 if ((items < 1) || (items > 1)) {
4977 SWIG_croak("Usage: gsl_linalg_complex_LU_lndet(LU);");
4978 }
4979 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
4980 if (!SWIG_IsOK(res1)) {
4981 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_complex_LU_lndet" "', argument " "1"" of type '" "gsl_matrix_complex *""'");
4982 }
4983 arg1 = (gsl_matrix_complex *)(argp1);
4984 result = (double)gsl_linalg_complex_LU_lndet(arg1);
4985 ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(result)); argvi++ ;
4986
4987 XSRETURN(argvi);
4988 fail:
4989
4990 SWIG_croak_null();
4991 }
4992 }
4993
4994
XS(_wrap_gsl_linalg_complex_LU_sgndet)4995 XS(_wrap_gsl_linalg_complex_LU_sgndet) {
4996 {
4997 gsl_matrix_complex *arg1 = (gsl_matrix_complex *) 0 ;
4998 int arg2 ;
4999 void *argp1 = 0 ;
5000 int res1 = 0 ;
5001 int val2 ;
5002 int ecode2 = 0 ;
5003 int argvi = 0;
5004 gsl_complex result;
5005 dXSARGS;
5006
5007 if ((items < 2) || (items > 2)) {
5008 SWIG_croak("Usage: gsl_linalg_complex_LU_sgndet(LU,signum);");
5009 }
5010 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
5011 if (!SWIG_IsOK(res1)) {
5012 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_complex_LU_sgndet" "', argument " "1"" of type '" "gsl_matrix_complex *""'");
5013 }
5014 arg1 = (gsl_matrix_complex *)(argp1);
5015 ecode2 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
5016 if (!SWIG_IsOK(ecode2)) {
5017 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_linalg_complex_LU_sgndet" "', argument " "2"" of type '" "int""'");
5018 }
5019 arg2 = (int)(val2);
5020 result = gsl_linalg_complex_LU_sgndet(arg1,arg2);
5021 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++ ;
5022
5023
5024 XSRETURN(argvi);
5025 fail:
5026
5027
5028 SWIG_croak_null();
5029 }
5030 }
5031
5032
XS(_wrap_gsl_linalg_QR_decomp)5033 XS(_wrap_gsl_linalg_QR_decomp) {
5034 {
5035 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5036 gsl_vector *arg2 = (gsl_vector *) 0 ;
5037 void *argp1 = 0 ;
5038 int res1 = 0 ;
5039 void *argp2 = 0 ;
5040 int res2 = 0 ;
5041 int argvi = 0;
5042 int result;
5043 dXSARGS;
5044
5045 if ((items < 2) || (items > 2)) {
5046 SWIG_croak("Usage: gsl_linalg_QR_decomp(A,tau);");
5047 }
5048 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5049 if (!SWIG_IsOK(res1)) {
5050 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QR_decomp" "', argument " "1"" of type '" "gsl_matrix *""'");
5051 }
5052 arg1 = (gsl_matrix *)(argp1);
5053 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
5054 if (!SWIG_IsOK(res2)) {
5055 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QR_decomp" "', argument " "2"" of type '" "gsl_vector *""'");
5056 }
5057 arg2 = (gsl_vector *)(argp2);
5058 result = (int)gsl_linalg_QR_decomp(arg1,arg2);
5059 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5060
5061
5062 XSRETURN(argvi);
5063 fail:
5064
5065
5066 SWIG_croak_null();
5067 }
5068 }
5069
5070
XS(_wrap_gsl_linalg_QR_decomp_old)5071 XS(_wrap_gsl_linalg_QR_decomp_old) {
5072 {
5073 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5074 gsl_vector *arg2 = (gsl_vector *) 0 ;
5075 void *argp1 = 0 ;
5076 int res1 = 0 ;
5077 void *argp2 = 0 ;
5078 int res2 = 0 ;
5079 int argvi = 0;
5080 int result;
5081 dXSARGS;
5082
5083 if ((items < 2) || (items > 2)) {
5084 SWIG_croak("Usage: gsl_linalg_QR_decomp_old(A,tau);");
5085 }
5086 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5087 if (!SWIG_IsOK(res1)) {
5088 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QR_decomp_old" "', argument " "1"" of type '" "gsl_matrix *""'");
5089 }
5090 arg1 = (gsl_matrix *)(argp1);
5091 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
5092 if (!SWIG_IsOK(res2)) {
5093 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QR_decomp_old" "', argument " "2"" of type '" "gsl_vector *""'");
5094 }
5095 arg2 = (gsl_vector *)(argp2);
5096 result = (int)gsl_linalg_QR_decomp_old(arg1,arg2);
5097 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5098
5099
5100 XSRETURN(argvi);
5101 fail:
5102
5103
5104 SWIG_croak_null();
5105 }
5106 }
5107
5108
XS(_wrap_gsl_linalg_QR_decomp_r)5109 XS(_wrap_gsl_linalg_QR_decomp_r) {
5110 {
5111 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5112 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
5113 void *argp1 = 0 ;
5114 int res1 = 0 ;
5115 void *argp2 = 0 ;
5116 int res2 = 0 ;
5117 int argvi = 0;
5118 int result;
5119 dXSARGS;
5120
5121 if ((items < 2) || (items > 2)) {
5122 SWIG_croak("Usage: gsl_linalg_QR_decomp_r(A,T);");
5123 }
5124 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5125 if (!SWIG_IsOK(res1)) {
5126 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QR_decomp_r" "', argument " "1"" of type '" "gsl_matrix *""'");
5127 }
5128 arg1 = (gsl_matrix *)(argp1);
5129 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5130 if (!SWIG_IsOK(res2)) {
5131 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QR_decomp_r" "', argument " "2"" of type '" "gsl_matrix *""'");
5132 }
5133 arg2 = (gsl_matrix *)(argp2);
5134 result = (int)gsl_linalg_QR_decomp_r(arg1,arg2);
5135 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5136
5137
5138 XSRETURN(argvi);
5139 fail:
5140
5141
5142 SWIG_croak_null();
5143 }
5144 }
5145
5146
XS(_wrap_gsl_linalg_QR_solve)5147 XS(_wrap_gsl_linalg_QR_solve) {
5148 {
5149 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5150 gsl_vector *arg2 = (gsl_vector *) 0 ;
5151 gsl_vector *arg3 = (gsl_vector *) 0 ;
5152 gsl_vector *arg4 = (gsl_vector *) 0 ;
5153 void *argp1 = 0 ;
5154 int res1 = 0 ;
5155 void *argp2 = 0 ;
5156 int res2 = 0 ;
5157 void *argp3 = 0 ;
5158 int res3 = 0 ;
5159 void *argp4 = 0 ;
5160 int res4 = 0 ;
5161 int argvi = 0;
5162 int result;
5163 dXSARGS;
5164
5165 if ((items < 4) || (items > 4)) {
5166 SWIG_croak("Usage: gsl_linalg_QR_solve(QR,tau,b,x);");
5167 }
5168 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5169 if (!SWIG_IsOK(res1)) {
5170 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QR_solve" "', argument " "1"" of type '" "gsl_matrix const *""'");
5171 }
5172 arg1 = (gsl_matrix *)(argp1);
5173 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
5174 if (!SWIG_IsOK(res2)) {
5175 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QR_solve" "', argument " "2"" of type '" "gsl_vector const *""'");
5176 }
5177 arg2 = (gsl_vector *)(argp2);
5178 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
5179 if (!SWIG_IsOK(res3)) {
5180 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QR_solve" "', argument " "3"" of type '" "gsl_vector const *""'");
5181 }
5182 arg3 = (gsl_vector *)(argp3);
5183 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
5184 if (!SWIG_IsOK(res4)) {
5185 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_QR_solve" "', argument " "4"" of type '" "gsl_vector *""'");
5186 }
5187 arg4 = (gsl_vector *)(argp4);
5188 result = (int)gsl_linalg_QR_solve((gsl_matrix const *)arg1,(gsl_vector const *)arg2,(gsl_vector const *)arg3,arg4);
5189 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5190
5191
5192
5193
5194 XSRETURN(argvi);
5195 fail:
5196
5197
5198
5199
5200 SWIG_croak_null();
5201 }
5202 }
5203
5204
XS(_wrap_gsl_linalg_QR_solve_r)5205 XS(_wrap_gsl_linalg_QR_solve_r) {
5206 {
5207 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5208 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
5209 gsl_vector *arg3 = (gsl_vector *) 0 ;
5210 gsl_vector *arg4 = (gsl_vector *) 0 ;
5211 void *argp1 = 0 ;
5212 int res1 = 0 ;
5213 void *argp2 = 0 ;
5214 int res2 = 0 ;
5215 void *argp3 = 0 ;
5216 int res3 = 0 ;
5217 void *argp4 = 0 ;
5218 int res4 = 0 ;
5219 int argvi = 0;
5220 int result;
5221 dXSARGS;
5222
5223 if ((items < 4) || (items > 4)) {
5224 SWIG_croak("Usage: gsl_linalg_QR_solve_r(QR,T,b,x);");
5225 }
5226 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5227 if (!SWIG_IsOK(res1)) {
5228 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QR_solve_r" "', argument " "1"" of type '" "gsl_matrix const *""'");
5229 }
5230 arg1 = (gsl_matrix *)(argp1);
5231 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5232 if (!SWIG_IsOK(res2)) {
5233 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QR_solve_r" "', argument " "2"" of type '" "gsl_matrix const *""'");
5234 }
5235 arg2 = (gsl_matrix *)(argp2);
5236 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
5237 if (!SWIG_IsOK(res3)) {
5238 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QR_solve_r" "', argument " "3"" of type '" "gsl_vector const *""'");
5239 }
5240 arg3 = (gsl_vector *)(argp3);
5241 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
5242 if (!SWIG_IsOK(res4)) {
5243 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_QR_solve_r" "', argument " "4"" of type '" "gsl_vector *""'");
5244 }
5245 arg4 = (gsl_vector *)(argp4);
5246 result = (int)gsl_linalg_QR_solve_r((gsl_matrix const *)arg1,(gsl_matrix const *)arg2,(gsl_vector const *)arg3,arg4);
5247 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5248
5249
5250
5251
5252 XSRETURN(argvi);
5253 fail:
5254
5255
5256
5257
5258 SWIG_croak_null();
5259 }
5260 }
5261
5262
XS(_wrap_gsl_linalg_QR_svx)5263 XS(_wrap_gsl_linalg_QR_svx) {
5264 {
5265 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5266 gsl_vector *arg2 = (gsl_vector *) 0 ;
5267 gsl_vector *arg3 = (gsl_vector *) 0 ;
5268 void *argp1 = 0 ;
5269 int res1 = 0 ;
5270 void *argp2 = 0 ;
5271 int res2 = 0 ;
5272 void *argp3 = 0 ;
5273 int res3 = 0 ;
5274 int argvi = 0;
5275 int result;
5276 dXSARGS;
5277
5278 if ((items < 3) || (items > 3)) {
5279 SWIG_croak("Usage: gsl_linalg_QR_svx(QR,tau,x);");
5280 }
5281 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5282 if (!SWIG_IsOK(res1)) {
5283 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QR_svx" "', argument " "1"" of type '" "gsl_matrix const *""'");
5284 }
5285 arg1 = (gsl_matrix *)(argp1);
5286 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
5287 if (!SWIG_IsOK(res2)) {
5288 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QR_svx" "', argument " "2"" of type '" "gsl_vector const *""'");
5289 }
5290 arg2 = (gsl_vector *)(argp2);
5291 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
5292 if (!SWIG_IsOK(res3)) {
5293 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QR_svx" "', argument " "3"" of type '" "gsl_vector *""'");
5294 }
5295 arg3 = (gsl_vector *)(argp3);
5296 result = (int)gsl_linalg_QR_svx((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3);
5297 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5298
5299
5300
5301 XSRETURN(argvi);
5302 fail:
5303
5304
5305
5306 SWIG_croak_null();
5307 }
5308 }
5309
5310
XS(_wrap_gsl_linalg_QR_lssolve)5311 XS(_wrap_gsl_linalg_QR_lssolve) {
5312 {
5313 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5314 gsl_vector *arg2 = (gsl_vector *) 0 ;
5315 gsl_vector *arg3 = (gsl_vector *) 0 ;
5316 gsl_vector *arg4 = (gsl_vector *) 0 ;
5317 gsl_vector *arg5 = (gsl_vector *) 0 ;
5318 void *argp1 = 0 ;
5319 int res1 = 0 ;
5320 void *argp2 = 0 ;
5321 int res2 = 0 ;
5322 void *argp3 = 0 ;
5323 int res3 = 0 ;
5324 void *argp4 = 0 ;
5325 int res4 = 0 ;
5326 void *argp5 = 0 ;
5327 int res5 = 0 ;
5328 int argvi = 0;
5329 int result;
5330 dXSARGS;
5331
5332 if ((items < 5) || (items > 5)) {
5333 SWIG_croak("Usage: gsl_linalg_QR_lssolve(QR,tau,b,x,residual);");
5334 }
5335 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5336 if (!SWIG_IsOK(res1)) {
5337 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QR_lssolve" "', argument " "1"" of type '" "gsl_matrix const *""'");
5338 }
5339 arg1 = (gsl_matrix *)(argp1);
5340 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
5341 if (!SWIG_IsOK(res2)) {
5342 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QR_lssolve" "', argument " "2"" of type '" "gsl_vector const *""'");
5343 }
5344 arg2 = (gsl_vector *)(argp2);
5345 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
5346 if (!SWIG_IsOK(res3)) {
5347 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QR_lssolve" "', argument " "3"" of type '" "gsl_vector const *""'");
5348 }
5349 arg3 = (gsl_vector *)(argp3);
5350 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
5351 if (!SWIG_IsOK(res4)) {
5352 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_QR_lssolve" "', argument " "4"" of type '" "gsl_vector *""'");
5353 }
5354 arg4 = (gsl_vector *)(argp4);
5355 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
5356 if (!SWIG_IsOK(res5)) {
5357 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_QR_lssolve" "', argument " "5"" of type '" "gsl_vector *""'");
5358 }
5359 arg5 = (gsl_vector *)(argp5);
5360 result = (int)gsl_linalg_QR_lssolve((gsl_matrix const *)arg1,(gsl_vector const *)arg2,(gsl_vector const *)arg3,arg4,arg5);
5361 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5362
5363
5364
5365
5366
5367 XSRETURN(argvi);
5368 fail:
5369
5370
5371
5372
5373
5374 SWIG_croak_null();
5375 }
5376 }
5377
5378
XS(_wrap_gsl_linalg_QR_lssolve_r)5379 XS(_wrap_gsl_linalg_QR_lssolve_r) {
5380 {
5381 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5382 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
5383 gsl_vector *arg3 = (gsl_vector *) 0 ;
5384 gsl_vector *arg4 = (gsl_vector *) 0 ;
5385 gsl_vector *arg5 = (gsl_vector *) 0 ;
5386 void *argp1 = 0 ;
5387 int res1 = 0 ;
5388 void *argp2 = 0 ;
5389 int res2 = 0 ;
5390 void *argp3 = 0 ;
5391 int res3 = 0 ;
5392 void *argp4 = 0 ;
5393 int res4 = 0 ;
5394 void *argp5 = 0 ;
5395 int res5 = 0 ;
5396 int argvi = 0;
5397 int result;
5398 dXSARGS;
5399
5400 if ((items < 5) || (items > 5)) {
5401 SWIG_croak("Usage: gsl_linalg_QR_lssolve_r(QR,T,b,x,work);");
5402 }
5403 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5404 if (!SWIG_IsOK(res1)) {
5405 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QR_lssolve_r" "', argument " "1"" of type '" "gsl_matrix const *""'");
5406 }
5407 arg1 = (gsl_matrix *)(argp1);
5408 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5409 if (!SWIG_IsOK(res2)) {
5410 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QR_lssolve_r" "', argument " "2"" of type '" "gsl_matrix const *""'");
5411 }
5412 arg2 = (gsl_matrix *)(argp2);
5413 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
5414 if (!SWIG_IsOK(res3)) {
5415 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QR_lssolve_r" "', argument " "3"" of type '" "gsl_vector const *""'");
5416 }
5417 arg3 = (gsl_vector *)(argp3);
5418 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
5419 if (!SWIG_IsOK(res4)) {
5420 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_QR_lssolve_r" "', argument " "4"" of type '" "gsl_vector *""'");
5421 }
5422 arg4 = (gsl_vector *)(argp4);
5423 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
5424 if (!SWIG_IsOK(res5)) {
5425 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_QR_lssolve_r" "', argument " "5"" of type '" "gsl_vector *""'");
5426 }
5427 arg5 = (gsl_vector *)(argp5);
5428 result = (int)gsl_linalg_QR_lssolve_r((gsl_matrix const *)arg1,(gsl_matrix const *)arg2,(gsl_vector const *)arg3,arg4,arg5);
5429 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5430
5431
5432
5433
5434
5435 XSRETURN(argvi);
5436 fail:
5437
5438
5439
5440
5441
5442 SWIG_croak_null();
5443 }
5444 }
5445
5446
XS(_wrap_gsl_linalg_QR_QRsolve)5447 XS(_wrap_gsl_linalg_QR_QRsolve) {
5448 {
5449 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5450 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
5451 gsl_vector *arg3 = (gsl_vector *) 0 ;
5452 gsl_vector *arg4 = (gsl_vector *) 0 ;
5453 void *argp1 = 0 ;
5454 int res1 = 0 ;
5455 void *argp2 = 0 ;
5456 int res2 = 0 ;
5457 void *argp3 = 0 ;
5458 int res3 = 0 ;
5459 void *argp4 = 0 ;
5460 int res4 = 0 ;
5461 int argvi = 0;
5462 int result;
5463 dXSARGS;
5464
5465 if ((items < 4) || (items > 4)) {
5466 SWIG_croak("Usage: gsl_linalg_QR_QRsolve(Q,R,b,x);");
5467 }
5468 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5469 if (!SWIG_IsOK(res1)) {
5470 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QR_QRsolve" "', argument " "1"" of type '" "gsl_matrix *""'");
5471 }
5472 arg1 = (gsl_matrix *)(argp1);
5473 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5474 if (!SWIG_IsOK(res2)) {
5475 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QR_QRsolve" "', argument " "2"" of type '" "gsl_matrix *""'");
5476 }
5477 arg2 = (gsl_matrix *)(argp2);
5478 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
5479 if (!SWIG_IsOK(res3)) {
5480 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QR_QRsolve" "', argument " "3"" of type '" "gsl_vector const *""'");
5481 }
5482 arg3 = (gsl_vector *)(argp3);
5483 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
5484 if (!SWIG_IsOK(res4)) {
5485 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_QR_QRsolve" "', argument " "4"" of type '" "gsl_vector *""'");
5486 }
5487 arg4 = (gsl_vector *)(argp4);
5488 result = (int)gsl_linalg_QR_QRsolve(arg1,arg2,(gsl_vector const *)arg3,arg4);
5489 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5490
5491
5492
5493
5494 XSRETURN(argvi);
5495 fail:
5496
5497
5498
5499
5500 SWIG_croak_null();
5501 }
5502 }
5503
5504
XS(_wrap_gsl_linalg_QR_Rsolve)5505 XS(_wrap_gsl_linalg_QR_Rsolve) {
5506 {
5507 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5508 gsl_vector *arg2 = (gsl_vector *) 0 ;
5509 gsl_vector *arg3 = (gsl_vector *) 0 ;
5510 void *argp1 = 0 ;
5511 int res1 = 0 ;
5512 void *argp2 = 0 ;
5513 int res2 = 0 ;
5514 void *argp3 = 0 ;
5515 int res3 = 0 ;
5516 int argvi = 0;
5517 int result;
5518 dXSARGS;
5519
5520 if ((items < 3) || (items > 3)) {
5521 SWIG_croak("Usage: gsl_linalg_QR_Rsolve(QR,b,x);");
5522 }
5523 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5524 if (!SWIG_IsOK(res1)) {
5525 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QR_Rsolve" "', argument " "1"" of type '" "gsl_matrix const *""'");
5526 }
5527 arg1 = (gsl_matrix *)(argp1);
5528 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
5529 if (!SWIG_IsOK(res2)) {
5530 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QR_Rsolve" "', argument " "2"" of type '" "gsl_vector const *""'");
5531 }
5532 arg2 = (gsl_vector *)(argp2);
5533 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
5534 if (!SWIG_IsOK(res3)) {
5535 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QR_Rsolve" "', argument " "3"" of type '" "gsl_vector *""'");
5536 }
5537 arg3 = (gsl_vector *)(argp3);
5538 result = (int)gsl_linalg_QR_Rsolve((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3);
5539 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5540
5541
5542
5543 XSRETURN(argvi);
5544 fail:
5545
5546
5547
5548 SWIG_croak_null();
5549 }
5550 }
5551
5552
XS(_wrap_gsl_linalg_QR_Rsvx)5553 XS(_wrap_gsl_linalg_QR_Rsvx) {
5554 {
5555 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5556 gsl_vector *arg2 = (gsl_vector *) 0 ;
5557 void *argp1 = 0 ;
5558 int res1 = 0 ;
5559 void *argp2 = 0 ;
5560 int res2 = 0 ;
5561 int argvi = 0;
5562 int result;
5563 dXSARGS;
5564
5565 if ((items < 2) || (items > 2)) {
5566 SWIG_croak("Usage: gsl_linalg_QR_Rsvx(QR,x);");
5567 }
5568 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5569 if (!SWIG_IsOK(res1)) {
5570 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QR_Rsvx" "', argument " "1"" of type '" "gsl_matrix const *""'");
5571 }
5572 arg1 = (gsl_matrix *)(argp1);
5573 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
5574 if (!SWIG_IsOK(res2)) {
5575 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QR_Rsvx" "', argument " "2"" of type '" "gsl_vector *""'");
5576 }
5577 arg2 = (gsl_vector *)(argp2);
5578 result = (int)gsl_linalg_QR_Rsvx((gsl_matrix const *)arg1,arg2);
5579 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5580
5581
5582 XSRETURN(argvi);
5583 fail:
5584
5585
5586 SWIG_croak_null();
5587 }
5588 }
5589
5590
XS(_wrap_gsl_linalg_QR_update)5591 XS(_wrap_gsl_linalg_QR_update) {
5592 {
5593 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5594 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
5595 gsl_vector *arg3 = (gsl_vector *) 0 ;
5596 gsl_vector *arg4 = (gsl_vector *) 0 ;
5597 void *argp1 = 0 ;
5598 int res1 = 0 ;
5599 void *argp2 = 0 ;
5600 int res2 = 0 ;
5601 void *argp3 = 0 ;
5602 int res3 = 0 ;
5603 void *argp4 = 0 ;
5604 int res4 = 0 ;
5605 int argvi = 0;
5606 int result;
5607 dXSARGS;
5608
5609 if ((items < 4) || (items > 4)) {
5610 SWIG_croak("Usage: gsl_linalg_QR_update(Q,R,w,v);");
5611 }
5612 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5613 if (!SWIG_IsOK(res1)) {
5614 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QR_update" "', argument " "1"" of type '" "gsl_matrix *""'");
5615 }
5616 arg1 = (gsl_matrix *)(argp1);
5617 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5618 if (!SWIG_IsOK(res2)) {
5619 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QR_update" "', argument " "2"" of type '" "gsl_matrix *""'");
5620 }
5621 arg2 = (gsl_matrix *)(argp2);
5622 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
5623 if (!SWIG_IsOK(res3)) {
5624 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QR_update" "', argument " "3"" of type '" "gsl_vector *""'");
5625 }
5626 arg3 = (gsl_vector *)(argp3);
5627 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
5628 if (!SWIG_IsOK(res4)) {
5629 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_QR_update" "', argument " "4"" of type '" "gsl_vector const *""'");
5630 }
5631 arg4 = (gsl_vector *)(argp4);
5632 result = (int)gsl_linalg_QR_update(arg1,arg2,arg3,(gsl_vector const *)arg4);
5633 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5634
5635
5636
5637
5638 XSRETURN(argvi);
5639 fail:
5640
5641
5642
5643
5644 SWIG_croak_null();
5645 }
5646 }
5647
5648
XS(_wrap_gsl_linalg_QR_QTvec)5649 XS(_wrap_gsl_linalg_QR_QTvec) {
5650 {
5651 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5652 gsl_vector *arg2 = (gsl_vector *) 0 ;
5653 gsl_vector *arg3 = (gsl_vector *) 0 ;
5654 void *argp1 = 0 ;
5655 int res1 = 0 ;
5656 void *argp2 = 0 ;
5657 int res2 = 0 ;
5658 void *argp3 = 0 ;
5659 int res3 = 0 ;
5660 int argvi = 0;
5661 int result;
5662 dXSARGS;
5663
5664 if ((items < 3) || (items > 3)) {
5665 SWIG_croak("Usage: gsl_linalg_QR_QTvec(QR,tau,v);");
5666 }
5667 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5668 if (!SWIG_IsOK(res1)) {
5669 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QR_QTvec" "', argument " "1"" of type '" "gsl_matrix const *""'");
5670 }
5671 arg1 = (gsl_matrix *)(argp1);
5672 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
5673 if (!SWIG_IsOK(res2)) {
5674 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QR_QTvec" "', argument " "2"" of type '" "gsl_vector const *""'");
5675 }
5676 arg2 = (gsl_vector *)(argp2);
5677 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
5678 if (!SWIG_IsOK(res3)) {
5679 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QR_QTvec" "', argument " "3"" of type '" "gsl_vector *""'");
5680 }
5681 arg3 = (gsl_vector *)(argp3);
5682 result = (int)gsl_linalg_QR_QTvec((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3);
5683 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5684
5685
5686
5687 XSRETURN(argvi);
5688 fail:
5689
5690
5691
5692 SWIG_croak_null();
5693 }
5694 }
5695
5696
XS(_wrap_gsl_linalg_QR_QTvec_r)5697 XS(_wrap_gsl_linalg_QR_QTvec_r) {
5698 {
5699 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5700 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
5701 gsl_vector *arg3 = (gsl_vector *) 0 ;
5702 gsl_vector *arg4 = (gsl_vector *) 0 ;
5703 void *argp1 = 0 ;
5704 int res1 = 0 ;
5705 void *argp2 = 0 ;
5706 int res2 = 0 ;
5707 void *argp3 = 0 ;
5708 int res3 = 0 ;
5709 void *argp4 = 0 ;
5710 int res4 = 0 ;
5711 int argvi = 0;
5712 int result;
5713 dXSARGS;
5714
5715 if ((items < 4) || (items > 4)) {
5716 SWIG_croak("Usage: gsl_linalg_QR_QTvec_r(QR,T,b,work);");
5717 }
5718 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5719 if (!SWIG_IsOK(res1)) {
5720 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QR_QTvec_r" "', argument " "1"" of type '" "gsl_matrix const *""'");
5721 }
5722 arg1 = (gsl_matrix *)(argp1);
5723 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5724 if (!SWIG_IsOK(res2)) {
5725 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QR_QTvec_r" "', argument " "2"" of type '" "gsl_matrix const *""'");
5726 }
5727 arg2 = (gsl_matrix *)(argp2);
5728 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
5729 if (!SWIG_IsOK(res3)) {
5730 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QR_QTvec_r" "', argument " "3"" of type '" "gsl_vector *""'");
5731 }
5732 arg3 = (gsl_vector *)(argp3);
5733 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
5734 if (!SWIG_IsOK(res4)) {
5735 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_QR_QTvec_r" "', argument " "4"" of type '" "gsl_vector *""'");
5736 }
5737 arg4 = (gsl_vector *)(argp4);
5738 result = (int)gsl_linalg_QR_QTvec_r((gsl_matrix const *)arg1,(gsl_matrix const *)arg2,arg3,arg4);
5739 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5740
5741
5742
5743
5744 XSRETURN(argvi);
5745 fail:
5746
5747
5748
5749
5750 SWIG_croak_null();
5751 }
5752 }
5753
5754
XS(_wrap_gsl_linalg_QR_Qvec)5755 XS(_wrap_gsl_linalg_QR_Qvec) {
5756 {
5757 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5758 gsl_vector *arg2 = (gsl_vector *) 0 ;
5759 gsl_vector *arg3 = (gsl_vector *) 0 ;
5760 void *argp1 = 0 ;
5761 int res1 = 0 ;
5762 void *argp2 = 0 ;
5763 int res2 = 0 ;
5764 void *argp3 = 0 ;
5765 int res3 = 0 ;
5766 int argvi = 0;
5767 int result;
5768 dXSARGS;
5769
5770 if ((items < 3) || (items > 3)) {
5771 SWIG_croak("Usage: gsl_linalg_QR_Qvec(QR,tau,v);");
5772 }
5773 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5774 if (!SWIG_IsOK(res1)) {
5775 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QR_Qvec" "', argument " "1"" of type '" "gsl_matrix const *""'");
5776 }
5777 arg1 = (gsl_matrix *)(argp1);
5778 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
5779 if (!SWIG_IsOK(res2)) {
5780 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QR_Qvec" "', argument " "2"" of type '" "gsl_vector const *""'");
5781 }
5782 arg2 = (gsl_vector *)(argp2);
5783 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
5784 if (!SWIG_IsOK(res3)) {
5785 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QR_Qvec" "', argument " "3"" of type '" "gsl_vector *""'");
5786 }
5787 arg3 = (gsl_vector *)(argp3);
5788 result = (int)gsl_linalg_QR_Qvec((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3);
5789 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5790
5791
5792
5793 XSRETURN(argvi);
5794 fail:
5795
5796
5797
5798 SWIG_croak_null();
5799 }
5800 }
5801
5802
XS(_wrap_gsl_linalg_QR_QTmat)5803 XS(_wrap_gsl_linalg_QR_QTmat) {
5804 {
5805 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5806 gsl_vector *arg2 = (gsl_vector *) 0 ;
5807 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
5808 void *argp1 = 0 ;
5809 int res1 = 0 ;
5810 void *argp2 = 0 ;
5811 int res2 = 0 ;
5812 void *argp3 = 0 ;
5813 int res3 = 0 ;
5814 int argvi = 0;
5815 int result;
5816 dXSARGS;
5817
5818 if ((items < 3) || (items > 3)) {
5819 SWIG_croak("Usage: gsl_linalg_QR_QTmat(QR,tau,A);");
5820 }
5821 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5822 if (!SWIG_IsOK(res1)) {
5823 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QR_QTmat" "', argument " "1"" of type '" "gsl_matrix const *""'");
5824 }
5825 arg1 = (gsl_matrix *)(argp1);
5826 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
5827 if (!SWIG_IsOK(res2)) {
5828 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QR_QTmat" "', argument " "2"" of type '" "gsl_vector const *""'");
5829 }
5830 arg2 = (gsl_vector *)(argp2);
5831 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5832 if (!SWIG_IsOK(res3)) {
5833 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QR_QTmat" "', argument " "3"" of type '" "gsl_matrix *""'");
5834 }
5835 arg3 = (gsl_matrix *)(argp3);
5836 result = (int)gsl_linalg_QR_QTmat((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3);
5837 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5838
5839
5840
5841 XSRETURN(argvi);
5842 fail:
5843
5844
5845
5846 SWIG_croak_null();
5847 }
5848 }
5849
5850
XS(_wrap_gsl_linalg_QR_QTmat_r)5851 XS(_wrap_gsl_linalg_QR_QTmat_r) {
5852 {
5853 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5854 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
5855 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
5856 gsl_matrix *arg4 = (gsl_matrix *) 0 ;
5857 void *argp1 = 0 ;
5858 int res1 = 0 ;
5859 void *argp2 = 0 ;
5860 int res2 = 0 ;
5861 void *argp3 = 0 ;
5862 int res3 = 0 ;
5863 void *argp4 = 0 ;
5864 int res4 = 0 ;
5865 int argvi = 0;
5866 int result;
5867 dXSARGS;
5868
5869 if ((items < 4) || (items > 4)) {
5870 SWIG_croak("Usage: gsl_linalg_QR_QTmat_r(QR,T,B,work);");
5871 }
5872 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5873 if (!SWIG_IsOK(res1)) {
5874 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QR_QTmat_r" "', argument " "1"" of type '" "gsl_matrix const *""'");
5875 }
5876 arg1 = (gsl_matrix *)(argp1);
5877 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5878 if (!SWIG_IsOK(res2)) {
5879 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QR_QTmat_r" "', argument " "2"" of type '" "gsl_matrix const *""'");
5880 }
5881 arg2 = (gsl_matrix *)(argp2);
5882 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5883 if (!SWIG_IsOK(res3)) {
5884 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QR_QTmat_r" "', argument " "3"" of type '" "gsl_matrix *""'");
5885 }
5886 arg3 = (gsl_matrix *)(argp3);
5887 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5888 if (!SWIG_IsOK(res4)) {
5889 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_QR_QTmat_r" "', argument " "4"" of type '" "gsl_matrix *""'");
5890 }
5891 arg4 = (gsl_matrix *)(argp4);
5892 result = (int)gsl_linalg_QR_QTmat_r((gsl_matrix const *)arg1,(gsl_matrix const *)arg2,arg3,arg4);
5893 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5894
5895
5896
5897
5898 XSRETURN(argvi);
5899 fail:
5900
5901
5902
5903
5904 SWIG_croak_null();
5905 }
5906 }
5907
5908
XS(_wrap_gsl_linalg_QR_matQ)5909 XS(_wrap_gsl_linalg_QR_matQ) {
5910 {
5911 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5912 gsl_vector *arg2 = (gsl_vector *) 0 ;
5913 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
5914 void *argp1 = 0 ;
5915 int res1 = 0 ;
5916 void *argp2 = 0 ;
5917 int res2 = 0 ;
5918 void *argp3 = 0 ;
5919 int res3 = 0 ;
5920 int argvi = 0;
5921 int result;
5922 dXSARGS;
5923
5924 if ((items < 3) || (items > 3)) {
5925 SWIG_croak("Usage: gsl_linalg_QR_matQ(QR,tau,A);");
5926 }
5927 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5928 if (!SWIG_IsOK(res1)) {
5929 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QR_matQ" "', argument " "1"" of type '" "gsl_matrix const *""'");
5930 }
5931 arg1 = (gsl_matrix *)(argp1);
5932 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
5933 if (!SWIG_IsOK(res2)) {
5934 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QR_matQ" "', argument " "2"" of type '" "gsl_vector const *""'");
5935 }
5936 arg2 = (gsl_vector *)(argp2);
5937 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5938 if (!SWIG_IsOK(res3)) {
5939 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QR_matQ" "', argument " "3"" of type '" "gsl_matrix *""'");
5940 }
5941 arg3 = (gsl_matrix *)(argp3);
5942 result = (int)gsl_linalg_QR_matQ((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3);
5943 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5944
5945
5946
5947 XSRETURN(argvi);
5948 fail:
5949
5950
5951
5952 SWIG_croak_null();
5953 }
5954 }
5955
5956
XS(_wrap_gsl_linalg_QR_unpack)5957 XS(_wrap_gsl_linalg_QR_unpack) {
5958 {
5959 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5960 gsl_vector *arg2 = (gsl_vector *) 0 ;
5961 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
5962 gsl_matrix *arg4 = (gsl_matrix *) 0 ;
5963 void *argp1 = 0 ;
5964 int res1 = 0 ;
5965 void *argp2 = 0 ;
5966 int res2 = 0 ;
5967 void *argp3 = 0 ;
5968 int res3 = 0 ;
5969 void *argp4 = 0 ;
5970 int res4 = 0 ;
5971 int argvi = 0;
5972 int result;
5973 dXSARGS;
5974
5975 if ((items < 4) || (items > 4)) {
5976 SWIG_croak("Usage: gsl_linalg_QR_unpack(QR,tau,Q,R);");
5977 }
5978 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5979 if (!SWIG_IsOK(res1)) {
5980 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QR_unpack" "', argument " "1"" of type '" "gsl_matrix const *""'");
5981 }
5982 arg1 = (gsl_matrix *)(argp1);
5983 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
5984 if (!SWIG_IsOK(res2)) {
5985 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QR_unpack" "', argument " "2"" of type '" "gsl_vector const *""'");
5986 }
5987 arg2 = (gsl_vector *)(argp2);
5988 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5989 if (!SWIG_IsOK(res3)) {
5990 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QR_unpack" "', argument " "3"" of type '" "gsl_matrix *""'");
5991 }
5992 arg3 = (gsl_matrix *)(argp3);
5993 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5994 if (!SWIG_IsOK(res4)) {
5995 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_QR_unpack" "', argument " "4"" of type '" "gsl_matrix *""'");
5996 }
5997 arg4 = (gsl_matrix *)(argp4);
5998 result = (int)gsl_linalg_QR_unpack((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3,arg4);
5999 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6000
6001
6002
6003
6004 XSRETURN(argvi);
6005 fail:
6006
6007
6008
6009
6010 SWIG_croak_null();
6011 }
6012 }
6013
6014
XS(_wrap_gsl_linalg_QR_unpack_r)6015 XS(_wrap_gsl_linalg_QR_unpack_r) {
6016 {
6017 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
6018 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
6019 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
6020 gsl_matrix *arg4 = (gsl_matrix *) 0 ;
6021 void *argp1 = 0 ;
6022 int res1 = 0 ;
6023 void *argp2 = 0 ;
6024 int res2 = 0 ;
6025 void *argp3 = 0 ;
6026 int res3 = 0 ;
6027 void *argp4 = 0 ;
6028 int res4 = 0 ;
6029 int argvi = 0;
6030 int result;
6031 dXSARGS;
6032
6033 if ((items < 4) || (items > 4)) {
6034 SWIG_croak("Usage: gsl_linalg_QR_unpack_r(QR,T,Q,R);");
6035 }
6036 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6037 if (!SWIG_IsOK(res1)) {
6038 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QR_unpack_r" "', argument " "1"" of type '" "gsl_matrix const *""'");
6039 }
6040 arg1 = (gsl_matrix *)(argp1);
6041 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6042 if (!SWIG_IsOK(res2)) {
6043 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QR_unpack_r" "', argument " "2"" of type '" "gsl_matrix const *""'");
6044 }
6045 arg2 = (gsl_matrix *)(argp2);
6046 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6047 if (!SWIG_IsOK(res3)) {
6048 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QR_unpack_r" "', argument " "3"" of type '" "gsl_matrix *""'");
6049 }
6050 arg3 = (gsl_matrix *)(argp3);
6051 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6052 if (!SWIG_IsOK(res4)) {
6053 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_QR_unpack_r" "', argument " "4"" of type '" "gsl_matrix *""'");
6054 }
6055 arg4 = (gsl_matrix *)(argp4);
6056 result = (int)gsl_linalg_QR_unpack_r((gsl_matrix const *)arg1,(gsl_matrix const *)arg2,arg3,arg4);
6057 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6058
6059
6060
6061
6062 XSRETURN(argvi);
6063 fail:
6064
6065
6066
6067
6068 SWIG_croak_null();
6069 }
6070 }
6071
6072
XS(_wrap_gsl_linalg_R_solve)6073 XS(_wrap_gsl_linalg_R_solve) {
6074 {
6075 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
6076 gsl_vector *arg2 = (gsl_vector *) 0 ;
6077 gsl_vector *arg3 = (gsl_vector *) 0 ;
6078 void *argp1 = 0 ;
6079 int res1 = 0 ;
6080 void *argp2 = 0 ;
6081 int res2 = 0 ;
6082 void *argp3 = 0 ;
6083 int res3 = 0 ;
6084 int argvi = 0;
6085 int result;
6086 dXSARGS;
6087
6088 if ((items < 3) || (items > 3)) {
6089 SWIG_croak("Usage: gsl_linalg_R_solve(R,b,x);");
6090 }
6091 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6092 if (!SWIG_IsOK(res1)) {
6093 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_R_solve" "', argument " "1"" of type '" "gsl_matrix const *""'");
6094 }
6095 arg1 = (gsl_matrix *)(argp1);
6096 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
6097 if (!SWIG_IsOK(res2)) {
6098 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_R_solve" "', argument " "2"" of type '" "gsl_vector const *""'");
6099 }
6100 arg2 = (gsl_vector *)(argp2);
6101 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
6102 if (!SWIG_IsOK(res3)) {
6103 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_R_solve" "', argument " "3"" of type '" "gsl_vector *""'");
6104 }
6105 arg3 = (gsl_vector *)(argp3);
6106 result = (int)gsl_linalg_R_solve((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3);
6107 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6108
6109
6110
6111 XSRETURN(argvi);
6112 fail:
6113
6114
6115
6116 SWIG_croak_null();
6117 }
6118 }
6119
6120
XS(_wrap_gsl_linalg_R_svx)6121 XS(_wrap_gsl_linalg_R_svx) {
6122 {
6123 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
6124 gsl_vector *arg2 = (gsl_vector *) 0 ;
6125 void *argp1 = 0 ;
6126 int res1 = 0 ;
6127 void *argp2 = 0 ;
6128 int res2 = 0 ;
6129 int argvi = 0;
6130 int result;
6131 dXSARGS;
6132
6133 if ((items < 2) || (items > 2)) {
6134 SWIG_croak("Usage: gsl_linalg_R_svx(R,x);");
6135 }
6136 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6137 if (!SWIG_IsOK(res1)) {
6138 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_R_svx" "', argument " "1"" of type '" "gsl_matrix const *""'");
6139 }
6140 arg1 = (gsl_matrix *)(argp1);
6141 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
6142 if (!SWIG_IsOK(res2)) {
6143 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_R_svx" "', argument " "2"" of type '" "gsl_vector *""'");
6144 }
6145 arg2 = (gsl_vector *)(argp2);
6146 result = (int)gsl_linalg_R_svx((gsl_matrix const *)arg1,arg2);
6147 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6148
6149
6150 XSRETURN(argvi);
6151 fail:
6152
6153
6154 SWIG_croak_null();
6155 }
6156 }
6157
6158
XS(_wrap_gsl_linalg_QR_rcond)6159 XS(_wrap_gsl_linalg_QR_rcond) {
6160 {
6161 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
6162 double *arg2 = (double *) 0 ;
6163 gsl_vector *arg3 = (gsl_vector *) 0 ;
6164 void *argp1 = 0 ;
6165 int res1 = 0 ;
6166 void *argp2 = 0 ;
6167 int res2 = 0 ;
6168 void *argp3 = 0 ;
6169 int res3 = 0 ;
6170 int argvi = 0;
6171 int result;
6172 dXSARGS;
6173
6174 if ((items < 3) || (items > 3)) {
6175 SWIG_croak("Usage: gsl_linalg_QR_rcond(QR,rcond,work);");
6176 }
6177 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6178 if (!SWIG_IsOK(res1)) {
6179 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QR_rcond" "', argument " "1"" of type '" "gsl_matrix const *""'");
6180 }
6181 arg1 = (gsl_matrix *)(argp1);
6182 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_double, 0 | 0 );
6183 if (!SWIG_IsOK(res2)) {
6184 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QR_rcond" "', argument " "2"" of type '" "double *""'");
6185 }
6186 arg2 = (double *)(argp2);
6187 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
6188 if (!SWIG_IsOK(res3)) {
6189 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QR_rcond" "', argument " "3"" of type '" "gsl_vector *""'");
6190 }
6191 arg3 = (gsl_vector *)(argp3);
6192 result = (int)gsl_linalg_QR_rcond((gsl_matrix const *)arg1,arg2,arg3);
6193 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6194
6195
6196
6197 XSRETURN(argvi);
6198 fail:
6199
6200
6201
6202 SWIG_croak_null();
6203 }
6204 }
6205
6206
XS(_wrap_gsl_linalg_complex_QR_decomp)6207 XS(_wrap_gsl_linalg_complex_QR_decomp) {
6208 {
6209 gsl_matrix_complex *arg1 = (gsl_matrix_complex *) 0 ;
6210 gsl_vector_complex *arg2 = (gsl_vector_complex *) 0 ;
6211 void *argp1 = 0 ;
6212 int res1 = 0 ;
6213 void *argp2 = 0 ;
6214 int res2 = 0 ;
6215 int argvi = 0;
6216 int result;
6217 dXSARGS;
6218
6219 if ((items < 2) || (items > 2)) {
6220 SWIG_croak("Usage: gsl_linalg_complex_QR_decomp(A,tau);");
6221 }
6222 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
6223 if (!SWIG_IsOK(res1)) {
6224 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_complex_QR_decomp" "', argument " "1"" of type '" "gsl_matrix_complex *""'");
6225 }
6226 arg1 = (gsl_matrix_complex *)(argp1);
6227 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
6228 if (!SWIG_IsOK(res2)) {
6229 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_complex_QR_decomp" "', argument " "2"" of type '" "gsl_vector_complex *""'");
6230 }
6231 arg2 = (gsl_vector_complex *)(argp2);
6232 result = (int)gsl_linalg_complex_QR_decomp(arg1,arg2);
6233 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6234
6235
6236 XSRETURN(argvi);
6237 fail:
6238
6239
6240 SWIG_croak_null();
6241 }
6242 }
6243
6244
XS(_wrap_gsl_linalg_complex_QR_decomp_r)6245 XS(_wrap_gsl_linalg_complex_QR_decomp_r) {
6246 {
6247 gsl_matrix_complex *arg1 = (gsl_matrix_complex *) 0 ;
6248 gsl_matrix_complex *arg2 = (gsl_matrix_complex *) 0 ;
6249 void *argp1 = 0 ;
6250 int res1 = 0 ;
6251 void *argp2 = 0 ;
6252 int res2 = 0 ;
6253 int argvi = 0;
6254 int result;
6255 dXSARGS;
6256
6257 if ((items < 2) || (items > 2)) {
6258 SWIG_croak("Usage: gsl_linalg_complex_QR_decomp_r(A,T);");
6259 }
6260 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
6261 if (!SWIG_IsOK(res1)) {
6262 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_complex_QR_decomp_r" "', argument " "1"" of type '" "gsl_matrix_complex *""'");
6263 }
6264 arg1 = (gsl_matrix_complex *)(argp1);
6265 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
6266 if (!SWIG_IsOK(res2)) {
6267 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_complex_QR_decomp_r" "', argument " "2"" of type '" "gsl_matrix_complex *""'");
6268 }
6269 arg2 = (gsl_matrix_complex *)(argp2);
6270 result = (int)gsl_linalg_complex_QR_decomp_r(arg1,arg2);
6271 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6272
6273
6274 XSRETURN(argvi);
6275 fail:
6276
6277
6278 SWIG_croak_null();
6279 }
6280 }
6281
6282
XS(_wrap_gsl_linalg_complex_QR_solve)6283 XS(_wrap_gsl_linalg_complex_QR_solve) {
6284 {
6285 gsl_matrix_complex *arg1 = (gsl_matrix_complex *) 0 ;
6286 gsl_vector_complex *arg2 = (gsl_vector_complex *) 0 ;
6287 gsl_vector_complex *arg3 = (gsl_vector_complex *) 0 ;
6288 gsl_vector_complex *arg4 = (gsl_vector_complex *) 0 ;
6289 void *argp1 = 0 ;
6290 int res1 = 0 ;
6291 void *argp2 = 0 ;
6292 int res2 = 0 ;
6293 void *argp3 = 0 ;
6294 int res3 = 0 ;
6295 void *argp4 = 0 ;
6296 int res4 = 0 ;
6297 int argvi = 0;
6298 int result;
6299 dXSARGS;
6300
6301 if ((items < 4) || (items > 4)) {
6302 SWIG_croak("Usage: gsl_linalg_complex_QR_solve(QR,tau,b,x);");
6303 }
6304 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
6305 if (!SWIG_IsOK(res1)) {
6306 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_complex_QR_solve" "', argument " "1"" of type '" "gsl_matrix_complex const *""'");
6307 }
6308 arg1 = (gsl_matrix_complex *)(argp1);
6309 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
6310 if (!SWIG_IsOK(res2)) {
6311 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_complex_QR_solve" "', argument " "2"" of type '" "gsl_vector_complex const *""'");
6312 }
6313 arg2 = (gsl_vector_complex *)(argp2);
6314 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
6315 if (!SWIG_IsOK(res3)) {
6316 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_complex_QR_solve" "', argument " "3"" of type '" "gsl_vector_complex const *""'");
6317 }
6318 arg3 = (gsl_vector_complex *)(argp3);
6319 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
6320 if (!SWIG_IsOK(res4)) {
6321 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_complex_QR_solve" "', argument " "4"" of type '" "gsl_vector_complex *""'");
6322 }
6323 arg4 = (gsl_vector_complex *)(argp4);
6324 result = (int)gsl_linalg_complex_QR_solve((gsl_matrix_complex const *)arg1,(gsl_vector_complex const *)arg2,(gsl_vector_complex const *)arg3,arg4);
6325 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6326
6327
6328
6329
6330 XSRETURN(argvi);
6331 fail:
6332
6333
6334
6335
6336 SWIG_croak_null();
6337 }
6338 }
6339
6340
XS(_wrap_gsl_linalg_complex_QR_solve_r)6341 XS(_wrap_gsl_linalg_complex_QR_solve_r) {
6342 {
6343 gsl_matrix_complex *arg1 = (gsl_matrix_complex *) 0 ;
6344 gsl_matrix_complex *arg2 = (gsl_matrix_complex *) 0 ;
6345 gsl_vector_complex *arg3 = (gsl_vector_complex *) 0 ;
6346 gsl_vector_complex *arg4 = (gsl_vector_complex *) 0 ;
6347 void *argp1 = 0 ;
6348 int res1 = 0 ;
6349 void *argp2 = 0 ;
6350 int res2 = 0 ;
6351 void *argp3 = 0 ;
6352 int res3 = 0 ;
6353 void *argp4 = 0 ;
6354 int res4 = 0 ;
6355 int argvi = 0;
6356 int result;
6357 dXSARGS;
6358
6359 if ((items < 4) || (items > 4)) {
6360 SWIG_croak("Usage: gsl_linalg_complex_QR_solve_r(QR,T,b,x);");
6361 }
6362 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
6363 if (!SWIG_IsOK(res1)) {
6364 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_complex_QR_solve_r" "', argument " "1"" of type '" "gsl_matrix_complex const *""'");
6365 }
6366 arg1 = (gsl_matrix_complex *)(argp1);
6367 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
6368 if (!SWIG_IsOK(res2)) {
6369 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_complex_QR_solve_r" "', argument " "2"" of type '" "gsl_matrix_complex const *""'");
6370 }
6371 arg2 = (gsl_matrix_complex *)(argp2);
6372 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
6373 if (!SWIG_IsOK(res3)) {
6374 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_complex_QR_solve_r" "', argument " "3"" of type '" "gsl_vector_complex const *""'");
6375 }
6376 arg3 = (gsl_vector_complex *)(argp3);
6377 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
6378 if (!SWIG_IsOK(res4)) {
6379 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_complex_QR_solve_r" "', argument " "4"" of type '" "gsl_vector_complex *""'");
6380 }
6381 arg4 = (gsl_vector_complex *)(argp4);
6382 result = (int)gsl_linalg_complex_QR_solve_r((gsl_matrix_complex const *)arg1,(gsl_matrix_complex const *)arg2,(gsl_vector_complex const *)arg3,arg4);
6383 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6384
6385
6386
6387
6388 XSRETURN(argvi);
6389 fail:
6390
6391
6392
6393
6394 SWIG_croak_null();
6395 }
6396 }
6397
6398
XS(_wrap_gsl_linalg_complex_QR_svx)6399 XS(_wrap_gsl_linalg_complex_QR_svx) {
6400 {
6401 gsl_matrix_complex *arg1 = (gsl_matrix_complex *) 0 ;
6402 gsl_vector_complex *arg2 = (gsl_vector_complex *) 0 ;
6403 gsl_vector_complex *arg3 = (gsl_vector_complex *) 0 ;
6404 void *argp1 = 0 ;
6405 int res1 = 0 ;
6406 void *argp2 = 0 ;
6407 int res2 = 0 ;
6408 void *argp3 = 0 ;
6409 int res3 = 0 ;
6410 int argvi = 0;
6411 int result;
6412 dXSARGS;
6413
6414 if ((items < 3) || (items > 3)) {
6415 SWIG_croak("Usage: gsl_linalg_complex_QR_svx(QR,tau,x);");
6416 }
6417 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
6418 if (!SWIG_IsOK(res1)) {
6419 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_complex_QR_svx" "', argument " "1"" of type '" "gsl_matrix_complex const *""'");
6420 }
6421 arg1 = (gsl_matrix_complex *)(argp1);
6422 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
6423 if (!SWIG_IsOK(res2)) {
6424 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_complex_QR_svx" "', argument " "2"" of type '" "gsl_vector_complex const *""'");
6425 }
6426 arg2 = (gsl_vector_complex *)(argp2);
6427 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
6428 if (!SWIG_IsOK(res3)) {
6429 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_complex_QR_svx" "', argument " "3"" of type '" "gsl_vector_complex *""'");
6430 }
6431 arg3 = (gsl_vector_complex *)(argp3);
6432 result = (int)gsl_linalg_complex_QR_svx((gsl_matrix_complex const *)arg1,(gsl_vector_complex const *)arg2,arg3);
6433 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6434
6435
6436
6437 XSRETURN(argvi);
6438 fail:
6439
6440
6441
6442 SWIG_croak_null();
6443 }
6444 }
6445
6446
XS(_wrap_gsl_linalg_complex_QR_lssolve)6447 XS(_wrap_gsl_linalg_complex_QR_lssolve) {
6448 {
6449 gsl_matrix_complex *arg1 = (gsl_matrix_complex *) 0 ;
6450 gsl_vector_complex *arg2 = (gsl_vector_complex *) 0 ;
6451 gsl_vector_complex *arg3 = (gsl_vector_complex *) 0 ;
6452 gsl_vector_complex *arg4 = (gsl_vector_complex *) 0 ;
6453 gsl_vector_complex *arg5 = (gsl_vector_complex *) 0 ;
6454 void *argp1 = 0 ;
6455 int res1 = 0 ;
6456 void *argp2 = 0 ;
6457 int res2 = 0 ;
6458 void *argp3 = 0 ;
6459 int res3 = 0 ;
6460 void *argp4 = 0 ;
6461 int res4 = 0 ;
6462 void *argp5 = 0 ;
6463 int res5 = 0 ;
6464 int argvi = 0;
6465 int result;
6466 dXSARGS;
6467
6468 if ((items < 5) || (items > 5)) {
6469 SWIG_croak("Usage: gsl_linalg_complex_QR_lssolve(QR,tau,b,x,residual);");
6470 }
6471 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
6472 if (!SWIG_IsOK(res1)) {
6473 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_complex_QR_lssolve" "', argument " "1"" of type '" "gsl_matrix_complex const *""'");
6474 }
6475 arg1 = (gsl_matrix_complex *)(argp1);
6476 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
6477 if (!SWIG_IsOK(res2)) {
6478 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_complex_QR_lssolve" "', argument " "2"" of type '" "gsl_vector_complex const *""'");
6479 }
6480 arg2 = (gsl_vector_complex *)(argp2);
6481 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
6482 if (!SWIG_IsOK(res3)) {
6483 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_complex_QR_lssolve" "', argument " "3"" of type '" "gsl_vector_complex const *""'");
6484 }
6485 arg3 = (gsl_vector_complex *)(argp3);
6486 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
6487 if (!SWIG_IsOK(res4)) {
6488 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_complex_QR_lssolve" "', argument " "4"" of type '" "gsl_vector_complex *""'");
6489 }
6490 arg4 = (gsl_vector_complex *)(argp4);
6491 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
6492 if (!SWIG_IsOK(res5)) {
6493 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_complex_QR_lssolve" "', argument " "5"" of type '" "gsl_vector_complex *""'");
6494 }
6495 arg5 = (gsl_vector_complex *)(argp5);
6496 result = (int)gsl_linalg_complex_QR_lssolve((gsl_matrix_complex const *)arg1,(gsl_vector_complex const *)arg2,(gsl_vector_complex const *)arg3,arg4,arg5);
6497 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6498
6499
6500
6501
6502
6503 XSRETURN(argvi);
6504 fail:
6505
6506
6507
6508
6509
6510 SWIG_croak_null();
6511 }
6512 }
6513
6514
XS(_wrap_gsl_linalg_complex_QR_lssolve_r)6515 XS(_wrap_gsl_linalg_complex_QR_lssolve_r) {
6516 {
6517 gsl_matrix_complex *arg1 = (gsl_matrix_complex *) 0 ;
6518 gsl_matrix_complex *arg2 = (gsl_matrix_complex *) 0 ;
6519 gsl_vector_complex *arg3 = (gsl_vector_complex *) 0 ;
6520 gsl_vector_complex *arg4 = (gsl_vector_complex *) 0 ;
6521 gsl_vector_complex *arg5 = (gsl_vector_complex *) 0 ;
6522 void *argp1 = 0 ;
6523 int res1 = 0 ;
6524 void *argp2 = 0 ;
6525 int res2 = 0 ;
6526 void *argp3 = 0 ;
6527 int res3 = 0 ;
6528 void *argp4 = 0 ;
6529 int res4 = 0 ;
6530 void *argp5 = 0 ;
6531 int res5 = 0 ;
6532 int argvi = 0;
6533 int result;
6534 dXSARGS;
6535
6536 if ((items < 5) || (items > 5)) {
6537 SWIG_croak("Usage: gsl_linalg_complex_QR_lssolve_r(QR,T,b,x,work);");
6538 }
6539 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
6540 if (!SWIG_IsOK(res1)) {
6541 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_complex_QR_lssolve_r" "', argument " "1"" of type '" "gsl_matrix_complex const *""'");
6542 }
6543 arg1 = (gsl_matrix_complex *)(argp1);
6544 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
6545 if (!SWIG_IsOK(res2)) {
6546 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_complex_QR_lssolve_r" "', argument " "2"" of type '" "gsl_matrix_complex const *""'");
6547 }
6548 arg2 = (gsl_matrix_complex *)(argp2);
6549 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
6550 if (!SWIG_IsOK(res3)) {
6551 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_complex_QR_lssolve_r" "', argument " "3"" of type '" "gsl_vector_complex const *""'");
6552 }
6553 arg3 = (gsl_vector_complex *)(argp3);
6554 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
6555 if (!SWIG_IsOK(res4)) {
6556 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_complex_QR_lssolve_r" "', argument " "4"" of type '" "gsl_vector_complex *""'");
6557 }
6558 arg4 = (gsl_vector_complex *)(argp4);
6559 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
6560 if (!SWIG_IsOK(res5)) {
6561 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_complex_QR_lssolve_r" "', argument " "5"" of type '" "gsl_vector_complex *""'");
6562 }
6563 arg5 = (gsl_vector_complex *)(argp5);
6564 result = (int)gsl_linalg_complex_QR_lssolve_r((gsl_matrix_complex const *)arg1,(gsl_matrix_complex const *)arg2,(gsl_vector_complex const *)arg3,arg4,arg5);
6565 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6566
6567
6568
6569
6570
6571 XSRETURN(argvi);
6572 fail:
6573
6574
6575
6576
6577
6578 SWIG_croak_null();
6579 }
6580 }
6581
6582
XS(_wrap_gsl_linalg_complex_QR_QHvec)6583 XS(_wrap_gsl_linalg_complex_QR_QHvec) {
6584 {
6585 gsl_matrix_complex *arg1 = (gsl_matrix_complex *) 0 ;
6586 gsl_vector_complex *arg2 = (gsl_vector_complex *) 0 ;
6587 gsl_vector_complex *arg3 = (gsl_vector_complex *) 0 ;
6588 void *argp1 = 0 ;
6589 int res1 = 0 ;
6590 void *argp2 = 0 ;
6591 int res2 = 0 ;
6592 void *argp3 = 0 ;
6593 int res3 = 0 ;
6594 int argvi = 0;
6595 int result;
6596 dXSARGS;
6597
6598 if ((items < 3) || (items > 3)) {
6599 SWIG_croak("Usage: gsl_linalg_complex_QR_QHvec(QR,tau,v);");
6600 }
6601 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
6602 if (!SWIG_IsOK(res1)) {
6603 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_complex_QR_QHvec" "', argument " "1"" of type '" "gsl_matrix_complex const *""'");
6604 }
6605 arg1 = (gsl_matrix_complex *)(argp1);
6606 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
6607 if (!SWIG_IsOK(res2)) {
6608 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_complex_QR_QHvec" "', argument " "2"" of type '" "gsl_vector_complex const *""'");
6609 }
6610 arg2 = (gsl_vector_complex *)(argp2);
6611 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
6612 if (!SWIG_IsOK(res3)) {
6613 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_complex_QR_QHvec" "', argument " "3"" of type '" "gsl_vector_complex *""'");
6614 }
6615 arg3 = (gsl_vector_complex *)(argp3);
6616 result = (int)gsl_linalg_complex_QR_QHvec((gsl_matrix_complex const *)arg1,(gsl_vector_complex const *)arg2,arg3);
6617 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6618
6619
6620
6621 XSRETURN(argvi);
6622 fail:
6623
6624
6625
6626 SWIG_croak_null();
6627 }
6628 }
6629
6630
XS(_wrap_gsl_linalg_complex_QR_QHvec_r)6631 XS(_wrap_gsl_linalg_complex_QR_QHvec_r) {
6632 {
6633 gsl_matrix_complex *arg1 = (gsl_matrix_complex *) 0 ;
6634 gsl_matrix_complex *arg2 = (gsl_matrix_complex *) 0 ;
6635 gsl_vector_complex *arg3 = (gsl_vector_complex *) 0 ;
6636 gsl_vector_complex *arg4 = (gsl_vector_complex *) 0 ;
6637 void *argp1 = 0 ;
6638 int res1 = 0 ;
6639 void *argp2 = 0 ;
6640 int res2 = 0 ;
6641 void *argp3 = 0 ;
6642 int res3 = 0 ;
6643 void *argp4 = 0 ;
6644 int res4 = 0 ;
6645 int argvi = 0;
6646 int result;
6647 dXSARGS;
6648
6649 if ((items < 4) || (items > 4)) {
6650 SWIG_croak("Usage: gsl_linalg_complex_QR_QHvec_r(QR,T,b,work);");
6651 }
6652 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
6653 if (!SWIG_IsOK(res1)) {
6654 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_complex_QR_QHvec_r" "', argument " "1"" of type '" "gsl_matrix_complex const *""'");
6655 }
6656 arg1 = (gsl_matrix_complex *)(argp1);
6657 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
6658 if (!SWIG_IsOK(res2)) {
6659 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_complex_QR_QHvec_r" "', argument " "2"" of type '" "gsl_matrix_complex const *""'");
6660 }
6661 arg2 = (gsl_matrix_complex *)(argp2);
6662 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
6663 if (!SWIG_IsOK(res3)) {
6664 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_complex_QR_QHvec_r" "', argument " "3"" of type '" "gsl_vector_complex *""'");
6665 }
6666 arg3 = (gsl_vector_complex *)(argp3);
6667 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
6668 if (!SWIG_IsOK(res4)) {
6669 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_complex_QR_QHvec_r" "', argument " "4"" of type '" "gsl_vector_complex *""'");
6670 }
6671 arg4 = (gsl_vector_complex *)(argp4);
6672 result = (int)gsl_linalg_complex_QR_QHvec_r((gsl_matrix_complex const *)arg1,(gsl_matrix_complex const *)arg2,arg3,arg4);
6673 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6674
6675
6676
6677
6678 XSRETURN(argvi);
6679 fail:
6680
6681
6682
6683
6684 SWIG_croak_null();
6685 }
6686 }
6687
6688
XS(_wrap_gsl_linalg_complex_QR_Qvec)6689 XS(_wrap_gsl_linalg_complex_QR_Qvec) {
6690 {
6691 gsl_matrix_complex *arg1 = (gsl_matrix_complex *) 0 ;
6692 gsl_vector_complex *arg2 = (gsl_vector_complex *) 0 ;
6693 gsl_vector_complex *arg3 = (gsl_vector_complex *) 0 ;
6694 void *argp1 = 0 ;
6695 int res1 = 0 ;
6696 void *argp2 = 0 ;
6697 int res2 = 0 ;
6698 void *argp3 = 0 ;
6699 int res3 = 0 ;
6700 int argvi = 0;
6701 int result;
6702 dXSARGS;
6703
6704 if ((items < 3) || (items > 3)) {
6705 SWIG_croak("Usage: gsl_linalg_complex_QR_Qvec(QR,tau,v);");
6706 }
6707 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
6708 if (!SWIG_IsOK(res1)) {
6709 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_complex_QR_Qvec" "', argument " "1"" of type '" "gsl_matrix_complex const *""'");
6710 }
6711 arg1 = (gsl_matrix_complex *)(argp1);
6712 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
6713 if (!SWIG_IsOK(res2)) {
6714 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_complex_QR_Qvec" "', argument " "2"" of type '" "gsl_vector_complex const *""'");
6715 }
6716 arg2 = (gsl_vector_complex *)(argp2);
6717 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
6718 if (!SWIG_IsOK(res3)) {
6719 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_complex_QR_Qvec" "', argument " "3"" of type '" "gsl_vector_complex *""'");
6720 }
6721 arg3 = (gsl_vector_complex *)(argp3);
6722 result = (int)gsl_linalg_complex_QR_Qvec((gsl_matrix_complex const *)arg1,(gsl_vector_complex const *)arg2,arg3);
6723 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6724
6725
6726
6727 XSRETURN(argvi);
6728 fail:
6729
6730
6731
6732 SWIG_croak_null();
6733 }
6734 }
6735
6736
XS(_wrap_gsl_linalg_complex_QR_unpack)6737 XS(_wrap_gsl_linalg_complex_QR_unpack) {
6738 {
6739 gsl_matrix_complex *arg1 = (gsl_matrix_complex *) 0 ;
6740 gsl_vector_complex *arg2 = (gsl_vector_complex *) 0 ;
6741 gsl_matrix_complex *arg3 = (gsl_matrix_complex *) 0 ;
6742 gsl_matrix_complex *arg4 = (gsl_matrix_complex *) 0 ;
6743 void *argp1 = 0 ;
6744 int res1 = 0 ;
6745 void *argp2 = 0 ;
6746 int res2 = 0 ;
6747 void *argp3 = 0 ;
6748 int res3 = 0 ;
6749 void *argp4 = 0 ;
6750 int res4 = 0 ;
6751 int argvi = 0;
6752 int result;
6753 dXSARGS;
6754
6755 if ((items < 4) || (items > 4)) {
6756 SWIG_croak("Usage: gsl_linalg_complex_QR_unpack(QR,tau,Q,R);");
6757 }
6758 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
6759 if (!SWIG_IsOK(res1)) {
6760 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_complex_QR_unpack" "', argument " "1"" of type '" "gsl_matrix_complex const *""'");
6761 }
6762 arg1 = (gsl_matrix_complex *)(argp1);
6763 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
6764 if (!SWIG_IsOK(res2)) {
6765 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_complex_QR_unpack" "', argument " "2"" of type '" "gsl_vector_complex const *""'");
6766 }
6767 arg2 = (gsl_vector_complex *)(argp2);
6768 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
6769 if (!SWIG_IsOK(res3)) {
6770 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_complex_QR_unpack" "', argument " "3"" of type '" "gsl_matrix_complex *""'");
6771 }
6772 arg3 = (gsl_matrix_complex *)(argp3);
6773 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
6774 if (!SWIG_IsOK(res4)) {
6775 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_complex_QR_unpack" "', argument " "4"" of type '" "gsl_matrix_complex *""'");
6776 }
6777 arg4 = (gsl_matrix_complex *)(argp4);
6778 result = (int)gsl_linalg_complex_QR_unpack((gsl_matrix_complex const *)arg1,(gsl_vector_complex const *)arg2,arg3,arg4);
6779 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6780
6781
6782
6783
6784 XSRETURN(argvi);
6785 fail:
6786
6787
6788
6789
6790 SWIG_croak_null();
6791 }
6792 }
6793
6794
XS(_wrap_gsl_linalg_complex_QR_unpack_r)6795 XS(_wrap_gsl_linalg_complex_QR_unpack_r) {
6796 {
6797 gsl_matrix_complex *arg1 = (gsl_matrix_complex *) 0 ;
6798 gsl_matrix_complex *arg2 = (gsl_matrix_complex *) 0 ;
6799 gsl_matrix_complex *arg3 = (gsl_matrix_complex *) 0 ;
6800 gsl_matrix_complex *arg4 = (gsl_matrix_complex *) 0 ;
6801 void *argp1 = 0 ;
6802 int res1 = 0 ;
6803 void *argp2 = 0 ;
6804 int res2 = 0 ;
6805 void *argp3 = 0 ;
6806 int res3 = 0 ;
6807 void *argp4 = 0 ;
6808 int res4 = 0 ;
6809 int argvi = 0;
6810 int result;
6811 dXSARGS;
6812
6813 if ((items < 4) || (items > 4)) {
6814 SWIG_croak("Usage: gsl_linalg_complex_QR_unpack_r(QR,T,Q,R);");
6815 }
6816 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
6817 if (!SWIG_IsOK(res1)) {
6818 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_complex_QR_unpack_r" "', argument " "1"" of type '" "gsl_matrix_complex const *""'");
6819 }
6820 arg1 = (gsl_matrix_complex *)(argp1);
6821 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
6822 if (!SWIG_IsOK(res2)) {
6823 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_complex_QR_unpack_r" "', argument " "2"" of type '" "gsl_matrix_complex const *""'");
6824 }
6825 arg2 = (gsl_matrix_complex *)(argp2);
6826 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
6827 if (!SWIG_IsOK(res3)) {
6828 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_complex_QR_unpack_r" "', argument " "3"" of type '" "gsl_matrix_complex *""'");
6829 }
6830 arg3 = (gsl_matrix_complex *)(argp3);
6831 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
6832 if (!SWIG_IsOK(res4)) {
6833 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_complex_QR_unpack_r" "', argument " "4"" of type '" "gsl_matrix_complex *""'");
6834 }
6835 arg4 = (gsl_matrix_complex *)(argp4);
6836 result = (int)gsl_linalg_complex_QR_unpack_r((gsl_matrix_complex const *)arg1,(gsl_matrix_complex const *)arg2,arg3,arg4);
6837 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6838
6839
6840
6841
6842 XSRETURN(argvi);
6843 fail:
6844
6845
6846
6847
6848 SWIG_croak_null();
6849 }
6850 }
6851
6852
XS(_wrap_gsl_linalg_QR_band_decomp_L2)6853 XS(_wrap_gsl_linalg_QR_band_decomp_L2) {
6854 {
6855 size_t arg1 ;
6856 size_t arg2 ;
6857 size_t arg3 ;
6858 gsl_matrix *arg4 = (gsl_matrix *) 0 ;
6859 gsl_vector *arg5 = (gsl_vector *) 0 ;
6860 size_t val1 ;
6861 int ecode1 = 0 ;
6862 size_t val2 ;
6863 int ecode2 = 0 ;
6864 size_t val3 ;
6865 int ecode3 = 0 ;
6866 void *argp4 = 0 ;
6867 int res4 = 0 ;
6868 void *argp5 = 0 ;
6869 int res5 = 0 ;
6870 int argvi = 0;
6871 int result;
6872 dXSARGS;
6873
6874 if ((items < 5) || (items > 5)) {
6875 SWIG_croak("Usage: gsl_linalg_QR_band_decomp_L2(M,p,q,AB,tau);");
6876 }
6877 ecode1 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
6878 if (!SWIG_IsOK(ecode1)) {
6879 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_linalg_QR_band_decomp_L2" "', argument " "1"" of type '" "size_t""'");
6880 }
6881 arg1 = (size_t)(val1);
6882 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
6883 if (!SWIG_IsOK(ecode2)) {
6884 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_linalg_QR_band_decomp_L2" "', argument " "2"" of type '" "size_t""'");
6885 }
6886 arg2 = (size_t)(val2);
6887 ecode3 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
6888 if (!SWIG_IsOK(ecode3)) {
6889 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_linalg_QR_band_decomp_L2" "', argument " "3"" of type '" "size_t""'");
6890 }
6891 arg3 = (size_t)(val3);
6892 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6893 if (!SWIG_IsOK(res4)) {
6894 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_QR_band_decomp_L2" "', argument " "4"" of type '" "gsl_matrix *""'");
6895 }
6896 arg4 = (gsl_matrix *)(argp4);
6897 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
6898 if (!SWIG_IsOK(res5)) {
6899 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_QR_band_decomp_L2" "', argument " "5"" of type '" "gsl_vector *""'");
6900 }
6901 arg5 = (gsl_vector *)(argp5);
6902 result = (int)gsl_linalg_QR_band_decomp_L2(arg1,arg2,arg3,arg4,arg5);
6903 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6904
6905
6906
6907
6908
6909 XSRETURN(argvi);
6910 fail:
6911
6912
6913
6914
6915
6916 SWIG_croak_null();
6917 }
6918 }
6919
6920
XS(_wrap_gsl_linalg_QR_band_unpack_L2)6921 XS(_wrap_gsl_linalg_QR_band_unpack_L2) {
6922 {
6923 size_t arg1 ;
6924 size_t arg2 ;
6925 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
6926 gsl_vector *arg4 = (gsl_vector *) 0 ;
6927 gsl_matrix *arg5 = (gsl_matrix *) 0 ;
6928 gsl_matrix *arg6 = (gsl_matrix *) 0 ;
6929 size_t val1 ;
6930 int ecode1 = 0 ;
6931 size_t val2 ;
6932 int ecode2 = 0 ;
6933 void *argp3 = 0 ;
6934 int res3 = 0 ;
6935 void *argp4 = 0 ;
6936 int res4 = 0 ;
6937 void *argp5 = 0 ;
6938 int res5 = 0 ;
6939 void *argp6 = 0 ;
6940 int res6 = 0 ;
6941 int argvi = 0;
6942 int result;
6943 dXSARGS;
6944
6945 if ((items < 6) || (items > 6)) {
6946 SWIG_croak("Usage: gsl_linalg_QR_band_unpack_L2(p,q,QRB,tau,Q,R);");
6947 }
6948 ecode1 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
6949 if (!SWIG_IsOK(ecode1)) {
6950 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_linalg_QR_band_unpack_L2" "', argument " "1"" of type '" "size_t""'");
6951 }
6952 arg1 = (size_t)(val1);
6953 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
6954 if (!SWIG_IsOK(ecode2)) {
6955 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_linalg_QR_band_unpack_L2" "', argument " "2"" of type '" "size_t""'");
6956 }
6957 arg2 = (size_t)(val2);
6958 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6959 if (!SWIG_IsOK(res3)) {
6960 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QR_band_unpack_L2" "', argument " "3"" of type '" "gsl_matrix const *""'");
6961 }
6962 arg3 = (gsl_matrix *)(argp3);
6963 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
6964 if (!SWIG_IsOK(res4)) {
6965 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_QR_band_unpack_L2" "', argument " "4"" of type '" "gsl_vector const *""'");
6966 }
6967 arg4 = (gsl_vector *)(argp4);
6968 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6969 if (!SWIG_IsOK(res5)) {
6970 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_QR_band_unpack_L2" "', argument " "5"" of type '" "gsl_matrix *""'");
6971 }
6972 arg5 = (gsl_matrix *)(argp5);
6973 res6 = SWIG_ConvertPtr(ST(5), &argp6,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6974 if (!SWIG_IsOK(res6)) {
6975 SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_linalg_QR_band_unpack_L2" "', argument " "6"" of type '" "gsl_matrix *""'");
6976 }
6977 arg6 = (gsl_matrix *)(argp6);
6978 result = (int)gsl_linalg_QR_band_unpack_L2(arg1,arg2,(gsl_matrix const *)arg3,(gsl_vector const *)arg4,arg5,arg6);
6979 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6980
6981
6982
6983
6984
6985
6986 XSRETURN(argvi);
6987 fail:
6988
6989
6990
6991
6992
6993
6994 SWIG_croak_null();
6995 }
6996 }
6997
6998
XS(_wrap_gsl_linalg_QRPT_decomp)6999 XS(_wrap_gsl_linalg_QRPT_decomp) {
7000 {
7001 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
7002 gsl_vector *arg2 = (gsl_vector *) 0 ;
7003 gsl_permutation *arg3 = (gsl_permutation *) 0 ;
7004 int *arg4 = (int *) 0 ;
7005 gsl_vector *arg5 = (gsl_vector *) 0 ;
7006 void *argp1 = 0 ;
7007 int res1 = 0 ;
7008 void *argp2 = 0 ;
7009 int res2 = 0 ;
7010 void *argp3 = 0 ;
7011 int res3 = 0 ;
7012 int temp4 ;
7013 int res4 = SWIG_TMPOBJ ;
7014 void *argp5 = 0 ;
7015 int res5 = 0 ;
7016 int argvi = 0;
7017 int result;
7018 dXSARGS;
7019
7020 arg4 = &temp4;
7021 if ((items < 4) || (items > 4)) {
7022 SWIG_croak("Usage: gsl_linalg_QRPT_decomp(A,tau,p,norm);");
7023 }
7024 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7025 if (!SWIG_IsOK(res1)) {
7026 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QRPT_decomp" "', argument " "1"" of type '" "gsl_matrix *""'");
7027 }
7028 arg1 = (gsl_matrix *)(argp1);
7029 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
7030 if (!SWIG_IsOK(res2)) {
7031 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QRPT_decomp" "', argument " "2"" of type '" "gsl_vector *""'");
7032 }
7033 arg2 = (gsl_vector *)(argp2);
7034 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
7035 if (!SWIG_IsOK(res3)) {
7036 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QRPT_decomp" "', argument " "3"" of type '" "gsl_permutation *""'");
7037 }
7038 arg3 = (gsl_permutation *)(argp3);
7039 res5 = SWIG_ConvertPtr(ST(3), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
7040 if (!SWIG_IsOK(res5)) {
7041 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_QRPT_decomp" "', argument " "5"" of type '" "gsl_vector *""'");
7042 }
7043 arg5 = (gsl_vector *)(argp5);
7044 result = (int)gsl_linalg_QRPT_decomp(arg1,arg2,arg3,arg4,arg5);
7045 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7046 if (SWIG_IsTmpObj(res4)) {
7047 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((*arg4)); argvi++ ;
7048 } else {
7049 int new_flags = SWIG_IsNewObj(res4) ? (SWIG_POINTER_OWN | 0) : 0;
7050 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg4), SWIGTYPE_p_int, new_flags); argvi++ ;
7051 }
7052
7053
7054
7055
7056
7057 XSRETURN(argvi);
7058 fail:
7059
7060
7061
7062
7063
7064 SWIG_croak_null();
7065 }
7066 }
7067
7068
XS(_wrap_gsl_linalg_QRPT_decomp2)7069 XS(_wrap_gsl_linalg_QRPT_decomp2) {
7070 {
7071 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
7072 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
7073 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
7074 gsl_vector *arg4 = (gsl_vector *) 0 ;
7075 gsl_permutation *arg5 = (gsl_permutation *) 0 ;
7076 int *arg6 = (int *) 0 ;
7077 gsl_vector *arg7 = (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 void *argp5 = 0 ;
7087 int res5 = 0 ;
7088 int temp6 ;
7089 int res6 = SWIG_TMPOBJ ;
7090 void *argp7 = 0 ;
7091 int res7 = 0 ;
7092 int argvi = 0;
7093 int result;
7094 dXSARGS;
7095
7096 arg6 = &temp6;
7097 if ((items < 6) || (items > 6)) {
7098 SWIG_croak("Usage: gsl_linalg_QRPT_decomp2(A,q,r,tau,p,norm);");
7099 }
7100 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7101 if (!SWIG_IsOK(res1)) {
7102 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QRPT_decomp2" "', argument " "1"" of type '" "gsl_matrix const *""'");
7103 }
7104 arg1 = (gsl_matrix *)(argp1);
7105 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7106 if (!SWIG_IsOK(res2)) {
7107 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QRPT_decomp2" "', argument " "2"" of type '" "gsl_matrix *""'");
7108 }
7109 arg2 = (gsl_matrix *)(argp2);
7110 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7111 if (!SWIG_IsOK(res3)) {
7112 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QRPT_decomp2" "', argument " "3"" of type '" "gsl_matrix *""'");
7113 }
7114 arg3 = (gsl_matrix *)(argp3);
7115 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
7116 if (!SWIG_IsOK(res4)) {
7117 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_QRPT_decomp2" "', argument " "4"" of type '" "gsl_vector *""'");
7118 }
7119 arg4 = (gsl_vector *)(argp4);
7120 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
7121 if (!SWIG_IsOK(res5)) {
7122 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_QRPT_decomp2" "', argument " "5"" of type '" "gsl_permutation *""'");
7123 }
7124 arg5 = (gsl_permutation *)(argp5);
7125 res7 = SWIG_ConvertPtr(ST(5), &argp7,SWIGTYPE_p_gsl_vector, 0 | 0 );
7126 if (!SWIG_IsOK(res7)) {
7127 SWIG_exception_fail(SWIG_ArgError(res7), "in method '" "gsl_linalg_QRPT_decomp2" "', argument " "7"" of type '" "gsl_vector *""'");
7128 }
7129 arg7 = (gsl_vector *)(argp7);
7130 result = (int)gsl_linalg_QRPT_decomp2((gsl_matrix const *)arg1,arg2,arg3,arg4,arg5,arg6,arg7);
7131 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7132 if (SWIG_IsTmpObj(res6)) {
7133 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((*arg6)); argvi++ ;
7134 } else {
7135 int new_flags = SWIG_IsNewObj(res6) ? (SWIG_POINTER_OWN | 0) : 0;
7136 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg6), SWIGTYPE_p_int, new_flags); argvi++ ;
7137 }
7138
7139
7140
7141
7142
7143
7144
7145 XSRETURN(argvi);
7146 fail:
7147
7148
7149
7150
7151
7152
7153
7154 SWIG_croak_null();
7155 }
7156 }
7157
7158
XS(_wrap_gsl_linalg_QRPT_solve)7159 XS(_wrap_gsl_linalg_QRPT_solve) {
7160 {
7161 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
7162 gsl_vector *arg2 = (gsl_vector *) 0 ;
7163 gsl_permutation *arg3 = (gsl_permutation *) 0 ;
7164 gsl_vector *arg4 = (gsl_vector *) 0 ;
7165 gsl_vector *arg5 = (gsl_vector *) 0 ;
7166 void *argp1 = 0 ;
7167 int res1 = 0 ;
7168 void *argp2 = 0 ;
7169 int res2 = 0 ;
7170 void *argp3 = 0 ;
7171 int res3 = 0 ;
7172 void *argp4 = 0 ;
7173 int res4 = 0 ;
7174 void *argp5 = 0 ;
7175 int res5 = 0 ;
7176 int argvi = 0;
7177 int result;
7178 dXSARGS;
7179
7180 if ((items < 5) || (items > 5)) {
7181 SWIG_croak("Usage: gsl_linalg_QRPT_solve(QR,tau,p,b,x);");
7182 }
7183 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7184 if (!SWIG_IsOK(res1)) {
7185 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QRPT_solve" "', argument " "1"" of type '" "gsl_matrix const *""'");
7186 }
7187 arg1 = (gsl_matrix *)(argp1);
7188 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
7189 if (!SWIG_IsOK(res2)) {
7190 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QRPT_solve" "', argument " "2"" of type '" "gsl_vector const *""'");
7191 }
7192 arg2 = (gsl_vector *)(argp2);
7193 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
7194 if (!SWIG_IsOK(res3)) {
7195 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QRPT_solve" "', argument " "3"" of type '" "gsl_permutation const *""'");
7196 }
7197 arg3 = (gsl_permutation *)(argp3);
7198 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
7199 if (!SWIG_IsOK(res4)) {
7200 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_QRPT_solve" "', argument " "4"" of type '" "gsl_vector const *""'");
7201 }
7202 arg4 = (gsl_vector *)(argp4);
7203 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
7204 if (!SWIG_IsOK(res5)) {
7205 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_QRPT_solve" "', argument " "5"" of type '" "gsl_vector *""'");
7206 }
7207 arg5 = (gsl_vector *)(argp5);
7208 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);
7209 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7210
7211
7212
7213
7214
7215 XSRETURN(argvi);
7216 fail:
7217
7218
7219
7220
7221
7222 SWIG_croak_null();
7223 }
7224 }
7225
7226
XS(_wrap_gsl_linalg_QRPT_lssolve)7227 XS(_wrap_gsl_linalg_QRPT_lssolve) {
7228 {
7229 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
7230 gsl_vector *arg2 = (gsl_vector *) 0 ;
7231 gsl_permutation *arg3 = (gsl_permutation *) 0 ;
7232 gsl_vector *arg4 = (gsl_vector *) 0 ;
7233 gsl_vector *arg5 = (gsl_vector *) 0 ;
7234 gsl_vector *arg6 = (gsl_vector *) 0 ;
7235 void *argp1 = 0 ;
7236 int res1 = 0 ;
7237 void *argp2 = 0 ;
7238 int res2 = 0 ;
7239 void *argp3 = 0 ;
7240 int res3 = 0 ;
7241 void *argp4 = 0 ;
7242 int res4 = 0 ;
7243 void *argp5 = 0 ;
7244 int res5 = 0 ;
7245 void *argp6 = 0 ;
7246 int res6 = 0 ;
7247 int argvi = 0;
7248 int result;
7249 dXSARGS;
7250
7251 if ((items < 6) || (items > 6)) {
7252 SWIG_croak("Usage: gsl_linalg_QRPT_lssolve(QR,tau,p,b,x,residual);");
7253 }
7254 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7255 if (!SWIG_IsOK(res1)) {
7256 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QRPT_lssolve" "', argument " "1"" of type '" "gsl_matrix const *""'");
7257 }
7258 arg1 = (gsl_matrix *)(argp1);
7259 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
7260 if (!SWIG_IsOK(res2)) {
7261 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QRPT_lssolve" "', argument " "2"" of type '" "gsl_vector const *""'");
7262 }
7263 arg2 = (gsl_vector *)(argp2);
7264 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
7265 if (!SWIG_IsOK(res3)) {
7266 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QRPT_lssolve" "', argument " "3"" of type '" "gsl_permutation const *""'");
7267 }
7268 arg3 = (gsl_permutation *)(argp3);
7269 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
7270 if (!SWIG_IsOK(res4)) {
7271 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_QRPT_lssolve" "', argument " "4"" of type '" "gsl_vector const *""'");
7272 }
7273 arg4 = (gsl_vector *)(argp4);
7274 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
7275 if (!SWIG_IsOK(res5)) {
7276 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_QRPT_lssolve" "', argument " "5"" of type '" "gsl_vector *""'");
7277 }
7278 arg5 = (gsl_vector *)(argp5);
7279 res6 = SWIG_ConvertPtr(ST(5), &argp6,SWIGTYPE_p_gsl_vector, 0 | 0 );
7280 if (!SWIG_IsOK(res6)) {
7281 SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_linalg_QRPT_lssolve" "', argument " "6"" of type '" "gsl_vector *""'");
7282 }
7283 arg6 = (gsl_vector *)(argp6);
7284 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);
7285 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7286
7287
7288
7289
7290
7291
7292 XSRETURN(argvi);
7293 fail:
7294
7295
7296
7297
7298
7299
7300 SWIG_croak_null();
7301 }
7302 }
7303
7304
XS(_wrap_gsl_linalg_QRPT_lssolve2)7305 XS(_wrap_gsl_linalg_QRPT_lssolve2) {
7306 {
7307 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
7308 gsl_vector *arg2 = (gsl_vector *) 0 ;
7309 gsl_permutation *arg3 = (gsl_permutation *) 0 ;
7310 gsl_vector *arg4 = (gsl_vector *) 0 ;
7311 size_t arg5 ;
7312 gsl_vector *arg6 = (gsl_vector *) 0 ;
7313 gsl_vector *arg7 = (gsl_vector *) 0 ;
7314 void *argp1 = 0 ;
7315 int res1 = 0 ;
7316 void *argp2 = 0 ;
7317 int res2 = 0 ;
7318 void *argp3 = 0 ;
7319 int res3 = 0 ;
7320 void *argp4 = 0 ;
7321 int res4 = 0 ;
7322 size_t val5 ;
7323 int ecode5 = 0 ;
7324 void *argp6 = 0 ;
7325 int res6 = 0 ;
7326 void *argp7 = 0 ;
7327 int res7 = 0 ;
7328 int argvi = 0;
7329 int result;
7330 dXSARGS;
7331
7332 if ((items < 7) || (items > 7)) {
7333 SWIG_croak("Usage: gsl_linalg_QRPT_lssolve2(QR,tau,p,b,rank,x,residual);");
7334 }
7335 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7336 if (!SWIG_IsOK(res1)) {
7337 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QRPT_lssolve2" "', argument " "1"" of type '" "gsl_matrix const *""'");
7338 }
7339 arg1 = (gsl_matrix *)(argp1);
7340 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
7341 if (!SWIG_IsOK(res2)) {
7342 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QRPT_lssolve2" "', argument " "2"" of type '" "gsl_vector const *""'");
7343 }
7344 arg2 = (gsl_vector *)(argp2);
7345 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
7346 if (!SWIG_IsOK(res3)) {
7347 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QRPT_lssolve2" "', argument " "3"" of type '" "gsl_permutation const *""'");
7348 }
7349 arg3 = (gsl_permutation *)(argp3);
7350 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
7351 if (!SWIG_IsOK(res4)) {
7352 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_QRPT_lssolve2" "', argument " "4"" of type '" "gsl_vector const *""'");
7353 }
7354 arg4 = (gsl_vector *)(argp4);
7355 ecode5 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(4), &val5);
7356 if (!SWIG_IsOK(ecode5)) {
7357 SWIG_exception_fail(SWIG_ArgError(ecode5), "in method '" "gsl_linalg_QRPT_lssolve2" "', argument " "5"" of type '" "size_t""'");
7358 }
7359 arg5 = (size_t)(val5);
7360 res6 = SWIG_ConvertPtr(ST(5), &argp6,SWIGTYPE_p_gsl_vector, 0 | 0 );
7361 if (!SWIG_IsOK(res6)) {
7362 SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_linalg_QRPT_lssolve2" "', argument " "6"" of type '" "gsl_vector *""'");
7363 }
7364 arg6 = (gsl_vector *)(argp6);
7365 res7 = SWIG_ConvertPtr(ST(6), &argp7,SWIGTYPE_p_gsl_vector, 0 | 0 );
7366 if (!SWIG_IsOK(res7)) {
7367 SWIG_exception_fail(SWIG_ArgError(res7), "in method '" "gsl_linalg_QRPT_lssolve2" "', argument " "7"" of type '" "gsl_vector *""'");
7368 }
7369 arg7 = (gsl_vector *)(argp7);
7370 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);
7371 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7372
7373
7374
7375
7376
7377
7378
7379 XSRETURN(argvi);
7380 fail:
7381
7382
7383
7384
7385
7386
7387
7388 SWIG_croak_null();
7389 }
7390 }
7391
7392
XS(_wrap_gsl_linalg_QRPT_svx)7393 XS(_wrap_gsl_linalg_QRPT_svx) {
7394 {
7395 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
7396 gsl_vector *arg2 = (gsl_vector *) 0 ;
7397 gsl_permutation *arg3 = (gsl_permutation *) 0 ;
7398 gsl_vector *arg4 = (gsl_vector *) 0 ;
7399 void *argp1 = 0 ;
7400 int res1 = 0 ;
7401 void *argp2 = 0 ;
7402 int res2 = 0 ;
7403 void *argp3 = 0 ;
7404 int res3 = 0 ;
7405 void *argp4 = 0 ;
7406 int res4 = 0 ;
7407 int argvi = 0;
7408 int result;
7409 dXSARGS;
7410
7411 if ((items < 4) || (items > 4)) {
7412 SWIG_croak("Usage: gsl_linalg_QRPT_svx(QR,tau,p,x);");
7413 }
7414 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7415 if (!SWIG_IsOK(res1)) {
7416 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QRPT_svx" "', argument " "1"" of type '" "gsl_matrix const *""'");
7417 }
7418 arg1 = (gsl_matrix *)(argp1);
7419 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
7420 if (!SWIG_IsOK(res2)) {
7421 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QRPT_svx" "', argument " "2"" of type '" "gsl_vector const *""'");
7422 }
7423 arg2 = (gsl_vector *)(argp2);
7424 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
7425 if (!SWIG_IsOK(res3)) {
7426 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QRPT_svx" "', argument " "3"" of type '" "gsl_permutation const *""'");
7427 }
7428 arg3 = (gsl_permutation *)(argp3);
7429 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
7430 if (!SWIG_IsOK(res4)) {
7431 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_QRPT_svx" "', argument " "4"" of type '" "gsl_vector *""'");
7432 }
7433 arg4 = (gsl_vector *)(argp4);
7434 result = (int)gsl_linalg_QRPT_svx((gsl_matrix const *)arg1,(gsl_vector const *)arg2,(struct gsl_permutation_struct const *)arg3,arg4);
7435 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7436
7437
7438
7439
7440 XSRETURN(argvi);
7441 fail:
7442
7443
7444
7445
7446 SWIG_croak_null();
7447 }
7448 }
7449
7450
XS(_wrap_gsl_linalg_QRPT_QRsolve)7451 XS(_wrap_gsl_linalg_QRPT_QRsolve) {
7452 {
7453 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
7454 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
7455 gsl_permutation *arg3 = (gsl_permutation *) 0 ;
7456 gsl_vector *arg4 = (gsl_vector *) 0 ;
7457 gsl_vector *arg5 = (gsl_vector *) 0 ;
7458 void *argp1 = 0 ;
7459 int res1 = 0 ;
7460 void *argp2 = 0 ;
7461 int res2 = 0 ;
7462 void *argp3 = 0 ;
7463 int res3 = 0 ;
7464 void *argp4 = 0 ;
7465 int res4 = 0 ;
7466 void *argp5 = 0 ;
7467 int res5 = 0 ;
7468 int argvi = 0;
7469 int result;
7470 dXSARGS;
7471
7472 if ((items < 5) || (items > 5)) {
7473 SWIG_croak("Usage: gsl_linalg_QRPT_QRsolve(Q,R,p,b,x);");
7474 }
7475 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7476 if (!SWIG_IsOK(res1)) {
7477 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QRPT_QRsolve" "', argument " "1"" of type '" "gsl_matrix const *""'");
7478 }
7479 arg1 = (gsl_matrix *)(argp1);
7480 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7481 if (!SWIG_IsOK(res2)) {
7482 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QRPT_QRsolve" "', argument " "2"" of type '" "gsl_matrix const *""'");
7483 }
7484 arg2 = (gsl_matrix *)(argp2);
7485 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
7486 if (!SWIG_IsOK(res3)) {
7487 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QRPT_QRsolve" "', argument " "3"" of type '" "gsl_permutation const *""'");
7488 }
7489 arg3 = (gsl_permutation *)(argp3);
7490 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
7491 if (!SWIG_IsOK(res4)) {
7492 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_QRPT_QRsolve" "', argument " "4"" of type '" "gsl_vector const *""'");
7493 }
7494 arg4 = (gsl_vector *)(argp4);
7495 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
7496 if (!SWIG_IsOK(res5)) {
7497 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_QRPT_QRsolve" "', argument " "5"" of type '" "gsl_vector *""'");
7498 }
7499 arg5 = (gsl_vector *)(argp5);
7500 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);
7501 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7502
7503
7504
7505
7506
7507 XSRETURN(argvi);
7508 fail:
7509
7510
7511
7512
7513
7514 SWIG_croak_null();
7515 }
7516 }
7517
7518
XS(_wrap_gsl_linalg_QRPT_Rsolve)7519 XS(_wrap_gsl_linalg_QRPT_Rsolve) {
7520 {
7521 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
7522 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
7523 gsl_vector *arg3 = (gsl_vector *) 0 ;
7524 gsl_vector *arg4 = (gsl_vector *) 0 ;
7525 void *argp1 = 0 ;
7526 int res1 = 0 ;
7527 void *argp2 = 0 ;
7528 int res2 = 0 ;
7529 void *argp3 = 0 ;
7530 int res3 = 0 ;
7531 void *argp4 = 0 ;
7532 int res4 = 0 ;
7533 int argvi = 0;
7534 int result;
7535 dXSARGS;
7536
7537 if ((items < 4) || (items > 4)) {
7538 SWIG_croak("Usage: gsl_linalg_QRPT_Rsolve(QR,p,b,x);");
7539 }
7540 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7541 if (!SWIG_IsOK(res1)) {
7542 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QRPT_Rsolve" "', argument " "1"" of type '" "gsl_matrix const *""'");
7543 }
7544 arg1 = (gsl_matrix *)(argp1);
7545 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
7546 if (!SWIG_IsOK(res2)) {
7547 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QRPT_Rsolve" "', argument " "2"" of type '" "gsl_permutation const *""'");
7548 }
7549 arg2 = (gsl_permutation *)(argp2);
7550 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
7551 if (!SWIG_IsOK(res3)) {
7552 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QRPT_Rsolve" "', argument " "3"" of type '" "gsl_vector const *""'");
7553 }
7554 arg3 = (gsl_vector *)(argp3);
7555 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
7556 if (!SWIG_IsOK(res4)) {
7557 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_QRPT_Rsolve" "', argument " "4"" of type '" "gsl_vector *""'");
7558 }
7559 arg4 = (gsl_vector *)(argp4);
7560 result = (int)gsl_linalg_QRPT_Rsolve((gsl_matrix const *)arg1,(struct gsl_permutation_struct const *)arg2,(gsl_vector const *)arg3,arg4);
7561 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7562
7563
7564
7565
7566 XSRETURN(argvi);
7567 fail:
7568
7569
7570
7571
7572 SWIG_croak_null();
7573 }
7574 }
7575
7576
XS(_wrap_gsl_linalg_QRPT_Rsvx)7577 XS(_wrap_gsl_linalg_QRPT_Rsvx) {
7578 {
7579 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
7580 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
7581 gsl_vector *arg3 = (gsl_vector *) 0 ;
7582 void *argp1 = 0 ;
7583 int res1 = 0 ;
7584 void *argp2 = 0 ;
7585 int res2 = 0 ;
7586 void *argp3 = 0 ;
7587 int res3 = 0 ;
7588 int argvi = 0;
7589 int result;
7590 dXSARGS;
7591
7592 if ((items < 3) || (items > 3)) {
7593 SWIG_croak("Usage: gsl_linalg_QRPT_Rsvx(QR,p,x);");
7594 }
7595 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7596 if (!SWIG_IsOK(res1)) {
7597 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QRPT_Rsvx" "', argument " "1"" of type '" "gsl_matrix const *""'");
7598 }
7599 arg1 = (gsl_matrix *)(argp1);
7600 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
7601 if (!SWIG_IsOK(res2)) {
7602 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QRPT_Rsvx" "', argument " "2"" of type '" "gsl_permutation const *""'");
7603 }
7604 arg2 = (gsl_permutation *)(argp2);
7605 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
7606 if (!SWIG_IsOK(res3)) {
7607 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QRPT_Rsvx" "', argument " "3"" of type '" "gsl_vector *""'");
7608 }
7609 arg3 = (gsl_vector *)(argp3);
7610 result = (int)gsl_linalg_QRPT_Rsvx((gsl_matrix const *)arg1,(struct gsl_permutation_struct const *)arg2,arg3);
7611 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7612
7613
7614
7615 XSRETURN(argvi);
7616 fail:
7617
7618
7619
7620 SWIG_croak_null();
7621 }
7622 }
7623
7624
XS(_wrap_gsl_linalg_QRPT_update)7625 XS(_wrap_gsl_linalg_QRPT_update) {
7626 {
7627 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
7628 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
7629 gsl_permutation *arg3 = (gsl_permutation *) 0 ;
7630 gsl_vector *arg4 = (gsl_vector *) 0 ;
7631 gsl_vector *arg5 = (gsl_vector *) 0 ;
7632 void *argp1 = 0 ;
7633 int res1 = 0 ;
7634 void *argp2 = 0 ;
7635 int res2 = 0 ;
7636 void *argp3 = 0 ;
7637 int res3 = 0 ;
7638 void *argp4 = 0 ;
7639 int res4 = 0 ;
7640 void *argp5 = 0 ;
7641 int res5 = 0 ;
7642 int argvi = 0;
7643 int result;
7644 dXSARGS;
7645
7646 if ((items < 5) || (items > 5)) {
7647 SWIG_croak("Usage: gsl_linalg_QRPT_update(Q,R,p,u,v);");
7648 }
7649 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7650 if (!SWIG_IsOK(res1)) {
7651 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QRPT_update" "', argument " "1"" of type '" "gsl_matrix *""'");
7652 }
7653 arg1 = (gsl_matrix *)(argp1);
7654 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7655 if (!SWIG_IsOK(res2)) {
7656 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QRPT_update" "', argument " "2"" of type '" "gsl_matrix *""'");
7657 }
7658 arg2 = (gsl_matrix *)(argp2);
7659 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
7660 if (!SWIG_IsOK(res3)) {
7661 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QRPT_update" "', argument " "3"" of type '" "gsl_permutation const *""'");
7662 }
7663 arg3 = (gsl_permutation *)(argp3);
7664 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
7665 if (!SWIG_IsOK(res4)) {
7666 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_QRPT_update" "', argument " "4"" of type '" "gsl_vector *""'");
7667 }
7668 arg4 = (gsl_vector *)(argp4);
7669 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
7670 if (!SWIG_IsOK(res5)) {
7671 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_QRPT_update" "', argument " "5"" of type '" "gsl_vector const *""'");
7672 }
7673 arg5 = (gsl_vector *)(argp5);
7674 result = (int)gsl_linalg_QRPT_update(arg1,arg2,(struct gsl_permutation_struct const *)arg3,arg4,(gsl_vector const *)arg5);
7675 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7676
7677
7678
7679
7680
7681 XSRETURN(argvi);
7682 fail:
7683
7684
7685
7686
7687
7688 SWIG_croak_null();
7689 }
7690 }
7691
7692
XS(_wrap_gsl_linalg_QRPT_rank)7693 XS(_wrap_gsl_linalg_QRPT_rank) {
7694 {
7695 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
7696 double arg2 ;
7697 void *argp1 = 0 ;
7698 int res1 = 0 ;
7699 double val2 ;
7700 int ecode2 = 0 ;
7701 int argvi = 0;
7702 size_t result;
7703 dXSARGS;
7704
7705 if ((items < 2) || (items > 2)) {
7706 SWIG_croak("Usage: gsl_linalg_QRPT_rank(QR,tol);");
7707 }
7708 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7709 if (!SWIG_IsOK(res1)) {
7710 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QRPT_rank" "', argument " "1"" of type '" "gsl_matrix const *""'");
7711 }
7712 arg1 = (gsl_matrix *)(argp1);
7713 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
7714 if (!SWIG_IsOK(ecode2)) {
7715 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_linalg_QRPT_rank" "', argument " "2"" of type '" "double""'");
7716 }
7717 arg2 = (double)(val2);
7718 result = gsl_linalg_QRPT_rank((gsl_matrix const *)arg1,arg2);
7719 ST(argvi) = SWIG_From_size_t SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
7720
7721
7722 XSRETURN(argvi);
7723 fail:
7724
7725
7726 SWIG_croak_null();
7727 }
7728 }
7729
7730
XS(_wrap_gsl_linalg_QRPT_rcond)7731 XS(_wrap_gsl_linalg_QRPT_rcond) {
7732 {
7733 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
7734 double *arg2 = (double *) 0 ;
7735 gsl_vector *arg3 = (gsl_vector *) 0 ;
7736 void *argp1 = 0 ;
7737 int res1 = 0 ;
7738 void *argp2 = 0 ;
7739 int res2 = 0 ;
7740 void *argp3 = 0 ;
7741 int res3 = 0 ;
7742 int argvi = 0;
7743 int result;
7744 dXSARGS;
7745
7746 if ((items < 3) || (items > 3)) {
7747 SWIG_croak("Usage: gsl_linalg_QRPT_rcond(QR,rcond,work);");
7748 }
7749 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7750 if (!SWIG_IsOK(res1)) {
7751 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QRPT_rcond" "', argument " "1"" of type '" "gsl_matrix const *""'");
7752 }
7753 arg1 = (gsl_matrix *)(argp1);
7754 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_double, 0 | 0 );
7755 if (!SWIG_IsOK(res2)) {
7756 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QRPT_rcond" "', argument " "2"" of type '" "double *""'");
7757 }
7758 arg2 = (double *)(argp2);
7759 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
7760 if (!SWIG_IsOK(res3)) {
7761 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QRPT_rcond" "', argument " "3"" of type '" "gsl_vector *""'");
7762 }
7763 arg3 = (gsl_vector *)(argp3);
7764 result = (int)gsl_linalg_QRPT_rcond((gsl_matrix const *)arg1,arg2,arg3);
7765 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7766
7767
7768
7769 XSRETURN(argvi);
7770 fail:
7771
7772
7773
7774 SWIG_croak_null();
7775 }
7776 }
7777
7778
XS(_wrap_gsl_linalg_QR_UD_decomp)7779 XS(_wrap_gsl_linalg_QR_UD_decomp) {
7780 {
7781 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
7782 gsl_vector *arg2 = (gsl_vector *) 0 ;
7783 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
7784 gsl_matrix *arg4 = (gsl_matrix *) 0 ;
7785 void *argp1 = 0 ;
7786 int res1 = 0 ;
7787 void *argp2 = 0 ;
7788 int res2 = 0 ;
7789 void *argp3 = 0 ;
7790 int res3 = 0 ;
7791 void *argp4 = 0 ;
7792 int res4 = 0 ;
7793 int argvi = 0;
7794 int result;
7795 dXSARGS;
7796
7797 if ((items < 4) || (items > 4)) {
7798 SWIG_croak("Usage: gsl_linalg_QR_UD_decomp(U,D,Y,T);");
7799 }
7800 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7801 if (!SWIG_IsOK(res1)) {
7802 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QR_UD_decomp" "', argument " "1"" of type '" "gsl_matrix *""'");
7803 }
7804 arg1 = (gsl_matrix *)(argp1);
7805 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
7806 if (!SWIG_IsOK(res2)) {
7807 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QR_UD_decomp" "', argument " "2"" of type '" "gsl_vector const *""'");
7808 }
7809 arg2 = (gsl_vector *)(argp2);
7810 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7811 if (!SWIG_IsOK(res3)) {
7812 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QR_UD_decomp" "', argument " "3"" of type '" "gsl_matrix *""'");
7813 }
7814 arg3 = (gsl_matrix *)(argp3);
7815 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7816 if (!SWIG_IsOK(res4)) {
7817 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_QR_UD_decomp" "', argument " "4"" of type '" "gsl_matrix *""'");
7818 }
7819 arg4 = (gsl_matrix *)(argp4);
7820 result = (int)gsl_linalg_QR_UD_decomp(arg1,(gsl_vector const *)arg2,arg3,arg4);
7821 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7822
7823
7824
7825
7826 XSRETURN(argvi);
7827 fail:
7828
7829
7830
7831
7832 SWIG_croak_null();
7833 }
7834 }
7835
7836
XS(_wrap_gsl_linalg_QR_UD_lssolve)7837 XS(_wrap_gsl_linalg_QR_UD_lssolve) {
7838 {
7839 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
7840 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
7841 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
7842 gsl_vector *arg4 = (gsl_vector *) 0 ;
7843 gsl_vector *arg5 = (gsl_vector *) 0 ;
7844 gsl_vector *arg6 = (gsl_vector *) 0 ;
7845 void *argp1 = 0 ;
7846 int res1 = 0 ;
7847 void *argp2 = 0 ;
7848 int res2 = 0 ;
7849 void *argp3 = 0 ;
7850 int res3 = 0 ;
7851 void *argp4 = 0 ;
7852 int res4 = 0 ;
7853 void *argp5 = 0 ;
7854 int res5 = 0 ;
7855 void *argp6 = 0 ;
7856 int res6 = 0 ;
7857 int argvi = 0;
7858 int result;
7859 dXSARGS;
7860
7861 if ((items < 6) || (items > 6)) {
7862 SWIG_croak("Usage: gsl_linalg_QR_UD_lssolve(R,Y,T,b,x,work);");
7863 }
7864 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7865 if (!SWIG_IsOK(res1)) {
7866 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QR_UD_lssolve" "', argument " "1"" of type '" "gsl_matrix const *""'");
7867 }
7868 arg1 = (gsl_matrix *)(argp1);
7869 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7870 if (!SWIG_IsOK(res2)) {
7871 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QR_UD_lssolve" "', argument " "2"" of type '" "gsl_matrix const *""'");
7872 }
7873 arg2 = (gsl_matrix *)(argp2);
7874 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7875 if (!SWIG_IsOK(res3)) {
7876 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QR_UD_lssolve" "', argument " "3"" of type '" "gsl_matrix const *""'");
7877 }
7878 arg3 = (gsl_matrix *)(argp3);
7879 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
7880 if (!SWIG_IsOK(res4)) {
7881 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_QR_UD_lssolve" "', argument " "4"" of type '" "gsl_vector const *""'");
7882 }
7883 arg4 = (gsl_vector *)(argp4);
7884 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
7885 if (!SWIG_IsOK(res5)) {
7886 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_QR_UD_lssolve" "', argument " "5"" of type '" "gsl_vector *""'");
7887 }
7888 arg5 = (gsl_vector *)(argp5);
7889 res6 = SWIG_ConvertPtr(ST(5), &argp6,SWIGTYPE_p_gsl_vector, 0 | 0 );
7890 if (!SWIG_IsOK(res6)) {
7891 SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_linalg_QR_UD_lssolve" "', argument " "6"" of type '" "gsl_vector *""'");
7892 }
7893 arg6 = (gsl_vector *)(argp6);
7894 result = (int)gsl_linalg_QR_UD_lssolve((gsl_matrix const *)arg1,(gsl_matrix const *)arg2,(gsl_matrix const *)arg3,(gsl_vector const *)arg4,arg5,arg6);
7895 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7896
7897
7898
7899
7900
7901
7902 XSRETURN(argvi);
7903 fail:
7904
7905
7906
7907
7908
7909
7910 SWIG_croak_null();
7911 }
7912 }
7913
7914
XS(_wrap_gsl_linalg_QR_UR_decomp)7915 XS(_wrap_gsl_linalg_QR_UR_decomp) {
7916 {
7917 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
7918 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
7919 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
7920 void *argp1 = 0 ;
7921 int res1 = 0 ;
7922 void *argp2 = 0 ;
7923 int res2 = 0 ;
7924 void *argp3 = 0 ;
7925 int res3 = 0 ;
7926 int argvi = 0;
7927 int result;
7928 dXSARGS;
7929
7930 if ((items < 3) || (items > 3)) {
7931 SWIG_croak("Usage: gsl_linalg_QR_UR_decomp(S,A,T);");
7932 }
7933 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7934 if (!SWIG_IsOK(res1)) {
7935 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QR_UR_decomp" "', argument " "1"" of type '" "gsl_matrix *""'");
7936 }
7937 arg1 = (gsl_matrix *)(argp1);
7938 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7939 if (!SWIG_IsOK(res2)) {
7940 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QR_UR_decomp" "', argument " "2"" of type '" "gsl_matrix *""'");
7941 }
7942 arg2 = (gsl_matrix *)(argp2);
7943 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7944 if (!SWIG_IsOK(res3)) {
7945 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QR_UR_decomp" "', argument " "3"" of type '" "gsl_matrix *""'");
7946 }
7947 arg3 = (gsl_matrix *)(argp3);
7948 result = (int)gsl_linalg_QR_UR_decomp(arg1,arg2,arg3);
7949 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7950
7951
7952
7953 XSRETURN(argvi);
7954 fail:
7955
7956
7957
7958 SWIG_croak_null();
7959 }
7960 }
7961
7962
XS(_wrap_gsl_linalg_QR_UU_decomp)7963 XS(_wrap_gsl_linalg_QR_UU_decomp) {
7964 {
7965 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
7966 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
7967 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
7968 void *argp1 = 0 ;
7969 int res1 = 0 ;
7970 void *argp2 = 0 ;
7971 int res2 = 0 ;
7972 void *argp3 = 0 ;
7973 int res3 = 0 ;
7974 int argvi = 0;
7975 int result;
7976 dXSARGS;
7977
7978 if ((items < 3) || (items > 3)) {
7979 SWIG_croak("Usage: gsl_linalg_QR_UU_decomp(U,S,T);");
7980 }
7981 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7982 if (!SWIG_IsOK(res1)) {
7983 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QR_UU_decomp" "', argument " "1"" of type '" "gsl_matrix *""'");
7984 }
7985 arg1 = (gsl_matrix *)(argp1);
7986 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7987 if (!SWIG_IsOK(res2)) {
7988 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QR_UU_decomp" "', argument " "2"" of type '" "gsl_matrix *""'");
7989 }
7990 arg2 = (gsl_matrix *)(argp2);
7991 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7992 if (!SWIG_IsOK(res3)) {
7993 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QR_UU_decomp" "', argument " "3"" of type '" "gsl_matrix *""'");
7994 }
7995 arg3 = (gsl_matrix *)(argp3);
7996 result = (int)gsl_linalg_QR_UU_decomp(arg1,arg2,arg3);
7997 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7998
7999
8000
8001 XSRETURN(argvi);
8002 fail:
8003
8004
8005
8006 SWIG_croak_null();
8007 }
8008 }
8009
8010
XS(_wrap_gsl_linalg_QR_UU_lssolve)8011 XS(_wrap_gsl_linalg_QR_UU_lssolve) {
8012 {
8013 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
8014 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
8015 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
8016 gsl_vector *arg4 = (gsl_vector *) 0 ;
8017 gsl_vector *arg5 = (gsl_vector *) 0 ;
8018 gsl_vector *arg6 = (gsl_vector *) 0 ;
8019 void *argp1 = 0 ;
8020 int res1 = 0 ;
8021 void *argp2 = 0 ;
8022 int res2 = 0 ;
8023 void *argp3 = 0 ;
8024 int res3 = 0 ;
8025 void *argp4 = 0 ;
8026 int res4 = 0 ;
8027 void *argp5 = 0 ;
8028 int res5 = 0 ;
8029 void *argp6 = 0 ;
8030 int res6 = 0 ;
8031 int argvi = 0;
8032 int result;
8033 dXSARGS;
8034
8035 if ((items < 6) || (items > 6)) {
8036 SWIG_croak("Usage: gsl_linalg_QR_UU_lssolve(R,Y,T,b,x,work);");
8037 }
8038 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
8039 if (!SWIG_IsOK(res1)) {
8040 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QR_UU_lssolve" "', argument " "1"" of type '" "gsl_matrix const *""'");
8041 }
8042 arg1 = (gsl_matrix *)(argp1);
8043 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
8044 if (!SWIG_IsOK(res2)) {
8045 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QR_UU_lssolve" "', argument " "2"" of type '" "gsl_matrix const *""'");
8046 }
8047 arg2 = (gsl_matrix *)(argp2);
8048 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
8049 if (!SWIG_IsOK(res3)) {
8050 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QR_UU_lssolve" "', argument " "3"" of type '" "gsl_matrix const *""'");
8051 }
8052 arg3 = (gsl_matrix *)(argp3);
8053 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
8054 if (!SWIG_IsOK(res4)) {
8055 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_QR_UU_lssolve" "', argument " "4"" of type '" "gsl_vector const *""'");
8056 }
8057 arg4 = (gsl_vector *)(argp4);
8058 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
8059 if (!SWIG_IsOK(res5)) {
8060 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_QR_UU_lssolve" "', argument " "5"" of type '" "gsl_vector *""'");
8061 }
8062 arg5 = (gsl_vector *)(argp5);
8063 res6 = SWIG_ConvertPtr(ST(5), &argp6,SWIGTYPE_p_gsl_vector, 0 | 0 );
8064 if (!SWIG_IsOK(res6)) {
8065 SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_linalg_QR_UU_lssolve" "', argument " "6"" of type '" "gsl_vector *""'");
8066 }
8067 arg6 = (gsl_vector *)(argp6);
8068 result = (int)gsl_linalg_QR_UU_lssolve((gsl_matrix const *)arg1,(gsl_matrix const *)arg2,(gsl_matrix const *)arg3,(gsl_vector const *)arg4,arg5,arg6);
8069 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8070
8071
8072
8073
8074
8075
8076 XSRETURN(argvi);
8077 fail:
8078
8079
8080
8081
8082
8083
8084 SWIG_croak_null();
8085 }
8086 }
8087
8088
XS(_wrap_gsl_linalg_QR_UU_QTvec)8089 XS(_wrap_gsl_linalg_QR_UU_QTvec) {
8090 {
8091 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
8092 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
8093 gsl_vector *arg3 = (gsl_vector *) 0 ;
8094 gsl_vector *arg4 = (gsl_vector *) 0 ;
8095 void *argp1 = 0 ;
8096 int res1 = 0 ;
8097 void *argp2 = 0 ;
8098 int res2 = 0 ;
8099 void *argp3 = 0 ;
8100 int res3 = 0 ;
8101 void *argp4 = 0 ;
8102 int res4 = 0 ;
8103 int argvi = 0;
8104 int result;
8105 dXSARGS;
8106
8107 if ((items < 4) || (items > 4)) {
8108 SWIG_croak("Usage: gsl_linalg_QR_UU_QTvec(Y,T,b,work);");
8109 }
8110 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
8111 if (!SWIG_IsOK(res1)) {
8112 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QR_UU_QTvec" "', argument " "1"" of type '" "gsl_matrix const *""'");
8113 }
8114 arg1 = (gsl_matrix *)(argp1);
8115 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
8116 if (!SWIG_IsOK(res2)) {
8117 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QR_UU_QTvec" "', argument " "2"" of type '" "gsl_matrix const *""'");
8118 }
8119 arg2 = (gsl_matrix *)(argp2);
8120 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
8121 if (!SWIG_IsOK(res3)) {
8122 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QR_UU_QTvec" "', argument " "3"" of type '" "gsl_vector *""'");
8123 }
8124 arg3 = (gsl_vector *)(argp3);
8125 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
8126 if (!SWIG_IsOK(res4)) {
8127 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_QR_UU_QTvec" "', argument " "4"" of type '" "gsl_vector *""'");
8128 }
8129 arg4 = (gsl_vector *)(argp4);
8130 result = (int)gsl_linalg_QR_UU_QTvec((gsl_matrix const *)arg1,(gsl_matrix const *)arg2,arg3,arg4);
8131 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8132
8133
8134
8135
8136 XSRETURN(argvi);
8137 fail:
8138
8139
8140
8141
8142 SWIG_croak_null();
8143 }
8144 }
8145
8146
XS(_wrap_gsl_linalg_QR_UZ_decomp)8147 XS(_wrap_gsl_linalg_QR_UZ_decomp) {
8148 {
8149 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
8150 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
8151 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
8152 void *argp1 = 0 ;
8153 int res1 = 0 ;
8154 void *argp2 = 0 ;
8155 int res2 = 0 ;
8156 void *argp3 = 0 ;
8157 int res3 = 0 ;
8158 int argvi = 0;
8159 int result;
8160 dXSARGS;
8161
8162 if ((items < 3) || (items > 3)) {
8163 SWIG_croak("Usage: gsl_linalg_QR_UZ_decomp(S,A,T);");
8164 }
8165 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
8166 if (!SWIG_IsOK(res1)) {
8167 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QR_UZ_decomp" "', argument " "1"" of type '" "gsl_matrix *""'");
8168 }
8169 arg1 = (gsl_matrix *)(argp1);
8170 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
8171 if (!SWIG_IsOK(res2)) {
8172 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QR_UZ_decomp" "', argument " "2"" of type '" "gsl_matrix *""'");
8173 }
8174 arg2 = (gsl_matrix *)(argp2);
8175 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
8176 if (!SWIG_IsOK(res3)) {
8177 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QR_UZ_decomp" "', argument " "3"" of type '" "gsl_matrix *""'");
8178 }
8179 arg3 = (gsl_matrix *)(argp3);
8180 result = (int)gsl_linalg_QR_UZ_decomp(arg1,arg2,arg3);
8181 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8182
8183
8184
8185 XSRETURN(argvi);
8186 fail:
8187
8188
8189
8190 SWIG_croak_null();
8191 }
8192 }
8193
8194
XS(_wrap_gsl_linalg_QL_decomp)8195 XS(_wrap_gsl_linalg_QL_decomp) {
8196 {
8197 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
8198 gsl_vector *arg2 = (gsl_vector *) 0 ;
8199 void *argp1 = 0 ;
8200 int res1 = 0 ;
8201 void *argp2 = 0 ;
8202 int res2 = 0 ;
8203 int argvi = 0;
8204 int result;
8205 dXSARGS;
8206
8207 if ((items < 2) || (items > 2)) {
8208 SWIG_croak("Usage: gsl_linalg_QL_decomp(A,tau);");
8209 }
8210 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
8211 if (!SWIG_IsOK(res1)) {
8212 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QL_decomp" "', argument " "1"" of type '" "gsl_matrix *""'");
8213 }
8214 arg1 = (gsl_matrix *)(argp1);
8215 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
8216 if (!SWIG_IsOK(res2)) {
8217 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QL_decomp" "', argument " "2"" of type '" "gsl_vector *""'");
8218 }
8219 arg2 = (gsl_vector *)(argp2);
8220 result = (int)gsl_linalg_QL_decomp(arg1,arg2);
8221 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8222
8223
8224 XSRETURN(argvi);
8225 fail:
8226
8227
8228 SWIG_croak_null();
8229 }
8230 }
8231
8232
XS(_wrap_gsl_linalg_QL_unpack)8233 XS(_wrap_gsl_linalg_QL_unpack) {
8234 {
8235 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
8236 gsl_vector *arg2 = (gsl_vector *) 0 ;
8237 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
8238 gsl_matrix *arg4 = (gsl_matrix *) 0 ;
8239 void *argp1 = 0 ;
8240 int res1 = 0 ;
8241 void *argp2 = 0 ;
8242 int res2 = 0 ;
8243 void *argp3 = 0 ;
8244 int res3 = 0 ;
8245 void *argp4 = 0 ;
8246 int res4 = 0 ;
8247 int argvi = 0;
8248 int result;
8249 dXSARGS;
8250
8251 if ((items < 4) || (items > 4)) {
8252 SWIG_croak("Usage: gsl_linalg_QL_unpack(QL,tau,Q,L);");
8253 }
8254 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
8255 if (!SWIG_IsOK(res1)) {
8256 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QL_unpack" "', argument " "1"" of type '" "gsl_matrix const *""'");
8257 }
8258 arg1 = (gsl_matrix *)(argp1);
8259 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
8260 if (!SWIG_IsOK(res2)) {
8261 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QL_unpack" "', argument " "2"" of type '" "gsl_vector const *""'");
8262 }
8263 arg2 = (gsl_vector *)(argp2);
8264 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
8265 if (!SWIG_IsOK(res3)) {
8266 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QL_unpack" "', argument " "3"" of type '" "gsl_matrix *""'");
8267 }
8268 arg3 = (gsl_matrix *)(argp3);
8269 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_matrix, 0 | 0 );
8270 if (!SWIG_IsOK(res4)) {
8271 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_QL_unpack" "', argument " "4"" of type '" "gsl_matrix *""'");
8272 }
8273 arg4 = (gsl_matrix *)(argp4);
8274 result = (int)gsl_linalg_QL_unpack((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3,arg4);
8275 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8276
8277
8278
8279
8280 XSRETURN(argvi);
8281 fail:
8282
8283
8284
8285
8286 SWIG_croak_null();
8287 }
8288 }
8289
8290
XS(_wrap_gsl_linalg_COD_decomp)8291 XS(_wrap_gsl_linalg_COD_decomp) {
8292 {
8293 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
8294 gsl_vector *arg2 = (gsl_vector *) 0 ;
8295 gsl_vector *arg3 = (gsl_vector *) 0 ;
8296 gsl_permutation *arg4 = (gsl_permutation *) 0 ;
8297 size_t *arg5 = (size_t *) 0 ;
8298 gsl_vector *arg6 = (gsl_vector *) 0 ;
8299 void *argp1 = 0 ;
8300 int res1 = 0 ;
8301 void *argp2 = 0 ;
8302 int res2 = 0 ;
8303 void *argp3 = 0 ;
8304 int res3 = 0 ;
8305 void *argp4 = 0 ;
8306 int res4 = 0 ;
8307 void *argp5 = 0 ;
8308 int res5 = 0 ;
8309 void *argp6 = 0 ;
8310 int res6 = 0 ;
8311 int argvi = 0;
8312 int result;
8313 dXSARGS;
8314
8315 if ((items < 6) || (items > 6)) {
8316 SWIG_croak("Usage: gsl_linalg_COD_decomp(A,tau_Q,tau_Z,p,rank,work);");
8317 }
8318 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
8319 if (!SWIG_IsOK(res1)) {
8320 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_COD_decomp" "', argument " "1"" of type '" "gsl_matrix *""'");
8321 }
8322 arg1 = (gsl_matrix *)(argp1);
8323 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
8324 if (!SWIG_IsOK(res2)) {
8325 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_COD_decomp" "', argument " "2"" of type '" "gsl_vector *""'");
8326 }
8327 arg2 = (gsl_vector *)(argp2);
8328 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
8329 if (!SWIG_IsOK(res3)) {
8330 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_COD_decomp" "', argument " "3"" of type '" "gsl_vector *""'");
8331 }
8332 arg3 = (gsl_vector *)(argp3);
8333 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
8334 if (!SWIG_IsOK(res4)) {
8335 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_COD_decomp" "', argument " "4"" of type '" "gsl_permutation *""'");
8336 }
8337 arg4 = (gsl_permutation *)(argp4);
8338 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_size_t, 0 | 0 );
8339 if (!SWIG_IsOK(res5)) {
8340 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_COD_decomp" "', argument " "5"" of type '" "size_t *""'");
8341 }
8342 arg5 = (size_t *)(argp5);
8343 res6 = SWIG_ConvertPtr(ST(5), &argp6,SWIGTYPE_p_gsl_vector, 0 | 0 );
8344 if (!SWIG_IsOK(res6)) {
8345 SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_linalg_COD_decomp" "', argument " "6"" of type '" "gsl_vector *""'");
8346 }
8347 arg6 = (gsl_vector *)(argp6);
8348 result = (int)gsl_linalg_COD_decomp(arg1,arg2,arg3,arg4,arg5,arg6);
8349 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8350
8351
8352
8353
8354
8355
8356 XSRETURN(argvi);
8357 fail:
8358
8359
8360
8361
8362
8363
8364 SWIG_croak_null();
8365 }
8366 }
8367
8368
XS(_wrap_gsl_linalg_COD_decomp_e)8369 XS(_wrap_gsl_linalg_COD_decomp_e) {
8370 {
8371 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
8372 gsl_vector *arg2 = (gsl_vector *) 0 ;
8373 gsl_vector *arg3 = (gsl_vector *) 0 ;
8374 gsl_permutation *arg4 = (gsl_permutation *) 0 ;
8375 double arg5 ;
8376 size_t *arg6 = (size_t *) 0 ;
8377 gsl_vector *arg7 = (gsl_vector *) 0 ;
8378 void *argp1 = 0 ;
8379 int res1 = 0 ;
8380 void *argp2 = 0 ;
8381 int res2 = 0 ;
8382 void *argp3 = 0 ;
8383 int res3 = 0 ;
8384 void *argp4 = 0 ;
8385 int res4 = 0 ;
8386 double val5 ;
8387 int ecode5 = 0 ;
8388 void *argp6 = 0 ;
8389 int res6 = 0 ;
8390 void *argp7 = 0 ;
8391 int res7 = 0 ;
8392 int argvi = 0;
8393 int result;
8394 dXSARGS;
8395
8396 if ((items < 7) || (items > 7)) {
8397 SWIG_croak("Usage: gsl_linalg_COD_decomp_e(A,tau_Q,tau_Z,p,tol,rank,work);");
8398 }
8399 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
8400 if (!SWIG_IsOK(res1)) {
8401 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_COD_decomp_e" "', argument " "1"" of type '" "gsl_matrix *""'");
8402 }
8403 arg1 = (gsl_matrix *)(argp1);
8404 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
8405 if (!SWIG_IsOK(res2)) {
8406 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_COD_decomp_e" "', argument " "2"" of type '" "gsl_vector *""'");
8407 }
8408 arg2 = (gsl_vector *)(argp2);
8409 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
8410 if (!SWIG_IsOK(res3)) {
8411 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_COD_decomp_e" "', argument " "3"" of type '" "gsl_vector *""'");
8412 }
8413 arg3 = (gsl_vector *)(argp3);
8414 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
8415 if (!SWIG_IsOK(res4)) {
8416 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_COD_decomp_e" "', argument " "4"" of type '" "gsl_permutation *""'");
8417 }
8418 arg4 = (gsl_permutation *)(argp4);
8419 ecode5 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(4), &val5);
8420 if (!SWIG_IsOK(ecode5)) {
8421 SWIG_exception_fail(SWIG_ArgError(ecode5), "in method '" "gsl_linalg_COD_decomp_e" "', argument " "5"" of type '" "double""'");
8422 }
8423 arg5 = (double)(val5);
8424 res6 = SWIG_ConvertPtr(ST(5), &argp6,SWIGTYPE_p_size_t, 0 | 0 );
8425 if (!SWIG_IsOK(res6)) {
8426 SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_linalg_COD_decomp_e" "', argument " "6"" of type '" "size_t *""'");
8427 }
8428 arg6 = (size_t *)(argp6);
8429 res7 = SWIG_ConvertPtr(ST(6), &argp7,SWIGTYPE_p_gsl_vector, 0 | 0 );
8430 if (!SWIG_IsOK(res7)) {
8431 SWIG_exception_fail(SWIG_ArgError(res7), "in method '" "gsl_linalg_COD_decomp_e" "', argument " "7"" of type '" "gsl_vector *""'");
8432 }
8433 arg7 = (gsl_vector *)(argp7);
8434 result = (int)gsl_linalg_COD_decomp_e(arg1,arg2,arg3,arg4,arg5,arg6,arg7);
8435 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8436
8437
8438
8439
8440
8441
8442
8443 XSRETURN(argvi);
8444 fail:
8445
8446
8447
8448
8449
8450
8451
8452 SWIG_croak_null();
8453 }
8454 }
8455
8456
XS(_wrap_gsl_linalg_COD_lssolve)8457 XS(_wrap_gsl_linalg_COD_lssolve) {
8458 {
8459 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
8460 gsl_vector *arg2 = (gsl_vector *) 0 ;
8461 gsl_vector *arg3 = (gsl_vector *) 0 ;
8462 gsl_permutation *arg4 = (gsl_permutation *) 0 ;
8463 size_t arg5 ;
8464 gsl_vector *arg6 = (gsl_vector *) 0 ;
8465 gsl_vector *arg7 = (gsl_vector *) 0 ;
8466 gsl_vector *arg8 = (gsl_vector *) 0 ;
8467 void *argp1 = 0 ;
8468 int res1 = 0 ;
8469 void *argp2 = 0 ;
8470 int res2 = 0 ;
8471 void *argp3 = 0 ;
8472 int res3 = 0 ;
8473 void *argp4 = 0 ;
8474 int res4 = 0 ;
8475 size_t val5 ;
8476 int ecode5 = 0 ;
8477 void *argp6 = 0 ;
8478 int res6 = 0 ;
8479 void *argp7 = 0 ;
8480 int res7 = 0 ;
8481 void *argp8 = 0 ;
8482 int res8 = 0 ;
8483 int argvi = 0;
8484 int result;
8485 dXSARGS;
8486
8487 if ((items < 8) || (items > 8)) {
8488 SWIG_croak("Usage: gsl_linalg_COD_lssolve(QRZT,tau_Q,tau_Z,perm,rank,b,x,residual);");
8489 }
8490 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
8491 if (!SWIG_IsOK(res1)) {
8492 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_COD_lssolve" "', argument " "1"" of type '" "gsl_matrix const *""'");
8493 }
8494 arg1 = (gsl_matrix *)(argp1);
8495 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
8496 if (!SWIG_IsOK(res2)) {
8497 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_COD_lssolve" "', argument " "2"" of type '" "gsl_vector const *""'");
8498 }
8499 arg2 = (gsl_vector *)(argp2);
8500 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
8501 if (!SWIG_IsOK(res3)) {
8502 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_COD_lssolve" "', argument " "3"" of type '" "gsl_vector const *""'");
8503 }
8504 arg3 = (gsl_vector *)(argp3);
8505 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
8506 if (!SWIG_IsOK(res4)) {
8507 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_COD_lssolve" "', argument " "4"" of type '" "gsl_permutation const *""'");
8508 }
8509 arg4 = (gsl_permutation *)(argp4);
8510 ecode5 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(4), &val5);
8511 if (!SWIG_IsOK(ecode5)) {
8512 SWIG_exception_fail(SWIG_ArgError(ecode5), "in method '" "gsl_linalg_COD_lssolve" "', argument " "5"" of type '" "size_t""'");
8513 }
8514 arg5 = (size_t)(val5);
8515 res6 = SWIG_ConvertPtr(ST(5), &argp6,SWIGTYPE_p_gsl_vector, 0 | 0 );
8516 if (!SWIG_IsOK(res6)) {
8517 SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_linalg_COD_lssolve" "', argument " "6"" of type '" "gsl_vector const *""'");
8518 }
8519 arg6 = (gsl_vector *)(argp6);
8520 res7 = SWIG_ConvertPtr(ST(6), &argp7,SWIGTYPE_p_gsl_vector, 0 | 0 );
8521 if (!SWIG_IsOK(res7)) {
8522 SWIG_exception_fail(SWIG_ArgError(res7), "in method '" "gsl_linalg_COD_lssolve" "', argument " "7"" of type '" "gsl_vector *""'");
8523 }
8524 arg7 = (gsl_vector *)(argp7);
8525 res8 = SWIG_ConvertPtr(ST(7), &argp8,SWIGTYPE_p_gsl_vector, 0 | 0 );
8526 if (!SWIG_IsOK(res8)) {
8527 SWIG_exception_fail(SWIG_ArgError(res8), "in method '" "gsl_linalg_COD_lssolve" "', argument " "8"" of type '" "gsl_vector *""'");
8528 }
8529 arg8 = (gsl_vector *)(argp8);
8530 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);
8531 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8532
8533
8534
8535
8536
8537
8538
8539
8540 XSRETURN(argvi);
8541 fail:
8542
8543
8544
8545
8546
8547
8548
8549
8550 SWIG_croak_null();
8551 }
8552 }
8553
8554
XS(_wrap_gsl_linalg_COD_lssolve2)8555 XS(_wrap_gsl_linalg_COD_lssolve2) {
8556 {
8557 double arg1 ;
8558 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
8559 gsl_vector *arg3 = (gsl_vector *) 0 ;
8560 gsl_vector *arg4 = (gsl_vector *) 0 ;
8561 gsl_permutation *arg5 = (gsl_permutation *) 0 ;
8562 size_t arg6 ;
8563 gsl_vector *arg7 = (gsl_vector *) 0 ;
8564 gsl_vector *arg8 = (gsl_vector *) 0 ;
8565 gsl_vector *arg9 = (gsl_vector *) 0 ;
8566 gsl_matrix *arg10 = (gsl_matrix *) 0 ;
8567 gsl_vector *arg11 = (gsl_vector *) 0 ;
8568 double val1 ;
8569 int ecode1 = 0 ;
8570 void *argp2 = 0 ;
8571 int res2 = 0 ;
8572 void *argp3 = 0 ;
8573 int res3 = 0 ;
8574 void *argp4 = 0 ;
8575 int res4 = 0 ;
8576 void *argp5 = 0 ;
8577 int res5 = 0 ;
8578 size_t val6 ;
8579 int ecode6 = 0 ;
8580 void *argp7 = 0 ;
8581 int res7 = 0 ;
8582 void *argp8 = 0 ;
8583 int res8 = 0 ;
8584 void *argp9 = 0 ;
8585 int res9 = 0 ;
8586 void *argp10 = 0 ;
8587 int res10 = 0 ;
8588 void *argp11 = 0 ;
8589 int res11 = 0 ;
8590 int argvi = 0;
8591 int result;
8592 dXSARGS;
8593
8594 if ((items < 11) || (items > 11)) {
8595 SWIG_croak("Usage: gsl_linalg_COD_lssolve2(lambda,QRZT,tau_Q,tau_Z,perm,rank,b,x,residual,S,work);");
8596 }
8597 ecode1 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
8598 if (!SWIG_IsOK(ecode1)) {
8599 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_linalg_COD_lssolve2" "', argument " "1"" of type '" "double""'");
8600 }
8601 arg1 = (double)(val1);
8602 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
8603 if (!SWIG_IsOK(res2)) {
8604 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_COD_lssolve2" "', argument " "2"" of type '" "gsl_matrix const *""'");
8605 }
8606 arg2 = (gsl_matrix *)(argp2);
8607 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
8608 if (!SWIG_IsOK(res3)) {
8609 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_COD_lssolve2" "', argument " "3"" of type '" "gsl_vector const *""'");
8610 }
8611 arg3 = (gsl_vector *)(argp3);
8612 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
8613 if (!SWIG_IsOK(res4)) {
8614 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_COD_lssolve2" "', argument " "4"" of type '" "gsl_vector const *""'");
8615 }
8616 arg4 = (gsl_vector *)(argp4);
8617 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
8618 if (!SWIG_IsOK(res5)) {
8619 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_COD_lssolve2" "', argument " "5"" of type '" "gsl_permutation const *""'");
8620 }
8621 arg5 = (gsl_permutation *)(argp5);
8622 ecode6 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(5), &val6);
8623 if (!SWIG_IsOK(ecode6)) {
8624 SWIG_exception_fail(SWIG_ArgError(ecode6), "in method '" "gsl_linalg_COD_lssolve2" "', argument " "6"" of type '" "size_t""'");
8625 }
8626 arg6 = (size_t)(val6);
8627 res7 = SWIG_ConvertPtr(ST(6), &argp7,SWIGTYPE_p_gsl_vector, 0 | 0 );
8628 if (!SWIG_IsOK(res7)) {
8629 SWIG_exception_fail(SWIG_ArgError(res7), "in method '" "gsl_linalg_COD_lssolve2" "', argument " "7"" of type '" "gsl_vector const *""'");
8630 }
8631 arg7 = (gsl_vector *)(argp7);
8632 res8 = SWIG_ConvertPtr(ST(7), &argp8,SWIGTYPE_p_gsl_vector, 0 | 0 );
8633 if (!SWIG_IsOK(res8)) {
8634 SWIG_exception_fail(SWIG_ArgError(res8), "in method '" "gsl_linalg_COD_lssolve2" "', argument " "8"" of type '" "gsl_vector *""'");
8635 }
8636 arg8 = (gsl_vector *)(argp8);
8637 res9 = SWIG_ConvertPtr(ST(8), &argp9,SWIGTYPE_p_gsl_vector, 0 | 0 );
8638 if (!SWIG_IsOK(res9)) {
8639 SWIG_exception_fail(SWIG_ArgError(res9), "in method '" "gsl_linalg_COD_lssolve2" "', argument " "9"" of type '" "gsl_vector *""'");
8640 }
8641 arg9 = (gsl_vector *)(argp9);
8642 res10 = SWIG_ConvertPtr(ST(9), &argp10,SWIGTYPE_p_gsl_matrix, 0 | 0 );
8643 if (!SWIG_IsOK(res10)) {
8644 SWIG_exception_fail(SWIG_ArgError(res10), "in method '" "gsl_linalg_COD_lssolve2" "', argument " "10"" of type '" "gsl_matrix *""'");
8645 }
8646 arg10 = (gsl_matrix *)(argp10);
8647 res11 = SWIG_ConvertPtr(ST(10), &argp11,SWIGTYPE_p_gsl_vector, 0 | 0 );
8648 if (!SWIG_IsOK(res11)) {
8649 SWIG_exception_fail(SWIG_ArgError(res11), "in method '" "gsl_linalg_COD_lssolve2" "', argument " "11"" of type '" "gsl_vector *""'");
8650 }
8651 arg11 = (gsl_vector *)(argp11);
8652 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);
8653 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8654
8655
8656
8657
8658
8659
8660
8661
8662
8663
8664
8665 XSRETURN(argvi);
8666 fail:
8667
8668
8669
8670
8671
8672
8673
8674
8675
8676
8677
8678 SWIG_croak_null();
8679 }
8680 }
8681
8682
XS(_wrap_gsl_linalg_COD_unpack)8683 XS(_wrap_gsl_linalg_COD_unpack) {
8684 {
8685 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
8686 gsl_vector *arg2 = (gsl_vector *) 0 ;
8687 gsl_vector *arg3 = (gsl_vector *) 0 ;
8688 size_t arg4 ;
8689 gsl_matrix *arg5 = (gsl_matrix *) 0 ;
8690 gsl_matrix *arg6 = (gsl_matrix *) 0 ;
8691 gsl_matrix *arg7 = (gsl_matrix *) 0 ;
8692 void *argp1 = 0 ;
8693 int res1 = 0 ;
8694 void *argp2 = 0 ;
8695 int res2 = 0 ;
8696 void *argp3 = 0 ;
8697 int res3 = 0 ;
8698 size_t val4 ;
8699 int ecode4 = 0 ;
8700 void *argp5 = 0 ;
8701 int res5 = 0 ;
8702 void *argp6 = 0 ;
8703 int res6 = 0 ;
8704 void *argp7 = 0 ;
8705 int res7 = 0 ;
8706 int argvi = 0;
8707 int result;
8708 dXSARGS;
8709
8710 if ((items < 7) || (items > 7)) {
8711 SWIG_croak("Usage: gsl_linalg_COD_unpack(QRZT,tau_Q,tau_Z,rank,Q,R,Z);");
8712 }
8713 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
8714 if (!SWIG_IsOK(res1)) {
8715 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_COD_unpack" "', argument " "1"" of type '" "gsl_matrix const *""'");
8716 }
8717 arg1 = (gsl_matrix *)(argp1);
8718 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
8719 if (!SWIG_IsOK(res2)) {
8720 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_COD_unpack" "', argument " "2"" of type '" "gsl_vector const *""'");
8721 }
8722 arg2 = (gsl_vector *)(argp2);
8723 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
8724 if (!SWIG_IsOK(res3)) {
8725 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_COD_unpack" "', argument " "3"" of type '" "gsl_vector const *""'");
8726 }
8727 arg3 = (gsl_vector *)(argp3);
8728 ecode4 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(3), &val4);
8729 if (!SWIG_IsOK(ecode4)) {
8730 SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "gsl_linalg_COD_unpack" "', argument " "4"" of type '" "size_t""'");
8731 }
8732 arg4 = (size_t)(val4);
8733 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_matrix, 0 | 0 );
8734 if (!SWIG_IsOK(res5)) {
8735 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_COD_unpack" "', argument " "5"" of type '" "gsl_matrix *""'");
8736 }
8737 arg5 = (gsl_matrix *)(argp5);
8738 res6 = SWIG_ConvertPtr(ST(5), &argp6,SWIGTYPE_p_gsl_matrix, 0 | 0 );
8739 if (!SWIG_IsOK(res6)) {
8740 SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_linalg_COD_unpack" "', argument " "6"" of type '" "gsl_matrix *""'");
8741 }
8742 arg6 = (gsl_matrix *)(argp6);
8743 res7 = SWIG_ConvertPtr(ST(6), &argp7,SWIGTYPE_p_gsl_matrix, 0 | 0 );
8744 if (!SWIG_IsOK(res7)) {
8745 SWIG_exception_fail(SWIG_ArgError(res7), "in method '" "gsl_linalg_COD_unpack" "', argument " "7"" of type '" "gsl_matrix *""'");
8746 }
8747 arg7 = (gsl_matrix *)(argp7);
8748 result = (int)gsl_linalg_COD_unpack((gsl_matrix const *)arg1,(gsl_vector const *)arg2,(gsl_vector const *)arg3,arg4,arg5,arg6,arg7);
8749 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8750
8751
8752
8753
8754
8755
8756
8757 XSRETURN(argvi);
8758 fail:
8759
8760
8761
8762
8763
8764
8765
8766 SWIG_croak_null();
8767 }
8768 }
8769
8770
XS(_wrap_gsl_linalg_COD_matZ)8771 XS(_wrap_gsl_linalg_COD_matZ) {
8772 {
8773 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
8774 gsl_vector *arg2 = (gsl_vector *) 0 ;
8775 size_t arg3 ;
8776 gsl_matrix *arg4 = (gsl_matrix *) 0 ;
8777 gsl_vector *arg5 = (gsl_vector *) 0 ;
8778 void *argp1 = 0 ;
8779 int res1 = 0 ;
8780 void *argp2 = 0 ;
8781 int res2 = 0 ;
8782 size_t val3 ;
8783 int ecode3 = 0 ;
8784 void *argp4 = 0 ;
8785 int res4 = 0 ;
8786 void *argp5 = 0 ;
8787 int res5 = 0 ;
8788 int argvi = 0;
8789 int result;
8790 dXSARGS;
8791
8792 if ((items < 5) || (items > 5)) {
8793 SWIG_croak("Usage: gsl_linalg_COD_matZ(QRZT,tau_Z,rank,A,work);");
8794 }
8795 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
8796 if (!SWIG_IsOK(res1)) {
8797 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_COD_matZ" "', argument " "1"" of type '" "gsl_matrix const *""'");
8798 }
8799 arg1 = (gsl_matrix *)(argp1);
8800 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
8801 if (!SWIG_IsOK(res2)) {
8802 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_COD_matZ" "', argument " "2"" of type '" "gsl_vector const *""'");
8803 }
8804 arg2 = (gsl_vector *)(argp2);
8805 ecode3 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
8806 if (!SWIG_IsOK(ecode3)) {
8807 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_linalg_COD_matZ" "', argument " "3"" of type '" "size_t""'");
8808 }
8809 arg3 = (size_t)(val3);
8810 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_matrix, 0 | 0 );
8811 if (!SWIG_IsOK(res4)) {
8812 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_COD_matZ" "', argument " "4"" of type '" "gsl_matrix *""'");
8813 }
8814 arg4 = (gsl_matrix *)(argp4);
8815 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
8816 if (!SWIG_IsOK(res5)) {
8817 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_COD_matZ" "', argument " "5"" of type '" "gsl_vector *""'");
8818 }
8819 arg5 = (gsl_vector *)(argp5);
8820 result = (int)gsl_linalg_COD_matZ((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3,arg4,arg5);
8821 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8822
8823
8824
8825
8826
8827 XSRETURN(argvi);
8828 fail:
8829
8830
8831
8832
8833
8834 SWIG_croak_null();
8835 }
8836 }
8837
8838
XS(_wrap_gsl_linalg_LQ_decomp)8839 XS(_wrap_gsl_linalg_LQ_decomp) {
8840 {
8841 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
8842 gsl_vector *arg2 = (gsl_vector *) 0 ;
8843 void *argp1 = 0 ;
8844 int res1 = 0 ;
8845 void *argp2 = 0 ;
8846 int res2 = 0 ;
8847 int argvi = 0;
8848 int result;
8849 dXSARGS;
8850
8851 if ((items < 2) || (items > 2)) {
8852 SWIG_croak("Usage: gsl_linalg_LQ_decomp(A,tau);");
8853 }
8854 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
8855 if (!SWIG_IsOK(res1)) {
8856 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LQ_decomp" "', argument " "1"" of type '" "gsl_matrix *""'");
8857 }
8858 arg1 = (gsl_matrix *)(argp1);
8859 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
8860 if (!SWIG_IsOK(res2)) {
8861 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_LQ_decomp" "', argument " "2"" of type '" "gsl_vector *""'");
8862 }
8863 arg2 = (gsl_vector *)(argp2);
8864 result = (int)gsl_linalg_LQ_decomp(arg1,arg2);
8865 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8866
8867
8868 XSRETURN(argvi);
8869 fail:
8870
8871
8872 SWIG_croak_null();
8873 }
8874 }
8875
8876
XS(_wrap_gsl_linalg_LQ_lssolve)8877 XS(_wrap_gsl_linalg_LQ_lssolve) {
8878 {
8879 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
8880 gsl_vector *arg2 = (gsl_vector *) 0 ;
8881 gsl_vector *arg3 = (gsl_vector *) 0 ;
8882 gsl_vector *arg4 = (gsl_vector *) 0 ;
8883 gsl_vector *arg5 = (gsl_vector *) 0 ;
8884 void *argp1 = 0 ;
8885 int res1 = 0 ;
8886 void *argp2 = 0 ;
8887 int res2 = 0 ;
8888 void *argp3 = 0 ;
8889 int res3 = 0 ;
8890 void *argp4 = 0 ;
8891 int res4 = 0 ;
8892 void *argp5 = 0 ;
8893 int res5 = 0 ;
8894 int argvi = 0;
8895 int result;
8896 dXSARGS;
8897
8898 if ((items < 5) || (items > 5)) {
8899 SWIG_croak("Usage: gsl_linalg_LQ_lssolve(LQ,tau,b,x,residual);");
8900 }
8901 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
8902 if (!SWIG_IsOK(res1)) {
8903 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LQ_lssolve" "', argument " "1"" of type '" "gsl_matrix const *""'");
8904 }
8905 arg1 = (gsl_matrix *)(argp1);
8906 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
8907 if (!SWIG_IsOK(res2)) {
8908 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_LQ_lssolve" "', argument " "2"" of type '" "gsl_vector const *""'");
8909 }
8910 arg2 = (gsl_vector *)(argp2);
8911 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
8912 if (!SWIG_IsOK(res3)) {
8913 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_LQ_lssolve" "', argument " "3"" of type '" "gsl_vector const *""'");
8914 }
8915 arg3 = (gsl_vector *)(argp3);
8916 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
8917 if (!SWIG_IsOK(res4)) {
8918 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_LQ_lssolve" "', argument " "4"" of type '" "gsl_vector *""'");
8919 }
8920 arg4 = (gsl_vector *)(argp4);
8921 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
8922 if (!SWIG_IsOK(res5)) {
8923 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_LQ_lssolve" "', argument " "5"" of type '" "gsl_vector *""'");
8924 }
8925 arg5 = (gsl_vector *)(argp5);
8926 result = (int)gsl_linalg_LQ_lssolve((gsl_matrix const *)arg1,(gsl_vector const *)arg2,(gsl_vector const *)arg3,arg4,arg5);
8927 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8928
8929
8930
8931
8932
8933 XSRETURN(argvi);
8934 fail:
8935
8936
8937
8938
8939
8940 SWIG_croak_null();
8941 }
8942 }
8943
8944
XS(_wrap_gsl_linalg_LQ_QTvec)8945 XS(_wrap_gsl_linalg_LQ_QTvec) {
8946 {
8947 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
8948 gsl_vector *arg2 = (gsl_vector *) 0 ;
8949 gsl_vector *arg3 = (gsl_vector *) 0 ;
8950 void *argp1 = 0 ;
8951 int res1 = 0 ;
8952 void *argp2 = 0 ;
8953 int res2 = 0 ;
8954 void *argp3 = 0 ;
8955 int res3 = 0 ;
8956 int argvi = 0;
8957 int result;
8958 dXSARGS;
8959
8960 if ((items < 3) || (items > 3)) {
8961 SWIG_croak("Usage: gsl_linalg_LQ_QTvec(LQ,tau,v);");
8962 }
8963 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
8964 if (!SWIG_IsOK(res1)) {
8965 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LQ_QTvec" "', argument " "1"" of type '" "gsl_matrix const *""'");
8966 }
8967 arg1 = (gsl_matrix *)(argp1);
8968 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
8969 if (!SWIG_IsOK(res2)) {
8970 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_LQ_QTvec" "', argument " "2"" of type '" "gsl_vector const *""'");
8971 }
8972 arg2 = (gsl_vector *)(argp2);
8973 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
8974 if (!SWIG_IsOK(res3)) {
8975 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_LQ_QTvec" "', argument " "3"" of type '" "gsl_vector *""'");
8976 }
8977 arg3 = (gsl_vector *)(argp3);
8978 result = (int)gsl_linalg_LQ_QTvec((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3);
8979 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8980
8981
8982
8983 XSRETURN(argvi);
8984 fail:
8985
8986
8987
8988 SWIG_croak_null();
8989 }
8990 }
8991
8992
XS(_wrap_gsl_linalg_LQ_solve_T)8993 XS(_wrap_gsl_linalg_LQ_solve_T) {
8994 {
8995 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
8996 gsl_vector *arg2 = (gsl_vector *) 0 ;
8997 gsl_vector *arg3 = (gsl_vector *) 0 ;
8998 gsl_vector *arg4 = (gsl_vector *) 0 ;
8999 void *argp1 = 0 ;
9000 int res1 = 0 ;
9001 void *argp2 = 0 ;
9002 int res2 = 0 ;
9003 void *argp3 = 0 ;
9004 int res3 = 0 ;
9005 void *argp4 = 0 ;
9006 int res4 = 0 ;
9007 int argvi = 0;
9008 int result;
9009 dXSARGS;
9010
9011 if ((items < 4) || (items > 4)) {
9012 SWIG_croak("Usage: gsl_linalg_LQ_solve_T(LQ,tau,b,x);");
9013 }
9014 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
9015 if (!SWIG_IsOK(res1)) {
9016 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LQ_solve_T" "', argument " "1"" of type '" "gsl_matrix const *""'");
9017 }
9018 arg1 = (gsl_matrix *)(argp1);
9019 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
9020 if (!SWIG_IsOK(res2)) {
9021 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_LQ_solve_T" "', argument " "2"" of type '" "gsl_vector const *""'");
9022 }
9023 arg2 = (gsl_vector *)(argp2);
9024 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
9025 if (!SWIG_IsOK(res3)) {
9026 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_LQ_solve_T" "', argument " "3"" of type '" "gsl_vector const *""'");
9027 }
9028 arg3 = (gsl_vector *)(argp3);
9029 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
9030 if (!SWIG_IsOK(res4)) {
9031 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_LQ_solve_T" "', argument " "4"" of type '" "gsl_vector *""'");
9032 }
9033 arg4 = (gsl_vector *)(argp4);
9034 result = (int)gsl_linalg_LQ_solve_T((gsl_matrix const *)arg1,(gsl_vector const *)arg2,(gsl_vector const *)arg3,arg4);
9035 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
9036
9037
9038
9039
9040 XSRETURN(argvi);
9041 fail:
9042
9043
9044
9045
9046 SWIG_croak_null();
9047 }
9048 }
9049
9050
XS(_wrap_gsl_linalg_LQ_svx_T)9051 XS(_wrap_gsl_linalg_LQ_svx_T) {
9052 {
9053 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
9054 gsl_vector *arg2 = (gsl_vector *) 0 ;
9055 gsl_vector *arg3 = (gsl_vector *) 0 ;
9056 void *argp1 = 0 ;
9057 int res1 = 0 ;
9058 void *argp2 = 0 ;
9059 int res2 = 0 ;
9060 void *argp3 = 0 ;
9061 int res3 = 0 ;
9062 int argvi = 0;
9063 int result;
9064 dXSARGS;
9065
9066 if ((items < 3) || (items > 3)) {
9067 SWIG_croak("Usage: gsl_linalg_LQ_svx_T(LQ,tau,x);");
9068 }
9069 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
9070 if (!SWIG_IsOK(res1)) {
9071 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LQ_svx_T" "', argument " "1"" of type '" "gsl_matrix const *""'");
9072 }
9073 arg1 = (gsl_matrix *)(argp1);
9074 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
9075 if (!SWIG_IsOK(res2)) {
9076 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_LQ_svx_T" "', argument " "2"" of type '" "gsl_vector const *""'");
9077 }
9078 arg2 = (gsl_vector *)(argp2);
9079 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
9080 if (!SWIG_IsOK(res3)) {
9081 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_LQ_svx_T" "', argument " "3"" of type '" "gsl_vector *""'");
9082 }
9083 arg3 = (gsl_vector *)(argp3);
9084 result = (int)gsl_linalg_LQ_svx_T((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3);
9085 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
9086
9087
9088
9089 XSRETURN(argvi);
9090 fail:
9091
9092
9093
9094 SWIG_croak_null();
9095 }
9096 }
9097
9098
XS(_wrap_gsl_linalg_LQ_lssolve_T)9099 XS(_wrap_gsl_linalg_LQ_lssolve_T) {
9100 {
9101 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
9102 gsl_vector *arg2 = (gsl_vector *) 0 ;
9103 gsl_vector *arg3 = (gsl_vector *) 0 ;
9104 gsl_vector *arg4 = (gsl_vector *) 0 ;
9105 gsl_vector *arg5 = (gsl_vector *) 0 ;
9106 void *argp1 = 0 ;
9107 int res1 = 0 ;
9108 void *argp2 = 0 ;
9109 int res2 = 0 ;
9110 void *argp3 = 0 ;
9111 int res3 = 0 ;
9112 void *argp4 = 0 ;
9113 int res4 = 0 ;
9114 void *argp5 = 0 ;
9115 int res5 = 0 ;
9116 int argvi = 0;
9117 int result;
9118 dXSARGS;
9119
9120 if ((items < 5) || (items > 5)) {
9121 SWIG_croak("Usage: gsl_linalg_LQ_lssolve_T(LQ,tau,b,x,residual);");
9122 }
9123 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
9124 if (!SWIG_IsOK(res1)) {
9125 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LQ_lssolve_T" "', argument " "1"" of type '" "gsl_matrix const *""'");
9126 }
9127 arg1 = (gsl_matrix *)(argp1);
9128 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
9129 if (!SWIG_IsOK(res2)) {
9130 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_LQ_lssolve_T" "', argument " "2"" of type '" "gsl_vector const *""'");
9131 }
9132 arg2 = (gsl_vector *)(argp2);
9133 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
9134 if (!SWIG_IsOK(res3)) {
9135 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_LQ_lssolve_T" "', argument " "3"" of type '" "gsl_vector const *""'");
9136 }
9137 arg3 = (gsl_vector *)(argp3);
9138 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
9139 if (!SWIG_IsOK(res4)) {
9140 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_LQ_lssolve_T" "', argument " "4"" of type '" "gsl_vector *""'");
9141 }
9142 arg4 = (gsl_vector *)(argp4);
9143 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
9144 if (!SWIG_IsOK(res5)) {
9145 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_LQ_lssolve_T" "', argument " "5"" of type '" "gsl_vector *""'");
9146 }
9147 arg5 = (gsl_vector *)(argp5);
9148 result = (int)gsl_linalg_LQ_lssolve_T((gsl_matrix const *)arg1,(gsl_vector const *)arg2,(gsl_vector const *)arg3,arg4,arg5);
9149 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
9150
9151
9152
9153
9154
9155 XSRETURN(argvi);
9156 fail:
9157
9158
9159
9160
9161
9162 SWIG_croak_null();
9163 }
9164 }
9165
9166
XS(_wrap_gsl_linalg_LQ_Lsolve_T)9167 XS(_wrap_gsl_linalg_LQ_Lsolve_T) {
9168 {
9169 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
9170 gsl_vector *arg2 = (gsl_vector *) 0 ;
9171 gsl_vector *arg3 = (gsl_vector *) 0 ;
9172 void *argp1 = 0 ;
9173 int res1 = 0 ;
9174 void *argp2 = 0 ;
9175 int res2 = 0 ;
9176 void *argp3 = 0 ;
9177 int res3 = 0 ;
9178 int argvi = 0;
9179 int result;
9180 dXSARGS;
9181
9182 if ((items < 3) || (items > 3)) {
9183 SWIG_croak("Usage: gsl_linalg_LQ_Lsolve_T(LQ,b,x);");
9184 }
9185 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
9186 if (!SWIG_IsOK(res1)) {
9187 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LQ_Lsolve_T" "', argument " "1"" of type '" "gsl_matrix const *""'");
9188 }
9189 arg1 = (gsl_matrix *)(argp1);
9190 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
9191 if (!SWIG_IsOK(res2)) {
9192 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_LQ_Lsolve_T" "', argument " "2"" of type '" "gsl_vector const *""'");
9193 }
9194 arg2 = (gsl_vector *)(argp2);
9195 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
9196 if (!SWIG_IsOK(res3)) {
9197 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_LQ_Lsolve_T" "', argument " "3"" of type '" "gsl_vector *""'");
9198 }
9199 arg3 = (gsl_vector *)(argp3);
9200 result = (int)gsl_linalg_LQ_Lsolve_T((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3);
9201 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
9202
9203
9204
9205 XSRETURN(argvi);
9206 fail:
9207
9208
9209
9210 SWIG_croak_null();
9211 }
9212 }
9213
9214
XS(_wrap_gsl_linalg_LQ_Lsvx_T)9215 XS(_wrap_gsl_linalg_LQ_Lsvx_T) {
9216 {
9217 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
9218 gsl_vector *arg2 = (gsl_vector *) 0 ;
9219 void *argp1 = 0 ;
9220 int res1 = 0 ;
9221 void *argp2 = 0 ;
9222 int res2 = 0 ;
9223 int argvi = 0;
9224 int result;
9225 dXSARGS;
9226
9227 if ((items < 2) || (items > 2)) {
9228 SWIG_croak("Usage: gsl_linalg_LQ_Lsvx_T(LQ,x);");
9229 }
9230 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
9231 if (!SWIG_IsOK(res1)) {
9232 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LQ_Lsvx_T" "', argument " "1"" of type '" "gsl_matrix const *""'");
9233 }
9234 arg1 = (gsl_matrix *)(argp1);
9235 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
9236 if (!SWIG_IsOK(res2)) {
9237 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_LQ_Lsvx_T" "', argument " "2"" of type '" "gsl_vector *""'");
9238 }
9239 arg2 = (gsl_vector *)(argp2);
9240 result = (int)gsl_linalg_LQ_Lsvx_T((gsl_matrix const *)arg1,arg2);
9241 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
9242
9243
9244 XSRETURN(argvi);
9245 fail:
9246
9247
9248 SWIG_croak_null();
9249 }
9250 }
9251
9252
XS(_wrap_gsl_linalg_L_solve_T)9253 XS(_wrap_gsl_linalg_L_solve_T) {
9254 {
9255 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
9256 gsl_vector *arg2 = (gsl_vector *) 0 ;
9257 gsl_vector *arg3 = (gsl_vector *) 0 ;
9258 void *argp1 = 0 ;
9259 int res1 = 0 ;
9260 void *argp2 = 0 ;
9261 int res2 = 0 ;
9262 void *argp3 = 0 ;
9263 int res3 = 0 ;
9264 int argvi = 0;
9265 int result;
9266 dXSARGS;
9267
9268 if ((items < 3) || (items > 3)) {
9269 SWIG_croak("Usage: gsl_linalg_L_solve_T(L,b,x);");
9270 }
9271 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
9272 if (!SWIG_IsOK(res1)) {
9273 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_L_solve_T" "', argument " "1"" of type '" "gsl_matrix const *""'");
9274 }
9275 arg1 = (gsl_matrix *)(argp1);
9276 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
9277 if (!SWIG_IsOK(res2)) {
9278 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_L_solve_T" "', argument " "2"" of type '" "gsl_vector const *""'");
9279 }
9280 arg2 = (gsl_vector *)(argp2);
9281 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
9282 if (!SWIG_IsOK(res3)) {
9283 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_L_solve_T" "', argument " "3"" of type '" "gsl_vector *""'");
9284 }
9285 arg3 = (gsl_vector *)(argp3);
9286 result = (int)gsl_linalg_L_solve_T((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3);
9287 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
9288
9289
9290
9291 XSRETURN(argvi);
9292 fail:
9293
9294
9295
9296 SWIG_croak_null();
9297 }
9298 }
9299
9300
XS(_wrap_gsl_linalg_LQ_vecQ)9301 XS(_wrap_gsl_linalg_LQ_vecQ) {
9302 {
9303 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
9304 gsl_vector *arg2 = (gsl_vector *) 0 ;
9305 gsl_vector *arg3 = (gsl_vector *) 0 ;
9306 void *argp1 = 0 ;
9307 int res1 = 0 ;
9308 void *argp2 = 0 ;
9309 int res2 = 0 ;
9310 void *argp3 = 0 ;
9311 int res3 = 0 ;
9312 int argvi = 0;
9313 int result;
9314 dXSARGS;
9315
9316 if ((items < 3) || (items > 3)) {
9317 SWIG_croak("Usage: gsl_linalg_LQ_vecQ(LQ,tau,v);");
9318 }
9319 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
9320 if (!SWIG_IsOK(res1)) {
9321 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LQ_vecQ" "', argument " "1"" of type '" "gsl_matrix const *""'");
9322 }
9323 arg1 = (gsl_matrix *)(argp1);
9324 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
9325 if (!SWIG_IsOK(res2)) {
9326 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_LQ_vecQ" "', argument " "2"" of type '" "gsl_vector const *""'");
9327 }
9328 arg2 = (gsl_vector *)(argp2);
9329 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
9330 if (!SWIG_IsOK(res3)) {
9331 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_LQ_vecQ" "', argument " "3"" of type '" "gsl_vector *""'");
9332 }
9333 arg3 = (gsl_vector *)(argp3);
9334 result = (int)gsl_linalg_LQ_vecQ((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3);
9335 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
9336
9337
9338
9339 XSRETURN(argvi);
9340 fail:
9341
9342
9343
9344 SWIG_croak_null();
9345 }
9346 }
9347
9348
XS(_wrap_gsl_linalg_LQ_vecQT)9349 XS(_wrap_gsl_linalg_LQ_vecQT) {
9350 {
9351 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
9352 gsl_vector *arg2 = (gsl_vector *) 0 ;
9353 gsl_vector *arg3 = (gsl_vector *) 0 ;
9354 void *argp1 = 0 ;
9355 int res1 = 0 ;
9356 void *argp2 = 0 ;
9357 int res2 = 0 ;
9358 void *argp3 = 0 ;
9359 int res3 = 0 ;
9360 int argvi = 0;
9361 int result;
9362 dXSARGS;
9363
9364 if ((items < 3) || (items > 3)) {
9365 SWIG_croak("Usage: gsl_linalg_LQ_vecQT(LQ,tau,v);");
9366 }
9367 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
9368 if (!SWIG_IsOK(res1)) {
9369 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LQ_vecQT" "', argument " "1"" of type '" "gsl_matrix const *""'");
9370 }
9371 arg1 = (gsl_matrix *)(argp1);
9372 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
9373 if (!SWIG_IsOK(res2)) {
9374 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_LQ_vecQT" "', argument " "2"" of type '" "gsl_vector const *""'");
9375 }
9376 arg2 = (gsl_vector *)(argp2);
9377 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
9378 if (!SWIG_IsOK(res3)) {
9379 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_LQ_vecQT" "', argument " "3"" of type '" "gsl_vector *""'");
9380 }
9381 arg3 = (gsl_vector *)(argp3);
9382 result = (int)gsl_linalg_LQ_vecQT((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3);
9383 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
9384
9385
9386
9387 XSRETURN(argvi);
9388 fail:
9389
9390
9391
9392 SWIG_croak_null();
9393 }
9394 }
9395
9396
XS(_wrap_gsl_linalg_LQ_unpack)9397 XS(_wrap_gsl_linalg_LQ_unpack) {
9398 {
9399 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
9400 gsl_vector *arg2 = (gsl_vector *) 0 ;
9401 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
9402 gsl_matrix *arg4 = (gsl_matrix *) 0 ;
9403 void *argp1 = 0 ;
9404 int res1 = 0 ;
9405 void *argp2 = 0 ;
9406 int res2 = 0 ;
9407 void *argp3 = 0 ;
9408 int res3 = 0 ;
9409 void *argp4 = 0 ;
9410 int res4 = 0 ;
9411 int argvi = 0;
9412 int result;
9413 dXSARGS;
9414
9415 if ((items < 4) || (items > 4)) {
9416 SWIG_croak("Usage: gsl_linalg_LQ_unpack(LQ,tau,Q,L);");
9417 }
9418 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
9419 if (!SWIG_IsOK(res1)) {
9420 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LQ_unpack" "', argument " "1"" of type '" "gsl_matrix const *""'");
9421 }
9422 arg1 = (gsl_matrix *)(argp1);
9423 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
9424 if (!SWIG_IsOK(res2)) {
9425 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_LQ_unpack" "', argument " "2"" of type '" "gsl_vector const *""'");
9426 }
9427 arg2 = (gsl_vector *)(argp2);
9428 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
9429 if (!SWIG_IsOK(res3)) {
9430 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_LQ_unpack" "', argument " "3"" of type '" "gsl_matrix *""'");
9431 }
9432 arg3 = (gsl_matrix *)(argp3);
9433 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_matrix, 0 | 0 );
9434 if (!SWIG_IsOK(res4)) {
9435 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_LQ_unpack" "', argument " "4"" of type '" "gsl_matrix *""'");
9436 }
9437 arg4 = (gsl_matrix *)(argp4);
9438 result = (int)gsl_linalg_LQ_unpack((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3,arg4);
9439 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
9440
9441
9442
9443
9444 XSRETURN(argvi);
9445 fail:
9446
9447
9448
9449
9450 SWIG_croak_null();
9451 }
9452 }
9453
9454
XS(_wrap_gsl_linalg_LQ_update)9455 XS(_wrap_gsl_linalg_LQ_update) {
9456 {
9457 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
9458 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
9459 gsl_vector *arg3 = (gsl_vector *) 0 ;
9460 gsl_vector *arg4 = (gsl_vector *) 0 ;
9461 void *argp1 = 0 ;
9462 int res1 = 0 ;
9463 void *argp2 = 0 ;
9464 int res2 = 0 ;
9465 void *argp3 = 0 ;
9466 int res3 = 0 ;
9467 void *argp4 = 0 ;
9468 int res4 = 0 ;
9469 int argvi = 0;
9470 int result;
9471 dXSARGS;
9472
9473 if ((items < 4) || (items > 4)) {
9474 SWIG_croak("Usage: gsl_linalg_LQ_update(Q,R,v,w);");
9475 }
9476 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
9477 if (!SWIG_IsOK(res1)) {
9478 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LQ_update" "', argument " "1"" of type '" "gsl_matrix *""'");
9479 }
9480 arg1 = (gsl_matrix *)(argp1);
9481 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
9482 if (!SWIG_IsOK(res2)) {
9483 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_LQ_update" "', argument " "2"" of type '" "gsl_matrix *""'");
9484 }
9485 arg2 = (gsl_matrix *)(argp2);
9486 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
9487 if (!SWIG_IsOK(res3)) {
9488 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_LQ_update" "', argument " "3"" of type '" "gsl_vector const *""'");
9489 }
9490 arg3 = (gsl_vector *)(argp3);
9491 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
9492 if (!SWIG_IsOK(res4)) {
9493 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_LQ_update" "', argument " "4"" of type '" "gsl_vector *""'");
9494 }
9495 arg4 = (gsl_vector *)(argp4);
9496 result = (int)gsl_linalg_LQ_update(arg1,arg2,(gsl_vector const *)arg3,arg4);
9497 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
9498
9499
9500
9501
9502 XSRETURN(argvi);
9503 fail:
9504
9505
9506
9507
9508 SWIG_croak_null();
9509 }
9510 }
9511
9512
XS(_wrap_gsl_linalg_LQ_LQsolve)9513 XS(_wrap_gsl_linalg_LQ_LQsolve) {
9514 {
9515 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
9516 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
9517 gsl_vector *arg3 = (gsl_vector *) 0 ;
9518 gsl_vector *arg4 = (gsl_vector *) 0 ;
9519 void *argp1 = 0 ;
9520 int res1 = 0 ;
9521 void *argp2 = 0 ;
9522 int res2 = 0 ;
9523 void *argp3 = 0 ;
9524 int res3 = 0 ;
9525 void *argp4 = 0 ;
9526 int res4 = 0 ;
9527 int argvi = 0;
9528 int result;
9529 dXSARGS;
9530
9531 if ((items < 4) || (items > 4)) {
9532 SWIG_croak("Usage: gsl_linalg_LQ_LQsolve(Q,L,b,x);");
9533 }
9534 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
9535 if (!SWIG_IsOK(res1)) {
9536 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LQ_LQsolve" "', argument " "1"" of type '" "gsl_matrix *""'");
9537 }
9538 arg1 = (gsl_matrix *)(argp1);
9539 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
9540 if (!SWIG_IsOK(res2)) {
9541 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_LQ_LQsolve" "', argument " "2"" of type '" "gsl_matrix *""'");
9542 }
9543 arg2 = (gsl_matrix *)(argp2);
9544 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
9545 if (!SWIG_IsOK(res3)) {
9546 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_LQ_LQsolve" "', argument " "3"" of type '" "gsl_vector const *""'");
9547 }
9548 arg3 = (gsl_vector *)(argp3);
9549 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
9550 if (!SWIG_IsOK(res4)) {
9551 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_LQ_LQsolve" "', argument " "4"" of type '" "gsl_vector *""'");
9552 }
9553 arg4 = (gsl_vector *)(argp4);
9554 result = (int)gsl_linalg_LQ_LQsolve(arg1,arg2,(gsl_vector const *)arg3,arg4);
9555 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
9556
9557
9558
9559
9560 XSRETURN(argvi);
9561 fail:
9562
9563
9564
9565
9566 SWIG_croak_null();
9567 }
9568 }
9569
9570
XS(_wrap_gsl_linalg_PTLQ_decomp)9571 XS(_wrap_gsl_linalg_PTLQ_decomp) {
9572 {
9573 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
9574 gsl_vector *arg2 = (gsl_vector *) 0 ;
9575 gsl_permutation *arg3 = (gsl_permutation *) 0 ;
9576 int *arg4 = (int *) 0 ;
9577 gsl_vector *arg5 = (gsl_vector *) 0 ;
9578 void *argp1 = 0 ;
9579 int res1 = 0 ;
9580 void *argp2 = 0 ;
9581 int res2 = 0 ;
9582 void *argp3 = 0 ;
9583 int res3 = 0 ;
9584 int temp4 ;
9585 int res4 = SWIG_TMPOBJ ;
9586 void *argp5 = 0 ;
9587 int res5 = 0 ;
9588 int argvi = 0;
9589 int result;
9590 dXSARGS;
9591
9592 arg4 = &temp4;
9593 if ((items < 4) || (items > 4)) {
9594 SWIG_croak("Usage: gsl_linalg_PTLQ_decomp(A,tau,p,norm);");
9595 }
9596 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
9597 if (!SWIG_IsOK(res1)) {
9598 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_PTLQ_decomp" "', argument " "1"" of type '" "gsl_matrix *""'");
9599 }
9600 arg1 = (gsl_matrix *)(argp1);
9601 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
9602 if (!SWIG_IsOK(res2)) {
9603 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_PTLQ_decomp" "', argument " "2"" of type '" "gsl_vector *""'");
9604 }
9605 arg2 = (gsl_vector *)(argp2);
9606 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
9607 if (!SWIG_IsOK(res3)) {
9608 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_PTLQ_decomp" "', argument " "3"" of type '" "gsl_permutation *""'");
9609 }
9610 arg3 = (gsl_permutation *)(argp3);
9611 res5 = SWIG_ConvertPtr(ST(3), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
9612 if (!SWIG_IsOK(res5)) {
9613 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_PTLQ_decomp" "', argument " "5"" of type '" "gsl_vector *""'");
9614 }
9615 arg5 = (gsl_vector *)(argp5);
9616 result = (int)gsl_linalg_PTLQ_decomp(arg1,arg2,arg3,arg4,arg5);
9617 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
9618 if (SWIG_IsTmpObj(res4)) {
9619 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((*arg4)); argvi++ ;
9620 } else {
9621 int new_flags = SWIG_IsNewObj(res4) ? (SWIG_POINTER_OWN | 0) : 0;
9622 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg4), SWIGTYPE_p_int, new_flags); argvi++ ;
9623 }
9624
9625
9626
9627
9628
9629 XSRETURN(argvi);
9630 fail:
9631
9632
9633
9634
9635
9636 SWIG_croak_null();
9637 }
9638 }
9639
9640
XS(_wrap_gsl_linalg_PTLQ_decomp2)9641 XS(_wrap_gsl_linalg_PTLQ_decomp2) {
9642 {
9643 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
9644 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
9645 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
9646 gsl_vector *arg4 = (gsl_vector *) 0 ;
9647 gsl_permutation *arg5 = (gsl_permutation *) 0 ;
9648 int *arg6 = (int *) 0 ;
9649 gsl_vector *arg7 = (gsl_vector *) 0 ;
9650 void *argp1 = 0 ;
9651 int res1 = 0 ;
9652 void *argp2 = 0 ;
9653 int res2 = 0 ;
9654 void *argp3 = 0 ;
9655 int res3 = 0 ;
9656 void *argp4 = 0 ;
9657 int res4 = 0 ;
9658 void *argp5 = 0 ;
9659 int res5 = 0 ;
9660 int temp6 ;
9661 int res6 = SWIG_TMPOBJ ;
9662 void *argp7 = 0 ;
9663 int res7 = 0 ;
9664 int argvi = 0;
9665 int result;
9666 dXSARGS;
9667
9668 arg6 = &temp6;
9669 if ((items < 6) || (items > 6)) {
9670 SWIG_croak("Usage: gsl_linalg_PTLQ_decomp2(A,q,r,tau,p,norm);");
9671 }
9672 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
9673 if (!SWIG_IsOK(res1)) {
9674 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_PTLQ_decomp2" "', argument " "1"" of type '" "gsl_matrix const *""'");
9675 }
9676 arg1 = (gsl_matrix *)(argp1);
9677 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
9678 if (!SWIG_IsOK(res2)) {
9679 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_PTLQ_decomp2" "', argument " "2"" of type '" "gsl_matrix *""'");
9680 }
9681 arg2 = (gsl_matrix *)(argp2);
9682 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
9683 if (!SWIG_IsOK(res3)) {
9684 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_PTLQ_decomp2" "', argument " "3"" of type '" "gsl_matrix *""'");
9685 }
9686 arg3 = (gsl_matrix *)(argp3);
9687 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
9688 if (!SWIG_IsOK(res4)) {
9689 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_PTLQ_decomp2" "', argument " "4"" of type '" "gsl_vector *""'");
9690 }
9691 arg4 = (gsl_vector *)(argp4);
9692 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
9693 if (!SWIG_IsOK(res5)) {
9694 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_PTLQ_decomp2" "', argument " "5"" of type '" "gsl_permutation *""'");
9695 }
9696 arg5 = (gsl_permutation *)(argp5);
9697 res7 = SWIG_ConvertPtr(ST(5), &argp7,SWIGTYPE_p_gsl_vector, 0 | 0 );
9698 if (!SWIG_IsOK(res7)) {
9699 SWIG_exception_fail(SWIG_ArgError(res7), "in method '" "gsl_linalg_PTLQ_decomp2" "', argument " "7"" of type '" "gsl_vector *""'");
9700 }
9701 arg7 = (gsl_vector *)(argp7);
9702 result = (int)gsl_linalg_PTLQ_decomp2((gsl_matrix const *)arg1,arg2,arg3,arg4,arg5,arg6,arg7);
9703 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
9704 if (SWIG_IsTmpObj(res6)) {
9705 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((*arg6)); argvi++ ;
9706 } else {
9707 int new_flags = SWIG_IsNewObj(res6) ? (SWIG_POINTER_OWN | 0) : 0;
9708 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg6), SWIGTYPE_p_int, new_flags); argvi++ ;
9709 }
9710
9711
9712
9713
9714
9715
9716
9717 XSRETURN(argvi);
9718 fail:
9719
9720
9721
9722
9723
9724
9725
9726 SWIG_croak_null();
9727 }
9728 }
9729
9730
XS(_wrap_gsl_linalg_PTLQ_solve_T)9731 XS(_wrap_gsl_linalg_PTLQ_solve_T) {
9732 {
9733 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
9734 gsl_vector *arg2 = (gsl_vector *) 0 ;
9735 gsl_permutation *arg3 = (gsl_permutation *) 0 ;
9736 gsl_vector *arg4 = (gsl_vector *) 0 ;
9737 gsl_vector *arg5 = (gsl_vector *) 0 ;
9738 void *argp1 = 0 ;
9739 int res1 = 0 ;
9740 void *argp2 = 0 ;
9741 int res2 = 0 ;
9742 void *argp3 = 0 ;
9743 int res3 = 0 ;
9744 void *argp4 = 0 ;
9745 int res4 = 0 ;
9746 void *argp5 = 0 ;
9747 int res5 = 0 ;
9748 int argvi = 0;
9749 int result;
9750 dXSARGS;
9751
9752 if ((items < 5) || (items > 5)) {
9753 SWIG_croak("Usage: gsl_linalg_PTLQ_solve_T(QR,tau,p,b,x);");
9754 }
9755 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
9756 if (!SWIG_IsOK(res1)) {
9757 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_PTLQ_solve_T" "', argument " "1"" of type '" "gsl_matrix const *""'");
9758 }
9759 arg1 = (gsl_matrix *)(argp1);
9760 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
9761 if (!SWIG_IsOK(res2)) {
9762 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_PTLQ_solve_T" "', argument " "2"" of type '" "gsl_vector const *""'");
9763 }
9764 arg2 = (gsl_vector *)(argp2);
9765 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
9766 if (!SWIG_IsOK(res3)) {
9767 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_PTLQ_solve_T" "', argument " "3"" of type '" "gsl_permutation const *""'");
9768 }
9769 arg3 = (gsl_permutation *)(argp3);
9770 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
9771 if (!SWIG_IsOK(res4)) {
9772 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_PTLQ_solve_T" "', argument " "4"" of type '" "gsl_vector const *""'");
9773 }
9774 arg4 = (gsl_vector *)(argp4);
9775 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
9776 if (!SWIG_IsOK(res5)) {
9777 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_PTLQ_solve_T" "', argument " "5"" of type '" "gsl_vector *""'");
9778 }
9779 arg5 = (gsl_vector *)(argp5);
9780 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);
9781 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
9782
9783
9784
9785
9786
9787 XSRETURN(argvi);
9788 fail:
9789
9790
9791
9792
9793
9794 SWIG_croak_null();
9795 }
9796 }
9797
9798
XS(_wrap_gsl_linalg_PTLQ_svx_T)9799 XS(_wrap_gsl_linalg_PTLQ_svx_T) {
9800 {
9801 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
9802 gsl_vector *arg2 = (gsl_vector *) 0 ;
9803 gsl_permutation *arg3 = (gsl_permutation *) 0 ;
9804 gsl_vector *arg4 = (gsl_vector *) 0 ;
9805 void *argp1 = 0 ;
9806 int res1 = 0 ;
9807 void *argp2 = 0 ;
9808 int res2 = 0 ;
9809 void *argp3 = 0 ;
9810 int res3 = 0 ;
9811 void *argp4 = 0 ;
9812 int res4 = 0 ;
9813 int argvi = 0;
9814 int result;
9815 dXSARGS;
9816
9817 if ((items < 4) || (items > 4)) {
9818 SWIG_croak("Usage: gsl_linalg_PTLQ_svx_T(LQ,tau,p,x);");
9819 }
9820 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
9821 if (!SWIG_IsOK(res1)) {
9822 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_PTLQ_svx_T" "', argument " "1"" of type '" "gsl_matrix const *""'");
9823 }
9824 arg1 = (gsl_matrix *)(argp1);
9825 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
9826 if (!SWIG_IsOK(res2)) {
9827 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_PTLQ_svx_T" "', argument " "2"" of type '" "gsl_vector const *""'");
9828 }
9829 arg2 = (gsl_vector *)(argp2);
9830 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
9831 if (!SWIG_IsOK(res3)) {
9832 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_PTLQ_svx_T" "', argument " "3"" of type '" "gsl_permutation const *""'");
9833 }
9834 arg3 = (gsl_permutation *)(argp3);
9835 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
9836 if (!SWIG_IsOK(res4)) {
9837 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_PTLQ_svx_T" "', argument " "4"" of type '" "gsl_vector *""'");
9838 }
9839 arg4 = (gsl_vector *)(argp4);
9840 result = (int)gsl_linalg_PTLQ_svx_T((gsl_matrix const *)arg1,(gsl_vector const *)arg2,(struct gsl_permutation_struct const *)arg3,arg4);
9841 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
9842
9843
9844
9845
9846 XSRETURN(argvi);
9847 fail:
9848
9849
9850
9851
9852 SWIG_croak_null();
9853 }
9854 }
9855
9856
XS(_wrap_gsl_linalg_PTLQ_LQsolve_T)9857 XS(_wrap_gsl_linalg_PTLQ_LQsolve_T) {
9858 {
9859 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
9860 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
9861 gsl_permutation *arg3 = (gsl_permutation *) 0 ;
9862 gsl_vector *arg4 = (gsl_vector *) 0 ;
9863 gsl_vector *arg5 = (gsl_vector *) 0 ;
9864 void *argp1 = 0 ;
9865 int res1 = 0 ;
9866 void *argp2 = 0 ;
9867 int res2 = 0 ;
9868 void *argp3 = 0 ;
9869 int res3 = 0 ;
9870 void *argp4 = 0 ;
9871 int res4 = 0 ;
9872 void *argp5 = 0 ;
9873 int res5 = 0 ;
9874 int argvi = 0;
9875 int result;
9876 dXSARGS;
9877
9878 if ((items < 5) || (items > 5)) {
9879 SWIG_croak("Usage: gsl_linalg_PTLQ_LQsolve_T(Q,L,p,b,x);");
9880 }
9881 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
9882 if (!SWIG_IsOK(res1)) {
9883 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_PTLQ_LQsolve_T" "', argument " "1"" of type '" "gsl_matrix const *""'");
9884 }
9885 arg1 = (gsl_matrix *)(argp1);
9886 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
9887 if (!SWIG_IsOK(res2)) {
9888 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_PTLQ_LQsolve_T" "', argument " "2"" of type '" "gsl_matrix const *""'");
9889 }
9890 arg2 = (gsl_matrix *)(argp2);
9891 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
9892 if (!SWIG_IsOK(res3)) {
9893 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_PTLQ_LQsolve_T" "', argument " "3"" of type '" "gsl_permutation const *""'");
9894 }
9895 arg3 = (gsl_permutation *)(argp3);
9896 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
9897 if (!SWIG_IsOK(res4)) {
9898 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_PTLQ_LQsolve_T" "', argument " "4"" of type '" "gsl_vector const *""'");
9899 }
9900 arg4 = (gsl_vector *)(argp4);
9901 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
9902 if (!SWIG_IsOK(res5)) {
9903 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_PTLQ_LQsolve_T" "', argument " "5"" of type '" "gsl_vector *""'");
9904 }
9905 arg5 = (gsl_vector *)(argp5);
9906 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);
9907 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
9908
9909
9910
9911
9912
9913 XSRETURN(argvi);
9914 fail:
9915
9916
9917
9918
9919
9920 SWIG_croak_null();
9921 }
9922 }
9923
9924
XS(_wrap_gsl_linalg_PTLQ_Lsolve_T)9925 XS(_wrap_gsl_linalg_PTLQ_Lsolve_T) {
9926 {
9927 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
9928 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
9929 gsl_vector *arg3 = (gsl_vector *) 0 ;
9930 gsl_vector *arg4 = (gsl_vector *) 0 ;
9931 void *argp1 = 0 ;
9932 int res1 = 0 ;
9933 void *argp2 = 0 ;
9934 int res2 = 0 ;
9935 void *argp3 = 0 ;
9936 int res3 = 0 ;
9937 void *argp4 = 0 ;
9938 int res4 = 0 ;
9939 int argvi = 0;
9940 int result;
9941 dXSARGS;
9942
9943 if ((items < 4) || (items > 4)) {
9944 SWIG_croak("Usage: gsl_linalg_PTLQ_Lsolve_T(LQ,p,b,x);");
9945 }
9946 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
9947 if (!SWIG_IsOK(res1)) {
9948 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_PTLQ_Lsolve_T" "', argument " "1"" of type '" "gsl_matrix const *""'");
9949 }
9950 arg1 = (gsl_matrix *)(argp1);
9951 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
9952 if (!SWIG_IsOK(res2)) {
9953 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_PTLQ_Lsolve_T" "', argument " "2"" of type '" "gsl_permutation const *""'");
9954 }
9955 arg2 = (gsl_permutation *)(argp2);
9956 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
9957 if (!SWIG_IsOK(res3)) {
9958 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_PTLQ_Lsolve_T" "', argument " "3"" of type '" "gsl_vector const *""'");
9959 }
9960 arg3 = (gsl_vector *)(argp3);
9961 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
9962 if (!SWIG_IsOK(res4)) {
9963 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_PTLQ_Lsolve_T" "', argument " "4"" of type '" "gsl_vector *""'");
9964 }
9965 arg4 = (gsl_vector *)(argp4);
9966 result = (int)gsl_linalg_PTLQ_Lsolve_T((gsl_matrix const *)arg1,(struct gsl_permutation_struct const *)arg2,(gsl_vector const *)arg3,arg4);
9967 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
9968
9969
9970
9971
9972 XSRETURN(argvi);
9973 fail:
9974
9975
9976
9977
9978 SWIG_croak_null();
9979 }
9980 }
9981
9982
XS(_wrap_gsl_linalg_PTLQ_Lsvx_T)9983 XS(_wrap_gsl_linalg_PTLQ_Lsvx_T) {
9984 {
9985 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
9986 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
9987 gsl_vector *arg3 = (gsl_vector *) 0 ;
9988 void *argp1 = 0 ;
9989 int res1 = 0 ;
9990 void *argp2 = 0 ;
9991 int res2 = 0 ;
9992 void *argp3 = 0 ;
9993 int res3 = 0 ;
9994 int argvi = 0;
9995 int result;
9996 dXSARGS;
9997
9998 if ((items < 3) || (items > 3)) {
9999 SWIG_croak("Usage: gsl_linalg_PTLQ_Lsvx_T(LQ,p,x);");
10000 }
10001 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
10002 if (!SWIG_IsOK(res1)) {
10003 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_PTLQ_Lsvx_T" "', argument " "1"" of type '" "gsl_matrix const *""'");
10004 }
10005 arg1 = (gsl_matrix *)(argp1);
10006 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
10007 if (!SWIG_IsOK(res2)) {
10008 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_PTLQ_Lsvx_T" "', argument " "2"" of type '" "gsl_permutation const *""'");
10009 }
10010 arg2 = (gsl_permutation *)(argp2);
10011 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
10012 if (!SWIG_IsOK(res3)) {
10013 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_PTLQ_Lsvx_T" "', argument " "3"" of type '" "gsl_vector *""'");
10014 }
10015 arg3 = (gsl_vector *)(argp3);
10016 result = (int)gsl_linalg_PTLQ_Lsvx_T((gsl_matrix const *)arg1,(struct gsl_permutation_struct const *)arg2,arg3);
10017 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
10018
10019
10020
10021 XSRETURN(argvi);
10022 fail:
10023
10024
10025
10026 SWIG_croak_null();
10027 }
10028 }
10029
10030
XS(_wrap_gsl_linalg_PTLQ_update)10031 XS(_wrap_gsl_linalg_PTLQ_update) {
10032 {
10033 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
10034 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
10035 gsl_permutation *arg3 = (gsl_permutation *) 0 ;
10036 gsl_vector *arg4 = (gsl_vector *) 0 ;
10037 gsl_vector *arg5 = (gsl_vector *) 0 ;
10038 void *argp1 = 0 ;
10039 int res1 = 0 ;
10040 void *argp2 = 0 ;
10041 int res2 = 0 ;
10042 void *argp3 = 0 ;
10043 int res3 = 0 ;
10044 void *argp4 = 0 ;
10045 int res4 = 0 ;
10046 void *argp5 = 0 ;
10047 int res5 = 0 ;
10048 int argvi = 0;
10049 int result;
10050 dXSARGS;
10051
10052 if ((items < 5) || (items > 5)) {
10053 SWIG_croak("Usage: gsl_linalg_PTLQ_update(Q,L,p,v,w);");
10054 }
10055 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
10056 if (!SWIG_IsOK(res1)) {
10057 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_PTLQ_update" "', argument " "1"" of type '" "gsl_matrix *""'");
10058 }
10059 arg1 = (gsl_matrix *)(argp1);
10060 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
10061 if (!SWIG_IsOK(res2)) {
10062 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_PTLQ_update" "', argument " "2"" of type '" "gsl_matrix *""'");
10063 }
10064 arg2 = (gsl_matrix *)(argp2);
10065 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
10066 if (!SWIG_IsOK(res3)) {
10067 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_PTLQ_update" "', argument " "3"" of type '" "gsl_permutation const *""'");
10068 }
10069 arg3 = (gsl_permutation *)(argp3);
10070 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
10071 if (!SWIG_IsOK(res4)) {
10072 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_PTLQ_update" "', argument " "4"" of type '" "gsl_vector const *""'");
10073 }
10074 arg4 = (gsl_vector *)(argp4);
10075 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
10076 if (!SWIG_IsOK(res5)) {
10077 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_PTLQ_update" "', argument " "5"" of type '" "gsl_vector *""'");
10078 }
10079 arg5 = (gsl_vector *)(argp5);
10080 result = (int)gsl_linalg_PTLQ_update(arg1,arg2,(struct gsl_permutation_struct const *)arg3,(gsl_vector const *)arg4,arg5);
10081 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
10082
10083
10084
10085
10086
10087 XSRETURN(argvi);
10088 fail:
10089
10090
10091
10092
10093
10094 SWIG_croak_null();
10095 }
10096 }
10097
10098
XS(_wrap_gsl_linalg_cholesky_decomp)10099 XS(_wrap_gsl_linalg_cholesky_decomp) {
10100 {
10101 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
10102 void *argp1 = 0 ;
10103 int res1 = 0 ;
10104 int argvi = 0;
10105 int result;
10106 dXSARGS;
10107
10108 if ((items < 1) || (items > 1)) {
10109 SWIG_croak("Usage: gsl_linalg_cholesky_decomp(A);");
10110 }
10111 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
10112 if (!SWIG_IsOK(res1)) {
10113 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_cholesky_decomp" "', argument " "1"" of type '" "gsl_matrix *""'");
10114 }
10115 arg1 = (gsl_matrix *)(argp1);
10116 result = (int)gsl_linalg_cholesky_decomp(arg1);
10117 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
10118
10119 XSRETURN(argvi);
10120 fail:
10121
10122 SWIG_croak_null();
10123 }
10124 }
10125
10126
XS(_wrap_gsl_linalg_cholesky_decomp1)10127 XS(_wrap_gsl_linalg_cholesky_decomp1) {
10128 {
10129 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
10130 void *argp1 = 0 ;
10131 int res1 = 0 ;
10132 int argvi = 0;
10133 int result;
10134 dXSARGS;
10135
10136 if ((items < 1) || (items > 1)) {
10137 SWIG_croak("Usage: gsl_linalg_cholesky_decomp1(A);");
10138 }
10139 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
10140 if (!SWIG_IsOK(res1)) {
10141 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_cholesky_decomp1" "', argument " "1"" of type '" "gsl_matrix *""'");
10142 }
10143 arg1 = (gsl_matrix *)(argp1);
10144 result = (int)gsl_linalg_cholesky_decomp1(arg1);
10145 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
10146
10147 XSRETURN(argvi);
10148 fail:
10149
10150 SWIG_croak_null();
10151 }
10152 }
10153
10154
XS(_wrap_gsl_linalg_cholesky_solve)10155 XS(_wrap_gsl_linalg_cholesky_solve) {
10156 {
10157 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
10158 gsl_vector *arg2 = (gsl_vector *) 0 ;
10159 gsl_vector *arg3 = (gsl_vector *) 0 ;
10160 void *argp1 = 0 ;
10161 int res1 = 0 ;
10162 void *argp2 = 0 ;
10163 int res2 = 0 ;
10164 void *argp3 = 0 ;
10165 int res3 = 0 ;
10166 int argvi = 0;
10167 int result;
10168 dXSARGS;
10169
10170 if ((items < 3) || (items > 3)) {
10171 SWIG_croak("Usage: gsl_linalg_cholesky_solve(cholesky,b,x);");
10172 }
10173 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
10174 if (!SWIG_IsOK(res1)) {
10175 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_cholesky_solve" "', argument " "1"" of type '" "gsl_matrix const *""'");
10176 }
10177 arg1 = (gsl_matrix *)(argp1);
10178 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
10179 if (!SWIG_IsOK(res2)) {
10180 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_cholesky_solve" "', argument " "2"" of type '" "gsl_vector const *""'");
10181 }
10182 arg2 = (gsl_vector *)(argp2);
10183 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
10184 if (!SWIG_IsOK(res3)) {
10185 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_cholesky_solve" "', argument " "3"" of type '" "gsl_vector *""'");
10186 }
10187 arg3 = (gsl_vector *)(argp3);
10188 result = (int)gsl_linalg_cholesky_solve((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3);
10189 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
10190
10191
10192
10193 XSRETURN(argvi);
10194 fail:
10195
10196
10197
10198 SWIG_croak_null();
10199 }
10200 }
10201
10202
XS(_wrap_gsl_linalg_cholesky_solve_mat)10203 XS(_wrap_gsl_linalg_cholesky_solve_mat) {
10204 {
10205 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
10206 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
10207 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
10208 void *argp1 = 0 ;
10209 int res1 = 0 ;
10210 void *argp2 = 0 ;
10211 int res2 = 0 ;
10212 void *argp3 = 0 ;
10213 int res3 = 0 ;
10214 int argvi = 0;
10215 int result;
10216 dXSARGS;
10217
10218 if ((items < 3) || (items > 3)) {
10219 SWIG_croak("Usage: gsl_linalg_cholesky_solve_mat(cholesky,B,X);");
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_cholesky_solve_mat" "', argument " "1"" of type '" "gsl_matrix const *""'");
10224 }
10225 arg1 = (gsl_matrix *)(argp1);
10226 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
10227 if (!SWIG_IsOK(res2)) {
10228 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_cholesky_solve_mat" "', argument " "2"" of type '" "gsl_matrix const *""'");
10229 }
10230 arg2 = (gsl_matrix *)(argp2);
10231 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
10232 if (!SWIG_IsOK(res3)) {
10233 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_cholesky_solve_mat" "', argument " "3"" of type '" "gsl_matrix *""'");
10234 }
10235 arg3 = (gsl_matrix *)(argp3);
10236 result = (int)gsl_linalg_cholesky_solve_mat((gsl_matrix const *)arg1,(gsl_matrix const *)arg2,arg3);
10237 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
10238
10239
10240
10241 XSRETURN(argvi);
10242 fail:
10243
10244
10245
10246 SWIG_croak_null();
10247 }
10248 }
10249
10250
XS(_wrap_gsl_linalg_cholesky_svx)10251 XS(_wrap_gsl_linalg_cholesky_svx) {
10252 {
10253 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
10254 gsl_vector *arg2 = (gsl_vector *) 0 ;
10255 void *argp1 = 0 ;
10256 int res1 = 0 ;
10257 void *argp2 = 0 ;
10258 int res2 = 0 ;
10259 int argvi = 0;
10260 int result;
10261 dXSARGS;
10262
10263 if ((items < 2) || (items > 2)) {
10264 SWIG_croak("Usage: gsl_linalg_cholesky_svx(cholesky,x);");
10265 }
10266 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
10267 if (!SWIG_IsOK(res1)) {
10268 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_cholesky_svx" "', argument " "1"" of type '" "gsl_matrix const *""'");
10269 }
10270 arg1 = (gsl_matrix *)(argp1);
10271 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
10272 if (!SWIG_IsOK(res2)) {
10273 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_cholesky_svx" "', argument " "2"" of type '" "gsl_vector *""'");
10274 }
10275 arg2 = (gsl_vector *)(argp2);
10276 result = (int)gsl_linalg_cholesky_svx((gsl_matrix const *)arg1,arg2);
10277 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
10278
10279
10280 XSRETURN(argvi);
10281 fail:
10282
10283
10284 SWIG_croak_null();
10285 }
10286 }
10287
10288
XS(_wrap_gsl_linalg_cholesky_svx_mat)10289 XS(_wrap_gsl_linalg_cholesky_svx_mat) {
10290 {
10291 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
10292 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
10293 void *argp1 = 0 ;
10294 int res1 = 0 ;
10295 void *argp2 = 0 ;
10296 int res2 = 0 ;
10297 int argvi = 0;
10298 int result;
10299 dXSARGS;
10300
10301 if ((items < 2) || (items > 2)) {
10302 SWIG_croak("Usage: gsl_linalg_cholesky_svx_mat(cholesky,X);");
10303 }
10304 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
10305 if (!SWIG_IsOK(res1)) {
10306 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_cholesky_svx_mat" "', argument " "1"" of type '" "gsl_matrix const *""'");
10307 }
10308 arg1 = (gsl_matrix *)(argp1);
10309 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
10310 if (!SWIG_IsOK(res2)) {
10311 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_cholesky_svx_mat" "', argument " "2"" of type '" "gsl_matrix *""'");
10312 }
10313 arg2 = (gsl_matrix *)(argp2);
10314 result = (int)gsl_linalg_cholesky_svx_mat((gsl_matrix const *)arg1,arg2);
10315 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
10316
10317
10318 XSRETURN(argvi);
10319 fail:
10320
10321
10322 SWIG_croak_null();
10323 }
10324 }
10325
10326
XS(_wrap_gsl_linalg_cholesky_invert)10327 XS(_wrap_gsl_linalg_cholesky_invert) {
10328 {
10329 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
10330 void *argp1 = 0 ;
10331 int res1 = 0 ;
10332 int argvi = 0;
10333 int result;
10334 dXSARGS;
10335
10336 if ((items < 1) || (items > 1)) {
10337 SWIG_croak("Usage: gsl_linalg_cholesky_invert(cholesky);");
10338 }
10339 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
10340 if (!SWIG_IsOK(res1)) {
10341 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_cholesky_invert" "', argument " "1"" of type '" "gsl_matrix *""'");
10342 }
10343 arg1 = (gsl_matrix *)(argp1);
10344 result = (int)gsl_linalg_cholesky_invert(arg1);
10345 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
10346
10347 XSRETURN(argvi);
10348 fail:
10349
10350 SWIG_croak_null();
10351 }
10352 }
10353
10354
XS(_wrap_gsl_linalg_cholesky_decomp_unit)10355 XS(_wrap_gsl_linalg_cholesky_decomp_unit) {
10356 {
10357 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
10358 gsl_vector *arg2 = (gsl_vector *) 0 ;
10359 void *argp1 = 0 ;
10360 int res1 = 0 ;
10361 void *argp2 = 0 ;
10362 int res2 = 0 ;
10363 int argvi = 0;
10364 int result;
10365 dXSARGS;
10366
10367 if ((items < 2) || (items > 2)) {
10368 SWIG_croak("Usage: gsl_linalg_cholesky_decomp_unit(A,D);");
10369 }
10370 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
10371 if (!SWIG_IsOK(res1)) {
10372 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_cholesky_decomp_unit" "', argument " "1"" of type '" "gsl_matrix *""'");
10373 }
10374 arg1 = (gsl_matrix *)(argp1);
10375 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
10376 if (!SWIG_IsOK(res2)) {
10377 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_cholesky_decomp_unit" "', argument " "2"" of type '" "gsl_vector *""'");
10378 }
10379 arg2 = (gsl_vector *)(argp2);
10380 result = (int)gsl_linalg_cholesky_decomp_unit(arg1,arg2);
10381 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
10382
10383
10384 XSRETURN(argvi);
10385 fail:
10386
10387
10388 SWIG_croak_null();
10389 }
10390 }
10391
10392
XS(_wrap_gsl_linalg_cholesky_scale)10393 XS(_wrap_gsl_linalg_cholesky_scale) {
10394 {
10395 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
10396 gsl_vector *arg2 = (gsl_vector *) 0 ;
10397 void *argp1 = 0 ;
10398 int res1 = 0 ;
10399 void *argp2 = 0 ;
10400 int res2 = 0 ;
10401 int argvi = 0;
10402 int result;
10403 dXSARGS;
10404
10405 if ((items < 2) || (items > 2)) {
10406 SWIG_croak("Usage: gsl_linalg_cholesky_scale(A,S);");
10407 }
10408 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
10409 if (!SWIG_IsOK(res1)) {
10410 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_cholesky_scale" "', argument " "1"" of type '" "gsl_matrix const *""'");
10411 }
10412 arg1 = (gsl_matrix *)(argp1);
10413 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
10414 if (!SWIG_IsOK(res2)) {
10415 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_cholesky_scale" "', argument " "2"" of type '" "gsl_vector *""'");
10416 }
10417 arg2 = (gsl_vector *)(argp2);
10418 result = (int)gsl_linalg_cholesky_scale((gsl_matrix const *)arg1,arg2);
10419 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
10420
10421
10422 XSRETURN(argvi);
10423 fail:
10424
10425
10426 SWIG_croak_null();
10427 }
10428 }
10429
10430
XS(_wrap_gsl_linalg_cholesky_scale_apply)10431 XS(_wrap_gsl_linalg_cholesky_scale_apply) {
10432 {
10433 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
10434 gsl_vector *arg2 = (gsl_vector *) 0 ;
10435 void *argp1 = 0 ;
10436 int res1 = 0 ;
10437 void *argp2 = 0 ;
10438 int res2 = 0 ;
10439 int argvi = 0;
10440 int result;
10441 dXSARGS;
10442
10443 if ((items < 2) || (items > 2)) {
10444 SWIG_croak("Usage: gsl_linalg_cholesky_scale_apply(A,S);");
10445 }
10446 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
10447 if (!SWIG_IsOK(res1)) {
10448 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_cholesky_scale_apply" "', argument " "1"" of type '" "gsl_matrix *""'");
10449 }
10450 arg1 = (gsl_matrix *)(argp1);
10451 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
10452 if (!SWIG_IsOK(res2)) {
10453 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_cholesky_scale_apply" "', argument " "2"" of type '" "gsl_vector const *""'");
10454 }
10455 arg2 = (gsl_vector *)(argp2);
10456 result = (int)gsl_linalg_cholesky_scale_apply(arg1,(gsl_vector const *)arg2);
10457 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
10458
10459
10460 XSRETURN(argvi);
10461 fail:
10462
10463
10464 SWIG_croak_null();
10465 }
10466 }
10467
10468
XS(_wrap_gsl_linalg_cholesky_decomp2)10469 XS(_wrap_gsl_linalg_cholesky_decomp2) {
10470 {
10471 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
10472 gsl_vector *arg2 = (gsl_vector *) 0 ;
10473 void *argp1 = 0 ;
10474 int res1 = 0 ;
10475 void *argp2 = 0 ;
10476 int res2 = 0 ;
10477 int argvi = 0;
10478 int result;
10479 dXSARGS;
10480
10481 if ((items < 2) || (items > 2)) {
10482 SWIG_croak("Usage: gsl_linalg_cholesky_decomp2(A,S);");
10483 }
10484 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
10485 if (!SWIG_IsOK(res1)) {
10486 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_cholesky_decomp2" "', argument " "1"" of type '" "gsl_matrix *""'");
10487 }
10488 arg1 = (gsl_matrix *)(argp1);
10489 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
10490 if (!SWIG_IsOK(res2)) {
10491 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_cholesky_decomp2" "', argument " "2"" of type '" "gsl_vector *""'");
10492 }
10493 arg2 = (gsl_vector *)(argp2);
10494 result = (int)gsl_linalg_cholesky_decomp2(arg1,arg2);
10495 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
10496
10497
10498 XSRETURN(argvi);
10499 fail:
10500
10501
10502 SWIG_croak_null();
10503 }
10504 }
10505
10506
XS(_wrap_gsl_linalg_cholesky_svx2)10507 XS(_wrap_gsl_linalg_cholesky_svx2) {
10508 {
10509 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
10510 gsl_vector *arg2 = (gsl_vector *) 0 ;
10511 gsl_vector *arg3 = (gsl_vector *) 0 ;
10512 void *argp1 = 0 ;
10513 int res1 = 0 ;
10514 void *argp2 = 0 ;
10515 int res2 = 0 ;
10516 void *argp3 = 0 ;
10517 int res3 = 0 ;
10518 int argvi = 0;
10519 int result;
10520 dXSARGS;
10521
10522 if ((items < 3) || (items > 3)) {
10523 SWIG_croak("Usage: gsl_linalg_cholesky_svx2(LLT,S,x);");
10524 }
10525 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
10526 if (!SWIG_IsOK(res1)) {
10527 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_cholesky_svx2" "', argument " "1"" of type '" "gsl_matrix const *""'");
10528 }
10529 arg1 = (gsl_matrix *)(argp1);
10530 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
10531 if (!SWIG_IsOK(res2)) {
10532 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_cholesky_svx2" "', argument " "2"" of type '" "gsl_vector const *""'");
10533 }
10534 arg2 = (gsl_vector *)(argp2);
10535 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
10536 if (!SWIG_IsOK(res3)) {
10537 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_cholesky_svx2" "', argument " "3"" of type '" "gsl_vector *""'");
10538 }
10539 arg3 = (gsl_vector *)(argp3);
10540 result = (int)gsl_linalg_cholesky_svx2((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3);
10541 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
10542
10543
10544
10545 XSRETURN(argvi);
10546 fail:
10547
10548
10549
10550 SWIG_croak_null();
10551 }
10552 }
10553
10554
XS(_wrap_gsl_linalg_cholesky_solve2)10555 XS(_wrap_gsl_linalg_cholesky_solve2) {
10556 {
10557 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
10558 gsl_vector *arg2 = (gsl_vector *) 0 ;
10559 gsl_vector *arg3 = (gsl_vector *) 0 ;
10560 gsl_vector *arg4 = (gsl_vector *) 0 ;
10561 void *argp1 = 0 ;
10562 int res1 = 0 ;
10563 void *argp2 = 0 ;
10564 int res2 = 0 ;
10565 void *argp3 = 0 ;
10566 int res3 = 0 ;
10567 void *argp4 = 0 ;
10568 int res4 = 0 ;
10569 int argvi = 0;
10570 int result;
10571 dXSARGS;
10572
10573 if ((items < 4) || (items > 4)) {
10574 SWIG_croak("Usage: gsl_linalg_cholesky_solve2(LLT,S,b,x);");
10575 }
10576 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
10577 if (!SWIG_IsOK(res1)) {
10578 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_cholesky_solve2" "', argument " "1"" of type '" "gsl_matrix const *""'");
10579 }
10580 arg1 = (gsl_matrix *)(argp1);
10581 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
10582 if (!SWIG_IsOK(res2)) {
10583 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_cholesky_solve2" "', argument " "2"" of type '" "gsl_vector const *""'");
10584 }
10585 arg2 = (gsl_vector *)(argp2);
10586 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
10587 if (!SWIG_IsOK(res3)) {
10588 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_cholesky_solve2" "', argument " "3"" of type '" "gsl_vector const *""'");
10589 }
10590 arg3 = (gsl_vector *)(argp3);
10591 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
10592 if (!SWIG_IsOK(res4)) {
10593 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_cholesky_solve2" "', argument " "4"" of type '" "gsl_vector *""'");
10594 }
10595 arg4 = (gsl_vector *)(argp4);
10596 result = (int)gsl_linalg_cholesky_solve2((gsl_matrix const *)arg1,(gsl_vector const *)arg2,(gsl_vector const *)arg3,arg4);
10597 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
10598
10599
10600
10601
10602 XSRETURN(argvi);
10603 fail:
10604
10605
10606
10607
10608 SWIG_croak_null();
10609 }
10610 }
10611
10612
XS(_wrap_gsl_linalg_cholesky_rcond)10613 XS(_wrap_gsl_linalg_cholesky_rcond) {
10614 {
10615 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
10616 double *arg2 = (double *) 0 ;
10617 gsl_vector *arg3 = (gsl_vector *) 0 ;
10618 void *argp1 = 0 ;
10619 int res1 = 0 ;
10620 void *argp2 = 0 ;
10621 int res2 = 0 ;
10622 void *argp3 = 0 ;
10623 int res3 = 0 ;
10624 int argvi = 0;
10625 int result;
10626 dXSARGS;
10627
10628 if ((items < 3) || (items > 3)) {
10629 SWIG_croak("Usage: gsl_linalg_cholesky_rcond(LLT,rcond,work);");
10630 }
10631 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
10632 if (!SWIG_IsOK(res1)) {
10633 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_cholesky_rcond" "', argument " "1"" of type '" "gsl_matrix const *""'");
10634 }
10635 arg1 = (gsl_matrix *)(argp1);
10636 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_double, 0 | 0 );
10637 if (!SWIG_IsOK(res2)) {
10638 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_cholesky_rcond" "', argument " "2"" of type '" "double *""'");
10639 }
10640 arg2 = (double *)(argp2);
10641 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
10642 if (!SWIG_IsOK(res3)) {
10643 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_cholesky_rcond" "', argument " "3"" of type '" "gsl_vector *""'");
10644 }
10645 arg3 = (gsl_vector *)(argp3);
10646 result = (int)gsl_linalg_cholesky_rcond((gsl_matrix const *)arg1,arg2,arg3);
10647 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
10648
10649
10650
10651 XSRETURN(argvi);
10652 fail:
10653
10654
10655
10656 SWIG_croak_null();
10657 }
10658 }
10659
10660
XS(_wrap_gsl_linalg_complex_cholesky_decomp)10661 XS(_wrap_gsl_linalg_complex_cholesky_decomp) {
10662 {
10663 gsl_matrix_complex *arg1 = (gsl_matrix_complex *) 0 ;
10664 void *argp1 = 0 ;
10665 int res1 = 0 ;
10666 int argvi = 0;
10667 int result;
10668 dXSARGS;
10669
10670 if ((items < 1) || (items > 1)) {
10671 SWIG_croak("Usage: gsl_linalg_complex_cholesky_decomp(A);");
10672 }
10673 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
10674 if (!SWIG_IsOK(res1)) {
10675 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_complex_cholesky_decomp" "', argument " "1"" of type '" "gsl_matrix_complex *""'");
10676 }
10677 arg1 = (gsl_matrix_complex *)(argp1);
10678 result = (int)gsl_linalg_complex_cholesky_decomp(arg1);
10679 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
10680
10681 XSRETURN(argvi);
10682 fail:
10683
10684 SWIG_croak_null();
10685 }
10686 }
10687
10688
XS(_wrap_gsl_linalg_complex_cholesky_solve)10689 XS(_wrap_gsl_linalg_complex_cholesky_solve) {
10690 {
10691 gsl_matrix_complex *arg1 = (gsl_matrix_complex *) 0 ;
10692 gsl_vector_complex *arg2 = (gsl_vector_complex *) 0 ;
10693 gsl_vector_complex *arg3 = (gsl_vector_complex *) 0 ;
10694 void *argp1 = 0 ;
10695 int res1 = 0 ;
10696 void *argp2 = 0 ;
10697 int res2 = 0 ;
10698 void *argp3 = 0 ;
10699 int res3 = 0 ;
10700 int argvi = 0;
10701 int result;
10702 dXSARGS;
10703
10704 if ((items < 3) || (items > 3)) {
10705 SWIG_croak("Usage: gsl_linalg_complex_cholesky_solve(cholesky,b,x);");
10706 }
10707 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
10708 if (!SWIG_IsOK(res1)) {
10709 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_complex_cholesky_solve" "', argument " "1"" of type '" "gsl_matrix_complex const *""'");
10710 }
10711 arg1 = (gsl_matrix_complex *)(argp1);
10712 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
10713 if (!SWIG_IsOK(res2)) {
10714 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_complex_cholesky_solve" "', argument " "2"" of type '" "gsl_vector_complex const *""'");
10715 }
10716 arg2 = (gsl_vector_complex *)(argp2);
10717 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
10718 if (!SWIG_IsOK(res3)) {
10719 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_complex_cholesky_solve" "', argument " "3"" of type '" "gsl_vector_complex *""'");
10720 }
10721 arg3 = (gsl_vector_complex *)(argp3);
10722 result = (int)gsl_linalg_complex_cholesky_solve((gsl_matrix_complex const *)arg1,(gsl_vector_complex const *)arg2,arg3);
10723 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
10724
10725
10726
10727 XSRETURN(argvi);
10728 fail:
10729
10730
10731
10732 SWIG_croak_null();
10733 }
10734 }
10735
10736
XS(_wrap_gsl_linalg_complex_cholesky_svx)10737 XS(_wrap_gsl_linalg_complex_cholesky_svx) {
10738 {
10739 gsl_matrix_complex *arg1 = (gsl_matrix_complex *) 0 ;
10740 gsl_vector_complex *arg2 = (gsl_vector_complex *) 0 ;
10741 void *argp1 = 0 ;
10742 int res1 = 0 ;
10743 void *argp2 = 0 ;
10744 int res2 = 0 ;
10745 int argvi = 0;
10746 int result;
10747 dXSARGS;
10748
10749 if ((items < 2) || (items > 2)) {
10750 SWIG_croak("Usage: gsl_linalg_complex_cholesky_svx(cholesky,x);");
10751 }
10752 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
10753 if (!SWIG_IsOK(res1)) {
10754 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_complex_cholesky_svx" "', argument " "1"" of type '" "gsl_matrix_complex const *""'");
10755 }
10756 arg1 = (gsl_matrix_complex *)(argp1);
10757 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
10758 if (!SWIG_IsOK(res2)) {
10759 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_complex_cholesky_svx" "', argument " "2"" of type '" "gsl_vector_complex *""'");
10760 }
10761 arg2 = (gsl_vector_complex *)(argp2);
10762 result = (int)gsl_linalg_complex_cholesky_svx((gsl_matrix_complex const *)arg1,arg2);
10763 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
10764
10765
10766 XSRETURN(argvi);
10767 fail:
10768
10769
10770 SWIG_croak_null();
10771 }
10772 }
10773
10774
XS(_wrap_gsl_linalg_complex_cholesky_invert)10775 XS(_wrap_gsl_linalg_complex_cholesky_invert) {
10776 {
10777 gsl_matrix_complex *arg1 = (gsl_matrix_complex *) 0 ;
10778 void *argp1 = 0 ;
10779 int res1 = 0 ;
10780 int argvi = 0;
10781 int result;
10782 dXSARGS;
10783
10784 if ((items < 1) || (items > 1)) {
10785 SWIG_croak("Usage: gsl_linalg_complex_cholesky_invert(cholesky);");
10786 }
10787 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
10788 if (!SWIG_IsOK(res1)) {
10789 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_complex_cholesky_invert" "', argument " "1"" of type '" "gsl_matrix_complex *""'");
10790 }
10791 arg1 = (gsl_matrix_complex *)(argp1);
10792 result = (int)gsl_linalg_complex_cholesky_invert(arg1);
10793 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
10794
10795 XSRETURN(argvi);
10796 fail:
10797
10798 SWIG_croak_null();
10799 }
10800 }
10801
10802
XS(_wrap_gsl_linalg_pcholesky_decomp)10803 XS(_wrap_gsl_linalg_pcholesky_decomp) {
10804 {
10805 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
10806 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
10807 void *argp1 = 0 ;
10808 int res1 = 0 ;
10809 void *argp2 = 0 ;
10810 int res2 = 0 ;
10811 int argvi = 0;
10812 int result;
10813 dXSARGS;
10814
10815 if ((items < 2) || (items > 2)) {
10816 SWIG_croak("Usage: gsl_linalg_pcholesky_decomp(A,p);");
10817 }
10818 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
10819 if (!SWIG_IsOK(res1)) {
10820 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_pcholesky_decomp" "', argument " "1"" of type '" "gsl_matrix *""'");
10821 }
10822 arg1 = (gsl_matrix *)(argp1);
10823 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
10824 if (!SWIG_IsOK(res2)) {
10825 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_pcholesky_decomp" "', argument " "2"" of type '" "gsl_permutation *""'");
10826 }
10827 arg2 = (gsl_permutation *)(argp2);
10828 result = (int)gsl_linalg_pcholesky_decomp(arg1,arg2);
10829 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
10830
10831
10832 XSRETURN(argvi);
10833 fail:
10834
10835
10836 SWIG_croak_null();
10837 }
10838 }
10839
10840
XS(_wrap_gsl_linalg_pcholesky_solve)10841 XS(_wrap_gsl_linalg_pcholesky_solve) {
10842 {
10843 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
10844 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
10845 gsl_vector *arg3 = (gsl_vector *) 0 ;
10846 gsl_vector *arg4 = (gsl_vector *) 0 ;
10847 void *argp1 = 0 ;
10848 int res1 = 0 ;
10849 void *argp2 = 0 ;
10850 int res2 = 0 ;
10851 void *argp3 = 0 ;
10852 int res3 = 0 ;
10853 void *argp4 = 0 ;
10854 int res4 = 0 ;
10855 int argvi = 0;
10856 int result;
10857 dXSARGS;
10858
10859 if ((items < 4) || (items > 4)) {
10860 SWIG_croak("Usage: gsl_linalg_pcholesky_solve(LDLT,p,b,x);");
10861 }
10862 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
10863 if (!SWIG_IsOK(res1)) {
10864 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_pcholesky_solve" "', argument " "1"" of type '" "gsl_matrix const *""'");
10865 }
10866 arg1 = (gsl_matrix *)(argp1);
10867 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
10868 if (!SWIG_IsOK(res2)) {
10869 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_pcholesky_solve" "', argument " "2"" of type '" "gsl_permutation const *""'");
10870 }
10871 arg2 = (gsl_permutation *)(argp2);
10872 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
10873 if (!SWIG_IsOK(res3)) {
10874 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_pcholesky_solve" "', argument " "3"" of type '" "gsl_vector const *""'");
10875 }
10876 arg3 = (gsl_vector *)(argp3);
10877 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
10878 if (!SWIG_IsOK(res4)) {
10879 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_pcholesky_solve" "', argument " "4"" of type '" "gsl_vector *""'");
10880 }
10881 arg4 = (gsl_vector *)(argp4);
10882 result = (int)gsl_linalg_pcholesky_solve((gsl_matrix const *)arg1,(struct gsl_permutation_struct const *)arg2,(gsl_vector const *)arg3,arg4);
10883 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
10884
10885
10886
10887
10888 XSRETURN(argvi);
10889 fail:
10890
10891
10892
10893
10894 SWIG_croak_null();
10895 }
10896 }
10897
10898
XS(_wrap_gsl_linalg_pcholesky_svx)10899 XS(_wrap_gsl_linalg_pcholesky_svx) {
10900 {
10901 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
10902 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
10903 gsl_vector *arg3 = (gsl_vector *) 0 ;
10904 void *argp1 = 0 ;
10905 int res1 = 0 ;
10906 void *argp2 = 0 ;
10907 int res2 = 0 ;
10908 void *argp3 = 0 ;
10909 int res3 = 0 ;
10910 int argvi = 0;
10911 int result;
10912 dXSARGS;
10913
10914 if ((items < 3) || (items > 3)) {
10915 SWIG_croak("Usage: gsl_linalg_pcholesky_svx(LDLT,p,x);");
10916 }
10917 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
10918 if (!SWIG_IsOK(res1)) {
10919 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_pcholesky_svx" "', argument " "1"" of type '" "gsl_matrix const *""'");
10920 }
10921 arg1 = (gsl_matrix *)(argp1);
10922 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
10923 if (!SWIG_IsOK(res2)) {
10924 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_pcholesky_svx" "', argument " "2"" of type '" "gsl_permutation const *""'");
10925 }
10926 arg2 = (gsl_permutation *)(argp2);
10927 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
10928 if (!SWIG_IsOK(res3)) {
10929 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_pcholesky_svx" "', argument " "3"" of type '" "gsl_vector *""'");
10930 }
10931 arg3 = (gsl_vector *)(argp3);
10932 result = (int)gsl_linalg_pcholesky_svx((gsl_matrix const *)arg1,(struct gsl_permutation_struct const *)arg2,arg3);
10933 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
10934
10935
10936
10937 XSRETURN(argvi);
10938 fail:
10939
10940
10941
10942 SWIG_croak_null();
10943 }
10944 }
10945
10946
XS(_wrap_gsl_linalg_pcholesky_decomp2)10947 XS(_wrap_gsl_linalg_pcholesky_decomp2) {
10948 {
10949 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
10950 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
10951 gsl_vector *arg3 = (gsl_vector *) 0 ;
10952 void *argp1 = 0 ;
10953 int res1 = 0 ;
10954 void *argp2 = 0 ;
10955 int res2 = 0 ;
10956 void *argp3 = 0 ;
10957 int res3 = 0 ;
10958 int argvi = 0;
10959 int result;
10960 dXSARGS;
10961
10962 if ((items < 3) || (items > 3)) {
10963 SWIG_croak("Usage: gsl_linalg_pcholesky_decomp2(A,p,S);");
10964 }
10965 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
10966 if (!SWIG_IsOK(res1)) {
10967 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_pcholesky_decomp2" "', argument " "1"" of type '" "gsl_matrix *""'");
10968 }
10969 arg1 = (gsl_matrix *)(argp1);
10970 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
10971 if (!SWIG_IsOK(res2)) {
10972 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_pcholesky_decomp2" "', argument " "2"" of type '" "gsl_permutation *""'");
10973 }
10974 arg2 = (gsl_permutation *)(argp2);
10975 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
10976 if (!SWIG_IsOK(res3)) {
10977 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_pcholesky_decomp2" "', argument " "3"" of type '" "gsl_vector *""'");
10978 }
10979 arg3 = (gsl_vector *)(argp3);
10980 result = (int)gsl_linalg_pcholesky_decomp2(arg1,arg2,arg3);
10981 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
10982
10983
10984
10985 XSRETURN(argvi);
10986 fail:
10987
10988
10989
10990 SWIG_croak_null();
10991 }
10992 }
10993
10994
XS(_wrap_gsl_linalg_pcholesky_solve2)10995 XS(_wrap_gsl_linalg_pcholesky_solve2) {
10996 {
10997 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
10998 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
10999 gsl_vector *arg3 = (gsl_vector *) 0 ;
11000 gsl_vector *arg4 = (gsl_vector *) 0 ;
11001 gsl_vector *arg5 = (gsl_vector *) 0 ;
11002 void *argp1 = 0 ;
11003 int res1 = 0 ;
11004 void *argp2 = 0 ;
11005 int res2 = 0 ;
11006 void *argp3 = 0 ;
11007 int res3 = 0 ;
11008 void *argp4 = 0 ;
11009 int res4 = 0 ;
11010 void *argp5 = 0 ;
11011 int res5 = 0 ;
11012 int argvi = 0;
11013 int result;
11014 dXSARGS;
11015
11016 if ((items < 5) || (items > 5)) {
11017 SWIG_croak("Usage: gsl_linalg_pcholesky_solve2(LDLT,p,S,b,x);");
11018 }
11019 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
11020 if (!SWIG_IsOK(res1)) {
11021 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_pcholesky_solve2" "', argument " "1"" of type '" "gsl_matrix const *""'");
11022 }
11023 arg1 = (gsl_matrix *)(argp1);
11024 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
11025 if (!SWIG_IsOK(res2)) {
11026 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_pcholesky_solve2" "', argument " "2"" of type '" "gsl_permutation const *""'");
11027 }
11028 arg2 = (gsl_permutation *)(argp2);
11029 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
11030 if (!SWIG_IsOK(res3)) {
11031 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_pcholesky_solve2" "', argument " "3"" of type '" "gsl_vector const *""'");
11032 }
11033 arg3 = (gsl_vector *)(argp3);
11034 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
11035 if (!SWIG_IsOK(res4)) {
11036 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_pcholesky_solve2" "', argument " "4"" of type '" "gsl_vector const *""'");
11037 }
11038 arg4 = (gsl_vector *)(argp4);
11039 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
11040 if (!SWIG_IsOK(res5)) {
11041 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_pcholesky_solve2" "', argument " "5"" of type '" "gsl_vector *""'");
11042 }
11043 arg5 = (gsl_vector *)(argp5);
11044 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);
11045 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
11046
11047
11048
11049
11050
11051 XSRETURN(argvi);
11052 fail:
11053
11054
11055
11056
11057
11058 SWIG_croak_null();
11059 }
11060 }
11061
11062
XS(_wrap_gsl_linalg_pcholesky_svx2)11063 XS(_wrap_gsl_linalg_pcholesky_svx2) {
11064 {
11065 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
11066 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
11067 gsl_vector *arg3 = (gsl_vector *) 0 ;
11068 gsl_vector *arg4 = (gsl_vector *) 0 ;
11069 void *argp1 = 0 ;
11070 int res1 = 0 ;
11071 void *argp2 = 0 ;
11072 int res2 = 0 ;
11073 void *argp3 = 0 ;
11074 int res3 = 0 ;
11075 void *argp4 = 0 ;
11076 int res4 = 0 ;
11077 int argvi = 0;
11078 int result;
11079 dXSARGS;
11080
11081 if ((items < 4) || (items > 4)) {
11082 SWIG_croak("Usage: gsl_linalg_pcholesky_svx2(LDLT,p,S,x);");
11083 }
11084 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
11085 if (!SWIG_IsOK(res1)) {
11086 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_pcholesky_svx2" "', argument " "1"" of type '" "gsl_matrix const *""'");
11087 }
11088 arg1 = (gsl_matrix *)(argp1);
11089 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
11090 if (!SWIG_IsOK(res2)) {
11091 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_pcholesky_svx2" "', argument " "2"" of type '" "gsl_permutation const *""'");
11092 }
11093 arg2 = (gsl_permutation *)(argp2);
11094 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
11095 if (!SWIG_IsOK(res3)) {
11096 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_pcholesky_svx2" "', argument " "3"" of type '" "gsl_vector const *""'");
11097 }
11098 arg3 = (gsl_vector *)(argp3);
11099 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
11100 if (!SWIG_IsOK(res4)) {
11101 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_pcholesky_svx2" "', argument " "4"" of type '" "gsl_vector *""'");
11102 }
11103 arg4 = (gsl_vector *)(argp4);
11104 result = (int)gsl_linalg_pcholesky_svx2((gsl_matrix const *)arg1,(struct gsl_permutation_struct const *)arg2,(gsl_vector const *)arg3,arg4);
11105 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
11106
11107
11108
11109
11110 XSRETURN(argvi);
11111 fail:
11112
11113
11114
11115
11116 SWIG_croak_null();
11117 }
11118 }
11119
11120
XS(_wrap_gsl_linalg_pcholesky_invert)11121 XS(_wrap_gsl_linalg_pcholesky_invert) {
11122 {
11123 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
11124 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
11125 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
11126 void *argp1 = 0 ;
11127 int res1 = 0 ;
11128 void *argp2 = 0 ;
11129 int res2 = 0 ;
11130 void *argp3 = 0 ;
11131 int res3 = 0 ;
11132 int argvi = 0;
11133 int result;
11134 dXSARGS;
11135
11136 if ((items < 3) || (items > 3)) {
11137 SWIG_croak("Usage: gsl_linalg_pcholesky_invert(LDLT,p,Ainv);");
11138 }
11139 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
11140 if (!SWIG_IsOK(res1)) {
11141 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_pcholesky_invert" "', argument " "1"" of type '" "gsl_matrix const *""'");
11142 }
11143 arg1 = (gsl_matrix *)(argp1);
11144 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
11145 if (!SWIG_IsOK(res2)) {
11146 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_pcholesky_invert" "', argument " "2"" of type '" "gsl_permutation const *""'");
11147 }
11148 arg2 = (gsl_permutation *)(argp2);
11149 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
11150 if (!SWIG_IsOK(res3)) {
11151 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_pcholesky_invert" "', argument " "3"" of type '" "gsl_matrix *""'");
11152 }
11153 arg3 = (gsl_matrix *)(argp3);
11154 result = (int)gsl_linalg_pcholesky_invert((gsl_matrix const *)arg1,(struct gsl_permutation_struct const *)arg2,arg3);
11155 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
11156
11157
11158
11159 XSRETURN(argvi);
11160 fail:
11161
11162
11163
11164 SWIG_croak_null();
11165 }
11166 }
11167
11168
XS(_wrap_gsl_linalg_pcholesky_rcond)11169 XS(_wrap_gsl_linalg_pcholesky_rcond) {
11170 {
11171 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
11172 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
11173 double *arg3 = (double *) 0 ;
11174 gsl_vector *arg4 = (gsl_vector *) 0 ;
11175 void *argp1 = 0 ;
11176 int res1 = 0 ;
11177 void *argp2 = 0 ;
11178 int res2 = 0 ;
11179 void *argp3 = 0 ;
11180 int res3 = 0 ;
11181 void *argp4 = 0 ;
11182 int res4 = 0 ;
11183 int argvi = 0;
11184 int result;
11185 dXSARGS;
11186
11187 if ((items < 4) || (items > 4)) {
11188 SWIG_croak("Usage: gsl_linalg_pcholesky_rcond(LDLT,p,rcond,work);");
11189 }
11190 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
11191 if (!SWIG_IsOK(res1)) {
11192 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_pcholesky_rcond" "', argument " "1"" of type '" "gsl_matrix const *""'");
11193 }
11194 arg1 = (gsl_matrix *)(argp1);
11195 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
11196 if (!SWIG_IsOK(res2)) {
11197 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_pcholesky_rcond" "', argument " "2"" of type '" "gsl_permutation const *""'");
11198 }
11199 arg2 = (gsl_permutation *)(argp2);
11200 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_double, 0 | 0 );
11201 if (!SWIG_IsOK(res3)) {
11202 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_pcholesky_rcond" "', argument " "3"" of type '" "double *""'");
11203 }
11204 arg3 = (double *)(argp3);
11205 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
11206 if (!SWIG_IsOK(res4)) {
11207 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_pcholesky_rcond" "', argument " "4"" of type '" "gsl_vector *""'");
11208 }
11209 arg4 = (gsl_vector *)(argp4);
11210 result = (int)gsl_linalg_pcholesky_rcond((gsl_matrix const *)arg1,(struct gsl_permutation_struct const *)arg2,arg3,arg4);
11211 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
11212
11213
11214
11215
11216 XSRETURN(argvi);
11217 fail:
11218
11219
11220
11221
11222 SWIG_croak_null();
11223 }
11224 }
11225
11226
XS(_wrap_gsl_linalg_mcholesky_decomp)11227 XS(_wrap_gsl_linalg_mcholesky_decomp) {
11228 {
11229 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
11230 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
11231 gsl_vector *arg3 = (gsl_vector *) 0 ;
11232 void *argp1 = 0 ;
11233 int res1 = 0 ;
11234 void *argp2 = 0 ;
11235 int res2 = 0 ;
11236 void *argp3 = 0 ;
11237 int res3 = 0 ;
11238 int argvi = 0;
11239 int result;
11240 dXSARGS;
11241
11242 if ((items < 3) || (items > 3)) {
11243 SWIG_croak("Usage: gsl_linalg_mcholesky_decomp(A,p,E);");
11244 }
11245 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
11246 if (!SWIG_IsOK(res1)) {
11247 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_mcholesky_decomp" "', argument " "1"" of type '" "gsl_matrix *""'");
11248 }
11249 arg1 = (gsl_matrix *)(argp1);
11250 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
11251 if (!SWIG_IsOK(res2)) {
11252 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_mcholesky_decomp" "', argument " "2"" of type '" "gsl_permutation *""'");
11253 }
11254 arg2 = (gsl_permutation *)(argp2);
11255 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
11256 if (!SWIG_IsOK(res3)) {
11257 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_mcholesky_decomp" "', argument " "3"" of type '" "gsl_vector *""'");
11258 }
11259 arg3 = (gsl_vector *)(argp3);
11260 result = (int)gsl_linalg_mcholesky_decomp(arg1,arg2,arg3);
11261 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
11262
11263
11264
11265 XSRETURN(argvi);
11266 fail:
11267
11268
11269
11270 SWIG_croak_null();
11271 }
11272 }
11273
11274
XS(_wrap_gsl_linalg_mcholesky_solve)11275 XS(_wrap_gsl_linalg_mcholesky_solve) {
11276 {
11277 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
11278 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
11279 gsl_vector *arg3 = (gsl_vector *) 0 ;
11280 gsl_vector *arg4 = (gsl_vector *) 0 ;
11281 void *argp1 = 0 ;
11282 int res1 = 0 ;
11283 void *argp2 = 0 ;
11284 int res2 = 0 ;
11285 void *argp3 = 0 ;
11286 int res3 = 0 ;
11287 void *argp4 = 0 ;
11288 int res4 = 0 ;
11289 int argvi = 0;
11290 int result;
11291 dXSARGS;
11292
11293 if ((items < 4) || (items > 4)) {
11294 SWIG_croak("Usage: gsl_linalg_mcholesky_solve(LDLT,p,b,x);");
11295 }
11296 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
11297 if (!SWIG_IsOK(res1)) {
11298 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_mcholesky_solve" "', argument " "1"" of type '" "gsl_matrix const *""'");
11299 }
11300 arg1 = (gsl_matrix *)(argp1);
11301 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
11302 if (!SWIG_IsOK(res2)) {
11303 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_mcholesky_solve" "', argument " "2"" of type '" "gsl_permutation const *""'");
11304 }
11305 arg2 = (gsl_permutation *)(argp2);
11306 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
11307 if (!SWIG_IsOK(res3)) {
11308 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_mcholesky_solve" "', argument " "3"" of type '" "gsl_vector const *""'");
11309 }
11310 arg3 = (gsl_vector *)(argp3);
11311 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
11312 if (!SWIG_IsOK(res4)) {
11313 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_mcholesky_solve" "', argument " "4"" of type '" "gsl_vector *""'");
11314 }
11315 arg4 = (gsl_vector *)(argp4);
11316 result = (int)gsl_linalg_mcholesky_solve((gsl_matrix const *)arg1,(struct gsl_permutation_struct const *)arg2,(gsl_vector const *)arg3,arg4);
11317 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
11318
11319
11320
11321
11322 XSRETURN(argvi);
11323 fail:
11324
11325
11326
11327
11328 SWIG_croak_null();
11329 }
11330 }
11331
11332
XS(_wrap_gsl_linalg_mcholesky_svx)11333 XS(_wrap_gsl_linalg_mcholesky_svx) {
11334 {
11335 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
11336 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
11337 gsl_vector *arg3 = (gsl_vector *) 0 ;
11338 void *argp1 = 0 ;
11339 int res1 = 0 ;
11340 void *argp2 = 0 ;
11341 int res2 = 0 ;
11342 void *argp3 = 0 ;
11343 int res3 = 0 ;
11344 int argvi = 0;
11345 int result;
11346 dXSARGS;
11347
11348 if ((items < 3) || (items > 3)) {
11349 SWIG_croak("Usage: gsl_linalg_mcholesky_svx(LDLT,p,x);");
11350 }
11351 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
11352 if (!SWIG_IsOK(res1)) {
11353 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_mcholesky_svx" "', argument " "1"" of type '" "gsl_matrix const *""'");
11354 }
11355 arg1 = (gsl_matrix *)(argp1);
11356 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
11357 if (!SWIG_IsOK(res2)) {
11358 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_mcholesky_svx" "', argument " "2"" of type '" "gsl_permutation const *""'");
11359 }
11360 arg2 = (gsl_permutation *)(argp2);
11361 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
11362 if (!SWIG_IsOK(res3)) {
11363 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_mcholesky_svx" "', argument " "3"" of type '" "gsl_vector *""'");
11364 }
11365 arg3 = (gsl_vector *)(argp3);
11366 result = (int)gsl_linalg_mcholesky_svx((gsl_matrix const *)arg1,(struct gsl_permutation_struct const *)arg2,arg3);
11367 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
11368
11369
11370
11371 XSRETURN(argvi);
11372 fail:
11373
11374
11375
11376 SWIG_croak_null();
11377 }
11378 }
11379
11380
XS(_wrap_gsl_linalg_mcholesky_rcond)11381 XS(_wrap_gsl_linalg_mcholesky_rcond) {
11382 {
11383 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
11384 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
11385 double *arg3 = (double *) 0 ;
11386 gsl_vector *arg4 = (gsl_vector *) 0 ;
11387 void *argp1 = 0 ;
11388 int res1 = 0 ;
11389 void *argp2 = 0 ;
11390 int res2 = 0 ;
11391 void *argp3 = 0 ;
11392 int res3 = 0 ;
11393 void *argp4 = 0 ;
11394 int res4 = 0 ;
11395 int argvi = 0;
11396 int result;
11397 dXSARGS;
11398
11399 if ((items < 4) || (items > 4)) {
11400 SWIG_croak("Usage: gsl_linalg_mcholesky_rcond(LDLT,p,rcond,work);");
11401 }
11402 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
11403 if (!SWIG_IsOK(res1)) {
11404 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_mcholesky_rcond" "', argument " "1"" of type '" "gsl_matrix const *""'");
11405 }
11406 arg1 = (gsl_matrix *)(argp1);
11407 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
11408 if (!SWIG_IsOK(res2)) {
11409 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_mcholesky_rcond" "', argument " "2"" of type '" "gsl_permutation const *""'");
11410 }
11411 arg2 = (gsl_permutation *)(argp2);
11412 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_double, 0 | 0 );
11413 if (!SWIG_IsOK(res3)) {
11414 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_mcholesky_rcond" "', argument " "3"" of type '" "double *""'");
11415 }
11416 arg3 = (double *)(argp3);
11417 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
11418 if (!SWIG_IsOK(res4)) {
11419 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_mcholesky_rcond" "', argument " "4"" of type '" "gsl_vector *""'");
11420 }
11421 arg4 = (gsl_vector *)(argp4);
11422 result = (int)gsl_linalg_mcholesky_rcond((gsl_matrix const *)arg1,(struct gsl_permutation_struct const *)arg2,arg3,arg4);
11423 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
11424
11425
11426
11427
11428 XSRETURN(argvi);
11429 fail:
11430
11431
11432
11433
11434 SWIG_croak_null();
11435 }
11436 }
11437
11438
XS(_wrap_gsl_linalg_mcholesky_invert)11439 XS(_wrap_gsl_linalg_mcholesky_invert) {
11440 {
11441 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
11442 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
11443 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
11444 void *argp1 = 0 ;
11445 int res1 = 0 ;
11446 void *argp2 = 0 ;
11447 int res2 = 0 ;
11448 void *argp3 = 0 ;
11449 int res3 = 0 ;
11450 int argvi = 0;
11451 int result;
11452 dXSARGS;
11453
11454 if ((items < 3) || (items > 3)) {
11455 SWIG_croak("Usage: gsl_linalg_mcholesky_invert(LDLT,p,Ainv);");
11456 }
11457 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
11458 if (!SWIG_IsOK(res1)) {
11459 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_mcholesky_invert" "', argument " "1"" of type '" "gsl_matrix const *""'");
11460 }
11461 arg1 = (gsl_matrix *)(argp1);
11462 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
11463 if (!SWIG_IsOK(res2)) {
11464 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_mcholesky_invert" "', argument " "2"" of type '" "gsl_permutation const *""'");
11465 }
11466 arg2 = (gsl_permutation *)(argp2);
11467 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
11468 if (!SWIG_IsOK(res3)) {
11469 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_mcholesky_invert" "', argument " "3"" of type '" "gsl_matrix *""'");
11470 }
11471 arg3 = (gsl_matrix *)(argp3);
11472 result = (int)gsl_linalg_mcholesky_invert((gsl_matrix const *)arg1,(struct gsl_permutation_struct const *)arg2,arg3);
11473 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
11474
11475
11476
11477 XSRETURN(argvi);
11478 fail:
11479
11480
11481
11482 SWIG_croak_null();
11483 }
11484 }
11485
11486
XS(_wrap_gsl_linalg_cholesky_band_decomp)11487 XS(_wrap_gsl_linalg_cholesky_band_decomp) {
11488 {
11489 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
11490 void *argp1 = 0 ;
11491 int res1 = 0 ;
11492 int argvi = 0;
11493 int result;
11494 dXSARGS;
11495
11496 if ((items < 1) || (items > 1)) {
11497 SWIG_croak("Usage: gsl_linalg_cholesky_band_decomp(A);");
11498 }
11499 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
11500 if (!SWIG_IsOK(res1)) {
11501 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_cholesky_band_decomp" "', argument " "1"" of type '" "gsl_matrix *""'");
11502 }
11503 arg1 = (gsl_matrix *)(argp1);
11504 result = (int)gsl_linalg_cholesky_band_decomp(arg1);
11505 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
11506
11507 XSRETURN(argvi);
11508 fail:
11509
11510 SWIG_croak_null();
11511 }
11512 }
11513
11514
XS(_wrap_gsl_linalg_cholesky_band_solve)11515 XS(_wrap_gsl_linalg_cholesky_band_solve) {
11516 {
11517 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
11518 gsl_vector *arg2 = (gsl_vector *) 0 ;
11519 gsl_vector *arg3 = (gsl_vector *) 0 ;
11520 void *argp1 = 0 ;
11521 int res1 = 0 ;
11522 void *argp2 = 0 ;
11523 int res2 = 0 ;
11524 void *argp3 = 0 ;
11525 int res3 = 0 ;
11526 int argvi = 0;
11527 int result;
11528 dXSARGS;
11529
11530 if ((items < 3) || (items > 3)) {
11531 SWIG_croak("Usage: gsl_linalg_cholesky_band_solve(LLT,b,x);");
11532 }
11533 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
11534 if (!SWIG_IsOK(res1)) {
11535 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_cholesky_band_solve" "', argument " "1"" of type '" "gsl_matrix const *""'");
11536 }
11537 arg1 = (gsl_matrix *)(argp1);
11538 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
11539 if (!SWIG_IsOK(res2)) {
11540 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_cholesky_band_solve" "', argument " "2"" of type '" "gsl_vector const *""'");
11541 }
11542 arg2 = (gsl_vector *)(argp2);
11543 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
11544 if (!SWIG_IsOK(res3)) {
11545 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_cholesky_band_solve" "', argument " "3"" of type '" "gsl_vector *""'");
11546 }
11547 arg3 = (gsl_vector *)(argp3);
11548 result = (int)gsl_linalg_cholesky_band_solve((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3);
11549 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
11550
11551
11552
11553 XSRETURN(argvi);
11554 fail:
11555
11556
11557
11558 SWIG_croak_null();
11559 }
11560 }
11561
11562
XS(_wrap_gsl_linalg_cholesky_band_svx)11563 XS(_wrap_gsl_linalg_cholesky_band_svx) {
11564 {
11565 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
11566 gsl_vector *arg2 = (gsl_vector *) 0 ;
11567 void *argp1 = 0 ;
11568 int res1 = 0 ;
11569 void *argp2 = 0 ;
11570 int res2 = 0 ;
11571 int argvi = 0;
11572 int result;
11573 dXSARGS;
11574
11575 if ((items < 2) || (items > 2)) {
11576 SWIG_croak("Usage: gsl_linalg_cholesky_band_svx(LLT,x);");
11577 }
11578 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
11579 if (!SWIG_IsOK(res1)) {
11580 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_cholesky_band_svx" "', argument " "1"" of type '" "gsl_matrix const *""'");
11581 }
11582 arg1 = (gsl_matrix *)(argp1);
11583 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
11584 if (!SWIG_IsOK(res2)) {
11585 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_cholesky_band_svx" "', argument " "2"" of type '" "gsl_vector *""'");
11586 }
11587 arg2 = (gsl_vector *)(argp2);
11588 result = (int)gsl_linalg_cholesky_band_svx((gsl_matrix const *)arg1,arg2);
11589 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
11590
11591
11592 XSRETURN(argvi);
11593 fail:
11594
11595
11596 SWIG_croak_null();
11597 }
11598 }
11599
11600
XS(_wrap_gsl_linalg_cholesky_band_solvem)11601 XS(_wrap_gsl_linalg_cholesky_band_solvem) {
11602 {
11603 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
11604 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
11605 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
11606 void *argp1 = 0 ;
11607 int res1 = 0 ;
11608 void *argp2 = 0 ;
11609 int res2 = 0 ;
11610 void *argp3 = 0 ;
11611 int res3 = 0 ;
11612 int argvi = 0;
11613 int result;
11614 dXSARGS;
11615
11616 if ((items < 3) || (items > 3)) {
11617 SWIG_croak("Usage: gsl_linalg_cholesky_band_solvem(LLT,B,X);");
11618 }
11619 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
11620 if (!SWIG_IsOK(res1)) {
11621 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_cholesky_band_solvem" "', argument " "1"" of type '" "gsl_matrix const *""'");
11622 }
11623 arg1 = (gsl_matrix *)(argp1);
11624 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
11625 if (!SWIG_IsOK(res2)) {
11626 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_cholesky_band_solvem" "', argument " "2"" of type '" "gsl_matrix const *""'");
11627 }
11628 arg2 = (gsl_matrix *)(argp2);
11629 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
11630 if (!SWIG_IsOK(res3)) {
11631 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_cholesky_band_solvem" "', argument " "3"" of type '" "gsl_matrix *""'");
11632 }
11633 arg3 = (gsl_matrix *)(argp3);
11634 result = (int)gsl_linalg_cholesky_band_solvem((gsl_matrix const *)arg1,(gsl_matrix const *)arg2,arg3);
11635 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
11636
11637
11638
11639 XSRETURN(argvi);
11640 fail:
11641
11642
11643
11644 SWIG_croak_null();
11645 }
11646 }
11647
11648
XS(_wrap_gsl_linalg_cholesky_band_svxm)11649 XS(_wrap_gsl_linalg_cholesky_band_svxm) {
11650 {
11651 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
11652 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
11653 void *argp1 = 0 ;
11654 int res1 = 0 ;
11655 void *argp2 = 0 ;
11656 int res2 = 0 ;
11657 int argvi = 0;
11658 int result;
11659 dXSARGS;
11660
11661 if ((items < 2) || (items > 2)) {
11662 SWIG_croak("Usage: gsl_linalg_cholesky_band_svxm(LLT,X);");
11663 }
11664 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
11665 if (!SWIG_IsOK(res1)) {
11666 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_cholesky_band_svxm" "', argument " "1"" of type '" "gsl_matrix const *""'");
11667 }
11668 arg1 = (gsl_matrix *)(argp1);
11669 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
11670 if (!SWIG_IsOK(res2)) {
11671 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_cholesky_band_svxm" "', argument " "2"" of type '" "gsl_matrix *""'");
11672 }
11673 arg2 = (gsl_matrix *)(argp2);
11674 result = (int)gsl_linalg_cholesky_band_svxm((gsl_matrix const *)arg1,arg2);
11675 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
11676
11677
11678 XSRETURN(argvi);
11679 fail:
11680
11681
11682 SWIG_croak_null();
11683 }
11684 }
11685
11686
XS(_wrap_gsl_linalg_cholesky_band_invert)11687 XS(_wrap_gsl_linalg_cholesky_band_invert) {
11688 {
11689 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
11690 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
11691 void *argp1 = 0 ;
11692 int res1 = 0 ;
11693 void *argp2 = 0 ;
11694 int res2 = 0 ;
11695 int argvi = 0;
11696 int result;
11697 dXSARGS;
11698
11699 if ((items < 2) || (items > 2)) {
11700 SWIG_croak("Usage: gsl_linalg_cholesky_band_invert(LLT,Ainv);");
11701 }
11702 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
11703 if (!SWIG_IsOK(res1)) {
11704 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_cholesky_band_invert" "', argument " "1"" of type '" "gsl_matrix const *""'");
11705 }
11706 arg1 = (gsl_matrix *)(argp1);
11707 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
11708 if (!SWIG_IsOK(res2)) {
11709 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_cholesky_band_invert" "', argument " "2"" of type '" "gsl_matrix *""'");
11710 }
11711 arg2 = (gsl_matrix *)(argp2);
11712 result = (int)gsl_linalg_cholesky_band_invert((gsl_matrix const *)arg1,arg2);
11713 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
11714
11715
11716 XSRETURN(argvi);
11717 fail:
11718
11719
11720 SWIG_croak_null();
11721 }
11722 }
11723
11724
XS(_wrap_gsl_linalg_cholesky_band_unpack)11725 XS(_wrap_gsl_linalg_cholesky_band_unpack) {
11726 {
11727 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
11728 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
11729 void *argp1 = 0 ;
11730 int res1 = 0 ;
11731 void *argp2 = 0 ;
11732 int res2 = 0 ;
11733 int argvi = 0;
11734 int result;
11735 dXSARGS;
11736
11737 if ((items < 2) || (items > 2)) {
11738 SWIG_croak("Usage: gsl_linalg_cholesky_band_unpack(LLT,L);");
11739 }
11740 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
11741 if (!SWIG_IsOK(res1)) {
11742 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_cholesky_band_unpack" "', argument " "1"" of type '" "gsl_matrix const *""'");
11743 }
11744 arg1 = (gsl_matrix *)(argp1);
11745 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
11746 if (!SWIG_IsOK(res2)) {
11747 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_cholesky_band_unpack" "', argument " "2"" of type '" "gsl_matrix *""'");
11748 }
11749 arg2 = (gsl_matrix *)(argp2);
11750 result = (int)gsl_linalg_cholesky_band_unpack((gsl_matrix const *)arg1,arg2);
11751 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
11752
11753
11754 XSRETURN(argvi);
11755 fail:
11756
11757
11758 SWIG_croak_null();
11759 }
11760 }
11761
11762
XS(_wrap_gsl_linalg_cholesky_band_scale)11763 XS(_wrap_gsl_linalg_cholesky_band_scale) {
11764 {
11765 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
11766 gsl_vector *arg2 = (gsl_vector *) 0 ;
11767 void *argp1 = 0 ;
11768 int res1 = 0 ;
11769 void *argp2 = 0 ;
11770 int res2 = 0 ;
11771 int argvi = 0;
11772 int result;
11773 dXSARGS;
11774
11775 if ((items < 2) || (items > 2)) {
11776 SWIG_croak("Usage: gsl_linalg_cholesky_band_scale(A,S);");
11777 }
11778 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
11779 if (!SWIG_IsOK(res1)) {
11780 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_cholesky_band_scale" "', argument " "1"" of type '" "gsl_matrix const *""'");
11781 }
11782 arg1 = (gsl_matrix *)(argp1);
11783 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
11784 if (!SWIG_IsOK(res2)) {
11785 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_cholesky_band_scale" "', argument " "2"" of type '" "gsl_vector *""'");
11786 }
11787 arg2 = (gsl_vector *)(argp2);
11788 result = (int)gsl_linalg_cholesky_band_scale((gsl_matrix const *)arg1,arg2);
11789 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
11790
11791
11792 XSRETURN(argvi);
11793 fail:
11794
11795
11796 SWIG_croak_null();
11797 }
11798 }
11799
11800
XS(_wrap_gsl_linalg_cholesky_band_scale_apply)11801 XS(_wrap_gsl_linalg_cholesky_band_scale_apply) {
11802 {
11803 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
11804 gsl_vector *arg2 = (gsl_vector *) 0 ;
11805 void *argp1 = 0 ;
11806 int res1 = 0 ;
11807 void *argp2 = 0 ;
11808 int res2 = 0 ;
11809 int argvi = 0;
11810 int result;
11811 dXSARGS;
11812
11813 if ((items < 2) || (items > 2)) {
11814 SWIG_croak("Usage: gsl_linalg_cholesky_band_scale_apply(A,S);");
11815 }
11816 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
11817 if (!SWIG_IsOK(res1)) {
11818 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_cholesky_band_scale_apply" "', argument " "1"" of type '" "gsl_matrix *""'");
11819 }
11820 arg1 = (gsl_matrix *)(argp1);
11821 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
11822 if (!SWIG_IsOK(res2)) {
11823 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_cholesky_band_scale_apply" "', argument " "2"" of type '" "gsl_vector const *""'");
11824 }
11825 arg2 = (gsl_vector *)(argp2);
11826 result = (int)gsl_linalg_cholesky_band_scale_apply(arg1,(gsl_vector const *)arg2);
11827 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
11828
11829
11830 XSRETURN(argvi);
11831 fail:
11832
11833
11834 SWIG_croak_null();
11835 }
11836 }
11837
11838
XS(_wrap_gsl_linalg_cholesky_band_rcond)11839 XS(_wrap_gsl_linalg_cholesky_band_rcond) {
11840 {
11841 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
11842 double *arg2 = (double *) 0 ;
11843 gsl_vector *arg3 = (gsl_vector *) 0 ;
11844 void *argp1 = 0 ;
11845 int res1 = 0 ;
11846 void *argp2 = 0 ;
11847 int res2 = 0 ;
11848 void *argp3 = 0 ;
11849 int res3 = 0 ;
11850 int argvi = 0;
11851 int result;
11852 dXSARGS;
11853
11854 if ((items < 3) || (items > 3)) {
11855 SWIG_croak("Usage: gsl_linalg_cholesky_band_rcond(LLT,rcond,work);");
11856 }
11857 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
11858 if (!SWIG_IsOK(res1)) {
11859 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_cholesky_band_rcond" "', argument " "1"" of type '" "gsl_matrix const *""'");
11860 }
11861 arg1 = (gsl_matrix *)(argp1);
11862 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_double, 0 | 0 );
11863 if (!SWIG_IsOK(res2)) {
11864 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_cholesky_band_rcond" "', argument " "2"" of type '" "double *""'");
11865 }
11866 arg2 = (double *)(argp2);
11867 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
11868 if (!SWIG_IsOK(res3)) {
11869 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_cholesky_band_rcond" "', argument " "3"" of type '" "gsl_vector *""'");
11870 }
11871 arg3 = (gsl_vector *)(argp3);
11872 result = (int)gsl_linalg_cholesky_band_rcond((gsl_matrix const *)arg1,arg2,arg3);
11873 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
11874
11875
11876
11877 XSRETURN(argvi);
11878 fail:
11879
11880
11881
11882 SWIG_croak_null();
11883 }
11884 }
11885
11886
XS(_wrap_gsl_linalg_ldlt_decomp)11887 XS(_wrap_gsl_linalg_ldlt_decomp) {
11888 {
11889 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
11890 void *argp1 = 0 ;
11891 int res1 = 0 ;
11892 int argvi = 0;
11893 int result;
11894 dXSARGS;
11895
11896 if ((items < 1) || (items > 1)) {
11897 SWIG_croak("Usage: gsl_linalg_ldlt_decomp(A);");
11898 }
11899 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
11900 if (!SWIG_IsOK(res1)) {
11901 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_ldlt_decomp" "', argument " "1"" of type '" "gsl_matrix *""'");
11902 }
11903 arg1 = (gsl_matrix *)(argp1);
11904 result = (int)gsl_linalg_ldlt_decomp(arg1);
11905 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
11906
11907 XSRETURN(argvi);
11908 fail:
11909
11910 SWIG_croak_null();
11911 }
11912 }
11913
11914
XS(_wrap_gsl_linalg_ldlt_solve)11915 XS(_wrap_gsl_linalg_ldlt_solve) {
11916 {
11917 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
11918 gsl_vector *arg2 = (gsl_vector *) 0 ;
11919 gsl_vector *arg3 = (gsl_vector *) 0 ;
11920 void *argp1 = 0 ;
11921 int res1 = 0 ;
11922 void *argp2 = 0 ;
11923 int res2 = 0 ;
11924 void *argp3 = 0 ;
11925 int res3 = 0 ;
11926 int argvi = 0;
11927 int result;
11928 dXSARGS;
11929
11930 if ((items < 3) || (items > 3)) {
11931 SWIG_croak("Usage: gsl_linalg_ldlt_solve(LDLT,b,x);");
11932 }
11933 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
11934 if (!SWIG_IsOK(res1)) {
11935 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_ldlt_solve" "', argument " "1"" of type '" "gsl_matrix const *""'");
11936 }
11937 arg1 = (gsl_matrix *)(argp1);
11938 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
11939 if (!SWIG_IsOK(res2)) {
11940 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_ldlt_solve" "', argument " "2"" of type '" "gsl_vector const *""'");
11941 }
11942 arg2 = (gsl_vector *)(argp2);
11943 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
11944 if (!SWIG_IsOK(res3)) {
11945 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_ldlt_solve" "', argument " "3"" of type '" "gsl_vector *""'");
11946 }
11947 arg3 = (gsl_vector *)(argp3);
11948 result = (int)gsl_linalg_ldlt_solve((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3);
11949 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
11950
11951
11952
11953 XSRETURN(argvi);
11954 fail:
11955
11956
11957
11958 SWIG_croak_null();
11959 }
11960 }
11961
11962
XS(_wrap_gsl_linalg_ldlt_svx)11963 XS(_wrap_gsl_linalg_ldlt_svx) {
11964 {
11965 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
11966 gsl_vector *arg2 = (gsl_vector *) 0 ;
11967 void *argp1 = 0 ;
11968 int res1 = 0 ;
11969 void *argp2 = 0 ;
11970 int res2 = 0 ;
11971 int argvi = 0;
11972 int result;
11973 dXSARGS;
11974
11975 if ((items < 2) || (items > 2)) {
11976 SWIG_croak("Usage: gsl_linalg_ldlt_svx(LDLT,x);");
11977 }
11978 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
11979 if (!SWIG_IsOK(res1)) {
11980 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_ldlt_svx" "', argument " "1"" of type '" "gsl_matrix const *""'");
11981 }
11982 arg1 = (gsl_matrix *)(argp1);
11983 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
11984 if (!SWIG_IsOK(res2)) {
11985 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_ldlt_svx" "', argument " "2"" of type '" "gsl_vector *""'");
11986 }
11987 arg2 = (gsl_vector *)(argp2);
11988 result = (int)gsl_linalg_ldlt_svx((gsl_matrix const *)arg1,arg2);
11989 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
11990
11991
11992 XSRETURN(argvi);
11993 fail:
11994
11995
11996 SWIG_croak_null();
11997 }
11998 }
11999
12000
XS(_wrap_gsl_linalg_ldlt_rcond)12001 XS(_wrap_gsl_linalg_ldlt_rcond) {
12002 {
12003 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
12004 double *arg2 = (double *) 0 ;
12005 gsl_vector *arg3 = (gsl_vector *) 0 ;
12006 void *argp1 = 0 ;
12007 int res1 = 0 ;
12008 void *argp2 = 0 ;
12009 int res2 = 0 ;
12010 void *argp3 = 0 ;
12011 int res3 = 0 ;
12012 int argvi = 0;
12013 int result;
12014 dXSARGS;
12015
12016 if ((items < 3) || (items > 3)) {
12017 SWIG_croak("Usage: gsl_linalg_ldlt_rcond(LDLT,rcond,work);");
12018 }
12019 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
12020 if (!SWIG_IsOK(res1)) {
12021 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_ldlt_rcond" "', argument " "1"" of type '" "gsl_matrix const *""'");
12022 }
12023 arg1 = (gsl_matrix *)(argp1);
12024 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_double, 0 | 0 );
12025 if (!SWIG_IsOK(res2)) {
12026 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_ldlt_rcond" "', argument " "2"" of type '" "double *""'");
12027 }
12028 arg2 = (double *)(argp2);
12029 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
12030 if (!SWIG_IsOK(res3)) {
12031 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_ldlt_rcond" "', argument " "3"" of type '" "gsl_vector *""'");
12032 }
12033 arg3 = (gsl_vector *)(argp3);
12034 result = (int)gsl_linalg_ldlt_rcond((gsl_matrix const *)arg1,arg2,arg3);
12035 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
12036
12037
12038
12039 XSRETURN(argvi);
12040 fail:
12041
12042
12043
12044 SWIG_croak_null();
12045 }
12046 }
12047
12048
XS(_wrap_gsl_linalg_ldlt_band_decomp)12049 XS(_wrap_gsl_linalg_ldlt_band_decomp) {
12050 {
12051 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
12052 void *argp1 = 0 ;
12053 int res1 = 0 ;
12054 int argvi = 0;
12055 int result;
12056 dXSARGS;
12057
12058 if ((items < 1) || (items > 1)) {
12059 SWIG_croak("Usage: gsl_linalg_ldlt_band_decomp(A);");
12060 }
12061 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
12062 if (!SWIG_IsOK(res1)) {
12063 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_ldlt_band_decomp" "', argument " "1"" of type '" "gsl_matrix *""'");
12064 }
12065 arg1 = (gsl_matrix *)(argp1);
12066 result = (int)gsl_linalg_ldlt_band_decomp(arg1);
12067 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
12068
12069 XSRETURN(argvi);
12070 fail:
12071
12072 SWIG_croak_null();
12073 }
12074 }
12075
12076
XS(_wrap_gsl_linalg_ldlt_band_solve)12077 XS(_wrap_gsl_linalg_ldlt_band_solve) {
12078 {
12079 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
12080 gsl_vector *arg2 = (gsl_vector *) 0 ;
12081 gsl_vector *arg3 = (gsl_vector *) 0 ;
12082 void *argp1 = 0 ;
12083 int res1 = 0 ;
12084 void *argp2 = 0 ;
12085 int res2 = 0 ;
12086 void *argp3 = 0 ;
12087 int res3 = 0 ;
12088 int argvi = 0;
12089 int result;
12090 dXSARGS;
12091
12092 if ((items < 3) || (items > 3)) {
12093 SWIG_croak("Usage: gsl_linalg_ldlt_band_solve(LDLT,b,x);");
12094 }
12095 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
12096 if (!SWIG_IsOK(res1)) {
12097 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_ldlt_band_solve" "', argument " "1"" of type '" "gsl_matrix const *""'");
12098 }
12099 arg1 = (gsl_matrix *)(argp1);
12100 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
12101 if (!SWIG_IsOK(res2)) {
12102 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_ldlt_band_solve" "', argument " "2"" of type '" "gsl_vector const *""'");
12103 }
12104 arg2 = (gsl_vector *)(argp2);
12105 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
12106 if (!SWIG_IsOK(res3)) {
12107 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_ldlt_band_solve" "', argument " "3"" of type '" "gsl_vector *""'");
12108 }
12109 arg3 = (gsl_vector *)(argp3);
12110 result = (int)gsl_linalg_ldlt_band_solve((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3);
12111 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
12112
12113
12114
12115 XSRETURN(argvi);
12116 fail:
12117
12118
12119
12120 SWIG_croak_null();
12121 }
12122 }
12123
12124
XS(_wrap_gsl_linalg_ldlt_band_svx)12125 XS(_wrap_gsl_linalg_ldlt_band_svx) {
12126 {
12127 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
12128 gsl_vector *arg2 = (gsl_vector *) 0 ;
12129 void *argp1 = 0 ;
12130 int res1 = 0 ;
12131 void *argp2 = 0 ;
12132 int res2 = 0 ;
12133 int argvi = 0;
12134 int result;
12135 dXSARGS;
12136
12137 if ((items < 2) || (items > 2)) {
12138 SWIG_croak("Usage: gsl_linalg_ldlt_band_svx(LDLT,x);");
12139 }
12140 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
12141 if (!SWIG_IsOK(res1)) {
12142 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_ldlt_band_svx" "', argument " "1"" of type '" "gsl_matrix const *""'");
12143 }
12144 arg1 = (gsl_matrix *)(argp1);
12145 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
12146 if (!SWIG_IsOK(res2)) {
12147 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_ldlt_band_svx" "', argument " "2"" of type '" "gsl_vector *""'");
12148 }
12149 arg2 = (gsl_vector *)(argp2);
12150 result = (int)gsl_linalg_ldlt_band_svx((gsl_matrix const *)arg1,arg2);
12151 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
12152
12153
12154 XSRETURN(argvi);
12155 fail:
12156
12157
12158 SWIG_croak_null();
12159 }
12160 }
12161
12162
XS(_wrap_gsl_linalg_ldlt_band_unpack)12163 XS(_wrap_gsl_linalg_ldlt_band_unpack) {
12164 {
12165 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
12166 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
12167 gsl_vector *arg3 = (gsl_vector *) 0 ;
12168 void *argp1 = 0 ;
12169 int res1 = 0 ;
12170 void *argp2 = 0 ;
12171 int res2 = 0 ;
12172 void *argp3 = 0 ;
12173 int res3 = 0 ;
12174 int argvi = 0;
12175 int result;
12176 dXSARGS;
12177
12178 if ((items < 3) || (items > 3)) {
12179 SWIG_croak("Usage: gsl_linalg_ldlt_band_unpack(LDLT,L,D);");
12180 }
12181 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
12182 if (!SWIG_IsOK(res1)) {
12183 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_ldlt_band_unpack" "', argument " "1"" of type '" "gsl_matrix const *""'");
12184 }
12185 arg1 = (gsl_matrix *)(argp1);
12186 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
12187 if (!SWIG_IsOK(res2)) {
12188 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_ldlt_band_unpack" "', argument " "2"" of type '" "gsl_matrix *""'");
12189 }
12190 arg2 = (gsl_matrix *)(argp2);
12191 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
12192 if (!SWIG_IsOK(res3)) {
12193 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_ldlt_band_unpack" "', argument " "3"" of type '" "gsl_vector *""'");
12194 }
12195 arg3 = (gsl_vector *)(argp3);
12196 result = (int)gsl_linalg_ldlt_band_unpack((gsl_matrix const *)arg1,arg2,arg3);
12197 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
12198
12199
12200
12201 XSRETURN(argvi);
12202 fail:
12203
12204
12205
12206 SWIG_croak_null();
12207 }
12208 }
12209
12210
XS(_wrap_gsl_linalg_ldlt_band_rcond)12211 XS(_wrap_gsl_linalg_ldlt_band_rcond) {
12212 {
12213 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
12214 double *arg2 = (double *) 0 ;
12215 gsl_vector *arg3 = (gsl_vector *) 0 ;
12216 void *argp1 = 0 ;
12217 int res1 = 0 ;
12218 void *argp2 = 0 ;
12219 int res2 = 0 ;
12220 void *argp3 = 0 ;
12221 int res3 = 0 ;
12222 int argvi = 0;
12223 int result;
12224 dXSARGS;
12225
12226 if ((items < 3) || (items > 3)) {
12227 SWIG_croak("Usage: gsl_linalg_ldlt_band_rcond(LDLT,rcond,work);");
12228 }
12229 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
12230 if (!SWIG_IsOK(res1)) {
12231 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_ldlt_band_rcond" "', argument " "1"" of type '" "gsl_matrix const *""'");
12232 }
12233 arg1 = (gsl_matrix *)(argp1);
12234 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_double, 0 | 0 );
12235 if (!SWIG_IsOK(res2)) {
12236 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_ldlt_band_rcond" "', argument " "2"" of type '" "double *""'");
12237 }
12238 arg2 = (double *)(argp2);
12239 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
12240 if (!SWIG_IsOK(res3)) {
12241 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_ldlt_band_rcond" "', argument " "3"" of type '" "gsl_vector *""'");
12242 }
12243 arg3 = (gsl_vector *)(argp3);
12244 result = (int)gsl_linalg_ldlt_band_rcond((gsl_matrix const *)arg1,arg2,arg3);
12245 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
12246
12247
12248
12249 XSRETURN(argvi);
12250 fail:
12251
12252
12253
12254 SWIG_croak_null();
12255 }
12256 }
12257
12258
XS(_wrap_gsl_linalg_symmtd_decomp)12259 XS(_wrap_gsl_linalg_symmtd_decomp) {
12260 {
12261 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
12262 gsl_vector *arg2 = (gsl_vector *) 0 ;
12263 void *argp1 = 0 ;
12264 int res1 = 0 ;
12265 void *argp2 = 0 ;
12266 int res2 = 0 ;
12267 int argvi = 0;
12268 int result;
12269 dXSARGS;
12270
12271 if ((items < 2) || (items > 2)) {
12272 SWIG_croak("Usage: gsl_linalg_symmtd_decomp(A,tau);");
12273 }
12274 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
12275 if (!SWIG_IsOK(res1)) {
12276 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_symmtd_decomp" "', argument " "1"" of type '" "gsl_matrix *""'");
12277 }
12278 arg1 = (gsl_matrix *)(argp1);
12279 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
12280 if (!SWIG_IsOK(res2)) {
12281 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_symmtd_decomp" "', argument " "2"" of type '" "gsl_vector *""'");
12282 }
12283 arg2 = (gsl_vector *)(argp2);
12284 result = (int)gsl_linalg_symmtd_decomp(arg1,arg2);
12285 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
12286
12287
12288 XSRETURN(argvi);
12289 fail:
12290
12291
12292 SWIG_croak_null();
12293 }
12294 }
12295
12296
XS(_wrap_gsl_linalg_symmtd_unpack)12297 XS(_wrap_gsl_linalg_symmtd_unpack) {
12298 {
12299 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
12300 gsl_vector *arg2 = (gsl_vector *) 0 ;
12301 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
12302 gsl_vector *arg4 = (gsl_vector *) 0 ;
12303 gsl_vector *arg5 = (gsl_vector *) 0 ;
12304 void *argp1 = 0 ;
12305 int res1 = 0 ;
12306 void *argp2 = 0 ;
12307 int res2 = 0 ;
12308 void *argp3 = 0 ;
12309 int res3 = 0 ;
12310 void *argp4 = 0 ;
12311 int res4 = 0 ;
12312 void *argp5 = 0 ;
12313 int res5 = 0 ;
12314 int argvi = 0;
12315 int result;
12316 dXSARGS;
12317
12318 if ((items < 5) || (items > 5)) {
12319 SWIG_croak("Usage: gsl_linalg_symmtd_unpack(A,tau,Q,diag,subdiag);");
12320 }
12321 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
12322 if (!SWIG_IsOK(res1)) {
12323 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_symmtd_unpack" "', argument " "1"" of type '" "gsl_matrix const *""'");
12324 }
12325 arg1 = (gsl_matrix *)(argp1);
12326 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
12327 if (!SWIG_IsOK(res2)) {
12328 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_symmtd_unpack" "', argument " "2"" of type '" "gsl_vector const *""'");
12329 }
12330 arg2 = (gsl_vector *)(argp2);
12331 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
12332 if (!SWIG_IsOK(res3)) {
12333 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_symmtd_unpack" "', argument " "3"" of type '" "gsl_matrix *""'");
12334 }
12335 arg3 = (gsl_matrix *)(argp3);
12336 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
12337 if (!SWIG_IsOK(res4)) {
12338 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_symmtd_unpack" "', argument " "4"" of type '" "gsl_vector *""'");
12339 }
12340 arg4 = (gsl_vector *)(argp4);
12341 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
12342 if (!SWIG_IsOK(res5)) {
12343 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_symmtd_unpack" "', argument " "5"" of type '" "gsl_vector *""'");
12344 }
12345 arg5 = (gsl_vector *)(argp5);
12346 result = (int)gsl_linalg_symmtd_unpack((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3,arg4,arg5);
12347 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
12348
12349
12350
12351
12352
12353 XSRETURN(argvi);
12354 fail:
12355
12356
12357
12358
12359
12360 SWIG_croak_null();
12361 }
12362 }
12363
12364
XS(_wrap_gsl_linalg_symmtd_unpack_T)12365 XS(_wrap_gsl_linalg_symmtd_unpack_T) {
12366 {
12367 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
12368 gsl_vector *arg2 = (gsl_vector *) 0 ;
12369 gsl_vector *arg3 = (gsl_vector *) 0 ;
12370 void *argp1 = 0 ;
12371 int res1 = 0 ;
12372 void *argp2 = 0 ;
12373 int res2 = 0 ;
12374 void *argp3 = 0 ;
12375 int res3 = 0 ;
12376 int argvi = 0;
12377 int result;
12378 dXSARGS;
12379
12380 if ((items < 3) || (items > 3)) {
12381 SWIG_croak("Usage: gsl_linalg_symmtd_unpack_T(A,diag,subdiag);");
12382 }
12383 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
12384 if (!SWIG_IsOK(res1)) {
12385 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_symmtd_unpack_T" "', argument " "1"" of type '" "gsl_matrix const *""'");
12386 }
12387 arg1 = (gsl_matrix *)(argp1);
12388 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
12389 if (!SWIG_IsOK(res2)) {
12390 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_symmtd_unpack_T" "', argument " "2"" of type '" "gsl_vector *""'");
12391 }
12392 arg2 = (gsl_vector *)(argp2);
12393 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
12394 if (!SWIG_IsOK(res3)) {
12395 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_symmtd_unpack_T" "', argument " "3"" of type '" "gsl_vector *""'");
12396 }
12397 arg3 = (gsl_vector *)(argp3);
12398 result = (int)gsl_linalg_symmtd_unpack_T((gsl_matrix const *)arg1,arg2,arg3);
12399 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
12400
12401
12402
12403 XSRETURN(argvi);
12404 fail:
12405
12406
12407
12408 SWIG_croak_null();
12409 }
12410 }
12411
12412
XS(_wrap_gsl_linalg_hermtd_decomp)12413 XS(_wrap_gsl_linalg_hermtd_decomp) {
12414 {
12415 gsl_matrix_complex *arg1 = (gsl_matrix_complex *) 0 ;
12416 gsl_vector_complex *arg2 = (gsl_vector_complex *) 0 ;
12417 void *argp1 = 0 ;
12418 int res1 = 0 ;
12419 void *argp2 = 0 ;
12420 int res2 = 0 ;
12421 int argvi = 0;
12422 int result;
12423 dXSARGS;
12424
12425 if ((items < 2) || (items > 2)) {
12426 SWIG_croak("Usage: gsl_linalg_hermtd_decomp(A,tau);");
12427 }
12428 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
12429 if (!SWIG_IsOK(res1)) {
12430 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_hermtd_decomp" "', argument " "1"" of type '" "gsl_matrix_complex *""'");
12431 }
12432 arg1 = (gsl_matrix_complex *)(argp1);
12433 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
12434 if (!SWIG_IsOK(res2)) {
12435 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_hermtd_decomp" "', argument " "2"" of type '" "gsl_vector_complex *""'");
12436 }
12437 arg2 = (gsl_vector_complex *)(argp2);
12438 result = (int)gsl_linalg_hermtd_decomp(arg1,arg2);
12439 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
12440
12441
12442 XSRETURN(argvi);
12443 fail:
12444
12445
12446 SWIG_croak_null();
12447 }
12448 }
12449
12450
XS(_wrap_gsl_linalg_hermtd_unpack)12451 XS(_wrap_gsl_linalg_hermtd_unpack) {
12452 {
12453 gsl_matrix_complex *arg1 = (gsl_matrix_complex *) 0 ;
12454 gsl_vector_complex *arg2 = (gsl_vector_complex *) 0 ;
12455 gsl_matrix_complex *arg3 = (gsl_matrix_complex *) 0 ;
12456 gsl_vector *arg4 = (gsl_vector *) 0 ;
12457 gsl_vector *arg5 = (gsl_vector *) 0 ;
12458 void *argp1 = 0 ;
12459 int res1 = 0 ;
12460 void *argp2 = 0 ;
12461 int res2 = 0 ;
12462 void *argp3 = 0 ;
12463 int res3 = 0 ;
12464 void *argp4 = 0 ;
12465 int res4 = 0 ;
12466 void *argp5 = 0 ;
12467 int res5 = 0 ;
12468 int argvi = 0;
12469 int result;
12470 dXSARGS;
12471
12472 if ((items < 5) || (items > 5)) {
12473 SWIG_croak("Usage: gsl_linalg_hermtd_unpack(A,tau,U,diag,sudiag);");
12474 }
12475 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
12476 if (!SWIG_IsOK(res1)) {
12477 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_hermtd_unpack" "', argument " "1"" of type '" "gsl_matrix_complex const *""'");
12478 }
12479 arg1 = (gsl_matrix_complex *)(argp1);
12480 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
12481 if (!SWIG_IsOK(res2)) {
12482 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_hermtd_unpack" "', argument " "2"" of type '" "gsl_vector_complex const *""'");
12483 }
12484 arg2 = (gsl_vector_complex *)(argp2);
12485 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
12486 if (!SWIG_IsOK(res3)) {
12487 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_hermtd_unpack" "', argument " "3"" of type '" "gsl_matrix_complex *""'");
12488 }
12489 arg3 = (gsl_matrix_complex *)(argp3);
12490 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
12491 if (!SWIG_IsOK(res4)) {
12492 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_hermtd_unpack" "', argument " "4"" of type '" "gsl_vector *""'");
12493 }
12494 arg4 = (gsl_vector *)(argp4);
12495 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
12496 if (!SWIG_IsOK(res5)) {
12497 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_hermtd_unpack" "', argument " "5"" of type '" "gsl_vector *""'");
12498 }
12499 arg5 = (gsl_vector *)(argp5);
12500 result = (int)gsl_linalg_hermtd_unpack((gsl_matrix_complex const *)arg1,(gsl_vector_complex const *)arg2,arg3,arg4,arg5);
12501 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
12502
12503
12504
12505
12506
12507 XSRETURN(argvi);
12508 fail:
12509
12510
12511
12512
12513
12514 SWIG_croak_null();
12515 }
12516 }
12517
12518
XS(_wrap_gsl_linalg_hermtd_unpack_T)12519 XS(_wrap_gsl_linalg_hermtd_unpack_T) {
12520 {
12521 gsl_matrix_complex *arg1 = (gsl_matrix_complex *) 0 ;
12522 gsl_vector *arg2 = (gsl_vector *) 0 ;
12523 gsl_vector *arg3 = (gsl_vector *) 0 ;
12524 void *argp1 = 0 ;
12525 int res1 = 0 ;
12526 void *argp2 = 0 ;
12527 int res2 = 0 ;
12528 void *argp3 = 0 ;
12529 int res3 = 0 ;
12530 int argvi = 0;
12531 int result;
12532 dXSARGS;
12533
12534 if ((items < 3) || (items > 3)) {
12535 SWIG_croak("Usage: gsl_linalg_hermtd_unpack_T(A,diag,subdiag);");
12536 }
12537 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
12538 if (!SWIG_IsOK(res1)) {
12539 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_hermtd_unpack_T" "', argument " "1"" of type '" "gsl_matrix_complex const *""'");
12540 }
12541 arg1 = (gsl_matrix_complex *)(argp1);
12542 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
12543 if (!SWIG_IsOK(res2)) {
12544 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_hermtd_unpack_T" "', argument " "2"" of type '" "gsl_vector *""'");
12545 }
12546 arg2 = (gsl_vector *)(argp2);
12547 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
12548 if (!SWIG_IsOK(res3)) {
12549 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_hermtd_unpack_T" "', argument " "3"" of type '" "gsl_vector *""'");
12550 }
12551 arg3 = (gsl_vector *)(argp3);
12552 result = (int)gsl_linalg_hermtd_unpack_T((gsl_matrix_complex const *)arg1,arg2,arg3);
12553 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
12554
12555
12556
12557 XSRETURN(argvi);
12558 fail:
12559
12560
12561
12562 SWIG_croak_null();
12563 }
12564 }
12565
12566
XS(_wrap_gsl_linalg_HH_solve)12567 XS(_wrap_gsl_linalg_HH_solve) {
12568 {
12569 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
12570 gsl_vector *arg2 = (gsl_vector *) 0 ;
12571 gsl_vector *arg3 = (gsl_vector *) 0 ;
12572 void *argp1 = 0 ;
12573 int res1 = 0 ;
12574 void *argp2 = 0 ;
12575 int res2 = 0 ;
12576 void *argp3 = 0 ;
12577 int res3 = 0 ;
12578 int argvi = 0;
12579 int result;
12580 dXSARGS;
12581
12582 if ((items < 3) || (items > 3)) {
12583 SWIG_croak("Usage: gsl_linalg_HH_solve(A,b,x);");
12584 }
12585 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
12586 if (!SWIG_IsOK(res1)) {
12587 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_HH_solve" "', argument " "1"" of type '" "gsl_matrix *""'");
12588 }
12589 arg1 = (gsl_matrix *)(argp1);
12590 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
12591 if (!SWIG_IsOK(res2)) {
12592 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_HH_solve" "', argument " "2"" of type '" "gsl_vector const *""'");
12593 }
12594 arg2 = (gsl_vector *)(argp2);
12595 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
12596 if (!SWIG_IsOK(res3)) {
12597 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_HH_solve" "', argument " "3"" of type '" "gsl_vector *""'");
12598 }
12599 arg3 = (gsl_vector *)(argp3);
12600 result = (int)gsl_linalg_HH_solve(arg1,(gsl_vector const *)arg2,arg3);
12601 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
12602
12603
12604
12605 XSRETURN(argvi);
12606 fail:
12607
12608
12609
12610 SWIG_croak_null();
12611 }
12612 }
12613
12614
XS(_wrap_gsl_linalg_HH_svx)12615 XS(_wrap_gsl_linalg_HH_svx) {
12616 {
12617 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
12618 gsl_vector *arg2 = (gsl_vector *) 0 ;
12619 void *argp1 = 0 ;
12620 int res1 = 0 ;
12621 void *argp2 = 0 ;
12622 int res2 = 0 ;
12623 int argvi = 0;
12624 int result;
12625 dXSARGS;
12626
12627 if ((items < 2) || (items > 2)) {
12628 SWIG_croak("Usage: gsl_linalg_HH_svx(A,x);");
12629 }
12630 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
12631 if (!SWIG_IsOK(res1)) {
12632 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_HH_svx" "', argument " "1"" of type '" "gsl_matrix *""'");
12633 }
12634 arg1 = (gsl_matrix *)(argp1);
12635 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
12636 if (!SWIG_IsOK(res2)) {
12637 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_HH_svx" "', argument " "2"" of type '" "gsl_vector *""'");
12638 }
12639 arg2 = (gsl_vector *)(argp2);
12640 result = (int)gsl_linalg_HH_svx(arg1,arg2);
12641 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
12642
12643
12644 XSRETURN(argvi);
12645 fail:
12646
12647
12648 SWIG_croak_null();
12649 }
12650 }
12651
12652
XS(_wrap_gsl_linalg_solve_symm_tridiag)12653 XS(_wrap_gsl_linalg_solve_symm_tridiag) {
12654 {
12655 gsl_vector *arg1 = (gsl_vector *) 0 ;
12656 gsl_vector *arg2 = (gsl_vector *) 0 ;
12657 gsl_vector *arg3 = (gsl_vector *) 0 ;
12658 gsl_vector *arg4 = (gsl_vector *) 0 ;
12659 void *argp1 = 0 ;
12660 int res1 = 0 ;
12661 void *argp2 = 0 ;
12662 int res2 = 0 ;
12663 void *argp3 = 0 ;
12664 int res3 = 0 ;
12665 void *argp4 = 0 ;
12666 int res4 = 0 ;
12667 int argvi = 0;
12668 int result;
12669 dXSARGS;
12670
12671 if ((items < 4) || (items > 4)) {
12672 SWIG_croak("Usage: gsl_linalg_solve_symm_tridiag(diag,offdiag,b,x);");
12673 }
12674 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
12675 if (!SWIG_IsOK(res1)) {
12676 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_solve_symm_tridiag" "', argument " "1"" of type '" "gsl_vector const *""'");
12677 }
12678 arg1 = (gsl_vector *)(argp1);
12679 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
12680 if (!SWIG_IsOK(res2)) {
12681 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_solve_symm_tridiag" "', argument " "2"" of type '" "gsl_vector const *""'");
12682 }
12683 arg2 = (gsl_vector *)(argp2);
12684 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
12685 if (!SWIG_IsOK(res3)) {
12686 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_solve_symm_tridiag" "', argument " "3"" of type '" "gsl_vector const *""'");
12687 }
12688 arg3 = (gsl_vector *)(argp3);
12689 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
12690 if (!SWIG_IsOK(res4)) {
12691 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_solve_symm_tridiag" "', argument " "4"" of type '" "gsl_vector *""'");
12692 }
12693 arg4 = (gsl_vector *)(argp4);
12694 result = (int)gsl_linalg_solve_symm_tridiag((gsl_vector const *)arg1,(gsl_vector const *)arg2,(gsl_vector const *)arg3,arg4);
12695 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
12696
12697
12698
12699
12700 XSRETURN(argvi);
12701 fail:
12702
12703
12704
12705
12706 SWIG_croak_null();
12707 }
12708 }
12709
12710
XS(_wrap_gsl_linalg_solve_tridiag)12711 XS(_wrap_gsl_linalg_solve_tridiag) {
12712 {
12713 gsl_vector *arg1 = (gsl_vector *) 0 ;
12714 gsl_vector *arg2 = (gsl_vector *) 0 ;
12715 gsl_vector *arg3 = (gsl_vector *) 0 ;
12716 gsl_vector *arg4 = (gsl_vector *) 0 ;
12717 gsl_vector *arg5 = (gsl_vector *) 0 ;
12718 void *argp1 = 0 ;
12719 int res1 = 0 ;
12720 void *argp2 = 0 ;
12721 int res2 = 0 ;
12722 void *argp3 = 0 ;
12723 int res3 = 0 ;
12724 void *argp4 = 0 ;
12725 int res4 = 0 ;
12726 void *argp5 = 0 ;
12727 int res5 = 0 ;
12728 int argvi = 0;
12729 int result;
12730 dXSARGS;
12731
12732 if ((items < 5) || (items > 5)) {
12733 SWIG_croak("Usage: gsl_linalg_solve_tridiag(diag,abovediag,belowdiag,b,x);");
12734 }
12735 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
12736 if (!SWIG_IsOK(res1)) {
12737 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_solve_tridiag" "', argument " "1"" of type '" "gsl_vector const *""'");
12738 }
12739 arg1 = (gsl_vector *)(argp1);
12740 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
12741 if (!SWIG_IsOK(res2)) {
12742 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_solve_tridiag" "', argument " "2"" of type '" "gsl_vector const *""'");
12743 }
12744 arg2 = (gsl_vector *)(argp2);
12745 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
12746 if (!SWIG_IsOK(res3)) {
12747 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_solve_tridiag" "', argument " "3"" of type '" "gsl_vector const *""'");
12748 }
12749 arg3 = (gsl_vector *)(argp3);
12750 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
12751 if (!SWIG_IsOK(res4)) {
12752 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_solve_tridiag" "', argument " "4"" of type '" "gsl_vector const *""'");
12753 }
12754 arg4 = (gsl_vector *)(argp4);
12755 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
12756 if (!SWIG_IsOK(res5)) {
12757 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_solve_tridiag" "', argument " "5"" of type '" "gsl_vector *""'");
12758 }
12759 arg5 = (gsl_vector *)(argp5);
12760 result = (int)gsl_linalg_solve_tridiag((gsl_vector const *)arg1,(gsl_vector const *)arg2,(gsl_vector const *)arg3,(gsl_vector const *)arg4,arg5);
12761 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
12762
12763
12764
12765
12766
12767 XSRETURN(argvi);
12768 fail:
12769
12770
12771
12772
12773
12774 SWIG_croak_null();
12775 }
12776 }
12777
12778
XS(_wrap_gsl_linalg_solve_symm_cyc_tridiag)12779 XS(_wrap_gsl_linalg_solve_symm_cyc_tridiag) {
12780 {
12781 gsl_vector *arg1 = (gsl_vector *) 0 ;
12782 gsl_vector *arg2 = (gsl_vector *) 0 ;
12783 gsl_vector *arg3 = (gsl_vector *) 0 ;
12784 gsl_vector *arg4 = (gsl_vector *) 0 ;
12785 void *argp1 = 0 ;
12786 int res1 = 0 ;
12787 void *argp2 = 0 ;
12788 int res2 = 0 ;
12789 void *argp3 = 0 ;
12790 int res3 = 0 ;
12791 void *argp4 = 0 ;
12792 int res4 = 0 ;
12793 int argvi = 0;
12794 int result;
12795 dXSARGS;
12796
12797 if ((items < 4) || (items > 4)) {
12798 SWIG_croak("Usage: gsl_linalg_solve_symm_cyc_tridiag(diag,offdiag,b,x);");
12799 }
12800 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
12801 if (!SWIG_IsOK(res1)) {
12802 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_solve_symm_cyc_tridiag" "', argument " "1"" of type '" "gsl_vector const *""'");
12803 }
12804 arg1 = (gsl_vector *)(argp1);
12805 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
12806 if (!SWIG_IsOK(res2)) {
12807 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_solve_symm_cyc_tridiag" "', argument " "2"" of type '" "gsl_vector const *""'");
12808 }
12809 arg2 = (gsl_vector *)(argp2);
12810 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
12811 if (!SWIG_IsOK(res3)) {
12812 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_solve_symm_cyc_tridiag" "', argument " "3"" of type '" "gsl_vector const *""'");
12813 }
12814 arg3 = (gsl_vector *)(argp3);
12815 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
12816 if (!SWIG_IsOK(res4)) {
12817 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_solve_symm_cyc_tridiag" "', argument " "4"" of type '" "gsl_vector *""'");
12818 }
12819 arg4 = (gsl_vector *)(argp4);
12820 result = (int)gsl_linalg_solve_symm_cyc_tridiag((gsl_vector const *)arg1,(gsl_vector const *)arg2,(gsl_vector const *)arg3,arg4);
12821 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
12822
12823
12824
12825
12826 XSRETURN(argvi);
12827 fail:
12828
12829
12830
12831
12832 SWIG_croak_null();
12833 }
12834 }
12835
12836
XS(_wrap_gsl_linalg_solve_cyc_tridiag)12837 XS(_wrap_gsl_linalg_solve_cyc_tridiag) {
12838 {
12839 gsl_vector *arg1 = (gsl_vector *) 0 ;
12840 gsl_vector *arg2 = (gsl_vector *) 0 ;
12841 gsl_vector *arg3 = (gsl_vector *) 0 ;
12842 gsl_vector *arg4 = (gsl_vector *) 0 ;
12843 gsl_vector *arg5 = (gsl_vector *) 0 ;
12844 void *argp1 = 0 ;
12845 int res1 = 0 ;
12846 void *argp2 = 0 ;
12847 int res2 = 0 ;
12848 void *argp3 = 0 ;
12849 int res3 = 0 ;
12850 void *argp4 = 0 ;
12851 int res4 = 0 ;
12852 void *argp5 = 0 ;
12853 int res5 = 0 ;
12854 int argvi = 0;
12855 int result;
12856 dXSARGS;
12857
12858 if ((items < 5) || (items > 5)) {
12859 SWIG_croak("Usage: gsl_linalg_solve_cyc_tridiag(diag,abovediag,belowdiag,b,x);");
12860 }
12861 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
12862 if (!SWIG_IsOK(res1)) {
12863 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_solve_cyc_tridiag" "', argument " "1"" of type '" "gsl_vector const *""'");
12864 }
12865 arg1 = (gsl_vector *)(argp1);
12866 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
12867 if (!SWIG_IsOK(res2)) {
12868 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_solve_cyc_tridiag" "', argument " "2"" of type '" "gsl_vector const *""'");
12869 }
12870 arg2 = (gsl_vector *)(argp2);
12871 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
12872 if (!SWIG_IsOK(res3)) {
12873 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_solve_cyc_tridiag" "', argument " "3"" of type '" "gsl_vector const *""'");
12874 }
12875 arg3 = (gsl_vector *)(argp3);
12876 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
12877 if (!SWIG_IsOK(res4)) {
12878 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_solve_cyc_tridiag" "', argument " "4"" of type '" "gsl_vector const *""'");
12879 }
12880 arg4 = (gsl_vector *)(argp4);
12881 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
12882 if (!SWIG_IsOK(res5)) {
12883 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_solve_cyc_tridiag" "', argument " "5"" of type '" "gsl_vector *""'");
12884 }
12885 arg5 = (gsl_vector *)(argp5);
12886 result = (int)gsl_linalg_solve_cyc_tridiag((gsl_vector const *)arg1,(gsl_vector const *)arg2,(gsl_vector const *)arg3,(gsl_vector const *)arg4,arg5);
12887 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
12888
12889
12890
12891
12892
12893 XSRETURN(argvi);
12894 fail:
12895
12896
12897
12898
12899
12900 SWIG_croak_null();
12901 }
12902 }
12903
12904
XS(_wrap_gsl_linalg_bidiag_decomp)12905 XS(_wrap_gsl_linalg_bidiag_decomp) {
12906 {
12907 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
12908 gsl_vector *arg2 = (gsl_vector *) 0 ;
12909 gsl_vector *arg3 = (gsl_vector *) 0 ;
12910 void *argp1 = 0 ;
12911 int res1 = 0 ;
12912 void *argp2 = 0 ;
12913 int res2 = 0 ;
12914 void *argp3 = 0 ;
12915 int res3 = 0 ;
12916 int argvi = 0;
12917 int result;
12918 dXSARGS;
12919
12920 if ((items < 3) || (items > 3)) {
12921 SWIG_croak("Usage: gsl_linalg_bidiag_decomp(A,tau_U,tau_V);");
12922 }
12923 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
12924 if (!SWIG_IsOK(res1)) {
12925 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_bidiag_decomp" "', argument " "1"" of type '" "gsl_matrix *""'");
12926 }
12927 arg1 = (gsl_matrix *)(argp1);
12928 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
12929 if (!SWIG_IsOK(res2)) {
12930 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_bidiag_decomp" "', argument " "2"" of type '" "gsl_vector *""'");
12931 }
12932 arg2 = (gsl_vector *)(argp2);
12933 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
12934 if (!SWIG_IsOK(res3)) {
12935 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_bidiag_decomp" "', argument " "3"" of type '" "gsl_vector *""'");
12936 }
12937 arg3 = (gsl_vector *)(argp3);
12938 result = (int)gsl_linalg_bidiag_decomp(arg1,arg2,arg3);
12939 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
12940
12941
12942
12943 XSRETURN(argvi);
12944 fail:
12945
12946
12947
12948 SWIG_croak_null();
12949 }
12950 }
12951
12952
XS(_wrap_gsl_linalg_bidiag_unpack)12953 XS(_wrap_gsl_linalg_bidiag_unpack) {
12954 {
12955 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
12956 gsl_vector *arg2 = (gsl_vector *) 0 ;
12957 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
12958 gsl_vector *arg4 = (gsl_vector *) 0 ;
12959 gsl_matrix *arg5 = (gsl_matrix *) 0 ;
12960 gsl_vector *arg6 = (gsl_vector *) 0 ;
12961 gsl_vector *arg7 = (gsl_vector *) 0 ;
12962 void *argp1 = 0 ;
12963 int res1 = 0 ;
12964 void *argp2 = 0 ;
12965 int res2 = 0 ;
12966 void *argp3 = 0 ;
12967 int res3 = 0 ;
12968 void *argp4 = 0 ;
12969 int res4 = 0 ;
12970 void *argp5 = 0 ;
12971 int res5 = 0 ;
12972 void *argp6 = 0 ;
12973 int res6 = 0 ;
12974 void *argp7 = 0 ;
12975 int res7 = 0 ;
12976 int argvi = 0;
12977 int result;
12978 dXSARGS;
12979
12980 if ((items < 7) || (items > 7)) {
12981 SWIG_croak("Usage: gsl_linalg_bidiag_unpack(A,tau_U,U,tau_V,V,diag,superdiag);");
12982 }
12983 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
12984 if (!SWIG_IsOK(res1)) {
12985 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_bidiag_unpack" "', argument " "1"" of type '" "gsl_matrix const *""'");
12986 }
12987 arg1 = (gsl_matrix *)(argp1);
12988 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
12989 if (!SWIG_IsOK(res2)) {
12990 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_bidiag_unpack" "', argument " "2"" of type '" "gsl_vector const *""'");
12991 }
12992 arg2 = (gsl_vector *)(argp2);
12993 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
12994 if (!SWIG_IsOK(res3)) {
12995 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_bidiag_unpack" "', argument " "3"" of type '" "gsl_matrix *""'");
12996 }
12997 arg3 = (gsl_matrix *)(argp3);
12998 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
12999 if (!SWIG_IsOK(res4)) {
13000 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_bidiag_unpack" "', argument " "4"" of type '" "gsl_vector const *""'");
13001 }
13002 arg4 = (gsl_vector *)(argp4);
13003 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_matrix, 0 | 0 );
13004 if (!SWIG_IsOK(res5)) {
13005 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_bidiag_unpack" "', argument " "5"" of type '" "gsl_matrix *""'");
13006 }
13007 arg5 = (gsl_matrix *)(argp5);
13008 res6 = SWIG_ConvertPtr(ST(5), &argp6,SWIGTYPE_p_gsl_vector, 0 | 0 );
13009 if (!SWIG_IsOK(res6)) {
13010 SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_linalg_bidiag_unpack" "', argument " "6"" of type '" "gsl_vector *""'");
13011 }
13012 arg6 = (gsl_vector *)(argp6);
13013 res7 = SWIG_ConvertPtr(ST(6), &argp7,SWIGTYPE_p_gsl_vector, 0 | 0 );
13014 if (!SWIG_IsOK(res7)) {
13015 SWIG_exception_fail(SWIG_ArgError(res7), "in method '" "gsl_linalg_bidiag_unpack" "', argument " "7"" of type '" "gsl_vector *""'");
13016 }
13017 arg7 = (gsl_vector *)(argp7);
13018 result = (int)gsl_linalg_bidiag_unpack((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3,(gsl_vector const *)arg4,arg5,arg6,arg7);
13019 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
13020
13021
13022
13023
13024
13025
13026
13027 XSRETURN(argvi);
13028 fail:
13029
13030
13031
13032
13033
13034
13035
13036 SWIG_croak_null();
13037 }
13038 }
13039
13040
XS(_wrap_gsl_linalg_bidiag_unpack2)13041 XS(_wrap_gsl_linalg_bidiag_unpack2) {
13042 {
13043 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
13044 gsl_vector *arg2 = (gsl_vector *) 0 ;
13045 gsl_vector *arg3 = (gsl_vector *) 0 ;
13046 gsl_matrix *arg4 = (gsl_matrix *) 0 ;
13047 void *argp1 = 0 ;
13048 int res1 = 0 ;
13049 void *argp2 = 0 ;
13050 int res2 = 0 ;
13051 void *argp3 = 0 ;
13052 int res3 = 0 ;
13053 void *argp4 = 0 ;
13054 int res4 = 0 ;
13055 int argvi = 0;
13056 int result;
13057 dXSARGS;
13058
13059 if ((items < 4) || (items > 4)) {
13060 SWIG_croak("Usage: gsl_linalg_bidiag_unpack2(A,tau_U,tau_V,V);");
13061 }
13062 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
13063 if (!SWIG_IsOK(res1)) {
13064 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_bidiag_unpack2" "', argument " "1"" of type '" "gsl_matrix *""'");
13065 }
13066 arg1 = (gsl_matrix *)(argp1);
13067 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
13068 if (!SWIG_IsOK(res2)) {
13069 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_bidiag_unpack2" "', argument " "2"" of type '" "gsl_vector *""'");
13070 }
13071 arg2 = (gsl_vector *)(argp2);
13072 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
13073 if (!SWIG_IsOK(res3)) {
13074 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_bidiag_unpack2" "', argument " "3"" of type '" "gsl_vector *""'");
13075 }
13076 arg3 = (gsl_vector *)(argp3);
13077 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_matrix, 0 | 0 );
13078 if (!SWIG_IsOK(res4)) {
13079 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_bidiag_unpack2" "', argument " "4"" of type '" "gsl_matrix *""'");
13080 }
13081 arg4 = (gsl_matrix *)(argp4);
13082 result = (int)gsl_linalg_bidiag_unpack2(arg1,arg2,arg3,arg4);
13083 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
13084
13085
13086
13087
13088 XSRETURN(argvi);
13089 fail:
13090
13091
13092
13093
13094 SWIG_croak_null();
13095 }
13096 }
13097
13098
XS(_wrap_gsl_linalg_bidiag_unpack_B)13099 XS(_wrap_gsl_linalg_bidiag_unpack_B) {
13100 {
13101 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
13102 gsl_vector *arg2 = (gsl_vector *) 0 ;
13103 gsl_vector *arg3 = (gsl_vector *) 0 ;
13104 void *argp1 = 0 ;
13105 int res1 = 0 ;
13106 void *argp2 = 0 ;
13107 int res2 = 0 ;
13108 void *argp3 = 0 ;
13109 int res3 = 0 ;
13110 int argvi = 0;
13111 int result;
13112 dXSARGS;
13113
13114 if ((items < 3) || (items > 3)) {
13115 SWIG_croak("Usage: gsl_linalg_bidiag_unpack_B(A,diag,superdiag);");
13116 }
13117 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
13118 if (!SWIG_IsOK(res1)) {
13119 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_bidiag_unpack_B" "', argument " "1"" of type '" "gsl_matrix const *""'");
13120 }
13121 arg1 = (gsl_matrix *)(argp1);
13122 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
13123 if (!SWIG_IsOK(res2)) {
13124 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_bidiag_unpack_B" "', argument " "2"" of type '" "gsl_vector *""'");
13125 }
13126 arg2 = (gsl_vector *)(argp2);
13127 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
13128 if (!SWIG_IsOK(res3)) {
13129 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_bidiag_unpack_B" "', argument " "3"" of type '" "gsl_vector *""'");
13130 }
13131 arg3 = (gsl_vector *)(argp3);
13132 result = (int)gsl_linalg_bidiag_unpack_B((gsl_matrix const *)arg1,arg2,arg3);
13133 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
13134
13135
13136
13137 XSRETURN(argvi);
13138 fail:
13139
13140
13141
13142 SWIG_croak_null();
13143 }
13144 }
13145
13146
XS(_wrap_gsl_linalg_balance_matrix)13147 XS(_wrap_gsl_linalg_balance_matrix) {
13148 {
13149 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
13150 gsl_vector *arg2 = (gsl_vector *) 0 ;
13151 void *argp1 = 0 ;
13152 int res1 = 0 ;
13153 void *argp2 = 0 ;
13154 int res2 = 0 ;
13155 int argvi = 0;
13156 int result;
13157 dXSARGS;
13158
13159 if ((items < 2) || (items > 2)) {
13160 SWIG_croak("Usage: gsl_linalg_balance_matrix(A,D);");
13161 }
13162 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
13163 if (!SWIG_IsOK(res1)) {
13164 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_balance_matrix" "', argument " "1"" of type '" "gsl_matrix *""'");
13165 }
13166 arg1 = (gsl_matrix *)(argp1);
13167 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
13168 if (!SWIG_IsOK(res2)) {
13169 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_balance_matrix" "', argument " "2"" of type '" "gsl_vector *""'");
13170 }
13171 arg2 = (gsl_vector *)(argp2);
13172 result = (int)gsl_linalg_balance_matrix(arg1,arg2);
13173 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
13174
13175
13176 XSRETURN(argvi);
13177 fail:
13178
13179
13180 SWIG_croak_null();
13181 }
13182 }
13183
13184
XS(_wrap_gsl_linalg_balance_accum)13185 XS(_wrap_gsl_linalg_balance_accum) {
13186 {
13187 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
13188 gsl_vector *arg2 = (gsl_vector *) 0 ;
13189 void *argp1 = 0 ;
13190 int res1 = 0 ;
13191 void *argp2 = 0 ;
13192 int res2 = 0 ;
13193 int argvi = 0;
13194 int result;
13195 dXSARGS;
13196
13197 if ((items < 2) || (items > 2)) {
13198 SWIG_croak("Usage: gsl_linalg_balance_accum(A,D);");
13199 }
13200 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
13201 if (!SWIG_IsOK(res1)) {
13202 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_balance_accum" "', argument " "1"" of type '" "gsl_matrix *""'");
13203 }
13204 arg1 = (gsl_matrix *)(argp1);
13205 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
13206 if (!SWIG_IsOK(res2)) {
13207 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_balance_accum" "', argument " "2"" of type '" "gsl_vector *""'");
13208 }
13209 arg2 = (gsl_vector *)(argp2);
13210 result = (int)gsl_linalg_balance_accum(arg1,arg2);
13211 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
13212
13213
13214 XSRETURN(argvi);
13215 fail:
13216
13217
13218 SWIG_croak_null();
13219 }
13220 }
13221
13222
XS(_wrap_gsl_linalg_balance_columns)13223 XS(_wrap_gsl_linalg_balance_columns) {
13224 {
13225 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
13226 gsl_vector *arg2 = (gsl_vector *) 0 ;
13227 void *argp1 = 0 ;
13228 int res1 = 0 ;
13229 void *argp2 = 0 ;
13230 int res2 = 0 ;
13231 int argvi = 0;
13232 int result;
13233 dXSARGS;
13234
13235 if ((items < 2) || (items > 2)) {
13236 SWIG_croak("Usage: gsl_linalg_balance_columns(A,D);");
13237 }
13238 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
13239 if (!SWIG_IsOK(res1)) {
13240 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_balance_columns" "', argument " "1"" of type '" "gsl_matrix *""'");
13241 }
13242 arg1 = (gsl_matrix *)(argp1);
13243 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
13244 if (!SWIG_IsOK(res2)) {
13245 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_balance_columns" "', argument " "2"" of type '" "gsl_vector *""'");
13246 }
13247 arg2 = (gsl_vector *)(argp2);
13248 result = (int)gsl_linalg_balance_columns(arg1,arg2);
13249 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
13250
13251
13252 XSRETURN(argvi);
13253 fail:
13254
13255
13256 SWIG_croak_null();
13257 }
13258 }
13259
13260
XS(_wrap_gsl_linalg_tri_rcond)13261 XS(_wrap_gsl_linalg_tri_rcond) {
13262 {
13263 CBLAS_UPLO_t arg1 ;
13264 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
13265 double *arg3 = (double *) 0 ;
13266 gsl_vector *arg4 = (gsl_vector *) 0 ;
13267 void *argp1 ;
13268 int res1 = 0 ;
13269 void *argp2 = 0 ;
13270 int res2 = 0 ;
13271 void *argp3 = 0 ;
13272 int res3 = 0 ;
13273 void *argp4 = 0 ;
13274 int res4 = 0 ;
13275 int argvi = 0;
13276 int result;
13277 dXSARGS;
13278
13279 if ((items < 4) || (items > 4)) {
13280 SWIG_croak("Usage: gsl_linalg_tri_rcond(Uplo,A,rcond,work);");
13281 }
13282 {
13283 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_CBLAS_UPLO_t, 0 );
13284 if (!SWIG_IsOK(res1)) {
13285 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_tri_rcond" "', argument " "1"" of type '" "CBLAS_UPLO_t""'");
13286 }
13287 if (!argp1) {
13288 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_linalg_tri_rcond" "', argument " "1"" of type '" "CBLAS_UPLO_t""'");
13289 } else {
13290 arg1 = *((CBLAS_UPLO_t *)(argp1));
13291 }
13292 }
13293 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
13294 if (!SWIG_IsOK(res2)) {
13295 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_tri_rcond" "', argument " "2"" of type '" "gsl_matrix const *""'");
13296 }
13297 arg2 = (gsl_matrix *)(argp2);
13298 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_double, 0 | 0 );
13299 if (!SWIG_IsOK(res3)) {
13300 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_tri_rcond" "', argument " "3"" of type '" "double *""'");
13301 }
13302 arg3 = (double *)(argp3);
13303 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
13304 if (!SWIG_IsOK(res4)) {
13305 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_tri_rcond" "', argument " "4"" of type '" "gsl_vector *""'");
13306 }
13307 arg4 = (gsl_vector *)(argp4);
13308 result = (int)gsl_linalg_tri_rcond(arg1,(gsl_matrix const *)arg2,arg3,arg4);
13309 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
13310
13311
13312
13313 XSRETURN(argvi);
13314 fail:
13315
13316
13317
13318 SWIG_croak_null();
13319 }
13320 }
13321
13322
XS(_wrap_gsl_linalg_tri_upper_rcond)13323 XS(_wrap_gsl_linalg_tri_upper_rcond) {
13324 {
13325 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
13326 double *arg2 = (double *) 0 ;
13327 gsl_vector *arg3 = (gsl_vector *) 0 ;
13328 void *argp1 = 0 ;
13329 int res1 = 0 ;
13330 void *argp2 = 0 ;
13331 int res2 = 0 ;
13332 void *argp3 = 0 ;
13333 int res3 = 0 ;
13334 int argvi = 0;
13335 int result;
13336 dXSARGS;
13337
13338 if ((items < 3) || (items > 3)) {
13339 SWIG_croak("Usage: gsl_linalg_tri_upper_rcond(A,rcond,work);");
13340 }
13341 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
13342 if (!SWIG_IsOK(res1)) {
13343 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_tri_upper_rcond" "', argument " "1"" of type '" "gsl_matrix const *""'");
13344 }
13345 arg1 = (gsl_matrix *)(argp1);
13346 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_double, 0 | 0 );
13347 if (!SWIG_IsOK(res2)) {
13348 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_tri_upper_rcond" "', argument " "2"" of type '" "double *""'");
13349 }
13350 arg2 = (double *)(argp2);
13351 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
13352 if (!SWIG_IsOK(res3)) {
13353 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_tri_upper_rcond" "', argument " "3"" of type '" "gsl_vector *""'");
13354 }
13355 arg3 = (gsl_vector *)(argp3);
13356 result = (int)gsl_linalg_tri_upper_rcond((gsl_matrix const *)arg1,arg2,arg3);
13357 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
13358
13359
13360
13361 XSRETURN(argvi);
13362 fail:
13363
13364
13365
13366 SWIG_croak_null();
13367 }
13368 }
13369
13370
XS(_wrap_gsl_linalg_tri_lower_rcond)13371 XS(_wrap_gsl_linalg_tri_lower_rcond) {
13372 {
13373 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
13374 double *arg2 = (double *) 0 ;
13375 gsl_vector *arg3 = (gsl_vector *) 0 ;
13376 void *argp1 = 0 ;
13377 int res1 = 0 ;
13378 void *argp2 = 0 ;
13379 int res2 = 0 ;
13380 void *argp3 = 0 ;
13381 int res3 = 0 ;
13382 int argvi = 0;
13383 int result;
13384 dXSARGS;
13385
13386 if ((items < 3) || (items > 3)) {
13387 SWIG_croak("Usage: gsl_linalg_tri_lower_rcond(A,rcond,work);");
13388 }
13389 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
13390 if (!SWIG_IsOK(res1)) {
13391 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_tri_lower_rcond" "', argument " "1"" of type '" "gsl_matrix const *""'");
13392 }
13393 arg1 = (gsl_matrix *)(argp1);
13394 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_double, 0 | 0 );
13395 if (!SWIG_IsOK(res2)) {
13396 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_tri_lower_rcond" "', argument " "2"" of type '" "double *""'");
13397 }
13398 arg2 = (double *)(argp2);
13399 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
13400 if (!SWIG_IsOK(res3)) {
13401 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_tri_lower_rcond" "', argument " "3"" of type '" "gsl_vector *""'");
13402 }
13403 arg3 = (gsl_vector *)(argp3);
13404 result = (int)gsl_linalg_tri_lower_rcond((gsl_matrix const *)arg1,arg2,arg3);
13405 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
13406
13407
13408
13409 XSRETURN(argvi);
13410 fail:
13411
13412
13413
13414 SWIG_croak_null();
13415 }
13416 }
13417
13418
XS(_wrap_gsl_linalg_invnorm1)13419 XS(_wrap_gsl_linalg_invnorm1) {
13420 {
13421 size_t arg1 ;
13422 int (*arg2)(CBLAS_TRANSPOSE_t,gsl_vector *,void *) = (int (*)(CBLAS_TRANSPOSE_t,gsl_vector *,void *)) 0 ;
13423 void *arg3 = (void *) 0 ;
13424 double *arg4 = (double *) 0 ;
13425 gsl_vector *arg5 = (gsl_vector *) 0 ;
13426 size_t val1 ;
13427 int ecode1 = 0 ;
13428 int res3 ;
13429 void *argp4 = 0 ;
13430 int res4 = 0 ;
13431 void *argp5 = 0 ;
13432 int res5 = 0 ;
13433 int argvi = 0;
13434 int result;
13435 dXSARGS;
13436
13437 if ((items < 5) || (items > 5)) {
13438 SWIG_croak("Usage: gsl_linalg_invnorm1(N,Ainvx,params,Ainvnorm,work);");
13439 }
13440 ecode1 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
13441 if (!SWIG_IsOK(ecode1)) {
13442 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_linalg_invnorm1" "', argument " "1"" of type '" "size_t""'");
13443 }
13444 arg1 = (size_t)(val1);
13445 {
13446 int res = SWIG_ConvertFunctionPtr(ST(1), (void**)(&arg2), SWIGTYPE_p_f_CBLAS_TRANSPOSE_t_p_gsl_vector_p_void__int);
13447 if (!SWIG_IsOK(res)) {
13448 SWIG_exception_fail(SWIG_ArgError(res), "in method '" "gsl_linalg_invnorm1" "', argument " "2"" of type '" "int (*)(CBLAS_TRANSPOSE_t,gsl_vector *,void *)""'");
13449 }
13450 }
13451 res3 = SWIG_ConvertPtr(ST(2),SWIG_as_voidptrptr(&arg3), 0, 0);
13452 if (!SWIG_IsOK(res3)) {
13453 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_invnorm1" "', argument " "3"" of type '" "void *""'");
13454 }
13455 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_double, 0 | 0 );
13456 if (!SWIG_IsOK(res4)) {
13457 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_invnorm1" "', argument " "4"" of type '" "double *""'");
13458 }
13459 arg4 = (double *)(argp4);
13460 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
13461 if (!SWIG_IsOK(res5)) {
13462 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_invnorm1" "', argument " "5"" of type '" "gsl_vector *""'");
13463 }
13464 arg5 = (gsl_vector *)(argp5);
13465 result = (int)gsl_linalg_invnorm1(arg1,arg2,arg3,arg4,arg5);
13466 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
13467
13468
13469
13470
13471
13472 XSRETURN(argvi);
13473 fail:
13474
13475
13476
13477
13478
13479 SWIG_croak_null();
13480 }
13481 }
13482
13483
XS(_wrap_gsl_linalg_tri_upper_invert)13484 XS(_wrap_gsl_linalg_tri_upper_invert) {
13485 {
13486 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
13487 void *argp1 = 0 ;
13488 int res1 = 0 ;
13489 int argvi = 0;
13490 int result;
13491 dXSARGS;
13492
13493 if ((items < 1) || (items > 1)) {
13494 SWIG_croak("Usage: gsl_linalg_tri_upper_invert(T);");
13495 }
13496 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
13497 if (!SWIG_IsOK(res1)) {
13498 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_tri_upper_invert" "', argument " "1"" of type '" "gsl_matrix *""'");
13499 }
13500 arg1 = (gsl_matrix *)(argp1);
13501 result = (int)gsl_linalg_tri_upper_invert(arg1);
13502 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
13503
13504 XSRETURN(argvi);
13505 fail:
13506
13507 SWIG_croak_null();
13508 }
13509 }
13510
13511
XS(_wrap_gsl_linalg_tri_lower_invert)13512 XS(_wrap_gsl_linalg_tri_lower_invert) {
13513 {
13514 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
13515 void *argp1 = 0 ;
13516 int res1 = 0 ;
13517 int argvi = 0;
13518 int result;
13519 dXSARGS;
13520
13521 if ((items < 1) || (items > 1)) {
13522 SWIG_croak("Usage: gsl_linalg_tri_lower_invert(T);");
13523 }
13524 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
13525 if (!SWIG_IsOK(res1)) {
13526 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_tri_lower_invert" "', argument " "1"" of type '" "gsl_matrix *""'");
13527 }
13528 arg1 = (gsl_matrix *)(argp1);
13529 result = (int)gsl_linalg_tri_lower_invert(arg1);
13530 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
13531
13532 XSRETURN(argvi);
13533 fail:
13534
13535 SWIG_croak_null();
13536 }
13537 }
13538
13539
XS(_wrap_gsl_linalg_tri_upper_unit_invert)13540 XS(_wrap_gsl_linalg_tri_upper_unit_invert) {
13541 {
13542 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
13543 void *argp1 = 0 ;
13544 int res1 = 0 ;
13545 int argvi = 0;
13546 int result;
13547 dXSARGS;
13548
13549 if ((items < 1) || (items > 1)) {
13550 SWIG_croak("Usage: gsl_linalg_tri_upper_unit_invert(T);");
13551 }
13552 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
13553 if (!SWIG_IsOK(res1)) {
13554 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_tri_upper_unit_invert" "', argument " "1"" of type '" "gsl_matrix *""'");
13555 }
13556 arg1 = (gsl_matrix *)(argp1);
13557 result = (int)gsl_linalg_tri_upper_unit_invert(arg1);
13558 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
13559
13560 XSRETURN(argvi);
13561 fail:
13562
13563 SWIG_croak_null();
13564 }
13565 }
13566
13567
XS(_wrap_gsl_linalg_tri_lower_unit_invert)13568 XS(_wrap_gsl_linalg_tri_lower_unit_invert) {
13569 {
13570 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
13571 void *argp1 = 0 ;
13572 int res1 = 0 ;
13573 int argvi = 0;
13574 int result;
13575 dXSARGS;
13576
13577 if ((items < 1) || (items > 1)) {
13578 SWIG_croak("Usage: gsl_linalg_tri_lower_unit_invert(T);");
13579 }
13580 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
13581 if (!SWIG_IsOK(res1)) {
13582 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_tri_lower_unit_invert" "', argument " "1"" of type '" "gsl_matrix *""'");
13583 }
13584 arg1 = (gsl_matrix *)(argp1);
13585 result = (int)gsl_linalg_tri_lower_unit_invert(arg1);
13586 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
13587
13588 XSRETURN(argvi);
13589 fail:
13590
13591 SWIG_croak_null();
13592 }
13593 }
13594
13595
XS(_wrap_gsl_linalg_tri_invert)13596 XS(_wrap_gsl_linalg_tri_invert) {
13597 {
13598 CBLAS_UPLO_t arg1 ;
13599 CBLAS_DIAG_t arg2 ;
13600 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
13601 void *argp1 ;
13602 int res1 = 0 ;
13603 void *argp2 ;
13604 int res2 = 0 ;
13605 void *argp3 = 0 ;
13606 int res3 = 0 ;
13607 int argvi = 0;
13608 int result;
13609 dXSARGS;
13610
13611 if ((items < 3) || (items > 3)) {
13612 SWIG_croak("Usage: gsl_linalg_tri_invert(Uplo,Diag,T);");
13613 }
13614 {
13615 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_CBLAS_UPLO_t, 0 );
13616 if (!SWIG_IsOK(res1)) {
13617 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_tri_invert" "', argument " "1"" of type '" "CBLAS_UPLO_t""'");
13618 }
13619 if (!argp1) {
13620 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_linalg_tri_invert" "', argument " "1"" of type '" "CBLAS_UPLO_t""'");
13621 } else {
13622 arg1 = *((CBLAS_UPLO_t *)(argp1));
13623 }
13624 }
13625 {
13626 res2 = SWIG_ConvertPtr(ST(1), &argp2, SWIGTYPE_p_CBLAS_DIAG_t, 0 );
13627 if (!SWIG_IsOK(res2)) {
13628 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_tri_invert" "', argument " "2"" of type '" "CBLAS_DIAG_t""'");
13629 }
13630 if (!argp2) {
13631 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_linalg_tri_invert" "', argument " "2"" of type '" "CBLAS_DIAG_t""'");
13632 } else {
13633 arg2 = *((CBLAS_DIAG_t *)(argp2));
13634 }
13635 }
13636 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
13637 if (!SWIG_IsOK(res3)) {
13638 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_tri_invert" "', argument " "3"" of type '" "gsl_matrix *""'");
13639 }
13640 arg3 = (gsl_matrix *)(argp3);
13641 result = (int)gsl_linalg_tri_invert(arg1,arg2,arg3);
13642 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
13643
13644 XSRETURN(argvi);
13645 fail:
13646
13647 SWIG_croak_null();
13648 }
13649 }
13650
13651
XS(_wrap_gsl_linalg_complex_tri_invert)13652 XS(_wrap_gsl_linalg_complex_tri_invert) {
13653 {
13654 CBLAS_UPLO_t arg1 ;
13655 CBLAS_DIAG_t arg2 ;
13656 gsl_matrix_complex *arg3 = (gsl_matrix_complex *) 0 ;
13657 void *argp1 ;
13658 int res1 = 0 ;
13659 void *argp2 ;
13660 int res2 = 0 ;
13661 void *argp3 = 0 ;
13662 int res3 = 0 ;
13663 int argvi = 0;
13664 int result;
13665 dXSARGS;
13666
13667 if ((items < 3) || (items > 3)) {
13668 SWIG_croak("Usage: gsl_linalg_complex_tri_invert(Uplo,Diag,T);");
13669 }
13670 {
13671 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_CBLAS_UPLO_t, 0 );
13672 if (!SWIG_IsOK(res1)) {
13673 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_complex_tri_invert" "', argument " "1"" of type '" "CBLAS_UPLO_t""'");
13674 }
13675 if (!argp1) {
13676 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_linalg_complex_tri_invert" "', argument " "1"" of type '" "CBLAS_UPLO_t""'");
13677 } else {
13678 arg1 = *((CBLAS_UPLO_t *)(argp1));
13679 }
13680 }
13681 {
13682 res2 = SWIG_ConvertPtr(ST(1), &argp2, SWIGTYPE_p_CBLAS_DIAG_t, 0 );
13683 if (!SWIG_IsOK(res2)) {
13684 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_complex_tri_invert" "', argument " "2"" of type '" "CBLAS_DIAG_t""'");
13685 }
13686 if (!argp2) {
13687 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_linalg_complex_tri_invert" "', argument " "2"" of type '" "CBLAS_DIAG_t""'");
13688 } else {
13689 arg2 = *((CBLAS_DIAG_t *)(argp2));
13690 }
13691 }
13692 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
13693 if (!SWIG_IsOK(res3)) {
13694 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_complex_tri_invert" "', argument " "3"" of type '" "gsl_matrix_complex *""'");
13695 }
13696 arg3 = (gsl_matrix_complex *)(argp3);
13697 result = (int)gsl_linalg_complex_tri_invert(arg1,arg2,arg3);
13698 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
13699
13700 XSRETURN(argvi);
13701 fail:
13702
13703 SWIG_croak_null();
13704 }
13705 }
13706
13707
XS(_wrap_gsl_linalg_tri_LTL)13708 XS(_wrap_gsl_linalg_tri_LTL) {
13709 {
13710 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
13711 void *argp1 = 0 ;
13712 int res1 = 0 ;
13713 int argvi = 0;
13714 int result;
13715 dXSARGS;
13716
13717 if ((items < 1) || (items > 1)) {
13718 SWIG_croak("Usage: gsl_linalg_tri_LTL(L);");
13719 }
13720 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
13721 if (!SWIG_IsOK(res1)) {
13722 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_tri_LTL" "', argument " "1"" of type '" "gsl_matrix *""'");
13723 }
13724 arg1 = (gsl_matrix *)(argp1);
13725 result = (int)gsl_linalg_tri_LTL(arg1);
13726 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
13727
13728 XSRETURN(argvi);
13729 fail:
13730
13731 SWIG_croak_null();
13732 }
13733 }
13734
13735
XS(_wrap_gsl_linalg_tri_UL)13736 XS(_wrap_gsl_linalg_tri_UL) {
13737 {
13738 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
13739 void *argp1 = 0 ;
13740 int res1 = 0 ;
13741 int argvi = 0;
13742 int result;
13743 dXSARGS;
13744
13745 if ((items < 1) || (items > 1)) {
13746 SWIG_croak("Usage: gsl_linalg_tri_UL(LU);");
13747 }
13748 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
13749 if (!SWIG_IsOK(res1)) {
13750 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_tri_UL" "', argument " "1"" of type '" "gsl_matrix *""'");
13751 }
13752 arg1 = (gsl_matrix *)(argp1);
13753 result = (int)gsl_linalg_tri_UL(arg1);
13754 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
13755
13756 XSRETURN(argvi);
13757 fail:
13758
13759 SWIG_croak_null();
13760 }
13761 }
13762
13763
XS(_wrap_gsl_linalg_complex_tri_LHL)13764 XS(_wrap_gsl_linalg_complex_tri_LHL) {
13765 {
13766 gsl_matrix_complex *arg1 = (gsl_matrix_complex *) 0 ;
13767 void *argp1 = 0 ;
13768 int res1 = 0 ;
13769 int argvi = 0;
13770 int result;
13771 dXSARGS;
13772
13773 if ((items < 1) || (items > 1)) {
13774 SWIG_croak("Usage: gsl_linalg_complex_tri_LHL(L);");
13775 }
13776 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
13777 if (!SWIG_IsOK(res1)) {
13778 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_complex_tri_LHL" "', argument " "1"" of type '" "gsl_matrix_complex *""'");
13779 }
13780 arg1 = (gsl_matrix_complex *)(argp1);
13781 result = (int)gsl_linalg_complex_tri_LHL(arg1);
13782 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
13783
13784 XSRETURN(argvi);
13785 fail:
13786
13787 SWIG_croak_null();
13788 }
13789 }
13790
13791
XS(_wrap_gsl_linalg_complex_tri_UL)13792 XS(_wrap_gsl_linalg_complex_tri_UL) {
13793 {
13794 gsl_matrix_complex *arg1 = (gsl_matrix_complex *) 0 ;
13795 void *argp1 = 0 ;
13796 int res1 = 0 ;
13797 int argvi = 0;
13798 int result;
13799 dXSARGS;
13800
13801 if ((items < 1) || (items > 1)) {
13802 SWIG_croak("Usage: gsl_linalg_complex_tri_UL(LU);");
13803 }
13804 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
13805 if (!SWIG_IsOK(res1)) {
13806 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_complex_tri_UL" "', argument " "1"" of type '" "gsl_matrix_complex *""'");
13807 }
13808 arg1 = (gsl_matrix_complex *)(argp1);
13809 result = (int)gsl_linalg_complex_tri_UL(arg1);
13810 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
13811
13812 XSRETURN(argvi);
13813 fail:
13814
13815 SWIG_croak_null();
13816 }
13817 }
13818
13819
XS(_wrap_gsl_linalg_givens)13820 XS(_wrap_gsl_linalg_givens) {
13821 {
13822 double arg1 ;
13823 double arg2 ;
13824 double *arg3 = (double *) 0 ;
13825 double *arg4 = (double *) 0 ;
13826 double val1 ;
13827 int ecode1 = 0 ;
13828 double val2 ;
13829 int ecode2 = 0 ;
13830 double temp3 ;
13831 int res3 = SWIG_TMPOBJ ;
13832 double temp4 ;
13833 int res4 = SWIG_TMPOBJ ;
13834 int argvi = 0;
13835 dXSARGS;
13836
13837 arg3 = &temp3;
13838 arg4 = &temp4;
13839 if ((items < 2) || (items > 2)) {
13840 SWIG_croak("Usage: gsl_linalg_givens(a,b);");
13841 }
13842 ecode1 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
13843 if (!SWIG_IsOK(ecode1)) {
13844 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_linalg_givens" "', argument " "1"" of type '" "double""'");
13845 }
13846 arg1 = (double)(val1);
13847 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
13848 if (!SWIG_IsOK(ecode2)) {
13849 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_linalg_givens" "', argument " "2"" of type '" "double""'");
13850 }
13851 arg2 = (double)(val2);
13852 gsl_linalg_givens(arg1,arg2,arg3,arg4);
13853 ST(argvi) = &PL_sv_undef;
13854 if (SWIG_IsTmpObj(res3)) {
13855 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((*arg3)); argvi++ ;
13856 } else {
13857 int new_flags = SWIG_IsNewObj(res3) ? (SWIG_POINTER_OWN | 0) : 0;
13858 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg3), SWIGTYPE_p_double, new_flags); argvi++ ;
13859 }
13860 if (SWIG_IsTmpObj(res4)) {
13861 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((*arg4)); argvi++ ;
13862 } else {
13863 int new_flags = SWIG_IsNewObj(res4) ? (SWIG_POINTER_OWN | 0) : 0;
13864 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg4), SWIGTYPE_p_double, new_flags); argvi++ ;
13865 }
13866
13867
13868
13869
13870 XSRETURN(argvi);
13871 fail:
13872
13873
13874
13875
13876 SWIG_croak_null();
13877 }
13878 }
13879
13880
XS(_wrap_gsl_linalg_givens_gv)13881 XS(_wrap_gsl_linalg_givens_gv) {
13882 {
13883 gsl_vector *arg1 = (gsl_vector *) 0 ;
13884 size_t arg2 ;
13885 size_t arg3 ;
13886 double arg4 ;
13887 double arg5 ;
13888 void *argp1 = 0 ;
13889 int res1 = 0 ;
13890 size_t val2 ;
13891 int ecode2 = 0 ;
13892 size_t val3 ;
13893 int ecode3 = 0 ;
13894 double val4 ;
13895 int ecode4 = 0 ;
13896 double val5 ;
13897 int ecode5 = 0 ;
13898 int argvi = 0;
13899 dXSARGS;
13900
13901 if ((items < 5) || (items > 5)) {
13902 SWIG_croak("Usage: gsl_linalg_givens_gv(v,i,j,c,s);");
13903 }
13904 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
13905 if (!SWIG_IsOK(res1)) {
13906 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_givens_gv" "', argument " "1"" of type '" "gsl_vector *""'");
13907 }
13908 arg1 = (gsl_vector *)(argp1);
13909 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
13910 if (!SWIG_IsOK(ecode2)) {
13911 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_linalg_givens_gv" "', argument " "2"" of type '" "size_t""'");
13912 }
13913 arg2 = (size_t)(val2);
13914 ecode3 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
13915 if (!SWIG_IsOK(ecode3)) {
13916 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_linalg_givens_gv" "', argument " "3"" of type '" "size_t""'");
13917 }
13918 arg3 = (size_t)(val3);
13919 ecode4 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(3), &val4);
13920 if (!SWIG_IsOK(ecode4)) {
13921 SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "gsl_linalg_givens_gv" "', argument " "4"" of type '" "double""'");
13922 }
13923 arg4 = (double)(val4);
13924 ecode5 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(4), &val5);
13925 if (!SWIG_IsOK(ecode5)) {
13926 SWIG_exception_fail(SWIG_ArgError(ecode5), "in method '" "gsl_linalg_givens_gv" "', argument " "5"" of type '" "double""'");
13927 }
13928 arg5 = (double)(val5);
13929 gsl_linalg_givens_gv(arg1,arg2,arg3,arg4,arg5);
13930 ST(argvi) = &PL_sv_undef;
13931
13932
13933
13934
13935
13936 XSRETURN(argvi);
13937 fail:
13938
13939
13940
13941
13942
13943 SWIG_croak_null();
13944 }
13945 }
13946
13947
XS(_wrap_gsl_permutation_struct_size_set)13948 XS(_wrap_gsl_permutation_struct_size_set) {
13949 {
13950 struct gsl_permutation_struct *arg1 = (struct gsl_permutation_struct *) 0 ;
13951 size_t arg2 ;
13952 void *argp1 = 0 ;
13953 int res1 = 0 ;
13954 size_t val2 ;
13955 int ecode2 = 0 ;
13956 int argvi = 0;
13957 dXSARGS;
13958
13959 if ((items < 2) || (items > 2)) {
13960 SWIG_croak("Usage: gsl_permutation_struct_size_set(self,size);");
13961 }
13962 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
13963 if (!SWIG_IsOK(res1)) {
13964 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_struct_size_set" "', argument " "1"" of type '" "struct gsl_permutation_struct *""'");
13965 }
13966 arg1 = (struct gsl_permutation_struct *)(argp1);
13967 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
13968 if (!SWIG_IsOK(ecode2)) {
13969 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_permutation_struct_size_set" "', argument " "2"" of type '" "size_t""'");
13970 }
13971 arg2 = (size_t)(val2);
13972 if (arg1) (arg1)->size = arg2;
13973 ST(argvi) = &PL_sv_undef;
13974
13975
13976 XSRETURN(argvi);
13977 fail:
13978
13979
13980 SWIG_croak_null();
13981 }
13982 }
13983
13984
XS(_wrap_gsl_permutation_struct_size_get)13985 XS(_wrap_gsl_permutation_struct_size_get) {
13986 {
13987 struct gsl_permutation_struct *arg1 = (struct gsl_permutation_struct *) 0 ;
13988 void *argp1 = 0 ;
13989 int res1 = 0 ;
13990 int argvi = 0;
13991 size_t result;
13992 dXSARGS;
13993
13994 if ((items < 1) || (items > 1)) {
13995 SWIG_croak("Usage: gsl_permutation_struct_size_get(self);");
13996 }
13997 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
13998 if (!SWIG_IsOK(res1)) {
13999 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_struct_size_get" "', argument " "1"" of type '" "struct gsl_permutation_struct *""'");
14000 }
14001 arg1 = (struct gsl_permutation_struct *)(argp1);
14002 result = ((arg1)->size);
14003 ST(argvi) = SWIG_From_size_t SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
14004
14005 XSRETURN(argvi);
14006 fail:
14007
14008 SWIG_croak_null();
14009 }
14010 }
14011
14012
XS(_wrap_gsl_permutation_struct_data_set)14013 XS(_wrap_gsl_permutation_struct_data_set) {
14014 {
14015 struct gsl_permutation_struct *arg1 = (struct gsl_permutation_struct *) 0 ;
14016 size_t *arg2 = (size_t *) 0 ;
14017 void *argp1 = 0 ;
14018 int res1 = 0 ;
14019 void *argp2 = 0 ;
14020 int res2 = 0 ;
14021 int argvi = 0;
14022 dXSARGS;
14023
14024 if ((items < 2) || (items > 2)) {
14025 SWIG_croak("Usage: gsl_permutation_struct_data_set(self,data);");
14026 }
14027 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
14028 if (!SWIG_IsOK(res1)) {
14029 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_struct_data_set" "', argument " "1"" of type '" "struct gsl_permutation_struct *""'");
14030 }
14031 arg1 = (struct gsl_permutation_struct *)(argp1);
14032 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_size_t, SWIG_POINTER_DISOWN | 0 );
14033 if (!SWIG_IsOK(res2)) {
14034 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_permutation_struct_data_set" "', argument " "2"" of type '" "size_t *""'");
14035 }
14036 arg2 = (size_t *)(argp2);
14037 if (arg1) (arg1)->data = arg2;
14038 ST(argvi) = &PL_sv_undef;
14039
14040
14041 XSRETURN(argvi);
14042 fail:
14043
14044
14045 SWIG_croak_null();
14046 }
14047 }
14048
14049
XS(_wrap_gsl_permutation_struct_data_get)14050 XS(_wrap_gsl_permutation_struct_data_get) {
14051 {
14052 struct gsl_permutation_struct *arg1 = (struct gsl_permutation_struct *) 0 ;
14053 void *argp1 = 0 ;
14054 int res1 = 0 ;
14055 int argvi = 0;
14056 size_t *result = 0 ;
14057 dXSARGS;
14058
14059 if ((items < 1) || (items > 1)) {
14060 SWIG_croak("Usage: gsl_permutation_struct_data_get(self);");
14061 }
14062 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
14063 if (!SWIG_IsOK(res1)) {
14064 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_struct_data_get" "', argument " "1"" of type '" "struct gsl_permutation_struct *""'");
14065 }
14066 arg1 = (struct gsl_permutation_struct *)(argp1);
14067 result = (size_t *) ((arg1)->data);
14068 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_size_t, 0 | 0); argvi++ ;
14069
14070 XSRETURN(argvi);
14071 fail:
14072
14073 SWIG_croak_null();
14074 }
14075 }
14076
14077
XS(_wrap_new_gsl_permutation_struct)14078 XS(_wrap_new_gsl_permutation_struct) {
14079 {
14080 int argvi = 0;
14081 struct gsl_permutation_struct *result = 0 ;
14082 dXSARGS;
14083
14084 if ((items < 0) || (items > 0)) {
14085 SWIG_croak("Usage: new_gsl_permutation_struct();");
14086 }
14087 result = (struct gsl_permutation_struct *)calloc(1, sizeof(struct gsl_permutation_struct));
14088 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_permutation_struct, SWIG_OWNER | SWIG_SHADOW); argvi++ ;
14089 XSRETURN(argvi);
14090 fail:
14091 SWIG_croak_null();
14092 }
14093 }
14094
14095
XS(_wrap_delete_gsl_permutation_struct)14096 XS(_wrap_delete_gsl_permutation_struct) {
14097 {
14098 struct gsl_permutation_struct *arg1 = (struct gsl_permutation_struct *) 0 ;
14099 void *argp1 = 0 ;
14100 int res1 = 0 ;
14101 int argvi = 0;
14102 dXSARGS;
14103
14104 if ((items < 1) || (items > 1)) {
14105 SWIG_croak("Usage: delete_gsl_permutation_struct(self);");
14106 }
14107 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, SWIG_POINTER_DISOWN | 0 );
14108 if (!SWIG_IsOK(res1)) {
14109 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "delete_gsl_permutation_struct" "', argument " "1"" of type '" "struct gsl_permutation_struct *""'");
14110 }
14111 arg1 = (struct gsl_permutation_struct *)(argp1);
14112 free((char *) arg1);
14113 ST(argvi) = &PL_sv_undef;
14114
14115 XSRETURN(argvi);
14116 fail:
14117
14118 SWIG_croak_null();
14119 }
14120 }
14121
14122
XS(_wrap_gsl_permutation_alloc)14123 XS(_wrap_gsl_permutation_alloc) {
14124 {
14125 size_t arg1 ;
14126 size_t val1 ;
14127 int ecode1 = 0 ;
14128 int argvi = 0;
14129 gsl_permutation *result = 0 ;
14130 dXSARGS;
14131
14132 if ((items < 1) || (items > 1)) {
14133 SWIG_croak("Usage: gsl_permutation_alloc(n);");
14134 }
14135 ecode1 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
14136 if (!SWIG_IsOK(ecode1)) {
14137 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_permutation_alloc" "', argument " "1"" of type '" "size_t""'");
14138 }
14139 arg1 = (size_t)(val1);
14140 result = (gsl_permutation *)gsl_permutation_alloc(arg1);
14141 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_permutation_struct, 0 | SWIG_SHADOW); argvi++ ;
14142
14143 XSRETURN(argvi);
14144 fail:
14145
14146 SWIG_croak_null();
14147 }
14148 }
14149
14150
XS(_wrap_gsl_permutation_calloc)14151 XS(_wrap_gsl_permutation_calloc) {
14152 {
14153 size_t arg1 ;
14154 size_t val1 ;
14155 int ecode1 = 0 ;
14156 int argvi = 0;
14157 gsl_permutation *result = 0 ;
14158 dXSARGS;
14159
14160 if ((items < 1) || (items > 1)) {
14161 SWIG_croak("Usage: gsl_permutation_calloc(n);");
14162 }
14163 ecode1 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
14164 if (!SWIG_IsOK(ecode1)) {
14165 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_permutation_calloc" "', argument " "1"" of type '" "size_t""'");
14166 }
14167 arg1 = (size_t)(val1);
14168 result = (gsl_permutation *)gsl_permutation_calloc(arg1);
14169 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_permutation_struct, 0 | SWIG_SHADOW); argvi++ ;
14170
14171 XSRETURN(argvi);
14172 fail:
14173
14174 SWIG_croak_null();
14175 }
14176 }
14177
14178
XS(_wrap_gsl_permutation_init)14179 XS(_wrap_gsl_permutation_init) {
14180 {
14181 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
14182 void *argp1 = 0 ;
14183 int res1 = 0 ;
14184 int argvi = 0;
14185 dXSARGS;
14186
14187 if ((items < 1) || (items > 1)) {
14188 SWIG_croak("Usage: gsl_permutation_init(p);");
14189 }
14190 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
14191 if (!SWIG_IsOK(res1)) {
14192 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_init" "', argument " "1"" of type '" "gsl_permutation *""'");
14193 }
14194 arg1 = (gsl_permutation *)(argp1);
14195 gsl_permutation_init(arg1);
14196 ST(argvi) = &PL_sv_undef;
14197
14198 XSRETURN(argvi);
14199 fail:
14200
14201 SWIG_croak_null();
14202 }
14203 }
14204
14205
XS(_wrap_gsl_permutation_free)14206 XS(_wrap_gsl_permutation_free) {
14207 {
14208 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
14209 void *argp1 = 0 ;
14210 int res1 = 0 ;
14211 int argvi = 0;
14212 dXSARGS;
14213
14214 if ((items < 1) || (items > 1)) {
14215 SWIG_croak("Usage: gsl_permutation_free(p);");
14216 }
14217 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
14218 if (!SWIG_IsOK(res1)) {
14219 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_free" "', argument " "1"" of type '" "gsl_permutation *""'");
14220 }
14221 arg1 = (gsl_permutation *)(argp1);
14222 gsl_permutation_free(arg1);
14223 ST(argvi) = &PL_sv_undef;
14224
14225 XSRETURN(argvi);
14226 fail:
14227
14228 SWIG_croak_null();
14229 }
14230 }
14231
14232
XS(_wrap_gsl_permutation_memcpy)14233 XS(_wrap_gsl_permutation_memcpy) {
14234 {
14235 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
14236 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
14237 void *argp1 = 0 ;
14238 int res1 = 0 ;
14239 void *argp2 = 0 ;
14240 int res2 = 0 ;
14241 int argvi = 0;
14242 int result;
14243 dXSARGS;
14244
14245 if ((items < 2) || (items > 2)) {
14246 SWIG_croak("Usage: gsl_permutation_memcpy(dest,src);");
14247 }
14248 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
14249 if (!SWIG_IsOK(res1)) {
14250 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_memcpy" "', argument " "1"" of type '" "gsl_permutation *""'");
14251 }
14252 arg1 = (gsl_permutation *)(argp1);
14253 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
14254 if (!SWIG_IsOK(res2)) {
14255 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_permutation_memcpy" "', argument " "2"" of type '" "gsl_permutation const *""'");
14256 }
14257 arg2 = (gsl_permutation *)(argp2);
14258 result = (int)gsl_permutation_memcpy(arg1,(struct gsl_permutation_struct const *)arg2);
14259 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
14260
14261
14262 XSRETURN(argvi);
14263 fail:
14264
14265
14266 SWIG_croak_null();
14267 }
14268 }
14269
14270
XS(_wrap_gsl_permutation_fread)14271 XS(_wrap_gsl_permutation_fread) {
14272 {
14273 FILE *arg1 = (FILE *) 0 ;
14274 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
14275 void *argp1 = 0 ;
14276 int res1 = 0 ;
14277 void *argp2 = 0 ;
14278 int res2 = 0 ;
14279 int argvi = 0;
14280 int result;
14281 dXSARGS;
14282
14283 if ((items < 2) || (items > 2)) {
14284 SWIG_croak("Usage: gsl_permutation_fread(stream,p);");
14285 }
14286 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_FILE, 0 | 0 );
14287 if (!SWIG_IsOK(res1)) {
14288 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_fread" "', argument " "1"" of type '" "FILE *""'");
14289 }
14290 arg1 = (FILE *)(argp1);
14291 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
14292 if (!SWIG_IsOK(res2)) {
14293 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_permutation_fread" "', argument " "2"" of type '" "gsl_permutation *""'");
14294 }
14295 arg2 = (gsl_permutation *)(argp2);
14296 result = (int)gsl_permutation_fread(arg1,arg2);
14297 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
14298
14299
14300 XSRETURN(argvi);
14301 fail:
14302
14303
14304 SWIG_croak_null();
14305 }
14306 }
14307
14308
XS(_wrap_gsl_permutation_fwrite)14309 XS(_wrap_gsl_permutation_fwrite) {
14310 {
14311 FILE *arg1 = (FILE *) 0 ;
14312 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
14313 void *argp1 = 0 ;
14314 int res1 = 0 ;
14315 void *argp2 = 0 ;
14316 int res2 = 0 ;
14317 int argvi = 0;
14318 int result;
14319 dXSARGS;
14320
14321 if ((items < 2) || (items > 2)) {
14322 SWIG_croak("Usage: gsl_permutation_fwrite(stream,p);");
14323 }
14324 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_FILE, 0 | 0 );
14325 if (!SWIG_IsOK(res1)) {
14326 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_fwrite" "', argument " "1"" of type '" "FILE *""'");
14327 }
14328 arg1 = (FILE *)(argp1);
14329 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
14330 if (!SWIG_IsOK(res2)) {
14331 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_permutation_fwrite" "', argument " "2"" of type '" "gsl_permutation const *""'");
14332 }
14333 arg2 = (gsl_permutation *)(argp2);
14334 result = (int)gsl_permutation_fwrite(arg1,(struct gsl_permutation_struct const *)arg2);
14335 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
14336
14337
14338 XSRETURN(argvi);
14339 fail:
14340
14341
14342 SWIG_croak_null();
14343 }
14344 }
14345
14346
XS(_wrap_gsl_permutation_fscanf)14347 XS(_wrap_gsl_permutation_fscanf) {
14348 {
14349 FILE *arg1 = (FILE *) 0 ;
14350 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
14351 void *argp1 = 0 ;
14352 int res1 = 0 ;
14353 void *argp2 = 0 ;
14354 int res2 = 0 ;
14355 int argvi = 0;
14356 int result;
14357 dXSARGS;
14358
14359 if ((items < 2) || (items > 2)) {
14360 SWIG_croak("Usage: gsl_permutation_fscanf(stream,p);");
14361 }
14362 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_FILE, 0 | 0 );
14363 if (!SWIG_IsOK(res1)) {
14364 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_fscanf" "', argument " "1"" of type '" "FILE *""'");
14365 }
14366 arg1 = (FILE *)(argp1);
14367 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
14368 if (!SWIG_IsOK(res2)) {
14369 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_permutation_fscanf" "', argument " "2"" of type '" "gsl_permutation *""'");
14370 }
14371 arg2 = (gsl_permutation *)(argp2);
14372 result = (int)gsl_permutation_fscanf(arg1,arg2);
14373 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
14374
14375
14376 XSRETURN(argvi);
14377 fail:
14378
14379
14380 SWIG_croak_null();
14381 }
14382 }
14383
14384
XS(_wrap_gsl_permutation_fprintf)14385 XS(_wrap_gsl_permutation_fprintf) {
14386 {
14387 FILE *arg1 = (FILE *) 0 ;
14388 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
14389 char *arg3 = (char *) 0 ;
14390 void *argp1 = 0 ;
14391 int res1 = 0 ;
14392 void *argp2 = 0 ;
14393 int res2 = 0 ;
14394 int res3 ;
14395 char *buf3 = 0 ;
14396 int alloc3 = 0 ;
14397 int argvi = 0;
14398 int result;
14399 dXSARGS;
14400
14401 if ((items < 3) || (items > 3)) {
14402 SWIG_croak("Usage: gsl_permutation_fprintf(stream,p,format);");
14403 }
14404 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_FILE, 0 | 0 );
14405 if (!SWIG_IsOK(res1)) {
14406 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_fprintf" "', argument " "1"" of type '" "FILE *""'");
14407 }
14408 arg1 = (FILE *)(argp1);
14409 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
14410 if (!SWIG_IsOK(res2)) {
14411 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_permutation_fprintf" "', argument " "2"" of type '" "gsl_permutation const *""'");
14412 }
14413 arg2 = (gsl_permutation *)(argp2);
14414 res3 = SWIG_AsCharPtrAndSize(ST(2), &buf3, NULL, &alloc3);
14415 if (!SWIG_IsOK(res3)) {
14416 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_permutation_fprintf" "', argument " "3"" of type '" "char const *""'");
14417 }
14418 arg3 = (char *)(buf3);
14419 result = (int)gsl_permutation_fprintf(arg1,(struct gsl_permutation_struct const *)arg2,(char const *)arg3);
14420 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
14421
14422
14423 if (alloc3 == SWIG_NEWOBJ) free((char*)buf3);
14424 XSRETURN(argvi);
14425 fail:
14426
14427
14428 if (alloc3 == SWIG_NEWOBJ) free((char*)buf3);
14429 SWIG_croak_null();
14430 }
14431 }
14432
14433
XS(_wrap_gsl_permutation_size)14434 XS(_wrap_gsl_permutation_size) {
14435 {
14436 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
14437 void *argp1 = 0 ;
14438 int res1 = 0 ;
14439 int argvi = 0;
14440 size_t result;
14441 dXSARGS;
14442
14443 if ((items < 1) || (items > 1)) {
14444 SWIG_croak("Usage: gsl_permutation_size(p);");
14445 }
14446 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
14447 if (!SWIG_IsOK(res1)) {
14448 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_size" "', argument " "1"" of type '" "gsl_permutation const *""'");
14449 }
14450 arg1 = (gsl_permutation *)(argp1);
14451 result = gsl_permutation_size((struct gsl_permutation_struct const *)arg1);
14452 ST(argvi) = SWIG_From_size_t SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
14453
14454 XSRETURN(argvi);
14455 fail:
14456
14457 SWIG_croak_null();
14458 }
14459 }
14460
14461
XS(_wrap_gsl_permutation_data)14462 XS(_wrap_gsl_permutation_data) {
14463 {
14464 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
14465 void *argp1 = 0 ;
14466 int res1 = 0 ;
14467 int argvi = 0;
14468 size_t *result = 0 ;
14469 dXSARGS;
14470
14471 if ((items < 1) || (items > 1)) {
14472 SWIG_croak("Usage: gsl_permutation_data(p);");
14473 }
14474 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
14475 if (!SWIG_IsOK(res1)) {
14476 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_data" "', argument " "1"" of type '" "gsl_permutation const *""'");
14477 }
14478 arg1 = (gsl_permutation *)(argp1);
14479 result = (size_t *)gsl_permutation_data((struct gsl_permutation_struct const *)arg1);
14480 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_size_t, 0 | 0); argvi++ ;
14481
14482 XSRETURN(argvi);
14483 fail:
14484
14485 SWIG_croak_null();
14486 }
14487 }
14488
14489
XS(_wrap_gsl_permutation_swap)14490 XS(_wrap_gsl_permutation_swap) {
14491 {
14492 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
14493 size_t arg2 ;
14494 size_t arg3 ;
14495 void *argp1 = 0 ;
14496 int res1 = 0 ;
14497 size_t val2 ;
14498 int ecode2 = 0 ;
14499 size_t val3 ;
14500 int ecode3 = 0 ;
14501 int argvi = 0;
14502 int result;
14503 dXSARGS;
14504
14505 if ((items < 3) || (items > 3)) {
14506 SWIG_croak("Usage: gsl_permutation_swap(p,i,j);");
14507 }
14508 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
14509 if (!SWIG_IsOK(res1)) {
14510 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_swap" "', argument " "1"" of type '" "gsl_permutation *""'");
14511 }
14512 arg1 = (gsl_permutation *)(argp1);
14513 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
14514 if (!SWIG_IsOK(ecode2)) {
14515 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_permutation_swap" "', argument " "2"" of type '" "size_t""'");
14516 }
14517 arg2 = (size_t)(val2);
14518 ecode3 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
14519 if (!SWIG_IsOK(ecode3)) {
14520 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_permutation_swap" "', argument " "3"" of type '" "size_t""'");
14521 }
14522 arg3 = (size_t)(val3);
14523 result = (int)gsl_permutation_swap(arg1,arg2,arg3);
14524 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
14525
14526
14527
14528 XSRETURN(argvi);
14529 fail:
14530
14531
14532
14533 SWIG_croak_null();
14534 }
14535 }
14536
14537
XS(_wrap_gsl_permutation_valid)14538 XS(_wrap_gsl_permutation_valid) {
14539 {
14540 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
14541 void *argp1 = 0 ;
14542 int res1 = 0 ;
14543 int argvi = 0;
14544 int result;
14545 dXSARGS;
14546
14547 if ((items < 1) || (items > 1)) {
14548 SWIG_croak("Usage: gsl_permutation_valid(p);");
14549 }
14550 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
14551 if (!SWIG_IsOK(res1)) {
14552 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_valid" "', argument " "1"" of type '" "gsl_permutation const *""'");
14553 }
14554 arg1 = (gsl_permutation *)(argp1);
14555 result = (int)gsl_permutation_valid((struct gsl_permutation_struct const *)arg1);
14556 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
14557
14558 XSRETURN(argvi);
14559 fail:
14560
14561 SWIG_croak_null();
14562 }
14563 }
14564
14565
XS(_wrap_gsl_permutation_reverse)14566 XS(_wrap_gsl_permutation_reverse) {
14567 {
14568 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
14569 void *argp1 = 0 ;
14570 int res1 = 0 ;
14571 int argvi = 0;
14572 dXSARGS;
14573
14574 if ((items < 1) || (items > 1)) {
14575 SWIG_croak("Usage: gsl_permutation_reverse(p);");
14576 }
14577 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
14578 if (!SWIG_IsOK(res1)) {
14579 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_reverse" "', argument " "1"" of type '" "gsl_permutation *""'");
14580 }
14581 arg1 = (gsl_permutation *)(argp1);
14582 gsl_permutation_reverse(arg1);
14583 ST(argvi) = &PL_sv_undef;
14584
14585 XSRETURN(argvi);
14586 fail:
14587
14588 SWIG_croak_null();
14589 }
14590 }
14591
14592
XS(_wrap_gsl_permutation_inverse)14593 XS(_wrap_gsl_permutation_inverse) {
14594 {
14595 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
14596 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
14597 void *argp1 = 0 ;
14598 int res1 = 0 ;
14599 void *argp2 = 0 ;
14600 int res2 = 0 ;
14601 int argvi = 0;
14602 int result;
14603 dXSARGS;
14604
14605 if ((items < 2) || (items > 2)) {
14606 SWIG_croak("Usage: gsl_permutation_inverse(inv,p);");
14607 }
14608 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
14609 if (!SWIG_IsOK(res1)) {
14610 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_inverse" "', argument " "1"" of type '" "gsl_permutation *""'");
14611 }
14612 arg1 = (gsl_permutation *)(argp1);
14613 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
14614 if (!SWIG_IsOK(res2)) {
14615 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_permutation_inverse" "', argument " "2"" of type '" "gsl_permutation const *""'");
14616 }
14617 arg2 = (gsl_permutation *)(argp2);
14618 result = (int)gsl_permutation_inverse(arg1,(struct gsl_permutation_struct const *)arg2);
14619 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
14620
14621
14622 XSRETURN(argvi);
14623 fail:
14624
14625
14626 SWIG_croak_null();
14627 }
14628 }
14629
14630
XS(_wrap_gsl_permutation_next)14631 XS(_wrap_gsl_permutation_next) {
14632 {
14633 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
14634 void *argp1 = 0 ;
14635 int res1 = 0 ;
14636 int argvi = 0;
14637 int result;
14638 dXSARGS;
14639
14640 if ((items < 1) || (items > 1)) {
14641 SWIG_croak("Usage: gsl_permutation_next(p);");
14642 }
14643 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
14644 if (!SWIG_IsOK(res1)) {
14645 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_next" "', argument " "1"" of type '" "gsl_permutation *""'");
14646 }
14647 arg1 = (gsl_permutation *)(argp1);
14648 result = (int)gsl_permutation_next(arg1);
14649 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
14650
14651 XSRETURN(argvi);
14652 fail:
14653
14654 SWIG_croak_null();
14655 }
14656 }
14657
14658
XS(_wrap_gsl_permutation_prev)14659 XS(_wrap_gsl_permutation_prev) {
14660 {
14661 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
14662 void *argp1 = 0 ;
14663 int res1 = 0 ;
14664 int argvi = 0;
14665 int result;
14666 dXSARGS;
14667
14668 if ((items < 1) || (items > 1)) {
14669 SWIG_croak("Usage: gsl_permutation_prev(p);");
14670 }
14671 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
14672 if (!SWIG_IsOK(res1)) {
14673 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_prev" "', argument " "1"" of type '" "gsl_permutation *""'");
14674 }
14675 arg1 = (gsl_permutation *)(argp1);
14676 result = (int)gsl_permutation_prev(arg1);
14677 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
14678
14679 XSRETURN(argvi);
14680 fail:
14681
14682 SWIG_croak_null();
14683 }
14684 }
14685
14686
XS(_wrap_gsl_permutation_mul)14687 XS(_wrap_gsl_permutation_mul) {
14688 {
14689 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
14690 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
14691 gsl_permutation *arg3 = (gsl_permutation *) 0 ;
14692 void *argp1 = 0 ;
14693 int res1 = 0 ;
14694 void *argp2 = 0 ;
14695 int res2 = 0 ;
14696 void *argp3 = 0 ;
14697 int res3 = 0 ;
14698 int argvi = 0;
14699 int result;
14700 dXSARGS;
14701
14702 if ((items < 3) || (items > 3)) {
14703 SWIG_croak("Usage: gsl_permutation_mul(p,pa,pb);");
14704 }
14705 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
14706 if (!SWIG_IsOK(res1)) {
14707 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_mul" "', argument " "1"" of type '" "gsl_permutation *""'");
14708 }
14709 arg1 = (gsl_permutation *)(argp1);
14710 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
14711 if (!SWIG_IsOK(res2)) {
14712 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_permutation_mul" "', argument " "2"" of type '" "gsl_permutation const *""'");
14713 }
14714 arg2 = (gsl_permutation *)(argp2);
14715 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
14716 if (!SWIG_IsOK(res3)) {
14717 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_permutation_mul" "', argument " "3"" of type '" "gsl_permutation const *""'");
14718 }
14719 arg3 = (gsl_permutation *)(argp3);
14720 result = (int)gsl_permutation_mul(arg1,(struct gsl_permutation_struct const *)arg2,(struct gsl_permutation_struct const *)arg3);
14721 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
14722
14723
14724
14725 XSRETURN(argvi);
14726 fail:
14727
14728
14729
14730 SWIG_croak_null();
14731 }
14732 }
14733
14734
XS(_wrap_gsl_permutation_linear_to_canonical)14735 XS(_wrap_gsl_permutation_linear_to_canonical) {
14736 {
14737 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
14738 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
14739 void *argp1 = 0 ;
14740 int res1 = 0 ;
14741 void *argp2 = 0 ;
14742 int res2 = 0 ;
14743 int argvi = 0;
14744 int result;
14745 dXSARGS;
14746
14747 if ((items < 2) || (items > 2)) {
14748 SWIG_croak("Usage: gsl_permutation_linear_to_canonical(q,p);");
14749 }
14750 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
14751 if (!SWIG_IsOK(res1)) {
14752 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_linear_to_canonical" "', argument " "1"" of type '" "gsl_permutation *""'");
14753 }
14754 arg1 = (gsl_permutation *)(argp1);
14755 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
14756 if (!SWIG_IsOK(res2)) {
14757 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_permutation_linear_to_canonical" "', argument " "2"" of type '" "gsl_permutation const *""'");
14758 }
14759 arg2 = (gsl_permutation *)(argp2);
14760 result = (int)gsl_permutation_linear_to_canonical(arg1,(struct gsl_permutation_struct const *)arg2);
14761 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
14762
14763
14764 XSRETURN(argvi);
14765 fail:
14766
14767
14768 SWIG_croak_null();
14769 }
14770 }
14771
14772
XS(_wrap_gsl_permutation_canonical_to_linear)14773 XS(_wrap_gsl_permutation_canonical_to_linear) {
14774 {
14775 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
14776 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
14777 void *argp1 = 0 ;
14778 int res1 = 0 ;
14779 void *argp2 = 0 ;
14780 int res2 = 0 ;
14781 int argvi = 0;
14782 int result;
14783 dXSARGS;
14784
14785 if ((items < 2) || (items > 2)) {
14786 SWIG_croak("Usage: gsl_permutation_canonical_to_linear(p,q);");
14787 }
14788 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
14789 if (!SWIG_IsOK(res1)) {
14790 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_canonical_to_linear" "', argument " "1"" of type '" "gsl_permutation *""'");
14791 }
14792 arg1 = (gsl_permutation *)(argp1);
14793 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
14794 if (!SWIG_IsOK(res2)) {
14795 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_permutation_canonical_to_linear" "', argument " "2"" of type '" "gsl_permutation const *""'");
14796 }
14797 arg2 = (gsl_permutation *)(argp2);
14798 result = (int)gsl_permutation_canonical_to_linear(arg1,(struct gsl_permutation_struct const *)arg2);
14799 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
14800
14801
14802 XSRETURN(argvi);
14803 fail:
14804
14805
14806 SWIG_croak_null();
14807 }
14808 }
14809
14810
XS(_wrap_gsl_permutation_inversions)14811 XS(_wrap_gsl_permutation_inversions) {
14812 {
14813 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
14814 void *argp1 = 0 ;
14815 int res1 = 0 ;
14816 int argvi = 0;
14817 size_t result;
14818 dXSARGS;
14819
14820 if ((items < 1) || (items > 1)) {
14821 SWIG_croak("Usage: gsl_permutation_inversions(p);");
14822 }
14823 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
14824 if (!SWIG_IsOK(res1)) {
14825 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_inversions" "', argument " "1"" of type '" "gsl_permutation const *""'");
14826 }
14827 arg1 = (gsl_permutation *)(argp1);
14828 result = gsl_permutation_inversions((struct gsl_permutation_struct const *)arg1);
14829 ST(argvi) = SWIG_From_size_t SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
14830
14831 XSRETURN(argvi);
14832 fail:
14833
14834 SWIG_croak_null();
14835 }
14836 }
14837
14838
XS(_wrap_gsl_permutation_linear_cycles)14839 XS(_wrap_gsl_permutation_linear_cycles) {
14840 {
14841 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
14842 void *argp1 = 0 ;
14843 int res1 = 0 ;
14844 int argvi = 0;
14845 size_t result;
14846 dXSARGS;
14847
14848 if ((items < 1) || (items > 1)) {
14849 SWIG_croak("Usage: gsl_permutation_linear_cycles(p);");
14850 }
14851 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
14852 if (!SWIG_IsOK(res1)) {
14853 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_linear_cycles" "', argument " "1"" of type '" "gsl_permutation const *""'");
14854 }
14855 arg1 = (gsl_permutation *)(argp1);
14856 result = gsl_permutation_linear_cycles((struct gsl_permutation_struct const *)arg1);
14857 ST(argvi) = SWIG_From_size_t SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
14858
14859 XSRETURN(argvi);
14860 fail:
14861
14862 SWIG_croak_null();
14863 }
14864 }
14865
14866
XS(_wrap_gsl_permutation_canonical_cycles)14867 XS(_wrap_gsl_permutation_canonical_cycles) {
14868 {
14869 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
14870 void *argp1 = 0 ;
14871 int res1 = 0 ;
14872 int argvi = 0;
14873 size_t result;
14874 dXSARGS;
14875
14876 if ((items < 1) || (items > 1)) {
14877 SWIG_croak("Usage: gsl_permutation_canonical_cycles(q);");
14878 }
14879 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
14880 if (!SWIG_IsOK(res1)) {
14881 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_canonical_cycles" "', argument " "1"" of type '" "gsl_permutation const *""'");
14882 }
14883 arg1 = (gsl_permutation *)(argp1);
14884 result = gsl_permutation_canonical_cycles((struct gsl_permutation_struct const *)arg1);
14885 ST(argvi) = SWIG_From_size_t SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
14886
14887 XSRETURN(argvi);
14888 fail:
14889
14890 SWIG_croak_null();
14891 }
14892 }
14893
14894
XS(_wrap_gsl_permutation_get)14895 XS(_wrap_gsl_permutation_get) {
14896 {
14897 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
14898 size_t arg2 ;
14899 void *argp1 = 0 ;
14900 int res1 = 0 ;
14901 size_t val2 ;
14902 int ecode2 = 0 ;
14903 int argvi = 0;
14904 size_t result;
14905 dXSARGS;
14906
14907 if ((items < 2) || (items > 2)) {
14908 SWIG_croak("Usage: gsl_permutation_get(p,i);");
14909 }
14910 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
14911 if (!SWIG_IsOK(res1)) {
14912 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_get" "', argument " "1"" of type '" "gsl_permutation const *""'");
14913 }
14914 arg1 = (gsl_permutation *)(argp1);
14915 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
14916 if (!SWIG_IsOK(ecode2)) {
14917 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_permutation_get" "', argument " "2"" of type '" "size_t""'");
14918 }
14919 arg2 = (size_t)(val2);
14920 result = gsl_permutation_get((struct gsl_permutation_struct const *)arg1,arg2);
14921 ST(argvi) = SWIG_From_size_t SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
14922
14923
14924 XSRETURN(argvi);
14925 fail:
14926
14927
14928 SWIG_croak_null();
14929 }
14930 }
14931
14932
XS(_wrap_gsl_complex_dat_set)14933 XS(_wrap_gsl_complex_dat_set) {
14934 {
14935 gsl_complex *arg1 = (gsl_complex *) 0 ;
14936 double *arg2 ;
14937 void *argp1 = 0 ;
14938 int res1 = 0 ;
14939 void *argp2 = 0 ;
14940 int res2 = 0 ;
14941 int argvi = 0;
14942 dXSARGS;
14943
14944 if ((items < 2) || (items > 2)) {
14945 SWIG_croak("Usage: gsl_complex_dat_set(self,dat);");
14946 }
14947 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_complex, 0 | 0 );
14948 if (!SWIG_IsOK(res1)) {
14949 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_dat_set" "', argument " "1"" of type '" "gsl_complex *""'");
14950 }
14951 arg1 = (gsl_complex *)(argp1);
14952 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_double, 0 | 0 );
14953 if (!SWIG_IsOK(res2)) {
14954 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_complex_dat_set" "', argument " "2"" of type '" "double [2]""'");
14955 }
14956 arg2 = (double *)(argp2);
14957 {
14958 if (arg2) {
14959 size_t ii = 0;
14960 for (; ii < (size_t)2; ++ii) *(double *)&arg1->dat[ii] = *((double *)arg2 + ii);
14961 } else {
14962 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in variable '""dat""' of type '""double [2]""'");
14963 }
14964 }
14965 ST(argvi) = &PL_sv_undef;
14966
14967
14968 XSRETURN(argvi);
14969 fail:
14970
14971
14972 SWIG_croak_null();
14973 }
14974 }
14975
14976
XS(_wrap_gsl_complex_dat_get)14977 XS(_wrap_gsl_complex_dat_get) {
14978 {
14979 gsl_complex *arg1 = (gsl_complex *) 0 ;
14980 void *argp1 = 0 ;
14981 int res1 = 0 ;
14982 int argvi = 0;
14983 double *result = 0 ;
14984 dXSARGS;
14985
14986 if ((items < 1) || (items > 1)) {
14987 SWIG_croak("Usage: gsl_complex_dat_get(self);");
14988 }
14989 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_complex, 0 | 0 );
14990 if (!SWIG_IsOK(res1)) {
14991 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_dat_get" "', argument " "1"" of type '" "gsl_complex *""'");
14992 }
14993 arg1 = (gsl_complex *)(argp1);
14994 result = (double *)(double *) ((arg1)->dat);
14995 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_double, 0 | 0); argvi++ ;
14996
14997 XSRETURN(argvi);
14998 fail:
14999
15000 SWIG_croak_null();
15001 }
15002 }
15003
15004
XS(_wrap_new_gsl_complex)15005 XS(_wrap_new_gsl_complex) {
15006 {
15007 int argvi = 0;
15008 gsl_complex *result = 0 ;
15009 dXSARGS;
15010
15011 if ((items < 0) || (items > 0)) {
15012 SWIG_croak("Usage: new_gsl_complex();");
15013 }
15014 result = (gsl_complex *)calloc(1, sizeof(gsl_complex));
15015 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_complex, SWIG_OWNER | SWIG_SHADOW); argvi++ ;
15016 XSRETURN(argvi);
15017 fail:
15018 SWIG_croak_null();
15019 }
15020 }
15021
15022
XS(_wrap_delete_gsl_complex)15023 XS(_wrap_delete_gsl_complex) {
15024 {
15025 gsl_complex *arg1 = (gsl_complex *) 0 ;
15026 void *argp1 = 0 ;
15027 int res1 = 0 ;
15028 int argvi = 0;
15029 dXSARGS;
15030
15031 if ((items < 1) || (items > 1)) {
15032 SWIG_croak("Usage: delete_gsl_complex(self);");
15033 }
15034 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_complex, SWIG_POINTER_DISOWN | 0 );
15035 if (!SWIG_IsOK(res1)) {
15036 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "delete_gsl_complex" "', argument " "1"" of type '" "gsl_complex *""'");
15037 }
15038 arg1 = (gsl_complex *)(argp1);
15039 free((char *) arg1);
15040 ST(argvi) = &PL_sv_undef;
15041
15042 XSRETURN(argvi);
15043 fail:
15044
15045 SWIG_croak_null();
15046 }
15047 }
15048
15049
XS(_wrap_gsl_complex_long_double_dat_set)15050 XS(_wrap_gsl_complex_long_double_dat_set) {
15051 {
15052 gsl_complex_long_double *arg1 = (gsl_complex_long_double *) 0 ;
15053 long double *arg2 ;
15054 void *argp1 = 0 ;
15055 int res1 = 0 ;
15056 void *argp2 = 0 ;
15057 int res2 = 0 ;
15058 int argvi = 0;
15059 dXSARGS;
15060
15061 if ((items < 2) || (items > 2)) {
15062 SWIG_croak("Usage: gsl_complex_long_double_dat_set(self,dat);");
15063 }
15064 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_complex_long_double, 0 | 0 );
15065 if (!SWIG_IsOK(res1)) {
15066 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_long_double_dat_set" "', argument " "1"" of type '" "gsl_complex_long_double *""'");
15067 }
15068 arg1 = (gsl_complex_long_double *)(argp1);
15069 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_long_double, 0 | 0 );
15070 if (!SWIG_IsOK(res2)) {
15071 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_complex_long_double_dat_set" "', argument " "2"" of type '" "long double [2]""'");
15072 }
15073 arg2 = (long double *)(argp2);
15074 {
15075 if (arg2) {
15076 size_t ii = 0;
15077 for (; ii < (size_t)2; ++ii) *(long double *)&arg1->dat[ii] = *((long double *)arg2 + ii);
15078 } else {
15079 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in variable '""dat""' of type '""long double [2]""'");
15080 }
15081 }
15082 ST(argvi) = &PL_sv_undef;
15083
15084
15085 XSRETURN(argvi);
15086 fail:
15087
15088
15089 SWIG_croak_null();
15090 }
15091 }
15092
15093
XS(_wrap_gsl_complex_long_double_dat_get)15094 XS(_wrap_gsl_complex_long_double_dat_get) {
15095 {
15096 gsl_complex_long_double *arg1 = (gsl_complex_long_double *) 0 ;
15097 void *argp1 = 0 ;
15098 int res1 = 0 ;
15099 int argvi = 0;
15100 long double *result = 0 ;
15101 dXSARGS;
15102
15103 if ((items < 1) || (items > 1)) {
15104 SWIG_croak("Usage: gsl_complex_long_double_dat_get(self);");
15105 }
15106 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_complex_long_double, 0 | 0 );
15107 if (!SWIG_IsOK(res1)) {
15108 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_long_double_dat_get" "', argument " "1"" of type '" "gsl_complex_long_double *""'");
15109 }
15110 arg1 = (gsl_complex_long_double *)(argp1);
15111 result = (long double *)(long double *) ((arg1)->dat);
15112 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_long_double, 0 | 0); argvi++ ;
15113
15114 XSRETURN(argvi);
15115 fail:
15116
15117 SWIG_croak_null();
15118 }
15119 }
15120
15121
XS(_wrap_new_gsl_complex_long_double)15122 XS(_wrap_new_gsl_complex_long_double) {
15123 {
15124 int argvi = 0;
15125 gsl_complex_long_double *result = 0 ;
15126 dXSARGS;
15127
15128 if ((items < 0) || (items > 0)) {
15129 SWIG_croak("Usage: new_gsl_complex_long_double();");
15130 }
15131 result = (gsl_complex_long_double *)calloc(1, sizeof(gsl_complex_long_double));
15132 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_complex_long_double, SWIG_OWNER | SWIG_SHADOW); argvi++ ;
15133 XSRETURN(argvi);
15134 fail:
15135 SWIG_croak_null();
15136 }
15137 }
15138
15139
XS(_wrap_delete_gsl_complex_long_double)15140 XS(_wrap_delete_gsl_complex_long_double) {
15141 {
15142 gsl_complex_long_double *arg1 = (gsl_complex_long_double *) 0 ;
15143 void *argp1 = 0 ;
15144 int res1 = 0 ;
15145 int argvi = 0;
15146 dXSARGS;
15147
15148 if ((items < 1) || (items > 1)) {
15149 SWIG_croak("Usage: delete_gsl_complex_long_double(self);");
15150 }
15151 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_complex_long_double, SWIG_POINTER_DISOWN | 0 );
15152 if (!SWIG_IsOK(res1)) {
15153 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "delete_gsl_complex_long_double" "', argument " "1"" of type '" "gsl_complex_long_double *""'");
15154 }
15155 arg1 = (gsl_complex_long_double *)(argp1);
15156 free((char *) arg1);
15157 ST(argvi) = &PL_sv_undef;
15158
15159 XSRETURN(argvi);
15160 fail:
15161
15162 SWIG_croak_null();
15163 }
15164 }
15165
15166
XS(_wrap_gsl_complex_float_dat_set)15167 XS(_wrap_gsl_complex_float_dat_set) {
15168 {
15169 gsl_complex_float *arg1 = (gsl_complex_float *) 0 ;
15170 float *arg2 ;
15171 void *argp1 = 0 ;
15172 int res1 = 0 ;
15173 void *argp2 = 0 ;
15174 int res2 = 0 ;
15175 int argvi = 0;
15176 dXSARGS;
15177
15178 if ((items < 2) || (items > 2)) {
15179 SWIG_croak("Usage: gsl_complex_float_dat_set(self,dat);");
15180 }
15181 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_complex_float, 0 | 0 );
15182 if (!SWIG_IsOK(res1)) {
15183 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_float_dat_set" "', argument " "1"" of type '" "gsl_complex_float *""'");
15184 }
15185 arg1 = (gsl_complex_float *)(argp1);
15186 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_float, 0 | 0 );
15187 if (!SWIG_IsOK(res2)) {
15188 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_complex_float_dat_set" "', argument " "2"" of type '" "float [2]""'");
15189 }
15190 arg2 = (float *)(argp2);
15191 {
15192 if (arg2) {
15193 size_t ii = 0;
15194 for (; ii < (size_t)2; ++ii) *(float *)&arg1->dat[ii] = *((float *)arg2 + ii);
15195 } else {
15196 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in variable '""dat""' of type '""float [2]""'");
15197 }
15198 }
15199 ST(argvi) = &PL_sv_undef;
15200
15201
15202 XSRETURN(argvi);
15203 fail:
15204
15205
15206 SWIG_croak_null();
15207 }
15208 }
15209
15210
XS(_wrap_gsl_complex_float_dat_get)15211 XS(_wrap_gsl_complex_float_dat_get) {
15212 {
15213 gsl_complex_float *arg1 = (gsl_complex_float *) 0 ;
15214 void *argp1 = 0 ;
15215 int res1 = 0 ;
15216 int argvi = 0;
15217 float *result = 0 ;
15218 dXSARGS;
15219
15220 if ((items < 1) || (items > 1)) {
15221 SWIG_croak("Usage: gsl_complex_float_dat_get(self);");
15222 }
15223 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_complex_float, 0 | 0 );
15224 if (!SWIG_IsOK(res1)) {
15225 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_float_dat_get" "', argument " "1"" of type '" "gsl_complex_float *""'");
15226 }
15227 arg1 = (gsl_complex_float *)(argp1);
15228 result = (float *)(float *) ((arg1)->dat);
15229 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_float, 0 | 0); argvi++ ;
15230
15231 XSRETURN(argvi);
15232 fail:
15233
15234 SWIG_croak_null();
15235 }
15236 }
15237
15238
XS(_wrap_new_gsl_complex_float)15239 XS(_wrap_new_gsl_complex_float) {
15240 {
15241 int argvi = 0;
15242 gsl_complex_float *result = 0 ;
15243 dXSARGS;
15244
15245 if ((items < 0) || (items > 0)) {
15246 SWIG_croak("Usage: new_gsl_complex_float();");
15247 }
15248 result = (gsl_complex_float *)calloc(1, sizeof(gsl_complex_float));
15249 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_complex_float, SWIG_OWNER | SWIG_SHADOW); argvi++ ;
15250 XSRETURN(argvi);
15251 fail:
15252 SWIG_croak_null();
15253 }
15254 }
15255
15256
XS(_wrap_delete_gsl_complex_float)15257 XS(_wrap_delete_gsl_complex_float) {
15258 {
15259 gsl_complex_float *arg1 = (gsl_complex_float *) 0 ;
15260 void *argp1 = 0 ;
15261 int res1 = 0 ;
15262 int argvi = 0;
15263 dXSARGS;
15264
15265 if ((items < 1) || (items > 1)) {
15266 SWIG_croak("Usage: delete_gsl_complex_float(self);");
15267 }
15268 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_complex_float, SWIG_POINTER_DISOWN | 0 );
15269 if (!SWIG_IsOK(res1)) {
15270 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "delete_gsl_complex_float" "', argument " "1"" of type '" "gsl_complex_float *""'");
15271 }
15272 arg1 = (gsl_complex_float *)(argp1);
15273 free((char *) arg1);
15274 ST(argvi) = &PL_sv_undef;
15275
15276 XSRETURN(argvi);
15277 fail:
15278
15279 SWIG_croak_null();
15280 }
15281 }
15282
15283
XS(_wrap_gsl_complex_polar)15284 XS(_wrap_gsl_complex_polar) {
15285 {
15286 double arg1 ;
15287 double arg2 ;
15288 double val1 ;
15289 int ecode1 = 0 ;
15290 double val2 ;
15291 int ecode2 = 0 ;
15292 int argvi = 0;
15293 gsl_complex result;
15294 dXSARGS;
15295
15296 if ((items < 2) || (items > 2)) {
15297 SWIG_croak("Usage: gsl_complex_polar(r,theta);");
15298 }
15299 ecode1 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
15300 if (!SWIG_IsOK(ecode1)) {
15301 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_complex_polar" "', argument " "1"" of type '" "double""'");
15302 }
15303 arg1 = (double)(val1);
15304 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
15305 if (!SWIG_IsOK(ecode2)) {
15306 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_complex_polar" "', argument " "2"" of type '" "double""'");
15307 }
15308 arg2 = (double)(val2);
15309 result = gsl_complex_polar(arg1,arg2);
15310 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++ ;
15311
15312
15313 XSRETURN(argvi);
15314 fail:
15315
15316
15317 SWIG_croak_null();
15318 }
15319 }
15320
15321
XS(_wrap_gsl_complex_rect)15322 XS(_wrap_gsl_complex_rect) {
15323 {
15324 double arg1 ;
15325 double arg2 ;
15326 double val1 ;
15327 int ecode1 = 0 ;
15328 double val2 ;
15329 int ecode2 = 0 ;
15330 int argvi = 0;
15331 gsl_complex result;
15332 dXSARGS;
15333
15334 if ((items < 2) || (items > 2)) {
15335 SWIG_croak("Usage: gsl_complex_rect(x,y);");
15336 }
15337 ecode1 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
15338 if (!SWIG_IsOK(ecode1)) {
15339 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_complex_rect" "', argument " "1"" of type '" "double""'");
15340 }
15341 arg1 = (double)(val1);
15342 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
15343 if (!SWIG_IsOK(ecode2)) {
15344 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_complex_rect" "', argument " "2"" of type '" "double""'");
15345 }
15346 arg2 = (double)(val2);
15347 result = gsl_complex_rect(arg1,arg2);
15348 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++ ;
15349
15350
15351 XSRETURN(argvi);
15352 fail:
15353
15354
15355 SWIG_croak_null();
15356 }
15357 }
15358
15359
XS(_wrap_gsl_complex_arg)15360 XS(_wrap_gsl_complex_arg) {
15361 {
15362 gsl_complex arg1 ;
15363 void *argp1 ;
15364 int res1 = 0 ;
15365 int argvi = 0;
15366 double result;
15367 dXSARGS;
15368
15369 if ((items < 1) || (items > 1)) {
15370 SWIG_croak("Usage: gsl_complex_arg(z);");
15371 }
15372 {
15373 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
15374 if (!SWIG_IsOK(res1)) {
15375 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_arg" "', argument " "1"" of type '" "gsl_complex""'");
15376 }
15377 if (!argp1) {
15378 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_arg" "', argument " "1"" of type '" "gsl_complex""'");
15379 } else {
15380 arg1 = *((gsl_complex *)(argp1));
15381 }
15382 }
15383 result = (double)gsl_complex_arg(arg1);
15384 ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(result)); argvi++ ;
15385 XSRETURN(argvi);
15386 fail:
15387 SWIG_croak_null();
15388 }
15389 }
15390
15391
XS(_wrap_gsl_complex_abs)15392 XS(_wrap_gsl_complex_abs) {
15393 {
15394 gsl_complex arg1 ;
15395 void *argp1 ;
15396 int res1 = 0 ;
15397 int argvi = 0;
15398 double result;
15399 dXSARGS;
15400
15401 if ((items < 1) || (items > 1)) {
15402 SWIG_croak("Usage: gsl_complex_abs(z);");
15403 }
15404 {
15405 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
15406 if (!SWIG_IsOK(res1)) {
15407 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_abs" "', argument " "1"" of type '" "gsl_complex""'");
15408 }
15409 if (!argp1) {
15410 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_abs" "', argument " "1"" of type '" "gsl_complex""'");
15411 } else {
15412 arg1 = *((gsl_complex *)(argp1));
15413 }
15414 }
15415 result = (double)gsl_complex_abs(arg1);
15416 ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(result)); argvi++ ;
15417 XSRETURN(argvi);
15418 fail:
15419 SWIG_croak_null();
15420 }
15421 }
15422
15423
XS(_wrap_gsl_complex_abs2)15424 XS(_wrap_gsl_complex_abs2) {
15425 {
15426 gsl_complex arg1 ;
15427 void *argp1 ;
15428 int res1 = 0 ;
15429 int argvi = 0;
15430 double result;
15431 dXSARGS;
15432
15433 if ((items < 1) || (items > 1)) {
15434 SWIG_croak("Usage: gsl_complex_abs2(z);");
15435 }
15436 {
15437 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
15438 if (!SWIG_IsOK(res1)) {
15439 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_abs2" "', argument " "1"" of type '" "gsl_complex""'");
15440 }
15441 if (!argp1) {
15442 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_abs2" "', argument " "1"" of type '" "gsl_complex""'");
15443 } else {
15444 arg1 = *((gsl_complex *)(argp1));
15445 }
15446 }
15447 result = (double)gsl_complex_abs2(arg1);
15448 ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(result)); argvi++ ;
15449 XSRETURN(argvi);
15450 fail:
15451 SWIG_croak_null();
15452 }
15453 }
15454
15455
XS(_wrap_gsl_complex_logabs)15456 XS(_wrap_gsl_complex_logabs) {
15457 {
15458 gsl_complex arg1 ;
15459 void *argp1 ;
15460 int res1 = 0 ;
15461 int argvi = 0;
15462 double result;
15463 dXSARGS;
15464
15465 if ((items < 1) || (items > 1)) {
15466 SWIG_croak("Usage: gsl_complex_logabs(z);");
15467 }
15468 {
15469 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
15470 if (!SWIG_IsOK(res1)) {
15471 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_logabs" "', argument " "1"" of type '" "gsl_complex""'");
15472 }
15473 if (!argp1) {
15474 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_logabs" "', argument " "1"" of type '" "gsl_complex""'");
15475 } else {
15476 arg1 = *((gsl_complex *)(argp1));
15477 }
15478 }
15479 result = (double)gsl_complex_logabs(arg1);
15480 ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(result)); argvi++ ;
15481 XSRETURN(argvi);
15482 fail:
15483 SWIG_croak_null();
15484 }
15485 }
15486
15487
XS(_wrap_gsl_complex_add)15488 XS(_wrap_gsl_complex_add) {
15489 {
15490 gsl_complex arg1 ;
15491 gsl_complex arg2 ;
15492 void *argp1 ;
15493 int res1 = 0 ;
15494 void *argp2 ;
15495 int res2 = 0 ;
15496 int argvi = 0;
15497 gsl_complex result;
15498 dXSARGS;
15499
15500 if ((items < 2) || (items > 2)) {
15501 SWIG_croak("Usage: gsl_complex_add(a,b);");
15502 }
15503 {
15504 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
15505 if (!SWIG_IsOK(res1)) {
15506 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_add" "', argument " "1"" of type '" "gsl_complex""'");
15507 }
15508 if (!argp1) {
15509 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_add" "', argument " "1"" of type '" "gsl_complex""'");
15510 } else {
15511 arg1 = *((gsl_complex *)(argp1));
15512 }
15513 }
15514 {
15515 res2 = SWIG_ConvertPtr(ST(1), &argp2, SWIGTYPE_p_gsl_complex, 0 );
15516 if (!SWIG_IsOK(res2)) {
15517 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_complex_add" "', argument " "2"" of type '" "gsl_complex""'");
15518 }
15519 if (!argp2) {
15520 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_add" "', argument " "2"" of type '" "gsl_complex""'");
15521 } else {
15522 arg2 = *((gsl_complex *)(argp2));
15523 }
15524 }
15525 result = gsl_complex_add(arg1,arg2);
15526 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++ ;
15527 XSRETURN(argvi);
15528 fail:
15529 SWIG_croak_null();
15530 }
15531 }
15532
15533
XS(_wrap_gsl_complex_sub)15534 XS(_wrap_gsl_complex_sub) {
15535 {
15536 gsl_complex arg1 ;
15537 gsl_complex arg2 ;
15538 void *argp1 ;
15539 int res1 = 0 ;
15540 void *argp2 ;
15541 int res2 = 0 ;
15542 int argvi = 0;
15543 gsl_complex result;
15544 dXSARGS;
15545
15546 if ((items < 2) || (items > 2)) {
15547 SWIG_croak("Usage: gsl_complex_sub(a,b);");
15548 }
15549 {
15550 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
15551 if (!SWIG_IsOK(res1)) {
15552 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_sub" "', argument " "1"" of type '" "gsl_complex""'");
15553 }
15554 if (!argp1) {
15555 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_sub" "', argument " "1"" of type '" "gsl_complex""'");
15556 } else {
15557 arg1 = *((gsl_complex *)(argp1));
15558 }
15559 }
15560 {
15561 res2 = SWIG_ConvertPtr(ST(1), &argp2, SWIGTYPE_p_gsl_complex, 0 );
15562 if (!SWIG_IsOK(res2)) {
15563 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_complex_sub" "', argument " "2"" of type '" "gsl_complex""'");
15564 }
15565 if (!argp2) {
15566 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_sub" "', argument " "2"" of type '" "gsl_complex""'");
15567 } else {
15568 arg2 = *((gsl_complex *)(argp2));
15569 }
15570 }
15571 result = gsl_complex_sub(arg1,arg2);
15572 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++ ;
15573 XSRETURN(argvi);
15574 fail:
15575 SWIG_croak_null();
15576 }
15577 }
15578
15579
XS(_wrap_gsl_complex_mul)15580 XS(_wrap_gsl_complex_mul) {
15581 {
15582 gsl_complex arg1 ;
15583 gsl_complex arg2 ;
15584 void *argp1 ;
15585 int res1 = 0 ;
15586 void *argp2 ;
15587 int res2 = 0 ;
15588 int argvi = 0;
15589 gsl_complex result;
15590 dXSARGS;
15591
15592 if ((items < 2) || (items > 2)) {
15593 SWIG_croak("Usage: gsl_complex_mul(a,b);");
15594 }
15595 {
15596 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
15597 if (!SWIG_IsOK(res1)) {
15598 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_mul" "', argument " "1"" of type '" "gsl_complex""'");
15599 }
15600 if (!argp1) {
15601 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_mul" "', argument " "1"" of type '" "gsl_complex""'");
15602 } else {
15603 arg1 = *((gsl_complex *)(argp1));
15604 }
15605 }
15606 {
15607 res2 = SWIG_ConvertPtr(ST(1), &argp2, SWIGTYPE_p_gsl_complex, 0 );
15608 if (!SWIG_IsOK(res2)) {
15609 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_complex_mul" "', argument " "2"" of type '" "gsl_complex""'");
15610 }
15611 if (!argp2) {
15612 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_mul" "', argument " "2"" of type '" "gsl_complex""'");
15613 } else {
15614 arg2 = *((gsl_complex *)(argp2));
15615 }
15616 }
15617 result = gsl_complex_mul(arg1,arg2);
15618 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++ ;
15619 XSRETURN(argvi);
15620 fail:
15621 SWIG_croak_null();
15622 }
15623 }
15624
15625
XS(_wrap_gsl_complex_div)15626 XS(_wrap_gsl_complex_div) {
15627 {
15628 gsl_complex arg1 ;
15629 gsl_complex arg2 ;
15630 void *argp1 ;
15631 int res1 = 0 ;
15632 void *argp2 ;
15633 int res2 = 0 ;
15634 int argvi = 0;
15635 gsl_complex result;
15636 dXSARGS;
15637
15638 if ((items < 2) || (items > 2)) {
15639 SWIG_croak("Usage: gsl_complex_div(a,b);");
15640 }
15641 {
15642 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
15643 if (!SWIG_IsOK(res1)) {
15644 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_div" "', argument " "1"" of type '" "gsl_complex""'");
15645 }
15646 if (!argp1) {
15647 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_div" "', argument " "1"" of type '" "gsl_complex""'");
15648 } else {
15649 arg1 = *((gsl_complex *)(argp1));
15650 }
15651 }
15652 {
15653 res2 = SWIG_ConvertPtr(ST(1), &argp2, SWIGTYPE_p_gsl_complex, 0 );
15654 if (!SWIG_IsOK(res2)) {
15655 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_complex_div" "', argument " "2"" of type '" "gsl_complex""'");
15656 }
15657 if (!argp2) {
15658 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_div" "', argument " "2"" of type '" "gsl_complex""'");
15659 } else {
15660 arg2 = *((gsl_complex *)(argp2));
15661 }
15662 }
15663 result = gsl_complex_div(arg1,arg2);
15664 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++ ;
15665 XSRETURN(argvi);
15666 fail:
15667 SWIG_croak_null();
15668 }
15669 }
15670
15671
XS(_wrap_gsl_complex_add_real)15672 XS(_wrap_gsl_complex_add_real) {
15673 {
15674 gsl_complex arg1 ;
15675 double arg2 ;
15676 void *argp1 ;
15677 int res1 = 0 ;
15678 double val2 ;
15679 int ecode2 = 0 ;
15680 int argvi = 0;
15681 gsl_complex result;
15682 dXSARGS;
15683
15684 if ((items < 2) || (items > 2)) {
15685 SWIG_croak("Usage: gsl_complex_add_real(a,x);");
15686 }
15687 {
15688 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
15689 if (!SWIG_IsOK(res1)) {
15690 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_add_real" "', argument " "1"" of type '" "gsl_complex""'");
15691 }
15692 if (!argp1) {
15693 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_add_real" "', argument " "1"" of type '" "gsl_complex""'");
15694 } else {
15695 arg1 = *((gsl_complex *)(argp1));
15696 }
15697 }
15698 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
15699 if (!SWIG_IsOK(ecode2)) {
15700 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_complex_add_real" "', argument " "2"" of type '" "double""'");
15701 }
15702 arg2 = (double)(val2);
15703 result = gsl_complex_add_real(arg1,arg2);
15704 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++ ;
15705
15706 XSRETURN(argvi);
15707 fail:
15708
15709 SWIG_croak_null();
15710 }
15711 }
15712
15713
XS(_wrap_gsl_complex_sub_real)15714 XS(_wrap_gsl_complex_sub_real) {
15715 {
15716 gsl_complex arg1 ;
15717 double arg2 ;
15718 void *argp1 ;
15719 int res1 = 0 ;
15720 double val2 ;
15721 int ecode2 = 0 ;
15722 int argvi = 0;
15723 gsl_complex result;
15724 dXSARGS;
15725
15726 if ((items < 2) || (items > 2)) {
15727 SWIG_croak("Usage: gsl_complex_sub_real(a,x);");
15728 }
15729 {
15730 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
15731 if (!SWIG_IsOK(res1)) {
15732 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_sub_real" "', argument " "1"" of type '" "gsl_complex""'");
15733 }
15734 if (!argp1) {
15735 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_sub_real" "', argument " "1"" of type '" "gsl_complex""'");
15736 } else {
15737 arg1 = *((gsl_complex *)(argp1));
15738 }
15739 }
15740 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
15741 if (!SWIG_IsOK(ecode2)) {
15742 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_complex_sub_real" "', argument " "2"" of type '" "double""'");
15743 }
15744 arg2 = (double)(val2);
15745 result = gsl_complex_sub_real(arg1,arg2);
15746 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++ ;
15747
15748 XSRETURN(argvi);
15749 fail:
15750
15751 SWIG_croak_null();
15752 }
15753 }
15754
15755
XS(_wrap_gsl_complex_mul_real)15756 XS(_wrap_gsl_complex_mul_real) {
15757 {
15758 gsl_complex arg1 ;
15759 double arg2 ;
15760 void *argp1 ;
15761 int res1 = 0 ;
15762 double val2 ;
15763 int ecode2 = 0 ;
15764 int argvi = 0;
15765 gsl_complex result;
15766 dXSARGS;
15767
15768 if ((items < 2) || (items > 2)) {
15769 SWIG_croak("Usage: gsl_complex_mul_real(a,x);");
15770 }
15771 {
15772 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
15773 if (!SWIG_IsOK(res1)) {
15774 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_mul_real" "', argument " "1"" of type '" "gsl_complex""'");
15775 }
15776 if (!argp1) {
15777 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_mul_real" "', argument " "1"" of type '" "gsl_complex""'");
15778 } else {
15779 arg1 = *((gsl_complex *)(argp1));
15780 }
15781 }
15782 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
15783 if (!SWIG_IsOK(ecode2)) {
15784 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_complex_mul_real" "', argument " "2"" of type '" "double""'");
15785 }
15786 arg2 = (double)(val2);
15787 result = gsl_complex_mul_real(arg1,arg2);
15788 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++ ;
15789
15790 XSRETURN(argvi);
15791 fail:
15792
15793 SWIG_croak_null();
15794 }
15795 }
15796
15797
XS(_wrap_gsl_complex_div_real)15798 XS(_wrap_gsl_complex_div_real) {
15799 {
15800 gsl_complex arg1 ;
15801 double arg2 ;
15802 void *argp1 ;
15803 int res1 = 0 ;
15804 double val2 ;
15805 int ecode2 = 0 ;
15806 int argvi = 0;
15807 gsl_complex result;
15808 dXSARGS;
15809
15810 if ((items < 2) || (items > 2)) {
15811 SWIG_croak("Usage: gsl_complex_div_real(a,x);");
15812 }
15813 {
15814 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
15815 if (!SWIG_IsOK(res1)) {
15816 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_div_real" "', argument " "1"" of type '" "gsl_complex""'");
15817 }
15818 if (!argp1) {
15819 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_div_real" "', argument " "1"" of type '" "gsl_complex""'");
15820 } else {
15821 arg1 = *((gsl_complex *)(argp1));
15822 }
15823 }
15824 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
15825 if (!SWIG_IsOK(ecode2)) {
15826 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_complex_div_real" "', argument " "2"" of type '" "double""'");
15827 }
15828 arg2 = (double)(val2);
15829 result = gsl_complex_div_real(arg1,arg2);
15830 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++ ;
15831
15832 XSRETURN(argvi);
15833 fail:
15834
15835 SWIG_croak_null();
15836 }
15837 }
15838
15839
XS(_wrap_gsl_complex_add_imag)15840 XS(_wrap_gsl_complex_add_imag) {
15841 {
15842 gsl_complex arg1 ;
15843 double arg2 ;
15844 void *argp1 ;
15845 int res1 = 0 ;
15846 double val2 ;
15847 int ecode2 = 0 ;
15848 int argvi = 0;
15849 gsl_complex result;
15850 dXSARGS;
15851
15852 if ((items < 2) || (items > 2)) {
15853 SWIG_croak("Usage: gsl_complex_add_imag(a,y);");
15854 }
15855 {
15856 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
15857 if (!SWIG_IsOK(res1)) {
15858 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_add_imag" "', argument " "1"" of type '" "gsl_complex""'");
15859 }
15860 if (!argp1) {
15861 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_add_imag" "', argument " "1"" of type '" "gsl_complex""'");
15862 } else {
15863 arg1 = *((gsl_complex *)(argp1));
15864 }
15865 }
15866 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
15867 if (!SWIG_IsOK(ecode2)) {
15868 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_complex_add_imag" "', argument " "2"" of type '" "double""'");
15869 }
15870 arg2 = (double)(val2);
15871 result = gsl_complex_add_imag(arg1,arg2);
15872 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++ ;
15873
15874 XSRETURN(argvi);
15875 fail:
15876
15877 SWIG_croak_null();
15878 }
15879 }
15880
15881
XS(_wrap_gsl_complex_sub_imag)15882 XS(_wrap_gsl_complex_sub_imag) {
15883 {
15884 gsl_complex arg1 ;
15885 double arg2 ;
15886 void *argp1 ;
15887 int res1 = 0 ;
15888 double val2 ;
15889 int ecode2 = 0 ;
15890 int argvi = 0;
15891 gsl_complex result;
15892 dXSARGS;
15893
15894 if ((items < 2) || (items > 2)) {
15895 SWIG_croak("Usage: gsl_complex_sub_imag(a,y);");
15896 }
15897 {
15898 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
15899 if (!SWIG_IsOK(res1)) {
15900 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_sub_imag" "', argument " "1"" of type '" "gsl_complex""'");
15901 }
15902 if (!argp1) {
15903 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_sub_imag" "', argument " "1"" of type '" "gsl_complex""'");
15904 } else {
15905 arg1 = *((gsl_complex *)(argp1));
15906 }
15907 }
15908 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
15909 if (!SWIG_IsOK(ecode2)) {
15910 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_complex_sub_imag" "', argument " "2"" of type '" "double""'");
15911 }
15912 arg2 = (double)(val2);
15913 result = gsl_complex_sub_imag(arg1,arg2);
15914 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++ ;
15915
15916 XSRETURN(argvi);
15917 fail:
15918
15919 SWIG_croak_null();
15920 }
15921 }
15922
15923
XS(_wrap_gsl_complex_mul_imag)15924 XS(_wrap_gsl_complex_mul_imag) {
15925 {
15926 gsl_complex arg1 ;
15927 double arg2 ;
15928 void *argp1 ;
15929 int res1 = 0 ;
15930 double val2 ;
15931 int ecode2 = 0 ;
15932 int argvi = 0;
15933 gsl_complex result;
15934 dXSARGS;
15935
15936 if ((items < 2) || (items > 2)) {
15937 SWIG_croak("Usage: gsl_complex_mul_imag(a,y);");
15938 }
15939 {
15940 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
15941 if (!SWIG_IsOK(res1)) {
15942 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_mul_imag" "', argument " "1"" of type '" "gsl_complex""'");
15943 }
15944 if (!argp1) {
15945 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_mul_imag" "', argument " "1"" of type '" "gsl_complex""'");
15946 } else {
15947 arg1 = *((gsl_complex *)(argp1));
15948 }
15949 }
15950 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
15951 if (!SWIG_IsOK(ecode2)) {
15952 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_complex_mul_imag" "', argument " "2"" of type '" "double""'");
15953 }
15954 arg2 = (double)(val2);
15955 result = gsl_complex_mul_imag(arg1,arg2);
15956 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++ ;
15957
15958 XSRETURN(argvi);
15959 fail:
15960
15961 SWIG_croak_null();
15962 }
15963 }
15964
15965
XS(_wrap_gsl_complex_div_imag)15966 XS(_wrap_gsl_complex_div_imag) {
15967 {
15968 gsl_complex arg1 ;
15969 double arg2 ;
15970 void *argp1 ;
15971 int res1 = 0 ;
15972 double val2 ;
15973 int ecode2 = 0 ;
15974 int argvi = 0;
15975 gsl_complex result;
15976 dXSARGS;
15977
15978 if ((items < 2) || (items > 2)) {
15979 SWIG_croak("Usage: gsl_complex_div_imag(a,y);");
15980 }
15981 {
15982 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
15983 if (!SWIG_IsOK(res1)) {
15984 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_div_imag" "', argument " "1"" of type '" "gsl_complex""'");
15985 }
15986 if (!argp1) {
15987 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_div_imag" "', argument " "1"" of type '" "gsl_complex""'");
15988 } else {
15989 arg1 = *((gsl_complex *)(argp1));
15990 }
15991 }
15992 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
15993 if (!SWIG_IsOK(ecode2)) {
15994 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_complex_div_imag" "', argument " "2"" of type '" "double""'");
15995 }
15996 arg2 = (double)(val2);
15997 result = gsl_complex_div_imag(arg1,arg2);
15998 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++ ;
15999
16000 XSRETURN(argvi);
16001 fail:
16002
16003 SWIG_croak_null();
16004 }
16005 }
16006
16007
XS(_wrap_gsl_complex_conjugate)16008 XS(_wrap_gsl_complex_conjugate) {
16009 {
16010 gsl_complex arg1 ;
16011 void *argp1 ;
16012 int res1 = 0 ;
16013 int argvi = 0;
16014 gsl_complex result;
16015 dXSARGS;
16016
16017 if ((items < 1) || (items > 1)) {
16018 SWIG_croak("Usage: gsl_complex_conjugate(z);");
16019 }
16020 {
16021 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
16022 if (!SWIG_IsOK(res1)) {
16023 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_conjugate" "', argument " "1"" of type '" "gsl_complex""'");
16024 }
16025 if (!argp1) {
16026 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_conjugate" "', argument " "1"" of type '" "gsl_complex""'");
16027 } else {
16028 arg1 = *((gsl_complex *)(argp1));
16029 }
16030 }
16031 result = gsl_complex_conjugate(arg1);
16032 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++ ;
16033 XSRETURN(argvi);
16034 fail:
16035 SWIG_croak_null();
16036 }
16037 }
16038
16039
XS(_wrap_gsl_complex_inverse)16040 XS(_wrap_gsl_complex_inverse) {
16041 {
16042 gsl_complex arg1 ;
16043 void *argp1 ;
16044 int res1 = 0 ;
16045 int argvi = 0;
16046 gsl_complex result;
16047 dXSARGS;
16048
16049 if ((items < 1) || (items > 1)) {
16050 SWIG_croak("Usage: gsl_complex_inverse(a);");
16051 }
16052 {
16053 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
16054 if (!SWIG_IsOK(res1)) {
16055 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_inverse" "', argument " "1"" of type '" "gsl_complex""'");
16056 }
16057 if (!argp1) {
16058 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_inverse" "', argument " "1"" of type '" "gsl_complex""'");
16059 } else {
16060 arg1 = *((gsl_complex *)(argp1));
16061 }
16062 }
16063 result = gsl_complex_inverse(arg1);
16064 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++ ;
16065 XSRETURN(argvi);
16066 fail:
16067 SWIG_croak_null();
16068 }
16069 }
16070
16071
XS(_wrap_gsl_complex_negative)16072 XS(_wrap_gsl_complex_negative) {
16073 {
16074 gsl_complex arg1 ;
16075 void *argp1 ;
16076 int res1 = 0 ;
16077 int argvi = 0;
16078 gsl_complex result;
16079 dXSARGS;
16080
16081 if ((items < 1) || (items > 1)) {
16082 SWIG_croak("Usage: gsl_complex_negative(a);");
16083 }
16084 {
16085 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
16086 if (!SWIG_IsOK(res1)) {
16087 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_negative" "', argument " "1"" of type '" "gsl_complex""'");
16088 }
16089 if (!argp1) {
16090 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_negative" "', argument " "1"" of type '" "gsl_complex""'");
16091 } else {
16092 arg1 = *((gsl_complex *)(argp1));
16093 }
16094 }
16095 result = gsl_complex_negative(arg1);
16096 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++ ;
16097 XSRETURN(argvi);
16098 fail:
16099 SWIG_croak_null();
16100 }
16101 }
16102
16103
XS(_wrap_gsl_complex_sqrt)16104 XS(_wrap_gsl_complex_sqrt) {
16105 {
16106 gsl_complex arg1 ;
16107 void *argp1 ;
16108 int res1 = 0 ;
16109 int argvi = 0;
16110 gsl_complex result;
16111 dXSARGS;
16112
16113 if ((items < 1) || (items > 1)) {
16114 SWIG_croak("Usage: gsl_complex_sqrt(z);");
16115 }
16116 {
16117 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
16118 if (!SWIG_IsOK(res1)) {
16119 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_sqrt" "', argument " "1"" of type '" "gsl_complex""'");
16120 }
16121 if (!argp1) {
16122 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_sqrt" "', argument " "1"" of type '" "gsl_complex""'");
16123 } else {
16124 arg1 = *((gsl_complex *)(argp1));
16125 }
16126 }
16127 result = gsl_complex_sqrt(arg1);
16128 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++ ;
16129 XSRETURN(argvi);
16130 fail:
16131 SWIG_croak_null();
16132 }
16133 }
16134
16135
XS(_wrap_gsl_complex_sqrt_real)16136 XS(_wrap_gsl_complex_sqrt_real) {
16137 {
16138 double arg1 ;
16139 double val1 ;
16140 int ecode1 = 0 ;
16141 int argvi = 0;
16142 gsl_complex result;
16143 dXSARGS;
16144
16145 if ((items < 1) || (items > 1)) {
16146 SWIG_croak("Usage: gsl_complex_sqrt_real(x);");
16147 }
16148 ecode1 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
16149 if (!SWIG_IsOK(ecode1)) {
16150 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_complex_sqrt_real" "', argument " "1"" of type '" "double""'");
16151 }
16152 arg1 = (double)(val1);
16153 result = gsl_complex_sqrt_real(arg1);
16154 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++ ;
16155
16156 XSRETURN(argvi);
16157 fail:
16158
16159 SWIG_croak_null();
16160 }
16161 }
16162
16163
XS(_wrap_gsl_complex_pow)16164 XS(_wrap_gsl_complex_pow) {
16165 {
16166 gsl_complex arg1 ;
16167 gsl_complex arg2 ;
16168 void *argp1 ;
16169 int res1 = 0 ;
16170 void *argp2 ;
16171 int res2 = 0 ;
16172 int argvi = 0;
16173 gsl_complex result;
16174 dXSARGS;
16175
16176 if ((items < 2) || (items > 2)) {
16177 SWIG_croak("Usage: gsl_complex_pow(a,b);");
16178 }
16179 {
16180 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
16181 if (!SWIG_IsOK(res1)) {
16182 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_pow" "', argument " "1"" of type '" "gsl_complex""'");
16183 }
16184 if (!argp1) {
16185 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_pow" "', argument " "1"" of type '" "gsl_complex""'");
16186 } else {
16187 arg1 = *((gsl_complex *)(argp1));
16188 }
16189 }
16190 {
16191 res2 = SWIG_ConvertPtr(ST(1), &argp2, SWIGTYPE_p_gsl_complex, 0 );
16192 if (!SWIG_IsOK(res2)) {
16193 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_complex_pow" "', argument " "2"" of type '" "gsl_complex""'");
16194 }
16195 if (!argp2) {
16196 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_pow" "', argument " "2"" of type '" "gsl_complex""'");
16197 } else {
16198 arg2 = *((gsl_complex *)(argp2));
16199 }
16200 }
16201 result = gsl_complex_pow(arg1,arg2);
16202 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++ ;
16203 XSRETURN(argvi);
16204 fail:
16205 SWIG_croak_null();
16206 }
16207 }
16208
16209
XS(_wrap_gsl_complex_pow_real)16210 XS(_wrap_gsl_complex_pow_real) {
16211 {
16212 gsl_complex arg1 ;
16213 double arg2 ;
16214 void *argp1 ;
16215 int res1 = 0 ;
16216 double val2 ;
16217 int ecode2 = 0 ;
16218 int argvi = 0;
16219 gsl_complex result;
16220 dXSARGS;
16221
16222 if ((items < 2) || (items > 2)) {
16223 SWIG_croak("Usage: gsl_complex_pow_real(a,b);");
16224 }
16225 {
16226 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
16227 if (!SWIG_IsOK(res1)) {
16228 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_pow_real" "', argument " "1"" of type '" "gsl_complex""'");
16229 }
16230 if (!argp1) {
16231 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_pow_real" "', argument " "1"" of type '" "gsl_complex""'");
16232 } else {
16233 arg1 = *((gsl_complex *)(argp1));
16234 }
16235 }
16236 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
16237 if (!SWIG_IsOK(ecode2)) {
16238 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_complex_pow_real" "', argument " "2"" of type '" "double""'");
16239 }
16240 arg2 = (double)(val2);
16241 result = gsl_complex_pow_real(arg1,arg2);
16242 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++ ;
16243
16244 XSRETURN(argvi);
16245 fail:
16246
16247 SWIG_croak_null();
16248 }
16249 }
16250
16251
XS(_wrap_gsl_complex_exp)16252 XS(_wrap_gsl_complex_exp) {
16253 {
16254 gsl_complex arg1 ;
16255 void *argp1 ;
16256 int res1 = 0 ;
16257 int argvi = 0;
16258 gsl_complex result;
16259 dXSARGS;
16260
16261 if ((items < 1) || (items > 1)) {
16262 SWIG_croak("Usage: gsl_complex_exp(a);");
16263 }
16264 {
16265 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
16266 if (!SWIG_IsOK(res1)) {
16267 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_exp" "', argument " "1"" of type '" "gsl_complex""'");
16268 }
16269 if (!argp1) {
16270 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_exp" "', argument " "1"" of type '" "gsl_complex""'");
16271 } else {
16272 arg1 = *((gsl_complex *)(argp1));
16273 }
16274 }
16275 result = gsl_complex_exp(arg1);
16276 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++ ;
16277 XSRETURN(argvi);
16278 fail:
16279 SWIG_croak_null();
16280 }
16281 }
16282
16283
XS(_wrap_gsl_complex_log)16284 XS(_wrap_gsl_complex_log) {
16285 {
16286 gsl_complex arg1 ;
16287 void *argp1 ;
16288 int res1 = 0 ;
16289 int argvi = 0;
16290 gsl_complex result;
16291 dXSARGS;
16292
16293 if ((items < 1) || (items > 1)) {
16294 SWIG_croak("Usage: gsl_complex_log(a);");
16295 }
16296 {
16297 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
16298 if (!SWIG_IsOK(res1)) {
16299 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_log" "', argument " "1"" of type '" "gsl_complex""'");
16300 }
16301 if (!argp1) {
16302 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_log" "', argument " "1"" of type '" "gsl_complex""'");
16303 } else {
16304 arg1 = *((gsl_complex *)(argp1));
16305 }
16306 }
16307 result = gsl_complex_log(arg1);
16308 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++ ;
16309 XSRETURN(argvi);
16310 fail:
16311 SWIG_croak_null();
16312 }
16313 }
16314
16315
XS(_wrap_gsl_complex_log10)16316 XS(_wrap_gsl_complex_log10) {
16317 {
16318 gsl_complex arg1 ;
16319 void *argp1 ;
16320 int res1 = 0 ;
16321 int argvi = 0;
16322 gsl_complex result;
16323 dXSARGS;
16324
16325 if ((items < 1) || (items > 1)) {
16326 SWIG_croak("Usage: gsl_complex_log10(a);");
16327 }
16328 {
16329 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
16330 if (!SWIG_IsOK(res1)) {
16331 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_log10" "', argument " "1"" of type '" "gsl_complex""'");
16332 }
16333 if (!argp1) {
16334 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_log10" "', argument " "1"" of type '" "gsl_complex""'");
16335 } else {
16336 arg1 = *((gsl_complex *)(argp1));
16337 }
16338 }
16339 result = gsl_complex_log10(arg1);
16340 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++ ;
16341 XSRETURN(argvi);
16342 fail:
16343 SWIG_croak_null();
16344 }
16345 }
16346
16347
XS(_wrap_gsl_complex_log_b)16348 XS(_wrap_gsl_complex_log_b) {
16349 {
16350 gsl_complex arg1 ;
16351 gsl_complex arg2 ;
16352 void *argp1 ;
16353 int res1 = 0 ;
16354 void *argp2 ;
16355 int res2 = 0 ;
16356 int argvi = 0;
16357 gsl_complex result;
16358 dXSARGS;
16359
16360 if ((items < 2) || (items > 2)) {
16361 SWIG_croak("Usage: gsl_complex_log_b(a,b);");
16362 }
16363 {
16364 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
16365 if (!SWIG_IsOK(res1)) {
16366 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_log_b" "', argument " "1"" of type '" "gsl_complex""'");
16367 }
16368 if (!argp1) {
16369 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_log_b" "', argument " "1"" of type '" "gsl_complex""'");
16370 } else {
16371 arg1 = *((gsl_complex *)(argp1));
16372 }
16373 }
16374 {
16375 res2 = SWIG_ConvertPtr(ST(1), &argp2, SWIGTYPE_p_gsl_complex, 0 );
16376 if (!SWIG_IsOK(res2)) {
16377 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_complex_log_b" "', argument " "2"" of type '" "gsl_complex""'");
16378 }
16379 if (!argp2) {
16380 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_log_b" "', argument " "2"" of type '" "gsl_complex""'");
16381 } else {
16382 arg2 = *((gsl_complex *)(argp2));
16383 }
16384 }
16385 result = gsl_complex_log_b(arg1,arg2);
16386 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++ ;
16387 XSRETURN(argvi);
16388 fail:
16389 SWIG_croak_null();
16390 }
16391 }
16392
16393
XS(_wrap_gsl_complex_sin)16394 XS(_wrap_gsl_complex_sin) {
16395 {
16396 gsl_complex arg1 ;
16397 void *argp1 ;
16398 int res1 = 0 ;
16399 int argvi = 0;
16400 gsl_complex result;
16401 dXSARGS;
16402
16403 if ((items < 1) || (items > 1)) {
16404 SWIG_croak("Usage: gsl_complex_sin(a);");
16405 }
16406 {
16407 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
16408 if (!SWIG_IsOK(res1)) {
16409 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_sin" "', argument " "1"" of type '" "gsl_complex""'");
16410 }
16411 if (!argp1) {
16412 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_sin" "', argument " "1"" of type '" "gsl_complex""'");
16413 } else {
16414 arg1 = *((gsl_complex *)(argp1));
16415 }
16416 }
16417 result = gsl_complex_sin(arg1);
16418 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++ ;
16419 XSRETURN(argvi);
16420 fail:
16421 SWIG_croak_null();
16422 }
16423 }
16424
16425
XS(_wrap_gsl_complex_cos)16426 XS(_wrap_gsl_complex_cos) {
16427 {
16428 gsl_complex arg1 ;
16429 void *argp1 ;
16430 int res1 = 0 ;
16431 int argvi = 0;
16432 gsl_complex result;
16433 dXSARGS;
16434
16435 if ((items < 1) || (items > 1)) {
16436 SWIG_croak("Usage: gsl_complex_cos(a);");
16437 }
16438 {
16439 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
16440 if (!SWIG_IsOK(res1)) {
16441 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_cos" "', argument " "1"" of type '" "gsl_complex""'");
16442 }
16443 if (!argp1) {
16444 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_cos" "', argument " "1"" of type '" "gsl_complex""'");
16445 } else {
16446 arg1 = *((gsl_complex *)(argp1));
16447 }
16448 }
16449 result = gsl_complex_cos(arg1);
16450 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++ ;
16451 XSRETURN(argvi);
16452 fail:
16453 SWIG_croak_null();
16454 }
16455 }
16456
16457
XS(_wrap_gsl_complex_sec)16458 XS(_wrap_gsl_complex_sec) {
16459 {
16460 gsl_complex arg1 ;
16461 void *argp1 ;
16462 int res1 = 0 ;
16463 int argvi = 0;
16464 gsl_complex result;
16465 dXSARGS;
16466
16467 if ((items < 1) || (items > 1)) {
16468 SWIG_croak("Usage: gsl_complex_sec(a);");
16469 }
16470 {
16471 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
16472 if (!SWIG_IsOK(res1)) {
16473 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_sec" "', argument " "1"" of type '" "gsl_complex""'");
16474 }
16475 if (!argp1) {
16476 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_sec" "', argument " "1"" of type '" "gsl_complex""'");
16477 } else {
16478 arg1 = *((gsl_complex *)(argp1));
16479 }
16480 }
16481 result = gsl_complex_sec(arg1);
16482 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++ ;
16483 XSRETURN(argvi);
16484 fail:
16485 SWIG_croak_null();
16486 }
16487 }
16488
16489
XS(_wrap_gsl_complex_csc)16490 XS(_wrap_gsl_complex_csc) {
16491 {
16492 gsl_complex arg1 ;
16493 void *argp1 ;
16494 int res1 = 0 ;
16495 int argvi = 0;
16496 gsl_complex result;
16497 dXSARGS;
16498
16499 if ((items < 1) || (items > 1)) {
16500 SWIG_croak("Usage: gsl_complex_csc(a);");
16501 }
16502 {
16503 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
16504 if (!SWIG_IsOK(res1)) {
16505 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_csc" "', argument " "1"" of type '" "gsl_complex""'");
16506 }
16507 if (!argp1) {
16508 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_csc" "', argument " "1"" of type '" "gsl_complex""'");
16509 } else {
16510 arg1 = *((gsl_complex *)(argp1));
16511 }
16512 }
16513 result = gsl_complex_csc(arg1);
16514 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++ ;
16515 XSRETURN(argvi);
16516 fail:
16517 SWIG_croak_null();
16518 }
16519 }
16520
16521
XS(_wrap_gsl_complex_tan)16522 XS(_wrap_gsl_complex_tan) {
16523 {
16524 gsl_complex arg1 ;
16525 void *argp1 ;
16526 int res1 = 0 ;
16527 int argvi = 0;
16528 gsl_complex result;
16529 dXSARGS;
16530
16531 if ((items < 1) || (items > 1)) {
16532 SWIG_croak("Usage: gsl_complex_tan(a);");
16533 }
16534 {
16535 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
16536 if (!SWIG_IsOK(res1)) {
16537 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_tan" "', argument " "1"" of type '" "gsl_complex""'");
16538 }
16539 if (!argp1) {
16540 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_tan" "', argument " "1"" of type '" "gsl_complex""'");
16541 } else {
16542 arg1 = *((gsl_complex *)(argp1));
16543 }
16544 }
16545 result = gsl_complex_tan(arg1);
16546 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++ ;
16547 XSRETURN(argvi);
16548 fail:
16549 SWIG_croak_null();
16550 }
16551 }
16552
16553
XS(_wrap_gsl_complex_cot)16554 XS(_wrap_gsl_complex_cot) {
16555 {
16556 gsl_complex arg1 ;
16557 void *argp1 ;
16558 int res1 = 0 ;
16559 int argvi = 0;
16560 gsl_complex result;
16561 dXSARGS;
16562
16563 if ((items < 1) || (items > 1)) {
16564 SWIG_croak("Usage: gsl_complex_cot(a);");
16565 }
16566 {
16567 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
16568 if (!SWIG_IsOK(res1)) {
16569 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_cot" "', argument " "1"" of type '" "gsl_complex""'");
16570 }
16571 if (!argp1) {
16572 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_cot" "', argument " "1"" of type '" "gsl_complex""'");
16573 } else {
16574 arg1 = *((gsl_complex *)(argp1));
16575 }
16576 }
16577 result = gsl_complex_cot(arg1);
16578 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++ ;
16579 XSRETURN(argvi);
16580 fail:
16581 SWIG_croak_null();
16582 }
16583 }
16584
16585
XS(_wrap_gsl_complex_arcsin)16586 XS(_wrap_gsl_complex_arcsin) {
16587 {
16588 gsl_complex arg1 ;
16589 void *argp1 ;
16590 int res1 = 0 ;
16591 int argvi = 0;
16592 gsl_complex result;
16593 dXSARGS;
16594
16595 if ((items < 1) || (items > 1)) {
16596 SWIG_croak("Usage: gsl_complex_arcsin(a);");
16597 }
16598 {
16599 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
16600 if (!SWIG_IsOK(res1)) {
16601 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_arcsin" "', argument " "1"" of type '" "gsl_complex""'");
16602 }
16603 if (!argp1) {
16604 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_arcsin" "', argument " "1"" of type '" "gsl_complex""'");
16605 } else {
16606 arg1 = *((gsl_complex *)(argp1));
16607 }
16608 }
16609 result = gsl_complex_arcsin(arg1);
16610 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++ ;
16611 XSRETURN(argvi);
16612 fail:
16613 SWIG_croak_null();
16614 }
16615 }
16616
16617
XS(_wrap_gsl_complex_arcsin_real)16618 XS(_wrap_gsl_complex_arcsin_real) {
16619 {
16620 double arg1 ;
16621 double val1 ;
16622 int ecode1 = 0 ;
16623 int argvi = 0;
16624 gsl_complex result;
16625 dXSARGS;
16626
16627 if ((items < 1) || (items > 1)) {
16628 SWIG_croak("Usage: gsl_complex_arcsin_real(a);");
16629 }
16630 ecode1 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
16631 if (!SWIG_IsOK(ecode1)) {
16632 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_complex_arcsin_real" "', argument " "1"" of type '" "double""'");
16633 }
16634 arg1 = (double)(val1);
16635 result = gsl_complex_arcsin_real(arg1);
16636 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++ ;
16637
16638 XSRETURN(argvi);
16639 fail:
16640
16641 SWIG_croak_null();
16642 }
16643 }
16644
16645
XS(_wrap_gsl_complex_arccos)16646 XS(_wrap_gsl_complex_arccos) {
16647 {
16648 gsl_complex arg1 ;
16649 void *argp1 ;
16650 int res1 = 0 ;
16651 int argvi = 0;
16652 gsl_complex result;
16653 dXSARGS;
16654
16655 if ((items < 1) || (items > 1)) {
16656 SWIG_croak("Usage: gsl_complex_arccos(a);");
16657 }
16658 {
16659 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
16660 if (!SWIG_IsOK(res1)) {
16661 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_arccos" "', argument " "1"" of type '" "gsl_complex""'");
16662 }
16663 if (!argp1) {
16664 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_arccos" "', argument " "1"" of type '" "gsl_complex""'");
16665 } else {
16666 arg1 = *((gsl_complex *)(argp1));
16667 }
16668 }
16669 result = gsl_complex_arccos(arg1);
16670 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++ ;
16671 XSRETURN(argvi);
16672 fail:
16673 SWIG_croak_null();
16674 }
16675 }
16676
16677
XS(_wrap_gsl_complex_arccos_real)16678 XS(_wrap_gsl_complex_arccos_real) {
16679 {
16680 double arg1 ;
16681 double val1 ;
16682 int ecode1 = 0 ;
16683 int argvi = 0;
16684 gsl_complex result;
16685 dXSARGS;
16686
16687 if ((items < 1) || (items > 1)) {
16688 SWIG_croak("Usage: gsl_complex_arccos_real(a);");
16689 }
16690 ecode1 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
16691 if (!SWIG_IsOK(ecode1)) {
16692 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_complex_arccos_real" "', argument " "1"" of type '" "double""'");
16693 }
16694 arg1 = (double)(val1);
16695 result = gsl_complex_arccos_real(arg1);
16696 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++ ;
16697
16698 XSRETURN(argvi);
16699 fail:
16700
16701 SWIG_croak_null();
16702 }
16703 }
16704
16705
XS(_wrap_gsl_complex_arcsec)16706 XS(_wrap_gsl_complex_arcsec) {
16707 {
16708 gsl_complex arg1 ;
16709 void *argp1 ;
16710 int res1 = 0 ;
16711 int argvi = 0;
16712 gsl_complex result;
16713 dXSARGS;
16714
16715 if ((items < 1) || (items > 1)) {
16716 SWIG_croak("Usage: gsl_complex_arcsec(a);");
16717 }
16718 {
16719 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
16720 if (!SWIG_IsOK(res1)) {
16721 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_arcsec" "', argument " "1"" of type '" "gsl_complex""'");
16722 }
16723 if (!argp1) {
16724 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_arcsec" "', argument " "1"" of type '" "gsl_complex""'");
16725 } else {
16726 arg1 = *((gsl_complex *)(argp1));
16727 }
16728 }
16729 result = gsl_complex_arcsec(arg1);
16730 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++ ;
16731 XSRETURN(argvi);
16732 fail:
16733 SWIG_croak_null();
16734 }
16735 }
16736
16737
XS(_wrap_gsl_complex_arcsec_real)16738 XS(_wrap_gsl_complex_arcsec_real) {
16739 {
16740 double arg1 ;
16741 double val1 ;
16742 int ecode1 = 0 ;
16743 int argvi = 0;
16744 gsl_complex result;
16745 dXSARGS;
16746
16747 if ((items < 1) || (items > 1)) {
16748 SWIG_croak("Usage: gsl_complex_arcsec_real(a);");
16749 }
16750 ecode1 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
16751 if (!SWIG_IsOK(ecode1)) {
16752 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_complex_arcsec_real" "', argument " "1"" of type '" "double""'");
16753 }
16754 arg1 = (double)(val1);
16755 result = gsl_complex_arcsec_real(arg1);
16756 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++ ;
16757
16758 XSRETURN(argvi);
16759 fail:
16760
16761 SWIG_croak_null();
16762 }
16763 }
16764
16765
XS(_wrap_gsl_complex_arccsc)16766 XS(_wrap_gsl_complex_arccsc) {
16767 {
16768 gsl_complex arg1 ;
16769 void *argp1 ;
16770 int res1 = 0 ;
16771 int argvi = 0;
16772 gsl_complex result;
16773 dXSARGS;
16774
16775 if ((items < 1) || (items > 1)) {
16776 SWIG_croak("Usage: gsl_complex_arccsc(a);");
16777 }
16778 {
16779 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
16780 if (!SWIG_IsOK(res1)) {
16781 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_arccsc" "', argument " "1"" of type '" "gsl_complex""'");
16782 }
16783 if (!argp1) {
16784 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_arccsc" "', argument " "1"" of type '" "gsl_complex""'");
16785 } else {
16786 arg1 = *((gsl_complex *)(argp1));
16787 }
16788 }
16789 result = gsl_complex_arccsc(arg1);
16790 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++ ;
16791 XSRETURN(argvi);
16792 fail:
16793 SWIG_croak_null();
16794 }
16795 }
16796
16797
XS(_wrap_gsl_complex_arccsc_real)16798 XS(_wrap_gsl_complex_arccsc_real) {
16799 {
16800 double arg1 ;
16801 double val1 ;
16802 int ecode1 = 0 ;
16803 int argvi = 0;
16804 gsl_complex result;
16805 dXSARGS;
16806
16807 if ((items < 1) || (items > 1)) {
16808 SWIG_croak("Usage: gsl_complex_arccsc_real(a);");
16809 }
16810 ecode1 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
16811 if (!SWIG_IsOK(ecode1)) {
16812 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_complex_arccsc_real" "', argument " "1"" of type '" "double""'");
16813 }
16814 arg1 = (double)(val1);
16815 result = gsl_complex_arccsc_real(arg1);
16816 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++ ;
16817
16818 XSRETURN(argvi);
16819 fail:
16820
16821 SWIG_croak_null();
16822 }
16823 }
16824
16825
XS(_wrap_gsl_complex_arctan)16826 XS(_wrap_gsl_complex_arctan) {
16827 {
16828 gsl_complex arg1 ;
16829 void *argp1 ;
16830 int res1 = 0 ;
16831 int argvi = 0;
16832 gsl_complex result;
16833 dXSARGS;
16834
16835 if ((items < 1) || (items > 1)) {
16836 SWIG_croak("Usage: gsl_complex_arctan(a);");
16837 }
16838 {
16839 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
16840 if (!SWIG_IsOK(res1)) {
16841 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_arctan" "', argument " "1"" of type '" "gsl_complex""'");
16842 }
16843 if (!argp1) {
16844 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_arctan" "', argument " "1"" of type '" "gsl_complex""'");
16845 } else {
16846 arg1 = *((gsl_complex *)(argp1));
16847 }
16848 }
16849 result = gsl_complex_arctan(arg1);
16850 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++ ;
16851 XSRETURN(argvi);
16852 fail:
16853 SWIG_croak_null();
16854 }
16855 }
16856
16857
XS(_wrap_gsl_complex_arccot)16858 XS(_wrap_gsl_complex_arccot) {
16859 {
16860 gsl_complex arg1 ;
16861 void *argp1 ;
16862 int res1 = 0 ;
16863 int argvi = 0;
16864 gsl_complex result;
16865 dXSARGS;
16866
16867 if ((items < 1) || (items > 1)) {
16868 SWIG_croak("Usage: gsl_complex_arccot(a);");
16869 }
16870 {
16871 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
16872 if (!SWIG_IsOK(res1)) {
16873 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_arccot" "', argument " "1"" of type '" "gsl_complex""'");
16874 }
16875 if (!argp1) {
16876 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_arccot" "', argument " "1"" of type '" "gsl_complex""'");
16877 } else {
16878 arg1 = *((gsl_complex *)(argp1));
16879 }
16880 }
16881 result = gsl_complex_arccot(arg1);
16882 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++ ;
16883 XSRETURN(argvi);
16884 fail:
16885 SWIG_croak_null();
16886 }
16887 }
16888
16889
XS(_wrap_gsl_complex_sinh)16890 XS(_wrap_gsl_complex_sinh) {
16891 {
16892 gsl_complex arg1 ;
16893 void *argp1 ;
16894 int res1 = 0 ;
16895 int argvi = 0;
16896 gsl_complex result;
16897 dXSARGS;
16898
16899 if ((items < 1) || (items > 1)) {
16900 SWIG_croak("Usage: gsl_complex_sinh(a);");
16901 }
16902 {
16903 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
16904 if (!SWIG_IsOK(res1)) {
16905 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_sinh" "', argument " "1"" of type '" "gsl_complex""'");
16906 }
16907 if (!argp1) {
16908 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_sinh" "', argument " "1"" of type '" "gsl_complex""'");
16909 } else {
16910 arg1 = *((gsl_complex *)(argp1));
16911 }
16912 }
16913 result = gsl_complex_sinh(arg1);
16914 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++ ;
16915 XSRETURN(argvi);
16916 fail:
16917 SWIG_croak_null();
16918 }
16919 }
16920
16921
XS(_wrap_gsl_complex_cosh)16922 XS(_wrap_gsl_complex_cosh) {
16923 {
16924 gsl_complex arg1 ;
16925 void *argp1 ;
16926 int res1 = 0 ;
16927 int argvi = 0;
16928 gsl_complex result;
16929 dXSARGS;
16930
16931 if ((items < 1) || (items > 1)) {
16932 SWIG_croak("Usage: gsl_complex_cosh(a);");
16933 }
16934 {
16935 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
16936 if (!SWIG_IsOK(res1)) {
16937 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_cosh" "', argument " "1"" of type '" "gsl_complex""'");
16938 }
16939 if (!argp1) {
16940 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_cosh" "', argument " "1"" of type '" "gsl_complex""'");
16941 } else {
16942 arg1 = *((gsl_complex *)(argp1));
16943 }
16944 }
16945 result = gsl_complex_cosh(arg1);
16946 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++ ;
16947 XSRETURN(argvi);
16948 fail:
16949 SWIG_croak_null();
16950 }
16951 }
16952
16953
XS(_wrap_gsl_complex_sech)16954 XS(_wrap_gsl_complex_sech) {
16955 {
16956 gsl_complex arg1 ;
16957 void *argp1 ;
16958 int res1 = 0 ;
16959 int argvi = 0;
16960 gsl_complex result;
16961 dXSARGS;
16962
16963 if ((items < 1) || (items > 1)) {
16964 SWIG_croak("Usage: gsl_complex_sech(a);");
16965 }
16966 {
16967 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
16968 if (!SWIG_IsOK(res1)) {
16969 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_sech" "', argument " "1"" of type '" "gsl_complex""'");
16970 }
16971 if (!argp1) {
16972 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_sech" "', argument " "1"" of type '" "gsl_complex""'");
16973 } else {
16974 arg1 = *((gsl_complex *)(argp1));
16975 }
16976 }
16977 result = gsl_complex_sech(arg1);
16978 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++ ;
16979 XSRETURN(argvi);
16980 fail:
16981 SWIG_croak_null();
16982 }
16983 }
16984
16985
XS(_wrap_gsl_complex_csch)16986 XS(_wrap_gsl_complex_csch) {
16987 {
16988 gsl_complex arg1 ;
16989 void *argp1 ;
16990 int res1 = 0 ;
16991 int argvi = 0;
16992 gsl_complex result;
16993 dXSARGS;
16994
16995 if ((items < 1) || (items > 1)) {
16996 SWIG_croak("Usage: gsl_complex_csch(a);");
16997 }
16998 {
16999 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
17000 if (!SWIG_IsOK(res1)) {
17001 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_csch" "', argument " "1"" of type '" "gsl_complex""'");
17002 }
17003 if (!argp1) {
17004 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_csch" "', argument " "1"" of type '" "gsl_complex""'");
17005 } else {
17006 arg1 = *((gsl_complex *)(argp1));
17007 }
17008 }
17009 result = gsl_complex_csch(arg1);
17010 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++ ;
17011 XSRETURN(argvi);
17012 fail:
17013 SWIG_croak_null();
17014 }
17015 }
17016
17017
XS(_wrap_gsl_complex_tanh)17018 XS(_wrap_gsl_complex_tanh) {
17019 {
17020 gsl_complex arg1 ;
17021 void *argp1 ;
17022 int res1 = 0 ;
17023 int argvi = 0;
17024 gsl_complex result;
17025 dXSARGS;
17026
17027 if ((items < 1) || (items > 1)) {
17028 SWIG_croak("Usage: gsl_complex_tanh(a);");
17029 }
17030 {
17031 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
17032 if (!SWIG_IsOK(res1)) {
17033 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_tanh" "', argument " "1"" of type '" "gsl_complex""'");
17034 }
17035 if (!argp1) {
17036 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_tanh" "', argument " "1"" of type '" "gsl_complex""'");
17037 } else {
17038 arg1 = *((gsl_complex *)(argp1));
17039 }
17040 }
17041 result = gsl_complex_tanh(arg1);
17042 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++ ;
17043 XSRETURN(argvi);
17044 fail:
17045 SWIG_croak_null();
17046 }
17047 }
17048
17049
XS(_wrap_gsl_complex_coth)17050 XS(_wrap_gsl_complex_coth) {
17051 {
17052 gsl_complex arg1 ;
17053 void *argp1 ;
17054 int res1 = 0 ;
17055 int argvi = 0;
17056 gsl_complex result;
17057 dXSARGS;
17058
17059 if ((items < 1) || (items > 1)) {
17060 SWIG_croak("Usage: gsl_complex_coth(a);");
17061 }
17062 {
17063 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
17064 if (!SWIG_IsOK(res1)) {
17065 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_coth" "', argument " "1"" of type '" "gsl_complex""'");
17066 }
17067 if (!argp1) {
17068 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_coth" "', argument " "1"" of type '" "gsl_complex""'");
17069 } else {
17070 arg1 = *((gsl_complex *)(argp1));
17071 }
17072 }
17073 result = gsl_complex_coth(arg1);
17074 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++ ;
17075 XSRETURN(argvi);
17076 fail:
17077 SWIG_croak_null();
17078 }
17079 }
17080
17081
XS(_wrap_gsl_complex_arcsinh)17082 XS(_wrap_gsl_complex_arcsinh) {
17083 {
17084 gsl_complex arg1 ;
17085 void *argp1 ;
17086 int res1 = 0 ;
17087 int argvi = 0;
17088 gsl_complex result;
17089 dXSARGS;
17090
17091 if ((items < 1) || (items > 1)) {
17092 SWIG_croak("Usage: gsl_complex_arcsinh(a);");
17093 }
17094 {
17095 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
17096 if (!SWIG_IsOK(res1)) {
17097 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_arcsinh" "', argument " "1"" of type '" "gsl_complex""'");
17098 }
17099 if (!argp1) {
17100 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_arcsinh" "', argument " "1"" of type '" "gsl_complex""'");
17101 } else {
17102 arg1 = *((gsl_complex *)(argp1));
17103 }
17104 }
17105 result = gsl_complex_arcsinh(arg1);
17106 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++ ;
17107 XSRETURN(argvi);
17108 fail:
17109 SWIG_croak_null();
17110 }
17111 }
17112
17113
XS(_wrap_gsl_complex_arccosh)17114 XS(_wrap_gsl_complex_arccosh) {
17115 {
17116 gsl_complex arg1 ;
17117 void *argp1 ;
17118 int res1 = 0 ;
17119 int argvi = 0;
17120 gsl_complex result;
17121 dXSARGS;
17122
17123 if ((items < 1) || (items > 1)) {
17124 SWIG_croak("Usage: gsl_complex_arccosh(a);");
17125 }
17126 {
17127 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
17128 if (!SWIG_IsOK(res1)) {
17129 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_arccosh" "', argument " "1"" of type '" "gsl_complex""'");
17130 }
17131 if (!argp1) {
17132 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_arccosh" "', argument " "1"" of type '" "gsl_complex""'");
17133 } else {
17134 arg1 = *((gsl_complex *)(argp1));
17135 }
17136 }
17137 result = gsl_complex_arccosh(arg1);
17138 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++ ;
17139 XSRETURN(argvi);
17140 fail:
17141 SWIG_croak_null();
17142 }
17143 }
17144
17145
XS(_wrap_gsl_complex_arccosh_real)17146 XS(_wrap_gsl_complex_arccosh_real) {
17147 {
17148 double arg1 ;
17149 double val1 ;
17150 int ecode1 = 0 ;
17151 int argvi = 0;
17152 gsl_complex result;
17153 dXSARGS;
17154
17155 if ((items < 1) || (items > 1)) {
17156 SWIG_croak("Usage: gsl_complex_arccosh_real(a);");
17157 }
17158 ecode1 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
17159 if (!SWIG_IsOK(ecode1)) {
17160 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_complex_arccosh_real" "', argument " "1"" of type '" "double""'");
17161 }
17162 arg1 = (double)(val1);
17163 result = gsl_complex_arccosh_real(arg1);
17164 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++ ;
17165
17166 XSRETURN(argvi);
17167 fail:
17168
17169 SWIG_croak_null();
17170 }
17171 }
17172
17173
XS(_wrap_gsl_complex_arcsech)17174 XS(_wrap_gsl_complex_arcsech) {
17175 {
17176 gsl_complex arg1 ;
17177 void *argp1 ;
17178 int res1 = 0 ;
17179 int argvi = 0;
17180 gsl_complex result;
17181 dXSARGS;
17182
17183 if ((items < 1) || (items > 1)) {
17184 SWIG_croak("Usage: gsl_complex_arcsech(a);");
17185 }
17186 {
17187 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
17188 if (!SWIG_IsOK(res1)) {
17189 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_arcsech" "', argument " "1"" of type '" "gsl_complex""'");
17190 }
17191 if (!argp1) {
17192 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_arcsech" "', argument " "1"" of type '" "gsl_complex""'");
17193 } else {
17194 arg1 = *((gsl_complex *)(argp1));
17195 }
17196 }
17197 result = gsl_complex_arcsech(arg1);
17198 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++ ;
17199 XSRETURN(argvi);
17200 fail:
17201 SWIG_croak_null();
17202 }
17203 }
17204
17205
XS(_wrap_gsl_complex_arccsch)17206 XS(_wrap_gsl_complex_arccsch) {
17207 {
17208 gsl_complex arg1 ;
17209 void *argp1 ;
17210 int res1 = 0 ;
17211 int argvi = 0;
17212 gsl_complex result;
17213 dXSARGS;
17214
17215 if ((items < 1) || (items > 1)) {
17216 SWIG_croak("Usage: gsl_complex_arccsch(a);");
17217 }
17218 {
17219 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
17220 if (!SWIG_IsOK(res1)) {
17221 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_arccsch" "', argument " "1"" of type '" "gsl_complex""'");
17222 }
17223 if (!argp1) {
17224 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_arccsch" "', argument " "1"" of type '" "gsl_complex""'");
17225 } else {
17226 arg1 = *((gsl_complex *)(argp1));
17227 }
17228 }
17229 result = gsl_complex_arccsch(arg1);
17230 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++ ;
17231 XSRETURN(argvi);
17232 fail:
17233 SWIG_croak_null();
17234 }
17235 }
17236
17237
XS(_wrap_gsl_complex_arctanh)17238 XS(_wrap_gsl_complex_arctanh) {
17239 {
17240 gsl_complex arg1 ;
17241 void *argp1 ;
17242 int res1 = 0 ;
17243 int argvi = 0;
17244 gsl_complex result;
17245 dXSARGS;
17246
17247 if ((items < 1) || (items > 1)) {
17248 SWIG_croak("Usage: gsl_complex_arctanh(a);");
17249 }
17250 {
17251 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
17252 if (!SWIG_IsOK(res1)) {
17253 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_arctanh" "', argument " "1"" of type '" "gsl_complex""'");
17254 }
17255 if (!argp1) {
17256 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_arctanh" "', argument " "1"" of type '" "gsl_complex""'");
17257 } else {
17258 arg1 = *((gsl_complex *)(argp1));
17259 }
17260 }
17261 result = gsl_complex_arctanh(arg1);
17262 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++ ;
17263 XSRETURN(argvi);
17264 fail:
17265 SWIG_croak_null();
17266 }
17267 }
17268
17269
XS(_wrap_gsl_complex_arctanh_real)17270 XS(_wrap_gsl_complex_arctanh_real) {
17271 {
17272 double arg1 ;
17273 double val1 ;
17274 int ecode1 = 0 ;
17275 int argvi = 0;
17276 gsl_complex result;
17277 dXSARGS;
17278
17279 if ((items < 1) || (items > 1)) {
17280 SWIG_croak("Usage: gsl_complex_arctanh_real(a);");
17281 }
17282 ecode1 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
17283 if (!SWIG_IsOK(ecode1)) {
17284 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_complex_arctanh_real" "', argument " "1"" of type '" "double""'");
17285 }
17286 arg1 = (double)(val1);
17287 result = gsl_complex_arctanh_real(arg1);
17288 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++ ;
17289
17290 XSRETURN(argvi);
17291 fail:
17292
17293 SWIG_croak_null();
17294 }
17295 }
17296
17297
XS(_wrap_gsl_complex_arccoth)17298 XS(_wrap_gsl_complex_arccoth) {
17299 {
17300 gsl_complex arg1 ;
17301 void *argp1 ;
17302 int res1 = 0 ;
17303 int argvi = 0;
17304 gsl_complex result;
17305 dXSARGS;
17306
17307 if ((items < 1) || (items > 1)) {
17308 SWIG_croak("Usage: gsl_complex_arccoth(a);");
17309 }
17310 {
17311 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
17312 if (!SWIG_IsOK(res1)) {
17313 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_arccoth" "', argument " "1"" of type '" "gsl_complex""'");
17314 }
17315 if (!argp1) {
17316 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_arccoth" "', argument " "1"" of type '" "gsl_complex""'");
17317 } else {
17318 arg1 = *((gsl_complex *)(argp1));
17319 }
17320 }
17321 result = gsl_complex_arccoth(arg1);
17322 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++ ;
17323 XSRETURN(argvi);
17324 fail:
17325 SWIG_croak_null();
17326 }
17327 }
17328
17329
17330
17331 /* -------- TYPE CONVERSION AND EQUIVALENCE RULES (BEGIN) -------- */
17332
17333 static swig_type_info _swigt__p_CBLAS_DIAG_t = {"_p_CBLAS_DIAG_t", "CBLAS_DIAG_t *", 0, 0, (void*)0, 0};
17334 static swig_type_info _swigt__p_CBLAS_UPLO_t = {"_p_CBLAS_UPLO_t", "CBLAS_UPLO_t *", 0, 0, (void*)0, 0};
17335 static swig_type_info _swigt__p_FILE = {"_p_FILE", "FILE *", 0, 0, (void*)0, 0};
17336 static swig_type_info _swigt__p_char = {"_p_char", "char *", 0, 0, (void*)0, 0};
17337 static swig_type_info _swigt__p_double = {"_p_double", "double *", 0, 0, (void*)0, 0};
17338 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};
17339 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};
17340 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};
17341 static swig_type_info _swigt__p_float = {"_p_float", "float *", 0, 0, (void*)0, 0};
17342 static swig_type_info _swigt__p_gsl_complex = {"_p_gsl_complex", "gsl_complex *", 0, 0, (void*)"Math::GSL::Linalg::gsl_complex", 0};
17343 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};
17344 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};
17345 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};
17346 static swig_type_info _swigt__p_gsl_matrix = {"_p_gsl_matrix", "gsl_matrix *", 0, 0, (void*)0, 0};
17347 static swig_type_info _swigt__p_gsl_matrix_complex = {"_p_gsl_matrix_complex", "gsl_matrix_complex *", 0, 0, (void*)0, 0};
17348 static swig_type_info _swigt__p_gsl_mode_t = {"_p_gsl_mode_t", "gsl_mode_t *", 0, 0, (void*)0, 0};
17349 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};
17350 static swig_type_info _swigt__p_gsl_vector = {"_p_gsl_vector", "gsl_vector *", 0, 0, (void*)0, 0};
17351 static swig_type_info _swigt__p_gsl_vector_complex = {"_p_gsl_vector_complex", "gsl_vector_complex *", 0, 0, (void*)0, 0};
17352 static swig_type_info _swigt__p_gsl_vector_uint = {"_p_gsl_vector_uint", "gsl_vector_uint *", 0, 0, (void*)0, 0};
17353 static swig_type_info _swigt__p_int = {"_p_int", "int *", 0, 0, (void*)0, 0};
17354 static swig_type_info _swigt__p_long_double = {"_p_long_double", "long double *", 0, 0, (void*)0, 0};
17355 static swig_type_info _swigt__p_size_t = {"_p_size_t", "size_t *", 0, 0, (void*)0, 0};
17356
17357 static swig_type_info *swig_type_initial[] = {
17358 &_swigt__p_CBLAS_DIAG_t,
17359 &_swigt__p_CBLAS_UPLO_t,
17360 &_swigt__p_FILE,
17361 &_swigt__p_char,
17362 &_swigt__p_double,
17363 &_swigt__p_f_CBLAS_TRANSPOSE_t_p_gsl_vector_p_void__int,
17364 &_swigt__p_f_p_q_const__char_p_q_const__char_int_int__void,
17365 &_swigt__p_f_p_q_const__char_p_q_const__char_int_p_q_const__char__void,
17366 &_swigt__p_float,
17367 &_swigt__p_gsl_complex,
17368 &_swigt__p_gsl_complex_float,
17369 &_swigt__p_gsl_complex_long_double,
17370 &_swigt__p_gsl_linalg_matrix_mod_t,
17371 &_swigt__p_gsl_matrix,
17372 &_swigt__p_gsl_matrix_complex,
17373 &_swigt__p_gsl_mode_t,
17374 &_swigt__p_gsl_permutation_struct,
17375 &_swigt__p_gsl_vector,
17376 &_swigt__p_gsl_vector_complex,
17377 &_swigt__p_gsl_vector_uint,
17378 &_swigt__p_int,
17379 &_swigt__p_long_double,
17380 &_swigt__p_size_t,
17381 };
17382
17383 static swig_cast_info _swigc__p_CBLAS_DIAG_t[] = { {&_swigt__p_CBLAS_DIAG_t, 0, 0, 0},{0, 0, 0, 0}};
17384 static swig_cast_info _swigc__p_CBLAS_UPLO_t[] = { {&_swigt__p_CBLAS_UPLO_t, 0, 0, 0},{0, 0, 0, 0}};
17385 static swig_cast_info _swigc__p_FILE[] = { {&_swigt__p_FILE, 0, 0, 0},{0, 0, 0, 0}};
17386 static swig_cast_info _swigc__p_char[] = { {&_swigt__p_char, 0, 0, 0},{0, 0, 0, 0}};
17387 static swig_cast_info _swigc__p_double[] = { {&_swigt__p_double, 0, 0, 0},{0, 0, 0, 0}};
17388 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}};
17389 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}};
17390 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}};
17391 static swig_cast_info _swigc__p_float[] = { {&_swigt__p_float, 0, 0, 0},{0, 0, 0, 0}};
17392 static swig_cast_info _swigc__p_gsl_complex[] = { {&_swigt__p_gsl_complex, 0, 0, 0},{0, 0, 0, 0}};
17393 static swig_cast_info _swigc__p_gsl_complex_float[] = { {&_swigt__p_gsl_complex_float, 0, 0, 0},{0, 0, 0, 0}};
17394 static swig_cast_info _swigc__p_gsl_complex_long_double[] = { {&_swigt__p_gsl_complex_long_double, 0, 0, 0},{0, 0, 0, 0}};
17395 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}};
17396 static swig_cast_info _swigc__p_gsl_matrix[] = { {&_swigt__p_gsl_matrix, 0, 0, 0},{0, 0, 0, 0}};
17397 static swig_cast_info _swigc__p_gsl_matrix_complex[] = { {&_swigt__p_gsl_matrix_complex, 0, 0, 0},{0, 0, 0, 0}};
17398 static swig_cast_info _swigc__p_gsl_mode_t[] = { {&_swigt__p_gsl_mode_t, 0, 0, 0},{0, 0, 0, 0}};
17399 static swig_cast_info _swigc__p_gsl_permutation_struct[] = { {&_swigt__p_gsl_permutation_struct, 0, 0, 0},{0, 0, 0, 0}};
17400 static swig_cast_info _swigc__p_gsl_vector[] = { {&_swigt__p_gsl_vector, 0, 0, 0},{0, 0, 0, 0}};
17401 static swig_cast_info _swigc__p_gsl_vector_complex[] = { {&_swigt__p_gsl_vector_complex, 0, 0, 0},{0, 0, 0, 0}};
17402 static swig_cast_info _swigc__p_gsl_vector_uint[] = { {&_swigt__p_gsl_vector_uint, 0, 0, 0},{0, 0, 0, 0}};
17403 static swig_cast_info _swigc__p_int[] = { {&_swigt__p_int, 0, 0, 0},{0, 0, 0, 0}};
17404 static swig_cast_info _swigc__p_long_double[] = { {&_swigt__p_long_double, 0, 0, 0},{0, 0, 0, 0}};
17405 static swig_cast_info _swigc__p_size_t[] = { {&_swigt__p_size_t, 0, 0, 0},{0, 0, 0, 0}};
17406
17407 static swig_cast_info *swig_cast_initial[] = {
17408 _swigc__p_CBLAS_DIAG_t,
17409 _swigc__p_CBLAS_UPLO_t,
17410 _swigc__p_FILE,
17411 _swigc__p_char,
17412 _swigc__p_double,
17413 _swigc__p_f_CBLAS_TRANSPOSE_t_p_gsl_vector_p_void__int,
17414 _swigc__p_f_p_q_const__char_p_q_const__char_int_int__void,
17415 _swigc__p_f_p_q_const__char_p_q_const__char_int_p_q_const__char__void,
17416 _swigc__p_float,
17417 _swigc__p_gsl_complex,
17418 _swigc__p_gsl_complex_float,
17419 _swigc__p_gsl_complex_long_double,
17420 _swigc__p_gsl_linalg_matrix_mod_t,
17421 _swigc__p_gsl_matrix,
17422 _swigc__p_gsl_matrix_complex,
17423 _swigc__p_gsl_mode_t,
17424 _swigc__p_gsl_permutation_struct,
17425 _swigc__p_gsl_vector,
17426 _swigc__p_gsl_vector_complex,
17427 _swigc__p_gsl_vector_uint,
17428 _swigc__p_int,
17429 _swigc__p_long_double,
17430 _swigc__p_size_t,
17431 };
17432
17433
17434 /* -------- TYPE CONVERSION AND EQUIVALENCE RULES (END) -------- */
17435
17436 static swig_constant_info swig_constants[] = {
17437 {0,0,0,0,0,0}
17438 };
17439 #ifdef __cplusplus
17440 }
17441 #endif
17442 static swig_variable_info swig_variables[] = {
17443 {0,0,0,0}
17444 };
17445 static swig_command_info swig_commands[] = {
17446 {"Math::GSL::Linalgc::gsl_error", _wrap_gsl_error},
17447 {"Math::GSL::Linalgc::gsl_stream_printf", _wrap_gsl_stream_printf},
17448 {"Math::GSL::Linalgc::gsl_strerror", _wrap_gsl_strerror},
17449 {"Math::GSL::Linalgc::gsl_set_error_handler", _wrap_gsl_set_error_handler},
17450 {"Math::GSL::Linalgc::gsl_set_error_handler_off", _wrap_gsl_set_error_handler_off},
17451 {"Math::GSL::Linalgc::gsl_set_stream_handler", _wrap_gsl_set_stream_handler},
17452 {"Math::GSL::Linalgc::gsl_set_stream", _wrap_gsl_set_stream},
17453 {"Math::GSL::Linalgc::gsl_linalg_matmult", _wrap_gsl_linalg_matmult},
17454 {"Math::GSL::Linalgc::gsl_linalg_matmult_mod", _wrap_gsl_linalg_matmult_mod},
17455 {"Math::GSL::Linalgc::gsl_linalg_exponential_ss", _wrap_gsl_linalg_exponential_ss},
17456 {"Math::GSL::Linalgc::gsl_linalg_householder_transform", _wrap_gsl_linalg_householder_transform},
17457 {"Math::GSL::Linalgc::gsl_linalg_householder_transform2", _wrap_gsl_linalg_householder_transform2},
17458 {"Math::GSL::Linalgc::gsl_linalg_complex_householder_transform", _wrap_gsl_linalg_complex_householder_transform},
17459 {"Math::GSL::Linalgc::gsl_linalg_householder_hm", _wrap_gsl_linalg_householder_hm},
17460 {"Math::GSL::Linalgc::gsl_linalg_householder_mh", _wrap_gsl_linalg_householder_mh},
17461 {"Math::GSL::Linalgc::gsl_linalg_householder_hv", _wrap_gsl_linalg_householder_hv},
17462 {"Math::GSL::Linalgc::gsl_linalg_householder_left", _wrap_gsl_linalg_householder_left},
17463 {"Math::GSL::Linalgc::gsl_linalg_householder_right", _wrap_gsl_linalg_householder_right},
17464 {"Math::GSL::Linalgc::gsl_linalg_householder_hm1", _wrap_gsl_linalg_householder_hm1},
17465 {"Math::GSL::Linalgc::gsl_linalg_complex_householder_hm", _wrap_gsl_linalg_complex_householder_hm},
17466 {"Math::GSL::Linalgc::gsl_linalg_complex_householder_mh", _wrap_gsl_linalg_complex_householder_mh},
17467 {"Math::GSL::Linalgc::gsl_linalg_complex_householder_hv", _wrap_gsl_linalg_complex_householder_hv},
17468 {"Math::GSL::Linalgc::gsl_linalg_complex_householder_left", _wrap_gsl_linalg_complex_householder_left},
17469 {"Math::GSL::Linalgc::gsl_linalg_hessenberg_decomp", _wrap_gsl_linalg_hessenberg_decomp},
17470 {"Math::GSL::Linalgc::gsl_linalg_hessenberg_unpack", _wrap_gsl_linalg_hessenberg_unpack},
17471 {"Math::GSL::Linalgc::gsl_linalg_hessenberg_unpack_accum", _wrap_gsl_linalg_hessenberg_unpack_accum},
17472 {"Math::GSL::Linalgc::gsl_linalg_hessenberg_set_zero", _wrap_gsl_linalg_hessenberg_set_zero},
17473 {"Math::GSL::Linalgc::gsl_linalg_hessenberg_submatrix", _wrap_gsl_linalg_hessenberg_submatrix},
17474 {"Math::GSL::Linalgc::gsl_linalg_hesstri_decomp", _wrap_gsl_linalg_hesstri_decomp},
17475 {"Math::GSL::Linalgc::gsl_linalg_SV_decomp", _wrap_gsl_linalg_SV_decomp},
17476 {"Math::GSL::Linalgc::gsl_linalg_SV_decomp_mod", _wrap_gsl_linalg_SV_decomp_mod},
17477 {"Math::GSL::Linalgc::gsl_linalg_SV_decomp_jacobi", _wrap_gsl_linalg_SV_decomp_jacobi},
17478 {"Math::GSL::Linalgc::gsl_linalg_SV_solve", _wrap_gsl_linalg_SV_solve},
17479 {"Math::GSL::Linalgc::gsl_linalg_SV_leverage", _wrap_gsl_linalg_SV_leverage},
17480 {"Math::GSL::Linalgc::gsl_linalg_LU_decomp", _wrap_gsl_linalg_LU_decomp},
17481 {"Math::GSL::Linalgc::gsl_linalg_LU_solve", _wrap_gsl_linalg_LU_solve},
17482 {"Math::GSL::Linalgc::gsl_linalg_LU_svx", _wrap_gsl_linalg_LU_svx},
17483 {"Math::GSL::Linalgc::gsl_linalg_LU_refine", _wrap_gsl_linalg_LU_refine},
17484 {"Math::GSL::Linalgc::gsl_linalg_LU_invert", _wrap_gsl_linalg_LU_invert},
17485 {"Math::GSL::Linalgc::gsl_linalg_LU_invx", _wrap_gsl_linalg_LU_invx},
17486 {"Math::GSL::Linalgc::gsl_linalg_LU_det", _wrap_gsl_linalg_LU_det},
17487 {"Math::GSL::Linalgc::gsl_linalg_LU_lndet", _wrap_gsl_linalg_LU_lndet},
17488 {"Math::GSL::Linalgc::gsl_linalg_LU_sgndet", _wrap_gsl_linalg_LU_sgndet},
17489 {"Math::GSL::Linalgc::gsl_linalg_LU_band_decomp", _wrap_gsl_linalg_LU_band_decomp},
17490 {"Math::GSL::Linalgc::gsl_linalg_LU_band_solve", _wrap_gsl_linalg_LU_band_solve},
17491 {"Math::GSL::Linalgc::gsl_linalg_LU_band_svx", _wrap_gsl_linalg_LU_band_svx},
17492 {"Math::GSL::Linalgc::gsl_linalg_LU_band_unpack", _wrap_gsl_linalg_LU_band_unpack},
17493 {"Math::GSL::Linalgc::gsl_linalg_complex_LU_decomp", _wrap_gsl_linalg_complex_LU_decomp},
17494 {"Math::GSL::Linalgc::gsl_linalg_complex_LU_solve", _wrap_gsl_linalg_complex_LU_solve},
17495 {"Math::GSL::Linalgc::gsl_linalg_complex_LU_svx", _wrap_gsl_linalg_complex_LU_svx},
17496 {"Math::GSL::Linalgc::gsl_linalg_complex_LU_refine", _wrap_gsl_linalg_complex_LU_refine},
17497 {"Math::GSL::Linalgc::gsl_linalg_complex_LU_invert", _wrap_gsl_linalg_complex_LU_invert},
17498 {"Math::GSL::Linalgc::gsl_linalg_complex_LU_invx", _wrap_gsl_linalg_complex_LU_invx},
17499 {"Math::GSL::Linalgc::gsl_linalg_complex_LU_det", _wrap_gsl_linalg_complex_LU_det},
17500 {"Math::GSL::Linalgc::gsl_linalg_complex_LU_lndet", _wrap_gsl_linalg_complex_LU_lndet},
17501 {"Math::GSL::Linalgc::gsl_linalg_complex_LU_sgndet", _wrap_gsl_linalg_complex_LU_sgndet},
17502 {"Math::GSL::Linalgc::gsl_linalg_QR_decomp", _wrap_gsl_linalg_QR_decomp},
17503 {"Math::GSL::Linalgc::gsl_linalg_QR_decomp_old", _wrap_gsl_linalg_QR_decomp_old},
17504 {"Math::GSL::Linalgc::gsl_linalg_QR_decomp_r", _wrap_gsl_linalg_QR_decomp_r},
17505 {"Math::GSL::Linalgc::gsl_linalg_QR_solve", _wrap_gsl_linalg_QR_solve},
17506 {"Math::GSL::Linalgc::gsl_linalg_QR_solve_r", _wrap_gsl_linalg_QR_solve_r},
17507 {"Math::GSL::Linalgc::gsl_linalg_QR_svx", _wrap_gsl_linalg_QR_svx},
17508 {"Math::GSL::Linalgc::gsl_linalg_QR_lssolve", _wrap_gsl_linalg_QR_lssolve},
17509 {"Math::GSL::Linalgc::gsl_linalg_QR_lssolve_r", _wrap_gsl_linalg_QR_lssolve_r},
17510 {"Math::GSL::Linalgc::gsl_linalg_QR_QRsolve", _wrap_gsl_linalg_QR_QRsolve},
17511 {"Math::GSL::Linalgc::gsl_linalg_QR_Rsolve", _wrap_gsl_linalg_QR_Rsolve},
17512 {"Math::GSL::Linalgc::gsl_linalg_QR_Rsvx", _wrap_gsl_linalg_QR_Rsvx},
17513 {"Math::GSL::Linalgc::gsl_linalg_QR_update", _wrap_gsl_linalg_QR_update},
17514 {"Math::GSL::Linalgc::gsl_linalg_QR_QTvec", _wrap_gsl_linalg_QR_QTvec},
17515 {"Math::GSL::Linalgc::gsl_linalg_QR_QTvec_r", _wrap_gsl_linalg_QR_QTvec_r},
17516 {"Math::GSL::Linalgc::gsl_linalg_QR_Qvec", _wrap_gsl_linalg_QR_Qvec},
17517 {"Math::GSL::Linalgc::gsl_linalg_QR_QTmat", _wrap_gsl_linalg_QR_QTmat},
17518 {"Math::GSL::Linalgc::gsl_linalg_QR_QTmat_r", _wrap_gsl_linalg_QR_QTmat_r},
17519 {"Math::GSL::Linalgc::gsl_linalg_QR_matQ", _wrap_gsl_linalg_QR_matQ},
17520 {"Math::GSL::Linalgc::gsl_linalg_QR_unpack", _wrap_gsl_linalg_QR_unpack},
17521 {"Math::GSL::Linalgc::gsl_linalg_QR_unpack_r", _wrap_gsl_linalg_QR_unpack_r},
17522 {"Math::GSL::Linalgc::gsl_linalg_R_solve", _wrap_gsl_linalg_R_solve},
17523 {"Math::GSL::Linalgc::gsl_linalg_R_svx", _wrap_gsl_linalg_R_svx},
17524 {"Math::GSL::Linalgc::gsl_linalg_QR_rcond", _wrap_gsl_linalg_QR_rcond},
17525 {"Math::GSL::Linalgc::gsl_linalg_complex_QR_decomp", _wrap_gsl_linalg_complex_QR_decomp},
17526 {"Math::GSL::Linalgc::gsl_linalg_complex_QR_decomp_r", _wrap_gsl_linalg_complex_QR_decomp_r},
17527 {"Math::GSL::Linalgc::gsl_linalg_complex_QR_solve", _wrap_gsl_linalg_complex_QR_solve},
17528 {"Math::GSL::Linalgc::gsl_linalg_complex_QR_solve_r", _wrap_gsl_linalg_complex_QR_solve_r},
17529 {"Math::GSL::Linalgc::gsl_linalg_complex_QR_svx", _wrap_gsl_linalg_complex_QR_svx},
17530 {"Math::GSL::Linalgc::gsl_linalg_complex_QR_lssolve", _wrap_gsl_linalg_complex_QR_lssolve},
17531 {"Math::GSL::Linalgc::gsl_linalg_complex_QR_lssolve_r", _wrap_gsl_linalg_complex_QR_lssolve_r},
17532 {"Math::GSL::Linalgc::gsl_linalg_complex_QR_QHvec", _wrap_gsl_linalg_complex_QR_QHvec},
17533 {"Math::GSL::Linalgc::gsl_linalg_complex_QR_QHvec_r", _wrap_gsl_linalg_complex_QR_QHvec_r},
17534 {"Math::GSL::Linalgc::gsl_linalg_complex_QR_Qvec", _wrap_gsl_linalg_complex_QR_Qvec},
17535 {"Math::GSL::Linalgc::gsl_linalg_complex_QR_unpack", _wrap_gsl_linalg_complex_QR_unpack},
17536 {"Math::GSL::Linalgc::gsl_linalg_complex_QR_unpack_r", _wrap_gsl_linalg_complex_QR_unpack_r},
17537 {"Math::GSL::Linalgc::gsl_linalg_QR_band_decomp_L2", _wrap_gsl_linalg_QR_band_decomp_L2},
17538 {"Math::GSL::Linalgc::gsl_linalg_QR_band_unpack_L2", _wrap_gsl_linalg_QR_band_unpack_L2},
17539 {"Math::GSL::Linalgc::gsl_linalg_QRPT_decomp", _wrap_gsl_linalg_QRPT_decomp},
17540 {"Math::GSL::Linalgc::gsl_linalg_QRPT_decomp2", _wrap_gsl_linalg_QRPT_decomp2},
17541 {"Math::GSL::Linalgc::gsl_linalg_QRPT_solve", _wrap_gsl_linalg_QRPT_solve},
17542 {"Math::GSL::Linalgc::gsl_linalg_QRPT_lssolve", _wrap_gsl_linalg_QRPT_lssolve},
17543 {"Math::GSL::Linalgc::gsl_linalg_QRPT_lssolve2", _wrap_gsl_linalg_QRPT_lssolve2},
17544 {"Math::GSL::Linalgc::gsl_linalg_QRPT_svx", _wrap_gsl_linalg_QRPT_svx},
17545 {"Math::GSL::Linalgc::gsl_linalg_QRPT_QRsolve", _wrap_gsl_linalg_QRPT_QRsolve},
17546 {"Math::GSL::Linalgc::gsl_linalg_QRPT_Rsolve", _wrap_gsl_linalg_QRPT_Rsolve},
17547 {"Math::GSL::Linalgc::gsl_linalg_QRPT_Rsvx", _wrap_gsl_linalg_QRPT_Rsvx},
17548 {"Math::GSL::Linalgc::gsl_linalg_QRPT_update", _wrap_gsl_linalg_QRPT_update},
17549 {"Math::GSL::Linalgc::gsl_linalg_QRPT_rank", _wrap_gsl_linalg_QRPT_rank},
17550 {"Math::GSL::Linalgc::gsl_linalg_QRPT_rcond", _wrap_gsl_linalg_QRPT_rcond},
17551 {"Math::GSL::Linalgc::gsl_linalg_QR_UD_decomp", _wrap_gsl_linalg_QR_UD_decomp},
17552 {"Math::GSL::Linalgc::gsl_linalg_QR_UD_lssolve", _wrap_gsl_linalg_QR_UD_lssolve},
17553 {"Math::GSL::Linalgc::gsl_linalg_QR_UR_decomp", _wrap_gsl_linalg_QR_UR_decomp},
17554 {"Math::GSL::Linalgc::gsl_linalg_QR_UU_decomp", _wrap_gsl_linalg_QR_UU_decomp},
17555 {"Math::GSL::Linalgc::gsl_linalg_QR_UU_lssolve", _wrap_gsl_linalg_QR_UU_lssolve},
17556 {"Math::GSL::Linalgc::gsl_linalg_QR_UU_QTvec", _wrap_gsl_linalg_QR_UU_QTvec},
17557 {"Math::GSL::Linalgc::gsl_linalg_QR_UZ_decomp", _wrap_gsl_linalg_QR_UZ_decomp},
17558 {"Math::GSL::Linalgc::gsl_linalg_QL_decomp", _wrap_gsl_linalg_QL_decomp},
17559 {"Math::GSL::Linalgc::gsl_linalg_QL_unpack", _wrap_gsl_linalg_QL_unpack},
17560 {"Math::GSL::Linalgc::gsl_linalg_COD_decomp", _wrap_gsl_linalg_COD_decomp},
17561 {"Math::GSL::Linalgc::gsl_linalg_COD_decomp_e", _wrap_gsl_linalg_COD_decomp_e},
17562 {"Math::GSL::Linalgc::gsl_linalg_COD_lssolve", _wrap_gsl_linalg_COD_lssolve},
17563 {"Math::GSL::Linalgc::gsl_linalg_COD_lssolve2", _wrap_gsl_linalg_COD_lssolve2},
17564 {"Math::GSL::Linalgc::gsl_linalg_COD_unpack", _wrap_gsl_linalg_COD_unpack},
17565 {"Math::GSL::Linalgc::gsl_linalg_COD_matZ", _wrap_gsl_linalg_COD_matZ},
17566 {"Math::GSL::Linalgc::gsl_linalg_LQ_decomp", _wrap_gsl_linalg_LQ_decomp},
17567 {"Math::GSL::Linalgc::gsl_linalg_LQ_lssolve", _wrap_gsl_linalg_LQ_lssolve},
17568 {"Math::GSL::Linalgc::gsl_linalg_LQ_QTvec", _wrap_gsl_linalg_LQ_QTvec},
17569 {"Math::GSL::Linalgc::gsl_linalg_LQ_solve_T", _wrap_gsl_linalg_LQ_solve_T},
17570 {"Math::GSL::Linalgc::gsl_linalg_LQ_svx_T", _wrap_gsl_linalg_LQ_svx_T},
17571 {"Math::GSL::Linalgc::gsl_linalg_LQ_lssolve_T", _wrap_gsl_linalg_LQ_lssolve_T},
17572 {"Math::GSL::Linalgc::gsl_linalg_LQ_Lsolve_T", _wrap_gsl_linalg_LQ_Lsolve_T},
17573 {"Math::GSL::Linalgc::gsl_linalg_LQ_Lsvx_T", _wrap_gsl_linalg_LQ_Lsvx_T},
17574 {"Math::GSL::Linalgc::gsl_linalg_L_solve_T", _wrap_gsl_linalg_L_solve_T},
17575 {"Math::GSL::Linalgc::gsl_linalg_LQ_vecQ", _wrap_gsl_linalg_LQ_vecQ},
17576 {"Math::GSL::Linalgc::gsl_linalg_LQ_vecQT", _wrap_gsl_linalg_LQ_vecQT},
17577 {"Math::GSL::Linalgc::gsl_linalg_LQ_unpack", _wrap_gsl_linalg_LQ_unpack},
17578 {"Math::GSL::Linalgc::gsl_linalg_LQ_update", _wrap_gsl_linalg_LQ_update},
17579 {"Math::GSL::Linalgc::gsl_linalg_LQ_LQsolve", _wrap_gsl_linalg_LQ_LQsolve},
17580 {"Math::GSL::Linalgc::gsl_linalg_PTLQ_decomp", _wrap_gsl_linalg_PTLQ_decomp},
17581 {"Math::GSL::Linalgc::gsl_linalg_PTLQ_decomp2", _wrap_gsl_linalg_PTLQ_decomp2},
17582 {"Math::GSL::Linalgc::gsl_linalg_PTLQ_solve_T", _wrap_gsl_linalg_PTLQ_solve_T},
17583 {"Math::GSL::Linalgc::gsl_linalg_PTLQ_svx_T", _wrap_gsl_linalg_PTLQ_svx_T},
17584 {"Math::GSL::Linalgc::gsl_linalg_PTLQ_LQsolve_T", _wrap_gsl_linalg_PTLQ_LQsolve_T},
17585 {"Math::GSL::Linalgc::gsl_linalg_PTLQ_Lsolve_T", _wrap_gsl_linalg_PTLQ_Lsolve_T},
17586 {"Math::GSL::Linalgc::gsl_linalg_PTLQ_Lsvx_T", _wrap_gsl_linalg_PTLQ_Lsvx_T},
17587 {"Math::GSL::Linalgc::gsl_linalg_PTLQ_update", _wrap_gsl_linalg_PTLQ_update},
17588 {"Math::GSL::Linalgc::gsl_linalg_cholesky_decomp", _wrap_gsl_linalg_cholesky_decomp},
17589 {"Math::GSL::Linalgc::gsl_linalg_cholesky_decomp1", _wrap_gsl_linalg_cholesky_decomp1},
17590 {"Math::GSL::Linalgc::gsl_linalg_cholesky_solve", _wrap_gsl_linalg_cholesky_solve},
17591 {"Math::GSL::Linalgc::gsl_linalg_cholesky_solve_mat", _wrap_gsl_linalg_cholesky_solve_mat},
17592 {"Math::GSL::Linalgc::gsl_linalg_cholesky_svx", _wrap_gsl_linalg_cholesky_svx},
17593 {"Math::GSL::Linalgc::gsl_linalg_cholesky_svx_mat", _wrap_gsl_linalg_cholesky_svx_mat},
17594 {"Math::GSL::Linalgc::gsl_linalg_cholesky_invert", _wrap_gsl_linalg_cholesky_invert},
17595 {"Math::GSL::Linalgc::gsl_linalg_cholesky_decomp_unit", _wrap_gsl_linalg_cholesky_decomp_unit},
17596 {"Math::GSL::Linalgc::gsl_linalg_cholesky_scale", _wrap_gsl_linalg_cholesky_scale},
17597 {"Math::GSL::Linalgc::gsl_linalg_cholesky_scale_apply", _wrap_gsl_linalg_cholesky_scale_apply},
17598 {"Math::GSL::Linalgc::gsl_linalg_cholesky_decomp2", _wrap_gsl_linalg_cholesky_decomp2},
17599 {"Math::GSL::Linalgc::gsl_linalg_cholesky_svx2", _wrap_gsl_linalg_cholesky_svx2},
17600 {"Math::GSL::Linalgc::gsl_linalg_cholesky_solve2", _wrap_gsl_linalg_cholesky_solve2},
17601 {"Math::GSL::Linalgc::gsl_linalg_cholesky_rcond", _wrap_gsl_linalg_cholesky_rcond},
17602 {"Math::GSL::Linalgc::gsl_linalg_complex_cholesky_decomp", _wrap_gsl_linalg_complex_cholesky_decomp},
17603 {"Math::GSL::Linalgc::gsl_linalg_complex_cholesky_solve", _wrap_gsl_linalg_complex_cholesky_solve},
17604 {"Math::GSL::Linalgc::gsl_linalg_complex_cholesky_svx", _wrap_gsl_linalg_complex_cholesky_svx},
17605 {"Math::GSL::Linalgc::gsl_linalg_complex_cholesky_invert", _wrap_gsl_linalg_complex_cholesky_invert},
17606 {"Math::GSL::Linalgc::gsl_linalg_pcholesky_decomp", _wrap_gsl_linalg_pcholesky_decomp},
17607 {"Math::GSL::Linalgc::gsl_linalg_pcholesky_solve", _wrap_gsl_linalg_pcholesky_solve},
17608 {"Math::GSL::Linalgc::gsl_linalg_pcholesky_svx", _wrap_gsl_linalg_pcholesky_svx},
17609 {"Math::GSL::Linalgc::gsl_linalg_pcholesky_decomp2", _wrap_gsl_linalg_pcholesky_decomp2},
17610 {"Math::GSL::Linalgc::gsl_linalg_pcholesky_solve2", _wrap_gsl_linalg_pcholesky_solve2},
17611 {"Math::GSL::Linalgc::gsl_linalg_pcholesky_svx2", _wrap_gsl_linalg_pcholesky_svx2},
17612 {"Math::GSL::Linalgc::gsl_linalg_pcholesky_invert", _wrap_gsl_linalg_pcholesky_invert},
17613 {"Math::GSL::Linalgc::gsl_linalg_pcholesky_rcond", _wrap_gsl_linalg_pcholesky_rcond},
17614 {"Math::GSL::Linalgc::gsl_linalg_mcholesky_decomp", _wrap_gsl_linalg_mcholesky_decomp},
17615 {"Math::GSL::Linalgc::gsl_linalg_mcholesky_solve", _wrap_gsl_linalg_mcholesky_solve},
17616 {"Math::GSL::Linalgc::gsl_linalg_mcholesky_svx", _wrap_gsl_linalg_mcholesky_svx},
17617 {"Math::GSL::Linalgc::gsl_linalg_mcholesky_rcond", _wrap_gsl_linalg_mcholesky_rcond},
17618 {"Math::GSL::Linalgc::gsl_linalg_mcholesky_invert", _wrap_gsl_linalg_mcholesky_invert},
17619 {"Math::GSL::Linalgc::gsl_linalg_cholesky_band_decomp", _wrap_gsl_linalg_cholesky_band_decomp},
17620 {"Math::GSL::Linalgc::gsl_linalg_cholesky_band_solve", _wrap_gsl_linalg_cholesky_band_solve},
17621 {"Math::GSL::Linalgc::gsl_linalg_cholesky_band_svx", _wrap_gsl_linalg_cholesky_band_svx},
17622 {"Math::GSL::Linalgc::gsl_linalg_cholesky_band_solvem", _wrap_gsl_linalg_cholesky_band_solvem},
17623 {"Math::GSL::Linalgc::gsl_linalg_cholesky_band_svxm", _wrap_gsl_linalg_cholesky_band_svxm},
17624 {"Math::GSL::Linalgc::gsl_linalg_cholesky_band_invert", _wrap_gsl_linalg_cholesky_band_invert},
17625 {"Math::GSL::Linalgc::gsl_linalg_cholesky_band_unpack", _wrap_gsl_linalg_cholesky_band_unpack},
17626 {"Math::GSL::Linalgc::gsl_linalg_cholesky_band_scale", _wrap_gsl_linalg_cholesky_band_scale},
17627 {"Math::GSL::Linalgc::gsl_linalg_cholesky_band_scale_apply", _wrap_gsl_linalg_cholesky_band_scale_apply},
17628 {"Math::GSL::Linalgc::gsl_linalg_cholesky_band_rcond", _wrap_gsl_linalg_cholesky_band_rcond},
17629 {"Math::GSL::Linalgc::gsl_linalg_ldlt_decomp", _wrap_gsl_linalg_ldlt_decomp},
17630 {"Math::GSL::Linalgc::gsl_linalg_ldlt_solve", _wrap_gsl_linalg_ldlt_solve},
17631 {"Math::GSL::Linalgc::gsl_linalg_ldlt_svx", _wrap_gsl_linalg_ldlt_svx},
17632 {"Math::GSL::Linalgc::gsl_linalg_ldlt_rcond", _wrap_gsl_linalg_ldlt_rcond},
17633 {"Math::GSL::Linalgc::gsl_linalg_ldlt_band_decomp", _wrap_gsl_linalg_ldlt_band_decomp},
17634 {"Math::GSL::Linalgc::gsl_linalg_ldlt_band_solve", _wrap_gsl_linalg_ldlt_band_solve},
17635 {"Math::GSL::Linalgc::gsl_linalg_ldlt_band_svx", _wrap_gsl_linalg_ldlt_band_svx},
17636 {"Math::GSL::Linalgc::gsl_linalg_ldlt_band_unpack", _wrap_gsl_linalg_ldlt_band_unpack},
17637 {"Math::GSL::Linalgc::gsl_linalg_ldlt_band_rcond", _wrap_gsl_linalg_ldlt_band_rcond},
17638 {"Math::GSL::Linalgc::gsl_linalg_symmtd_decomp", _wrap_gsl_linalg_symmtd_decomp},
17639 {"Math::GSL::Linalgc::gsl_linalg_symmtd_unpack", _wrap_gsl_linalg_symmtd_unpack},
17640 {"Math::GSL::Linalgc::gsl_linalg_symmtd_unpack_T", _wrap_gsl_linalg_symmtd_unpack_T},
17641 {"Math::GSL::Linalgc::gsl_linalg_hermtd_decomp", _wrap_gsl_linalg_hermtd_decomp},
17642 {"Math::GSL::Linalgc::gsl_linalg_hermtd_unpack", _wrap_gsl_linalg_hermtd_unpack},
17643 {"Math::GSL::Linalgc::gsl_linalg_hermtd_unpack_T", _wrap_gsl_linalg_hermtd_unpack_T},
17644 {"Math::GSL::Linalgc::gsl_linalg_HH_solve", _wrap_gsl_linalg_HH_solve},
17645 {"Math::GSL::Linalgc::gsl_linalg_HH_svx", _wrap_gsl_linalg_HH_svx},
17646 {"Math::GSL::Linalgc::gsl_linalg_solve_symm_tridiag", _wrap_gsl_linalg_solve_symm_tridiag},
17647 {"Math::GSL::Linalgc::gsl_linalg_solve_tridiag", _wrap_gsl_linalg_solve_tridiag},
17648 {"Math::GSL::Linalgc::gsl_linalg_solve_symm_cyc_tridiag", _wrap_gsl_linalg_solve_symm_cyc_tridiag},
17649 {"Math::GSL::Linalgc::gsl_linalg_solve_cyc_tridiag", _wrap_gsl_linalg_solve_cyc_tridiag},
17650 {"Math::GSL::Linalgc::gsl_linalg_bidiag_decomp", _wrap_gsl_linalg_bidiag_decomp},
17651 {"Math::GSL::Linalgc::gsl_linalg_bidiag_unpack", _wrap_gsl_linalg_bidiag_unpack},
17652 {"Math::GSL::Linalgc::gsl_linalg_bidiag_unpack2", _wrap_gsl_linalg_bidiag_unpack2},
17653 {"Math::GSL::Linalgc::gsl_linalg_bidiag_unpack_B", _wrap_gsl_linalg_bidiag_unpack_B},
17654 {"Math::GSL::Linalgc::gsl_linalg_balance_matrix", _wrap_gsl_linalg_balance_matrix},
17655 {"Math::GSL::Linalgc::gsl_linalg_balance_accum", _wrap_gsl_linalg_balance_accum},
17656 {"Math::GSL::Linalgc::gsl_linalg_balance_columns", _wrap_gsl_linalg_balance_columns},
17657 {"Math::GSL::Linalgc::gsl_linalg_tri_rcond", _wrap_gsl_linalg_tri_rcond},
17658 {"Math::GSL::Linalgc::gsl_linalg_tri_upper_rcond", _wrap_gsl_linalg_tri_upper_rcond},
17659 {"Math::GSL::Linalgc::gsl_linalg_tri_lower_rcond", _wrap_gsl_linalg_tri_lower_rcond},
17660 {"Math::GSL::Linalgc::gsl_linalg_invnorm1", _wrap_gsl_linalg_invnorm1},
17661 {"Math::GSL::Linalgc::gsl_linalg_tri_upper_invert", _wrap_gsl_linalg_tri_upper_invert},
17662 {"Math::GSL::Linalgc::gsl_linalg_tri_lower_invert", _wrap_gsl_linalg_tri_lower_invert},
17663 {"Math::GSL::Linalgc::gsl_linalg_tri_upper_unit_invert", _wrap_gsl_linalg_tri_upper_unit_invert},
17664 {"Math::GSL::Linalgc::gsl_linalg_tri_lower_unit_invert", _wrap_gsl_linalg_tri_lower_unit_invert},
17665 {"Math::GSL::Linalgc::gsl_linalg_tri_invert", _wrap_gsl_linalg_tri_invert},
17666 {"Math::GSL::Linalgc::gsl_linalg_complex_tri_invert", _wrap_gsl_linalg_complex_tri_invert},
17667 {"Math::GSL::Linalgc::gsl_linalg_tri_LTL", _wrap_gsl_linalg_tri_LTL},
17668 {"Math::GSL::Linalgc::gsl_linalg_tri_UL", _wrap_gsl_linalg_tri_UL},
17669 {"Math::GSL::Linalgc::gsl_linalg_complex_tri_LHL", _wrap_gsl_linalg_complex_tri_LHL},
17670 {"Math::GSL::Linalgc::gsl_linalg_complex_tri_UL", _wrap_gsl_linalg_complex_tri_UL},
17671 {"Math::GSL::Linalgc::gsl_linalg_givens", _wrap_gsl_linalg_givens},
17672 {"Math::GSL::Linalgc::gsl_linalg_givens_gv", _wrap_gsl_linalg_givens_gv},
17673 {"Math::GSL::Linalgc::gsl_permutation_struct_size_set", _wrap_gsl_permutation_struct_size_set},
17674 {"Math::GSL::Linalgc::gsl_permutation_struct_size_get", _wrap_gsl_permutation_struct_size_get},
17675 {"Math::GSL::Linalgc::gsl_permutation_struct_data_set", _wrap_gsl_permutation_struct_data_set},
17676 {"Math::GSL::Linalgc::gsl_permutation_struct_data_get", _wrap_gsl_permutation_struct_data_get},
17677 {"Math::GSL::Linalgc::new_gsl_permutation_struct", _wrap_new_gsl_permutation_struct},
17678 {"Math::GSL::Linalgc::delete_gsl_permutation_struct", _wrap_delete_gsl_permutation_struct},
17679 {"Math::GSL::Linalgc::gsl_permutation_alloc", _wrap_gsl_permutation_alloc},
17680 {"Math::GSL::Linalgc::gsl_permutation_calloc", _wrap_gsl_permutation_calloc},
17681 {"Math::GSL::Linalgc::gsl_permutation_init", _wrap_gsl_permutation_init},
17682 {"Math::GSL::Linalgc::gsl_permutation_free", _wrap_gsl_permutation_free},
17683 {"Math::GSL::Linalgc::gsl_permutation_memcpy", _wrap_gsl_permutation_memcpy},
17684 {"Math::GSL::Linalgc::gsl_permutation_fread", _wrap_gsl_permutation_fread},
17685 {"Math::GSL::Linalgc::gsl_permutation_fwrite", _wrap_gsl_permutation_fwrite},
17686 {"Math::GSL::Linalgc::gsl_permutation_fscanf", _wrap_gsl_permutation_fscanf},
17687 {"Math::GSL::Linalgc::gsl_permutation_fprintf", _wrap_gsl_permutation_fprintf},
17688 {"Math::GSL::Linalgc::gsl_permutation_size", _wrap_gsl_permutation_size},
17689 {"Math::GSL::Linalgc::gsl_permutation_data", _wrap_gsl_permutation_data},
17690 {"Math::GSL::Linalgc::gsl_permutation_swap", _wrap_gsl_permutation_swap},
17691 {"Math::GSL::Linalgc::gsl_permutation_valid", _wrap_gsl_permutation_valid},
17692 {"Math::GSL::Linalgc::gsl_permutation_reverse", _wrap_gsl_permutation_reverse},
17693 {"Math::GSL::Linalgc::gsl_permutation_inverse", _wrap_gsl_permutation_inverse},
17694 {"Math::GSL::Linalgc::gsl_permutation_next", _wrap_gsl_permutation_next},
17695 {"Math::GSL::Linalgc::gsl_permutation_prev", _wrap_gsl_permutation_prev},
17696 {"Math::GSL::Linalgc::gsl_permutation_mul", _wrap_gsl_permutation_mul},
17697 {"Math::GSL::Linalgc::gsl_permutation_linear_to_canonical", _wrap_gsl_permutation_linear_to_canonical},
17698 {"Math::GSL::Linalgc::gsl_permutation_canonical_to_linear", _wrap_gsl_permutation_canonical_to_linear},
17699 {"Math::GSL::Linalgc::gsl_permutation_inversions", _wrap_gsl_permutation_inversions},
17700 {"Math::GSL::Linalgc::gsl_permutation_linear_cycles", _wrap_gsl_permutation_linear_cycles},
17701 {"Math::GSL::Linalgc::gsl_permutation_canonical_cycles", _wrap_gsl_permutation_canonical_cycles},
17702 {"Math::GSL::Linalgc::gsl_permutation_get", _wrap_gsl_permutation_get},
17703 {"Math::GSL::Linalgc::gsl_complex_dat_set", _wrap_gsl_complex_dat_set},
17704 {"Math::GSL::Linalgc::gsl_complex_dat_get", _wrap_gsl_complex_dat_get},
17705 {"Math::GSL::Linalgc::new_gsl_complex", _wrap_new_gsl_complex},
17706 {"Math::GSL::Linalgc::delete_gsl_complex", _wrap_delete_gsl_complex},
17707 {"Math::GSL::Linalgc::gsl_complex_long_double_dat_set", _wrap_gsl_complex_long_double_dat_set},
17708 {"Math::GSL::Linalgc::gsl_complex_long_double_dat_get", _wrap_gsl_complex_long_double_dat_get},
17709 {"Math::GSL::Linalgc::new_gsl_complex_long_double", _wrap_new_gsl_complex_long_double},
17710 {"Math::GSL::Linalgc::delete_gsl_complex_long_double", _wrap_delete_gsl_complex_long_double},
17711 {"Math::GSL::Linalgc::gsl_complex_float_dat_set", _wrap_gsl_complex_float_dat_set},
17712 {"Math::GSL::Linalgc::gsl_complex_float_dat_get", _wrap_gsl_complex_float_dat_get},
17713 {"Math::GSL::Linalgc::new_gsl_complex_float", _wrap_new_gsl_complex_float},
17714 {"Math::GSL::Linalgc::delete_gsl_complex_float", _wrap_delete_gsl_complex_float},
17715 {"Math::GSL::Linalgc::gsl_complex_polar", _wrap_gsl_complex_polar},
17716 {"Math::GSL::Linalgc::gsl_complex_rect", _wrap_gsl_complex_rect},
17717 {"Math::GSL::Linalgc::gsl_complex_arg", _wrap_gsl_complex_arg},
17718 {"Math::GSL::Linalgc::gsl_complex_abs", _wrap_gsl_complex_abs},
17719 {"Math::GSL::Linalgc::gsl_complex_abs2", _wrap_gsl_complex_abs2},
17720 {"Math::GSL::Linalgc::gsl_complex_logabs", _wrap_gsl_complex_logabs},
17721 {"Math::GSL::Linalgc::gsl_complex_add", _wrap_gsl_complex_add},
17722 {"Math::GSL::Linalgc::gsl_complex_sub", _wrap_gsl_complex_sub},
17723 {"Math::GSL::Linalgc::gsl_complex_mul", _wrap_gsl_complex_mul},
17724 {"Math::GSL::Linalgc::gsl_complex_div", _wrap_gsl_complex_div},
17725 {"Math::GSL::Linalgc::gsl_complex_add_real", _wrap_gsl_complex_add_real},
17726 {"Math::GSL::Linalgc::gsl_complex_sub_real", _wrap_gsl_complex_sub_real},
17727 {"Math::GSL::Linalgc::gsl_complex_mul_real", _wrap_gsl_complex_mul_real},
17728 {"Math::GSL::Linalgc::gsl_complex_div_real", _wrap_gsl_complex_div_real},
17729 {"Math::GSL::Linalgc::gsl_complex_add_imag", _wrap_gsl_complex_add_imag},
17730 {"Math::GSL::Linalgc::gsl_complex_sub_imag", _wrap_gsl_complex_sub_imag},
17731 {"Math::GSL::Linalgc::gsl_complex_mul_imag", _wrap_gsl_complex_mul_imag},
17732 {"Math::GSL::Linalgc::gsl_complex_div_imag", _wrap_gsl_complex_div_imag},
17733 {"Math::GSL::Linalgc::gsl_complex_conjugate", _wrap_gsl_complex_conjugate},
17734 {"Math::GSL::Linalgc::gsl_complex_inverse", _wrap_gsl_complex_inverse},
17735 {"Math::GSL::Linalgc::gsl_complex_negative", _wrap_gsl_complex_negative},
17736 {"Math::GSL::Linalgc::gsl_complex_sqrt", _wrap_gsl_complex_sqrt},
17737 {"Math::GSL::Linalgc::gsl_complex_sqrt_real", _wrap_gsl_complex_sqrt_real},
17738 {"Math::GSL::Linalgc::gsl_complex_pow", _wrap_gsl_complex_pow},
17739 {"Math::GSL::Linalgc::gsl_complex_pow_real", _wrap_gsl_complex_pow_real},
17740 {"Math::GSL::Linalgc::gsl_complex_exp", _wrap_gsl_complex_exp},
17741 {"Math::GSL::Linalgc::gsl_complex_log", _wrap_gsl_complex_log},
17742 {"Math::GSL::Linalgc::gsl_complex_log10", _wrap_gsl_complex_log10},
17743 {"Math::GSL::Linalgc::gsl_complex_log_b", _wrap_gsl_complex_log_b},
17744 {"Math::GSL::Linalgc::gsl_complex_sin", _wrap_gsl_complex_sin},
17745 {"Math::GSL::Linalgc::gsl_complex_cos", _wrap_gsl_complex_cos},
17746 {"Math::GSL::Linalgc::gsl_complex_sec", _wrap_gsl_complex_sec},
17747 {"Math::GSL::Linalgc::gsl_complex_csc", _wrap_gsl_complex_csc},
17748 {"Math::GSL::Linalgc::gsl_complex_tan", _wrap_gsl_complex_tan},
17749 {"Math::GSL::Linalgc::gsl_complex_cot", _wrap_gsl_complex_cot},
17750 {"Math::GSL::Linalgc::gsl_complex_arcsin", _wrap_gsl_complex_arcsin},
17751 {"Math::GSL::Linalgc::gsl_complex_arcsin_real", _wrap_gsl_complex_arcsin_real},
17752 {"Math::GSL::Linalgc::gsl_complex_arccos", _wrap_gsl_complex_arccos},
17753 {"Math::GSL::Linalgc::gsl_complex_arccos_real", _wrap_gsl_complex_arccos_real},
17754 {"Math::GSL::Linalgc::gsl_complex_arcsec", _wrap_gsl_complex_arcsec},
17755 {"Math::GSL::Linalgc::gsl_complex_arcsec_real", _wrap_gsl_complex_arcsec_real},
17756 {"Math::GSL::Linalgc::gsl_complex_arccsc", _wrap_gsl_complex_arccsc},
17757 {"Math::GSL::Linalgc::gsl_complex_arccsc_real", _wrap_gsl_complex_arccsc_real},
17758 {"Math::GSL::Linalgc::gsl_complex_arctan", _wrap_gsl_complex_arctan},
17759 {"Math::GSL::Linalgc::gsl_complex_arccot", _wrap_gsl_complex_arccot},
17760 {"Math::GSL::Linalgc::gsl_complex_sinh", _wrap_gsl_complex_sinh},
17761 {"Math::GSL::Linalgc::gsl_complex_cosh", _wrap_gsl_complex_cosh},
17762 {"Math::GSL::Linalgc::gsl_complex_sech", _wrap_gsl_complex_sech},
17763 {"Math::GSL::Linalgc::gsl_complex_csch", _wrap_gsl_complex_csch},
17764 {"Math::GSL::Linalgc::gsl_complex_tanh", _wrap_gsl_complex_tanh},
17765 {"Math::GSL::Linalgc::gsl_complex_coth", _wrap_gsl_complex_coth},
17766 {"Math::GSL::Linalgc::gsl_complex_arcsinh", _wrap_gsl_complex_arcsinh},
17767 {"Math::GSL::Linalgc::gsl_complex_arccosh", _wrap_gsl_complex_arccosh},
17768 {"Math::GSL::Linalgc::gsl_complex_arccosh_real", _wrap_gsl_complex_arccosh_real},
17769 {"Math::GSL::Linalgc::gsl_complex_arcsech", _wrap_gsl_complex_arcsech},
17770 {"Math::GSL::Linalgc::gsl_complex_arccsch", _wrap_gsl_complex_arccsch},
17771 {"Math::GSL::Linalgc::gsl_complex_arctanh", _wrap_gsl_complex_arctanh},
17772 {"Math::GSL::Linalgc::gsl_complex_arctanh_real", _wrap_gsl_complex_arctanh_real},
17773 {"Math::GSL::Linalgc::gsl_complex_arccoth", _wrap_gsl_complex_arccoth},
17774 {0,0}
17775 };
17776 /* -----------------------------------------------------------------------------
17777 * Type initialization:
17778 * This problem is tough by the requirement that no dynamic
17779 * memory is used. Also, since swig_type_info structures store pointers to
17780 * swig_cast_info structures and swig_cast_info structures store pointers back
17781 * to swig_type_info structures, we need some lookup code at initialization.
17782 * The idea is that swig generates all the structures that are needed.
17783 * The runtime then collects these partially filled structures.
17784 * The SWIG_InitializeModule function takes these initial arrays out of
17785 * swig_module, and does all the lookup, filling in the swig_module.types
17786 * array with the correct data and linking the correct swig_cast_info
17787 * structures together.
17788 *
17789 * The generated swig_type_info structures are assigned statically to an initial
17790 * array. We just loop through that array, and handle each type individually.
17791 * First we lookup if this type has been already loaded, and if so, use the
17792 * loaded structure instead of the generated one. Then we have to fill in the
17793 * cast linked list. The cast data is initially stored in something like a
17794 * two-dimensional array. Each row corresponds to a type (there are the same
17795 * number of rows as there are in the swig_type_initial array). Each entry in
17796 * a column is one of the swig_cast_info structures for that type.
17797 * The cast_initial array is actually an array of arrays, because each row has
17798 * a variable number of columns. So to actually build the cast linked list,
17799 * we find the array of casts associated with the type, and loop through it
17800 * adding the casts to the list. The one last trick we need to do is making
17801 * sure the type pointer in the swig_cast_info struct is correct.
17802 *
17803 * First off, we lookup the cast->type name to see if it is already loaded.
17804 * There are three cases to handle:
17805 * 1) If the cast->type has already been loaded AND the type we are adding
17806 * casting info to has not been loaded (it is in this module), THEN we
17807 * replace the cast->type pointer with the type pointer that has already
17808 * been loaded.
17809 * 2) If BOTH types (the one we are adding casting info to, and the
17810 * cast->type) are loaded, THEN the cast info has already been loaded by
17811 * the previous module so we just ignore it.
17812 * 3) Finally, if cast->type has not already been loaded, then we add that
17813 * swig_cast_info to the linked list (because the cast->type) pointer will
17814 * be correct.
17815 * ----------------------------------------------------------------------------- */
17816
17817 #ifdef __cplusplus
17818 extern "C" {
17819 #if 0
17820 } /* c-mode */
17821 #endif
17822 #endif
17823
17824 #if 0
17825 #define SWIGRUNTIME_DEBUG
17826 #endif
17827
17828
17829 SWIGRUNTIME void
SWIG_InitializeModule(void * clientdata)17830 SWIG_InitializeModule(void *clientdata) {
17831 size_t i;
17832 swig_module_info *module_head, *iter;
17833 int init;
17834
17835 /* check to see if the circular list has been setup, if not, set it up */
17836 if (swig_module.next==0) {
17837 /* Initialize the swig_module */
17838 swig_module.type_initial = swig_type_initial;
17839 swig_module.cast_initial = swig_cast_initial;
17840 swig_module.next = &swig_module;
17841 init = 1;
17842 } else {
17843 init = 0;
17844 }
17845
17846 /* Try and load any already created modules */
17847 module_head = SWIG_GetModule(clientdata);
17848 if (!module_head) {
17849 /* This is the first module loaded for this interpreter */
17850 /* so set the swig module into the interpreter */
17851 SWIG_SetModule(clientdata, &swig_module);
17852 } else {
17853 /* the interpreter has loaded a SWIG module, but has it loaded this one? */
17854 iter=module_head;
17855 do {
17856 if (iter==&swig_module) {
17857 /* Our module is already in the list, so there's nothing more to do. */
17858 return;
17859 }
17860 iter=iter->next;
17861 } while (iter!= module_head);
17862
17863 /* otherwise we must add our module into the list */
17864 swig_module.next = module_head->next;
17865 module_head->next = &swig_module;
17866 }
17867
17868 /* When multiple interpreters are used, a module could have already been initialized in
17869 a different interpreter, but not yet have a pointer in this interpreter.
17870 In this case, we do not want to continue adding types... everything should be
17871 set up already */
17872 if (init == 0) return;
17873
17874 /* Now work on filling in swig_module.types */
17875 #ifdef SWIGRUNTIME_DEBUG
17876 printf("SWIG_InitializeModule: size %lu\n", (unsigned long)swig_module.size);
17877 #endif
17878 for (i = 0; i < swig_module.size; ++i) {
17879 swig_type_info *type = 0;
17880 swig_type_info *ret;
17881 swig_cast_info *cast;
17882
17883 #ifdef SWIGRUNTIME_DEBUG
17884 printf("SWIG_InitializeModule: type %lu %s\n", (unsigned long)i, swig_module.type_initial[i]->name);
17885 #endif
17886
17887 /* if there is another module already loaded */
17888 if (swig_module.next != &swig_module) {
17889 type = SWIG_MangledTypeQueryModule(swig_module.next, &swig_module, swig_module.type_initial[i]->name);
17890 }
17891 if (type) {
17892 /* Overwrite clientdata field */
17893 #ifdef SWIGRUNTIME_DEBUG
17894 printf("SWIG_InitializeModule: found type %s\n", type->name);
17895 #endif
17896 if (swig_module.type_initial[i]->clientdata) {
17897 type->clientdata = swig_module.type_initial[i]->clientdata;
17898 #ifdef SWIGRUNTIME_DEBUG
17899 printf("SWIG_InitializeModule: found and overwrite type %s \n", type->name);
17900 #endif
17901 }
17902 } else {
17903 type = swig_module.type_initial[i];
17904 }
17905
17906 /* Insert casting types */
17907 cast = swig_module.cast_initial[i];
17908 while (cast->type) {
17909 /* Don't need to add information already in the list */
17910 ret = 0;
17911 #ifdef SWIGRUNTIME_DEBUG
17912 printf("SWIG_InitializeModule: look cast %s\n", cast->type->name);
17913 #endif
17914 if (swig_module.next != &swig_module) {
17915 ret = SWIG_MangledTypeQueryModule(swig_module.next, &swig_module, cast->type->name);
17916 #ifdef SWIGRUNTIME_DEBUG
17917 if (ret) printf("SWIG_InitializeModule: found cast %s\n", ret->name);
17918 #endif
17919 }
17920 if (ret) {
17921 if (type == swig_module.type_initial[i]) {
17922 #ifdef SWIGRUNTIME_DEBUG
17923 printf("SWIG_InitializeModule: skip old type %s\n", ret->name);
17924 #endif
17925 cast->type = ret;
17926 ret = 0;
17927 } else {
17928 /* Check for casting already in the list */
17929 swig_cast_info *ocast = SWIG_TypeCheck(ret->name, type);
17930 #ifdef SWIGRUNTIME_DEBUG
17931 if (ocast) printf("SWIG_InitializeModule: skip old cast %s\n", ret->name);
17932 #endif
17933 if (!ocast) ret = 0;
17934 }
17935 }
17936
17937 if (!ret) {
17938 #ifdef SWIGRUNTIME_DEBUG
17939 printf("SWIG_InitializeModule: adding cast %s\n", cast->type->name);
17940 #endif
17941 if (type->cast) {
17942 type->cast->prev = cast;
17943 cast->next = type->cast;
17944 }
17945 type->cast = cast;
17946 }
17947 cast++;
17948 }
17949 /* Set entry in modules->types array equal to the type */
17950 swig_module.types[i] = type;
17951 }
17952 swig_module.types[i] = 0;
17953
17954 #ifdef SWIGRUNTIME_DEBUG
17955 printf("**** SWIG_InitializeModule: Cast List ******\n");
17956 for (i = 0; i < swig_module.size; ++i) {
17957 int j = 0;
17958 swig_cast_info *cast = swig_module.cast_initial[i];
17959 printf("SWIG_InitializeModule: type %lu %s\n", (unsigned long)i, swig_module.type_initial[i]->name);
17960 while (cast->type) {
17961 printf("SWIG_InitializeModule: cast type %s\n", cast->type->name);
17962 cast++;
17963 ++j;
17964 }
17965 printf("---- Total casts: %d\n",j);
17966 }
17967 printf("**** SWIG_InitializeModule: Cast List ******\n");
17968 #endif
17969 }
17970
17971 /* This function will propagate the clientdata field of type to
17972 * any new swig_type_info structures that have been added into the list
17973 * of equivalent types. It is like calling
17974 * SWIG_TypeClientData(type, clientdata) a second time.
17975 */
17976 SWIGRUNTIME void
SWIG_PropagateClientData(void)17977 SWIG_PropagateClientData(void) {
17978 size_t i;
17979 swig_cast_info *equiv;
17980 static int init_run = 0;
17981
17982 if (init_run) return;
17983 init_run = 1;
17984
17985 for (i = 0; i < swig_module.size; i++) {
17986 if (swig_module.types[i]->clientdata) {
17987 equiv = swig_module.types[i]->cast;
17988 while (equiv) {
17989 if (!equiv->converter) {
17990 if (equiv->type && !equiv->type->clientdata)
17991 SWIG_TypeClientData(equiv->type, swig_module.types[i]->clientdata);
17992 }
17993 equiv = equiv->next;
17994 }
17995 }
17996 }
17997 }
17998
17999 #ifdef __cplusplus
18000 #if 0
18001 {
18002 /* c-mode */
18003 #endif
18004 }
18005 #endif
18006
18007
18008
18009 #if defined(__cplusplus) && ! defined(XSPROTO)
18010 extern "C"
18011 #endif
18012
XS(SWIG_init)18013 XS(SWIG_init) {
18014 dXSARGS;
18015 int i;
18016 (void)items;
18017
18018 SWIG_InitializeModule(0);
18019
18020 /* Install commands */
18021 for (i = 0; swig_commands[i].name; i++) {
18022 /* Casts only needed for Perl < 5.10. */
18023 #ifdef __cplusplus
18024 newXS(const_cast<char*>(swig_commands[i].name), swig_commands[i].wrapper, const_cast<char*>(__FILE__));
18025 #else
18026 newXS((char*)swig_commands[i].name, swig_commands[i].wrapper, (char*)__FILE__);
18027 #endif
18028 }
18029
18030 /* Install variables */
18031 for (i = 0; swig_variables[i].name; i++) {
18032 SV *sv;
18033 sv = get_sv(swig_variables[i].name, TRUE | 0x2 | GV_ADDMULTI);
18034 if (swig_variables[i].type) {
18035 SWIG_MakePtr(sv,(void *)1, *swig_variables[i].type,0);
18036 } else {
18037 sv_setiv(sv,(IV) 0);
18038 }
18039 swig_create_magic(sv, swig_variables[i].name, swig_variables[i].set, swig_variables[i].get);
18040 }
18041
18042 /* Install constant */
18043 for (i = 0; swig_constants[i].type; i++) {
18044 SV *sv;
18045 sv = get_sv(swig_constants[i].name, TRUE | 0x2 | GV_ADDMULTI);
18046 switch(swig_constants[i].type) {
18047 case SWIG_INT:
18048 sv_setiv(sv, (IV) swig_constants[i].lvalue);
18049 break;
18050 case SWIG_FLOAT:
18051 sv_setnv(sv, (double) swig_constants[i].dvalue);
18052 break;
18053 case SWIG_STRING:
18054 sv_setpv(sv, (const char *) swig_constants[i].pvalue);
18055 break;
18056 case SWIG_POINTER:
18057 SWIG_MakePtr(sv, swig_constants[i].pvalue, *(swig_constants[i].ptype),0);
18058 break;
18059 case SWIG_BINARY:
18060 SWIG_MakePackedObj(sv, swig_constants[i].pvalue, swig_constants[i].lvalue, *(swig_constants[i].ptype));
18061 break;
18062 default:
18063 break;
18064 }
18065 SvREADONLY_on(sv);
18066 }
18067
18068 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
18069 SV *sv = get_sv((char*) SWIG_prefix "GSL_VERSION", TRUE | 0x2 | GV_ADDMULTI);
18070 sv_setsv(sv, SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(2.7)));
18071 SvREADONLY_on(sv);
18072 } while(0) /*@SWIG@*/;
18073 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
18074 SV *sv = get_sv((char*) SWIG_prefix "GSL_MAJOR_VERSION", TRUE | 0x2 | GV_ADDMULTI);
18075 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(2)));
18076 SvREADONLY_on(sv);
18077 } while(0) /*@SWIG@*/;
18078 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
18079 SV *sv = get_sv((char*) SWIG_prefix "GSL_MINOR_VERSION", TRUE | 0x2 | GV_ADDMULTI);
18080 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(7)));
18081 SvREADONLY_on(sv);
18082 } while(0) /*@SWIG@*/;
18083 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
18084 SV *sv = get_sv((char*) SWIG_prefix "GSL_POSZERO", TRUE | 0x2 | GV_ADDMULTI);
18085 sv_setsv(sv, SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)((+0.0))));
18086 SvREADONLY_on(sv);
18087 } while(0) /*@SWIG@*/;
18088 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
18089 SV *sv = get_sv((char*) SWIG_prefix "GSL_NEGZERO", TRUE | 0x2 | GV_ADDMULTI);
18090 sv_setsv(sv, SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)((-0.0))));
18091 SvREADONLY_on(sv);
18092 } while(0) /*@SWIG@*/;
18093 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
18094 SV *sv = get_sv((char*) SWIG_prefix "GSL_SUCCESS", TRUE | 0x2 | GV_ADDMULTI);
18095 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_SUCCESS)));
18096 SvREADONLY_on(sv);
18097 } while(0) /*@SWIG@*/;
18098 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
18099 SV *sv = get_sv((char*) SWIG_prefix "GSL_FAILURE", TRUE | 0x2 | GV_ADDMULTI);
18100 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_FAILURE)));
18101 SvREADONLY_on(sv);
18102 } while(0) /*@SWIG@*/;
18103 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
18104 SV *sv = get_sv((char*) SWIG_prefix "GSL_CONTINUE", TRUE | 0x2 | GV_ADDMULTI);
18105 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_CONTINUE)));
18106 SvREADONLY_on(sv);
18107 } while(0) /*@SWIG@*/;
18108 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
18109 SV *sv = get_sv((char*) SWIG_prefix "GSL_EDOM", TRUE | 0x2 | GV_ADDMULTI);
18110 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EDOM)));
18111 SvREADONLY_on(sv);
18112 } while(0) /*@SWIG@*/;
18113 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
18114 SV *sv = get_sv((char*) SWIG_prefix "GSL_ERANGE", TRUE | 0x2 | GV_ADDMULTI);
18115 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ERANGE)));
18116 SvREADONLY_on(sv);
18117 } while(0) /*@SWIG@*/;
18118 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
18119 SV *sv = get_sv((char*) SWIG_prefix "GSL_EFAULT", TRUE | 0x2 | GV_ADDMULTI);
18120 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EFAULT)));
18121 SvREADONLY_on(sv);
18122 } while(0) /*@SWIG@*/;
18123 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
18124 SV *sv = get_sv((char*) SWIG_prefix "GSL_EINVAL", TRUE | 0x2 | GV_ADDMULTI);
18125 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EINVAL)));
18126 SvREADONLY_on(sv);
18127 } while(0) /*@SWIG@*/;
18128 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
18129 SV *sv = get_sv((char*) SWIG_prefix "GSL_EFAILED", TRUE | 0x2 | GV_ADDMULTI);
18130 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EFAILED)));
18131 SvREADONLY_on(sv);
18132 } while(0) /*@SWIG@*/;
18133 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
18134 SV *sv = get_sv((char*) SWIG_prefix "GSL_EFACTOR", TRUE | 0x2 | GV_ADDMULTI);
18135 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EFACTOR)));
18136 SvREADONLY_on(sv);
18137 } while(0) /*@SWIG@*/;
18138 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
18139 SV *sv = get_sv((char*) SWIG_prefix "GSL_ESANITY", TRUE | 0x2 | GV_ADDMULTI);
18140 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ESANITY)));
18141 SvREADONLY_on(sv);
18142 } while(0) /*@SWIG@*/;
18143 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
18144 SV *sv = get_sv((char*) SWIG_prefix "GSL_ENOMEM", TRUE | 0x2 | GV_ADDMULTI);
18145 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ENOMEM)));
18146 SvREADONLY_on(sv);
18147 } while(0) /*@SWIG@*/;
18148 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
18149 SV *sv = get_sv((char*) SWIG_prefix "GSL_EBADFUNC", TRUE | 0x2 | GV_ADDMULTI);
18150 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EBADFUNC)));
18151 SvREADONLY_on(sv);
18152 } while(0) /*@SWIG@*/;
18153 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
18154 SV *sv = get_sv((char*) SWIG_prefix "GSL_ERUNAWAY", TRUE | 0x2 | GV_ADDMULTI);
18155 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ERUNAWAY)));
18156 SvREADONLY_on(sv);
18157 } while(0) /*@SWIG@*/;
18158 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
18159 SV *sv = get_sv((char*) SWIG_prefix "GSL_EMAXITER", TRUE | 0x2 | GV_ADDMULTI);
18160 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EMAXITER)));
18161 SvREADONLY_on(sv);
18162 } while(0) /*@SWIG@*/;
18163 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
18164 SV *sv = get_sv((char*) SWIG_prefix "GSL_EZERODIV", TRUE | 0x2 | GV_ADDMULTI);
18165 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EZERODIV)));
18166 SvREADONLY_on(sv);
18167 } while(0) /*@SWIG@*/;
18168 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
18169 SV *sv = get_sv((char*) SWIG_prefix "GSL_EBADTOL", TRUE | 0x2 | GV_ADDMULTI);
18170 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EBADTOL)));
18171 SvREADONLY_on(sv);
18172 } while(0) /*@SWIG@*/;
18173 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
18174 SV *sv = get_sv((char*) SWIG_prefix "GSL_ETOL", TRUE | 0x2 | GV_ADDMULTI);
18175 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ETOL)));
18176 SvREADONLY_on(sv);
18177 } while(0) /*@SWIG@*/;
18178 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
18179 SV *sv = get_sv((char*) SWIG_prefix "GSL_EUNDRFLW", TRUE | 0x2 | GV_ADDMULTI);
18180 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EUNDRFLW)));
18181 SvREADONLY_on(sv);
18182 } while(0) /*@SWIG@*/;
18183 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
18184 SV *sv = get_sv((char*) SWIG_prefix "GSL_EOVRFLW", TRUE | 0x2 | GV_ADDMULTI);
18185 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EOVRFLW)));
18186 SvREADONLY_on(sv);
18187 } while(0) /*@SWIG@*/;
18188 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
18189 SV *sv = get_sv((char*) SWIG_prefix "GSL_ELOSS", TRUE | 0x2 | GV_ADDMULTI);
18190 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ELOSS)));
18191 SvREADONLY_on(sv);
18192 } while(0) /*@SWIG@*/;
18193 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
18194 SV *sv = get_sv((char*) SWIG_prefix "GSL_EROUND", TRUE | 0x2 | GV_ADDMULTI);
18195 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EROUND)));
18196 SvREADONLY_on(sv);
18197 } while(0) /*@SWIG@*/;
18198 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
18199 SV *sv = get_sv((char*) SWIG_prefix "GSL_EBADLEN", TRUE | 0x2 | GV_ADDMULTI);
18200 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EBADLEN)));
18201 SvREADONLY_on(sv);
18202 } while(0) /*@SWIG@*/;
18203 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
18204 SV *sv = get_sv((char*) SWIG_prefix "GSL_ENOTSQR", TRUE | 0x2 | GV_ADDMULTI);
18205 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ENOTSQR)));
18206 SvREADONLY_on(sv);
18207 } while(0) /*@SWIG@*/;
18208 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
18209 SV *sv = get_sv((char*) SWIG_prefix "GSL_ESING", TRUE | 0x2 | GV_ADDMULTI);
18210 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ESING)));
18211 SvREADONLY_on(sv);
18212 } while(0) /*@SWIG@*/;
18213 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
18214 SV *sv = get_sv((char*) SWIG_prefix "GSL_EDIVERGE", TRUE | 0x2 | GV_ADDMULTI);
18215 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EDIVERGE)));
18216 SvREADONLY_on(sv);
18217 } while(0) /*@SWIG@*/;
18218 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
18219 SV *sv = get_sv((char*) SWIG_prefix "GSL_EUNSUP", TRUE | 0x2 | GV_ADDMULTI);
18220 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EUNSUP)));
18221 SvREADONLY_on(sv);
18222 } while(0) /*@SWIG@*/;
18223 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
18224 SV *sv = get_sv((char*) SWIG_prefix "GSL_EUNIMPL", TRUE | 0x2 | GV_ADDMULTI);
18225 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EUNIMPL)));
18226 SvREADONLY_on(sv);
18227 } while(0) /*@SWIG@*/;
18228 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
18229 SV *sv = get_sv((char*) SWIG_prefix "GSL_ECACHE", TRUE | 0x2 | GV_ADDMULTI);
18230 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ECACHE)));
18231 SvREADONLY_on(sv);
18232 } while(0) /*@SWIG@*/;
18233 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
18234 SV *sv = get_sv((char*) SWIG_prefix "GSL_ETABLE", TRUE | 0x2 | GV_ADDMULTI);
18235 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ETABLE)));
18236 SvREADONLY_on(sv);
18237 } while(0) /*@SWIG@*/;
18238 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
18239 SV *sv = get_sv((char*) SWIG_prefix "GSL_ENOPROG", TRUE | 0x2 | GV_ADDMULTI);
18240 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ENOPROG)));
18241 SvREADONLY_on(sv);
18242 } while(0) /*@SWIG@*/;
18243 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
18244 SV *sv = get_sv((char*) SWIG_prefix "GSL_ENOPROGJ", TRUE | 0x2 | GV_ADDMULTI);
18245 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ENOPROGJ)));
18246 SvREADONLY_on(sv);
18247 } while(0) /*@SWIG@*/;
18248 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
18249 SV *sv = get_sv((char*) SWIG_prefix "GSL_ETOLF", TRUE | 0x2 | GV_ADDMULTI);
18250 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ETOLF)));
18251 SvREADONLY_on(sv);
18252 } while(0) /*@SWIG@*/;
18253 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
18254 SV *sv = get_sv((char*) SWIG_prefix "GSL_ETOLX", TRUE | 0x2 | GV_ADDMULTI);
18255 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ETOLX)));
18256 SvREADONLY_on(sv);
18257 } while(0) /*@SWIG@*/;
18258 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
18259 SV *sv = get_sv((char*) SWIG_prefix "GSL_ETOLG", TRUE | 0x2 | GV_ADDMULTI);
18260 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ETOLG)));
18261 SvREADONLY_on(sv);
18262 } while(0) /*@SWIG@*/;
18263 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
18264 SV *sv = get_sv((char*) SWIG_prefix "GSL_EOF", TRUE | 0x2 | GV_ADDMULTI);
18265 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EOF)));
18266 SvREADONLY_on(sv);
18267 } while(0) /*@SWIG@*/;
18268 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
18269 SV *sv = get_sv((char*) SWIG_prefix "GSL_LINALG_MOD_NONE", TRUE | 0x2 | GV_ADDMULTI);
18270 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_LINALG_MOD_NONE)));
18271 SvREADONLY_on(sv);
18272 } while(0) /*@SWIG@*/;
18273 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
18274 SV *sv = get_sv((char*) SWIG_prefix "GSL_LINALG_MOD_TRANSPOSE", TRUE | 0x2 | GV_ADDMULTI);
18275 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_LINALG_MOD_TRANSPOSE)));
18276 SvREADONLY_on(sv);
18277 } while(0) /*@SWIG@*/;
18278 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
18279 SV *sv = get_sv((char*) SWIG_prefix "GSL_LINALG_MOD_CONJUGATE", TRUE | 0x2 | GV_ADDMULTI);
18280 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_LINALG_MOD_CONJUGATE)));
18281 SvREADONLY_on(sv);
18282 } while(0) /*@SWIG@*/;
18283 SWIG_TypeClientData(SWIGTYPE_p_gsl_permutation_struct, (void*) "Math::GSL::Linalg::gsl_permutation_struct");
18284 SWIG_TypeClientData(SWIGTYPE_p_gsl_complex, (void*) "Math::GSL::Linalg::gsl_complex");
18285 SWIG_TypeClientData(SWIGTYPE_p_gsl_complex_long_double, (void*) "Math::GSL::Linalg::gsl_complex_long_double");
18286 SWIG_TypeClientData(SWIGTYPE_p_gsl_complex_float, (void*) "Math::GSL::Linalg::gsl_complex_float");
18287 ST(0) = &PL_sv_yes;
18288 XSRETURN(1);
18289 }
18290
18291