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_int swig_types[19]
1539 #define SWIGTYPE_p_long_double swig_types[20]
1540 #define SWIGTYPE_p_size_t swig_types[21]
1541 static swig_type_info *swig_types[23];
1542 static swig_module_info swig_module = {swig_types, 22, 0, 0, 0, 0};
1543 #define SWIG_TypeQuery(name) SWIG_TypeQueryModule(&swig_module, &swig_module, name)
1544 #define SWIG_MangledTypeQuery(name) SWIG_MangledTypeQueryModule(&swig_module, &swig_module, name)
1545
1546 /* -------- TYPES TABLE (END) -------- */
1547
1548 #define SWIG_init boot_Math__GSL__Linalg
1549
1550 #define SWIG_name "Math::GSL::Linalgc::boot_Math__GSL__Linalg"
1551 #define SWIG_prefix "Math::GSL::Linalgc::"
1552
1553 #define SWIGVERSION 0x040001
1554 #define SWIG_VERSION SWIGVERSION
1555
1556
1557 #define SWIG_as_voidptr(a) (void *)((const void *)(a))
1558 #define SWIG_as_voidptrptr(a) ((void)SWIG_as_voidptr(*a),(void**)(a))
1559
1560
1561 #ifdef __cplusplus
1562 extern "C"
1563 #endif
1564 #ifndef PERL_OBJECT
1565 #ifndef MULTIPLICITY
1566 SWIGEXPORT void SWIG_init (CV* cv);
1567 #else
1568 SWIGEXPORT void SWIG_init (pTHXo_ CV* cv);
1569 #endif
1570 #else
1571 SWIGEXPORT void SWIG_init (CV *cv, CPerlObj *);
1572 #endif
1573
1574
1575 SWIGINTERNINLINE SV *
SWIG_PERL_DECL_ARGS_1(double value)1576 SWIG_From_double SWIG_PERL_DECL_ARGS_1(double value)
1577 {
1578 return sv_2mortal(newSVnv(value));
1579 }
1580
1581
1582 SWIGINTERNINLINE SV *
SWIG_PERL_DECL_ARGS_1(long value)1583 SWIG_From_long SWIG_PERL_DECL_ARGS_1(long value)
1584 {
1585 SV *sv;
1586 if (IVSIZE >= sizeof(value) || (value >= IV_MIN && value <= IV_MAX))
1587 sv = newSViv(value);
1588 else
1589 sv = newSVpvf("%ld", value);
1590 return sv_2mortal(sv);
1591 }
1592
1593
1594 SWIGINTERNINLINE SV *
SWIG_PERL_DECL_ARGS_1(int value)1595 SWIG_From_int SWIG_PERL_DECL_ARGS_1(int value)
1596 {
1597 return SWIG_From_long SWIG_PERL_CALL_ARGS_1(value);
1598 }
1599
1600
1601 SWIGINTERN swig_type_info*
SWIG_pchar_descriptor(void)1602 SWIG_pchar_descriptor(void)
1603 {
1604 static int init = 0;
1605 static swig_type_info* info = 0;
1606 if (!init) {
1607 info = SWIG_TypeQuery("_p_char");
1608 init = 1;
1609 }
1610 return info;
1611 }
1612
1613
1614 SWIGINTERN int
SWIG_AsCharPtrAndSize(SV * obj,char ** cptr,size_t * psize,int * alloc)1615 SWIG_AsCharPtrAndSize(SV *obj, char** cptr, size_t* psize, int *alloc)
1616 {
1617 if (SvMAGICAL(obj)) {
1618 SV *tmp = sv_newmortal();
1619 SvSetSV(tmp, obj);
1620 obj = tmp;
1621 }
1622 if (SvPOK(obj)) {
1623 STRLEN len = 0;
1624 char *cstr = SvPV(obj, len);
1625 size_t size = len + 1;
1626 if (cptr) {
1627 if (alloc) {
1628 if (*alloc == SWIG_NEWOBJ) {
1629 *cptr = (char *)memcpy(malloc((size)*sizeof(char)), cstr, sizeof(char)*(size));
1630 } else {
1631 *cptr = cstr;
1632 *alloc = SWIG_OLDOBJ;
1633 }
1634 }
1635 }
1636 if (psize) *psize = size;
1637 return SWIG_OK;
1638 } else {
1639 swig_type_info* pchar_descriptor = SWIG_pchar_descriptor();
1640 if (pchar_descriptor) {
1641 char* vptr = 0;
1642 if (SWIG_ConvertPtr(obj, (void**)&vptr, pchar_descriptor, 0) == SWIG_OK) {
1643 if (cptr) *cptr = vptr;
1644 if (psize) *psize = vptr ? (strlen(vptr) + 1) : 0;
1645 if (alloc) *alloc = SWIG_OLDOBJ;
1646 return SWIG_OK;
1647 }
1648 }
1649 }
1650 return SWIG_TypeError;
1651 }
1652
1653
1654
1655
1656
1657 #include <limits.h>
1658 #if !defined(SWIG_NO_LLONG_MAX)
1659 # if !defined(LLONG_MAX) && defined(__GNUC__) && defined (__LONG_LONG_MAX__)
1660 # define LLONG_MAX __LONG_LONG_MAX__
1661 # define LLONG_MIN (-LLONG_MAX - 1LL)
1662 # define ULLONG_MAX (LLONG_MAX * 2ULL + 1ULL)
1663 # endif
1664 #endif
1665
1666
1667 #include <stdlib.h>
1668 #ifdef _MSC_VER
1669 # ifndef strtoull
1670 # define strtoull _strtoui64
1671 # endif
1672 # ifndef strtoll
1673 # define strtoll _strtoi64
1674 # endif
1675 #endif
1676
1677
1678 SWIGINTERN int
SWIG_PERL_DECL_ARGS_2(SV * obj,double * val)1679 SWIG_AsVal_double SWIG_PERL_DECL_ARGS_2(SV *obj, double *val)
1680 {
1681 if (SvNIOK(obj)) {
1682 if (val) *val = SvNV(obj);
1683 return SWIG_OK;
1684 } else if (SvIOK(obj)) {
1685 if (val) *val = (double) SvIV(obj);
1686 return SWIG_AddCast(SWIG_OK);
1687 } else {
1688 const char *nptr = SvPV_nolen(obj);
1689 if (nptr) {
1690 char *endptr;
1691 double v;
1692 errno = 0;
1693 v = strtod(nptr, &endptr);
1694 if (errno == ERANGE) {
1695 errno = 0;
1696 return SWIG_OverflowError;
1697 } else {
1698 if (*endptr == '\0') {
1699 if (val) *val = v;
1700 return SWIG_Str2NumCast(SWIG_OK);
1701 }
1702 }
1703 }
1704 }
1705 return SWIG_TypeError;
1706 }
1707
1708
1709 #include <float.h>
1710
1711
1712 #include <math.h>
1713
1714
1715 SWIGINTERNINLINE int
SWIG_CanCastAsInteger(double * d,double min,double max)1716 SWIG_CanCastAsInteger(double *d, double min, double max) {
1717 double x = *d;
1718 if ((min <= x && x <= max)) {
1719 double fx = floor(x);
1720 double cx = ceil(x);
1721 double rd = ((x - fx) < 0.5) ? fx : cx; /* simple rint */
1722 if ((errno == EDOM) || (errno == ERANGE)) {
1723 errno = 0;
1724 } else {
1725 double summ, reps, diff;
1726 if (rd < x) {
1727 diff = x - rd;
1728 } else if (rd > x) {
1729 diff = rd - x;
1730 } else {
1731 return 1;
1732 }
1733 summ = rd + x;
1734 reps = diff/summ;
1735 if (reps < 8*DBL_EPSILON) {
1736 *d = rd;
1737 return 1;
1738 }
1739 }
1740 }
1741 return 0;
1742 }
1743
1744
1745 SWIGINTERN int
SWIG_PERL_DECL_ARGS_2(SV * obj,long * val)1746 SWIG_AsVal_long SWIG_PERL_DECL_ARGS_2(SV *obj, long* val)
1747 {
1748 if (SvUOK(obj)) {
1749 UV v = SvUV(obj);
1750 if (UVSIZE < sizeof(*val) || v <= LONG_MAX) {
1751 if (val) *val = v;
1752 return SWIG_OK;
1753 }
1754 return SWIG_OverflowError;
1755 } else if (SvIOK(obj)) {
1756 IV v = SvIV(obj);
1757 if (IVSIZE <= sizeof(*val) || (v >= LONG_MIN && v <= LONG_MAX)) {
1758 if(val) *val = v;
1759 return SWIG_OK;
1760 }
1761 return SWIG_OverflowError;
1762 } else {
1763 int dispatch = 0;
1764 const char *nptr = SvPV_nolen(obj);
1765 if (nptr) {
1766 char *endptr;
1767 long v;
1768 errno = 0;
1769 v = strtol(nptr, &endptr,0);
1770 if (errno == ERANGE) {
1771 errno = 0;
1772 return SWIG_OverflowError;
1773 } else {
1774 if (*endptr == '\0') {
1775 if (val) *val = v;
1776 return SWIG_Str2NumCast(SWIG_OK);
1777 }
1778 }
1779 }
1780 if (!dispatch) {
1781 double d;
1782 int res = SWIG_AddCast(SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(obj,&d));
1783 if (SWIG_IsOK(res) && SWIG_CanCastAsInteger(&d, LONG_MIN, LONG_MAX)) {
1784 if (val) *val = (long)(d);
1785 return res;
1786 }
1787 }
1788 }
1789 return SWIG_TypeError;
1790 }
1791
1792
1793 SWIGINTERN int
SWIG_PERL_DECL_ARGS_2(SV * obj,int * val)1794 SWIG_AsVal_int SWIG_PERL_DECL_ARGS_2(SV * obj, int *val)
1795 {
1796 long v;
1797 int res = SWIG_AsVal_long SWIG_PERL_CALL_ARGS_2(obj, &v);
1798 if (SWIG_IsOK(res)) {
1799 if ((v < INT_MIN || v > INT_MAX)) {
1800 return SWIG_OverflowError;
1801 } else {
1802 if (val) *val = (int)(v);
1803 }
1804 }
1805 return res;
1806 }
1807
1808
1809 SWIGINTERNINLINE SV *
SWIG_FromCharPtrAndSize(const char * carray,size_t size)1810 SWIG_FromCharPtrAndSize(const char* carray, size_t size)
1811 {
1812 SV *obj = sv_newmortal();
1813 if (carray) {
1814 sv_setpvn(obj, carray, size);
1815 } else {
1816 sv_setsv(obj, &PL_sv_undef);
1817 }
1818 return obj;
1819 }
1820
1821
1822 SWIGINTERNINLINE SV *
SWIG_FromCharPtr(const char * cptr)1823 SWIG_FromCharPtr(const char *cptr)
1824 {
1825 return SWIG_FromCharPtrAndSize(cptr, (cptr ? strlen(cptr) : 0));
1826 }
1827
1828
1829 #include "gsl/gsl_nan.h"
1830 #include "gsl/gsl_errno.h"
1831 #include "gsl/gsl_math.h"
1832 #include "gsl/gsl_monte.h"
1833
1834
1835 struct perl_array {
1836 I32 len;
1837 AV *array;
1838 };
1839
1840
1841
1842 enum awType { awDouble, awFloat, awInt, awUnsigned };
1843
1844 typedef struct {
1845 I32 size;
1846 enum awType type;
1847 void * data;
1848 } array_wrapper;
1849
array_wrapper_alloc(int numelem,enum awType type)1850 array_wrapper * array_wrapper_alloc(int numelem, enum awType type){
1851 array_wrapper * rv = malloc(sizeof(array_wrapper));
1852
1853 if (rv == NULL)
1854 croak("array_wrapper_alloc: can't malloc wrapper\n");
1855
1856 switch (type){
1857 case awDouble:
1858 rv->data = malloc(sizeof(double) * numelem);
1859 break;
1860 case awFloat:
1861 rv->data = malloc(sizeof(float) * numelem);
1862 break;
1863 case awInt:
1864 rv->data = malloc(sizeof(int) * numelem);
1865 break;
1866 case awUnsigned:
1867 rv->data = malloc(sizeof(unsigned int) * numelem);
1868 break;
1869 default:
1870 croak("array_wrapper_alloc: type should be awDouble, awFloat, awInt, or awUnsigned");
1871 }
1872
1873 if (rv->data == NULL)
1874 croak("array_wrapper_alloc: can't malloc data");
1875
1876 rv->size = numelem;
1877 rv->type = type;
1878 return rv;
1879 }
1880
array_wrapper_free(array_wrapper * daw)1881 void array_wrapper_free(array_wrapper * daw){
1882 free(daw->data);
1883 free(daw);
1884 }
1885
1886
1887 /* structure to hold required information while the gsl function call
1888 for each callback
1889 */
1890 struct gsl_function_perl {
1891 gsl_function C_gsl_function;
1892 SV * function;
1893 SV * params;
1894 };
1895
1896 struct gsl_function_fdf_perl {
1897 gsl_function_fdf C_gsl_function_fdf;
1898 SV * f;
1899 SV * df;
1900 SV * fdf;
1901 SV * params;
1902 };
1903
1904 struct gsl_monte_function_perl {
1905 gsl_monte_function C_gsl_monte_function;
1906 SV * f;
1907 SV * dim;
1908 SV * params;
1909 };
1910
gsl_function_perl_free(struct gsl_function_perl * perl_f)1911 void gsl_function_perl_free(struct gsl_function_perl * perl_f){
1912 if (perl_f != NULL) {
1913 SvREFCNT_dec(perl_f->function);
1914 SvREFCNT_dec(perl_f->params);
1915 Safefree(perl_f);
1916 }
1917 }
1918
gsl_function_fdf_perl_free(struct gsl_function_fdf_perl * perl_fdf)1919 void gsl_function_fdf_perl_free(struct gsl_function_fdf_perl * perl_fdf){
1920 if (perl_fdf != NULL) {
1921 SvREFCNT_dec(perl_fdf->f);
1922 SvREFCNT_dec(perl_fdf->df);
1923 SvREFCNT_dec(perl_fdf->fdf);
1924 SvREFCNT_dec(perl_fdf->params);
1925 Safefree(perl_fdf);
1926 }
1927 }
1928
1929 /* These functions (C callbacks) calls the perl callbacks.
1930 Info for perl callback can be found using the 'void*params' parameter
1931 */
call_gsl_function_x_params(SV * function,double x,SV * params)1932 double call_gsl_function_x_params(SV* function, double x, SV *params){
1933 unsigned int count;
1934 double y;
1935 dSP;
1936
1937 //fprintf(stderr, "LOOKUP CALLBACK\n");
1938 ENTER;
1939 SAVETMPS;
1940
1941 PUSHMARK(SP);
1942 XPUSHs(sv_2mortal(newSVnv((double)x)));
1943 XPUSHs(params);
1944 PUTBACK; /* make local stack pointer global */
1945
1946 count = call_sv(function, G_SCALAR);
1947 SPAGAIN;
1948
1949 if (count != 1)
1950 croak("Expected to call subroutine in scalar context!");
1951
1952 y = POPn;
1953
1954 PUTBACK; /* make local stack pointer global */
1955 FREETMPS;
1956 LEAVE;
1957
1958 return y;
1959 }
1960
call_gsl_function(double x,void * params)1961 double call_gsl_function(double x , void *params){
1962 struct gsl_function_perl *F=(struct gsl_function_perl*)params;
1963 return call_gsl_function_x_params( F->function, x, F->params );
1964 }
1965
call_gsl_function_fdf_f(double x,void * params)1966 double call_gsl_function_fdf_f(double x , void *params){
1967 struct gsl_function_fdf_perl *F=(struct gsl_function_fdf_perl*)params;
1968 return call_gsl_function_x_params( F->f, x, F->params );
1969 }
1970
call_gsl_function_fdf_df(double x,void * params)1971 double call_gsl_function_fdf_df(double x , void *params){
1972 struct gsl_function_fdf_perl *F=(struct gsl_function_fdf_perl*)params;
1973 return call_gsl_function_x_params( F->df, x, F->params );
1974 }
1975
call_gsl_function_fdf_fdf(double x,void * params,double * f,double * df)1976 void call_gsl_function_fdf_fdf(double x , void *params, double *f, double *df ){
1977 struct gsl_function_fdf_perl *F=(struct gsl_function_fdf_perl*)params;
1978
1979 dSP;
1980
1981 ENTER;
1982 SAVETMPS;
1983
1984 PUSHMARK(SP);
1985 EXTEND(SP, 2);
1986 PUSHs(sv_2mortal(newSVnv((double)x)));
1987 PUSHs(F->params);
1988 PUTBACK; /* make local stack pointer global */
1989
1990 {
1991 unsigned int count = call_sv(F->fdf, G_ARRAY);
1992 SPAGAIN;
1993
1994 if (count != 2)
1995 croak( "Expected two return values, got %d", count );
1996 }
1997
1998 *df = POPn;
1999 *f = POPn;
2000
2001 PUTBACK; /* make local stack pointer global */
2002 FREETMPS;
2003 LEAVE;
2004 }
2005
call_gsl_monte_function(double * x_array,size_t dim,void * params)2006 double call_gsl_monte_function(double *x_array , size_t dim, void *params){
2007 struct gsl_monte_function_perl *F=(struct gsl_monte_function_perl*)params;
2008 unsigned int count;
2009 unsigned int i;
2010 AV* perl_array;
2011 double y;
2012 dSP;
2013
2014 //fprintf(stderr, "LOOKUP CALLBACK\n");
2015 ENTER;
2016 SAVETMPS;
2017
2018 PUSHMARK(SP);
2019 perl_array=newAV();
2020 sv_2mortal((SV*)perl_array);
2021 XPUSHs(sv_2mortal(newRV((SV *)perl_array)));
2022 for(i=0; i<dim; i++) {
2023 /* no mortal : it is referenced by the array */
2024 av_push(perl_array, newSVnv(x_array[i]));
2025 }
2026 XPUSHs(sv_2mortal(newSViv(dim)));
2027 XPUSHs(F->params);
2028 PUTBACK; /* make local stack pointer global */
2029
2030 count = call_sv(F->f, G_SCALAR);
2031 SPAGAIN;
2032
2033 if (count != 1)
2034 croak("Expected to call subroutine in scalar context!");
2035
2036 y = POPn;
2037
2038 PUTBACK; /* make local stack pointer global */
2039 FREETMPS;
2040 LEAVE;
2041
2042 return y;
2043 }
2044
2045
gsl_function_fdf_extract(char * param_name,HV * hash,SV * func[])2046 void gsl_function_fdf_extract( char* param_name, HV* hash, SV* func[] ) {
2047 static const char *keys[3] = { "f", "df", "fdf" };
2048
2049 int ikey;
2050
2051 for ( ikey = 0 ; ikey < 3 ; ++ikey ) {
2052 func[ikey] = 0;
2053 const char* key = keys[ikey];
2054 /* it just so happens that strlen(keys[ikey]) == ikey + 1 */
2055 SV** pp_sv = hv_fetch( hash, key, ikey+1, 0 );
2056 SV* function;
2057
2058 if ( !pp_sv )
2059 croak("Math::GSL : %s: missing key %s!", param_name, key);
2060
2061 function = *pp_sv;
2062
2063 if ( SvPOK(function) || ( SvROK( function ) && SvTYPE(SvRV(function)) == SVt_PVCV ) ) {
2064 /* hold on to SV after the enclosing hash goes away */
2065 SvREFCNT_inc( function );
2066 func[ikey] = function;
2067 }
2068 else {
2069 croak( "Math::GSL : %s: key %s is not a reference to code!", param_name, key);
2070 }
2071 }
2072 }
2073
2074
2075
2076 #include "gsl/gsl_inline.h"
2077 #include "gsl/gsl_linalg.h"
2078 #include "gsl/gsl_permutation.h"
2079 #include "gsl/gsl_complex.h"
2080 #include "gsl/gsl_complex_math.h"
2081
2082
2083 SWIGINTERN int
SWIG_PERL_DECL_ARGS_2(SV * obj,unsigned long * val)2084 SWIG_AsVal_unsigned_SS_long SWIG_PERL_DECL_ARGS_2(SV *obj, unsigned long *val)
2085 {
2086 if (SvUOK(obj)) {
2087 UV v = SvUV(obj);
2088 if (UVSIZE <= sizeof(*val) || v <= ULONG_MAX) {
2089 if (val) *val = v;
2090 return SWIG_OK;
2091 }
2092 return SWIG_OverflowError;
2093 } else if (SvIOK(obj)) {
2094 IV v = SvIV(obj);
2095 if (v >= 0 && (IVSIZE <= sizeof(*val) || v <= ULONG_MAX)) {
2096 if (val) *val = v;
2097 return SWIG_OK;
2098 }
2099 return SWIG_OverflowError;
2100 } else {
2101 int dispatch = 0;
2102 const char *nptr = SvPV_nolen(obj);
2103 if (nptr) {
2104 char *endptr;
2105 unsigned long v;
2106 errno = 0;
2107 v = strtoul(nptr, &endptr,0);
2108 if (errno == ERANGE) {
2109 errno = 0;
2110 return SWIG_OverflowError;
2111 } else {
2112 if (*endptr == '\0') {
2113 if (val) *val = v;
2114 return SWIG_Str2NumCast(SWIG_OK);
2115 }
2116 }
2117 }
2118 if (!dispatch) {
2119 double d;
2120 int res = SWIG_AddCast(SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(obj,&d));
2121 if (SWIG_IsOK(res) && SWIG_CanCastAsInteger(&d, 0, ULONG_MAX)) {
2122 if (val) *val = (unsigned long)(d);
2123 return res;
2124 }
2125 }
2126 }
2127 return SWIG_TypeError;
2128 }
2129
2130
2131 #if defined(LLONG_MAX) && !defined(SWIG_LONG_LONG_AVAILABLE)
2132 # define SWIG_LONG_LONG_AVAILABLE
2133 #endif
2134
2135
2136 #ifdef SWIG_LONG_LONG_AVAILABLE
2137 SWIGINTERN int
SWIG_PERL_DECL_ARGS_2(SV * obj,unsigned long long * val)2138 SWIG_AsVal_unsigned_SS_long_SS_long SWIG_PERL_DECL_ARGS_2(SV *obj, unsigned long long *val)
2139 {
2140 if (SvUOK(obj)) {
2141 /* pretty sure this should be conditional on
2142 * (UVSIZE <= sizeof(*val) || v <= ULLONG_MAX) */
2143 if (val) *val = SvUV(obj);
2144 return SWIG_OK;
2145 } else if (SvIOK(obj)) {
2146 IV v = SvIV(obj);
2147 if (v >= 0 && (IVSIZE <= sizeof(*val) || v <= ULLONG_MAX)) {
2148 if (val) *val = v;
2149 return SWIG_OK;
2150 } else {
2151 return SWIG_OverflowError;
2152 }
2153 } else {
2154 int dispatch = 0;
2155 const char *nptr = SvPV_nolen(obj);
2156 if (nptr) {
2157 char *endptr;
2158 unsigned long long v;
2159 errno = 0;
2160 v = strtoull(nptr, &endptr,0);
2161 if (errno == ERANGE) {
2162 errno = 0;
2163 return SWIG_OverflowError;
2164 } else {
2165 if (*endptr == '\0') {
2166 if (val) *val = v;
2167 return SWIG_Str2NumCast(SWIG_OK);
2168 }
2169 }
2170 }
2171 if (!dispatch) {
2172 const double mant_max = 1LL << DBL_MANT_DIG;
2173 double d;
2174 int res = SWIG_AddCast(SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(obj,&d));
2175 if (SWIG_IsOK(res) && SWIG_CanCastAsInteger(&d, 0, mant_max)) {
2176 if (val) *val = (unsigned long long)(d);
2177 return res;
2178 }
2179 }
2180 }
2181 return SWIG_TypeError;
2182 }
2183 #endif
2184
2185
2186 SWIGINTERNINLINE int
SWIG_PERL_DECL_ARGS_2(SV * obj,size_t * val)2187 SWIG_AsVal_size_t SWIG_PERL_DECL_ARGS_2(SV * obj, size_t *val)
2188 {
2189 int res = SWIG_TypeError;
2190 #ifdef SWIG_LONG_LONG_AVAILABLE
2191 if (sizeof(size_t) <= sizeof(unsigned long)) {
2192 #endif
2193 unsigned long v;
2194 res = SWIG_AsVal_unsigned_SS_long SWIG_PERL_CALL_ARGS_2(obj, val ? &v : 0);
2195 if (SWIG_IsOK(res) && val) *val = (size_t)(v);
2196 #ifdef SWIG_LONG_LONG_AVAILABLE
2197 } else if (sizeof(size_t) <= sizeof(unsigned long long)) {
2198 unsigned long long v;
2199 res = SWIG_AsVal_unsigned_SS_long_SS_long SWIG_PERL_CALL_ARGS_2(obj, val ? &v : 0);
2200 if (SWIG_IsOK(res) && val) *val = (size_t)(v);
2201 }
2202 #endif
2203 return res;
2204 }
2205
2206
2207 SWIGINTERNINLINE SV *
SWIG_PERL_DECL_ARGS_1(unsigned long value)2208 SWIG_From_unsigned_SS_long SWIG_PERL_DECL_ARGS_1(unsigned long value)
2209 {
2210 SV *sv;
2211 if (UVSIZE >= sizeof(value) || value <= UV_MAX)
2212 sv = newSVuv(value);
2213 else
2214 sv = newSVpvf("%lu", value);
2215 return sv_2mortal(sv);
2216 }
2217
2218
2219 #include <stdio.h>
2220 #if (defined(_MSC_VER) && (_MSC_VER < 1900)) || defined(__BORLANDC__) || defined(_WATCOM)
2221 # ifndef snprintf
2222 # define snprintf _snprintf
2223 # endif
2224 #endif
2225
2226
2227 #ifdef SWIG_LONG_LONG_AVAILABLE
2228 SWIGINTERNINLINE SV *
SWIG_PERL_DECL_ARGS_1(unsigned long long value)2229 SWIG_From_unsigned_SS_long_SS_long SWIG_PERL_DECL_ARGS_1(unsigned long long value)
2230 {
2231 SV *sv;
2232 if (UVSIZE >= sizeof(value) || value <= UV_MAX)
2233 sv = newSVuv((UV)(value));
2234 else {
2235 //sv = newSVpvf("%llu", value); doesn't work in non 64bit Perl
2236 char temp[256];
2237 sprintf(temp, "%llu", value);
2238 sv = newSVpv(temp, 0);
2239 }
2240 return sv_2mortal(sv);
2241 }
2242 #endif
2243
2244
2245 SWIGINTERNINLINE SV *
SWIG_PERL_DECL_ARGS_1(size_t value)2246 SWIG_From_size_t SWIG_PERL_DECL_ARGS_1(size_t value)
2247 {
2248 #ifdef SWIG_LONG_LONG_AVAILABLE
2249 if (sizeof(size_t) <= sizeof(unsigned long)) {
2250 #endif
2251 return SWIG_From_unsigned_SS_long SWIG_PERL_CALL_ARGS_1((unsigned long)(value));
2252 #ifdef SWIG_LONG_LONG_AVAILABLE
2253 } else {
2254 /* assume sizeof(size_t) <= sizeof(unsigned long long) */
2255 return SWIG_From_unsigned_SS_long_SS_long SWIG_PERL_CALL_ARGS_1((unsigned long long)(value));
2256 }
2257 #endif
2258 }
2259
2260 #ifdef __cplusplus
2261 extern "C" {
2262 #endif
2263
2264 #ifdef PERL_OBJECT
2265 #define MAGIC_CLASS _wrap_Math__GSL__Linalg_var::
2266 class _wrap_Math__GSL__Linalg_var : public CPerlObj {
2267 public:
2268 #else
2269 #define MAGIC_CLASS
2270 #endif
swig_magic_readonly(pTHX_ SV * SWIGUNUSEDPARM (sv),MAGIC * SWIGUNUSEDPARM (mg))2271 SWIGCLASS_STATIC int swig_magic_readonly(pTHX_ SV *SWIGUNUSEDPARM(sv), MAGIC *SWIGUNUSEDPARM(mg)) {
2272 MAGIC_PPERL
2273 croak("Value is read-only.");
2274 return 0;
2275 }
2276
2277
2278 #ifdef PERL_OBJECT
2279 };
2280 #endif
2281
2282 #ifdef __cplusplus
2283 }
2284 #endif
2285
2286 #ifdef __cplusplus
2287 extern "C" {
2288 #endif
XS(_wrap_gsl_error)2289 XS(_wrap_gsl_error) {
2290 {
2291 char *arg1 = (char *) 0 ;
2292 char *arg2 = (char *) 0 ;
2293 int arg3 ;
2294 int arg4 ;
2295 int res1 ;
2296 char *buf1 = 0 ;
2297 int alloc1 = 0 ;
2298 int res2 ;
2299 char *buf2 = 0 ;
2300 int alloc2 = 0 ;
2301 int val3 ;
2302 int ecode3 = 0 ;
2303 int val4 ;
2304 int ecode4 = 0 ;
2305 int argvi = 0;
2306 dXSARGS;
2307
2308 if ((items < 4) || (items > 4)) {
2309 SWIG_croak("Usage: gsl_error(reason,file,line,gsl_errno);");
2310 }
2311 res1 = SWIG_AsCharPtrAndSize(ST(0), &buf1, NULL, &alloc1);
2312 if (!SWIG_IsOK(res1)) {
2313 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_error" "', argument " "1"" of type '" "char const *""'");
2314 }
2315 arg1 = (char *)(buf1);
2316 res2 = SWIG_AsCharPtrAndSize(ST(1), &buf2, NULL, &alloc2);
2317 if (!SWIG_IsOK(res2)) {
2318 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_error" "', argument " "2"" of type '" "char const *""'");
2319 }
2320 arg2 = (char *)(buf2);
2321 ecode3 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
2322 if (!SWIG_IsOK(ecode3)) {
2323 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_error" "', argument " "3"" of type '" "int""'");
2324 }
2325 arg3 = (int)(val3);
2326 ecode4 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(3), &val4);
2327 if (!SWIG_IsOK(ecode4)) {
2328 SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "gsl_error" "', argument " "4"" of type '" "int""'");
2329 }
2330 arg4 = (int)(val4);
2331 gsl_error((char const *)arg1,(char const *)arg2,arg3,arg4);
2332 ST(argvi) = &PL_sv_undef;
2333 if (alloc1 == SWIG_NEWOBJ) free((char*)buf1);
2334 if (alloc2 == SWIG_NEWOBJ) free((char*)buf2);
2335
2336
2337 XSRETURN(argvi);
2338 fail:
2339 if (alloc1 == SWIG_NEWOBJ) free((char*)buf1);
2340 if (alloc2 == SWIG_NEWOBJ) free((char*)buf2);
2341
2342
2343 SWIG_croak_null();
2344 }
2345 }
2346
2347
XS(_wrap_gsl_stream_printf)2348 XS(_wrap_gsl_stream_printf) {
2349 {
2350 char *arg1 = (char *) 0 ;
2351 char *arg2 = (char *) 0 ;
2352 int arg3 ;
2353 char *arg4 = (char *) 0 ;
2354 int res1 ;
2355 char *buf1 = 0 ;
2356 int alloc1 = 0 ;
2357 int res2 ;
2358 char *buf2 = 0 ;
2359 int alloc2 = 0 ;
2360 int val3 ;
2361 int ecode3 = 0 ;
2362 int res4 ;
2363 char *buf4 = 0 ;
2364 int alloc4 = 0 ;
2365 int argvi = 0;
2366 dXSARGS;
2367
2368 if ((items < 4) || (items > 4)) {
2369 SWIG_croak("Usage: gsl_stream_printf(label,file,line,reason);");
2370 }
2371 res1 = SWIG_AsCharPtrAndSize(ST(0), &buf1, NULL, &alloc1);
2372 if (!SWIG_IsOK(res1)) {
2373 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_stream_printf" "', argument " "1"" of type '" "char const *""'");
2374 }
2375 arg1 = (char *)(buf1);
2376 res2 = SWIG_AsCharPtrAndSize(ST(1), &buf2, NULL, &alloc2);
2377 if (!SWIG_IsOK(res2)) {
2378 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_stream_printf" "', argument " "2"" of type '" "char const *""'");
2379 }
2380 arg2 = (char *)(buf2);
2381 ecode3 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
2382 if (!SWIG_IsOK(ecode3)) {
2383 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_stream_printf" "', argument " "3"" of type '" "int""'");
2384 }
2385 arg3 = (int)(val3);
2386 res4 = SWIG_AsCharPtrAndSize(ST(3), &buf4, NULL, &alloc4);
2387 if (!SWIG_IsOK(res4)) {
2388 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_stream_printf" "', argument " "4"" of type '" "char const *""'");
2389 }
2390 arg4 = (char *)(buf4);
2391 gsl_stream_printf((char const *)arg1,(char const *)arg2,arg3,(char const *)arg4);
2392 ST(argvi) = &PL_sv_undef;
2393 if (alloc1 == SWIG_NEWOBJ) free((char*)buf1);
2394 if (alloc2 == SWIG_NEWOBJ) free((char*)buf2);
2395
2396 if (alloc4 == SWIG_NEWOBJ) free((char*)buf4);
2397 XSRETURN(argvi);
2398 fail:
2399 if (alloc1 == SWIG_NEWOBJ) free((char*)buf1);
2400 if (alloc2 == SWIG_NEWOBJ) free((char*)buf2);
2401
2402 if (alloc4 == SWIG_NEWOBJ) free((char*)buf4);
2403 SWIG_croak_null();
2404 }
2405 }
2406
2407
XS(_wrap_gsl_strerror)2408 XS(_wrap_gsl_strerror) {
2409 {
2410 int arg1 ;
2411 int val1 ;
2412 int ecode1 = 0 ;
2413 int argvi = 0;
2414 char *result = 0 ;
2415 dXSARGS;
2416
2417 if ((items < 1) || (items > 1)) {
2418 SWIG_croak("Usage: gsl_strerror(gsl_errno);");
2419 }
2420 ecode1 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
2421 if (!SWIG_IsOK(ecode1)) {
2422 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_strerror" "', argument " "1"" of type '" "int""'");
2423 }
2424 arg1 = (int)(val1);
2425 result = (char *)gsl_strerror(arg1);
2426 ST(argvi) = SWIG_FromCharPtr((const char *)result); argvi++ ;
2427
2428 XSRETURN(argvi);
2429 fail:
2430
2431 SWIG_croak_null();
2432 }
2433 }
2434
2435
XS(_wrap_gsl_set_error_handler)2436 XS(_wrap_gsl_set_error_handler) {
2437 {
2438 gsl_error_handler_t *arg1 = (gsl_error_handler_t *) 0 ;
2439 int argvi = 0;
2440 gsl_error_handler_t *result = 0 ;
2441 dXSARGS;
2442
2443 if ((items < 1) || (items > 1)) {
2444 SWIG_croak("Usage: gsl_set_error_handler(new_handler);");
2445 }
2446 {
2447 int res = SWIG_ConvertFunctionPtr(ST(0), (void**)(&arg1), SWIGTYPE_p_f_p_q_const__char_p_q_const__char_int_int__void);
2448 if (!SWIG_IsOK(res)) {
2449 SWIG_exception_fail(SWIG_ArgError(res), "in method '" "gsl_set_error_handler" "', argument " "1"" of type '" "gsl_error_handler_t *""'");
2450 }
2451 }
2452 result = (gsl_error_handler_t *)gsl_set_error_handler(arg1);
2453 ST(argvi) = SWIG_NewFunctionPtrObj((void *)(result), SWIGTYPE_p_f_p_q_const__char_p_q_const__char_int_int__void); argvi++ ;
2454
2455 XSRETURN(argvi);
2456 fail:
2457
2458 SWIG_croak_null();
2459 }
2460 }
2461
2462
XS(_wrap_gsl_set_error_handler_off)2463 XS(_wrap_gsl_set_error_handler_off) {
2464 {
2465 int argvi = 0;
2466 gsl_error_handler_t *result = 0 ;
2467 dXSARGS;
2468
2469 if ((items < 0) || (items > 0)) {
2470 SWIG_croak("Usage: gsl_set_error_handler_off();");
2471 }
2472 result = (gsl_error_handler_t *)gsl_set_error_handler_off();
2473 ST(argvi) = SWIG_NewFunctionPtrObj((void *)(result), SWIGTYPE_p_f_p_q_const__char_p_q_const__char_int_int__void); argvi++ ;
2474 XSRETURN(argvi);
2475 fail:
2476 SWIG_croak_null();
2477 }
2478 }
2479
2480
XS(_wrap_gsl_set_stream_handler)2481 XS(_wrap_gsl_set_stream_handler) {
2482 {
2483 gsl_stream_handler_t *arg1 = (gsl_stream_handler_t *) 0 ;
2484 int argvi = 0;
2485 gsl_stream_handler_t *result = 0 ;
2486 dXSARGS;
2487
2488 if ((items < 1) || (items > 1)) {
2489 SWIG_croak("Usage: gsl_set_stream_handler(new_handler);");
2490 }
2491 {
2492 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);
2493 if (!SWIG_IsOK(res)) {
2494 SWIG_exception_fail(SWIG_ArgError(res), "in method '" "gsl_set_stream_handler" "', argument " "1"" of type '" "gsl_stream_handler_t *""'");
2495 }
2496 }
2497 result = (gsl_stream_handler_t *)gsl_set_stream_handler(arg1);
2498 ST(argvi) = SWIG_NewFunctionPtrObj((void *)(result), SWIGTYPE_p_f_p_q_const__char_p_q_const__char_int_p_q_const__char__void); argvi++ ;
2499
2500 XSRETURN(argvi);
2501 fail:
2502
2503 SWIG_croak_null();
2504 }
2505 }
2506
2507
XS(_wrap_gsl_set_stream)2508 XS(_wrap_gsl_set_stream) {
2509 {
2510 FILE *arg1 = (FILE *) 0 ;
2511 void *argp1 = 0 ;
2512 int res1 = 0 ;
2513 int argvi = 0;
2514 FILE *result = 0 ;
2515 dXSARGS;
2516
2517 if ((items < 1) || (items > 1)) {
2518 SWIG_croak("Usage: gsl_set_stream(new_stream);");
2519 }
2520 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_FILE, 0 | 0 );
2521 if (!SWIG_IsOK(res1)) {
2522 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_set_stream" "', argument " "1"" of type '" "FILE *""'");
2523 }
2524 arg1 = (FILE *)(argp1);
2525 result = (FILE *)gsl_set_stream(arg1);
2526 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_FILE, 0 | 0); argvi++ ;
2527
2528 XSRETURN(argvi);
2529 fail:
2530
2531 SWIG_croak_null();
2532 }
2533 }
2534
2535
XS(_wrap_gsl_linalg_matmult)2536 XS(_wrap_gsl_linalg_matmult) {
2537 {
2538 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
2539 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
2540 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
2541 void *argp1 = 0 ;
2542 int res1 = 0 ;
2543 void *argp2 = 0 ;
2544 int res2 = 0 ;
2545 void *argp3 = 0 ;
2546 int res3 = 0 ;
2547 int argvi = 0;
2548 int result;
2549 dXSARGS;
2550
2551 if ((items < 3) || (items > 3)) {
2552 SWIG_croak("Usage: gsl_linalg_matmult(A,B,C);");
2553 }
2554 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
2555 if (!SWIG_IsOK(res1)) {
2556 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_matmult" "', argument " "1"" of type '" "gsl_matrix const *""'");
2557 }
2558 arg1 = (gsl_matrix *)(argp1);
2559 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
2560 if (!SWIG_IsOK(res2)) {
2561 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_matmult" "', argument " "2"" of type '" "gsl_matrix const *""'");
2562 }
2563 arg2 = (gsl_matrix *)(argp2);
2564 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
2565 if (!SWIG_IsOK(res3)) {
2566 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_matmult" "', argument " "3"" of type '" "gsl_matrix *""'");
2567 }
2568 arg3 = (gsl_matrix *)(argp3);
2569 result = (int)gsl_linalg_matmult((gsl_matrix const *)arg1,(gsl_matrix const *)arg2,arg3);
2570 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
2571
2572
2573
2574 XSRETURN(argvi);
2575 fail:
2576
2577
2578
2579 SWIG_croak_null();
2580 }
2581 }
2582
2583
XS(_wrap_gsl_linalg_matmult_mod)2584 XS(_wrap_gsl_linalg_matmult_mod) {
2585 {
2586 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
2587 gsl_linalg_matrix_mod_t arg2 ;
2588 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
2589 gsl_linalg_matrix_mod_t arg4 ;
2590 gsl_matrix *arg5 = (gsl_matrix *) 0 ;
2591 void *argp1 = 0 ;
2592 int res1 = 0 ;
2593 int val2 ;
2594 int ecode2 = 0 ;
2595 void *argp3 = 0 ;
2596 int res3 = 0 ;
2597 int val4 ;
2598 int ecode4 = 0 ;
2599 void *argp5 = 0 ;
2600 int res5 = 0 ;
2601 int argvi = 0;
2602 int result;
2603 dXSARGS;
2604
2605 if ((items < 5) || (items > 5)) {
2606 SWIG_croak("Usage: gsl_linalg_matmult_mod(A,modA,B,modB,C);");
2607 }
2608 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
2609 if (!SWIG_IsOK(res1)) {
2610 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_matmult_mod" "', argument " "1"" of type '" "gsl_matrix const *""'");
2611 }
2612 arg1 = (gsl_matrix *)(argp1);
2613 ecode2 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
2614 if (!SWIG_IsOK(ecode2)) {
2615 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_linalg_matmult_mod" "', argument " "2"" of type '" "gsl_linalg_matrix_mod_t""'");
2616 }
2617 arg2 = (gsl_linalg_matrix_mod_t)(val2);
2618 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
2619 if (!SWIG_IsOK(res3)) {
2620 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_matmult_mod" "', argument " "3"" of type '" "gsl_matrix const *""'");
2621 }
2622 arg3 = (gsl_matrix *)(argp3);
2623 ecode4 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(3), &val4);
2624 if (!SWIG_IsOK(ecode4)) {
2625 SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "gsl_linalg_matmult_mod" "', argument " "4"" of type '" "gsl_linalg_matrix_mod_t""'");
2626 }
2627 arg4 = (gsl_linalg_matrix_mod_t)(val4);
2628 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_matrix, 0 | 0 );
2629 if (!SWIG_IsOK(res5)) {
2630 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_matmult_mod" "', argument " "5"" of type '" "gsl_matrix *""'");
2631 }
2632 arg5 = (gsl_matrix *)(argp5);
2633 result = (int)gsl_linalg_matmult_mod((gsl_matrix const *)arg1,arg2,(gsl_matrix const *)arg3,arg4,arg5);
2634 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
2635
2636
2637
2638
2639
2640 XSRETURN(argvi);
2641 fail:
2642
2643
2644
2645
2646
2647 SWIG_croak_null();
2648 }
2649 }
2650
2651
XS(_wrap_gsl_linalg_exponential_ss)2652 XS(_wrap_gsl_linalg_exponential_ss) {
2653 {
2654 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
2655 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
2656 gsl_mode_t arg3 ;
2657 void *argp1 = 0 ;
2658 int res1 = 0 ;
2659 void *argp2 = 0 ;
2660 int res2 = 0 ;
2661 void *argp3 ;
2662 int res3 = 0 ;
2663 int argvi = 0;
2664 int result;
2665 dXSARGS;
2666
2667 if ((items < 3) || (items > 3)) {
2668 SWIG_croak("Usage: gsl_linalg_exponential_ss(A,eA,mode);");
2669 }
2670 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
2671 if (!SWIG_IsOK(res1)) {
2672 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_exponential_ss" "', argument " "1"" of type '" "gsl_matrix const *""'");
2673 }
2674 arg1 = (gsl_matrix *)(argp1);
2675 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
2676 if (!SWIG_IsOK(res2)) {
2677 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_exponential_ss" "', argument " "2"" of type '" "gsl_matrix *""'");
2678 }
2679 arg2 = (gsl_matrix *)(argp2);
2680 {
2681 res3 = SWIG_ConvertPtr(ST(2), &argp3, SWIGTYPE_p_gsl_mode_t, 0 );
2682 if (!SWIG_IsOK(res3)) {
2683 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_exponential_ss" "', argument " "3"" of type '" "gsl_mode_t""'");
2684 }
2685 if (!argp3) {
2686 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_linalg_exponential_ss" "', argument " "3"" of type '" "gsl_mode_t""'");
2687 } else {
2688 arg3 = *((gsl_mode_t *)(argp3));
2689 }
2690 }
2691 result = (int)gsl_linalg_exponential_ss((gsl_matrix const *)arg1,arg2,arg3);
2692 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
2693
2694
2695 XSRETURN(argvi);
2696 fail:
2697
2698
2699 SWIG_croak_null();
2700 }
2701 }
2702
2703
XS(_wrap_gsl_linalg_householder_transform)2704 XS(_wrap_gsl_linalg_householder_transform) {
2705 {
2706 gsl_vector *arg1 = (gsl_vector *) 0 ;
2707 void *argp1 = 0 ;
2708 int res1 = 0 ;
2709 int argvi = 0;
2710 double result;
2711 dXSARGS;
2712
2713 if ((items < 1) || (items > 1)) {
2714 SWIG_croak("Usage: gsl_linalg_householder_transform(v);");
2715 }
2716 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
2717 if (!SWIG_IsOK(res1)) {
2718 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_householder_transform" "', argument " "1"" of type '" "gsl_vector *""'");
2719 }
2720 arg1 = (gsl_vector *)(argp1);
2721 result = (double)gsl_linalg_householder_transform(arg1);
2722 ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(result)); argvi++ ;
2723
2724 XSRETURN(argvi);
2725 fail:
2726
2727 SWIG_croak_null();
2728 }
2729 }
2730
2731
XS(_wrap_gsl_linalg_complex_householder_transform)2732 XS(_wrap_gsl_linalg_complex_householder_transform) {
2733 {
2734 gsl_vector_complex *arg1 = (gsl_vector_complex *) 0 ;
2735 void *argp1 = 0 ;
2736 int res1 = 0 ;
2737 int argvi = 0;
2738 gsl_complex result;
2739 dXSARGS;
2740
2741 if ((items < 1) || (items > 1)) {
2742 SWIG_croak("Usage: gsl_linalg_complex_householder_transform(v);");
2743 }
2744 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
2745 if (!SWIG_IsOK(res1)) {
2746 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_complex_householder_transform" "', argument " "1"" of type '" "gsl_vector_complex *""'");
2747 }
2748 arg1 = (gsl_vector_complex *)(argp1);
2749 result = gsl_linalg_complex_householder_transform(arg1);
2750 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++ ;
2751
2752 XSRETURN(argvi);
2753 fail:
2754
2755 SWIG_croak_null();
2756 }
2757 }
2758
2759
XS(_wrap_gsl_linalg_householder_hm)2760 XS(_wrap_gsl_linalg_householder_hm) {
2761 {
2762 double arg1 ;
2763 gsl_vector *arg2 = (gsl_vector *) 0 ;
2764 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
2765 double val1 ;
2766 int ecode1 = 0 ;
2767 void *argp2 = 0 ;
2768 int res2 = 0 ;
2769 void *argp3 = 0 ;
2770 int res3 = 0 ;
2771 int argvi = 0;
2772 int result;
2773 dXSARGS;
2774
2775 if ((items < 3) || (items > 3)) {
2776 SWIG_croak("Usage: gsl_linalg_householder_hm(tau,v,A);");
2777 }
2778 ecode1 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
2779 if (!SWIG_IsOK(ecode1)) {
2780 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_linalg_householder_hm" "', argument " "1"" of type '" "double""'");
2781 }
2782 arg1 = (double)(val1);
2783 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
2784 if (!SWIG_IsOK(res2)) {
2785 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_householder_hm" "', argument " "2"" of type '" "gsl_vector const *""'");
2786 }
2787 arg2 = (gsl_vector *)(argp2);
2788 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
2789 if (!SWIG_IsOK(res3)) {
2790 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_householder_hm" "', argument " "3"" of type '" "gsl_matrix *""'");
2791 }
2792 arg3 = (gsl_matrix *)(argp3);
2793 result = (int)gsl_linalg_householder_hm(arg1,(gsl_vector const *)arg2,arg3);
2794 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
2795
2796
2797
2798 XSRETURN(argvi);
2799 fail:
2800
2801
2802
2803 SWIG_croak_null();
2804 }
2805 }
2806
2807
XS(_wrap_gsl_linalg_householder_mh)2808 XS(_wrap_gsl_linalg_householder_mh) {
2809 {
2810 double arg1 ;
2811 gsl_vector *arg2 = (gsl_vector *) 0 ;
2812 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
2813 double val1 ;
2814 int ecode1 = 0 ;
2815 void *argp2 = 0 ;
2816 int res2 = 0 ;
2817 void *argp3 = 0 ;
2818 int res3 = 0 ;
2819 int argvi = 0;
2820 int result;
2821 dXSARGS;
2822
2823 if ((items < 3) || (items > 3)) {
2824 SWIG_croak("Usage: gsl_linalg_householder_mh(tau,v,A);");
2825 }
2826 ecode1 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
2827 if (!SWIG_IsOK(ecode1)) {
2828 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_linalg_householder_mh" "', argument " "1"" of type '" "double""'");
2829 }
2830 arg1 = (double)(val1);
2831 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
2832 if (!SWIG_IsOK(res2)) {
2833 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_householder_mh" "', argument " "2"" of type '" "gsl_vector const *""'");
2834 }
2835 arg2 = (gsl_vector *)(argp2);
2836 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
2837 if (!SWIG_IsOK(res3)) {
2838 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_householder_mh" "', argument " "3"" of type '" "gsl_matrix *""'");
2839 }
2840 arg3 = (gsl_matrix *)(argp3);
2841 result = (int)gsl_linalg_householder_mh(arg1,(gsl_vector const *)arg2,arg3);
2842 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
2843
2844
2845
2846 XSRETURN(argvi);
2847 fail:
2848
2849
2850
2851 SWIG_croak_null();
2852 }
2853 }
2854
2855
XS(_wrap_gsl_linalg_householder_hv)2856 XS(_wrap_gsl_linalg_householder_hv) {
2857 {
2858 double arg1 ;
2859 gsl_vector *arg2 = (gsl_vector *) 0 ;
2860 gsl_vector *arg3 = (gsl_vector *) 0 ;
2861 double val1 ;
2862 int ecode1 = 0 ;
2863 void *argp2 = 0 ;
2864 int res2 = 0 ;
2865 void *argp3 = 0 ;
2866 int res3 = 0 ;
2867 int argvi = 0;
2868 int result;
2869 dXSARGS;
2870
2871 if ((items < 3) || (items > 3)) {
2872 SWIG_croak("Usage: gsl_linalg_householder_hv(tau,v,w);");
2873 }
2874 ecode1 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
2875 if (!SWIG_IsOK(ecode1)) {
2876 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_linalg_householder_hv" "', argument " "1"" of type '" "double""'");
2877 }
2878 arg1 = (double)(val1);
2879 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
2880 if (!SWIG_IsOK(res2)) {
2881 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_householder_hv" "', argument " "2"" of type '" "gsl_vector const *""'");
2882 }
2883 arg2 = (gsl_vector *)(argp2);
2884 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
2885 if (!SWIG_IsOK(res3)) {
2886 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_householder_hv" "', argument " "3"" of type '" "gsl_vector *""'");
2887 }
2888 arg3 = (gsl_vector *)(argp3);
2889 result = (int)gsl_linalg_householder_hv(arg1,(gsl_vector const *)arg2,arg3);
2890 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
2891
2892
2893
2894 XSRETURN(argvi);
2895 fail:
2896
2897
2898
2899 SWIG_croak_null();
2900 }
2901 }
2902
2903
XS(_wrap_gsl_linalg_householder_left)2904 XS(_wrap_gsl_linalg_householder_left) {
2905 {
2906 double arg1 ;
2907 gsl_vector *arg2 = (gsl_vector *) 0 ;
2908 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
2909 gsl_vector *arg4 = (gsl_vector *) 0 ;
2910 double val1 ;
2911 int ecode1 = 0 ;
2912 void *argp2 = 0 ;
2913 int res2 = 0 ;
2914 void *argp3 = 0 ;
2915 int res3 = 0 ;
2916 void *argp4 = 0 ;
2917 int res4 = 0 ;
2918 int argvi = 0;
2919 int result;
2920 dXSARGS;
2921
2922 if ((items < 4) || (items > 4)) {
2923 SWIG_croak("Usage: gsl_linalg_householder_left(tau,v,A,work);");
2924 }
2925 ecode1 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
2926 if (!SWIG_IsOK(ecode1)) {
2927 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_linalg_householder_left" "', argument " "1"" of type '" "double""'");
2928 }
2929 arg1 = (double)(val1);
2930 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
2931 if (!SWIG_IsOK(res2)) {
2932 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_householder_left" "', argument " "2"" of type '" "gsl_vector const *""'");
2933 }
2934 arg2 = (gsl_vector *)(argp2);
2935 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
2936 if (!SWIG_IsOK(res3)) {
2937 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_householder_left" "', argument " "3"" of type '" "gsl_matrix *""'");
2938 }
2939 arg3 = (gsl_matrix *)(argp3);
2940 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
2941 if (!SWIG_IsOK(res4)) {
2942 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_householder_left" "', argument " "4"" of type '" "gsl_vector *""'");
2943 }
2944 arg4 = (gsl_vector *)(argp4);
2945 result = (int)gsl_linalg_householder_left(arg1,(gsl_vector const *)arg2,arg3,arg4);
2946 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
2947
2948
2949
2950
2951 XSRETURN(argvi);
2952 fail:
2953
2954
2955
2956
2957 SWIG_croak_null();
2958 }
2959 }
2960
2961
XS(_wrap_gsl_linalg_householder_right)2962 XS(_wrap_gsl_linalg_householder_right) {
2963 {
2964 double arg1 ;
2965 gsl_vector *arg2 = (gsl_vector *) 0 ;
2966 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
2967 gsl_vector *arg4 = (gsl_vector *) 0 ;
2968 double val1 ;
2969 int ecode1 = 0 ;
2970 void *argp2 = 0 ;
2971 int res2 = 0 ;
2972 void *argp3 = 0 ;
2973 int res3 = 0 ;
2974 void *argp4 = 0 ;
2975 int res4 = 0 ;
2976 int argvi = 0;
2977 int result;
2978 dXSARGS;
2979
2980 if ((items < 4) || (items > 4)) {
2981 SWIG_croak("Usage: gsl_linalg_householder_right(tau,v,A,work);");
2982 }
2983 ecode1 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
2984 if (!SWIG_IsOK(ecode1)) {
2985 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_linalg_householder_right" "', argument " "1"" of type '" "double""'");
2986 }
2987 arg1 = (double)(val1);
2988 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
2989 if (!SWIG_IsOK(res2)) {
2990 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_householder_right" "', argument " "2"" of type '" "gsl_vector const *""'");
2991 }
2992 arg2 = (gsl_vector *)(argp2);
2993 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
2994 if (!SWIG_IsOK(res3)) {
2995 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_householder_right" "', argument " "3"" of type '" "gsl_matrix *""'");
2996 }
2997 arg3 = (gsl_matrix *)(argp3);
2998 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
2999 if (!SWIG_IsOK(res4)) {
3000 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_householder_right" "', argument " "4"" of type '" "gsl_vector *""'");
3001 }
3002 arg4 = (gsl_vector *)(argp4);
3003 result = (int)gsl_linalg_householder_right(arg1,(gsl_vector const *)arg2,arg3,arg4);
3004 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3005
3006
3007
3008
3009 XSRETURN(argvi);
3010 fail:
3011
3012
3013
3014
3015 SWIG_croak_null();
3016 }
3017 }
3018
3019
XS(_wrap_gsl_linalg_householder_hm1)3020 XS(_wrap_gsl_linalg_householder_hm1) {
3021 {
3022 double arg1 ;
3023 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
3024 double val1 ;
3025 int ecode1 = 0 ;
3026 void *argp2 = 0 ;
3027 int res2 = 0 ;
3028 int argvi = 0;
3029 int result;
3030 dXSARGS;
3031
3032 if ((items < 2) || (items > 2)) {
3033 SWIG_croak("Usage: gsl_linalg_householder_hm1(tau,A);");
3034 }
3035 ecode1 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
3036 if (!SWIG_IsOK(ecode1)) {
3037 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_linalg_householder_hm1" "', argument " "1"" of type '" "double""'");
3038 }
3039 arg1 = (double)(val1);
3040 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3041 if (!SWIG_IsOK(res2)) {
3042 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_householder_hm1" "', argument " "2"" of type '" "gsl_matrix *""'");
3043 }
3044 arg2 = (gsl_matrix *)(argp2);
3045 result = (int)gsl_linalg_householder_hm1(arg1,arg2);
3046 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3047
3048
3049 XSRETURN(argvi);
3050 fail:
3051
3052
3053 SWIG_croak_null();
3054 }
3055 }
3056
3057
XS(_wrap_gsl_linalg_complex_householder_hm)3058 XS(_wrap_gsl_linalg_complex_householder_hm) {
3059 {
3060 gsl_complex arg1 ;
3061 gsl_vector_complex *arg2 = (gsl_vector_complex *) 0 ;
3062 gsl_matrix_complex *arg3 = (gsl_matrix_complex *) 0 ;
3063 void *argp1 ;
3064 int res1 = 0 ;
3065 void *argp2 = 0 ;
3066 int res2 = 0 ;
3067 void *argp3 = 0 ;
3068 int res3 = 0 ;
3069 int argvi = 0;
3070 int result;
3071 dXSARGS;
3072
3073 if ((items < 3) || (items > 3)) {
3074 SWIG_croak("Usage: gsl_linalg_complex_householder_hm(tau,v,A);");
3075 }
3076 {
3077 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
3078 if (!SWIG_IsOK(res1)) {
3079 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_complex_householder_hm" "', argument " "1"" of type '" "gsl_complex""'");
3080 }
3081 if (!argp1) {
3082 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_linalg_complex_householder_hm" "', argument " "1"" of type '" "gsl_complex""'");
3083 } else {
3084 arg1 = *((gsl_complex *)(argp1));
3085 }
3086 }
3087 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
3088 if (!SWIG_IsOK(res2)) {
3089 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_complex_householder_hm" "', argument " "2"" of type '" "gsl_vector_complex const *""'");
3090 }
3091 arg2 = (gsl_vector_complex *)(argp2);
3092 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
3093 if (!SWIG_IsOK(res3)) {
3094 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_complex_householder_hm" "', argument " "3"" of type '" "gsl_matrix_complex *""'");
3095 }
3096 arg3 = (gsl_matrix_complex *)(argp3);
3097 result = (int)gsl_linalg_complex_householder_hm(arg1,(gsl_vector_complex const *)arg2,arg3);
3098 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3099
3100
3101 XSRETURN(argvi);
3102 fail:
3103
3104
3105 SWIG_croak_null();
3106 }
3107 }
3108
3109
XS(_wrap_gsl_linalg_complex_householder_mh)3110 XS(_wrap_gsl_linalg_complex_householder_mh) {
3111 {
3112 gsl_complex arg1 ;
3113 gsl_vector_complex *arg2 = (gsl_vector_complex *) 0 ;
3114 gsl_matrix_complex *arg3 = (gsl_matrix_complex *) 0 ;
3115 void *argp1 ;
3116 int res1 = 0 ;
3117 void *argp2 = 0 ;
3118 int res2 = 0 ;
3119 void *argp3 = 0 ;
3120 int res3 = 0 ;
3121 int argvi = 0;
3122 int result;
3123 dXSARGS;
3124
3125 if ((items < 3) || (items > 3)) {
3126 SWIG_croak("Usage: gsl_linalg_complex_householder_mh(tau,v,A);");
3127 }
3128 {
3129 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
3130 if (!SWIG_IsOK(res1)) {
3131 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_complex_householder_mh" "', argument " "1"" of type '" "gsl_complex""'");
3132 }
3133 if (!argp1) {
3134 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_linalg_complex_householder_mh" "', argument " "1"" of type '" "gsl_complex""'");
3135 } else {
3136 arg1 = *((gsl_complex *)(argp1));
3137 }
3138 }
3139 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
3140 if (!SWIG_IsOK(res2)) {
3141 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_complex_householder_mh" "', argument " "2"" of type '" "gsl_vector_complex const *""'");
3142 }
3143 arg2 = (gsl_vector_complex *)(argp2);
3144 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
3145 if (!SWIG_IsOK(res3)) {
3146 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_complex_householder_mh" "', argument " "3"" of type '" "gsl_matrix_complex *""'");
3147 }
3148 arg3 = (gsl_matrix_complex *)(argp3);
3149 result = (int)gsl_linalg_complex_householder_mh(arg1,(gsl_vector_complex const *)arg2,arg3);
3150 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3151
3152
3153 XSRETURN(argvi);
3154 fail:
3155
3156
3157 SWIG_croak_null();
3158 }
3159 }
3160
3161
XS(_wrap_gsl_linalg_complex_householder_hv)3162 XS(_wrap_gsl_linalg_complex_householder_hv) {
3163 {
3164 gsl_complex arg1 ;
3165 gsl_vector_complex *arg2 = (gsl_vector_complex *) 0 ;
3166 gsl_vector_complex *arg3 = (gsl_vector_complex *) 0 ;
3167 void *argp1 ;
3168 int res1 = 0 ;
3169 void *argp2 = 0 ;
3170 int res2 = 0 ;
3171 void *argp3 = 0 ;
3172 int res3 = 0 ;
3173 int argvi = 0;
3174 int result;
3175 dXSARGS;
3176
3177 if ((items < 3) || (items > 3)) {
3178 SWIG_croak("Usage: gsl_linalg_complex_householder_hv(tau,v,w);");
3179 }
3180 {
3181 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
3182 if (!SWIG_IsOK(res1)) {
3183 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_complex_householder_hv" "', argument " "1"" of type '" "gsl_complex""'");
3184 }
3185 if (!argp1) {
3186 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_linalg_complex_householder_hv" "', argument " "1"" of type '" "gsl_complex""'");
3187 } else {
3188 arg1 = *((gsl_complex *)(argp1));
3189 }
3190 }
3191 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
3192 if (!SWIG_IsOK(res2)) {
3193 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_complex_householder_hv" "', argument " "2"" of type '" "gsl_vector_complex const *""'");
3194 }
3195 arg2 = (gsl_vector_complex *)(argp2);
3196 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
3197 if (!SWIG_IsOK(res3)) {
3198 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_complex_householder_hv" "', argument " "3"" of type '" "gsl_vector_complex *""'");
3199 }
3200 arg3 = (gsl_vector_complex *)(argp3);
3201 result = (int)gsl_linalg_complex_householder_hv(arg1,(gsl_vector_complex const *)arg2,arg3);
3202 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3203
3204
3205 XSRETURN(argvi);
3206 fail:
3207
3208
3209 SWIG_croak_null();
3210 }
3211 }
3212
3213
XS(_wrap_gsl_linalg_complex_householder_left)3214 XS(_wrap_gsl_linalg_complex_householder_left) {
3215 {
3216 gsl_complex arg1 ;
3217 gsl_vector_complex *arg2 = (gsl_vector_complex *) 0 ;
3218 gsl_matrix_complex *arg3 = (gsl_matrix_complex *) 0 ;
3219 gsl_vector_complex *arg4 = (gsl_vector_complex *) 0 ;
3220 void *argp1 ;
3221 int res1 = 0 ;
3222 void *argp2 = 0 ;
3223 int res2 = 0 ;
3224 void *argp3 = 0 ;
3225 int res3 = 0 ;
3226 void *argp4 = 0 ;
3227 int res4 = 0 ;
3228 int argvi = 0;
3229 int result;
3230 dXSARGS;
3231
3232 if ((items < 4) || (items > 4)) {
3233 SWIG_croak("Usage: gsl_linalg_complex_householder_left(tau,v,A,work);");
3234 }
3235 {
3236 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
3237 if (!SWIG_IsOK(res1)) {
3238 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_complex_householder_left" "', argument " "1"" of type '" "gsl_complex const""'");
3239 }
3240 if (!argp1) {
3241 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_linalg_complex_householder_left" "', argument " "1"" of type '" "gsl_complex const""'");
3242 } else {
3243 arg1 = *((gsl_complex *)(argp1));
3244 }
3245 }
3246 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
3247 if (!SWIG_IsOK(res2)) {
3248 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_complex_householder_left" "', argument " "2"" of type '" "gsl_vector_complex const *""'");
3249 }
3250 arg2 = (gsl_vector_complex *)(argp2);
3251 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
3252 if (!SWIG_IsOK(res3)) {
3253 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_complex_householder_left" "', argument " "3"" of type '" "gsl_matrix_complex *""'");
3254 }
3255 arg3 = (gsl_matrix_complex *)(argp3);
3256 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
3257 if (!SWIG_IsOK(res4)) {
3258 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_complex_householder_left" "', argument " "4"" of type '" "gsl_vector_complex *""'");
3259 }
3260 arg4 = (gsl_vector_complex *)(argp4);
3261 result = (int)gsl_linalg_complex_householder_left(arg1,(gsl_vector_complex const *)arg2,arg3,arg4);
3262 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3263
3264
3265
3266 XSRETURN(argvi);
3267 fail:
3268
3269
3270
3271 SWIG_croak_null();
3272 }
3273 }
3274
3275
XS(_wrap_gsl_linalg_hessenberg_decomp)3276 XS(_wrap_gsl_linalg_hessenberg_decomp) {
3277 {
3278 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
3279 gsl_vector *arg2 = (gsl_vector *) 0 ;
3280 void *argp1 = 0 ;
3281 int res1 = 0 ;
3282 void *argp2 = 0 ;
3283 int res2 = 0 ;
3284 int argvi = 0;
3285 int result;
3286 dXSARGS;
3287
3288 if ((items < 2) || (items > 2)) {
3289 SWIG_croak("Usage: gsl_linalg_hessenberg_decomp(A,tau);");
3290 }
3291 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3292 if (!SWIG_IsOK(res1)) {
3293 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_hessenberg_decomp" "', argument " "1"" of type '" "gsl_matrix *""'");
3294 }
3295 arg1 = (gsl_matrix *)(argp1);
3296 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
3297 if (!SWIG_IsOK(res2)) {
3298 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_hessenberg_decomp" "', argument " "2"" of type '" "gsl_vector *""'");
3299 }
3300 arg2 = (gsl_vector *)(argp2);
3301 result = (int)gsl_linalg_hessenberg_decomp(arg1,arg2);
3302 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3303
3304
3305 XSRETURN(argvi);
3306 fail:
3307
3308
3309 SWIG_croak_null();
3310 }
3311 }
3312
3313
XS(_wrap_gsl_linalg_hessenberg_unpack)3314 XS(_wrap_gsl_linalg_hessenberg_unpack) {
3315 {
3316 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
3317 gsl_vector *arg2 = (gsl_vector *) 0 ;
3318 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
3319 void *argp1 = 0 ;
3320 int res1 = 0 ;
3321 void *argp2 = 0 ;
3322 int res2 = 0 ;
3323 void *argp3 = 0 ;
3324 int res3 = 0 ;
3325 int argvi = 0;
3326 int result;
3327 dXSARGS;
3328
3329 if ((items < 3) || (items > 3)) {
3330 SWIG_croak("Usage: gsl_linalg_hessenberg_unpack(H,tau,U);");
3331 }
3332 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3333 if (!SWIG_IsOK(res1)) {
3334 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_hessenberg_unpack" "', argument " "1"" of type '" "gsl_matrix *""'");
3335 }
3336 arg1 = (gsl_matrix *)(argp1);
3337 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
3338 if (!SWIG_IsOK(res2)) {
3339 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_hessenberg_unpack" "', argument " "2"" of type '" "gsl_vector *""'");
3340 }
3341 arg2 = (gsl_vector *)(argp2);
3342 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3343 if (!SWIG_IsOK(res3)) {
3344 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_hessenberg_unpack" "', argument " "3"" of type '" "gsl_matrix *""'");
3345 }
3346 arg3 = (gsl_matrix *)(argp3);
3347 result = (int)gsl_linalg_hessenberg_unpack(arg1,arg2,arg3);
3348 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3349
3350
3351
3352 XSRETURN(argvi);
3353 fail:
3354
3355
3356
3357 SWIG_croak_null();
3358 }
3359 }
3360
3361
XS(_wrap_gsl_linalg_hessenberg_unpack_accum)3362 XS(_wrap_gsl_linalg_hessenberg_unpack_accum) {
3363 {
3364 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
3365 gsl_vector *arg2 = (gsl_vector *) 0 ;
3366 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
3367 void *argp1 = 0 ;
3368 int res1 = 0 ;
3369 void *argp2 = 0 ;
3370 int res2 = 0 ;
3371 void *argp3 = 0 ;
3372 int res3 = 0 ;
3373 int argvi = 0;
3374 int result;
3375 dXSARGS;
3376
3377 if ((items < 3) || (items > 3)) {
3378 SWIG_croak("Usage: gsl_linalg_hessenberg_unpack_accum(H,tau,U);");
3379 }
3380 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3381 if (!SWIG_IsOK(res1)) {
3382 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_hessenberg_unpack_accum" "', argument " "1"" of type '" "gsl_matrix *""'");
3383 }
3384 arg1 = (gsl_matrix *)(argp1);
3385 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
3386 if (!SWIG_IsOK(res2)) {
3387 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_hessenberg_unpack_accum" "', argument " "2"" of type '" "gsl_vector *""'");
3388 }
3389 arg2 = (gsl_vector *)(argp2);
3390 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3391 if (!SWIG_IsOK(res3)) {
3392 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_hessenberg_unpack_accum" "', argument " "3"" of type '" "gsl_matrix *""'");
3393 }
3394 arg3 = (gsl_matrix *)(argp3);
3395 result = (int)gsl_linalg_hessenberg_unpack_accum(arg1,arg2,arg3);
3396 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3397
3398
3399
3400 XSRETURN(argvi);
3401 fail:
3402
3403
3404
3405 SWIG_croak_null();
3406 }
3407 }
3408
3409
XS(_wrap_gsl_linalg_hessenberg_set_zero)3410 XS(_wrap_gsl_linalg_hessenberg_set_zero) {
3411 {
3412 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
3413 void *argp1 = 0 ;
3414 int res1 = 0 ;
3415 int argvi = 0;
3416 int result;
3417 dXSARGS;
3418
3419 if ((items < 1) || (items > 1)) {
3420 SWIG_croak("Usage: gsl_linalg_hessenberg_set_zero(H);");
3421 }
3422 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3423 if (!SWIG_IsOK(res1)) {
3424 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_hessenberg_set_zero" "', argument " "1"" of type '" "gsl_matrix *""'");
3425 }
3426 arg1 = (gsl_matrix *)(argp1);
3427 result = (int)gsl_linalg_hessenberg_set_zero(arg1);
3428 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3429
3430 XSRETURN(argvi);
3431 fail:
3432
3433 SWIG_croak_null();
3434 }
3435 }
3436
3437
XS(_wrap_gsl_linalg_hessenberg_submatrix)3438 XS(_wrap_gsl_linalg_hessenberg_submatrix) {
3439 {
3440 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
3441 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
3442 size_t arg3 ;
3443 gsl_vector *arg4 = (gsl_vector *) 0 ;
3444 void *argp1 = 0 ;
3445 int res1 = 0 ;
3446 void *argp2 = 0 ;
3447 int res2 = 0 ;
3448 size_t val3 ;
3449 int ecode3 = 0 ;
3450 void *argp4 = 0 ;
3451 int res4 = 0 ;
3452 int argvi = 0;
3453 int result;
3454 dXSARGS;
3455
3456 if ((items < 4) || (items > 4)) {
3457 SWIG_croak("Usage: gsl_linalg_hessenberg_submatrix(M,A,top,tau);");
3458 }
3459 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3460 if (!SWIG_IsOK(res1)) {
3461 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_hessenberg_submatrix" "', argument " "1"" of type '" "gsl_matrix *""'");
3462 }
3463 arg1 = (gsl_matrix *)(argp1);
3464 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3465 if (!SWIG_IsOK(res2)) {
3466 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_hessenberg_submatrix" "', argument " "2"" of type '" "gsl_matrix *""'");
3467 }
3468 arg2 = (gsl_matrix *)(argp2);
3469 ecode3 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
3470 if (!SWIG_IsOK(ecode3)) {
3471 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_linalg_hessenberg_submatrix" "', argument " "3"" of type '" "size_t""'");
3472 }
3473 arg3 = (size_t)(val3);
3474 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
3475 if (!SWIG_IsOK(res4)) {
3476 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_hessenberg_submatrix" "', argument " "4"" of type '" "gsl_vector *""'");
3477 }
3478 arg4 = (gsl_vector *)(argp4);
3479 result = (int)gsl_linalg_hessenberg_submatrix(arg1,arg2,arg3,arg4);
3480 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3481
3482
3483
3484
3485 XSRETURN(argvi);
3486 fail:
3487
3488
3489
3490
3491 SWIG_croak_null();
3492 }
3493 }
3494
3495
XS(_wrap_gsl_linalg_hesstri_decomp)3496 XS(_wrap_gsl_linalg_hesstri_decomp) {
3497 {
3498 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
3499 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
3500 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
3501 gsl_matrix *arg4 = (gsl_matrix *) 0 ;
3502 gsl_vector *arg5 = (gsl_vector *) 0 ;
3503 void *argp1 = 0 ;
3504 int res1 = 0 ;
3505 void *argp2 = 0 ;
3506 int res2 = 0 ;
3507 void *argp3 = 0 ;
3508 int res3 = 0 ;
3509 void *argp4 = 0 ;
3510 int res4 = 0 ;
3511 void *argp5 = 0 ;
3512 int res5 = 0 ;
3513 int argvi = 0;
3514 int result;
3515 dXSARGS;
3516
3517 if ((items < 5) || (items > 5)) {
3518 SWIG_croak("Usage: gsl_linalg_hesstri_decomp(A,B,U,V,work);");
3519 }
3520 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3521 if (!SWIG_IsOK(res1)) {
3522 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_hesstri_decomp" "', argument " "1"" of type '" "gsl_matrix *""'");
3523 }
3524 arg1 = (gsl_matrix *)(argp1);
3525 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3526 if (!SWIG_IsOK(res2)) {
3527 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_hesstri_decomp" "', argument " "2"" of type '" "gsl_matrix *""'");
3528 }
3529 arg2 = (gsl_matrix *)(argp2);
3530 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3531 if (!SWIG_IsOK(res3)) {
3532 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_hesstri_decomp" "', argument " "3"" of type '" "gsl_matrix *""'");
3533 }
3534 arg3 = (gsl_matrix *)(argp3);
3535 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3536 if (!SWIG_IsOK(res4)) {
3537 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_hesstri_decomp" "', argument " "4"" of type '" "gsl_matrix *""'");
3538 }
3539 arg4 = (gsl_matrix *)(argp4);
3540 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
3541 if (!SWIG_IsOK(res5)) {
3542 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_hesstri_decomp" "', argument " "5"" of type '" "gsl_vector *""'");
3543 }
3544 arg5 = (gsl_vector *)(argp5);
3545 result = (int)gsl_linalg_hesstri_decomp(arg1,arg2,arg3,arg4,arg5);
3546 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3547
3548
3549
3550
3551
3552 XSRETURN(argvi);
3553 fail:
3554
3555
3556
3557
3558
3559 SWIG_croak_null();
3560 }
3561 }
3562
3563
XS(_wrap_gsl_linalg_SV_decomp)3564 XS(_wrap_gsl_linalg_SV_decomp) {
3565 {
3566 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
3567 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
3568 gsl_vector *arg3 = (gsl_vector *) 0 ;
3569 gsl_vector *arg4 = (gsl_vector *) 0 ;
3570 void *argp1 = 0 ;
3571 int res1 = 0 ;
3572 void *argp2 = 0 ;
3573 int res2 = 0 ;
3574 void *argp3 = 0 ;
3575 int res3 = 0 ;
3576 void *argp4 = 0 ;
3577 int res4 = 0 ;
3578 int argvi = 0;
3579 int result;
3580 dXSARGS;
3581
3582 if ((items < 4) || (items > 4)) {
3583 SWIG_croak("Usage: gsl_linalg_SV_decomp(A,V,S,work);");
3584 }
3585 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3586 if (!SWIG_IsOK(res1)) {
3587 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_SV_decomp" "', argument " "1"" of type '" "gsl_matrix *""'");
3588 }
3589 arg1 = (gsl_matrix *)(argp1);
3590 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3591 if (!SWIG_IsOK(res2)) {
3592 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_SV_decomp" "', argument " "2"" of type '" "gsl_matrix *""'");
3593 }
3594 arg2 = (gsl_matrix *)(argp2);
3595 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
3596 if (!SWIG_IsOK(res3)) {
3597 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_SV_decomp" "', argument " "3"" of type '" "gsl_vector *""'");
3598 }
3599 arg3 = (gsl_vector *)(argp3);
3600 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
3601 if (!SWIG_IsOK(res4)) {
3602 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_SV_decomp" "', argument " "4"" of type '" "gsl_vector *""'");
3603 }
3604 arg4 = (gsl_vector *)(argp4);
3605 result = (int)gsl_linalg_SV_decomp(arg1,arg2,arg3,arg4);
3606 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3607
3608
3609
3610
3611 XSRETURN(argvi);
3612 fail:
3613
3614
3615
3616
3617 SWIG_croak_null();
3618 }
3619 }
3620
3621
XS(_wrap_gsl_linalg_SV_decomp_mod)3622 XS(_wrap_gsl_linalg_SV_decomp_mod) {
3623 {
3624 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
3625 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
3626 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
3627 gsl_vector *arg4 = (gsl_vector *) 0 ;
3628 gsl_vector *arg5 = (gsl_vector *) 0 ;
3629 void *argp1 = 0 ;
3630 int res1 = 0 ;
3631 void *argp2 = 0 ;
3632 int res2 = 0 ;
3633 void *argp3 = 0 ;
3634 int res3 = 0 ;
3635 void *argp4 = 0 ;
3636 int res4 = 0 ;
3637 void *argp5 = 0 ;
3638 int res5 = 0 ;
3639 int argvi = 0;
3640 int result;
3641 dXSARGS;
3642
3643 if ((items < 5) || (items > 5)) {
3644 SWIG_croak("Usage: gsl_linalg_SV_decomp_mod(A,X,V,S,work);");
3645 }
3646 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3647 if (!SWIG_IsOK(res1)) {
3648 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_SV_decomp_mod" "', argument " "1"" of type '" "gsl_matrix *""'");
3649 }
3650 arg1 = (gsl_matrix *)(argp1);
3651 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3652 if (!SWIG_IsOK(res2)) {
3653 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_SV_decomp_mod" "', argument " "2"" of type '" "gsl_matrix *""'");
3654 }
3655 arg2 = (gsl_matrix *)(argp2);
3656 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3657 if (!SWIG_IsOK(res3)) {
3658 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_SV_decomp_mod" "', argument " "3"" of type '" "gsl_matrix *""'");
3659 }
3660 arg3 = (gsl_matrix *)(argp3);
3661 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
3662 if (!SWIG_IsOK(res4)) {
3663 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_SV_decomp_mod" "', argument " "4"" of type '" "gsl_vector *""'");
3664 }
3665 arg4 = (gsl_vector *)(argp4);
3666 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
3667 if (!SWIG_IsOK(res5)) {
3668 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_SV_decomp_mod" "', argument " "5"" of type '" "gsl_vector *""'");
3669 }
3670 arg5 = (gsl_vector *)(argp5);
3671 result = (int)gsl_linalg_SV_decomp_mod(arg1,arg2,arg3,arg4,arg5);
3672 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3673
3674
3675
3676
3677
3678 XSRETURN(argvi);
3679 fail:
3680
3681
3682
3683
3684
3685 SWIG_croak_null();
3686 }
3687 }
3688
3689
XS(_wrap_gsl_linalg_SV_decomp_jacobi)3690 XS(_wrap_gsl_linalg_SV_decomp_jacobi) {
3691 {
3692 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
3693 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
3694 gsl_vector *arg3 = (gsl_vector *) 0 ;
3695 void *argp1 = 0 ;
3696 int res1 = 0 ;
3697 void *argp2 = 0 ;
3698 int res2 = 0 ;
3699 void *argp3 = 0 ;
3700 int res3 = 0 ;
3701 int argvi = 0;
3702 int result;
3703 dXSARGS;
3704
3705 if ((items < 3) || (items > 3)) {
3706 SWIG_croak("Usage: gsl_linalg_SV_decomp_jacobi(A,Q,S);");
3707 }
3708 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3709 if (!SWIG_IsOK(res1)) {
3710 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_SV_decomp_jacobi" "', argument " "1"" of type '" "gsl_matrix *""'");
3711 }
3712 arg1 = (gsl_matrix *)(argp1);
3713 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3714 if (!SWIG_IsOK(res2)) {
3715 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_SV_decomp_jacobi" "', argument " "2"" of type '" "gsl_matrix *""'");
3716 }
3717 arg2 = (gsl_matrix *)(argp2);
3718 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
3719 if (!SWIG_IsOK(res3)) {
3720 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_SV_decomp_jacobi" "', argument " "3"" of type '" "gsl_vector *""'");
3721 }
3722 arg3 = (gsl_vector *)(argp3);
3723 result = (int)gsl_linalg_SV_decomp_jacobi(arg1,arg2,arg3);
3724 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3725
3726
3727
3728 XSRETURN(argvi);
3729 fail:
3730
3731
3732
3733 SWIG_croak_null();
3734 }
3735 }
3736
3737
XS(_wrap_gsl_linalg_SV_solve)3738 XS(_wrap_gsl_linalg_SV_solve) {
3739 {
3740 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
3741 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
3742 gsl_vector *arg3 = (gsl_vector *) 0 ;
3743 gsl_vector *arg4 = (gsl_vector *) 0 ;
3744 gsl_vector *arg5 = (gsl_vector *) 0 ;
3745 void *argp1 = 0 ;
3746 int res1 = 0 ;
3747 void *argp2 = 0 ;
3748 int res2 = 0 ;
3749 void *argp3 = 0 ;
3750 int res3 = 0 ;
3751 void *argp4 = 0 ;
3752 int res4 = 0 ;
3753 void *argp5 = 0 ;
3754 int res5 = 0 ;
3755 int argvi = 0;
3756 int result;
3757 dXSARGS;
3758
3759 if ((items < 5) || (items > 5)) {
3760 SWIG_croak("Usage: gsl_linalg_SV_solve(U,Q,S,b,x);");
3761 }
3762 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3763 if (!SWIG_IsOK(res1)) {
3764 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_SV_solve" "', argument " "1"" of type '" "gsl_matrix const *""'");
3765 }
3766 arg1 = (gsl_matrix *)(argp1);
3767 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3768 if (!SWIG_IsOK(res2)) {
3769 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_SV_solve" "', argument " "2"" of type '" "gsl_matrix const *""'");
3770 }
3771 arg2 = (gsl_matrix *)(argp2);
3772 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
3773 if (!SWIG_IsOK(res3)) {
3774 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_SV_solve" "', argument " "3"" of type '" "gsl_vector const *""'");
3775 }
3776 arg3 = (gsl_vector *)(argp3);
3777 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
3778 if (!SWIG_IsOK(res4)) {
3779 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_SV_solve" "', argument " "4"" of type '" "gsl_vector const *""'");
3780 }
3781 arg4 = (gsl_vector *)(argp4);
3782 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
3783 if (!SWIG_IsOK(res5)) {
3784 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_SV_solve" "', argument " "5"" of type '" "gsl_vector *""'");
3785 }
3786 arg5 = (gsl_vector *)(argp5);
3787 result = (int)gsl_linalg_SV_solve((gsl_matrix const *)arg1,(gsl_matrix const *)arg2,(gsl_vector const *)arg3,(gsl_vector const *)arg4,arg5);
3788 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3789
3790
3791
3792
3793
3794 XSRETURN(argvi);
3795 fail:
3796
3797
3798
3799
3800
3801 SWIG_croak_null();
3802 }
3803 }
3804
3805
XS(_wrap_gsl_linalg_SV_leverage)3806 XS(_wrap_gsl_linalg_SV_leverage) {
3807 {
3808 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
3809 gsl_vector *arg2 = (gsl_vector *) 0 ;
3810 void *argp1 = 0 ;
3811 int res1 = 0 ;
3812 void *argp2 = 0 ;
3813 int res2 = 0 ;
3814 int argvi = 0;
3815 int result;
3816 dXSARGS;
3817
3818 if ((items < 2) || (items > 2)) {
3819 SWIG_croak("Usage: gsl_linalg_SV_leverage(U,h);");
3820 }
3821 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3822 if (!SWIG_IsOK(res1)) {
3823 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_SV_leverage" "', argument " "1"" of type '" "gsl_matrix const *""'");
3824 }
3825 arg1 = (gsl_matrix *)(argp1);
3826 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
3827 if (!SWIG_IsOK(res2)) {
3828 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_SV_leverage" "', argument " "2"" of type '" "gsl_vector *""'");
3829 }
3830 arg2 = (gsl_vector *)(argp2);
3831 result = (int)gsl_linalg_SV_leverage((gsl_matrix const *)arg1,arg2);
3832 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3833
3834
3835 XSRETURN(argvi);
3836 fail:
3837
3838
3839 SWIG_croak_null();
3840 }
3841 }
3842
3843
XS(_wrap_gsl_linalg_LU_decomp)3844 XS(_wrap_gsl_linalg_LU_decomp) {
3845 {
3846 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
3847 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
3848 int *arg3 = (int *) 0 ;
3849 void *argp1 = 0 ;
3850 int res1 = 0 ;
3851 void *argp2 = 0 ;
3852 int res2 = 0 ;
3853 int temp3 ;
3854 int res3 = SWIG_TMPOBJ ;
3855 int argvi = 0;
3856 int result;
3857 dXSARGS;
3858
3859 arg3 = &temp3;
3860 if ((items < 2) || (items > 2)) {
3861 SWIG_croak("Usage: gsl_linalg_LU_decomp(A,p);");
3862 }
3863 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3864 if (!SWIG_IsOK(res1)) {
3865 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LU_decomp" "', argument " "1"" of type '" "gsl_matrix *""'");
3866 }
3867 arg1 = (gsl_matrix *)(argp1);
3868 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
3869 if (!SWIG_IsOK(res2)) {
3870 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_LU_decomp" "', argument " "2"" of type '" "gsl_permutation *""'");
3871 }
3872 arg2 = (gsl_permutation *)(argp2);
3873 result = (int)gsl_linalg_LU_decomp(arg1,arg2,arg3);
3874 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3875 if (SWIG_IsTmpObj(res3)) {
3876 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((*arg3)); argvi++ ;
3877 } else {
3878 int new_flags = SWIG_IsNewObj(res3) ? (SWIG_POINTER_OWN | 0) : 0;
3879 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg3), SWIGTYPE_p_int, new_flags); argvi++ ;
3880 }
3881
3882
3883
3884 XSRETURN(argvi);
3885 fail:
3886
3887
3888
3889 SWIG_croak_null();
3890 }
3891 }
3892
3893
XS(_wrap_gsl_linalg_LU_solve)3894 XS(_wrap_gsl_linalg_LU_solve) {
3895 {
3896 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
3897 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
3898 gsl_vector *arg3 = (gsl_vector *) 0 ;
3899 gsl_vector *arg4 = (gsl_vector *) 0 ;
3900 void *argp1 = 0 ;
3901 int res1 = 0 ;
3902 void *argp2 = 0 ;
3903 int res2 = 0 ;
3904 void *argp3 = 0 ;
3905 int res3 = 0 ;
3906 void *argp4 = 0 ;
3907 int res4 = 0 ;
3908 int argvi = 0;
3909 int result;
3910 dXSARGS;
3911
3912 if ((items < 4) || (items > 4)) {
3913 SWIG_croak("Usage: gsl_linalg_LU_solve(LU,p,b,x);");
3914 }
3915 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3916 if (!SWIG_IsOK(res1)) {
3917 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LU_solve" "', argument " "1"" of type '" "gsl_matrix const *""'");
3918 }
3919 arg1 = (gsl_matrix *)(argp1);
3920 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
3921 if (!SWIG_IsOK(res2)) {
3922 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_LU_solve" "', argument " "2"" of type '" "gsl_permutation const *""'");
3923 }
3924 arg2 = (gsl_permutation *)(argp2);
3925 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
3926 if (!SWIG_IsOK(res3)) {
3927 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_LU_solve" "', argument " "3"" of type '" "gsl_vector const *""'");
3928 }
3929 arg3 = (gsl_vector *)(argp3);
3930 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
3931 if (!SWIG_IsOK(res4)) {
3932 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_LU_solve" "', argument " "4"" of type '" "gsl_vector *""'");
3933 }
3934 arg4 = (gsl_vector *)(argp4);
3935 result = (int)gsl_linalg_LU_solve((gsl_matrix const *)arg1,(struct gsl_permutation_struct const *)arg2,(gsl_vector const *)arg3,arg4);
3936 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3937
3938
3939
3940
3941 XSRETURN(argvi);
3942 fail:
3943
3944
3945
3946
3947 SWIG_croak_null();
3948 }
3949 }
3950
3951
XS(_wrap_gsl_linalg_LU_svx)3952 XS(_wrap_gsl_linalg_LU_svx) {
3953 {
3954 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
3955 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
3956 gsl_vector *arg3 = (gsl_vector *) 0 ;
3957 void *argp1 = 0 ;
3958 int res1 = 0 ;
3959 void *argp2 = 0 ;
3960 int res2 = 0 ;
3961 void *argp3 = 0 ;
3962 int res3 = 0 ;
3963 int argvi = 0;
3964 int result;
3965 dXSARGS;
3966
3967 if ((items < 3) || (items > 3)) {
3968 SWIG_croak("Usage: gsl_linalg_LU_svx(LU,p,x);");
3969 }
3970 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3971 if (!SWIG_IsOK(res1)) {
3972 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LU_svx" "', argument " "1"" of type '" "gsl_matrix const *""'");
3973 }
3974 arg1 = (gsl_matrix *)(argp1);
3975 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
3976 if (!SWIG_IsOK(res2)) {
3977 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_LU_svx" "', argument " "2"" of type '" "gsl_permutation const *""'");
3978 }
3979 arg2 = (gsl_permutation *)(argp2);
3980 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
3981 if (!SWIG_IsOK(res3)) {
3982 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_LU_svx" "', argument " "3"" of type '" "gsl_vector *""'");
3983 }
3984 arg3 = (gsl_vector *)(argp3);
3985 result = (int)gsl_linalg_LU_svx((gsl_matrix const *)arg1,(struct gsl_permutation_struct const *)arg2,arg3);
3986 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3987
3988
3989
3990 XSRETURN(argvi);
3991 fail:
3992
3993
3994
3995 SWIG_croak_null();
3996 }
3997 }
3998
3999
XS(_wrap_gsl_linalg_LU_refine)4000 XS(_wrap_gsl_linalg_LU_refine) {
4001 {
4002 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
4003 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
4004 gsl_permutation *arg3 = (gsl_permutation *) 0 ;
4005 gsl_vector *arg4 = (gsl_vector *) 0 ;
4006 gsl_vector *arg5 = (gsl_vector *) 0 ;
4007 gsl_vector *arg6 = (gsl_vector *) 0 ;
4008 void *argp1 = 0 ;
4009 int res1 = 0 ;
4010 void *argp2 = 0 ;
4011 int res2 = 0 ;
4012 void *argp3 = 0 ;
4013 int res3 = 0 ;
4014 void *argp4 = 0 ;
4015 int res4 = 0 ;
4016 void *argp5 = 0 ;
4017 int res5 = 0 ;
4018 void *argp6 = 0 ;
4019 int res6 = 0 ;
4020 int argvi = 0;
4021 int result;
4022 dXSARGS;
4023
4024 if ((items < 6) || (items > 6)) {
4025 SWIG_croak("Usage: gsl_linalg_LU_refine(A,LU,p,b,x,work);");
4026 }
4027 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
4028 if (!SWIG_IsOK(res1)) {
4029 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LU_refine" "', argument " "1"" of type '" "gsl_matrix const *""'");
4030 }
4031 arg1 = (gsl_matrix *)(argp1);
4032 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
4033 if (!SWIG_IsOK(res2)) {
4034 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_LU_refine" "', argument " "2"" of type '" "gsl_matrix const *""'");
4035 }
4036 arg2 = (gsl_matrix *)(argp2);
4037 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
4038 if (!SWIG_IsOK(res3)) {
4039 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_LU_refine" "', argument " "3"" of type '" "gsl_permutation const *""'");
4040 }
4041 arg3 = (gsl_permutation *)(argp3);
4042 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
4043 if (!SWIG_IsOK(res4)) {
4044 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_LU_refine" "', argument " "4"" of type '" "gsl_vector const *""'");
4045 }
4046 arg4 = (gsl_vector *)(argp4);
4047 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
4048 if (!SWIG_IsOK(res5)) {
4049 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_LU_refine" "', argument " "5"" of type '" "gsl_vector *""'");
4050 }
4051 arg5 = (gsl_vector *)(argp5);
4052 res6 = SWIG_ConvertPtr(ST(5), &argp6,SWIGTYPE_p_gsl_vector, 0 | 0 );
4053 if (!SWIG_IsOK(res6)) {
4054 SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_linalg_LU_refine" "', argument " "6"" of type '" "gsl_vector *""'");
4055 }
4056 arg6 = (gsl_vector *)(argp6);
4057 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);
4058 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4059
4060
4061
4062
4063
4064
4065 XSRETURN(argvi);
4066 fail:
4067
4068
4069
4070
4071
4072
4073 SWIG_croak_null();
4074 }
4075 }
4076
4077
XS(_wrap_gsl_linalg_LU_invert)4078 XS(_wrap_gsl_linalg_LU_invert) {
4079 {
4080 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
4081 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
4082 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
4083 void *argp1 = 0 ;
4084 int res1 = 0 ;
4085 void *argp2 = 0 ;
4086 int res2 = 0 ;
4087 void *argp3 = 0 ;
4088 int res3 = 0 ;
4089 int argvi = 0;
4090 int result;
4091 dXSARGS;
4092
4093 if ((items < 3) || (items > 3)) {
4094 SWIG_croak("Usage: gsl_linalg_LU_invert(LU,p,inverse);");
4095 }
4096 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
4097 if (!SWIG_IsOK(res1)) {
4098 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LU_invert" "', argument " "1"" of type '" "gsl_matrix const *""'");
4099 }
4100 arg1 = (gsl_matrix *)(argp1);
4101 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
4102 if (!SWIG_IsOK(res2)) {
4103 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_LU_invert" "', argument " "2"" of type '" "gsl_permutation const *""'");
4104 }
4105 arg2 = (gsl_permutation *)(argp2);
4106 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
4107 if (!SWIG_IsOK(res3)) {
4108 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_LU_invert" "', argument " "3"" of type '" "gsl_matrix *""'");
4109 }
4110 arg3 = (gsl_matrix *)(argp3);
4111 result = (int)gsl_linalg_LU_invert((gsl_matrix const *)arg1,(struct gsl_permutation_struct const *)arg2,arg3);
4112 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4113
4114
4115
4116 XSRETURN(argvi);
4117 fail:
4118
4119
4120
4121 SWIG_croak_null();
4122 }
4123 }
4124
4125
XS(_wrap_gsl_linalg_LU_invx)4126 XS(_wrap_gsl_linalg_LU_invx) {
4127 {
4128 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
4129 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
4130 void *argp1 = 0 ;
4131 int res1 = 0 ;
4132 void *argp2 = 0 ;
4133 int res2 = 0 ;
4134 int argvi = 0;
4135 int result;
4136 dXSARGS;
4137
4138 if ((items < 2) || (items > 2)) {
4139 SWIG_croak("Usage: gsl_linalg_LU_invx(LU,p);");
4140 }
4141 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
4142 if (!SWIG_IsOK(res1)) {
4143 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LU_invx" "', argument " "1"" of type '" "gsl_matrix *""'");
4144 }
4145 arg1 = (gsl_matrix *)(argp1);
4146 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
4147 if (!SWIG_IsOK(res2)) {
4148 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_LU_invx" "', argument " "2"" of type '" "gsl_permutation const *""'");
4149 }
4150 arg2 = (gsl_permutation *)(argp2);
4151 result = (int)gsl_linalg_LU_invx(arg1,(struct gsl_permutation_struct const *)arg2);
4152 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4153
4154
4155 XSRETURN(argvi);
4156 fail:
4157
4158
4159 SWIG_croak_null();
4160 }
4161 }
4162
4163
XS(_wrap_gsl_linalg_LU_det)4164 XS(_wrap_gsl_linalg_LU_det) {
4165 {
4166 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
4167 int arg2 ;
4168 void *argp1 = 0 ;
4169 int res1 = 0 ;
4170 int val2 ;
4171 int ecode2 = 0 ;
4172 int argvi = 0;
4173 double result;
4174 dXSARGS;
4175
4176 if ((items < 2) || (items > 2)) {
4177 SWIG_croak("Usage: gsl_linalg_LU_det(LU,signum);");
4178 }
4179 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
4180 if (!SWIG_IsOK(res1)) {
4181 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LU_det" "', argument " "1"" of type '" "gsl_matrix *""'");
4182 }
4183 arg1 = (gsl_matrix *)(argp1);
4184 ecode2 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
4185 if (!SWIG_IsOK(ecode2)) {
4186 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_linalg_LU_det" "', argument " "2"" of type '" "int""'");
4187 }
4188 arg2 = (int)(val2);
4189 result = (double)gsl_linalg_LU_det(arg1,arg2);
4190 ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(result)); argvi++ ;
4191
4192
4193 XSRETURN(argvi);
4194 fail:
4195
4196
4197 SWIG_croak_null();
4198 }
4199 }
4200
4201
XS(_wrap_gsl_linalg_LU_lndet)4202 XS(_wrap_gsl_linalg_LU_lndet) {
4203 {
4204 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
4205 void *argp1 = 0 ;
4206 int res1 = 0 ;
4207 int argvi = 0;
4208 double result;
4209 dXSARGS;
4210
4211 if ((items < 1) || (items > 1)) {
4212 SWIG_croak("Usage: gsl_linalg_LU_lndet(LU);");
4213 }
4214 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
4215 if (!SWIG_IsOK(res1)) {
4216 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LU_lndet" "', argument " "1"" of type '" "gsl_matrix *""'");
4217 }
4218 arg1 = (gsl_matrix *)(argp1);
4219 result = (double)gsl_linalg_LU_lndet(arg1);
4220 ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(result)); argvi++ ;
4221
4222 XSRETURN(argvi);
4223 fail:
4224
4225 SWIG_croak_null();
4226 }
4227 }
4228
4229
XS(_wrap_gsl_linalg_LU_sgndet)4230 XS(_wrap_gsl_linalg_LU_sgndet) {
4231 {
4232 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
4233 int arg2 ;
4234 void *argp1 = 0 ;
4235 int res1 = 0 ;
4236 int val2 ;
4237 int ecode2 = 0 ;
4238 int argvi = 0;
4239 int result;
4240 dXSARGS;
4241
4242 if ((items < 2) || (items > 2)) {
4243 SWIG_croak("Usage: gsl_linalg_LU_sgndet(lu,signum);");
4244 }
4245 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
4246 if (!SWIG_IsOK(res1)) {
4247 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LU_sgndet" "', argument " "1"" of type '" "gsl_matrix *""'");
4248 }
4249 arg1 = (gsl_matrix *)(argp1);
4250 ecode2 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
4251 if (!SWIG_IsOK(ecode2)) {
4252 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_linalg_LU_sgndet" "', argument " "2"" of type '" "int""'");
4253 }
4254 arg2 = (int)(val2);
4255 result = (int)gsl_linalg_LU_sgndet(arg1,arg2);
4256 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4257
4258
4259 XSRETURN(argvi);
4260 fail:
4261
4262
4263 SWIG_croak_null();
4264 }
4265 }
4266
4267
XS(_wrap_gsl_linalg_complex_LU_decomp)4268 XS(_wrap_gsl_linalg_complex_LU_decomp) {
4269 {
4270 gsl_matrix_complex *arg1 = (gsl_matrix_complex *) 0 ;
4271 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
4272 int *arg3 = (int *) 0 ;
4273 void *argp1 = 0 ;
4274 int res1 = 0 ;
4275 void *argp2 = 0 ;
4276 int res2 = 0 ;
4277 int temp3 ;
4278 int res3 = SWIG_TMPOBJ ;
4279 int argvi = 0;
4280 int result;
4281 dXSARGS;
4282
4283 arg3 = &temp3;
4284 if ((items < 2) || (items > 2)) {
4285 SWIG_croak("Usage: gsl_linalg_complex_LU_decomp(A,p);");
4286 }
4287 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
4288 if (!SWIG_IsOK(res1)) {
4289 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_complex_LU_decomp" "', argument " "1"" of type '" "gsl_matrix_complex *""'");
4290 }
4291 arg1 = (gsl_matrix_complex *)(argp1);
4292 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
4293 if (!SWIG_IsOK(res2)) {
4294 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_complex_LU_decomp" "', argument " "2"" of type '" "gsl_permutation *""'");
4295 }
4296 arg2 = (gsl_permutation *)(argp2);
4297 result = (int)gsl_linalg_complex_LU_decomp(arg1,arg2,arg3);
4298 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4299 if (SWIG_IsTmpObj(res3)) {
4300 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((*arg3)); argvi++ ;
4301 } else {
4302 int new_flags = SWIG_IsNewObj(res3) ? (SWIG_POINTER_OWN | 0) : 0;
4303 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg3), SWIGTYPE_p_int, new_flags); argvi++ ;
4304 }
4305
4306
4307
4308 XSRETURN(argvi);
4309 fail:
4310
4311
4312
4313 SWIG_croak_null();
4314 }
4315 }
4316
4317
XS(_wrap_gsl_linalg_complex_LU_solve)4318 XS(_wrap_gsl_linalg_complex_LU_solve) {
4319 {
4320 gsl_matrix_complex *arg1 = (gsl_matrix_complex *) 0 ;
4321 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
4322 gsl_vector_complex *arg3 = (gsl_vector_complex *) 0 ;
4323 gsl_vector_complex *arg4 = (gsl_vector_complex *) 0 ;
4324 void *argp1 = 0 ;
4325 int res1 = 0 ;
4326 void *argp2 = 0 ;
4327 int res2 = 0 ;
4328 void *argp3 = 0 ;
4329 int res3 = 0 ;
4330 void *argp4 = 0 ;
4331 int res4 = 0 ;
4332 int argvi = 0;
4333 int result;
4334 dXSARGS;
4335
4336 if ((items < 4) || (items > 4)) {
4337 SWIG_croak("Usage: gsl_linalg_complex_LU_solve(LU,p,b,x);");
4338 }
4339 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
4340 if (!SWIG_IsOK(res1)) {
4341 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_complex_LU_solve" "', argument " "1"" of type '" "gsl_matrix_complex const *""'");
4342 }
4343 arg1 = (gsl_matrix_complex *)(argp1);
4344 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
4345 if (!SWIG_IsOK(res2)) {
4346 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_complex_LU_solve" "', argument " "2"" of type '" "gsl_permutation const *""'");
4347 }
4348 arg2 = (gsl_permutation *)(argp2);
4349 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
4350 if (!SWIG_IsOK(res3)) {
4351 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_complex_LU_solve" "', argument " "3"" of type '" "gsl_vector_complex const *""'");
4352 }
4353 arg3 = (gsl_vector_complex *)(argp3);
4354 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
4355 if (!SWIG_IsOK(res4)) {
4356 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_complex_LU_solve" "', argument " "4"" of type '" "gsl_vector_complex *""'");
4357 }
4358 arg4 = (gsl_vector_complex *)(argp4);
4359 result = (int)gsl_linalg_complex_LU_solve((gsl_matrix_complex const *)arg1,(struct gsl_permutation_struct const *)arg2,(gsl_vector_complex const *)arg3,arg4);
4360 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4361
4362
4363
4364
4365 XSRETURN(argvi);
4366 fail:
4367
4368
4369
4370
4371 SWIG_croak_null();
4372 }
4373 }
4374
4375
XS(_wrap_gsl_linalg_complex_LU_svx)4376 XS(_wrap_gsl_linalg_complex_LU_svx) {
4377 {
4378 gsl_matrix_complex *arg1 = (gsl_matrix_complex *) 0 ;
4379 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
4380 gsl_vector_complex *arg3 = (gsl_vector_complex *) 0 ;
4381 void *argp1 = 0 ;
4382 int res1 = 0 ;
4383 void *argp2 = 0 ;
4384 int res2 = 0 ;
4385 void *argp3 = 0 ;
4386 int res3 = 0 ;
4387 int argvi = 0;
4388 int result;
4389 dXSARGS;
4390
4391 if ((items < 3) || (items > 3)) {
4392 SWIG_croak("Usage: gsl_linalg_complex_LU_svx(LU,p,x);");
4393 }
4394 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
4395 if (!SWIG_IsOK(res1)) {
4396 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_complex_LU_svx" "', argument " "1"" of type '" "gsl_matrix_complex const *""'");
4397 }
4398 arg1 = (gsl_matrix_complex *)(argp1);
4399 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
4400 if (!SWIG_IsOK(res2)) {
4401 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_complex_LU_svx" "', argument " "2"" of type '" "gsl_permutation const *""'");
4402 }
4403 arg2 = (gsl_permutation *)(argp2);
4404 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
4405 if (!SWIG_IsOK(res3)) {
4406 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_complex_LU_svx" "', argument " "3"" of type '" "gsl_vector_complex *""'");
4407 }
4408 arg3 = (gsl_vector_complex *)(argp3);
4409 result = (int)gsl_linalg_complex_LU_svx((gsl_matrix_complex const *)arg1,(struct gsl_permutation_struct const *)arg2,arg3);
4410 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4411
4412
4413
4414 XSRETURN(argvi);
4415 fail:
4416
4417
4418
4419 SWIG_croak_null();
4420 }
4421 }
4422
4423
XS(_wrap_gsl_linalg_complex_LU_refine)4424 XS(_wrap_gsl_linalg_complex_LU_refine) {
4425 {
4426 gsl_matrix_complex *arg1 = (gsl_matrix_complex *) 0 ;
4427 gsl_matrix_complex *arg2 = (gsl_matrix_complex *) 0 ;
4428 gsl_permutation *arg3 = (gsl_permutation *) 0 ;
4429 gsl_vector_complex *arg4 = (gsl_vector_complex *) 0 ;
4430 gsl_vector_complex *arg5 = (gsl_vector_complex *) 0 ;
4431 gsl_vector_complex *arg6 = (gsl_vector_complex *) 0 ;
4432 void *argp1 = 0 ;
4433 int res1 = 0 ;
4434 void *argp2 = 0 ;
4435 int res2 = 0 ;
4436 void *argp3 = 0 ;
4437 int res3 = 0 ;
4438 void *argp4 = 0 ;
4439 int res4 = 0 ;
4440 void *argp5 = 0 ;
4441 int res5 = 0 ;
4442 void *argp6 = 0 ;
4443 int res6 = 0 ;
4444 int argvi = 0;
4445 int result;
4446 dXSARGS;
4447
4448 if ((items < 6) || (items > 6)) {
4449 SWIG_croak("Usage: gsl_linalg_complex_LU_refine(A,LU,p,b,x,work);");
4450 }
4451 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
4452 if (!SWIG_IsOK(res1)) {
4453 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_complex_LU_refine" "', argument " "1"" of type '" "gsl_matrix_complex const *""'");
4454 }
4455 arg1 = (gsl_matrix_complex *)(argp1);
4456 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
4457 if (!SWIG_IsOK(res2)) {
4458 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_complex_LU_refine" "', argument " "2"" of type '" "gsl_matrix_complex const *""'");
4459 }
4460 arg2 = (gsl_matrix_complex *)(argp2);
4461 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
4462 if (!SWIG_IsOK(res3)) {
4463 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_complex_LU_refine" "', argument " "3"" of type '" "gsl_permutation const *""'");
4464 }
4465 arg3 = (gsl_permutation *)(argp3);
4466 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
4467 if (!SWIG_IsOK(res4)) {
4468 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_complex_LU_refine" "', argument " "4"" of type '" "gsl_vector_complex const *""'");
4469 }
4470 arg4 = (gsl_vector_complex *)(argp4);
4471 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
4472 if (!SWIG_IsOK(res5)) {
4473 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_complex_LU_refine" "', argument " "5"" of type '" "gsl_vector_complex *""'");
4474 }
4475 arg5 = (gsl_vector_complex *)(argp5);
4476 res6 = SWIG_ConvertPtr(ST(5), &argp6,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
4477 if (!SWIG_IsOK(res6)) {
4478 SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_linalg_complex_LU_refine" "', argument " "6"" of type '" "gsl_vector_complex *""'");
4479 }
4480 arg6 = (gsl_vector_complex *)(argp6);
4481 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);
4482 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4483
4484
4485
4486
4487
4488
4489 XSRETURN(argvi);
4490 fail:
4491
4492
4493
4494
4495
4496
4497 SWIG_croak_null();
4498 }
4499 }
4500
4501
XS(_wrap_gsl_linalg_complex_LU_invert)4502 XS(_wrap_gsl_linalg_complex_LU_invert) {
4503 {
4504 gsl_matrix_complex *arg1 = (gsl_matrix_complex *) 0 ;
4505 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
4506 gsl_matrix_complex *arg3 = (gsl_matrix_complex *) 0 ;
4507 void *argp1 = 0 ;
4508 int res1 = 0 ;
4509 void *argp2 = 0 ;
4510 int res2 = 0 ;
4511 void *argp3 = 0 ;
4512 int res3 = 0 ;
4513 int argvi = 0;
4514 int result;
4515 dXSARGS;
4516
4517 if ((items < 3) || (items > 3)) {
4518 SWIG_croak("Usage: gsl_linalg_complex_LU_invert(LU,p,inverse);");
4519 }
4520 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
4521 if (!SWIG_IsOK(res1)) {
4522 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_complex_LU_invert" "', argument " "1"" of type '" "gsl_matrix_complex const *""'");
4523 }
4524 arg1 = (gsl_matrix_complex *)(argp1);
4525 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
4526 if (!SWIG_IsOK(res2)) {
4527 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_complex_LU_invert" "', argument " "2"" of type '" "gsl_permutation const *""'");
4528 }
4529 arg2 = (gsl_permutation *)(argp2);
4530 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
4531 if (!SWIG_IsOK(res3)) {
4532 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_complex_LU_invert" "', argument " "3"" of type '" "gsl_matrix_complex *""'");
4533 }
4534 arg3 = (gsl_matrix_complex *)(argp3);
4535 result = (int)gsl_linalg_complex_LU_invert((gsl_matrix_complex const *)arg1,(struct gsl_permutation_struct const *)arg2,arg3);
4536 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4537
4538
4539
4540 XSRETURN(argvi);
4541 fail:
4542
4543
4544
4545 SWIG_croak_null();
4546 }
4547 }
4548
4549
XS(_wrap_gsl_linalg_complex_LU_invx)4550 XS(_wrap_gsl_linalg_complex_LU_invx) {
4551 {
4552 gsl_matrix_complex *arg1 = (gsl_matrix_complex *) 0 ;
4553 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
4554 void *argp1 = 0 ;
4555 int res1 = 0 ;
4556 void *argp2 = 0 ;
4557 int res2 = 0 ;
4558 int argvi = 0;
4559 int result;
4560 dXSARGS;
4561
4562 if ((items < 2) || (items > 2)) {
4563 SWIG_croak("Usage: gsl_linalg_complex_LU_invx(LU,p);");
4564 }
4565 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
4566 if (!SWIG_IsOK(res1)) {
4567 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_complex_LU_invx" "', argument " "1"" of type '" "gsl_matrix_complex *""'");
4568 }
4569 arg1 = (gsl_matrix_complex *)(argp1);
4570 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
4571 if (!SWIG_IsOK(res2)) {
4572 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_complex_LU_invx" "', argument " "2"" of type '" "gsl_permutation const *""'");
4573 }
4574 arg2 = (gsl_permutation *)(argp2);
4575 result = (int)gsl_linalg_complex_LU_invx(arg1,(struct gsl_permutation_struct const *)arg2);
4576 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4577
4578
4579 XSRETURN(argvi);
4580 fail:
4581
4582
4583 SWIG_croak_null();
4584 }
4585 }
4586
4587
XS(_wrap_gsl_linalg_complex_LU_det)4588 XS(_wrap_gsl_linalg_complex_LU_det) {
4589 {
4590 gsl_matrix_complex *arg1 = (gsl_matrix_complex *) 0 ;
4591 int arg2 ;
4592 void *argp1 = 0 ;
4593 int res1 = 0 ;
4594 int val2 ;
4595 int ecode2 = 0 ;
4596 int argvi = 0;
4597 gsl_complex result;
4598 dXSARGS;
4599
4600 if ((items < 2) || (items > 2)) {
4601 SWIG_croak("Usage: gsl_linalg_complex_LU_det(LU,signum);");
4602 }
4603 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
4604 if (!SWIG_IsOK(res1)) {
4605 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_complex_LU_det" "', argument " "1"" of type '" "gsl_matrix_complex *""'");
4606 }
4607 arg1 = (gsl_matrix_complex *)(argp1);
4608 ecode2 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
4609 if (!SWIG_IsOK(ecode2)) {
4610 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_linalg_complex_LU_det" "', argument " "2"" of type '" "int""'");
4611 }
4612 arg2 = (int)(val2);
4613 result = gsl_linalg_complex_LU_det(arg1,arg2);
4614 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++ ;
4615
4616
4617 XSRETURN(argvi);
4618 fail:
4619
4620
4621 SWIG_croak_null();
4622 }
4623 }
4624
4625
XS(_wrap_gsl_linalg_complex_LU_lndet)4626 XS(_wrap_gsl_linalg_complex_LU_lndet) {
4627 {
4628 gsl_matrix_complex *arg1 = (gsl_matrix_complex *) 0 ;
4629 void *argp1 = 0 ;
4630 int res1 = 0 ;
4631 int argvi = 0;
4632 double result;
4633 dXSARGS;
4634
4635 if ((items < 1) || (items > 1)) {
4636 SWIG_croak("Usage: gsl_linalg_complex_LU_lndet(LU);");
4637 }
4638 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
4639 if (!SWIG_IsOK(res1)) {
4640 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_complex_LU_lndet" "', argument " "1"" of type '" "gsl_matrix_complex *""'");
4641 }
4642 arg1 = (gsl_matrix_complex *)(argp1);
4643 result = (double)gsl_linalg_complex_LU_lndet(arg1);
4644 ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(result)); argvi++ ;
4645
4646 XSRETURN(argvi);
4647 fail:
4648
4649 SWIG_croak_null();
4650 }
4651 }
4652
4653
XS(_wrap_gsl_linalg_complex_LU_sgndet)4654 XS(_wrap_gsl_linalg_complex_LU_sgndet) {
4655 {
4656 gsl_matrix_complex *arg1 = (gsl_matrix_complex *) 0 ;
4657 int arg2 ;
4658 void *argp1 = 0 ;
4659 int res1 = 0 ;
4660 int val2 ;
4661 int ecode2 = 0 ;
4662 int argvi = 0;
4663 gsl_complex result;
4664 dXSARGS;
4665
4666 if ((items < 2) || (items > 2)) {
4667 SWIG_croak("Usage: gsl_linalg_complex_LU_sgndet(LU,signum);");
4668 }
4669 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
4670 if (!SWIG_IsOK(res1)) {
4671 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_complex_LU_sgndet" "', argument " "1"" of type '" "gsl_matrix_complex *""'");
4672 }
4673 arg1 = (gsl_matrix_complex *)(argp1);
4674 ecode2 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
4675 if (!SWIG_IsOK(ecode2)) {
4676 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_linalg_complex_LU_sgndet" "', argument " "2"" of type '" "int""'");
4677 }
4678 arg2 = (int)(val2);
4679 result = gsl_linalg_complex_LU_sgndet(arg1,arg2);
4680 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++ ;
4681
4682
4683 XSRETURN(argvi);
4684 fail:
4685
4686
4687 SWIG_croak_null();
4688 }
4689 }
4690
4691
XS(_wrap_gsl_linalg_QR_decomp)4692 XS(_wrap_gsl_linalg_QR_decomp) {
4693 {
4694 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
4695 gsl_vector *arg2 = (gsl_vector *) 0 ;
4696 void *argp1 = 0 ;
4697 int res1 = 0 ;
4698 void *argp2 = 0 ;
4699 int res2 = 0 ;
4700 int argvi = 0;
4701 int result;
4702 dXSARGS;
4703
4704 if ((items < 2) || (items > 2)) {
4705 SWIG_croak("Usage: gsl_linalg_QR_decomp(A,tau);");
4706 }
4707 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
4708 if (!SWIG_IsOK(res1)) {
4709 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QR_decomp" "', argument " "1"" of type '" "gsl_matrix *""'");
4710 }
4711 arg1 = (gsl_matrix *)(argp1);
4712 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
4713 if (!SWIG_IsOK(res2)) {
4714 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QR_decomp" "', argument " "2"" of type '" "gsl_vector *""'");
4715 }
4716 arg2 = (gsl_vector *)(argp2);
4717 result = (int)gsl_linalg_QR_decomp(arg1,arg2);
4718 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4719
4720
4721 XSRETURN(argvi);
4722 fail:
4723
4724
4725 SWIG_croak_null();
4726 }
4727 }
4728
4729
XS(_wrap_gsl_linalg_QR_decomp_r)4730 XS(_wrap_gsl_linalg_QR_decomp_r) {
4731 {
4732 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
4733 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
4734 void *argp1 = 0 ;
4735 int res1 = 0 ;
4736 void *argp2 = 0 ;
4737 int res2 = 0 ;
4738 int argvi = 0;
4739 int result;
4740 dXSARGS;
4741
4742 if ((items < 2) || (items > 2)) {
4743 SWIG_croak("Usage: gsl_linalg_QR_decomp_r(A,T);");
4744 }
4745 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
4746 if (!SWIG_IsOK(res1)) {
4747 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QR_decomp_r" "', argument " "1"" of type '" "gsl_matrix *""'");
4748 }
4749 arg1 = (gsl_matrix *)(argp1);
4750 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
4751 if (!SWIG_IsOK(res2)) {
4752 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QR_decomp_r" "', argument " "2"" of type '" "gsl_matrix *""'");
4753 }
4754 arg2 = (gsl_matrix *)(argp2);
4755 result = (int)gsl_linalg_QR_decomp_r(arg1,arg2);
4756 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4757
4758
4759 XSRETURN(argvi);
4760 fail:
4761
4762
4763 SWIG_croak_null();
4764 }
4765 }
4766
4767
XS(_wrap_gsl_linalg_QR_solve)4768 XS(_wrap_gsl_linalg_QR_solve) {
4769 {
4770 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
4771 gsl_vector *arg2 = (gsl_vector *) 0 ;
4772 gsl_vector *arg3 = (gsl_vector *) 0 ;
4773 gsl_vector *arg4 = (gsl_vector *) 0 ;
4774 void *argp1 = 0 ;
4775 int res1 = 0 ;
4776 void *argp2 = 0 ;
4777 int res2 = 0 ;
4778 void *argp3 = 0 ;
4779 int res3 = 0 ;
4780 void *argp4 = 0 ;
4781 int res4 = 0 ;
4782 int argvi = 0;
4783 int result;
4784 dXSARGS;
4785
4786 if ((items < 4) || (items > 4)) {
4787 SWIG_croak("Usage: gsl_linalg_QR_solve(QR,tau,b,x);");
4788 }
4789 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
4790 if (!SWIG_IsOK(res1)) {
4791 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QR_solve" "', argument " "1"" of type '" "gsl_matrix const *""'");
4792 }
4793 arg1 = (gsl_matrix *)(argp1);
4794 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
4795 if (!SWIG_IsOK(res2)) {
4796 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QR_solve" "', argument " "2"" of type '" "gsl_vector const *""'");
4797 }
4798 arg2 = (gsl_vector *)(argp2);
4799 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
4800 if (!SWIG_IsOK(res3)) {
4801 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QR_solve" "', argument " "3"" of type '" "gsl_vector const *""'");
4802 }
4803 arg3 = (gsl_vector *)(argp3);
4804 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
4805 if (!SWIG_IsOK(res4)) {
4806 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_QR_solve" "', argument " "4"" of type '" "gsl_vector *""'");
4807 }
4808 arg4 = (gsl_vector *)(argp4);
4809 result = (int)gsl_linalg_QR_solve((gsl_matrix const *)arg1,(gsl_vector const *)arg2,(gsl_vector const *)arg3,arg4);
4810 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4811
4812
4813
4814
4815 XSRETURN(argvi);
4816 fail:
4817
4818
4819
4820
4821 SWIG_croak_null();
4822 }
4823 }
4824
4825
XS(_wrap_gsl_linalg_QR_solve_r)4826 XS(_wrap_gsl_linalg_QR_solve_r) {
4827 {
4828 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
4829 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
4830 gsl_vector *arg3 = (gsl_vector *) 0 ;
4831 gsl_vector *arg4 = (gsl_vector *) 0 ;
4832 void *argp1 = 0 ;
4833 int res1 = 0 ;
4834 void *argp2 = 0 ;
4835 int res2 = 0 ;
4836 void *argp3 = 0 ;
4837 int res3 = 0 ;
4838 void *argp4 = 0 ;
4839 int res4 = 0 ;
4840 int argvi = 0;
4841 int result;
4842 dXSARGS;
4843
4844 if ((items < 4) || (items > 4)) {
4845 SWIG_croak("Usage: gsl_linalg_QR_solve_r(QR,T,b,x);");
4846 }
4847 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
4848 if (!SWIG_IsOK(res1)) {
4849 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QR_solve_r" "', argument " "1"" of type '" "gsl_matrix const *""'");
4850 }
4851 arg1 = (gsl_matrix *)(argp1);
4852 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
4853 if (!SWIG_IsOK(res2)) {
4854 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QR_solve_r" "', argument " "2"" of type '" "gsl_matrix const *""'");
4855 }
4856 arg2 = (gsl_matrix *)(argp2);
4857 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
4858 if (!SWIG_IsOK(res3)) {
4859 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QR_solve_r" "', argument " "3"" of type '" "gsl_vector const *""'");
4860 }
4861 arg3 = (gsl_vector *)(argp3);
4862 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
4863 if (!SWIG_IsOK(res4)) {
4864 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_QR_solve_r" "', argument " "4"" of type '" "gsl_vector *""'");
4865 }
4866 arg4 = (gsl_vector *)(argp4);
4867 result = (int)gsl_linalg_QR_solve_r((gsl_matrix const *)arg1,(gsl_matrix const *)arg2,(gsl_vector const *)arg3,arg4);
4868 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4869
4870
4871
4872
4873 XSRETURN(argvi);
4874 fail:
4875
4876
4877
4878
4879 SWIG_croak_null();
4880 }
4881 }
4882
4883
XS(_wrap_gsl_linalg_QR_svx)4884 XS(_wrap_gsl_linalg_QR_svx) {
4885 {
4886 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
4887 gsl_vector *arg2 = (gsl_vector *) 0 ;
4888 gsl_vector *arg3 = (gsl_vector *) 0 ;
4889 void *argp1 = 0 ;
4890 int res1 = 0 ;
4891 void *argp2 = 0 ;
4892 int res2 = 0 ;
4893 void *argp3 = 0 ;
4894 int res3 = 0 ;
4895 int argvi = 0;
4896 int result;
4897 dXSARGS;
4898
4899 if ((items < 3) || (items > 3)) {
4900 SWIG_croak("Usage: gsl_linalg_QR_svx(QR,tau,x);");
4901 }
4902 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
4903 if (!SWIG_IsOK(res1)) {
4904 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QR_svx" "', argument " "1"" of type '" "gsl_matrix const *""'");
4905 }
4906 arg1 = (gsl_matrix *)(argp1);
4907 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
4908 if (!SWIG_IsOK(res2)) {
4909 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QR_svx" "', argument " "2"" of type '" "gsl_vector const *""'");
4910 }
4911 arg2 = (gsl_vector *)(argp2);
4912 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
4913 if (!SWIG_IsOK(res3)) {
4914 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QR_svx" "', argument " "3"" of type '" "gsl_vector *""'");
4915 }
4916 arg3 = (gsl_vector *)(argp3);
4917 result = (int)gsl_linalg_QR_svx((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3);
4918 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4919
4920
4921
4922 XSRETURN(argvi);
4923 fail:
4924
4925
4926
4927 SWIG_croak_null();
4928 }
4929 }
4930
4931
XS(_wrap_gsl_linalg_QR_lssolve)4932 XS(_wrap_gsl_linalg_QR_lssolve) {
4933 {
4934 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
4935 gsl_vector *arg2 = (gsl_vector *) 0 ;
4936 gsl_vector *arg3 = (gsl_vector *) 0 ;
4937 gsl_vector *arg4 = (gsl_vector *) 0 ;
4938 gsl_vector *arg5 = (gsl_vector *) 0 ;
4939 void *argp1 = 0 ;
4940 int res1 = 0 ;
4941 void *argp2 = 0 ;
4942 int res2 = 0 ;
4943 void *argp3 = 0 ;
4944 int res3 = 0 ;
4945 void *argp4 = 0 ;
4946 int res4 = 0 ;
4947 void *argp5 = 0 ;
4948 int res5 = 0 ;
4949 int argvi = 0;
4950 int result;
4951 dXSARGS;
4952
4953 if ((items < 5) || (items > 5)) {
4954 SWIG_croak("Usage: gsl_linalg_QR_lssolve(QR,tau,b,x,residual);");
4955 }
4956 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
4957 if (!SWIG_IsOK(res1)) {
4958 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QR_lssolve" "', argument " "1"" of type '" "gsl_matrix const *""'");
4959 }
4960 arg1 = (gsl_matrix *)(argp1);
4961 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
4962 if (!SWIG_IsOK(res2)) {
4963 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QR_lssolve" "', argument " "2"" of type '" "gsl_vector const *""'");
4964 }
4965 arg2 = (gsl_vector *)(argp2);
4966 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
4967 if (!SWIG_IsOK(res3)) {
4968 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QR_lssolve" "', argument " "3"" of type '" "gsl_vector const *""'");
4969 }
4970 arg3 = (gsl_vector *)(argp3);
4971 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
4972 if (!SWIG_IsOK(res4)) {
4973 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_QR_lssolve" "', argument " "4"" of type '" "gsl_vector *""'");
4974 }
4975 arg4 = (gsl_vector *)(argp4);
4976 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
4977 if (!SWIG_IsOK(res5)) {
4978 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_QR_lssolve" "', argument " "5"" of type '" "gsl_vector *""'");
4979 }
4980 arg5 = (gsl_vector *)(argp5);
4981 result = (int)gsl_linalg_QR_lssolve((gsl_matrix const *)arg1,(gsl_vector const *)arg2,(gsl_vector const *)arg3,arg4,arg5);
4982 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4983
4984
4985
4986
4987
4988 XSRETURN(argvi);
4989 fail:
4990
4991
4992
4993
4994
4995 SWIG_croak_null();
4996 }
4997 }
4998
4999
XS(_wrap_gsl_linalg_QR_lssolve_r)5000 XS(_wrap_gsl_linalg_QR_lssolve_r) {
5001 {
5002 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5003 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
5004 gsl_vector *arg3 = (gsl_vector *) 0 ;
5005 gsl_vector *arg4 = (gsl_vector *) 0 ;
5006 gsl_vector *arg5 = (gsl_vector *) 0 ;
5007 void *argp1 = 0 ;
5008 int res1 = 0 ;
5009 void *argp2 = 0 ;
5010 int res2 = 0 ;
5011 void *argp3 = 0 ;
5012 int res3 = 0 ;
5013 void *argp4 = 0 ;
5014 int res4 = 0 ;
5015 void *argp5 = 0 ;
5016 int res5 = 0 ;
5017 int argvi = 0;
5018 int result;
5019 dXSARGS;
5020
5021 if ((items < 5) || (items > 5)) {
5022 SWIG_croak("Usage: gsl_linalg_QR_lssolve_r(QR,T,b,x,work);");
5023 }
5024 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5025 if (!SWIG_IsOK(res1)) {
5026 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QR_lssolve_r" "', argument " "1"" of type '" "gsl_matrix const *""'");
5027 }
5028 arg1 = (gsl_matrix *)(argp1);
5029 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5030 if (!SWIG_IsOK(res2)) {
5031 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QR_lssolve_r" "', argument " "2"" of type '" "gsl_matrix const *""'");
5032 }
5033 arg2 = (gsl_matrix *)(argp2);
5034 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
5035 if (!SWIG_IsOK(res3)) {
5036 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QR_lssolve_r" "', argument " "3"" of type '" "gsl_vector const *""'");
5037 }
5038 arg3 = (gsl_vector *)(argp3);
5039 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
5040 if (!SWIG_IsOK(res4)) {
5041 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_QR_lssolve_r" "', argument " "4"" of type '" "gsl_vector *""'");
5042 }
5043 arg4 = (gsl_vector *)(argp4);
5044 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
5045 if (!SWIG_IsOK(res5)) {
5046 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_QR_lssolve_r" "', argument " "5"" of type '" "gsl_vector *""'");
5047 }
5048 arg5 = (gsl_vector *)(argp5);
5049 result = (int)gsl_linalg_QR_lssolve_r((gsl_matrix const *)arg1,(gsl_matrix const *)arg2,(gsl_vector const *)arg3,arg4,arg5);
5050 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5051
5052
5053
5054
5055
5056 XSRETURN(argvi);
5057 fail:
5058
5059
5060
5061
5062
5063 SWIG_croak_null();
5064 }
5065 }
5066
5067
XS(_wrap_gsl_linalg_QR_QRsolve)5068 XS(_wrap_gsl_linalg_QR_QRsolve) {
5069 {
5070 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5071 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
5072 gsl_vector *arg3 = (gsl_vector *) 0 ;
5073 gsl_vector *arg4 = (gsl_vector *) 0 ;
5074 void *argp1 = 0 ;
5075 int res1 = 0 ;
5076 void *argp2 = 0 ;
5077 int res2 = 0 ;
5078 void *argp3 = 0 ;
5079 int res3 = 0 ;
5080 void *argp4 = 0 ;
5081 int res4 = 0 ;
5082 int argvi = 0;
5083 int result;
5084 dXSARGS;
5085
5086 if ((items < 4) || (items > 4)) {
5087 SWIG_croak("Usage: gsl_linalg_QR_QRsolve(Q,R,b,x);");
5088 }
5089 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5090 if (!SWIG_IsOK(res1)) {
5091 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QR_QRsolve" "', argument " "1"" of type '" "gsl_matrix *""'");
5092 }
5093 arg1 = (gsl_matrix *)(argp1);
5094 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5095 if (!SWIG_IsOK(res2)) {
5096 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QR_QRsolve" "', argument " "2"" of type '" "gsl_matrix *""'");
5097 }
5098 arg2 = (gsl_matrix *)(argp2);
5099 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
5100 if (!SWIG_IsOK(res3)) {
5101 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QR_QRsolve" "', argument " "3"" of type '" "gsl_vector const *""'");
5102 }
5103 arg3 = (gsl_vector *)(argp3);
5104 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
5105 if (!SWIG_IsOK(res4)) {
5106 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_QR_QRsolve" "', argument " "4"" of type '" "gsl_vector *""'");
5107 }
5108 arg4 = (gsl_vector *)(argp4);
5109 result = (int)gsl_linalg_QR_QRsolve(arg1,arg2,(gsl_vector const *)arg3,arg4);
5110 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5111
5112
5113
5114
5115 XSRETURN(argvi);
5116 fail:
5117
5118
5119
5120
5121 SWIG_croak_null();
5122 }
5123 }
5124
5125
XS(_wrap_gsl_linalg_QR_Rsolve)5126 XS(_wrap_gsl_linalg_QR_Rsolve) {
5127 {
5128 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5129 gsl_vector *arg2 = (gsl_vector *) 0 ;
5130 gsl_vector *arg3 = (gsl_vector *) 0 ;
5131 void *argp1 = 0 ;
5132 int res1 = 0 ;
5133 void *argp2 = 0 ;
5134 int res2 = 0 ;
5135 void *argp3 = 0 ;
5136 int res3 = 0 ;
5137 int argvi = 0;
5138 int result;
5139 dXSARGS;
5140
5141 if ((items < 3) || (items > 3)) {
5142 SWIG_croak("Usage: gsl_linalg_QR_Rsolve(QR,b,x);");
5143 }
5144 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5145 if (!SWIG_IsOK(res1)) {
5146 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QR_Rsolve" "', argument " "1"" of type '" "gsl_matrix const *""'");
5147 }
5148 arg1 = (gsl_matrix *)(argp1);
5149 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
5150 if (!SWIG_IsOK(res2)) {
5151 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QR_Rsolve" "', argument " "2"" of type '" "gsl_vector const *""'");
5152 }
5153 arg2 = (gsl_vector *)(argp2);
5154 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
5155 if (!SWIG_IsOK(res3)) {
5156 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QR_Rsolve" "', argument " "3"" of type '" "gsl_vector *""'");
5157 }
5158 arg3 = (gsl_vector *)(argp3);
5159 result = (int)gsl_linalg_QR_Rsolve((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3);
5160 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5161
5162
5163
5164 XSRETURN(argvi);
5165 fail:
5166
5167
5168
5169 SWIG_croak_null();
5170 }
5171 }
5172
5173
XS(_wrap_gsl_linalg_QR_Rsvx)5174 XS(_wrap_gsl_linalg_QR_Rsvx) {
5175 {
5176 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5177 gsl_vector *arg2 = (gsl_vector *) 0 ;
5178 void *argp1 = 0 ;
5179 int res1 = 0 ;
5180 void *argp2 = 0 ;
5181 int res2 = 0 ;
5182 int argvi = 0;
5183 int result;
5184 dXSARGS;
5185
5186 if ((items < 2) || (items > 2)) {
5187 SWIG_croak("Usage: gsl_linalg_QR_Rsvx(QR,x);");
5188 }
5189 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5190 if (!SWIG_IsOK(res1)) {
5191 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QR_Rsvx" "', argument " "1"" of type '" "gsl_matrix const *""'");
5192 }
5193 arg1 = (gsl_matrix *)(argp1);
5194 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
5195 if (!SWIG_IsOK(res2)) {
5196 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QR_Rsvx" "', argument " "2"" of type '" "gsl_vector *""'");
5197 }
5198 arg2 = (gsl_vector *)(argp2);
5199 result = (int)gsl_linalg_QR_Rsvx((gsl_matrix const *)arg1,arg2);
5200 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5201
5202
5203 XSRETURN(argvi);
5204 fail:
5205
5206
5207 SWIG_croak_null();
5208 }
5209 }
5210
5211
XS(_wrap_gsl_linalg_QR_update)5212 XS(_wrap_gsl_linalg_QR_update) {
5213 {
5214 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5215 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
5216 gsl_vector *arg3 = (gsl_vector *) 0 ;
5217 gsl_vector *arg4 = (gsl_vector *) 0 ;
5218 void *argp1 = 0 ;
5219 int res1 = 0 ;
5220 void *argp2 = 0 ;
5221 int res2 = 0 ;
5222 void *argp3 = 0 ;
5223 int res3 = 0 ;
5224 void *argp4 = 0 ;
5225 int res4 = 0 ;
5226 int argvi = 0;
5227 int result;
5228 dXSARGS;
5229
5230 if ((items < 4) || (items > 4)) {
5231 SWIG_croak("Usage: gsl_linalg_QR_update(Q,R,w,v);");
5232 }
5233 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5234 if (!SWIG_IsOK(res1)) {
5235 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QR_update" "', argument " "1"" of type '" "gsl_matrix *""'");
5236 }
5237 arg1 = (gsl_matrix *)(argp1);
5238 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5239 if (!SWIG_IsOK(res2)) {
5240 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QR_update" "', argument " "2"" of type '" "gsl_matrix *""'");
5241 }
5242 arg2 = (gsl_matrix *)(argp2);
5243 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
5244 if (!SWIG_IsOK(res3)) {
5245 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QR_update" "', argument " "3"" of type '" "gsl_vector *""'");
5246 }
5247 arg3 = (gsl_vector *)(argp3);
5248 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
5249 if (!SWIG_IsOK(res4)) {
5250 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_QR_update" "', argument " "4"" of type '" "gsl_vector const *""'");
5251 }
5252 arg4 = (gsl_vector *)(argp4);
5253 result = (int)gsl_linalg_QR_update(arg1,arg2,arg3,(gsl_vector const *)arg4);
5254 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5255
5256
5257
5258
5259 XSRETURN(argvi);
5260 fail:
5261
5262
5263
5264
5265 SWIG_croak_null();
5266 }
5267 }
5268
5269
XS(_wrap_gsl_linalg_QR_QTvec)5270 XS(_wrap_gsl_linalg_QR_QTvec) {
5271 {
5272 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5273 gsl_vector *arg2 = (gsl_vector *) 0 ;
5274 gsl_vector *arg3 = (gsl_vector *) 0 ;
5275 void *argp1 = 0 ;
5276 int res1 = 0 ;
5277 void *argp2 = 0 ;
5278 int res2 = 0 ;
5279 void *argp3 = 0 ;
5280 int res3 = 0 ;
5281 int argvi = 0;
5282 int result;
5283 dXSARGS;
5284
5285 if ((items < 3) || (items > 3)) {
5286 SWIG_croak("Usage: gsl_linalg_QR_QTvec(QR,tau,v);");
5287 }
5288 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5289 if (!SWIG_IsOK(res1)) {
5290 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QR_QTvec" "', argument " "1"" of type '" "gsl_matrix const *""'");
5291 }
5292 arg1 = (gsl_matrix *)(argp1);
5293 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
5294 if (!SWIG_IsOK(res2)) {
5295 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QR_QTvec" "', argument " "2"" of type '" "gsl_vector const *""'");
5296 }
5297 arg2 = (gsl_vector *)(argp2);
5298 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
5299 if (!SWIG_IsOK(res3)) {
5300 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QR_QTvec" "', argument " "3"" of type '" "gsl_vector *""'");
5301 }
5302 arg3 = (gsl_vector *)(argp3);
5303 result = (int)gsl_linalg_QR_QTvec((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3);
5304 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5305
5306
5307
5308 XSRETURN(argvi);
5309 fail:
5310
5311
5312
5313 SWIG_croak_null();
5314 }
5315 }
5316
5317
XS(_wrap_gsl_linalg_QR_QTvec_r)5318 XS(_wrap_gsl_linalg_QR_QTvec_r) {
5319 {
5320 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5321 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
5322 gsl_vector *arg3 = (gsl_vector *) 0 ;
5323 gsl_vector *arg4 = (gsl_vector *) 0 ;
5324 void *argp1 = 0 ;
5325 int res1 = 0 ;
5326 void *argp2 = 0 ;
5327 int res2 = 0 ;
5328 void *argp3 = 0 ;
5329 int res3 = 0 ;
5330 void *argp4 = 0 ;
5331 int res4 = 0 ;
5332 int argvi = 0;
5333 int result;
5334 dXSARGS;
5335
5336 if ((items < 4) || (items > 4)) {
5337 SWIG_croak("Usage: gsl_linalg_QR_QTvec_r(QR,T,b,work);");
5338 }
5339 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5340 if (!SWIG_IsOK(res1)) {
5341 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QR_QTvec_r" "', argument " "1"" of type '" "gsl_matrix const *""'");
5342 }
5343 arg1 = (gsl_matrix *)(argp1);
5344 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5345 if (!SWIG_IsOK(res2)) {
5346 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QR_QTvec_r" "', argument " "2"" of type '" "gsl_matrix const *""'");
5347 }
5348 arg2 = (gsl_matrix *)(argp2);
5349 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
5350 if (!SWIG_IsOK(res3)) {
5351 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QR_QTvec_r" "', argument " "3"" of type '" "gsl_vector *""'");
5352 }
5353 arg3 = (gsl_vector *)(argp3);
5354 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
5355 if (!SWIG_IsOK(res4)) {
5356 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_QR_QTvec_r" "', argument " "4"" of type '" "gsl_vector *""'");
5357 }
5358 arg4 = (gsl_vector *)(argp4);
5359 result = (int)gsl_linalg_QR_QTvec_r((gsl_matrix const *)arg1,(gsl_matrix const *)arg2,arg3,arg4);
5360 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5361
5362
5363
5364
5365 XSRETURN(argvi);
5366 fail:
5367
5368
5369
5370
5371 SWIG_croak_null();
5372 }
5373 }
5374
5375
XS(_wrap_gsl_linalg_QR_Qvec)5376 XS(_wrap_gsl_linalg_QR_Qvec) {
5377 {
5378 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5379 gsl_vector *arg2 = (gsl_vector *) 0 ;
5380 gsl_vector *arg3 = (gsl_vector *) 0 ;
5381 void *argp1 = 0 ;
5382 int res1 = 0 ;
5383 void *argp2 = 0 ;
5384 int res2 = 0 ;
5385 void *argp3 = 0 ;
5386 int res3 = 0 ;
5387 int argvi = 0;
5388 int result;
5389 dXSARGS;
5390
5391 if ((items < 3) || (items > 3)) {
5392 SWIG_croak("Usage: gsl_linalg_QR_Qvec(QR,tau,v);");
5393 }
5394 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5395 if (!SWIG_IsOK(res1)) {
5396 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QR_Qvec" "', argument " "1"" of type '" "gsl_matrix const *""'");
5397 }
5398 arg1 = (gsl_matrix *)(argp1);
5399 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
5400 if (!SWIG_IsOK(res2)) {
5401 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QR_Qvec" "', argument " "2"" of type '" "gsl_vector const *""'");
5402 }
5403 arg2 = (gsl_vector *)(argp2);
5404 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
5405 if (!SWIG_IsOK(res3)) {
5406 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QR_Qvec" "', argument " "3"" of type '" "gsl_vector *""'");
5407 }
5408 arg3 = (gsl_vector *)(argp3);
5409 result = (int)gsl_linalg_QR_Qvec((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3);
5410 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5411
5412
5413
5414 XSRETURN(argvi);
5415 fail:
5416
5417
5418
5419 SWIG_croak_null();
5420 }
5421 }
5422
5423
XS(_wrap_gsl_linalg_QR_QTmat)5424 XS(_wrap_gsl_linalg_QR_QTmat) {
5425 {
5426 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5427 gsl_vector *arg2 = (gsl_vector *) 0 ;
5428 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
5429 void *argp1 = 0 ;
5430 int res1 = 0 ;
5431 void *argp2 = 0 ;
5432 int res2 = 0 ;
5433 void *argp3 = 0 ;
5434 int res3 = 0 ;
5435 int argvi = 0;
5436 int result;
5437 dXSARGS;
5438
5439 if ((items < 3) || (items > 3)) {
5440 SWIG_croak("Usage: gsl_linalg_QR_QTmat(QR,tau,A);");
5441 }
5442 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5443 if (!SWIG_IsOK(res1)) {
5444 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QR_QTmat" "', argument " "1"" of type '" "gsl_matrix const *""'");
5445 }
5446 arg1 = (gsl_matrix *)(argp1);
5447 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
5448 if (!SWIG_IsOK(res2)) {
5449 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QR_QTmat" "', argument " "2"" of type '" "gsl_vector const *""'");
5450 }
5451 arg2 = (gsl_vector *)(argp2);
5452 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5453 if (!SWIG_IsOK(res3)) {
5454 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QR_QTmat" "', argument " "3"" of type '" "gsl_matrix *""'");
5455 }
5456 arg3 = (gsl_matrix *)(argp3);
5457 result = (int)gsl_linalg_QR_QTmat((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3);
5458 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5459
5460
5461
5462 XSRETURN(argvi);
5463 fail:
5464
5465
5466
5467 SWIG_croak_null();
5468 }
5469 }
5470
5471
XS(_wrap_gsl_linalg_QR_QTmat_r)5472 XS(_wrap_gsl_linalg_QR_QTmat_r) {
5473 {
5474 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5475 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
5476 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
5477 gsl_matrix *arg4 = (gsl_matrix *) 0 ;
5478 void *argp1 = 0 ;
5479 int res1 = 0 ;
5480 void *argp2 = 0 ;
5481 int res2 = 0 ;
5482 void *argp3 = 0 ;
5483 int res3 = 0 ;
5484 void *argp4 = 0 ;
5485 int res4 = 0 ;
5486 int argvi = 0;
5487 int result;
5488 dXSARGS;
5489
5490 if ((items < 4) || (items > 4)) {
5491 SWIG_croak("Usage: gsl_linalg_QR_QTmat_r(QR,T,B,work);");
5492 }
5493 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5494 if (!SWIG_IsOK(res1)) {
5495 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QR_QTmat_r" "', argument " "1"" of type '" "gsl_matrix const *""'");
5496 }
5497 arg1 = (gsl_matrix *)(argp1);
5498 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5499 if (!SWIG_IsOK(res2)) {
5500 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QR_QTmat_r" "', argument " "2"" of type '" "gsl_matrix const *""'");
5501 }
5502 arg2 = (gsl_matrix *)(argp2);
5503 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5504 if (!SWIG_IsOK(res3)) {
5505 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QR_QTmat_r" "', argument " "3"" of type '" "gsl_matrix *""'");
5506 }
5507 arg3 = (gsl_matrix *)(argp3);
5508 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5509 if (!SWIG_IsOK(res4)) {
5510 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_QR_QTmat_r" "', argument " "4"" of type '" "gsl_matrix *""'");
5511 }
5512 arg4 = (gsl_matrix *)(argp4);
5513 result = (int)gsl_linalg_QR_QTmat_r((gsl_matrix const *)arg1,(gsl_matrix const *)arg2,arg3,arg4);
5514 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5515
5516
5517
5518
5519 XSRETURN(argvi);
5520 fail:
5521
5522
5523
5524
5525 SWIG_croak_null();
5526 }
5527 }
5528
5529
XS(_wrap_gsl_linalg_QR_matQ)5530 XS(_wrap_gsl_linalg_QR_matQ) {
5531 {
5532 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5533 gsl_vector *arg2 = (gsl_vector *) 0 ;
5534 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
5535 void *argp1 = 0 ;
5536 int res1 = 0 ;
5537 void *argp2 = 0 ;
5538 int res2 = 0 ;
5539 void *argp3 = 0 ;
5540 int res3 = 0 ;
5541 int argvi = 0;
5542 int result;
5543 dXSARGS;
5544
5545 if ((items < 3) || (items > 3)) {
5546 SWIG_croak("Usage: gsl_linalg_QR_matQ(QR,tau,A);");
5547 }
5548 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5549 if (!SWIG_IsOK(res1)) {
5550 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QR_matQ" "', argument " "1"" of type '" "gsl_matrix const *""'");
5551 }
5552 arg1 = (gsl_matrix *)(argp1);
5553 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
5554 if (!SWIG_IsOK(res2)) {
5555 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QR_matQ" "', argument " "2"" of type '" "gsl_vector const *""'");
5556 }
5557 arg2 = (gsl_vector *)(argp2);
5558 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5559 if (!SWIG_IsOK(res3)) {
5560 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QR_matQ" "', argument " "3"" of type '" "gsl_matrix *""'");
5561 }
5562 arg3 = (gsl_matrix *)(argp3);
5563 result = (int)gsl_linalg_QR_matQ((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3);
5564 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5565
5566
5567
5568 XSRETURN(argvi);
5569 fail:
5570
5571
5572
5573 SWIG_croak_null();
5574 }
5575 }
5576
5577
XS(_wrap_gsl_linalg_QR_unpack)5578 XS(_wrap_gsl_linalg_QR_unpack) {
5579 {
5580 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5581 gsl_vector *arg2 = (gsl_vector *) 0 ;
5582 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
5583 gsl_matrix *arg4 = (gsl_matrix *) 0 ;
5584 void *argp1 = 0 ;
5585 int res1 = 0 ;
5586 void *argp2 = 0 ;
5587 int res2 = 0 ;
5588 void *argp3 = 0 ;
5589 int res3 = 0 ;
5590 void *argp4 = 0 ;
5591 int res4 = 0 ;
5592 int argvi = 0;
5593 int result;
5594 dXSARGS;
5595
5596 if ((items < 4) || (items > 4)) {
5597 SWIG_croak("Usage: gsl_linalg_QR_unpack(QR,tau,Q,R);");
5598 }
5599 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5600 if (!SWIG_IsOK(res1)) {
5601 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QR_unpack" "', argument " "1"" of type '" "gsl_matrix const *""'");
5602 }
5603 arg1 = (gsl_matrix *)(argp1);
5604 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
5605 if (!SWIG_IsOK(res2)) {
5606 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QR_unpack" "', argument " "2"" of type '" "gsl_vector const *""'");
5607 }
5608 arg2 = (gsl_vector *)(argp2);
5609 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5610 if (!SWIG_IsOK(res3)) {
5611 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QR_unpack" "', argument " "3"" of type '" "gsl_matrix *""'");
5612 }
5613 arg3 = (gsl_matrix *)(argp3);
5614 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5615 if (!SWIG_IsOK(res4)) {
5616 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_QR_unpack" "', argument " "4"" of type '" "gsl_matrix *""'");
5617 }
5618 arg4 = (gsl_matrix *)(argp4);
5619 result = (int)gsl_linalg_QR_unpack((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3,arg4);
5620 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5621
5622
5623
5624
5625 XSRETURN(argvi);
5626 fail:
5627
5628
5629
5630
5631 SWIG_croak_null();
5632 }
5633 }
5634
5635
XS(_wrap_gsl_linalg_QR_unpack_r)5636 XS(_wrap_gsl_linalg_QR_unpack_r) {
5637 {
5638 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5639 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
5640 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
5641 gsl_matrix *arg4 = (gsl_matrix *) 0 ;
5642 void *argp1 = 0 ;
5643 int res1 = 0 ;
5644 void *argp2 = 0 ;
5645 int res2 = 0 ;
5646 void *argp3 = 0 ;
5647 int res3 = 0 ;
5648 void *argp4 = 0 ;
5649 int res4 = 0 ;
5650 int argvi = 0;
5651 int result;
5652 dXSARGS;
5653
5654 if ((items < 4) || (items > 4)) {
5655 SWIG_croak("Usage: gsl_linalg_QR_unpack_r(QR,T,Q,R);");
5656 }
5657 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5658 if (!SWIG_IsOK(res1)) {
5659 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QR_unpack_r" "', argument " "1"" of type '" "gsl_matrix const *""'");
5660 }
5661 arg1 = (gsl_matrix *)(argp1);
5662 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5663 if (!SWIG_IsOK(res2)) {
5664 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QR_unpack_r" "', argument " "2"" of type '" "gsl_matrix const *""'");
5665 }
5666 arg2 = (gsl_matrix *)(argp2);
5667 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5668 if (!SWIG_IsOK(res3)) {
5669 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QR_unpack_r" "', argument " "3"" of type '" "gsl_matrix *""'");
5670 }
5671 arg3 = (gsl_matrix *)(argp3);
5672 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5673 if (!SWIG_IsOK(res4)) {
5674 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_QR_unpack_r" "', argument " "4"" of type '" "gsl_matrix *""'");
5675 }
5676 arg4 = (gsl_matrix *)(argp4);
5677 result = (int)gsl_linalg_QR_unpack_r((gsl_matrix const *)arg1,(gsl_matrix const *)arg2,arg3,arg4);
5678 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5679
5680
5681
5682
5683 XSRETURN(argvi);
5684 fail:
5685
5686
5687
5688
5689 SWIG_croak_null();
5690 }
5691 }
5692
5693
XS(_wrap_gsl_linalg_R_solve)5694 XS(_wrap_gsl_linalg_R_solve) {
5695 {
5696 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5697 gsl_vector *arg2 = (gsl_vector *) 0 ;
5698 gsl_vector *arg3 = (gsl_vector *) 0 ;
5699 void *argp1 = 0 ;
5700 int res1 = 0 ;
5701 void *argp2 = 0 ;
5702 int res2 = 0 ;
5703 void *argp3 = 0 ;
5704 int res3 = 0 ;
5705 int argvi = 0;
5706 int result;
5707 dXSARGS;
5708
5709 if ((items < 3) || (items > 3)) {
5710 SWIG_croak("Usage: gsl_linalg_R_solve(R,b,x);");
5711 }
5712 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5713 if (!SWIG_IsOK(res1)) {
5714 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_R_solve" "', argument " "1"" of type '" "gsl_matrix const *""'");
5715 }
5716 arg1 = (gsl_matrix *)(argp1);
5717 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
5718 if (!SWIG_IsOK(res2)) {
5719 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_R_solve" "', argument " "2"" of type '" "gsl_vector const *""'");
5720 }
5721 arg2 = (gsl_vector *)(argp2);
5722 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
5723 if (!SWIG_IsOK(res3)) {
5724 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_R_solve" "', argument " "3"" of type '" "gsl_vector *""'");
5725 }
5726 arg3 = (gsl_vector *)(argp3);
5727 result = (int)gsl_linalg_R_solve((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3);
5728 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5729
5730
5731
5732 XSRETURN(argvi);
5733 fail:
5734
5735
5736
5737 SWIG_croak_null();
5738 }
5739 }
5740
5741
XS(_wrap_gsl_linalg_R_svx)5742 XS(_wrap_gsl_linalg_R_svx) {
5743 {
5744 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5745 gsl_vector *arg2 = (gsl_vector *) 0 ;
5746 void *argp1 = 0 ;
5747 int res1 = 0 ;
5748 void *argp2 = 0 ;
5749 int res2 = 0 ;
5750 int argvi = 0;
5751 int result;
5752 dXSARGS;
5753
5754 if ((items < 2) || (items > 2)) {
5755 SWIG_croak("Usage: gsl_linalg_R_svx(R,x);");
5756 }
5757 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5758 if (!SWIG_IsOK(res1)) {
5759 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_R_svx" "', argument " "1"" of type '" "gsl_matrix const *""'");
5760 }
5761 arg1 = (gsl_matrix *)(argp1);
5762 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
5763 if (!SWIG_IsOK(res2)) {
5764 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_R_svx" "', argument " "2"" of type '" "gsl_vector *""'");
5765 }
5766 arg2 = (gsl_vector *)(argp2);
5767 result = (int)gsl_linalg_R_svx((gsl_matrix const *)arg1,arg2);
5768 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5769
5770
5771 XSRETURN(argvi);
5772 fail:
5773
5774
5775 SWIG_croak_null();
5776 }
5777 }
5778
5779
XS(_wrap_gsl_linalg_QR_rcond)5780 XS(_wrap_gsl_linalg_QR_rcond) {
5781 {
5782 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5783 double *arg2 = (double *) 0 ;
5784 gsl_vector *arg3 = (gsl_vector *) 0 ;
5785 void *argp1 = 0 ;
5786 int res1 = 0 ;
5787 void *argp2 = 0 ;
5788 int res2 = 0 ;
5789 void *argp3 = 0 ;
5790 int res3 = 0 ;
5791 int argvi = 0;
5792 int result;
5793 dXSARGS;
5794
5795 if ((items < 3) || (items > 3)) {
5796 SWIG_croak("Usage: gsl_linalg_QR_rcond(QR,rcond,work);");
5797 }
5798 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5799 if (!SWIG_IsOK(res1)) {
5800 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QR_rcond" "', argument " "1"" of type '" "gsl_matrix const *""'");
5801 }
5802 arg1 = (gsl_matrix *)(argp1);
5803 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_double, 0 | 0 );
5804 if (!SWIG_IsOK(res2)) {
5805 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QR_rcond" "', argument " "2"" of type '" "double *""'");
5806 }
5807 arg2 = (double *)(argp2);
5808 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
5809 if (!SWIG_IsOK(res3)) {
5810 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QR_rcond" "', argument " "3"" of type '" "gsl_vector *""'");
5811 }
5812 arg3 = (gsl_vector *)(argp3);
5813 result = (int)gsl_linalg_QR_rcond((gsl_matrix const *)arg1,arg2,arg3);
5814 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5815
5816
5817
5818 XSRETURN(argvi);
5819 fail:
5820
5821
5822
5823 SWIG_croak_null();
5824 }
5825 }
5826
5827
XS(_wrap_gsl_linalg_QRPT_decomp)5828 XS(_wrap_gsl_linalg_QRPT_decomp) {
5829 {
5830 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5831 gsl_vector *arg2 = (gsl_vector *) 0 ;
5832 gsl_permutation *arg3 = (gsl_permutation *) 0 ;
5833 int *arg4 = (int *) 0 ;
5834 gsl_vector *arg5 = (gsl_vector *) 0 ;
5835 void *argp1 = 0 ;
5836 int res1 = 0 ;
5837 void *argp2 = 0 ;
5838 int res2 = 0 ;
5839 void *argp3 = 0 ;
5840 int res3 = 0 ;
5841 int temp4 ;
5842 int res4 = SWIG_TMPOBJ ;
5843 void *argp5 = 0 ;
5844 int res5 = 0 ;
5845 int argvi = 0;
5846 int result;
5847 dXSARGS;
5848
5849 arg4 = &temp4;
5850 if ((items < 4) || (items > 4)) {
5851 SWIG_croak("Usage: gsl_linalg_QRPT_decomp(A,tau,p,norm);");
5852 }
5853 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5854 if (!SWIG_IsOK(res1)) {
5855 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QRPT_decomp" "', argument " "1"" of type '" "gsl_matrix *""'");
5856 }
5857 arg1 = (gsl_matrix *)(argp1);
5858 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
5859 if (!SWIG_IsOK(res2)) {
5860 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QRPT_decomp" "', argument " "2"" of type '" "gsl_vector *""'");
5861 }
5862 arg2 = (gsl_vector *)(argp2);
5863 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
5864 if (!SWIG_IsOK(res3)) {
5865 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QRPT_decomp" "', argument " "3"" of type '" "gsl_permutation *""'");
5866 }
5867 arg3 = (gsl_permutation *)(argp3);
5868 res5 = SWIG_ConvertPtr(ST(3), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
5869 if (!SWIG_IsOK(res5)) {
5870 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_QRPT_decomp" "', argument " "5"" of type '" "gsl_vector *""'");
5871 }
5872 arg5 = (gsl_vector *)(argp5);
5873 result = (int)gsl_linalg_QRPT_decomp(arg1,arg2,arg3,arg4,arg5);
5874 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5875 if (SWIG_IsTmpObj(res4)) {
5876 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((*arg4)); argvi++ ;
5877 } else {
5878 int new_flags = SWIG_IsNewObj(res4) ? (SWIG_POINTER_OWN | 0) : 0;
5879 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg4), SWIGTYPE_p_int, new_flags); argvi++ ;
5880 }
5881
5882
5883
5884
5885
5886 XSRETURN(argvi);
5887 fail:
5888
5889
5890
5891
5892
5893 SWIG_croak_null();
5894 }
5895 }
5896
5897
XS(_wrap_gsl_linalg_QRPT_decomp2)5898 XS(_wrap_gsl_linalg_QRPT_decomp2) {
5899 {
5900 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5901 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
5902 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
5903 gsl_vector *arg4 = (gsl_vector *) 0 ;
5904 gsl_permutation *arg5 = (gsl_permutation *) 0 ;
5905 int *arg6 = (int *) 0 ;
5906 gsl_vector *arg7 = (gsl_vector *) 0 ;
5907 void *argp1 = 0 ;
5908 int res1 = 0 ;
5909 void *argp2 = 0 ;
5910 int res2 = 0 ;
5911 void *argp3 = 0 ;
5912 int res3 = 0 ;
5913 void *argp4 = 0 ;
5914 int res4 = 0 ;
5915 void *argp5 = 0 ;
5916 int res5 = 0 ;
5917 int temp6 ;
5918 int res6 = SWIG_TMPOBJ ;
5919 void *argp7 = 0 ;
5920 int res7 = 0 ;
5921 int argvi = 0;
5922 int result;
5923 dXSARGS;
5924
5925 arg6 = &temp6;
5926 if ((items < 6) || (items > 6)) {
5927 SWIG_croak("Usage: gsl_linalg_QRPT_decomp2(A,q,r,tau,p,norm);");
5928 }
5929 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5930 if (!SWIG_IsOK(res1)) {
5931 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QRPT_decomp2" "', argument " "1"" of type '" "gsl_matrix const *""'");
5932 }
5933 arg1 = (gsl_matrix *)(argp1);
5934 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5935 if (!SWIG_IsOK(res2)) {
5936 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QRPT_decomp2" "', argument " "2"" of type '" "gsl_matrix *""'");
5937 }
5938 arg2 = (gsl_matrix *)(argp2);
5939 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5940 if (!SWIG_IsOK(res3)) {
5941 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QRPT_decomp2" "', argument " "3"" of type '" "gsl_matrix *""'");
5942 }
5943 arg3 = (gsl_matrix *)(argp3);
5944 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
5945 if (!SWIG_IsOK(res4)) {
5946 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_QRPT_decomp2" "', argument " "4"" of type '" "gsl_vector *""'");
5947 }
5948 arg4 = (gsl_vector *)(argp4);
5949 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
5950 if (!SWIG_IsOK(res5)) {
5951 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_QRPT_decomp2" "', argument " "5"" of type '" "gsl_permutation *""'");
5952 }
5953 arg5 = (gsl_permutation *)(argp5);
5954 res7 = SWIG_ConvertPtr(ST(5), &argp7,SWIGTYPE_p_gsl_vector, 0 | 0 );
5955 if (!SWIG_IsOK(res7)) {
5956 SWIG_exception_fail(SWIG_ArgError(res7), "in method '" "gsl_linalg_QRPT_decomp2" "', argument " "7"" of type '" "gsl_vector *""'");
5957 }
5958 arg7 = (gsl_vector *)(argp7);
5959 result = (int)gsl_linalg_QRPT_decomp2((gsl_matrix const *)arg1,arg2,arg3,arg4,arg5,arg6,arg7);
5960 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5961 if (SWIG_IsTmpObj(res6)) {
5962 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((*arg6)); argvi++ ;
5963 } else {
5964 int new_flags = SWIG_IsNewObj(res6) ? (SWIG_POINTER_OWN | 0) : 0;
5965 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg6), SWIGTYPE_p_int, new_flags); argvi++ ;
5966 }
5967
5968
5969
5970
5971
5972
5973
5974 XSRETURN(argvi);
5975 fail:
5976
5977
5978
5979
5980
5981
5982
5983 SWIG_croak_null();
5984 }
5985 }
5986
5987
XS(_wrap_gsl_linalg_QRPT_solve)5988 XS(_wrap_gsl_linalg_QRPT_solve) {
5989 {
5990 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5991 gsl_vector *arg2 = (gsl_vector *) 0 ;
5992 gsl_permutation *arg3 = (gsl_permutation *) 0 ;
5993 gsl_vector *arg4 = (gsl_vector *) 0 ;
5994 gsl_vector *arg5 = (gsl_vector *) 0 ;
5995 void *argp1 = 0 ;
5996 int res1 = 0 ;
5997 void *argp2 = 0 ;
5998 int res2 = 0 ;
5999 void *argp3 = 0 ;
6000 int res3 = 0 ;
6001 void *argp4 = 0 ;
6002 int res4 = 0 ;
6003 void *argp5 = 0 ;
6004 int res5 = 0 ;
6005 int argvi = 0;
6006 int result;
6007 dXSARGS;
6008
6009 if ((items < 5) || (items > 5)) {
6010 SWIG_croak("Usage: gsl_linalg_QRPT_solve(QR,tau,p,b,x);");
6011 }
6012 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6013 if (!SWIG_IsOK(res1)) {
6014 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QRPT_solve" "', argument " "1"" of type '" "gsl_matrix const *""'");
6015 }
6016 arg1 = (gsl_matrix *)(argp1);
6017 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
6018 if (!SWIG_IsOK(res2)) {
6019 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QRPT_solve" "', argument " "2"" of type '" "gsl_vector const *""'");
6020 }
6021 arg2 = (gsl_vector *)(argp2);
6022 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
6023 if (!SWIG_IsOK(res3)) {
6024 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QRPT_solve" "', argument " "3"" of type '" "gsl_permutation const *""'");
6025 }
6026 arg3 = (gsl_permutation *)(argp3);
6027 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
6028 if (!SWIG_IsOK(res4)) {
6029 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_QRPT_solve" "', argument " "4"" of type '" "gsl_vector const *""'");
6030 }
6031 arg4 = (gsl_vector *)(argp4);
6032 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
6033 if (!SWIG_IsOK(res5)) {
6034 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_QRPT_solve" "', argument " "5"" of type '" "gsl_vector *""'");
6035 }
6036 arg5 = (gsl_vector *)(argp5);
6037 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);
6038 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6039
6040
6041
6042
6043
6044 XSRETURN(argvi);
6045 fail:
6046
6047
6048
6049
6050
6051 SWIG_croak_null();
6052 }
6053 }
6054
6055
XS(_wrap_gsl_linalg_QRPT_lssolve)6056 XS(_wrap_gsl_linalg_QRPT_lssolve) {
6057 {
6058 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
6059 gsl_vector *arg2 = (gsl_vector *) 0 ;
6060 gsl_permutation *arg3 = (gsl_permutation *) 0 ;
6061 gsl_vector *arg4 = (gsl_vector *) 0 ;
6062 gsl_vector *arg5 = (gsl_vector *) 0 ;
6063 gsl_vector *arg6 = (gsl_vector *) 0 ;
6064 void *argp1 = 0 ;
6065 int res1 = 0 ;
6066 void *argp2 = 0 ;
6067 int res2 = 0 ;
6068 void *argp3 = 0 ;
6069 int res3 = 0 ;
6070 void *argp4 = 0 ;
6071 int res4 = 0 ;
6072 void *argp5 = 0 ;
6073 int res5 = 0 ;
6074 void *argp6 = 0 ;
6075 int res6 = 0 ;
6076 int argvi = 0;
6077 int result;
6078 dXSARGS;
6079
6080 if ((items < 6) || (items > 6)) {
6081 SWIG_croak("Usage: gsl_linalg_QRPT_lssolve(QR,tau,p,b,x,residual);");
6082 }
6083 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6084 if (!SWIG_IsOK(res1)) {
6085 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QRPT_lssolve" "', argument " "1"" of type '" "gsl_matrix const *""'");
6086 }
6087 arg1 = (gsl_matrix *)(argp1);
6088 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
6089 if (!SWIG_IsOK(res2)) {
6090 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QRPT_lssolve" "', argument " "2"" of type '" "gsl_vector const *""'");
6091 }
6092 arg2 = (gsl_vector *)(argp2);
6093 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
6094 if (!SWIG_IsOK(res3)) {
6095 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QRPT_lssolve" "', argument " "3"" of type '" "gsl_permutation const *""'");
6096 }
6097 arg3 = (gsl_permutation *)(argp3);
6098 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
6099 if (!SWIG_IsOK(res4)) {
6100 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_QRPT_lssolve" "', argument " "4"" of type '" "gsl_vector const *""'");
6101 }
6102 arg4 = (gsl_vector *)(argp4);
6103 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
6104 if (!SWIG_IsOK(res5)) {
6105 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_QRPT_lssolve" "', argument " "5"" of type '" "gsl_vector *""'");
6106 }
6107 arg5 = (gsl_vector *)(argp5);
6108 res6 = SWIG_ConvertPtr(ST(5), &argp6,SWIGTYPE_p_gsl_vector, 0 | 0 );
6109 if (!SWIG_IsOK(res6)) {
6110 SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_linalg_QRPT_lssolve" "', argument " "6"" of type '" "gsl_vector *""'");
6111 }
6112 arg6 = (gsl_vector *)(argp6);
6113 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);
6114 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6115
6116
6117
6118
6119
6120
6121 XSRETURN(argvi);
6122 fail:
6123
6124
6125
6126
6127
6128
6129 SWIG_croak_null();
6130 }
6131 }
6132
6133
XS(_wrap_gsl_linalg_QRPT_lssolve2)6134 XS(_wrap_gsl_linalg_QRPT_lssolve2) {
6135 {
6136 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
6137 gsl_vector *arg2 = (gsl_vector *) 0 ;
6138 gsl_permutation *arg3 = (gsl_permutation *) 0 ;
6139 gsl_vector *arg4 = (gsl_vector *) 0 ;
6140 size_t arg5 ;
6141 gsl_vector *arg6 = (gsl_vector *) 0 ;
6142 gsl_vector *arg7 = (gsl_vector *) 0 ;
6143 void *argp1 = 0 ;
6144 int res1 = 0 ;
6145 void *argp2 = 0 ;
6146 int res2 = 0 ;
6147 void *argp3 = 0 ;
6148 int res3 = 0 ;
6149 void *argp4 = 0 ;
6150 int res4 = 0 ;
6151 size_t val5 ;
6152 int ecode5 = 0 ;
6153 void *argp6 = 0 ;
6154 int res6 = 0 ;
6155 void *argp7 = 0 ;
6156 int res7 = 0 ;
6157 int argvi = 0;
6158 int result;
6159 dXSARGS;
6160
6161 if ((items < 7) || (items > 7)) {
6162 SWIG_croak("Usage: gsl_linalg_QRPT_lssolve2(QR,tau,p,b,rank,x,residual);");
6163 }
6164 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6165 if (!SWIG_IsOK(res1)) {
6166 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QRPT_lssolve2" "', argument " "1"" of type '" "gsl_matrix const *""'");
6167 }
6168 arg1 = (gsl_matrix *)(argp1);
6169 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
6170 if (!SWIG_IsOK(res2)) {
6171 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QRPT_lssolve2" "', argument " "2"" of type '" "gsl_vector const *""'");
6172 }
6173 arg2 = (gsl_vector *)(argp2);
6174 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
6175 if (!SWIG_IsOK(res3)) {
6176 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QRPT_lssolve2" "', argument " "3"" of type '" "gsl_permutation const *""'");
6177 }
6178 arg3 = (gsl_permutation *)(argp3);
6179 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
6180 if (!SWIG_IsOK(res4)) {
6181 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_QRPT_lssolve2" "', argument " "4"" of type '" "gsl_vector const *""'");
6182 }
6183 arg4 = (gsl_vector *)(argp4);
6184 ecode5 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(4), &val5);
6185 if (!SWIG_IsOK(ecode5)) {
6186 SWIG_exception_fail(SWIG_ArgError(ecode5), "in method '" "gsl_linalg_QRPT_lssolve2" "', argument " "5"" of type '" "size_t""'");
6187 }
6188 arg5 = (size_t)(val5);
6189 res6 = SWIG_ConvertPtr(ST(5), &argp6,SWIGTYPE_p_gsl_vector, 0 | 0 );
6190 if (!SWIG_IsOK(res6)) {
6191 SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_linalg_QRPT_lssolve2" "', argument " "6"" of type '" "gsl_vector *""'");
6192 }
6193 arg6 = (gsl_vector *)(argp6);
6194 res7 = SWIG_ConvertPtr(ST(6), &argp7,SWIGTYPE_p_gsl_vector, 0 | 0 );
6195 if (!SWIG_IsOK(res7)) {
6196 SWIG_exception_fail(SWIG_ArgError(res7), "in method '" "gsl_linalg_QRPT_lssolve2" "', argument " "7"" of type '" "gsl_vector *""'");
6197 }
6198 arg7 = (gsl_vector *)(argp7);
6199 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);
6200 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6201
6202
6203
6204
6205
6206
6207
6208 XSRETURN(argvi);
6209 fail:
6210
6211
6212
6213
6214
6215
6216
6217 SWIG_croak_null();
6218 }
6219 }
6220
6221
XS(_wrap_gsl_linalg_QRPT_svx)6222 XS(_wrap_gsl_linalg_QRPT_svx) {
6223 {
6224 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
6225 gsl_vector *arg2 = (gsl_vector *) 0 ;
6226 gsl_permutation *arg3 = (gsl_permutation *) 0 ;
6227 gsl_vector *arg4 = (gsl_vector *) 0 ;
6228 void *argp1 = 0 ;
6229 int res1 = 0 ;
6230 void *argp2 = 0 ;
6231 int res2 = 0 ;
6232 void *argp3 = 0 ;
6233 int res3 = 0 ;
6234 void *argp4 = 0 ;
6235 int res4 = 0 ;
6236 int argvi = 0;
6237 int result;
6238 dXSARGS;
6239
6240 if ((items < 4) || (items > 4)) {
6241 SWIG_croak("Usage: gsl_linalg_QRPT_svx(QR,tau,p,x);");
6242 }
6243 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6244 if (!SWIG_IsOK(res1)) {
6245 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QRPT_svx" "', argument " "1"" of type '" "gsl_matrix const *""'");
6246 }
6247 arg1 = (gsl_matrix *)(argp1);
6248 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
6249 if (!SWIG_IsOK(res2)) {
6250 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QRPT_svx" "', argument " "2"" of type '" "gsl_vector const *""'");
6251 }
6252 arg2 = (gsl_vector *)(argp2);
6253 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
6254 if (!SWIG_IsOK(res3)) {
6255 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QRPT_svx" "', argument " "3"" of type '" "gsl_permutation const *""'");
6256 }
6257 arg3 = (gsl_permutation *)(argp3);
6258 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
6259 if (!SWIG_IsOK(res4)) {
6260 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_QRPT_svx" "', argument " "4"" of type '" "gsl_vector *""'");
6261 }
6262 arg4 = (gsl_vector *)(argp4);
6263 result = (int)gsl_linalg_QRPT_svx((gsl_matrix const *)arg1,(gsl_vector const *)arg2,(struct gsl_permutation_struct const *)arg3,arg4);
6264 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6265
6266
6267
6268
6269 XSRETURN(argvi);
6270 fail:
6271
6272
6273
6274
6275 SWIG_croak_null();
6276 }
6277 }
6278
6279
XS(_wrap_gsl_linalg_QRPT_QRsolve)6280 XS(_wrap_gsl_linalg_QRPT_QRsolve) {
6281 {
6282 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
6283 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
6284 gsl_permutation *arg3 = (gsl_permutation *) 0 ;
6285 gsl_vector *arg4 = (gsl_vector *) 0 ;
6286 gsl_vector *arg5 = (gsl_vector *) 0 ;
6287 void *argp1 = 0 ;
6288 int res1 = 0 ;
6289 void *argp2 = 0 ;
6290 int res2 = 0 ;
6291 void *argp3 = 0 ;
6292 int res3 = 0 ;
6293 void *argp4 = 0 ;
6294 int res4 = 0 ;
6295 void *argp5 = 0 ;
6296 int res5 = 0 ;
6297 int argvi = 0;
6298 int result;
6299 dXSARGS;
6300
6301 if ((items < 5) || (items > 5)) {
6302 SWIG_croak("Usage: gsl_linalg_QRPT_QRsolve(Q,R,p,b,x);");
6303 }
6304 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6305 if (!SWIG_IsOK(res1)) {
6306 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QRPT_QRsolve" "', argument " "1"" of type '" "gsl_matrix const *""'");
6307 }
6308 arg1 = (gsl_matrix *)(argp1);
6309 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6310 if (!SWIG_IsOK(res2)) {
6311 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QRPT_QRsolve" "', argument " "2"" of type '" "gsl_matrix const *""'");
6312 }
6313 arg2 = (gsl_matrix *)(argp2);
6314 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
6315 if (!SWIG_IsOK(res3)) {
6316 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QRPT_QRsolve" "', argument " "3"" of type '" "gsl_permutation const *""'");
6317 }
6318 arg3 = (gsl_permutation *)(argp3);
6319 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
6320 if (!SWIG_IsOK(res4)) {
6321 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_QRPT_QRsolve" "', argument " "4"" of type '" "gsl_vector const *""'");
6322 }
6323 arg4 = (gsl_vector *)(argp4);
6324 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
6325 if (!SWIG_IsOK(res5)) {
6326 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_QRPT_QRsolve" "', argument " "5"" of type '" "gsl_vector *""'");
6327 }
6328 arg5 = (gsl_vector *)(argp5);
6329 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);
6330 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6331
6332
6333
6334
6335
6336 XSRETURN(argvi);
6337 fail:
6338
6339
6340
6341
6342
6343 SWIG_croak_null();
6344 }
6345 }
6346
6347
XS(_wrap_gsl_linalg_QRPT_Rsolve)6348 XS(_wrap_gsl_linalg_QRPT_Rsolve) {
6349 {
6350 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
6351 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
6352 gsl_vector *arg3 = (gsl_vector *) 0 ;
6353 gsl_vector *arg4 = (gsl_vector *) 0 ;
6354 void *argp1 = 0 ;
6355 int res1 = 0 ;
6356 void *argp2 = 0 ;
6357 int res2 = 0 ;
6358 void *argp3 = 0 ;
6359 int res3 = 0 ;
6360 void *argp4 = 0 ;
6361 int res4 = 0 ;
6362 int argvi = 0;
6363 int result;
6364 dXSARGS;
6365
6366 if ((items < 4) || (items > 4)) {
6367 SWIG_croak("Usage: gsl_linalg_QRPT_Rsolve(QR,p,b,x);");
6368 }
6369 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6370 if (!SWIG_IsOK(res1)) {
6371 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QRPT_Rsolve" "', argument " "1"" of type '" "gsl_matrix const *""'");
6372 }
6373 arg1 = (gsl_matrix *)(argp1);
6374 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
6375 if (!SWIG_IsOK(res2)) {
6376 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QRPT_Rsolve" "', argument " "2"" of type '" "gsl_permutation const *""'");
6377 }
6378 arg2 = (gsl_permutation *)(argp2);
6379 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
6380 if (!SWIG_IsOK(res3)) {
6381 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QRPT_Rsolve" "', argument " "3"" of type '" "gsl_vector const *""'");
6382 }
6383 arg3 = (gsl_vector *)(argp3);
6384 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
6385 if (!SWIG_IsOK(res4)) {
6386 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_QRPT_Rsolve" "', argument " "4"" of type '" "gsl_vector *""'");
6387 }
6388 arg4 = (gsl_vector *)(argp4);
6389 result = (int)gsl_linalg_QRPT_Rsolve((gsl_matrix const *)arg1,(struct gsl_permutation_struct const *)arg2,(gsl_vector const *)arg3,arg4);
6390 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6391
6392
6393
6394
6395 XSRETURN(argvi);
6396 fail:
6397
6398
6399
6400
6401 SWIG_croak_null();
6402 }
6403 }
6404
6405
XS(_wrap_gsl_linalg_QRPT_Rsvx)6406 XS(_wrap_gsl_linalg_QRPT_Rsvx) {
6407 {
6408 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
6409 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
6410 gsl_vector *arg3 = (gsl_vector *) 0 ;
6411 void *argp1 = 0 ;
6412 int res1 = 0 ;
6413 void *argp2 = 0 ;
6414 int res2 = 0 ;
6415 void *argp3 = 0 ;
6416 int res3 = 0 ;
6417 int argvi = 0;
6418 int result;
6419 dXSARGS;
6420
6421 if ((items < 3) || (items > 3)) {
6422 SWIG_croak("Usage: gsl_linalg_QRPT_Rsvx(QR,p,x);");
6423 }
6424 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6425 if (!SWIG_IsOK(res1)) {
6426 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QRPT_Rsvx" "', argument " "1"" of type '" "gsl_matrix const *""'");
6427 }
6428 arg1 = (gsl_matrix *)(argp1);
6429 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
6430 if (!SWIG_IsOK(res2)) {
6431 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QRPT_Rsvx" "', argument " "2"" of type '" "gsl_permutation const *""'");
6432 }
6433 arg2 = (gsl_permutation *)(argp2);
6434 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
6435 if (!SWIG_IsOK(res3)) {
6436 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QRPT_Rsvx" "', argument " "3"" of type '" "gsl_vector *""'");
6437 }
6438 arg3 = (gsl_vector *)(argp3);
6439 result = (int)gsl_linalg_QRPT_Rsvx((gsl_matrix const *)arg1,(struct gsl_permutation_struct const *)arg2,arg3);
6440 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6441
6442
6443
6444 XSRETURN(argvi);
6445 fail:
6446
6447
6448
6449 SWIG_croak_null();
6450 }
6451 }
6452
6453
XS(_wrap_gsl_linalg_QRPT_update)6454 XS(_wrap_gsl_linalg_QRPT_update) {
6455 {
6456 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
6457 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
6458 gsl_permutation *arg3 = (gsl_permutation *) 0 ;
6459 gsl_vector *arg4 = (gsl_vector *) 0 ;
6460 gsl_vector *arg5 = (gsl_vector *) 0 ;
6461 void *argp1 = 0 ;
6462 int res1 = 0 ;
6463 void *argp2 = 0 ;
6464 int res2 = 0 ;
6465 void *argp3 = 0 ;
6466 int res3 = 0 ;
6467 void *argp4 = 0 ;
6468 int res4 = 0 ;
6469 void *argp5 = 0 ;
6470 int res5 = 0 ;
6471 int argvi = 0;
6472 int result;
6473 dXSARGS;
6474
6475 if ((items < 5) || (items > 5)) {
6476 SWIG_croak("Usage: gsl_linalg_QRPT_update(Q,R,p,u,v);");
6477 }
6478 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6479 if (!SWIG_IsOK(res1)) {
6480 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QRPT_update" "', argument " "1"" of type '" "gsl_matrix *""'");
6481 }
6482 arg1 = (gsl_matrix *)(argp1);
6483 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6484 if (!SWIG_IsOK(res2)) {
6485 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QRPT_update" "', argument " "2"" of type '" "gsl_matrix *""'");
6486 }
6487 arg2 = (gsl_matrix *)(argp2);
6488 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
6489 if (!SWIG_IsOK(res3)) {
6490 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QRPT_update" "', argument " "3"" of type '" "gsl_permutation const *""'");
6491 }
6492 arg3 = (gsl_permutation *)(argp3);
6493 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
6494 if (!SWIG_IsOK(res4)) {
6495 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_QRPT_update" "', argument " "4"" of type '" "gsl_vector *""'");
6496 }
6497 arg4 = (gsl_vector *)(argp4);
6498 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
6499 if (!SWIG_IsOK(res5)) {
6500 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_QRPT_update" "', argument " "5"" of type '" "gsl_vector const *""'");
6501 }
6502 arg5 = (gsl_vector *)(argp5);
6503 result = (int)gsl_linalg_QRPT_update(arg1,arg2,(struct gsl_permutation_struct const *)arg3,arg4,(gsl_vector const *)arg5);
6504 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6505
6506
6507
6508
6509
6510 XSRETURN(argvi);
6511 fail:
6512
6513
6514
6515
6516
6517 SWIG_croak_null();
6518 }
6519 }
6520
6521
XS(_wrap_gsl_linalg_QRPT_rank)6522 XS(_wrap_gsl_linalg_QRPT_rank) {
6523 {
6524 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
6525 double arg2 ;
6526 void *argp1 = 0 ;
6527 int res1 = 0 ;
6528 double val2 ;
6529 int ecode2 = 0 ;
6530 int argvi = 0;
6531 size_t result;
6532 dXSARGS;
6533
6534 if ((items < 2) || (items > 2)) {
6535 SWIG_croak("Usage: gsl_linalg_QRPT_rank(QR,tol);");
6536 }
6537 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6538 if (!SWIG_IsOK(res1)) {
6539 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QRPT_rank" "', argument " "1"" of type '" "gsl_matrix const *""'");
6540 }
6541 arg1 = (gsl_matrix *)(argp1);
6542 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
6543 if (!SWIG_IsOK(ecode2)) {
6544 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_linalg_QRPT_rank" "', argument " "2"" of type '" "double""'");
6545 }
6546 arg2 = (double)(val2);
6547 result = gsl_linalg_QRPT_rank((gsl_matrix const *)arg1,arg2);
6548 ST(argvi) = SWIG_From_size_t SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
6549
6550
6551 XSRETURN(argvi);
6552 fail:
6553
6554
6555 SWIG_croak_null();
6556 }
6557 }
6558
6559
XS(_wrap_gsl_linalg_QRPT_rcond)6560 XS(_wrap_gsl_linalg_QRPT_rcond) {
6561 {
6562 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
6563 double *arg2 = (double *) 0 ;
6564 gsl_vector *arg3 = (gsl_vector *) 0 ;
6565 void *argp1 = 0 ;
6566 int res1 = 0 ;
6567 void *argp2 = 0 ;
6568 int res2 = 0 ;
6569 void *argp3 = 0 ;
6570 int res3 = 0 ;
6571 int argvi = 0;
6572 int result;
6573 dXSARGS;
6574
6575 if ((items < 3) || (items > 3)) {
6576 SWIG_croak("Usage: gsl_linalg_QRPT_rcond(QR,rcond,work);");
6577 }
6578 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6579 if (!SWIG_IsOK(res1)) {
6580 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QRPT_rcond" "', argument " "1"" of type '" "gsl_matrix const *""'");
6581 }
6582 arg1 = (gsl_matrix *)(argp1);
6583 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_double, 0 | 0 );
6584 if (!SWIG_IsOK(res2)) {
6585 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QRPT_rcond" "', argument " "2"" of type '" "double *""'");
6586 }
6587 arg2 = (double *)(argp2);
6588 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
6589 if (!SWIG_IsOK(res3)) {
6590 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QRPT_rcond" "', argument " "3"" of type '" "gsl_vector *""'");
6591 }
6592 arg3 = (gsl_vector *)(argp3);
6593 result = (int)gsl_linalg_QRPT_rcond((gsl_matrix const *)arg1,arg2,arg3);
6594 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6595
6596
6597
6598 XSRETURN(argvi);
6599 fail:
6600
6601
6602
6603 SWIG_croak_null();
6604 }
6605 }
6606
6607
XS(_wrap_gsl_linalg_COD_decomp)6608 XS(_wrap_gsl_linalg_COD_decomp) {
6609 {
6610 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
6611 gsl_vector *arg2 = (gsl_vector *) 0 ;
6612 gsl_vector *arg3 = (gsl_vector *) 0 ;
6613 gsl_permutation *arg4 = (gsl_permutation *) 0 ;
6614 size_t *arg5 = (size_t *) 0 ;
6615 gsl_vector *arg6 = (gsl_vector *) 0 ;
6616 void *argp1 = 0 ;
6617 int res1 = 0 ;
6618 void *argp2 = 0 ;
6619 int res2 = 0 ;
6620 void *argp3 = 0 ;
6621 int res3 = 0 ;
6622 void *argp4 = 0 ;
6623 int res4 = 0 ;
6624 void *argp5 = 0 ;
6625 int res5 = 0 ;
6626 void *argp6 = 0 ;
6627 int res6 = 0 ;
6628 int argvi = 0;
6629 int result;
6630 dXSARGS;
6631
6632 if ((items < 6) || (items > 6)) {
6633 SWIG_croak("Usage: gsl_linalg_COD_decomp(A,tau_Q,tau_Z,p,rank,work);");
6634 }
6635 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6636 if (!SWIG_IsOK(res1)) {
6637 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_COD_decomp" "', argument " "1"" of type '" "gsl_matrix *""'");
6638 }
6639 arg1 = (gsl_matrix *)(argp1);
6640 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
6641 if (!SWIG_IsOK(res2)) {
6642 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_COD_decomp" "', argument " "2"" of type '" "gsl_vector *""'");
6643 }
6644 arg2 = (gsl_vector *)(argp2);
6645 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
6646 if (!SWIG_IsOK(res3)) {
6647 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_COD_decomp" "', argument " "3"" of type '" "gsl_vector *""'");
6648 }
6649 arg3 = (gsl_vector *)(argp3);
6650 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
6651 if (!SWIG_IsOK(res4)) {
6652 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_COD_decomp" "', argument " "4"" of type '" "gsl_permutation *""'");
6653 }
6654 arg4 = (gsl_permutation *)(argp4);
6655 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_size_t, 0 | 0 );
6656 if (!SWIG_IsOK(res5)) {
6657 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_COD_decomp" "', argument " "5"" of type '" "size_t *""'");
6658 }
6659 arg5 = (size_t *)(argp5);
6660 res6 = SWIG_ConvertPtr(ST(5), &argp6,SWIGTYPE_p_gsl_vector, 0 | 0 );
6661 if (!SWIG_IsOK(res6)) {
6662 SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_linalg_COD_decomp" "', argument " "6"" of type '" "gsl_vector *""'");
6663 }
6664 arg6 = (gsl_vector *)(argp6);
6665 result = (int)gsl_linalg_COD_decomp(arg1,arg2,arg3,arg4,arg5,arg6);
6666 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6667
6668
6669
6670
6671
6672
6673 XSRETURN(argvi);
6674 fail:
6675
6676
6677
6678
6679
6680
6681 SWIG_croak_null();
6682 }
6683 }
6684
6685
XS(_wrap_gsl_linalg_COD_decomp_e)6686 XS(_wrap_gsl_linalg_COD_decomp_e) {
6687 {
6688 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
6689 gsl_vector *arg2 = (gsl_vector *) 0 ;
6690 gsl_vector *arg3 = (gsl_vector *) 0 ;
6691 gsl_permutation *arg4 = (gsl_permutation *) 0 ;
6692 double arg5 ;
6693 size_t *arg6 = (size_t *) 0 ;
6694 gsl_vector *arg7 = (gsl_vector *) 0 ;
6695 void *argp1 = 0 ;
6696 int res1 = 0 ;
6697 void *argp2 = 0 ;
6698 int res2 = 0 ;
6699 void *argp3 = 0 ;
6700 int res3 = 0 ;
6701 void *argp4 = 0 ;
6702 int res4 = 0 ;
6703 double val5 ;
6704 int ecode5 = 0 ;
6705 void *argp6 = 0 ;
6706 int res6 = 0 ;
6707 void *argp7 = 0 ;
6708 int res7 = 0 ;
6709 int argvi = 0;
6710 int result;
6711 dXSARGS;
6712
6713 if ((items < 7) || (items > 7)) {
6714 SWIG_croak("Usage: gsl_linalg_COD_decomp_e(A,tau_Q,tau_Z,p,tol,rank,work);");
6715 }
6716 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6717 if (!SWIG_IsOK(res1)) {
6718 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_COD_decomp_e" "', argument " "1"" of type '" "gsl_matrix *""'");
6719 }
6720 arg1 = (gsl_matrix *)(argp1);
6721 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
6722 if (!SWIG_IsOK(res2)) {
6723 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_COD_decomp_e" "', argument " "2"" of type '" "gsl_vector *""'");
6724 }
6725 arg2 = (gsl_vector *)(argp2);
6726 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
6727 if (!SWIG_IsOK(res3)) {
6728 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_COD_decomp_e" "', argument " "3"" of type '" "gsl_vector *""'");
6729 }
6730 arg3 = (gsl_vector *)(argp3);
6731 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
6732 if (!SWIG_IsOK(res4)) {
6733 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_COD_decomp_e" "', argument " "4"" of type '" "gsl_permutation *""'");
6734 }
6735 arg4 = (gsl_permutation *)(argp4);
6736 ecode5 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(4), &val5);
6737 if (!SWIG_IsOK(ecode5)) {
6738 SWIG_exception_fail(SWIG_ArgError(ecode5), "in method '" "gsl_linalg_COD_decomp_e" "', argument " "5"" of type '" "double""'");
6739 }
6740 arg5 = (double)(val5);
6741 res6 = SWIG_ConvertPtr(ST(5), &argp6,SWIGTYPE_p_size_t, 0 | 0 );
6742 if (!SWIG_IsOK(res6)) {
6743 SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_linalg_COD_decomp_e" "', argument " "6"" of type '" "size_t *""'");
6744 }
6745 arg6 = (size_t *)(argp6);
6746 res7 = SWIG_ConvertPtr(ST(6), &argp7,SWIGTYPE_p_gsl_vector, 0 | 0 );
6747 if (!SWIG_IsOK(res7)) {
6748 SWIG_exception_fail(SWIG_ArgError(res7), "in method '" "gsl_linalg_COD_decomp_e" "', argument " "7"" of type '" "gsl_vector *""'");
6749 }
6750 arg7 = (gsl_vector *)(argp7);
6751 result = (int)gsl_linalg_COD_decomp_e(arg1,arg2,arg3,arg4,arg5,arg6,arg7);
6752 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6753
6754
6755
6756
6757
6758
6759
6760 XSRETURN(argvi);
6761 fail:
6762
6763
6764
6765
6766
6767
6768
6769 SWIG_croak_null();
6770 }
6771 }
6772
6773
XS(_wrap_gsl_linalg_COD_lssolve)6774 XS(_wrap_gsl_linalg_COD_lssolve) {
6775 {
6776 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
6777 gsl_vector *arg2 = (gsl_vector *) 0 ;
6778 gsl_vector *arg3 = (gsl_vector *) 0 ;
6779 gsl_permutation *arg4 = (gsl_permutation *) 0 ;
6780 size_t arg5 ;
6781 gsl_vector *arg6 = (gsl_vector *) 0 ;
6782 gsl_vector *arg7 = (gsl_vector *) 0 ;
6783 gsl_vector *arg8 = (gsl_vector *) 0 ;
6784 void *argp1 = 0 ;
6785 int res1 = 0 ;
6786 void *argp2 = 0 ;
6787 int res2 = 0 ;
6788 void *argp3 = 0 ;
6789 int res3 = 0 ;
6790 void *argp4 = 0 ;
6791 int res4 = 0 ;
6792 size_t val5 ;
6793 int ecode5 = 0 ;
6794 void *argp6 = 0 ;
6795 int res6 = 0 ;
6796 void *argp7 = 0 ;
6797 int res7 = 0 ;
6798 void *argp8 = 0 ;
6799 int res8 = 0 ;
6800 int argvi = 0;
6801 int result;
6802 dXSARGS;
6803
6804 if ((items < 8) || (items > 8)) {
6805 SWIG_croak("Usage: gsl_linalg_COD_lssolve(QRZT,tau_Q,tau_Z,perm,rank,b,x,residual);");
6806 }
6807 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6808 if (!SWIG_IsOK(res1)) {
6809 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_COD_lssolve" "', argument " "1"" of type '" "gsl_matrix const *""'");
6810 }
6811 arg1 = (gsl_matrix *)(argp1);
6812 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
6813 if (!SWIG_IsOK(res2)) {
6814 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_COD_lssolve" "', argument " "2"" of type '" "gsl_vector const *""'");
6815 }
6816 arg2 = (gsl_vector *)(argp2);
6817 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
6818 if (!SWIG_IsOK(res3)) {
6819 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_COD_lssolve" "', argument " "3"" of type '" "gsl_vector const *""'");
6820 }
6821 arg3 = (gsl_vector *)(argp3);
6822 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
6823 if (!SWIG_IsOK(res4)) {
6824 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_COD_lssolve" "', argument " "4"" of type '" "gsl_permutation const *""'");
6825 }
6826 arg4 = (gsl_permutation *)(argp4);
6827 ecode5 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(4), &val5);
6828 if (!SWIG_IsOK(ecode5)) {
6829 SWIG_exception_fail(SWIG_ArgError(ecode5), "in method '" "gsl_linalg_COD_lssolve" "', argument " "5"" of type '" "size_t""'");
6830 }
6831 arg5 = (size_t)(val5);
6832 res6 = SWIG_ConvertPtr(ST(5), &argp6,SWIGTYPE_p_gsl_vector, 0 | 0 );
6833 if (!SWIG_IsOK(res6)) {
6834 SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_linalg_COD_lssolve" "', argument " "6"" of type '" "gsl_vector const *""'");
6835 }
6836 arg6 = (gsl_vector *)(argp6);
6837 res7 = SWIG_ConvertPtr(ST(6), &argp7,SWIGTYPE_p_gsl_vector, 0 | 0 );
6838 if (!SWIG_IsOK(res7)) {
6839 SWIG_exception_fail(SWIG_ArgError(res7), "in method '" "gsl_linalg_COD_lssolve" "', argument " "7"" of type '" "gsl_vector *""'");
6840 }
6841 arg7 = (gsl_vector *)(argp7);
6842 res8 = SWIG_ConvertPtr(ST(7), &argp8,SWIGTYPE_p_gsl_vector, 0 | 0 );
6843 if (!SWIG_IsOK(res8)) {
6844 SWIG_exception_fail(SWIG_ArgError(res8), "in method '" "gsl_linalg_COD_lssolve" "', argument " "8"" of type '" "gsl_vector *""'");
6845 }
6846 arg8 = (gsl_vector *)(argp8);
6847 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);
6848 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6849
6850
6851
6852
6853
6854
6855
6856
6857 XSRETURN(argvi);
6858 fail:
6859
6860
6861
6862
6863
6864
6865
6866
6867 SWIG_croak_null();
6868 }
6869 }
6870
6871
XS(_wrap_gsl_linalg_COD_lssolve2)6872 XS(_wrap_gsl_linalg_COD_lssolve2) {
6873 {
6874 double arg1 ;
6875 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
6876 gsl_vector *arg3 = (gsl_vector *) 0 ;
6877 gsl_vector *arg4 = (gsl_vector *) 0 ;
6878 gsl_permutation *arg5 = (gsl_permutation *) 0 ;
6879 size_t arg6 ;
6880 gsl_vector *arg7 = (gsl_vector *) 0 ;
6881 gsl_vector *arg8 = (gsl_vector *) 0 ;
6882 gsl_vector *arg9 = (gsl_vector *) 0 ;
6883 gsl_matrix *arg10 = (gsl_matrix *) 0 ;
6884 gsl_vector *arg11 = (gsl_vector *) 0 ;
6885 double val1 ;
6886 int ecode1 = 0 ;
6887 void *argp2 = 0 ;
6888 int res2 = 0 ;
6889 void *argp3 = 0 ;
6890 int res3 = 0 ;
6891 void *argp4 = 0 ;
6892 int res4 = 0 ;
6893 void *argp5 = 0 ;
6894 int res5 = 0 ;
6895 size_t val6 ;
6896 int ecode6 = 0 ;
6897 void *argp7 = 0 ;
6898 int res7 = 0 ;
6899 void *argp8 = 0 ;
6900 int res8 = 0 ;
6901 void *argp9 = 0 ;
6902 int res9 = 0 ;
6903 void *argp10 = 0 ;
6904 int res10 = 0 ;
6905 void *argp11 = 0 ;
6906 int res11 = 0 ;
6907 int argvi = 0;
6908 int result;
6909 dXSARGS;
6910
6911 if ((items < 11) || (items > 11)) {
6912 SWIG_croak("Usage: gsl_linalg_COD_lssolve2(lambda,QRZT,tau_Q,tau_Z,perm,rank,b,x,residual,S,work);");
6913 }
6914 ecode1 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
6915 if (!SWIG_IsOK(ecode1)) {
6916 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_linalg_COD_lssolve2" "', argument " "1"" of type '" "double""'");
6917 }
6918 arg1 = (double)(val1);
6919 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6920 if (!SWIG_IsOK(res2)) {
6921 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_COD_lssolve2" "', argument " "2"" of type '" "gsl_matrix const *""'");
6922 }
6923 arg2 = (gsl_matrix *)(argp2);
6924 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
6925 if (!SWIG_IsOK(res3)) {
6926 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_COD_lssolve2" "', argument " "3"" of type '" "gsl_vector const *""'");
6927 }
6928 arg3 = (gsl_vector *)(argp3);
6929 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
6930 if (!SWIG_IsOK(res4)) {
6931 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_COD_lssolve2" "', argument " "4"" of type '" "gsl_vector const *""'");
6932 }
6933 arg4 = (gsl_vector *)(argp4);
6934 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
6935 if (!SWIG_IsOK(res5)) {
6936 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_COD_lssolve2" "', argument " "5"" of type '" "gsl_permutation const *""'");
6937 }
6938 arg5 = (gsl_permutation *)(argp5);
6939 ecode6 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(5), &val6);
6940 if (!SWIG_IsOK(ecode6)) {
6941 SWIG_exception_fail(SWIG_ArgError(ecode6), "in method '" "gsl_linalg_COD_lssolve2" "', argument " "6"" of type '" "size_t""'");
6942 }
6943 arg6 = (size_t)(val6);
6944 res7 = SWIG_ConvertPtr(ST(6), &argp7,SWIGTYPE_p_gsl_vector, 0 | 0 );
6945 if (!SWIG_IsOK(res7)) {
6946 SWIG_exception_fail(SWIG_ArgError(res7), "in method '" "gsl_linalg_COD_lssolve2" "', argument " "7"" of type '" "gsl_vector const *""'");
6947 }
6948 arg7 = (gsl_vector *)(argp7);
6949 res8 = SWIG_ConvertPtr(ST(7), &argp8,SWIGTYPE_p_gsl_vector, 0 | 0 );
6950 if (!SWIG_IsOK(res8)) {
6951 SWIG_exception_fail(SWIG_ArgError(res8), "in method '" "gsl_linalg_COD_lssolve2" "', argument " "8"" of type '" "gsl_vector *""'");
6952 }
6953 arg8 = (gsl_vector *)(argp8);
6954 res9 = SWIG_ConvertPtr(ST(8), &argp9,SWIGTYPE_p_gsl_vector, 0 | 0 );
6955 if (!SWIG_IsOK(res9)) {
6956 SWIG_exception_fail(SWIG_ArgError(res9), "in method '" "gsl_linalg_COD_lssolve2" "', argument " "9"" of type '" "gsl_vector *""'");
6957 }
6958 arg9 = (gsl_vector *)(argp9);
6959 res10 = SWIG_ConvertPtr(ST(9), &argp10,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6960 if (!SWIG_IsOK(res10)) {
6961 SWIG_exception_fail(SWIG_ArgError(res10), "in method '" "gsl_linalg_COD_lssolve2" "', argument " "10"" of type '" "gsl_matrix *""'");
6962 }
6963 arg10 = (gsl_matrix *)(argp10);
6964 res11 = SWIG_ConvertPtr(ST(10), &argp11,SWIGTYPE_p_gsl_vector, 0 | 0 );
6965 if (!SWIG_IsOK(res11)) {
6966 SWIG_exception_fail(SWIG_ArgError(res11), "in method '" "gsl_linalg_COD_lssolve2" "', argument " "11"" of type '" "gsl_vector *""'");
6967 }
6968 arg11 = (gsl_vector *)(argp11);
6969 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);
6970 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6971
6972
6973
6974
6975
6976
6977
6978
6979
6980
6981
6982 XSRETURN(argvi);
6983 fail:
6984
6985
6986
6987
6988
6989
6990
6991
6992
6993
6994
6995 SWIG_croak_null();
6996 }
6997 }
6998
6999
XS(_wrap_gsl_linalg_COD_unpack)7000 XS(_wrap_gsl_linalg_COD_unpack) {
7001 {
7002 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
7003 gsl_vector *arg2 = (gsl_vector *) 0 ;
7004 gsl_vector *arg3 = (gsl_vector *) 0 ;
7005 size_t arg4 ;
7006 gsl_matrix *arg5 = (gsl_matrix *) 0 ;
7007 gsl_matrix *arg6 = (gsl_matrix *) 0 ;
7008 gsl_matrix *arg7 = (gsl_matrix *) 0 ;
7009 void *argp1 = 0 ;
7010 int res1 = 0 ;
7011 void *argp2 = 0 ;
7012 int res2 = 0 ;
7013 void *argp3 = 0 ;
7014 int res3 = 0 ;
7015 size_t val4 ;
7016 int ecode4 = 0 ;
7017 void *argp5 = 0 ;
7018 int res5 = 0 ;
7019 void *argp6 = 0 ;
7020 int res6 = 0 ;
7021 void *argp7 = 0 ;
7022 int res7 = 0 ;
7023 int argvi = 0;
7024 int result;
7025 dXSARGS;
7026
7027 if ((items < 7) || (items > 7)) {
7028 SWIG_croak("Usage: gsl_linalg_COD_unpack(QRZT,tau_Q,tau_Z,rank,Q,R,Z);");
7029 }
7030 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7031 if (!SWIG_IsOK(res1)) {
7032 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_COD_unpack" "', argument " "1"" of type '" "gsl_matrix const *""'");
7033 }
7034 arg1 = (gsl_matrix *)(argp1);
7035 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
7036 if (!SWIG_IsOK(res2)) {
7037 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_COD_unpack" "', argument " "2"" of type '" "gsl_vector const *""'");
7038 }
7039 arg2 = (gsl_vector *)(argp2);
7040 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
7041 if (!SWIG_IsOK(res3)) {
7042 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_COD_unpack" "', argument " "3"" of type '" "gsl_vector const *""'");
7043 }
7044 arg3 = (gsl_vector *)(argp3);
7045 ecode4 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(3), &val4);
7046 if (!SWIG_IsOK(ecode4)) {
7047 SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "gsl_linalg_COD_unpack" "', argument " "4"" of type '" "size_t""'");
7048 }
7049 arg4 = (size_t)(val4);
7050 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7051 if (!SWIG_IsOK(res5)) {
7052 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_COD_unpack" "', argument " "5"" of type '" "gsl_matrix *""'");
7053 }
7054 arg5 = (gsl_matrix *)(argp5);
7055 res6 = SWIG_ConvertPtr(ST(5), &argp6,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7056 if (!SWIG_IsOK(res6)) {
7057 SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_linalg_COD_unpack" "', argument " "6"" of type '" "gsl_matrix *""'");
7058 }
7059 arg6 = (gsl_matrix *)(argp6);
7060 res7 = SWIG_ConvertPtr(ST(6), &argp7,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7061 if (!SWIG_IsOK(res7)) {
7062 SWIG_exception_fail(SWIG_ArgError(res7), "in method '" "gsl_linalg_COD_unpack" "', argument " "7"" of type '" "gsl_matrix *""'");
7063 }
7064 arg7 = (gsl_matrix *)(argp7);
7065 result = (int)gsl_linalg_COD_unpack((gsl_matrix const *)arg1,(gsl_vector const *)arg2,(gsl_vector const *)arg3,arg4,arg5,arg6,arg7);
7066 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7067
7068
7069
7070
7071
7072
7073
7074 XSRETURN(argvi);
7075 fail:
7076
7077
7078
7079
7080
7081
7082
7083 SWIG_croak_null();
7084 }
7085 }
7086
7087
XS(_wrap_gsl_linalg_COD_matZ)7088 XS(_wrap_gsl_linalg_COD_matZ) {
7089 {
7090 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
7091 gsl_vector *arg2 = (gsl_vector *) 0 ;
7092 size_t arg3 ;
7093 gsl_matrix *arg4 = (gsl_matrix *) 0 ;
7094 gsl_vector *arg5 = (gsl_vector *) 0 ;
7095 void *argp1 = 0 ;
7096 int res1 = 0 ;
7097 void *argp2 = 0 ;
7098 int res2 = 0 ;
7099 size_t val3 ;
7100 int ecode3 = 0 ;
7101 void *argp4 = 0 ;
7102 int res4 = 0 ;
7103 void *argp5 = 0 ;
7104 int res5 = 0 ;
7105 int argvi = 0;
7106 int result;
7107 dXSARGS;
7108
7109 if ((items < 5) || (items > 5)) {
7110 SWIG_croak("Usage: gsl_linalg_COD_matZ(QRZT,tau_Z,rank,A,work);");
7111 }
7112 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7113 if (!SWIG_IsOK(res1)) {
7114 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_COD_matZ" "', argument " "1"" of type '" "gsl_matrix const *""'");
7115 }
7116 arg1 = (gsl_matrix *)(argp1);
7117 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
7118 if (!SWIG_IsOK(res2)) {
7119 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_COD_matZ" "', argument " "2"" of type '" "gsl_vector const *""'");
7120 }
7121 arg2 = (gsl_vector *)(argp2);
7122 ecode3 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
7123 if (!SWIG_IsOK(ecode3)) {
7124 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_linalg_COD_matZ" "', argument " "3"" of type '" "size_t""'");
7125 }
7126 arg3 = (size_t)(val3);
7127 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7128 if (!SWIG_IsOK(res4)) {
7129 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_COD_matZ" "', argument " "4"" of type '" "gsl_matrix *""'");
7130 }
7131 arg4 = (gsl_matrix *)(argp4);
7132 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
7133 if (!SWIG_IsOK(res5)) {
7134 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_COD_matZ" "', argument " "5"" of type '" "gsl_vector *""'");
7135 }
7136 arg5 = (gsl_vector *)(argp5);
7137 result = (int)gsl_linalg_COD_matZ((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3,arg4,arg5);
7138 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7139
7140
7141
7142
7143
7144 XSRETURN(argvi);
7145 fail:
7146
7147
7148
7149
7150
7151 SWIG_croak_null();
7152 }
7153 }
7154
7155
XS(_wrap_gsl_linalg_LQ_decomp)7156 XS(_wrap_gsl_linalg_LQ_decomp) {
7157 {
7158 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
7159 gsl_vector *arg2 = (gsl_vector *) 0 ;
7160 void *argp1 = 0 ;
7161 int res1 = 0 ;
7162 void *argp2 = 0 ;
7163 int res2 = 0 ;
7164 int argvi = 0;
7165 int result;
7166 dXSARGS;
7167
7168 if ((items < 2) || (items > 2)) {
7169 SWIG_croak("Usage: gsl_linalg_LQ_decomp(A,tau);");
7170 }
7171 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7172 if (!SWIG_IsOK(res1)) {
7173 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LQ_decomp" "', argument " "1"" of type '" "gsl_matrix *""'");
7174 }
7175 arg1 = (gsl_matrix *)(argp1);
7176 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
7177 if (!SWIG_IsOK(res2)) {
7178 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_LQ_decomp" "', argument " "2"" of type '" "gsl_vector *""'");
7179 }
7180 arg2 = (gsl_vector *)(argp2);
7181 result = (int)gsl_linalg_LQ_decomp(arg1,arg2);
7182 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7183
7184
7185 XSRETURN(argvi);
7186 fail:
7187
7188
7189 SWIG_croak_null();
7190 }
7191 }
7192
7193
XS(_wrap_gsl_linalg_LQ_lssolve)7194 XS(_wrap_gsl_linalg_LQ_lssolve) {
7195 {
7196 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
7197 gsl_vector *arg2 = (gsl_vector *) 0 ;
7198 gsl_vector *arg3 = (gsl_vector *) 0 ;
7199 gsl_vector *arg4 = (gsl_vector *) 0 ;
7200 gsl_vector *arg5 = (gsl_vector *) 0 ;
7201 void *argp1 = 0 ;
7202 int res1 = 0 ;
7203 void *argp2 = 0 ;
7204 int res2 = 0 ;
7205 void *argp3 = 0 ;
7206 int res3 = 0 ;
7207 void *argp4 = 0 ;
7208 int res4 = 0 ;
7209 void *argp5 = 0 ;
7210 int res5 = 0 ;
7211 int argvi = 0;
7212 int result;
7213 dXSARGS;
7214
7215 if ((items < 5) || (items > 5)) {
7216 SWIG_croak("Usage: gsl_linalg_LQ_lssolve(LQ,tau,b,x,residual);");
7217 }
7218 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7219 if (!SWIG_IsOK(res1)) {
7220 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LQ_lssolve" "', argument " "1"" of type '" "gsl_matrix const *""'");
7221 }
7222 arg1 = (gsl_matrix *)(argp1);
7223 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
7224 if (!SWIG_IsOK(res2)) {
7225 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_LQ_lssolve" "', argument " "2"" of type '" "gsl_vector const *""'");
7226 }
7227 arg2 = (gsl_vector *)(argp2);
7228 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
7229 if (!SWIG_IsOK(res3)) {
7230 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_LQ_lssolve" "', argument " "3"" of type '" "gsl_vector const *""'");
7231 }
7232 arg3 = (gsl_vector *)(argp3);
7233 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
7234 if (!SWIG_IsOK(res4)) {
7235 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_LQ_lssolve" "', argument " "4"" of type '" "gsl_vector *""'");
7236 }
7237 arg4 = (gsl_vector *)(argp4);
7238 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
7239 if (!SWIG_IsOK(res5)) {
7240 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_LQ_lssolve" "', argument " "5"" of type '" "gsl_vector *""'");
7241 }
7242 arg5 = (gsl_vector *)(argp5);
7243 result = (int)gsl_linalg_LQ_lssolve((gsl_matrix const *)arg1,(gsl_vector const *)arg2,(gsl_vector const *)arg3,arg4,arg5);
7244 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7245
7246
7247
7248
7249
7250 XSRETURN(argvi);
7251 fail:
7252
7253
7254
7255
7256
7257 SWIG_croak_null();
7258 }
7259 }
7260
7261
XS(_wrap_gsl_linalg_LQ_QTvec)7262 XS(_wrap_gsl_linalg_LQ_QTvec) {
7263 {
7264 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
7265 gsl_vector *arg2 = (gsl_vector *) 0 ;
7266 gsl_vector *arg3 = (gsl_vector *) 0 ;
7267 void *argp1 = 0 ;
7268 int res1 = 0 ;
7269 void *argp2 = 0 ;
7270 int res2 = 0 ;
7271 void *argp3 = 0 ;
7272 int res3 = 0 ;
7273 int argvi = 0;
7274 int result;
7275 dXSARGS;
7276
7277 if ((items < 3) || (items > 3)) {
7278 SWIG_croak("Usage: gsl_linalg_LQ_QTvec(LQ,tau,v);");
7279 }
7280 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7281 if (!SWIG_IsOK(res1)) {
7282 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LQ_QTvec" "', argument " "1"" of type '" "gsl_matrix const *""'");
7283 }
7284 arg1 = (gsl_matrix *)(argp1);
7285 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
7286 if (!SWIG_IsOK(res2)) {
7287 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_LQ_QTvec" "', argument " "2"" of type '" "gsl_vector const *""'");
7288 }
7289 arg2 = (gsl_vector *)(argp2);
7290 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
7291 if (!SWIG_IsOK(res3)) {
7292 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_LQ_QTvec" "', argument " "3"" of type '" "gsl_vector *""'");
7293 }
7294 arg3 = (gsl_vector *)(argp3);
7295 result = (int)gsl_linalg_LQ_QTvec((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3);
7296 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7297
7298
7299
7300 XSRETURN(argvi);
7301 fail:
7302
7303
7304
7305 SWIG_croak_null();
7306 }
7307 }
7308
7309
XS(_wrap_gsl_linalg_LQ_solve_T)7310 XS(_wrap_gsl_linalg_LQ_solve_T) {
7311 {
7312 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
7313 gsl_vector *arg2 = (gsl_vector *) 0 ;
7314 gsl_vector *arg3 = (gsl_vector *) 0 ;
7315 gsl_vector *arg4 = (gsl_vector *) 0 ;
7316 void *argp1 = 0 ;
7317 int res1 = 0 ;
7318 void *argp2 = 0 ;
7319 int res2 = 0 ;
7320 void *argp3 = 0 ;
7321 int res3 = 0 ;
7322 void *argp4 = 0 ;
7323 int res4 = 0 ;
7324 int argvi = 0;
7325 int result;
7326 dXSARGS;
7327
7328 if ((items < 4) || (items > 4)) {
7329 SWIG_croak("Usage: gsl_linalg_LQ_solve_T(LQ,tau,b,x);");
7330 }
7331 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7332 if (!SWIG_IsOK(res1)) {
7333 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LQ_solve_T" "', argument " "1"" of type '" "gsl_matrix const *""'");
7334 }
7335 arg1 = (gsl_matrix *)(argp1);
7336 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
7337 if (!SWIG_IsOK(res2)) {
7338 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_LQ_solve_T" "', argument " "2"" of type '" "gsl_vector const *""'");
7339 }
7340 arg2 = (gsl_vector *)(argp2);
7341 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
7342 if (!SWIG_IsOK(res3)) {
7343 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_LQ_solve_T" "', argument " "3"" of type '" "gsl_vector const *""'");
7344 }
7345 arg3 = (gsl_vector *)(argp3);
7346 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
7347 if (!SWIG_IsOK(res4)) {
7348 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_LQ_solve_T" "', argument " "4"" of type '" "gsl_vector *""'");
7349 }
7350 arg4 = (gsl_vector *)(argp4);
7351 result = (int)gsl_linalg_LQ_solve_T((gsl_matrix const *)arg1,(gsl_vector const *)arg2,(gsl_vector const *)arg3,arg4);
7352 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7353
7354
7355
7356
7357 XSRETURN(argvi);
7358 fail:
7359
7360
7361
7362
7363 SWIG_croak_null();
7364 }
7365 }
7366
7367
XS(_wrap_gsl_linalg_LQ_svx_T)7368 XS(_wrap_gsl_linalg_LQ_svx_T) {
7369 {
7370 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
7371 gsl_vector *arg2 = (gsl_vector *) 0 ;
7372 gsl_vector *arg3 = (gsl_vector *) 0 ;
7373 void *argp1 = 0 ;
7374 int res1 = 0 ;
7375 void *argp2 = 0 ;
7376 int res2 = 0 ;
7377 void *argp3 = 0 ;
7378 int res3 = 0 ;
7379 int argvi = 0;
7380 int result;
7381 dXSARGS;
7382
7383 if ((items < 3) || (items > 3)) {
7384 SWIG_croak("Usage: gsl_linalg_LQ_svx_T(LQ,tau,x);");
7385 }
7386 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7387 if (!SWIG_IsOK(res1)) {
7388 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LQ_svx_T" "', argument " "1"" of type '" "gsl_matrix const *""'");
7389 }
7390 arg1 = (gsl_matrix *)(argp1);
7391 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
7392 if (!SWIG_IsOK(res2)) {
7393 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_LQ_svx_T" "', argument " "2"" of type '" "gsl_vector const *""'");
7394 }
7395 arg2 = (gsl_vector *)(argp2);
7396 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
7397 if (!SWIG_IsOK(res3)) {
7398 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_LQ_svx_T" "', argument " "3"" of type '" "gsl_vector *""'");
7399 }
7400 arg3 = (gsl_vector *)(argp3);
7401 result = (int)gsl_linalg_LQ_svx_T((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3);
7402 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7403
7404
7405
7406 XSRETURN(argvi);
7407 fail:
7408
7409
7410
7411 SWIG_croak_null();
7412 }
7413 }
7414
7415
XS(_wrap_gsl_linalg_LQ_lssolve_T)7416 XS(_wrap_gsl_linalg_LQ_lssolve_T) {
7417 {
7418 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
7419 gsl_vector *arg2 = (gsl_vector *) 0 ;
7420 gsl_vector *arg3 = (gsl_vector *) 0 ;
7421 gsl_vector *arg4 = (gsl_vector *) 0 ;
7422 gsl_vector *arg5 = (gsl_vector *) 0 ;
7423 void *argp1 = 0 ;
7424 int res1 = 0 ;
7425 void *argp2 = 0 ;
7426 int res2 = 0 ;
7427 void *argp3 = 0 ;
7428 int res3 = 0 ;
7429 void *argp4 = 0 ;
7430 int res4 = 0 ;
7431 void *argp5 = 0 ;
7432 int res5 = 0 ;
7433 int argvi = 0;
7434 int result;
7435 dXSARGS;
7436
7437 if ((items < 5) || (items > 5)) {
7438 SWIG_croak("Usage: gsl_linalg_LQ_lssolve_T(LQ,tau,b,x,residual);");
7439 }
7440 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7441 if (!SWIG_IsOK(res1)) {
7442 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LQ_lssolve_T" "', argument " "1"" of type '" "gsl_matrix const *""'");
7443 }
7444 arg1 = (gsl_matrix *)(argp1);
7445 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
7446 if (!SWIG_IsOK(res2)) {
7447 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_LQ_lssolve_T" "', argument " "2"" of type '" "gsl_vector const *""'");
7448 }
7449 arg2 = (gsl_vector *)(argp2);
7450 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
7451 if (!SWIG_IsOK(res3)) {
7452 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_LQ_lssolve_T" "', argument " "3"" of type '" "gsl_vector const *""'");
7453 }
7454 arg3 = (gsl_vector *)(argp3);
7455 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
7456 if (!SWIG_IsOK(res4)) {
7457 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_LQ_lssolve_T" "', argument " "4"" of type '" "gsl_vector *""'");
7458 }
7459 arg4 = (gsl_vector *)(argp4);
7460 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
7461 if (!SWIG_IsOK(res5)) {
7462 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_LQ_lssolve_T" "', argument " "5"" of type '" "gsl_vector *""'");
7463 }
7464 arg5 = (gsl_vector *)(argp5);
7465 result = (int)gsl_linalg_LQ_lssolve_T((gsl_matrix const *)arg1,(gsl_vector const *)arg2,(gsl_vector const *)arg3,arg4,arg5);
7466 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7467
7468
7469
7470
7471
7472 XSRETURN(argvi);
7473 fail:
7474
7475
7476
7477
7478
7479 SWIG_croak_null();
7480 }
7481 }
7482
7483
XS(_wrap_gsl_linalg_LQ_Lsolve_T)7484 XS(_wrap_gsl_linalg_LQ_Lsolve_T) {
7485 {
7486 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
7487 gsl_vector *arg2 = (gsl_vector *) 0 ;
7488 gsl_vector *arg3 = (gsl_vector *) 0 ;
7489 void *argp1 = 0 ;
7490 int res1 = 0 ;
7491 void *argp2 = 0 ;
7492 int res2 = 0 ;
7493 void *argp3 = 0 ;
7494 int res3 = 0 ;
7495 int argvi = 0;
7496 int result;
7497 dXSARGS;
7498
7499 if ((items < 3) || (items > 3)) {
7500 SWIG_croak("Usage: gsl_linalg_LQ_Lsolve_T(LQ,b,x);");
7501 }
7502 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7503 if (!SWIG_IsOK(res1)) {
7504 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LQ_Lsolve_T" "', argument " "1"" of type '" "gsl_matrix const *""'");
7505 }
7506 arg1 = (gsl_matrix *)(argp1);
7507 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
7508 if (!SWIG_IsOK(res2)) {
7509 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_LQ_Lsolve_T" "', argument " "2"" of type '" "gsl_vector const *""'");
7510 }
7511 arg2 = (gsl_vector *)(argp2);
7512 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
7513 if (!SWIG_IsOK(res3)) {
7514 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_LQ_Lsolve_T" "', argument " "3"" of type '" "gsl_vector *""'");
7515 }
7516 arg3 = (gsl_vector *)(argp3);
7517 result = (int)gsl_linalg_LQ_Lsolve_T((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3);
7518 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7519
7520
7521
7522 XSRETURN(argvi);
7523 fail:
7524
7525
7526
7527 SWIG_croak_null();
7528 }
7529 }
7530
7531
XS(_wrap_gsl_linalg_LQ_Lsvx_T)7532 XS(_wrap_gsl_linalg_LQ_Lsvx_T) {
7533 {
7534 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
7535 gsl_vector *arg2 = (gsl_vector *) 0 ;
7536 void *argp1 = 0 ;
7537 int res1 = 0 ;
7538 void *argp2 = 0 ;
7539 int res2 = 0 ;
7540 int argvi = 0;
7541 int result;
7542 dXSARGS;
7543
7544 if ((items < 2) || (items > 2)) {
7545 SWIG_croak("Usage: gsl_linalg_LQ_Lsvx_T(LQ,x);");
7546 }
7547 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7548 if (!SWIG_IsOK(res1)) {
7549 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LQ_Lsvx_T" "', argument " "1"" of type '" "gsl_matrix const *""'");
7550 }
7551 arg1 = (gsl_matrix *)(argp1);
7552 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
7553 if (!SWIG_IsOK(res2)) {
7554 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_LQ_Lsvx_T" "', argument " "2"" of type '" "gsl_vector *""'");
7555 }
7556 arg2 = (gsl_vector *)(argp2);
7557 result = (int)gsl_linalg_LQ_Lsvx_T((gsl_matrix const *)arg1,arg2);
7558 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7559
7560
7561 XSRETURN(argvi);
7562 fail:
7563
7564
7565 SWIG_croak_null();
7566 }
7567 }
7568
7569
XS(_wrap_gsl_linalg_L_solve_T)7570 XS(_wrap_gsl_linalg_L_solve_T) {
7571 {
7572 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
7573 gsl_vector *arg2 = (gsl_vector *) 0 ;
7574 gsl_vector *arg3 = (gsl_vector *) 0 ;
7575 void *argp1 = 0 ;
7576 int res1 = 0 ;
7577 void *argp2 = 0 ;
7578 int res2 = 0 ;
7579 void *argp3 = 0 ;
7580 int res3 = 0 ;
7581 int argvi = 0;
7582 int result;
7583 dXSARGS;
7584
7585 if ((items < 3) || (items > 3)) {
7586 SWIG_croak("Usage: gsl_linalg_L_solve_T(L,b,x);");
7587 }
7588 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7589 if (!SWIG_IsOK(res1)) {
7590 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_L_solve_T" "', argument " "1"" of type '" "gsl_matrix const *""'");
7591 }
7592 arg1 = (gsl_matrix *)(argp1);
7593 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
7594 if (!SWIG_IsOK(res2)) {
7595 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_L_solve_T" "', argument " "2"" of type '" "gsl_vector const *""'");
7596 }
7597 arg2 = (gsl_vector *)(argp2);
7598 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
7599 if (!SWIG_IsOK(res3)) {
7600 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_L_solve_T" "', argument " "3"" of type '" "gsl_vector *""'");
7601 }
7602 arg3 = (gsl_vector *)(argp3);
7603 result = (int)gsl_linalg_L_solve_T((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3);
7604 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7605
7606
7607
7608 XSRETURN(argvi);
7609 fail:
7610
7611
7612
7613 SWIG_croak_null();
7614 }
7615 }
7616
7617
XS(_wrap_gsl_linalg_LQ_vecQ)7618 XS(_wrap_gsl_linalg_LQ_vecQ) {
7619 {
7620 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
7621 gsl_vector *arg2 = (gsl_vector *) 0 ;
7622 gsl_vector *arg3 = (gsl_vector *) 0 ;
7623 void *argp1 = 0 ;
7624 int res1 = 0 ;
7625 void *argp2 = 0 ;
7626 int res2 = 0 ;
7627 void *argp3 = 0 ;
7628 int res3 = 0 ;
7629 int argvi = 0;
7630 int result;
7631 dXSARGS;
7632
7633 if ((items < 3) || (items > 3)) {
7634 SWIG_croak("Usage: gsl_linalg_LQ_vecQ(LQ,tau,v);");
7635 }
7636 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7637 if (!SWIG_IsOK(res1)) {
7638 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LQ_vecQ" "', argument " "1"" of type '" "gsl_matrix const *""'");
7639 }
7640 arg1 = (gsl_matrix *)(argp1);
7641 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
7642 if (!SWIG_IsOK(res2)) {
7643 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_LQ_vecQ" "', argument " "2"" of type '" "gsl_vector const *""'");
7644 }
7645 arg2 = (gsl_vector *)(argp2);
7646 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
7647 if (!SWIG_IsOK(res3)) {
7648 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_LQ_vecQ" "', argument " "3"" of type '" "gsl_vector *""'");
7649 }
7650 arg3 = (gsl_vector *)(argp3);
7651 result = (int)gsl_linalg_LQ_vecQ((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3);
7652 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7653
7654
7655
7656 XSRETURN(argvi);
7657 fail:
7658
7659
7660
7661 SWIG_croak_null();
7662 }
7663 }
7664
7665
XS(_wrap_gsl_linalg_LQ_vecQT)7666 XS(_wrap_gsl_linalg_LQ_vecQT) {
7667 {
7668 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
7669 gsl_vector *arg2 = (gsl_vector *) 0 ;
7670 gsl_vector *arg3 = (gsl_vector *) 0 ;
7671 void *argp1 = 0 ;
7672 int res1 = 0 ;
7673 void *argp2 = 0 ;
7674 int res2 = 0 ;
7675 void *argp3 = 0 ;
7676 int res3 = 0 ;
7677 int argvi = 0;
7678 int result;
7679 dXSARGS;
7680
7681 if ((items < 3) || (items > 3)) {
7682 SWIG_croak("Usage: gsl_linalg_LQ_vecQT(LQ,tau,v);");
7683 }
7684 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7685 if (!SWIG_IsOK(res1)) {
7686 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LQ_vecQT" "', argument " "1"" of type '" "gsl_matrix const *""'");
7687 }
7688 arg1 = (gsl_matrix *)(argp1);
7689 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
7690 if (!SWIG_IsOK(res2)) {
7691 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_LQ_vecQT" "', argument " "2"" of type '" "gsl_vector const *""'");
7692 }
7693 arg2 = (gsl_vector *)(argp2);
7694 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
7695 if (!SWIG_IsOK(res3)) {
7696 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_LQ_vecQT" "', argument " "3"" of type '" "gsl_vector *""'");
7697 }
7698 arg3 = (gsl_vector *)(argp3);
7699 result = (int)gsl_linalg_LQ_vecQT((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3);
7700 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7701
7702
7703
7704 XSRETURN(argvi);
7705 fail:
7706
7707
7708
7709 SWIG_croak_null();
7710 }
7711 }
7712
7713
XS(_wrap_gsl_linalg_LQ_unpack)7714 XS(_wrap_gsl_linalg_LQ_unpack) {
7715 {
7716 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
7717 gsl_vector *arg2 = (gsl_vector *) 0 ;
7718 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
7719 gsl_matrix *arg4 = (gsl_matrix *) 0 ;
7720 void *argp1 = 0 ;
7721 int res1 = 0 ;
7722 void *argp2 = 0 ;
7723 int res2 = 0 ;
7724 void *argp3 = 0 ;
7725 int res3 = 0 ;
7726 void *argp4 = 0 ;
7727 int res4 = 0 ;
7728 int argvi = 0;
7729 int result;
7730 dXSARGS;
7731
7732 if ((items < 4) || (items > 4)) {
7733 SWIG_croak("Usage: gsl_linalg_LQ_unpack(LQ,tau,Q,L);");
7734 }
7735 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7736 if (!SWIG_IsOK(res1)) {
7737 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LQ_unpack" "', argument " "1"" of type '" "gsl_matrix const *""'");
7738 }
7739 arg1 = (gsl_matrix *)(argp1);
7740 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
7741 if (!SWIG_IsOK(res2)) {
7742 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_LQ_unpack" "', argument " "2"" of type '" "gsl_vector const *""'");
7743 }
7744 arg2 = (gsl_vector *)(argp2);
7745 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7746 if (!SWIG_IsOK(res3)) {
7747 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_LQ_unpack" "', argument " "3"" of type '" "gsl_matrix *""'");
7748 }
7749 arg3 = (gsl_matrix *)(argp3);
7750 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7751 if (!SWIG_IsOK(res4)) {
7752 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_LQ_unpack" "', argument " "4"" of type '" "gsl_matrix *""'");
7753 }
7754 arg4 = (gsl_matrix *)(argp4);
7755 result = (int)gsl_linalg_LQ_unpack((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3,arg4);
7756 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7757
7758
7759
7760
7761 XSRETURN(argvi);
7762 fail:
7763
7764
7765
7766
7767 SWIG_croak_null();
7768 }
7769 }
7770
7771
XS(_wrap_gsl_linalg_LQ_update)7772 XS(_wrap_gsl_linalg_LQ_update) {
7773 {
7774 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
7775 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
7776 gsl_vector *arg3 = (gsl_vector *) 0 ;
7777 gsl_vector *arg4 = (gsl_vector *) 0 ;
7778 void *argp1 = 0 ;
7779 int res1 = 0 ;
7780 void *argp2 = 0 ;
7781 int res2 = 0 ;
7782 void *argp3 = 0 ;
7783 int res3 = 0 ;
7784 void *argp4 = 0 ;
7785 int res4 = 0 ;
7786 int argvi = 0;
7787 int result;
7788 dXSARGS;
7789
7790 if ((items < 4) || (items > 4)) {
7791 SWIG_croak("Usage: gsl_linalg_LQ_update(Q,R,v,w);");
7792 }
7793 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7794 if (!SWIG_IsOK(res1)) {
7795 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LQ_update" "', argument " "1"" of type '" "gsl_matrix *""'");
7796 }
7797 arg1 = (gsl_matrix *)(argp1);
7798 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7799 if (!SWIG_IsOK(res2)) {
7800 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_LQ_update" "', argument " "2"" of type '" "gsl_matrix *""'");
7801 }
7802 arg2 = (gsl_matrix *)(argp2);
7803 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
7804 if (!SWIG_IsOK(res3)) {
7805 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_LQ_update" "', argument " "3"" of type '" "gsl_vector const *""'");
7806 }
7807 arg3 = (gsl_vector *)(argp3);
7808 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
7809 if (!SWIG_IsOK(res4)) {
7810 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_LQ_update" "', argument " "4"" of type '" "gsl_vector *""'");
7811 }
7812 arg4 = (gsl_vector *)(argp4);
7813 result = (int)gsl_linalg_LQ_update(arg1,arg2,(gsl_vector const *)arg3,arg4);
7814 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7815
7816
7817
7818
7819 XSRETURN(argvi);
7820 fail:
7821
7822
7823
7824
7825 SWIG_croak_null();
7826 }
7827 }
7828
7829
XS(_wrap_gsl_linalg_LQ_LQsolve)7830 XS(_wrap_gsl_linalg_LQ_LQsolve) {
7831 {
7832 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
7833 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
7834 gsl_vector *arg3 = (gsl_vector *) 0 ;
7835 gsl_vector *arg4 = (gsl_vector *) 0 ;
7836 void *argp1 = 0 ;
7837 int res1 = 0 ;
7838 void *argp2 = 0 ;
7839 int res2 = 0 ;
7840 void *argp3 = 0 ;
7841 int res3 = 0 ;
7842 void *argp4 = 0 ;
7843 int res4 = 0 ;
7844 int argvi = 0;
7845 int result;
7846 dXSARGS;
7847
7848 if ((items < 4) || (items > 4)) {
7849 SWIG_croak("Usage: gsl_linalg_LQ_LQsolve(Q,L,b,x);");
7850 }
7851 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7852 if (!SWIG_IsOK(res1)) {
7853 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LQ_LQsolve" "', argument " "1"" of type '" "gsl_matrix *""'");
7854 }
7855 arg1 = (gsl_matrix *)(argp1);
7856 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7857 if (!SWIG_IsOK(res2)) {
7858 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_LQ_LQsolve" "', argument " "2"" of type '" "gsl_matrix *""'");
7859 }
7860 arg2 = (gsl_matrix *)(argp2);
7861 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
7862 if (!SWIG_IsOK(res3)) {
7863 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_LQ_LQsolve" "', argument " "3"" of type '" "gsl_vector const *""'");
7864 }
7865 arg3 = (gsl_vector *)(argp3);
7866 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
7867 if (!SWIG_IsOK(res4)) {
7868 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_LQ_LQsolve" "', argument " "4"" of type '" "gsl_vector *""'");
7869 }
7870 arg4 = (gsl_vector *)(argp4);
7871 result = (int)gsl_linalg_LQ_LQsolve(arg1,arg2,(gsl_vector const *)arg3,arg4);
7872 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7873
7874
7875
7876
7877 XSRETURN(argvi);
7878 fail:
7879
7880
7881
7882
7883 SWIG_croak_null();
7884 }
7885 }
7886
7887
XS(_wrap_gsl_linalg_PTLQ_decomp)7888 XS(_wrap_gsl_linalg_PTLQ_decomp) {
7889 {
7890 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
7891 gsl_vector *arg2 = (gsl_vector *) 0 ;
7892 gsl_permutation *arg3 = (gsl_permutation *) 0 ;
7893 int *arg4 = (int *) 0 ;
7894 gsl_vector *arg5 = (gsl_vector *) 0 ;
7895 void *argp1 = 0 ;
7896 int res1 = 0 ;
7897 void *argp2 = 0 ;
7898 int res2 = 0 ;
7899 void *argp3 = 0 ;
7900 int res3 = 0 ;
7901 int temp4 ;
7902 int res4 = SWIG_TMPOBJ ;
7903 void *argp5 = 0 ;
7904 int res5 = 0 ;
7905 int argvi = 0;
7906 int result;
7907 dXSARGS;
7908
7909 arg4 = &temp4;
7910 if ((items < 4) || (items > 4)) {
7911 SWIG_croak("Usage: gsl_linalg_PTLQ_decomp(A,tau,p,norm);");
7912 }
7913 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7914 if (!SWIG_IsOK(res1)) {
7915 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_PTLQ_decomp" "', argument " "1"" of type '" "gsl_matrix *""'");
7916 }
7917 arg1 = (gsl_matrix *)(argp1);
7918 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
7919 if (!SWIG_IsOK(res2)) {
7920 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_PTLQ_decomp" "', argument " "2"" of type '" "gsl_vector *""'");
7921 }
7922 arg2 = (gsl_vector *)(argp2);
7923 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
7924 if (!SWIG_IsOK(res3)) {
7925 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_PTLQ_decomp" "', argument " "3"" of type '" "gsl_permutation *""'");
7926 }
7927 arg3 = (gsl_permutation *)(argp3);
7928 res5 = SWIG_ConvertPtr(ST(3), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
7929 if (!SWIG_IsOK(res5)) {
7930 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_PTLQ_decomp" "', argument " "5"" of type '" "gsl_vector *""'");
7931 }
7932 arg5 = (gsl_vector *)(argp5);
7933 result = (int)gsl_linalg_PTLQ_decomp(arg1,arg2,arg3,arg4,arg5);
7934 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7935 if (SWIG_IsTmpObj(res4)) {
7936 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((*arg4)); argvi++ ;
7937 } else {
7938 int new_flags = SWIG_IsNewObj(res4) ? (SWIG_POINTER_OWN | 0) : 0;
7939 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg4), SWIGTYPE_p_int, new_flags); argvi++ ;
7940 }
7941
7942
7943
7944
7945
7946 XSRETURN(argvi);
7947 fail:
7948
7949
7950
7951
7952
7953 SWIG_croak_null();
7954 }
7955 }
7956
7957
XS(_wrap_gsl_linalg_PTLQ_decomp2)7958 XS(_wrap_gsl_linalg_PTLQ_decomp2) {
7959 {
7960 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
7961 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
7962 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
7963 gsl_vector *arg4 = (gsl_vector *) 0 ;
7964 gsl_permutation *arg5 = (gsl_permutation *) 0 ;
7965 int *arg6 = (int *) 0 ;
7966 gsl_vector *arg7 = (gsl_vector *) 0 ;
7967 void *argp1 = 0 ;
7968 int res1 = 0 ;
7969 void *argp2 = 0 ;
7970 int res2 = 0 ;
7971 void *argp3 = 0 ;
7972 int res3 = 0 ;
7973 void *argp4 = 0 ;
7974 int res4 = 0 ;
7975 void *argp5 = 0 ;
7976 int res5 = 0 ;
7977 int temp6 ;
7978 int res6 = SWIG_TMPOBJ ;
7979 void *argp7 = 0 ;
7980 int res7 = 0 ;
7981 int argvi = 0;
7982 int result;
7983 dXSARGS;
7984
7985 arg6 = &temp6;
7986 if ((items < 6) || (items > 6)) {
7987 SWIG_croak("Usage: gsl_linalg_PTLQ_decomp2(A,q,r,tau,p,norm);");
7988 }
7989 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7990 if (!SWIG_IsOK(res1)) {
7991 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_PTLQ_decomp2" "', argument " "1"" of type '" "gsl_matrix const *""'");
7992 }
7993 arg1 = (gsl_matrix *)(argp1);
7994 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7995 if (!SWIG_IsOK(res2)) {
7996 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_PTLQ_decomp2" "', argument " "2"" of type '" "gsl_matrix *""'");
7997 }
7998 arg2 = (gsl_matrix *)(argp2);
7999 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
8000 if (!SWIG_IsOK(res3)) {
8001 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_PTLQ_decomp2" "', argument " "3"" of type '" "gsl_matrix *""'");
8002 }
8003 arg3 = (gsl_matrix *)(argp3);
8004 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
8005 if (!SWIG_IsOK(res4)) {
8006 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_PTLQ_decomp2" "', argument " "4"" of type '" "gsl_vector *""'");
8007 }
8008 arg4 = (gsl_vector *)(argp4);
8009 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
8010 if (!SWIG_IsOK(res5)) {
8011 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_PTLQ_decomp2" "', argument " "5"" of type '" "gsl_permutation *""'");
8012 }
8013 arg5 = (gsl_permutation *)(argp5);
8014 res7 = SWIG_ConvertPtr(ST(5), &argp7,SWIGTYPE_p_gsl_vector, 0 | 0 );
8015 if (!SWIG_IsOK(res7)) {
8016 SWIG_exception_fail(SWIG_ArgError(res7), "in method '" "gsl_linalg_PTLQ_decomp2" "', argument " "7"" of type '" "gsl_vector *""'");
8017 }
8018 arg7 = (gsl_vector *)(argp7);
8019 result = (int)gsl_linalg_PTLQ_decomp2((gsl_matrix const *)arg1,arg2,arg3,arg4,arg5,arg6,arg7);
8020 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8021 if (SWIG_IsTmpObj(res6)) {
8022 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((*arg6)); argvi++ ;
8023 } else {
8024 int new_flags = SWIG_IsNewObj(res6) ? (SWIG_POINTER_OWN | 0) : 0;
8025 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg6), SWIGTYPE_p_int, new_flags); argvi++ ;
8026 }
8027
8028
8029
8030
8031
8032
8033
8034 XSRETURN(argvi);
8035 fail:
8036
8037
8038
8039
8040
8041
8042
8043 SWIG_croak_null();
8044 }
8045 }
8046
8047
XS(_wrap_gsl_linalg_PTLQ_solve_T)8048 XS(_wrap_gsl_linalg_PTLQ_solve_T) {
8049 {
8050 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
8051 gsl_vector *arg2 = (gsl_vector *) 0 ;
8052 gsl_permutation *arg3 = (gsl_permutation *) 0 ;
8053 gsl_vector *arg4 = (gsl_vector *) 0 ;
8054 gsl_vector *arg5 = (gsl_vector *) 0 ;
8055 void *argp1 = 0 ;
8056 int res1 = 0 ;
8057 void *argp2 = 0 ;
8058 int res2 = 0 ;
8059 void *argp3 = 0 ;
8060 int res3 = 0 ;
8061 void *argp4 = 0 ;
8062 int res4 = 0 ;
8063 void *argp5 = 0 ;
8064 int res5 = 0 ;
8065 int argvi = 0;
8066 int result;
8067 dXSARGS;
8068
8069 if ((items < 5) || (items > 5)) {
8070 SWIG_croak("Usage: gsl_linalg_PTLQ_solve_T(QR,tau,p,b,x);");
8071 }
8072 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
8073 if (!SWIG_IsOK(res1)) {
8074 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_PTLQ_solve_T" "', argument " "1"" of type '" "gsl_matrix const *""'");
8075 }
8076 arg1 = (gsl_matrix *)(argp1);
8077 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
8078 if (!SWIG_IsOK(res2)) {
8079 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_PTLQ_solve_T" "', argument " "2"" of type '" "gsl_vector const *""'");
8080 }
8081 arg2 = (gsl_vector *)(argp2);
8082 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
8083 if (!SWIG_IsOK(res3)) {
8084 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_PTLQ_solve_T" "', argument " "3"" of type '" "gsl_permutation const *""'");
8085 }
8086 arg3 = (gsl_permutation *)(argp3);
8087 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
8088 if (!SWIG_IsOK(res4)) {
8089 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_PTLQ_solve_T" "', argument " "4"" of type '" "gsl_vector const *""'");
8090 }
8091 arg4 = (gsl_vector *)(argp4);
8092 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
8093 if (!SWIG_IsOK(res5)) {
8094 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_PTLQ_solve_T" "', argument " "5"" of type '" "gsl_vector *""'");
8095 }
8096 arg5 = (gsl_vector *)(argp5);
8097 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);
8098 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8099
8100
8101
8102
8103
8104 XSRETURN(argvi);
8105 fail:
8106
8107
8108
8109
8110
8111 SWIG_croak_null();
8112 }
8113 }
8114
8115
XS(_wrap_gsl_linalg_PTLQ_svx_T)8116 XS(_wrap_gsl_linalg_PTLQ_svx_T) {
8117 {
8118 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
8119 gsl_vector *arg2 = (gsl_vector *) 0 ;
8120 gsl_permutation *arg3 = (gsl_permutation *) 0 ;
8121 gsl_vector *arg4 = (gsl_vector *) 0 ;
8122 void *argp1 = 0 ;
8123 int res1 = 0 ;
8124 void *argp2 = 0 ;
8125 int res2 = 0 ;
8126 void *argp3 = 0 ;
8127 int res3 = 0 ;
8128 void *argp4 = 0 ;
8129 int res4 = 0 ;
8130 int argvi = 0;
8131 int result;
8132 dXSARGS;
8133
8134 if ((items < 4) || (items > 4)) {
8135 SWIG_croak("Usage: gsl_linalg_PTLQ_svx_T(LQ,tau,p,x);");
8136 }
8137 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
8138 if (!SWIG_IsOK(res1)) {
8139 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_PTLQ_svx_T" "', argument " "1"" of type '" "gsl_matrix const *""'");
8140 }
8141 arg1 = (gsl_matrix *)(argp1);
8142 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
8143 if (!SWIG_IsOK(res2)) {
8144 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_PTLQ_svx_T" "', argument " "2"" of type '" "gsl_vector const *""'");
8145 }
8146 arg2 = (gsl_vector *)(argp2);
8147 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
8148 if (!SWIG_IsOK(res3)) {
8149 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_PTLQ_svx_T" "', argument " "3"" of type '" "gsl_permutation const *""'");
8150 }
8151 arg3 = (gsl_permutation *)(argp3);
8152 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
8153 if (!SWIG_IsOK(res4)) {
8154 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_PTLQ_svx_T" "', argument " "4"" of type '" "gsl_vector *""'");
8155 }
8156 arg4 = (gsl_vector *)(argp4);
8157 result = (int)gsl_linalg_PTLQ_svx_T((gsl_matrix const *)arg1,(gsl_vector const *)arg2,(struct gsl_permutation_struct const *)arg3,arg4);
8158 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8159
8160
8161
8162
8163 XSRETURN(argvi);
8164 fail:
8165
8166
8167
8168
8169 SWIG_croak_null();
8170 }
8171 }
8172
8173
XS(_wrap_gsl_linalg_PTLQ_LQsolve_T)8174 XS(_wrap_gsl_linalg_PTLQ_LQsolve_T) {
8175 {
8176 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
8177 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
8178 gsl_permutation *arg3 = (gsl_permutation *) 0 ;
8179 gsl_vector *arg4 = (gsl_vector *) 0 ;
8180 gsl_vector *arg5 = (gsl_vector *) 0 ;
8181 void *argp1 = 0 ;
8182 int res1 = 0 ;
8183 void *argp2 = 0 ;
8184 int res2 = 0 ;
8185 void *argp3 = 0 ;
8186 int res3 = 0 ;
8187 void *argp4 = 0 ;
8188 int res4 = 0 ;
8189 void *argp5 = 0 ;
8190 int res5 = 0 ;
8191 int argvi = 0;
8192 int result;
8193 dXSARGS;
8194
8195 if ((items < 5) || (items > 5)) {
8196 SWIG_croak("Usage: gsl_linalg_PTLQ_LQsolve_T(Q,L,p,b,x);");
8197 }
8198 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
8199 if (!SWIG_IsOK(res1)) {
8200 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_PTLQ_LQsolve_T" "', argument " "1"" of type '" "gsl_matrix const *""'");
8201 }
8202 arg1 = (gsl_matrix *)(argp1);
8203 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
8204 if (!SWIG_IsOK(res2)) {
8205 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_PTLQ_LQsolve_T" "', argument " "2"" of type '" "gsl_matrix const *""'");
8206 }
8207 arg2 = (gsl_matrix *)(argp2);
8208 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
8209 if (!SWIG_IsOK(res3)) {
8210 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_PTLQ_LQsolve_T" "', argument " "3"" of type '" "gsl_permutation const *""'");
8211 }
8212 arg3 = (gsl_permutation *)(argp3);
8213 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
8214 if (!SWIG_IsOK(res4)) {
8215 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_PTLQ_LQsolve_T" "', argument " "4"" of type '" "gsl_vector const *""'");
8216 }
8217 arg4 = (gsl_vector *)(argp4);
8218 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
8219 if (!SWIG_IsOK(res5)) {
8220 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_PTLQ_LQsolve_T" "', argument " "5"" of type '" "gsl_vector *""'");
8221 }
8222 arg5 = (gsl_vector *)(argp5);
8223 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);
8224 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8225
8226
8227
8228
8229
8230 XSRETURN(argvi);
8231 fail:
8232
8233
8234
8235
8236
8237 SWIG_croak_null();
8238 }
8239 }
8240
8241
XS(_wrap_gsl_linalg_PTLQ_Lsolve_T)8242 XS(_wrap_gsl_linalg_PTLQ_Lsolve_T) {
8243 {
8244 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
8245 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
8246 gsl_vector *arg3 = (gsl_vector *) 0 ;
8247 gsl_vector *arg4 = (gsl_vector *) 0 ;
8248 void *argp1 = 0 ;
8249 int res1 = 0 ;
8250 void *argp2 = 0 ;
8251 int res2 = 0 ;
8252 void *argp3 = 0 ;
8253 int res3 = 0 ;
8254 void *argp4 = 0 ;
8255 int res4 = 0 ;
8256 int argvi = 0;
8257 int result;
8258 dXSARGS;
8259
8260 if ((items < 4) || (items > 4)) {
8261 SWIG_croak("Usage: gsl_linalg_PTLQ_Lsolve_T(LQ,p,b,x);");
8262 }
8263 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
8264 if (!SWIG_IsOK(res1)) {
8265 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_PTLQ_Lsolve_T" "', argument " "1"" of type '" "gsl_matrix const *""'");
8266 }
8267 arg1 = (gsl_matrix *)(argp1);
8268 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
8269 if (!SWIG_IsOK(res2)) {
8270 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_PTLQ_Lsolve_T" "', argument " "2"" of type '" "gsl_permutation const *""'");
8271 }
8272 arg2 = (gsl_permutation *)(argp2);
8273 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
8274 if (!SWIG_IsOK(res3)) {
8275 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_PTLQ_Lsolve_T" "', argument " "3"" of type '" "gsl_vector const *""'");
8276 }
8277 arg3 = (gsl_vector *)(argp3);
8278 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
8279 if (!SWIG_IsOK(res4)) {
8280 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_PTLQ_Lsolve_T" "', argument " "4"" of type '" "gsl_vector *""'");
8281 }
8282 arg4 = (gsl_vector *)(argp4);
8283 result = (int)gsl_linalg_PTLQ_Lsolve_T((gsl_matrix const *)arg1,(struct gsl_permutation_struct const *)arg2,(gsl_vector const *)arg3,arg4);
8284 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8285
8286
8287
8288
8289 XSRETURN(argvi);
8290 fail:
8291
8292
8293
8294
8295 SWIG_croak_null();
8296 }
8297 }
8298
8299
XS(_wrap_gsl_linalg_PTLQ_Lsvx_T)8300 XS(_wrap_gsl_linalg_PTLQ_Lsvx_T) {
8301 {
8302 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
8303 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
8304 gsl_vector *arg3 = (gsl_vector *) 0 ;
8305 void *argp1 = 0 ;
8306 int res1 = 0 ;
8307 void *argp2 = 0 ;
8308 int res2 = 0 ;
8309 void *argp3 = 0 ;
8310 int res3 = 0 ;
8311 int argvi = 0;
8312 int result;
8313 dXSARGS;
8314
8315 if ((items < 3) || (items > 3)) {
8316 SWIG_croak("Usage: gsl_linalg_PTLQ_Lsvx_T(LQ,p,x);");
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_PTLQ_Lsvx_T" "', argument " "1"" of type '" "gsl_matrix const *""'");
8321 }
8322 arg1 = (gsl_matrix *)(argp1);
8323 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
8324 if (!SWIG_IsOK(res2)) {
8325 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_PTLQ_Lsvx_T" "', argument " "2"" of type '" "gsl_permutation const *""'");
8326 }
8327 arg2 = (gsl_permutation *)(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_PTLQ_Lsvx_T" "', argument " "3"" of type '" "gsl_vector *""'");
8331 }
8332 arg3 = (gsl_vector *)(argp3);
8333 result = (int)gsl_linalg_PTLQ_Lsvx_T((gsl_matrix const *)arg1,(struct gsl_permutation_struct const *)arg2,arg3);
8334 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8335
8336
8337
8338 XSRETURN(argvi);
8339 fail:
8340
8341
8342
8343 SWIG_croak_null();
8344 }
8345 }
8346
8347
XS(_wrap_gsl_linalg_PTLQ_update)8348 XS(_wrap_gsl_linalg_PTLQ_update) {
8349 {
8350 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
8351 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
8352 gsl_permutation *arg3 = (gsl_permutation *) 0 ;
8353 gsl_vector *arg4 = (gsl_vector *) 0 ;
8354 gsl_vector *arg5 = (gsl_vector *) 0 ;
8355 void *argp1 = 0 ;
8356 int res1 = 0 ;
8357 void *argp2 = 0 ;
8358 int res2 = 0 ;
8359 void *argp3 = 0 ;
8360 int res3 = 0 ;
8361 void *argp4 = 0 ;
8362 int res4 = 0 ;
8363 void *argp5 = 0 ;
8364 int res5 = 0 ;
8365 int argvi = 0;
8366 int result;
8367 dXSARGS;
8368
8369 if ((items < 5) || (items > 5)) {
8370 SWIG_croak("Usage: gsl_linalg_PTLQ_update(Q,L,p,v,w);");
8371 }
8372 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
8373 if (!SWIG_IsOK(res1)) {
8374 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_PTLQ_update" "', argument " "1"" of type '" "gsl_matrix *""'");
8375 }
8376 arg1 = (gsl_matrix *)(argp1);
8377 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
8378 if (!SWIG_IsOK(res2)) {
8379 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_PTLQ_update" "', argument " "2"" of type '" "gsl_matrix *""'");
8380 }
8381 arg2 = (gsl_matrix *)(argp2);
8382 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
8383 if (!SWIG_IsOK(res3)) {
8384 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_PTLQ_update" "', argument " "3"" of type '" "gsl_permutation const *""'");
8385 }
8386 arg3 = (gsl_permutation *)(argp3);
8387 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
8388 if (!SWIG_IsOK(res4)) {
8389 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_PTLQ_update" "', argument " "4"" of type '" "gsl_vector const *""'");
8390 }
8391 arg4 = (gsl_vector *)(argp4);
8392 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
8393 if (!SWIG_IsOK(res5)) {
8394 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_PTLQ_update" "', argument " "5"" of type '" "gsl_vector *""'");
8395 }
8396 arg5 = (gsl_vector *)(argp5);
8397 result = (int)gsl_linalg_PTLQ_update(arg1,arg2,(struct gsl_permutation_struct const *)arg3,(gsl_vector const *)arg4,arg5);
8398 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8399
8400
8401
8402
8403
8404 XSRETURN(argvi);
8405 fail:
8406
8407
8408
8409
8410
8411 SWIG_croak_null();
8412 }
8413 }
8414
8415
XS(_wrap_gsl_linalg_cholesky_decomp)8416 XS(_wrap_gsl_linalg_cholesky_decomp) {
8417 {
8418 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
8419 void *argp1 = 0 ;
8420 int res1 = 0 ;
8421 int argvi = 0;
8422 int result;
8423 dXSARGS;
8424
8425 if ((items < 1) || (items > 1)) {
8426 SWIG_croak("Usage: gsl_linalg_cholesky_decomp(A);");
8427 }
8428 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
8429 if (!SWIG_IsOK(res1)) {
8430 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_cholesky_decomp" "', argument " "1"" of type '" "gsl_matrix *""'");
8431 }
8432 arg1 = (gsl_matrix *)(argp1);
8433 result = (int)gsl_linalg_cholesky_decomp(arg1);
8434 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8435
8436 XSRETURN(argvi);
8437 fail:
8438
8439 SWIG_croak_null();
8440 }
8441 }
8442
8443
XS(_wrap_gsl_linalg_cholesky_decomp1)8444 XS(_wrap_gsl_linalg_cholesky_decomp1) {
8445 {
8446 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
8447 void *argp1 = 0 ;
8448 int res1 = 0 ;
8449 int argvi = 0;
8450 int result;
8451 dXSARGS;
8452
8453 if ((items < 1) || (items > 1)) {
8454 SWIG_croak("Usage: gsl_linalg_cholesky_decomp1(A);");
8455 }
8456 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
8457 if (!SWIG_IsOK(res1)) {
8458 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_cholesky_decomp1" "', argument " "1"" of type '" "gsl_matrix *""'");
8459 }
8460 arg1 = (gsl_matrix *)(argp1);
8461 result = (int)gsl_linalg_cholesky_decomp1(arg1);
8462 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8463
8464 XSRETURN(argvi);
8465 fail:
8466
8467 SWIG_croak_null();
8468 }
8469 }
8470
8471
XS(_wrap_gsl_linalg_cholesky_solve)8472 XS(_wrap_gsl_linalg_cholesky_solve) {
8473 {
8474 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
8475 gsl_vector *arg2 = (gsl_vector *) 0 ;
8476 gsl_vector *arg3 = (gsl_vector *) 0 ;
8477 void *argp1 = 0 ;
8478 int res1 = 0 ;
8479 void *argp2 = 0 ;
8480 int res2 = 0 ;
8481 void *argp3 = 0 ;
8482 int res3 = 0 ;
8483 int argvi = 0;
8484 int result;
8485 dXSARGS;
8486
8487 if ((items < 3) || (items > 3)) {
8488 SWIG_croak("Usage: gsl_linalg_cholesky_solve(cholesky,b,x);");
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_cholesky_solve" "', 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_cholesky_solve" "', 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_cholesky_solve" "', argument " "3"" of type '" "gsl_vector *""'");
8503 }
8504 arg3 = (gsl_vector *)(argp3);
8505 result = (int)gsl_linalg_cholesky_solve((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3);
8506 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8507
8508
8509
8510 XSRETURN(argvi);
8511 fail:
8512
8513
8514
8515 SWIG_croak_null();
8516 }
8517 }
8518
8519
XS(_wrap_gsl_linalg_cholesky_solve_mat)8520 XS(_wrap_gsl_linalg_cholesky_solve_mat) {
8521 {
8522 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
8523 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
8524 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
8525 void *argp1 = 0 ;
8526 int res1 = 0 ;
8527 void *argp2 = 0 ;
8528 int res2 = 0 ;
8529 void *argp3 = 0 ;
8530 int res3 = 0 ;
8531 int argvi = 0;
8532 int result;
8533 dXSARGS;
8534
8535 if ((items < 3) || (items > 3)) {
8536 SWIG_croak("Usage: gsl_linalg_cholesky_solve_mat(cholesky,B,X);");
8537 }
8538 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
8539 if (!SWIG_IsOK(res1)) {
8540 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_cholesky_solve_mat" "', argument " "1"" of type '" "gsl_matrix const *""'");
8541 }
8542 arg1 = (gsl_matrix *)(argp1);
8543 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
8544 if (!SWIG_IsOK(res2)) {
8545 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_cholesky_solve_mat" "', argument " "2"" of type '" "gsl_matrix const *""'");
8546 }
8547 arg2 = (gsl_matrix *)(argp2);
8548 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
8549 if (!SWIG_IsOK(res3)) {
8550 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_cholesky_solve_mat" "', argument " "3"" of type '" "gsl_matrix *""'");
8551 }
8552 arg3 = (gsl_matrix *)(argp3);
8553 result = (int)gsl_linalg_cholesky_solve_mat((gsl_matrix const *)arg1,(gsl_matrix const *)arg2,arg3);
8554 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8555
8556
8557
8558 XSRETURN(argvi);
8559 fail:
8560
8561
8562
8563 SWIG_croak_null();
8564 }
8565 }
8566
8567
XS(_wrap_gsl_linalg_cholesky_svx)8568 XS(_wrap_gsl_linalg_cholesky_svx) {
8569 {
8570 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
8571 gsl_vector *arg2 = (gsl_vector *) 0 ;
8572 void *argp1 = 0 ;
8573 int res1 = 0 ;
8574 void *argp2 = 0 ;
8575 int res2 = 0 ;
8576 int argvi = 0;
8577 int result;
8578 dXSARGS;
8579
8580 if ((items < 2) || (items > 2)) {
8581 SWIG_croak("Usage: gsl_linalg_cholesky_svx(cholesky,x);");
8582 }
8583 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
8584 if (!SWIG_IsOK(res1)) {
8585 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_cholesky_svx" "', argument " "1"" of type '" "gsl_matrix const *""'");
8586 }
8587 arg1 = (gsl_matrix *)(argp1);
8588 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
8589 if (!SWIG_IsOK(res2)) {
8590 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_cholesky_svx" "', argument " "2"" of type '" "gsl_vector *""'");
8591 }
8592 arg2 = (gsl_vector *)(argp2);
8593 result = (int)gsl_linalg_cholesky_svx((gsl_matrix const *)arg1,arg2);
8594 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8595
8596
8597 XSRETURN(argvi);
8598 fail:
8599
8600
8601 SWIG_croak_null();
8602 }
8603 }
8604
8605
XS(_wrap_gsl_linalg_cholesky_svx_mat)8606 XS(_wrap_gsl_linalg_cholesky_svx_mat) {
8607 {
8608 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
8609 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
8610 void *argp1 = 0 ;
8611 int res1 = 0 ;
8612 void *argp2 = 0 ;
8613 int res2 = 0 ;
8614 int argvi = 0;
8615 int result;
8616 dXSARGS;
8617
8618 if ((items < 2) || (items > 2)) {
8619 SWIG_croak("Usage: gsl_linalg_cholesky_svx_mat(cholesky,X);");
8620 }
8621 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
8622 if (!SWIG_IsOK(res1)) {
8623 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_cholesky_svx_mat" "', argument " "1"" of type '" "gsl_matrix const *""'");
8624 }
8625 arg1 = (gsl_matrix *)(argp1);
8626 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
8627 if (!SWIG_IsOK(res2)) {
8628 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_cholesky_svx_mat" "', argument " "2"" of type '" "gsl_matrix *""'");
8629 }
8630 arg2 = (gsl_matrix *)(argp2);
8631 result = (int)gsl_linalg_cholesky_svx_mat((gsl_matrix const *)arg1,arg2);
8632 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8633
8634
8635 XSRETURN(argvi);
8636 fail:
8637
8638
8639 SWIG_croak_null();
8640 }
8641 }
8642
8643
XS(_wrap_gsl_linalg_cholesky_invert)8644 XS(_wrap_gsl_linalg_cholesky_invert) {
8645 {
8646 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
8647 void *argp1 = 0 ;
8648 int res1 = 0 ;
8649 int argvi = 0;
8650 int result;
8651 dXSARGS;
8652
8653 if ((items < 1) || (items > 1)) {
8654 SWIG_croak("Usage: gsl_linalg_cholesky_invert(cholesky);");
8655 }
8656 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
8657 if (!SWIG_IsOK(res1)) {
8658 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_cholesky_invert" "', argument " "1"" of type '" "gsl_matrix *""'");
8659 }
8660 arg1 = (gsl_matrix *)(argp1);
8661 result = (int)gsl_linalg_cholesky_invert(arg1);
8662 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8663
8664 XSRETURN(argvi);
8665 fail:
8666
8667 SWIG_croak_null();
8668 }
8669 }
8670
8671
XS(_wrap_gsl_linalg_cholesky_decomp_unit)8672 XS(_wrap_gsl_linalg_cholesky_decomp_unit) {
8673 {
8674 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
8675 gsl_vector *arg2 = (gsl_vector *) 0 ;
8676 void *argp1 = 0 ;
8677 int res1 = 0 ;
8678 void *argp2 = 0 ;
8679 int res2 = 0 ;
8680 int argvi = 0;
8681 int result;
8682 dXSARGS;
8683
8684 if ((items < 2) || (items > 2)) {
8685 SWIG_croak("Usage: gsl_linalg_cholesky_decomp_unit(A,D);");
8686 }
8687 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
8688 if (!SWIG_IsOK(res1)) {
8689 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_cholesky_decomp_unit" "', argument " "1"" of type '" "gsl_matrix *""'");
8690 }
8691 arg1 = (gsl_matrix *)(argp1);
8692 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
8693 if (!SWIG_IsOK(res2)) {
8694 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_cholesky_decomp_unit" "', argument " "2"" of type '" "gsl_vector *""'");
8695 }
8696 arg2 = (gsl_vector *)(argp2);
8697 result = (int)gsl_linalg_cholesky_decomp_unit(arg1,arg2);
8698 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8699
8700
8701 XSRETURN(argvi);
8702 fail:
8703
8704
8705 SWIG_croak_null();
8706 }
8707 }
8708
8709
XS(_wrap_gsl_linalg_cholesky_scale)8710 XS(_wrap_gsl_linalg_cholesky_scale) {
8711 {
8712 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
8713 gsl_vector *arg2 = (gsl_vector *) 0 ;
8714 void *argp1 = 0 ;
8715 int res1 = 0 ;
8716 void *argp2 = 0 ;
8717 int res2 = 0 ;
8718 int argvi = 0;
8719 int result;
8720 dXSARGS;
8721
8722 if ((items < 2) || (items > 2)) {
8723 SWIG_croak("Usage: gsl_linalg_cholesky_scale(A,S);");
8724 }
8725 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
8726 if (!SWIG_IsOK(res1)) {
8727 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_cholesky_scale" "', argument " "1"" of type '" "gsl_matrix const *""'");
8728 }
8729 arg1 = (gsl_matrix *)(argp1);
8730 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
8731 if (!SWIG_IsOK(res2)) {
8732 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_cholesky_scale" "', argument " "2"" of type '" "gsl_vector *""'");
8733 }
8734 arg2 = (gsl_vector *)(argp2);
8735 result = (int)gsl_linalg_cholesky_scale((gsl_matrix const *)arg1,arg2);
8736 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8737
8738
8739 XSRETURN(argvi);
8740 fail:
8741
8742
8743 SWIG_croak_null();
8744 }
8745 }
8746
8747
XS(_wrap_gsl_linalg_cholesky_scale_apply)8748 XS(_wrap_gsl_linalg_cholesky_scale_apply) {
8749 {
8750 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
8751 gsl_vector *arg2 = (gsl_vector *) 0 ;
8752 void *argp1 = 0 ;
8753 int res1 = 0 ;
8754 void *argp2 = 0 ;
8755 int res2 = 0 ;
8756 int argvi = 0;
8757 int result;
8758 dXSARGS;
8759
8760 if ((items < 2) || (items > 2)) {
8761 SWIG_croak("Usage: gsl_linalg_cholesky_scale_apply(A,S);");
8762 }
8763 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
8764 if (!SWIG_IsOK(res1)) {
8765 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_cholesky_scale_apply" "', argument " "1"" of type '" "gsl_matrix *""'");
8766 }
8767 arg1 = (gsl_matrix *)(argp1);
8768 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
8769 if (!SWIG_IsOK(res2)) {
8770 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_cholesky_scale_apply" "', argument " "2"" of type '" "gsl_vector const *""'");
8771 }
8772 arg2 = (gsl_vector *)(argp2);
8773 result = (int)gsl_linalg_cholesky_scale_apply(arg1,(gsl_vector const *)arg2);
8774 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8775
8776
8777 XSRETURN(argvi);
8778 fail:
8779
8780
8781 SWIG_croak_null();
8782 }
8783 }
8784
8785
XS(_wrap_gsl_linalg_cholesky_decomp2)8786 XS(_wrap_gsl_linalg_cholesky_decomp2) {
8787 {
8788 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
8789 gsl_vector *arg2 = (gsl_vector *) 0 ;
8790 void *argp1 = 0 ;
8791 int res1 = 0 ;
8792 void *argp2 = 0 ;
8793 int res2 = 0 ;
8794 int argvi = 0;
8795 int result;
8796 dXSARGS;
8797
8798 if ((items < 2) || (items > 2)) {
8799 SWIG_croak("Usage: gsl_linalg_cholesky_decomp2(A,S);");
8800 }
8801 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
8802 if (!SWIG_IsOK(res1)) {
8803 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_cholesky_decomp2" "', argument " "1"" of type '" "gsl_matrix *""'");
8804 }
8805 arg1 = (gsl_matrix *)(argp1);
8806 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
8807 if (!SWIG_IsOK(res2)) {
8808 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_cholesky_decomp2" "', argument " "2"" of type '" "gsl_vector *""'");
8809 }
8810 arg2 = (gsl_vector *)(argp2);
8811 result = (int)gsl_linalg_cholesky_decomp2(arg1,arg2);
8812 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8813
8814
8815 XSRETURN(argvi);
8816 fail:
8817
8818
8819 SWIG_croak_null();
8820 }
8821 }
8822
8823
XS(_wrap_gsl_linalg_cholesky_svx2)8824 XS(_wrap_gsl_linalg_cholesky_svx2) {
8825 {
8826 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
8827 gsl_vector *arg2 = (gsl_vector *) 0 ;
8828 gsl_vector *arg3 = (gsl_vector *) 0 ;
8829 void *argp1 = 0 ;
8830 int res1 = 0 ;
8831 void *argp2 = 0 ;
8832 int res2 = 0 ;
8833 void *argp3 = 0 ;
8834 int res3 = 0 ;
8835 int argvi = 0;
8836 int result;
8837 dXSARGS;
8838
8839 if ((items < 3) || (items > 3)) {
8840 SWIG_croak("Usage: gsl_linalg_cholesky_svx2(LLT,S,x);");
8841 }
8842 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
8843 if (!SWIG_IsOK(res1)) {
8844 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_cholesky_svx2" "', argument " "1"" of type '" "gsl_matrix const *""'");
8845 }
8846 arg1 = (gsl_matrix *)(argp1);
8847 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
8848 if (!SWIG_IsOK(res2)) {
8849 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_cholesky_svx2" "', argument " "2"" of type '" "gsl_vector const *""'");
8850 }
8851 arg2 = (gsl_vector *)(argp2);
8852 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
8853 if (!SWIG_IsOK(res3)) {
8854 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_cholesky_svx2" "', argument " "3"" of type '" "gsl_vector *""'");
8855 }
8856 arg3 = (gsl_vector *)(argp3);
8857 result = (int)gsl_linalg_cholesky_svx2((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3);
8858 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8859
8860
8861
8862 XSRETURN(argvi);
8863 fail:
8864
8865
8866
8867 SWIG_croak_null();
8868 }
8869 }
8870
8871
XS(_wrap_gsl_linalg_cholesky_solve2)8872 XS(_wrap_gsl_linalg_cholesky_solve2) {
8873 {
8874 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
8875 gsl_vector *arg2 = (gsl_vector *) 0 ;
8876 gsl_vector *arg3 = (gsl_vector *) 0 ;
8877 gsl_vector *arg4 = (gsl_vector *) 0 ;
8878 void *argp1 = 0 ;
8879 int res1 = 0 ;
8880 void *argp2 = 0 ;
8881 int res2 = 0 ;
8882 void *argp3 = 0 ;
8883 int res3 = 0 ;
8884 void *argp4 = 0 ;
8885 int res4 = 0 ;
8886 int argvi = 0;
8887 int result;
8888 dXSARGS;
8889
8890 if ((items < 4) || (items > 4)) {
8891 SWIG_croak("Usage: gsl_linalg_cholesky_solve2(LLT,S,b,x);");
8892 }
8893 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
8894 if (!SWIG_IsOK(res1)) {
8895 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_cholesky_solve2" "', argument " "1"" of type '" "gsl_matrix const *""'");
8896 }
8897 arg1 = (gsl_matrix *)(argp1);
8898 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
8899 if (!SWIG_IsOK(res2)) {
8900 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_cholesky_solve2" "', argument " "2"" of type '" "gsl_vector const *""'");
8901 }
8902 arg2 = (gsl_vector *)(argp2);
8903 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
8904 if (!SWIG_IsOK(res3)) {
8905 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_cholesky_solve2" "', argument " "3"" of type '" "gsl_vector const *""'");
8906 }
8907 arg3 = (gsl_vector *)(argp3);
8908 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
8909 if (!SWIG_IsOK(res4)) {
8910 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_cholesky_solve2" "', argument " "4"" of type '" "gsl_vector *""'");
8911 }
8912 arg4 = (gsl_vector *)(argp4);
8913 result = (int)gsl_linalg_cholesky_solve2((gsl_matrix const *)arg1,(gsl_vector const *)arg2,(gsl_vector const *)arg3,arg4);
8914 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8915
8916
8917
8918
8919 XSRETURN(argvi);
8920 fail:
8921
8922
8923
8924
8925 SWIG_croak_null();
8926 }
8927 }
8928
8929
XS(_wrap_gsl_linalg_cholesky_rcond)8930 XS(_wrap_gsl_linalg_cholesky_rcond) {
8931 {
8932 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
8933 double *arg2 = (double *) 0 ;
8934 gsl_vector *arg3 = (gsl_vector *) 0 ;
8935 void *argp1 = 0 ;
8936 int res1 = 0 ;
8937 void *argp2 = 0 ;
8938 int res2 = 0 ;
8939 void *argp3 = 0 ;
8940 int res3 = 0 ;
8941 int argvi = 0;
8942 int result;
8943 dXSARGS;
8944
8945 if ((items < 3) || (items > 3)) {
8946 SWIG_croak("Usage: gsl_linalg_cholesky_rcond(LLT,rcond,work);");
8947 }
8948 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
8949 if (!SWIG_IsOK(res1)) {
8950 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_cholesky_rcond" "', argument " "1"" of type '" "gsl_matrix const *""'");
8951 }
8952 arg1 = (gsl_matrix *)(argp1);
8953 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_double, 0 | 0 );
8954 if (!SWIG_IsOK(res2)) {
8955 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_cholesky_rcond" "', argument " "2"" of type '" "double *""'");
8956 }
8957 arg2 = (double *)(argp2);
8958 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
8959 if (!SWIG_IsOK(res3)) {
8960 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_cholesky_rcond" "', argument " "3"" of type '" "gsl_vector *""'");
8961 }
8962 arg3 = (gsl_vector *)(argp3);
8963 result = (int)gsl_linalg_cholesky_rcond((gsl_matrix const *)arg1,arg2,arg3);
8964 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8965
8966
8967
8968 XSRETURN(argvi);
8969 fail:
8970
8971
8972
8973 SWIG_croak_null();
8974 }
8975 }
8976
8977
XS(_wrap_gsl_linalg_complex_cholesky_decomp)8978 XS(_wrap_gsl_linalg_complex_cholesky_decomp) {
8979 {
8980 gsl_matrix_complex *arg1 = (gsl_matrix_complex *) 0 ;
8981 void *argp1 = 0 ;
8982 int res1 = 0 ;
8983 int argvi = 0;
8984 int result;
8985 dXSARGS;
8986
8987 if ((items < 1) || (items > 1)) {
8988 SWIG_croak("Usage: gsl_linalg_complex_cholesky_decomp(A);");
8989 }
8990 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
8991 if (!SWIG_IsOK(res1)) {
8992 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_complex_cholesky_decomp" "', argument " "1"" of type '" "gsl_matrix_complex *""'");
8993 }
8994 arg1 = (gsl_matrix_complex *)(argp1);
8995 result = (int)gsl_linalg_complex_cholesky_decomp(arg1);
8996 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8997
8998 XSRETURN(argvi);
8999 fail:
9000
9001 SWIG_croak_null();
9002 }
9003 }
9004
9005
XS(_wrap_gsl_linalg_complex_cholesky_solve)9006 XS(_wrap_gsl_linalg_complex_cholesky_solve) {
9007 {
9008 gsl_matrix_complex *arg1 = (gsl_matrix_complex *) 0 ;
9009 gsl_vector_complex *arg2 = (gsl_vector_complex *) 0 ;
9010 gsl_vector_complex *arg3 = (gsl_vector_complex *) 0 ;
9011 void *argp1 = 0 ;
9012 int res1 = 0 ;
9013 void *argp2 = 0 ;
9014 int res2 = 0 ;
9015 void *argp3 = 0 ;
9016 int res3 = 0 ;
9017 int argvi = 0;
9018 int result;
9019 dXSARGS;
9020
9021 if ((items < 3) || (items > 3)) {
9022 SWIG_croak("Usage: gsl_linalg_complex_cholesky_solve(cholesky,b,x);");
9023 }
9024 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
9025 if (!SWIG_IsOK(res1)) {
9026 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_complex_cholesky_solve" "', argument " "1"" of type '" "gsl_matrix_complex const *""'");
9027 }
9028 arg1 = (gsl_matrix_complex *)(argp1);
9029 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
9030 if (!SWIG_IsOK(res2)) {
9031 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_complex_cholesky_solve" "', argument " "2"" of type '" "gsl_vector_complex const *""'");
9032 }
9033 arg2 = (gsl_vector_complex *)(argp2);
9034 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
9035 if (!SWIG_IsOK(res3)) {
9036 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_complex_cholesky_solve" "', argument " "3"" of type '" "gsl_vector_complex *""'");
9037 }
9038 arg3 = (gsl_vector_complex *)(argp3);
9039 result = (int)gsl_linalg_complex_cholesky_solve((gsl_matrix_complex const *)arg1,(gsl_vector_complex const *)arg2,arg3);
9040 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
9041
9042
9043
9044 XSRETURN(argvi);
9045 fail:
9046
9047
9048
9049 SWIG_croak_null();
9050 }
9051 }
9052
9053
XS(_wrap_gsl_linalg_complex_cholesky_svx)9054 XS(_wrap_gsl_linalg_complex_cholesky_svx) {
9055 {
9056 gsl_matrix_complex *arg1 = (gsl_matrix_complex *) 0 ;
9057 gsl_vector_complex *arg2 = (gsl_vector_complex *) 0 ;
9058 void *argp1 = 0 ;
9059 int res1 = 0 ;
9060 void *argp2 = 0 ;
9061 int res2 = 0 ;
9062 int argvi = 0;
9063 int result;
9064 dXSARGS;
9065
9066 if ((items < 2) || (items > 2)) {
9067 SWIG_croak("Usage: gsl_linalg_complex_cholesky_svx(cholesky,x);");
9068 }
9069 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
9070 if (!SWIG_IsOK(res1)) {
9071 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_complex_cholesky_svx" "', argument " "1"" of type '" "gsl_matrix_complex const *""'");
9072 }
9073 arg1 = (gsl_matrix_complex *)(argp1);
9074 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
9075 if (!SWIG_IsOK(res2)) {
9076 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_complex_cholesky_svx" "', argument " "2"" of type '" "gsl_vector_complex *""'");
9077 }
9078 arg2 = (gsl_vector_complex *)(argp2);
9079 result = (int)gsl_linalg_complex_cholesky_svx((gsl_matrix_complex const *)arg1,arg2);
9080 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
9081
9082
9083 XSRETURN(argvi);
9084 fail:
9085
9086
9087 SWIG_croak_null();
9088 }
9089 }
9090
9091
XS(_wrap_gsl_linalg_complex_cholesky_invert)9092 XS(_wrap_gsl_linalg_complex_cholesky_invert) {
9093 {
9094 gsl_matrix_complex *arg1 = (gsl_matrix_complex *) 0 ;
9095 void *argp1 = 0 ;
9096 int res1 = 0 ;
9097 int argvi = 0;
9098 int result;
9099 dXSARGS;
9100
9101 if ((items < 1) || (items > 1)) {
9102 SWIG_croak("Usage: gsl_linalg_complex_cholesky_invert(cholesky);");
9103 }
9104 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
9105 if (!SWIG_IsOK(res1)) {
9106 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_complex_cholesky_invert" "', argument " "1"" of type '" "gsl_matrix_complex *""'");
9107 }
9108 arg1 = (gsl_matrix_complex *)(argp1);
9109 result = (int)gsl_linalg_complex_cholesky_invert(arg1);
9110 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
9111
9112 XSRETURN(argvi);
9113 fail:
9114
9115 SWIG_croak_null();
9116 }
9117 }
9118
9119
XS(_wrap_gsl_linalg_pcholesky_decomp)9120 XS(_wrap_gsl_linalg_pcholesky_decomp) {
9121 {
9122 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
9123 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
9124 void *argp1 = 0 ;
9125 int res1 = 0 ;
9126 void *argp2 = 0 ;
9127 int res2 = 0 ;
9128 int argvi = 0;
9129 int result;
9130 dXSARGS;
9131
9132 if ((items < 2) || (items > 2)) {
9133 SWIG_croak("Usage: gsl_linalg_pcholesky_decomp(A,p);");
9134 }
9135 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
9136 if (!SWIG_IsOK(res1)) {
9137 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_pcholesky_decomp" "', argument " "1"" of type '" "gsl_matrix *""'");
9138 }
9139 arg1 = (gsl_matrix *)(argp1);
9140 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
9141 if (!SWIG_IsOK(res2)) {
9142 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_pcholesky_decomp" "', argument " "2"" of type '" "gsl_permutation *""'");
9143 }
9144 arg2 = (gsl_permutation *)(argp2);
9145 result = (int)gsl_linalg_pcholesky_decomp(arg1,arg2);
9146 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
9147
9148
9149 XSRETURN(argvi);
9150 fail:
9151
9152
9153 SWIG_croak_null();
9154 }
9155 }
9156
9157
XS(_wrap_gsl_linalg_pcholesky_solve)9158 XS(_wrap_gsl_linalg_pcholesky_solve) {
9159 {
9160 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
9161 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
9162 gsl_vector *arg3 = (gsl_vector *) 0 ;
9163 gsl_vector *arg4 = (gsl_vector *) 0 ;
9164 void *argp1 = 0 ;
9165 int res1 = 0 ;
9166 void *argp2 = 0 ;
9167 int res2 = 0 ;
9168 void *argp3 = 0 ;
9169 int res3 = 0 ;
9170 void *argp4 = 0 ;
9171 int res4 = 0 ;
9172 int argvi = 0;
9173 int result;
9174 dXSARGS;
9175
9176 if ((items < 4) || (items > 4)) {
9177 SWIG_croak("Usage: gsl_linalg_pcholesky_solve(LDLT,p,b,x);");
9178 }
9179 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
9180 if (!SWIG_IsOK(res1)) {
9181 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_pcholesky_solve" "', argument " "1"" of type '" "gsl_matrix const *""'");
9182 }
9183 arg1 = (gsl_matrix *)(argp1);
9184 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
9185 if (!SWIG_IsOK(res2)) {
9186 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_pcholesky_solve" "', argument " "2"" of type '" "gsl_permutation const *""'");
9187 }
9188 arg2 = (gsl_permutation *)(argp2);
9189 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
9190 if (!SWIG_IsOK(res3)) {
9191 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_pcholesky_solve" "', argument " "3"" of type '" "gsl_vector const *""'");
9192 }
9193 arg3 = (gsl_vector *)(argp3);
9194 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
9195 if (!SWIG_IsOK(res4)) {
9196 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_pcholesky_solve" "', argument " "4"" of type '" "gsl_vector *""'");
9197 }
9198 arg4 = (gsl_vector *)(argp4);
9199 result = (int)gsl_linalg_pcholesky_solve((gsl_matrix const *)arg1,(struct gsl_permutation_struct const *)arg2,(gsl_vector const *)arg3,arg4);
9200 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
9201
9202
9203
9204
9205 XSRETURN(argvi);
9206 fail:
9207
9208
9209
9210
9211 SWIG_croak_null();
9212 }
9213 }
9214
9215
XS(_wrap_gsl_linalg_pcholesky_svx)9216 XS(_wrap_gsl_linalg_pcholesky_svx) {
9217 {
9218 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
9219 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
9220 gsl_vector *arg3 = (gsl_vector *) 0 ;
9221 void *argp1 = 0 ;
9222 int res1 = 0 ;
9223 void *argp2 = 0 ;
9224 int res2 = 0 ;
9225 void *argp3 = 0 ;
9226 int res3 = 0 ;
9227 int argvi = 0;
9228 int result;
9229 dXSARGS;
9230
9231 if ((items < 3) || (items > 3)) {
9232 SWIG_croak("Usage: gsl_linalg_pcholesky_svx(LDLT,p,x);");
9233 }
9234 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
9235 if (!SWIG_IsOK(res1)) {
9236 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_pcholesky_svx" "', argument " "1"" of type '" "gsl_matrix const *""'");
9237 }
9238 arg1 = (gsl_matrix *)(argp1);
9239 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
9240 if (!SWIG_IsOK(res2)) {
9241 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_pcholesky_svx" "', argument " "2"" of type '" "gsl_permutation const *""'");
9242 }
9243 arg2 = (gsl_permutation *)(argp2);
9244 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
9245 if (!SWIG_IsOK(res3)) {
9246 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_pcholesky_svx" "', argument " "3"" of type '" "gsl_vector *""'");
9247 }
9248 arg3 = (gsl_vector *)(argp3);
9249 result = (int)gsl_linalg_pcholesky_svx((gsl_matrix const *)arg1,(struct gsl_permutation_struct const *)arg2,arg3);
9250 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
9251
9252
9253
9254 XSRETURN(argvi);
9255 fail:
9256
9257
9258
9259 SWIG_croak_null();
9260 }
9261 }
9262
9263
XS(_wrap_gsl_linalg_pcholesky_decomp2)9264 XS(_wrap_gsl_linalg_pcholesky_decomp2) {
9265 {
9266 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
9267 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
9268 gsl_vector *arg3 = (gsl_vector *) 0 ;
9269 void *argp1 = 0 ;
9270 int res1 = 0 ;
9271 void *argp2 = 0 ;
9272 int res2 = 0 ;
9273 void *argp3 = 0 ;
9274 int res3 = 0 ;
9275 int argvi = 0;
9276 int result;
9277 dXSARGS;
9278
9279 if ((items < 3) || (items > 3)) {
9280 SWIG_croak("Usage: gsl_linalg_pcholesky_decomp2(A,p,S);");
9281 }
9282 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
9283 if (!SWIG_IsOK(res1)) {
9284 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_pcholesky_decomp2" "', argument " "1"" of type '" "gsl_matrix *""'");
9285 }
9286 arg1 = (gsl_matrix *)(argp1);
9287 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
9288 if (!SWIG_IsOK(res2)) {
9289 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_pcholesky_decomp2" "', argument " "2"" of type '" "gsl_permutation *""'");
9290 }
9291 arg2 = (gsl_permutation *)(argp2);
9292 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
9293 if (!SWIG_IsOK(res3)) {
9294 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_pcholesky_decomp2" "', argument " "3"" of type '" "gsl_vector *""'");
9295 }
9296 arg3 = (gsl_vector *)(argp3);
9297 result = (int)gsl_linalg_pcholesky_decomp2(arg1,arg2,arg3);
9298 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
9299
9300
9301
9302 XSRETURN(argvi);
9303 fail:
9304
9305
9306
9307 SWIG_croak_null();
9308 }
9309 }
9310
9311
XS(_wrap_gsl_linalg_pcholesky_solve2)9312 XS(_wrap_gsl_linalg_pcholesky_solve2) {
9313 {
9314 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
9315 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
9316 gsl_vector *arg3 = (gsl_vector *) 0 ;
9317 gsl_vector *arg4 = (gsl_vector *) 0 ;
9318 gsl_vector *arg5 = (gsl_vector *) 0 ;
9319 void *argp1 = 0 ;
9320 int res1 = 0 ;
9321 void *argp2 = 0 ;
9322 int res2 = 0 ;
9323 void *argp3 = 0 ;
9324 int res3 = 0 ;
9325 void *argp4 = 0 ;
9326 int res4 = 0 ;
9327 void *argp5 = 0 ;
9328 int res5 = 0 ;
9329 int argvi = 0;
9330 int result;
9331 dXSARGS;
9332
9333 if ((items < 5) || (items > 5)) {
9334 SWIG_croak("Usage: gsl_linalg_pcholesky_solve2(LDLT,p,S,b,x);");
9335 }
9336 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
9337 if (!SWIG_IsOK(res1)) {
9338 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_pcholesky_solve2" "', argument " "1"" of type '" "gsl_matrix const *""'");
9339 }
9340 arg1 = (gsl_matrix *)(argp1);
9341 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
9342 if (!SWIG_IsOK(res2)) {
9343 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_pcholesky_solve2" "', argument " "2"" of type '" "gsl_permutation const *""'");
9344 }
9345 arg2 = (gsl_permutation *)(argp2);
9346 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
9347 if (!SWIG_IsOK(res3)) {
9348 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_pcholesky_solve2" "', argument " "3"" of type '" "gsl_vector const *""'");
9349 }
9350 arg3 = (gsl_vector *)(argp3);
9351 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
9352 if (!SWIG_IsOK(res4)) {
9353 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_pcholesky_solve2" "', argument " "4"" of type '" "gsl_vector const *""'");
9354 }
9355 arg4 = (gsl_vector *)(argp4);
9356 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
9357 if (!SWIG_IsOK(res5)) {
9358 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_pcholesky_solve2" "', argument " "5"" of type '" "gsl_vector *""'");
9359 }
9360 arg5 = (gsl_vector *)(argp5);
9361 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);
9362 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
9363
9364
9365
9366
9367
9368 XSRETURN(argvi);
9369 fail:
9370
9371
9372
9373
9374
9375 SWIG_croak_null();
9376 }
9377 }
9378
9379
XS(_wrap_gsl_linalg_pcholesky_svx2)9380 XS(_wrap_gsl_linalg_pcholesky_svx2) {
9381 {
9382 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
9383 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
9384 gsl_vector *arg3 = (gsl_vector *) 0 ;
9385 gsl_vector *arg4 = (gsl_vector *) 0 ;
9386 void *argp1 = 0 ;
9387 int res1 = 0 ;
9388 void *argp2 = 0 ;
9389 int res2 = 0 ;
9390 void *argp3 = 0 ;
9391 int res3 = 0 ;
9392 void *argp4 = 0 ;
9393 int res4 = 0 ;
9394 int argvi = 0;
9395 int result;
9396 dXSARGS;
9397
9398 if ((items < 4) || (items > 4)) {
9399 SWIG_croak("Usage: gsl_linalg_pcholesky_svx2(LDLT,p,S,x);");
9400 }
9401 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
9402 if (!SWIG_IsOK(res1)) {
9403 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_pcholesky_svx2" "', argument " "1"" of type '" "gsl_matrix const *""'");
9404 }
9405 arg1 = (gsl_matrix *)(argp1);
9406 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
9407 if (!SWIG_IsOK(res2)) {
9408 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_pcholesky_svx2" "', argument " "2"" of type '" "gsl_permutation const *""'");
9409 }
9410 arg2 = (gsl_permutation *)(argp2);
9411 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
9412 if (!SWIG_IsOK(res3)) {
9413 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_pcholesky_svx2" "', argument " "3"" of type '" "gsl_vector const *""'");
9414 }
9415 arg3 = (gsl_vector *)(argp3);
9416 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
9417 if (!SWIG_IsOK(res4)) {
9418 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_pcholesky_svx2" "', argument " "4"" of type '" "gsl_vector *""'");
9419 }
9420 arg4 = (gsl_vector *)(argp4);
9421 result = (int)gsl_linalg_pcholesky_svx2((gsl_matrix const *)arg1,(struct gsl_permutation_struct const *)arg2,(gsl_vector const *)arg3,arg4);
9422 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
9423
9424
9425
9426
9427 XSRETURN(argvi);
9428 fail:
9429
9430
9431
9432
9433 SWIG_croak_null();
9434 }
9435 }
9436
9437
XS(_wrap_gsl_linalg_pcholesky_invert)9438 XS(_wrap_gsl_linalg_pcholesky_invert) {
9439 {
9440 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
9441 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
9442 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
9443 void *argp1 = 0 ;
9444 int res1 = 0 ;
9445 void *argp2 = 0 ;
9446 int res2 = 0 ;
9447 void *argp3 = 0 ;
9448 int res3 = 0 ;
9449 int argvi = 0;
9450 int result;
9451 dXSARGS;
9452
9453 if ((items < 3) || (items > 3)) {
9454 SWIG_croak("Usage: gsl_linalg_pcholesky_invert(LDLT,p,Ainv);");
9455 }
9456 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
9457 if (!SWIG_IsOK(res1)) {
9458 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_pcholesky_invert" "', argument " "1"" of type '" "gsl_matrix const *""'");
9459 }
9460 arg1 = (gsl_matrix *)(argp1);
9461 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
9462 if (!SWIG_IsOK(res2)) {
9463 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_pcholesky_invert" "', argument " "2"" of type '" "gsl_permutation const *""'");
9464 }
9465 arg2 = (gsl_permutation *)(argp2);
9466 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
9467 if (!SWIG_IsOK(res3)) {
9468 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_pcholesky_invert" "', argument " "3"" of type '" "gsl_matrix *""'");
9469 }
9470 arg3 = (gsl_matrix *)(argp3);
9471 result = (int)gsl_linalg_pcholesky_invert((gsl_matrix const *)arg1,(struct gsl_permutation_struct const *)arg2,arg3);
9472 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
9473
9474
9475
9476 XSRETURN(argvi);
9477 fail:
9478
9479
9480
9481 SWIG_croak_null();
9482 }
9483 }
9484
9485
XS(_wrap_gsl_linalg_pcholesky_rcond)9486 XS(_wrap_gsl_linalg_pcholesky_rcond) {
9487 {
9488 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
9489 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
9490 double *arg3 = (double *) 0 ;
9491 gsl_vector *arg4 = (gsl_vector *) 0 ;
9492 void *argp1 = 0 ;
9493 int res1 = 0 ;
9494 void *argp2 = 0 ;
9495 int res2 = 0 ;
9496 void *argp3 = 0 ;
9497 int res3 = 0 ;
9498 void *argp4 = 0 ;
9499 int res4 = 0 ;
9500 int argvi = 0;
9501 int result;
9502 dXSARGS;
9503
9504 if ((items < 4) || (items > 4)) {
9505 SWIG_croak("Usage: gsl_linalg_pcholesky_rcond(LDLT,p,rcond,work);");
9506 }
9507 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
9508 if (!SWIG_IsOK(res1)) {
9509 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_pcholesky_rcond" "', argument " "1"" of type '" "gsl_matrix const *""'");
9510 }
9511 arg1 = (gsl_matrix *)(argp1);
9512 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
9513 if (!SWIG_IsOK(res2)) {
9514 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_pcholesky_rcond" "', argument " "2"" of type '" "gsl_permutation const *""'");
9515 }
9516 arg2 = (gsl_permutation *)(argp2);
9517 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_double, 0 | 0 );
9518 if (!SWIG_IsOK(res3)) {
9519 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_pcholesky_rcond" "', argument " "3"" of type '" "double *""'");
9520 }
9521 arg3 = (double *)(argp3);
9522 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
9523 if (!SWIG_IsOK(res4)) {
9524 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_pcholesky_rcond" "', argument " "4"" of type '" "gsl_vector *""'");
9525 }
9526 arg4 = (gsl_vector *)(argp4);
9527 result = (int)gsl_linalg_pcholesky_rcond((gsl_matrix const *)arg1,(struct gsl_permutation_struct const *)arg2,arg3,arg4);
9528 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
9529
9530
9531
9532
9533 XSRETURN(argvi);
9534 fail:
9535
9536
9537
9538
9539 SWIG_croak_null();
9540 }
9541 }
9542
9543
XS(_wrap_gsl_linalg_mcholesky_decomp)9544 XS(_wrap_gsl_linalg_mcholesky_decomp) {
9545 {
9546 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
9547 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
9548 gsl_vector *arg3 = (gsl_vector *) 0 ;
9549 void *argp1 = 0 ;
9550 int res1 = 0 ;
9551 void *argp2 = 0 ;
9552 int res2 = 0 ;
9553 void *argp3 = 0 ;
9554 int res3 = 0 ;
9555 int argvi = 0;
9556 int result;
9557 dXSARGS;
9558
9559 if ((items < 3) || (items > 3)) {
9560 SWIG_croak("Usage: gsl_linalg_mcholesky_decomp(A,p,E);");
9561 }
9562 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
9563 if (!SWIG_IsOK(res1)) {
9564 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_mcholesky_decomp" "', argument " "1"" of type '" "gsl_matrix *""'");
9565 }
9566 arg1 = (gsl_matrix *)(argp1);
9567 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
9568 if (!SWIG_IsOK(res2)) {
9569 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_mcholesky_decomp" "', argument " "2"" of type '" "gsl_permutation *""'");
9570 }
9571 arg2 = (gsl_permutation *)(argp2);
9572 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
9573 if (!SWIG_IsOK(res3)) {
9574 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_mcholesky_decomp" "', argument " "3"" of type '" "gsl_vector *""'");
9575 }
9576 arg3 = (gsl_vector *)(argp3);
9577 result = (int)gsl_linalg_mcholesky_decomp(arg1,arg2,arg3);
9578 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
9579
9580
9581
9582 XSRETURN(argvi);
9583 fail:
9584
9585
9586
9587 SWIG_croak_null();
9588 }
9589 }
9590
9591
XS(_wrap_gsl_linalg_mcholesky_solve)9592 XS(_wrap_gsl_linalg_mcholesky_solve) {
9593 {
9594 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
9595 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
9596 gsl_vector *arg3 = (gsl_vector *) 0 ;
9597 gsl_vector *arg4 = (gsl_vector *) 0 ;
9598 void *argp1 = 0 ;
9599 int res1 = 0 ;
9600 void *argp2 = 0 ;
9601 int res2 = 0 ;
9602 void *argp3 = 0 ;
9603 int res3 = 0 ;
9604 void *argp4 = 0 ;
9605 int res4 = 0 ;
9606 int argvi = 0;
9607 int result;
9608 dXSARGS;
9609
9610 if ((items < 4) || (items > 4)) {
9611 SWIG_croak("Usage: gsl_linalg_mcholesky_solve(LDLT,p,b,x);");
9612 }
9613 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
9614 if (!SWIG_IsOK(res1)) {
9615 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_mcholesky_solve" "', argument " "1"" of type '" "gsl_matrix const *""'");
9616 }
9617 arg1 = (gsl_matrix *)(argp1);
9618 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
9619 if (!SWIG_IsOK(res2)) {
9620 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_mcholesky_solve" "', argument " "2"" of type '" "gsl_permutation const *""'");
9621 }
9622 arg2 = (gsl_permutation *)(argp2);
9623 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
9624 if (!SWIG_IsOK(res3)) {
9625 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_mcholesky_solve" "', argument " "3"" of type '" "gsl_vector const *""'");
9626 }
9627 arg3 = (gsl_vector *)(argp3);
9628 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
9629 if (!SWIG_IsOK(res4)) {
9630 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_mcholesky_solve" "', argument " "4"" of type '" "gsl_vector *""'");
9631 }
9632 arg4 = (gsl_vector *)(argp4);
9633 result = (int)gsl_linalg_mcholesky_solve((gsl_matrix const *)arg1,(struct gsl_permutation_struct const *)arg2,(gsl_vector const *)arg3,arg4);
9634 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
9635
9636
9637
9638
9639 XSRETURN(argvi);
9640 fail:
9641
9642
9643
9644
9645 SWIG_croak_null();
9646 }
9647 }
9648
9649
XS(_wrap_gsl_linalg_mcholesky_svx)9650 XS(_wrap_gsl_linalg_mcholesky_svx) {
9651 {
9652 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
9653 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
9654 gsl_vector *arg3 = (gsl_vector *) 0 ;
9655 void *argp1 = 0 ;
9656 int res1 = 0 ;
9657 void *argp2 = 0 ;
9658 int res2 = 0 ;
9659 void *argp3 = 0 ;
9660 int res3 = 0 ;
9661 int argvi = 0;
9662 int result;
9663 dXSARGS;
9664
9665 if ((items < 3) || (items > 3)) {
9666 SWIG_croak("Usage: gsl_linalg_mcholesky_svx(LDLT,p,x);");
9667 }
9668 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
9669 if (!SWIG_IsOK(res1)) {
9670 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_mcholesky_svx" "', argument " "1"" of type '" "gsl_matrix const *""'");
9671 }
9672 arg1 = (gsl_matrix *)(argp1);
9673 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
9674 if (!SWIG_IsOK(res2)) {
9675 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_mcholesky_svx" "', argument " "2"" of type '" "gsl_permutation const *""'");
9676 }
9677 arg2 = (gsl_permutation *)(argp2);
9678 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
9679 if (!SWIG_IsOK(res3)) {
9680 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_mcholesky_svx" "', argument " "3"" of type '" "gsl_vector *""'");
9681 }
9682 arg3 = (gsl_vector *)(argp3);
9683 result = (int)gsl_linalg_mcholesky_svx((gsl_matrix const *)arg1,(struct gsl_permutation_struct const *)arg2,arg3);
9684 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
9685
9686
9687
9688 XSRETURN(argvi);
9689 fail:
9690
9691
9692
9693 SWIG_croak_null();
9694 }
9695 }
9696
9697
XS(_wrap_gsl_linalg_mcholesky_rcond)9698 XS(_wrap_gsl_linalg_mcholesky_rcond) {
9699 {
9700 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
9701 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
9702 double *arg3 = (double *) 0 ;
9703 gsl_vector *arg4 = (gsl_vector *) 0 ;
9704 void *argp1 = 0 ;
9705 int res1 = 0 ;
9706 void *argp2 = 0 ;
9707 int res2 = 0 ;
9708 void *argp3 = 0 ;
9709 int res3 = 0 ;
9710 void *argp4 = 0 ;
9711 int res4 = 0 ;
9712 int argvi = 0;
9713 int result;
9714 dXSARGS;
9715
9716 if ((items < 4) || (items > 4)) {
9717 SWIG_croak("Usage: gsl_linalg_mcholesky_rcond(LDLT,p,rcond,work);");
9718 }
9719 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
9720 if (!SWIG_IsOK(res1)) {
9721 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_mcholesky_rcond" "', argument " "1"" of type '" "gsl_matrix const *""'");
9722 }
9723 arg1 = (gsl_matrix *)(argp1);
9724 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
9725 if (!SWIG_IsOK(res2)) {
9726 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_mcholesky_rcond" "', argument " "2"" of type '" "gsl_permutation const *""'");
9727 }
9728 arg2 = (gsl_permutation *)(argp2);
9729 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_double, 0 | 0 );
9730 if (!SWIG_IsOK(res3)) {
9731 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_mcholesky_rcond" "', argument " "3"" of type '" "double *""'");
9732 }
9733 arg3 = (double *)(argp3);
9734 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
9735 if (!SWIG_IsOK(res4)) {
9736 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_mcholesky_rcond" "', argument " "4"" of type '" "gsl_vector *""'");
9737 }
9738 arg4 = (gsl_vector *)(argp4);
9739 result = (int)gsl_linalg_mcholesky_rcond((gsl_matrix const *)arg1,(struct gsl_permutation_struct const *)arg2,arg3,arg4);
9740 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
9741
9742
9743
9744
9745 XSRETURN(argvi);
9746 fail:
9747
9748
9749
9750
9751 SWIG_croak_null();
9752 }
9753 }
9754
9755
XS(_wrap_gsl_linalg_mcholesky_invert)9756 XS(_wrap_gsl_linalg_mcholesky_invert) {
9757 {
9758 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
9759 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
9760 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
9761 void *argp1 = 0 ;
9762 int res1 = 0 ;
9763 void *argp2 = 0 ;
9764 int res2 = 0 ;
9765 void *argp3 = 0 ;
9766 int res3 = 0 ;
9767 int argvi = 0;
9768 int result;
9769 dXSARGS;
9770
9771 if ((items < 3) || (items > 3)) {
9772 SWIG_croak("Usage: gsl_linalg_mcholesky_invert(LDLT,p,Ainv);");
9773 }
9774 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
9775 if (!SWIG_IsOK(res1)) {
9776 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_mcholesky_invert" "', argument " "1"" of type '" "gsl_matrix const *""'");
9777 }
9778 arg1 = (gsl_matrix *)(argp1);
9779 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
9780 if (!SWIG_IsOK(res2)) {
9781 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_mcholesky_invert" "', argument " "2"" of type '" "gsl_permutation const *""'");
9782 }
9783 arg2 = (gsl_permutation *)(argp2);
9784 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
9785 if (!SWIG_IsOK(res3)) {
9786 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_mcholesky_invert" "', argument " "3"" of type '" "gsl_matrix *""'");
9787 }
9788 arg3 = (gsl_matrix *)(argp3);
9789 result = (int)gsl_linalg_mcholesky_invert((gsl_matrix const *)arg1,(struct gsl_permutation_struct const *)arg2,arg3);
9790 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
9791
9792
9793
9794 XSRETURN(argvi);
9795 fail:
9796
9797
9798
9799 SWIG_croak_null();
9800 }
9801 }
9802
9803
XS(_wrap_gsl_linalg_cholesky_band_decomp)9804 XS(_wrap_gsl_linalg_cholesky_band_decomp) {
9805 {
9806 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
9807 void *argp1 = 0 ;
9808 int res1 = 0 ;
9809 int argvi = 0;
9810 int result;
9811 dXSARGS;
9812
9813 if ((items < 1) || (items > 1)) {
9814 SWIG_croak("Usage: gsl_linalg_cholesky_band_decomp(A);");
9815 }
9816 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
9817 if (!SWIG_IsOK(res1)) {
9818 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_cholesky_band_decomp" "', argument " "1"" of type '" "gsl_matrix *""'");
9819 }
9820 arg1 = (gsl_matrix *)(argp1);
9821 result = (int)gsl_linalg_cholesky_band_decomp(arg1);
9822 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
9823
9824 XSRETURN(argvi);
9825 fail:
9826
9827 SWIG_croak_null();
9828 }
9829 }
9830
9831
XS(_wrap_gsl_linalg_cholesky_band_solve)9832 XS(_wrap_gsl_linalg_cholesky_band_solve) {
9833 {
9834 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
9835 gsl_vector *arg2 = (gsl_vector *) 0 ;
9836 gsl_vector *arg3 = (gsl_vector *) 0 ;
9837 void *argp1 = 0 ;
9838 int res1 = 0 ;
9839 void *argp2 = 0 ;
9840 int res2 = 0 ;
9841 void *argp3 = 0 ;
9842 int res3 = 0 ;
9843 int argvi = 0;
9844 int result;
9845 dXSARGS;
9846
9847 if ((items < 3) || (items > 3)) {
9848 SWIG_croak("Usage: gsl_linalg_cholesky_band_solve(LLT,b,x);");
9849 }
9850 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
9851 if (!SWIG_IsOK(res1)) {
9852 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_cholesky_band_solve" "', argument " "1"" of type '" "gsl_matrix const *""'");
9853 }
9854 arg1 = (gsl_matrix *)(argp1);
9855 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
9856 if (!SWIG_IsOK(res2)) {
9857 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_cholesky_band_solve" "', argument " "2"" of type '" "gsl_vector const *""'");
9858 }
9859 arg2 = (gsl_vector *)(argp2);
9860 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
9861 if (!SWIG_IsOK(res3)) {
9862 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_cholesky_band_solve" "', argument " "3"" of type '" "gsl_vector *""'");
9863 }
9864 arg3 = (gsl_vector *)(argp3);
9865 result = (int)gsl_linalg_cholesky_band_solve((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3);
9866 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
9867
9868
9869
9870 XSRETURN(argvi);
9871 fail:
9872
9873
9874
9875 SWIG_croak_null();
9876 }
9877 }
9878
9879
XS(_wrap_gsl_linalg_cholesky_band_svx)9880 XS(_wrap_gsl_linalg_cholesky_band_svx) {
9881 {
9882 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
9883 gsl_vector *arg2 = (gsl_vector *) 0 ;
9884 void *argp1 = 0 ;
9885 int res1 = 0 ;
9886 void *argp2 = 0 ;
9887 int res2 = 0 ;
9888 int argvi = 0;
9889 int result;
9890 dXSARGS;
9891
9892 if ((items < 2) || (items > 2)) {
9893 SWIG_croak("Usage: gsl_linalg_cholesky_band_svx(LLT,x);");
9894 }
9895 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
9896 if (!SWIG_IsOK(res1)) {
9897 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_cholesky_band_svx" "', argument " "1"" of type '" "gsl_matrix const *""'");
9898 }
9899 arg1 = (gsl_matrix *)(argp1);
9900 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
9901 if (!SWIG_IsOK(res2)) {
9902 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_cholesky_band_svx" "', argument " "2"" of type '" "gsl_vector *""'");
9903 }
9904 arg2 = (gsl_vector *)(argp2);
9905 result = (int)gsl_linalg_cholesky_band_svx((gsl_matrix const *)arg1,arg2);
9906 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
9907
9908
9909 XSRETURN(argvi);
9910 fail:
9911
9912
9913 SWIG_croak_null();
9914 }
9915 }
9916
9917
XS(_wrap_gsl_linalg_cholesky_band_invert)9918 XS(_wrap_gsl_linalg_cholesky_band_invert) {
9919 {
9920 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
9921 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
9922 void *argp1 = 0 ;
9923 int res1 = 0 ;
9924 void *argp2 = 0 ;
9925 int res2 = 0 ;
9926 int argvi = 0;
9927 int result;
9928 dXSARGS;
9929
9930 if ((items < 2) || (items > 2)) {
9931 SWIG_croak("Usage: gsl_linalg_cholesky_band_invert(LLT,Ainv);");
9932 }
9933 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
9934 if (!SWIG_IsOK(res1)) {
9935 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_cholesky_band_invert" "', argument " "1"" of type '" "gsl_matrix const *""'");
9936 }
9937 arg1 = (gsl_matrix *)(argp1);
9938 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
9939 if (!SWIG_IsOK(res2)) {
9940 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_cholesky_band_invert" "', argument " "2"" of type '" "gsl_matrix *""'");
9941 }
9942 arg2 = (gsl_matrix *)(argp2);
9943 result = (int)gsl_linalg_cholesky_band_invert((gsl_matrix const *)arg1,arg2);
9944 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
9945
9946
9947 XSRETURN(argvi);
9948 fail:
9949
9950
9951 SWIG_croak_null();
9952 }
9953 }
9954
9955
XS(_wrap_gsl_linalg_cholesky_band_unpack)9956 XS(_wrap_gsl_linalg_cholesky_band_unpack) {
9957 {
9958 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
9959 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
9960 void *argp1 = 0 ;
9961 int res1 = 0 ;
9962 void *argp2 = 0 ;
9963 int res2 = 0 ;
9964 int argvi = 0;
9965 int result;
9966 dXSARGS;
9967
9968 if ((items < 2) || (items > 2)) {
9969 SWIG_croak("Usage: gsl_linalg_cholesky_band_unpack(LLT,L);");
9970 }
9971 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
9972 if (!SWIG_IsOK(res1)) {
9973 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_cholesky_band_unpack" "', argument " "1"" of type '" "gsl_matrix const *""'");
9974 }
9975 arg1 = (gsl_matrix *)(argp1);
9976 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
9977 if (!SWIG_IsOK(res2)) {
9978 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_cholesky_band_unpack" "', argument " "2"" of type '" "gsl_matrix *""'");
9979 }
9980 arg2 = (gsl_matrix *)(argp2);
9981 result = (int)gsl_linalg_cholesky_band_unpack((gsl_matrix const *)arg1,arg2);
9982 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
9983
9984
9985 XSRETURN(argvi);
9986 fail:
9987
9988
9989 SWIG_croak_null();
9990 }
9991 }
9992
9993
XS(_wrap_gsl_linalg_cholesky_band_rcond)9994 XS(_wrap_gsl_linalg_cholesky_band_rcond) {
9995 {
9996 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
9997 double *arg2 = (double *) 0 ;
9998 gsl_vector *arg3 = (gsl_vector *) 0 ;
9999 void *argp1 = 0 ;
10000 int res1 = 0 ;
10001 void *argp2 = 0 ;
10002 int res2 = 0 ;
10003 void *argp3 = 0 ;
10004 int res3 = 0 ;
10005 int argvi = 0;
10006 int result;
10007 dXSARGS;
10008
10009 if ((items < 3) || (items > 3)) {
10010 SWIG_croak("Usage: gsl_linalg_cholesky_band_rcond(LLT,rcond,work);");
10011 }
10012 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
10013 if (!SWIG_IsOK(res1)) {
10014 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_cholesky_band_rcond" "', argument " "1"" of type '" "gsl_matrix const *""'");
10015 }
10016 arg1 = (gsl_matrix *)(argp1);
10017 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_double, 0 | 0 );
10018 if (!SWIG_IsOK(res2)) {
10019 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_cholesky_band_rcond" "', argument " "2"" of type '" "double *""'");
10020 }
10021 arg2 = (double *)(argp2);
10022 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
10023 if (!SWIG_IsOK(res3)) {
10024 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_cholesky_band_rcond" "', argument " "3"" of type '" "gsl_vector *""'");
10025 }
10026 arg3 = (gsl_vector *)(argp3);
10027 result = (int)gsl_linalg_cholesky_band_rcond((gsl_matrix const *)arg1,arg2,arg3);
10028 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
10029
10030
10031
10032 XSRETURN(argvi);
10033 fail:
10034
10035
10036
10037 SWIG_croak_null();
10038 }
10039 }
10040
10041
XS(_wrap_gsl_linalg_ldlt_decomp)10042 XS(_wrap_gsl_linalg_ldlt_decomp) {
10043 {
10044 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
10045 void *argp1 = 0 ;
10046 int res1 = 0 ;
10047 int argvi = 0;
10048 int result;
10049 dXSARGS;
10050
10051 if ((items < 1) || (items > 1)) {
10052 SWIG_croak("Usage: gsl_linalg_ldlt_decomp(A);");
10053 }
10054 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
10055 if (!SWIG_IsOK(res1)) {
10056 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_ldlt_decomp" "', argument " "1"" of type '" "gsl_matrix *""'");
10057 }
10058 arg1 = (gsl_matrix *)(argp1);
10059 result = (int)gsl_linalg_ldlt_decomp(arg1);
10060 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
10061
10062 XSRETURN(argvi);
10063 fail:
10064
10065 SWIG_croak_null();
10066 }
10067 }
10068
10069
XS(_wrap_gsl_linalg_ldlt_solve)10070 XS(_wrap_gsl_linalg_ldlt_solve) {
10071 {
10072 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
10073 gsl_vector *arg2 = (gsl_vector *) 0 ;
10074 gsl_vector *arg3 = (gsl_vector *) 0 ;
10075 void *argp1 = 0 ;
10076 int res1 = 0 ;
10077 void *argp2 = 0 ;
10078 int res2 = 0 ;
10079 void *argp3 = 0 ;
10080 int res3 = 0 ;
10081 int argvi = 0;
10082 int result;
10083 dXSARGS;
10084
10085 if ((items < 3) || (items > 3)) {
10086 SWIG_croak("Usage: gsl_linalg_ldlt_solve(LDLT,b,x);");
10087 }
10088 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
10089 if (!SWIG_IsOK(res1)) {
10090 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_ldlt_solve" "', argument " "1"" of type '" "gsl_matrix const *""'");
10091 }
10092 arg1 = (gsl_matrix *)(argp1);
10093 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
10094 if (!SWIG_IsOK(res2)) {
10095 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_ldlt_solve" "', argument " "2"" of type '" "gsl_vector const *""'");
10096 }
10097 arg2 = (gsl_vector *)(argp2);
10098 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
10099 if (!SWIG_IsOK(res3)) {
10100 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_ldlt_solve" "', argument " "3"" of type '" "gsl_vector *""'");
10101 }
10102 arg3 = (gsl_vector *)(argp3);
10103 result = (int)gsl_linalg_ldlt_solve((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3);
10104 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
10105
10106
10107
10108 XSRETURN(argvi);
10109 fail:
10110
10111
10112
10113 SWIG_croak_null();
10114 }
10115 }
10116
10117
XS(_wrap_gsl_linalg_ldlt_svx)10118 XS(_wrap_gsl_linalg_ldlt_svx) {
10119 {
10120 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
10121 gsl_vector *arg2 = (gsl_vector *) 0 ;
10122 void *argp1 = 0 ;
10123 int res1 = 0 ;
10124 void *argp2 = 0 ;
10125 int res2 = 0 ;
10126 int argvi = 0;
10127 int result;
10128 dXSARGS;
10129
10130 if ((items < 2) || (items > 2)) {
10131 SWIG_croak("Usage: gsl_linalg_ldlt_svx(LDLT,x);");
10132 }
10133 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
10134 if (!SWIG_IsOK(res1)) {
10135 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_ldlt_svx" "', argument " "1"" of type '" "gsl_matrix const *""'");
10136 }
10137 arg1 = (gsl_matrix *)(argp1);
10138 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
10139 if (!SWIG_IsOK(res2)) {
10140 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_ldlt_svx" "', argument " "2"" of type '" "gsl_vector *""'");
10141 }
10142 arg2 = (gsl_vector *)(argp2);
10143 result = (int)gsl_linalg_ldlt_svx((gsl_matrix const *)arg1,arg2);
10144 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
10145
10146
10147 XSRETURN(argvi);
10148 fail:
10149
10150
10151 SWIG_croak_null();
10152 }
10153 }
10154
10155
XS(_wrap_gsl_linalg_ldlt_rcond)10156 XS(_wrap_gsl_linalg_ldlt_rcond) {
10157 {
10158 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
10159 double *arg2 = (double *) 0 ;
10160 gsl_vector *arg3 = (gsl_vector *) 0 ;
10161 void *argp1 = 0 ;
10162 int res1 = 0 ;
10163 void *argp2 = 0 ;
10164 int res2 = 0 ;
10165 void *argp3 = 0 ;
10166 int res3 = 0 ;
10167 int argvi = 0;
10168 int result;
10169 dXSARGS;
10170
10171 if ((items < 3) || (items > 3)) {
10172 SWIG_croak("Usage: gsl_linalg_ldlt_rcond(LDLT,rcond,work);");
10173 }
10174 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
10175 if (!SWIG_IsOK(res1)) {
10176 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_ldlt_rcond" "', argument " "1"" of type '" "gsl_matrix const *""'");
10177 }
10178 arg1 = (gsl_matrix *)(argp1);
10179 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_double, 0 | 0 );
10180 if (!SWIG_IsOK(res2)) {
10181 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_ldlt_rcond" "', argument " "2"" of type '" "double *""'");
10182 }
10183 arg2 = (double *)(argp2);
10184 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
10185 if (!SWIG_IsOK(res3)) {
10186 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_ldlt_rcond" "', argument " "3"" of type '" "gsl_vector *""'");
10187 }
10188 arg3 = (gsl_vector *)(argp3);
10189 result = (int)gsl_linalg_ldlt_rcond((gsl_matrix const *)arg1,arg2,arg3);
10190 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
10191
10192
10193
10194 XSRETURN(argvi);
10195 fail:
10196
10197
10198
10199 SWIG_croak_null();
10200 }
10201 }
10202
10203
XS(_wrap_gsl_linalg_ldlt_band_decomp)10204 XS(_wrap_gsl_linalg_ldlt_band_decomp) {
10205 {
10206 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
10207 void *argp1 = 0 ;
10208 int res1 = 0 ;
10209 int argvi = 0;
10210 int result;
10211 dXSARGS;
10212
10213 if ((items < 1) || (items > 1)) {
10214 SWIG_croak("Usage: gsl_linalg_ldlt_band_decomp(A);");
10215 }
10216 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
10217 if (!SWIG_IsOK(res1)) {
10218 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_ldlt_band_decomp" "', argument " "1"" of type '" "gsl_matrix *""'");
10219 }
10220 arg1 = (gsl_matrix *)(argp1);
10221 result = (int)gsl_linalg_ldlt_band_decomp(arg1);
10222 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
10223
10224 XSRETURN(argvi);
10225 fail:
10226
10227 SWIG_croak_null();
10228 }
10229 }
10230
10231
XS(_wrap_gsl_linalg_ldlt_band_solve)10232 XS(_wrap_gsl_linalg_ldlt_band_solve) {
10233 {
10234 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
10235 gsl_vector *arg2 = (gsl_vector *) 0 ;
10236 gsl_vector *arg3 = (gsl_vector *) 0 ;
10237 void *argp1 = 0 ;
10238 int res1 = 0 ;
10239 void *argp2 = 0 ;
10240 int res2 = 0 ;
10241 void *argp3 = 0 ;
10242 int res3 = 0 ;
10243 int argvi = 0;
10244 int result;
10245 dXSARGS;
10246
10247 if ((items < 3) || (items > 3)) {
10248 SWIG_croak("Usage: gsl_linalg_ldlt_band_solve(LDLT,b,x);");
10249 }
10250 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
10251 if (!SWIG_IsOK(res1)) {
10252 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_ldlt_band_solve" "', argument " "1"" of type '" "gsl_matrix const *""'");
10253 }
10254 arg1 = (gsl_matrix *)(argp1);
10255 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
10256 if (!SWIG_IsOK(res2)) {
10257 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_ldlt_band_solve" "', argument " "2"" of type '" "gsl_vector const *""'");
10258 }
10259 arg2 = (gsl_vector *)(argp2);
10260 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
10261 if (!SWIG_IsOK(res3)) {
10262 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_ldlt_band_solve" "', argument " "3"" of type '" "gsl_vector *""'");
10263 }
10264 arg3 = (gsl_vector *)(argp3);
10265 result = (int)gsl_linalg_ldlt_band_solve((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3);
10266 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
10267
10268
10269
10270 XSRETURN(argvi);
10271 fail:
10272
10273
10274
10275 SWIG_croak_null();
10276 }
10277 }
10278
10279
XS(_wrap_gsl_linalg_ldlt_band_svx)10280 XS(_wrap_gsl_linalg_ldlt_band_svx) {
10281 {
10282 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
10283 gsl_vector *arg2 = (gsl_vector *) 0 ;
10284 void *argp1 = 0 ;
10285 int res1 = 0 ;
10286 void *argp2 = 0 ;
10287 int res2 = 0 ;
10288 int argvi = 0;
10289 int result;
10290 dXSARGS;
10291
10292 if ((items < 2) || (items > 2)) {
10293 SWIG_croak("Usage: gsl_linalg_ldlt_band_svx(LDLT,x);");
10294 }
10295 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
10296 if (!SWIG_IsOK(res1)) {
10297 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_ldlt_band_svx" "', argument " "1"" of type '" "gsl_matrix const *""'");
10298 }
10299 arg1 = (gsl_matrix *)(argp1);
10300 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
10301 if (!SWIG_IsOK(res2)) {
10302 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_ldlt_band_svx" "', argument " "2"" of type '" "gsl_vector *""'");
10303 }
10304 arg2 = (gsl_vector *)(argp2);
10305 result = (int)gsl_linalg_ldlt_band_svx((gsl_matrix const *)arg1,arg2);
10306 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
10307
10308
10309 XSRETURN(argvi);
10310 fail:
10311
10312
10313 SWIG_croak_null();
10314 }
10315 }
10316
10317
XS(_wrap_gsl_linalg_ldlt_band_unpack)10318 XS(_wrap_gsl_linalg_ldlt_band_unpack) {
10319 {
10320 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
10321 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
10322 gsl_vector *arg3 = (gsl_vector *) 0 ;
10323 void *argp1 = 0 ;
10324 int res1 = 0 ;
10325 void *argp2 = 0 ;
10326 int res2 = 0 ;
10327 void *argp3 = 0 ;
10328 int res3 = 0 ;
10329 int argvi = 0;
10330 int result;
10331 dXSARGS;
10332
10333 if ((items < 3) || (items > 3)) {
10334 SWIG_croak("Usage: gsl_linalg_ldlt_band_unpack(LDLT,L,D);");
10335 }
10336 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
10337 if (!SWIG_IsOK(res1)) {
10338 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_ldlt_band_unpack" "', argument " "1"" of type '" "gsl_matrix const *""'");
10339 }
10340 arg1 = (gsl_matrix *)(argp1);
10341 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
10342 if (!SWIG_IsOK(res2)) {
10343 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_ldlt_band_unpack" "', argument " "2"" of type '" "gsl_matrix *""'");
10344 }
10345 arg2 = (gsl_matrix *)(argp2);
10346 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
10347 if (!SWIG_IsOK(res3)) {
10348 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_ldlt_band_unpack" "', argument " "3"" of type '" "gsl_vector *""'");
10349 }
10350 arg3 = (gsl_vector *)(argp3);
10351 result = (int)gsl_linalg_ldlt_band_unpack((gsl_matrix const *)arg1,arg2,arg3);
10352 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
10353
10354
10355
10356 XSRETURN(argvi);
10357 fail:
10358
10359
10360
10361 SWIG_croak_null();
10362 }
10363 }
10364
10365
XS(_wrap_gsl_linalg_ldlt_band_rcond)10366 XS(_wrap_gsl_linalg_ldlt_band_rcond) {
10367 {
10368 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
10369 double *arg2 = (double *) 0 ;
10370 gsl_vector *arg3 = (gsl_vector *) 0 ;
10371 void *argp1 = 0 ;
10372 int res1 = 0 ;
10373 void *argp2 = 0 ;
10374 int res2 = 0 ;
10375 void *argp3 = 0 ;
10376 int res3 = 0 ;
10377 int argvi = 0;
10378 int result;
10379 dXSARGS;
10380
10381 if ((items < 3) || (items > 3)) {
10382 SWIG_croak("Usage: gsl_linalg_ldlt_band_rcond(LDLT,rcond,work);");
10383 }
10384 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
10385 if (!SWIG_IsOK(res1)) {
10386 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_ldlt_band_rcond" "', argument " "1"" of type '" "gsl_matrix const *""'");
10387 }
10388 arg1 = (gsl_matrix *)(argp1);
10389 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_double, 0 | 0 );
10390 if (!SWIG_IsOK(res2)) {
10391 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_ldlt_band_rcond" "', argument " "2"" of type '" "double *""'");
10392 }
10393 arg2 = (double *)(argp2);
10394 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
10395 if (!SWIG_IsOK(res3)) {
10396 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_ldlt_band_rcond" "', argument " "3"" of type '" "gsl_vector *""'");
10397 }
10398 arg3 = (gsl_vector *)(argp3);
10399 result = (int)gsl_linalg_ldlt_band_rcond((gsl_matrix const *)arg1,arg2,arg3);
10400 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
10401
10402
10403
10404 XSRETURN(argvi);
10405 fail:
10406
10407
10408
10409 SWIG_croak_null();
10410 }
10411 }
10412
10413
XS(_wrap_gsl_linalg_symmtd_decomp)10414 XS(_wrap_gsl_linalg_symmtd_decomp) {
10415 {
10416 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
10417 gsl_vector *arg2 = (gsl_vector *) 0 ;
10418 void *argp1 = 0 ;
10419 int res1 = 0 ;
10420 void *argp2 = 0 ;
10421 int res2 = 0 ;
10422 int argvi = 0;
10423 int result;
10424 dXSARGS;
10425
10426 if ((items < 2) || (items > 2)) {
10427 SWIG_croak("Usage: gsl_linalg_symmtd_decomp(A,tau);");
10428 }
10429 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
10430 if (!SWIG_IsOK(res1)) {
10431 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_symmtd_decomp" "', argument " "1"" of type '" "gsl_matrix *""'");
10432 }
10433 arg1 = (gsl_matrix *)(argp1);
10434 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
10435 if (!SWIG_IsOK(res2)) {
10436 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_symmtd_decomp" "', argument " "2"" of type '" "gsl_vector *""'");
10437 }
10438 arg2 = (gsl_vector *)(argp2);
10439 result = (int)gsl_linalg_symmtd_decomp(arg1,arg2);
10440 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
10441
10442
10443 XSRETURN(argvi);
10444 fail:
10445
10446
10447 SWIG_croak_null();
10448 }
10449 }
10450
10451
XS(_wrap_gsl_linalg_symmtd_unpack)10452 XS(_wrap_gsl_linalg_symmtd_unpack) {
10453 {
10454 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
10455 gsl_vector *arg2 = (gsl_vector *) 0 ;
10456 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
10457 gsl_vector *arg4 = (gsl_vector *) 0 ;
10458 gsl_vector *arg5 = (gsl_vector *) 0 ;
10459 void *argp1 = 0 ;
10460 int res1 = 0 ;
10461 void *argp2 = 0 ;
10462 int res2 = 0 ;
10463 void *argp3 = 0 ;
10464 int res3 = 0 ;
10465 void *argp4 = 0 ;
10466 int res4 = 0 ;
10467 void *argp5 = 0 ;
10468 int res5 = 0 ;
10469 int argvi = 0;
10470 int result;
10471 dXSARGS;
10472
10473 if ((items < 5) || (items > 5)) {
10474 SWIG_croak("Usage: gsl_linalg_symmtd_unpack(A,tau,Q,diag,subdiag);");
10475 }
10476 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
10477 if (!SWIG_IsOK(res1)) {
10478 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_symmtd_unpack" "', argument " "1"" of type '" "gsl_matrix const *""'");
10479 }
10480 arg1 = (gsl_matrix *)(argp1);
10481 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
10482 if (!SWIG_IsOK(res2)) {
10483 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_symmtd_unpack" "', argument " "2"" of type '" "gsl_vector const *""'");
10484 }
10485 arg2 = (gsl_vector *)(argp2);
10486 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
10487 if (!SWIG_IsOK(res3)) {
10488 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_symmtd_unpack" "', argument " "3"" of type '" "gsl_matrix *""'");
10489 }
10490 arg3 = (gsl_matrix *)(argp3);
10491 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
10492 if (!SWIG_IsOK(res4)) {
10493 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_symmtd_unpack" "', argument " "4"" of type '" "gsl_vector *""'");
10494 }
10495 arg4 = (gsl_vector *)(argp4);
10496 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
10497 if (!SWIG_IsOK(res5)) {
10498 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_symmtd_unpack" "', argument " "5"" of type '" "gsl_vector *""'");
10499 }
10500 arg5 = (gsl_vector *)(argp5);
10501 result = (int)gsl_linalg_symmtd_unpack((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3,arg4,arg5);
10502 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
10503
10504
10505
10506
10507
10508 XSRETURN(argvi);
10509 fail:
10510
10511
10512
10513
10514
10515 SWIG_croak_null();
10516 }
10517 }
10518
10519
XS(_wrap_gsl_linalg_symmtd_unpack_T)10520 XS(_wrap_gsl_linalg_symmtd_unpack_T) {
10521 {
10522 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
10523 gsl_vector *arg2 = (gsl_vector *) 0 ;
10524 gsl_vector *arg3 = (gsl_vector *) 0 ;
10525 void *argp1 = 0 ;
10526 int res1 = 0 ;
10527 void *argp2 = 0 ;
10528 int res2 = 0 ;
10529 void *argp3 = 0 ;
10530 int res3 = 0 ;
10531 int argvi = 0;
10532 int result;
10533 dXSARGS;
10534
10535 if ((items < 3) || (items > 3)) {
10536 SWIG_croak("Usage: gsl_linalg_symmtd_unpack_T(A,diag,subdiag);");
10537 }
10538 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
10539 if (!SWIG_IsOK(res1)) {
10540 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_symmtd_unpack_T" "', argument " "1"" of type '" "gsl_matrix const *""'");
10541 }
10542 arg1 = (gsl_matrix *)(argp1);
10543 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
10544 if (!SWIG_IsOK(res2)) {
10545 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_symmtd_unpack_T" "', argument " "2"" of type '" "gsl_vector *""'");
10546 }
10547 arg2 = (gsl_vector *)(argp2);
10548 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
10549 if (!SWIG_IsOK(res3)) {
10550 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_symmtd_unpack_T" "', argument " "3"" of type '" "gsl_vector *""'");
10551 }
10552 arg3 = (gsl_vector *)(argp3);
10553 result = (int)gsl_linalg_symmtd_unpack_T((gsl_matrix const *)arg1,arg2,arg3);
10554 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
10555
10556
10557
10558 XSRETURN(argvi);
10559 fail:
10560
10561
10562
10563 SWIG_croak_null();
10564 }
10565 }
10566
10567
XS(_wrap_gsl_linalg_hermtd_decomp)10568 XS(_wrap_gsl_linalg_hermtd_decomp) {
10569 {
10570 gsl_matrix_complex *arg1 = (gsl_matrix_complex *) 0 ;
10571 gsl_vector_complex *arg2 = (gsl_vector_complex *) 0 ;
10572 void *argp1 = 0 ;
10573 int res1 = 0 ;
10574 void *argp2 = 0 ;
10575 int res2 = 0 ;
10576 int argvi = 0;
10577 int result;
10578 dXSARGS;
10579
10580 if ((items < 2) || (items > 2)) {
10581 SWIG_croak("Usage: gsl_linalg_hermtd_decomp(A,tau);");
10582 }
10583 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
10584 if (!SWIG_IsOK(res1)) {
10585 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_hermtd_decomp" "', argument " "1"" of type '" "gsl_matrix_complex *""'");
10586 }
10587 arg1 = (gsl_matrix_complex *)(argp1);
10588 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
10589 if (!SWIG_IsOK(res2)) {
10590 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_hermtd_decomp" "', argument " "2"" of type '" "gsl_vector_complex *""'");
10591 }
10592 arg2 = (gsl_vector_complex *)(argp2);
10593 result = (int)gsl_linalg_hermtd_decomp(arg1,arg2);
10594 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
10595
10596
10597 XSRETURN(argvi);
10598 fail:
10599
10600
10601 SWIG_croak_null();
10602 }
10603 }
10604
10605
XS(_wrap_gsl_linalg_hermtd_unpack)10606 XS(_wrap_gsl_linalg_hermtd_unpack) {
10607 {
10608 gsl_matrix_complex *arg1 = (gsl_matrix_complex *) 0 ;
10609 gsl_vector_complex *arg2 = (gsl_vector_complex *) 0 ;
10610 gsl_matrix_complex *arg3 = (gsl_matrix_complex *) 0 ;
10611 gsl_vector *arg4 = (gsl_vector *) 0 ;
10612 gsl_vector *arg5 = (gsl_vector *) 0 ;
10613 void *argp1 = 0 ;
10614 int res1 = 0 ;
10615 void *argp2 = 0 ;
10616 int res2 = 0 ;
10617 void *argp3 = 0 ;
10618 int res3 = 0 ;
10619 void *argp4 = 0 ;
10620 int res4 = 0 ;
10621 void *argp5 = 0 ;
10622 int res5 = 0 ;
10623 int argvi = 0;
10624 int result;
10625 dXSARGS;
10626
10627 if ((items < 5) || (items > 5)) {
10628 SWIG_croak("Usage: gsl_linalg_hermtd_unpack(A,tau,U,diag,sudiag);");
10629 }
10630 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
10631 if (!SWIG_IsOK(res1)) {
10632 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_hermtd_unpack" "', argument " "1"" of type '" "gsl_matrix_complex const *""'");
10633 }
10634 arg1 = (gsl_matrix_complex *)(argp1);
10635 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
10636 if (!SWIG_IsOK(res2)) {
10637 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_hermtd_unpack" "', argument " "2"" of type '" "gsl_vector_complex const *""'");
10638 }
10639 arg2 = (gsl_vector_complex *)(argp2);
10640 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
10641 if (!SWIG_IsOK(res3)) {
10642 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_hermtd_unpack" "', argument " "3"" of type '" "gsl_matrix_complex *""'");
10643 }
10644 arg3 = (gsl_matrix_complex *)(argp3);
10645 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
10646 if (!SWIG_IsOK(res4)) {
10647 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_hermtd_unpack" "', argument " "4"" of type '" "gsl_vector *""'");
10648 }
10649 arg4 = (gsl_vector *)(argp4);
10650 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
10651 if (!SWIG_IsOK(res5)) {
10652 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_hermtd_unpack" "', argument " "5"" of type '" "gsl_vector *""'");
10653 }
10654 arg5 = (gsl_vector *)(argp5);
10655 result = (int)gsl_linalg_hermtd_unpack((gsl_matrix_complex const *)arg1,(gsl_vector_complex const *)arg2,arg3,arg4,arg5);
10656 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
10657
10658
10659
10660
10661
10662 XSRETURN(argvi);
10663 fail:
10664
10665
10666
10667
10668
10669 SWIG_croak_null();
10670 }
10671 }
10672
10673
XS(_wrap_gsl_linalg_hermtd_unpack_T)10674 XS(_wrap_gsl_linalg_hermtd_unpack_T) {
10675 {
10676 gsl_matrix_complex *arg1 = (gsl_matrix_complex *) 0 ;
10677 gsl_vector *arg2 = (gsl_vector *) 0 ;
10678 gsl_vector *arg3 = (gsl_vector *) 0 ;
10679 void *argp1 = 0 ;
10680 int res1 = 0 ;
10681 void *argp2 = 0 ;
10682 int res2 = 0 ;
10683 void *argp3 = 0 ;
10684 int res3 = 0 ;
10685 int argvi = 0;
10686 int result;
10687 dXSARGS;
10688
10689 if ((items < 3) || (items > 3)) {
10690 SWIG_croak("Usage: gsl_linalg_hermtd_unpack_T(A,diag,subdiag);");
10691 }
10692 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
10693 if (!SWIG_IsOK(res1)) {
10694 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_hermtd_unpack_T" "', argument " "1"" of type '" "gsl_matrix_complex const *""'");
10695 }
10696 arg1 = (gsl_matrix_complex *)(argp1);
10697 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
10698 if (!SWIG_IsOK(res2)) {
10699 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_hermtd_unpack_T" "', argument " "2"" of type '" "gsl_vector *""'");
10700 }
10701 arg2 = (gsl_vector *)(argp2);
10702 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
10703 if (!SWIG_IsOK(res3)) {
10704 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_hermtd_unpack_T" "', argument " "3"" of type '" "gsl_vector *""'");
10705 }
10706 arg3 = (gsl_vector *)(argp3);
10707 result = (int)gsl_linalg_hermtd_unpack_T((gsl_matrix_complex const *)arg1,arg2,arg3);
10708 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
10709
10710
10711
10712 XSRETURN(argvi);
10713 fail:
10714
10715
10716
10717 SWIG_croak_null();
10718 }
10719 }
10720
10721
XS(_wrap_gsl_linalg_HH_solve)10722 XS(_wrap_gsl_linalg_HH_solve) {
10723 {
10724 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
10725 gsl_vector *arg2 = (gsl_vector *) 0 ;
10726 gsl_vector *arg3 = (gsl_vector *) 0 ;
10727 void *argp1 = 0 ;
10728 int res1 = 0 ;
10729 void *argp2 = 0 ;
10730 int res2 = 0 ;
10731 void *argp3 = 0 ;
10732 int res3 = 0 ;
10733 int argvi = 0;
10734 int result;
10735 dXSARGS;
10736
10737 if ((items < 3) || (items > 3)) {
10738 SWIG_croak("Usage: gsl_linalg_HH_solve(A,b,x);");
10739 }
10740 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
10741 if (!SWIG_IsOK(res1)) {
10742 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_HH_solve" "', argument " "1"" of type '" "gsl_matrix *""'");
10743 }
10744 arg1 = (gsl_matrix *)(argp1);
10745 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
10746 if (!SWIG_IsOK(res2)) {
10747 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_HH_solve" "', argument " "2"" of type '" "gsl_vector const *""'");
10748 }
10749 arg2 = (gsl_vector *)(argp2);
10750 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
10751 if (!SWIG_IsOK(res3)) {
10752 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_HH_solve" "', argument " "3"" of type '" "gsl_vector *""'");
10753 }
10754 arg3 = (gsl_vector *)(argp3);
10755 result = (int)gsl_linalg_HH_solve(arg1,(gsl_vector const *)arg2,arg3);
10756 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
10757
10758
10759
10760 XSRETURN(argvi);
10761 fail:
10762
10763
10764
10765 SWIG_croak_null();
10766 }
10767 }
10768
10769
XS(_wrap_gsl_linalg_HH_svx)10770 XS(_wrap_gsl_linalg_HH_svx) {
10771 {
10772 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
10773 gsl_vector *arg2 = (gsl_vector *) 0 ;
10774 void *argp1 = 0 ;
10775 int res1 = 0 ;
10776 void *argp2 = 0 ;
10777 int res2 = 0 ;
10778 int argvi = 0;
10779 int result;
10780 dXSARGS;
10781
10782 if ((items < 2) || (items > 2)) {
10783 SWIG_croak("Usage: gsl_linalg_HH_svx(A,x);");
10784 }
10785 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
10786 if (!SWIG_IsOK(res1)) {
10787 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_HH_svx" "', argument " "1"" of type '" "gsl_matrix *""'");
10788 }
10789 arg1 = (gsl_matrix *)(argp1);
10790 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
10791 if (!SWIG_IsOK(res2)) {
10792 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_HH_svx" "', argument " "2"" of type '" "gsl_vector *""'");
10793 }
10794 arg2 = (gsl_vector *)(argp2);
10795 result = (int)gsl_linalg_HH_svx(arg1,arg2);
10796 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
10797
10798
10799 XSRETURN(argvi);
10800 fail:
10801
10802
10803 SWIG_croak_null();
10804 }
10805 }
10806
10807
XS(_wrap_gsl_linalg_solve_symm_tridiag)10808 XS(_wrap_gsl_linalg_solve_symm_tridiag) {
10809 {
10810 gsl_vector *arg1 = (gsl_vector *) 0 ;
10811 gsl_vector *arg2 = (gsl_vector *) 0 ;
10812 gsl_vector *arg3 = (gsl_vector *) 0 ;
10813 gsl_vector *arg4 = (gsl_vector *) 0 ;
10814 void *argp1 = 0 ;
10815 int res1 = 0 ;
10816 void *argp2 = 0 ;
10817 int res2 = 0 ;
10818 void *argp3 = 0 ;
10819 int res3 = 0 ;
10820 void *argp4 = 0 ;
10821 int res4 = 0 ;
10822 int argvi = 0;
10823 int result;
10824 dXSARGS;
10825
10826 if ((items < 4) || (items > 4)) {
10827 SWIG_croak("Usage: gsl_linalg_solve_symm_tridiag(diag,offdiag,b,x);");
10828 }
10829 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
10830 if (!SWIG_IsOK(res1)) {
10831 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_solve_symm_tridiag" "', argument " "1"" of type '" "gsl_vector const *""'");
10832 }
10833 arg1 = (gsl_vector *)(argp1);
10834 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
10835 if (!SWIG_IsOK(res2)) {
10836 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_solve_symm_tridiag" "', argument " "2"" of type '" "gsl_vector const *""'");
10837 }
10838 arg2 = (gsl_vector *)(argp2);
10839 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
10840 if (!SWIG_IsOK(res3)) {
10841 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_solve_symm_tridiag" "', argument " "3"" of type '" "gsl_vector const *""'");
10842 }
10843 arg3 = (gsl_vector *)(argp3);
10844 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
10845 if (!SWIG_IsOK(res4)) {
10846 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_solve_symm_tridiag" "', argument " "4"" of type '" "gsl_vector *""'");
10847 }
10848 arg4 = (gsl_vector *)(argp4);
10849 result = (int)gsl_linalg_solve_symm_tridiag((gsl_vector const *)arg1,(gsl_vector const *)arg2,(gsl_vector const *)arg3,arg4);
10850 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
10851
10852
10853
10854
10855 XSRETURN(argvi);
10856 fail:
10857
10858
10859
10860
10861 SWIG_croak_null();
10862 }
10863 }
10864
10865
XS(_wrap_gsl_linalg_solve_tridiag)10866 XS(_wrap_gsl_linalg_solve_tridiag) {
10867 {
10868 gsl_vector *arg1 = (gsl_vector *) 0 ;
10869 gsl_vector *arg2 = (gsl_vector *) 0 ;
10870 gsl_vector *arg3 = (gsl_vector *) 0 ;
10871 gsl_vector *arg4 = (gsl_vector *) 0 ;
10872 gsl_vector *arg5 = (gsl_vector *) 0 ;
10873 void *argp1 = 0 ;
10874 int res1 = 0 ;
10875 void *argp2 = 0 ;
10876 int res2 = 0 ;
10877 void *argp3 = 0 ;
10878 int res3 = 0 ;
10879 void *argp4 = 0 ;
10880 int res4 = 0 ;
10881 void *argp5 = 0 ;
10882 int res5 = 0 ;
10883 int argvi = 0;
10884 int result;
10885 dXSARGS;
10886
10887 if ((items < 5) || (items > 5)) {
10888 SWIG_croak("Usage: gsl_linalg_solve_tridiag(diag,abovediag,belowdiag,b,x);");
10889 }
10890 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
10891 if (!SWIG_IsOK(res1)) {
10892 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_solve_tridiag" "', argument " "1"" of type '" "gsl_vector const *""'");
10893 }
10894 arg1 = (gsl_vector *)(argp1);
10895 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
10896 if (!SWIG_IsOK(res2)) {
10897 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_solve_tridiag" "', argument " "2"" of type '" "gsl_vector const *""'");
10898 }
10899 arg2 = (gsl_vector *)(argp2);
10900 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
10901 if (!SWIG_IsOK(res3)) {
10902 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_solve_tridiag" "', argument " "3"" of type '" "gsl_vector const *""'");
10903 }
10904 arg3 = (gsl_vector *)(argp3);
10905 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
10906 if (!SWIG_IsOK(res4)) {
10907 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_solve_tridiag" "', argument " "4"" of type '" "gsl_vector const *""'");
10908 }
10909 arg4 = (gsl_vector *)(argp4);
10910 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
10911 if (!SWIG_IsOK(res5)) {
10912 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_solve_tridiag" "', argument " "5"" of type '" "gsl_vector *""'");
10913 }
10914 arg5 = (gsl_vector *)(argp5);
10915 result = (int)gsl_linalg_solve_tridiag((gsl_vector const *)arg1,(gsl_vector const *)arg2,(gsl_vector const *)arg3,(gsl_vector const *)arg4,arg5);
10916 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
10917
10918
10919
10920
10921
10922 XSRETURN(argvi);
10923 fail:
10924
10925
10926
10927
10928
10929 SWIG_croak_null();
10930 }
10931 }
10932
10933
XS(_wrap_gsl_linalg_solve_symm_cyc_tridiag)10934 XS(_wrap_gsl_linalg_solve_symm_cyc_tridiag) {
10935 {
10936 gsl_vector *arg1 = (gsl_vector *) 0 ;
10937 gsl_vector *arg2 = (gsl_vector *) 0 ;
10938 gsl_vector *arg3 = (gsl_vector *) 0 ;
10939 gsl_vector *arg4 = (gsl_vector *) 0 ;
10940 void *argp1 = 0 ;
10941 int res1 = 0 ;
10942 void *argp2 = 0 ;
10943 int res2 = 0 ;
10944 void *argp3 = 0 ;
10945 int res3 = 0 ;
10946 void *argp4 = 0 ;
10947 int res4 = 0 ;
10948 int argvi = 0;
10949 int result;
10950 dXSARGS;
10951
10952 if ((items < 4) || (items > 4)) {
10953 SWIG_croak("Usage: gsl_linalg_solve_symm_cyc_tridiag(diag,offdiag,b,x);");
10954 }
10955 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
10956 if (!SWIG_IsOK(res1)) {
10957 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_solve_symm_cyc_tridiag" "', argument " "1"" of type '" "gsl_vector const *""'");
10958 }
10959 arg1 = (gsl_vector *)(argp1);
10960 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
10961 if (!SWIG_IsOK(res2)) {
10962 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_solve_symm_cyc_tridiag" "', argument " "2"" of type '" "gsl_vector const *""'");
10963 }
10964 arg2 = (gsl_vector *)(argp2);
10965 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
10966 if (!SWIG_IsOK(res3)) {
10967 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_solve_symm_cyc_tridiag" "', argument " "3"" of type '" "gsl_vector const *""'");
10968 }
10969 arg3 = (gsl_vector *)(argp3);
10970 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
10971 if (!SWIG_IsOK(res4)) {
10972 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_solve_symm_cyc_tridiag" "', argument " "4"" of type '" "gsl_vector *""'");
10973 }
10974 arg4 = (gsl_vector *)(argp4);
10975 result = (int)gsl_linalg_solve_symm_cyc_tridiag((gsl_vector const *)arg1,(gsl_vector const *)arg2,(gsl_vector const *)arg3,arg4);
10976 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
10977
10978
10979
10980
10981 XSRETURN(argvi);
10982 fail:
10983
10984
10985
10986
10987 SWIG_croak_null();
10988 }
10989 }
10990
10991
XS(_wrap_gsl_linalg_solve_cyc_tridiag)10992 XS(_wrap_gsl_linalg_solve_cyc_tridiag) {
10993 {
10994 gsl_vector *arg1 = (gsl_vector *) 0 ;
10995 gsl_vector *arg2 = (gsl_vector *) 0 ;
10996 gsl_vector *arg3 = (gsl_vector *) 0 ;
10997 gsl_vector *arg4 = (gsl_vector *) 0 ;
10998 gsl_vector *arg5 = (gsl_vector *) 0 ;
10999 void *argp1 = 0 ;
11000 int res1 = 0 ;
11001 void *argp2 = 0 ;
11002 int res2 = 0 ;
11003 void *argp3 = 0 ;
11004 int res3 = 0 ;
11005 void *argp4 = 0 ;
11006 int res4 = 0 ;
11007 void *argp5 = 0 ;
11008 int res5 = 0 ;
11009 int argvi = 0;
11010 int result;
11011 dXSARGS;
11012
11013 if ((items < 5) || (items > 5)) {
11014 SWIG_croak("Usage: gsl_linalg_solve_cyc_tridiag(diag,abovediag,belowdiag,b,x);");
11015 }
11016 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
11017 if (!SWIG_IsOK(res1)) {
11018 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_solve_cyc_tridiag" "', argument " "1"" of type '" "gsl_vector const *""'");
11019 }
11020 arg1 = (gsl_vector *)(argp1);
11021 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
11022 if (!SWIG_IsOK(res2)) {
11023 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_solve_cyc_tridiag" "', argument " "2"" of type '" "gsl_vector const *""'");
11024 }
11025 arg2 = (gsl_vector *)(argp2);
11026 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
11027 if (!SWIG_IsOK(res3)) {
11028 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_solve_cyc_tridiag" "', argument " "3"" of type '" "gsl_vector const *""'");
11029 }
11030 arg3 = (gsl_vector *)(argp3);
11031 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
11032 if (!SWIG_IsOK(res4)) {
11033 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_solve_cyc_tridiag" "', argument " "4"" of type '" "gsl_vector const *""'");
11034 }
11035 arg4 = (gsl_vector *)(argp4);
11036 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
11037 if (!SWIG_IsOK(res5)) {
11038 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_solve_cyc_tridiag" "', argument " "5"" of type '" "gsl_vector *""'");
11039 }
11040 arg5 = (gsl_vector *)(argp5);
11041 result = (int)gsl_linalg_solve_cyc_tridiag((gsl_vector const *)arg1,(gsl_vector const *)arg2,(gsl_vector const *)arg3,(gsl_vector const *)arg4,arg5);
11042 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
11043
11044
11045
11046
11047
11048 XSRETURN(argvi);
11049 fail:
11050
11051
11052
11053
11054
11055 SWIG_croak_null();
11056 }
11057 }
11058
11059
XS(_wrap_gsl_linalg_bidiag_decomp)11060 XS(_wrap_gsl_linalg_bidiag_decomp) {
11061 {
11062 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
11063 gsl_vector *arg2 = (gsl_vector *) 0 ;
11064 gsl_vector *arg3 = (gsl_vector *) 0 ;
11065 void *argp1 = 0 ;
11066 int res1 = 0 ;
11067 void *argp2 = 0 ;
11068 int res2 = 0 ;
11069 void *argp3 = 0 ;
11070 int res3 = 0 ;
11071 int argvi = 0;
11072 int result;
11073 dXSARGS;
11074
11075 if ((items < 3) || (items > 3)) {
11076 SWIG_croak("Usage: gsl_linalg_bidiag_decomp(A,tau_U,tau_V);");
11077 }
11078 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
11079 if (!SWIG_IsOK(res1)) {
11080 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_bidiag_decomp" "', argument " "1"" of type '" "gsl_matrix *""'");
11081 }
11082 arg1 = (gsl_matrix *)(argp1);
11083 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
11084 if (!SWIG_IsOK(res2)) {
11085 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_bidiag_decomp" "', argument " "2"" of type '" "gsl_vector *""'");
11086 }
11087 arg2 = (gsl_vector *)(argp2);
11088 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
11089 if (!SWIG_IsOK(res3)) {
11090 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_bidiag_decomp" "', argument " "3"" of type '" "gsl_vector *""'");
11091 }
11092 arg3 = (gsl_vector *)(argp3);
11093 result = (int)gsl_linalg_bidiag_decomp(arg1,arg2,arg3);
11094 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
11095
11096
11097
11098 XSRETURN(argvi);
11099 fail:
11100
11101
11102
11103 SWIG_croak_null();
11104 }
11105 }
11106
11107
XS(_wrap_gsl_linalg_bidiag_unpack)11108 XS(_wrap_gsl_linalg_bidiag_unpack) {
11109 {
11110 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
11111 gsl_vector *arg2 = (gsl_vector *) 0 ;
11112 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
11113 gsl_vector *arg4 = (gsl_vector *) 0 ;
11114 gsl_matrix *arg5 = (gsl_matrix *) 0 ;
11115 gsl_vector *arg6 = (gsl_vector *) 0 ;
11116 gsl_vector *arg7 = (gsl_vector *) 0 ;
11117 void *argp1 = 0 ;
11118 int res1 = 0 ;
11119 void *argp2 = 0 ;
11120 int res2 = 0 ;
11121 void *argp3 = 0 ;
11122 int res3 = 0 ;
11123 void *argp4 = 0 ;
11124 int res4 = 0 ;
11125 void *argp5 = 0 ;
11126 int res5 = 0 ;
11127 void *argp6 = 0 ;
11128 int res6 = 0 ;
11129 void *argp7 = 0 ;
11130 int res7 = 0 ;
11131 int argvi = 0;
11132 int result;
11133 dXSARGS;
11134
11135 if ((items < 7) || (items > 7)) {
11136 SWIG_croak("Usage: gsl_linalg_bidiag_unpack(A,tau_U,U,tau_V,V,diag,superdiag);");
11137 }
11138 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
11139 if (!SWIG_IsOK(res1)) {
11140 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_bidiag_unpack" "', argument " "1"" of type '" "gsl_matrix const *""'");
11141 }
11142 arg1 = (gsl_matrix *)(argp1);
11143 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
11144 if (!SWIG_IsOK(res2)) {
11145 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_bidiag_unpack" "', argument " "2"" of type '" "gsl_vector const *""'");
11146 }
11147 arg2 = (gsl_vector *)(argp2);
11148 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
11149 if (!SWIG_IsOK(res3)) {
11150 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_bidiag_unpack" "', argument " "3"" of type '" "gsl_matrix *""'");
11151 }
11152 arg3 = (gsl_matrix *)(argp3);
11153 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
11154 if (!SWIG_IsOK(res4)) {
11155 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_bidiag_unpack" "', argument " "4"" of type '" "gsl_vector const *""'");
11156 }
11157 arg4 = (gsl_vector *)(argp4);
11158 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_matrix, 0 | 0 );
11159 if (!SWIG_IsOK(res5)) {
11160 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_bidiag_unpack" "', argument " "5"" of type '" "gsl_matrix *""'");
11161 }
11162 arg5 = (gsl_matrix *)(argp5);
11163 res6 = SWIG_ConvertPtr(ST(5), &argp6,SWIGTYPE_p_gsl_vector, 0 | 0 );
11164 if (!SWIG_IsOK(res6)) {
11165 SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_linalg_bidiag_unpack" "', argument " "6"" of type '" "gsl_vector *""'");
11166 }
11167 arg6 = (gsl_vector *)(argp6);
11168 res7 = SWIG_ConvertPtr(ST(6), &argp7,SWIGTYPE_p_gsl_vector, 0 | 0 );
11169 if (!SWIG_IsOK(res7)) {
11170 SWIG_exception_fail(SWIG_ArgError(res7), "in method '" "gsl_linalg_bidiag_unpack" "', argument " "7"" of type '" "gsl_vector *""'");
11171 }
11172 arg7 = (gsl_vector *)(argp7);
11173 result = (int)gsl_linalg_bidiag_unpack((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3,(gsl_vector const *)arg4,arg5,arg6,arg7);
11174 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
11175
11176
11177
11178
11179
11180
11181
11182 XSRETURN(argvi);
11183 fail:
11184
11185
11186
11187
11188
11189
11190
11191 SWIG_croak_null();
11192 }
11193 }
11194
11195
XS(_wrap_gsl_linalg_bidiag_unpack2)11196 XS(_wrap_gsl_linalg_bidiag_unpack2) {
11197 {
11198 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
11199 gsl_vector *arg2 = (gsl_vector *) 0 ;
11200 gsl_vector *arg3 = (gsl_vector *) 0 ;
11201 gsl_matrix *arg4 = (gsl_matrix *) 0 ;
11202 void *argp1 = 0 ;
11203 int res1 = 0 ;
11204 void *argp2 = 0 ;
11205 int res2 = 0 ;
11206 void *argp3 = 0 ;
11207 int res3 = 0 ;
11208 void *argp4 = 0 ;
11209 int res4 = 0 ;
11210 int argvi = 0;
11211 int result;
11212 dXSARGS;
11213
11214 if ((items < 4) || (items > 4)) {
11215 SWIG_croak("Usage: gsl_linalg_bidiag_unpack2(A,tau_U,tau_V,V);");
11216 }
11217 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
11218 if (!SWIG_IsOK(res1)) {
11219 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_bidiag_unpack2" "', argument " "1"" of type '" "gsl_matrix *""'");
11220 }
11221 arg1 = (gsl_matrix *)(argp1);
11222 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
11223 if (!SWIG_IsOK(res2)) {
11224 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_bidiag_unpack2" "', argument " "2"" of type '" "gsl_vector *""'");
11225 }
11226 arg2 = (gsl_vector *)(argp2);
11227 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
11228 if (!SWIG_IsOK(res3)) {
11229 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_bidiag_unpack2" "', argument " "3"" of type '" "gsl_vector *""'");
11230 }
11231 arg3 = (gsl_vector *)(argp3);
11232 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_matrix, 0 | 0 );
11233 if (!SWIG_IsOK(res4)) {
11234 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_bidiag_unpack2" "', argument " "4"" of type '" "gsl_matrix *""'");
11235 }
11236 arg4 = (gsl_matrix *)(argp4);
11237 result = (int)gsl_linalg_bidiag_unpack2(arg1,arg2,arg3,arg4);
11238 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
11239
11240
11241
11242
11243 XSRETURN(argvi);
11244 fail:
11245
11246
11247
11248
11249 SWIG_croak_null();
11250 }
11251 }
11252
11253
XS(_wrap_gsl_linalg_bidiag_unpack_B)11254 XS(_wrap_gsl_linalg_bidiag_unpack_B) {
11255 {
11256 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
11257 gsl_vector *arg2 = (gsl_vector *) 0 ;
11258 gsl_vector *arg3 = (gsl_vector *) 0 ;
11259 void *argp1 = 0 ;
11260 int res1 = 0 ;
11261 void *argp2 = 0 ;
11262 int res2 = 0 ;
11263 void *argp3 = 0 ;
11264 int res3 = 0 ;
11265 int argvi = 0;
11266 int result;
11267 dXSARGS;
11268
11269 if ((items < 3) || (items > 3)) {
11270 SWIG_croak("Usage: gsl_linalg_bidiag_unpack_B(A,diag,superdiag);");
11271 }
11272 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
11273 if (!SWIG_IsOK(res1)) {
11274 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_bidiag_unpack_B" "', argument " "1"" of type '" "gsl_matrix const *""'");
11275 }
11276 arg1 = (gsl_matrix *)(argp1);
11277 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
11278 if (!SWIG_IsOK(res2)) {
11279 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_bidiag_unpack_B" "', argument " "2"" of type '" "gsl_vector *""'");
11280 }
11281 arg2 = (gsl_vector *)(argp2);
11282 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
11283 if (!SWIG_IsOK(res3)) {
11284 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_bidiag_unpack_B" "', argument " "3"" of type '" "gsl_vector *""'");
11285 }
11286 arg3 = (gsl_vector *)(argp3);
11287 result = (int)gsl_linalg_bidiag_unpack_B((gsl_matrix const *)arg1,arg2,arg3);
11288 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
11289
11290
11291
11292 XSRETURN(argvi);
11293 fail:
11294
11295
11296
11297 SWIG_croak_null();
11298 }
11299 }
11300
11301
XS(_wrap_gsl_linalg_balance_matrix)11302 XS(_wrap_gsl_linalg_balance_matrix) {
11303 {
11304 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
11305 gsl_vector *arg2 = (gsl_vector *) 0 ;
11306 void *argp1 = 0 ;
11307 int res1 = 0 ;
11308 void *argp2 = 0 ;
11309 int res2 = 0 ;
11310 int argvi = 0;
11311 int result;
11312 dXSARGS;
11313
11314 if ((items < 2) || (items > 2)) {
11315 SWIG_croak("Usage: gsl_linalg_balance_matrix(A,D);");
11316 }
11317 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
11318 if (!SWIG_IsOK(res1)) {
11319 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_balance_matrix" "', argument " "1"" of type '" "gsl_matrix *""'");
11320 }
11321 arg1 = (gsl_matrix *)(argp1);
11322 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
11323 if (!SWIG_IsOK(res2)) {
11324 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_balance_matrix" "', argument " "2"" of type '" "gsl_vector *""'");
11325 }
11326 arg2 = (gsl_vector *)(argp2);
11327 result = (int)gsl_linalg_balance_matrix(arg1,arg2);
11328 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
11329
11330
11331 XSRETURN(argvi);
11332 fail:
11333
11334
11335 SWIG_croak_null();
11336 }
11337 }
11338
11339
XS(_wrap_gsl_linalg_balance_accum)11340 XS(_wrap_gsl_linalg_balance_accum) {
11341 {
11342 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
11343 gsl_vector *arg2 = (gsl_vector *) 0 ;
11344 void *argp1 = 0 ;
11345 int res1 = 0 ;
11346 void *argp2 = 0 ;
11347 int res2 = 0 ;
11348 int argvi = 0;
11349 int result;
11350 dXSARGS;
11351
11352 if ((items < 2) || (items > 2)) {
11353 SWIG_croak("Usage: gsl_linalg_balance_accum(A,D);");
11354 }
11355 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
11356 if (!SWIG_IsOK(res1)) {
11357 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_balance_accum" "', argument " "1"" of type '" "gsl_matrix *""'");
11358 }
11359 arg1 = (gsl_matrix *)(argp1);
11360 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
11361 if (!SWIG_IsOK(res2)) {
11362 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_balance_accum" "', argument " "2"" of type '" "gsl_vector *""'");
11363 }
11364 arg2 = (gsl_vector *)(argp2);
11365 result = (int)gsl_linalg_balance_accum(arg1,arg2);
11366 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
11367
11368
11369 XSRETURN(argvi);
11370 fail:
11371
11372
11373 SWIG_croak_null();
11374 }
11375 }
11376
11377
XS(_wrap_gsl_linalg_balance_columns)11378 XS(_wrap_gsl_linalg_balance_columns) {
11379 {
11380 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
11381 gsl_vector *arg2 = (gsl_vector *) 0 ;
11382 void *argp1 = 0 ;
11383 int res1 = 0 ;
11384 void *argp2 = 0 ;
11385 int res2 = 0 ;
11386 int argvi = 0;
11387 int result;
11388 dXSARGS;
11389
11390 if ((items < 2) || (items > 2)) {
11391 SWIG_croak("Usage: gsl_linalg_balance_columns(A,D);");
11392 }
11393 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
11394 if (!SWIG_IsOK(res1)) {
11395 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_balance_columns" "', argument " "1"" of type '" "gsl_matrix *""'");
11396 }
11397 arg1 = (gsl_matrix *)(argp1);
11398 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
11399 if (!SWIG_IsOK(res2)) {
11400 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_balance_columns" "', argument " "2"" of type '" "gsl_vector *""'");
11401 }
11402 arg2 = (gsl_vector *)(argp2);
11403 result = (int)gsl_linalg_balance_columns(arg1,arg2);
11404 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
11405
11406
11407 XSRETURN(argvi);
11408 fail:
11409
11410
11411 SWIG_croak_null();
11412 }
11413 }
11414
11415
XS(_wrap_gsl_linalg_tri_rcond)11416 XS(_wrap_gsl_linalg_tri_rcond) {
11417 {
11418 CBLAS_UPLO_t arg1 ;
11419 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
11420 double *arg3 = (double *) 0 ;
11421 gsl_vector *arg4 = (gsl_vector *) 0 ;
11422 void *argp1 ;
11423 int res1 = 0 ;
11424 void *argp2 = 0 ;
11425 int res2 = 0 ;
11426 void *argp3 = 0 ;
11427 int res3 = 0 ;
11428 void *argp4 = 0 ;
11429 int res4 = 0 ;
11430 int argvi = 0;
11431 int result;
11432 dXSARGS;
11433
11434 if ((items < 4) || (items > 4)) {
11435 SWIG_croak("Usage: gsl_linalg_tri_rcond(Uplo,A,rcond,work);");
11436 }
11437 {
11438 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_CBLAS_UPLO_t, 0 );
11439 if (!SWIG_IsOK(res1)) {
11440 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_tri_rcond" "', argument " "1"" of type '" "CBLAS_UPLO_t""'");
11441 }
11442 if (!argp1) {
11443 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_linalg_tri_rcond" "', argument " "1"" of type '" "CBLAS_UPLO_t""'");
11444 } else {
11445 arg1 = *((CBLAS_UPLO_t *)(argp1));
11446 }
11447 }
11448 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
11449 if (!SWIG_IsOK(res2)) {
11450 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_tri_rcond" "', argument " "2"" of type '" "gsl_matrix const *""'");
11451 }
11452 arg2 = (gsl_matrix *)(argp2);
11453 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_double, 0 | 0 );
11454 if (!SWIG_IsOK(res3)) {
11455 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_tri_rcond" "', argument " "3"" of type '" "double *""'");
11456 }
11457 arg3 = (double *)(argp3);
11458 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
11459 if (!SWIG_IsOK(res4)) {
11460 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_tri_rcond" "', argument " "4"" of type '" "gsl_vector *""'");
11461 }
11462 arg4 = (gsl_vector *)(argp4);
11463 result = (int)gsl_linalg_tri_rcond(arg1,(gsl_matrix const *)arg2,arg3,arg4);
11464 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
11465
11466
11467
11468 XSRETURN(argvi);
11469 fail:
11470
11471
11472
11473 SWIG_croak_null();
11474 }
11475 }
11476
11477
XS(_wrap_gsl_linalg_tri_upper_rcond)11478 XS(_wrap_gsl_linalg_tri_upper_rcond) {
11479 {
11480 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
11481 double *arg2 = (double *) 0 ;
11482 gsl_vector *arg3 = (gsl_vector *) 0 ;
11483 void *argp1 = 0 ;
11484 int res1 = 0 ;
11485 void *argp2 = 0 ;
11486 int res2 = 0 ;
11487 void *argp3 = 0 ;
11488 int res3 = 0 ;
11489 int argvi = 0;
11490 int result;
11491 dXSARGS;
11492
11493 if ((items < 3) || (items > 3)) {
11494 SWIG_croak("Usage: gsl_linalg_tri_upper_rcond(A,rcond,work);");
11495 }
11496 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
11497 if (!SWIG_IsOK(res1)) {
11498 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_tri_upper_rcond" "', argument " "1"" of type '" "gsl_matrix const *""'");
11499 }
11500 arg1 = (gsl_matrix *)(argp1);
11501 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_double, 0 | 0 );
11502 if (!SWIG_IsOK(res2)) {
11503 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_tri_upper_rcond" "', argument " "2"" of type '" "double *""'");
11504 }
11505 arg2 = (double *)(argp2);
11506 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
11507 if (!SWIG_IsOK(res3)) {
11508 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_tri_upper_rcond" "', argument " "3"" of type '" "gsl_vector *""'");
11509 }
11510 arg3 = (gsl_vector *)(argp3);
11511 result = (int)gsl_linalg_tri_upper_rcond((gsl_matrix const *)arg1,arg2,arg3);
11512 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
11513
11514
11515
11516 XSRETURN(argvi);
11517 fail:
11518
11519
11520
11521 SWIG_croak_null();
11522 }
11523 }
11524
11525
XS(_wrap_gsl_linalg_tri_lower_rcond)11526 XS(_wrap_gsl_linalg_tri_lower_rcond) {
11527 {
11528 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
11529 double *arg2 = (double *) 0 ;
11530 gsl_vector *arg3 = (gsl_vector *) 0 ;
11531 void *argp1 = 0 ;
11532 int res1 = 0 ;
11533 void *argp2 = 0 ;
11534 int res2 = 0 ;
11535 void *argp3 = 0 ;
11536 int res3 = 0 ;
11537 int argvi = 0;
11538 int result;
11539 dXSARGS;
11540
11541 if ((items < 3) || (items > 3)) {
11542 SWIG_croak("Usage: gsl_linalg_tri_lower_rcond(A,rcond,work);");
11543 }
11544 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
11545 if (!SWIG_IsOK(res1)) {
11546 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_tri_lower_rcond" "', argument " "1"" of type '" "gsl_matrix const *""'");
11547 }
11548 arg1 = (gsl_matrix *)(argp1);
11549 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_double, 0 | 0 );
11550 if (!SWIG_IsOK(res2)) {
11551 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_tri_lower_rcond" "', argument " "2"" of type '" "double *""'");
11552 }
11553 arg2 = (double *)(argp2);
11554 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
11555 if (!SWIG_IsOK(res3)) {
11556 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_tri_lower_rcond" "', argument " "3"" of type '" "gsl_vector *""'");
11557 }
11558 arg3 = (gsl_vector *)(argp3);
11559 result = (int)gsl_linalg_tri_lower_rcond((gsl_matrix const *)arg1,arg2,arg3);
11560 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
11561
11562
11563
11564 XSRETURN(argvi);
11565 fail:
11566
11567
11568
11569 SWIG_croak_null();
11570 }
11571 }
11572
11573
XS(_wrap_gsl_linalg_invnorm1)11574 XS(_wrap_gsl_linalg_invnorm1) {
11575 {
11576 size_t arg1 ;
11577 int (*arg2)(CBLAS_TRANSPOSE_t,gsl_vector *,void *) = (int (*)(CBLAS_TRANSPOSE_t,gsl_vector *,void *)) 0 ;
11578 void *arg3 = (void *) 0 ;
11579 double *arg4 = (double *) 0 ;
11580 gsl_vector *arg5 = (gsl_vector *) 0 ;
11581 size_t val1 ;
11582 int ecode1 = 0 ;
11583 int res3 ;
11584 void *argp4 = 0 ;
11585 int res4 = 0 ;
11586 void *argp5 = 0 ;
11587 int res5 = 0 ;
11588 int argvi = 0;
11589 int result;
11590 dXSARGS;
11591
11592 if ((items < 5) || (items > 5)) {
11593 SWIG_croak("Usage: gsl_linalg_invnorm1(N,Ainvx,params,Ainvnorm,work);");
11594 }
11595 ecode1 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
11596 if (!SWIG_IsOK(ecode1)) {
11597 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_linalg_invnorm1" "', argument " "1"" of type '" "size_t""'");
11598 }
11599 arg1 = (size_t)(val1);
11600 {
11601 int res = SWIG_ConvertFunctionPtr(ST(1), (void**)(&arg2), SWIGTYPE_p_f_CBLAS_TRANSPOSE_t_p_gsl_vector_p_void__int);
11602 if (!SWIG_IsOK(res)) {
11603 SWIG_exception_fail(SWIG_ArgError(res), "in method '" "gsl_linalg_invnorm1" "', argument " "2"" of type '" "int (*)(CBLAS_TRANSPOSE_t,gsl_vector *,void *)""'");
11604 }
11605 }
11606 res3 = SWIG_ConvertPtr(ST(2),SWIG_as_voidptrptr(&arg3), 0, 0);
11607 if (!SWIG_IsOK(res3)) {
11608 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_invnorm1" "', argument " "3"" of type '" "void *""'");
11609 }
11610 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_double, 0 | 0 );
11611 if (!SWIG_IsOK(res4)) {
11612 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_invnorm1" "', argument " "4"" of type '" "double *""'");
11613 }
11614 arg4 = (double *)(argp4);
11615 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
11616 if (!SWIG_IsOK(res5)) {
11617 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_invnorm1" "', argument " "5"" of type '" "gsl_vector *""'");
11618 }
11619 arg5 = (gsl_vector *)(argp5);
11620 result = (int)gsl_linalg_invnorm1(arg1,arg2,arg3,arg4,arg5);
11621 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
11622
11623
11624
11625
11626
11627 XSRETURN(argvi);
11628 fail:
11629
11630
11631
11632
11633
11634 SWIG_croak_null();
11635 }
11636 }
11637
11638
XS(_wrap_gsl_linalg_tri_upper_invert)11639 XS(_wrap_gsl_linalg_tri_upper_invert) {
11640 {
11641 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
11642 void *argp1 = 0 ;
11643 int res1 = 0 ;
11644 int argvi = 0;
11645 int result;
11646 dXSARGS;
11647
11648 if ((items < 1) || (items > 1)) {
11649 SWIG_croak("Usage: gsl_linalg_tri_upper_invert(T);");
11650 }
11651 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
11652 if (!SWIG_IsOK(res1)) {
11653 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_tri_upper_invert" "', argument " "1"" of type '" "gsl_matrix *""'");
11654 }
11655 arg1 = (gsl_matrix *)(argp1);
11656 result = (int)gsl_linalg_tri_upper_invert(arg1);
11657 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
11658
11659 XSRETURN(argvi);
11660 fail:
11661
11662 SWIG_croak_null();
11663 }
11664 }
11665
11666
XS(_wrap_gsl_linalg_tri_lower_invert)11667 XS(_wrap_gsl_linalg_tri_lower_invert) {
11668 {
11669 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
11670 void *argp1 = 0 ;
11671 int res1 = 0 ;
11672 int argvi = 0;
11673 int result;
11674 dXSARGS;
11675
11676 if ((items < 1) || (items > 1)) {
11677 SWIG_croak("Usage: gsl_linalg_tri_lower_invert(T);");
11678 }
11679 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
11680 if (!SWIG_IsOK(res1)) {
11681 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_tri_lower_invert" "', argument " "1"" of type '" "gsl_matrix *""'");
11682 }
11683 arg1 = (gsl_matrix *)(argp1);
11684 result = (int)gsl_linalg_tri_lower_invert(arg1);
11685 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
11686
11687 XSRETURN(argvi);
11688 fail:
11689
11690 SWIG_croak_null();
11691 }
11692 }
11693
11694
XS(_wrap_gsl_linalg_tri_upper_unit_invert)11695 XS(_wrap_gsl_linalg_tri_upper_unit_invert) {
11696 {
11697 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
11698 void *argp1 = 0 ;
11699 int res1 = 0 ;
11700 int argvi = 0;
11701 int result;
11702 dXSARGS;
11703
11704 if ((items < 1) || (items > 1)) {
11705 SWIG_croak("Usage: gsl_linalg_tri_upper_unit_invert(T);");
11706 }
11707 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
11708 if (!SWIG_IsOK(res1)) {
11709 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_tri_upper_unit_invert" "', argument " "1"" of type '" "gsl_matrix *""'");
11710 }
11711 arg1 = (gsl_matrix *)(argp1);
11712 result = (int)gsl_linalg_tri_upper_unit_invert(arg1);
11713 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
11714
11715 XSRETURN(argvi);
11716 fail:
11717
11718 SWIG_croak_null();
11719 }
11720 }
11721
11722
XS(_wrap_gsl_linalg_tri_lower_unit_invert)11723 XS(_wrap_gsl_linalg_tri_lower_unit_invert) {
11724 {
11725 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
11726 void *argp1 = 0 ;
11727 int res1 = 0 ;
11728 int argvi = 0;
11729 int result;
11730 dXSARGS;
11731
11732 if ((items < 1) || (items > 1)) {
11733 SWIG_croak("Usage: gsl_linalg_tri_lower_unit_invert(T);");
11734 }
11735 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
11736 if (!SWIG_IsOK(res1)) {
11737 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_tri_lower_unit_invert" "', argument " "1"" of type '" "gsl_matrix *""'");
11738 }
11739 arg1 = (gsl_matrix *)(argp1);
11740 result = (int)gsl_linalg_tri_lower_unit_invert(arg1);
11741 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
11742
11743 XSRETURN(argvi);
11744 fail:
11745
11746 SWIG_croak_null();
11747 }
11748 }
11749
11750
XS(_wrap_gsl_linalg_tri_invert)11751 XS(_wrap_gsl_linalg_tri_invert) {
11752 {
11753 CBLAS_UPLO_t arg1 ;
11754 CBLAS_DIAG_t arg2 ;
11755 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
11756 void *argp1 ;
11757 int res1 = 0 ;
11758 void *argp2 ;
11759 int res2 = 0 ;
11760 void *argp3 = 0 ;
11761 int res3 = 0 ;
11762 int argvi = 0;
11763 int result;
11764 dXSARGS;
11765
11766 if ((items < 3) || (items > 3)) {
11767 SWIG_croak("Usage: gsl_linalg_tri_invert(Uplo,Diag,T);");
11768 }
11769 {
11770 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_CBLAS_UPLO_t, 0 );
11771 if (!SWIG_IsOK(res1)) {
11772 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_tri_invert" "', argument " "1"" of type '" "CBLAS_UPLO_t""'");
11773 }
11774 if (!argp1) {
11775 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_linalg_tri_invert" "', argument " "1"" of type '" "CBLAS_UPLO_t""'");
11776 } else {
11777 arg1 = *((CBLAS_UPLO_t *)(argp1));
11778 }
11779 }
11780 {
11781 res2 = SWIG_ConvertPtr(ST(1), &argp2, SWIGTYPE_p_CBLAS_DIAG_t, 0 );
11782 if (!SWIG_IsOK(res2)) {
11783 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_tri_invert" "', argument " "2"" of type '" "CBLAS_DIAG_t""'");
11784 }
11785 if (!argp2) {
11786 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_linalg_tri_invert" "', argument " "2"" of type '" "CBLAS_DIAG_t""'");
11787 } else {
11788 arg2 = *((CBLAS_DIAG_t *)(argp2));
11789 }
11790 }
11791 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
11792 if (!SWIG_IsOK(res3)) {
11793 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_tri_invert" "', argument " "3"" of type '" "gsl_matrix *""'");
11794 }
11795 arg3 = (gsl_matrix *)(argp3);
11796 result = (int)gsl_linalg_tri_invert(arg1,arg2,arg3);
11797 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
11798
11799 XSRETURN(argvi);
11800 fail:
11801
11802 SWIG_croak_null();
11803 }
11804 }
11805
11806
XS(_wrap_gsl_linalg_complex_tri_invert)11807 XS(_wrap_gsl_linalg_complex_tri_invert) {
11808 {
11809 CBLAS_UPLO_t arg1 ;
11810 CBLAS_DIAG_t arg2 ;
11811 gsl_matrix_complex *arg3 = (gsl_matrix_complex *) 0 ;
11812 void *argp1 ;
11813 int res1 = 0 ;
11814 void *argp2 ;
11815 int res2 = 0 ;
11816 void *argp3 = 0 ;
11817 int res3 = 0 ;
11818 int argvi = 0;
11819 int result;
11820 dXSARGS;
11821
11822 if ((items < 3) || (items > 3)) {
11823 SWIG_croak("Usage: gsl_linalg_complex_tri_invert(Uplo,Diag,T);");
11824 }
11825 {
11826 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_CBLAS_UPLO_t, 0 );
11827 if (!SWIG_IsOK(res1)) {
11828 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_complex_tri_invert" "', argument " "1"" of type '" "CBLAS_UPLO_t""'");
11829 }
11830 if (!argp1) {
11831 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_linalg_complex_tri_invert" "', argument " "1"" of type '" "CBLAS_UPLO_t""'");
11832 } else {
11833 arg1 = *((CBLAS_UPLO_t *)(argp1));
11834 }
11835 }
11836 {
11837 res2 = SWIG_ConvertPtr(ST(1), &argp2, SWIGTYPE_p_CBLAS_DIAG_t, 0 );
11838 if (!SWIG_IsOK(res2)) {
11839 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_complex_tri_invert" "', argument " "2"" of type '" "CBLAS_DIAG_t""'");
11840 }
11841 if (!argp2) {
11842 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_linalg_complex_tri_invert" "', argument " "2"" of type '" "CBLAS_DIAG_t""'");
11843 } else {
11844 arg2 = *((CBLAS_DIAG_t *)(argp2));
11845 }
11846 }
11847 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
11848 if (!SWIG_IsOK(res3)) {
11849 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_complex_tri_invert" "', argument " "3"" of type '" "gsl_matrix_complex *""'");
11850 }
11851 arg3 = (gsl_matrix_complex *)(argp3);
11852 result = (int)gsl_linalg_complex_tri_invert(arg1,arg2,arg3);
11853 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
11854
11855 XSRETURN(argvi);
11856 fail:
11857
11858 SWIG_croak_null();
11859 }
11860 }
11861
11862
XS(_wrap_gsl_linalg_tri_LTL)11863 XS(_wrap_gsl_linalg_tri_LTL) {
11864 {
11865 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
11866 void *argp1 = 0 ;
11867 int res1 = 0 ;
11868 int argvi = 0;
11869 int result;
11870 dXSARGS;
11871
11872 if ((items < 1) || (items > 1)) {
11873 SWIG_croak("Usage: gsl_linalg_tri_LTL(L);");
11874 }
11875 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
11876 if (!SWIG_IsOK(res1)) {
11877 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_tri_LTL" "', argument " "1"" of type '" "gsl_matrix *""'");
11878 }
11879 arg1 = (gsl_matrix *)(argp1);
11880 result = (int)gsl_linalg_tri_LTL(arg1);
11881 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
11882
11883 XSRETURN(argvi);
11884 fail:
11885
11886 SWIG_croak_null();
11887 }
11888 }
11889
11890
XS(_wrap_gsl_linalg_tri_UL)11891 XS(_wrap_gsl_linalg_tri_UL) {
11892 {
11893 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
11894 void *argp1 = 0 ;
11895 int res1 = 0 ;
11896 int argvi = 0;
11897 int result;
11898 dXSARGS;
11899
11900 if ((items < 1) || (items > 1)) {
11901 SWIG_croak("Usage: gsl_linalg_tri_UL(LU);");
11902 }
11903 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
11904 if (!SWIG_IsOK(res1)) {
11905 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_tri_UL" "', argument " "1"" of type '" "gsl_matrix *""'");
11906 }
11907 arg1 = (gsl_matrix *)(argp1);
11908 result = (int)gsl_linalg_tri_UL(arg1);
11909 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
11910
11911 XSRETURN(argvi);
11912 fail:
11913
11914 SWIG_croak_null();
11915 }
11916 }
11917
11918
XS(_wrap_gsl_linalg_complex_tri_LHL)11919 XS(_wrap_gsl_linalg_complex_tri_LHL) {
11920 {
11921 gsl_matrix_complex *arg1 = (gsl_matrix_complex *) 0 ;
11922 void *argp1 = 0 ;
11923 int res1 = 0 ;
11924 int argvi = 0;
11925 int result;
11926 dXSARGS;
11927
11928 if ((items < 1) || (items > 1)) {
11929 SWIG_croak("Usage: gsl_linalg_complex_tri_LHL(L);");
11930 }
11931 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
11932 if (!SWIG_IsOK(res1)) {
11933 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_complex_tri_LHL" "', argument " "1"" of type '" "gsl_matrix_complex *""'");
11934 }
11935 arg1 = (gsl_matrix_complex *)(argp1);
11936 result = (int)gsl_linalg_complex_tri_LHL(arg1);
11937 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
11938
11939 XSRETURN(argvi);
11940 fail:
11941
11942 SWIG_croak_null();
11943 }
11944 }
11945
11946
XS(_wrap_gsl_linalg_complex_tri_UL)11947 XS(_wrap_gsl_linalg_complex_tri_UL) {
11948 {
11949 gsl_matrix_complex *arg1 = (gsl_matrix_complex *) 0 ;
11950 void *argp1 = 0 ;
11951 int res1 = 0 ;
11952 int argvi = 0;
11953 int result;
11954 dXSARGS;
11955
11956 if ((items < 1) || (items > 1)) {
11957 SWIG_croak("Usage: gsl_linalg_complex_tri_UL(LU);");
11958 }
11959 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
11960 if (!SWIG_IsOK(res1)) {
11961 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_complex_tri_UL" "', argument " "1"" of type '" "gsl_matrix_complex *""'");
11962 }
11963 arg1 = (gsl_matrix_complex *)(argp1);
11964 result = (int)gsl_linalg_complex_tri_UL(arg1);
11965 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
11966
11967 XSRETURN(argvi);
11968 fail:
11969
11970 SWIG_croak_null();
11971 }
11972 }
11973
11974
XS(_wrap_gsl_linalg_givens)11975 XS(_wrap_gsl_linalg_givens) {
11976 {
11977 double arg1 ;
11978 double arg2 ;
11979 double *arg3 = (double *) 0 ;
11980 double *arg4 = (double *) 0 ;
11981 double val1 ;
11982 int ecode1 = 0 ;
11983 double val2 ;
11984 int ecode2 = 0 ;
11985 double temp3 ;
11986 int res3 = SWIG_TMPOBJ ;
11987 double temp4 ;
11988 int res4 = SWIG_TMPOBJ ;
11989 int argvi = 0;
11990 dXSARGS;
11991
11992 arg3 = &temp3;
11993 arg4 = &temp4;
11994 if ((items < 2) || (items > 2)) {
11995 SWIG_croak("Usage: gsl_linalg_givens(a,b);");
11996 }
11997 ecode1 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
11998 if (!SWIG_IsOK(ecode1)) {
11999 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_linalg_givens" "', argument " "1"" of type '" "double""'");
12000 }
12001 arg1 = (double)(val1);
12002 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
12003 if (!SWIG_IsOK(ecode2)) {
12004 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_linalg_givens" "', argument " "2"" of type '" "double""'");
12005 }
12006 arg2 = (double)(val2);
12007 gsl_linalg_givens(arg1,arg2,arg3,arg4);
12008 ST(argvi) = &PL_sv_undef;
12009 if (SWIG_IsTmpObj(res3)) {
12010 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((*arg3)); argvi++ ;
12011 } else {
12012 int new_flags = SWIG_IsNewObj(res3) ? (SWIG_POINTER_OWN | 0) : 0;
12013 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg3), SWIGTYPE_p_double, new_flags); argvi++ ;
12014 }
12015 if (SWIG_IsTmpObj(res4)) {
12016 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((*arg4)); argvi++ ;
12017 } else {
12018 int new_flags = SWIG_IsNewObj(res4) ? (SWIG_POINTER_OWN | 0) : 0;
12019 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg4), SWIGTYPE_p_double, new_flags); argvi++ ;
12020 }
12021
12022
12023
12024
12025 XSRETURN(argvi);
12026 fail:
12027
12028
12029
12030
12031 SWIG_croak_null();
12032 }
12033 }
12034
12035
XS(_wrap_gsl_linalg_givens_gv)12036 XS(_wrap_gsl_linalg_givens_gv) {
12037 {
12038 gsl_vector *arg1 = (gsl_vector *) 0 ;
12039 size_t arg2 ;
12040 size_t arg3 ;
12041 double arg4 ;
12042 double arg5 ;
12043 void *argp1 = 0 ;
12044 int res1 = 0 ;
12045 size_t val2 ;
12046 int ecode2 = 0 ;
12047 size_t val3 ;
12048 int ecode3 = 0 ;
12049 double val4 ;
12050 int ecode4 = 0 ;
12051 double val5 ;
12052 int ecode5 = 0 ;
12053 int argvi = 0;
12054 dXSARGS;
12055
12056 if ((items < 5) || (items > 5)) {
12057 SWIG_croak("Usage: gsl_linalg_givens_gv(v,i,j,c,s);");
12058 }
12059 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
12060 if (!SWIG_IsOK(res1)) {
12061 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_givens_gv" "', argument " "1"" of type '" "gsl_vector *""'");
12062 }
12063 arg1 = (gsl_vector *)(argp1);
12064 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
12065 if (!SWIG_IsOK(ecode2)) {
12066 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_linalg_givens_gv" "', argument " "2"" of type '" "size_t""'");
12067 }
12068 arg2 = (size_t)(val2);
12069 ecode3 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
12070 if (!SWIG_IsOK(ecode3)) {
12071 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_linalg_givens_gv" "', argument " "3"" of type '" "size_t""'");
12072 }
12073 arg3 = (size_t)(val3);
12074 ecode4 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(3), &val4);
12075 if (!SWIG_IsOK(ecode4)) {
12076 SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "gsl_linalg_givens_gv" "', argument " "4"" of type '" "double""'");
12077 }
12078 arg4 = (double)(val4);
12079 ecode5 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(4), &val5);
12080 if (!SWIG_IsOK(ecode5)) {
12081 SWIG_exception_fail(SWIG_ArgError(ecode5), "in method '" "gsl_linalg_givens_gv" "', argument " "5"" of type '" "double""'");
12082 }
12083 arg5 = (double)(val5);
12084 gsl_linalg_givens_gv(arg1,arg2,arg3,arg4,arg5);
12085 ST(argvi) = &PL_sv_undef;
12086
12087
12088
12089
12090
12091 XSRETURN(argvi);
12092 fail:
12093
12094
12095
12096
12097
12098 SWIG_croak_null();
12099 }
12100 }
12101
12102
XS(_wrap_gsl_permutation_struct_size_set)12103 XS(_wrap_gsl_permutation_struct_size_set) {
12104 {
12105 struct gsl_permutation_struct *arg1 = (struct gsl_permutation_struct *) 0 ;
12106 size_t arg2 ;
12107 void *argp1 = 0 ;
12108 int res1 = 0 ;
12109 size_t val2 ;
12110 int ecode2 = 0 ;
12111 int argvi = 0;
12112 dXSARGS;
12113
12114 if ((items < 2) || (items > 2)) {
12115 SWIG_croak("Usage: gsl_permutation_struct_size_set(self,size);");
12116 }
12117 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
12118 if (!SWIG_IsOK(res1)) {
12119 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_struct_size_set" "', argument " "1"" of type '" "struct gsl_permutation_struct *""'");
12120 }
12121 arg1 = (struct gsl_permutation_struct *)(argp1);
12122 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
12123 if (!SWIG_IsOK(ecode2)) {
12124 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_permutation_struct_size_set" "', argument " "2"" of type '" "size_t""'");
12125 }
12126 arg2 = (size_t)(val2);
12127 if (arg1) (arg1)->size = arg2;
12128 ST(argvi) = &PL_sv_undef;
12129
12130
12131 XSRETURN(argvi);
12132 fail:
12133
12134
12135 SWIG_croak_null();
12136 }
12137 }
12138
12139
XS(_wrap_gsl_permutation_struct_size_get)12140 XS(_wrap_gsl_permutation_struct_size_get) {
12141 {
12142 struct gsl_permutation_struct *arg1 = (struct gsl_permutation_struct *) 0 ;
12143 void *argp1 = 0 ;
12144 int res1 = 0 ;
12145 int argvi = 0;
12146 size_t result;
12147 dXSARGS;
12148
12149 if ((items < 1) || (items > 1)) {
12150 SWIG_croak("Usage: gsl_permutation_struct_size_get(self);");
12151 }
12152 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
12153 if (!SWIG_IsOK(res1)) {
12154 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_struct_size_get" "', argument " "1"" of type '" "struct gsl_permutation_struct *""'");
12155 }
12156 arg1 = (struct gsl_permutation_struct *)(argp1);
12157 result = ((arg1)->size);
12158 ST(argvi) = SWIG_From_size_t SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
12159
12160 XSRETURN(argvi);
12161 fail:
12162
12163 SWIG_croak_null();
12164 }
12165 }
12166
12167
XS(_wrap_gsl_permutation_struct_data_set)12168 XS(_wrap_gsl_permutation_struct_data_set) {
12169 {
12170 struct gsl_permutation_struct *arg1 = (struct gsl_permutation_struct *) 0 ;
12171 size_t *arg2 = (size_t *) 0 ;
12172 void *argp1 = 0 ;
12173 int res1 = 0 ;
12174 void *argp2 = 0 ;
12175 int res2 = 0 ;
12176 int argvi = 0;
12177 dXSARGS;
12178
12179 if ((items < 2) || (items > 2)) {
12180 SWIG_croak("Usage: gsl_permutation_struct_data_set(self,data);");
12181 }
12182 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
12183 if (!SWIG_IsOK(res1)) {
12184 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_struct_data_set" "', argument " "1"" of type '" "struct gsl_permutation_struct *""'");
12185 }
12186 arg1 = (struct gsl_permutation_struct *)(argp1);
12187 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_size_t, SWIG_POINTER_DISOWN | 0 );
12188 if (!SWIG_IsOK(res2)) {
12189 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_permutation_struct_data_set" "', argument " "2"" of type '" "size_t *""'");
12190 }
12191 arg2 = (size_t *)(argp2);
12192 if (arg1) (arg1)->data = arg2;
12193 ST(argvi) = &PL_sv_undef;
12194
12195
12196 XSRETURN(argvi);
12197 fail:
12198
12199
12200 SWIG_croak_null();
12201 }
12202 }
12203
12204
XS(_wrap_gsl_permutation_struct_data_get)12205 XS(_wrap_gsl_permutation_struct_data_get) {
12206 {
12207 struct gsl_permutation_struct *arg1 = (struct gsl_permutation_struct *) 0 ;
12208 void *argp1 = 0 ;
12209 int res1 = 0 ;
12210 int argvi = 0;
12211 size_t *result = 0 ;
12212 dXSARGS;
12213
12214 if ((items < 1) || (items > 1)) {
12215 SWIG_croak("Usage: gsl_permutation_struct_data_get(self);");
12216 }
12217 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
12218 if (!SWIG_IsOK(res1)) {
12219 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_struct_data_get" "', argument " "1"" of type '" "struct gsl_permutation_struct *""'");
12220 }
12221 arg1 = (struct gsl_permutation_struct *)(argp1);
12222 result = (size_t *) ((arg1)->data);
12223 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_size_t, 0 | 0); argvi++ ;
12224
12225 XSRETURN(argvi);
12226 fail:
12227
12228 SWIG_croak_null();
12229 }
12230 }
12231
12232
XS(_wrap_new_gsl_permutation_struct)12233 XS(_wrap_new_gsl_permutation_struct) {
12234 {
12235 int argvi = 0;
12236 struct gsl_permutation_struct *result = 0 ;
12237 dXSARGS;
12238
12239 if ((items < 0) || (items > 0)) {
12240 SWIG_croak("Usage: new_gsl_permutation_struct();");
12241 }
12242 result = (struct gsl_permutation_struct *)calloc(1, sizeof(struct gsl_permutation_struct));
12243 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_permutation_struct, SWIG_OWNER | SWIG_SHADOW); argvi++ ;
12244 XSRETURN(argvi);
12245 fail:
12246 SWIG_croak_null();
12247 }
12248 }
12249
12250
XS(_wrap_delete_gsl_permutation_struct)12251 XS(_wrap_delete_gsl_permutation_struct) {
12252 {
12253 struct gsl_permutation_struct *arg1 = (struct gsl_permutation_struct *) 0 ;
12254 void *argp1 = 0 ;
12255 int res1 = 0 ;
12256 int argvi = 0;
12257 dXSARGS;
12258
12259 if ((items < 1) || (items > 1)) {
12260 SWIG_croak("Usage: delete_gsl_permutation_struct(self);");
12261 }
12262 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, SWIG_POINTER_DISOWN | 0 );
12263 if (!SWIG_IsOK(res1)) {
12264 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "delete_gsl_permutation_struct" "', argument " "1"" of type '" "struct gsl_permutation_struct *""'");
12265 }
12266 arg1 = (struct gsl_permutation_struct *)(argp1);
12267 free((char *) arg1);
12268 ST(argvi) = &PL_sv_undef;
12269
12270 XSRETURN(argvi);
12271 fail:
12272
12273 SWIG_croak_null();
12274 }
12275 }
12276
12277
XS(_wrap_gsl_permutation_alloc)12278 XS(_wrap_gsl_permutation_alloc) {
12279 {
12280 size_t arg1 ;
12281 size_t val1 ;
12282 int ecode1 = 0 ;
12283 int argvi = 0;
12284 gsl_permutation *result = 0 ;
12285 dXSARGS;
12286
12287 if ((items < 1) || (items > 1)) {
12288 SWIG_croak("Usage: gsl_permutation_alloc(n);");
12289 }
12290 ecode1 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
12291 if (!SWIG_IsOK(ecode1)) {
12292 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_permutation_alloc" "', argument " "1"" of type '" "size_t""'");
12293 }
12294 arg1 = (size_t)(val1);
12295 result = (gsl_permutation *)gsl_permutation_alloc(arg1);
12296 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_permutation_struct, 0 | SWIG_SHADOW); argvi++ ;
12297
12298 XSRETURN(argvi);
12299 fail:
12300
12301 SWIG_croak_null();
12302 }
12303 }
12304
12305
XS(_wrap_gsl_permutation_calloc)12306 XS(_wrap_gsl_permutation_calloc) {
12307 {
12308 size_t arg1 ;
12309 size_t val1 ;
12310 int ecode1 = 0 ;
12311 int argvi = 0;
12312 gsl_permutation *result = 0 ;
12313 dXSARGS;
12314
12315 if ((items < 1) || (items > 1)) {
12316 SWIG_croak("Usage: gsl_permutation_calloc(n);");
12317 }
12318 ecode1 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
12319 if (!SWIG_IsOK(ecode1)) {
12320 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_permutation_calloc" "', argument " "1"" of type '" "size_t""'");
12321 }
12322 arg1 = (size_t)(val1);
12323 result = (gsl_permutation *)gsl_permutation_calloc(arg1);
12324 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_permutation_struct, 0 | SWIG_SHADOW); argvi++ ;
12325
12326 XSRETURN(argvi);
12327 fail:
12328
12329 SWIG_croak_null();
12330 }
12331 }
12332
12333
XS(_wrap_gsl_permutation_init)12334 XS(_wrap_gsl_permutation_init) {
12335 {
12336 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
12337 void *argp1 = 0 ;
12338 int res1 = 0 ;
12339 int argvi = 0;
12340 dXSARGS;
12341
12342 if ((items < 1) || (items > 1)) {
12343 SWIG_croak("Usage: gsl_permutation_init(p);");
12344 }
12345 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
12346 if (!SWIG_IsOK(res1)) {
12347 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_init" "', argument " "1"" of type '" "gsl_permutation *""'");
12348 }
12349 arg1 = (gsl_permutation *)(argp1);
12350 gsl_permutation_init(arg1);
12351 ST(argvi) = &PL_sv_undef;
12352
12353 XSRETURN(argvi);
12354 fail:
12355
12356 SWIG_croak_null();
12357 }
12358 }
12359
12360
XS(_wrap_gsl_permutation_free)12361 XS(_wrap_gsl_permutation_free) {
12362 {
12363 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
12364 void *argp1 = 0 ;
12365 int res1 = 0 ;
12366 int argvi = 0;
12367 dXSARGS;
12368
12369 if ((items < 1) || (items > 1)) {
12370 SWIG_croak("Usage: gsl_permutation_free(p);");
12371 }
12372 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
12373 if (!SWIG_IsOK(res1)) {
12374 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_free" "', argument " "1"" of type '" "gsl_permutation *""'");
12375 }
12376 arg1 = (gsl_permutation *)(argp1);
12377 gsl_permutation_free(arg1);
12378 ST(argvi) = &PL_sv_undef;
12379
12380 XSRETURN(argvi);
12381 fail:
12382
12383 SWIG_croak_null();
12384 }
12385 }
12386
12387
XS(_wrap_gsl_permutation_memcpy)12388 XS(_wrap_gsl_permutation_memcpy) {
12389 {
12390 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
12391 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
12392 void *argp1 = 0 ;
12393 int res1 = 0 ;
12394 void *argp2 = 0 ;
12395 int res2 = 0 ;
12396 int argvi = 0;
12397 int result;
12398 dXSARGS;
12399
12400 if ((items < 2) || (items > 2)) {
12401 SWIG_croak("Usage: gsl_permutation_memcpy(dest,src);");
12402 }
12403 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
12404 if (!SWIG_IsOK(res1)) {
12405 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_memcpy" "', argument " "1"" of type '" "gsl_permutation *""'");
12406 }
12407 arg1 = (gsl_permutation *)(argp1);
12408 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
12409 if (!SWIG_IsOK(res2)) {
12410 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_permutation_memcpy" "', argument " "2"" of type '" "gsl_permutation const *""'");
12411 }
12412 arg2 = (gsl_permutation *)(argp2);
12413 result = (int)gsl_permutation_memcpy(arg1,(struct gsl_permutation_struct const *)arg2);
12414 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
12415
12416
12417 XSRETURN(argvi);
12418 fail:
12419
12420
12421 SWIG_croak_null();
12422 }
12423 }
12424
12425
XS(_wrap_gsl_permutation_fread)12426 XS(_wrap_gsl_permutation_fread) {
12427 {
12428 FILE *arg1 = (FILE *) 0 ;
12429 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
12430 void *argp1 = 0 ;
12431 int res1 = 0 ;
12432 void *argp2 = 0 ;
12433 int res2 = 0 ;
12434 int argvi = 0;
12435 int result;
12436 dXSARGS;
12437
12438 if ((items < 2) || (items > 2)) {
12439 SWIG_croak("Usage: gsl_permutation_fread(stream,p);");
12440 }
12441 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_FILE, 0 | 0 );
12442 if (!SWIG_IsOK(res1)) {
12443 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_fread" "', argument " "1"" of type '" "FILE *""'");
12444 }
12445 arg1 = (FILE *)(argp1);
12446 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
12447 if (!SWIG_IsOK(res2)) {
12448 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_permutation_fread" "', argument " "2"" of type '" "gsl_permutation *""'");
12449 }
12450 arg2 = (gsl_permutation *)(argp2);
12451 result = (int)gsl_permutation_fread(arg1,arg2);
12452 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
12453
12454
12455 XSRETURN(argvi);
12456 fail:
12457
12458
12459 SWIG_croak_null();
12460 }
12461 }
12462
12463
XS(_wrap_gsl_permutation_fwrite)12464 XS(_wrap_gsl_permutation_fwrite) {
12465 {
12466 FILE *arg1 = (FILE *) 0 ;
12467 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
12468 void *argp1 = 0 ;
12469 int res1 = 0 ;
12470 void *argp2 = 0 ;
12471 int res2 = 0 ;
12472 int argvi = 0;
12473 int result;
12474 dXSARGS;
12475
12476 if ((items < 2) || (items > 2)) {
12477 SWIG_croak("Usage: gsl_permutation_fwrite(stream,p);");
12478 }
12479 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_FILE, 0 | 0 );
12480 if (!SWIG_IsOK(res1)) {
12481 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_fwrite" "', argument " "1"" of type '" "FILE *""'");
12482 }
12483 arg1 = (FILE *)(argp1);
12484 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
12485 if (!SWIG_IsOK(res2)) {
12486 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_permutation_fwrite" "', argument " "2"" of type '" "gsl_permutation const *""'");
12487 }
12488 arg2 = (gsl_permutation *)(argp2);
12489 result = (int)gsl_permutation_fwrite(arg1,(struct gsl_permutation_struct const *)arg2);
12490 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
12491
12492
12493 XSRETURN(argvi);
12494 fail:
12495
12496
12497 SWIG_croak_null();
12498 }
12499 }
12500
12501
XS(_wrap_gsl_permutation_fscanf)12502 XS(_wrap_gsl_permutation_fscanf) {
12503 {
12504 FILE *arg1 = (FILE *) 0 ;
12505 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
12506 void *argp1 = 0 ;
12507 int res1 = 0 ;
12508 void *argp2 = 0 ;
12509 int res2 = 0 ;
12510 int argvi = 0;
12511 int result;
12512 dXSARGS;
12513
12514 if ((items < 2) || (items > 2)) {
12515 SWIG_croak("Usage: gsl_permutation_fscanf(stream,p);");
12516 }
12517 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_FILE, 0 | 0 );
12518 if (!SWIG_IsOK(res1)) {
12519 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_fscanf" "', argument " "1"" of type '" "FILE *""'");
12520 }
12521 arg1 = (FILE *)(argp1);
12522 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
12523 if (!SWIG_IsOK(res2)) {
12524 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_permutation_fscanf" "', argument " "2"" of type '" "gsl_permutation *""'");
12525 }
12526 arg2 = (gsl_permutation *)(argp2);
12527 result = (int)gsl_permutation_fscanf(arg1,arg2);
12528 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
12529
12530
12531 XSRETURN(argvi);
12532 fail:
12533
12534
12535 SWIG_croak_null();
12536 }
12537 }
12538
12539
XS(_wrap_gsl_permutation_fprintf)12540 XS(_wrap_gsl_permutation_fprintf) {
12541 {
12542 FILE *arg1 = (FILE *) 0 ;
12543 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
12544 char *arg3 = (char *) 0 ;
12545 void *argp1 = 0 ;
12546 int res1 = 0 ;
12547 void *argp2 = 0 ;
12548 int res2 = 0 ;
12549 int res3 ;
12550 char *buf3 = 0 ;
12551 int alloc3 = 0 ;
12552 int argvi = 0;
12553 int result;
12554 dXSARGS;
12555
12556 if ((items < 3) || (items > 3)) {
12557 SWIG_croak("Usage: gsl_permutation_fprintf(stream,p,format);");
12558 }
12559 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_FILE, 0 | 0 );
12560 if (!SWIG_IsOK(res1)) {
12561 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_fprintf" "', argument " "1"" of type '" "FILE *""'");
12562 }
12563 arg1 = (FILE *)(argp1);
12564 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
12565 if (!SWIG_IsOK(res2)) {
12566 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_permutation_fprintf" "', argument " "2"" of type '" "gsl_permutation const *""'");
12567 }
12568 arg2 = (gsl_permutation *)(argp2);
12569 res3 = SWIG_AsCharPtrAndSize(ST(2), &buf3, NULL, &alloc3);
12570 if (!SWIG_IsOK(res3)) {
12571 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_permutation_fprintf" "', argument " "3"" of type '" "char const *""'");
12572 }
12573 arg3 = (char *)(buf3);
12574 result = (int)gsl_permutation_fprintf(arg1,(struct gsl_permutation_struct const *)arg2,(char const *)arg3);
12575 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
12576
12577
12578 if (alloc3 == SWIG_NEWOBJ) free((char*)buf3);
12579 XSRETURN(argvi);
12580 fail:
12581
12582
12583 if (alloc3 == SWIG_NEWOBJ) free((char*)buf3);
12584 SWIG_croak_null();
12585 }
12586 }
12587
12588
XS(_wrap_gsl_permutation_size)12589 XS(_wrap_gsl_permutation_size) {
12590 {
12591 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
12592 void *argp1 = 0 ;
12593 int res1 = 0 ;
12594 int argvi = 0;
12595 size_t result;
12596 dXSARGS;
12597
12598 if ((items < 1) || (items > 1)) {
12599 SWIG_croak("Usage: gsl_permutation_size(p);");
12600 }
12601 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
12602 if (!SWIG_IsOK(res1)) {
12603 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_size" "', argument " "1"" of type '" "gsl_permutation const *""'");
12604 }
12605 arg1 = (gsl_permutation *)(argp1);
12606 result = gsl_permutation_size((struct gsl_permutation_struct const *)arg1);
12607 ST(argvi) = SWIG_From_size_t SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
12608
12609 XSRETURN(argvi);
12610 fail:
12611
12612 SWIG_croak_null();
12613 }
12614 }
12615
12616
XS(_wrap_gsl_permutation_data)12617 XS(_wrap_gsl_permutation_data) {
12618 {
12619 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
12620 void *argp1 = 0 ;
12621 int res1 = 0 ;
12622 int argvi = 0;
12623 size_t *result = 0 ;
12624 dXSARGS;
12625
12626 if ((items < 1) || (items > 1)) {
12627 SWIG_croak("Usage: gsl_permutation_data(p);");
12628 }
12629 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
12630 if (!SWIG_IsOK(res1)) {
12631 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_data" "', argument " "1"" of type '" "gsl_permutation const *""'");
12632 }
12633 arg1 = (gsl_permutation *)(argp1);
12634 result = (size_t *)gsl_permutation_data((struct gsl_permutation_struct const *)arg1);
12635 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_size_t, 0 | 0); argvi++ ;
12636
12637 XSRETURN(argvi);
12638 fail:
12639
12640 SWIG_croak_null();
12641 }
12642 }
12643
12644
XS(_wrap_gsl_permutation_swap)12645 XS(_wrap_gsl_permutation_swap) {
12646 {
12647 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
12648 size_t arg2 ;
12649 size_t arg3 ;
12650 void *argp1 = 0 ;
12651 int res1 = 0 ;
12652 size_t val2 ;
12653 int ecode2 = 0 ;
12654 size_t val3 ;
12655 int ecode3 = 0 ;
12656 int argvi = 0;
12657 int result;
12658 dXSARGS;
12659
12660 if ((items < 3) || (items > 3)) {
12661 SWIG_croak("Usage: gsl_permutation_swap(p,i,j);");
12662 }
12663 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
12664 if (!SWIG_IsOK(res1)) {
12665 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_swap" "', argument " "1"" of type '" "gsl_permutation *""'");
12666 }
12667 arg1 = (gsl_permutation *)(argp1);
12668 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
12669 if (!SWIG_IsOK(ecode2)) {
12670 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_permutation_swap" "', argument " "2"" of type '" "size_t""'");
12671 }
12672 arg2 = (size_t)(val2);
12673 ecode3 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
12674 if (!SWIG_IsOK(ecode3)) {
12675 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_permutation_swap" "', argument " "3"" of type '" "size_t""'");
12676 }
12677 arg3 = (size_t)(val3);
12678 result = (int)gsl_permutation_swap(arg1,arg2,arg3);
12679 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
12680
12681
12682
12683 XSRETURN(argvi);
12684 fail:
12685
12686
12687
12688 SWIG_croak_null();
12689 }
12690 }
12691
12692
XS(_wrap_gsl_permutation_valid)12693 XS(_wrap_gsl_permutation_valid) {
12694 {
12695 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
12696 void *argp1 = 0 ;
12697 int res1 = 0 ;
12698 int argvi = 0;
12699 int result;
12700 dXSARGS;
12701
12702 if ((items < 1) || (items > 1)) {
12703 SWIG_croak("Usage: gsl_permutation_valid(p);");
12704 }
12705 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
12706 if (!SWIG_IsOK(res1)) {
12707 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_valid" "', argument " "1"" of type '" "gsl_permutation const *""'");
12708 }
12709 arg1 = (gsl_permutation *)(argp1);
12710 result = (int)gsl_permutation_valid((struct gsl_permutation_struct const *)arg1);
12711 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
12712
12713 XSRETURN(argvi);
12714 fail:
12715
12716 SWIG_croak_null();
12717 }
12718 }
12719
12720
XS(_wrap_gsl_permutation_reverse)12721 XS(_wrap_gsl_permutation_reverse) {
12722 {
12723 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
12724 void *argp1 = 0 ;
12725 int res1 = 0 ;
12726 int argvi = 0;
12727 dXSARGS;
12728
12729 if ((items < 1) || (items > 1)) {
12730 SWIG_croak("Usage: gsl_permutation_reverse(p);");
12731 }
12732 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
12733 if (!SWIG_IsOK(res1)) {
12734 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_reverse" "', argument " "1"" of type '" "gsl_permutation *""'");
12735 }
12736 arg1 = (gsl_permutation *)(argp1);
12737 gsl_permutation_reverse(arg1);
12738 ST(argvi) = &PL_sv_undef;
12739
12740 XSRETURN(argvi);
12741 fail:
12742
12743 SWIG_croak_null();
12744 }
12745 }
12746
12747
XS(_wrap_gsl_permutation_inverse)12748 XS(_wrap_gsl_permutation_inverse) {
12749 {
12750 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
12751 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
12752 void *argp1 = 0 ;
12753 int res1 = 0 ;
12754 void *argp2 = 0 ;
12755 int res2 = 0 ;
12756 int argvi = 0;
12757 int result;
12758 dXSARGS;
12759
12760 if ((items < 2) || (items > 2)) {
12761 SWIG_croak("Usage: gsl_permutation_inverse(inv,p);");
12762 }
12763 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
12764 if (!SWIG_IsOK(res1)) {
12765 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_inverse" "', argument " "1"" of type '" "gsl_permutation *""'");
12766 }
12767 arg1 = (gsl_permutation *)(argp1);
12768 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
12769 if (!SWIG_IsOK(res2)) {
12770 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_permutation_inverse" "', argument " "2"" of type '" "gsl_permutation const *""'");
12771 }
12772 arg2 = (gsl_permutation *)(argp2);
12773 result = (int)gsl_permutation_inverse(arg1,(struct gsl_permutation_struct const *)arg2);
12774 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
12775
12776
12777 XSRETURN(argvi);
12778 fail:
12779
12780
12781 SWIG_croak_null();
12782 }
12783 }
12784
12785
XS(_wrap_gsl_permutation_next)12786 XS(_wrap_gsl_permutation_next) {
12787 {
12788 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
12789 void *argp1 = 0 ;
12790 int res1 = 0 ;
12791 int argvi = 0;
12792 int result;
12793 dXSARGS;
12794
12795 if ((items < 1) || (items > 1)) {
12796 SWIG_croak("Usage: gsl_permutation_next(p);");
12797 }
12798 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
12799 if (!SWIG_IsOK(res1)) {
12800 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_next" "', argument " "1"" of type '" "gsl_permutation *""'");
12801 }
12802 arg1 = (gsl_permutation *)(argp1);
12803 result = (int)gsl_permutation_next(arg1);
12804 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
12805
12806 XSRETURN(argvi);
12807 fail:
12808
12809 SWIG_croak_null();
12810 }
12811 }
12812
12813
XS(_wrap_gsl_permutation_prev)12814 XS(_wrap_gsl_permutation_prev) {
12815 {
12816 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
12817 void *argp1 = 0 ;
12818 int res1 = 0 ;
12819 int argvi = 0;
12820 int result;
12821 dXSARGS;
12822
12823 if ((items < 1) || (items > 1)) {
12824 SWIG_croak("Usage: gsl_permutation_prev(p);");
12825 }
12826 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
12827 if (!SWIG_IsOK(res1)) {
12828 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_prev" "', argument " "1"" of type '" "gsl_permutation *""'");
12829 }
12830 arg1 = (gsl_permutation *)(argp1);
12831 result = (int)gsl_permutation_prev(arg1);
12832 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
12833
12834 XSRETURN(argvi);
12835 fail:
12836
12837 SWIG_croak_null();
12838 }
12839 }
12840
12841
XS(_wrap_gsl_permutation_mul)12842 XS(_wrap_gsl_permutation_mul) {
12843 {
12844 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
12845 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
12846 gsl_permutation *arg3 = (gsl_permutation *) 0 ;
12847 void *argp1 = 0 ;
12848 int res1 = 0 ;
12849 void *argp2 = 0 ;
12850 int res2 = 0 ;
12851 void *argp3 = 0 ;
12852 int res3 = 0 ;
12853 int argvi = 0;
12854 int result;
12855 dXSARGS;
12856
12857 if ((items < 3) || (items > 3)) {
12858 SWIG_croak("Usage: gsl_permutation_mul(p,pa,pb);");
12859 }
12860 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
12861 if (!SWIG_IsOK(res1)) {
12862 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_mul" "', argument " "1"" of type '" "gsl_permutation *""'");
12863 }
12864 arg1 = (gsl_permutation *)(argp1);
12865 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
12866 if (!SWIG_IsOK(res2)) {
12867 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_permutation_mul" "', argument " "2"" of type '" "gsl_permutation const *""'");
12868 }
12869 arg2 = (gsl_permutation *)(argp2);
12870 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
12871 if (!SWIG_IsOK(res3)) {
12872 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_permutation_mul" "', argument " "3"" of type '" "gsl_permutation const *""'");
12873 }
12874 arg3 = (gsl_permutation *)(argp3);
12875 result = (int)gsl_permutation_mul(arg1,(struct gsl_permutation_struct const *)arg2,(struct gsl_permutation_struct const *)arg3);
12876 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
12877
12878
12879
12880 XSRETURN(argvi);
12881 fail:
12882
12883
12884
12885 SWIG_croak_null();
12886 }
12887 }
12888
12889
XS(_wrap_gsl_permutation_linear_to_canonical)12890 XS(_wrap_gsl_permutation_linear_to_canonical) {
12891 {
12892 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
12893 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
12894 void *argp1 = 0 ;
12895 int res1 = 0 ;
12896 void *argp2 = 0 ;
12897 int res2 = 0 ;
12898 int argvi = 0;
12899 int result;
12900 dXSARGS;
12901
12902 if ((items < 2) || (items > 2)) {
12903 SWIG_croak("Usage: gsl_permutation_linear_to_canonical(q,p);");
12904 }
12905 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
12906 if (!SWIG_IsOK(res1)) {
12907 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_linear_to_canonical" "', argument " "1"" of type '" "gsl_permutation *""'");
12908 }
12909 arg1 = (gsl_permutation *)(argp1);
12910 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
12911 if (!SWIG_IsOK(res2)) {
12912 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_permutation_linear_to_canonical" "', argument " "2"" of type '" "gsl_permutation const *""'");
12913 }
12914 arg2 = (gsl_permutation *)(argp2);
12915 result = (int)gsl_permutation_linear_to_canonical(arg1,(struct gsl_permutation_struct const *)arg2);
12916 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
12917
12918
12919 XSRETURN(argvi);
12920 fail:
12921
12922
12923 SWIG_croak_null();
12924 }
12925 }
12926
12927
XS(_wrap_gsl_permutation_canonical_to_linear)12928 XS(_wrap_gsl_permutation_canonical_to_linear) {
12929 {
12930 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
12931 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
12932 void *argp1 = 0 ;
12933 int res1 = 0 ;
12934 void *argp2 = 0 ;
12935 int res2 = 0 ;
12936 int argvi = 0;
12937 int result;
12938 dXSARGS;
12939
12940 if ((items < 2) || (items > 2)) {
12941 SWIG_croak("Usage: gsl_permutation_canonical_to_linear(p,q);");
12942 }
12943 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
12944 if (!SWIG_IsOK(res1)) {
12945 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_canonical_to_linear" "', argument " "1"" of type '" "gsl_permutation *""'");
12946 }
12947 arg1 = (gsl_permutation *)(argp1);
12948 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
12949 if (!SWIG_IsOK(res2)) {
12950 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_permutation_canonical_to_linear" "', argument " "2"" of type '" "gsl_permutation const *""'");
12951 }
12952 arg2 = (gsl_permutation *)(argp2);
12953 result = (int)gsl_permutation_canonical_to_linear(arg1,(struct gsl_permutation_struct const *)arg2);
12954 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
12955
12956
12957 XSRETURN(argvi);
12958 fail:
12959
12960
12961 SWIG_croak_null();
12962 }
12963 }
12964
12965
XS(_wrap_gsl_permutation_inversions)12966 XS(_wrap_gsl_permutation_inversions) {
12967 {
12968 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
12969 void *argp1 = 0 ;
12970 int res1 = 0 ;
12971 int argvi = 0;
12972 size_t result;
12973 dXSARGS;
12974
12975 if ((items < 1) || (items > 1)) {
12976 SWIG_croak("Usage: gsl_permutation_inversions(p);");
12977 }
12978 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
12979 if (!SWIG_IsOK(res1)) {
12980 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_inversions" "', argument " "1"" of type '" "gsl_permutation const *""'");
12981 }
12982 arg1 = (gsl_permutation *)(argp1);
12983 result = gsl_permutation_inversions((struct gsl_permutation_struct const *)arg1);
12984 ST(argvi) = SWIG_From_size_t SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
12985
12986 XSRETURN(argvi);
12987 fail:
12988
12989 SWIG_croak_null();
12990 }
12991 }
12992
12993
XS(_wrap_gsl_permutation_linear_cycles)12994 XS(_wrap_gsl_permutation_linear_cycles) {
12995 {
12996 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
12997 void *argp1 = 0 ;
12998 int res1 = 0 ;
12999 int argvi = 0;
13000 size_t result;
13001 dXSARGS;
13002
13003 if ((items < 1) || (items > 1)) {
13004 SWIG_croak("Usage: gsl_permutation_linear_cycles(p);");
13005 }
13006 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
13007 if (!SWIG_IsOK(res1)) {
13008 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_linear_cycles" "', argument " "1"" of type '" "gsl_permutation const *""'");
13009 }
13010 arg1 = (gsl_permutation *)(argp1);
13011 result = gsl_permutation_linear_cycles((struct gsl_permutation_struct const *)arg1);
13012 ST(argvi) = SWIG_From_size_t SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
13013
13014 XSRETURN(argvi);
13015 fail:
13016
13017 SWIG_croak_null();
13018 }
13019 }
13020
13021
XS(_wrap_gsl_permutation_canonical_cycles)13022 XS(_wrap_gsl_permutation_canonical_cycles) {
13023 {
13024 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
13025 void *argp1 = 0 ;
13026 int res1 = 0 ;
13027 int argvi = 0;
13028 size_t result;
13029 dXSARGS;
13030
13031 if ((items < 1) || (items > 1)) {
13032 SWIG_croak("Usage: gsl_permutation_canonical_cycles(q);");
13033 }
13034 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
13035 if (!SWIG_IsOK(res1)) {
13036 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_canonical_cycles" "', argument " "1"" of type '" "gsl_permutation const *""'");
13037 }
13038 arg1 = (gsl_permutation *)(argp1);
13039 result = gsl_permutation_canonical_cycles((struct gsl_permutation_struct const *)arg1);
13040 ST(argvi) = SWIG_From_size_t SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
13041
13042 XSRETURN(argvi);
13043 fail:
13044
13045 SWIG_croak_null();
13046 }
13047 }
13048
13049
XS(_wrap_gsl_permutation_get)13050 XS(_wrap_gsl_permutation_get) {
13051 {
13052 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
13053 size_t arg2 ;
13054 void *argp1 = 0 ;
13055 int res1 = 0 ;
13056 size_t val2 ;
13057 int ecode2 = 0 ;
13058 int argvi = 0;
13059 size_t result;
13060 dXSARGS;
13061
13062 if ((items < 2) || (items > 2)) {
13063 SWIG_croak("Usage: gsl_permutation_get(p,i);");
13064 }
13065 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
13066 if (!SWIG_IsOK(res1)) {
13067 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_get" "', argument " "1"" of type '" "gsl_permutation const *""'");
13068 }
13069 arg1 = (gsl_permutation *)(argp1);
13070 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
13071 if (!SWIG_IsOK(ecode2)) {
13072 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_permutation_get" "', argument " "2"" of type '" "size_t""'");
13073 }
13074 arg2 = (size_t)(val2);
13075 result = gsl_permutation_get((struct gsl_permutation_struct const *)arg1,arg2);
13076 ST(argvi) = SWIG_From_size_t SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
13077
13078
13079 XSRETURN(argvi);
13080 fail:
13081
13082
13083 SWIG_croak_null();
13084 }
13085 }
13086
13087
XS(_wrap_gsl_complex_dat_set)13088 XS(_wrap_gsl_complex_dat_set) {
13089 {
13090 gsl_complex *arg1 = (gsl_complex *) 0 ;
13091 double *arg2 ;
13092 void *argp1 = 0 ;
13093 int res1 = 0 ;
13094 void *argp2 = 0 ;
13095 int res2 = 0 ;
13096 int argvi = 0;
13097 dXSARGS;
13098
13099 if ((items < 2) || (items > 2)) {
13100 SWIG_croak("Usage: gsl_complex_dat_set(self,dat);");
13101 }
13102 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_complex, 0 | 0 );
13103 if (!SWIG_IsOK(res1)) {
13104 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_dat_set" "', argument " "1"" of type '" "gsl_complex *""'");
13105 }
13106 arg1 = (gsl_complex *)(argp1);
13107 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_double, 0 | 0 );
13108 if (!SWIG_IsOK(res2)) {
13109 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_complex_dat_set" "', argument " "2"" of type '" "double [2]""'");
13110 }
13111 arg2 = (double *)(argp2);
13112 {
13113 if (arg2) {
13114 size_t ii = 0;
13115 for (; ii < (size_t)2; ++ii) *(double *)&arg1->dat[ii] = *((double *)arg2 + ii);
13116 } else {
13117 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in variable '""dat""' of type '""double [2]""'");
13118 }
13119 }
13120 ST(argvi) = &PL_sv_undef;
13121
13122
13123 XSRETURN(argvi);
13124 fail:
13125
13126
13127 SWIG_croak_null();
13128 }
13129 }
13130
13131
XS(_wrap_gsl_complex_dat_get)13132 XS(_wrap_gsl_complex_dat_get) {
13133 {
13134 gsl_complex *arg1 = (gsl_complex *) 0 ;
13135 void *argp1 = 0 ;
13136 int res1 = 0 ;
13137 int argvi = 0;
13138 double *result = 0 ;
13139 dXSARGS;
13140
13141 if ((items < 1) || (items > 1)) {
13142 SWIG_croak("Usage: gsl_complex_dat_get(self);");
13143 }
13144 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_complex, 0 | 0 );
13145 if (!SWIG_IsOK(res1)) {
13146 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_dat_get" "', argument " "1"" of type '" "gsl_complex *""'");
13147 }
13148 arg1 = (gsl_complex *)(argp1);
13149 result = (double *)(double *) ((arg1)->dat);
13150 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_double, 0 | 0); argvi++ ;
13151
13152 XSRETURN(argvi);
13153 fail:
13154
13155 SWIG_croak_null();
13156 }
13157 }
13158
13159
XS(_wrap_new_gsl_complex)13160 XS(_wrap_new_gsl_complex) {
13161 {
13162 int argvi = 0;
13163 gsl_complex *result = 0 ;
13164 dXSARGS;
13165
13166 if ((items < 0) || (items > 0)) {
13167 SWIG_croak("Usage: new_gsl_complex();");
13168 }
13169 result = (gsl_complex *)calloc(1, sizeof(gsl_complex));
13170 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_complex, SWIG_OWNER | SWIG_SHADOW); argvi++ ;
13171 XSRETURN(argvi);
13172 fail:
13173 SWIG_croak_null();
13174 }
13175 }
13176
13177
XS(_wrap_delete_gsl_complex)13178 XS(_wrap_delete_gsl_complex) {
13179 {
13180 gsl_complex *arg1 = (gsl_complex *) 0 ;
13181 void *argp1 = 0 ;
13182 int res1 = 0 ;
13183 int argvi = 0;
13184 dXSARGS;
13185
13186 if ((items < 1) || (items > 1)) {
13187 SWIG_croak("Usage: delete_gsl_complex(self);");
13188 }
13189 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_complex, SWIG_POINTER_DISOWN | 0 );
13190 if (!SWIG_IsOK(res1)) {
13191 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "delete_gsl_complex" "', argument " "1"" of type '" "gsl_complex *""'");
13192 }
13193 arg1 = (gsl_complex *)(argp1);
13194 free((char *) arg1);
13195 ST(argvi) = &PL_sv_undef;
13196
13197 XSRETURN(argvi);
13198 fail:
13199
13200 SWIG_croak_null();
13201 }
13202 }
13203
13204
XS(_wrap_gsl_complex_long_double_dat_set)13205 XS(_wrap_gsl_complex_long_double_dat_set) {
13206 {
13207 gsl_complex_long_double *arg1 = (gsl_complex_long_double *) 0 ;
13208 long double *arg2 ;
13209 void *argp1 = 0 ;
13210 int res1 = 0 ;
13211 void *argp2 = 0 ;
13212 int res2 = 0 ;
13213 int argvi = 0;
13214 dXSARGS;
13215
13216 if ((items < 2) || (items > 2)) {
13217 SWIG_croak("Usage: gsl_complex_long_double_dat_set(self,dat);");
13218 }
13219 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_complex_long_double, 0 | 0 );
13220 if (!SWIG_IsOK(res1)) {
13221 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_long_double_dat_set" "', argument " "1"" of type '" "gsl_complex_long_double *""'");
13222 }
13223 arg1 = (gsl_complex_long_double *)(argp1);
13224 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_long_double, 0 | 0 );
13225 if (!SWIG_IsOK(res2)) {
13226 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_complex_long_double_dat_set" "', argument " "2"" of type '" "long double [2]""'");
13227 }
13228 arg2 = (long double *)(argp2);
13229 {
13230 if (arg2) {
13231 size_t ii = 0;
13232 for (; ii < (size_t)2; ++ii) *(long double *)&arg1->dat[ii] = *((long double *)arg2 + ii);
13233 } else {
13234 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in variable '""dat""' of type '""long double [2]""'");
13235 }
13236 }
13237 ST(argvi) = &PL_sv_undef;
13238
13239
13240 XSRETURN(argvi);
13241 fail:
13242
13243
13244 SWIG_croak_null();
13245 }
13246 }
13247
13248
XS(_wrap_gsl_complex_long_double_dat_get)13249 XS(_wrap_gsl_complex_long_double_dat_get) {
13250 {
13251 gsl_complex_long_double *arg1 = (gsl_complex_long_double *) 0 ;
13252 void *argp1 = 0 ;
13253 int res1 = 0 ;
13254 int argvi = 0;
13255 long double *result = 0 ;
13256 dXSARGS;
13257
13258 if ((items < 1) || (items > 1)) {
13259 SWIG_croak("Usage: gsl_complex_long_double_dat_get(self);");
13260 }
13261 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_complex_long_double, 0 | 0 );
13262 if (!SWIG_IsOK(res1)) {
13263 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_long_double_dat_get" "', argument " "1"" of type '" "gsl_complex_long_double *""'");
13264 }
13265 arg1 = (gsl_complex_long_double *)(argp1);
13266 result = (long double *)(long double *) ((arg1)->dat);
13267 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_long_double, 0 | 0); argvi++ ;
13268
13269 XSRETURN(argvi);
13270 fail:
13271
13272 SWIG_croak_null();
13273 }
13274 }
13275
13276
XS(_wrap_new_gsl_complex_long_double)13277 XS(_wrap_new_gsl_complex_long_double) {
13278 {
13279 int argvi = 0;
13280 gsl_complex_long_double *result = 0 ;
13281 dXSARGS;
13282
13283 if ((items < 0) || (items > 0)) {
13284 SWIG_croak("Usage: new_gsl_complex_long_double();");
13285 }
13286 result = (gsl_complex_long_double *)calloc(1, sizeof(gsl_complex_long_double));
13287 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_complex_long_double, SWIG_OWNER | SWIG_SHADOW); argvi++ ;
13288 XSRETURN(argvi);
13289 fail:
13290 SWIG_croak_null();
13291 }
13292 }
13293
13294
XS(_wrap_delete_gsl_complex_long_double)13295 XS(_wrap_delete_gsl_complex_long_double) {
13296 {
13297 gsl_complex_long_double *arg1 = (gsl_complex_long_double *) 0 ;
13298 void *argp1 = 0 ;
13299 int res1 = 0 ;
13300 int argvi = 0;
13301 dXSARGS;
13302
13303 if ((items < 1) || (items > 1)) {
13304 SWIG_croak("Usage: delete_gsl_complex_long_double(self);");
13305 }
13306 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_complex_long_double, SWIG_POINTER_DISOWN | 0 );
13307 if (!SWIG_IsOK(res1)) {
13308 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "delete_gsl_complex_long_double" "', argument " "1"" of type '" "gsl_complex_long_double *""'");
13309 }
13310 arg1 = (gsl_complex_long_double *)(argp1);
13311 free((char *) arg1);
13312 ST(argvi) = &PL_sv_undef;
13313
13314 XSRETURN(argvi);
13315 fail:
13316
13317 SWIG_croak_null();
13318 }
13319 }
13320
13321
XS(_wrap_gsl_complex_float_dat_set)13322 XS(_wrap_gsl_complex_float_dat_set) {
13323 {
13324 gsl_complex_float *arg1 = (gsl_complex_float *) 0 ;
13325 float *arg2 ;
13326 void *argp1 = 0 ;
13327 int res1 = 0 ;
13328 void *argp2 = 0 ;
13329 int res2 = 0 ;
13330 int argvi = 0;
13331 dXSARGS;
13332
13333 if ((items < 2) || (items > 2)) {
13334 SWIG_croak("Usage: gsl_complex_float_dat_set(self,dat);");
13335 }
13336 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_complex_float, 0 | 0 );
13337 if (!SWIG_IsOK(res1)) {
13338 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_float_dat_set" "', argument " "1"" of type '" "gsl_complex_float *""'");
13339 }
13340 arg1 = (gsl_complex_float *)(argp1);
13341 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_float, 0 | 0 );
13342 if (!SWIG_IsOK(res2)) {
13343 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_complex_float_dat_set" "', argument " "2"" of type '" "float [2]""'");
13344 }
13345 arg2 = (float *)(argp2);
13346 {
13347 if (arg2) {
13348 size_t ii = 0;
13349 for (; ii < (size_t)2; ++ii) *(float *)&arg1->dat[ii] = *((float *)arg2 + ii);
13350 } else {
13351 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in variable '""dat""' of type '""float [2]""'");
13352 }
13353 }
13354 ST(argvi) = &PL_sv_undef;
13355
13356
13357 XSRETURN(argvi);
13358 fail:
13359
13360
13361 SWIG_croak_null();
13362 }
13363 }
13364
13365
XS(_wrap_gsl_complex_float_dat_get)13366 XS(_wrap_gsl_complex_float_dat_get) {
13367 {
13368 gsl_complex_float *arg1 = (gsl_complex_float *) 0 ;
13369 void *argp1 = 0 ;
13370 int res1 = 0 ;
13371 int argvi = 0;
13372 float *result = 0 ;
13373 dXSARGS;
13374
13375 if ((items < 1) || (items > 1)) {
13376 SWIG_croak("Usage: gsl_complex_float_dat_get(self);");
13377 }
13378 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_complex_float, 0 | 0 );
13379 if (!SWIG_IsOK(res1)) {
13380 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_float_dat_get" "', argument " "1"" of type '" "gsl_complex_float *""'");
13381 }
13382 arg1 = (gsl_complex_float *)(argp1);
13383 result = (float *)(float *) ((arg1)->dat);
13384 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_float, 0 | 0); argvi++ ;
13385
13386 XSRETURN(argvi);
13387 fail:
13388
13389 SWIG_croak_null();
13390 }
13391 }
13392
13393
XS(_wrap_new_gsl_complex_float)13394 XS(_wrap_new_gsl_complex_float) {
13395 {
13396 int argvi = 0;
13397 gsl_complex_float *result = 0 ;
13398 dXSARGS;
13399
13400 if ((items < 0) || (items > 0)) {
13401 SWIG_croak("Usage: new_gsl_complex_float();");
13402 }
13403 result = (gsl_complex_float *)calloc(1, sizeof(gsl_complex_float));
13404 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_complex_float, SWIG_OWNER | SWIG_SHADOW); argvi++ ;
13405 XSRETURN(argvi);
13406 fail:
13407 SWIG_croak_null();
13408 }
13409 }
13410
13411
XS(_wrap_delete_gsl_complex_float)13412 XS(_wrap_delete_gsl_complex_float) {
13413 {
13414 gsl_complex_float *arg1 = (gsl_complex_float *) 0 ;
13415 void *argp1 = 0 ;
13416 int res1 = 0 ;
13417 int argvi = 0;
13418 dXSARGS;
13419
13420 if ((items < 1) || (items > 1)) {
13421 SWIG_croak("Usage: delete_gsl_complex_float(self);");
13422 }
13423 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_complex_float, SWIG_POINTER_DISOWN | 0 );
13424 if (!SWIG_IsOK(res1)) {
13425 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "delete_gsl_complex_float" "', argument " "1"" of type '" "gsl_complex_float *""'");
13426 }
13427 arg1 = (gsl_complex_float *)(argp1);
13428 free((char *) arg1);
13429 ST(argvi) = &PL_sv_undef;
13430
13431 XSRETURN(argvi);
13432 fail:
13433
13434 SWIG_croak_null();
13435 }
13436 }
13437
13438
XS(_wrap_gsl_complex_polar)13439 XS(_wrap_gsl_complex_polar) {
13440 {
13441 double arg1 ;
13442 double arg2 ;
13443 double val1 ;
13444 int ecode1 = 0 ;
13445 double val2 ;
13446 int ecode2 = 0 ;
13447 int argvi = 0;
13448 gsl_complex result;
13449 dXSARGS;
13450
13451 if ((items < 2) || (items > 2)) {
13452 SWIG_croak("Usage: gsl_complex_polar(r,theta);");
13453 }
13454 ecode1 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
13455 if (!SWIG_IsOK(ecode1)) {
13456 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_complex_polar" "', argument " "1"" of type '" "double""'");
13457 }
13458 arg1 = (double)(val1);
13459 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
13460 if (!SWIG_IsOK(ecode2)) {
13461 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_complex_polar" "', argument " "2"" of type '" "double""'");
13462 }
13463 arg2 = (double)(val2);
13464 result = gsl_complex_polar(arg1,arg2);
13465 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++ ;
13466
13467
13468 XSRETURN(argvi);
13469 fail:
13470
13471
13472 SWIG_croak_null();
13473 }
13474 }
13475
13476
XS(_wrap_gsl_complex_rect)13477 XS(_wrap_gsl_complex_rect) {
13478 {
13479 double arg1 ;
13480 double arg2 ;
13481 double val1 ;
13482 int ecode1 = 0 ;
13483 double val2 ;
13484 int ecode2 = 0 ;
13485 int argvi = 0;
13486 gsl_complex result;
13487 dXSARGS;
13488
13489 if ((items < 2) || (items > 2)) {
13490 SWIG_croak("Usage: gsl_complex_rect(x,y);");
13491 }
13492 ecode1 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
13493 if (!SWIG_IsOK(ecode1)) {
13494 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_complex_rect" "', argument " "1"" of type '" "double""'");
13495 }
13496 arg1 = (double)(val1);
13497 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
13498 if (!SWIG_IsOK(ecode2)) {
13499 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_complex_rect" "', argument " "2"" of type '" "double""'");
13500 }
13501 arg2 = (double)(val2);
13502 result = gsl_complex_rect(arg1,arg2);
13503 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++ ;
13504
13505
13506 XSRETURN(argvi);
13507 fail:
13508
13509
13510 SWIG_croak_null();
13511 }
13512 }
13513
13514
XS(_wrap_gsl_complex_arg)13515 XS(_wrap_gsl_complex_arg) {
13516 {
13517 gsl_complex arg1 ;
13518 void *argp1 ;
13519 int res1 = 0 ;
13520 int argvi = 0;
13521 double result;
13522 dXSARGS;
13523
13524 if ((items < 1) || (items > 1)) {
13525 SWIG_croak("Usage: gsl_complex_arg(z);");
13526 }
13527 {
13528 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
13529 if (!SWIG_IsOK(res1)) {
13530 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_arg" "', argument " "1"" of type '" "gsl_complex""'");
13531 }
13532 if (!argp1) {
13533 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_arg" "', argument " "1"" of type '" "gsl_complex""'");
13534 } else {
13535 arg1 = *((gsl_complex *)(argp1));
13536 }
13537 }
13538 result = (double)gsl_complex_arg(arg1);
13539 ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(result)); argvi++ ;
13540 XSRETURN(argvi);
13541 fail:
13542 SWIG_croak_null();
13543 }
13544 }
13545
13546
XS(_wrap_gsl_complex_abs)13547 XS(_wrap_gsl_complex_abs) {
13548 {
13549 gsl_complex arg1 ;
13550 void *argp1 ;
13551 int res1 = 0 ;
13552 int argvi = 0;
13553 double result;
13554 dXSARGS;
13555
13556 if ((items < 1) || (items > 1)) {
13557 SWIG_croak("Usage: gsl_complex_abs(z);");
13558 }
13559 {
13560 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
13561 if (!SWIG_IsOK(res1)) {
13562 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_abs" "', argument " "1"" of type '" "gsl_complex""'");
13563 }
13564 if (!argp1) {
13565 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_abs" "', argument " "1"" of type '" "gsl_complex""'");
13566 } else {
13567 arg1 = *((gsl_complex *)(argp1));
13568 }
13569 }
13570 result = (double)gsl_complex_abs(arg1);
13571 ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(result)); argvi++ ;
13572 XSRETURN(argvi);
13573 fail:
13574 SWIG_croak_null();
13575 }
13576 }
13577
13578
XS(_wrap_gsl_complex_abs2)13579 XS(_wrap_gsl_complex_abs2) {
13580 {
13581 gsl_complex arg1 ;
13582 void *argp1 ;
13583 int res1 = 0 ;
13584 int argvi = 0;
13585 double result;
13586 dXSARGS;
13587
13588 if ((items < 1) || (items > 1)) {
13589 SWIG_croak("Usage: gsl_complex_abs2(z);");
13590 }
13591 {
13592 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
13593 if (!SWIG_IsOK(res1)) {
13594 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_abs2" "', argument " "1"" of type '" "gsl_complex""'");
13595 }
13596 if (!argp1) {
13597 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_abs2" "', argument " "1"" of type '" "gsl_complex""'");
13598 } else {
13599 arg1 = *((gsl_complex *)(argp1));
13600 }
13601 }
13602 result = (double)gsl_complex_abs2(arg1);
13603 ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(result)); argvi++ ;
13604 XSRETURN(argvi);
13605 fail:
13606 SWIG_croak_null();
13607 }
13608 }
13609
13610
XS(_wrap_gsl_complex_logabs)13611 XS(_wrap_gsl_complex_logabs) {
13612 {
13613 gsl_complex arg1 ;
13614 void *argp1 ;
13615 int res1 = 0 ;
13616 int argvi = 0;
13617 double result;
13618 dXSARGS;
13619
13620 if ((items < 1) || (items > 1)) {
13621 SWIG_croak("Usage: gsl_complex_logabs(z);");
13622 }
13623 {
13624 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
13625 if (!SWIG_IsOK(res1)) {
13626 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_logabs" "', argument " "1"" of type '" "gsl_complex""'");
13627 }
13628 if (!argp1) {
13629 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_logabs" "', argument " "1"" of type '" "gsl_complex""'");
13630 } else {
13631 arg1 = *((gsl_complex *)(argp1));
13632 }
13633 }
13634 result = (double)gsl_complex_logabs(arg1);
13635 ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(result)); argvi++ ;
13636 XSRETURN(argvi);
13637 fail:
13638 SWIG_croak_null();
13639 }
13640 }
13641
13642
XS(_wrap_gsl_complex_add)13643 XS(_wrap_gsl_complex_add) {
13644 {
13645 gsl_complex arg1 ;
13646 gsl_complex arg2 ;
13647 void *argp1 ;
13648 int res1 = 0 ;
13649 void *argp2 ;
13650 int res2 = 0 ;
13651 int argvi = 0;
13652 gsl_complex result;
13653 dXSARGS;
13654
13655 if ((items < 2) || (items > 2)) {
13656 SWIG_croak("Usage: gsl_complex_add(a,b);");
13657 }
13658 {
13659 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
13660 if (!SWIG_IsOK(res1)) {
13661 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_add" "', argument " "1"" of type '" "gsl_complex""'");
13662 }
13663 if (!argp1) {
13664 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_add" "', argument " "1"" of type '" "gsl_complex""'");
13665 } else {
13666 arg1 = *((gsl_complex *)(argp1));
13667 }
13668 }
13669 {
13670 res2 = SWIG_ConvertPtr(ST(1), &argp2, SWIGTYPE_p_gsl_complex, 0 );
13671 if (!SWIG_IsOK(res2)) {
13672 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_complex_add" "', argument " "2"" of type '" "gsl_complex""'");
13673 }
13674 if (!argp2) {
13675 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_add" "', argument " "2"" of type '" "gsl_complex""'");
13676 } else {
13677 arg2 = *((gsl_complex *)(argp2));
13678 }
13679 }
13680 result = gsl_complex_add(arg1,arg2);
13681 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++ ;
13682 XSRETURN(argvi);
13683 fail:
13684 SWIG_croak_null();
13685 }
13686 }
13687
13688
XS(_wrap_gsl_complex_sub)13689 XS(_wrap_gsl_complex_sub) {
13690 {
13691 gsl_complex arg1 ;
13692 gsl_complex arg2 ;
13693 void *argp1 ;
13694 int res1 = 0 ;
13695 void *argp2 ;
13696 int res2 = 0 ;
13697 int argvi = 0;
13698 gsl_complex result;
13699 dXSARGS;
13700
13701 if ((items < 2) || (items > 2)) {
13702 SWIG_croak("Usage: gsl_complex_sub(a,b);");
13703 }
13704 {
13705 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
13706 if (!SWIG_IsOK(res1)) {
13707 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_sub" "', argument " "1"" of type '" "gsl_complex""'");
13708 }
13709 if (!argp1) {
13710 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_sub" "', argument " "1"" of type '" "gsl_complex""'");
13711 } else {
13712 arg1 = *((gsl_complex *)(argp1));
13713 }
13714 }
13715 {
13716 res2 = SWIG_ConvertPtr(ST(1), &argp2, SWIGTYPE_p_gsl_complex, 0 );
13717 if (!SWIG_IsOK(res2)) {
13718 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_complex_sub" "', argument " "2"" of type '" "gsl_complex""'");
13719 }
13720 if (!argp2) {
13721 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_sub" "', argument " "2"" of type '" "gsl_complex""'");
13722 } else {
13723 arg2 = *((gsl_complex *)(argp2));
13724 }
13725 }
13726 result = gsl_complex_sub(arg1,arg2);
13727 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++ ;
13728 XSRETURN(argvi);
13729 fail:
13730 SWIG_croak_null();
13731 }
13732 }
13733
13734
XS(_wrap_gsl_complex_mul)13735 XS(_wrap_gsl_complex_mul) {
13736 {
13737 gsl_complex arg1 ;
13738 gsl_complex arg2 ;
13739 void *argp1 ;
13740 int res1 = 0 ;
13741 void *argp2 ;
13742 int res2 = 0 ;
13743 int argvi = 0;
13744 gsl_complex result;
13745 dXSARGS;
13746
13747 if ((items < 2) || (items > 2)) {
13748 SWIG_croak("Usage: gsl_complex_mul(a,b);");
13749 }
13750 {
13751 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
13752 if (!SWIG_IsOK(res1)) {
13753 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_mul" "', argument " "1"" of type '" "gsl_complex""'");
13754 }
13755 if (!argp1) {
13756 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_mul" "', argument " "1"" of type '" "gsl_complex""'");
13757 } else {
13758 arg1 = *((gsl_complex *)(argp1));
13759 }
13760 }
13761 {
13762 res2 = SWIG_ConvertPtr(ST(1), &argp2, SWIGTYPE_p_gsl_complex, 0 );
13763 if (!SWIG_IsOK(res2)) {
13764 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_complex_mul" "', argument " "2"" of type '" "gsl_complex""'");
13765 }
13766 if (!argp2) {
13767 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_mul" "', argument " "2"" of type '" "gsl_complex""'");
13768 } else {
13769 arg2 = *((gsl_complex *)(argp2));
13770 }
13771 }
13772 result = gsl_complex_mul(arg1,arg2);
13773 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++ ;
13774 XSRETURN(argvi);
13775 fail:
13776 SWIG_croak_null();
13777 }
13778 }
13779
13780
XS(_wrap_gsl_complex_div)13781 XS(_wrap_gsl_complex_div) {
13782 {
13783 gsl_complex arg1 ;
13784 gsl_complex arg2 ;
13785 void *argp1 ;
13786 int res1 = 0 ;
13787 void *argp2 ;
13788 int res2 = 0 ;
13789 int argvi = 0;
13790 gsl_complex result;
13791 dXSARGS;
13792
13793 if ((items < 2) || (items > 2)) {
13794 SWIG_croak("Usage: gsl_complex_div(a,b);");
13795 }
13796 {
13797 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
13798 if (!SWIG_IsOK(res1)) {
13799 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_div" "', argument " "1"" of type '" "gsl_complex""'");
13800 }
13801 if (!argp1) {
13802 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_div" "', argument " "1"" of type '" "gsl_complex""'");
13803 } else {
13804 arg1 = *((gsl_complex *)(argp1));
13805 }
13806 }
13807 {
13808 res2 = SWIG_ConvertPtr(ST(1), &argp2, SWIGTYPE_p_gsl_complex, 0 );
13809 if (!SWIG_IsOK(res2)) {
13810 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_complex_div" "', argument " "2"" of type '" "gsl_complex""'");
13811 }
13812 if (!argp2) {
13813 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_div" "', argument " "2"" of type '" "gsl_complex""'");
13814 } else {
13815 arg2 = *((gsl_complex *)(argp2));
13816 }
13817 }
13818 result = gsl_complex_div(arg1,arg2);
13819 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++ ;
13820 XSRETURN(argvi);
13821 fail:
13822 SWIG_croak_null();
13823 }
13824 }
13825
13826
XS(_wrap_gsl_complex_add_real)13827 XS(_wrap_gsl_complex_add_real) {
13828 {
13829 gsl_complex arg1 ;
13830 double arg2 ;
13831 void *argp1 ;
13832 int res1 = 0 ;
13833 double val2 ;
13834 int ecode2 = 0 ;
13835 int argvi = 0;
13836 gsl_complex result;
13837 dXSARGS;
13838
13839 if ((items < 2) || (items > 2)) {
13840 SWIG_croak("Usage: gsl_complex_add_real(a,x);");
13841 }
13842 {
13843 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
13844 if (!SWIG_IsOK(res1)) {
13845 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_add_real" "', argument " "1"" of type '" "gsl_complex""'");
13846 }
13847 if (!argp1) {
13848 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_add_real" "', argument " "1"" of type '" "gsl_complex""'");
13849 } else {
13850 arg1 = *((gsl_complex *)(argp1));
13851 }
13852 }
13853 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
13854 if (!SWIG_IsOK(ecode2)) {
13855 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_complex_add_real" "', argument " "2"" of type '" "double""'");
13856 }
13857 arg2 = (double)(val2);
13858 result = gsl_complex_add_real(arg1,arg2);
13859 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++ ;
13860
13861 XSRETURN(argvi);
13862 fail:
13863
13864 SWIG_croak_null();
13865 }
13866 }
13867
13868
XS(_wrap_gsl_complex_sub_real)13869 XS(_wrap_gsl_complex_sub_real) {
13870 {
13871 gsl_complex arg1 ;
13872 double arg2 ;
13873 void *argp1 ;
13874 int res1 = 0 ;
13875 double val2 ;
13876 int ecode2 = 0 ;
13877 int argvi = 0;
13878 gsl_complex result;
13879 dXSARGS;
13880
13881 if ((items < 2) || (items > 2)) {
13882 SWIG_croak("Usage: gsl_complex_sub_real(a,x);");
13883 }
13884 {
13885 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
13886 if (!SWIG_IsOK(res1)) {
13887 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_sub_real" "', argument " "1"" of type '" "gsl_complex""'");
13888 }
13889 if (!argp1) {
13890 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_sub_real" "', argument " "1"" of type '" "gsl_complex""'");
13891 } else {
13892 arg1 = *((gsl_complex *)(argp1));
13893 }
13894 }
13895 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
13896 if (!SWIG_IsOK(ecode2)) {
13897 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_complex_sub_real" "', argument " "2"" of type '" "double""'");
13898 }
13899 arg2 = (double)(val2);
13900 result = gsl_complex_sub_real(arg1,arg2);
13901 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++ ;
13902
13903 XSRETURN(argvi);
13904 fail:
13905
13906 SWIG_croak_null();
13907 }
13908 }
13909
13910
XS(_wrap_gsl_complex_mul_real)13911 XS(_wrap_gsl_complex_mul_real) {
13912 {
13913 gsl_complex arg1 ;
13914 double arg2 ;
13915 void *argp1 ;
13916 int res1 = 0 ;
13917 double val2 ;
13918 int ecode2 = 0 ;
13919 int argvi = 0;
13920 gsl_complex result;
13921 dXSARGS;
13922
13923 if ((items < 2) || (items > 2)) {
13924 SWIG_croak("Usage: gsl_complex_mul_real(a,x);");
13925 }
13926 {
13927 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
13928 if (!SWIG_IsOK(res1)) {
13929 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_mul_real" "', argument " "1"" of type '" "gsl_complex""'");
13930 }
13931 if (!argp1) {
13932 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_mul_real" "', argument " "1"" of type '" "gsl_complex""'");
13933 } else {
13934 arg1 = *((gsl_complex *)(argp1));
13935 }
13936 }
13937 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
13938 if (!SWIG_IsOK(ecode2)) {
13939 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_complex_mul_real" "', argument " "2"" of type '" "double""'");
13940 }
13941 arg2 = (double)(val2);
13942 result = gsl_complex_mul_real(arg1,arg2);
13943 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++ ;
13944
13945 XSRETURN(argvi);
13946 fail:
13947
13948 SWIG_croak_null();
13949 }
13950 }
13951
13952
XS(_wrap_gsl_complex_div_real)13953 XS(_wrap_gsl_complex_div_real) {
13954 {
13955 gsl_complex arg1 ;
13956 double arg2 ;
13957 void *argp1 ;
13958 int res1 = 0 ;
13959 double val2 ;
13960 int ecode2 = 0 ;
13961 int argvi = 0;
13962 gsl_complex result;
13963 dXSARGS;
13964
13965 if ((items < 2) || (items > 2)) {
13966 SWIG_croak("Usage: gsl_complex_div_real(a,x);");
13967 }
13968 {
13969 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
13970 if (!SWIG_IsOK(res1)) {
13971 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_div_real" "', argument " "1"" of type '" "gsl_complex""'");
13972 }
13973 if (!argp1) {
13974 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_div_real" "', argument " "1"" of type '" "gsl_complex""'");
13975 } else {
13976 arg1 = *((gsl_complex *)(argp1));
13977 }
13978 }
13979 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
13980 if (!SWIG_IsOK(ecode2)) {
13981 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_complex_div_real" "', argument " "2"" of type '" "double""'");
13982 }
13983 arg2 = (double)(val2);
13984 result = gsl_complex_div_real(arg1,arg2);
13985 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++ ;
13986
13987 XSRETURN(argvi);
13988 fail:
13989
13990 SWIG_croak_null();
13991 }
13992 }
13993
13994
XS(_wrap_gsl_complex_add_imag)13995 XS(_wrap_gsl_complex_add_imag) {
13996 {
13997 gsl_complex arg1 ;
13998 double arg2 ;
13999 void *argp1 ;
14000 int res1 = 0 ;
14001 double val2 ;
14002 int ecode2 = 0 ;
14003 int argvi = 0;
14004 gsl_complex result;
14005 dXSARGS;
14006
14007 if ((items < 2) || (items > 2)) {
14008 SWIG_croak("Usage: gsl_complex_add_imag(a,y);");
14009 }
14010 {
14011 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
14012 if (!SWIG_IsOK(res1)) {
14013 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_add_imag" "', argument " "1"" of type '" "gsl_complex""'");
14014 }
14015 if (!argp1) {
14016 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_add_imag" "', argument " "1"" of type '" "gsl_complex""'");
14017 } else {
14018 arg1 = *((gsl_complex *)(argp1));
14019 }
14020 }
14021 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
14022 if (!SWIG_IsOK(ecode2)) {
14023 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_complex_add_imag" "', argument " "2"" of type '" "double""'");
14024 }
14025 arg2 = (double)(val2);
14026 result = gsl_complex_add_imag(arg1,arg2);
14027 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++ ;
14028
14029 XSRETURN(argvi);
14030 fail:
14031
14032 SWIG_croak_null();
14033 }
14034 }
14035
14036
XS(_wrap_gsl_complex_sub_imag)14037 XS(_wrap_gsl_complex_sub_imag) {
14038 {
14039 gsl_complex arg1 ;
14040 double arg2 ;
14041 void *argp1 ;
14042 int res1 = 0 ;
14043 double val2 ;
14044 int ecode2 = 0 ;
14045 int argvi = 0;
14046 gsl_complex result;
14047 dXSARGS;
14048
14049 if ((items < 2) || (items > 2)) {
14050 SWIG_croak("Usage: gsl_complex_sub_imag(a,y);");
14051 }
14052 {
14053 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
14054 if (!SWIG_IsOK(res1)) {
14055 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_sub_imag" "', argument " "1"" of type '" "gsl_complex""'");
14056 }
14057 if (!argp1) {
14058 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_sub_imag" "', argument " "1"" of type '" "gsl_complex""'");
14059 } else {
14060 arg1 = *((gsl_complex *)(argp1));
14061 }
14062 }
14063 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
14064 if (!SWIG_IsOK(ecode2)) {
14065 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_complex_sub_imag" "', argument " "2"" of type '" "double""'");
14066 }
14067 arg2 = (double)(val2);
14068 result = gsl_complex_sub_imag(arg1,arg2);
14069 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++ ;
14070
14071 XSRETURN(argvi);
14072 fail:
14073
14074 SWIG_croak_null();
14075 }
14076 }
14077
14078
XS(_wrap_gsl_complex_mul_imag)14079 XS(_wrap_gsl_complex_mul_imag) {
14080 {
14081 gsl_complex arg1 ;
14082 double arg2 ;
14083 void *argp1 ;
14084 int res1 = 0 ;
14085 double val2 ;
14086 int ecode2 = 0 ;
14087 int argvi = 0;
14088 gsl_complex result;
14089 dXSARGS;
14090
14091 if ((items < 2) || (items > 2)) {
14092 SWIG_croak("Usage: gsl_complex_mul_imag(a,y);");
14093 }
14094 {
14095 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
14096 if (!SWIG_IsOK(res1)) {
14097 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_mul_imag" "', argument " "1"" of type '" "gsl_complex""'");
14098 }
14099 if (!argp1) {
14100 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_mul_imag" "', argument " "1"" of type '" "gsl_complex""'");
14101 } else {
14102 arg1 = *((gsl_complex *)(argp1));
14103 }
14104 }
14105 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
14106 if (!SWIG_IsOK(ecode2)) {
14107 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_complex_mul_imag" "', argument " "2"" of type '" "double""'");
14108 }
14109 arg2 = (double)(val2);
14110 result = gsl_complex_mul_imag(arg1,arg2);
14111 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++ ;
14112
14113 XSRETURN(argvi);
14114 fail:
14115
14116 SWIG_croak_null();
14117 }
14118 }
14119
14120
XS(_wrap_gsl_complex_div_imag)14121 XS(_wrap_gsl_complex_div_imag) {
14122 {
14123 gsl_complex arg1 ;
14124 double arg2 ;
14125 void *argp1 ;
14126 int res1 = 0 ;
14127 double val2 ;
14128 int ecode2 = 0 ;
14129 int argvi = 0;
14130 gsl_complex result;
14131 dXSARGS;
14132
14133 if ((items < 2) || (items > 2)) {
14134 SWIG_croak("Usage: gsl_complex_div_imag(a,y);");
14135 }
14136 {
14137 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
14138 if (!SWIG_IsOK(res1)) {
14139 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_div_imag" "', argument " "1"" of type '" "gsl_complex""'");
14140 }
14141 if (!argp1) {
14142 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_div_imag" "', argument " "1"" of type '" "gsl_complex""'");
14143 } else {
14144 arg1 = *((gsl_complex *)(argp1));
14145 }
14146 }
14147 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
14148 if (!SWIG_IsOK(ecode2)) {
14149 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_complex_div_imag" "', argument " "2"" of type '" "double""'");
14150 }
14151 arg2 = (double)(val2);
14152 result = gsl_complex_div_imag(arg1,arg2);
14153 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++ ;
14154
14155 XSRETURN(argvi);
14156 fail:
14157
14158 SWIG_croak_null();
14159 }
14160 }
14161
14162
XS(_wrap_gsl_complex_conjugate)14163 XS(_wrap_gsl_complex_conjugate) {
14164 {
14165 gsl_complex arg1 ;
14166 void *argp1 ;
14167 int res1 = 0 ;
14168 int argvi = 0;
14169 gsl_complex result;
14170 dXSARGS;
14171
14172 if ((items < 1) || (items > 1)) {
14173 SWIG_croak("Usage: gsl_complex_conjugate(z);");
14174 }
14175 {
14176 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
14177 if (!SWIG_IsOK(res1)) {
14178 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_conjugate" "', argument " "1"" of type '" "gsl_complex""'");
14179 }
14180 if (!argp1) {
14181 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_conjugate" "', argument " "1"" of type '" "gsl_complex""'");
14182 } else {
14183 arg1 = *((gsl_complex *)(argp1));
14184 }
14185 }
14186 result = gsl_complex_conjugate(arg1);
14187 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++ ;
14188 XSRETURN(argvi);
14189 fail:
14190 SWIG_croak_null();
14191 }
14192 }
14193
14194
XS(_wrap_gsl_complex_inverse)14195 XS(_wrap_gsl_complex_inverse) {
14196 {
14197 gsl_complex arg1 ;
14198 void *argp1 ;
14199 int res1 = 0 ;
14200 int argvi = 0;
14201 gsl_complex result;
14202 dXSARGS;
14203
14204 if ((items < 1) || (items > 1)) {
14205 SWIG_croak("Usage: gsl_complex_inverse(a);");
14206 }
14207 {
14208 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
14209 if (!SWIG_IsOK(res1)) {
14210 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_inverse" "', argument " "1"" of type '" "gsl_complex""'");
14211 }
14212 if (!argp1) {
14213 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_inverse" "', argument " "1"" of type '" "gsl_complex""'");
14214 } else {
14215 arg1 = *((gsl_complex *)(argp1));
14216 }
14217 }
14218 result = gsl_complex_inverse(arg1);
14219 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++ ;
14220 XSRETURN(argvi);
14221 fail:
14222 SWIG_croak_null();
14223 }
14224 }
14225
14226
XS(_wrap_gsl_complex_negative)14227 XS(_wrap_gsl_complex_negative) {
14228 {
14229 gsl_complex arg1 ;
14230 void *argp1 ;
14231 int res1 = 0 ;
14232 int argvi = 0;
14233 gsl_complex result;
14234 dXSARGS;
14235
14236 if ((items < 1) || (items > 1)) {
14237 SWIG_croak("Usage: gsl_complex_negative(a);");
14238 }
14239 {
14240 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
14241 if (!SWIG_IsOK(res1)) {
14242 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_negative" "', argument " "1"" of type '" "gsl_complex""'");
14243 }
14244 if (!argp1) {
14245 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_negative" "', argument " "1"" of type '" "gsl_complex""'");
14246 } else {
14247 arg1 = *((gsl_complex *)(argp1));
14248 }
14249 }
14250 result = gsl_complex_negative(arg1);
14251 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++ ;
14252 XSRETURN(argvi);
14253 fail:
14254 SWIG_croak_null();
14255 }
14256 }
14257
14258
XS(_wrap_gsl_complex_sqrt)14259 XS(_wrap_gsl_complex_sqrt) {
14260 {
14261 gsl_complex arg1 ;
14262 void *argp1 ;
14263 int res1 = 0 ;
14264 int argvi = 0;
14265 gsl_complex result;
14266 dXSARGS;
14267
14268 if ((items < 1) || (items > 1)) {
14269 SWIG_croak("Usage: gsl_complex_sqrt(z);");
14270 }
14271 {
14272 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
14273 if (!SWIG_IsOK(res1)) {
14274 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_sqrt" "', argument " "1"" of type '" "gsl_complex""'");
14275 }
14276 if (!argp1) {
14277 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_sqrt" "', argument " "1"" of type '" "gsl_complex""'");
14278 } else {
14279 arg1 = *((gsl_complex *)(argp1));
14280 }
14281 }
14282 result = gsl_complex_sqrt(arg1);
14283 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++ ;
14284 XSRETURN(argvi);
14285 fail:
14286 SWIG_croak_null();
14287 }
14288 }
14289
14290
XS(_wrap_gsl_complex_sqrt_real)14291 XS(_wrap_gsl_complex_sqrt_real) {
14292 {
14293 double arg1 ;
14294 double val1 ;
14295 int ecode1 = 0 ;
14296 int argvi = 0;
14297 gsl_complex result;
14298 dXSARGS;
14299
14300 if ((items < 1) || (items > 1)) {
14301 SWIG_croak("Usage: gsl_complex_sqrt_real(x);");
14302 }
14303 ecode1 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
14304 if (!SWIG_IsOK(ecode1)) {
14305 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_complex_sqrt_real" "', argument " "1"" of type '" "double""'");
14306 }
14307 arg1 = (double)(val1);
14308 result = gsl_complex_sqrt_real(arg1);
14309 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++ ;
14310
14311 XSRETURN(argvi);
14312 fail:
14313
14314 SWIG_croak_null();
14315 }
14316 }
14317
14318
XS(_wrap_gsl_complex_pow)14319 XS(_wrap_gsl_complex_pow) {
14320 {
14321 gsl_complex arg1 ;
14322 gsl_complex arg2 ;
14323 void *argp1 ;
14324 int res1 = 0 ;
14325 void *argp2 ;
14326 int res2 = 0 ;
14327 int argvi = 0;
14328 gsl_complex result;
14329 dXSARGS;
14330
14331 if ((items < 2) || (items > 2)) {
14332 SWIG_croak("Usage: gsl_complex_pow(a,b);");
14333 }
14334 {
14335 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
14336 if (!SWIG_IsOK(res1)) {
14337 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_pow" "', argument " "1"" of type '" "gsl_complex""'");
14338 }
14339 if (!argp1) {
14340 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_pow" "', argument " "1"" of type '" "gsl_complex""'");
14341 } else {
14342 arg1 = *((gsl_complex *)(argp1));
14343 }
14344 }
14345 {
14346 res2 = SWIG_ConvertPtr(ST(1), &argp2, SWIGTYPE_p_gsl_complex, 0 );
14347 if (!SWIG_IsOK(res2)) {
14348 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_complex_pow" "', argument " "2"" of type '" "gsl_complex""'");
14349 }
14350 if (!argp2) {
14351 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_pow" "', argument " "2"" of type '" "gsl_complex""'");
14352 } else {
14353 arg2 = *((gsl_complex *)(argp2));
14354 }
14355 }
14356 result = gsl_complex_pow(arg1,arg2);
14357 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++ ;
14358 XSRETURN(argvi);
14359 fail:
14360 SWIG_croak_null();
14361 }
14362 }
14363
14364
XS(_wrap_gsl_complex_pow_real)14365 XS(_wrap_gsl_complex_pow_real) {
14366 {
14367 gsl_complex arg1 ;
14368 double arg2 ;
14369 void *argp1 ;
14370 int res1 = 0 ;
14371 double val2 ;
14372 int ecode2 = 0 ;
14373 int argvi = 0;
14374 gsl_complex result;
14375 dXSARGS;
14376
14377 if ((items < 2) || (items > 2)) {
14378 SWIG_croak("Usage: gsl_complex_pow_real(a,b);");
14379 }
14380 {
14381 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
14382 if (!SWIG_IsOK(res1)) {
14383 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_pow_real" "', argument " "1"" of type '" "gsl_complex""'");
14384 }
14385 if (!argp1) {
14386 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_pow_real" "', argument " "1"" of type '" "gsl_complex""'");
14387 } else {
14388 arg1 = *((gsl_complex *)(argp1));
14389 }
14390 }
14391 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
14392 if (!SWIG_IsOK(ecode2)) {
14393 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_complex_pow_real" "', argument " "2"" of type '" "double""'");
14394 }
14395 arg2 = (double)(val2);
14396 result = gsl_complex_pow_real(arg1,arg2);
14397 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++ ;
14398
14399 XSRETURN(argvi);
14400 fail:
14401
14402 SWIG_croak_null();
14403 }
14404 }
14405
14406
XS(_wrap_gsl_complex_exp)14407 XS(_wrap_gsl_complex_exp) {
14408 {
14409 gsl_complex arg1 ;
14410 void *argp1 ;
14411 int res1 = 0 ;
14412 int argvi = 0;
14413 gsl_complex result;
14414 dXSARGS;
14415
14416 if ((items < 1) || (items > 1)) {
14417 SWIG_croak("Usage: gsl_complex_exp(a);");
14418 }
14419 {
14420 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
14421 if (!SWIG_IsOK(res1)) {
14422 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_exp" "', argument " "1"" of type '" "gsl_complex""'");
14423 }
14424 if (!argp1) {
14425 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_exp" "', argument " "1"" of type '" "gsl_complex""'");
14426 } else {
14427 arg1 = *((gsl_complex *)(argp1));
14428 }
14429 }
14430 result = gsl_complex_exp(arg1);
14431 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++ ;
14432 XSRETURN(argvi);
14433 fail:
14434 SWIG_croak_null();
14435 }
14436 }
14437
14438
XS(_wrap_gsl_complex_log)14439 XS(_wrap_gsl_complex_log) {
14440 {
14441 gsl_complex arg1 ;
14442 void *argp1 ;
14443 int res1 = 0 ;
14444 int argvi = 0;
14445 gsl_complex result;
14446 dXSARGS;
14447
14448 if ((items < 1) || (items > 1)) {
14449 SWIG_croak("Usage: gsl_complex_log(a);");
14450 }
14451 {
14452 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
14453 if (!SWIG_IsOK(res1)) {
14454 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_log" "', argument " "1"" of type '" "gsl_complex""'");
14455 }
14456 if (!argp1) {
14457 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_log" "', argument " "1"" of type '" "gsl_complex""'");
14458 } else {
14459 arg1 = *((gsl_complex *)(argp1));
14460 }
14461 }
14462 result = gsl_complex_log(arg1);
14463 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++ ;
14464 XSRETURN(argvi);
14465 fail:
14466 SWIG_croak_null();
14467 }
14468 }
14469
14470
XS(_wrap_gsl_complex_log10)14471 XS(_wrap_gsl_complex_log10) {
14472 {
14473 gsl_complex arg1 ;
14474 void *argp1 ;
14475 int res1 = 0 ;
14476 int argvi = 0;
14477 gsl_complex result;
14478 dXSARGS;
14479
14480 if ((items < 1) || (items > 1)) {
14481 SWIG_croak("Usage: gsl_complex_log10(a);");
14482 }
14483 {
14484 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
14485 if (!SWIG_IsOK(res1)) {
14486 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_log10" "', argument " "1"" of type '" "gsl_complex""'");
14487 }
14488 if (!argp1) {
14489 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_log10" "', argument " "1"" of type '" "gsl_complex""'");
14490 } else {
14491 arg1 = *((gsl_complex *)(argp1));
14492 }
14493 }
14494 result = gsl_complex_log10(arg1);
14495 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++ ;
14496 XSRETURN(argvi);
14497 fail:
14498 SWIG_croak_null();
14499 }
14500 }
14501
14502
XS(_wrap_gsl_complex_log_b)14503 XS(_wrap_gsl_complex_log_b) {
14504 {
14505 gsl_complex arg1 ;
14506 gsl_complex arg2 ;
14507 void *argp1 ;
14508 int res1 = 0 ;
14509 void *argp2 ;
14510 int res2 = 0 ;
14511 int argvi = 0;
14512 gsl_complex result;
14513 dXSARGS;
14514
14515 if ((items < 2) || (items > 2)) {
14516 SWIG_croak("Usage: gsl_complex_log_b(a,b);");
14517 }
14518 {
14519 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
14520 if (!SWIG_IsOK(res1)) {
14521 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_log_b" "', argument " "1"" of type '" "gsl_complex""'");
14522 }
14523 if (!argp1) {
14524 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_log_b" "', argument " "1"" of type '" "gsl_complex""'");
14525 } else {
14526 arg1 = *((gsl_complex *)(argp1));
14527 }
14528 }
14529 {
14530 res2 = SWIG_ConvertPtr(ST(1), &argp2, SWIGTYPE_p_gsl_complex, 0 );
14531 if (!SWIG_IsOK(res2)) {
14532 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_complex_log_b" "', argument " "2"" of type '" "gsl_complex""'");
14533 }
14534 if (!argp2) {
14535 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_log_b" "', argument " "2"" of type '" "gsl_complex""'");
14536 } else {
14537 arg2 = *((gsl_complex *)(argp2));
14538 }
14539 }
14540 result = gsl_complex_log_b(arg1,arg2);
14541 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++ ;
14542 XSRETURN(argvi);
14543 fail:
14544 SWIG_croak_null();
14545 }
14546 }
14547
14548
XS(_wrap_gsl_complex_sin)14549 XS(_wrap_gsl_complex_sin) {
14550 {
14551 gsl_complex arg1 ;
14552 void *argp1 ;
14553 int res1 = 0 ;
14554 int argvi = 0;
14555 gsl_complex result;
14556 dXSARGS;
14557
14558 if ((items < 1) || (items > 1)) {
14559 SWIG_croak("Usage: gsl_complex_sin(a);");
14560 }
14561 {
14562 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
14563 if (!SWIG_IsOK(res1)) {
14564 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_sin" "', argument " "1"" of type '" "gsl_complex""'");
14565 }
14566 if (!argp1) {
14567 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_sin" "', argument " "1"" of type '" "gsl_complex""'");
14568 } else {
14569 arg1 = *((gsl_complex *)(argp1));
14570 }
14571 }
14572 result = gsl_complex_sin(arg1);
14573 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++ ;
14574 XSRETURN(argvi);
14575 fail:
14576 SWIG_croak_null();
14577 }
14578 }
14579
14580
XS(_wrap_gsl_complex_cos)14581 XS(_wrap_gsl_complex_cos) {
14582 {
14583 gsl_complex arg1 ;
14584 void *argp1 ;
14585 int res1 = 0 ;
14586 int argvi = 0;
14587 gsl_complex result;
14588 dXSARGS;
14589
14590 if ((items < 1) || (items > 1)) {
14591 SWIG_croak("Usage: gsl_complex_cos(a);");
14592 }
14593 {
14594 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
14595 if (!SWIG_IsOK(res1)) {
14596 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_cos" "', argument " "1"" of type '" "gsl_complex""'");
14597 }
14598 if (!argp1) {
14599 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_cos" "', argument " "1"" of type '" "gsl_complex""'");
14600 } else {
14601 arg1 = *((gsl_complex *)(argp1));
14602 }
14603 }
14604 result = gsl_complex_cos(arg1);
14605 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++ ;
14606 XSRETURN(argvi);
14607 fail:
14608 SWIG_croak_null();
14609 }
14610 }
14611
14612
XS(_wrap_gsl_complex_sec)14613 XS(_wrap_gsl_complex_sec) {
14614 {
14615 gsl_complex arg1 ;
14616 void *argp1 ;
14617 int res1 = 0 ;
14618 int argvi = 0;
14619 gsl_complex result;
14620 dXSARGS;
14621
14622 if ((items < 1) || (items > 1)) {
14623 SWIG_croak("Usage: gsl_complex_sec(a);");
14624 }
14625 {
14626 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
14627 if (!SWIG_IsOK(res1)) {
14628 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_sec" "', argument " "1"" of type '" "gsl_complex""'");
14629 }
14630 if (!argp1) {
14631 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_sec" "', argument " "1"" of type '" "gsl_complex""'");
14632 } else {
14633 arg1 = *((gsl_complex *)(argp1));
14634 }
14635 }
14636 result = gsl_complex_sec(arg1);
14637 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++ ;
14638 XSRETURN(argvi);
14639 fail:
14640 SWIG_croak_null();
14641 }
14642 }
14643
14644
XS(_wrap_gsl_complex_csc)14645 XS(_wrap_gsl_complex_csc) {
14646 {
14647 gsl_complex arg1 ;
14648 void *argp1 ;
14649 int res1 = 0 ;
14650 int argvi = 0;
14651 gsl_complex result;
14652 dXSARGS;
14653
14654 if ((items < 1) || (items > 1)) {
14655 SWIG_croak("Usage: gsl_complex_csc(a);");
14656 }
14657 {
14658 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
14659 if (!SWIG_IsOK(res1)) {
14660 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_csc" "', argument " "1"" of type '" "gsl_complex""'");
14661 }
14662 if (!argp1) {
14663 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_csc" "', argument " "1"" of type '" "gsl_complex""'");
14664 } else {
14665 arg1 = *((gsl_complex *)(argp1));
14666 }
14667 }
14668 result = gsl_complex_csc(arg1);
14669 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++ ;
14670 XSRETURN(argvi);
14671 fail:
14672 SWIG_croak_null();
14673 }
14674 }
14675
14676
XS(_wrap_gsl_complex_tan)14677 XS(_wrap_gsl_complex_tan) {
14678 {
14679 gsl_complex arg1 ;
14680 void *argp1 ;
14681 int res1 = 0 ;
14682 int argvi = 0;
14683 gsl_complex result;
14684 dXSARGS;
14685
14686 if ((items < 1) || (items > 1)) {
14687 SWIG_croak("Usage: gsl_complex_tan(a);");
14688 }
14689 {
14690 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
14691 if (!SWIG_IsOK(res1)) {
14692 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_tan" "', argument " "1"" of type '" "gsl_complex""'");
14693 }
14694 if (!argp1) {
14695 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_tan" "', argument " "1"" of type '" "gsl_complex""'");
14696 } else {
14697 arg1 = *((gsl_complex *)(argp1));
14698 }
14699 }
14700 result = gsl_complex_tan(arg1);
14701 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++ ;
14702 XSRETURN(argvi);
14703 fail:
14704 SWIG_croak_null();
14705 }
14706 }
14707
14708
XS(_wrap_gsl_complex_cot)14709 XS(_wrap_gsl_complex_cot) {
14710 {
14711 gsl_complex arg1 ;
14712 void *argp1 ;
14713 int res1 = 0 ;
14714 int argvi = 0;
14715 gsl_complex result;
14716 dXSARGS;
14717
14718 if ((items < 1) || (items > 1)) {
14719 SWIG_croak("Usage: gsl_complex_cot(a);");
14720 }
14721 {
14722 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
14723 if (!SWIG_IsOK(res1)) {
14724 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_cot" "', argument " "1"" of type '" "gsl_complex""'");
14725 }
14726 if (!argp1) {
14727 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_cot" "', argument " "1"" of type '" "gsl_complex""'");
14728 } else {
14729 arg1 = *((gsl_complex *)(argp1));
14730 }
14731 }
14732 result = gsl_complex_cot(arg1);
14733 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++ ;
14734 XSRETURN(argvi);
14735 fail:
14736 SWIG_croak_null();
14737 }
14738 }
14739
14740
XS(_wrap_gsl_complex_arcsin)14741 XS(_wrap_gsl_complex_arcsin) {
14742 {
14743 gsl_complex arg1 ;
14744 void *argp1 ;
14745 int res1 = 0 ;
14746 int argvi = 0;
14747 gsl_complex result;
14748 dXSARGS;
14749
14750 if ((items < 1) || (items > 1)) {
14751 SWIG_croak("Usage: gsl_complex_arcsin(a);");
14752 }
14753 {
14754 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
14755 if (!SWIG_IsOK(res1)) {
14756 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_arcsin" "', argument " "1"" of type '" "gsl_complex""'");
14757 }
14758 if (!argp1) {
14759 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_arcsin" "', argument " "1"" of type '" "gsl_complex""'");
14760 } else {
14761 arg1 = *((gsl_complex *)(argp1));
14762 }
14763 }
14764 result = gsl_complex_arcsin(arg1);
14765 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++ ;
14766 XSRETURN(argvi);
14767 fail:
14768 SWIG_croak_null();
14769 }
14770 }
14771
14772
XS(_wrap_gsl_complex_arcsin_real)14773 XS(_wrap_gsl_complex_arcsin_real) {
14774 {
14775 double arg1 ;
14776 double val1 ;
14777 int ecode1 = 0 ;
14778 int argvi = 0;
14779 gsl_complex result;
14780 dXSARGS;
14781
14782 if ((items < 1) || (items > 1)) {
14783 SWIG_croak("Usage: gsl_complex_arcsin_real(a);");
14784 }
14785 ecode1 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
14786 if (!SWIG_IsOK(ecode1)) {
14787 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_complex_arcsin_real" "', argument " "1"" of type '" "double""'");
14788 }
14789 arg1 = (double)(val1);
14790 result = gsl_complex_arcsin_real(arg1);
14791 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++ ;
14792
14793 XSRETURN(argvi);
14794 fail:
14795
14796 SWIG_croak_null();
14797 }
14798 }
14799
14800
XS(_wrap_gsl_complex_arccos)14801 XS(_wrap_gsl_complex_arccos) {
14802 {
14803 gsl_complex arg1 ;
14804 void *argp1 ;
14805 int res1 = 0 ;
14806 int argvi = 0;
14807 gsl_complex result;
14808 dXSARGS;
14809
14810 if ((items < 1) || (items > 1)) {
14811 SWIG_croak("Usage: gsl_complex_arccos(a);");
14812 }
14813 {
14814 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
14815 if (!SWIG_IsOK(res1)) {
14816 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_arccos" "', argument " "1"" of type '" "gsl_complex""'");
14817 }
14818 if (!argp1) {
14819 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_arccos" "', argument " "1"" of type '" "gsl_complex""'");
14820 } else {
14821 arg1 = *((gsl_complex *)(argp1));
14822 }
14823 }
14824 result = gsl_complex_arccos(arg1);
14825 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++ ;
14826 XSRETURN(argvi);
14827 fail:
14828 SWIG_croak_null();
14829 }
14830 }
14831
14832
XS(_wrap_gsl_complex_arccos_real)14833 XS(_wrap_gsl_complex_arccos_real) {
14834 {
14835 double arg1 ;
14836 double val1 ;
14837 int ecode1 = 0 ;
14838 int argvi = 0;
14839 gsl_complex result;
14840 dXSARGS;
14841
14842 if ((items < 1) || (items > 1)) {
14843 SWIG_croak("Usage: gsl_complex_arccos_real(a);");
14844 }
14845 ecode1 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
14846 if (!SWIG_IsOK(ecode1)) {
14847 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_complex_arccos_real" "', argument " "1"" of type '" "double""'");
14848 }
14849 arg1 = (double)(val1);
14850 result = gsl_complex_arccos_real(arg1);
14851 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++ ;
14852
14853 XSRETURN(argvi);
14854 fail:
14855
14856 SWIG_croak_null();
14857 }
14858 }
14859
14860
XS(_wrap_gsl_complex_arcsec)14861 XS(_wrap_gsl_complex_arcsec) {
14862 {
14863 gsl_complex arg1 ;
14864 void *argp1 ;
14865 int res1 = 0 ;
14866 int argvi = 0;
14867 gsl_complex result;
14868 dXSARGS;
14869
14870 if ((items < 1) || (items > 1)) {
14871 SWIG_croak("Usage: gsl_complex_arcsec(a);");
14872 }
14873 {
14874 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
14875 if (!SWIG_IsOK(res1)) {
14876 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_arcsec" "', argument " "1"" of type '" "gsl_complex""'");
14877 }
14878 if (!argp1) {
14879 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_arcsec" "', argument " "1"" of type '" "gsl_complex""'");
14880 } else {
14881 arg1 = *((gsl_complex *)(argp1));
14882 }
14883 }
14884 result = gsl_complex_arcsec(arg1);
14885 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++ ;
14886 XSRETURN(argvi);
14887 fail:
14888 SWIG_croak_null();
14889 }
14890 }
14891
14892
XS(_wrap_gsl_complex_arcsec_real)14893 XS(_wrap_gsl_complex_arcsec_real) {
14894 {
14895 double arg1 ;
14896 double val1 ;
14897 int ecode1 = 0 ;
14898 int argvi = 0;
14899 gsl_complex result;
14900 dXSARGS;
14901
14902 if ((items < 1) || (items > 1)) {
14903 SWIG_croak("Usage: gsl_complex_arcsec_real(a);");
14904 }
14905 ecode1 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
14906 if (!SWIG_IsOK(ecode1)) {
14907 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_complex_arcsec_real" "', argument " "1"" of type '" "double""'");
14908 }
14909 arg1 = (double)(val1);
14910 result = gsl_complex_arcsec_real(arg1);
14911 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++ ;
14912
14913 XSRETURN(argvi);
14914 fail:
14915
14916 SWIG_croak_null();
14917 }
14918 }
14919
14920
XS(_wrap_gsl_complex_arccsc)14921 XS(_wrap_gsl_complex_arccsc) {
14922 {
14923 gsl_complex arg1 ;
14924 void *argp1 ;
14925 int res1 = 0 ;
14926 int argvi = 0;
14927 gsl_complex result;
14928 dXSARGS;
14929
14930 if ((items < 1) || (items > 1)) {
14931 SWIG_croak("Usage: gsl_complex_arccsc(a);");
14932 }
14933 {
14934 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
14935 if (!SWIG_IsOK(res1)) {
14936 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_arccsc" "', argument " "1"" of type '" "gsl_complex""'");
14937 }
14938 if (!argp1) {
14939 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_arccsc" "', argument " "1"" of type '" "gsl_complex""'");
14940 } else {
14941 arg1 = *((gsl_complex *)(argp1));
14942 }
14943 }
14944 result = gsl_complex_arccsc(arg1);
14945 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++ ;
14946 XSRETURN(argvi);
14947 fail:
14948 SWIG_croak_null();
14949 }
14950 }
14951
14952
XS(_wrap_gsl_complex_arccsc_real)14953 XS(_wrap_gsl_complex_arccsc_real) {
14954 {
14955 double arg1 ;
14956 double val1 ;
14957 int ecode1 = 0 ;
14958 int argvi = 0;
14959 gsl_complex result;
14960 dXSARGS;
14961
14962 if ((items < 1) || (items > 1)) {
14963 SWIG_croak("Usage: gsl_complex_arccsc_real(a);");
14964 }
14965 ecode1 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
14966 if (!SWIG_IsOK(ecode1)) {
14967 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_complex_arccsc_real" "', argument " "1"" of type '" "double""'");
14968 }
14969 arg1 = (double)(val1);
14970 result = gsl_complex_arccsc_real(arg1);
14971 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++ ;
14972
14973 XSRETURN(argvi);
14974 fail:
14975
14976 SWIG_croak_null();
14977 }
14978 }
14979
14980
XS(_wrap_gsl_complex_arctan)14981 XS(_wrap_gsl_complex_arctan) {
14982 {
14983 gsl_complex arg1 ;
14984 void *argp1 ;
14985 int res1 = 0 ;
14986 int argvi = 0;
14987 gsl_complex result;
14988 dXSARGS;
14989
14990 if ((items < 1) || (items > 1)) {
14991 SWIG_croak("Usage: gsl_complex_arctan(a);");
14992 }
14993 {
14994 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
14995 if (!SWIG_IsOK(res1)) {
14996 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_arctan" "', argument " "1"" of type '" "gsl_complex""'");
14997 }
14998 if (!argp1) {
14999 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_arctan" "', argument " "1"" of type '" "gsl_complex""'");
15000 } else {
15001 arg1 = *((gsl_complex *)(argp1));
15002 }
15003 }
15004 result = gsl_complex_arctan(arg1);
15005 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++ ;
15006 XSRETURN(argvi);
15007 fail:
15008 SWIG_croak_null();
15009 }
15010 }
15011
15012
XS(_wrap_gsl_complex_arccot)15013 XS(_wrap_gsl_complex_arccot) {
15014 {
15015 gsl_complex arg1 ;
15016 void *argp1 ;
15017 int res1 = 0 ;
15018 int argvi = 0;
15019 gsl_complex result;
15020 dXSARGS;
15021
15022 if ((items < 1) || (items > 1)) {
15023 SWIG_croak("Usage: gsl_complex_arccot(a);");
15024 }
15025 {
15026 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
15027 if (!SWIG_IsOK(res1)) {
15028 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_arccot" "', argument " "1"" of type '" "gsl_complex""'");
15029 }
15030 if (!argp1) {
15031 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_arccot" "', argument " "1"" of type '" "gsl_complex""'");
15032 } else {
15033 arg1 = *((gsl_complex *)(argp1));
15034 }
15035 }
15036 result = gsl_complex_arccot(arg1);
15037 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++ ;
15038 XSRETURN(argvi);
15039 fail:
15040 SWIG_croak_null();
15041 }
15042 }
15043
15044
XS(_wrap_gsl_complex_sinh)15045 XS(_wrap_gsl_complex_sinh) {
15046 {
15047 gsl_complex arg1 ;
15048 void *argp1 ;
15049 int res1 = 0 ;
15050 int argvi = 0;
15051 gsl_complex result;
15052 dXSARGS;
15053
15054 if ((items < 1) || (items > 1)) {
15055 SWIG_croak("Usage: gsl_complex_sinh(a);");
15056 }
15057 {
15058 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
15059 if (!SWIG_IsOK(res1)) {
15060 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_sinh" "', argument " "1"" of type '" "gsl_complex""'");
15061 }
15062 if (!argp1) {
15063 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_sinh" "', argument " "1"" of type '" "gsl_complex""'");
15064 } else {
15065 arg1 = *((gsl_complex *)(argp1));
15066 }
15067 }
15068 result = gsl_complex_sinh(arg1);
15069 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++ ;
15070 XSRETURN(argvi);
15071 fail:
15072 SWIG_croak_null();
15073 }
15074 }
15075
15076
XS(_wrap_gsl_complex_cosh)15077 XS(_wrap_gsl_complex_cosh) {
15078 {
15079 gsl_complex arg1 ;
15080 void *argp1 ;
15081 int res1 = 0 ;
15082 int argvi = 0;
15083 gsl_complex result;
15084 dXSARGS;
15085
15086 if ((items < 1) || (items > 1)) {
15087 SWIG_croak("Usage: gsl_complex_cosh(a);");
15088 }
15089 {
15090 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
15091 if (!SWIG_IsOK(res1)) {
15092 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_cosh" "', argument " "1"" of type '" "gsl_complex""'");
15093 }
15094 if (!argp1) {
15095 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_cosh" "', argument " "1"" of type '" "gsl_complex""'");
15096 } else {
15097 arg1 = *((gsl_complex *)(argp1));
15098 }
15099 }
15100 result = gsl_complex_cosh(arg1);
15101 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++ ;
15102 XSRETURN(argvi);
15103 fail:
15104 SWIG_croak_null();
15105 }
15106 }
15107
15108
XS(_wrap_gsl_complex_sech)15109 XS(_wrap_gsl_complex_sech) {
15110 {
15111 gsl_complex arg1 ;
15112 void *argp1 ;
15113 int res1 = 0 ;
15114 int argvi = 0;
15115 gsl_complex result;
15116 dXSARGS;
15117
15118 if ((items < 1) || (items > 1)) {
15119 SWIG_croak("Usage: gsl_complex_sech(a);");
15120 }
15121 {
15122 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
15123 if (!SWIG_IsOK(res1)) {
15124 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_sech" "', argument " "1"" of type '" "gsl_complex""'");
15125 }
15126 if (!argp1) {
15127 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_sech" "', argument " "1"" of type '" "gsl_complex""'");
15128 } else {
15129 arg1 = *((gsl_complex *)(argp1));
15130 }
15131 }
15132 result = gsl_complex_sech(arg1);
15133 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++ ;
15134 XSRETURN(argvi);
15135 fail:
15136 SWIG_croak_null();
15137 }
15138 }
15139
15140
XS(_wrap_gsl_complex_csch)15141 XS(_wrap_gsl_complex_csch) {
15142 {
15143 gsl_complex arg1 ;
15144 void *argp1 ;
15145 int res1 = 0 ;
15146 int argvi = 0;
15147 gsl_complex result;
15148 dXSARGS;
15149
15150 if ((items < 1) || (items > 1)) {
15151 SWIG_croak("Usage: gsl_complex_csch(a);");
15152 }
15153 {
15154 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
15155 if (!SWIG_IsOK(res1)) {
15156 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_csch" "', argument " "1"" of type '" "gsl_complex""'");
15157 }
15158 if (!argp1) {
15159 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_csch" "', argument " "1"" of type '" "gsl_complex""'");
15160 } else {
15161 arg1 = *((gsl_complex *)(argp1));
15162 }
15163 }
15164 result = gsl_complex_csch(arg1);
15165 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++ ;
15166 XSRETURN(argvi);
15167 fail:
15168 SWIG_croak_null();
15169 }
15170 }
15171
15172
XS(_wrap_gsl_complex_tanh)15173 XS(_wrap_gsl_complex_tanh) {
15174 {
15175 gsl_complex arg1 ;
15176 void *argp1 ;
15177 int res1 = 0 ;
15178 int argvi = 0;
15179 gsl_complex result;
15180 dXSARGS;
15181
15182 if ((items < 1) || (items > 1)) {
15183 SWIG_croak("Usage: gsl_complex_tanh(a);");
15184 }
15185 {
15186 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
15187 if (!SWIG_IsOK(res1)) {
15188 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_tanh" "', argument " "1"" of type '" "gsl_complex""'");
15189 }
15190 if (!argp1) {
15191 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_tanh" "', argument " "1"" of type '" "gsl_complex""'");
15192 } else {
15193 arg1 = *((gsl_complex *)(argp1));
15194 }
15195 }
15196 result = gsl_complex_tanh(arg1);
15197 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++ ;
15198 XSRETURN(argvi);
15199 fail:
15200 SWIG_croak_null();
15201 }
15202 }
15203
15204
XS(_wrap_gsl_complex_coth)15205 XS(_wrap_gsl_complex_coth) {
15206 {
15207 gsl_complex arg1 ;
15208 void *argp1 ;
15209 int res1 = 0 ;
15210 int argvi = 0;
15211 gsl_complex result;
15212 dXSARGS;
15213
15214 if ((items < 1) || (items > 1)) {
15215 SWIG_croak("Usage: gsl_complex_coth(a);");
15216 }
15217 {
15218 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
15219 if (!SWIG_IsOK(res1)) {
15220 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_coth" "', argument " "1"" of type '" "gsl_complex""'");
15221 }
15222 if (!argp1) {
15223 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_coth" "', argument " "1"" of type '" "gsl_complex""'");
15224 } else {
15225 arg1 = *((gsl_complex *)(argp1));
15226 }
15227 }
15228 result = gsl_complex_coth(arg1);
15229 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++ ;
15230 XSRETURN(argvi);
15231 fail:
15232 SWIG_croak_null();
15233 }
15234 }
15235
15236
XS(_wrap_gsl_complex_arcsinh)15237 XS(_wrap_gsl_complex_arcsinh) {
15238 {
15239 gsl_complex arg1 ;
15240 void *argp1 ;
15241 int res1 = 0 ;
15242 int argvi = 0;
15243 gsl_complex result;
15244 dXSARGS;
15245
15246 if ((items < 1) || (items > 1)) {
15247 SWIG_croak("Usage: gsl_complex_arcsinh(a);");
15248 }
15249 {
15250 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
15251 if (!SWIG_IsOK(res1)) {
15252 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_arcsinh" "', argument " "1"" of type '" "gsl_complex""'");
15253 }
15254 if (!argp1) {
15255 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_arcsinh" "', argument " "1"" of type '" "gsl_complex""'");
15256 } else {
15257 arg1 = *((gsl_complex *)(argp1));
15258 }
15259 }
15260 result = gsl_complex_arcsinh(arg1);
15261 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++ ;
15262 XSRETURN(argvi);
15263 fail:
15264 SWIG_croak_null();
15265 }
15266 }
15267
15268
XS(_wrap_gsl_complex_arccosh)15269 XS(_wrap_gsl_complex_arccosh) {
15270 {
15271 gsl_complex arg1 ;
15272 void *argp1 ;
15273 int res1 = 0 ;
15274 int argvi = 0;
15275 gsl_complex result;
15276 dXSARGS;
15277
15278 if ((items < 1) || (items > 1)) {
15279 SWIG_croak("Usage: gsl_complex_arccosh(a);");
15280 }
15281 {
15282 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
15283 if (!SWIG_IsOK(res1)) {
15284 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_arccosh" "', argument " "1"" of type '" "gsl_complex""'");
15285 }
15286 if (!argp1) {
15287 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_arccosh" "', argument " "1"" of type '" "gsl_complex""'");
15288 } else {
15289 arg1 = *((gsl_complex *)(argp1));
15290 }
15291 }
15292 result = gsl_complex_arccosh(arg1);
15293 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++ ;
15294 XSRETURN(argvi);
15295 fail:
15296 SWIG_croak_null();
15297 }
15298 }
15299
15300
XS(_wrap_gsl_complex_arccosh_real)15301 XS(_wrap_gsl_complex_arccosh_real) {
15302 {
15303 double arg1 ;
15304 double val1 ;
15305 int ecode1 = 0 ;
15306 int argvi = 0;
15307 gsl_complex result;
15308 dXSARGS;
15309
15310 if ((items < 1) || (items > 1)) {
15311 SWIG_croak("Usage: gsl_complex_arccosh_real(a);");
15312 }
15313 ecode1 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
15314 if (!SWIG_IsOK(ecode1)) {
15315 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_complex_arccosh_real" "', argument " "1"" of type '" "double""'");
15316 }
15317 arg1 = (double)(val1);
15318 result = gsl_complex_arccosh_real(arg1);
15319 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++ ;
15320
15321 XSRETURN(argvi);
15322 fail:
15323
15324 SWIG_croak_null();
15325 }
15326 }
15327
15328
XS(_wrap_gsl_complex_arcsech)15329 XS(_wrap_gsl_complex_arcsech) {
15330 {
15331 gsl_complex arg1 ;
15332 void *argp1 ;
15333 int res1 = 0 ;
15334 int argvi = 0;
15335 gsl_complex result;
15336 dXSARGS;
15337
15338 if ((items < 1) || (items > 1)) {
15339 SWIG_croak("Usage: gsl_complex_arcsech(a);");
15340 }
15341 {
15342 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
15343 if (!SWIG_IsOK(res1)) {
15344 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_arcsech" "', argument " "1"" of type '" "gsl_complex""'");
15345 }
15346 if (!argp1) {
15347 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_arcsech" "', argument " "1"" of type '" "gsl_complex""'");
15348 } else {
15349 arg1 = *((gsl_complex *)(argp1));
15350 }
15351 }
15352 result = gsl_complex_arcsech(arg1);
15353 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++ ;
15354 XSRETURN(argvi);
15355 fail:
15356 SWIG_croak_null();
15357 }
15358 }
15359
15360
XS(_wrap_gsl_complex_arccsch)15361 XS(_wrap_gsl_complex_arccsch) {
15362 {
15363 gsl_complex arg1 ;
15364 void *argp1 ;
15365 int res1 = 0 ;
15366 int argvi = 0;
15367 gsl_complex result;
15368 dXSARGS;
15369
15370 if ((items < 1) || (items > 1)) {
15371 SWIG_croak("Usage: gsl_complex_arccsch(a);");
15372 }
15373 {
15374 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
15375 if (!SWIG_IsOK(res1)) {
15376 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_arccsch" "', argument " "1"" of type '" "gsl_complex""'");
15377 }
15378 if (!argp1) {
15379 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_arccsch" "', argument " "1"" of type '" "gsl_complex""'");
15380 } else {
15381 arg1 = *((gsl_complex *)(argp1));
15382 }
15383 }
15384 result = gsl_complex_arccsch(arg1);
15385 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++ ;
15386 XSRETURN(argvi);
15387 fail:
15388 SWIG_croak_null();
15389 }
15390 }
15391
15392
XS(_wrap_gsl_complex_arctanh)15393 XS(_wrap_gsl_complex_arctanh) {
15394 {
15395 gsl_complex arg1 ;
15396 void *argp1 ;
15397 int res1 = 0 ;
15398 int argvi = 0;
15399 gsl_complex result;
15400 dXSARGS;
15401
15402 if ((items < 1) || (items > 1)) {
15403 SWIG_croak("Usage: gsl_complex_arctanh(a);");
15404 }
15405 {
15406 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
15407 if (!SWIG_IsOK(res1)) {
15408 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_arctanh" "', argument " "1"" of type '" "gsl_complex""'");
15409 }
15410 if (!argp1) {
15411 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_arctanh" "', argument " "1"" of type '" "gsl_complex""'");
15412 } else {
15413 arg1 = *((gsl_complex *)(argp1));
15414 }
15415 }
15416 result = gsl_complex_arctanh(arg1);
15417 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++ ;
15418 XSRETURN(argvi);
15419 fail:
15420 SWIG_croak_null();
15421 }
15422 }
15423
15424
XS(_wrap_gsl_complex_arctanh_real)15425 XS(_wrap_gsl_complex_arctanh_real) {
15426 {
15427 double arg1 ;
15428 double val1 ;
15429 int ecode1 = 0 ;
15430 int argvi = 0;
15431 gsl_complex result;
15432 dXSARGS;
15433
15434 if ((items < 1) || (items > 1)) {
15435 SWIG_croak("Usage: gsl_complex_arctanh_real(a);");
15436 }
15437 ecode1 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
15438 if (!SWIG_IsOK(ecode1)) {
15439 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_complex_arctanh_real" "', argument " "1"" of type '" "double""'");
15440 }
15441 arg1 = (double)(val1);
15442 result = gsl_complex_arctanh_real(arg1);
15443 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++ ;
15444
15445 XSRETURN(argvi);
15446 fail:
15447
15448 SWIG_croak_null();
15449 }
15450 }
15451
15452
XS(_wrap_gsl_complex_arccoth)15453 XS(_wrap_gsl_complex_arccoth) {
15454 {
15455 gsl_complex arg1 ;
15456 void *argp1 ;
15457 int res1 = 0 ;
15458 int argvi = 0;
15459 gsl_complex result;
15460 dXSARGS;
15461
15462 if ((items < 1) || (items > 1)) {
15463 SWIG_croak("Usage: gsl_complex_arccoth(a);");
15464 }
15465 {
15466 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
15467 if (!SWIG_IsOK(res1)) {
15468 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_arccoth" "', argument " "1"" of type '" "gsl_complex""'");
15469 }
15470 if (!argp1) {
15471 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_arccoth" "', argument " "1"" of type '" "gsl_complex""'");
15472 } else {
15473 arg1 = *((gsl_complex *)(argp1));
15474 }
15475 }
15476 result = gsl_complex_arccoth(arg1);
15477 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++ ;
15478 XSRETURN(argvi);
15479 fail:
15480 SWIG_croak_null();
15481 }
15482 }
15483
15484
15485
15486 /* -------- TYPE CONVERSION AND EQUIVALENCE RULES (BEGIN) -------- */
15487
15488 static swig_type_info _swigt__p_CBLAS_DIAG_t = {"_p_CBLAS_DIAG_t", "CBLAS_DIAG_t *", 0, 0, (void*)0, 0};
15489 static swig_type_info _swigt__p_CBLAS_UPLO_t = {"_p_CBLAS_UPLO_t", "CBLAS_UPLO_t *", 0, 0, (void*)0, 0};
15490 static swig_type_info _swigt__p_FILE = {"_p_FILE", "FILE *", 0, 0, (void*)0, 0};
15491 static swig_type_info _swigt__p_char = {"_p_char", "char *", 0, 0, (void*)0, 0};
15492 static swig_type_info _swigt__p_double = {"_p_double", "double *", 0, 0, (void*)0, 0};
15493 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};
15494 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};
15495 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};
15496 static swig_type_info _swigt__p_float = {"_p_float", "float *", 0, 0, (void*)0, 0};
15497 static swig_type_info _swigt__p_gsl_complex = {"_p_gsl_complex", "gsl_complex *", 0, 0, (void*)"Math::GSL::Linalg::gsl_complex", 0};
15498 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};
15499 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};
15500 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};
15501 static swig_type_info _swigt__p_gsl_matrix = {"_p_gsl_matrix", "gsl_matrix *", 0, 0, (void*)0, 0};
15502 static swig_type_info _swigt__p_gsl_matrix_complex = {"_p_gsl_matrix_complex", "gsl_matrix_complex *", 0, 0, (void*)0, 0};
15503 static swig_type_info _swigt__p_gsl_mode_t = {"_p_gsl_mode_t", "gsl_mode_t *", 0, 0, (void*)0, 0};
15504 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};
15505 static swig_type_info _swigt__p_gsl_vector = {"_p_gsl_vector", "gsl_vector *", 0, 0, (void*)0, 0};
15506 static swig_type_info _swigt__p_gsl_vector_complex = {"_p_gsl_vector_complex", "gsl_vector_complex *", 0, 0, (void*)0, 0};
15507 static swig_type_info _swigt__p_int = {"_p_int", "int *", 0, 0, (void*)0, 0};
15508 static swig_type_info _swigt__p_long_double = {"_p_long_double", "long double *", 0, 0, (void*)0, 0};
15509 static swig_type_info _swigt__p_size_t = {"_p_size_t", "size_t *", 0, 0, (void*)0, 0};
15510
15511 static swig_type_info *swig_type_initial[] = {
15512 &_swigt__p_CBLAS_DIAG_t,
15513 &_swigt__p_CBLAS_UPLO_t,
15514 &_swigt__p_FILE,
15515 &_swigt__p_char,
15516 &_swigt__p_double,
15517 &_swigt__p_f_CBLAS_TRANSPOSE_t_p_gsl_vector_p_void__int,
15518 &_swigt__p_f_p_q_const__char_p_q_const__char_int_int__void,
15519 &_swigt__p_f_p_q_const__char_p_q_const__char_int_p_q_const__char__void,
15520 &_swigt__p_float,
15521 &_swigt__p_gsl_complex,
15522 &_swigt__p_gsl_complex_float,
15523 &_swigt__p_gsl_complex_long_double,
15524 &_swigt__p_gsl_linalg_matrix_mod_t,
15525 &_swigt__p_gsl_matrix,
15526 &_swigt__p_gsl_matrix_complex,
15527 &_swigt__p_gsl_mode_t,
15528 &_swigt__p_gsl_permutation_struct,
15529 &_swigt__p_gsl_vector,
15530 &_swigt__p_gsl_vector_complex,
15531 &_swigt__p_int,
15532 &_swigt__p_long_double,
15533 &_swigt__p_size_t,
15534 };
15535
15536 static swig_cast_info _swigc__p_CBLAS_DIAG_t[] = { {&_swigt__p_CBLAS_DIAG_t, 0, 0, 0},{0, 0, 0, 0}};
15537 static swig_cast_info _swigc__p_CBLAS_UPLO_t[] = { {&_swigt__p_CBLAS_UPLO_t, 0, 0, 0},{0, 0, 0, 0}};
15538 static swig_cast_info _swigc__p_FILE[] = { {&_swigt__p_FILE, 0, 0, 0},{0, 0, 0, 0}};
15539 static swig_cast_info _swigc__p_char[] = { {&_swigt__p_char, 0, 0, 0},{0, 0, 0, 0}};
15540 static swig_cast_info _swigc__p_double[] = { {&_swigt__p_double, 0, 0, 0},{0, 0, 0, 0}};
15541 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}};
15542 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}};
15543 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}};
15544 static swig_cast_info _swigc__p_float[] = { {&_swigt__p_float, 0, 0, 0},{0, 0, 0, 0}};
15545 static swig_cast_info _swigc__p_gsl_complex[] = { {&_swigt__p_gsl_complex, 0, 0, 0},{0, 0, 0, 0}};
15546 static swig_cast_info _swigc__p_gsl_complex_float[] = { {&_swigt__p_gsl_complex_float, 0, 0, 0},{0, 0, 0, 0}};
15547 static swig_cast_info _swigc__p_gsl_complex_long_double[] = { {&_swigt__p_gsl_complex_long_double, 0, 0, 0},{0, 0, 0, 0}};
15548 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}};
15549 static swig_cast_info _swigc__p_gsl_matrix[] = { {&_swigt__p_gsl_matrix, 0, 0, 0},{0, 0, 0, 0}};
15550 static swig_cast_info _swigc__p_gsl_matrix_complex[] = { {&_swigt__p_gsl_matrix_complex, 0, 0, 0},{0, 0, 0, 0}};
15551 static swig_cast_info _swigc__p_gsl_mode_t[] = { {&_swigt__p_gsl_mode_t, 0, 0, 0},{0, 0, 0, 0}};
15552 static swig_cast_info _swigc__p_gsl_permutation_struct[] = { {&_swigt__p_gsl_permutation_struct, 0, 0, 0},{0, 0, 0, 0}};
15553 static swig_cast_info _swigc__p_gsl_vector[] = { {&_swigt__p_gsl_vector, 0, 0, 0},{0, 0, 0, 0}};
15554 static swig_cast_info _swigc__p_gsl_vector_complex[] = { {&_swigt__p_gsl_vector_complex, 0, 0, 0},{0, 0, 0, 0}};
15555 static swig_cast_info _swigc__p_int[] = { {&_swigt__p_int, 0, 0, 0},{0, 0, 0, 0}};
15556 static swig_cast_info _swigc__p_long_double[] = { {&_swigt__p_long_double, 0, 0, 0},{0, 0, 0, 0}};
15557 static swig_cast_info _swigc__p_size_t[] = { {&_swigt__p_size_t, 0, 0, 0},{0, 0, 0, 0}};
15558
15559 static swig_cast_info *swig_cast_initial[] = {
15560 _swigc__p_CBLAS_DIAG_t,
15561 _swigc__p_CBLAS_UPLO_t,
15562 _swigc__p_FILE,
15563 _swigc__p_char,
15564 _swigc__p_double,
15565 _swigc__p_f_CBLAS_TRANSPOSE_t_p_gsl_vector_p_void__int,
15566 _swigc__p_f_p_q_const__char_p_q_const__char_int_int__void,
15567 _swigc__p_f_p_q_const__char_p_q_const__char_int_p_q_const__char__void,
15568 _swigc__p_float,
15569 _swigc__p_gsl_complex,
15570 _swigc__p_gsl_complex_float,
15571 _swigc__p_gsl_complex_long_double,
15572 _swigc__p_gsl_linalg_matrix_mod_t,
15573 _swigc__p_gsl_matrix,
15574 _swigc__p_gsl_matrix_complex,
15575 _swigc__p_gsl_mode_t,
15576 _swigc__p_gsl_permutation_struct,
15577 _swigc__p_gsl_vector,
15578 _swigc__p_gsl_vector_complex,
15579 _swigc__p_int,
15580 _swigc__p_long_double,
15581 _swigc__p_size_t,
15582 };
15583
15584
15585 /* -------- TYPE CONVERSION AND EQUIVALENCE RULES (END) -------- */
15586
15587 static swig_constant_info swig_constants[] = {
15588 {0,0,0,0,0,0}
15589 };
15590 #ifdef __cplusplus
15591 }
15592 #endif
15593 static swig_variable_info swig_variables[] = {
15594 {0,0,0,0}
15595 };
15596 static swig_command_info swig_commands[] = {
15597 {"Math::GSL::Linalgc::gsl_error", _wrap_gsl_error},
15598 {"Math::GSL::Linalgc::gsl_stream_printf", _wrap_gsl_stream_printf},
15599 {"Math::GSL::Linalgc::gsl_strerror", _wrap_gsl_strerror},
15600 {"Math::GSL::Linalgc::gsl_set_error_handler", _wrap_gsl_set_error_handler},
15601 {"Math::GSL::Linalgc::gsl_set_error_handler_off", _wrap_gsl_set_error_handler_off},
15602 {"Math::GSL::Linalgc::gsl_set_stream_handler", _wrap_gsl_set_stream_handler},
15603 {"Math::GSL::Linalgc::gsl_set_stream", _wrap_gsl_set_stream},
15604 {"Math::GSL::Linalgc::gsl_linalg_matmult", _wrap_gsl_linalg_matmult},
15605 {"Math::GSL::Linalgc::gsl_linalg_matmult_mod", _wrap_gsl_linalg_matmult_mod},
15606 {"Math::GSL::Linalgc::gsl_linalg_exponential_ss", _wrap_gsl_linalg_exponential_ss},
15607 {"Math::GSL::Linalgc::gsl_linalg_householder_transform", _wrap_gsl_linalg_householder_transform},
15608 {"Math::GSL::Linalgc::gsl_linalg_complex_householder_transform", _wrap_gsl_linalg_complex_householder_transform},
15609 {"Math::GSL::Linalgc::gsl_linalg_householder_hm", _wrap_gsl_linalg_householder_hm},
15610 {"Math::GSL::Linalgc::gsl_linalg_householder_mh", _wrap_gsl_linalg_householder_mh},
15611 {"Math::GSL::Linalgc::gsl_linalg_householder_hv", _wrap_gsl_linalg_householder_hv},
15612 {"Math::GSL::Linalgc::gsl_linalg_householder_left", _wrap_gsl_linalg_householder_left},
15613 {"Math::GSL::Linalgc::gsl_linalg_householder_right", _wrap_gsl_linalg_householder_right},
15614 {"Math::GSL::Linalgc::gsl_linalg_householder_hm1", _wrap_gsl_linalg_householder_hm1},
15615 {"Math::GSL::Linalgc::gsl_linalg_complex_householder_hm", _wrap_gsl_linalg_complex_householder_hm},
15616 {"Math::GSL::Linalgc::gsl_linalg_complex_householder_mh", _wrap_gsl_linalg_complex_householder_mh},
15617 {"Math::GSL::Linalgc::gsl_linalg_complex_householder_hv", _wrap_gsl_linalg_complex_householder_hv},
15618 {"Math::GSL::Linalgc::gsl_linalg_complex_householder_left", _wrap_gsl_linalg_complex_householder_left},
15619 {"Math::GSL::Linalgc::gsl_linalg_hessenberg_decomp", _wrap_gsl_linalg_hessenberg_decomp},
15620 {"Math::GSL::Linalgc::gsl_linalg_hessenberg_unpack", _wrap_gsl_linalg_hessenberg_unpack},
15621 {"Math::GSL::Linalgc::gsl_linalg_hessenberg_unpack_accum", _wrap_gsl_linalg_hessenberg_unpack_accum},
15622 {"Math::GSL::Linalgc::gsl_linalg_hessenberg_set_zero", _wrap_gsl_linalg_hessenberg_set_zero},
15623 {"Math::GSL::Linalgc::gsl_linalg_hessenberg_submatrix", _wrap_gsl_linalg_hessenberg_submatrix},
15624 {"Math::GSL::Linalgc::gsl_linalg_hesstri_decomp", _wrap_gsl_linalg_hesstri_decomp},
15625 {"Math::GSL::Linalgc::gsl_linalg_SV_decomp", _wrap_gsl_linalg_SV_decomp},
15626 {"Math::GSL::Linalgc::gsl_linalg_SV_decomp_mod", _wrap_gsl_linalg_SV_decomp_mod},
15627 {"Math::GSL::Linalgc::gsl_linalg_SV_decomp_jacobi", _wrap_gsl_linalg_SV_decomp_jacobi},
15628 {"Math::GSL::Linalgc::gsl_linalg_SV_solve", _wrap_gsl_linalg_SV_solve},
15629 {"Math::GSL::Linalgc::gsl_linalg_SV_leverage", _wrap_gsl_linalg_SV_leverage},
15630 {"Math::GSL::Linalgc::gsl_linalg_LU_decomp", _wrap_gsl_linalg_LU_decomp},
15631 {"Math::GSL::Linalgc::gsl_linalg_LU_solve", _wrap_gsl_linalg_LU_solve},
15632 {"Math::GSL::Linalgc::gsl_linalg_LU_svx", _wrap_gsl_linalg_LU_svx},
15633 {"Math::GSL::Linalgc::gsl_linalg_LU_refine", _wrap_gsl_linalg_LU_refine},
15634 {"Math::GSL::Linalgc::gsl_linalg_LU_invert", _wrap_gsl_linalg_LU_invert},
15635 {"Math::GSL::Linalgc::gsl_linalg_LU_invx", _wrap_gsl_linalg_LU_invx},
15636 {"Math::GSL::Linalgc::gsl_linalg_LU_det", _wrap_gsl_linalg_LU_det},
15637 {"Math::GSL::Linalgc::gsl_linalg_LU_lndet", _wrap_gsl_linalg_LU_lndet},
15638 {"Math::GSL::Linalgc::gsl_linalg_LU_sgndet", _wrap_gsl_linalg_LU_sgndet},
15639 {"Math::GSL::Linalgc::gsl_linalg_complex_LU_decomp", _wrap_gsl_linalg_complex_LU_decomp},
15640 {"Math::GSL::Linalgc::gsl_linalg_complex_LU_solve", _wrap_gsl_linalg_complex_LU_solve},
15641 {"Math::GSL::Linalgc::gsl_linalg_complex_LU_svx", _wrap_gsl_linalg_complex_LU_svx},
15642 {"Math::GSL::Linalgc::gsl_linalg_complex_LU_refine", _wrap_gsl_linalg_complex_LU_refine},
15643 {"Math::GSL::Linalgc::gsl_linalg_complex_LU_invert", _wrap_gsl_linalg_complex_LU_invert},
15644 {"Math::GSL::Linalgc::gsl_linalg_complex_LU_invx", _wrap_gsl_linalg_complex_LU_invx},
15645 {"Math::GSL::Linalgc::gsl_linalg_complex_LU_det", _wrap_gsl_linalg_complex_LU_det},
15646 {"Math::GSL::Linalgc::gsl_linalg_complex_LU_lndet", _wrap_gsl_linalg_complex_LU_lndet},
15647 {"Math::GSL::Linalgc::gsl_linalg_complex_LU_sgndet", _wrap_gsl_linalg_complex_LU_sgndet},
15648 {"Math::GSL::Linalgc::gsl_linalg_QR_decomp", _wrap_gsl_linalg_QR_decomp},
15649 {"Math::GSL::Linalgc::gsl_linalg_QR_decomp_r", _wrap_gsl_linalg_QR_decomp_r},
15650 {"Math::GSL::Linalgc::gsl_linalg_QR_solve", _wrap_gsl_linalg_QR_solve},
15651 {"Math::GSL::Linalgc::gsl_linalg_QR_solve_r", _wrap_gsl_linalg_QR_solve_r},
15652 {"Math::GSL::Linalgc::gsl_linalg_QR_svx", _wrap_gsl_linalg_QR_svx},
15653 {"Math::GSL::Linalgc::gsl_linalg_QR_lssolve", _wrap_gsl_linalg_QR_lssolve},
15654 {"Math::GSL::Linalgc::gsl_linalg_QR_lssolve_r", _wrap_gsl_linalg_QR_lssolve_r},
15655 {"Math::GSL::Linalgc::gsl_linalg_QR_QRsolve", _wrap_gsl_linalg_QR_QRsolve},
15656 {"Math::GSL::Linalgc::gsl_linalg_QR_Rsolve", _wrap_gsl_linalg_QR_Rsolve},
15657 {"Math::GSL::Linalgc::gsl_linalg_QR_Rsvx", _wrap_gsl_linalg_QR_Rsvx},
15658 {"Math::GSL::Linalgc::gsl_linalg_QR_update", _wrap_gsl_linalg_QR_update},
15659 {"Math::GSL::Linalgc::gsl_linalg_QR_QTvec", _wrap_gsl_linalg_QR_QTvec},
15660 {"Math::GSL::Linalgc::gsl_linalg_QR_QTvec_r", _wrap_gsl_linalg_QR_QTvec_r},
15661 {"Math::GSL::Linalgc::gsl_linalg_QR_Qvec", _wrap_gsl_linalg_QR_Qvec},
15662 {"Math::GSL::Linalgc::gsl_linalg_QR_QTmat", _wrap_gsl_linalg_QR_QTmat},
15663 {"Math::GSL::Linalgc::gsl_linalg_QR_QTmat_r", _wrap_gsl_linalg_QR_QTmat_r},
15664 {"Math::GSL::Linalgc::gsl_linalg_QR_matQ", _wrap_gsl_linalg_QR_matQ},
15665 {"Math::GSL::Linalgc::gsl_linalg_QR_unpack", _wrap_gsl_linalg_QR_unpack},
15666 {"Math::GSL::Linalgc::gsl_linalg_QR_unpack_r", _wrap_gsl_linalg_QR_unpack_r},
15667 {"Math::GSL::Linalgc::gsl_linalg_R_solve", _wrap_gsl_linalg_R_solve},
15668 {"Math::GSL::Linalgc::gsl_linalg_R_svx", _wrap_gsl_linalg_R_svx},
15669 {"Math::GSL::Linalgc::gsl_linalg_QR_rcond", _wrap_gsl_linalg_QR_rcond},
15670 {"Math::GSL::Linalgc::gsl_linalg_QRPT_decomp", _wrap_gsl_linalg_QRPT_decomp},
15671 {"Math::GSL::Linalgc::gsl_linalg_QRPT_decomp2", _wrap_gsl_linalg_QRPT_decomp2},
15672 {"Math::GSL::Linalgc::gsl_linalg_QRPT_solve", _wrap_gsl_linalg_QRPT_solve},
15673 {"Math::GSL::Linalgc::gsl_linalg_QRPT_lssolve", _wrap_gsl_linalg_QRPT_lssolve},
15674 {"Math::GSL::Linalgc::gsl_linalg_QRPT_lssolve2", _wrap_gsl_linalg_QRPT_lssolve2},
15675 {"Math::GSL::Linalgc::gsl_linalg_QRPT_svx", _wrap_gsl_linalg_QRPT_svx},
15676 {"Math::GSL::Linalgc::gsl_linalg_QRPT_QRsolve", _wrap_gsl_linalg_QRPT_QRsolve},
15677 {"Math::GSL::Linalgc::gsl_linalg_QRPT_Rsolve", _wrap_gsl_linalg_QRPT_Rsolve},
15678 {"Math::GSL::Linalgc::gsl_linalg_QRPT_Rsvx", _wrap_gsl_linalg_QRPT_Rsvx},
15679 {"Math::GSL::Linalgc::gsl_linalg_QRPT_update", _wrap_gsl_linalg_QRPT_update},
15680 {"Math::GSL::Linalgc::gsl_linalg_QRPT_rank", _wrap_gsl_linalg_QRPT_rank},
15681 {"Math::GSL::Linalgc::gsl_linalg_QRPT_rcond", _wrap_gsl_linalg_QRPT_rcond},
15682 {"Math::GSL::Linalgc::gsl_linalg_COD_decomp", _wrap_gsl_linalg_COD_decomp},
15683 {"Math::GSL::Linalgc::gsl_linalg_COD_decomp_e", _wrap_gsl_linalg_COD_decomp_e},
15684 {"Math::GSL::Linalgc::gsl_linalg_COD_lssolve", _wrap_gsl_linalg_COD_lssolve},
15685 {"Math::GSL::Linalgc::gsl_linalg_COD_lssolve2", _wrap_gsl_linalg_COD_lssolve2},
15686 {"Math::GSL::Linalgc::gsl_linalg_COD_unpack", _wrap_gsl_linalg_COD_unpack},
15687 {"Math::GSL::Linalgc::gsl_linalg_COD_matZ", _wrap_gsl_linalg_COD_matZ},
15688 {"Math::GSL::Linalgc::gsl_linalg_LQ_decomp", _wrap_gsl_linalg_LQ_decomp},
15689 {"Math::GSL::Linalgc::gsl_linalg_LQ_lssolve", _wrap_gsl_linalg_LQ_lssolve},
15690 {"Math::GSL::Linalgc::gsl_linalg_LQ_QTvec", _wrap_gsl_linalg_LQ_QTvec},
15691 {"Math::GSL::Linalgc::gsl_linalg_LQ_solve_T", _wrap_gsl_linalg_LQ_solve_T},
15692 {"Math::GSL::Linalgc::gsl_linalg_LQ_svx_T", _wrap_gsl_linalg_LQ_svx_T},
15693 {"Math::GSL::Linalgc::gsl_linalg_LQ_lssolve_T", _wrap_gsl_linalg_LQ_lssolve_T},
15694 {"Math::GSL::Linalgc::gsl_linalg_LQ_Lsolve_T", _wrap_gsl_linalg_LQ_Lsolve_T},
15695 {"Math::GSL::Linalgc::gsl_linalg_LQ_Lsvx_T", _wrap_gsl_linalg_LQ_Lsvx_T},
15696 {"Math::GSL::Linalgc::gsl_linalg_L_solve_T", _wrap_gsl_linalg_L_solve_T},
15697 {"Math::GSL::Linalgc::gsl_linalg_LQ_vecQ", _wrap_gsl_linalg_LQ_vecQ},
15698 {"Math::GSL::Linalgc::gsl_linalg_LQ_vecQT", _wrap_gsl_linalg_LQ_vecQT},
15699 {"Math::GSL::Linalgc::gsl_linalg_LQ_unpack", _wrap_gsl_linalg_LQ_unpack},
15700 {"Math::GSL::Linalgc::gsl_linalg_LQ_update", _wrap_gsl_linalg_LQ_update},
15701 {"Math::GSL::Linalgc::gsl_linalg_LQ_LQsolve", _wrap_gsl_linalg_LQ_LQsolve},
15702 {"Math::GSL::Linalgc::gsl_linalg_PTLQ_decomp", _wrap_gsl_linalg_PTLQ_decomp},
15703 {"Math::GSL::Linalgc::gsl_linalg_PTLQ_decomp2", _wrap_gsl_linalg_PTLQ_decomp2},
15704 {"Math::GSL::Linalgc::gsl_linalg_PTLQ_solve_T", _wrap_gsl_linalg_PTLQ_solve_T},
15705 {"Math::GSL::Linalgc::gsl_linalg_PTLQ_svx_T", _wrap_gsl_linalg_PTLQ_svx_T},
15706 {"Math::GSL::Linalgc::gsl_linalg_PTLQ_LQsolve_T", _wrap_gsl_linalg_PTLQ_LQsolve_T},
15707 {"Math::GSL::Linalgc::gsl_linalg_PTLQ_Lsolve_T", _wrap_gsl_linalg_PTLQ_Lsolve_T},
15708 {"Math::GSL::Linalgc::gsl_linalg_PTLQ_Lsvx_T", _wrap_gsl_linalg_PTLQ_Lsvx_T},
15709 {"Math::GSL::Linalgc::gsl_linalg_PTLQ_update", _wrap_gsl_linalg_PTLQ_update},
15710 {"Math::GSL::Linalgc::gsl_linalg_cholesky_decomp", _wrap_gsl_linalg_cholesky_decomp},
15711 {"Math::GSL::Linalgc::gsl_linalg_cholesky_decomp1", _wrap_gsl_linalg_cholesky_decomp1},
15712 {"Math::GSL::Linalgc::gsl_linalg_cholesky_solve", _wrap_gsl_linalg_cholesky_solve},
15713 {"Math::GSL::Linalgc::gsl_linalg_cholesky_solve_mat", _wrap_gsl_linalg_cholesky_solve_mat},
15714 {"Math::GSL::Linalgc::gsl_linalg_cholesky_svx", _wrap_gsl_linalg_cholesky_svx},
15715 {"Math::GSL::Linalgc::gsl_linalg_cholesky_svx_mat", _wrap_gsl_linalg_cholesky_svx_mat},
15716 {"Math::GSL::Linalgc::gsl_linalg_cholesky_invert", _wrap_gsl_linalg_cholesky_invert},
15717 {"Math::GSL::Linalgc::gsl_linalg_cholesky_decomp_unit", _wrap_gsl_linalg_cholesky_decomp_unit},
15718 {"Math::GSL::Linalgc::gsl_linalg_cholesky_scale", _wrap_gsl_linalg_cholesky_scale},
15719 {"Math::GSL::Linalgc::gsl_linalg_cholesky_scale_apply", _wrap_gsl_linalg_cholesky_scale_apply},
15720 {"Math::GSL::Linalgc::gsl_linalg_cholesky_decomp2", _wrap_gsl_linalg_cholesky_decomp2},
15721 {"Math::GSL::Linalgc::gsl_linalg_cholesky_svx2", _wrap_gsl_linalg_cholesky_svx2},
15722 {"Math::GSL::Linalgc::gsl_linalg_cholesky_solve2", _wrap_gsl_linalg_cholesky_solve2},
15723 {"Math::GSL::Linalgc::gsl_linalg_cholesky_rcond", _wrap_gsl_linalg_cholesky_rcond},
15724 {"Math::GSL::Linalgc::gsl_linalg_complex_cholesky_decomp", _wrap_gsl_linalg_complex_cholesky_decomp},
15725 {"Math::GSL::Linalgc::gsl_linalg_complex_cholesky_solve", _wrap_gsl_linalg_complex_cholesky_solve},
15726 {"Math::GSL::Linalgc::gsl_linalg_complex_cholesky_svx", _wrap_gsl_linalg_complex_cholesky_svx},
15727 {"Math::GSL::Linalgc::gsl_linalg_complex_cholesky_invert", _wrap_gsl_linalg_complex_cholesky_invert},
15728 {"Math::GSL::Linalgc::gsl_linalg_pcholesky_decomp", _wrap_gsl_linalg_pcholesky_decomp},
15729 {"Math::GSL::Linalgc::gsl_linalg_pcholesky_solve", _wrap_gsl_linalg_pcholesky_solve},
15730 {"Math::GSL::Linalgc::gsl_linalg_pcholesky_svx", _wrap_gsl_linalg_pcholesky_svx},
15731 {"Math::GSL::Linalgc::gsl_linalg_pcholesky_decomp2", _wrap_gsl_linalg_pcholesky_decomp2},
15732 {"Math::GSL::Linalgc::gsl_linalg_pcholesky_solve2", _wrap_gsl_linalg_pcholesky_solve2},
15733 {"Math::GSL::Linalgc::gsl_linalg_pcholesky_svx2", _wrap_gsl_linalg_pcholesky_svx2},
15734 {"Math::GSL::Linalgc::gsl_linalg_pcholesky_invert", _wrap_gsl_linalg_pcholesky_invert},
15735 {"Math::GSL::Linalgc::gsl_linalg_pcholesky_rcond", _wrap_gsl_linalg_pcholesky_rcond},
15736 {"Math::GSL::Linalgc::gsl_linalg_mcholesky_decomp", _wrap_gsl_linalg_mcholesky_decomp},
15737 {"Math::GSL::Linalgc::gsl_linalg_mcholesky_solve", _wrap_gsl_linalg_mcholesky_solve},
15738 {"Math::GSL::Linalgc::gsl_linalg_mcholesky_svx", _wrap_gsl_linalg_mcholesky_svx},
15739 {"Math::GSL::Linalgc::gsl_linalg_mcholesky_rcond", _wrap_gsl_linalg_mcholesky_rcond},
15740 {"Math::GSL::Linalgc::gsl_linalg_mcholesky_invert", _wrap_gsl_linalg_mcholesky_invert},
15741 {"Math::GSL::Linalgc::gsl_linalg_cholesky_band_decomp", _wrap_gsl_linalg_cholesky_band_decomp},
15742 {"Math::GSL::Linalgc::gsl_linalg_cholesky_band_solve", _wrap_gsl_linalg_cholesky_band_solve},
15743 {"Math::GSL::Linalgc::gsl_linalg_cholesky_band_svx", _wrap_gsl_linalg_cholesky_band_svx},
15744 {"Math::GSL::Linalgc::gsl_linalg_cholesky_band_invert", _wrap_gsl_linalg_cholesky_band_invert},
15745 {"Math::GSL::Linalgc::gsl_linalg_cholesky_band_unpack", _wrap_gsl_linalg_cholesky_band_unpack},
15746 {"Math::GSL::Linalgc::gsl_linalg_cholesky_band_rcond", _wrap_gsl_linalg_cholesky_band_rcond},
15747 {"Math::GSL::Linalgc::gsl_linalg_ldlt_decomp", _wrap_gsl_linalg_ldlt_decomp},
15748 {"Math::GSL::Linalgc::gsl_linalg_ldlt_solve", _wrap_gsl_linalg_ldlt_solve},
15749 {"Math::GSL::Linalgc::gsl_linalg_ldlt_svx", _wrap_gsl_linalg_ldlt_svx},
15750 {"Math::GSL::Linalgc::gsl_linalg_ldlt_rcond", _wrap_gsl_linalg_ldlt_rcond},
15751 {"Math::GSL::Linalgc::gsl_linalg_ldlt_band_decomp", _wrap_gsl_linalg_ldlt_band_decomp},
15752 {"Math::GSL::Linalgc::gsl_linalg_ldlt_band_solve", _wrap_gsl_linalg_ldlt_band_solve},
15753 {"Math::GSL::Linalgc::gsl_linalg_ldlt_band_svx", _wrap_gsl_linalg_ldlt_band_svx},
15754 {"Math::GSL::Linalgc::gsl_linalg_ldlt_band_unpack", _wrap_gsl_linalg_ldlt_band_unpack},
15755 {"Math::GSL::Linalgc::gsl_linalg_ldlt_band_rcond", _wrap_gsl_linalg_ldlt_band_rcond},
15756 {"Math::GSL::Linalgc::gsl_linalg_symmtd_decomp", _wrap_gsl_linalg_symmtd_decomp},
15757 {"Math::GSL::Linalgc::gsl_linalg_symmtd_unpack", _wrap_gsl_linalg_symmtd_unpack},
15758 {"Math::GSL::Linalgc::gsl_linalg_symmtd_unpack_T", _wrap_gsl_linalg_symmtd_unpack_T},
15759 {"Math::GSL::Linalgc::gsl_linalg_hermtd_decomp", _wrap_gsl_linalg_hermtd_decomp},
15760 {"Math::GSL::Linalgc::gsl_linalg_hermtd_unpack", _wrap_gsl_linalg_hermtd_unpack},
15761 {"Math::GSL::Linalgc::gsl_linalg_hermtd_unpack_T", _wrap_gsl_linalg_hermtd_unpack_T},
15762 {"Math::GSL::Linalgc::gsl_linalg_HH_solve", _wrap_gsl_linalg_HH_solve},
15763 {"Math::GSL::Linalgc::gsl_linalg_HH_svx", _wrap_gsl_linalg_HH_svx},
15764 {"Math::GSL::Linalgc::gsl_linalg_solve_symm_tridiag", _wrap_gsl_linalg_solve_symm_tridiag},
15765 {"Math::GSL::Linalgc::gsl_linalg_solve_tridiag", _wrap_gsl_linalg_solve_tridiag},
15766 {"Math::GSL::Linalgc::gsl_linalg_solve_symm_cyc_tridiag", _wrap_gsl_linalg_solve_symm_cyc_tridiag},
15767 {"Math::GSL::Linalgc::gsl_linalg_solve_cyc_tridiag", _wrap_gsl_linalg_solve_cyc_tridiag},
15768 {"Math::GSL::Linalgc::gsl_linalg_bidiag_decomp", _wrap_gsl_linalg_bidiag_decomp},
15769 {"Math::GSL::Linalgc::gsl_linalg_bidiag_unpack", _wrap_gsl_linalg_bidiag_unpack},
15770 {"Math::GSL::Linalgc::gsl_linalg_bidiag_unpack2", _wrap_gsl_linalg_bidiag_unpack2},
15771 {"Math::GSL::Linalgc::gsl_linalg_bidiag_unpack_B", _wrap_gsl_linalg_bidiag_unpack_B},
15772 {"Math::GSL::Linalgc::gsl_linalg_balance_matrix", _wrap_gsl_linalg_balance_matrix},
15773 {"Math::GSL::Linalgc::gsl_linalg_balance_accum", _wrap_gsl_linalg_balance_accum},
15774 {"Math::GSL::Linalgc::gsl_linalg_balance_columns", _wrap_gsl_linalg_balance_columns},
15775 {"Math::GSL::Linalgc::gsl_linalg_tri_rcond", _wrap_gsl_linalg_tri_rcond},
15776 {"Math::GSL::Linalgc::gsl_linalg_tri_upper_rcond", _wrap_gsl_linalg_tri_upper_rcond},
15777 {"Math::GSL::Linalgc::gsl_linalg_tri_lower_rcond", _wrap_gsl_linalg_tri_lower_rcond},
15778 {"Math::GSL::Linalgc::gsl_linalg_invnorm1", _wrap_gsl_linalg_invnorm1},
15779 {"Math::GSL::Linalgc::gsl_linalg_tri_upper_invert", _wrap_gsl_linalg_tri_upper_invert},
15780 {"Math::GSL::Linalgc::gsl_linalg_tri_lower_invert", _wrap_gsl_linalg_tri_lower_invert},
15781 {"Math::GSL::Linalgc::gsl_linalg_tri_upper_unit_invert", _wrap_gsl_linalg_tri_upper_unit_invert},
15782 {"Math::GSL::Linalgc::gsl_linalg_tri_lower_unit_invert", _wrap_gsl_linalg_tri_lower_unit_invert},
15783 {"Math::GSL::Linalgc::gsl_linalg_tri_invert", _wrap_gsl_linalg_tri_invert},
15784 {"Math::GSL::Linalgc::gsl_linalg_complex_tri_invert", _wrap_gsl_linalg_complex_tri_invert},
15785 {"Math::GSL::Linalgc::gsl_linalg_tri_LTL", _wrap_gsl_linalg_tri_LTL},
15786 {"Math::GSL::Linalgc::gsl_linalg_tri_UL", _wrap_gsl_linalg_tri_UL},
15787 {"Math::GSL::Linalgc::gsl_linalg_complex_tri_LHL", _wrap_gsl_linalg_complex_tri_LHL},
15788 {"Math::GSL::Linalgc::gsl_linalg_complex_tri_UL", _wrap_gsl_linalg_complex_tri_UL},
15789 {"Math::GSL::Linalgc::gsl_linalg_givens", _wrap_gsl_linalg_givens},
15790 {"Math::GSL::Linalgc::gsl_linalg_givens_gv", _wrap_gsl_linalg_givens_gv},
15791 {"Math::GSL::Linalgc::gsl_permutation_struct_size_set", _wrap_gsl_permutation_struct_size_set},
15792 {"Math::GSL::Linalgc::gsl_permutation_struct_size_get", _wrap_gsl_permutation_struct_size_get},
15793 {"Math::GSL::Linalgc::gsl_permutation_struct_data_set", _wrap_gsl_permutation_struct_data_set},
15794 {"Math::GSL::Linalgc::gsl_permutation_struct_data_get", _wrap_gsl_permutation_struct_data_get},
15795 {"Math::GSL::Linalgc::new_gsl_permutation_struct", _wrap_new_gsl_permutation_struct},
15796 {"Math::GSL::Linalgc::delete_gsl_permutation_struct", _wrap_delete_gsl_permutation_struct},
15797 {"Math::GSL::Linalgc::gsl_permutation_alloc", _wrap_gsl_permutation_alloc},
15798 {"Math::GSL::Linalgc::gsl_permutation_calloc", _wrap_gsl_permutation_calloc},
15799 {"Math::GSL::Linalgc::gsl_permutation_init", _wrap_gsl_permutation_init},
15800 {"Math::GSL::Linalgc::gsl_permutation_free", _wrap_gsl_permutation_free},
15801 {"Math::GSL::Linalgc::gsl_permutation_memcpy", _wrap_gsl_permutation_memcpy},
15802 {"Math::GSL::Linalgc::gsl_permutation_fread", _wrap_gsl_permutation_fread},
15803 {"Math::GSL::Linalgc::gsl_permutation_fwrite", _wrap_gsl_permutation_fwrite},
15804 {"Math::GSL::Linalgc::gsl_permutation_fscanf", _wrap_gsl_permutation_fscanf},
15805 {"Math::GSL::Linalgc::gsl_permutation_fprintf", _wrap_gsl_permutation_fprintf},
15806 {"Math::GSL::Linalgc::gsl_permutation_size", _wrap_gsl_permutation_size},
15807 {"Math::GSL::Linalgc::gsl_permutation_data", _wrap_gsl_permutation_data},
15808 {"Math::GSL::Linalgc::gsl_permutation_swap", _wrap_gsl_permutation_swap},
15809 {"Math::GSL::Linalgc::gsl_permutation_valid", _wrap_gsl_permutation_valid},
15810 {"Math::GSL::Linalgc::gsl_permutation_reverse", _wrap_gsl_permutation_reverse},
15811 {"Math::GSL::Linalgc::gsl_permutation_inverse", _wrap_gsl_permutation_inverse},
15812 {"Math::GSL::Linalgc::gsl_permutation_next", _wrap_gsl_permutation_next},
15813 {"Math::GSL::Linalgc::gsl_permutation_prev", _wrap_gsl_permutation_prev},
15814 {"Math::GSL::Linalgc::gsl_permutation_mul", _wrap_gsl_permutation_mul},
15815 {"Math::GSL::Linalgc::gsl_permutation_linear_to_canonical", _wrap_gsl_permutation_linear_to_canonical},
15816 {"Math::GSL::Linalgc::gsl_permutation_canonical_to_linear", _wrap_gsl_permutation_canonical_to_linear},
15817 {"Math::GSL::Linalgc::gsl_permutation_inversions", _wrap_gsl_permutation_inversions},
15818 {"Math::GSL::Linalgc::gsl_permutation_linear_cycles", _wrap_gsl_permutation_linear_cycles},
15819 {"Math::GSL::Linalgc::gsl_permutation_canonical_cycles", _wrap_gsl_permutation_canonical_cycles},
15820 {"Math::GSL::Linalgc::gsl_permutation_get", _wrap_gsl_permutation_get},
15821 {"Math::GSL::Linalgc::gsl_complex_dat_set", _wrap_gsl_complex_dat_set},
15822 {"Math::GSL::Linalgc::gsl_complex_dat_get", _wrap_gsl_complex_dat_get},
15823 {"Math::GSL::Linalgc::new_gsl_complex", _wrap_new_gsl_complex},
15824 {"Math::GSL::Linalgc::delete_gsl_complex", _wrap_delete_gsl_complex},
15825 {"Math::GSL::Linalgc::gsl_complex_long_double_dat_set", _wrap_gsl_complex_long_double_dat_set},
15826 {"Math::GSL::Linalgc::gsl_complex_long_double_dat_get", _wrap_gsl_complex_long_double_dat_get},
15827 {"Math::GSL::Linalgc::new_gsl_complex_long_double", _wrap_new_gsl_complex_long_double},
15828 {"Math::GSL::Linalgc::delete_gsl_complex_long_double", _wrap_delete_gsl_complex_long_double},
15829 {"Math::GSL::Linalgc::gsl_complex_float_dat_set", _wrap_gsl_complex_float_dat_set},
15830 {"Math::GSL::Linalgc::gsl_complex_float_dat_get", _wrap_gsl_complex_float_dat_get},
15831 {"Math::GSL::Linalgc::new_gsl_complex_float", _wrap_new_gsl_complex_float},
15832 {"Math::GSL::Linalgc::delete_gsl_complex_float", _wrap_delete_gsl_complex_float},
15833 {"Math::GSL::Linalgc::gsl_complex_polar", _wrap_gsl_complex_polar},
15834 {"Math::GSL::Linalgc::gsl_complex_rect", _wrap_gsl_complex_rect},
15835 {"Math::GSL::Linalgc::gsl_complex_arg", _wrap_gsl_complex_arg},
15836 {"Math::GSL::Linalgc::gsl_complex_abs", _wrap_gsl_complex_abs},
15837 {"Math::GSL::Linalgc::gsl_complex_abs2", _wrap_gsl_complex_abs2},
15838 {"Math::GSL::Linalgc::gsl_complex_logabs", _wrap_gsl_complex_logabs},
15839 {"Math::GSL::Linalgc::gsl_complex_add", _wrap_gsl_complex_add},
15840 {"Math::GSL::Linalgc::gsl_complex_sub", _wrap_gsl_complex_sub},
15841 {"Math::GSL::Linalgc::gsl_complex_mul", _wrap_gsl_complex_mul},
15842 {"Math::GSL::Linalgc::gsl_complex_div", _wrap_gsl_complex_div},
15843 {"Math::GSL::Linalgc::gsl_complex_add_real", _wrap_gsl_complex_add_real},
15844 {"Math::GSL::Linalgc::gsl_complex_sub_real", _wrap_gsl_complex_sub_real},
15845 {"Math::GSL::Linalgc::gsl_complex_mul_real", _wrap_gsl_complex_mul_real},
15846 {"Math::GSL::Linalgc::gsl_complex_div_real", _wrap_gsl_complex_div_real},
15847 {"Math::GSL::Linalgc::gsl_complex_add_imag", _wrap_gsl_complex_add_imag},
15848 {"Math::GSL::Linalgc::gsl_complex_sub_imag", _wrap_gsl_complex_sub_imag},
15849 {"Math::GSL::Linalgc::gsl_complex_mul_imag", _wrap_gsl_complex_mul_imag},
15850 {"Math::GSL::Linalgc::gsl_complex_div_imag", _wrap_gsl_complex_div_imag},
15851 {"Math::GSL::Linalgc::gsl_complex_conjugate", _wrap_gsl_complex_conjugate},
15852 {"Math::GSL::Linalgc::gsl_complex_inverse", _wrap_gsl_complex_inverse},
15853 {"Math::GSL::Linalgc::gsl_complex_negative", _wrap_gsl_complex_negative},
15854 {"Math::GSL::Linalgc::gsl_complex_sqrt", _wrap_gsl_complex_sqrt},
15855 {"Math::GSL::Linalgc::gsl_complex_sqrt_real", _wrap_gsl_complex_sqrt_real},
15856 {"Math::GSL::Linalgc::gsl_complex_pow", _wrap_gsl_complex_pow},
15857 {"Math::GSL::Linalgc::gsl_complex_pow_real", _wrap_gsl_complex_pow_real},
15858 {"Math::GSL::Linalgc::gsl_complex_exp", _wrap_gsl_complex_exp},
15859 {"Math::GSL::Linalgc::gsl_complex_log", _wrap_gsl_complex_log},
15860 {"Math::GSL::Linalgc::gsl_complex_log10", _wrap_gsl_complex_log10},
15861 {"Math::GSL::Linalgc::gsl_complex_log_b", _wrap_gsl_complex_log_b},
15862 {"Math::GSL::Linalgc::gsl_complex_sin", _wrap_gsl_complex_sin},
15863 {"Math::GSL::Linalgc::gsl_complex_cos", _wrap_gsl_complex_cos},
15864 {"Math::GSL::Linalgc::gsl_complex_sec", _wrap_gsl_complex_sec},
15865 {"Math::GSL::Linalgc::gsl_complex_csc", _wrap_gsl_complex_csc},
15866 {"Math::GSL::Linalgc::gsl_complex_tan", _wrap_gsl_complex_tan},
15867 {"Math::GSL::Linalgc::gsl_complex_cot", _wrap_gsl_complex_cot},
15868 {"Math::GSL::Linalgc::gsl_complex_arcsin", _wrap_gsl_complex_arcsin},
15869 {"Math::GSL::Linalgc::gsl_complex_arcsin_real", _wrap_gsl_complex_arcsin_real},
15870 {"Math::GSL::Linalgc::gsl_complex_arccos", _wrap_gsl_complex_arccos},
15871 {"Math::GSL::Linalgc::gsl_complex_arccos_real", _wrap_gsl_complex_arccos_real},
15872 {"Math::GSL::Linalgc::gsl_complex_arcsec", _wrap_gsl_complex_arcsec},
15873 {"Math::GSL::Linalgc::gsl_complex_arcsec_real", _wrap_gsl_complex_arcsec_real},
15874 {"Math::GSL::Linalgc::gsl_complex_arccsc", _wrap_gsl_complex_arccsc},
15875 {"Math::GSL::Linalgc::gsl_complex_arccsc_real", _wrap_gsl_complex_arccsc_real},
15876 {"Math::GSL::Linalgc::gsl_complex_arctan", _wrap_gsl_complex_arctan},
15877 {"Math::GSL::Linalgc::gsl_complex_arccot", _wrap_gsl_complex_arccot},
15878 {"Math::GSL::Linalgc::gsl_complex_sinh", _wrap_gsl_complex_sinh},
15879 {"Math::GSL::Linalgc::gsl_complex_cosh", _wrap_gsl_complex_cosh},
15880 {"Math::GSL::Linalgc::gsl_complex_sech", _wrap_gsl_complex_sech},
15881 {"Math::GSL::Linalgc::gsl_complex_csch", _wrap_gsl_complex_csch},
15882 {"Math::GSL::Linalgc::gsl_complex_tanh", _wrap_gsl_complex_tanh},
15883 {"Math::GSL::Linalgc::gsl_complex_coth", _wrap_gsl_complex_coth},
15884 {"Math::GSL::Linalgc::gsl_complex_arcsinh", _wrap_gsl_complex_arcsinh},
15885 {"Math::GSL::Linalgc::gsl_complex_arccosh", _wrap_gsl_complex_arccosh},
15886 {"Math::GSL::Linalgc::gsl_complex_arccosh_real", _wrap_gsl_complex_arccosh_real},
15887 {"Math::GSL::Linalgc::gsl_complex_arcsech", _wrap_gsl_complex_arcsech},
15888 {"Math::GSL::Linalgc::gsl_complex_arccsch", _wrap_gsl_complex_arccsch},
15889 {"Math::GSL::Linalgc::gsl_complex_arctanh", _wrap_gsl_complex_arctanh},
15890 {"Math::GSL::Linalgc::gsl_complex_arctanh_real", _wrap_gsl_complex_arctanh_real},
15891 {"Math::GSL::Linalgc::gsl_complex_arccoth", _wrap_gsl_complex_arccoth},
15892 {0,0}
15893 };
15894 /* -----------------------------------------------------------------------------
15895 * Type initialization:
15896 * This problem is tough by the requirement that no dynamic
15897 * memory is used. Also, since swig_type_info structures store pointers to
15898 * swig_cast_info structures and swig_cast_info structures store pointers back
15899 * to swig_type_info structures, we need some lookup code at initialization.
15900 * The idea is that swig generates all the structures that are needed.
15901 * The runtime then collects these partially filled structures.
15902 * The SWIG_InitializeModule function takes these initial arrays out of
15903 * swig_module, and does all the lookup, filling in the swig_module.types
15904 * array with the correct data and linking the correct swig_cast_info
15905 * structures together.
15906 *
15907 * The generated swig_type_info structures are assigned statically to an initial
15908 * array. We just loop through that array, and handle each type individually.
15909 * First we lookup if this type has been already loaded, and if so, use the
15910 * loaded structure instead of the generated one. Then we have to fill in the
15911 * cast linked list. The cast data is initially stored in something like a
15912 * two-dimensional array. Each row corresponds to a type (there are the same
15913 * number of rows as there are in the swig_type_initial array). Each entry in
15914 * a column is one of the swig_cast_info structures for that type.
15915 * The cast_initial array is actually an array of arrays, because each row has
15916 * a variable number of columns. So to actually build the cast linked list,
15917 * we find the array of casts associated with the type, and loop through it
15918 * adding the casts to the list. The one last trick we need to do is making
15919 * sure the type pointer in the swig_cast_info struct is correct.
15920 *
15921 * First off, we lookup the cast->type name to see if it is already loaded.
15922 * There are three cases to handle:
15923 * 1) If the cast->type has already been loaded AND the type we are adding
15924 * casting info to has not been loaded (it is in this module), THEN we
15925 * replace the cast->type pointer with the type pointer that has already
15926 * been loaded.
15927 * 2) If BOTH types (the one we are adding casting info to, and the
15928 * cast->type) are loaded, THEN the cast info has already been loaded by
15929 * the previous module so we just ignore it.
15930 * 3) Finally, if cast->type has not already been loaded, then we add that
15931 * swig_cast_info to the linked list (because the cast->type) pointer will
15932 * be correct.
15933 * ----------------------------------------------------------------------------- */
15934
15935 #ifdef __cplusplus
15936 extern "C" {
15937 #if 0
15938 } /* c-mode */
15939 #endif
15940 #endif
15941
15942 #if 0
15943 #define SWIGRUNTIME_DEBUG
15944 #endif
15945
15946
15947 SWIGRUNTIME void
SWIG_InitializeModule(void * clientdata)15948 SWIG_InitializeModule(void *clientdata) {
15949 size_t i;
15950 swig_module_info *module_head, *iter;
15951 int init;
15952
15953 /* check to see if the circular list has been setup, if not, set it up */
15954 if (swig_module.next==0) {
15955 /* Initialize the swig_module */
15956 swig_module.type_initial = swig_type_initial;
15957 swig_module.cast_initial = swig_cast_initial;
15958 swig_module.next = &swig_module;
15959 init = 1;
15960 } else {
15961 init = 0;
15962 }
15963
15964 /* Try and load any already created modules */
15965 module_head = SWIG_GetModule(clientdata);
15966 if (!module_head) {
15967 /* This is the first module loaded for this interpreter */
15968 /* so set the swig module into the interpreter */
15969 SWIG_SetModule(clientdata, &swig_module);
15970 } else {
15971 /* the interpreter has loaded a SWIG module, but has it loaded this one? */
15972 iter=module_head;
15973 do {
15974 if (iter==&swig_module) {
15975 /* Our module is already in the list, so there's nothing more to do. */
15976 return;
15977 }
15978 iter=iter->next;
15979 } while (iter!= module_head);
15980
15981 /* otherwise we must add our module into the list */
15982 swig_module.next = module_head->next;
15983 module_head->next = &swig_module;
15984 }
15985
15986 /* When multiple interpreters are used, a module could have already been initialized in
15987 a different interpreter, but not yet have a pointer in this interpreter.
15988 In this case, we do not want to continue adding types... everything should be
15989 set up already */
15990 if (init == 0) return;
15991
15992 /* Now work on filling in swig_module.types */
15993 #ifdef SWIGRUNTIME_DEBUG
15994 printf("SWIG_InitializeModule: size %lu\n", (unsigned long)swig_module.size);
15995 #endif
15996 for (i = 0; i < swig_module.size; ++i) {
15997 swig_type_info *type = 0;
15998 swig_type_info *ret;
15999 swig_cast_info *cast;
16000
16001 #ifdef SWIGRUNTIME_DEBUG
16002 printf("SWIG_InitializeModule: type %lu %s\n", (unsigned long)i, swig_module.type_initial[i]->name);
16003 #endif
16004
16005 /* if there is another module already loaded */
16006 if (swig_module.next != &swig_module) {
16007 type = SWIG_MangledTypeQueryModule(swig_module.next, &swig_module, swig_module.type_initial[i]->name);
16008 }
16009 if (type) {
16010 /* Overwrite clientdata field */
16011 #ifdef SWIGRUNTIME_DEBUG
16012 printf("SWIG_InitializeModule: found type %s\n", type->name);
16013 #endif
16014 if (swig_module.type_initial[i]->clientdata) {
16015 type->clientdata = swig_module.type_initial[i]->clientdata;
16016 #ifdef SWIGRUNTIME_DEBUG
16017 printf("SWIG_InitializeModule: found and overwrite type %s \n", type->name);
16018 #endif
16019 }
16020 } else {
16021 type = swig_module.type_initial[i];
16022 }
16023
16024 /* Insert casting types */
16025 cast = swig_module.cast_initial[i];
16026 while (cast->type) {
16027 /* Don't need to add information already in the list */
16028 ret = 0;
16029 #ifdef SWIGRUNTIME_DEBUG
16030 printf("SWIG_InitializeModule: look cast %s\n", cast->type->name);
16031 #endif
16032 if (swig_module.next != &swig_module) {
16033 ret = SWIG_MangledTypeQueryModule(swig_module.next, &swig_module, cast->type->name);
16034 #ifdef SWIGRUNTIME_DEBUG
16035 if (ret) printf("SWIG_InitializeModule: found cast %s\n", ret->name);
16036 #endif
16037 }
16038 if (ret) {
16039 if (type == swig_module.type_initial[i]) {
16040 #ifdef SWIGRUNTIME_DEBUG
16041 printf("SWIG_InitializeModule: skip old type %s\n", ret->name);
16042 #endif
16043 cast->type = ret;
16044 ret = 0;
16045 } else {
16046 /* Check for casting already in the list */
16047 swig_cast_info *ocast = SWIG_TypeCheck(ret->name, type);
16048 #ifdef SWIGRUNTIME_DEBUG
16049 if (ocast) printf("SWIG_InitializeModule: skip old cast %s\n", ret->name);
16050 #endif
16051 if (!ocast) ret = 0;
16052 }
16053 }
16054
16055 if (!ret) {
16056 #ifdef SWIGRUNTIME_DEBUG
16057 printf("SWIG_InitializeModule: adding cast %s\n", cast->type->name);
16058 #endif
16059 if (type->cast) {
16060 type->cast->prev = cast;
16061 cast->next = type->cast;
16062 }
16063 type->cast = cast;
16064 }
16065 cast++;
16066 }
16067 /* Set entry in modules->types array equal to the type */
16068 swig_module.types[i] = type;
16069 }
16070 swig_module.types[i] = 0;
16071
16072 #ifdef SWIGRUNTIME_DEBUG
16073 printf("**** SWIG_InitializeModule: Cast List ******\n");
16074 for (i = 0; i < swig_module.size; ++i) {
16075 int j = 0;
16076 swig_cast_info *cast = swig_module.cast_initial[i];
16077 printf("SWIG_InitializeModule: type %lu %s\n", (unsigned long)i, swig_module.type_initial[i]->name);
16078 while (cast->type) {
16079 printf("SWIG_InitializeModule: cast type %s\n", cast->type->name);
16080 cast++;
16081 ++j;
16082 }
16083 printf("---- Total casts: %d\n",j);
16084 }
16085 printf("**** SWIG_InitializeModule: Cast List ******\n");
16086 #endif
16087 }
16088
16089 /* This function will propagate the clientdata field of type to
16090 * any new swig_type_info structures that have been added into the list
16091 * of equivalent types. It is like calling
16092 * SWIG_TypeClientData(type, clientdata) a second time.
16093 */
16094 SWIGRUNTIME void
SWIG_PropagateClientData(void)16095 SWIG_PropagateClientData(void) {
16096 size_t i;
16097 swig_cast_info *equiv;
16098 static int init_run = 0;
16099
16100 if (init_run) return;
16101 init_run = 1;
16102
16103 for (i = 0; i < swig_module.size; i++) {
16104 if (swig_module.types[i]->clientdata) {
16105 equiv = swig_module.types[i]->cast;
16106 while (equiv) {
16107 if (!equiv->converter) {
16108 if (equiv->type && !equiv->type->clientdata)
16109 SWIG_TypeClientData(equiv->type, swig_module.types[i]->clientdata);
16110 }
16111 equiv = equiv->next;
16112 }
16113 }
16114 }
16115 }
16116
16117 #ifdef __cplusplus
16118 #if 0
16119 {
16120 /* c-mode */
16121 #endif
16122 }
16123 #endif
16124
16125
16126
16127 #if defined(__cplusplus) && ! defined(XSPROTO)
16128 extern "C"
16129 #endif
16130
XS(SWIG_init)16131 XS(SWIG_init) {
16132 dXSARGS;
16133 int i;
16134 (void)items;
16135
16136 SWIG_InitializeModule(0);
16137
16138 /* Install commands */
16139 for (i = 0; swig_commands[i].name; i++) {
16140 /* Casts only needed for Perl < 5.10. */
16141 #ifdef __cplusplus
16142 newXS(const_cast<char*>(swig_commands[i].name), swig_commands[i].wrapper, const_cast<char*>(__FILE__));
16143 #else
16144 newXS((char*)swig_commands[i].name, swig_commands[i].wrapper, (char*)__FILE__);
16145 #endif
16146 }
16147
16148 /* Install variables */
16149 for (i = 0; swig_variables[i].name; i++) {
16150 SV *sv;
16151 sv = get_sv(swig_variables[i].name, TRUE | 0x2 | GV_ADDMULTI);
16152 if (swig_variables[i].type) {
16153 SWIG_MakePtr(sv,(void *)1, *swig_variables[i].type,0);
16154 } else {
16155 sv_setiv(sv,(IV) 0);
16156 }
16157 swig_create_magic(sv, swig_variables[i].name, swig_variables[i].set, swig_variables[i].get);
16158 }
16159
16160 /* Install constant */
16161 for (i = 0; swig_constants[i].type; i++) {
16162 SV *sv;
16163 sv = get_sv(swig_constants[i].name, TRUE | 0x2 | GV_ADDMULTI);
16164 switch(swig_constants[i].type) {
16165 case SWIG_INT:
16166 sv_setiv(sv, (IV) swig_constants[i].lvalue);
16167 break;
16168 case SWIG_FLOAT:
16169 sv_setnv(sv, (double) swig_constants[i].dvalue);
16170 break;
16171 case SWIG_STRING:
16172 sv_setpv(sv, (const char *) swig_constants[i].pvalue);
16173 break;
16174 case SWIG_POINTER:
16175 SWIG_MakePtr(sv, swig_constants[i].pvalue, *(swig_constants[i].ptype),0);
16176 break;
16177 case SWIG_BINARY:
16178 SWIG_MakePackedObj(sv, swig_constants[i].pvalue, swig_constants[i].lvalue, *(swig_constants[i].ptype));
16179 break;
16180 default:
16181 break;
16182 }
16183 SvREADONLY_on(sv);
16184 }
16185
16186 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
16187 SV *sv = get_sv((char*) SWIG_prefix "GSL_VERSION", TRUE | 0x2 | GV_ADDMULTI);
16188 sv_setsv(sv, SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(2.7)));
16189 SvREADONLY_on(sv);
16190 } while(0) /*@SWIG@*/;
16191 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
16192 SV *sv = get_sv((char*) SWIG_prefix "GSL_MAJOR_VERSION", TRUE | 0x2 | GV_ADDMULTI);
16193 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(2)));
16194 SvREADONLY_on(sv);
16195 } while(0) /*@SWIG@*/;
16196 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
16197 SV *sv = get_sv((char*) SWIG_prefix "GSL_MINOR_VERSION", TRUE | 0x2 | GV_ADDMULTI);
16198 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(7)));
16199 SvREADONLY_on(sv);
16200 } while(0) /*@SWIG@*/;
16201 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
16202 SV *sv = get_sv((char*) SWIG_prefix "GSL_POSZERO", TRUE | 0x2 | GV_ADDMULTI);
16203 sv_setsv(sv, SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)((+0.0))));
16204 SvREADONLY_on(sv);
16205 } while(0) /*@SWIG@*/;
16206 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
16207 SV *sv = get_sv((char*) SWIG_prefix "GSL_NEGZERO", TRUE | 0x2 | GV_ADDMULTI);
16208 sv_setsv(sv, SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)((-0.0))));
16209 SvREADONLY_on(sv);
16210 } while(0) /*@SWIG@*/;
16211 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
16212 SV *sv = get_sv((char*) SWIG_prefix "GSL_SUCCESS", TRUE | 0x2 | GV_ADDMULTI);
16213 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_SUCCESS)));
16214 SvREADONLY_on(sv);
16215 } while(0) /*@SWIG@*/;
16216 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
16217 SV *sv = get_sv((char*) SWIG_prefix "GSL_FAILURE", TRUE | 0x2 | GV_ADDMULTI);
16218 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_FAILURE)));
16219 SvREADONLY_on(sv);
16220 } while(0) /*@SWIG@*/;
16221 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
16222 SV *sv = get_sv((char*) SWIG_prefix "GSL_CONTINUE", TRUE | 0x2 | GV_ADDMULTI);
16223 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_CONTINUE)));
16224 SvREADONLY_on(sv);
16225 } while(0) /*@SWIG@*/;
16226 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
16227 SV *sv = get_sv((char*) SWIG_prefix "GSL_EDOM", TRUE | 0x2 | GV_ADDMULTI);
16228 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EDOM)));
16229 SvREADONLY_on(sv);
16230 } while(0) /*@SWIG@*/;
16231 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
16232 SV *sv = get_sv((char*) SWIG_prefix "GSL_ERANGE", TRUE | 0x2 | GV_ADDMULTI);
16233 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ERANGE)));
16234 SvREADONLY_on(sv);
16235 } while(0) /*@SWIG@*/;
16236 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
16237 SV *sv = get_sv((char*) SWIG_prefix "GSL_EFAULT", TRUE | 0x2 | GV_ADDMULTI);
16238 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EFAULT)));
16239 SvREADONLY_on(sv);
16240 } while(0) /*@SWIG@*/;
16241 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
16242 SV *sv = get_sv((char*) SWIG_prefix "GSL_EINVAL", TRUE | 0x2 | GV_ADDMULTI);
16243 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EINVAL)));
16244 SvREADONLY_on(sv);
16245 } while(0) /*@SWIG@*/;
16246 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
16247 SV *sv = get_sv((char*) SWIG_prefix "GSL_EFAILED", TRUE | 0x2 | GV_ADDMULTI);
16248 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EFAILED)));
16249 SvREADONLY_on(sv);
16250 } while(0) /*@SWIG@*/;
16251 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
16252 SV *sv = get_sv((char*) SWIG_prefix "GSL_EFACTOR", TRUE | 0x2 | GV_ADDMULTI);
16253 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EFACTOR)));
16254 SvREADONLY_on(sv);
16255 } while(0) /*@SWIG@*/;
16256 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
16257 SV *sv = get_sv((char*) SWIG_prefix "GSL_ESANITY", TRUE | 0x2 | GV_ADDMULTI);
16258 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ESANITY)));
16259 SvREADONLY_on(sv);
16260 } while(0) /*@SWIG@*/;
16261 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
16262 SV *sv = get_sv((char*) SWIG_prefix "GSL_ENOMEM", TRUE | 0x2 | GV_ADDMULTI);
16263 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ENOMEM)));
16264 SvREADONLY_on(sv);
16265 } while(0) /*@SWIG@*/;
16266 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
16267 SV *sv = get_sv((char*) SWIG_prefix "GSL_EBADFUNC", TRUE | 0x2 | GV_ADDMULTI);
16268 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EBADFUNC)));
16269 SvREADONLY_on(sv);
16270 } while(0) /*@SWIG@*/;
16271 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
16272 SV *sv = get_sv((char*) SWIG_prefix "GSL_ERUNAWAY", TRUE | 0x2 | GV_ADDMULTI);
16273 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ERUNAWAY)));
16274 SvREADONLY_on(sv);
16275 } while(0) /*@SWIG@*/;
16276 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
16277 SV *sv = get_sv((char*) SWIG_prefix "GSL_EMAXITER", TRUE | 0x2 | GV_ADDMULTI);
16278 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EMAXITER)));
16279 SvREADONLY_on(sv);
16280 } while(0) /*@SWIG@*/;
16281 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
16282 SV *sv = get_sv((char*) SWIG_prefix "GSL_EZERODIV", TRUE | 0x2 | GV_ADDMULTI);
16283 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EZERODIV)));
16284 SvREADONLY_on(sv);
16285 } while(0) /*@SWIG@*/;
16286 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
16287 SV *sv = get_sv((char*) SWIG_prefix "GSL_EBADTOL", TRUE | 0x2 | GV_ADDMULTI);
16288 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EBADTOL)));
16289 SvREADONLY_on(sv);
16290 } while(0) /*@SWIG@*/;
16291 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
16292 SV *sv = get_sv((char*) SWIG_prefix "GSL_ETOL", TRUE | 0x2 | GV_ADDMULTI);
16293 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ETOL)));
16294 SvREADONLY_on(sv);
16295 } while(0) /*@SWIG@*/;
16296 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
16297 SV *sv = get_sv((char*) SWIG_prefix "GSL_EUNDRFLW", TRUE | 0x2 | GV_ADDMULTI);
16298 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EUNDRFLW)));
16299 SvREADONLY_on(sv);
16300 } while(0) /*@SWIG@*/;
16301 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
16302 SV *sv = get_sv((char*) SWIG_prefix "GSL_EOVRFLW", TRUE | 0x2 | GV_ADDMULTI);
16303 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EOVRFLW)));
16304 SvREADONLY_on(sv);
16305 } while(0) /*@SWIG@*/;
16306 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
16307 SV *sv = get_sv((char*) SWIG_prefix "GSL_ELOSS", TRUE | 0x2 | GV_ADDMULTI);
16308 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ELOSS)));
16309 SvREADONLY_on(sv);
16310 } while(0) /*@SWIG@*/;
16311 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
16312 SV *sv = get_sv((char*) SWIG_prefix "GSL_EROUND", TRUE | 0x2 | GV_ADDMULTI);
16313 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EROUND)));
16314 SvREADONLY_on(sv);
16315 } while(0) /*@SWIG@*/;
16316 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
16317 SV *sv = get_sv((char*) SWIG_prefix "GSL_EBADLEN", TRUE | 0x2 | GV_ADDMULTI);
16318 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EBADLEN)));
16319 SvREADONLY_on(sv);
16320 } while(0) /*@SWIG@*/;
16321 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
16322 SV *sv = get_sv((char*) SWIG_prefix "GSL_ENOTSQR", TRUE | 0x2 | GV_ADDMULTI);
16323 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ENOTSQR)));
16324 SvREADONLY_on(sv);
16325 } while(0) /*@SWIG@*/;
16326 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
16327 SV *sv = get_sv((char*) SWIG_prefix "GSL_ESING", TRUE | 0x2 | GV_ADDMULTI);
16328 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ESING)));
16329 SvREADONLY_on(sv);
16330 } while(0) /*@SWIG@*/;
16331 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
16332 SV *sv = get_sv((char*) SWIG_prefix "GSL_EDIVERGE", TRUE | 0x2 | GV_ADDMULTI);
16333 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EDIVERGE)));
16334 SvREADONLY_on(sv);
16335 } while(0) /*@SWIG@*/;
16336 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
16337 SV *sv = get_sv((char*) SWIG_prefix "GSL_EUNSUP", TRUE | 0x2 | GV_ADDMULTI);
16338 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EUNSUP)));
16339 SvREADONLY_on(sv);
16340 } while(0) /*@SWIG@*/;
16341 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
16342 SV *sv = get_sv((char*) SWIG_prefix "GSL_EUNIMPL", TRUE | 0x2 | GV_ADDMULTI);
16343 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EUNIMPL)));
16344 SvREADONLY_on(sv);
16345 } while(0) /*@SWIG@*/;
16346 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
16347 SV *sv = get_sv((char*) SWIG_prefix "GSL_ECACHE", TRUE | 0x2 | GV_ADDMULTI);
16348 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ECACHE)));
16349 SvREADONLY_on(sv);
16350 } while(0) /*@SWIG@*/;
16351 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
16352 SV *sv = get_sv((char*) SWIG_prefix "GSL_ETABLE", TRUE | 0x2 | GV_ADDMULTI);
16353 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ETABLE)));
16354 SvREADONLY_on(sv);
16355 } while(0) /*@SWIG@*/;
16356 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
16357 SV *sv = get_sv((char*) SWIG_prefix "GSL_ENOPROG", TRUE | 0x2 | GV_ADDMULTI);
16358 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ENOPROG)));
16359 SvREADONLY_on(sv);
16360 } while(0) /*@SWIG@*/;
16361 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
16362 SV *sv = get_sv((char*) SWIG_prefix "GSL_ENOPROGJ", TRUE | 0x2 | GV_ADDMULTI);
16363 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ENOPROGJ)));
16364 SvREADONLY_on(sv);
16365 } while(0) /*@SWIG@*/;
16366 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
16367 SV *sv = get_sv((char*) SWIG_prefix "GSL_ETOLF", TRUE | 0x2 | GV_ADDMULTI);
16368 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ETOLF)));
16369 SvREADONLY_on(sv);
16370 } while(0) /*@SWIG@*/;
16371 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
16372 SV *sv = get_sv((char*) SWIG_prefix "GSL_ETOLX", TRUE | 0x2 | GV_ADDMULTI);
16373 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ETOLX)));
16374 SvREADONLY_on(sv);
16375 } while(0) /*@SWIG@*/;
16376 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
16377 SV *sv = get_sv((char*) SWIG_prefix "GSL_ETOLG", TRUE | 0x2 | GV_ADDMULTI);
16378 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ETOLG)));
16379 SvREADONLY_on(sv);
16380 } while(0) /*@SWIG@*/;
16381 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
16382 SV *sv = get_sv((char*) SWIG_prefix "GSL_EOF", TRUE | 0x2 | GV_ADDMULTI);
16383 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EOF)));
16384 SvREADONLY_on(sv);
16385 } while(0) /*@SWIG@*/;
16386 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
16387 SV *sv = get_sv((char*) SWIG_prefix "GSL_LINALG_MOD_NONE", TRUE | 0x2 | GV_ADDMULTI);
16388 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_LINALG_MOD_NONE)));
16389 SvREADONLY_on(sv);
16390 } while(0) /*@SWIG@*/;
16391 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
16392 SV *sv = get_sv((char*) SWIG_prefix "GSL_LINALG_MOD_TRANSPOSE", TRUE | 0x2 | GV_ADDMULTI);
16393 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_LINALG_MOD_TRANSPOSE)));
16394 SvREADONLY_on(sv);
16395 } while(0) /*@SWIG@*/;
16396 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
16397 SV *sv = get_sv((char*) SWIG_prefix "GSL_LINALG_MOD_CONJUGATE", TRUE | 0x2 | GV_ADDMULTI);
16398 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_LINALG_MOD_CONJUGATE)));
16399 SvREADONLY_on(sv);
16400 } while(0) /*@SWIG@*/;
16401 SWIG_TypeClientData(SWIGTYPE_p_gsl_permutation_struct, (void*) "Math::GSL::Linalg::gsl_permutation_struct");
16402 SWIG_TypeClientData(SWIGTYPE_p_gsl_complex, (void*) "Math::GSL::Linalg::gsl_complex");
16403 SWIG_TypeClientData(SWIGTYPE_p_gsl_complex_long_double, (void*) "Math::GSL::Linalg::gsl_complex_long_double");
16404 SWIG_TypeClientData(SWIGTYPE_p_gsl_complex_float, (void*) "Math::GSL::Linalg::gsl_complex_float");
16405 ST(0) = &PL_sv_yes;
16406 XSRETURN(1);
16407 }
16408
16409