1 /* ----------------------------------------------------------------------------
2 * This file was automatically generated by SWIG (http://www.swig.org).
3 * Version 4.0.1
4 *
5 * This file is not intended to be easily readable and contains a number of
6 * coding conventions designed to improve portability and efficiency. Do not make
7 * changes to this file unless you know what you are doing--modify the SWIG
8 * interface file instead.
9 * ----------------------------------------------------------------------------- */
10
11
12 #ifndef SWIGPERL
13 #define SWIGPERL
14 #endif
15
16 #define SWIG_CASTRANK_MODE
17
18 /* -----------------------------------------------------------------------------
19 * This section contains generic SWIG labels for method/variable
20 * declarations/attributes, and other compiler dependent labels.
21 * ----------------------------------------------------------------------------- */
22
23 /* template workaround for compilers that cannot correctly implement the C++ standard */
24 #ifndef SWIGTEMPLATEDISAMBIGUATOR
25 # if defined(__SUNPRO_CC) && (__SUNPRO_CC <= 0x560)
26 # define SWIGTEMPLATEDISAMBIGUATOR template
27 # elif defined(__HP_aCC)
28 /* Needed even with `aCC -AA' when `aCC -V' reports HP ANSI C++ B3910B A.03.55 */
29 /* If we find a maximum version that requires this, the test would be __HP_aCC <= 35500 for A.03.55 */
30 # define SWIGTEMPLATEDISAMBIGUATOR template
31 # else
32 # define SWIGTEMPLATEDISAMBIGUATOR
33 # endif
34 #endif
35
36 /* inline attribute */
37 #ifndef SWIGINLINE
38 # if defined(__cplusplus) || (defined(__GNUC__) && !defined(__STRICT_ANSI__))
39 # define SWIGINLINE inline
40 # else
41 # define SWIGINLINE
42 # endif
43 #endif
44
45 /* attribute recognised by some compilers to avoid 'unused' warnings */
46 #ifndef SWIGUNUSED
47 # if defined(__GNUC__)
48 # if !(defined(__cplusplus)) || (__GNUC__ > 3 || (__GNUC__ == 3 && __GNUC_MINOR__ >= 4))
49 # define SWIGUNUSED __attribute__ ((__unused__))
50 # else
51 # define SWIGUNUSED
52 # endif
53 # elif defined(__ICC)
54 # define SWIGUNUSED __attribute__ ((__unused__))
55 # else
56 # define SWIGUNUSED
57 # endif
58 #endif
59
60 #ifndef SWIG_MSC_UNSUPPRESS_4505
61 # if defined(_MSC_VER)
62 # pragma warning(disable : 4505) /* unreferenced local function has been removed */
63 # endif
64 #endif
65
66 #ifndef SWIGUNUSEDPARM
67 # ifdef __cplusplus
68 # define SWIGUNUSEDPARM(p)
69 # else
70 # define SWIGUNUSEDPARM(p) p SWIGUNUSED
71 # endif
72 #endif
73
74 /* internal SWIG method */
75 #ifndef SWIGINTERN
76 # define SWIGINTERN static SWIGUNUSED
77 #endif
78
79 /* internal inline SWIG method */
80 #ifndef SWIGINTERNINLINE
81 # define SWIGINTERNINLINE SWIGINTERN SWIGINLINE
82 #endif
83
84 /* exporting methods */
85 #if defined(__GNUC__)
86 # if (__GNUC__ >= 4) || (__GNUC__ == 3 && __GNUC_MINOR__ >= 4)
87 # ifndef GCC_HASCLASSVISIBILITY
88 # define GCC_HASCLASSVISIBILITY
89 # endif
90 # endif
91 #endif
92
93 #ifndef SWIGEXPORT
94 # if defined(_WIN32) || defined(__WIN32__) || defined(__CYGWIN__)
95 # if defined(STATIC_LINKED)
96 # define SWIGEXPORT
97 # else
98 # define SWIGEXPORT __declspec(dllexport)
99 # endif
100 # else
101 # if defined(__GNUC__) && defined(GCC_HASCLASSVISIBILITY)
102 # define SWIGEXPORT __attribute__ ((visibility("default")))
103 # else
104 # define SWIGEXPORT
105 # endif
106 # endif
107 #endif
108
109 /* calling conventions for Windows */
110 #ifndef SWIGSTDCALL
111 # if defined(_WIN32) || defined(__WIN32__) || defined(__CYGWIN__)
112 # define SWIGSTDCALL __stdcall
113 # else
114 # define SWIGSTDCALL
115 # endif
116 #endif
117
118 /* Deal with Microsoft's attempt at deprecating C standard runtime functions */
119 #if !defined(SWIG_NO_CRT_SECURE_NO_DEPRECATE) && defined(_MSC_VER) && !defined(_CRT_SECURE_NO_DEPRECATE)
120 # define _CRT_SECURE_NO_DEPRECATE
121 #endif
122
123 /* Deal with Microsoft's attempt at deprecating methods in the standard C++ library */
124 #if !defined(SWIG_NO_SCL_SECURE_NO_DEPRECATE) && defined(_MSC_VER) && !defined(_SCL_SECURE_NO_DEPRECATE)
125 # define _SCL_SECURE_NO_DEPRECATE
126 #endif
127
128 /* Deal with Apple's deprecated 'AssertMacros.h' from Carbon-framework */
129 #if defined(__APPLE__) && !defined(__ASSERT_MACROS_DEFINE_VERSIONS_WITHOUT_UNDERSCORES)
130 # define __ASSERT_MACROS_DEFINE_VERSIONS_WITHOUT_UNDERSCORES 0
131 #endif
132
133 /* Intel's compiler complains if a variable which was never initialised is
134 * cast to void, which is a common idiom which we use to indicate that we
135 * are aware a variable isn't used. So we just silence that warning.
136 * See: https://github.com/swig/swig/issues/192 for more discussion.
137 */
138 #ifdef __INTEL_COMPILER
139 # pragma warning disable 592
140 #endif
141
142 /* -----------------------------------------------------------------------------
143 * swigrun.swg
144 *
145 * This file contains generic C API SWIG runtime support for pointer
146 * type checking.
147 * ----------------------------------------------------------------------------- */
148
149 /* This should only be incremented when either the layout of swig_type_info changes,
150 or for whatever reason, the runtime changes incompatibly */
151 #define SWIG_RUNTIME_VERSION "4"
152
153 /* define SWIG_TYPE_TABLE_NAME as "SWIG_TYPE_TABLE" */
154 #ifdef SWIG_TYPE_TABLE
155 # define SWIG_QUOTE_STRING(x) #x
156 # define SWIG_EXPAND_AND_QUOTE_STRING(x) SWIG_QUOTE_STRING(x)
157 # define SWIG_TYPE_TABLE_NAME SWIG_EXPAND_AND_QUOTE_STRING(SWIG_TYPE_TABLE)
158 #else
159 # define SWIG_TYPE_TABLE_NAME
160 #endif
161
162 /*
163 You can use the SWIGRUNTIME and SWIGRUNTIMEINLINE macros for
164 creating a static or dynamic library from the SWIG runtime code.
165 In 99.9% of the cases, SWIG just needs to declare them as 'static'.
166
167 But only do this if strictly necessary, ie, if you have problems
168 with your compiler or suchlike.
169 */
170
171 #ifndef SWIGRUNTIME
172 # define SWIGRUNTIME SWIGINTERN
173 #endif
174
175 #ifndef SWIGRUNTIMEINLINE
176 # define SWIGRUNTIMEINLINE SWIGRUNTIME SWIGINLINE
177 #endif
178
179 /* Generic buffer size */
180 #ifndef SWIG_BUFFER_SIZE
181 # define SWIG_BUFFER_SIZE 1024
182 #endif
183
184 /* Flags for pointer conversions */
185 #define SWIG_POINTER_DISOWN 0x1
186 #define SWIG_CAST_NEW_MEMORY 0x2
187 #define SWIG_POINTER_NO_NULL 0x4
188
189 /* Flags for new pointer objects */
190 #define SWIG_POINTER_OWN 0x1
191
192
193 /*
194 Flags/methods for returning states.
195
196 The SWIG conversion methods, as ConvertPtr, return an integer
197 that tells if the conversion was successful or not. And if not,
198 an error code can be returned (see swigerrors.swg for the codes).
199
200 Use the following macros/flags to set or process the returning
201 states.
202
203 In old versions of SWIG, code such as the following was usually written:
204
205 if (SWIG_ConvertPtr(obj,vptr,ty.flags) != -1) {
206 // success code
207 } else {
208 //fail code
209 }
210
211 Now you can be more explicit:
212
213 int res = SWIG_ConvertPtr(obj,vptr,ty.flags);
214 if (SWIG_IsOK(res)) {
215 // success code
216 } else {
217 // fail code
218 }
219
220 which is the same really, but now you can also do
221
222 Type *ptr;
223 int res = SWIG_ConvertPtr(obj,(void **)(&ptr),ty.flags);
224 if (SWIG_IsOK(res)) {
225 // success code
226 if (SWIG_IsNewObj(res) {
227 ...
228 delete *ptr;
229 } else {
230 ...
231 }
232 } else {
233 // fail code
234 }
235
236 I.e., now SWIG_ConvertPtr can return new objects and you can
237 identify the case and take care of the deallocation. Of course that
238 also requires SWIG_ConvertPtr to return new result values, such as
239
240 int SWIG_ConvertPtr(obj, ptr,...) {
241 if (<obj is ok>) {
242 if (<need new object>) {
243 *ptr = <ptr to new allocated object>;
244 return SWIG_NEWOBJ;
245 } else {
246 *ptr = <ptr to old object>;
247 return SWIG_OLDOBJ;
248 }
249 } else {
250 return SWIG_BADOBJ;
251 }
252 }
253
254 Of course, returning the plain '0(success)/-1(fail)' still works, but you can be
255 more explicit by returning SWIG_BADOBJ, SWIG_ERROR or any of the
256 SWIG errors code.
257
258 Finally, if the SWIG_CASTRANK_MODE is enabled, the result code
259 allows to return the 'cast rank', for example, if you have this
260
261 int food(double)
262 int fooi(int);
263
264 and you call
265
266 food(1) // cast rank '1' (1 -> 1.0)
267 fooi(1) // cast rank '0'
268
269 just use the SWIG_AddCast()/SWIG_CheckState()
270 */
271
272 #define SWIG_OK (0)
273 #define SWIG_ERROR (-1)
274 #define SWIG_IsOK(r) (r >= 0)
275 #define SWIG_ArgError(r) ((r != SWIG_ERROR) ? r : SWIG_TypeError)
276
277 /* The CastRankLimit says how many bits are used for the cast rank */
278 #define SWIG_CASTRANKLIMIT (1 << 8)
279 /* The NewMask denotes the object was created (using new/malloc) */
280 #define SWIG_NEWOBJMASK (SWIG_CASTRANKLIMIT << 1)
281 /* The TmpMask is for in/out typemaps that use temporal objects */
282 #define SWIG_TMPOBJMASK (SWIG_NEWOBJMASK << 1)
283 /* Simple returning values */
284 #define SWIG_BADOBJ (SWIG_ERROR)
285 #define SWIG_OLDOBJ (SWIG_OK)
286 #define SWIG_NEWOBJ (SWIG_OK | SWIG_NEWOBJMASK)
287 #define SWIG_TMPOBJ (SWIG_OK | SWIG_TMPOBJMASK)
288 /* Check, add and del mask methods */
289 #define SWIG_AddNewMask(r) (SWIG_IsOK(r) ? (r | SWIG_NEWOBJMASK) : r)
290 #define SWIG_DelNewMask(r) (SWIG_IsOK(r) ? (r & ~SWIG_NEWOBJMASK) : r)
291 #define SWIG_IsNewObj(r) (SWIG_IsOK(r) && (r & SWIG_NEWOBJMASK))
292 #define SWIG_AddTmpMask(r) (SWIG_IsOK(r) ? (r | SWIG_TMPOBJMASK) : r)
293 #define SWIG_DelTmpMask(r) (SWIG_IsOK(r) ? (r & ~SWIG_TMPOBJMASK) : r)
294 #define SWIG_IsTmpObj(r) (SWIG_IsOK(r) && (r & SWIG_TMPOBJMASK))
295
296 /* Cast-Rank Mode */
297 #if defined(SWIG_CASTRANK_MODE)
298 # ifndef SWIG_TypeRank
299 # define SWIG_TypeRank unsigned long
300 # endif
301 # ifndef SWIG_MAXCASTRANK /* Default cast allowed */
302 # define SWIG_MAXCASTRANK (2)
303 # endif
304 # define SWIG_CASTRANKMASK ((SWIG_CASTRANKLIMIT) -1)
305 # define SWIG_CastRank(r) (r & SWIG_CASTRANKMASK)
SWIG_AddCast(int r)306 SWIGINTERNINLINE int SWIG_AddCast(int r) {
307 return SWIG_IsOK(r) ? ((SWIG_CastRank(r) < SWIG_MAXCASTRANK) ? (r + 1) : SWIG_ERROR) : r;
308 }
SWIG_CheckState(int r)309 SWIGINTERNINLINE int SWIG_CheckState(int r) {
310 return SWIG_IsOK(r) ? SWIG_CastRank(r) + 1 : 0;
311 }
312 #else /* no cast-rank mode */
313 # define SWIG_AddCast(r) (r)
314 # define SWIG_CheckState(r) (SWIG_IsOK(r) ? 1 : 0)
315 #endif
316
317
318 #include <string.h>
319
320 #ifdef __cplusplus
321 extern "C" {
322 #endif
323
324 typedef void *(*swig_converter_func)(void *, int *);
325 typedef struct swig_type_info *(*swig_dycast_func)(void **);
326
327 /* Structure to store information on one type */
328 typedef struct swig_type_info {
329 const char *name; /* mangled name of this type */
330 const char *str; /* human readable name of this type */
331 swig_dycast_func dcast; /* dynamic cast function down a hierarchy */
332 struct swig_cast_info *cast; /* linked list of types that can cast into this type */
333 void *clientdata; /* language specific type data */
334 int owndata; /* flag if the structure owns the clientdata */
335 } swig_type_info;
336
337 /* Structure to store a type and conversion function used for casting */
338 typedef struct swig_cast_info {
339 swig_type_info *type; /* pointer to type that is equivalent to this type */
340 swig_converter_func converter; /* function to cast the void pointers */
341 struct swig_cast_info *next; /* pointer to next cast in linked list */
342 struct swig_cast_info *prev; /* pointer to the previous cast */
343 } swig_cast_info;
344
345 /* Structure used to store module information
346 * Each module generates one structure like this, and the runtime collects
347 * all of these structures and stores them in a circularly linked list.*/
348 typedef struct swig_module_info {
349 swig_type_info **types; /* Array of pointers to swig_type_info structures that are in this module */
350 size_t size; /* Number of types in this module */
351 struct swig_module_info *next; /* Pointer to next element in circularly linked list */
352 swig_type_info **type_initial; /* Array of initially generated type structures */
353 swig_cast_info **cast_initial; /* Array of initially generated casting structures */
354 void *clientdata; /* Language specific module data */
355 } swig_module_info;
356
357 /*
358 Compare two type names skipping the space characters, therefore
359 "char*" == "char *" and "Class<int>" == "Class<int >", etc.
360
361 Return 0 when the two name types are equivalent, as in
362 strncmp, but skipping ' '.
363 */
364 SWIGRUNTIME int
SWIG_TypeNameComp(const char * f1,const char * l1,const char * f2,const char * l2)365 SWIG_TypeNameComp(const char *f1, const char *l1,
366 const char *f2, const char *l2) {
367 for (;(f1 != l1) && (f2 != l2); ++f1, ++f2) {
368 while ((*f1 == ' ') && (f1 != l1)) ++f1;
369 while ((*f2 == ' ') && (f2 != l2)) ++f2;
370 if (*f1 != *f2) return (*f1 > *f2) ? 1 : -1;
371 }
372 return (int)((l1 - f1) - (l2 - f2));
373 }
374
375 /*
376 Check type equivalence in a name list like <name1>|<name2>|...
377 Return 0 if equal, -1 if nb < tb, 1 if nb > tb
378 */
379 SWIGRUNTIME int
SWIG_TypeCmp(const char * nb,const char * tb)380 SWIG_TypeCmp(const char *nb, const char *tb) {
381 int equiv = 1;
382 const char* te = tb + strlen(tb);
383 const char* ne = nb;
384 while (equiv != 0 && *ne) {
385 for (nb = ne; *ne; ++ne) {
386 if (*ne == '|') break;
387 }
388 equiv = SWIG_TypeNameComp(nb, ne, tb, te);
389 if (*ne) ++ne;
390 }
391 return equiv;
392 }
393
394 /*
395 Check type equivalence in a name list like <name1>|<name2>|...
396 Return 0 if not equal, 1 if equal
397 */
398 SWIGRUNTIME int
SWIG_TypeEquiv(const char * nb,const char * tb)399 SWIG_TypeEquiv(const char *nb, const char *tb) {
400 return SWIG_TypeCmp(nb, tb) == 0 ? 1 : 0;
401 }
402
403 /*
404 Check the typename
405 */
406 SWIGRUNTIME swig_cast_info *
SWIG_TypeCheck(const char * c,swig_type_info * ty)407 SWIG_TypeCheck(const char *c, swig_type_info *ty) {
408 if (ty) {
409 swig_cast_info *iter = ty->cast;
410 while (iter) {
411 if (strcmp(iter->type->name, c) == 0) {
412 if (iter == ty->cast)
413 return iter;
414 /* Move iter to the top of the linked list */
415 iter->prev->next = iter->next;
416 if (iter->next)
417 iter->next->prev = iter->prev;
418 iter->next = ty->cast;
419 iter->prev = 0;
420 if (ty->cast) ty->cast->prev = iter;
421 ty->cast = iter;
422 return iter;
423 }
424 iter = iter->next;
425 }
426 }
427 return 0;
428 }
429
430 /*
431 Identical to SWIG_TypeCheck, except strcmp is replaced with a pointer comparison
432 */
433 SWIGRUNTIME swig_cast_info *
SWIG_TypeCheckStruct(swig_type_info * from,swig_type_info * ty)434 SWIG_TypeCheckStruct(swig_type_info *from, swig_type_info *ty) {
435 if (ty) {
436 swig_cast_info *iter = ty->cast;
437 while (iter) {
438 if (iter->type == from) {
439 if (iter == ty->cast)
440 return iter;
441 /* Move iter to the top of the linked list */
442 iter->prev->next = iter->next;
443 if (iter->next)
444 iter->next->prev = iter->prev;
445 iter->next = ty->cast;
446 iter->prev = 0;
447 if (ty->cast) ty->cast->prev = iter;
448 ty->cast = iter;
449 return iter;
450 }
451 iter = iter->next;
452 }
453 }
454 return 0;
455 }
456
457 /*
458 Cast a pointer up an inheritance hierarchy
459 */
460 SWIGRUNTIMEINLINE void *
SWIG_TypeCast(swig_cast_info * ty,void * ptr,int * newmemory)461 SWIG_TypeCast(swig_cast_info *ty, void *ptr, int *newmemory) {
462 return ((!ty) || (!ty->converter)) ? ptr : (*ty->converter)(ptr, newmemory);
463 }
464
465 /*
466 Dynamic pointer casting. Down an inheritance hierarchy
467 */
468 SWIGRUNTIME swig_type_info *
SWIG_TypeDynamicCast(swig_type_info * ty,void ** ptr)469 SWIG_TypeDynamicCast(swig_type_info *ty, void **ptr) {
470 swig_type_info *lastty = ty;
471 if (!ty || !ty->dcast) return ty;
472 while (ty && (ty->dcast)) {
473 ty = (*ty->dcast)(ptr);
474 if (ty) lastty = ty;
475 }
476 return lastty;
477 }
478
479 /*
480 Return the name associated with this type
481 */
482 SWIGRUNTIMEINLINE const char *
SWIG_TypeName(const swig_type_info * ty)483 SWIG_TypeName(const swig_type_info *ty) {
484 return ty->name;
485 }
486
487 /*
488 Return the pretty name associated with this type,
489 that is an unmangled type name in a form presentable to the user.
490 */
491 SWIGRUNTIME const char *
SWIG_TypePrettyName(const swig_type_info * type)492 SWIG_TypePrettyName(const swig_type_info *type) {
493 /* The "str" field contains the equivalent pretty names of the
494 type, separated by vertical-bar characters. We choose
495 to print the last name, as it is often (?) the most
496 specific. */
497 if (!type) return NULL;
498 if (type->str != NULL) {
499 const char *last_name = type->str;
500 const char *s;
501 for (s = type->str; *s; s++)
502 if (*s == '|') last_name = s+1;
503 return last_name;
504 }
505 else
506 return type->name;
507 }
508
509 /*
510 Set the clientdata field for a type
511 */
512 SWIGRUNTIME void
SWIG_TypeClientData(swig_type_info * ti,void * clientdata)513 SWIG_TypeClientData(swig_type_info *ti, void *clientdata) {
514 swig_cast_info *cast = ti->cast;
515 /* if (ti->clientdata == clientdata) return; */
516 ti->clientdata = clientdata;
517
518 while (cast) {
519 if (!cast->converter) {
520 swig_type_info *tc = cast->type;
521 if (!tc->clientdata) {
522 SWIG_TypeClientData(tc, clientdata);
523 }
524 }
525 cast = cast->next;
526 }
527 }
528 SWIGRUNTIME void
SWIG_TypeNewClientData(swig_type_info * ti,void * clientdata)529 SWIG_TypeNewClientData(swig_type_info *ti, void *clientdata) {
530 SWIG_TypeClientData(ti, clientdata);
531 ti->owndata = 1;
532 }
533
534 /*
535 Search for a swig_type_info structure only by mangled name
536 Search is a O(log #types)
537
538 We start searching at module start, and finish searching when start == end.
539 Note: if start == end at the beginning of the function, we go all the way around
540 the circular list.
541 */
542 SWIGRUNTIME swig_type_info *
SWIG_MangledTypeQueryModule(swig_module_info * start,swig_module_info * end,const char * name)543 SWIG_MangledTypeQueryModule(swig_module_info *start,
544 swig_module_info *end,
545 const char *name) {
546 swig_module_info *iter = start;
547 do {
548 if (iter->size) {
549 size_t l = 0;
550 size_t r = iter->size - 1;
551 do {
552 /* since l+r >= 0, we can (>> 1) instead (/ 2) */
553 size_t i = (l + r) >> 1;
554 const char *iname = iter->types[i]->name;
555 if (iname) {
556 int compare = strcmp(name, iname);
557 if (compare == 0) {
558 return iter->types[i];
559 } else if (compare < 0) {
560 if (i) {
561 r = i - 1;
562 } else {
563 break;
564 }
565 } else if (compare > 0) {
566 l = i + 1;
567 }
568 } else {
569 break; /* should never happen */
570 }
571 } while (l <= r);
572 }
573 iter = iter->next;
574 } while (iter != end);
575 return 0;
576 }
577
578 /*
579 Search for a swig_type_info structure for either a mangled name or a human readable name.
580 It first searches the mangled names of the types, which is a O(log #types)
581 If a type is not found it then searches the human readable names, which is O(#types).
582
583 We start searching at module start, and finish searching when start == end.
584 Note: if start == end at the beginning of the function, we go all the way around
585 the circular list.
586 */
587 SWIGRUNTIME swig_type_info *
SWIG_TypeQueryModule(swig_module_info * start,swig_module_info * end,const char * name)588 SWIG_TypeQueryModule(swig_module_info *start,
589 swig_module_info *end,
590 const char *name) {
591 /* STEP 1: Search the name field using binary search */
592 swig_type_info *ret = SWIG_MangledTypeQueryModule(start, end, name);
593 if (ret) {
594 return ret;
595 } else {
596 /* STEP 2: If the type hasn't been found, do a complete search
597 of the str field (the human readable name) */
598 swig_module_info *iter = start;
599 do {
600 size_t i = 0;
601 for (; i < iter->size; ++i) {
602 if (iter->types[i]->str && (SWIG_TypeEquiv(iter->types[i]->str, name)))
603 return iter->types[i];
604 }
605 iter = iter->next;
606 } while (iter != end);
607 }
608
609 /* neither found a match */
610 return 0;
611 }
612
613 /*
614 Pack binary data into a string
615 */
616 SWIGRUNTIME char *
SWIG_PackData(char * c,void * ptr,size_t sz)617 SWIG_PackData(char *c, void *ptr, size_t sz) {
618 static const char hex[17] = "0123456789abcdef";
619 const unsigned char *u = (unsigned char *) ptr;
620 const unsigned char *eu = u + sz;
621 for (; u != eu; ++u) {
622 unsigned char uu = *u;
623 *(c++) = hex[(uu & 0xf0) >> 4];
624 *(c++) = hex[uu & 0xf];
625 }
626 return c;
627 }
628
629 /*
630 Unpack binary data from a string
631 */
632 SWIGRUNTIME const char *
SWIG_UnpackData(const char * c,void * ptr,size_t sz)633 SWIG_UnpackData(const char *c, void *ptr, size_t sz) {
634 unsigned char *u = (unsigned char *) ptr;
635 const unsigned char *eu = u + sz;
636 for (; u != eu; ++u) {
637 char d = *(c++);
638 unsigned char uu;
639 if ((d >= '0') && (d <= '9'))
640 uu = (unsigned char)((d - '0') << 4);
641 else if ((d >= 'a') && (d <= 'f'))
642 uu = (unsigned char)((d - ('a'-10)) << 4);
643 else
644 return (char *) 0;
645 d = *(c++);
646 if ((d >= '0') && (d <= '9'))
647 uu |= (unsigned char)(d - '0');
648 else if ((d >= 'a') && (d <= 'f'))
649 uu |= (unsigned char)(d - ('a'-10));
650 else
651 return (char *) 0;
652 *u = uu;
653 }
654 return c;
655 }
656
657 /*
658 Pack 'void *' into a string buffer.
659 */
660 SWIGRUNTIME char *
SWIG_PackVoidPtr(char * buff,void * ptr,const char * name,size_t bsz)661 SWIG_PackVoidPtr(char *buff, void *ptr, const char *name, size_t bsz) {
662 char *r = buff;
663 if ((2*sizeof(void *) + 2) > bsz) return 0;
664 *(r++) = '_';
665 r = SWIG_PackData(r,&ptr,sizeof(void *));
666 if (strlen(name) + 1 > (bsz - (r - buff))) return 0;
667 strcpy(r,name);
668 return buff;
669 }
670
671 SWIGRUNTIME const char *
SWIG_UnpackVoidPtr(const char * c,void ** ptr,const char * name)672 SWIG_UnpackVoidPtr(const char *c, void **ptr, const char *name) {
673 if (*c != '_') {
674 if (strcmp(c,"NULL") == 0) {
675 *ptr = (void *) 0;
676 return name;
677 } else {
678 return 0;
679 }
680 }
681 return SWIG_UnpackData(++c,ptr,sizeof(void *));
682 }
683
684 SWIGRUNTIME char *
SWIG_PackDataName(char * buff,void * ptr,size_t sz,const char * name,size_t bsz)685 SWIG_PackDataName(char *buff, void *ptr, size_t sz, const char *name, size_t bsz) {
686 char *r = buff;
687 size_t lname = (name ? strlen(name) : 0);
688 if ((2*sz + 2 + lname) > bsz) return 0;
689 *(r++) = '_';
690 r = SWIG_PackData(r,ptr,sz);
691 if (lname) {
692 strncpy(r,name,lname+1);
693 } else {
694 *r = 0;
695 }
696 return buff;
697 }
698
699 SWIGRUNTIME const char *
SWIG_UnpackDataName(const char * c,void * ptr,size_t sz,const char * name)700 SWIG_UnpackDataName(const char *c, void *ptr, size_t sz, const char *name) {
701 if (*c != '_') {
702 if (strcmp(c,"NULL") == 0) {
703 memset(ptr,0,sz);
704 return name;
705 } else {
706 return 0;
707 }
708 }
709 return SWIG_UnpackData(++c,ptr,sz);
710 }
711
712 #ifdef __cplusplus
713 }
714 #endif
715
716 /* Errors in SWIG */
717 #define SWIG_UnknownError -1
718 #define SWIG_IOError -2
719 #define SWIG_RuntimeError -3
720 #define SWIG_IndexError -4
721 #define SWIG_TypeError -5
722 #define SWIG_DivisionByZero -6
723 #define SWIG_OverflowError -7
724 #define SWIG_SyntaxError -8
725 #define SWIG_ValueError -9
726 #define SWIG_SystemError -10
727 #define SWIG_AttributeError -11
728 #define SWIG_MemoryError -12
729 #define SWIG_NullReferenceError -13
730
731
732
733 #ifdef __cplusplus
734 /* Needed on some windows machines---since MS plays funny games with the header files under C++ */
735 #include <math.h>
736 #include <stdlib.h>
737 extern "C" {
738 #endif
739 #include "EXTERN.h"
740 #include "perl.h"
741 #include "XSUB.h"
742
743 /* Add in functionality missing in older versions of Perl. Much of this is based on Devel-PPPort on cpan. */
744
745 /* Add PERL_REVISION, PERL_VERSION, PERL_SUBVERSION if missing */
746 #ifndef PERL_REVISION
747 # if !defined(__PATCHLEVEL_H_INCLUDED__) && !(defined(PATCHLEVEL) && defined(SUBVERSION))
748 # define PERL_PATCHLEVEL_H_IMPLICIT
749 # include <patchlevel.h>
750 # endif
751 # if !(defined(PERL_VERSION) || (defined(SUBVERSION) && defined(PATCHLEVEL)))
752 # include <could_not_find_Perl_patchlevel.h>
753 # endif
754 # ifndef PERL_REVISION
755 # define PERL_REVISION (5)
756 # define PERL_VERSION PATCHLEVEL
757 # define PERL_SUBVERSION SUBVERSION
758 # endif
759 #endif
760
761 #if defined(WIN32) && defined(PERL_OBJECT) && !defined(PerlIO_exportFILE)
762 #define PerlIO_exportFILE(fh,fl) (FILE*)(fh)
763 #endif
764
765 #ifndef SvIOK_UV
766 # define SvIOK_UV(sv) (SvIOK(sv) && (SvUVX(sv) == SvIVX(sv)))
767 #endif
768
769 #ifndef SvUOK
770 # define SvUOK(sv) SvIOK_UV(sv)
771 #endif
772
773 #if ((PERL_VERSION < 4) || ((PERL_VERSION == 4) && (PERL_SUBVERSION <= 5)))
774 # define PL_sv_undef sv_undef
775 # define PL_na na
776 # define PL_errgv errgv
777 # define PL_sv_no sv_no
778 # define PL_sv_yes sv_yes
779 # define PL_markstack_ptr markstack_ptr
780 #endif
781
782 #ifndef IVSIZE
783 # ifdef LONGSIZE
784 # define IVSIZE LONGSIZE
785 # else
786 # define IVSIZE 4 /* A bold guess, but the best we can make. */
787 # endif
788 #endif
789
790 #ifndef INT2PTR
791 # if (IVSIZE == PTRSIZE) && (UVSIZE == PTRSIZE)
792 # define PTRV UV
793 # define INT2PTR(any,d) (any)(d)
794 # else
795 # if PTRSIZE == LONGSIZE
796 # define PTRV unsigned long
797 # else
798 # define PTRV unsigned
799 # endif
800 # define INT2PTR(any,d) (any)(PTRV)(d)
801 # endif
802
803 # define NUM2PTR(any,d) (any)(PTRV)(d)
804 # define PTR2IV(p) INT2PTR(IV,p)
805 # define PTR2UV(p) INT2PTR(UV,p)
806 # define PTR2NV(p) NUM2PTR(NV,p)
807
808 # if PTRSIZE == LONGSIZE
809 # define PTR2ul(p) (unsigned long)(p)
810 # else
811 # define PTR2ul(p) INT2PTR(unsigned long,p)
812 # endif
813 #endif /* !INT2PTR */
814
815 #ifndef SvPV_nolen
816 # define SvPV_nolen(x) SvPV(x,PL_na)
817 #endif
818
819 #ifndef get_sv
820 # define get_sv perl_get_sv
821 #endif
822
823 #ifndef ERRSV
824 # define ERRSV get_sv("@",FALSE)
825 #endif
826
827 #ifndef pTHX_
828 #define pTHX_
829 #endif
830
831 #include <string.h>
832 #ifdef __cplusplus
833 }
834 #endif
835
836 /* -----------------------------------------------------------------------------
837 * error manipulation
838 * ----------------------------------------------------------------------------- */
839
840 SWIGINTERN const char*
SWIG_Perl_ErrorType(int code)841 SWIG_Perl_ErrorType(int code) {
842 switch(code) {
843 case SWIG_MemoryError:
844 return "MemoryError";
845 case SWIG_IOError:
846 return "IOError";
847 case SWIG_RuntimeError:
848 return "RuntimeError";
849 case SWIG_IndexError:
850 return "IndexError";
851 case SWIG_TypeError:
852 return "TypeError";
853 case SWIG_DivisionByZero:
854 return "ZeroDivisionError";
855 case SWIG_OverflowError:
856 return "OverflowError";
857 case SWIG_SyntaxError:
858 return "SyntaxError";
859 case SWIG_ValueError:
860 return "ValueError";
861 case SWIG_SystemError:
862 return "SystemError";
863 case SWIG_AttributeError:
864 return "AttributeError";
865 default:
866 return "RuntimeError";
867 }
868 }
869
870
871 /* -----------------------------------------------------------------------------
872 * perlrun.swg
873 *
874 * This file contains the runtime support for Perl modules
875 * and includes code for managing global variables and pointer
876 * type checking.
877 * ----------------------------------------------------------------------------- */
878
879 #ifdef PERL_OBJECT
880 #define SWIG_PERL_OBJECT_DECL CPerlObj *SWIGUNUSEDPARM(pPerl),
881 #define SWIG_PERL_OBJECT_CALL pPerl,
882 #else
883 #define SWIG_PERL_OBJECT_DECL
884 #define SWIG_PERL_OBJECT_CALL
885 #endif
886
887 /* Common SWIG API */
888
889 /* for raw pointers */
890 #define SWIG_ConvertPtr(obj, pp, type, flags) SWIG_Perl_ConvertPtr(SWIG_PERL_OBJECT_CALL obj, pp, type, flags)
891 #define SWIG_ConvertPtrAndOwn(obj, pp, type, flags,own) SWIG_Perl_ConvertPtrAndOwn(SWIG_PERL_OBJECT_CALL obj, pp, type, flags, own)
892 #define SWIG_NewPointerObj(p, type, flags) SWIG_Perl_NewPointerObj(SWIG_PERL_OBJECT_CALL p, type, flags)
893 #define SWIG_AcquirePtr(ptr, src) SWIG_Perl_AcquirePtr(ptr, src)
894 #define swig_owntype int
895
896 /* for raw packed data */
897 #define SWIG_ConvertPacked(obj, p, s, type) SWIG_Perl_ConvertPacked(SWIG_PERL_OBJECT_CALL obj, p, s, type)
898 #define SWIG_NewPackedObj(p, s, type) SWIG_Perl_NewPackedObj(SWIG_PERL_OBJECT_CALL p, s, type)
899
900 /* for class or struct pointers */
901 #define SWIG_ConvertInstance(obj, pptr, type, flags) SWIG_ConvertPtr(obj, pptr, type, flags)
902 #define SWIG_NewInstanceObj(ptr, type, flags) SWIG_NewPointerObj(ptr, type, flags)
903
904 /* for C or C++ function pointers */
905 #define SWIG_ConvertFunctionPtr(obj, pptr, type) SWIG_ConvertPtr(obj, pptr, type, 0)
906 #define SWIG_NewFunctionPtrObj(ptr, type) SWIG_NewPointerObj(ptr, type, 0)
907
908 /* for C++ member pointers, ie, member methods */
909 #define SWIG_ConvertMember(obj, ptr, sz, ty) SWIG_ConvertPacked(obj, ptr, sz, ty)
910 #define SWIG_NewMemberObj(ptr, sz, type) SWIG_NewPackedObj(ptr, sz, type)
911
912
913 /* Runtime API */
914
915 #define SWIG_GetModule(clientdata) SWIG_Perl_GetModule(clientdata)
916 #define SWIG_SetModule(clientdata, pointer) SWIG_Perl_SetModule(pointer)
917
918
919 /* Error manipulation */
920
921 #define SWIG_ErrorType(code) SWIG_Perl_ErrorType(code)
922 #define SWIG_Error(code, msg) sv_setpvf(get_sv("@", GV_ADD), "%s %s", SWIG_ErrorType(code), msg)
923 #define SWIG_fail goto fail
924
925 /* Perl-specific SWIG API */
926
927 #define SWIG_MakePtr(sv, ptr, type, flags) SWIG_Perl_MakePtr(SWIG_PERL_OBJECT_CALL sv, ptr, type, flags)
928 #define SWIG_MakePackedObj(sv, p, s, type) SWIG_Perl_MakePackedObj(SWIG_PERL_OBJECT_CALL sv, p, s, type)
929 #define SWIG_SetError(str) SWIG_Error(SWIG_RuntimeError, str)
930
931
932 #define SWIG_PERL_DECL_ARGS_1(arg1) (SWIG_PERL_OBJECT_DECL arg1)
933 #define SWIG_PERL_CALL_ARGS_1(arg1) (SWIG_PERL_OBJECT_CALL arg1)
934 #define SWIG_PERL_DECL_ARGS_2(arg1, arg2) (SWIG_PERL_OBJECT_DECL arg1, arg2)
935 #define SWIG_PERL_CALL_ARGS_2(arg1, arg2) (SWIG_PERL_OBJECT_CALL arg1, arg2)
936
937 /* -----------------------------------------------------------------------------
938 * pointers/data manipulation
939 * ----------------------------------------------------------------------------- */
940
941 /* For backward compatibility only */
942 #define SWIG_POINTER_EXCEPTION 0
943
944 #ifdef __cplusplus
945 extern "C" {
946 #endif
947
948 #define SWIG_OWNER SWIG_POINTER_OWN
949 #define SWIG_SHADOW SWIG_OWNER << 1
950
951 #define SWIG_MAYBE_PERL_OBJECT SWIG_PERL_OBJECT_DECL
952
953 /* SWIG Perl macros */
954
955 /* Macro to declare an XS function */
956 #ifndef XSPROTO
957 # define XSPROTO(name) void name(pTHX_ CV* cv)
958 #endif
959
960 /* Macro to call an XS function */
961 #ifdef PERL_OBJECT
962 # define SWIG_CALLXS(_name) _name(cv,pPerl)
963 #else
964 # ifndef MULTIPLICITY
965 # define SWIG_CALLXS(_name) _name(cv)
966 # else
967 # define SWIG_CALLXS(_name) _name(PERL_GET_THX, cv)
968 # endif
969 #endif
970
971 #ifdef PERL_OBJECT
972 #define MAGIC_PPERL CPerlObj *pPerl = (CPerlObj *) this;
973
974 #ifdef __cplusplus
975 extern "C" {
976 #endif
977 typedef int (CPerlObj::*SwigMagicFunc)(SV *, MAGIC *);
978 #ifdef __cplusplus
979 }
980 #endif
981
982 #define SWIG_MAGIC(a,b) (SV *a, MAGIC *b)
983 #define SWIGCLASS_STATIC
984
985 #else /* PERL_OBJECT */
986
987 #define MAGIC_PPERL
988 #define SWIGCLASS_STATIC static SWIGUNUSED
989
990 #ifndef MULTIPLICITY
991 #define SWIG_MAGIC(a,b) (SV *a, MAGIC *b)
992
993 #ifdef __cplusplus
994 extern "C" {
995 #endif
996 typedef int (*SwigMagicFunc)(SV *, MAGIC *);
997 #ifdef __cplusplus
998 }
999 #endif
1000
1001 #else /* MULTIPLICITY */
1002
1003 #define SWIG_MAGIC(a,b) (struct interpreter *interp, SV *a, MAGIC *b)
1004
1005 #ifdef __cplusplus
1006 extern "C" {
1007 #endif
1008 typedef int (*SwigMagicFunc)(struct interpreter *, SV *, MAGIC *);
1009 #ifdef __cplusplus
1010 }
1011 #endif
1012
1013 #endif /* MULTIPLICITY */
1014 #endif /* PERL_OBJECT */
1015
1016 # ifdef PERL_OBJECT
1017 # define SWIG_croak_null() SWIG_Perl_croak_null(pPerl)
SWIG_Perl_croak_null(CPerlObj * pPerl)1018 static void SWIGUNUSED SWIG_Perl_croak_null(CPerlObj *pPerl)
1019 # else
1020 static void SWIGUNUSED SWIG_croak_null()
1021 # endif
1022 {
1023 SV *err = get_sv("@", GV_ADD);
1024 # if (PERL_VERSION < 6)
1025 croak("%_", err);
1026 # else
1027 if (sv_isobject(err))
1028 croak(0);
1029 else
1030 croak("%s", SvPV_nolen(err));
1031 # endif
1032 }
1033
1034
1035 /*
1036 Define how strict is the cast between strings and integers/doubles
1037 when overloading between these types occurs.
1038
1039 The default is making it as strict as possible by using SWIG_AddCast
1040 when needed.
1041
1042 You can use -DSWIG_PERL_NO_STRICT_STR2NUM at compilation time to
1043 disable the SWIG_AddCast, making the casting between string and
1044 numbers less strict.
1045
1046 In the end, we try to solve the overloading between strings and
1047 numerical types in the more natural way, but if you can avoid it,
1048 well, avoid it using %rename, for example.
1049 */
1050 #ifndef SWIG_PERL_NO_STRICT_STR2NUM
1051 # ifndef SWIG_PERL_STRICT_STR2NUM
1052 # define SWIG_PERL_STRICT_STR2NUM
1053 # endif
1054 #endif
1055 #ifdef SWIG_PERL_STRICT_STR2NUM
1056 /* string takes precedence */
1057 #define SWIG_Str2NumCast(x) SWIG_AddCast(x)
1058 #else
1059 /* number takes precedence */
1060 #define SWIG_Str2NumCast(x) x
1061 #endif
1062
1063
1064
1065 #include <stdlib.h>
1066
1067 SWIGRUNTIME const char *
SWIG_Perl_TypeProxyName(const swig_type_info * type)1068 SWIG_Perl_TypeProxyName(const swig_type_info *type) {
1069 if (!type) return NULL;
1070 if (type->clientdata != NULL) {
1071 return (const char*) type->clientdata;
1072 }
1073 else {
1074 return type->name;
1075 }
1076 }
1077
1078 /* Identical to SWIG_TypeCheck, except for strcmp comparison */
1079 SWIGRUNTIME swig_cast_info *
SWIG_TypeProxyCheck(const char * c,swig_type_info * ty)1080 SWIG_TypeProxyCheck(const char *c, swig_type_info *ty) {
1081 if (ty) {
1082 swig_cast_info *iter = ty->cast;
1083 while (iter) {
1084 if (strcmp(SWIG_Perl_TypeProxyName(iter->type), c) == 0) {
1085 if (iter == ty->cast)
1086 return iter;
1087 /* Move iter to the top of the linked list */
1088 iter->prev->next = iter->next;
1089 if (iter->next)
1090 iter->next->prev = iter->prev;
1091 iter->next = ty->cast;
1092 iter->prev = 0;
1093 if (ty->cast) ty->cast->prev = iter;
1094 ty->cast = iter;
1095 return iter;
1096 }
1097 iter = iter->next;
1098 }
1099 }
1100 return 0;
1101 }
1102
1103 /* Acquire a pointer value */
1104
1105 SWIGRUNTIME int
SWIG_Perl_AcquirePtr(SWIG_MAYBE_PERL_OBJECT SV * sv,int own)1106 SWIG_Perl_AcquirePtr(SWIG_MAYBE_PERL_OBJECT SV *sv, int own) {
1107 /* TODO */
1108 return 0;
1109 }
1110
1111 /* Function for getting a pointer value */
1112
1113 SWIGRUNTIME int
SWIG_Perl_ConvertPtrAndOwn(SWIG_MAYBE_PERL_OBJECT SV * sv,void ** ptr,swig_type_info * _t,int flags,int * own)1114 SWIG_Perl_ConvertPtrAndOwn(SWIG_MAYBE_PERL_OBJECT SV *sv, void **ptr, swig_type_info *_t, int flags, int *own) {
1115 swig_cast_info *tc;
1116 void *voidptr = (void *)0;
1117 SV *tsv = 0;
1118
1119 if (own)
1120 *own = 0;
1121
1122 /* If magical, apply more magic */
1123 if (SvGMAGICAL(sv))
1124 mg_get(sv);
1125
1126 /* Check to see if this is an object */
1127 if (sv_isobject(sv)) {
1128 IV tmp = 0;
1129 tsv = (SV*) SvRV(sv);
1130 if ((SvTYPE(tsv) == SVt_PVHV)) {
1131 MAGIC *mg;
1132 if (SvMAGICAL(tsv)) {
1133 mg = mg_find(tsv,'P');
1134 if (mg) {
1135 sv = mg->mg_obj;
1136 if (sv_isobject(sv)) {
1137 tsv = (SV*)SvRV(sv);
1138 tmp = SvIV(tsv);
1139 }
1140 }
1141 } else {
1142 return SWIG_ERROR;
1143 }
1144 } else {
1145 tmp = SvIV(tsv);
1146 }
1147 voidptr = INT2PTR(void *,tmp);
1148 } else if (! SvOK(sv)) { /* Check for undef */
1149 *(ptr) = (void *) 0;
1150 return (flags & SWIG_POINTER_NO_NULL) ? SWIG_NullReferenceError : SWIG_OK;
1151 } else if (SvTYPE(sv) == SVt_RV) { /* Check for NULL pointer */
1152 if (!SvROK(sv)) {
1153 /* In Perl 5.12 and later, SVt_RV == SVt_IV, so sv could be a valid integer value. */
1154 if (SvIOK(sv)) {
1155 return SWIG_ERROR;
1156 } else {
1157 /* NULL pointer (reference to undef). */
1158 *(ptr) = (void *) 0;
1159 return SWIG_OK;
1160 }
1161 } else {
1162 return SWIG_ERROR;
1163 }
1164 } else { /* Don't know what it is */
1165 return SWIG_ERROR;
1166 }
1167 if (_t) {
1168 /* Now see if the types match */
1169 char *_c = HvNAME(SvSTASH(SvRV(sv)));
1170 tc = SWIG_TypeProxyCheck(_c,_t);
1171 #ifdef SWIG_DIRECTORS
1172 if (!tc && !sv_derived_from(sv,SWIG_Perl_TypeProxyName(_t))) {
1173 #else
1174 if (!tc) {
1175 #endif
1176 return SWIG_ERROR;
1177 }
1178 {
1179 int newmemory = 0;
1180 *ptr = SWIG_TypeCast(tc,voidptr,&newmemory);
1181 if (newmemory == SWIG_CAST_NEW_MEMORY) {
1182 assert(own); /* badly formed typemap which will lead to a memory leak - it must set and use own to delete *ptr */
1183 if (own)
1184 *own = *own | SWIG_CAST_NEW_MEMORY;
1185 }
1186 }
1187 } else {
1188 *ptr = voidptr;
1189 }
1190
1191 /*
1192 * DISOWN implementation: we need a perl guru to check this one.
1193 */
1194 if (tsv && (flags & SWIG_POINTER_DISOWN)) {
1195 /*
1196 * almost copy paste code from below SWIG_POINTER_OWN setting
1197 */
1198 SV *obj = sv;
1199 HV *stash = SvSTASH(SvRV(obj));
1200 GV *gv = *(GV**)hv_fetch(stash, "OWNER", 5, TRUE);
1201 if (isGV(gv)) {
1202 HV *hv = GvHVn(gv);
1203 /*
1204 * To set ownership (see below), a newSViv(1) entry is added.
1205 * Hence, to remove ownership, we delete the entry.
1206 */
1207 if (hv_exists_ent(hv, obj, 0)) {
1208 hv_delete_ent(hv, obj, 0, 0);
1209 }
1210 }
1211 }
1212 return SWIG_OK;
1213 }
1214
1215 SWIGRUNTIME int
1216 SWIG_Perl_ConvertPtr(SWIG_MAYBE_PERL_OBJECT SV *sv, void **ptr, swig_type_info *_t, int flags) {
1217 return SWIG_Perl_ConvertPtrAndOwn(sv, ptr, _t, flags, 0);
1218 }
1219
1220 SWIGRUNTIME void
1221 SWIG_Perl_MakePtr(SWIG_MAYBE_PERL_OBJECT SV *sv, void *ptr, swig_type_info *t, int flags) {
1222 if (ptr && (flags & (SWIG_SHADOW | SWIG_POINTER_OWN))) {
1223 SV *self;
1224 SV *obj=newSV(0);
1225 HV *hash=newHV();
1226 HV *stash;
1227 sv_setref_pv(obj, SWIG_Perl_TypeProxyName(t), ptr);
1228 stash=SvSTASH(SvRV(obj));
1229 if (flags & SWIG_POINTER_OWN) {
1230 HV *hv;
1231 GV *gv = *(GV**)hv_fetch(stash, "OWNER", 5, TRUE);
1232 if (!isGV(gv))
1233 gv_init(gv, stash, "OWNER", 5, FALSE);
1234 hv=GvHVn(gv);
1235 hv_store_ent(hv, obj, newSViv(1), 0);
1236 }
1237 sv_magic((SV *)hash, (SV *)obj, 'P', Nullch, 0);
1238 SvREFCNT_dec(obj);
1239 self=newRV_noinc((SV *)hash);
1240 sv_setsv(sv, self);
1241 SvREFCNT_dec((SV *)self);
1242 sv_bless(sv, stash);
1243 }
1244 else {
1245 sv_setref_pv(sv, SWIG_Perl_TypeProxyName(t), ptr);
1246 }
1247 }
1248
1249 SWIGRUNTIMEINLINE SV *
1250 SWIG_Perl_NewPointerObj(SWIG_MAYBE_PERL_OBJECT void *ptr, swig_type_info *t, int flags) {
1251 SV *result = sv_newmortal();
1252 SWIG_MakePtr(result, ptr, t, flags);
1253 return result;
1254 }
1255
1256 SWIGRUNTIME void
1257 SWIG_Perl_MakePackedObj(SWIG_MAYBE_PERL_OBJECT SV *sv, void *ptr, int sz, swig_type_info *type) {
1258 char result[1024];
1259 char *r = result;
1260 if ((2*sz + 1 + strlen(SWIG_Perl_TypeProxyName(type))) > 1000) return;
1261 *(r++) = '_';
1262 r = SWIG_PackData(r,ptr,sz);
1263 strcpy(r,SWIG_Perl_TypeProxyName(type));
1264 sv_setpv(sv, result);
1265 }
1266
1267 SWIGRUNTIME SV *
1268 SWIG_Perl_NewPackedObj(SWIG_MAYBE_PERL_OBJECT void *ptr, int sz, swig_type_info *type) {
1269 SV *result = sv_newmortal();
1270 SWIG_Perl_MakePackedObj(result, ptr, sz, type);
1271 return result;
1272 }
1273
1274 /* Convert a packed pointer value */
1275 SWIGRUNTIME int
1276 SWIG_Perl_ConvertPacked(SWIG_MAYBE_PERL_OBJECT SV *obj, void *ptr, int sz, swig_type_info *ty) {
1277 swig_cast_info *tc;
1278 const char *c = 0;
1279
1280 if ((!obj) || (!SvOK(obj))) return SWIG_ERROR;
1281 c = SvPV_nolen(obj);
1282 /* Pointer values must start with leading underscore */
1283 if (*c != '_') return SWIG_ERROR;
1284 c++;
1285 c = SWIG_UnpackData(c,ptr,sz);
1286 if (ty) {
1287 tc = SWIG_TypeCheck(c,ty);
1288 if (!tc) return SWIG_ERROR;
1289 }
1290 return SWIG_OK;
1291 }
1292
1293
1294 /* Macros for low-level exception handling */
1295 #define SWIG_croak(x) { SWIG_Error(SWIG_RuntimeError, x); SWIG_fail; }
1296
1297
1298 typedef XSPROTO(SwigPerlWrapper);
1299 typedef SwigPerlWrapper *SwigPerlWrapperPtr;
1300
1301 /* Structure for command table */
1302 typedef struct {
1303 const char *name;
1304 SwigPerlWrapperPtr wrapper;
1305 } swig_command_info;
1306
1307 /* Information for constant table */
1308
1309 #define SWIG_INT 1
1310 #define SWIG_FLOAT 2
1311 #define SWIG_STRING 3
1312 #define SWIG_POINTER 4
1313 #define SWIG_BINARY 5
1314
1315 /* Constant information structure */
1316 typedef struct swig_constant_info {
1317 int type;
1318 const char *name;
1319 long lvalue;
1320 double dvalue;
1321 void *pvalue;
1322 swig_type_info **ptype;
1323 } swig_constant_info;
1324
1325
1326 /* Structure for variable table */
1327 typedef struct {
1328 const char *name;
1329 SwigMagicFunc set;
1330 SwigMagicFunc get;
1331 swig_type_info **type;
1332 } swig_variable_info;
1333
1334 /* Magic variable code */
1335 #ifndef PERL_OBJECT
1336 # ifdef __cplusplus
1337 # define swig_create_magic(s,a,b,c) _swig_create_magic(s,const_cast<char*>(a),b,c)
1338 # else
1339 # define swig_create_magic(s,a,b,c) _swig_create_magic(s,(char*)(a),b,c)
1340 # endif
1341 # ifndef MULTIPLICITY
1342 SWIGRUNTIME void _swig_create_magic(SV *sv, char *name, int (*set)(SV *, MAGIC *), int (*get)(SV *,MAGIC *))
1343 # else
1344 SWIGRUNTIME void _swig_create_magic(SV *sv, char *name, int (*set)(struct interpreter*, SV *, MAGIC *), int (*get)(struct interpreter*, SV *,MAGIC *))
1345 # endif
1346 #else
1347 # define swig_create_magic(s,a,b,c) _swig_create_magic(pPerl,s,a,b,c)
1348 SWIGRUNTIME void _swig_create_magic(CPerlObj *pPerl, SV *sv, const char *name, int (CPerlObj::*set)(SV *, MAGIC *), int (CPerlObj::*get)(SV *, MAGIC *))
1349 #endif
1350 {
1351 MAGIC *mg;
1352 sv_magic(sv,sv,'U',name,strlen(name));
1353 mg = mg_find(sv,'U');
1354 mg->mg_virtual = (MGVTBL *) malloc(sizeof(MGVTBL));
1355 mg->mg_virtual->svt_get = (SwigMagicFunc) get;
1356 mg->mg_virtual->svt_set = (SwigMagicFunc) set;
1357 mg->mg_virtual->svt_len = 0;
1358 mg->mg_virtual->svt_clear = 0;
1359 mg->mg_virtual->svt_free = 0;
1360 }
1361
1362
1363 SWIGRUNTIME swig_module_info *
1364 SWIG_Perl_GetModule(void *SWIGUNUSEDPARM(clientdata)) {
1365 static void *type_pointer = (void *)0;
1366 SV *pointer;
1367
1368 /* first check if pointer already created */
1369 if (!type_pointer) {
1370 pointer = get_sv("swig_runtime_data::type_pointer" SWIG_RUNTIME_VERSION SWIG_TYPE_TABLE_NAME, FALSE | GV_ADDMULTI);
1371 if (pointer && SvOK(pointer)) {
1372 type_pointer = INT2PTR(swig_type_info **, SvIV(pointer));
1373 }
1374 }
1375
1376 return (swig_module_info *) type_pointer;
1377 }
1378
1379 SWIGRUNTIME void
1380 SWIG_Perl_SetModule(swig_module_info *module) {
1381 SV *pointer;
1382
1383 /* create a new pointer */
1384 pointer = get_sv("swig_runtime_data::type_pointer" SWIG_RUNTIME_VERSION SWIG_TYPE_TABLE_NAME, TRUE | GV_ADDMULTI);
1385 sv_setiv(pointer, PTR2IV(module));
1386 }
1387
1388 #ifdef __cplusplus
1389 }
1390 #endif
1391
1392 /* Workaround perl5 global namespace pollution. Note that undefining library
1393 * functions like fopen will not solve the problem on all platforms as fopen
1394 * might be a macro on Windows but not necessarily on other operating systems. */
1395 #ifdef do_open
1396 #undef do_open
1397 #endif
1398 #ifdef do_close
1399 #undef do_close
1400 #endif
1401 #ifdef do_exec
1402 #undef do_exec
1403 #endif
1404 #ifdef scalar
1405 #undef scalar
1406 #endif
1407 #ifdef list
1408 #undef list
1409 #endif
1410 #ifdef apply
1411 #undef apply
1412 #endif
1413 #ifdef convert
1414 #undef convert
1415 #endif
1416 #ifdef Error
1417 #undef Error
1418 #endif
1419 #ifdef form
1420 #undef form
1421 #endif
1422 #ifdef vform
1423 #undef vform
1424 #endif
1425 #ifdef LABEL
1426 #undef LABEL
1427 #endif
1428 #ifdef METHOD
1429 #undef METHOD
1430 #endif
1431 #ifdef Move
1432 #undef Move
1433 #endif
1434 #ifdef yylex
1435 #undef yylex
1436 #endif
1437 #ifdef yyparse
1438 #undef yyparse
1439 #endif
1440 #ifdef yyerror
1441 #undef yyerror
1442 #endif
1443 #ifdef invert
1444 #undef invert
1445 #endif
1446 #ifdef ref
1447 #undef ref
1448 #endif
1449 #ifdef read
1450 #undef read
1451 #endif
1452 #ifdef write
1453 #undef write
1454 #endif
1455 #ifdef eof
1456 #undef eof
1457 #endif
1458 #ifdef close
1459 #undef close
1460 #endif
1461 #ifdef rewind
1462 #undef rewind
1463 #endif
1464 #ifdef free
1465 #undef free
1466 #endif
1467 #ifdef malloc
1468 #undef malloc
1469 #endif
1470 #ifdef calloc
1471 #undef calloc
1472 #endif
1473 #ifdef Stat
1474 #undef Stat
1475 #endif
1476 #ifdef check
1477 #undef check
1478 #endif
1479 #ifdef seekdir
1480 #undef seekdir
1481 #endif
1482 #ifdef open
1483 #undef open
1484 #endif
1485 #ifdef readdir
1486 #undef readdir
1487 #endif
1488 #ifdef bind
1489 #undef bind
1490 #endif
1491 #ifdef access
1492 #undef access
1493 #endif
1494 #ifdef stat
1495 #undef stat
1496 #endif
1497 #ifdef seed
1498 #undef seed
1499 #endif
1500
1501 #ifdef bool
1502 /* Leave if macro is from C99 stdbool.h */
1503 #ifndef __bool_true_false_are_defined
1504 #undef bool
1505 #endif
1506 #endif
1507
1508
1509
1510
1511 #define SWIG_exception_fail(code, msg) do { SWIG_Error(code, msg); SWIG_fail; } while(0)
1512
1513 #define SWIG_contract_assert(expr, msg) if (!(expr)) { SWIG_Error(SWIG_RuntimeError, msg); SWIG_fail; } else
1514
1515
1516
1517 /* -------- TYPES TABLE (BEGIN) -------- */
1518
1519 #define SWIGTYPE_p_FILE swig_types[0]
1520 #define SWIGTYPE_p_char swig_types[1]
1521 #define SWIGTYPE_p_double swig_types[2]
1522 #define SWIGTYPE_p_f_CBLAS_TRANSPOSE_t_p_gsl_vector_p_void__int swig_types[3]
1523 #define SWIGTYPE_p_f_p_q_const__char_p_q_const__char_int_int__void swig_types[4]
1524 #define SWIGTYPE_p_f_p_q_const__char_p_q_const__char_int_p_q_const__char__void swig_types[5]
1525 #define SWIGTYPE_p_float swig_types[6]
1526 #define SWIGTYPE_p_gsl_complex swig_types[7]
1527 #define SWIGTYPE_p_gsl_complex_float swig_types[8]
1528 #define SWIGTYPE_p_gsl_complex_long_double swig_types[9]
1529 #define SWIGTYPE_p_gsl_linalg_matrix_mod_t swig_types[10]
1530 #define SWIGTYPE_p_gsl_matrix swig_types[11]
1531 #define SWIGTYPE_p_gsl_matrix_complex swig_types[12]
1532 #define SWIGTYPE_p_gsl_mode_t swig_types[13]
1533 #define SWIGTYPE_p_gsl_permutation_struct swig_types[14]
1534 #define SWIGTYPE_p_gsl_vector swig_types[15]
1535 #define SWIGTYPE_p_gsl_vector_complex swig_types[16]
1536 #define SWIGTYPE_p_int swig_types[17]
1537 #define SWIGTYPE_p_long_double swig_types[18]
1538 #define SWIGTYPE_p_size_t swig_types[19]
1539 static swig_type_info *swig_types[21];
1540 static swig_module_info swig_module = {swig_types, 20, 0, 0, 0, 0};
1541 #define SWIG_TypeQuery(name) SWIG_TypeQueryModule(&swig_module, &swig_module, name)
1542 #define SWIG_MangledTypeQuery(name) SWIG_MangledTypeQueryModule(&swig_module, &swig_module, name)
1543
1544 /* -------- TYPES TABLE (END) -------- */
1545
1546 #define SWIG_init boot_Math__GSL__Linalg
1547
1548 #define SWIG_name "Math::GSL::Linalgc::boot_Math__GSL__Linalg"
1549 #define SWIG_prefix "Math::GSL::Linalgc::"
1550
1551 #define SWIGVERSION 0x040001
1552 #define SWIG_VERSION SWIGVERSION
1553
1554
1555 #define SWIG_as_voidptr(a) (void *)((const void *)(a))
1556 #define SWIG_as_voidptrptr(a) ((void)SWIG_as_voidptr(*a),(void**)(a))
1557
1558
1559 #ifdef __cplusplus
1560 extern "C"
1561 #endif
1562 #ifndef PERL_OBJECT
1563 #ifndef MULTIPLICITY
1564 SWIGEXPORT void SWIG_init (CV* cv);
1565 #else
1566 SWIGEXPORT void SWIG_init (pTHXo_ CV* cv);
1567 #endif
1568 #else
1569 SWIGEXPORT void SWIG_init (CV *cv, CPerlObj *);
1570 #endif
1571
1572
1573 SWIGINTERNINLINE SV *
SWIG_PERL_DECL_ARGS_1(double value)1574 SWIG_From_double SWIG_PERL_DECL_ARGS_1(double value)
1575 {
1576 return sv_2mortal(newSVnv(value));
1577 }
1578
1579
1580 SWIGINTERNINLINE SV *
SWIG_PERL_DECL_ARGS_1(long value)1581 SWIG_From_long SWIG_PERL_DECL_ARGS_1(long value)
1582 {
1583 SV *sv;
1584 if (IVSIZE >= sizeof(value) || (value >= IV_MIN && value <= IV_MAX))
1585 sv = newSViv(value);
1586 else
1587 sv = newSVpvf("%ld", value);
1588 return sv_2mortal(sv);
1589 }
1590
1591
1592 SWIGINTERNINLINE SV *
SWIG_PERL_DECL_ARGS_1(int value)1593 SWIG_From_int SWIG_PERL_DECL_ARGS_1(int value)
1594 {
1595 return SWIG_From_long SWIG_PERL_CALL_ARGS_1(value);
1596 }
1597
1598
1599 SWIGINTERN swig_type_info*
SWIG_pchar_descriptor(void)1600 SWIG_pchar_descriptor(void)
1601 {
1602 static int init = 0;
1603 static swig_type_info* info = 0;
1604 if (!init) {
1605 info = SWIG_TypeQuery("_p_char");
1606 init = 1;
1607 }
1608 return info;
1609 }
1610
1611
1612 SWIGINTERN int
SWIG_AsCharPtrAndSize(SV * obj,char ** cptr,size_t * psize,int * alloc)1613 SWIG_AsCharPtrAndSize(SV *obj, char** cptr, size_t* psize, int *alloc)
1614 {
1615 if (SvMAGICAL(obj)) {
1616 SV *tmp = sv_newmortal();
1617 SvSetSV(tmp, obj);
1618 obj = tmp;
1619 }
1620 if (SvPOK(obj)) {
1621 STRLEN len = 0;
1622 char *cstr = SvPV(obj, len);
1623 size_t size = len + 1;
1624 if (cptr) {
1625 if (alloc) {
1626 if (*alloc == SWIG_NEWOBJ) {
1627 *cptr = (char *)memcpy(malloc((size)*sizeof(char)), cstr, sizeof(char)*(size));
1628 } else {
1629 *cptr = cstr;
1630 *alloc = SWIG_OLDOBJ;
1631 }
1632 }
1633 }
1634 if (psize) *psize = size;
1635 return SWIG_OK;
1636 } else {
1637 swig_type_info* pchar_descriptor = SWIG_pchar_descriptor();
1638 if (pchar_descriptor) {
1639 char* vptr = 0;
1640 if (SWIG_ConvertPtr(obj, (void**)&vptr, pchar_descriptor, 0) == SWIG_OK) {
1641 if (cptr) *cptr = vptr;
1642 if (psize) *psize = vptr ? (strlen(vptr) + 1) : 0;
1643 if (alloc) *alloc = SWIG_OLDOBJ;
1644 return SWIG_OK;
1645 }
1646 }
1647 }
1648 return SWIG_TypeError;
1649 }
1650
1651
1652
1653
1654
1655 #include <limits.h>
1656 #if !defined(SWIG_NO_LLONG_MAX)
1657 # if !defined(LLONG_MAX) && defined(__GNUC__) && defined (__LONG_LONG_MAX__)
1658 # define LLONG_MAX __LONG_LONG_MAX__
1659 # define LLONG_MIN (-LLONG_MAX - 1LL)
1660 # define ULLONG_MAX (LLONG_MAX * 2ULL + 1ULL)
1661 # endif
1662 #endif
1663
1664
1665 #include <stdlib.h>
1666 #ifdef _MSC_VER
1667 # ifndef strtoull
1668 # define strtoull _strtoui64
1669 # endif
1670 # ifndef strtoll
1671 # define strtoll _strtoi64
1672 # endif
1673 #endif
1674
1675
1676 SWIGINTERN int
SWIG_PERL_DECL_ARGS_2(SV * obj,double * val)1677 SWIG_AsVal_double SWIG_PERL_DECL_ARGS_2(SV *obj, double *val)
1678 {
1679 if (SvNIOK(obj)) {
1680 if (val) *val = SvNV(obj);
1681 return SWIG_OK;
1682 } else if (SvIOK(obj)) {
1683 if (val) *val = (double) SvIV(obj);
1684 return SWIG_AddCast(SWIG_OK);
1685 } else {
1686 const char *nptr = SvPV_nolen(obj);
1687 if (nptr) {
1688 char *endptr;
1689 double v;
1690 errno = 0;
1691 v = strtod(nptr, &endptr);
1692 if (errno == ERANGE) {
1693 errno = 0;
1694 return SWIG_OverflowError;
1695 } else {
1696 if (*endptr == '\0') {
1697 if (val) *val = v;
1698 return SWIG_Str2NumCast(SWIG_OK);
1699 }
1700 }
1701 }
1702 }
1703 return SWIG_TypeError;
1704 }
1705
1706
1707 #include <float.h>
1708
1709
1710 #include <math.h>
1711
1712
1713 SWIGINTERNINLINE int
SWIG_CanCastAsInteger(double * d,double min,double max)1714 SWIG_CanCastAsInteger(double *d, double min, double max) {
1715 double x = *d;
1716 if ((min <= x && x <= max)) {
1717 double fx = floor(x);
1718 double cx = ceil(x);
1719 double rd = ((x - fx) < 0.5) ? fx : cx; /* simple rint */
1720 if ((errno == EDOM) || (errno == ERANGE)) {
1721 errno = 0;
1722 } else {
1723 double summ, reps, diff;
1724 if (rd < x) {
1725 diff = x - rd;
1726 } else if (rd > x) {
1727 diff = rd - x;
1728 } else {
1729 return 1;
1730 }
1731 summ = rd + x;
1732 reps = diff/summ;
1733 if (reps < 8*DBL_EPSILON) {
1734 *d = rd;
1735 return 1;
1736 }
1737 }
1738 }
1739 return 0;
1740 }
1741
1742
1743 SWIGINTERN int
SWIG_PERL_DECL_ARGS_2(SV * obj,long * val)1744 SWIG_AsVal_long SWIG_PERL_DECL_ARGS_2(SV *obj, long* val)
1745 {
1746 if (SvUOK(obj)) {
1747 UV v = SvUV(obj);
1748 if (UVSIZE < sizeof(*val) || v <= LONG_MAX) {
1749 if (val) *val = v;
1750 return SWIG_OK;
1751 }
1752 return SWIG_OverflowError;
1753 } else if (SvIOK(obj)) {
1754 IV v = SvIV(obj);
1755 if (IVSIZE <= sizeof(*val) || (v >= LONG_MIN && v <= LONG_MAX)) {
1756 if(val) *val = v;
1757 return SWIG_OK;
1758 }
1759 return SWIG_OverflowError;
1760 } else {
1761 int dispatch = 0;
1762 const char *nptr = SvPV_nolen(obj);
1763 if (nptr) {
1764 char *endptr;
1765 long v;
1766 errno = 0;
1767 v = strtol(nptr, &endptr,0);
1768 if (errno == ERANGE) {
1769 errno = 0;
1770 return SWIG_OverflowError;
1771 } else {
1772 if (*endptr == '\0') {
1773 if (val) *val = v;
1774 return SWIG_Str2NumCast(SWIG_OK);
1775 }
1776 }
1777 }
1778 if (!dispatch) {
1779 double d;
1780 int res = SWIG_AddCast(SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(obj,&d));
1781 if (SWIG_IsOK(res) && SWIG_CanCastAsInteger(&d, LONG_MIN, LONG_MAX)) {
1782 if (val) *val = (long)(d);
1783 return res;
1784 }
1785 }
1786 }
1787 return SWIG_TypeError;
1788 }
1789
1790
1791 SWIGINTERN int
SWIG_PERL_DECL_ARGS_2(SV * obj,int * val)1792 SWIG_AsVal_int SWIG_PERL_DECL_ARGS_2(SV * obj, int *val)
1793 {
1794 long v;
1795 int res = SWIG_AsVal_long SWIG_PERL_CALL_ARGS_2(obj, &v);
1796 if (SWIG_IsOK(res)) {
1797 if ((v < INT_MIN || v > INT_MAX)) {
1798 return SWIG_OverflowError;
1799 } else {
1800 if (val) *val = (int)(v);
1801 }
1802 }
1803 return res;
1804 }
1805
1806
1807 SWIGINTERNINLINE SV *
SWIG_FromCharPtrAndSize(const char * carray,size_t size)1808 SWIG_FromCharPtrAndSize(const char* carray, size_t size)
1809 {
1810 SV *obj = sv_newmortal();
1811 if (carray) {
1812 sv_setpvn(obj, carray, size);
1813 } else {
1814 sv_setsv(obj, &PL_sv_undef);
1815 }
1816 return obj;
1817 }
1818
1819
1820 SWIGINTERNINLINE SV *
SWIG_FromCharPtr(const char * cptr)1821 SWIG_FromCharPtr(const char *cptr)
1822 {
1823 return SWIG_FromCharPtrAndSize(cptr, (cptr ? strlen(cptr) : 0));
1824 }
1825
1826
1827 #include "gsl/gsl_nan.h"
1828 #include "gsl/gsl_errno.h"
1829 #include "gsl/gsl_math.h"
1830 #include "gsl/gsl_monte.h"
1831
1832
1833 struct perl_array {
1834 I32 len;
1835 AV *array;
1836 };
1837
1838
1839
1840 enum awType { awDouble, awFloat, awInt, awUnsigned };
1841
1842 typedef struct {
1843 I32 size;
1844 enum awType type;
1845 void * data;
1846 } array_wrapper;
1847
array_wrapper_alloc(int numelem,enum awType type)1848 array_wrapper * array_wrapper_alloc(int numelem, enum awType type){
1849 array_wrapper * rv = malloc(sizeof(array_wrapper));
1850
1851 if (rv == NULL)
1852 croak("array_wrapper_alloc: can't malloc wrapper\n");
1853
1854 switch (type){
1855 case awDouble:
1856 rv->data = malloc(sizeof(double) * numelem);
1857 break;
1858 case awFloat:
1859 rv->data = malloc(sizeof(float) * numelem);
1860 break;
1861 case awInt:
1862 rv->data = malloc(sizeof(int) * numelem);
1863 break;
1864 case awUnsigned:
1865 rv->data = malloc(sizeof(unsigned int) * numelem);
1866 break;
1867 default:
1868 croak("array_wrapper_alloc: type should be awDouble, awFloat, awInt, or awUnsigned");
1869 }
1870
1871 if (rv->data == NULL)
1872 croak("array_wrapper_alloc: can't malloc data");
1873
1874 rv->size = numelem;
1875 rv->type = type;
1876 return rv;
1877 }
1878
array_wrapper_free(array_wrapper * daw)1879 void array_wrapper_free(array_wrapper * daw){
1880 free(daw->data);
1881 free(daw);
1882 }
1883
1884
1885 /* structure to hold required information while the gsl function call
1886 for each callback
1887 */
1888 struct gsl_function_perl {
1889 gsl_function C_gsl_function;
1890 SV * function;
1891 SV * params;
1892 };
1893
1894 struct gsl_function_fdf_perl {
1895 gsl_function_fdf C_gsl_function_fdf;
1896 SV * f;
1897 SV * df;
1898 SV * fdf;
1899 SV * params;
1900 };
1901
1902 struct gsl_monte_function_perl {
1903 gsl_monte_function C_gsl_monte_function;
1904 SV * f;
1905 SV * dim;
1906 SV * params;
1907 };
1908
gsl_function_perl_free(struct gsl_function_perl * perl_f)1909 void gsl_function_perl_free(struct gsl_function_perl * perl_f){
1910 if (perl_f != NULL) {
1911 SvREFCNT_dec(perl_f->function);
1912 SvREFCNT_dec(perl_f->params);
1913 Safefree(perl_f);
1914 }
1915 }
1916
gsl_function_fdf_perl_free(struct gsl_function_fdf_perl * perl_fdf)1917 void gsl_function_fdf_perl_free(struct gsl_function_fdf_perl * perl_fdf){
1918 if (perl_fdf != NULL) {
1919 SvREFCNT_dec(perl_fdf->f);
1920 SvREFCNT_dec(perl_fdf->df);
1921 SvREFCNT_dec(perl_fdf->fdf);
1922 SvREFCNT_dec(perl_fdf->params);
1923 Safefree(perl_fdf);
1924 }
1925 }
1926
1927 /* These functions (C callbacks) calls the perl callbacks.
1928 Info for perl callback can be found using the 'void*params' parameter
1929 */
call_gsl_function_x_params(SV * function,double x,SV * params)1930 double call_gsl_function_x_params(SV* function, double x, SV *params){
1931 unsigned int count;
1932 double y;
1933 dSP;
1934
1935 //fprintf(stderr, "LOOKUP CALLBACK\n");
1936 ENTER;
1937 SAVETMPS;
1938
1939 PUSHMARK(SP);
1940 XPUSHs(sv_2mortal(newSVnv((double)x)));
1941 XPUSHs(params);
1942 PUTBACK; /* make local stack pointer global */
1943
1944 count = call_sv(function, G_SCALAR);
1945 SPAGAIN;
1946
1947 if (count != 1)
1948 croak("Expected to call subroutine in scalar context!");
1949
1950 y = POPn;
1951
1952 PUTBACK; /* make local stack pointer global */
1953 FREETMPS;
1954 LEAVE;
1955
1956 return y;
1957 }
1958
call_gsl_function(double x,void * params)1959 double call_gsl_function(double x , void *params){
1960 struct gsl_function_perl *F=(struct gsl_function_perl*)params;
1961 return call_gsl_function_x_params( F->function, x, F->params );
1962 }
1963
call_gsl_function_fdf_f(double x,void * params)1964 double call_gsl_function_fdf_f(double x , void *params){
1965 struct gsl_function_fdf_perl *F=(struct gsl_function_fdf_perl*)params;
1966 return call_gsl_function_x_params( F->f, x, F->params );
1967 }
1968
call_gsl_function_fdf_df(double x,void * params)1969 double call_gsl_function_fdf_df(double x , void *params){
1970 struct gsl_function_fdf_perl *F=(struct gsl_function_fdf_perl*)params;
1971 return call_gsl_function_x_params( F->df, x, F->params );
1972 }
1973
call_gsl_function_fdf_fdf(double x,void * params,double * f,double * df)1974 void call_gsl_function_fdf_fdf(double x , void *params, double *f, double *df ){
1975 struct gsl_function_fdf_perl *F=(struct gsl_function_fdf_perl*)params;
1976
1977 dSP;
1978
1979 ENTER;
1980 SAVETMPS;
1981
1982 PUSHMARK(SP);
1983 EXTEND(SP, 2);
1984 PUSHs(sv_2mortal(newSVnv((double)x)));
1985 PUSHs(F->params);
1986 PUTBACK; /* make local stack pointer global */
1987
1988 {
1989 unsigned int count = call_sv(F->fdf, G_ARRAY);
1990 SPAGAIN;
1991
1992 if (count != 2)
1993 croak( "Expected two return values, got %d", count );
1994 }
1995
1996 *df = POPn;
1997 *f = POPn;
1998
1999 PUTBACK; /* make local stack pointer global */
2000 FREETMPS;
2001 LEAVE;
2002 }
2003
call_gsl_monte_function(double * x_array,size_t dim,void * params)2004 double call_gsl_monte_function(double *x_array , size_t dim, void *params){
2005 struct gsl_monte_function_perl *F=(struct gsl_monte_function_perl*)params;
2006 unsigned int count;
2007 unsigned int i;
2008 AV* perl_array;
2009 double y;
2010 dSP;
2011
2012 //fprintf(stderr, "LOOKUP CALLBACK\n");
2013 ENTER;
2014 SAVETMPS;
2015
2016 PUSHMARK(SP);
2017 perl_array=newAV();
2018 sv_2mortal((SV*)perl_array);
2019 XPUSHs(sv_2mortal(newRV((SV *)perl_array)));
2020 for(i=0; i<dim; i++) {
2021 /* no mortal : it is referenced by the array */
2022 av_push(perl_array, newSVnv(x_array[i]));
2023 }
2024 XPUSHs(sv_2mortal(newSViv(dim)));
2025 XPUSHs(F->params);
2026 PUTBACK; /* make local stack pointer global */
2027
2028 count = call_sv(F->f, G_SCALAR);
2029 SPAGAIN;
2030
2031 if (count != 1)
2032 croak("Expected to call subroutine in scalar context!");
2033
2034 y = POPn;
2035
2036 PUTBACK; /* make local stack pointer global */
2037 FREETMPS;
2038 LEAVE;
2039
2040 return y;
2041 }
2042
2043
gsl_function_fdf_extract(char * param_name,HV * hash,SV * func[])2044 void gsl_function_fdf_extract( char* param_name, HV* hash, SV* func[] ) {
2045 static const char *keys[3] = { "f", "df", "fdf" };
2046
2047 int ikey;
2048
2049 for ( ikey = 0 ; ikey < 3 ; ++ikey ) {
2050 func[ikey] = 0;
2051 const char* key = keys[ikey];
2052 /* it just so happens that strlen(keys[ikey]) == ikey + 1 */
2053 SV** pp_sv = hv_fetch( hash, key, ikey+1, 0 );
2054 SV* function;
2055
2056 if ( !pp_sv )
2057 croak("Math::GSL : %s: missing key %s!", param_name, key);
2058
2059 function = *pp_sv;
2060
2061 if ( SvPOK(function) || ( SvROK( function ) && SvTYPE(SvRV(function)) == SVt_PVCV ) ) {
2062 /* hold on to SV after the enclosing hash goes away */
2063 SvREFCNT_inc( function );
2064 func[ikey] = function;
2065 }
2066 else {
2067 croak( "Math::GSL : %s: key %s is not a reference to code!", param_name, key);
2068 }
2069 }
2070 }
2071
2072
2073
2074 #include "gsl/gsl_inline.h"
2075 #include "gsl/gsl_linalg.h"
2076 #include "gsl/gsl_permutation.h"
2077 #include "gsl/gsl_complex.h"
2078 #include "gsl/gsl_complex_math.h"
2079
2080
2081 SWIGINTERN int
SWIG_PERL_DECL_ARGS_2(SV * obj,unsigned long * val)2082 SWIG_AsVal_unsigned_SS_long SWIG_PERL_DECL_ARGS_2(SV *obj, unsigned long *val)
2083 {
2084 if (SvUOK(obj)) {
2085 UV v = SvUV(obj);
2086 if (UVSIZE <= sizeof(*val) || v <= ULONG_MAX) {
2087 if (val) *val = v;
2088 return SWIG_OK;
2089 }
2090 return SWIG_OverflowError;
2091 } else if (SvIOK(obj)) {
2092 IV v = SvIV(obj);
2093 if (v >= 0 && (IVSIZE <= sizeof(*val) || v <= ULONG_MAX)) {
2094 if (val) *val = v;
2095 return SWIG_OK;
2096 }
2097 return SWIG_OverflowError;
2098 } else {
2099 int dispatch = 0;
2100 const char *nptr = SvPV_nolen(obj);
2101 if (nptr) {
2102 char *endptr;
2103 unsigned long v;
2104 errno = 0;
2105 v = strtoul(nptr, &endptr,0);
2106 if (errno == ERANGE) {
2107 errno = 0;
2108 return SWIG_OverflowError;
2109 } else {
2110 if (*endptr == '\0') {
2111 if (val) *val = v;
2112 return SWIG_Str2NumCast(SWIG_OK);
2113 }
2114 }
2115 }
2116 if (!dispatch) {
2117 double d;
2118 int res = SWIG_AddCast(SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(obj,&d));
2119 if (SWIG_IsOK(res) && SWIG_CanCastAsInteger(&d, 0, ULONG_MAX)) {
2120 if (val) *val = (unsigned long)(d);
2121 return res;
2122 }
2123 }
2124 }
2125 return SWIG_TypeError;
2126 }
2127
2128
2129 #if defined(LLONG_MAX) && !defined(SWIG_LONG_LONG_AVAILABLE)
2130 # define SWIG_LONG_LONG_AVAILABLE
2131 #endif
2132
2133
2134 #ifdef SWIG_LONG_LONG_AVAILABLE
2135 SWIGINTERN int
SWIG_PERL_DECL_ARGS_2(SV * obj,unsigned long long * val)2136 SWIG_AsVal_unsigned_SS_long_SS_long SWIG_PERL_DECL_ARGS_2(SV *obj, unsigned long long *val)
2137 {
2138 if (SvUOK(obj)) {
2139 /* pretty sure this should be conditional on
2140 * (UVSIZE <= sizeof(*val) || v <= ULLONG_MAX) */
2141 if (val) *val = SvUV(obj);
2142 return SWIG_OK;
2143 } else if (SvIOK(obj)) {
2144 IV v = SvIV(obj);
2145 if (v >= 0 && (IVSIZE <= sizeof(*val) || v <= ULLONG_MAX)) {
2146 if (val) *val = v;
2147 return SWIG_OK;
2148 } else {
2149 return SWIG_OverflowError;
2150 }
2151 } else {
2152 int dispatch = 0;
2153 const char *nptr = SvPV_nolen(obj);
2154 if (nptr) {
2155 char *endptr;
2156 unsigned long long v;
2157 errno = 0;
2158 v = strtoull(nptr, &endptr,0);
2159 if (errno == ERANGE) {
2160 errno = 0;
2161 return SWIG_OverflowError;
2162 } else {
2163 if (*endptr == '\0') {
2164 if (val) *val = v;
2165 return SWIG_Str2NumCast(SWIG_OK);
2166 }
2167 }
2168 }
2169 if (!dispatch) {
2170 const double mant_max = 1LL << DBL_MANT_DIG;
2171 double d;
2172 int res = SWIG_AddCast(SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(obj,&d));
2173 if (SWIG_IsOK(res) && SWIG_CanCastAsInteger(&d, 0, mant_max)) {
2174 if (val) *val = (unsigned long long)(d);
2175 return res;
2176 }
2177 }
2178 }
2179 return SWIG_TypeError;
2180 }
2181 #endif
2182
2183
2184 SWIGINTERNINLINE int
SWIG_PERL_DECL_ARGS_2(SV * obj,size_t * val)2185 SWIG_AsVal_size_t SWIG_PERL_DECL_ARGS_2(SV * obj, size_t *val)
2186 {
2187 int res = SWIG_TypeError;
2188 #ifdef SWIG_LONG_LONG_AVAILABLE
2189 if (sizeof(size_t) <= sizeof(unsigned long)) {
2190 #endif
2191 unsigned long v;
2192 res = SWIG_AsVal_unsigned_SS_long SWIG_PERL_CALL_ARGS_2(obj, val ? &v : 0);
2193 if (SWIG_IsOK(res) && val) *val = (size_t)(v);
2194 #ifdef SWIG_LONG_LONG_AVAILABLE
2195 } else if (sizeof(size_t) <= sizeof(unsigned long long)) {
2196 unsigned long long v;
2197 res = SWIG_AsVal_unsigned_SS_long_SS_long SWIG_PERL_CALL_ARGS_2(obj, val ? &v : 0);
2198 if (SWIG_IsOK(res) && val) *val = (size_t)(v);
2199 }
2200 #endif
2201 return res;
2202 }
2203
2204
2205 SWIGINTERNINLINE SV *
SWIG_PERL_DECL_ARGS_1(unsigned long value)2206 SWIG_From_unsigned_SS_long SWIG_PERL_DECL_ARGS_1(unsigned long value)
2207 {
2208 SV *sv;
2209 if (UVSIZE >= sizeof(value) || value <= UV_MAX)
2210 sv = newSVuv(value);
2211 else
2212 sv = newSVpvf("%lu", value);
2213 return sv_2mortal(sv);
2214 }
2215
2216
2217 #include <stdio.h>
2218 #if (defined(_MSC_VER) && (_MSC_VER < 1900)) || defined(__BORLANDC__) || defined(_WATCOM)
2219 # ifndef snprintf
2220 # define snprintf _snprintf
2221 # endif
2222 #endif
2223
2224
2225 #ifdef SWIG_LONG_LONG_AVAILABLE
2226 SWIGINTERNINLINE SV *
SWIG_PERL_DECL_ARGS_1(unsigned long long value)2227 SWIG_From_unsigned_SS_long_SS_long SWIG_PERL_DECL_ARGS_1(unsigned long long value)
2228 {
2229 SV *sv;
2230 if (UVSIZE >= sizeof(value) || value <= UV_MAX)
2231 sv = newSVuv((UV)(value));
2232 else {
2233 //sv = newSVpvf("%llu", value); doesn't work in non 64bit Perl
2234 char temp[256];
2235 sprintf(temp, "%llu", value);
2236 sv = newSVpv(temp, 0);
2237 }
2238 return sv_2mortal(sv);
2239 }
2240 #endif
2241
2242
2243 SWIGINTERNINLINE SV *
SWIG_PERL_DECL_ARGS_1(size_t value)2244 SWIG_From_size_t SWIG_PERL_DECL_ARGS_1(size_t value)
2245 {
2246 #ifdef SWIG_LONG_LONG_AVAILABLE
2247 if (sizeof(size_t) <= sizeof(unsigned long)) {
2248 #endif
2249 return SWIG_From_unsigned_SS_long SWIG_PERL_CALL_ARGS_1((unsigned long)(value));
2250 #ifdef SWIG_LONG_LONG_AVAILABLE
2251 } else {
2252 /* assume sizeof(size_t) <= sizeof(unsigned long long) */
2253 return SWIG_From_unsigned_SS_long_SS_long SWIG_PERL_CALL_ARGS_1((unsigned long long)(value));
2254 }
2255 #endif
2256 }
2257
2258 #ifdef __cplusplus
2259 extern "C" {
2260 #endif
2261
2262 #ifdef PERL_OBJECT
2263 #define MAGIC_CLASS _wrap_Math__GSL__Linalg_var::
2264 class _wrap_Math__GSL__Linalg_var : public CPerlObj {
2265 public:
2266 #else
2267 #define MAGIC_CLASS
2268 #endif
swig_magic_readonly(pTHX_ SV * SWIGUNUSEDPARM (sv),MAGIC * SWIGUNUSEDPARM (mg))2269 SWIGCLASS_STATIC int swig_magic_readonly(pTHX_ SV *SWIGUNUSEDPARM(sv), MAGIC *SWIGUNUSEDPARM(mg)) {
2270 MAGIC_PPERL
2271 croak("Value is read-only.");
2272 return 0;
2273 }
2274
2275
2276 #ifdef PERL_OBJECT
2277 };
2278 #endif
2279
2280 #ifdef __cplusplus
2281 }
2282 #endif
2283
2284 #ifdef __cplusplus
2285 extern "C" {
2286 #endif
XS(_wrap_gsl_error)2287 XS(_wrap_gsl_error) {
2288 {
2289 char *arg1 = (char *) 0 ;
2290 char *arg2 = (char *) 0 ;
2291 int arg3 ;
2292 int arg4 ;
2293 int res1 ;
2294 char *buf1 = 0 ;
2295 int alloc1 = 0 ;
2296 int res2 ;
2297 char *buf2 = 0 ;
2298 int alloc2 = 0 ;
2299 int val3 ;
2300 int ecode3 = 0 ;
2301 int val4 ;
2302 int ecode4 = 0 ;
2303 int argvi = 0;
2304 dXSARGS;
2305
2306 if ((items < 4) || (items > 4)) {
2307 SWIG_croak("Usage: gsl_error(reason,file,line,gsl_errno);");
2308 }
2309 res1 = SWIG_AsCharPtrAndSize(ST(0), &buf1, NULL, &alloc1);
2310 if (!SWIG_IsOK(res1)) {
2311 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_error" "', argument " "1"" of type '" "char const *""'");
2312 }
2313 arg1 = (char *)(buf1);
2314 res2 = SWIG_AsCharPtrAndSize(ST(1), &buf2, NULL, &alloc2);
2315 if (!SWIG_IsOK(res2)) {
2316 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_error" "', argument " "2"" of type '" "char const *""'");
2317 }
2318 arg2 = (char *)(buf2);
2319 ecode3 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
2320 if (!SWIG_IsOK(ecode3)) {
2321 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_error" "', argument " "3"" of type '" "int""'");
2322 }
2323 arg3 = (int)(val3);
2324 ecode4 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(3), &val4);
2325 if (!SWIG_IsOK(ecode4)) {
2326 SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "gsl_error" "', argument " "4"" of type '" "int""'");
2327 }
2328 arg4 = (int)(val4);
2329 gsl_error((char const *)arg1,(char const *)arg2,arg3,arg4);
2330 ST(argvi) = &PL_sv_undef;
2331 if (alloc1 == SWIG_NEWOBJ) free((char*)buf1);
2332 if (alloc2 == SWIG_NEWOBJ) free((char*)buf2);
2333
2334
2335 XSRETURN(argvi);
2336 fail:
2337 if (alloc1 == SWIG_NEWOBJ) free((char*)buf1);
2338 if (alloc2 == SWIG_NEWOBJ) free((char*)buf2);
2339
2340
2341 SWIG_croak_null();
2342 }
2343 }
2344
2345
XS(_wrap_gsl_stream_printf)2346 XS(_wrap_gsl_stream_printf) {
2347 {
2348 char *arg1 = (char *) 0 ;
2349 char *arg2 = (char *) 0 ;
2350 int arg3 ;
2351 char *arg4 = (char *) 0 ;
2352 int res1 ;
2353 char *buf1 = 0 ;
2354 int alloc1 = 0 ;
2355 int res2 ;
2356 char *buf2 = 0 ;
2357 int alloc2 = 0 ;
2358 int val3 ;
2359 int ecode3 = 0 ;
2360 int res4 ;
2361 char *buf4 = 0 ;
2362 int alloc4 = 0 ;
2363 int argvi = 0;
2364 dXSARGS;
2365
2366 if ((items < 4) || (items > 4)) {
2367 SWIG_croak("Usage: gsl_stream_printf(label,file,line,reason);");
2368 }
2369 res1 = SWIG_AsCharPtrAndSize(ST(0), &buf1, NULL, &alloc1);
2370 if (!SWIG_IsOK(res1)) {
2371 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_stream_printf" "', argument " "1"" of type '" "char const *""'");
2372 }
2373 arg1 = (char *)(buf1);
2374 res2 = SWIG_AsCharPtrAndSize(ST(1), &buf2, NULL, &alloc2);
2375 if (!SWIG_IsOK(res2)) {
2376 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_stream_printf" "', argument " "2"" of type '" "char const *""'");
2377 }
2378 arg2 = (char *)(buf2);
2379 ecode3 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
2380 if (!SWIG_IsOK(ecode3)) {
2381 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_stream_printf" "', argument " "3"" of type '" "int""'");
2382 }
2383 arg3 = (int)(val3);
2384 res4 = SWIG_AsCharPtrAndSize(ST(3), &buf4, NULL, &alloc4);
2385 if (!SWIG_IsOK(res4)) {
2386 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_stream_printf" "', argument " "4"" of type '" "char const *""'");
2387 }
2388 arg4 = (char *)(buf4);
2389 gsl_stream_printf((char const *)arg1,(char const *)arg2,arg3,(char const *)arg4);
2390 ST(argvi) = &PL_sv_undef;
2391 if (alloc1 == SWIG_NEWOBJ) free((char*)buf1);
2392 if (alloc2 == SWIG_NEWOBJ) free((char*)buf2);
2393
2394 if (alloc4 == SWIG_NEWOBJ) free((char*)buf4);
2395 XSRETURN(argvi);
2396 fail:
2397 if (alloc1 == SWIG_NEWOBJ) free((char*)buf1);
2398 if (alloc2 == SWIG_NEWOBJ) free((char*)buf2);
2399
2400 if (alloc4 == SWIG_NEWOBJ) free((char*)buf4);
2401 SWIG_croak_null();
2402 }
2403 }
2404
2405
XS(_wrap_gsl_strerror)2406 XS(_wrap_gsl_strerror) {
2407 {
2408 int arg1 ;
2409 int val1 ;
2410 int ecode1 = 0 ;
2411 int argvi = 0;
2412 char *result = 0 ;
2413 dXSARGS;
2414
2415 if ((items < 1) || (items > 1)) {
2416 SWIG_croak("Usage: gsl_strerror(gsl_errno);");
2417 }
2418 ecode1 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
2419 if (!SWIG_IsOK(ecode1)) {
2420 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_strerror" "', argument " "1"" of type '" "int""'");
2421 }
2422 arg1 = (int)(val1);
2423 result = (char *)gsl_strerror(arg1);
2424 ST(argvi) = SWIG_FromCharPtr((const char *)result); argvi++ ;
2425
2426 XSRETURN(argvi);
2427 fail:
2428
2429 SWIG_croak_null();
2430 }
2431 }
2432
2433
XS(_wrap_gsl_set_error_handler)2434 XS(_wrap_gsl_set_error_handler) {
2435 {
2436 gsl_error_handler_t *arg1 = (gsl_error_handler_t *) 0 ;
2437 int argvi = 0;
2438 gsl_error_handler_t *result = 0 ;
2439 dXSARGS;
2440
2441 if ((items < 1) || (items > 1)) {
2442 SWIG_croak("Usage: gsl_set_error_handler(new_handler);");
2443 }
2444 {
2445 int res = SWIG_ConvertFunctionPtr(ST(0), (void**)(&arg1), SWIGTYPE_p_f_p_q_const__char_p_q_const__char_int_int__void);
2446 if (!SWIG_IsOK(res)) {
2447 SWIG_exception_fail(SWIG_ArgError(res), "in method '" "gsl_set_error_handler" "', argument " "1"" of type '" "gsl_error_handler_t *""'");
2448 }
2449 }
2450 result = (gsl_error_handler_t *)gsl_set_error_handler(arg1);
2451 ST(argvi) = SWIG_NewFunctionPtrObj((void *)(result), SWIGTYPE_p_f_p_q_const__char_p_q_const__char_int_int__void); argvi++ ;
2452
2453 XSRETURN(argvi);
2454 fail:
2455
2456 SWIG_croak_null();
2457 }
2458 }
2459
2460
XS(_wrap_gsl_set_error_handler_off)2461 XS(_wrap_gsl_set_error_handler_off) {
2462 {
2463 int argvi = 0;
2464 gsl_error_handler_t *result = 0 ;
2465 dXSARGS;
2466
2467 if ((items < 0) || (items > 0)) {
2468 SWIG_croak("Usage: gsl_set_error_handler_off();");
2469 }
2470 result = (gsl_error_handler_t *)gsl_set_error_handler_off();
2471 ST(argvi) = SWIG_NewFunctionPtrObj((void *)(result), SWIGTYPE_p_f_p_q_const__char_p_q_const__char_int_int__void); argvi++ ;
2472 XSRETURN(argvi);
2473 fail:
2474 SWIG_croak_null();
2475 }
2476 }
2477
2478
XS(_wrap_gsl_set_stream_handler)2479 XS(_wrap_gsl_set_stream_handler) {
2480 {
2481 gsl_stream_handler_t *arg1 = (gsl_stream_handler_t *) 0 ;
2482 int argvi = 0;
2483 gsl_stream_handler_t *result = 0 ;
2484 dXSARGS;
2485
2486 if ((items < 1) || (items > 1)) {
2487 SWIG_croak("Usage: gsl_set_stream_handler(new_handler);");
2488 }
2489 {
2490 int res = SWIG_ConvertFunctionPtr(ST(0), (void**)(&arg1), SWIGTYPE_p_f_p_q_const__char_p_q_const__char_int_p_q_const__char__void);
2491 if (!SWIG_IsOK(res)) {
2492 SWIG_exception_fail(SWIG_ArgError(res), "in method '" "gsl_set_stream_handler" "', argument " "1"" of type '" "gsl_stream_handler_t *""'");
2493 }
2494 }
2495 result = (gsl_stream_handler_t *)gsl_set_stream_handler(arg1);
2496 ST(argvi) = SWIG_NewFunctionPtrObj((void *)(result), SWIGTYPE_p_f_p_q_const__char_p_q_const__char_int_p_q_const__char__void); argvi++ ;
2497
2498 XSRETURN(argvi);
2499 fail:
2500
2501 SWIG_croak_null();
2502 }
2503 }
2504
2505
XS(_wrap_gsl_set_stream)2506 XS(_wrap_gsl_set_stream) {
2507 {
2508 FILE *arg1 = (FILE *) 0 ;
2509 void *argp1 = 0 ;
2510 int res1 = 0 ;
2511 int argvi = 0;
2512 FILE *result = 0 ;
2513 dXSARGS;
2514
2515 if ((items < 1) || (items > 1)) {
2516 SWIG_croak("Usage: gsl_set_stream(new_stream);");
2517 }
2518 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_FILE, 0 | 0 );
2519 if (!SWIG_IsOK(res1)) {
2520 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_set_stream" "', argument " "1"" of type '" "FILE *""'");
2521 }
2522 arg1 = (FILE *)(argp1);
2523 result = (FILE *)gsl_set_stream(arg1);
2524 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_FILE, 0 | 0); argvi++ ;
2525
2526 XSRETURN(argvi);
2527 fail:
2528
2529 SWIG_croak_null();
2530 }
2531 }
2532
2533
XS(_wrap_gsl_linalg_matmult)2534 XS(_wrap_gsl_linalg_matmult) {
2535 {
2536 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
2537 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
2538 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
2539 void *argp1 = 0 ;
2540 int res1 = 0 ;
2541 void *argp2 = 0 ;
2542 int res2 = 0 ;
2543 void *argp3 = 0 ;
2544 int res3 = 0 ;
2545 int argvi = 0;
2546 int result;
2547 dXSARGS;
2548
2549 if ((items < 3) || (items > 3)) {
2550 SWIG_croak("Usage: gsl_linalg_matmult(A,B,C);");
2551 }
2552 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
2553 if (!SWIG_IsOK(res1)) {
2554 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_matmult" "', argument " "1"" of type '" "gsl_matrix const *""'");
2555 }
2556 arg1 = (gsl_matrix *)(argp1);
2557 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
2558 if (!SWIG_IsOK(res2)) {
2559 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_matmult" "', argument " "2"" of type '" "gsl_matrix const *""'");
2560 }
2561 arg2 = (gsl_matrix *)(argp2);
2562 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
2563 if (!SWIG_IsOK(res3)) {
2564 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_matmult" "', argument " "3"" of type '" "gsl_matrix *""'");
2565 }
2566 arg3 = (gsl_matrix *)(argp3);
2567 result = (int)gsl_linalg_matmult((gsl_matrix const *)arg1,(gsl_matrix const *)arg2,arg3);
2568 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
2569
2570
2571
2572 XSRETURN(argvi);
2573 fail:
2574
2575
2576
2577 SWIG_croak_null();
2578 }
2579 }
2580
2581
XS(_wrap_gsl_linalg_matmult_mod)2582 XS(_wrap_gsl_linalg_matmult_mod) {
2583 {
2584 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
2585 gsl_linalg_matrix_mod_t arg2 ;
2586 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
2587 gsl_linalg_matrix_mod_t arg4 ;
2588 gsl_matrix *arg5 = (gsl_matrix *) 0 ;
2589 void *argp1 = 0 ;
2590 int res1 = 0 ;
2591 int val2 ;
2592 int ecode2 = 0 ;
2593 void *argp3 = 0 ;
2594 int res3 = 0 ;
2595 int val4 ;
2596 int ecode4 = 0 ;
2597 void *argp5 = 0 ;
2598 int res5 = 0 ;
2599 int argvi = 0;
2600 int result;
2601 dXSARGS;
2602
2603 if ((items < 5) || (items > 5)) {
2604 SWIG_croak("Usage: gsl_linalg_matmult_mod(A,modA,B,modB,C);");
2605 }
2606 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
2607 if (!SWIG_IsOK(res1)) {
2608 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_matmult_mod" "', argument " "1"" of type '" "gsl_matrix const *""'");
2609 }
2610 arg1 = (gsl_matrix *)(argp1);
2611 ecode2 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
2612 if (!SWIG_IsOK(ecode2)) {
2613 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_linalg_matmult_mod" "', argument " "2"" of type '" "gsl_linalg_matrix_mod_t""'");
2614 }
2615 arg2 = (gsl_linalg_matrix_mod_t)(val2);
2616 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
2617 if (!SWIG_IsOK(res3)) {
2618 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_matmult_mod" "', argument " "3"" of type '" "gsl_matrix const *""'");
2619 }
2620 arg3 = (gsl_matrix *)(argp3);
2621 ecode4 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(3), &val4);
2622 if (!SWIG_IsOK(ecode4)) {
2623 SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "gsl_linalg_matmult_mod" "', argument " "4"" of type '" "gsl_linalg_matrix_mod_t""'");
2624 }
2625 arg4 = (gsl_linalg_matrix_mod_t)(val4);
2626 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_matrix, 0 | 0 );
2627 if (!SWIG_IsOK(res5)) {
2628 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_matmult_mod" "', argument " "5"" of type '" "gsl_matrix *""'");
2629 }
2630 arg5 = (gsl_matrix *)(argp5);
2631 result = (int)gsl_linalg_matmult_mod((gsl_matrix const *)arg1,arg2,(gsl_matrix const *)arg3,arg4,arg5);
2632 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
2633
2634
2635
2636
2637
2638 XSRETURN(argvi);
2639 fail:
2640
2641
2642
2643
2644
2645 SWIG_croak_null();
2646 }
2647 }
2648
2649
XS(_wrap_gsl_linalg_exponential_ss)2650 XS(_wrap_gsl_linalg_exponential_ss) {
2651 {
2652 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
2653 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
2654 gsl_mode_t arg3 ;
2655 void *argp1 = 0 ;
2656 int res1 = 0 ;
2657 void *argp2 = 0 ;
2658 int res2 = 0 ;
2659 void *argp3 ;
2660 int res3 = 0 ;
2661 int argvi = 0;
2662 int result;
2663 dXSARGS;
2664
2665 if ((items < 3) || (items > 3)) {
2666 SWIG_croak("Usage: gsl_linalg_exponential_ss(A,eA,mode);");
2667 }
2668 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
2669 if (!SWIG_IsOK(res1)) {
2670 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_exponential_ss" "', argument " "1"" of type '" "gsl_matrix const *""'");
2671 }
2672 arg1 = (gsl_matrix *)(argp1);
2673 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
2674 if (!SWIG_IsOK(res2)) {
2675 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_exponential_ss" "', argument " "2"" of type '" "gsl_matrix *""'");
2676 }
2677 arg2 = (gsl_matrix *)(argp2);
2678 {
2679 res3 = SWIG_ConvertPtr(ST(2), &argp3, SWIGTYPE_p_gsl_mode_t, 0 );
2680 if (!SWIG_IsOK(res3)) {
2681 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_exponential_ss" "', argument " "3"" of type '" "gsl_mode_t""'");
2682 }
2683 if (!argp3) {
2684 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_linalg_exponential_ss" "', argument " "3"" of type '" "gsl_mode_t""'");
2685 } else {
2686 arg3 = *((gsl_mode_t *)(argp3));
2687 }
2688 }
2689 result = (int)gsl_linalg_exponential_ss((gsl_matrix const *)arg1,arg2,arg3);
2690 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
2691
2692
2693 XSRETURN(argvi);
2694 fail:
2695
2696
2697 SWIG_croak_null();
2698 }
2699 }
2700
2701
XS(_wrap_gsl_linalg_householder_transform)2702 XS(_wrap_gsl_linalg_householder_transform) {
2703 {
2704 gsl_vector *arg1 = (gsl_vector *) 0 ;
2705 void *argp1 = 0 ;
2706 int res1 = 0 ;
2707 int argvi = 0;
2708 double result;
2709 dXSARGS;
2710
2711 if ((items < 1) || (items > 1)) {
2712 SWIG_croak("Usage: gsl_linalg_householder_transform(v);");
2713 }
2714 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
2715 if (!SWIG_IsOK(res1)) {
2716 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_householder_transform" "', argument " "1"" of type '" "gsl_vector *""'");
2717 }
2718 arg1 = (gsl_vector *)(argp1);
2719 result = (double)gsl_linalg_householder_transform(arg1);
2720 ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(result)); argvi++ ;
2721
2722 XSRETURN(argvi);
2723 fail:
2724
2725 SWIG_croak_null();
2726 }
2727 }
2728
2729
XS(_wrap_gsl_linalg_complex_householder_transform)2730 XS(_wrap_gsl_linalg_complex_householder_transform) {
2731 {
2732 gsl_vector_complex *arg1 = (gsl_vector_complex *) 0 ;
2733 void *argp1 = 0 ;
2734 int res1 = 0 ;
2735 int argvi = 0;
2736 gsl_complex result;
2737 dXSARGS;
2738
2739 if ((items < 1) || (items > 1)) {
2740 SWIG_croak("Usage: gsl_linalg_complex_householder_transform(v);");
2741 }
2742 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
2743 if (!SWIG_IsOK(res1)) {
2744 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_complex_householder_transform" "', argument " "1"" of type '" "gsl_vector_complex *""'");
2745 }
2746 arg1 = (gsl_vector_complex *)(argp1);
2747 result = gsl_linalg_complex_householder_transform(arg1);
2748 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
2749
2750 XSRETURN(argvi);
2751 fail:
2752
2753 SWIG_croak_null();
2754 }
2755 }
2756
2757
XS(_wrap_gsl_linalg_householder_hm)2758 XS(_wrap_gsl_linalg_householder_hm) {
2759 {
2760 double arg1 ;
2761 gsl_vector *arg2 = (gsl_vector *) 0 ;
2762 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
2763 double val1 ;
2764 int ecode1 = 0 ;
2765 void *argp2 = 0 ;
2766 int res2 = 0 ;
2767 void *argp3 = 0 ;
2768 int res3 = 0 ;
2769 int argvi = 0;
2770 int result;
2771 dXSARGS;
2772
2773 if ((items < 3) || (items > 3)) {
2774 SWIG_croak("Usage: gsl_linalg_householder_hm(tau,v,A);");
2775 }
2776 ecode1 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
2777 if (!SWIG_IsOK(ecode1)) {
2778 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_linalg_householder_hm" "', argument " "1"" of type '" "double""'");
2779 }
2780 arg1 = (double)(val1);
2781 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
2782 if (!SWIG_IsOK(res2)) {
2783 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_householder_hm" "', argument " "2"" of type '" "gsl_vector const *""'");
2784 }
2785 arg2 = (gsl_vector *)(argp2);
2786 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
2787 if (!SWIG_IsOK(res3)) {
2788 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_householder_hm" "', argument " "3"" of type '" "gsl_matrix *""'");
2789 }
2790 arg3 = (gsl_matrix *)(argp3);
2791 result = (int)gsl_linalg_householder_hm(arg1,(gsl_vector const *)arg2,arg3);
2792 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
2793
2794
2795
2796 XSRETURN(argvi);
2797 fail:
2798
2799
2800
2801 SWIG_croak_null();
2802 }
2803 }
2804
2805
XS(_wrap_gsl_linalg_householder_mh)2806 XS(_wrap_gsl_linalg_householder_mh) {
2807 {
2808 double arg1 ;
2809 gsl_vector *arg2 = (gsl_vector *) 0 ;
2810 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
2811 double val1 ;
2812 int ecode1 = 0 ;
2813 void *argp2 = 0 ;
2814 int res2 = 0 ;
2815 void *argp3 = 0 ;
2816 int res3 = 0 ;
2817 int argvi = 0;
2818 int result;
2819 dXSARGS;
2820
2821 if ((items < 3) || (items > 3)) {
2822 SWIG_croak("Usage: gsl_linalg_householder_mh(tau,v,A);");
2823 }
2824 ecode1 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
2825 if (!SWIG_IsOK(ecode1)) {
2826 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_linalg_householder_mh" "', argument " "1"" of type '" "double""'");
2827 }
2828 arg1 = (double)(val1);
2829 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
2830 if (!SWIG_IsOK(res2)) {
2831 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_householder_mh" "', argument " "2"" of type '" "gsl_vector const *""'");
2832 }
2833 arg2 = (gsl_vector *)(argp2);
2834 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
2835 if (!SWIG_IsOK(res3)) {
2836 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_householder_mh" "', argument " "3"" of type '" "gsl_matrix *""'");
2837 }
2838 arg3 = (gsl_matrix *)(argp3);
2839 result = (int)gsl_linalg_householder_mh(arg1,(gsl_vector const *)arg2,arg3);
2840 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
2841
2842
2843
2844 XSRETURN(argvi);
2845 fail:
2846
2847
2848
2849 SWIG_croak_null();
2850 }
2851 }
2852
2853
XS(_wrap_gsl_linalg_householder_hv)2854 XS(_wrap_gsl_linalg_householder_hv) {
2855 {
2856 double arg1 ;
2857 gsl_vector *arg2 = (gsl_vector *) 0 ;
2858 gsl_vector *arg3 = (gsl_vector *) 0 ;
2859 double val1 ;
2860 int ecode1 = 0 ;
2861 void *argp2 = 0 ;
2862 int res2 = 0 ;
2863 void *argp3 = 0 ;
2864 int res3 = 0 ;
2865 int argvi = 0;
2866 int result;
2867 dXSARGS;
2868
2869 if ((items < 3) || (items > 3)) {
2870 SWIG_croak("Usage: gsl_linalg_householder_hv(tau,v,w);");
2871 }
2872 ecode1 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
2873 if (!SWIG_IsOK(ecode1)) {
2874 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_linalg_householder_hv" "', argument " "1"" of type '" "double""'");
2875 }
2876 arg1 = (double)(val1);
2877 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
2878 if (!SWIG_IsOK(res2)) {
2879 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_householder_hv" "', argument " "2"" of type '" "gsl_vector const *""'");
2880 }
2881 arg2 = (gsl_vector *)(argp2);
2882 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
2883 if (!SWIG_IsOK(res3)) {
2884 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_householder_hv" "', argument " "3"" of type '" "gsl_vector *""'");
2885 }
2886 arg3 = (gsl_vector *)(argp3);
2887 result = (int)gsl_linalg_householder_hv(arg1,(gsl_vector const *)arg2,arg3);
2888 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
2889
2890
2891
2892 XSRETURN(argvi);
2893 fail:
2894
2895
2896
2897 SWIG_croak_null();
2898 }
2899 }
2900
2901
XS(_wrap_gsl_linalg_householder_hm1)2902 XS(_wrap_gsl_linalg_householder_hm1) {
2903 {
2904 double arg1 ;
2905 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
2906 double val1 ;
2907 int ecode1 = 0 ;
2908 void *argp2 = 0 ;
2909 int res2 = 0 ;
2910 int argvi = 0;
2911 int result;
2912 dXSARGS;
2913
2914 if ((items < 2) || (items > 2)) {
2915 SWIG_croak("Usage: gsl_linalg_householder_hm1(tau,A);");
2916 }
2917 ecode1 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
2918 if (!SWIG_IsOK(ecode1)) {
2919 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_linalg_householder_hm1" "', argument " "1"" of type '" "double""'");
2920 }
2921 arg1 = (double)(val1);
2922 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
2923 if (!SWIG_IsOK(res2)) {
2924 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_householder_hm1" "', argument " "2"" of type '" "gsl_matrix *""'");
2925 }
2926 arg2 = (gsl_matrix *)(argp2);
2927 result = (int)gsl_linalg_householder_hm1(arg1,arg2);
2928 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
2929
2930
2931 XSRETURN(argvi);
2932 fail:
2933
2934
2935 SWIG_croak_null();
2936 }
2937 }
2938
2939
XS(_wrap_gsl_linalg_complex_householder_hm)2940 XS(_wrap_gsl_linalg_complex_householder_hm) {
2941 {
2942 gsl_complex arg1 ;
2943 gsl_vector_complex *arg2 = (gsl_vector_complex *) 0 ;
2944 gsl_matrix_complex *arg3 = (gsl_matrix_complex *) 0 ;
2945 void *argp1 ;
2946 int res1 = 0 ;
2947 void *argp2 = 0 ;
2948 int res2 = 0 ;
2949 void *argp3 = 0 ;
2950 int res3 = 0 ;
2951 int argvi = 0;
2952 int result;
2953 dXSARGS;
2954
2955 if ((items < 3) || (items > 3)) {
2956 SWIG_croak("Usage: gsl_linalg_complex_householder_hm(tau,v,A);");
2957 }
2958 {
2959 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
2960 if (!SWIG_IsOK(res1)) {
2961 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_complex_householder_hm" "', argument " "1"" of type '" "gsl_complex""'");
2962 }
2963 if (!argp1) {
2964 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_linalg_complex_householder_hm" "', argument " "1"" of type '" "gsl_complex""'");
2965 } else {
2966 arg1 = *((gsl_complex *)(argp1));
2967 }
2968 }
2969 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
2970 if (!SWIG_IsOK(res2)) {
2971 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_complex_householder_hm" "', argument " "2"" of type '" "gsl_vector_complex const *""'");
2972 }
2973 arg2 = (gsl_vector_complex *)(argp2);
2974 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
2975 if (!SWIG_IsOK(res3)) {
2976 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_complex_householder_hm" "', argument " "3"" of type '" "gsl_matrix_complex *""'");
2977 }
2978 arg3 = (gsl_matrix_complex *)(argp3);
2979 result = (int)gsl_linalg_complex_householder_hm(arg1,(gsl_vector_complex const *)arg2,arg3);
2980 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
2981
2982
2983 XSRETURN(argvi);
2984 fail:
2985
2986
2987 SWIG_croak_null();
2988 }
2989 }
2990
2991
XS(_wrap_gsl_linalg_complex_householder_mh)2992 XS(_wrap_gsl_linalg_complex_householder_mh) {
2993 {
2994 gsl_complex arg1 ;
2995 gsl_vector_complex *arg2 = (gsl_vector_complex *) 0 ;
2996 gsl_matrix_complex *arg3 = (gsl_matrix_complex *) 0 ;
2997 void *argp1 ;
2998 int res1 = 0 ;
2999 void *argp2 = 0 ;
3000 int res2 = 0 ;
3001 void *argp3 = 0 ;
3002 int res3 = 0 ;
3003 int argvi = 0;
3004 int result;
3005 dXSARGS;
3006
3007 if ((items < 3) || (items > 3)) {
3008 SWIG_croak("Usage: gsl_linalg_complex_householder_mh(tau,v,A);");
3009 }
3010 {
3011 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
3012 if (!SWIG_IsOK(res1)) {
3013 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_complex_householder_mh" "', argument " "1"" of type '" "gsl_complex""'");
3014 }
3015 if (!argp1) {
3016 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_linalg_complex_householder_mh" "', argument " "1"" of type '" "gsl_complex""'");
3017 } else {
3018 arg1 = *((gsl_complex *)(argp1));
3019 }
3020 }
3021 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
3022 if (!SWIG_IsOK(res2)) {
3023 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_complex_householder_mh" "', argument " "2"" of type '" "gsl_vector_complex const *""'");
3024 }
3025 arg2 = (gsl_vector_complex *)(argp2);
3026 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
3027 if (!SWIG_IsOK(res3)) {
3028 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_complex_householder_mh" "', argument " "3"" of type '" "gsl_matrix_complex *""'");
3029 }
3030 arg3 = (gsl_matrix_complex *)(argp3);
3031 result = (int)gsl_linalg_complex_householder_mh(arg1,(gsl_vector_complex const *)arg2,arg3);
3032 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3033
3034
3035 XSRETURN(argvi);
3036 fail:
3037
3038
3039 SWIG_croak_null();
3040 }
3041 }
3042
3043
XS(_wrap_gsl_linalg_complex_householder_hv)3044 XS(_wrap_gsl_linalg_complex_householder_hv) {
3045 {
3046 gsl_complex arg1 ;
3047 gsl_vector_complex *arg2 = (gsl_vector_complex *) 0 ;
3048 gsl_vector_complex *arg3 = (gsl_vector_complex *) 0 ;
3049 void *argp1 ;
3050 int res1 = 0 ;
3051 void *argp2 = 0 ;
3052 int res2 = 0 ;
3053 void *argp3 = 0 ;
3054 int res3 = 0 ;
3055 int argvi = 0;
3056 int result;
3057 dXSARGS;
3058
3059 if ((items < 3) || (items > 3)) {
3060 SWIG_croak("Usage: gsl_linalg_complex_householder_hv(tau,v,w);");
3061 }
3062 {
3063 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
3064 if (!SWIG_IsOK(res1)) {
3065 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_complex_householder_hv" "', argument " "1"" of type '" "gsl_complex""'");
3066 }
3067 if (!argp1) {
3068 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_linalg_complex_householder_hv" "', argument " "1"" of type '" "gsl_complex""'");
3069 } else {
3070 arg1 = *((gsl_complex *)(argp1));
3071 }
3072 }
3073 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
3074 if (!SWIG_IsOK(res2)) {
3075 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_complex_householder_hv" "', argument " "2"" of type '" "gsl_vector_complex const *""'");
3076 }
3077 arg2 = (gsl_vector_complex *)(argp2);
3078 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
3079 if (!SWIG_IsOK(res3)) {
3080 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_complex_householder_hv" "', argument " "3"" of type '" "gsl_vector_complex *""'");
3081 }
3082 arg3 = (gsl_vector_complex *)(argp3);
3083 result = (int)gsl_linalg_complex_householder_hv(arg1,(gsl_vector_complex const *)arg2,arg3);
3084 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3085
3086
3087 XSRETURN(argvi);
3088 fail:
3089
3090
3091 SWIG_croak_null();
3092 }
3093 }
3094
3095
XS(_wrap_gsl_linalg_hessenberg_decomp)3096 XS(_wrap_gsl_linalg_hessenberg_decomp) {
3097 {
3098 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
3099 gsl_vector *arg2 = (gsl_vector *) 0 ;
3100 void *argp1 = 0 ;
3101 int res1 = 0 ;
3102 void *argp2 = 0 ;
3103 int res2 = 0 ;
3104 int argvi = 0;
3105 int result;
3106 dXSARGS;
3107
3108 if ((items < 2) || (items > 2)) {
3109 SWIG_croak("Usage: gsl_linalg_hessenberg_decomp(A,tau);");
3110 }
3111 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3112 if (!SWIG_IsOK(res1)) {
3113 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_hessenberg_decomp" "', argument " "1"" of type '" "gsl_matrix *""'");
3114 }
3115 arg1 = (gsl_matrix *)(argp1);
3116 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
3117 if (!SWIG_IsOK(res2)) {
3118 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_hessenberg_decomp" "', argument " "2"" of type '" "gsl_vector *""'");
3119 }
3120 arg2 = (gsl_vector *)(argp2);
3121 result = (int)gsl_linalg_hessenberg_decomp(arg1,arg2);
3122 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3123
3124
3125 XSRETURN(argvi);
3126 fail:
3127
3128
3129 SWIG_croak_null();
3130 }
3131 }
3132
3133
XS(_wrap_gsl_linalg_hessenberg_unpack)3134 XS(_wrap_gsl_linalg_hessenberg_unpack) {
3135 {
3136 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
3137 gsl_vector *arg2 = (gsl_vector *) 0 ;
3138 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
3139 void *argp1 = 0 ;
3140 int res1 = 0 ;
3141 void *argp2 = 0 ;
3142 int res2 = 0 ;
3143 void *argp3 = 0 ;
3144 int res3 = 0 ;
3145 int argvi = 0;
3146 int result;
3147 dXSARGS;
3148
3149 if ((items < 3) || (items > 3)) {
3150 SWIG_croak("Usage: gsl_linalg_hessenberg_unpack(H,tau,U);");
3151 }
3152 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3153 if (!SWIG_IsOK(res1)) {
3154 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_hessenberg_unpack" "', argument " "1"" of type '" "gsl_matrix *""'");
3155 }
3156 arg1 = (gsl_matrix *)(argp1);
3157 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
3158 if (!SWIG_IsOK(res2)) {
3159 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_hessenberg_unpack" "', argument " "2"" of type '" "gsl_vector *""'");
3160 }
3161 arg2 = (gsl_vector *)(argp2);
3162 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3163 if (!SWIG_IsOK(res3)) {
3164 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_hessenberg_unpack" "', argument " "3"" of type '" "gsl_matrix *""'");
3165 }
3166 arg3 = (gsl_matrix *)(argp3);
3167 result = (int)gsl_linalg_hessenberg_unpack(arg1,arg2,arg3);
3168 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3169
3170
3171
3172 XSRETURN(argvi);
3173 fail:
3174
3175
3176
3177 SWIG_croak_null();
3178 }
3179 }
3180
3181
XS(_wrap_gsl_linalg_hessenberg_unpack_accum)3182 XS(_wrap_gsl_linalg_hessenberg_unpack_accum) {
3183 {
3184 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
3185 gsl_vector *arg2 = (gsl_vector *) 0 ;
3186 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
3187 void *argp1 = 0 ;
3188 int res1 = 0 ;
3189 void *argp2 = 0 ;
3190 int res2 = 0 ;
3191 void *argp3 = 0 ;
3192 int res3 = 0 ;
3193 int argvi = 0;
3194 int result;
3195 dXSARGS;
3196
3197 if ((items < 3) || (items > 3)) {
3198 SWIG_croak("Usage: gsl_linalg_hessenberg_unpack_accum(H,tau,U);");
3199 }
3200 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3201 if (!SWIG_IsOK(res1)) {
3202 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_hessenberg_unpack_accum" "', argument " "1"" of type '" "gsl_matrix *""'");
3203 }
3204 arg1 = (gsl_matrix *)(argp1);
3205 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
3206 if (!SWIG_IsOK(res2)) {
3207 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_hessenberg_unpack_accum" "', argument " "2"" of type '" "gsl_vector *""'");
3208 }
3209 arg2 = (gsl_vector *)(argp2);
3210 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3211 if (!SWIG_IsOK(res3)) {
3212 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_hessenberg_unpack_accum" "', argument " "3"" of type '" "gsl_matrix *""'");
3213 }
3214 arg3 = (gsl_matrix *)(argp3);
3215 result = (int)gsl_linalg_hessenberg_unpack_accum(arg1,arg2,arg3);
3216 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3217
3218
3219
3220 XSRETURN(argvi);
3221 fail:
3222
3223
3224
3225 SWIG_croak_null();
3226 }
3227 }
3228
3229
XS(_wrap_gsl_linalg_hessenberg_set_zero)3230 XS(_wrap_gsl_linalg_hessenberg_set_zero) {
3231 {
3232 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
3233 void *argp1 = 0 ;
3234 int res1 = 0 ;
3235 int argvi = 0;
3236 int result;
3237 dXSARGS;
3238
3239 if ((items < 1) || (items > 1)) {
3240 SWIG_croak("Usage: gsl_linalg_hessenberg_set_zero(H);");
3241 }
3242 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3243 if (!SWIG_IsOK(res1)) {
3244 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_hessenberg_set_zero" "', argument " "1"" of type '" "gsl_matrix *""'");
3245 }
3246 arg1 = (gsl_matrix *)(argp1);
3247 result = (int)gsl_linalg_hessenberg_set_zero(arg1);
3248 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3249
3250 XSRETURN(argvi);
3251 fail:
3252
3253 SWIG_croak_null();
3254 }
3255 }
3256
3257
XS(_wrap_gsl_linalg_hessenberg_submatrix)3258 XS(_wrap_gsl_linalg_hessenberg_submatrix) {
3259 {
3260 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
3261 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
3262 size_t arg3 ;
3263 gsl_vector *arg4 = (gsl_vector *) 0 ;
3264 void *argp1 = 0 ;
3265 int res1 = 0 ;
3266 void *argp2 = 0 ;
3267 int res2 = 0 ;
3268 size_t val3 ;
3269 int ecode3 = 0 ;
3270 void *argp4 = 0 ;
3271 int res4 = 0 ;
3272 int argvi = 0;
3273 int result;
3274 dXSARGS;
3275
3276 if ((items < 4) || (items > 4)) {
3277 SWIG_croak("Usage: gsl_linalg_hessenberg_submatrix(M,A,top,tau);");
3278 }
3279 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3280 if (!SWIG_IsOK(res1)) {
3281 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_hessenberg_submatrix" "', argument " "1"" of type '" "gsl_matrix *""'");
3282 }
3283 arg1 = (gsl_matrix *)(argp1);
3284 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3285 if (!SWIG_IsOK(res2)) {
3286 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_hessenberg_submatrix" "', argument " "2"" of type '" "gsl_matrix *""'");
3287 }
3288 arg2 = (gsl_matrix *)(argp2);
3289 ecode3 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
3290 if (!SWIG_IsOK(ecode3)) {
3291 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_linalg_hessenberg_submatrix" "', argument " "3"" of type '" "size_t""'");
3292 }
3293 arg3 = (size_t)(val3);
3294 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
3295 if (!SWIG_IsOK(res4)) {
3296 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_hessenberg_submatrix" "', argument " "4"" of type '" "gsl_vector *""'");
3297 }
3298 arg4 = (gsl_vector *)(argp4);
3299 result = (int)gsl_linalg_hessenberg_submatrix(arg1,arg2,arg3,arg4);
3300 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3301
3302
3303
3304
3305 XSRETURN(argvi);
3306 fail:
3307
3308
3309
3310
3311 SWIG_croak_null();
3312 }
3313 }
3314
3315
XS(_wrap_gsl_linalg_hesstri_decomp)3316 XS(_wrap_gsl_linalg_hesstri_decomp) {
3317 {
3318 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
3319 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
3320 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
3321 gsl_matrix *arg4 = (gsl_matrix *) 0 ;
3322 gsl_vector *arg5 = (gsl_vector *) 0 ;
3323 void *argp1 = 0 ;
3324 int res1 = 0 ;
3325 void *argp2 = 0 ;
3326 int res2 = 0 ;
3327 void *argp3 = 0 ;
3328 int res3 = 0 ;
3329 void *argp4 = 0 ;
3330 int res4 = 0 ;
3331 void *argp5 = 0 ;
3332 int res5 = 0 ;
3333 int argvi = 0;
3334 int result;
3335 dXSARGS;
3336
3337 if ((items < 5) || (items > 5)) {
3338 SWIG_croak("Usage: gsl_linalg_hesstri_decomp(A,B,U,V,work);");
3339 }
3340 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3341 if (!SWIG_IsOK(res1)) {
3342 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_hesstri_decomp" "', argument " "1"" of type '" "gsl_matrix *""'");
3343 }
3344 arg1 = (gsl_matrix *)(argp1);
3345 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3346 if (!SWIG_IsOK(res2)) {
3347 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_hesstri_decomp" "', argument " "2"" of type '" "gsl_matrix *""'");
3348 }
3349 arg2 = (gsl_matrix *)(argp2);
3350 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3351 if (!SWIG_IsOK(res3)) {
3352 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_hesstri_decomp" "', argument " "3"" of type '" "gsl_matrix *""'");
3353 }
3354 arg3 = (gsl_matrix *)(argp3);
3355 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3356 if (!SWIG_IsOK(res4)) {
3357 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_hesstri_decomp" "', argument " "4"" of type '" "gsl_matrix *""'");
3358 }
3359 arg4 = (gsl_matrix *)(argp4);
3360 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
3361 if (!SWIG_IsOK(res5)) {
3362 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_hesstri_decomp" "', argument " "5"" of type '" "gsl_vector *""'");
3363 }
3364 arg5 = (gsl_vector *)(argp5);
3365 result = (int)gsl_linalg_hesstri_decomp(arg1,arg2,arg3,arg4,arg5);
3366 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3367
3368
3369
3370
3371
3372 XSRETURN(argvi);
3373 fail:
3374
3375
3376
3377
3378
3379 SWIG_croak_null();
3380 }
3381 }
3382
3383
XS(_wrap_gsl_linalg_SV_decomp)3384 XS(_wrap_gsl_linalg_SV_decomp) {
3385 {
3386 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
3387 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
3388 gsl_vector *arg3 = (gsl_vector *) 0 ;
3389 gsl_vector *arg4 = (gsl_vector *) 0 ;
3390 void *argp1 = 0 ;
3391 int res1 = 0 ;
3392 void *argp2 = 0 ;
3393 int res2 = 0 ;
3394 void *argp3 = 0 ;
3395 int res3 = 0 ;
3396 void *argp4 = 0 ;
3397 int res4 = 0 ;
3398 int argvi = 0;
3399 int result;
3400 dXSARGS;
3401
3402 if ((items < 4) || (items > 4)) {
3403 SWIG_croak("Usage: gsl_linalg_SV_decomp(A,V,S,work);");
3404 }
3405 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3406 if (!SWIG_IsOK(res1)) {
3407 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_SV_decomp" "', argument " "1"" of type '" "gsl_matrix *""'");
3408 }
3409 arg1 = (gsl_matrix *)(argp1);
3410 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3411 if (!SWIG_IsOK(res2)) {
3412 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_SV_decomp" "', argument " "2"" of type '" "gsl_matrix *""'");
3413 }
3414 arg2 = (gsl_matrix *)(argp2);
3415 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
3416 if (!SWIG_IsOK(res3)) {
3417 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_SV_decomp" "', argument " "3"" of type '" "gsl_vector *""'");
3418 }
3419 arg3 = (gsl_vector *)(argp3);
3420 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
3421 if (!SWIG_IsOK(res4)) {
3422 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_SV_decomp" "', argument " "4"" of type '" "gsl_vector *""'");
3423 }
3424 arg4 = (gsl_vector *)(argp4);
3425 result = (int)gsl_linalg_SV_decomp(arg1,arg2,arg3,arg4);
3426 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3427
3428
3429
3430
3431 XSRETURN(argvi);
3432 fail:
3433
3434
3435
3436
3437 SWIG_croak_null();
3438 }
3439 }
3440
3441
XS(_wrap_gsl_linalg_SV_decomp_mod)3442 XS(_wrap_gsl_linalg_SV_decomp_mod) {
3443 {
3444 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
3445 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
3446 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
3447 gsl_vector *arg4 = (gsl_vector *) 0 ;
3448 gsl_vector *arg5 = (gsl_vector *) 0 ;
3449 void *argp1 = 0 ;
3450 int res1 = 0 ;
3451 void *argp2 = 0 ;
3452 int res2 = 0 ;
3453 void *argp3 = 0 ;
3454 int res3 = 0 ;
3455 void *argp4 = 0 ;
3456 int res4 = 0 ;
3457 void *argp5 = 0 ;
3458 int res5 = 0 ;
3459 int argvi = 0;
3460 int result;
3461 dXSARGS;
3462
3463 if ((items < 5) || (items > 5)) {
3464 SWIG_croak("Usage: gsl_linalg_SV_decomp_mod(A,X,V,S,work);");
3465 }
3466 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3467 if (!SWIG_IsOK(res1)) {
3468 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_SV_decomp_mod" "', argument " "1"" of type '" "gsl_matrix *""'");
3469 }
3470 arg1 = (gsl_matrix *)(argp1);
3471 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3472 if (!SWIG_IsOK(res2)) {
3473 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_SV_decomp_mod" "', argument " "2"" of type '" "gsl_matrix *""'");
3474 }
3475 arg2 = (gsl_matrix *)(argp2);
3476 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3477 if (!SWIG_IsOK(res3)) {
3478 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_SV_decomp_mod" "', argument " "3"" of type '" "gsl_matrix *""'");
3479 }
3480 arg3 = (gsl_matrix *)(argp3);
3481 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
3482 if (!SWIG_IsOK(res4)) {
3483 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_SV_decomp_mod" "', argument " "4"" of type '" "gsl_vector *""'");
3484 }
3485 arg4 = (gsl_vector *)(argp4);
3486 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
3487 if (!SWIG_IsOK(res5)) {
3488 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_SV_decomp_mod" "', argument " "5"" of type '" "gsl_vector *""'");
3489 }
3490 arg5 = (gsl_vector *)(argp5);
3491 result = (int)gsl_linalg_SV_decomp_mod(arg1,arg2,arg3,arg4,arg5);
3492 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3493
3494
3495
3496
3497
3498 XSRETURN(argvi);
3499 fail:
3500
3501
3502
3503
3504
3505 SWIG_croak_null();
3506 }
3507 }
3508
3509
XS(_wrap_gsl_linalg_SV_decomp_jacobi)3510 XS(_wrap_gsl_linalg_SV_decomp_jacobi) {
3511 {
3512 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
3513 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
3514 gsl_vector *arg3 = (gsl_vector *) 0 ;
3515 void *argp1 = 0 ;
3516 int res1 = 0 ;
3517 void *argp2 = 0 ;
3518 int res2 = 0 ;
3519 void *argp3 = 0 ;
3520 int res3 = 0 ;
3521 int argvi = 0;
3522 int result;
3523 dXSARGS;
3524
3525 if ((items < 3) || (items > 3)) {
3526 SWIG_croak("Usage: gsl_linalg_SV_decomp_jacobi(A,Q,S);");
3527 }
3528 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3529 if (!SWIG_IsOK(res1)) {
3530 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_SV_decomp_jacobi" "', argument " "1"" of type '" "gsl_matrix *""'");
3531 }
3532 arg1 = (gsl_matrix *)(argp1);
3533 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3534 if (!SWIG_IsOK(res2)) {
3535 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_SV_decomp_jacobi" "', argument " "2"" of type '" "gsl_matrix *""'");
3536 }
3537 arg2 = (gsl_matrix *)(argp2);
3538 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
3539 if (!SWIG_IsOK(res3)) {
3540 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_SV_decomp_jacobi" "', argument " "3"" of type '" "gsl_vector *""'");
3541 }
3542 arg3 = (gsl_vector *)(argp3);
3543 result = (int)gsl_linalg_SV_decomp_jacobi(arg1,arg2,arg3);
3544 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3545
3546
3547
3548 XSRETURN(argvi);
3549 fail:
3550
3551
3552
3553 SWIG_croak_null();
3554 }
3555 }
3556
3557
XS(_wrap_gsl_linalg_SV_solve)3558 XS(_wrap_gsl_linalg_SV_solve) {
3559 {
3560 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
3561 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
3562 gsl_vector *arg3 = (gsl_vector *) 0 ;
3563 gsl_vector *arg4 = (gsl_vector *) 0 ;
3564 gsl_vector *arg5 = (gsl_vector *) 0 ;
3565 void *argp1 = 0 ;
3566 int res1 = 0 ;
3567 void *argp2 = 0 ;
3568 int res2 = 0 ;
3569 void *argp3 = 0 ;
3570 int res3 = 0 ;
3571 void *argp4 = 0 ;
3572 int res4 = 0 ;
3573 void *argp5 = 0 ;
3574 int res5 = 0 ;
3575 int argvi = 0;
3576 int result;
3577 dXSARGS;
3578
3579 if ((items < 5) || (items > 5)) {
3580 SWIG_croak("Usage: gsl_linalg_SV_solve(U,Q,S,b,x);");
3581 }
3582 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3583 if (!SWIG_IsOK(res1)) {
3584 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_SV_solve" "', argument " "1"" of type '" "gsl_matrix const *""'");
3585 }
3586 arg1 = (gsl_matrix *)(argp1);
3587 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3588 if (!SWIG_IsOK(res2)) {
3589 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_SV_solve" "', argument " "2"" of type '" "gsl_matrix const *""'");
3590 }
3591 arg2 = (gsl_matrix *)(argp2);
3592 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
3593 if (!SWIG_IsOK(res3)) {
3594 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_SV_solve" "', argument " "3"" of type '" "gsl_vector const *""'");
3595 }
3596 arg3 = (gsl_vector *)(argp3);
3597 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
3598 if (!SWIG_IsOK(res4)) {
3599 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_SV_solve" "', argument " "4"" of type '" "gsl_vector const *""'");
3600 }
3601 arg4 = (gsl_vector *)(argp4);
3602 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
3603 if (!SWIG_IsOK(res5)) {
3604 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_SV_solve" "', argument " "5"" of type '" "gsl_vector *""'");
3605 }
3606 arg5 = (gsl_vector *)(argp5);
3607 result = (int)gsl_linalg_SV_solve((gsl_matrix const *)arg1,(gsl_matrix const *)arg2,(gsl_vector const *)arg3,(gsl_vector const *)arg4,arg5);
3608 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3609
3610
3611
3612
3613
3614 XSRETURN(argvi);
3615 fail:
3616
3617
3618
3619
3620
3621 SWIG_croak_null();
3622 }
3623 }
3624
3625
XS(_wrap_gsl_linalg_SV_leverage)3626 XS(_wrap_gsl_linalg_SV_leverage) {
3627 {
3628 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
3629 gsl_vector *arg2 = (gsl_vector *) 0 ;
3630 void *argp1 = 0 ;
3631 int res1 = 0 ;
3632 void *argp2 = 0 ;
3633 int res2 = 0 ;
3634 int argvi = 0;
3635 int result;
3636 dXSARGS;
3637
3638 if ((items < 2) || (items > 2)) {
3639 SWIG_croak("Usage: gsl_linalg_SV_leverage(U,h);");
3640 }
3641 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3642 if (!SWIG_IsOK(res1)) {
3643 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_SV_leverage" "', argument " "1"" of type '" "gsl_matrix const *""'");
3644 }
3645 arg1 = (gsl_matrix *)(argp1);
3646 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
3647 if (!SWIG_IsOK(res2)) {
3648 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_SV_leverage" "', argument " "2"" of type '" "gsl_vector *""'");
3649 }
3650 arg2 = (gsl_vector *)(argp2);
3651 result = (int)gsl_linalg_SV_leverage((gsl_matrix const *)arg1,arg2);
3652 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3653
3654
3655 XSRETURN(argvi);
3656 fail:
3657
3658
3659 SWIG_croak_null();
3660 }
3661 }
3662
3663
XS(_wrap_gsl_linalg_LU_decomp)3664 XS(_wrap_gsl_linalg_LU_decomp) {
3665 {
3666 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
3667 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
3668 int *arg3 = (int *) 0 ;
3669 void *argp1 = 0 ;
3670 int res1 = 0 ;
3671 void *argp2 = 0 ;
3672 int res2 = 0 ;
3673 int temp3 ;
3674 int res3 = SWIG_TMPOBJ ;
3675 int argvi = 0;
3676 int result;
3677 dXSARGS;
3678
3679 arg3 = &temp3;
3680 if ((items < 2) || (items > 2)) {
3681 SWIG_croak("Usage: gsl_linalg_LU_decomp(A,p);");
3682 }
3683 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3684 if (!SWIG_IsOK(res1)) {
3685 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LU_decomp" "', argument " "1"" of type '" "gsl_matrix *""'");
3686 }
3687 arg1 = (gsl_matrix *)(argp1);
3688 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
3689 if (!SWIG_IsOK(res2)) {
3690 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_LU_decomp" "', argument " "2"" of type '" "gsl_permutation *""'");
3691 }
3692 arg2 = (gsl_permutation *)(argp2);
3693 result = (int)gsl_linalg_LU_decomp(arg1,arg2,arg3);
3694 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3695 if (SWIG_IsTmpObj(res3)) {
3696 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((*arg3)); argvi++ ;
3697 } else {
3698 int new_flags = SWIG_IsNewObj(res3) ? (SWIG_POINTER_OWN | 0) : 0;
3699 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg3), SWIGTYPE_p_int, new_flags); argvi++ ;
3700 }
3701
3702
3703
3704 XSRETURN(argvi);
3705 fail:
3706
3707
3708
3709 SWIG_croak_null();
3710 }
3711 }
3712
3713
XS(_wrap_gsl_linalg_LU_solve)3714 XS(_wrap_gsl_linalg_LU_solve) {
3715 {
3716 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
3717 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
3718 gsl_vector *arg3 = (gsl_vector *) 0 ;
3719 gsl_vector *arg4 = (gsl_vector *) 0 ;
3720 void *argp1 = 0 ;
3721 int res1 = 0 ;
3722 void *argp2 = 0 ;
3723 int res2 = 0 ;
3724 void *argp3 = 0 ;
3725 int res3 = 0 ;
3726 void *argp4 = 0 ;
3727 int res4 = 0 ;
3728 int argvi = 0;
3729 int result;
3730 dXSARGS;
3731
3732 if ((items < 4) || (items > 4)) {
3733 SWIG_croak("Usage: gsl_linalg_LU_solve(LU,p,b,x);");
3734 }
3735 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3736 if (!SWIG_IsOK(res1)) {
3737 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LU_solve" "', argument " "1"" of type '" "gsl_matrix const *""'");
3738 }
3739 arg1 = (gsl_matrix *)(argp1);
3740 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
3741 if (!SWIG_IsOK(res2)) {
3742 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_LU_solve" "', argument " "2"" of type '" "gsl_permutation const *""'");
3743 }
3744 arg2 = (gsl_permutation *)(argp2);
3745 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
3746 if (!SWIG_IsOK(res3)) {
3747 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_LU_solve" "', argument " "3"" of type '" "gsl_vector const *""'");
3748 }
3749 arg3 = (gsl_vector *)(argp3);
3750 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
3751 if (!SWIG_IsOK(res4)) {
3752 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_LU_solve" "', argument " "4"" of type '" "gsl_vector *""'");
3753 }
3754 arg4 = (gsl_vector *)(argp4);
3755 result = (int)gsl_linalg_LU_solve((gsl_matrix const *)arg1,(struct gsl_permutation_struct const *)arg2,(gsl_vector const *)arg3,arg4);
3756 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3757
3758
3759
3760
3761 XSRETURN(argvi);
3762 fail:
3763
3764
3765
3766
3767 SWIG_croak_null();
3768 }
3769 }
3770
3771
XS(_wrap_gsl_linalg_LU_svx)3772 XS(_wrap_gsl_linalg_LU_svx) {
3773 {
3774 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
3775 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
3776 gsl_vector *arg3 = (gsl_vector *) 0 ;
3777 void *argp1 = 0 ;
3778 int res1 = 0 ;
3779 void *argp2 = 0 ;
3780 int res2 = 0 ;
3781 void *argp3 = 0 ;
3782 int res3 = 0 ;
3783 int argvi = 0;
3784 int result;
3785 dXSARGS;
3786
3787 if ((items < 3) || (items > 3)) {
3788 SWIG_croak("Usage: gsl_linalg_LU_svx(LU,p,x);");
3789 }
3790 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3791 if (!SWIG_IsOK(res1)) {
3792 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LU_svx" "', argument " "1"" of type '" "gsl_matrix const *""'");
3793 }
3794 arg1 = (gsl_matrix *)(argp1);
3795 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
3796 if (!SWIG_IsOK(res2)) {
3797 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_LU_svx" "', argument " "2"" of type '" "gsl_permutation const *""'");
3798 }
3799 arg2 = (gsl_permutation *)(argp2);
3800 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
3801 if (!SWIG_IsOK(res3)) {
3802 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_LU_svx" "', argument " "3"" of type '" "gsl_vector *""'");
3803 }
3804 arg3 = (gsl_vector *)(argp3);
3805 result = (int)gsl_linalg_LU_svx((gsl_matrix const *)arg1,(struct gsl_permutation_struct const *)arg2,arg3);
3806 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3807
3808
3809
3810 XSRETURN(argvi);
3811 fail:
3812
3813
3814
3815 SWIG_croak_null();
3816 }
3817 }
3818
3819
XS(_wrap_gsl_linalg_LU_refine)3820 XS(_wrap_gsl_linalg_LU_refine) {
3821 {
3822 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
3823 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
3824 gsl_permutation *arg3 = (gsl_permutation *) 0 ;
3825 gsl_vector *arg4 = (gsl_vector *) 0 ;
3826 gsl_vector *arg5 = (gsl_vector *) 0 ;
3827 gsl_vector *arg6 = (gsl_vector *) 0 ;
3828 void *argp1 = 0 ;
3829 int res1 = 0 ;
3830 void *argp2 = 0 ;
3831 int res2 = 0 ;
3832 void *argp3 = 0 ;
3833 int res3 = 0 ;
3834 void *argp4 = 0 ;
3835 int res4 = 0 ;
3836 void *argp5 = 0 ;
3837 int res5 = 0 ;
3838 void *argp6 = 0 ;
3839 int res6 = 0 ;
3840 int argvi = 0;
3841 int result;
3842 dXSARGS;
3843
3844 if ((items < 6) || (items > 6)) {
3845 SWIG_croak("Usage: gsl_linalg_LU_refine(A,LU,p,b,x,work);");
3846 }
3847 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3848 if (!SWIG_IsOK(res1)) {
3849 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LU_refine" "', argument " "1"" of type '" "gsl_matrix const *""'");
3850 }
3851 arg1 = (gsl_matrix *)(argp1);
3852 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3853 if (!SWIG_IsOK(res2)) {
3854 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_LU_refine" "', argument " "2"" of type '" "gsl_matrix const *""'");
3855 }
3856 arg2 = (gsl_matrix *)(argp2);
3857 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
3858 if (!SWIG_IsOK(res3)) {
3859 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_LU_refine" "', argument " "3"" of type '" "gsl_permutation const *""'");
3860 }
3861 arg3 = (gsl_permutation *)(argp3);
3862 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
3863 if (!SWIG_IsOK(res4)) {
3864 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_LU_refine" "', argument " "4"" of type '" "gsl_vector const *""'");
3865 }
3866 arg4 = (gsl_vector *)(argp4);
3867 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
3868 if (!SWIG_IsOK(res5)) {
3869 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_LU_refine" "', argument " "5"" of type '" "gsl_vector *""'");
3870 }
3871 arg5 = (gsl_vector *)(argp5);
3872 res6 = SWIG_ConvertPtr(ST(5), &argp6,SWIGTYPE_p_gsl_vector, 0 | 0 );
3873 if (!SWIG_IsOK(res6)) {
3874 SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_linalg_LU_refine" "', argument " "6"" of type '" "gsl_vector *""'");
3875 }
3876 arg6 = (gsl_vector *)(argp6);
3877 result = (int)gsl_linalg_LU_refine((gsl_matrix const *)arg1,(gsl_matrix const *)arg2,(struct gsl_permutation_struct const *)arg3,(gsl_vector const *)arg4,arg5,arg6);
3878 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3879
3880
3881
3882
3883
3884
3885 XSRETURN(argvi);
3886 fail:
3887
3888
3889
3890
3891
3892
3893 SWIG_croak_null();
3894 }
3895 }
3896
3897
XS(_wrap_gsl_linalg_LU_invert)3898 XS(_wrap_gsl_linalg_LU_invert) {
3899 {
3900 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
3901 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
3902 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
3903 void *argp1 = 0 ;
3904 int res1 = 0 ;
3905 void *argp2 = 0 ;
3906 int res2 = 0 ;
3907 void *argp3 = 0 ;
3908 int res3 = 0 ;
3909 int argvi = 0;
3910 int result;
3911 dXSARGS;
3912
3913 if ((items < 3) || (items > 3)) {
3914 SWIG_croak("Usage: gsl_linalg_LU_invert(LU,p,inverse);");
3915 }
3916 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3917 if (!SWIG_IsOK(res1)) {
3918 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LU_invert" "', argument " "1"" of type '" "gsl_matrix const *""'");
3919 }
3920 arg1 = (gsl_matrix *)(argp1);
3921 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
3922 if (!SWIG_IsOK(res2)) {
3923 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_LU_invert" "', argument " "2"" of type '" "gsl_permutation const *""'");
3924 }
3925 arg2 = (gsl_permutation *)(argp2);
3926 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3927 if (!SWIG_IsOK(res3)) {
3928 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_LU_invert" "', argument " "3"" of type '" "gsl_matrix *""'");
3929 }
3930 arg3 = (gsl_matrix *)(argp3);
3931 result = (int)gsl_linalg_LU_invert((gsl_matrix const *)arg1,(struct gsl_permutation_struct const *)arg2,arg3);
3932 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3933
3934
3935
3936 XSRETURN(argvi);
3937 fail:
3938
3939
3940
3941 SWIG_croak_null();
3942 }
3943 }
3944
3945
XS(_wrap_gsl_linalg_LU_det)3946 XS(_wrap_gsl_linalg_LU_det) {
3947 {
3948 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
3949 int arg2 ;
3950 void *argp1 = 0 ;
3951 int res1 = 0 ;
3952 int val2 ;
3953 int ecode2 = 0 ;
3954 int argvi = 0;
3955 double result;
3956 dXSARGS;
3957
3958 if ((items < 2) || (items > 2)) {
3959 SWIG_croak("Usage: gsl_linalg_LU_det(LU,signum);");
3960 }
3961 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3962 if (!SWIG_IsOK(res1)) {
3963 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LU_det" "', argument " "1"" of type '" "gsl_matrix *""'");
3964 }
3965 arg1 = (gsl_matrix *)(argp1);
3966 ecode2 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
3967 if (!SWIG_IsOK(ecode2)) {
3968 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_linalg_LU_det" "', argument " "2"" of type '" "int""'");
3969 }
3970 arg2 = (int)(val2);
3971 result = (double)gsl_linalg_LU_det(arg1,arg2);
3972 ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(result)); argvi++ ;
3973
3974
3975 XSRETURN(argvi);
3976 fail:
3977
3978
3979 SWIG_croak_null();
3980 }
3981 }
3982
3983
XS(_wrap_gsl_linalg_LU_lndet)3984 XS(_wrap_gsl_linalg_LU_lndet) {
3985 {
3986 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
3987 void *argp1 = 0 ;
3988 int res1 = 0 ;
3989 int argvi = 0;
3990 double result;
3991 dXSARGS;
3992
3993 if ((items < 1) || (items > 1)) {
3994 SWIG_croak("Usage: gsl_linalg_LU_lndet(LU);");
3995 }
3996 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3997 if (!SWIG_IsOK(res1)) {
3998 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LU_lndet" "', argument " "1"" of type '" "gsl_matrix *""'");
3999 }
4000 arg1 = (gsl_matrix *)(argp1);
4001 result = (double)gsl_linalg_LU_lndet(arg1);
4002 ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(result)); argvi++ ;
4003
4004 XSRETURN(argvi);
4005 fail:
4006
4007 SWIG_croak_null();
4008 }
4009 }
4010
4011
XS(_wrap_gsl_linalg_LU_sgndet)4012 XS(_wrap_gsl_linalg_LU_sgndet) {
4013 {
4014 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
4015 int arg2 ;
4016 void *argp1 = 0 ;
4017 int res1 = 0 ;
4018 int val2 ;
4019 int ecode2 = 0 ;
4020 int argvi = 0;
4021 int result;
4022 dXSARGS;
4023
4024 if ((items < 2) || (items > 2)) {
4025 SWIG_croak("Usage: gsl_linalg_LU_sgndet(lu,signum);");
4026 }
4027 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
4028 if (!SWIG_IsOK(res1)) {
4029 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LU_sgndet" "', argument " "1"" of type '" "gsl_matrix *""'");
4030 }
4031 arg1 = (gsl_matrix *)(argp1);
4032 ecode2 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
4033 if (!SWIG_IsOK(ecode2)) {
4034 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_linalg_LU_sgndet" "', argument " "2"" of type '" "int""'");
4035 }
4036 arg2 = (int)(val2);
4037 result = (int)gsl_linalg_LU_sgndet(arg1,arg2);
4038 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4039
4040
4041 XSRETURN(argvi);
4042 fail:
4043
4044
4045 SWIG_croak_null();
4046 }
4047 }
4048
4049
XS(_wrap_gsl_linalg_complex_LU_decomp)4050 XS(_wrap_gsl_linalg_complex_LU_decomp) {
4051 {
4052 gsl_matrix_complex *arg1 = (gsl_matrix_complex *) 0 ;
4053 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
4054 int *arg3 = (int *) 0 ;
4055 void *argp1 = 0 ;
4056 int res1 = 0 ;
4057 void *argp2 = 0 ;
4058 int res2 = 0 ;
4059 int temp3 ;
4060 int res3 = SWIG_TMPOBJ ;
4061 int argvi = 0;
4062 int result;
4063 dXSARGS;
4064
4065 arg3 = &temp3;
4066 if ((items < 2) || (items > 2)) {
4067 SWIG_croak("Usage: gsl_linalg_complex_LU_decomp(A,p);");
4068 }
4069 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
4070 if (!SWIG_IsOK(res1)) {
4071 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_complex_LU_decomp" "', argument " "1"" of type '" "gsl_matrix_complex *""'");
4072 }
4073 arg1 = (gsl_matrix_complex *)(argp1);
4074 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
4075 if (!SWIG_IsOK(res2)) {
4076 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_complex_LU_decomp" "', argument " "2"" of type '" "gsl_permutation *""'");
4077 }
4078 arg2 = (gsl_permutation *)(argp2);
4079 result = (int)gsl_linalg_complex_LU_decomp(arg1,arg2,arg3);
4080 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4081 if (SWIG_IsTmpObj(res3)) {
4082 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((*arg3)); argvi++ ;
4083 } else {
4084 int new_flags = SWIG_IsNewObj(res3) ? (SWIG_POINTER_OWN | 0) : 0;
4085 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg3), SWIGTYPE_p_int, new_flags); argvi++ ;
4086 }
4087
4088
4089
4090 XSRETURN(argvi);
4091 fail:
4092
4093
4094
4095 SWIG_croak_null();
4096 }
4097 }
4098
4099
XS(_wrap_gsl_linalg_complex_LU_solve)4100 XS(_wrap_gsl_linalg_complex_LU_solve) {
4101 {
4102 gsl_matrix_complex *arg1 = (gsl_matrix_complex *) 0 ;
4103 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
4104 gsl_vector_complex *arg3 = (gsl_vector_complex *) 0 ;
4105 gsl_vector_complex *arg4 = (gsl_vector_complex *) 0 ;
4106 void *argp1 = 0 ;
4107 int res1 = 0 ;
4108 void *argp2 = 0 ;
4109 int res2 = 0 ;
4110 void *argp3 = 0 ;
4111 int res3 = 0 ;
4112 void *argp4 = 0 ;
4113 int res4 = 0 ;
4114 int argvi = 0;
4115 int result;
4116 dXSARGS;
4117
4118 if ((items < 4) || (items > 4)) {
4119 SWIG_croak("Usage: gsl_linalg_complex_LU_solve(LU,p,b,x);");
4120 }
4121 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
4122 if (!SWIG_IsOK(res1)) {
4123 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_complex_LU_solve" "', argument " "1"" of type '" "gsl_matrix_complex const *""'");
4124 }
4125 arg1 = (gsl_matrix_complex *)(argp1);
4126 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
4127 if (!SWIG_IsOK(res2)) {
4128 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_complex_LU_solve" "', argument " "2"" of type '" "gsl_permutation const *""'");
4129 }
4130 arg2 = (gsl_permutation *)(argp2);
4131 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
4132 if (!SWIG_IsOK(res3)) {
4133 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_complex_LU_solve" "', argument " "3"" of type '" "gsl_vector_complex const *""'");
4134 }
4135 arg3 = (gsl_vector_complex *)(argp3);
4136 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
4137 if (!SWIG_IsOK(res4)) {
4138 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_complex_LU_solve" "', argument " "4"" of type '" "gsl_vector_complex *""'");
4139 }
4140 arg4 = (gsl_vector_complex *)(argp4);
4141 result = (int)gsl_linalg_complex_LU_solve((gsl_matrix_complex const *)arg1,(struct gsl_permutation_struct const *)arg2,(gsl_vector_complex const *)arg3,arg4);
4142 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4143
4144
4145
4146
4147 XSRETURN(argvi);
4148 fail:
4149
4150
4151
4152
4153 SWIG_croak_null();
4154 }
4155 }
4156
4157
XS(_wrap_gsl_linalg_complex_LU_svx)4158 XS(_wrap_gsl_linalg_complex_LU_svx) {
4159 {
4160 gsl_matrix_complex *arg1 = (gsl_matrix_complex *) 0 ;
4161 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
4162 gsl_vector_complex *arg3 = (gsl_vector_complex *) 0 ;
4163 void *argp1 = 0 ;
4164 int res1 = 0 ;
4165 void *argp2 = 0 ;
4166 int res2 = 0 ;
4167 void *argp3 = 0 ;
4168 int res3 = 0 ;
4169 int argvi = 0;
4170 int result;
4171 dXSARGS;
4172
4173 if ((items < 3) || (items > 3)) {
4174 SWIG_croak("Usage: gsl_linalg_complex_LU_svx(LU,p,x);");
4175 }
4176 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
4177 if (!SWIG_IsOK(res1)) {
4178 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_complex_LU_svx" "', argument " "1"" of type '" "gsl_matrix_complex const *""'");
4179 }
4180 arg1 = (gsl_matrix_complex *)(argp1);
4181 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
4182 if (!SWIG_IsOK(res2)) {
4183 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_complex_LU_svx" "', argument " "2"" of type '" "gsl_permutation const *""'");
4184 }
4185 arg2 = (gsl_permutation *)(argp2);
4186 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
4187 if (!SWIG_IsOK(res3)) {
4188 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_complex_LU_svx" "', argument " "3"" of type '" "gsl_vector_complex *""'");
4189 }
4190 arg3 = (gsl_vector_complex *)(argp3);
4191 result = (int)gsl_linalg_complex_LU_svx((gsl_matrix_complex const *)arg1,(struct gsl_permutation_struct const *)arg2,arg3);
4192 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4193
4194
4195
4196 XSRETURN(argvi);
4197 fail:
4198
4199
4200
4201 SWIG_croak_null();
4202 }
4203 }
4204
4205
XS(_wrap_gsl_linalg_complex_LU_refine)4206 XS(_wrap_gsl_linalg_complex_LU_refine) {
4207 {
4208 gsl_matrix_complex *arg1 = (gsl_matrix_complex *) 0 ;
4209 gsl_matrix_complex *arg2 = (gsl_matrix_complex *) 0 ;
4210 gsl_permutation *arg3 = (gsl_permutation *) 0 ;
4211 gsl_vector_complex *arg4 = (gsl_vector_complex *) 0 ;
4212 gsl_vector_complex *arg5 = (gsl_vector_complex *) 0 ;
4213 gsl_vector_complex *arg6 = (gsl_vector_complex *) 0 ;
4214 void *argp1 = 0 ;
4215 int res1 = 0 ;
4216 void *argp2 = 0 ;
4217 int res2 = 0 ;
4218 void *argp3 = 0 ;
4219 int res3 = 0 ;
4220 void *argp4 = 0 ;
4221 int res4 = 0 ;
4222 void *argp5 = 0 ;
4223 int res5 = 0 ;
4224 void *argp6 = 0 ;
4225 int res6 = 0 ;
4226 int argvi = 0;
4227 int result;
4228 dXSARGS;
4229
4230 if ((items < 6) || (items > 6)) {
4231 SWIG_croak("Usage: gsl_linalg_complex_LU_refine(A,LU,p,b,x,work);");
4232 }
4233 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
4234 if (!SWIG_IsOK(res1)) {
4235 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_complex_LU_refine" "', argument " "1"" of type '" "gsl_matrix_complex const *""'");
4236 }
4237 arg1 = (gsl_matrix_complex *)(argp1);
4238 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
4239 if (!SWIG_IsOK(res2)) {
4240 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_complex_LU_refine" "', argument " "2"" of type '" "gsl_matrix_complex const *""'");
4241 }
4242 arg2 = (gsl_matrix_complex *)(argp2);
4243 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
4244 if (!SWIG_IsOK(res3)) {
4245 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_complex_LU_refine" "', argument " "3"" of type '" "gsl_permutation const *""'");
4246 }
4247 arg3 = (gsl_permutation *)(argp3);
4248 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
4249 if (!SWIG_IsOK(res4)) {
4250 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_complex_LU_refine" "', argument " "4"" of type '" "gsl_vector_complex const *""'");
4251 }
4252 arg4 = (gsl_vector_complex *)(argp4);
4253 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
4254 if (!SWIG_IsOK(res5)) {
4255 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_complex_LU_refine" "', argument " "5"" of type '" "gsl_vector_complex *""'");
4256 }
4257 arg5 = (gsl_vector_complex *)(argp5);
4258 res6 = SWIG_ConvertPtr(ST(5), &argp6,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
4259 if (!SWIG_IsOK(res6)) {
4260 SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_linalg_complex_LU_refine" "', argument " "6"" of type '" "gsl_vector_complex *""'");
4261 }
4262 arg6 = (gsl_vector_complex *)(argp6);
4263 result = (int)gsl_linalg_complex_LU_refine((gsl_matrix_complex const *)arg1,(gsl_matrix_complex const *)arg2,(struct gsl_permutation_struct const *)arg3,(gsl_vector_complex const *)arg4,arg5,arg6);
4264 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4265
4266
4267
4268
4269
4270
4271 XSRETURN(argvi);
4272 fail:
4273
4274
4275
4276
4277
4278
4279 SWIG_croak_null();
4280 }
4281 }
4282
4283
XS(_wrap_gsl_linalg_complex_LU_invert)4284 XS(_wrap_gsl_linalg_complex_LU_invert) {
4285 {
4286 gsl_matrix_complex *arg1 = (gsl_matrix_complex *) 0 ;
4287 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
4288 gsl_matrix_complex *arg3 = (gsl_matrix_complex *) 0 ;
4289 void *argp1 = 0 ;
4290 int res1 = 0 ;
4291 void *argp2 = 0 ;
4292 int res2 = 0 ;
4293 void *argp3 = 0 ;
4294 int res3 = 0 ;
4295 int argvi = 0;
4296 int result;
4297 dXSARGS;
4298
4299 if ((items < 3) || (items > 3)) {
4300 SWIG_croak("Usage: gsl_linalg_complex_LU_invert(LU,p,inverse);");
4301 }
4302 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
4303 if (!SWIG_IsOK(res1)) {
4304 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_complex_LU_invert" "', argument " "1"" of type '" "gsl_matrix_complex const *""'");
4305 }
4306 arg1 = (gsl_matrix_complex *)(argp1);
4307 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
4308 if (!SWIG_IsOK(res2)) {
4309 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_complex_LU_invert" "', argument " "2"" of type '" "gsl_permutation const *""'");
4310 }
4311 arg2 = (gsl_permutation *)(argp2);
4312 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
4313 if (!SWIG_IsOK(res3)) {
4314 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_complex_LU_invert" "', argument " "3"" of type '" "gsl_matrix_complex *""'");
4315 }
4316 arg3 = (gsl_matrix_complex *)(argp3);
4317 result = (int)gsl_linalg_complex_LU_invert((gsl_matrix_complex const *)arg1,(struct gsl_permutation_struct const *)arg2,arg3);
4318 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4319
4320
4321
4322 XSRETURN(argvi);
4323 fail:
4324
4325
4326
4327 SWIG_croak_null();
4328 }
4329 }
4330
4331
XS(_wrap_gsl_linalg_complex_LU_det)4332 XS(_wrap_gsl_linalg_complex_LU_det) {
4333 {
4334 gsl_matrix_complex *arg1 = (gsl_matrix_complex *) 0 ;
4335 int arg2 ;
4336 void *argp1 = 0 ;
4337 int res1 = 0 ;
4338 int val2 ;
4339 int ecode2 = 0 ;
4340 int argvi = 0;
4341 gsl_complex result;
4342 dXSARGS;
4343
4344 if ((items < 2) || (items > 2)) {
4345 SWIG_croak("Usage: gsl_linalg_complex_LU_det(LU,signum);");
4346 }
4347 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
4348 if (!SWIG_IsOK(res1)) {
4349 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_complex_LU_det" "', argument " "1"" of type '" "gsl_matrix_complex *""'");
4350 }
4351 arg1 = (gsl_matrix_complex *)(argp1);
4352 ecode2 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
4353 if (!SWIG_IsOK(ecode2)) {
4354 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_linalg_complex_LU_det" "', argument " "2"" of type '" "int""'");
4355 }
4356 arg2 = (int)(val2);
4357 result = gsl_linalg_complex_LU_det(arg1,arg2);
4358 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
4359
4360
4361 XSRETURN(argvi);
4362 fail:
4363
4364
4365 SWIG_croak_null();
4366 }
4367 }
4368
4369
XS(_wrap_gsl_linalg_complex_LU_lndet)4370 XS(_wrap_gsl_linalg_complex_LU_lndet) {
4371 {
4372 gsl_matrix_complex *arg1 = (gsl_matrix_complex *) 0 ;
4373 void *argp1 = 0 ;
4374 int res1 = 0 ;
4375 int argvi = 0;
4376 double result;
4377 dXSARGS;
4378
4379 if ((items < 1) || (items > 1)) {
4380 SWIG_croak("Usage: gsl_linalg_complex_LU_lndet(LU);");
4381 }
4382 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
4383 if (!SWIG_IsOK(res1)) {
4384 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_complex_LU_lndet" "', argument " "1"" of type '" "gsl_matrix_complex *""'");
4385 }
4386 arg1 = (gsl_matrix_complex *)(argp1);
4387 result = (double)gsl_linalg_complex_LU_lndet(arg1);
4388 ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(result)); argvi++ ;
4389
4390 XSRETURN(argvi);
4391 fail:
4392
4393 SWIG_croak_null();
4394 }
4395 }
4396
4397
XS(_wrap_gsl_linalg_complex_LU_sgndet)4398 XS(_wrap_gsl_linalg_complex_LU_sgndet) {
4399 {
4400 gsl_matrix_complex *arg1 = (gsl_matrix_complex *) 0 ;
4401 int arg2 ;
4402 void *argp1 = 0 ;
4403 int res1 = 0 ;
4404 int val2 ;
4405 int ecode2 = 0 ;
4406 int argvi = 0;
4407 gsl_complex result;
4408 dXSARGS;
4409
4410 if ((items < 2) || (items > 2)) {
4411 SWIG_croak("Usage: gsl_linalg_complex_LU_sgndet(LU,signum);");
4412 }
4413 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
4414 if (!SWIG_IsOK(res1)) {
4415 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_complex_LU_sgndet" "', argument " "1"" of type '" "gsl_matrix_complex *""'");
4416 }
4417 arg1 = (gsl_matrix_complex *)(argp1);
4418 ecode2 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
4419 if (!SWIG_IsOK(ecode2)) {
4420 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_linalg_complex_LU_sgndet" "', argument " "2"" of type '" "int""'");
4421 }
4422 arg2 = (int)(val2);
4423 result = gsl_linalg_complex_LU_sgndet(arg1,arg2);
4424 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
4425
4426
4427 XSRETURN(argvi);
4428 fail:
4429
4430
4431 SWIG_croak_null();
4432 }
4433 }
4434
4435
XS(_wrap_gsl_linalg_QR_decomp)4436 XS(_wrap_gsl_linalg_QR_decomp) {
4437 {
4438 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
4439 gsl_vector *arg2 = (gsl_vector *) 0 ;
4440 void *argp1 = 0 ;
4441 int res1 = 0 ;
4442 void *argp2 = 0 ;
4443 int res2 = 0 ;
4444 int argvi = 0;
4445 int result;
4446 dXSARGS;
4447
4448 if ((items < 2) || (items > 2)) {
4449 SWIG_croak("Usage: gsl_linalg_QR_decomp(A,tau);");
4450 }
4451 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
4452 if (!SWIG_IsOK(res1)) {
4453 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QR_decomp" "', argument " "1"" of type '" "gsl_matrix *""'");
4454 }
4455 arg1 = (gsl_matrix *)(argp1);
4456 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
4457 if (!SWIG_IsOK(res2)) {
4458 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QR_decomp" "', argument " "2"" of type '" "gsl_vector *""'");
4459 }
4460 arg2 = (gsl_vector *)(argp2);
4461 result = (int)gsl_linalg_QR_decomp(arg1,arg2);
4462 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4463
4464
4465 XSRETURN(argvi);
4466 fail:
4467
4468
4469 SWIG_croak_null();
4470 }
4471 }
4472
4473
XS(_wrap_gsl_linalg_QR_solve)4474 XS(_wrap_gsl_linalg_QR_solve) {
4475 {
4476 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
4477 gsl_vector *arg2 = (gsl_vector *) 0 ;
4478 gsl_vector *arg3 = (gsl_vector *) 0 ;
4479 gsl_vector *arg4 = (gsl_vector *) 0 ;
4480 void *argp1 = 0 ;
4481 int res1 = 0 ;
4482 void *argp2 = 0 ;
4483 int res2 = 0 ;
4484 void *argp3 = 0 ;
4485 int res3 = 0 ;
4486 void *argp4 = 0 ;
4487 int res4 = 0 ;
4488 int argvi = 0;
4489 int result;
4490 dXSARGS;
4491
4492 if ((items < 4) || (items > 4)) {
4493 SWIG_croak("Usage: gsl_linalg_QR_solve(QR,tau,b,x);");
4494 }
4495 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
4496 if (!SWIG_IsOK(res1)) {
4497 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QR_solve" "', argument " "1"" of type '" "gsl_matrix const *""'");
4498 }
4499 arg1 = (gsl_matrix *)(argp1);
4500 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
4501 if (!SWIG_IsOK(res2)) {
4502 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QR_solve" "', argument " "2"" of type '" "gsl_vector const *""'");
4503 }
4504 arg2 = (gsl_vector *)(argp2);
4505 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
4506 if (!SWIG_IsOK(res3)) {
4507 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QR_solve" "', argument " "3"" of type '" "gsl_vector const *""'");
4508 }
4509 arg3 = (gsl_vector *)(argp3);
4510 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
4511 if (!SWIG_IsOK(res4)) {
4512 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_QR_solve" "', argument " "4"" of type '" "gsl_vector *""'");
4513 }
4514 arg4 = (gsl_vector *)(argp4);
4515 result = (int)gsl_linalg_QR_solve((gsl_matrix const *)arg1,(gsl_vector const *)arg2,(gsl_vector const *)arg3,arg4);
4516 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4517
4518
4519
4520
4521 XSRETURN(argvi);
4522 fail:
4523
4524
4525
4526
4527 SWIG_croak_null();
4528 }
4529 }
4530
4531
XS(_wrap_gsl_linalg_QR_svx)4532 XS(_wrap_gsl_linalg_QR_svx) {
4533 {
4534 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
4535 gsl_vector *arg2 = (gsl_vector *) 0 ;
4536 gsl_vector *arg3 = (gsl_vector *) 0 ;
4537 void *argp1 = 0 ;
4538 int res1 = 0 ;
4539 void *argp2 = 0 ;
4540 int res2 = 0 ;
4541 void *argp3 = 0 ;
4542 int res3 = 0 ;
4543 int argvi = 0;
4544 int result;
4545 dXSARGS;
4546
4547 if ((items < 3) || (items > 3)) {
4548 SWIG_croak("Usage: gsl_linalg_QR_svx(QR,tau,x);");
4549 }
4550 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
4551 if (!SWIG_IsOK(res1)) {
4552 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QR_svx" "', argument " "1"" of type '" "gsl_matrix const *""'");
4553 }
4554 arg1 = (gsl_matrix *)(argp1);
4555 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
4556 if (!SWIG_IsOK(res2)) {
4557 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QR_svx" "', argument " "2"" of type '" "gsl_vector const *""'");
4558 }
4559 arg2 = (gsl_vector *)(argp2);
4560 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
4561 if (!SWIG_IsOK(res3)) {
4562 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QR_svx" "', argument " "3"" of type '" "gsl_vector *""'");
4563 }
4564 arg3 = (gsl_vector *)(argp3);
4565 result = (int)gsl_linalg_QR_svx((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3);
4566 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4567
4568
4569
4570 XSRETURN(argvi);
4571 fail:
4572
4573
4574
4575 SWIG_croak_null();
4576 }
4577 }
4578
4579
XS(_wrap_gsl_linalg_QR_lssolve)4580 XS(_wrap_gsl_linalg_QR_lssolve) {
4581 {
4582 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
4583 gsl_vector *arg2 = (gsl_vector *) 0 ;
4584 gsl_vector *arg3 = (gsl_vector *) 0 ;
4585 gsl_vector *arg4 = (gsl_vector *) 0 ;
4586 gsl_vector *arg5 = (gsl_vector *) 0 ;
4587 void *argp1 = 0 ;
4588 int res1 = 0 ;
4589 void *argp2 = 0 ;
4590 int res2 = 0 ;
4591 void *argp3 = 0 ;
4592 int res3 = 0 ;
4593 void *argp4 = 0 ;
4594 int res4 = 0 ;
4595 void *argp5 = 0 ;
4596 int res5 = 0 ;
4597 int argvi = 0;
4598 int result;
4599 dXSARGS;
4600
4601 if ((items < 5) || (items > 5)) {
4602 SWIG_croak("Usage: gsl_linalg_QR_lssolve(QR,tau,b,x,residual);");
4603 }
4604 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
4605 if (!SWIG_IsOK(res1)) {
4606 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QR_lssolve" "', argument " "1"" of type '" "gsl_matrix const *""'");
4607 }
4608 arg1 = (gsl_matrix *)(argp1);
4609 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
4610 if (!SWIG_IsOK(res2)) {
4611 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QR_lssolve" "', argument " "2"" of type '" "gsl_vector const *""'");
4612 }
4613 arg2 = (gsl_vector *)(argp2);
4614 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
4615 if (!SWIG_IsOK(res3)) {
4616 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QR_lssolve" "', argument " "3"" of type '" "gsl_vector const *""'");
4617 }
4618 arg3 = (gsl_vector *)(argp3);
4619 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
4620 if (!SWIG_IsOK(res4)) {
4621 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_QR_lssolve" "', argument " "4"" of type '" "gsl_vector *""'");
4622 }
4623 arg4 = (gsl_vector *)(argp4);
4624 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
4625 if (!SWIG_IsOK(res5)) {
4626 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_QR_lssolve" "', argument " "5"" of type '" "gsl_vector *""'");
4627 }
4628 arg5 = (gsl_vector *)(argp5);
4629 result = (int)gsl_linalg_QR_lssolve((gsl_matrix const *)arg1,(gsl_vector const *)arg2,(gsl_vector const *)arg3,arg4,arg5);
4630 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4631
4632
4633
4634
4635
4636 XSRETURN(argvi);
4637 fail:
4638
4639
4640
4641
4642
4643 SWIG_croak_null();
4644 }
4645 }
4646
4647
XS(_wrap_gsl_linalg_QR_QRsolve)4648 XS(_wrap_gsl_linalg_QR_QRsolve) {
4649 {
4650 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
4651 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
4652 gsl_vector *arg3 = (gsl_vector *) 0 ;
4653 gsl_vector *arg4 = (gsl_vector *) 0 ;
4654 void *argp1 = 0 ;
4655 int res1 = 0 ;
4656 void *argp2 = 0 ;
4657 int res2 = 0 ;
4658 void *argp3 = 0 ;
4659 int res3 = 0 ;
4660 void *argp4 = 0 ;
4661 int res4 = 0 ;
4662 int argvi = 0;
4663 int result;
4664 dXSARGS;
4665
4666 if ((items < 4) || (items > 4)) {
4667 SWIG_croak("Usage: gsl_linalg_QR_QRsolve(Q,R,b,x);");
4668 }
4669 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
4670 if (!SWIG_IsOK(res1)) {
4671 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QR_QRsolve" "', argument " "1"" of type '" "gsl_matrix *""'");
4672 }
4673 arg1 = (gsl_matrix *)(argp1);
4674 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
4675 if (!SWIG_IsOK(res2)) {
4676 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QR_QRsolve" "', argument " "2"" of type '" "gsl_matrix *""'");
4677 }
4678 arg2 = (gsl_matrix *)(argp2);
4679 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
4680 if (!SWIG_IsOK(res3)) {
4681 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QR_QRsolve" "', argument " "3"" of type '" "gsl_vector const *""'");
4682 }
4683 arg3 = (gsl_vector *)(argp3);
4684 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
4685 if (!SWIG_IsOK(res4)) {
4686 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_QR_QRsolve" "', argument " "4"" of type '" "gsl_vector *""'");
4687 }
4688 arg4 = (gsl_vector *)(argp4);
4689 result = (int)gsl_linalg_QR_QRsolve(arg1,arg2,(gsl_vector const *)arg3,arg4);
4690 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4691
4692
4693
4694
4695 XSRETURN(argvi);
4696 fail:
4697
4698
4699
4700
4701 SWIG_croak_null();
4702 }
4703 }
4704
4705
XS(_wrap_gsl_linalg_QR_Rsolve)4706 XS(_wrap_gsl_linalg_QR_Rsolve) {
4707 {
4708 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
4709 gsl_vector *arg2 = (gsl_vector *) 0 ;
4710 gsl_vector *arg3 = (gsl_vector *) 0 ;
4711 void *argp1 = 0 ;
4712 int res1 = 0 ;
4713 void *argp2 = 0 ;
4714 int res2 = 0 ;
4715 void *argp3 = 0 ;
4716 int res3 = 0 ;
4717 int argvi = 0;
4718 int result;
4719 dXSARGS;
4720
4721 if ((items < 3) || (items > 3)) {
4722 SWIG_croak("Usage: gsl_linalg_QR_Rsolve(QR,b,x);");
4723 }
4724 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
4725 if (!SWIG_IsOK(res1)) {
4726 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QR_Rsolve" "', argument " "1"" of type '" "gsl_matrix const *""'");
4727 }
4728 arg1 = (gsl_matrix *)(argp1);
4729 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
4730 if (!SWIG_IsOK(res2)) {
4731 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QR_Rsolve" "', argument " "2"" of type '" "gsl_vector const *""'");
4732 }
4733 arg2 = (gsl_vector *)(argp2);
4734 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
4735 if (!SWIG_IsOK(res3)) {
4736 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QR_Rsolve" "', argument " "3"" of type '" "gsl_vector *""'");
4737 }
4738 arg3 = (gsl_vector *)(argp3);
4739 result = (int)gsl_linalg_QR_Rsolve((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3);
4740 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4741
4742
4743
4744 XSRETURN(argvi);
4745 fail:
4746
4747
4748
4749 SWIG_croak_null();
4750 }
4751 }
4752
4753
XS(_wrap_gsl_linalg_QR_Rsvx)4754 XS(_wrap_gsl_linalg_QR_Rsvx) {
4755 {
4756 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
4757 gsl_vector *arg2 = (gsl_vector *) 0 ;
4758 void *argp1 = 0 ;
4759 int res1 = 0 ;
4760 void *argp2 = 0 ;
4761 int res2 = 0 ;
4762 int argvi = 0;
4763 int result;
4764 dXSARGS;
4765
4766 if ((items < 2) || (items > 2)) {
4767 SWIG_croak("Usage: gsl_linalg_QR_Rsvx(QR,x);");
4768 }
4769 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
4770 if (!SWIG_IsOK(res1)) {
4771 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QR_Rsvx" "', argument " "1"" of type '" "gsl_matrix const *""'");
4772 }
4773 arg1 = (gsl_matrix *)(argp1);
4774 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
4775 if (!SWIG_IsOK(res2)) {
4776 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QR_Rsvx" "', argument " "2"" of type '" "gsl_vector *""'");
4777 }
4778 arg2 = (gsl_vector *)(argp2);
4779 result = (int)gsl_linalg_QR_Rsvx((gsl_matrix const *)arg1,arg2);
4780 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4781
4782
4783 XSRETURN(argvi);
4784 fail:
4785
4786
4787 SWIG_croak_null();
4788 }
4789 }
4790
4791
XS(_wrap_gsl_linalg_QR_update)4792 XS(_wrap_gsl_linalg_QR_update) {
4793 {
4794 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
4795 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
4796 gsl_vector *arg3 = (gsl_vector *) 0 ;
4797 gsl_vector *arg4 = (gsl_vector *) 0 ;
4798 void *argp1 = 0 ;
4799 int res1 = 0 ;
4800 void *argp2 = 0 ;
4801 int res2 = 0 ;
4802 void *argp3 = 0 ;
4803 int res3 = 0 ;
4804 void *argp4 = 0 ;
4805 int res4 = 0 ;
4806 int argvi = 0;
4807 int result;
4808 dXSARGS;
4809
4810 if ((items < 4) || (items > 4)) {
4811 SWIG_croak("Usage: gsl_linalg_QR_update(Q,R,w,v);");
4812 }
4813 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
4814 if (!SWIG_IsOK(res1)) {
4815 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QR_update" "', argument " "1"" of type '" "gsl_matrix *""'");
4816 }
4817 arg1 = (gsl_matrix *)(argp1);
4818 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
4819 if (!SWIG_IsOK(res2)) {
4820 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QR_update" "', argument " "2"" of type '" "gsl_matrix *""'");
4821 }
4822 arg2 = (gsl_matrix *)(argp2);
4823 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
4824 if (!SWIG_IsOK(res3)) {
4825 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QR_update" "', argument " "3"" of type '" "gsl_vector *""'");
4826 }
4827 arg3 = (gsl_vector *)(argp3);
4828 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
4829 if (!SWIG_IsOK(res4)) {
4830 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_QR_update" "', argument " "4"" of type '" "gsl_vector const *""'");
4831 }
4832 arg4 = (gsl_vector *)(argp4);
4833 result = (int)gsl_linalg_QR_update(arg1,arg2,arg3,(gsl_vector const *)arg4);
4834 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4835
4836
4837
4838
4839 XSRETURN(argvi);
4840 fail:
4841
4842
4843
4844
4845 SWIG_croak_null();
4846 }
4847 }
4848
4849
XS(_wrap_gsl_linalg_QR_QTvec)4850 XS(_wrap_gsl_linalg_QR_QTvec) {
4851 {
4852 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
4853 gsl_vector *arg2 = (gsl_vector *) 0 ;
4854 gsl_vector *arg3 = (gsl_vector *) 0 ;
4855 void *argp1 = 0 ;
4856 int res1 = 0 ;
4857 void *argp2 = 0 ;
4858 int res2 = 0 ;
4859 void *argp3 = 0 ;
4860 int res3 = 0 ;
4861 int argvi = 0;
4862 int result;
4863 dXSARGS;
4864
4865 if ((items < 3) || (items > 3)) {
4866 SWIG_croak("Usage: gsl_linalg_QR_QTvec(QR,tau,v);");
4867 }
4868 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
4869 if (!SWIG_IsOK(res1)) {
4870 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QR_QTvec" "', argument " "1"" of type '" "gsl_matrix const *""'");
4871 }
4872 arg1 = (gsl_matrix *)(argp1);
4873 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
4874 if (!SWIG_IsOK(res2)) {
4875 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QR_QTvec" "', argument " "2"" of type '" "gsl_vector const *""'");
4876 }
4877 arg2 = (gsl_vector *)(argp2);
4878 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
4879 if (!SWIG_IsOK(res3)) {
4880 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QR_QTvec" "', argument " "3"" of type '" "gsl_vector *""'");
4881 }
4882 arg3 = (gsl_vector *)(argp3);
4883 result = (int)gsl_linalg_QR_QTvec((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3);
4884 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4885
4886
4887
4888 XSRETURN(argvi);
4889 fail:
4890
4891
4892
4893 SWIG_croak_null();
4894 }
4895 }
4896
4897
XS(_wrap_gsl_linalg_QR_Qvec)4898 XS(_wrap_gsl_linalg_QR_Qvec) {
4899 {
4900 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
4901 gsl_vector *arg2 = (gsl_vector *) 0 ;
4902 gsl_vector *arg3 = (gsl_vector *) 0 ;
4903 void *argp1 = 0 ;
4904 int res1 = 0 ;
4905 void *argp2 = 0 ;
4906 int res2 = 0 ;
4907 void *argp3 = 0 ;
4908 int res3 = 0 ;
4909 int argvi = 0;
4910 int result;
4911 dXSARGS;
4912
4913 if ((items < 3) || (items > 3)) {
4914 SWIG_croak("Usage: gsl_linalg_QR_Qvec(QR,tau,v);");
4915 }
4916 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
4917 if (!SWIG_IsOK(res1)) {
4918 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QR_Qvec" "', argument " "1"" of type '" "gsl_matrix const *""'");
4919 }
4920 arg1 = (gsl_matrix *)(argp1);
4921 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
4922 if (!SWIG_IsOK(res2)) {
4923 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QR_Qvec" "', argument " "2"" of type '" "gsl_vector const *""'");
4924 }
4925 arg2 = (gsl_vector *)(argp2);
4926 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
4927 if (!SWIG_IsOK(res3)) {
4928 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QR_Qvec" "', argument " "3"" of type '" "gsl_vector *""'");
4929 }
4930 arg3 = (gsl_vector *)(argp3);
4931 result = (int)gsl_linalg_QR_Qvec((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3);
4932 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4933
4934
4935
4936 XSRETURN(argvi);
4937 fail:
4938
4939
4940
4941 SWIG_croak_null();
4942 }
4943 }
4944
4945
XS(_wrap_gsl_linalg_QR_QTmat)4946 XS(_wrap_gsl_linalg_QR_QTmat) {
4947 {
4948 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
4949 gsl_vector *arg2 = (gsl_vector *) 0 ;
4950 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
4951 void *argp1 = 0 ;
4952 int res1 = 0 ;
4953 void *argp2 = 0 ;
4954 int res2 = 0 ;
4955 void *argp3 = 0 ;
4956 int res3 = 0 ;
4957 int argvi = 0;
4958 int result;
4959 dXSARGS;
4960
4961 if ((items < 3) || (items > 3)) {
4962 SWIG_croak("Usage: gsl_linalg_QR_QTmat(QR,tau,A);");
4963 }
4964 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
4965 if (!SWIG_IsOK(res1)) {
4966 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QR_QTmat" "', argument " "1"" of type '" "gsl_matrix const *""'");
4967 }
4968 arg1 = (gsl_matrix *)(argp1);
4969 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
4970 if (!SWIG_IsOK(res2)) {
4971 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QR_QTmat" "', argument " "2"" of type '" "gsl_vector const *""'");
4972 }
4973 arg2 = (gsl_vector *)(argp2);
4974 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
4975 if (!SWIG_IsOK(res3)) {
4976 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QR_QTmat" "', argument " "3"" of type '" "gsl_matrix *""'");
4977 }
4978 arg3 = (gsl_matrix *)(argp3);
4979 result = (int)gsl_linalg_QR_QTmat((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3);
4980 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4981
4982
4983
4984 XSRETURN(argvi);
4985 fail:
4986
4987
4988
4989 SWIG_croak_null();
4990 }
4991 }
4992
4993
XS(_wrap_gsl_linalg_QR_matQ)4994 XS(_wrap_gsl_linalg_QR_matQ) {
4995 {
4996 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
4997 gsl_vector *arg2 = (gsl_vector *) 0 ;
4998 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
4999 void *argp1 = 0 ;
5000 int res1 = 0 ;
5001 void *argp2 = 0 ;
5002 int res2 = 0 ;
5003 void *argp3 = 0 ;
5004 int res3 = 0 ;
5005 int argvi = 0;
5006 int result;
5007 dXSARGS;
5008
5009 if ((items < 3) || (items > 3)) {
5010 SWIG_croak("Usage: gsl_linalg_QR_matQ(QR,tau,A);");
5011 }
5012 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5013 if (!SWIG_IsOK(res1)) {
5014 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QR_matQ" "', argument " "1"" of type '" "gsl_matrix const *""'");
5015 }
5016 arg1 = (gsl_matrix *)(argp1);
5017 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
5018 if (!SWIG_IsOK(res2)) {
5019 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QR_matQ" "', argument " "2"" of type '" "gsl_vector const *""'");
5020 }
5021 arg2 = (gsl_vector *)(argp2);
5022 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5023 if (!SWIG_IsOK(res3)) {
5024 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QR_matQ" "', argument " "3"" of type '" "gsl_matrix *""'");
5025 }
5026 arg3 = (gsl_matrix *)(argp3);
5027 result = (int)gsl_linalg_QR_matQ((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3);
5028 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5029
5030
5031
5032 XSRETURN(argvi);
5033 fail:
5034
5035
5036
5037 SWIG_croak_null();
5038 }
5039 }
5040
5041
XS(_wrap_gsl_linalg_QR_unpack)5042 XS(_wrap_gsl_linalg_QR_unpack) {
5043 {
5044 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5045 gsl_vector *arg2 = (gsl_vector *) 0 ;
5046 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
5047 gsl_matrix *arg4 = (gsl_matrix *) 0 ;
5048 void *argp1 = 0 ;
5049 int res1 = 0 ;
5050 void *argp2 = 0 ;
5051 int res2 = 0 ;
5052 void *argp3 = 0 ;
5053 int res3 = 0 ;
5054 void *argp4 = 0 ;
5055 int res4 = 0 ;
5056 int argvi = 0;
5057 int result;
5058 dXSARGS;
5059
5060 if ((items < 4) || (items > 4)) {
5061 SWIG_croak("Usage: gsl_linalg_QR_unpack(QR,tau,Q,R);");
5062 }
5063 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5064 if (!SWIG_IsOK(res1)) {
5065 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QR_unpack" "', argument " "1"" of type '" "gsl_matrix const *""'");
5066 }
5067 arg1 = (gsl_matrix *)(argp1);
5068 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
5069 if (!SWIG_IsOK(res2)) {
5070 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QR_unpack" "', argument " "2"" of type '" "gsl_vector const *""'");
5071 }
5072 arg2 = (gsl_vector *)(argp2);
5073 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5074 if (!SWIG_IsOK(res3)) {
5075 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QR_unpack" "', argument " "3"" of type '" "gsl_matrix *""'");
5076 }
5077 arg3 = (gsl_matrix *)(argp3);
5078 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5079 if (!SWIG_IsOK(res4)) {
5080 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_QR_unpack" "', argument " "4"" of type '" "gsl_matrix *""'");
5081 }
5082 arg4 = (gsl_matrix *)(argp4);
5083 result = (int)gsl_linalg_QR_unpack((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3,arg4);
5084 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5085
5086
5087
5088
5089 XSRETURN(argvi);
5090 fail:
5091
5092
5093
5094
5095 SWIG_croak_null();
5096 }
5097 }
5098
5099
XS(_wrap_gsl_linalg_R_solve)5100 XS(_wrap_gsl_linalg_R_solve) {
5101 {
5102 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5103 gsl_vector *arg2 = (gsl_vector *) 0 ;
5104 gsl_vector *arg3 = (gsl_vector *) 0 ;
5105 void *argp1 = 0 ;
5106 int res1 = 0 ;
5107 void *argp2 = 0 ;
5108 int res2 = 0 ;
5109 void *argp3 = 0 ;
5110 int res3 = 0 ;
5111 int argvi = 0;
5112 int result;
5113 dXSARGS;
5114
5115 if ((items < 3) || (items > 3)) {
5116 SWIG_croak("Usage: gsl_linalg_R_solve(R,b,x);");
5117 }
5118 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5119 if (!SWIG_IsOK(res1)) {
5120 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_R_solve" "', argument " "1"" of type '" "gsl_matrix const *""'");
5121 }
5122 arg1 = (gsl_matrix *)(argp1);
5123 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
5124 if (!SWIG_IsOK(res2)) {
5125 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_R_solve" "', argument " "2"" of type '" "gsl_vector const *""'");
5126 }
5127 arg2 = (gsl_vector *)(argp2);
5128 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
5129 if (!SWIG_IsOK(res3)) {
5130 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_R_solve" "', argument " "3"" of type '" "gsl_vector *""'");
5131 }
5132 arg3 = (gsl_vector *)(argp3);
5133 result = (int)gsl_linalg_R_solve((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3);
5134 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5135
5136
5137
5138 XSRETURN(argvi);
5139 fail:
5140
5141
5142
5143 SWIG_croak_null();
5144 }
5145 }
5146
5147
XS(_wrap_gsl_linalg_R_svx)5148 XS(_wrap_gsl_linalg_R_svx) {
5149 {
5150 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5151 gsl_vector *arg2 = (gsl_vector *) 0 ;
5152 void *argp1 = 0 ;
5153 int res1 = 0 ;
5154 void *argp2 = 0 ;
5155 int res2 = 0 ;
5156 int argvi = 0;
5157 int result;
5158 dXSARGS;
5159
5160 if ((items < 2) || (items > 2)) {
5161 SWIG_croak("Usage: gsl_linalg_R_svx(R,x);");
5162 }
5163 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5164 if (!SWIG_IsOK(res1)) {
5165 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_R_svx" "', argument " "1"" of type '" "gsl_matrix const *""'");
5166 }
5167 arg1 = (gsl_matrix *)(argp1);
5168 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
5169 if (!SWIG_IsOK(res2)) {
5170 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_R_svx" "', argument " "2"" of type '" "gsl_vector *""'");
5171 }
5172 arg2 = (gsl_vector *)(argp2);
5173 result = (int)gsl_linalg_R_svx((gsl_matrix const *)arg1,arg2);
5174 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5175
5176
5177 XSRETURN(argvi);
5178 fail:
5179
5180
5181 SWIG_croak_null();
5182 }
5183 }
5184
5185
XS(_wrap_gsl_linalg_QRPT_decomp)5186 XS(_wrap_gsl_linalg_QRPT_decomp) {
5187 {
5188 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5189 gsl_vector *arg2 = (gsl_vector *) 0 ;
5190 gsl_permutation *arg3 = (gsl_permutation *) 0 ;
5191 int *arg4 = (int *) 0 ;
5192 gsl_vector *arg5 = (gsl_vector *) 0 ;
5193 void *argp1 = 0 ;
5194 int res1 = 0 ;
5195 void *argp2 = 0 ;
5196 int res2 = 0 ;
5197 void *argp3 = 0 ;
5198 int res3 = 0 ;
5199 int temp4 ;
5200 int res4 = SWIG_TMPOBJ ;
5201 void *argp5 = 0 ;
5202 int res5 = 0 ;
5203 int argvi = 0;
5204 int result;
5205 dXSARGS;
5206
5207 arg4 = &temp4;
5208 if ((items < 4) || (items > 4)) {
5209 SWIG_croak("Usage: gsl_linalg_QRPT_decomp(A,tau,p,norm);");
5210 }
5211 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5212 if (!SWIG_IsOK(res1)) {
5213 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QRPT_decomp" "', argument " "1"" of type '" "gsl_matrix *""'");
5214 }
5215 arg1 = (gsl_matrix *)(argp1);
5216 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
5217 if (!SWIG_IsOK(res2)) {
5218 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QRPT_decomp" "', argument " "2"" of type '" "gsl_vector *""'");
5219 }
5220 arg2 = (gsl_vector *)(argp2);
5221 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
5222 if (!SWIG_IsOK(res3)) {
5223 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QRPT_decomp" "', argument " "3"" of type '" "gsl_permutation *""'");
5224 }
5225 arg3 = (gsl_permutation *)(argp3);
5226 res5 = SWIG_ConvertPtr(ST(3), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
5227 if (!SWIG_IsOK(res5)) {
5228 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_QRPT_decomp" "', argument " "5"" of type '" "gsl_vector *""'");
5229 }
5230 arg5 = (gsl_vector *)(argp5);
5231 result = (int)gsl_linalg_QRPT_decomp(arg1,arg2,arg3,arg4,arg5);
5232 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5233 if (SWIG_IsTmpObj(res4)) {
5234 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((*arg4)); argvi++ ;
5235 } else {
5236 int new_flags = SWIG_IsNewObj(res4) ? (SWIG_POINTER_OWN | 0) : 0;
5237 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg4), SWIGTYPE_p_int, new_flags); argvi++ ;
5238 }
5239
5240
5241
5242
5243
5244 XSRETURN(argvi);
5245 fail:
5246
5247
5248
5249
5250
5251 SWIG_croak_null();
5252 }
5253 }
5254
5255
XS(_wrap_gsl_linalg_QRPT_decomp2)5256 XS(_wrap_gsl_linalg_QRPT_decomp2) {
5257 {
5258 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5259 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
5260 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
5261 gsl_vector *arg4 = (gsl_vector *) 0 ;
5262 gsl_permutation *arg5 = (gsl_permutation *) 0 ;
5263 int *arg6 = (int *) 0 ;
5264 gsl_vector *arg7 = (gsl_vector *) 0 ;
5265 void *argp1 = 0 ;
5266 int res1 = 0 ;
5267 void *argp2 = 0 ;
5268 int res2 = 0 ;
5269 void *argp3 = 0 ;
5270 int res3 = 0 ;
5271 void *argp4 = 0 ;
5272 int res4 = 0 ;
5273 void *argp5 = 0 ;
5274 int res5 = 0 ;
5275 int temp6 ;
5276 int res6 = SWIG_TMPOBJ ;
5277 void *argp7 = 0 ;
5278 int res7 = 0 ;
5279 int argvi = 0;
5280 int result;
5281 dXSARGS;
5282
5283 arg6 = &temp6;
5284 if ((items < 6) || (items > 6)) {
5285 SWIG_croak("Usage: gsl_linalg_QRPT_decomp2(A,q,r,tau,p,norm);");
5286 }
5287 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5288 if (!SWIG_IsOK(res1)) {
5289 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QRPT_decomp2" "', argument " "1"" of type '" "gsl_matrix const *""'");
5290 }
5291 arg1 = (gsl_matrix *)(argp1);
5292 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5293 if (!SWIG_IsOK(res2)) {
5294 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QRPT_decomp2" "', argument " "2"" of type '" "gsl_matrix *""'");
5295 }
5296 arg2 = (gsl_matrix *)(argp2);
5297 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5298 if (!SWIG_IsOK(res3)) {
5299 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QRPT_decomp2" "', argument " "3"" of type '" "gsl_matrix *""'");
5300 }
5301 arg3 = (gsl_matrix *)(argp3);
5302 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
5303 if (!SWIG_IsOK(res4)) {
5304 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_QRPT_decomp2" "', argument " "4"" of type '" "gsl_vector *""'");
5305 }
5306 arg4 = (gsl_vector *)(argp4);
5307 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
5308 if (!SWIG_IsOK(res5)) {
5309 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_QRPT_decomp2" "', argument " "5"" of type '" "gsl_permutation *""'");
5310 }
5311 arg5 = (gsl_permutation *)(argp5);
5312 res7 = SWIG_ConvertPtr(ST(5), &argp7,SWIGTYPE_p_gsl_vector, 0 | 0 );
5313 if (!SWIG_IsOK(res7)) {
5314 SWIG_exception_fail(SWIG_ArgError(res7), "in method '" "gsl_linalg_QRPT_decomp2" "', argument " "7"" of type '" "gsl_vector *""'");
5315 }
5316 arg7 = (gsl_vector *)(argp7);
5317 result = (int)gsl_linalg_QRPT_decomp2((gsl_matrix const *)arg1,arg2,arg3,arg4,arg5,arg6,arg7);
5318 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5319 if (SWIG_IsTmpObj(res6)) {
5320 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((*arg6)); argvi++ ;
5321 } else {
5322 int new_flags = SWIG_IsNewObj(res6) ? (SWIG_POINTER_OWN | 0) : 0;
5323 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg6), SWIGTYPE_p_int, new_flags); argvi++ ;
5324 }
5325
5326
5327
5328
5329
5330
5331
5332 XSRETURN(argvi);
5333 fail:
5334
5335
5336
5337
5338
5339
5340
5341 SWIG_croak_null();
5342 }
5343 }
5344
5345
XS(_wrap_gsl_linalg_QRPT_solve)5346 XS(_wrap_gsl_linalg_QRPT_solve) {
5347 {
5348 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5349 gsl_vector *arg2 = (gsl_vector *) 0 ;
5350 gsl_permutation *arg3 = (gsl_permutation *) 0 ;
5351 gsl_vector *arg4 = (gsl_vector *) 0 ;
5352 gsl_vector *arg5 = (gsl_vector *) 0 ;
5353 void *argp1 = 0 ;
5354 int res1 = 0 ;
5355 void *argp2 = 0 ;
5356 int res2 = 0 ;
5357 void *argp3 = 0 ;
5358 int res3 = 0 ;
5359 void *argp4 = 0 ;
5360 int res4 = 0 ;
5361 void *argp5 = 0 ;
5362 int res5 = 0 ;
5363 int argvi = 0;
5364 int result;
5365 dXSARGS;
5366
5367 if ((items < 5) || (items > 5)) {
5368 SWIG_croak("Usage: gsl_linalg_QRPT_solve(QR,tau,p,b,x);");
5369 }
5370 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5371 if (!SWIG_IsOK(res1)) {
5372 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QRPT_solve" "', argument " "1"" of type '" "gsl_matrix const *""'");
5373 }
5374 arg1 = (gsl_matrix *)(argp1);
5375 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
5376 if (!SWIG_IsOK(res2)) {
5377 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QRPT_solve" "', argument " "2"" of type '" "gsl_vector const *""'");
5378 }
5379 arg2 = (gsl_vector *)(argp2);
5380 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
5381 if (!SWIG_IsOK(res3)) {
5382 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QRPT_solve" "', argument " "3"" of type '" "gsl_permutation const *""'");
5383 }
5384 arg3 = (gsl_permutation *)(argp3);
5385 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
5386 if (!SWIG_IsOK(res4)) {
5387 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_QRPT_solve" "', argument " "4"" of type '" "gsl_vector const *""'");
5388 }
5389 arg4 = (gsl_vector *)(argp4);
5390 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
5391 if (!SWIG_IsOK(res5)) {
5392 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_QRPT_solve" "', argument " "5"" of type '" "gsl_vector *""'");
5393 }
5394 arg5 = (gsl_vector *)(argp5);
5395 result = (int)gsl_linalg_QRPT_solve((gsl_matrix const *)arg1,(gsl_vector const *)arg2,(struct gsl_permutation_struct const *)arg3,(gsl_vector const *)arg4,arg5);
5396 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5397
5398
5399
5400
5401
5402 XSRETURN(argvi);
5403 fail:
5404
5405
5406
5407
5408
5409 SWIG_croak_null();
5410 }
5411 }
5412
5413
XS(_wrap_gsl_linalg_QRPT_lssolve)5414 XS(_wrap_gsl_linalg_QRPT_lssolve) {
5415 {
5416 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5417 gsl_vector *arg2 = (gsl_vector *) 0 ;
5418 gsl_permutation *arg3 = (gsl_permutation *) 0 ;
5419 gsl_vector *arg4 = (gsl_vector *) 0 ;
5420 gsl_vector *arg5 = (gsl_vector *) 0 ;
5421 gsl_vector *arg6 = (gsl_vector *) 0 ;
5422 void *argp1 = 0 ;
5423 int res1 = 0 ;
5424 void *argp2 = 0 ;
5425 int res2 = 0 ;
5426 void *argp3 = 0 ;
5427 int res3 = 0 ;
5428 void *argp4 = 0 ;
5429 int res4 = 0 ;
5430 void *argp5 = 0 ;
5431 int res5 = 0 ;
5432 void *argp6 = 0 ;
5433 int res6 = 0 ;
5434 int argvi = 0;
5435 int result;
5436 dXSARGS;
5437
5438 if ((items < 6) || (items > 6)) {
5439 SWIG_croak("Usage: gsl_linalg_QRPT_lssolve(QR,tau,p,b,x,residual);");
5440 }
5441 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5442 if (!SWIG_IsOK(res1)) {
5443 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QRPT_lssolve" "', argument " "1"" of type '" "gsl_matrix const *""'");
5444 }
5445 arg1 = (gsl_matrix *)(argp1);
5446 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
5447 if (!SWIG_IsOK(res2)) {
5448 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QRPT_lssolve" "', argument " "2"" of type '" "gsl_vector const *""'");
5449 }
5450 arg2 = (gsl_vector *)(argp2);
5451 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
5452 if (!SWIG_IsOK(res3)) {
5453 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QRPT_lssolve" "', argument " "3"" of type '" "gsl_permutation const *""'");
5454 }
5455 arg3 = (gsl_permutation *)(argp3);
5456 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
5457 if (!SWIG_IsOK(res4)) {
5458 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_QRPT_lssolve" "', argument " "4"" of type '" "gsl_vector const *""'");
5459 }
5460 arg4 = (gsl_vector *)(argp4);
5461 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
5462 if (!SWIG_IsOK(res5)) {
5463 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_QRPT_lssolve" "', argument " "5"" of type '" "gsl_vector *""'");
5464 }
5465 arg5 = (gsl_vector *)(argp5);
5466 res6 = SWIG_ConvertPtr(ST(5), &argp6,SWIGTYPE_p_gsl_vector, 0 | 0 );
5467 if (!SWIG_IsOK(res6)) {
5468 SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_linalg_QRPT_lssolve" "', argument " "6"" of type '" "gsl_vector *""'");
5469 }
5470 arg6 = (gsl_vector *)(argp6);
5471 result = (int)gsl_linalg_QRPT_lssolve((gsl_matrix const *)arg1,(gsl_vector const *)arg2,(struct gsl_permutation_struct const *)arg3,(gsl_vector const *)arg4,arg5,arg6);
5472 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5473
5474
5475
5476
5477
5478
5479 XSRETURN(argvi);
5480 fail:
5481
5482
5483
5484
5485
5486
5487 SWIG_croak_null();
5488 }
5489 }
5490
5491
XS(_wrap_gsl_linalg_QRPT_lssolve2)5492 XS(_wrap_gsl_linalg_QRPT_lssolve2) {
5493 {
5494 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5495 gsl_vector *arg2 = (gsl_vector *) 0 ;
5496 gsl_permutation *arg3 = (gsl_permutation *) 0 ;
5497 gsl_vector *arg4 = (gsl_vector *) 0 ;
5498 size_t arg5 ;
5499 gsl_vector *arg6 = (gsl_vector *) 0 ;
5500 gsl_vector *arg7 = (gsl_vector *) 0 ;
5501 void *argp1 = 0 ;
5502 int res1 = 0 ;
5503 void *argp2 = 0 ;
5504 int res2 = 0 ;
5505 void *argp3 = 0 ;
5506 int res3 = 0 ;
5507 void *argp4 = 0 ;
5508 int res4 = 0 ;
5509 size_t val5 ;
5510 int ecode5 = 0 ;
5511 void *argp6 = 0 ;
5512 int res6 = 0 ;
5513 void *argp7 = 0 ;
5514 int res7 = 0 ;
5515 int argvi = 0;
5516 int result;
5517 dXSARGS;
5518
5519 if ((items < 7) || (items > 7)) {
5520 SWIG_croak("Usage: gsl_linalg_QRPT_lssolve2(QR,tau,p,b,rank,x,residual);");
5521 }
5522 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5523 if (!SWIG_IsOK(res1)) {
5524 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QRPT_lssolve2" "', argument " "1"" of type '" "gsl_matrix const *""'");
5525 }
5526 arg1 = (gsl_matrix *)(argp1);
5527 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
5528 if (!SWIG_IsOK(res2)) {
5529 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QRPT_lssolve2" "', argument " "2"" of type '" "gsl_vector const *""'");
5530 }
5531 arg2 = (gsl_vector *)(argp2);
5532 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
5533 if (!SWIG_IsOK(res3)) {
5534 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QRPT_lssolve2" "', argument " "3"" of type '" "gsl_permutation const *""'");
5535 }
5536 arg3 = (gsl_permutation *)(argp3);
5537 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
5538 if (!SWIG_IsOK(res4)) {
5539 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_QRPT_lssolve2" "', argument " "4"" of type '" "gsl_vector const *""'");
5540 }
5541 arg4 = (gsl_vector *)(argp4);
5542 ecode5 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(4), &val5);
5543 if (!SWIG_IsOK(ecode5)) {
5544 SWIG_exception_fail(SWIG_ArgError(ecode5), "in method '" "gsl_linalg_QRPT_lssolve2" "', argument " "5"" of type '" "size_t""'");
5545 }
5546 arg5 = (size_t)(val5);
5547 res6 = SWIG_ConvertPtr(ST(5), &argp6,SWIGTYPE_p_gsl_vector, 0 | 0 );
5548 if (!SWIG_IsOK(res6)) {
5549 SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_linalg_QRPT_lssolve2" "', argument " "6"" of type '" "gsl_vector *""'");
5550 }
5551 arg6 = (gsl_vector *)(argp6);
5552 res7 = SWIG_ConvertPtr(ST(6), &argp7,SWIGTYPE_p_gsl_vector, 0 | 0 );
5553 if (!SWIG_IsOK(res7)) {
5554 SWIG_exception_fail(SWIG_ArgError(res7), "in method '" "gsl_linalg_QRPT_lssolve2" "', argument " "7"" of type '" "gsl_vector *""'");
5555 }
5556 arg7 = (gsl_vector *)(argp7);
5557 result = (int)gsl_linalg_QRPT_lssolve2((gsl_matrix const *)arg1,(gsl_vector const *)arg2,(struct gsl_permutation_struct const *)arg3,(gsl_vector const *)arg4,arg5,arg6,arg7);
5558 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5559
5560
5561
5562
5563
5564
5565
5566 XSRETURN(argvi);
5567 fail:
5568
5569
5570
5571
5572
5573
5574
5575 SWIG_croak_null();
5576 }
5577 }
5578
5579
XS(_wrap_gsl_linalg_QRPT_svx)5580 XS(_wrap_gsl_linalg_QRPT_svx) {
5581 {
5582 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5583 gsl_vector *arg2 = (gsl_vector *) 0 ;
5584 gsl_permutation *arg3 = (gsl_permutation *) 0 ;
5585 gsl_vector *arg4 = (gsl_vector *) 0 ;
5586 void *argp1 = 0 ;
5587 int res1 = 0 ;
5588 void *argp2 = 0 ;
5589 int res2 = 0 ;
5590 void *argp3 = 0 ;
5591 int res3 = 0 ;
5592 void *argp4 = 0 ;
5593 int res4 = 0 ;
5594 int argvi = 0;
5595 int result;
5596 dXSARGS;
5597
5598 if ((items < 4) || (items > 4)) {
5599 SWIG_croak("Usage: gsl_linalg_QRPT_svx(QR,tau,p,x);");
5600 }
5601 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5602 if (!SWIG_IsOK(res1)) {
5603 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QRPT_svx" "', argument " "1"" of type '" "gsl_matrix const *""'");
5604 }
5605 arg1 = (gsl_matrix *)(argp1);
5606 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
5607 if (!SWIG_IsOK(res2)) {
5608 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QRPT_svx" "', argument " "2"" of type '" "gsl_vector const *""'");
5609 }
5610 arg2 = (gsl_vector *)(argp2);
5611 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
5612 if (!SWIG_IsOK(res3)) {
5613 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QRPT_svx" "', argument " "3"" of type '" "gsl_permutation const *""'");
5614 }
5615 arg3 = (gsl_permutation *)(argp3);
5616 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
5617 if (!SWIG_IsOK(res4)) {
5618 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_QRPT_svx" "', argument " "4"" of type '" "gsl_vector *""'");
5619 }
5620 arg4 = (gsl_vector *)(argp4);
5621 result = (int)gsl_linalg_QRPT_svx((gsl_matrix const *)arg1,(gsl_vector const *)arg2,(struct gsl_permutation_struct const *)arg3,arg4);
5622 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5623
5624
5625
5626
5627 XSRETURN(argvi);
5628 fail:
5629
5630
5631
5632
5633 SWIG_croak_null();
5634 }
5635 }
5636
5637
XS(_wrap_gsl_linalg_QRPT_QRsolve)5638 XS(_wrap_gsl_linalg_QRPT_QRsolve) {
5639 {
5640 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5641 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
5642 gsl_permutation *arg3 = (gsl_permutation *) 0 ;
5643 gsl_vector *arg4 = (gsl_vector *) 0 ;
5644 gsl_vector *arg5 = (gsl_vector *) 0 ;
5645 void *argp1 = 0 ;
5646 int res1 = 0 ;
5647 void *argp2 = 0 ;
5648 int res2 = 0 ;
5649 void *argp3 = 0 ;
5650 int res3 = 0 ;
5651 void *argp4 = 0 ;
5652 int res4 = 0 ;
5653 void *argp5 = 0 ;
5654 int res5 = 0 ;
5655 int argvi = 0;
5656 int result;
5657 dXSARGS;
5658
5659 if ((items < 5) || (items > 5)) {
5660 SWIG_croak("Usage: gsl_linalg_QRPT_QRsolve(Q,R,p,b,x);");
5661 }
5662 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5663 if (!SWIG_IsOK(res1)) {
5664 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QRPT_QRsolve" "', argument " "1"" of type '" "gsl_matrix const *""'");
5665 }
5666 arg1 = (gsl_matrix *)(argp1);
5667 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5668 if (!SWIG_IsOK(res2)) {
5669 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QRPT_QRsolve" "', argument " "2"" of type '" "gsl_matrix const *""'");
5670 }
5671 arg2 = (gsl_matrix *)(argp2);
5672 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
5673 if (!SWIG_IsOK(res3)) {
5674 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QRPT_QRsolve" "', argument " "3"" of type '" "gsl_permutation const *""'");
5675 }
5676 arg3 = (gsl_permutation *)(argp3);
5677 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
5678 if (!SWIG_IsOK(res4)) {
5679 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_QRPT_QRsolve" "', argument " "4"" of type '" "gsl_vector const *""'");
5680 }
5681 arg4 = (gsl_vector *)(argp4);
5682 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
5683 if (!SWIG_IsOK(res5)) {
5684 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_QRPT_QRsolve" "', argument " "5"" of type '" "gsl_vector *""'");
5685 }
5686 arg5 = (gsl_vector *)(argp5);
5687 result = (int)gsl_linalg_QRPT_QRsolve((gsl_matrix const *)arg1,(gsl_matrix const *)arg2,(struct gsl_permutation_struct const *)arg3,(gsl_vector const *)arg4,arg5);
5688 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5689
5690
5691
5692
5693
5694 XSRETURN(argvi);
5695 fail:
5696
5697
5698
5699
5700
5701 SWIG_croak_null();
5702 }
5703 }
5704
5705
XS(_wrap_gsl_linalg_QRPT_Rsolve)5706 XS(_wrap_gsl_linalg_QRPT_Rsolve) {
5707 {
5708 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5709 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
5710 gsl_vector *arg3 = (gsl_vector *) 0 ;
5711 gsl_vector *arg4 = (gsl_vector *) 0 ;
5712 void *argp1 = 0 ;
5713 int res1 = 0 ;
5714 void *argp2 = 0 ;
5715 int res2 = 0 ;
5716 void *argp3 = 0 ;
5717 int res3 = 0 ;
5718 void *argp4 = 0 ;
5719 int res4 = 0 ;
5720 int argvi = 0;
5721 int result;
5722 dXSARGS;
5723
5724 if ((items < 4) || (items > 4)) {
5725 SWIG_croak("Usage: gsl_linalg_QRPT_Rsolve(QR,p,b,x);");
5726 }
5727 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5728 if (!SWIG_IsOK(res1)) {
5729 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QRPT_Rsolve" "', argument " "1"" of type '" "gsl_matrix const *""'");
5730 }
5731 arg1 = (gsl_matrix *)(argp1);
5732 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
5733 if (!SWIG_IsOK(res2)) {
5734 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QRPT_Rsolve" "', argument " "2"" of type '" "gsl_permutation const *""'");
5735 }
5736 arg2 = (gsl_permutation *)(argp2);
5737 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
5738 if (!SWIG_IsOK(res3)) {
5739 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QRPT_Rsolve" "', argument " "3"" of type '" "gsl_vector const *""'");
5740 }
5741 arg3 = (gsl_vector *)(argp3);
5742 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
5743 if (!SWIG_IsOK(res4)) {
5744 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_QRPT_Rsolve" "', argument " "4"" of type '" "gsl_vector *""'");
5745 }
5746 arg4 = (gsl_vector *)(argp4);
5747 result = (int)gsl_linalg_QRPT_Rsolve((gsl_matrix const *)arg1,(struct gsl_permutation_struct const *)arg2,(gsl_vector const *)arg3,arg4);
5748 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5749
5750
5751
5752
5753 XSRETURN(argvi);
5754 fail:
5755
5756
5757
5758
5759 SWIG_croak_null();
5760 }
5761 }
5762
5763
XS(_wrap_gsl_linalg_QRPT_Rsvx)5764 XS(_wrap_gsl_linalg_QRPT_Rsvx) {
5765 {
5766 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5767 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
5768 gsl_vector *arg3 = (gsl_vector *) 0 ;
5769 void *argp1 = 0 ;
5770 int res1 = 0 ;
5771 void *argp2 = 0 ;
5772 int res2 = 0 ;
5773 void *argp3 = 0 ;
5774 int res3 = 0 ;
5775 int argvi = 0;
5776 int result;
5777 dXSARGS;
5778
5779 if ((items < 3) || (items > 3)) {
5780 SWIG_croak("Usage: gsl_linalg_QRPT_Rsvx(QR,p,x);");
5781 }
5782 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5783 if (!SWIG_IsOK(res1)) {
5784 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QRPT_Rsvx" "', argument " "1"" of type '" "gsl_matrix const *""'");
5785 }
5786 arg1 = (gsl_matrix *)(argp1);
5787 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
5788 if (!SWIG_IsOK(res2)) {
5789 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QRPT_Rsvx" "', argument " "2"" of type '" "gsl_permutation const *""'");
5790 }
5791 arg2 = (gsl_permutation *)(argp2);
5792 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
5793 if (!SWIG_IsOK(res3)) {
5794 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QRPT_Rsvx" "', argument " "3"" of type '" "gsl_vector *""'");
5795 }
5796 arg3 = (gsl_vector *)(argp3);
5797 result = (int)gsl_linalg_QRPT_Rsvx((gsl_matrix const *)arg1,(struct gsl_permutation_struct const *)arg2,arg3);
5798 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5799
5800
5801
5802 XSRETURN(argvi);
5803 fail:
5804
5805
5806
5807 SWIG_croak_null();
5808 }
5809 }
5810
5811
XS(_wrap_gsl_linalg_QRPT_update)5812 XS(_wrap_gsl_linalg_QRPT_update) {
5813 {
5814 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5815 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
5816 gsl_permutation *arg3 = (gsl_permutation *) 0 ;
5817 gsl_vector *arg4 = (gsl_vector *) 0 ;
5818 gsl_vector *arg5 = (gsl_vector *) 0 ;
5819 void *argp1 = 0 ;
5820 int res1 = 0 ;
5821 void *argp2 = 0 ;
5822 int res2 = 0 ;
5823 void *argp3 = 0 ;
5824 int res3 = 0 ;
5825 void *argp4 = 0 ;
5826 int res4 = 0 ;
5827 void *argp5 = 0 ;
5828 int res5 = 0 ;
5829 int argvi = 0;
5830 int result;
5831 dXSARGS;
5832
5833 if ((items < 5) || (items > 5)) {
5834 SWIG_croak("Usage: gsl_linalg_QRPT_update(Q,R,p,u,v);");
5835 }
5836 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5837 if (!SWIG_IsOK(res1)) {
5838 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QRPT_update" "', argument " "1"" of type '" "gsl_matrix *""'");
5839 }
5840 arg1 = (gsl_matrix *)(argp1);
5841 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5842 if (!SWIG_IsOK(res2)) {
5843 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QRPT_update" "', argument " "2"" of type '" "gsl_matrix *""'");
5844 }
5845 arg2 = (gsl_matrix *)(argp2);
5846 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
5847 if (!SWIG_IsOK(res3)) {
5848 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QRPT_update" "', argument " "3"" of type '" "gsl_permutation const *""'");
5849 }
5850 arg3 = (gsl_permutation *)(argp3);
5851 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
5852 if (!SWIG_IsOK(res4)) {
5853 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_QRPT_update" "', argument " "4"" of type '" "gsl_vector *""'");
5854 }
5855 arg4 = (gsl_vector *)(argp4);
5856 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
5857 if (!SWIG_IsOK(res5)) {
5858 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_QRPT_update" "', argument " "5"" of type '" "gsl_vector const *""'");
5859 }
5860 arg5 = (gsl_vector *)(argp5);
5861 result = (int)gsl_linalg_QRPT_update(arg1,arg2,(struct gsl_permutation_struct const *)arg3,arg4,(gsl_vector const *)arg5);
5862 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5863
5864
5865
5866
5867
5868 XSRETURN(argvi);
5869 fail:
5870
5871
5872
5873
5874
5875 SWIG_croak_null();
5876 }
5877 }
5878
5879
XS(_wrap_gsl_linalg_QRPT_rank)5880 XS(_wrap_gsl_linalg_QRPT_rank) {
5881 {
5882 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5883 double arg2 ;
5884 void *argp1 = 0 ;
5885 int res1 = 0 ;
5886 double val2 ;
5887 int ecode2 = 0 ;
5888 int argvi = 0;
5889 size_t result;
5890 dXSARGS;
5891
5892 if ((items < 2) || (items > 2)) {
5893 SWIG_croak("Usage: gsl_linalg_QRPT_rank(QR,tol);");
5894 }
5895 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5896 if (!SWIG_IsOK(res1)) {
5897 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QRPT_rank" "', argument " "1"" of type '" "gsl_matrix const *""'");
5898 }
5899 arg1 = (gsl_matrix *)(argp1);
5900 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
5901 if (!SWIG_IsOK(ecode2)) {
5902 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_linalg_QRPT_rank" "', argument " "2"" of type '" "double""'");
5903 }
5904 arg2 = (double)(val2);
5905 result = gsl_linalg_QRPT_rank((gsl_matrix const *)arg1,arg2);
5906 ST(argvi) = SWIG_From_size_t SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
5907
5908
5909 XSRETURN(argvi);
5910 fail:
5911
5912
5913 SWIG_croak_null();
5914 }
5915 }
5916
5917
XS(_wrap_gsl_linalg_QRPT_rcond)5918 XS(_wrap_gsl_linalg_QRPT_rcond) {
5919 {
5920 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5921 double *arg2 = (double *) 0 ;
5922 gsl_vector *arg3 = (gsl_vector *) 0 ;
5923 void *argp1 = 0 ;
5924 int res1 = 0 ;
5925 void *argp2 = 0 ;
5926 int res2 = 0 ;
5927 void *argp3 = 0 ;
5928 int res3 = 0 ;
5929 int argvi = 0;
5930 int result;
5931 dXSARGS;
5932
5933 if ((items < 3) || (items > 3)) {
5934 SWIG_croak("Usage: gsl_linalg_QRPT_rcond(QR,rcond,work);");
5935 }
5936 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5937 if (!SWIG_IsOK(res1)) {
5938 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QRPT_rcond" "', argument " "1"" of type '" "gsl_matrix const *""'");
5939 }
5940 arg1 = (gsl_matrix *)(argp1);
5941 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_double, 0 | 0 );
5942 if (!SWIG_IsOK(res2)) {
5943 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QRPT_rcond" "', argument " "2"" of type '" "double *""'");
5944 }
5945 arg2 = (double *)(argp2);
5946 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
5947 if (!SWIG_IsOK(res3)) {
5948 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QRPT_rcond" "', argument " "3"" of type '" "gsl_vector *""'");
5949 }
5950 arg3 = (gsl_vector *)(argp3);
5951 result = (int)gsl_linalg_QRPT_rcond((gsl_matrix const *)arg1,arg2,arg3);
5952 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5953
5954
5955
5956 XSRETURN(argvi);
5957 fail:
5958
5959
5960
5961 SWIG_croak_null();
5962 }
5963 }
5964
5965
XS(_wrap_gsl_linalg_COD_decomp)5966 XS(_wrap_gsl_linalg_COD_decomp) {
5967 {
5968 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5969 gsl_vector *arg2 = (gsl_vector *) 0 ;
5970 gsl_vector *arg3 = (gsl_vector *) 0 ;
5971 gsl_permutation *arg4 = (gsl_permutation *) 0 ;
5972 size_t *arg5 = (size_t *) 0 ;
5973 gsl_vector *arg6 = (gsl_vector *) 0 ;
5974 void *argp1 = 0 ;
5975 int res1 = 0 ;
5976 void *argp2 = 0 ;
5977 int res2 = 0 ;
5978 void *argp3 = 0 ;
5979 int res3 = 0 ;
5980 void *argp4 = 0 ;
5981 int res4 = 0 ;
5982 void *argp5 = 0 ;
5983 int res5 = 0 ;
5984 void *argp6 = 0 ;
5985 int res6 = 0 ;
5986 int argvi = 0;
5987 int result;
5988 dXSARGS;
5989
5990 if ((items < 6) || (items > 6)) {
5991 SWIG_croak("Usage: gsl_linalg_COD_decomp(A,tau_Q,tau_Z,p,rank,work);");
5992 }
5993 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5994 if (!SWIG_IsOK(res1)) {
5995 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_COD_decomp" "', argument " "1"" of type '" "gsl_matrix *""'");
5996 }
5997 arg1 = (gsl_matrix *)(argp1);
5998 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
5999 if (!SWIG_IsOK(res2)) {
6000 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_COD_decomp" "', argument " "2"" of type '" "gsl_vector *""'");
6001 }
6002 arg2 = (gsl_vector *)(argp2);
6003 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
6004 if (!SWIG_IsOK(res3)) {
6005 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_COD_decomp" "', argument " "3"" of type '" "gsl_vector *""'");
6006 }
6007 arg3 = (gsl_vector *)(argp3);
6008 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
6009 if (!SWIG_IsOK(res4)) {
6010 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_COD_decomp" "', argument " "4"" of type '" "gsl_permutation *""'");
6011 }
6012 arg4 = (gsl_permutation *)(argp4);
6013 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_size_t, 0 | 0 );
6014 if (!SWIG_IsOK(res5)) {
6015 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_COD_decomp" "', argument " "5"" of type '" "size_t *""'");
6016 }
6017 arg5 = (size_t *)(argp5);
6018 res6 = SWIG_ConvertPtr(ST(5), &argp6,SWIGTYPE_p_gsl_vector, 0 | 0 );
6019 if (!SWIG_IsOK(res6)) {
6020 SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_linalg_COD_decomp" "', argument " "6"" of type '" "gsl_vector *""'");
6021 }
6022 arg6 = (gsl_vector *)(argp6);
6023 result = (int)gsl_linalg_COD_decomp(arg1,arg2,arg3,arg4,arg5,arg6);
6024 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6025
6026
6027
6028
6029
6030
6031 XSRETURN(argvi);
6032 fail:
6033
6034
6035
6036
6037
6038
6039 SWIG_croak_null();
6040 }
6041 }
6042
6043
XS(_wrap_gsl_linalg_COD_decomp_e)6044 XS(_wrap_gsl_linalg_COD_decomp_e) {
6045 {
6046 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
6047 gsl_vector *arg2 = (gsl_vector *) 0 ;
6048 gsl_vector *arg3 = (gsl_vector *) 0 ;
6049 gsl_permutation *arg4 = (gsl_permutation *) 0 ;
6050 double arg5 ;
6051 size_t *arg6 = (size_t *) 0 ;
6052 gsl_vector *arg7 = (gsl_vector *) 0 ;
6053 void *argp1 = 0 ;
6054 int res1 = 0 ;
6055 void *argp2 = 0 ;
6056 int res2 = 0 ;
6057 void *argp3 = 0 ;
6058 int res3 = 0 ;
6059 void *argp4 = 0 ;
6060 int res4 = 0 ;
6061 double val5 ;
6062 int ecode5 = 0 ;
6063 void *argp6 = 0 ;
6064 int res6 = 0 ;
6065 void *argp7 = 0 ;
6066 int res7 = 0 ;
6067 int argvi = 0;
6068 int result;
6069 dXSARGS;
6070
6071 if ((items < 7) || (items > 7)) {
6072 SWIG_croak("Usage: gsl_linalg_COD_decomp_e(A,tau_Q,tau_Z,p,tol,rank,work);");
6073 }
6074 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6075 if (!SWIG_IsOK(res1)) {
6076 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_COD_decomp_e" "', argument " "1"" of type '" "gsl_matrix *""'");
6077 }
6078 arg1 = (gsl_matrix *)(argp1);
6079 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
6080 if (!SWIG_IsOK(res2)) {
6081 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_COD_decomp_e" "', argument " "2"" of type '" "gsl_vector *""'");
6082 }
6083 arg2 = (gsl_vector *)(argp2);
6084 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
6085 if (!SWIG_IsOK(res3)) {
6086 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_COD_decomp_e" "', argument " "3"" of type '" "gsl_vector *""'");
6087 }
6088 arg3 = (gsl_vector *)(argp3);
6089 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
6090 if (!SWIG_IsOK(res4)) {
6091 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_COD_decomp_e" "', argument " "4"" of type '" "gsl_permutation *""'");
6092 }
6093 arg4 = (gsl_permutation *)(argp4);
6094 ecode5 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(4), &val5);
6095 if (!SWIG_IsOK(ecode5)) {
6096 SWIG_exception_fail(SWIG_ArgError(ecode5), "in method '" "gsl_linalg_COD_decomp_e" "', argument " "5"" of type '" "double""'");
6097 }
6098 arg5 = (double)(val5);
6099 res6 = SWIG_ConvertPtr(ST(5), &argp6,SWIGTYPE_p_size_t, 0 | 0 );
6100 if (!SWIG_IsOK(res6)) {
6101 SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_linalg_COD_decomp_e" "', argument " "6"" of type '" "size_t *""'");
6102 }
6103 arg6 = (size_t *)(argp6);
6104 res7 = SWIG_ConvertPtr(ST(6), &argp7,SWIGTYPE_p_gsl_vector, 0 | 0 );
6105 if (!SWIG_IsOK(res7)) {
6106 SWIG_exception_fail(SWIG_ArgError(res7), "in method '" "gsl_linalg_COD_decomp_e" "', argument " "7"" of type '" "gsl_vector *""'");
6107 }
6108 arg7 = (gsl_vector *)(argp7);
6109 result = (int)gsl_linalg_COD_decomp_e(arg1,arg2,arg3,arg4,arg5,arg6,arg7);
6110 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6111
6112
6113
6114
6115
6116
6117
6118 XSRETURN(argvi);
6119 fail:
6120
6121
6122
6123
6124
6125
6126
6127 SWIG_croak_null();
6128 }
6129 }
6130
6131
XS(_wrap_gsl_linalg_COD_lssolve)6132 XS(_wrap_gsl_linalg_COD_lssolve) {
6133 {
6134 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
6135 gsl_vector *arg2 = (gsl_vector *) 0 ;
6136 gsl_vector *arg3 = (gsl_vector *) 0 ;
6137 gsl_permutation *arg4 = (gsl_permutation *) 0 ;
6138 size_t arg5 ;
6139 gsl_vector *arg6 = (gsl_vector *) 0 ;
6140 gsl_vector *arg7 = (gsl_vector *) 0 ;
6141 gsl_vector *arg8 = (gsl_vector *) 0 ;
6142 void *argp1 = 0 ;
6143 int res1 = 0 ;
6144 void *argp2 = 0 ;
6145 int res2 = 0 ;
6146 void *argp3 = 0 ;
6147 int res3 = 0 ;
6148 void *argp4 = 0 ;
6149 int res4 = 0 ;
6150 size_t val5 ;
6151 int ecode5 = 0 ;
6152 void *argp6 = 0 ;
6153 int res6 = 0 ;
6154 void *argp7 = 0 ;
6155 int res7 = 0 ;
6156 void *argp8 = 0 ;
6157 int res8 = 0 ;
6158 int argvi = 0;
6159 int result;
6160 dXSARGS;
6161
6162 if ((items < 8) || (items > 8)) {
6163 SWIG_croak("Usage: gsl_linalg_COD_lssolve(QRZT,tau_Q,tau_Z,perm,rank,b,x,residual);");
6164 }
6165 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6166 if (!SWIG_IsOK(res1)) {
6167 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_COD_lssolve" "', argument " "1"" of type '" "gsl_matrix const *""'");
6168 }
6169 arg1 = (gsl_matrix *)(argp1);
6170 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
6171 if (!SWIG_IsOK(res2)) {
6172 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_COD_lssolve" "', argument " "2"" of type '" "gsl_vector const *""'");
6173 }
6174 arg2 = (gsl_vector *)(argp2);
6175 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
6176 if (!SWIG_IsOK(res3)) {
6177 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_COD_lssolve" "', argument " "3"" of type '" "gsl_vector const *""'");
6178 }
6179 arg3 = (gsl_vector *)(argp3);
6180 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
6181 if (!SWIG_IsOK(res4)) {
6182 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_COD_lssolve" "', argument " "4"" of type '" "gsl_permutation const *""'");
6183 }
6184 arg4 = (gsl_permutation *)(argp4);
6185 ecode5 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(4), &val5);
6186 if (!SWIG_IsOK(ecode5)) {
6187 SWIG_exception_fail(SWIG_ArgError(ecode5), "in method '" "gsl_linalg_COD_lssolve" "', argument " "5"" of type '" "size_t""'");
6188 }
6189 arg5 = (size_t)(val5);
6190 res6 = SWIG_ConvertPtr(ST(5), &argp6,SWIGTYPE_p_gsl_vector, 0 | 0 );
6191 if (!SWIG_IsOK(res6)) {
6192 SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_linalg_COD_lssolve" "', argument " "6"" of type '" "gsl_vector const *""'");
6193 }
6194 arg6 = (gsl_vector *)(argp6);
6195 res7 = SWIG_ConvertPtr(ST(6), &argp7,SWIGTYPE_p_gsl_vector, 0 | 0 );
6196 if (!SWIG_IsOK(res7)) {
6197 SWIG_exception_fail(SWIG_ArgError(res7), "in method '" "gsl_linalg_COD_lssolve" "', argument " "7"" of type '" "gsl_vector *""'");
6198 }
6199 arg7 = (gsl_vector *)(argp7);
6200 res8 = SWIG_ConvertPtr(ST(7), &argp8,SWIGTYPE_p_gsl_vector, 0 | 0 );
6201 if (!SWIG_IsOK(res8)) {
6202 SWIG_exception_fail(SWIG_ArgError(res8), "in method '" "gsl_linalg_COD_lssolve" "', argument " "8"" of type '" "gsl_vector *""'");
6203 }
6204 arg8 = (gsl_vector *)(argp8);
6205 result = (int)gsl_linalg_COD_lssolve((gsl_matrix const *)arg1,(gsl_vector const *)arg2,(gsl_vector const *)arg3,(struct gsl_permutation_struct const *)arg4,arg5,(gsl_vector const *)arg6,arg7,arg8);
6206 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6207
6208
6209
6210
6211
6212
6213
6214
6215 XSRETURN(argvi);
6216 fail:
6217
6218
6219
6220
6221
6222
6223
6224
6225 SWIG_croak_null();
6226 }
6227 }
6228
6229
XS(_wrap_gsl_linalg_COD_unpack)6230 XS(_wrap_gsl_linalg_COD_unpack) {
6231 {
6232 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
6233 gsl_vector *arg2 = (gsl_vector *) 0 ;
6234 gsl_vector *arg3 = (gsl_vector *) 0 ;
6235 size_t arg4 ;
6236 gsl_matrix *arg5 = (gsl_matrix *) 0 ;
6237 gsl_matrix *arg6 = (gsl_matrix *) 0 ;
6238 gsl_matrix *arg7 = (gsl_matrix *) 0 ;
6239 void *argp1 = 0 ;
6240 int res1 = 0 ;
6241 void *argp2 = 0 ;
6242 int res2 = 0 ;
6243 void *argp3 = 0 ;
6244 int res3 = 0 ;
6245 size_t val4 ;
6246 int ecode4 = 0 ;
6247 void *argp5 = 0 ;
6248 int res5 = 0 ;
6249 void *argp6 = 0 ;
6250 int res6 = 0 ;
6251 void *argp7 = 0 ;
6252 int res7 = 0 ;
6253 int argvi = 0;
6254 int result;
6255 dXSARGS;
6256
6257 if ((items < 7) || (items > 7)) {
6258 SWIG_croak("Usage: gsl_linalg_COD_unpack(QRZT,tau_Q,tau_Z,rank,Q,R,Z);");
6259 }
6260 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6261 if (!SWIG_IsOK(res1)) {
6262 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_COD_unpack" "', argument " "1"" of type '" "gsl_matrix const *""'");
6263 }
6264 arg1 = (gsl_matrix *)(argp1);
6265 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
6266 if (!SWIG_IsOK(res2)) {
6267 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_COD_unpack" "', argument " "2"" of type '" "gsl_vector const *""'");
6268 }
6269 arg2 = (gsl_vector *)(argp2);
6270 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
6271 if (!SWIG_IsOK(res3)) {
6272 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_COD_unpack" "', argument " "3"" of type '" "gsl_vector const *""'");
6273 }
6274 arg3 = (gsl_vector *)(argp3);
6275 ecode4 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(3), &val4);
6276 if (!SWIG_IsOK(ecode4)) {
6277 SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "gsl_linalg_COD_unpack" "', argument " "4"" of type '" "size_t""'");
6278 }
6279 arg4 = (size_t)(val4);
6280 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6281 if (!SWIG_IsOK(res5)) {
6282 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_COD_unpack" "', argument " "5"" of type '" "gsl_matrix *""'");
6283 }
6284 arg5 = (gsl_matrix *)(argp5);
6285 res6 = SWIG_ConvertPtr(ST(5), &argp6,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6286 if (!SWIG_IsOK(res6)) {
6287 SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_linalg_COD_unpack" "', argument " "6"" of type '" "gsl_matrix *""'");
6288 }
6289 arg6 = (gsl_matrix *)(argp6);
6290 res7 = SWIG_ConvertPtr(ST(6), &argp7,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6291 if (!SWIG_IsOK(res7)) {
6292 SWIG_exception_fail(SWIG_ArgError(res7), "in method '" "gsl_linalg_COD_unpack" "', argument " "7"" of type '" "gsl_matrix *""'");
6293 }
6294 arg7 = (gsl_matrix *)(argp7);
6295 result = (int)gsl_linalg_COD_unpack((gsl_matrix const *)arg1,(gsl_vector const *)arg2,(gsl_vector const *)arg3,arg4,arg5,arg6,arg7);
6296 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6297
6298
6299
6300
6301
6302
6303
6304 XSRETURN(argvi);
6305 fail:
6306
6307
6308
6309
6310
6311
6312
6313 SWIG_croak_null();
6314 }
6315 }
6316
6317
XS(_wrap_gsl_linalg_COD_matZ)6318 XS(_wrap_gsl_linalg_COD_matZ) {
6319 {
6320 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
6321 gsl_vector *arg2 = (gsl_vector *) 0 ;
6322 size_t arg3 ;
6323 gsl_matrix *arg4 = (gsl_matrix *) 0 ;
6324 gsl_vector *arg5 = (gsl_vector *) 0 ;
6325 void *argp1 = 0 ;
6326 int res1 = 0 ;
6327 void *argp2 = 0 ;
6328 int res2 = 0 ;
6329 size_t val3 ;
6330 int ecode3 = 0 ;
6331 void *argp4 = 0 ;
6332 int res4 = 0 ;
6333 void *argp5 = 0 ;
6334 int res5 = 0 ;
6335 int argvi = 0;
6336 int result;
6337 dXSARGS;
6338
6339 if ((items < 5) || (items > 5)) {
6340 SWIG_croak("Usage: gsl_linalg_COD_matZ(QRZT,tau_Z,rank,A,work);");
6341 }
6342 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6343 if (!SWIG_IsOK(res1)) {
6344 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_COD_matZ" "', argument " "1"" of type '" "gsl_matrix const *""'");
6345 }
6346 arg1 = (gsl_matrix *)(argp1);
6347 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
6348 if (!SWIG_IsOK(res2)) {
6349 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_COD_matZ" "', argument " "2"" of type '" "gsl_vector const *""'");
6350 }
6351 arg2 = (gsl_vector *)(argp2);
6352 ecode3 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
6353 if (!SWIG_IsOK(ecode3)) {
6354 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_linalg_COD_matZ" "', argument " "3"" of type '" "size_t""'");
6355 }
6356 arg3 = (size_t)(val3);
6357 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6358 if (!SWIG_IsOK(res4)) {
6359 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_COD_matZ" "', argument " "4"" of type '" "gsl_matrix *""'");
6360 }
6361 arg4 = (gsl_matrix *)(argp4);
6362 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
6363 if (!SWIG_IsOK(res5)) {
6364 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_COD_matZ" "', argument " "5"" of type '" "gsl_vector *""'");
6365 }
6366 arg5 = (gsl_vector *)(argp5);
6367 result = (int)gsl_linalg_COD_matZ((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3,arg4,arg5);
6368 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6369
6370
6371
6372
6373
6374 XSRETURN(argvi);
6375 fail:
6376
6377
6378
6379
6380
6381 SWIG_croak_null();
6382 }
6383 }
6384
6385
XS(_wrap_gsl_linalg_LQ_decomp)6386 XS(_wrap_gsl_linalg_LQ_decomp) {
6387 {
6388 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
6389 gsl_vector *arg2 = (gsl_vector *) 0 ;
6390 void *argp1 = 0 ;
6391 int res1 = 0 ;
6392 void *argp2 = 0 ;
6393 int res2 = 0 ;
6394 int argvi = 0;
6395 int result;
6396 dXSARGS;
6397
6398 if ((items < 2) || (items > 2)) {
6399 SWIG_croak("Usage: gsl_linalg_LQ_decomp(A,tau);");
6400 }
6401 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6402 if (!SWIG_IsOK(res1)) {
6403 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LQ_decomp" "', argument " "1"" of type '" "gsl_matrix *""'");
6404 }
6405 arg1 = (gsl_matrix *)(argp1);
6406 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
6407 if (!SWIG_IsOK(res2)) {
6408 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_LQ_decomp" "', argument " "2"" of type '" "gsl_vector *""'");
6409 }
6410 arg2 = (gsl_vector *)(argp2);
6411 result = (int)gsl_linalg_LQ_decomp(arg1,arg2);
6412 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6413
6414
6415 XSRETURN(argvi);
6416 fail:
6417
6418
6419 SWIG_croak_null();
6420 }
6421 }
6422
6423
XS(_wrap_gsl_linalg_LQ_solve_T)6424 XS(_wrap_gsl_linalg_LQ_solve_T) {
6425 {
6426 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
6427 gsl_vector *arg2 = (gsl_vector *) 0 ;
6428 gsl_vector *arg3 = (gsl_vector *) 0 ;
6429 gsl_vector *arg4 = (gsl_vector *) 0 ;
6430 void *argp1 = 0 ;
6431 int res1 = 0 ;
6432 void *argp2 = 0 ;
6433 int res2 = 0 ;
6434 void *argp3 = 0 ;
6435 int res3 = 0 ;
6436 void *argp4 = 0 ;
6437 int res4 = 0 ;
6438 int argvi = 0;
6439 int result;
6440 dXSARGS;
6441
6442 if ((items < 4) || (items > 4)) {
6443 SWIG_croak("Usage: gsl_linalg_LQ_solve_T(LQ,tau,b,x);");
6444 }
6445 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6446 if (!SWIG_IsOK(res1)) {
6447 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LQ_solve_T" "', argument " "1"" of type '" "gsl_matrix const *""'");
6448 }
6449 arg1 = (gsl_matrix *)(argp1);
6450 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
6451 if (!SWIG_IsOK(res2)) {
6452 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_LQ_solve_T" "', argument " "2"" of type '" "gsl_vector const *""'");
6453 }
6454 arg2 = (gsl_vector *)(argp2);
6455 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
6456 if (!SWIG_IsOK(res3)) {
6457 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_LQ_solve_T" "', argument " "3"" of type '" "gsl_vector const *""'");
6458 }
6459 arg3 = (gsl_vector *)(argp3);
6460 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
6461 if (!SWIG_IsOK(res4)) {
6462 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_LQ_solve_T" "', argument " "4"" of type '" "gsl_vector *""'");
6463 }
6464 arg4 = (gsl_vector *)(argp4);
6465 result = (int)gsl_linalg_LQ_solve_T((gsl_matrix const *)arg1,(gsl_vector const *)arg2,(gsl_vector const *)arg3,arg4);
6466 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6467
6468
6469
6470
6471 XSRETURN(argvi);
6472 fail:
6473
6474
6475
6476
6477 SWIG_croak_null();
6478 }
6479 }
6480
6481
XS(_wrap_gsl_linalg_LQ_svx_T)6482 XS(_wrap_gsl_linalg_LQ_svx_T) {
6483 {
6484 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
6485 gsl_vector *arg2 = (gsl_vector *) 0 ;
6486 gsl_vector *arg3 = (gsl_vector *) 0 ;
6487 void *argp1 = 0 ;
6488 int res1 = 0 ;
6489 void *argp2 = 0 ;
6490 int res2 = 0 ;
6491 void *argp3 = 0 ;
6492 int res3 = 0 ;
6493 int argvi = 0;
6494 int result;
6495 dXSARGS;
6496
6497 if ((items < 3) || (items > 3)) {
6498 SWIG_croak("Usage: gsl_linalg_LQ_svx_T(LQ,tau,x);");
6499 }
6500 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6501 if (!SWIG_IsOK(res1)) {
6502 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LQ_svx_T" "', argument " "1"" of type '" "gsl_matrix const *""'");
6503 }
6504 arg1 = (gsl_matrix *)(argp1);
6505 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
6506 if (!SWIG_IsOK(res2)) {
6507 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_LQ_svx_T" "', argument " "2"" of type '" "gsl_vector const *""'");
6508 }
6509 arg2 = (gsl_vector *)(argp2);
6510 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
6511 if (!SWIG_IsOK(res3)) {
6512 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_LQ_svx_T" "', argument " "3"" of type '" "gsl_vector *""'");
6513 }
6514 arg3 = (gsl_vector *)(argp3);
6515 result = (int)gsl_linalg_LQ_svx_T((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3);
6516 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6517
6518
6519
6520 XSRETURN(argvi);
6521 fail:
6522
6523
6524
6525 SWIG_croak_null();
6526 }
6527 }
6528
6529
XS(_wrap_gsl_linalg_LQ_lssolve_T)6530 XS(_wrap_gsl_linalg_LQ_lssolve_T) {
6531 {
6532 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
6533 gsl_vector *arg2 = (gsl_vector *) 0 ;
6534 gsl_vector *arg3 = (gsl_vector *) 0 ;
6535 gsl_vector *arg4 = (gsl_vector *) 0 ;
6536 gsl_vector *arg5 = (gsl_vector *) 0 ;
6537 void *argp1 = 0 ;
6538 int res1 = 0 ;
6539 void *argp2 = 0 ;
6540 int res2 = 0 ;
6541 void *argp3 = 0 ;
6542 int res3 = 0 ;
6543 void *argp4 = 0 ;
6544 int res4 = 0 ;
6545 void *argp5 = 0 ;
6546 int res5 = 0 ;
6547 int argvi = 0;
6548 int result;
6549 dXSARGS;
6550
6551 if ((items < 5) || (items > 5)) {
6552 SWIG_croak("Usage: gsl_linalg_LQ_lssolve_T(LQ,tau,b,x,residual);");
6553 }
6554 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6555 if (!SWIG_IsOK(res1)) {
6556 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LQ_lssolve_T" "', argument " "1"" of type '" "gsl_matrix const *""'");
6557 }
6558 arg1 = (gsl_matrix *)(argp1);
6559 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
6560 if (!SWIG_IsOK(res2)) {
6561 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_LQ_lssolve_T" "', argument " "2"" of type '" "gsl_vector const *""'");
6562 }
6563 arg2 = (gsl_vector *)(argp2);
6564 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
6565 if (!SWIG_IsOK(res3)) {
6566 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_LQ_lssolve_T" "', argument " "3"" of type '" "gsl_vector const *""'");
6567 }
6568 arg3 = (gsl_vector *)(argp3);
6569 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
6570 if (!SWIG_IsOK(res4)) {
6571 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_LQ_lssolve_T" "', argument " "4"" of type '" "gsl_vector *""'");
6572 }
6573 arg4 = (gsl_vector *)(argp4);
6574 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
6575 if (!SWIG_IsOK(res5)) {
6576 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_LQ_lssolve_T" "', argument " "5"" of type '" "gsl_vector *""'");
6577 }
6578 arg5 = (gsl_vector *)(argp5);
6579 result = (int)gsl_linalg_LQ_lssolve_T((gsl_matrix const *)arg1,(gsl_vector const *)arg2,(gsl_vector const *)arg3,arg4,arg5);
6580 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6581
6582
6583
6584
6585
6586 XSRETURN(argvi);
6587 fail:
6588
6589
6590
6591
6592
6593 SWIG_croak_null();
6594 }
6595 }
6596
6597
XS(_wrap_gsl_linalg_LQ_Lsolve_T)6598 XS(_wrap_gsl_linalg_LQ_Lsolve_T) {
6599 {
6600 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
6601 gsl_vector *arg2 = (gsl_vector *) 0 ;
6602 gsl_vector *arg3 = (gsl_vector *) 0 ;
6603 void *argp1 = 0 ;
6604 int res1 = 0 ;
6605 void *argp2 = 0 ;
6606 int res2 = 0 ;
6607 void *argp3 = 0 ;
6608 int res3 = 0 ;
6609 int argvi = 0;
6610 int result;
6611 dXSARGS;
6612
6613 if ((items < 3) || (items > 3)) {
6614 SWIG_croak("Usage: gsl_linalg_LQ_Lsolve_T(LQ,b,x);");
6615 }
6616 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6617 if (!SWIG_IsOK(res1)) {
6618 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LQ_Lsolve_T" "', argument " "1"" of type '" "gsl_matrix const *""'");
6619 }
6620 arg1 = (gsl_matrix *)(argp1);
6621 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
6622 if (!SWIG_IsOK(res2)) {
6623 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_LQ_Lsolve_T" "', argument " "2"" of type '" "gsl_vector const *""'");
6624 }
6625 arg2 = (gsl_vector *)(argp2);
6626 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
6627 if (!SWIG_IsOK(res3)) {
6628 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_LQ_Lsolve_T" "', argument " "3"" of type '" "gsl_vector *""'");
6629 }
6630 arg3 = (gsl_vector *)(argp3);
6631 result = (int)gsl_linalg_LQ_Lsolve_T((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3);
6632 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6633
6634
6635
6636 XSRETURN(argvi);
6637 fail:
6638
6639
6640
6641 SWIG_croak_null();
6642 }
6643 }
6644
6645
XS(_wrap_gsl_linalg_LQ_Lsvx_T)6646 XS(_wrap_gsl_linalg_LQ_Lsvx_T) {
6647 {
6648 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
6649 gsl_vector *arg2 = (gsl_vector *) 0 ;
6650 void *argp1 = 0 ;
6651 int res1 = 0 ;
6652 void *argp2 = 0 ;
6653 int res2 = 0 ;
6654 int argvi = 0;
6655 int result;
6656 dXSARGS;
6657
6658 if ((items < 2) || (items > 2)) {
6659 SWIG_croak("Usage: gsl_linalg_LQ_Lsvx_T(LQ,x);");
6660 }
6661 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6662 if (!SWIG_IsOK(res1)) {
6663 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LQ_Lsvx_T" "', argument " "1"" of type '" "gsl_matrix const *""'");
6664 }
6665 arg1 = (gsl_matrix *)(argp1);
6666 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
6667 if (!SWIG_IsOK(res2)) {
6668 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_LQ_Lsvx_T" "', argument " "2"" of type '" "gsl_vector *""'");
6669 }
6670 arg2 = (gsl_vector *)(argp2);
6671 result = (int)gsl_linalg_LQ_Lsvx_T((gsl_matrix const *)arg1,arg2);
6672 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6673
6674
6675 XSRETURN(argvi);
6676 fail:
6677
6678
6679 SWIG_croak_null();
6680 }
6681 }
6682
6683
XS(_wrap_gsl_linalg_L_solve_T)6684 XS(_wrap_gsl_linalg_L_solve_T) {
6685 {
6686 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
6687 gsl_vector *arg2 = (gsl_vector *) 0 ;
6688 gsl_vector *arg3 = (gsl_vector *) 0 ;
6689 void *argp1 = 0 ;
6690 int res1 = 0 ;
6691 void *argp2 = 0 ;
6692 int res2 = 0 ;
6693 void *argp3 = 0 ;
6694 int res3 = 0 ;
6695 int argvi = 0;
6696 int result;
6697 dXSARGS;
6698
6699 if ((items < 3) || (items > 3)) {
6700 SWIG_croak("Usage: gsl_linalg_L_solve_T(L,b,x);");
6701 }
6702 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6703 if (!SWIG_IsOK(res1)) {
6704 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_L_solve_T" "', argument " "1"" of type '" "gsl_matrix const *""'");
6705 }
6706 arg1 = (gsl_matrix *)(argp1);
6707 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
6708 if (!SWIG_IsOK(res2)) {
6709 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_L_solve_T" "', argument " "2"" of type '" "gsl_vector const *""'");
6710 }
6711 arg2 = (gsl_vector *)(argp2);
6712 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
6713 if (!SWIG_IsOK(res3)) {
6714 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_L_solve_T" "', argument " "3"" of type '" "gsl_vector *""'");
6715 }
6716 arg3 = (gsl_vector *)(argp3);
6717 result = (int)gsl_linalg_L_solve_T((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3);
6718 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6719
6720
6721
6722 XSRETURN(argvi);
6723 fail:
6724
6725
6726
6727 SWIG_croak_null();
6728 }
6729 }
6730
6731
XS(_wrap_gsl_linalg_LQ_vecQ)6732 XS(_wrap_gsl_linalg_LQ_vecQ) {
6733 {
6734 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
6735 gsl_vector *arg2 = (gsl_vector *) 0 ;
6736 gsl_vector *arg3 = (gsl_vector *) 0 ;
6737 void *argp1 = 0 ;
6738 int res1 = 0 ;
6739 void *argp2 = 0 ;
6740 int res2 = 0 ;
6741 void *argp3 = 0 ;
6742 int res3 = 0 ;
6743 int argvi = 0;
6744 int result;
6745 dXSARGS;
6746
6747 if ((items < 3) || (items > 3)) {
6748 SWIG_croak("Usage: gsl_linalg_LQ_vecQ(LQ,tau,v);");
6749 }
6750 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6751 if (!SWIG_IsOK(res1)) {
6752 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LQ_vecQ" "', argument " "1"" of type '" "gsl_matrix const *""'");
6753 }
6754 arg1 = (gsl_matrix *)(argp1);
6755 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
6756 if (!SWIG_IsOK(res2)) {
6757 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_LQ_vecQ" "', argument " "2"" of type '" "gsl_vector const *""'");
6758 }
6759 arg2 = (gsl_vector *)(argp2);
6760 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
6761 if (!SWIG_IsOK(res3)) {
6762 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_LQ_vecQ" "', argument " "3"" of type '" "gsl_vector *""'");
6763 }
6764 arg3 = (gsl_vector *)(argp3);
6765 result = (int)gsl_linalg_LQ_vecQ((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3);
6766 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6767
6768
6769
6770 XSRETURN(argvi);
6771 fail:
6772
6773
6774
6775 SWIG_croak_null();
6776 }
6777 }
6778
6779
XS(_wrap_gsl_linalg_LQ_vecQT)6780 XS(_wrap_gsl_linalg_LQ_vecQT) {
6781 {
6782 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
6783 gsl_vector *arg2 = (gsl_vector *) 0 ;
6784 gsl_vector *arg3 = (gsl_vector *) 0 ;
6785 void *argp1 = 0 ;
6786 int res1 = 0 ;
6787 void *argp2 = 0 ;
6788 int res2 = 0 ;
6789 void *argp3 = 0 ;
6790 int res3 = 0 ;
6791 int argvi = 0;
6792 int result;
6793 dXSARGS;
6794
6795 if ((items < 3) || (items > 3)) {
6796 SWIG_croak("Usage: gsl_linalg_LQ_vecQT(LQ,tau,v);");
6797 }
6798 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6799 if (!SWIG_IsOK(res1)) {
6800 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LQ_vecQT" "', argument " "1"" of type '" "gsl_matrix const *""'");
6801 }
6802 arg1 = (gsl_matrix *)(argp1);
6803 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
6804 if (!SWIG_IsOK(res2)) {
6805 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_LQ_vecQT" "', argument " "2"" of type '" "gsl_vector const *""'");
6806 }
6807 arg2 = (gsl_vector *)(argp2);
6808 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
6809 if (!SWIG_IsOK(res3)) {
6810 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_LQ_vecQT" "', argument " "3"" of type '" "gsl_vector *""'");
6811 }
6812 arg3 = (gsl_vector *)(argp3);
6813 result = (int)gsl_linalg_LQ_vecQT((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3);
6814 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6815
6816
6817
6818 XSRETURN(argvi);
6819 fail:
6820
6821
6822
6823 SWIG_croak_null();
6824 }
6825 }
6826
6827
XS(_wrap_gsl_linalg_LQ_unpack)6828 XS(_wrap_gsl_linalg_LQ_unpack) {
6829 {
6830 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
6831 gsl_vector *arg2 = (gsl_vector *) 0 ;
6832 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
6833 gsl_matrix *arg4 = (gsl_matrix *) 0 ;
6834 void *argp1 = 0 ;
6835 int res1 = 0 ;
6836 void *argp2 = 0 ;
6837 int res2 = 0 ;
6838 void *argp3 = 0 ;
6839 int res3 = 0 ;
6840 void *argp4 = 0 ;
6841 int res4 = 0 ;
6842 int argvi = 0;
6843 int result;
6844 dXSARGS;
6845
6846 if ((items < 4) || (items > 4)) {
6847 SWIG_croak("Usage: gsl_linalg_LQ_unpack(LQ,tau,Q,L);");
6848 }
6849 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6850 if (!SWIG_IsOK(res1)) {
6851 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LQ_unpack" "', argument " "1"" of type '" "gsl_matrix const *""'");
6852 }
6853 arg1 = (gsl_matrix *)(argp1);
6854 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
6855 if (!SWIG_IsOK(res2)) {
6856 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_LQ_unpack" "', argument " "2"" of type '" "gsl_vector const *""'");
6857 }
6858 arg2 = (gsl_vector *)(argp2);
6859 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6860 if (!SWIG_IsOK(res3)) {
6861 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_LQ_unpack" "', argument " "3"" of type '" "gsl_matrix *""'");
6862 }
6863 arg3 = (gsl_matrix *)(argp3);
6864 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6865 if (!SWIG_IsOK(res4)) {
6866 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_LQ_unpack" "', argument " "4"" of type '" "gsl_matrix *""'");
6867 }
6868 arg4 = (gsl_matrix *)(argp4);
6869 result = (int)gsl_linalg_LQ_unpack((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3,arg4);
6870 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6871
6872
6873
6874
6875 XSRETURN(argvi);
6876 fail:
6877
6878
6879
6880
6881 SWIG_croak_null();
6882 }
6883 }
6884
6885
XS(_wrap_gsl_linalg_LQ_update)6886 XS(_wrap_gsl_linalg_LQ_update) {
6887 {
6888 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
6889 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
6890 gsl_vector *arg3 = (gsl_vector *) 0 ;
6891 gsl_vector *arg4 = (gsl_vector *) 0 ;
6892 void *argp1 = 0 ;
6893 int res1 = 0 ;
6894 void *argp2 = 0 ;
6895 int res2 = 0 ;
6896 void *argp3 = 0 ;
6897 int res3 = 0 ;
6898 void *argp4 = 0 ;
6899 int res4 = 0 ;
6900 int argvi = 0;
6901 int result;
6902 dXSARGS;
6903
6904 if ((items < 4) || (items > 4)) {
6905 SWIG_croak("Usage: gsl_linalg_LQ_update(Q,R,v,w);");
6906 }
6907 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6908 if (!SWIG_IsOK(res1)) {
6909 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LQ_update" "', argument " "1"" of type '" "gsl_matrix *""'");
6910 }
6911 arg1 = (gsl_matrix *)(argp1);
6912 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6913 if (!SWIG_IsOK(res2)) {
6914 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_LQ_update" "', argument " "2"" of type '" "gsl_matrix *""'");
6915 }
6916 arg2 = (gsl_matrix *)(argp2);
6917 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
6918 if (!SWIG_IsOK(res3)) {
6919 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_LQ_update" "', argument " "3"" of type '" "gsl_vector const *""'");
6920 }
6921 arg3 = (gsl_vector *)(argp3);
6922 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
6923 if (!SWIG_IsOK(res4)) {
6924 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_LQ_update" "', argument " "4"" of type '" "gsl_vector *""'");
6925 }
6926 arg4 = (gsl_vector *)(argp4);
6927 result = (int)gsl_linalg_LQ_update(arg1,arg2,(gsl_vector const *)arg3,arg4);
6928 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6929
6930
6931
6932
6933 XSRETURN(argvi);
6934 fail:
6935
6936
6937
6938
6939 SWIG_croak_null();
6940 }
6941 }
6942
6943
XS(_wrap_gsl_linalg_LQ_LQsolve)6944 XS(_wrap_gsl_linalg_LQ_LQsolve) {
6945 {
6946 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
6947 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
6948 gsl_vector *arg3 = (gsl_vector *) 0 ;
6949 gsl_vector *arg4 = (gsl_vector *) 0 ;
6950 void *argp1 = 0 ;
6951 int res1 = 0 ;
6952 void *argp2 = 0 ;
6953 int res2 = 0 ;
6954 void *argp3 = 0 ;
6955 int res3 = 0 ;
6956 void *argp4 = 0 ;
6957 int res4 = 0 ;
6958 int argvi = 0;
6959 int result;
6960 dXSARGS;
6961
6962 if ((items < 4) || (items > 4)) {
6963 SWIG_croak("Usage: gsl_linalg_LQ_LQsolve(Q,L,b,x);");
6964 }
6965 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6966 if (!SWIG_IsOK(res1)) {
6967 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LQ_LQsolve" "', argument " "1"" of type '" "gsl_matrix *""'");
6968 }
6969 arg1 = (gsl_matrix *)(argp1);
6970 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6971 if (!SWIG_IsOK(res2)) {
6972 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_LQ_LQsolve" "', argument " "2"" of type '" "gsl_matrix *""'");
6973 }
6974 arg2 = (gsl_matrix *)(argp2);
6975 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
6976 if (!SWIG_IsOK(res3)) {
6977 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_LQ_LQsolve" "', argument " "3"" of type '" "gsl_vector const *""'");
6978 }
6979 arg3 = (gsl_vector *)(argp3);
6980 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
6981 if (!SWIG_IsOK(res4)) {
6982 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_LQ_LQsolve" "', argument " "4"" of type '" "gsl_vector *""'");
6983 }
6984 arg4 = (gsl_vector *)(argp4);
6985 result = (int)gsl_linalg_LQ_LQsolve(arg1,arg2,(gsl_vector const *)arg3,arg4);
6986 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6987
6988
6989
6990
6991 XSRETURN(argvi);
6992 fail:
6993
6994
6995
6996
6997 SWIG_croak_null();
6998 }
6999 }
7000
7001
XS(_wrap_gsl_linalg_PTLQ_decomp)7002 XS(_wrap_gsl_linalg_PTLQ_decomp) {
7003 {
7004 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
7005 gsl_vector *arg2 = (gsl_vector *) 0 ;
7006 gsl_permutation *arg3 = (gsl_permutation *) 0 ;
7007 int *arg4 = (int *) 0 ;
7008 gsl_vector *arg5 = (gsl_vector *) 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 int temp4 ;
7016 int res4 = SWIG_TMPOBJ ;
7017 void *argp5 = 0 ;
7018 int res5 = 0 ;
7019 int argvi = 0;
7020 int result;
7021 dXSARGS;
7022
7023 arg4 = &temp4;
7024 if ((items < 4) || (items > 4)) {
7025 SWIG_croak("Usage: gsl_linalg_PTLQ_decomp(A,tau,p,norm);");
7026 }
7027 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7028 if (!SWIG_IsOK(res1)) {
7029 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_PTLQ_decomp" "', argument " "1"" of type '" "gsl_matrix *""'");
7030 }
7031 arg1 = (gsl_matrix *)(argp1);
7032 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
7033 if (!SWIG_IsOK(res2)) {
7034 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_PTLQ_decomp" "', argument " "2"" of type '" "gsl_vector *""'");
7035 }
7036 arg2 = (gsl_vector *)(argp2);
7037 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
7038 if (!SWIG_IsOK(res3)) {
7039 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_PTLQ_decomp" "', argument " "3"" of type '" "gsl_permutation *""'");
7040 }
7041 arg3 = (gsl_permutation *)(argp3);
7042 res5 = SWIG_ConvertPtr(ST(3), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
7043 if (!SWIG_IsOK(res5)) {
7044 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_PTLQ_decomp" "', argument " "5"" of type '" "gsl_vector *""'");
7045 }
7046 arg5 = (gsl_vector *)(argp5);
7047 result = (int)gsl_linalg_PTLQ_decomp(arg1,arg2,arg3,arg4,arg5);
7048 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7049 if (SWIG_IsTmpObj(res4)) {
7050 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((*arg4)); argvi++ ;
7051 } else {
7052 int new_flags = SWIG_IsNewObj(res4) ? (SWIG_POINTER_OWN | 0) : 0;
7053 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg4), SWIGTYPE_p_int, new_flags); argvi++ ;
7054 }
7055
7056
7057
7058
7059
7060 XSRETURN(argvi);
7061 fail:
7062
7063
7064
7065
7066
7067 SWIG_croak_null();
7068 }
7069 }
7070
7071
XS(_wrap_gsl_linalg_PTLQ_decomp2)7072 XS(_wrap_gsl_linalg_PTLQ_decomp2) {
7073 {
7074 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
7075 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
7076 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
7077 gsl_vector *arg4 = (gsl_vector *) 0 ;
7078 gsl_permutation *arg5 = (gsl_permutation *) 0 ;
7079 int *arg6 = (int *) 0 ;
7080 gsl_vector *arg7 = (gsl_vector *) 0 ;
7081 void *argp1 = 0 ;
7082 int res1 = 0 ;
7083 void *argp2 = 0 ;
7084 int res2 = 0 ;
7085 void *argp3 = 0 ;
7086 int res3 = 0 ;
7087 void *argp4 = 0 ;
7088 int res4 = 0 ;
7089 void *argp5 = 0 ;
7090 int res5 = 0 ;
7091 int temp6 ;
7092 int res6 = SWIG_TMPOBJ ;
7093 void *argp7 = 0 ;
7094 int res7 = 0 ;
7095 int argvi = 0;
7096 int result;
7097 dXSARGS;
7098
7099 arg6 = &temp6;
7100 if ((items < 6) || (items > 6)) {
7101 SWIG_croak("Usage: gsl_linalg_PTLQ_decomp2(A,q,r,tau,p,norm);");
7102 }
7103 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7104 if (!SWIG_IsOK(res1)) {
7105 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_PTLQ_decomp2" "', argument " "1"" of type '" "gsl_matrix const *""'");
7106 }
7107 arg1 = (gsl_matrix *)(argp1);
7108 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7109 if (!SWIG_IsOK(res2)) {
7110 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_PTLQ_decomp2" "', argument " "2"" of type '" "gsl_matrix *""'");
7111 }
7112 arg2 = (gsl_matrix *)(argp2);
7113 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7114 if (!SWIG_IsOK(res3)) {
7115 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_PTLQ_decomp2" "', argument " "3"" of type '" "gsl_matrix *""'");
7116 }
7117 arg3 = (gsl_matrix *)(argp3);
7118 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
7119 if (!SWIG_IsOK(res4)) {
7120 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_PTLQ_decomp2" "', argument " "4"" of type '" "gsl_vector *""'");
7121 }
7122 arg4 = (gsl_vector *)(argp4);
7123 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
7124 if (!SWIG_IsOK(res5)) {
7125 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_PTLQ_decomp2" "', argument " "5"" of type '" "gsl_permutation *""'");
7126 }
7127 arg5 = (gsl_permutation *)(argp5);
7128 res7 = SWIG_ConvertPtr(ST(5), &argp7,SWIGTYPE_p_gsl_vector, 0 | 0 );
7129 if (!SWIG_IsOK(res7)) {
7130 SWIG_exception_fail(SWIG_ArgError(res7), "in method '" "gsl_linalg_PTLQ_decomp2" "', argument " "7"" of type '" "gsl_vector *""'");
7131 }
7132 arg7 = (gsl_vector *)(argp7);
7133 result = (int)gsl_linalg_PTLQ_decomp2((gsl_matrix const *)arg1,arg2,arg3,arg4,arg5,arg6,arg7);
7134 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7135 if (SWIG_IsTmpObj(res6)) {
7136 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((*arg6)); argvi++ ;
7137 } else {
7138 int new_flags = SWIG_IsNewObj(res6) ? (SWIG_POINTER_OWN | 0) : 0;
7139 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg6), SWIGTYPE_p_int, new_flags); argvi++ ;
7140 }
7141
7142
7143
7144
7145
7146
7147
7148 XSRETURN(argvi);
7149 fail:
7150
7151
7152
7153
7154
7155
7156
7157 SWIG_croak_null();
7158 }
7159 }
7160
7161
XS(_wrap_gsl_linalg_PTLQ_solve_T)7162 XS(_wrap_gsl_linalg_PTLQ_solve_T) {
7163 {
7164 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
7165 gsl_vector *arg2 = (gsl_vector *) 0 ;
7166 gsl_permutation *arg3 = (gsl_permutation *) 0 ;
7167 gsl_vector *arg4 = (gsl_vector *) 0 ;
7168 gsl_vector *arg5 = (gsl_vector *) 0 ;
7169 void *argp1 = 0 ;
7170 int res1 = 0 ;
7171 void *argp2 = 0 ;
7172 int res2 = 0 ;
7173 void *argp3 = 0 ;
7174 int res3 = 0 ;
7175 void *argp4 = 0 ;
7176 int res4 = 0 ;
7177 void *argp5 = 0 ;
7178 int res5 = 0 ;
7179 int argvi = 0;
7180 int result;
7181 dXSARGS;
7182
7183 if ((items < 5) || (items > 5)) {
7184 SWIG_croak("Usage: gsl_linalg_PTLQ_solve_T(QR,tau,p,b,x);");
7185 }
7186 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7187 if (!SWIG_IsOK(res1)) {
7188 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_PTLQ_solve_T" "', argument " "1"" of type '" "gsl_matrix const *""'");
7189 }
7190 arg1 = (gsl_matrix *)(argp1);
7191 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
7192 if (!SWIG_IsOK(res2)) {
7193 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_PTLQ_solve_T" "', argument " "2"" of type '" "gsl_vector const *""'");
7194 }
7195 arg2 = (gsl_vector *)(argp2);
7196 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
7197 if (!SWIG_IsOK(res3)) {
7198 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_PTLQ_solve_T" "', argument " "3"" of type '" "gsl_permutation const *""'");
7199 }
7200 arg3 = (gsl_permutation *)(argp3);
7201 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
7202 if (!SWIG_IsOK(res4)) {
7203 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_PTLQ_solve_T" "', argument " "4"" of type '" "gsl_vector const *""'");
7204 }
7205 arg4 = (gsl_vector *)(argp4);
7206 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
7207 if (!SWIG_IsOK(res5)) {
7208 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_PTLQ_solve_T" "', argument " "5"" of type '" "gsl_vector *""'");
7209 }
7210 arg5 = (gsl_vector *)(argp5);
7211 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);
7212 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7213
7214
7215
7216
7217
7218 XSRETURN(argvi);
7219 fail:
7220
7221
7222
7223
7224
7225 SWIG_croak_null();
7226 }
7227 }
7228
7229
XS(_wrap_gsl_linalg_PTLQ_svx_T)7230 XS(_wrap_gsl_linalg_PTLQ_svx_T) {
7231 {
7232 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
7233 gsl_vector *arg2 = (gsl_vector *) 0 ;
7234 gsl_permutation *arg3 = (gsl_permutation *) 0 ;
7235 gsl_vector *arg4 = (gsl_vector *) 0 ;
7236 void *argp1 = 0 ;
7237 int res1 = 0 ;
7238 void *argp2 = 0 ;
7239 int res2 = 0 ;
7240 void *argp3 = 0 ;
7241 int res3 = 0 ;
7242 void *argp4 = 0 ;
7243 int res4 = 0 ;
7244 int argvi = 0;
7245 int result;
7246 dXSARGS;
7247
7248 if ((items < 4) || (items > 4)) {
7249 SWIG_croak("Usage: gsl_linalg_PTLQ_svx_T(LQ,tau,p,x);");
7250 }
7251 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7252 if (!SWIG_IsOK(res1)) {
7253 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_PTLQ_svx_T" "', argument " "1"" of type '" "gsl_matrix const *""'");
7254 }
7255 arg1 = (gsl_matrix *)(argp1);
7256 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
7257 if (!SWIG_IsOK(res2)) {
7258 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_PTLQ_svx_T" "', argument " "2"" of type '" "gsl_vector const *""'");
7259 }
7260 arg2 = (gsl_vector *)(argp2);
7261 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
7262 if (!SWIG_IsOK(res3)) {
7263 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_PTLQ_svx_T" "', argument " "3"" of type '" "gsl_permutation const *""'");
7264 }
7265 arg3 = (gsl_permutation *)(argp3);
7266 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
7267 if (!SWIG_IsOK(res4)) {
7268 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_PTLQ_svx_T" "', argument " "4"" of type '" "gsl_vector *""'");
7269 }
7270 arg4 = (gsl_vector *)(argp4);
7271 result = (int)gsl_linalg_PTLQ_svx_T((gsl_matrix const *)arg1,(gsl_vector const *)arg2,(struct gsl_permutation_struct const *)arg3,arg4);
7272 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7273
7274
7275
7276
7277 XSRETURN(argvi);
7278 fail:
7279
7280
7281
7282
7283 SWIG_croak_null();
7284 }
7285 }
7286
7287
XS(_wrap_gsl_linalg_PTLQ_LQsolve_T)7288 XS(_wrap_gsl_linalg_PTLQ_LQsolve_T) {
7289 {
7290 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
7291 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
7292 gsl_permutation *arg3 = (gsl_permutation *) 0 ;
7293 gsl_vector *arg4 = (gsl_vector *) 0 ;
7294 gsl_vector *arg5 = (gsl_vector *) 0 ;
7295 void *argp1 = 0 ;
7296 int res1 = 0 ;
7297 void *argp2 = 0 ;
7298 int res2 = 0 ;
7299 void *argp3 = 0 ;
7300 int res3 = 0 ;
7301 void *argp4 = 0 ;
7302 int res4 = 0 ;
7303 void *argp5 = 0 ;
7304 int res5 = 0 ;
7305 int argvi = 0;
7306 int result;
7307 dXSARGS;
7308
7309 if ((items < 5) || (items > 5)) {
7310 SWIG_croak("Usage: gsl_linalg_PTLQ_LQsolve_T(Q,L,p,b,x);");
7311 }
7312 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7313 if (!SWIG_IsOK(res1)) {
7314 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_PTLQ_LQsolve_T" "', argument " "1"" of type '" "gsl_matrix const *""'");
7315 }
7316 arg1 = (gsl_matrix *)(argp1);
7317 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7318 if (!SWIG_IsOK(res2)) {
7319 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_PTLQ_LQsolve_T" "', argument " "2"" of type '" "gsl_matrix const *""'");
7320 }
7321 arg2 = (gsl_matrix *)(argp2);
7322 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
7323 if (!SWIG_IsOK(res3)) {
7324 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_PTLQ_LQsolve_T" "', argument " "3"" of type '" "gsl_permutation const *""'");
7325 }
7326 arg3 = (gsl_permutation *)(argp3);
7327 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
7328 if (!SWIG_IsOK(res4)) {
7329 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_PTLQ_LQsolve_T" "', argument " "4"" of type '" "gsl_vector const *""'");
7330 }
7331 arg4 = (gsl_vector *)(argp4);
7332 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
7333 if (!SWIG_IsOK(res5)) {
7334 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_PTLQ_LQsolve_T" "', argument " "5"" of type '" "gsl_vector *""'");
7335 }
7336 arg5 = (gsl_vector *)(argp5);
7337 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);
7338 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7339
7340
7341
7342
7343
7344 XSRETURN(argvi);
7345 fail:
7346
7347
7348
7349
7350
7351 SWIG_croak_null();
7352 }
7353 }
7354
7355
XS(_wrap_gsl_linalg_PTLQ_Lsolve_T)7356 XS(_wrap_gsl_linalg_PTLQ_Lsolve_T) {
7357 {
7358 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
7359 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
7360 gsl_vector *arg3 = (gsl_vector *) 0 ;
7361 gsl_vector *arg4 = (gsl_vector *) 0 ;
7362 void *argp1 = 0 ;
7363 int res1 = 0 ;
7364 void *argp2 = 0 ;
7365 int res2 = 0 ;
7366 void *argp3 = 0 ;
7367 int res3 = 0 ;
7368 void *argp4 = 0 ;
7369 int res4 = 0 ;
7370 int argvi = 0;
7371 int result;
7372 dXSARGS;
7373
7374 if ((items < 4) || (items > 4)) {
7375 SWIG_croak("Usage: gsl_linalg_PTLQ_Lsolve_T(LQ,p,b,x);");
7376 }
7377 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7378 if (!SWIG_IsOK(res1)) {
7379 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_PTLQ_Lsolve_T" "', argument " "1"" of type '" "gsl_matrix const *""'");
7380 }
7381 arg1 = (gsl_matrix *)(argp1);
7382 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
7383 if (!SWIG_IsOK(res2)) {
7384 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_PTLQ_Lsolve_T" "', argument " "2"" of type '" "gsl_permutation const *""'");
7385 }
7386 arg2 = (gsl_permutation *)(argp2);
7387 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
7388 if (!SWIG_IsOK(res3)) {
7389 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_PTLQ_Lsolve_T" "', argument " "3"" of type '" "gsl_vector const *""'");
7390 }
7391 arg3 = (gsl_vector *)(argp3);
7392 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
7393 if (!SWIG_IsOK(res4)) {
7394 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_PTLQ_Lsolve_T" "', argument " "4"" of type '" "gsl_vector *""'");
7395 }
7396 arg4 = (gsl_vector *)(argp4);
7397 result = (int)gsl_linalg_PTLQ_Lsolve_T((gsl_matrix const *)arg1,(struct gsl_permutation_struct const *)arg2,(gsl_vector const *)arg3,arg4);
7398 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7399
7400
7401
7402
7403 XSRETURN(argvi);
7404 fail:
7405
7406
7407
7408
7409 SWIG_croak_null();
7410 }
7411 }
7412
7413
XS(_wrap_gsl_linalg_PTLQ_Lsvx_T)7414 XS(_wrap_gsl_linalg_PTLQ_Lsvx_T) {
7415 {
7416 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
7417 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
7418 gsl_vector *arg3 = (gsl_vector *) 0 ;
7419 void *argp1 = 0 ;
7420 int res1 = 0 ;
7421 void *argp2 = 0 ;
7422 int res2 = 0 ;
7423 void *argp3 = 0 ;
7424 int res3 = 0 ;
7425 int argvi = 0;
7426 int result;
7427 dXSARGS;
7428
7429 if ((items < 3) || (items > 3)) {
7430 SWIG_croak("Usage: gsl_linalg_PTLQ_Lsvx_T(LQ,p,x);");
7431 }
7432 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7433 if (!SWIG_IsOK(res1)) {
7434 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_PTLQ_Lsvx_T" "', argument " "1"" of type '" "gsl_matrix const *""'");
7435 }
7436 arg1 = (gsl_matrix *)(argp1);
7437 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
7438 if (!SWIG_IsOK(res2)) {
7439 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_PTLQ_Lsvx_T" "', argument " "2"" of type '" "gsl_permutation const *""'");
7440 }
7441 arg2 = (gsl_permutation *)(argp2);
7442 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
7443 if (!SWIG_IsOK(res3)) {
7444 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_PTLQ_Lsvx_T" "', argument " "3"" of type '" "gsl_vector *""'");
7445 }
7446 arg3 = (gsl_vector *)(argp3);
7447 result = (int)gsl_linalg_PTLQ_Lsvx_T((gsl_matrix const *)arg1,(struct gsl_permutation_struct const *)arg2,arg3);
7448 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7449
7450
7451
7452 XSRETURN(argvi);
7453 fail:
7454
7455
7456
7457 SWIG_croak_null();
7458 }
7459 }
7460
7461
XS(_wrap_gsl_linalg_PTLQ_update)7462 XS(_wrap_gsl_linalg_PTLQ_update) {
7463 {
7464 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
7465 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
7466 gsl_permutation *arg3 = (gsl_permutation *) 0 ;
7467 gsl_vector *arg4 = (gsl_vector *) 0 ;
7468 gsl_vector *arg5 = (gsl_vector *) 0 ;
7469 void *argp1 = 0 ;
7470 int res1 = 0 ;
7471 void *argp2 = 0 ;
7472 int res2 = 0 ;
7473 void *argp3 = 0 ;
7474 int res3 = 0 ;
7475 void *argp4 = 0 ;
7476 int res4 = 0 ;
7477 void *argp5 = 0 ;
7478 int res5 = 0 ;
7479 int argvi = 0;
7480 int result;
7481 dXSARGS;
7482
7483 if ((items < 5) || (items > 5)) {
7484 SWIG_croak("Usage: gsl_linalg_PTLQ_update(Q,L,p,v,w);");
7485 }
7486 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7487 if (!SWIG_IsOK(res1)) {
7488 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_PTLQ_update" "', argument " "1"" of type '" "gsl_matrix *""'");
7489 }
7490 arg1 = (gsl_matrix *)(argp1);
7491 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7492 if (!SWIG_IsOK(res2)) {
7493 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_PTLQ_update" "', argument " "2"" of type '" "gsl_matrix *""'");
7494 }
7495 arg2 = (gsl_matrix *)(argp2);
7496 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
7497 if (!SWIG_IsOK(res3)) {
7498 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_PTLQ_update" "', argument " "3"" of type '" "gsl_permutation const *""'");
7499 }
7500 arg3 = (gsl_permutation *)(argp3);
7501 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
7502 if (!SWIG_IsOK(res4)) {
7503 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_PTLQ_update" "', argument " "4"" of type '" "gsl_vector const *""'");
7504 }
7505 arg4 = (gsl_vector *)(argp4);
7506 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
7507 if (!SWIG_IsOK(res5)) {
7508 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_PTLQ_update" "', argument " "5"" of type '" "gsl_vector *""'");
7509 }
7510 arg5 = (gsl_vector *)(argp5);
7511 result = (int)gsl_linalg_PTLQ_update(arg1,arg2,(struct gsl_permutation_struct const *)arg3,(gsl_vector const *)arg4,arg5);
7512 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7513
7514
7515
7516
7517
7518 XSRETURN(argvi);
7519 fail:
7520
7521
7522
7523
7524
7525 SWIG_croak_null();
7526 }
7527 }
7528
7529
XS(_wrap_gsl_linalg_cholesky_decomp)7530 XS(_wrap_gsl_linalg_cholesky_decomp) {
7531 {
7532 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
7533 void *argp1 = 0 ;
7534 int res1 = 0 ;
7535 int argvi = 0;
7536 int result;
7537 dXSARGS;
7538
7539 if ((items < 1) || (items > 1)) {
7540 SWIG_croak("Usage: gsl_linalg_cholesky_decomp(A);");
7541 }
7542 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7543 if (!SWIG_IsOK(res1)) {
7544 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_cholesky_decomp" "', argument " "1"" of type '" "gsl_matrix *""'");
7545 }
7546 arg1 = (gsl_matrix *)(argp1);
7547 result = (int)gsl_linalg_cholesky_decomp(arg1);
7548 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7549
7550 XSRETURN(argvi);
7551 fail:
7552
7553 SWIG_croak_null();
7554 }
7555 }
7556
7557
XS(_wrap_gsl_linalg_cholesky_decomp1)7558 XS(_wrap_gsl_linalg_cholesky_decomp1) {
7559 {
7560 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
7561 void *argp1 = 0 ;
7562 int res1 = 0 ;
7563 int argvi = 0;
7564 int result;
7565 dXSARGS;
7566
7567 if ((items < 1) || (items > 1)) {
7568 SWIG_croak("Usage: gsl_linalg_cholesky_decomp1(A);");
7569 }
7570 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7571 if (!SWIG_IsOK(res1)) {
7572 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_cholesky_decomp1" "', argument " "1"" of type '" "gsl_matrix *""'");
7573 }
7574 arg1 = (gsl_matrix *)(argp1);
7575 result = (int)gsl_linalg_cholesky_decomp1(arg1);
7576 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7577
7578 XSRETURN(argvi);
7579 fail:
7580
7581 SWIG_croak_null();
7582 }
7583 }
7584
7585
XS(_wrap_gsl_linalg_cholesky_solve)7586 XS(_wrap_gsl_linalg_cholesky_solve) {
7587 {
7588 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
7589 gsl_vector *arg2 = (gsl_vector *) 0 ;
7590 gsl_vector *arg3 = (gsl_vector *) 0 ;
7591 void *argp1 = 0 ;
7592 int res1 = 0 ;
7593 void *argp2 = 0 ;
7594 int res2 = 0 ;
7595 void *argp3 = 0 ;
7596 int res3 = 0 ;
7597 int argvi = 0;
7598 int result;
7599 dXSARGS;
7600
7601 if ((items < 3) || (items > 3)) {
7602 SWIG_croak("Usage: gsl_linalg_cholesky_solve(cholesky,b,x);");
7603 }
7604 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7605 if (!SWIG_IsOK(res1)) {
7606 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_cholesky_solve" "', argument " "1"" of type '" "gsl_matrix const *""'");
7607 }
7608 arg1 = (gsl_matrix *)(argp1);
7609 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
7610 if (!SWIG_IsOK(res2)) {
7611 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_cholesky_solve" "', argument " "2"" of type '" "gsl_vector const *""'");
7612 }
7613 arg2 = (gsl_vector *)(argp2);
7614 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
7615 if (!SWIG_IsOK(res3)) {
7616 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_cholesky_solve" "', argument " "3"" of type '" "gsl_vector *""'");
7617 }
7618 arg3 = (gsl_vector *)(argp3);
7619 result = (int)gsl_linalg_cholesky_solve((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3);
7620 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7621
7622
7623
7624 XSRETURN(argvi);
7625 fail:
7626
7627
7628
7629 SWIG_croak_null();
7630 }
7631 }
7632
7633
XS(_wrap_gsl_linalg_cholesky_svx)7634 XS(_wrap_gsl_linalg_cholesky_svx) {
7635 {
7636 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
7637 gsl_vector *arg2 = (gsl_vector *) 0 ;
7638 void *argp1 = 0 ;
7639 int res1 = 0 ;
7640 void *argp2 = 0 ;
7641 int res2 = 0 ;
7642 int argvi = 0;
7643 int result;
7644 dXSARGS;
7645
7646 if ((items < 2) || (items > 2)) {
7647 SWIG_croak("Usage: gsl_linalg_cholesky_svx(cholesky,x);");
7648 }
7649 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7650 if (!SWIG_IsOK(res1)) {
7651 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_cholesky_svx" "', argument " "1"" of type '" "gsl_matrix const *""'");
7652 }
7653 arg1 = (gsl_matrix *)(argp1);
7654 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
7655 if (!SWIG_IsOK(res2)) {
7656 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_cholesky_svx" "', argument " "2"" of type '" "gsl_vector *""'");
7657 }
7658 arg2 = (gsl_vector *)(argp2);
7659 result = (int)gsl_linalg_cholesky_svx((gsl_matrix const *)arg1,arg2);
7660 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7661
7662
7663 XSRETURN(argvi);
7664 fail:
7665
7666
7667 SWIG_croak_null();
7668 }
7669 }
7670
7671
XS(_wrap_gsl_linalg_cholesky_invert)7672 XS(_wrap_gsl_linalg_cholesky_invert) {
7673 {
7674 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
7675 void *argp1 = 0 ;
7676 int res1 = 0 ;
7677 int argvi = 0;
7678 int result;
7679 dXSARGS;
7680
7681 if ((items < 1) || (items > 1)) {
7682 SWIG_croak("Usage: gsl_linalg_cholesky_invert(cholesky);");
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_cholesky_invert" "', argument " "1"" of type '" "gsl_matrix *""'");
7687 }
7688 arg1 = (gsl_matrix *)(argp1);
7689 result = (int)gsl_linalg_cholesky_invert(arg1);
7690 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7691
7692 XSRETURN(argvi);
7693 fail:
7694
7695 SWIG_croak_null();
7696 }
7697 }
7698
7699
XS(_wrap_gsl_linalg_cholesky_decomp_unit)7700 XS(_wrap_gsl_linalg_cholesky_decomp_unit) {
7701 {
7702 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
7703 gsl_vector *arg2 = (gsl_vector *) 0 ;
7704 void *argp1 = 0 ;
7705 int res1 = 0 ;
7706 void *argp2 = 0 ;
7707 int res2 = 0 ;
7708 int argvi = 0;
7709 int result;
7710 dXSARGS;
7711
7712 if ((items < 2) || (items > 2)) {
7713 SWIG_croak("Usage: gsl_linalg_cholesky_decomp_unit(A,D);");
7714 }
7715 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7716 if (!SWIG_IsOK(res1)) {
7717 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_cholesky_decomp_unit" "', argument " "1"" of type '" "gsl_matrix *""'");
7718 }
7719 arg1 = (gsl_matrix *)(argp1);
7720 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
7721 if (!SWIG_IsOK(res2)) {
7722 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_cholesky_decomp_unit" "', argument " "2"" of type '" "gsl_vector *""'");
7723 }
7724 arg2 = (gsl_vector *)(argp2);
7725 result = (int)gsl_linalg_cholesky_decomp_unit(arg1,arg2);
7726 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7727
7728
7729 XSRETURN(argvi);
7730 fail:
7731
7732
7733 SWIG_croak_null();
7734 }
7735 }
7736
7737
XS(_wrap_gsl_linalg_cholesky_scale)7738 XS(_wrap_gsl_linalg_cholesky_scale) {
7739 {
7740 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
7741 gsl_vector *arg2 = (gsl_vector *) 0 ;
7742 void *argp1 = 0 ;
7743 int res1 = 0 ;
7744 void *argp2 = 0 ;
7745 int res2 = 0 ;
7746 int argvi = 0;
7747 int result;
7748 dXSARGS;
7749
7750 if ((items < 2) || (items > 2)) {
7751 SWIG_croak("Usage: gsl_linalg_cholesky_scale(A,S);");
7752 }
7753 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7754 if (!SWIG_IsOK(res1)) {
7755 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_cholesky_scale" "', argument " "1"" of type '" "gsl_matrix const *""'");
7756 }
7757 arg1 = (gsl_matrix *)(argp1);
7758 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
7759 if (!SWIG_IsOK(res2)) {
7760 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_cholesky_scale" "', argument " "2"" of type '" "gsl_vector *""'");
7761 }
7762 arg2 = (gsl_vector *)(argp2);
7763 result = (int)gsl_linalg_cholesky_scale((gsl_matrix const *)arg1,arg2);
7764 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7765
7766
7767 XSRETURN(argvi);
7768 fail:
7769
7770
7771 SWIG_croak_null();
7772 }
7773 }
7774
7775
XS(_wrap_gsl_linalg_cholesky_scale_apply)7776 XS(_wrap_gsl_linalg_cholesky_scale_apply) {
7777 {
7778 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
7779 gsl_vector *arg2 = (gsl_vector *) 0 ;
7780 void *argp1 = 0 ;
7781 int res1 = 0 ;
7782 void *argp2 = 0 ;
7783 int res2 = 0 ;
7784 int argvi = 0;
7785 int result;
7786 dXSARGS;
7787
7788 if ((items < 2) || (items > 2)) {
7789 SWIG_croak("Usage: gsl_linalg_cholesky_scale_apply(A,S);");
7790 }
7791 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7792 if (!SWIG_IsOK(res1)) {
7793 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_cholesky_scale_apply" "', argument " "1"" of type '" "gsl_matrix *""'");
7794 }
7795 arg1 = (gsl_matrix *)(argp1);
7796 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
7797 if (!SWIG_IsOK(res2)) {
7798 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_cholesky_scale_apply" "', argument " "2"" of type '" "gsl_vector const *""'");
7799 }
7800 arg2 = (gsl_vector *)(argp2);
7801 result = (int)gsl_linalg_cholesky_scale_apply(arg1,(gsl_vector const *)arg2);
7802 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7803
7804
7805 XSRETURN(argvi);
7806 fail:
7807
7808
7809 SWIG_croak_null();
7810 }
7811 }
7812
7813
XS(_wrap_gsl_linalg_cholesky_decomp2)7814 XS(_wrap_gsl_linalg_cholesky_decomp2) {
7815 {
7816 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
7817 gsl_vector *arg2 = (gsl_vector *) 0 ;
7818 void *argp1 = 0 ;
7819 int res1 = 0 ;
7820 void *argp2 = 0 ;
7821 int res2 = 0 ;
7822 int argvi = 0;
7823 int result;
7824 dXSARGS;
7825
7826 if ((items < 2) || (items > 2)) {
7827 SWIG_croak("Usage: gsl_linalg_cholesky_decomp2(A,S);");
7828 }
7829 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7830 if (!SWIG_IsOK(res1)) {
7831 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_cholesky_decomp2" "', argument " "1"" of type '" "gsl_matrix *""'");
7832 }
7833 arg1 = (gsl_matrix *)(argp1);
7834 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
7835 if (!SWIG_IsOK(res2)) {
7836 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_cholesky_decomp2" "', argument " "2"" of type '" "gsl_vector *""'");
7837 }
7838 arg2 = (gsl_vector *)(argp2);
7839 result = (int)gsl_linalg_cholesky_decomp2(arg1,arg2);
7840 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7841
7842
7843 XSRETURN(argvi);
7844 fail:
7845
7846
7847 SWIG_croak_null();
7848 }
7849 }
7850
7851
XS(_wrap_gsl_linalg_cholesky_svx2)7852 XS(_wrap_gsl_linalg_cholesky_svx2) {
7853 {
7854 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
7855 gsl_vector *arg2 = (gsl_vector *) 0 ;
7856 gsl_vector *arg3 = (gsl_vector *) 0 ;
7857 void *argp1 = 0 ;
7858 int res1 = 0 ;
7859 void *argp2 = 0 ;
7860 int res2 = 0 ;
7861 void *argp3 = 0 ;
7862 int res3 = 0 ;
7863 int argvi = 0;
7864 int result;
7865 dXSARGS;
7866
7867 if ((items < 3) || (items > 3)) {
7868 SWIG_croak("Usage: gsl_linalg_cholesky_svx2(LLT,S,x);");
7869 }
7870 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7871 if (!SWIG_IsOK(res1)) {
7872 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_cholesky_svx2" "', argument " "1"" of type '" "gsl_matrix const *""'");
7873 }
7874 arg1 = (gsl_matrix *)(argp1);
7875 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
7876 if (!SWIG_IsOK(res2)) {
7877 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_cholesky_svx2" "', argument " "2"" of type '" "gsl_vector const *""'");
7878 }
7879 arg2 = (gsl_vector *)(argp2);
7880 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
7881 if (!SWIG_IsOK(res3)) {
7882 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_cholesky_svx2" "', argument " "3"" of type '" "gsl_vector *""'");
7883 }
7884 arg3 = (gsl_vector *)(argp3);
7885 result = (int)gsl_linalg_cholesky_svx2((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3);
7886 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7887
7888
7889
7890 XSRETURN(argvi);
7891 fail:
7892
7893
7894
7895 SWIG_croak_null();
7896 }
7897 }
7898
7899
XS(_wrap_gsl_linalg_cholesky_solve2)7900 XS(_wrap_gsl_linalg_cholesky_solve2) {
7901 {
7902 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
7903 gsl_vector *arg2 = (gsl_vector *) 0 ;
7904 gsl_vector *arg3 = (gsl_vector *) 0 ;
7905 gsl_vector *arg4 = (gsl_vector *) 0 ;
7906 void *argp1 = 0 ;
7907 int res1 = 0 ;
7908 void *argp2 = 0 ;
7909 int res2 = 0 ;
7910 void *argp3 = 0 ;
7911 int res3 = 0 ;
7912 void *argp4 = 0 ;
7913 int res4 = 0 ;
7914 int argvi = 0;
7915 int result;
7916 dXSARGS;
7917
7918 if ((items < 4) || (items > 4)) {
7919 SWIG_croak("Usage: gsl_linalg_cholesky_solve2(LLT,S,b,x);");
7920 }
7921 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7922 if (!SWIG_IsOK(res1)) {
7923 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_cholesky_solve2" "', argument " "1"" of type '" "gsl_matrix const *""'");
7924 }
7925 arg1 = (gsl_matrix *)(argp1);
7926 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
7927 if (!SWIG_IsOK(res2)) {
7928 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_cholesky_solve2" "', argument " "2"" of type '" "gsl_vector const *""'");
7929 }
7930 arg2 = (gsl_vector *)(argp2);
7931 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
7932 if (!SWIG_IsOK(res3)) {
7933 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_cholesky_solve2" "', argument " "3"" of type '" "gsl_vector const *""'");
7934 }
7935 arg3 = (gsl_vector *)(argp3);
7936 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
7937 if (!SWIG_IsOK(res4)) {
7938 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_cholesky_solve2" "', argument " "4"" of type '" "gsl_vector *""'");
7939 }
7940 arg4 = (gsl_vector *)(argp4);
7941 result = (int)gsl_linalg_cholesky_solve2((gsl_matrix const *)arg1,(gsl_vector const *)arg2,(gsl_vector const *)arg3,arg4);
7942 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7943
7944
7945
7946
7947 XSRETURN(argvi);
7948 fail:
7949
7950
7951
7952
7953 SWIG_croak_null();
7954 }
7955 }
7956
7957
XS(_wrap_gsl_linalg_cholesky_rcond)7958 XS(_wrap_gsl_linalg_cholesky_rcond) {
7959 {
7960 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
7961 double *arg2 = (double *) 0 ;
7962 gsl_vector *arg3 = (gsl_vector *) 0 ;
7963 void *argp1 = 0 ;
7964 int res1 = 0 ;
7965 void *argp2 = 0 ;
7966 int res2 = 0 ;
7967 void *argp3 = 0 ;
7968 int res3 = 0 ;
7969 int argvi = 0;
7970 int result;
7971 dXSARGS;
7972
7973 if ((items < 3) || (items > 3)) {
7974 SWIG_croak("Usage: gsl_linalg_cholesky_rcond(LLT,rcond,work);");
7975 }
7976 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7977 if (!SWIG_IsOK(res1)) {
7978 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_cholesky_rcond" "', argument " "1"" of type '" "gsl_matrix const *""'");
7979 }
7980 arg1 = (gsl_matrix *)(argp1);
7981 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_double, 0 | 0 );
7982 if (!SWIG_IsOK(res2)) {
7983 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_cholesky_rcond" "', argument " "2"" of type '" "double *""'");
7984 }
7985 arg2 = (double *)(argp2);
7986 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
7987 if (!SWIG_IsOK(res3)) {
7988 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_cholesky_rcond" "', argument " "3"" of type '" "gsl_vector *""'");
7989 }
7990 arg3 = (gsl_vector *)(argp3);
7991 result = (int)gsl_linalg_cholesky_rcond((gsl_matrix const *)arg1,arg2,arg3);
7992 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7993
7994
7995
7996 XSRETURN(argvi);
7997 fail:
7998
7999
8000
8001 SWIG_croak_null();
8002 }
8003 }
8004
8005
XS(_wrap_gsl_linalg_complex_cholesky_decomp)8006 XS(_wrap_gsl_linalg_complex_cholesky_decomp) {
8007 {
8008 gsl_matrix_complex *arg1 = (gsl_matrix_complex *) 0 ;
8009 void *argp1 = 0 ;
8010 int res1 = 0 ;
8011 int argvi = 0;
8012 int result;
8013 dXSARGS;
8014
8015 if ((items < 1) || (items > 1)) {
8016 SWIG_croak("Usage: gsl_linalg_complex_cholesky_decomp(A);");
8017 }
8018 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
8019 if (!SWIG_IsOK(res1)) {
8020 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_complex_cholesky_decomp" "', argument " "1"" of type '" "gsl_matrix_complex *""'");
8021 }
8022 arg1 = (gsl_matrix_complex *)(argp1);
8023 result = (int)gsl_linalg_complex_cholesky_decomp(arg1);
8024 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8025
8026 XSRETURN(argvi);
8027 fail:
8028
8029 SWIG_croak_null();
8030 }
8031 }
8032
8033
XS(_wrap_gsl_linalg_complex_cholesky_solve)8034 XS(_wrap_gsl_linalg_complex_cholesky_solve) {
8035 {
8036 gsl_matrix_complex *arg1 = (gsl_matrix_complex *) 0 ;
8037 gsl_vector_complex *arg2 = (gsl_vector_complex *) 0 ;
8038 gsl_vector_complex *arg3 = (gsl_vector_complex *) 0 ;
8039 void *argp1 = 0 ;
8040 int res1 = 0 ;
8041 void *argp2 = 0 ;
8042 int res2 = 0 ;
8043 void *argp3 = 0 ;
8044 int res3 = 0 ;
8045 int argvi = 0;
8046 int result;
8047 dXSARGS;
8048
8049 if ((items < 3) || (items > 3)) {
8050 SWIG_croak("Usage: gsl_linalg_complex_cholesky_solve(cholesky,b,x);");
8051 }
8052 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
8053 if (!SWIG_IsOK(res1)) {
8054 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_complex_cholesky_solve" "', argument " "1"" of type '" "gsl_matrix_complex const *""'");
8055 }
8056 arg1 = (gsl_matrix_complex *)(argp1);
8057 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
8058 if (!SWIG_IsOK(res2)) {
8059 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_complex_cholesky_solve" "', argument " "2"" of type '" "gsl_vector_complex const *""'");
8060 }
8061 arg2 = (gsl_vector_complex *)(argp2);
8062 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
8063 if (!SWIG_IsOK(res3)) {
8064 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_complex_cholesky_solve" "', argument " "3"" of type '" "gsl_vector_complex *""'");
8065 }
8066 arg3 = (gsl_vector_complex *)(argp3);
8067 result = (int)gsl_linalg_complex_cholesky_solve((gsl_matrix_complex const *)arg1,(gsl_vector_complex const *)arg2,arg3);
8068 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8069
8070
8071
8072 XSRETURN(argvi);
8073 fail:
8074
8075
8076
8077 SWIG_croak_null();
8078 }
8079 }
8080
8081
XS(_wrap_gsl_linalg_complex_cholesky_svx)8082 XS(_wrap_gsl_linalg_complex_cholesky_svx) {
8083 {
8084 gsl_matrix_complex *arg1 = (gsl_matrix_complex *) 0 ;
8085 gsl_vector_complex *arg2 = (gsl_vector_complex *) 0 ;
8086 void *argp1 = 0 ;
8087 int res1 = 0 ;
8088 void *argp2 = 0 ;
8089 int res2 = 0 ;
8090 int argvi = 0;
8091 int result;
8092 dXSARGS;
8093
8094 if ((items < 2) || (items > 2)) {
8095 SWIG_croak("Usage: gsl_linalg_complex_cholesky_svx(cholesky,x);");
8096 }
8097 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
8098 if (!SWIG_IsOK(res1)) {
8099 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_complex_cholesky_svx" "', argument " "1"" of type '" "gsl_matrix_complex const *""'");
8100 }
8101 arg1 = (gsl_matrix_complex *)(argp1);
8102 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
8103 if (!SWIG_IsOK(res2)) {
8104 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_complex_cholesky_svx" "', argument " "2"" of type '" "gsl_vector_complex *""'");
8105 }
8106 arg2 = (gsl_vector_complex *)(argp2);
8107 result = (int)gsl_linalg_complex_cholesky_svx((gsl_matrix_complex const *)arg1,arg2);
8108 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8109
8110
8111 XSRETURN(argvi);
8112 fail:
8113
8114
8115 SWIG_croak_null();
8116 }
8117 }
8118
8119
XS(_wrap_gsl_linalg_complex_cholesky_invert)8120 XS(_wrap_gsl_linalg_complex_cholesky_invert) {
8121 {
8122 gsl_matrix_complex *arg1 = (gsl_matrix_complex *) 0 ;
8123 void *argp1 = 0 ;
8124 int res1 = 0 ;
8125 int argvi = 0;
8126 int result;
8127 dXSARGS;
8128
8129 if ((items < 1) || (items > 1)) {
8130 SWIG_croak("Usage: gsl_linalg_complex_cholesky_invert(cholesky);");
8131 }
8132 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
8133 if (!SWIG_IsOK(res1)) {
8134 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_complex_cholesky_invert" "', argument " "1"" of type '" "gsl_matrix_complex *""'");
8135 }
8136 arg1 = (gsl_matrix_complex *)(argp1);
8137 result = (int)gsl_linalg_complex_cholesky_invert(arg1);
8138 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8139
8140 XSRETURN(argvi);
8141 fail:
8142
8143 SWIG_croak_null();
8144 }
8145 }
8146
8147
XS(_wrap_gsl_linalg_pcholesky_decomp)8148 XS(_wrap_gsl_linalg_pcholesky_decomp) {
8149 {
8150 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
8151 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
8152 void *argp1 = 0 ;
8153 int res1 = 0 ;
8154 void *argp2 = 0 ;
8155 int res2 = 0 ;
8156 int argvi = 0;
8157 int result;
8158 dXSARGS;
8159
8160 if ((items < 2) || (items > 2)) {
8161 SWIG_croak("Usage: gsl_linalg_pcholesky_decomp(A,p);");
8162 }
8163 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
8164 if (!SWIG_IsOK(res1)) {
8165 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_pcholesky_decomp" "', argument " "1"" of type '" "gsl_matrix *""'");
8166 }
8167 arg1 = (gsl_matrix *)(argp1);
8168 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
8169 if (!SWIG_IsOK(res2)) {
8170 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_pcholesky_decomp" "', argument " "2"" of type '" "gsl_permutation *""'");
8171 }
8172 arg2 = (gsl_permutation *)(argp2);
8173 result = (int)gsl_linalg_pcholesky_decomp(arg1,arg2);
8174 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8175
8176
8177 XSRETURN(argvi);
8178 fail:
8179
8180
8181 SWIG_croak_null();
8182 }
8183 }
8184
8185
XS(_wrap_gsl_linalg_pcholesky_solve)8186 XS(_wrap_gsl_linalg_pcholesky_solve) {
8187 {
8188 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
8189 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
8190 gsl_vector *arg3 = (gsl_vector *) 0 ;
8191 gsl_vector *arg4 = (gsl_vector *) 0 ;
8192 void *argp1 = 0 ;
8193 int res1 = 0 ;
8194 void *argp2 = 0 ;
8195 int res2 = 0 ;
8196 void *argp3 = 0 ;
8197 int res3 = 0 ;
8198 void *argp4 = 0 ;
8199 int res4 = 0 ;
8200 int argvi = 0;
8201 int result;
8202 dXSARGS;
8203
8204 if ((items < 4) || (items > 4)) {
8205 SWIG_croak("Usage: gsl_linalg_pcholesky_solve(LDLT,p,b,x);");
8206 }
8207 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
8208 if (!SWIG_IsOK(res1)) {
8209 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_pcholesky_solve" "', argument " "1"" of type '" "gsl_matrix const *""'");
8210 }
8211 arg1 = (gsl_matrix *)(argp1);
8212 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
8213 if (!SWIG_IsOK(res2)) {
8214 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_pcholesky_solve" "', argument " "2"" of type '" "gsl_permutation const *""'");
8215 }
8216 arg2 = (gsl_permutation *)(argp2);
8217 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
8218 if (!SWIG_IsOK(res3)) {
8219 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_pcholesky_solve" "', argument " "3"" of type '" "gsl_vector const *""'");
8220 }
8221 arg3 = (gsl_vector *)(argp3);
8222 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
8223 if (!SWIG_IsOK(res4)) {
8224 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_pcholesky_solve" "', argument " "4"" of type '" "gsl_vector *""'");
8225 }
8226 arg4 = (gsl_vector *)(argp4);
8227 result = (int)gsl_linalg_pcholesky_solve((gsl_matrix const *)arg1,(struct gsl_permutation_struct const *)arg2,(gsl_vector const *)arg3,arg4);
8228 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8229
8230
8231
8232
8233 XSRETURN(argvi);
8234 fail:
8235
8236
8237
8238
8239 SWIG_croak_null();
8240 }
8241 }
8242
8243
XS(_wrap_gsl_linalg_pcholesky_svx)8244 XS(_wrap_gsl_linalg_pcholesky_svx) {
8245 {
8246 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
8247 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
8248 gsl_vector *arg3 = (gsl_vector *) 0 ;
8249 void *argp1 = 0 ;
8250 int res1 = 0 ;
8251 void *argp2 = 0 ;
8252 int res2 = 0 ;
8253 void *argp3 = 0 ;
8254 int res3 = 0 ;
8255 int argvi = 0;
8256 int result;
8257 dXSARGS;
8258
8259 if ((items < 3) || (items > 3)) {
8260 SWIG_croak("Usage: gsl_linalg_pcholesky_svx(LDLT,p,x);");
8261 }
8262 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
8263 if (!SWIG_IsOK(res1)) {
8264 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_pcholesky_svx" "', argument " "1"" of type '" "gsl_matrix const *""'");
8265 }
8266 arg1 = (gsl_matrix *)(argp1);
8267 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
8268 if (!SWIG_IsOK(res2)) {
8269 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_pcholesky_svx" "', argument " "2"" of type '" "gsl_permutation const *""'");
8270 }
8271 arg2 = (gsl_permutation *)(argp2);
8272 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
8273 if (!SWIG_IsOK(res3)) {
8274 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_pcholesky_svx" "', argument " "3"" of type '" "gsl_vector *""'");
8275 }
8276 arg3 = (gsl_vector *)(argp3);
8277 result = (int)gsl_linalg_pcholesky_svx((gsl_matrix const *)arg1,(struct gsl_permutation_struct const *)arg2,arg3);
8278 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8279
8280
8281
8282 XSRETURN(argvi);
8283 fail:
8284
8285
8286
8287 SWIG_croak_null();
8288 }
8289 }
8290
8291
XS(_wrap_gsl_linalg_pcholesky_decomp2)8292 XS(_wrap_gsl_linalg_pcholesky_decomp2) {
8293 {
8294 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
8295 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
8296 gsl_vector *arg3 = (gsl_vector *) 0 ;
8297 void *argp1 = 0 ;
8298 int res1 = 0 ;
8299 void *argp2 = 0 ;
8300 int res2 = 0 ;
8301 void *argp3 = 0 ;
8302 int res3 = 0 ;
8303 int argvi = 0;
8304 int result;
8305 dXSARGS;
8306
8307 if ((items < 3) || (items > 3)) {
8308 SWIG_croak("Usage: gsl_linalg_pcholesky_decomp2(A,p,S);");
8309 }
8310 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
8311 if (!SWIG_IsOK(res1)) {
8312 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_pcholesky_decomp2" "', argument " "1"" of type '" "gsl_matrix *""'");
8313 }
8314 arg1 = (gsl_matrix *)(argp1);
8315 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
8316 if (!SWIG_IsOK(res2)) {
8317 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_pcholesky_decomp2" "', argument " "2"" of type '" "gsl_permutation *""'");
8318 }
8319 arg2 = (gsl_permutation *)(argp2);
8320 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
8321 if (!SWIG_IsOK(res3)) {
8322 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_pcholesky_decomp2" "', argument " "3"" of type '" "gsl_vector *""'");
8323 }
8324 arg3 = (gsl_vector *)(argp3);
8325 result = (int)gsl_linalg_pcholesky_decomp2(arg1,arg2,arg3);
8326 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8327
8328
8329
8330 XSRETURN(argvi);
8331 fail:
8332
8333
8334
8335 SWIG_croak_null();
8336 }
8337 }
8338
8339
XS(_wrap_gsl_linalg_pcholesky_solve2)8340 XS(_wrap_gsl_linalg_pcholesky_solve2) {
8341 {
8342 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
8343 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
8344 gsl_vector *arg3 = (gsl_vector *) 0 ;
8345 gsl_vector *arg4 = (gsl_vector *) 0 ;
8346 gsl_vector *arg5 = (gsl_vector *) 0 ;
8347 void *argp1 = 0 ;
8348 int res1 = 0 ;
8349 void *argp2 = 0 ;
8350 int res2 = 0 ;
8351 void *argp3 = 0 ;
8352 int res3 = 0 ;
8353 void *argp4 = 0 ;
8354 int res4 = 0 ;
8355 void *argp5 = 0 ;
8356 int res5 = 0 ;
8357 int argvi = 0;
8358 int result;
8359 dXSARGS;
8360
8361 if ((items < 5) || (items > 5)) {
8362 SWIG_croak("Usage: gsl_linalg_pcholesky_solve2(LDLT,p,S,b,x);");
8363 }
8364 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
8365 if (!SWIG_IsOK(res1)) {
8366 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_pcholesky_solve2" "', argument " "1"" of type '" "gsl_matrix const *""'");
8367 }
8368 arg1 = (gsl_matrix *)(argp1);
8369 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
8370 if (!SWIG_IsOK(res2)) {
8371 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_pcholesky_solve2" "', argument " "2"" of type '" "gsl_permutation const *""'");
8372 }
8373 arg2 = (gsl_permutation *)(argp2);
8374 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
8375 if (!SWIG_IsOK(res3)) {
8376 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_pcholesky_solve2" "', argument " "3"" of type '" "gsl_vector const *""'");
8377 }
8378 arg3 = (gsl_vector *)(argp3);
8379 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
8380 if (!SWIG_IsOK(res4)) {
8381 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_pcholesky_solve2" "', argument " "4"" of type '" "gsl_vector const *""'");
8382 }
8383 arg4 = (gsl_vector *)(argp4);
8384 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
8385 if (!SWIG_IsOK(res5)) {
8386 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_pcholesky_solve2" "', argument " "5"" of type '" "gsl_vector *""'");
8387 }
8388 arg5 = (gsl_vector *)(argp5);
8389 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);
8390 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8391
8392
8393
8394
8395
8396 XSRETURN(argvi);
8397 fail:
8398
8399
8400
8401
8402
8403 SWIG_croak_null();
8404 }
8405 }
8406
8407
XS(_wrap_gsl_linalg_pcholesky_svx2)8408 XS(_wrap_gsl_linalg_pcholesky_svx2) {
8409 {
8410 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
8411 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
8412 gsl_vector *arg3 = (gsl_vector *) 0 ;
8413 gsl_vector *arg4 = (gsl_vector *) 0 ;
8414 void *argp1 = 0 ;
8415 int res1 = 0 ;
8416 void *argp2 = 0 ;
8417 int res2 = 0 ;
8418 void *argp3 = 0 ;
8419 int res3 = 0 ;
8420 void *argp4 = 0 ;
8421 int res4 = 0 ;
8422 int argvi = 0;
8423 int result;
8424 dXSARGS;
8425
8426 if ((items < 4) || (items > 4)) {
8427 SWIG_croak("Usage: gsl_linalg_pcholesky_svx2(LDLT,p,S,x);");
8428 }
8429 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
8430 if (!SWIG_IsOK(res1)) {
8431 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_pcholesky_svx2" "', argument " "1"" of type '" "gsl_matrix const *""'");
8432 }
8433 arg1 = (gsl_matrix *)(argp1);
8434 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
8435 if (!SWIG_IsOK(res2)) {
8436 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_pcholesky_svx2" "', argument " "2"" of type '" "gsl_permutation const *""'");
8437 }
8438 arg2 = (gsl_permutation *)(argp2);
8439 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
8440 if (!SWIG_IsOK(res3)) {
8441 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_pcholesky_svx2" "', argument " "3"" of type '" "gsl_vector const *""'");
8442 }
8443 arg3 = (gsl_vector *)(argp3);
8444 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
8445 if (!SWIG_IsOK(res4)) {
8446 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_pcholesky_svx2" "', argument " "4"" of type '" "gsl_vector *""'");
8447 }
8448 arg4 = (gsl_vector *)(argp4);
8449 result = (int)gsl_linalg_pcholesky_svx2((gsl_matrix const *)arg1,(struct gsl_permutation_struct const *)arg2,(gsl_vector const *)arg3,arg4);
8450 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8451
8452
8453
8454
8455 XSRETURN(argvi);
8456 fail:
8457
8458
8459
8460
8461 SWIG_croak_null();
8462 }
8463 }
8464
8465
XS(_wrap_gsl_linalg_pcholesky_invert)8466 XS(_wrap_gsl_linalg_pcholesky_invert) {
8467 {
8468 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
8469 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
8470 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
8471 void *argp1 = 0 ;
8472 int res1 = 0 ;
8473 void *argp2 = 0 ;
8474 int res2 = 0 ;
8475 void *argp3 = 0 ;
8476 int res3 = 0 ;
8477 int argvi = 0;
8478 int result;
8479 dXSARGS;
8480
8481 if ((items < 3) || (items > 3)) {
8482 SWIG_croak("Usage: gsl_linalg_pcholesky_invert(LDLT,p,Ainv);");
8483 }
8484 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
8485 if (!SWIG_IsOK(res1)) {
8486 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_pcholesky_invert" "', argument " "1"" of type '" "gsl_matrix const *""'");
8487 }
8488 arg1 = (gsl_matrix *)(argp1);
8489 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
8490 if (!SWIG_IsOK(res2)) {
8491 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_pcholesky_invert" "', argument " "2"" of type '" "gsl_permutation const *""'");
8492 }
8493 arg2 = (gsl_permutation *)(argp2);
8494 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
8495 if (!SWIG_IsOK(res3)) {
8496 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_pcholesky_invert" "', argument " "3"" of type '" "gsl_matrix *""'");
8497 }
8498 arg3 = (gsl_matrix *)(argp3);
8499 result = (int)gsl_linalg_pcholesky_invert((gsl_matrix const *)arg1,(struct gsl_permutation_struct const *)arg2,arg3);
8500 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8501
8502
8503
8504 XSRETURN(argvi);
8505 fail:
8506
8507
8508
8509 SWIG_croak_null();
8510 }
8511 }
8512
8513
XS(_wrap_gsl_linalg_pcholesky_rcond)8514 XS(_wrap_gsl_linalg_pcholesky_rcond) {
8515 {
8516 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
8517 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
8518 double *arg3 = (double *) 0 ;
8519 gsl_vector *arg4 = (gsl_vector *) 0 ;
8520 void *argp1 = 0 ;
8521 int res1 = 0 ;
8522 void *argp2 = 0 ;
8523 int res2 = 0 ;
8524 void *argp3 = 0 ;
8525 int res3 = 0 ;
8526 void *argp4 = 0 ;
8527 int res4 = 0 ;
8528 int argvi = 0;
8529 int result;
8530 dXSARGS;
8531
8532 if ((items < 4) || (items > 4)) {
8533 SWIG_croak("Usage: gsl_linalg_pcholesky_rcond(LDLT,p,rcond,work);");
8534 }
8535 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
8536 if (!SWIG_IsOK(res1)) {
8537 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_pcholesky_rcond" "', argument " "1"" of type '" "gsl_matrix const *""'");
8538 }
8539 arg1 = (gsl_matrix *)(argp1);
8540 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
8541 if (!SWIG_IsOK(res2)) {
8542 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_pcholesky_rcond" "', argument " "2"" of type '" "gsl_permutation const *""'");
8543 }
8544 arg2 = (gsl_permutation *)(argp2);
8545 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_double, 0 | 0 );
8546 if (!SWIG_IsOK(res3)) {
8547 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_pcholesky_rcond" "', argument " "3"" of type '" "double *""'");
8548 }
8549 arg3 = (double *)(argp3);
8550 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
8551 if (!SWIG_IsOK(res4)) {
8552 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_pcholesky_rcond" "', argument " "4"" of type '" "gsl_vector *""'");
8553 }
8554 arg4 = (gsl_vector *)(argp4);
8555 result = (int)gsl_linalg_pcholesky_rcond((gsl_matrix const *)arg1,(struct gsl_permutation_struct const *)arg2,arg3,arg4);
8556 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8557
8558
8559
8560
8561 XSRETURN(argvi);
8562 fail:
8563
8564
8565
8566
8567 SWIG_croak_null();
8568 }
8569 }
8570
8571
XS(_wrap_gsl_linalg_mcholesky_decomp)8572 XS(_wrap_gsl_linalg_mcholesky_decomp) {
8573 {
8574 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
8575 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
8576 gsl_vector *arg3 = (gsl_vector *) 0 ;
8577 void *argp1 = 0 ;
8578 int res1 = 0 ;
8579 void *argp2 = 0 ;
8580 int res2 = 0 ;
8581 void *argp3 = 0 ;
8582 int res3 = 0 ;
8583 int argvi = 0;
8584 int result;
8585 dXSARGS;
8586
8587 if ((items < 3) || (items > 3)) {
8588 SWIG_croak("Usage: gsl_linalg_mcholesky_decomp(A,p,E);");
8589 }
8590 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
8591 if (!SWIG_IsOK(res1)) {
8592 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_mcholesky_decomp" "', argument " "1"" of type '" "gsl_matrix *""'");
8593 }
8594 arg1 = (gsl_matrix *)(argp1);
8595 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
8596 if (!SWIG_IsOK(res2)) {
8597 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_mcholesky_decomp" "', argument " "2"" of type '" "gsl_permutation *""'");
8598 }
8599 arg2 = (gsl_permutation *)(argp2);
8600 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
8601 if (!SWIG_IsOK(res3)) {
8602 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_mcholesky_decomp" "', argument " "3"" of type '" "gsl_vector *""'");
8603 }
8604 arg3 = (gsl_vector *)(argp3);
8605 result = (int)gsl_linalg_mcholesky_decomp(arg1,arg2,arg3);
8606 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8607
8608
8609
8610 XSRETURN(argvi);
8611 fail:
8612
8613
8614
8615 SWIG_croak_null();
8616 }
8617 }
8618
8619
XS(_wrap_gsl_linalg_mcholesky_solve)8620 XS(_wrap_gsl_linalg_mcholesky_solve) {
8621 {
8622 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
8623 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
8624 gsl_vector *arg3 = (gsl_vector *) 0 ;
8625 gsl_vector *arg4 = (gsl_vector *) 0 ;
8626 void *argp1 = 0 ;
8627 int res1 = 0 ;
8628 void *argp2 = 0 ;
8629 int res2 = 0 ;
8630 void *argp3 = 0 ;
8631 int res3 = 0 ;
8632 void *argp4 = 0 ;
8633 int res4 = 0 ;
8634 int argvi = 0;
8635 int result;
8636 dXSARGS;
8637
8638 if ((items < 4) || (items > 4)) {
8639 SWIG_croak("Usage: gsl_linalg_mcholesky_solve(LDLT,p,b,x);");
8640 }
8641 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
8642 if (!SWIG_IsOK(res1)) {
8643 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_mcholesky_solve" "', argument " "1"" of type '" "gsl_matrix const *""'");
8644 }
8645 arg1 = (gsl_matrix *)(argp1);
8646 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
8647 if (!SWIG_IsOK(res2)) {
8648 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_mcholesky_solve" "', argument " "2"" of type '" "gsl_permutation const *""'");
8649 }
8650 arg2 = (gsl_permutation *)(argp2);
8651 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
8652 if (!SWIG_IsOK(res3)) {
8653 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_mcholesky_solve" "', argument " "3"" of type '" "gsl_vector const *""'");
8654 }
8655 arg3 = (gsl_vector *)(argp3);
8656 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
8657 if (!SWIG_IsOK(res4)) {
8658 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_mcholesky_solve" "', argument " "4"" of type '" "gsl_vector *""'");
8659 }
8660 arg4 = (gsl_vector *)(argp4);
8661 result = (int)gsl_linalg_mcholesky_solve((gsl_matrix const *)arg1,(struct gsl_permutation_struct const *)arg2,(gsl_vector const *)arg3,arg4);
8662 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8663
8664
8665
8666
8667 XSRETURN(argvi);
8668 fail:
8669
8670
8671
8672
8673 SWIG_croak_null();
8674 }
8675 }
8676
8677
XS(_wrap_gsl_linalg_mcholesky_svx)8678 XS(_wrap_gsl_linalg_mcholesky_svx) {
8679 {
8680 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
8681 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
8682 gsl_vector *arg3 = (gsl_vector *) 0 ;
8683 void *argp1 = 0 ;
8684 int res1 = 0 ;
8685 void *argp2 = 0 ;
8686 int res2 = 0 ;
8687 void *argp3 = 0 ;
8688 int res3 = 0 ;
8689 int argvi = 0;
8690 int result;
8691 dXSARGS;
8692
8693 if ((items < 3) || (items > 3)) {
8694 SWIG_croak("Usage: gsl_linalg_mcholesky_svx(LDLT,p,x);");
8695 }
8696 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
8697 if (!SWIG_IsOK(res1)) {
8698 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_mcholesky_svx" "', argument " "1"" of type '" "gsl_matrix const *""'");
8699 }
8700 arg1 = (gsl_matrix *)(argp1);
8701 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
8702 if (!SWIG_IsOK(res2)) {
8703 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_mcholesky_svx" "', argument " "2"" of type '" "gsl_permutation const *""'");
8704 }
8705 arg2 = (gsl_permutation *)(argp2);
8706 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
8707 if (!SWIG_IsOK(res3)) {
8708 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_mcholesky_svx" "', argument " "3"" of type '" "gsl_vector *""'");
8709 }
8710 arg3 = (gsl_vector *)(argp3);
8711 result = (int)gsl_linalg_mcholesky_svx((gsl_matrix const *)arg1,(struct gsl_permutation_struct const *)arg2,arg3);
8712 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8713
8714
8715
8716 XSRETURN(argvi);
8717 fail:
8718
8719
8720
8721 SWIG_croak_null();
8722 }
8723 }
8724
8725
XS(_wrap_gsl_linalg_mcholesky_rcond)8726 XS(_wrap_gsl_linalg_mcholesky_rcond) {
8727 {
8728 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
8729 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
8730 double *arg3 = (double *) 0 ;
8731 gsl_vector *arg4 = (gsl_vector *) 0 ;
8732 void *argp1 = 0 ;
8733 int res1 = 0 ;
8734 void *argp2 = 0 ;
8735 int res2 = 0 ;
8736 void *argp3 = 0 ;
8737 int res3 = 0 ;
8738 void *argp4 = 0 ;
8739 int res4 = 0 ;
8740 int argvi = 0;
8741 int result;
8742 dXSARGS;
8743
8744 if ((items < 4) || (items > 4)) {
8745 SWIG_croak("Usage: gsl_linalg_mcholesky_rcond(LDLT,p,rcond,work);");
8746 }
8747 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
8748 if (!SWIG_IsOK(res1)) {
8749 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_mcholesky_rcond" "', argument " "1"" of type '" "gsl_matrix const *""'");
8750 }
8751 arg1 = (gsl_matrix *)(argp1);
8752 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
8753 if (!SWIG_IsOK(res2)) {
8754 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_mcholesky_rcond" "', argument " "2"" of type '" "gsl_permutation const *""'");
8755 }
8756 arg2 = (gsl_permutation *)(argp2);
8757 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_double, 0 | 0 );
8758 if (!SWIG_IsOK(res3)) {
8759 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_mcholesky_rcond" "', argument " "3"" of type '" "double *""'");
8760 }
8761 arg3 = (double *)(argp3);
8762 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
8763 if (!SWIG_IsOK(res4)) {
8764 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_mcholesky_rcond" "', argument " "4"" of type '" "gsl_vector *""'");
8765 }
8766 arg4 = (gsl_vector *)(argp4);
8767 result = (int)gsl_linalg_mcholesky_rcond((gsl_matrix const *)arg1,(struct gsl_permutation_struct const *)arg2,arg3,arg4);
8768 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8769
8770
8771
8772
8773 XSRETURN(argvi);
8774 fail:
8775
8776
8777
8778
8779 SWIG_croak_null();
8780 }
8781 }
8782
8783
XS(_wrap_gsl_linalg_mcholesky_invert)8784 XS(_wrap_gsl_linalg_mcholesky_invert) {
8785 {
8786 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
8787 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
8788 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
8789 void *argp1 = 0 ;
8790 int res1 = 0 ;
8791 void *argp2 = 0 ;
8792 int res2 = 0 ;
8793 void *argp3 = 0 ;
8794 int res3 = 0 ;
8795 int argvi = 0;
8796 int result;
8797 dXSARGS;
8798
8799 if ((items < 3) || (items > 3)) {
8800 SWIG_croak("Usage: gsl_linalg_mcholesky_invert(LDLT,p,Ainv);");
8801 }
8802 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
8803 if (!SWIG_IsOK(res1)) {
8804 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_mcholesky_invert" "', argument " "1"" of type '" "gsl_matrix const *""'");
8805 }
8806 arg1 = (gsl_matrix *)(argp1);
8807 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
8808 if (!SWIG_IsOK(res2)) {
8809 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_mcholesky_invert" "', argument " "2"" of type '" "gsl_permutation const *""'");
8810 }
8811 arg2 = (gsl_permutation *)(argp2);
8812 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
8813 if (!SWIG_IsOK(res3)) {
8814 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_mcholesky_invert" "', argument " "3"" of type '" "gsl_matrix *""'");
8815 }
8816 arg3 = (gsl_matrix *)(argp3);
8817 result = (int)gsl_linalg_mcholesky_invert((gsl_matrix const *)arg1,(struct gsl_permutation_struct const *)arg2,arg3);
8818 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8819
8820
8821
8822 XSRETURN(argvi);
8823 fail:
8824
8825
8826
8827 SWIG_croak_null();
8828 }
8829 }
8830
8831
XS(_wrap_gsl_linalg_symmtd_decomp)8832 XS(_wrap_gsl_linalg_symmtd_decomp) {
8833 {
8834 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
8835 gsl_vector *arg2 = (gsl_vector *) 0 ;
8836 void *argp1 = 0 ;
8837 int res1 = 0 ;
8838 void *argp2 = 0 ;
8839 int res2 = 0 ;
8840 int argvi = 0;
8841 int result;
8842 dXSARGS;
8843
8844 if ((items < 2) || (items > 2)) {
8845 SWIG_croak("Usage: gsl_linalg_symmtd_decomp(A,tau);");
8846 }
8847 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
8848 if (!SWIG_IsOK(res1)) {
8849 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_symmtd_decomp" "', argument " "1"" of type '" "gsl_matrix *""'");
8850 }
8851 arg1 = (gsl_matrix *)(argp1);
8852 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
8853 if (!SWIG_IsOK(res2)) {
8854 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_symmtd_decomp" "', argument " "2"" of type '" "gsl_vector *""'");
8855 }
8856 arg2 = (gsl_vector *)(argp2);
8857 result = (int)gsl_linalg_symmtd_decomp(arg1,arg2);
8858 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8859
8860
8861 XSRETURN(argvi);
8862 fail:
8863
8864
8865 SWIG_croak_null();
8866 }
8867 }
8868
8869
XS(_wrap_gsl_linalg_symmtd_unpack)8870 XS(_wrap_gsl_linalg_symmtd_unpack) {
8871 {
8872 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
8873 gsl_vector *arg2 = (gsl_vector *) 0 ;
8874 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
8875 gsl_vector *arg4 = (gsl_vector *) 0 ;
8876 gsl_vector *arg5 = (gsl_vector *) 0 ;
8877 void *argp1 = 0 ;
8878 int res1 = 0 ;
8879 void *argp2 = 0 ;
8880 int res2 = 0 ;
8881 void *argp3 = 0 ;
8882 int res3 = 0 ;
8883 void *argp4 = 0 ;
8884 int res4 = 0 ;
8885 void *argp5 = 0 ;
8886 int res5 = 0 ;
8887 int argvi = 0;
8888 int result;
8889 dXSARGS;
8890
8891 if ((items < 5) || (items > 5)) {
8892 SWIG_croak("Usage: gsl_linalg_symmtd_unpack(A,tau,Q,diag,subdiag);");
8893 }
8894 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
8895 if (!SWIG_IsOK(res1)) {
8896 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_symmtd_unpack" "', argument " "1"" of type '" "gsl_matrix const *""'");
8897 }
8898 arg1 = (gsl_matrix *)(argp1);
8899 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
8900 if (!SWIG_IsOK(res2)) {
8901 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_symmtd_unpack" "', argument " "2"" of type '" "gsl_vector const *""'");
8902 }
8903 arg2 = (gsl_vector *)(argp2);
8904 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
8905 if (!SWIG_IsOK(res3)) {
8906 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_symmtd_unpack" "', argument " "3"" of type '" "gsl_matrix *""'");
8907 }
8908 arg3 = (gsl_matrix *)(argp3);
8909 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
8910 if (!SWIG_IsOK(res4)) {
8911 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_symmtd_unpack" "', argument " "4"" of type '" "gsl_vector *""'");
8912 }
8913 arg4 = (gsl_vector *)(argp4);
8914 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
8915 if (!SWIG_IsOK(res5)) {
8916 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_symmtd_unpack" "', argument " "5"" of type '" "gsl_vector *""'");
8917 }
8918 arg5 = (gsl_vector *)(argp5);
8919 result = (int)gsl_linalg_symmtd_unpack((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3,arg4,arg5);
8920 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8921
8922
8923
8924
8925
8926 XSRETURN(argvi);
8927 fail:
8928
8929
8930
8931
8932
8933 SWIG_croak_null();
8934 }
8935 }
8936
8937
XS(_wrap_gsl_linalg_symmtd_unpack_T)8938 XS(_wrap_gsl_linalg_symmtd_unpack_T) {
8939 {
8940 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
8941 gsl_vector *arg2 = (gsl_vector *) 0 ;
8942 gsl_vector *arg3 = (gsl_vector *) 0 ;
8943 void *argp1 = 0 ;
8944 int res1 = 0 ;
8945 void *argp2 = 0 ;
8946 int res2 = 0 ;
8947 void *argp3 = 0 ;
8948 int res3 = 0 ;
8949 int argvi = 0;
8950 int result;
8951 dXSARGS;
8952
8953 if ((items < 3) || (items > 3)) {
8954 SWIG_croak("Usage: gsl_linalg_symmtd_unpack_T(A,diag,subdiag);");
8955 }
8956 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
8957 if (!SWIG_IsOK(res1)) {
8958 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_symmtd_unpack_T" "', argument " "1"" of type '" "gsl_matrix const *""'");
8959 }
8960 arg1 = (gsl_matrix *)(argp1);
8961 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
8962 if (!SWIG_IsOK(res2)) {
8963 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_symmtd_unpack_T" "', argument " "2"" of type '" "gsl_vector *""'");
8964 }
8965 arg2 = (gsl_vector *)(argp2);
8966 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
8967 if (!SWIG_IsOK(res3)) {
8968 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_symmtd_unpack_T" "', argument " "3"" of type '" "gsl_vector *""'");
8969 }
8970 arg3 = (gsl_vector *)(argp3);
8971 result = (int)gsl_linalg_symmtd_unpack_T((gsl_matrix const *)arg1,arg2,arg3);
8972 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8973
8974
8975
8976 XSRETURN(argvi);
8977 fail:
8978
8979
8980
8981 SWIG_croak_null();
8982 }
8983 }
8984
8985
XS(_wrap_gsl_linalg_hermtd_decomp)8986 XS(_wrap_gsl_linalg_hermtd_decomp) {
8987 {
8988 gsl_matrix_complex *arg1 = (gsl_matrix_complex *) 0 ;
8989 gsl_vector_complex *arg2 = (gsl_vector_complex *) 0 ;
8990 void *argp1 = 0 ;
8991 int res1 = 0 ;
8992 void *argp2 = 0 ;
8993 int res2 = 0 ;
8994 int argvi = 0;
8995 int result;
8996 dXSARGS;
8997
8998 if ((items < 2) || (items > 2)) {
8999 SWIG_croak("Usage: gsl_linalg_hermtd_decomp(A,tau);");
9000 }
9001 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
9002 if (!SWIG_IsOK(res1)) {
9003 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_hermtd_decomp" "', argument " "1"" of type '" "gsl_matrix_complex *""'");
9004 }
9005 arg1 = (gsl_matrix_complex *)(argp1);
9006 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
9007 if (!SWIG_IsOK(res2)) {
9008 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_hermtd_decomp" "', argument " "2"" of type '" "gsl_vector_complex *""'");
9009 }
9010 arg2 = (gsl_vector_complex *)(argp2);
9011 result = (int)gsl_linalg_hermtd_decomp(arg1,arg2);
9012 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
9013
9014
9015 XSRETURN(argvi);
9016 fail:
9017
9018
9019 SWIG_croak_null();
9020 }
9021 }
9022
9023
XS(_wrap_gsl_linalg_hermtd_unpack)9024 XS(_wrap_gsl_linalg_hermtd_unpack) {
9025 {
9026 gsl_matrix_complex *arg1 = (gsl_matrix_complex *) 0 ;
9027 gsl_vector_complex *arg2 = (gsl_vector_complex *) 0 ;
9028 gsl_matrix_complex *arg3 = (gsl_matrix_complex *) 0 ;
9029 gsl_vector *arg4 = (gsl_vector *) 0 ;
9030 gsl_vector *arg5 = (gsl_vector *) 0 ;
9031 void *argp1 = 0 ;
9032 int res1 = 0 ;
9033 void *argp2 = 0 ;
9034 int res2 = 0 ;
9035 void *argp3 = 0 ;
9036 int res3 = 0 ;
9037 void *argp4 = 0 ;
9038 int res4 = 0 ;
9039 void *argp5 = 0 ;
9040 int res5 = 0 ;
9041 int argvi = 0;
9042 int result;
9043 dXSARGS;
9044
9045 if ((items < 5) || (items > 5)) {
9046 SWIG_croak("Usage: gsl_linalg_hermtd_unpack(A,tau,U,diag,sudiag);");
9047 }
9048 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
9049 if (!SWIG_IsOK(res1)) {
9050 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_hermtd_unpack" "', argument " "1"" of type '" "gsl_matrix_complex const *""'");
9051 }
9052 arg1 = (gsl_matrix_complex *)(argp1);
9053 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
9054 if (!SWIG_IsOK(res2)) {
9055 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_hermtd_unpack" "', argument " "2"" of type '" "gsl_vector_complex const *""'");
9056 }
9057 arg2 = (gsl_vector_complex *)(argp2);
9058 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
9059 if (!SWIG_IsOK(res3)) {
9060 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_hermtd_unpack" "', argument " "3"" of type '" "gsl_matrix_complex *""'");
9061 }
9062 arg3 = (gsl_matrix_complex *)(argp3);
9063 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
9064 if (!SWIG_IsOK(res4)) {
9065 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_hermtd_unpack" "', argument " "4"" of type '" "gsl_vector *""'");
9066 }
9067 arg4 = (gsl_vector *)(argp4);
9068 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
9069 if (!SWIG_IsOK(res5)) {
9070 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_hermtd_unpack" "', argument " "5"" of type '" "gsl_vector *""'");
9071 }
9072 arg5 = (gsl_vector *)(argp5);
9073 result = (int)gsl_linalg_hermtd_unpack((gsl_matrix_complex const *)arg1,(gsl_vector_complex const *)arg2,arg3,arg4,arg5);
9074 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
9075
9076
9077
9078
9079
9080 XSRETURN(argvi);
9081 fail:
9082
9083
9084
9085
9086
9087 SWIG_croak_null();
9088 }
9089 }
9090
9091
XS(_wrap_gsl_linalg_hermtd_unpack_T)9092 XS(_wrap_gsl_linalg_hermtd_unpack_T) {
9093 {
9094 gsl_matrix_complex *arg1 = (gsl_matrix_complex *) 0 ;
9095 gsl_vector *arg2 = (gsl_vector *) 0 ;
9096 gsl_vector *arg3 = (gsl_vector *) 0 ;
9097 void *argp1 = 0 ;
9098 int res1 = 0 ;
9099 void *argp2 = 0 ;
9100 int res2 = 0 ;
9101 void *argp3 = 0 ;
9102 int res3 = 0 ;
9103 int argvi = 0;
9104 int result;
9105 dXSARGS;
9106
9107 if ((items < 3) || (items > 3)) {
9108 SWIG_croak("Usage: gsl_linalg_hermtd_unpack_T(A,diag,subdiag);");
9109 }
9110 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
9111 if (!SWIG_IsOK(res1)) {
9112 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_hermtd_unpack_T" "', argument " "1"" of type '" "gsl_matrix_complex const *""'");
9113 }
9114 arg1 = (gsl_matrix_complex *)(argp1);
9115 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
9116 if (!SWIG_IsOK(res2)) {
9117 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_hermtd_unpack_T" "', argument " "2"" of type '" "gsl_vector *""'");
9118 }
9119 arg2 = (gsl_vector *)(argp2);
9120 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
9121 if (!SWIG_IsOK(res3)) {
9122 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_hermtd_unpack_T" "', argument " "3"" of type '" "gsl_vector *""'");
9123 }
9124 arg3 = (gsl_vector *)(argp3);
9125 result = (int)gsl_linalg_hermtd_unpack_T((gsl_matrix_complex const *)arg1,arg2,arg3);
9126 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
9127
9128
9129
9130 XSRETURN(argvi);
9131 fail:
9132
9133
9134
9135 SWIG_croak_null();
9136 }
9137 }
9138
9139
XS(_wrap_gsl_linalg_HH_solve)9140 XS(_wrap_gsl_linalg_HH_solve) {
9141 {
9142 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
9143 gsl_vector *arg2 = (gsl_vector *) 0 ;
9144 gsl_vector *arg3 = (gsl_vector *) 0 ;
9145 void *argp1 = 0 ;
9146 int res1 = 0 ;
9147 void *argp2 = 0 ;
9148 int res2 = 0 ;
9149 void *argp3 = 0 ;
9150 int res3 = 0 ;
9151 int argvi = 0;
9152 int result;
9153 dXSARGS;
9154
9155 if ((items < 3) || (items > 3)) {
9156 SWIG_croak("Usage: gsl_linalg_HH_solve(A,b,x);");
9157 }
9158 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
9159 if (!SWIG_IsOK(res1)) {
9160 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_HH_solve" "', argument " "1"" of type '" "gsl_matrix *""'");
9161 }
9162 arg1 = (gsl_matrix *)(argp1);
9163 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
9164 if (!SWIG_IsOK(res2)) {
9165 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_HH_solve" "', argument " "2"" of type '" "gsl_vector const *""'");
9166 }
9167 arg2 = (gsl_vector *)(argp2);
9168 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
9169 if (!SWIG_IsOK(res3)) {
9170 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_HH_solve" "', argument " "3"" of type '" "gsl_vector *""'");
9171 }
9172 arg3 = (gsl_vector *)(argp3);
9173 result = (int)gsl_linalg_HH_solve(arg1,(gsl_vector const *)arg2,arg3);
9174 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
9175
9176
9177
9178 XSRETURN(argvi);
9179 fail:
9180
9181
9182
9183 SWIG_croak_null();
9184 }
9185 }
9186
9187
XS(_wrap_gsl_linalg_HH_svx)9188 XS(_wrap_gsl_linalg_HH_svx) {
9189 {
9190 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
9191 gsl_vector *arg2 = (gsl_vector *) 0 ;
9192 void *argp1 = 0 ;
9193 int res1 = 0 ;
9194 void *argp2 = 0 ;
9195 int res2 = 0 ;
9196 int argvi = 0;
9197 int result;
9198 dXSARGS;
9199
9200 if ((items < 2) || (items > 2)) {
9201 SWIG_croak("Usage: gsl_linalg_HH_svx(A,x);");
9202 }
9203 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
9204 if (!SWIG_IsOK(res1)) {
9205 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_HH_svx" "', argument " "1"" of type '" "gsl_matrix *""'");
9206 }
9207 arg1 = (gsl_matrix *)(argp1);
9208 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
9209 if (!SWIG_IsOK(res2)) {
9210 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_HH_svx" "', argument " "2"" of type '" "gsl_vector *""'");
9211 }
9212 arg2 = (gsl_vector *)(argp2);
9213 result = (int)gsl_linalg_HH_svx(arg1,arg2);
9214 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
9215
9216
9217 XSRETURN(argvi);
9218 fail:
9219
9220
9221 SWIG_croak_null();
9222 }
9223 }
9224
9225
XS(_wrap_gsl_linalg_solve_symm_tridiag)9226 XS(_wrap_gsl_linalg_solve_symm_tridiag) {
9227 {
9228 gsl_vector *arg1 = (gsl_vector *) 0 ;
9229 gsl_vector *arg2 = (gsl_vector *) 0 ;
9230 gsl_vector *arg3 = (gsl_vector *) 0 ;
9231 gsl_vector *arg4 = (gsl_vector *) 0 ;
9232 void *argp1 = 0 ;
9233 int res1 = 0 ;
9234 void *argp2 = 0 ;
9235 int res2 = 0 ;
9236 void *argp3 = 0 ;
9237 int res3 = 0 ;
9238 void *argp4 = 0 ;
9239 int res4 = 0 ;
9240 int argvi = 0;
9241 int result;
9242 dXSARGS;
9243
9244 if ((items < 4) || (items > 4)) {
9245 SWIG_croak("Usage: gsl_linalg_solve_symm_tridiag(diag,offdiag,b,x);");
9246 }
9247 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
9248 if (!SWIG_IsOK(res1)) {
9249 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_solve_symm_tridiag" "', argument " "1"" of type '" "gsl_vector const *""'");
9250 }
9251 arg1 = (gsl_vector *)(argp1);
9252 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
9253 if (!SWIG_IsOK(res2)) {
9254 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_solve_symm_tridiag" "', argument " "2"" of type '" "gsl_vector const *""'");
9255 }
9256 arg2 = (gsl_vector *)(argp2);
9257 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
9258 if (!SWIG_IsOK(res3)) {
9259 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_solve_symm_tridiag" "', argument " "3"" of type '" "gsl_vector const *""'");
9260 }
9261 arg3 = (gsl_vector *)(argp3);
9262 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
9263 if (!SWIG_IsOK(res4)) {
9264 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_solve_symm_tridiag" "', argument " "4"" of type '" "gsl_vector *""'");
9265 }
9266 arg4 = (gsl_vector *)(argp4);
9267 result = (int)gsl_linalg_solve_symm_tridiag((gsl_vector const *)arg1,(gsl_vector const *)arg2,(gsl_vector const *)arg3,arg4);
9268 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
9269
9270
9271
9272
9273 XSRETURN(argvi);
9274 fail:
9275
9276
9277
9278
9279 SWIG_croak_null();
9280 }
9281 }
9282
9283
XS(_wrap_gsl_linalg_solve_tridiag)9284 XS(_wrap_gsl_linalg_solve_tridiag) {
9285 {
9286 gsl_vector *arg1 = (gsl_vector *) 0 ;
9287 gsl_vector *arg2 = (gsl_vector *) 0 ;
9288 gsl_vector *arg3 = (gsl_vector *) 0 ;
9289 gsl_vector *arg4 = (gsl_vector *) 0 ;
9290 gsl_vector *arg5 = (gsl_vector *) 0 ;
9291 void *argp1 = 0 ;
9292 int res1 = 0 ;
9293 void *argp2 = 0 ;
9294 int res2 = 0 ;
9295 void *argp3 = 0 ;
9296 int res3 = 0 ;
9297 void *argp4 = 0 ;
9298 int res4 = 0 ;
9299 void *argp5 = 0 ;
9300 int res5 = 0 ;
9301 int argvi = 0;
9302 int result;
9303 dXSARGS;
9304
9305 if ((items < 5) || (items > 5)) {
9306 SWIG_croak("Usage: gsl_linalg_solve_tridiag(diag,abovediag,belowdiag,b,x);");
9307 }
9308 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
9309 if (!SWIG_IsOK(res1)) {
9310 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_solve_tridiag" "', argument " "1"" of type '" "gsl_vector const *""'");
9311 }
9312 arg1 = (gsl_vector *)(argp1);
9313 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
9314 if (!SWIG_IsOK(res2)) {
9315 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_solve_tridiag" "', argument " "2"" of type '" "gsl_vector const *""'");
9316 }
9317 arg2 = (gsl_vector *)(argp2);
9318 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
9319 if (!SWIG_IsOK(res3)) {
9320 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_solve_tridiag" "', argument " "3"" of type '" "gsl_vector const *""'");
9321 }
9322 arg3 = (gsl_vector *)(argp3);
9323 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
9324 if (!SWIG_IsOK(res4)) {
9325 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_solve_tridiag" "', argument " "4"" of type '" "gsl_vector const *""'");
9326 }
9327 arg4 = (gsl_vector *)(argp4);
9328 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
9329 if (!SWIG_IsOK(res5)) {
9330 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_solve_tridiag" "', argument " "5"" of type '" "gsl_vector *""'");
9331 }
9332 arg5 = (gsl_vector *)(argp5);
9333 result = (int)gsl_linalg_solve_tridiag((gsl_vector const *)arg1,(gsl_vector const *)arg2,(gsl_vector const *)arg3,(gsl_vector const *)arg4,arg5);
9334 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
9335
9336
9337
9338
9339
9340 XSRETURN(argvi);
9341 fail:
9342
9343
9344
9345
9346
9347 SWIG_croak_null();
9348 }
9349 }
9350
9351
XS(_wrap_gsl_linalg_solve_symm_cyc_tridiag)9352 XS(_wrap_gsl_linalg_solve_symm_cyc_tridiag) {
9353 {
9354 gsl_vector *arg1 = (gsl_vector *) 0 ;
9355 gsl_vector *arg2 = (gsl_vector *) 0 ;
9356 gsl_vector *arg3 = (gsl_vector *) 0 ;
9357 gsl_vector *arg4 = (gsl_vector *) 0 ;
9358 void *argp1 = 0 ;
9359 int res1 = 0 ;
9360 void *argp2 = 0 ;
9361 int res2 = 0 ;
9362 void *argp3 = 0 ;
9363 int res3 = 0 ;
9364 void *argp4 = 0 ;
9365 int res4 = 0 ;
9366 int argvi = 0;
9367 int result;
9368 dXSARGS;
9369
9370 if ((items < 4) || (items > 4)) {
9371 SWIG_croak("Usage: gsl_linalg_solve_symm_cyc_tridiag(diag,offdiag,b,x);");
9372 }
9373 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
9374 if (!SWIG_IsOK(res1)) {
9375 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_solve_symm_cyc_tridiag" "', argument " "1"" of type '" "gsl_vector const *""'");
9376 }
9377 arg1 = (gsl_vector *)(argp1);
9378 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
9379 if (!SWIG_IsOK(res2)) {
9380 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_solve_symm_cyc_tridiag" "', argument " "2"" of type '" "gsl_vector const *""'");
9381 }
9382 arg2 = (gsl_vector *)(argp2);
9383 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
9384 if (!SWIG_IsOK(res3)) {
9385 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_solve_symm_cyc_tridiag" "', argument " "3"" of type '" "gsl_vector const *""'");
9386 }
9387 arg3 = (gsl_vector *)(argp3);
9388 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
9389 if (!SWIG_IsOK(res4)) {
9390 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_solve_symm_cyc_tridiag" "', argument " "4"" of type '" "gsl_vector *""'");
9391 }
9392 arg4 = (gsl_vector *)(argp4);
9393 result = (int)gsl_linalg_solve_symm_cyc_tridiag((gsl_vector const *)arg1,(gsl_vector const *)arg2,(gsl_vector const *)arg3,arg4);
9394 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
9395
9396
9397
9398
9399 XSRETURN(argvi);
9400 fail:
9401
9402
9403
9404
9405 SWIG_croak_null();
9406 }
9407 }
9408
9409
XS(_wrap_gsl_linalg_solve_cyc_tridiag)9410 XS(_wrap_gsl_linalg_solve_cyc_tridiag) {
9411 {
9412 gsl_vector *arg1 = (gsl_vector *) 0 ;
9413 gsl_vector *arg2 = (gsl_vector *) 0 ;
9414 gsl_vector *arg3 = (gsl_vector *) 0 ;
9415 gsl_vector *arg4 = (gsl_vector *) 0 ;
9416 gsl_vector *arg5 = (gsl_vector *) 0 ;
9417 void *argp1 = 0 ;
9418 int res1 = 0 ;
9419 void *argp2 = 0 ;
9420 int res2 = 0 ;
9421 void *argp3 = 0 ;
9422 int res3 = 0 ;
9423 void *argp4 = 0 ;
9424 int res4 = 0 ;
9425 void *argp5 = 0 ;
9426 int res5 = 0 ;
9427 int argvi = 0;
9428 int result;
9429 dXSARGS;
9430
9431 if ((items < 5) || (items > 5)) {
9432 SWIG_croak("Usage: gsl_linalg_solve_cyc_tridiag(diag,abovediag,belowdiag,b,x);");
9433 }
9434 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
9435 if (!SWIG_IsOK(res1)) {
9436 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_solve_cyc_tridiag" "', argument " "1"" of type '" "gsl_vector const *""'");
9437 }
9438 arg1 = (gsl_vector *)(argp1);
9439 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
9440 if (!SWIG_IsOK(res2)) {
9441 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_solve_cyc_tridiag" "', argument " "2"" of type '" "gsl_vector const *""'");
9442 }
9443 arg2 = (gsl_vector *)(argp2);
9444 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
9445 if (!SWIG_IsOK(res3)) {
9446 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_solve_cyc_tridiag" "', argument " "3"" of type '" "gsl_vector const *""'");
9447 }
9448 arg3 = (gsl_vector *)(argp3);
9449 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
9450 if (!SWIG_IsOK(res4)) {
9451 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_solve_cyc_tridiag" "', argument " "4"" of type '" "gsl_vector const *""'");
9452 }
9453 arg4 = (gsl_vector *)(argp4);
9454 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
9455 if (!SWIG_IsOK(res5)) {
9456 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_solve_cyc_tridiag" "', argument " "5"" of type '" "gsl_vector *""'");
9457 }
9458 arg5 = (gsl_vector *)(argp5);
9459 result = (int)gsl_linalg_solve_cyc_tridiag((gsl_vector const *)arg1,(gsl_vector const *)arg2,(gsl_vector const *)arg3,(gsl_vector const *)arg4,arg5);
9460 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
9461
9462
9463
9464
9465
9466 XSRETURN(argvi);
9467 fail:
9468
9469
9470
9471
9472
9473 SWIG_croak_null();
9474 }
9475 }
9476
9477
XS(_wrap_gsl_linalg_bidiag_decomp)9478 XS(_wrap_gsl_linalg_bidiag_decomp) {
9479 {
9480 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
9481 gsl_vector *arg2 = (gsl_vector *) 0 ;
9482 gsl_vector *arg3 = (gsl_vector *) 0 ;
9483 void *argp1 = 0 ;
9484 int res1 = 0 ;
9485 void *argp2 = 0 ;
9486 int res2 = 0 ;
9487 void *argp3 = 0 ;
9488 int res3 = 0 ;
9489 int argvi = 0;
9490 int result;
9491 dXSARGS;
9492
9493 if ((items < 3) || (items > 3)) {
9494 SWIG_croak("Usage: gsl_linalg_bidiag_decomp(A,tau_U,tau_V);");
9495 }
9496 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
9497 if (!SWIG_IsOK(res1)) {
9498 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_bidiag_decomp" "', argument " "1"" of type '" "gsl_matrix *""'");
9499 }
9500 arg1 = (gsl_matrix *)(argp1);
9501 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
9502 if (!SWIG_IsOK(res2)) {
9503 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_bidiag_decomp" "', argument " "2"" of type '" "gsl_vector *""'");
9504 }
9505 arg2 = (gsl_vector *)(argp2);
9506 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
9507 if (!SWIG_IsOK(res3)) {
9508 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_bidiag_decomp" "', argument " "3"" of type '" "gsl_vector *""'");
9509 }
9510 arg3 = (gsl_vector *)(argp3);
9511 result = (int)gsl_linalg_bidiag_decomp(arg1,arg2,arg3);
9512 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
9513
9514
9515
9516 XSRETURN(argvi);
9517 fail:
9518
9519
9520
9521 SWIG_croak_null();
9522 }
9523 }
9524
9525
XS(_wrap_gsl_linalg_bidiag_unpack)9526 XS(_wrap_gsl_linalg_bidiag_unpack) {
9527 {
9528 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
9529 gsl_vector *arg2 = (gsl_vector *) 0 ;
9530 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
9531 gsl_vector *arg4 = (gsl_vector *) 0 ;
9532 gsl_matrix *arg5 = (gsl_matrix *) 0 ;
9533 gsl_vector *arg6 = (gsl_vector *) 0 ;
9534 gsl_vector *arg7 = (gsl_vector *) 0 ;
9535 void *argp1 = 0 ;
9536 int res1 = 0 ;
9537 void *argp2 = 0 ;
9538 int res2 = 0 ;
9539 void *argp3 = 0 ;
9540 int res3 = 0 ;
9541 void *argp4 = 0 ;
9542 int res4 = 0 ;
9543 void *argp5 = 0 ;
9544 int res5 = 0 ;
9545 void *argp6 = 0 ;
9546 int res6 = 0 ;
9547 void *argp7 = 0 ;
9548 int res7 = 0 ;
9549 int argvi = 0;
9550 int result;
9551 dXSARGS;
9552
9553 if ((items < 7) || (items > 7)) {
9554 SWIG_croak("Usage: gsl_linalg_bidiag_unpack(A,tau_U,U,tau_V,V,diag,superdiag);");
9555 }
9556 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
9557 if (!SWIG_IsOK(res1)) {
9558 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_bidiag_unpack" "', argument " "1"" of type '" "gsl_matrix const *""'");
9559 }
9560 arg1 = (gsl_matrix *)(argp1);
9561 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
9562 if (!SWIG_IsOK(res2)) {
9563 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_bidiag_unpack" "', argument " "2"" of type '" "gsl_vector const *""'");
9564 }
9565 arg2 = (gsl_vector *)(argp2);
9566 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
9567 if (!SWIG_IsOK(res3)) {
9568 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_bidiag_unpack" "', argument " "3"" of type '" "gsl_matrix *""'");
9569 }
9570 arg3 = (gsl_matrix *)(argp3);
9571 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
9572 if (!SWIG_IsOK(res4)) {
9573 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_bidiag_unpack" "', argument " "4"" of type '" "gsl_vector const *""'");
9574 }
9575 arg4 = (gsl_vector *)(argp4);
9576 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_matrix, 0 | 0 );
9577 if (!SWIG_IsOK(res5)) {
9578 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_bidiag_unpack" "', argument " "5"" of type '" "gsl_matrix *""'");
9579 }
9580 arg5 = (gsl_matrix *)(argp5);
9581 res6 = SWIG_ConvertPtr(ST(5), &argp6,SWIGTYPE_p_gsl_vector, 0 | 0 );
9582 if (!SWIG_IsOK(res6)) {
9583 SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_linalg_bidiag_unpack" "', argument " "6"" of type '" "gsl_vector *""'");
9584 }
9585 arg6 = (gsl_vector *)(argp6);
9586 res7 = SWIG_ConvertPtr(ST(6), &argp7,SWIGTYPE_p_gsl_vector, 0 | 0 );
9587 if (!SWIG_IsOK(res7)) {
9588 SWIG_exception_fail(SWIG_ArgError(res7), "in method '" "gsl_linalg_bidiag_unpack" "', argument " "7"" of type '" "gsl_vector *""'");
9589 }
9590 arg7 = (gsl_vector *)(argp7);
9591 result = (int)gsl_linalg_bidiag_unpack((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3,(gsl_vector const *)arg4,arg5,arg6,arg7);
9592 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
9593
9594
9595
9596
9597
9598
9599
9600 XSRETURN(argvi);
9601 fail:
9602
9603
9604
9605
9606
9607
9608
9609 SWIG_croak_null();
9610 }
9611 }
9612
9613
XS(_wrap_gsl_linalg_bidiag_unpack2)9614 XS(_wrap_gsl_linalg_bidiag_unpack2) {
9615 {
9616 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
9617 gsl_vector *arg2 = (gsl_vector *) 0 ;
9618 gsl_vector *arg3 = (gsl_vector *) 0 ;
9619 gsl_matrix *arg4 = (gsl_matrix *) 0 ;
9620 void *argp1 = 0 ;
9621 int res1 = 0 ;
9622 void *argp2 = 0 ;
9623 int res2 = 0 ;
9624 void *argp3 = 0 ;
9625 int res3 = 0 ;
9626 void *argp4 = 0 ;
9627 int res4 = 0 ;
9628 int argvi = 0;
9629 int result;
9630 dXSARGS;
9631
9632 if ((items < 4) || (items > 4)) {
9633 SWIG_croak("Usage: gsl_linalg_bidiag_unpack2(A,tau_U,tau_V,V);");
9634 }
9635 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
9636 if (!SWIG_IsOK(res1)) {
9637 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_bidiag_unpack2" "', argument " "1"" of type '" "gsl_matrix *""'");
9638 }
9639 arg1 = (gsl_matrix *)(argp1);
9640 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
9641 if (!SWIG_IsOK(res2)) {
9642 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_bidiag_unpack2" "', argument " "2"" of type '" "gsl_vector *""'");
9643 }
9644 arg2 = (gsl_vector *)(argp2);
9645 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
9646 if (!SWIG_IsOK(res3)) {
9647 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_bidiag_unpack2" "', argument " "3"" of type '" "gsl_vector *""'");
9648 }
9649 arg3 = (gsl_vector *)(argp3);
9650 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_matrix, 0 | 0 );
9651 if (!SWIG_IsOK(res4)) {
9652 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_bidiag_unpack2" "', argument " "4"" of type '" "gsl_matrix *""'");
9653 }
9654 arg4 = (gsl_matrix *)(argp4);
9655 result = (int)gsl_linalg_bidiag_unpack2(arg1,arg2,arg3,arg4);
9656 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
9657
9658
9659
9660
9661 XSRETURN(argvi);
9662 fail:
9663
9664
9665
9666
9667 SWIG_croak_null();
9668 }
9669 }
9670
9671
XS(_wrap_gsl_linalg_bidiag_unpack_B)9672 XS(_wrap_gsl_linalg_bidiag_unpack_B) {
9673 {
9674 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
9675 gsl_vector *arg2 = (gsl_vector *) 0 ;
9676 gsl_vector *arg3 = (gsl_vector *) 0 ;
9677 void *argp1 = 0 ;
9678 int res1 = 0 ;
9679 void *argp2 = 0 ;
9680 int res2 = 0 ;
9681 void *argp3 = 0 ;
9682 int res3 = 0 ;
9683 int argvi = 0;
9684 int result;
9685 dXSARGS;
9686
9687 if ((items < 3) || (items > 3)) {
9688 SWIG_croak("Usage: gsl_linalg_bidiag_unpack_B(A,diag,superdiag);");
9689 }
9690 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
9691 if (!SWIG_IsOK(res1)) {
9692 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_bidiag_unpack_B" "', argument " "1"" of type '" "gsl_matrix const *""'");
9693 }
9694 arg1 = (gsl_matrix *)(argp1);
9695 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
9696 if (!SWIG_IsOK(res2)) {
9697 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_bidiag_unpack_B" "', argument " "2"" of type '" "gsl_vector *""'");
9698 }
9699 arg2 = (gsl_vector *)(argp2);
9700 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
9701 if (!SWIG_IsOK(res3)) {
9702 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_bidiag_unpack_B" "', argument " "3"" of type '" "gsl_vector *""'");
9703 }
9704 arg3 = (gsl_vector *)(argp3);
9705 result = (int)gsl_linalg_bidiag_unpack_B((gsl_matrix const *)arg1,arg2,arg3);
9706 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
9707
9708
9709
9710 XSRETURN(argvi);
9711 fail:
9712
9713
9714
9715 SWIG_croak_null();
9716 }
9717 }
9718
9719
XS(_wrap_gsl_linalg_balance_matrix)9720 XS(_wrap_gsl_linalg_balance_matrix) {
9721 {
9722 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
9723 gsl_vector *arg2 = (gsl_vector *) 0 ;
9724 void *argp1 = 0 ;
9725 int res1 = 0 ;
9726 void *argp2 = 0 ;
9727 int res2 = 0 ;
9728 int argvi = 0;
9729 int result;
9730 dXSARGS;
9731
9732 if ((items < 2) || (items > 2)) {
9733 SWIG_croak("Usage: gsl_linalg_balance_matrix(A,D);");
9734 }
9735 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
9736 if (!SWIG_IsOK(res1)) {
9737 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_balance_matrix" "', argument " "1"" of type '" "gsl_matrix *""'");
9738 }
9739 arg1 = (gsl_matrix *)(argp1);
9740 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
9741 if (!SWIG_IsOK(res2)) {
9742 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_balance_matrix" "', argument " "2"" of type '" "gsl_vector *""'");
9743 }
9744 arg2 = (gsl_vector *)(argp2);
9745 result = (int)gsl_linalg_balance_matrix(arg1,arg2);
9746 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
9747
9748
9749 XSRETURN(argvi);
9750 fail:
9751
9752
9753 SWIG_croak_null();
9754 }
9755 }
9756
9757
XS(_wrap_gsl_linalg_balance_accum)9758 XS(_wrap_gsl_linalg_balance_accum) {
9759 {
9760 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
9761 gsl_vector *arg2 = (gsl_vector *) 0 ;
9762 void *argp1 = 0 ;
9763 int res1 = 0 ;
9764 void *argp2 = 0 ;
9765 int res2 = 0 ;
9766 int argvi = 0;
9767 int result;
9768 dXSARGS;
9769
9770 if ((items < 2) || (items > 2)) {
9771 SWIG_croak("Usage: gsl_linalg_balance_accum(A,D);");
9772 }
9773 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
9774 if (!SWIG_IsOK(res1)) {
9775 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_balance_accum" "', argument " "1"" of type '" "gsl_matrix *""'");
9776 }
9777 arg1 = (gsl_matrix *)(argp1);
9778 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
9779 if (!SWIG_IsOK(res2)) {
9780 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_balance_accum" "', argument " "2"" of type '" "gsl_vector *""'");
9781 }
9782 arg2 = (gsl_vector *)(argp2);
9783 result = (int)gsl_linalg_balance_accum(arg1,arg2);
9784 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
9785
9786
9787 XSRETURN(argvi);
9788 fail:
9789
9790
9791 SWIG_croak_null();
9792 }
9793 }
9794
9795
XS(_wrap_gsl_linalg_balance_columns)9796 XS(_wrap_gsl_linalg_balance_columns) {
9797 {
9798 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
9799 gsl_vector *arg2 = (gsl_vector *) 0 ;
9800 void *argp1 = 0 ;
9801 int res1 = 0 ;
9802 void *argp2 = 0 ;
9803 int res2 = 0 ;
9804 int argvi = 0;
9805 int result;
9806 dXSARGS;
9807
9808 if ((items < 2) || (items > 2)) {
9809 SWIG_croak("Usage: gsl_linalg_balance_columns(A,D);");
9810 }
9811 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
9812 if (!SWIG_IsOK(res1)) {
9813 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_balance_columns" "', argument " "1"" of type '" "gsl_matrix *""'");
9814 }
9815 arg1 = (gsl_matrix *)(argp1);
9816 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
9817 if (!SWIG_IsOK(res2)) {
9818 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_balance_columns" "', argument " "2"" of type '" "gsl_vector *""'");
9819 }
9820 arg2 = (gsl_vector *)(argp2);
9821 result = (int)gsl_linalg_balance_columns(arg1,arg2);
9822 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
9823
9824
9825 XSRETURN(argvi);
9826 fail:
9827
9828
9829 SWIG_croak_null();
9830 }
9831 }
9832
9833
XS(_wrap_gsl_linalg_tri_upper_rcond)9834 XS(_wrap_gsl_linalg_tri_upper_rcond) {
9835 {
9836 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
9837 double *arg2 = (double *) 0 ;
9838 gsl_vector *arg3 = (gsl_vector *) 0 ;
9839 void *argp1 = 0 ;
9840 int res1 = 0 ;
9841 void *argp2 = 0 ;
9842 int res2 = 0 ;
9843 void *argp3 = 0 ;
9844 int res3 = 0 ;
9845 int argvi = 0;
9846 int result;
9847 dXSARGS;
9848
9849 if ((items < 3) || (items > 3)) {
9850 SWIG_croak("Usage: gsl_linalg_tri_upper_rcond(A,rcond,work);");
9851 }
9852 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
9853 if (!SWIG_IsOK(res1)) {
9854 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_tri_upper_rcond" "', argument " "1"" of type '" "gsl_matrix const *""'");
9855 }
9856 arg1 = (gsl_matrix *)(argp1);
9857 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_double, 0 | 0 );
9858 if (!SWIG_IsOK(res2)) {
9859 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_tri_upper_rcond" "', argument " "2"" of type '" "double *""'");
9860 }
9861 arg2 = (double *)(argp2);
9862 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
9863 if (!SWIG_IsOK(res3)) {
9864 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_tri_upper_rcond" "', argument " "3"" of type '" "gsl_vector *""'");
9865 }
9866 arg3 = (gsl_vector *)(argp3);
9867 result = (int)gsl_linalg_tri_upper_rcond((gsl_matrix const *)arg1,arg2,arg3);
9868 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
9869
9870
9871
9872 XSRETURN(argvi);
9873 fail:
9874
9875
9876
9877 SWIG_croak_null();
9878 }
9879 }
9880
9881
XS(_wrap_gsl_linalg_tri_lower_rcond)9882 XS(_wrap_gsl_linalg_tri_lower_rcond) {
9883 {
9884 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
9885 double *arg2 = (double *) 0 ;
9886 gsl_vector *arg3 = (gsl_vector *) 0 ;
9887 void *argp1 = 0 ;
9888 int res1 = 0 ;
9889 void *argp2 = 0 ;
9890 int res2 = 0 ;
9891 void *argp3 = 0 ;
9892 int res3 = 0 ;
9893 int argvi = 0;
9894 int result;
9895 dXSARGS;
9896
9897 if ((items < 3) || (items > 3)) {
9898 SWIG_croak("Usage: gsl_linalg_tri_lower_rcond(A,rcond,work);");
9899 }
9900 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
9901 if (!SWIG_IsOK(res1)) {
9902 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_tri_lower_rcond" "', argument " "1"" of type '" "gsl_matrix const *""'");
9903 }
9904 arg1 = (gsl_matrix *)(argp1);
9905 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_double, 0 | 0 );
9906 if (!SWIG_IsOK(res2)) {
9907 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_tri_lower_rcond" "', argument " "2"" of type '" "double *""'");
9908 }
9909 arg2 = (double *)(argp2);
9910 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
9911 if (!SWIG_IsOK(res3)) {
9912 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_tri_lower_rcond" "', argument " "3"" of type '" "gsl_vector *""'");
9913 }
9914 arg3 = (gsl_vector *)(argp3);
9915 result = (int)gsl_linalg_tri_lower_rcond((gsl_matrix const *)arg1,arg2,arg3);
9916 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
9917
9918
9919
9920 XSRETURN(argvi);
9921 fail:
9922
9923
9924
9925 SWIG_croak_null();
9926 }
9927 }
9928
9929
XS(_wrap_gsl_linalg_invnorm1)9930 XS(_wrap_gsl_linalg_invnorm1) {
9931 {
9932 size_t arg1 ;
9933 int (*arg2)(CBLAS_TRANSPOSE_t,gsl_vector *,void *) = (int (*)(CBLAS_TRANSPOSE_t,gsl_vector *,void *)) 0 ;
9934 void *arg3 = (void *) 0 ;
9935 double *arg4 = (double *) 0 ;
9936 gsl_vector *arg5 = (gsl_vector *) 0 ;
9937 size_t val1 ;
9938 int ecode1 = 0 ;
9939 int res3 ;
9940 void *argp4 = 0 ;
9941 int res4 = 0 ;
9942 void *argp5 = 0 ;
9943 int res5 = 0 ;
9944 int argvi = 0;
9945 int result;
9946 dXSARGS;
9947
9948 if ((items < 5) || (items > 5)) {
9949 SWIG_croak("Usage: gsl_linalg_invnorm1(N,Ainvx,params,Ainvnorm,work);");
9950 }
9951 ecode1 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
9952 if (!SWIG_IsOK(ecode1)) {
9953 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_linalg_invnorm1" "', argument " "1"" of type '" "size_t""'");
9954 }
9955 arg1 = (size_t)(val1);
9956 {
9957 int res = SWIG_ConvertFunctionPtr(ST(1), (void**)(&arg2), SWIGTYPE_p_f_CBLAS_TRANSPOSE_t_p_gsl_vector_p_void__int);
9958 if (!SWIG_IsOK(res)) {
9959 SWIG_exception_fail(SWIG_ArgError(res), "in method '" "gsl_linalg_invnorm1" "', argument " "2"" of type '" "int (*)(CBLAS_TRANSPOSE_t,gsl_vector *,void *)""'");
9960 }
9961 }
9962 res3 = SWIG_ConvertPtr(ST(2),SWIG_as_voidptrptr(&arg3), 0, 0);
9963 if (!SWIG_IsOK(res3)) {
9964 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_invnorm1" "', argument " "3"" of type '" "void *""'");
9965 }
9966 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_double, 0 | 0 );
9967 if (!SWIG_IsOK(res4)) {
9968 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_invnorm1" "', argument " "4"" of type '" "double *""'");
9969 }
9970 arg4 = (double *)(argp4);
9971 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
9972 if (!SWIG_IsOK(res5)) {
9973 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_invnorm1" "', argument " "5"" of type '" "gsl_vector *""'");
9974 }
9975 arg5 = (gsl_vector *)(argp5);
9976 result = (int)gsl_linalg_invnorm1(arg1,arg2,arg3,arg4,arg5);
9977 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
9978
9979
9980
9981
9982
9983 XSRETURN(argvi);
9984 fail:
9985
9986
9987
9988
9989
9990 SWIG_croak_null();
9991 }
9992 }
9993
9994
XS(_wrap_gsl_linalg_tri_upper_invert)9995 XS(_wrap_gsl_linalg_tri_upper_invert) {
9996 {
9997 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
9998 void *argp1 = 0 ;
9999 int res1 = 0 ;
10000 int argvi = 0;
10001 int result;
10002 dXSARGS;
10003
10004 if ((items < 1) || (items > 1)) {
10005 SWIG_croak("Usage: gsl_linalg_tri_upper_invert(T);");
10006 }
10007 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
10008 if (!SWIG_IsOK(res1)) {
10009 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_tri_upper_invert" "', argument " "1"" of type '" "gsl_matrix *""'");
10010 }
10011 arg1 = (gsl_matrix *)(argp1);
10012 result = (int)gsl_linalg_tri_upper_invert(arg1);
10013 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
10014
10015 XSRETURN(argvi);
10016 fail:
10017
10018 SWIG_croak_null();
10019 }
10020 }
10021
10022
XS(_wrap_gsl_linalg_tri_lower_invert)10023 XS(_wrap_gsl_linalg_tri_lower_invert) {
10024 {
10025 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
10026 void *argp1 = 0 ;
10027 int res1 = 0 ;
10028 int argvi = 0;
10029 int result;
10030 dXSARGS;
10031
10032 if ((items < 1) || (items > 1)) {
10033 SWIG_croak("Usage: gsl_linalg_tri_lower_invert(T);");
10034 }
10035 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
10036 if (!SWIG_IsOK(res1)) {
10037 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_tri_lower_invert" "', argument " "1"" of type '" "gsl_matrix *""'");
10038 }
10039 arg1 = (gsl_matrix *)(argp1);
10040 result = (int)gsl_linalg_tri_lower_invert(arg1);
10041 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
10042
10043 XSRETURN(argvi);
10044 fail:
10045
10046 SWIG_croak_null();
10047 }
10048 }
10049
10050
XS(_wrap_gsl_linalg_tri_upper_unit_invert)10051 XS(_wrap_gsl_linalg_tri_upper_unit_invert) {
10052 {
10053 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
10054 void *argp1 = 0 ;
10055 int res1 = 0 ;
10056 int argvi = 0;
10057 int result;
10058 dXSARGS;
10059
10060 if ((items < 1) || (items > 1)) {
10061 SWIG_croak("Usage: gsl_linalg_tri_upper_unit_invert(T);");
10062 }
10063 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
10064 if (!SWIG_IsOK(res1)) {
10065 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_tri_upper_unit_invert" "', argument " "1"" of type '" "gsl_matrix *""'");
10066 }
10067 arg1 = (gsl_matrix *)(argp1);
10068 result = (int)gsl_linalg_tri_upper_unit_invert(arg1);
10069 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
10070
10071 XSRETURN(argvi);
10072 fail:
10073
10074 SWIG_croak_null();
10075 }
10076 }
10077
10078
XS(_wrap_gsl_linalg_tri_lower_unit_invert)10079 XS(_wrap_gsl_linalg_tri_lower_unit_invert) {
10080 {
10081 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
10082 void *argp1 = 0 ;
10083 int res1 = 0 ;
10084 int argvi = 0;
10085 int result;
10086 dXSARGS;
10087
10088 if ((items < 1) || (items > 1)) {
10089 SWIG_croak("Usage: gsl_linalg_tri_lower_unit_invert(T);");
10090 }
10091 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
10092 if (!SWIG_IsOK(res1)) {
10093 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_tri_lower_unit_invert" "', argument " "1"" of type '" "gsl_matrix *""'");
10094 }
10095 arg1 = (gsl_matrix *)(argp1);
10096 result = (int)gsl_linalg_tri_lower_unit_invert(arg1);
10097 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
10098
10099 XSRETURN(argvi);
10100 fail:
10101
10102 SWIG_croak_null();
10103 }
10104 }
10105
10106
XS(_wrap_gsl_linalg_givens)10107 XS(_wrap_gsl_linalg_givens) {
10108 {
10109 double arg1 ;
10110 double arg2 ;
10111 double *arg3 = (double *) 0 ;
10112 double *arg4 = (double *) 0 ;
10113 double val1 ;
10114 int ecode1 = 0 ;
10115 double val2 ;
10116 int ecode2 = 0 ;
10117 double temp3 ;
10118 int res3 = SWIG_TMPOBJ ;
10119 double temp4 ;
10120 int res4 = SWIG_TMPOBJ ;
10121 int argvi = 0;
10122 dXSARGS;
10123
10124 arg3 = &temp3;
10125 arg4 = &temp4;
10126 if ((items < 2) || (items > 2)) {
10127 SWIG_croak("Usage: gsl_linalg_givens(a,b);");
10128 }
10129 ecode1 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
10130 if (!SWIG_IsOK(ecode1)) {
10131 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_linalg_givens" "', argument " "1"" of type '" "double""'");
10132 }
10133 arg1 = (double)(val1);
10134 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
10135 if (!SWIG_IsOK(ecode2)) {
10136 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_linalg_givens" "', argument " "2"" of type '" "double""'");
10137 }
10138 arg2 = (double)(val2);
10139 gsl_linalg_givens(arg1,arg2,arg3,arg4);
10140 ST(argvi) = &PL_sv_undef;
10141 if (SWIG_IsTmpObj(res3)) {
10142 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((*arg3)); argvi++ ;
10143 } else {
10144 int new_flags = SWIG_IsNewObj(res3) ? (SWIG_POINTER_OWN | 0) : 0;
10145 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg3), SWIGTYPE_p_double, new_flags); argvi++ ;
10146 }
10147 if (SWIG_IsTmpObj(res4)) {
10148 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((*arg4)); argvi++ ;
10149 } else {
10150 int new_flags = SWIG_IsNewObj(res4) ? (SWIG_POINTER_OWN | 0) : 0;
10151 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg4), SWIGTYPE_p_double, new_flags); argvi++ ;
10152 }
10153
10154
10155
10156
10157 XSRETURN(argvi);
10158 fail:
10159
10160
10161
10162
10163 SWIG_croak_null();
10164 }
10165 }
10166
10167
XS(_wrap_gsl_linalg_givens_gv)10168 XS(_wrap_gsl_linalg_givens_gv) {
10169 {
10170 gsl_vector *arg1 = (gsl_vector *) 0 ;
10171 size_t arg2 ;
10172 size_t arg3 ;
10173 double arg4 ;
10174 double arg5 ;
10175 void *argp1 = 0 ;
10176 int res1 = 0 ;
10177 size_t val2 ;
10178 int ecode2 = 0 ;
10179 size_t val3 ;
10180 int ecode3 = 0 ;
10181 double val4 ;
10182 int ecode4 = 0 ;
10183 double val5 ;
10184 int ecode5 = 0 ;
10185 int argvi = 0;
10186 dXSARGS;
10187
10188 if ((items < 5) || (items > 5)) {
10189 SWIG_croak("Usage: gsl_linalg_givens_gv(v,i,j,c,s);");
10190 }
10191 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
10192 if (!SWIG_IsOK(res1)) {
10193 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_givens_gv" "', argument " "1"" of type '" "gsl_vector *""'");
10194 }
10195 arg1 = (gsl_vector *)(argp1);
10196 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
10197 if (!SWIG_IsOK(ecode2)) {
10198 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_linalg_givens_gv" "', argument " "2"" of type '" "size_t""'");
10199 }
10200 arg2 = (size_t)(val2);
10201 ecode3 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
10202 if (!SWIG_IsOK(ecode3)) {
10203 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_linalg_givens_gv" "', argument " "3"" of type '" "size_t""'");
10204 }
10205 arg3 = (size_t)(val3);
10206 ecode4 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(3), &val4);
10207 if (!SWIG_IsOK(ecode4)) {
10208 SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "gsl_linalg_givens_gv" "', argument " "4"" of type '" "double""'");
10209 }
10210 arg4 = (double)(val4);
10211 ecode5 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(4), &val5);
10212 if (!SWIG_IsOK(ecode5)) {
10213 SWIG_exception_fail(SWIG_ArgError(ecode5), "in method '" "gsl_linalg_givens_gv" "', argument " "5"" of type '" "double""'");
10214 }
10215 arg5 = (double)(val5);
10216 gsl_linalg_givens_gv(arg1,arg2,arg3,arg4,arg5);
10217 ST(argvi) = &PL_sv_undef;
10218
10219
10220
10221
10222
10223 XSRETURN(argvi);
10224 fail:
10225
10226
10227
10228
10229
10230 SWIG_croak_null();
10231 }
10232 }
10233
10234
XS(_wrap_gsl_permutation_struct_size_set)10235 XS(_wrap_gsl_permutation_struct_size_set) {
10236 {
10237 struct gsl_permutation_struct *arg1 = (struct gsl_permutation_struct *) 0 ;
10238 size_t arg2 ;
10239 void *argp1 = 0 ;
10240 int res1 = 0 ;
10241 size_t val2 ;
10242 int ecode2 = 0 ;
10243 int argvi = 0;
10244 dXSARGS;
10245
10246 if ((items < 2) || (items > 2)) {
10247 SWIG_croak("Usage: gsl_permutation_struct_size_set(self,size);");
10248 }
10249 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
10250 if (!SWIG_IsOK(res1)) {
10251 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_struct_size_set" "', argument " "1"" of type '" "struct gsl_permutation_struct *""'");
10252 }
10253 arg1 = (struct gsl_permutation_struct *)(argp1);
10254 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
10255 if (!SWIG_IsOK(ecode2)) {
10256 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_permutation_struct_size_set" "', argument " "2"" of type '" "size_t""'");
10257 }
10258 arg2 = (size_t)(val2);
10259 if (arg1) (arg1)->size = arg2;
10260 ST(argvi) = &PL_sv_undef;
10261
10262
10263 XSRETURN(argvi);
10264 fail:
10265
10266
10267 SWIG_croak_null();
10268 }
10269 }
10270
10271
XS(_wrap_gsl_permutation_struct_size_get)10272 XS(_wrap_gsl_permutation_struct_size_get) {
10273 {
10274 struct gsl_permutation_struct *arg1 = (struct gsl_permutation_struct *) 0 ;
10275 void *argp1 = 0 ;
10276 int res1 = 0 ;
10277 int argvi = 0;
10278 size_t result;
10279 dXSARGS;
10280
10281 if ((items < 1) || (items > 1)) {
10282 SWIG_croak("Usage: gsl_permutation_struct_size_get(self);");
10283 }
10284 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
10285 if (!SWIG_IsOK(res1)) {
10286 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_struct_size_get" "', argument " "1"" of type '" "struct gsl_permutation_struct *""'");
10287 }
10288 arg1 = (struct gsl_permutation_struct *)(argp1);
10289 result = ((arg1)->size);
10290 ST(argvi) = SWIG_From_size_t SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
10291
10292 XSRETURN(argvi);
10293 fail:
10294
10295 SWIG_croak_null();
10296 }
10297 }
10298
10299
XS(_wrap_gsl_permutation_struct_data_set)10300 XS(_wrap_gsl_permutation_struct_data_set) {
10301 {
10302 struct gsl_permutation_struct *arg1 = (struct gsl_permutation_struct *) 0 ;
10303 size_t *arg2 = (size_t *) 0 ;
10304 void *argp1 = 0 ;
10305 int res1 = 0 ;
10306 void *argp2 = 0 ;
10307 int res2 = 0 ;
10308 int argvi = 0;
10309 dXSARGS;
10310
10311 if ((items < 2) || (items > 2)) {
10312 SWIG_croak("Usage: gsl_permutation_struct_data_set(self,data);");
10313 }
10314 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
10315 if (!SWIG_IsOK(res1)) {
10316 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_struct_data_set" "', argument " "1"" of type '" "struct gsl_permutation_struct *""'");
10317 }
10318 arg1 = (struct gsl_permutation_struct *)(argp1);
10319 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_size_t, SWIG_POINTER_DISOWN | 0 );
10320 if (!SWIG_IsOK(res2)) {
10321 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_permutation_struct_data_set" "', argument " "2"" of type '" "size_t *""'");
10322 }
10323 arg2 = (size_t *)(argp2);
10324 if (arg1) (arg1)->data = arg2;
10325 ST(argvi) = &PL_sv_undef;
10326
10327
10328 XSRETURN(argvi);
10329 fail:
10330
10331
10332 SWIG_croak_null();
10333 }
10334 }
10335
10336
XS(_wrap_gsl_permutation_struct_data_get)10337 XS(_wrap_gsl_permutation_struct_data_get) {
10338 {
10339 struct gsl_permutation_struct *arg1 = (struct gsl_permutation_struct *) 0 ;
10340 void *argp1 = 0 ;
10341 int res1 = 0 ;
10342 int argvi = 0;
10343 size_t *result = 0 ;
10344 dXSARGS;
10345
10346 if ((items < 1) || (items > 1)) {
10347 SWIG_croak("Usage: gsl_permutation_struct_data_get(self);");
10348 }
10349 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
10350 if (!SWIG_IsOK(res1)) {
10351 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_struct_data_get" "', argument " "1"" of type '" "struct gsl_permutation_struct *""'");
10352 }
10353 arg1 = (struct gsl_permutation_struct *)(argp1);
10354 result = (size_t *) ((arg1)->data);
10355 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_size_t, 0 | 0); argvi++ ;
10356
10357 XSRETURN(argvi);
10358 fail:
10359
10360 SWIG_croak_null();
10361 }
10362 }
10363
10364
XS(_wrap_new_gsl_permutation_struct)10365 XS(_wrap_new_gsl_permutation_struct) {
10366 {
10367 int argvi = 0;
10368 struct gsl_permutation_struct *result = 0 ;
10369 dXSARGS;
10370
10371 if ((items < 0) || (items > 0)) {
10372 SWIG_croak("Usage: new_gsl_permutation_struct();");
10373 }
10374 result = (struct gsl_permutation_struct *)calloc(1, sizeof(struct gsl_permutation_struct));
10375 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_permutation_struct, SWIG_OWNER | SWIG_SHADOW); argvi++ ;
10376 XSRETURN(argvi);
10377 fail:
10378 SWIG_croak_null();
10379 }
10380 }
10381
10382
XS(_wrap_delete_gsl_permutation_struct)10383 XS(_wrap_delete_gsl_permutation_struct) {
10384 {
10385 struct gsl_permutation_struct *arg1 = (struct gsl_permutation_struct *) 0 ;
10386 void *argp1 = 0 ;
10387 int res1 = 0 ;
10388 int argvi = 0;
10389 dXSARGS;
10390
10391 if ((items < 1) || (items > 1)) {
10392 SWIG_croak("Usage: delete_gsl_permutation_struct(self);");
10393 }
10394 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, SWIG_POINTER_DISOWN | 0 );
10395 if (!SWIG_IsOK(res1)) {
10396 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "delete_gsl_permutation_struct" "', argument " "1"" of type '" "struct gsl_permutation_struct *""'");
10397 }
10398 arg1 = (struct gsl_permutation_struct *)(argp1);
10399 free((char *) arg1);
10400 ST(argvi) = &PL_sv_undef;
10401
10402 XSRETURN(argvi);
10403 fail:
10404
10405 SWIG_croak_null();
10406 }
10407 }
10408
10409
XS(_wrap_gsl_permutation_alloc)10410 XS(_wrap_gsl_permutation_alloc) {
10411 {
10412 size_t arg1 ;
10413 size_t val1 ;
10414 int ecode1 = 0 ;
10415 int argvi = 0;
10416 gsl_permutation *result = 0 ;
10417 dXSARGS;
10418
10419 if ((items < 1) || (items > 1)) {
10420 SWIG_croak("Usage: gsl_permutation_alloc(n);");
10421 }
10422 ecode1 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
10423 if (!SWIG_IsOK(ecode1)) {
10424 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_permutation_alloc" "', argument " "1"" of type '" "size_t""'");
10425 }
10426 arg1 = (size_t)(val1);
10427 result = (gsl_permutation *)gsl_permutation_alloc(arg1);
10428 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_permutation_struct, 0 | SWIG_SHADOW); argvi++ ;
10429
10430 XSRETURN(argvi);
10431 fail:
10432
10433 SWIG_croak_null();
10434 }
10435 }
10436
10437
XS(_wrap_gsl_permutation_calloc)10438 XS(_wrap_gsl_permutation_calloc) {
10439 {
10440 size_t arg1 ;
10441 size_t val1 ;
10442 int ecode1 = 0 ;
10443 int argvi = 0;
10444 gsl_permutation *result = 0 ;
10445 dXSARGS;
10446
10447 if ((items < 1) || (items > 1)) {
10448 SWIG_croak("Usage: gsl_permutation_calloc(n);");
10449 }
10450 ecode1 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
10451 if (!SWIG_IsOK(ecode1)) {
10452 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_permutation_calloc" "', argument " "1"" of type '" "size_t""'");
10453 }
10454 arg1 = (size_t)(val1);
10455 result = (gsl_permutation *)gsl_permutation_calloc(arg1);
10456 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_permutation_struct, 0 | SWIG_SHADOW); argvi++ ;
10457
10458 XSRETURN(argvi);
10459 fail:
10460
10461 SWIG_croak_null();
10462 }
10463 }
10464
10465
XS(_wrap_gsl_permutation_init)10466 XS(_wrap_gsl_permutation_init) {
10467 {
10468 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
10469 void *argp1 = 0 ;
10470 int res1 = 0 ;
10471 int argvi = 0;
10472 dXSARGS;
10473
10474 if ((items < 1) || (items > 1)) {
10475 SWIG_croak("Usage: gsl_permutation_init(p);");
10476 }
10477 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
10478 if (!SWIG_IsOK(res1)) {
10479 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_init" "', argument " "1"" of type '" "gsl_permutation *""'");
10480 }
10481 arg1 = (gsl_permutation *)(argp1);
10482 gsl_permutation_init(arg1);
10483 ST(argvi) = &PL_sv_undef;
10484
10485 XSRETURN(argvi);
10486 fail:
10487
10488 SWIG_croak_null();
10489 }
10490 }
10491
10492
XS(_wrap_gsl_permutation_free)10493 XS(_wrap_gsl_permutation_free) {
10494 {
10495 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
10496 void *argp1 = 0 ;
10497 int res1 = 0 ;
10498 int argvi = 0;
10499 dXSARGS;
10500
10501 if ((items < 1) || (items > 1)) {
10502 SWIG_croak("Usage: gsl_permutation_free(p);");
10503 }
10504 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
10505 if (!SWIG_IsOK(res1)) {
10506 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_free" "', argument " "1"" of type '" "gsl_permutation *""'");
10507 }
10508 arg1 = (gsl_permutation *)(argp1);
10509 gsl_permutation_free(arg1);
10510 ST(argvi) = &PL_sv_undef;
10511
10512 XSRETURN(argvi);
10513 fail:
10514
10515 SWIG_croak_null();
10516 }
10517 }
10518
10519
XS(_wrap_gsl_permutation_memcpy)10520 XS(_wrap_gsl_permutation_memcpy) {
10521 {
10522 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
10523 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
10524 void *argp1 = 0 ;
10525 int res1 = 0 ;
10526 void *argp2 = 0 ;
10527 int res2 = 0 ;
10528 int argvi = 0;
10529 int result;
10530 dXSARGS;
10531
10532 if ((items < 2) || (items > 2)) {
10533 SWIG_croak("Usage: gsl_permutation_memcpy(dest,src);");
10534 }
10535 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
10536 if (!SWIG_IsOK(res1)) {
10537 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_memcpy" "', argument " "1"" of type '" "gsl_permutation *""'");
10538 }
10539 arg1 = (gsl_permutation *)(argp1);
10540 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
10541 if (!SWIG_IsOK(res2)) {
10542 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_permutation_memcpy" "', argument " "2"" of type '" "gsl_permutation const *""'");
10543 }
10544 arg2 = (gsl_permutation *)(argp2);
10545 result = (int)gsl_permutation_memcpy(arg1,(struct gsl_permutation_struct const *)arg2);
10546 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
10547
10548
10549 XSRETURN(argvi);
10550 fail:
10551
10552
10553 SWIG_croak_null();
10554 }
10555 }
10556
10557
XS(_wrap_gsl_permutation_fread)10558 XS(_wrap_gsl_permutation_fread) {
10559 {
10560 FILE *arg1 = (FILE *) 0 ;
10561 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
10562 void *argp1 = 0 ;
10563 int res1 = 0 ;
10564 void *argp2 = 0 ;
10565 int res2 = 0 ;
10566 int argvi = 0;
10567 int result;
10568 dXSARGS;
10569
10570 if ((items < 2) || (items > 2)) {
10571 SWIG_croak("Usage: gsl_permutation_fread(stream,p);");
10572 }
10573 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_FILE, 0 | 0 );
10574 if (!SWIG_IsOK(res1)) {
10575 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_fread" "', argument " "1"" of type '" "FILE *""'");
10576 }
10577 arg1 = (FILE *)(argp1);
10578 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
10579 if (!SWIG_IsOK(res2)) {
10580 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_permutation_fread" "', argument " "2"" of type '" "gsl_permutation *""'");
10581 }
10582 arg2 = (gsl_permutation *)(argp2);
10583 result = (int)gsl_permutation_fread(arg1,arg2);
10584 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
10585
10586
10587 XSRETURN(argvi);
10588 fail:
10589
10590
10591 SWIG_croak_null();
10592 }
10593 }
10594
10595
XS(_wrap_gsl_permutation_fwrite)10596 XS(_wrap_gsl_permutation_fwrite) {
10597 {
10598 FILE *arg1 = (FILE *) 0 ;
10599 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
10600 void *argp1 = 0 ;
10601 int res1 = 0 ;
10602 void *argp2 = 0 ;
10603 int res2 = 0 ;
10604 int argvi = 0;
10605 int result;
10606 dXSARGS;
10607
10608 if ((items < 2) || (items > 2)) {
10609 SWIG_croak("Usage: gsl_permutation_fwrite(stream,p);");
10610 }
10611 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_FILE, 0 | 0 );
10612 if (!SWIG_IsOK(res1)) {
10613 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_fwrite" "', argument " "1"" of type '" "FILE *""'");
10614 }
10615 arg1 = (FILE *)(argp1);
10616 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
10617 if (!SWIG_IsOK(res2)) {
10618 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_permutation_fwrite" "', argument " "2"" of type '" "gsl_permutation const *""'");
10619 }
10620 arg2 = (gsl_permutation *)(argp2);
10621 result = (int)gsl_permutation_fwrite(arg1,(struct gsl_permutation_struct const *)arg2);
10622 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
10623
10624
10625 XSRETURN(argvi);
10626 fail:
10627
10628
10629 SWIG_croak_null();
10630 }
10631 }
10632
10633
XS(_wrap_gsl_permutation_fscanf)10634 XS(_wrap_gsl_permutation_fscanf) {
10635 {
10636 FILE *arg1 = (FILE *) 0 ;
10637 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
10638 void *argp1 = 0 ;
10639 int res1 = 0 ;
10640 void *argp2 = 0 ;
10641 int res2 = 0 ;
10642 int argvi = 0;
10643 int result;
10644 dXSARGS;
10645
10646 if ((items < 2) || (items > 2)) {
10647 SWIG_croak("Usage: gsl_permutation_fscanf(stream,p);");
10648 }
10649 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_FILE, 0 | 0 );
10650 if (!SWIG_IsOK(res1)) {
10651 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_fscanf" "', argument " "1"" of type '" "FILE *""'");
10652 }
10653 arg1 = (FILE *)(argp1);
10654 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
10655 if (!SWIG_IsOK(res2)) {
10656 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_permutation_fscanf" "', argument " "2"" of type '" "gsl_permutation *""'");
10657 }
10658 arg2 = (gsl_permutation *)(argp2);
10659 result = (int)gsl_permutation_fscanf(arg1,arg2);
10660 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
10661
10662
10663 XSRETURN(argvi);
10664 fail:
10665
10666
10667 SWIG_croak_null();
10668 }
10669 }
10670
10671
XS(_wrap_gsl_permutation_fprintf)10672 XS(_wrap_gsl_permutation_fprintf) {
10673 {
10674 FILE *arg1 = (FILE *) 0 ;
10675 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
10676 char *arg3 = (char *) 0 ;
10677 void *argp1 = 0 ;
10678 int res1 = 0 ;
10679 void *argp2 = 0 ;
10680 int res2 = 0 ;
10681 int res3 ;
10682 char *buf3 = 0 ;
10683 int alloc3 = 0 ;
10684 int argvi = 0;
10685 int result;
10686 dXSARGS;
10687
10688 if ((items < 3) || (items > 3)) {
10689 SWIG_croak("Usage: gsl_permutation_fprintf(stream,p,format);");
10690 }
10691 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_FILE, 0 | 0 );
10692 if (!SWIG_IsOK(res1)) {
10693 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_fprintf" "', argument " "1"" of type '" "FILE *""'");
10694 }
10695 arg1 = (FILE *)(argp1);
10696 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
10697 if (!SWIG_IsOK(res2)) {
10698 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_permutation_fprintf" "', argument " "2"" of type '" "gsl_permutation const *""'");
10699 }
10700 arg2 = (gsl_permutation *)(argp2);
10701 res3 = SWIG_AsCharPtrAndSize(ST(2), &buf3, NULL, &alloc3);
10702 if (!SWIG_IsOK(res3)) {
10703 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_permutation_fprintf" "', argument " "3"" of type '" "char const *""'");
10704 }
10705 arg3 = (char *)(buf3);
10706 result = (int)gsl_permutation_fprintf(arg1,(struct gsl_permutation_struct const *)arg2,(char const *)arg3);
10707 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
10708
10709
10710 if (alloc3 == SWIG_NEWOBJ) free((char*)buf3);
10711 XSRETURN(argvi);
10712 fail:
10713
10714
10715 if (alloc3 == SWIG_NEWOBJ) free((char*)buf3);
10716 SWIG_croak_null();
10717 }
10718 }
10719
10720
XS(_wrap_gsl_permutation_size)10721 XS(_wrap_gsl_permutation_size) {
10722 {
10723 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
10724 void *argp1 = 0 ;
10725 int res1 = 0 ;
10726 int argvi = 0;
10727 size_t result;
10728 dXSARGS;
10729
10730 if ((items < 1) || (items > 1)) {
10731 SWIG_croak("Usage: gsl_permutation_size(p);");
10732 }
10733 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
10734 if (!SWIG_IsOK(res1)) {
10735 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_size" "', argument " "1"" of type '" "gsl_permutation const *""'");
10736 }
10737 arg1 = (gsl_permutation *)(argp1);
10738 result = gsl_permutation_size((struct gsl_permutation_struct const *)arg1);
10739 ST(argvi) = SWIG_From_size_t SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
10740
10741 XSRETURN(argvi);
10742 fail:
10743
10744 SWIG_croak_null();
10745 }
10746 }
10747
10748
XS(_wrap_gsl_permutation_data)10749 XS(_wrap_gsl_permutation_data) {
10750 {
10751 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
10752 void *argp1 = 0 ;
10753 int res1 = 0 ;
10754 int argvi = 0;
10755 size_t *result = 0 ;
10756 dXSARGS;
10757
10758 if ((items < 1) || (items > 1)) {
10759 SWIG_croak("Usage: gsl_permutation_data(p);");
10760 }
10761 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
10762 if (!SWIG_IsOK(res1)) {
10763 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_data" "', argument " "1"" of type '" "gsl_permutation const *""'");
10764 }
10765 arg1 = (gsl_permutation *)(argp1);
10766 result = (size_t *)gsl_permutation_data((struct gsl_permutation_struct const *)arg1);
10767 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_size_t, 0 | 0); argvi++ ;
10768
10769 XSRETURN(argvi);
10770 fail:
10771
10772 SWIG_croak_null();
10773 }
10774 }
10775
10776
XS(_wrap_gsl_permutation_swap)10777 XS(_wrap_gsl_permutation_swap) {
10778 {
10779 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
10780 size_t arg2 ;
10781 size_t arg3 ;
10782 void *argp1 = 0 ;
10783 int res1 = 0 ;
10784 size_t val2 ;
10785 int ecode2 = 0 ;
10786 size_t val3 ;
10787 int ecode3 = 0 ;
10788 int argvi = 0;
10789 int result;
10790 dXSARGS;
10791
10792 if ((items < 3) || (items > 3)) {
10793 SWIG_croak("Usage: gsl_permutation_swap(p,i,j);");
10794 }
10795 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
10796 if (!SWIG_IsOK(res1)) {
10797 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_swap" "', argument " "1"" of type '" "gsl_permutation *""'");
10798 }
10799 arg1 = (gsl_permutation *)(argp1);
10800 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
10801 if (!SWIG_IsOK(ecode2)) {
10802 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_permutation_swap" "', argument " "2"" of type '" "size_t""'");
10803 }
10804 arg2 = (size_t)(val2);
10805 ecode3 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
10806 if (!SWIG_IsOK(ecode3)) {
10807 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_permutation_swap" "', argument " "3"" of type '" "size_t""'");
10808 }
10809 arg3 = (size_t)(val3);
10810 result = (int)gsl_permutation_swap(arg1,arg2,arg3);
10811 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
10812
10813
10814
10815 XSRETURN(argvi);
10816 fail:
10817
10818
10819
10820 SWIG_croak_null();
10821 }
10822 }
10823
10824
XS(_wrap_gsl_permutation_valid)10825 XS(_wrap_gsl_permutation_valid) {
10826 {
10827 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
10828 void *argp1 = 0 ;
10829 int res1 = 0 ;
10830 int argvi = 0;
10831 int result;
10832 dXSARGS;
10833
10834 if ((items < 1) || (items > 1)) {
10835 SWIG_croak("Usage: gsl_permutation_valid(p);");
10836 }
10837 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
10838 if (!SWIG_IsOK(res1)) {
10839 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_valid" "', argument " "1"" of type '" "gsl_permutation const *""'");
10840 }
10841 arg1 = (gsl_permutation *)(argp1);
10842 result = (int)gsl_permutation_valid((struct gsl_permutation_struct const *)arg1);
10843 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
10844
10845 XSRETURN(argvi);
10846 fail:
10847
10848 SWIG_croak_null();
10849 }
10850 }
10851
10852
XS(_wrap_gsl_permutation_reverse)10853 XS(_wrap_gsl_permutation_reverse) {
10854 {
10855 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
10856 void *argp1 = 0 ;
10857 int res1 = 0 ;
10858 int argvi = 0;
10859 dXSARGS;
10860
10861 if ((items < 1) || (items > 1)) {
10862 SWIG_croak("Usage: gsl_permutation_reverse(p);");
10863 }
10864 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
10865 if (!SWIG_IsOK(res1)) {
10866 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_reverse" "', argument " "1"" of type '" "gsl_permutation *""'");
10867 }
10868 arg1 = (gsl_permutation *)(argp1);
10869 gsl_permutation_reverse(arg1);
10870 ST(argvi) = &PL_sv_undef;
10871
10872 XSRETURN(argvi);
10873 fail:
10874
10875 SWIG_croak_null();
10876 }
10877 }
10878
10879
XS(_wrap_gsl_permutation_inverse)10880 XS(_wrap_gsl_permutation_inverse) {
10881 {
10882 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
10883 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
10884 void *argp1 = 0 ;
10885 int res1 = 0 ;
10886 void *argp2 = 0 ;
10887 int res2 = 0 ;
10888 int argvi = 0;
10889 int result;
10890 dXSARGS;
10891
10892 if ((items < 2) || (items > 2)) {
10893 SWIG_croak("Usage: gsl_permutation_inverse(inv,p);");
10894 }
10895 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
10896 if (!SWIG_IsOK(res1)) {
10897 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_inverse" "', argument " "1"" of type '" "gsl_permutation *""'");
10898 }
10899 arg1 = (gsl_permutation *)(argp1);
10900 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
10901 if (!SWIG_IsOK(res2)) {
10902 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_permutation_inverse" "', argument " "2"" of type '" "gsl_permutation const *""'");
10903 }
10904 arg2 = (gsl_permutation *)(argp2);
10905 result = (int)gsl_permutation_inverse(arg1,(struct gsl_permutation_struct const *)arg2);
10906 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
10907
10908
10909 XSRETURN(argvi);
10910 fail:
10911
10912
10913 SWIG_croak_null();
10914 }
10915 }
10916
10917
XS(_wrap_gsl_permutation_next)10918 XS(_wrap_gsl_permutation_next) {
10919 {
10920 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
10921 void *argp1 = 0 ;
10922 int res1 = 0 ;
10923 int argvi = 0;
10924 int result;
10925 dXSARGS;
10926
10927 if ((items < 1) || (items > 1)) {
10928 SWIG_croak("Usage: gsl_permutation_next(p);");
10929 }
10930 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
10931 if (!SWIG_IsOK(res1)) {
10932 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_next" "', argument " "1"" of type '" "gsl_permutation *""'");
10933 }
10934 arg1 = (gsl_permutation *)(argp1);
10935 result = (int)gsl_permutation_next(arg1);
10936 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
10937
10938 XSRETURN(argvi);
10939 fail:
10940
10941 SWIG_croak_null();
10942 }
10943 }
10944
10945
XS(_wrap_gsl_permutation_prev)10946 XS(_wrap_gsl_permutation_prev) {
10947 {
10948 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
10949 void *argp1 = 0 ;
10950 int res1 = 0 ;
10951 int argvi = 0;
10952 int result;
10953 dXSARGS;
10954
10955 if ((items < 1) || (items > 1)) {
10956 SWIG_croak("Usage: gsl_permutation_prev(p);");
10957 }
10958 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
10959 if (!SWIG_IsOK(res1)) {
10960 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_prev" "', argument " "1"" of type '" "gsl_permutation *""'");
10961 }
10962 arg1 = (gsl_permutation *)(argp1);
10963 result = (int)gsl_permutation_prev(arg1);
10964 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
10965
10966 XSRETURN(argvi);
10967 fail:
10968
10969 SWIG_croak_null();
10970 }
10971 }
10972
10973
XS(_wrap_gsl_permutation_mul)10974 XS(_wrap_gsl_permutation_mul) {
10975 {
10976 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
10977 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
10978 gsl_permutation *arg3 = (gsl_permutation *) 0 ;
10979 void *argp1 = 0 ;
10980 int res1 = 0 ;
10981 void *argp2 = 0 ;
10982 int res2 = 0 ;
10983 void *argp3 = 0 ;
10984 int res3 = 0 ;
10985 int argvi = 0;
10986 int result;
10987 dXSARGS;
10988
10989 if ((items < 3) || (items > 3)) {
10990 SWIG_croak("Usage: gsl_permutation_mul(p,pa,pb);");
10991 }
10992 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
10993 if (!SWIG_IsOK(res1)) {
10994 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_mul" "', argument " "1"" of type '" "gsl_permutation *""'");
10995 }
10996 arg1 = (gsl_permutation *)(argp1);
10997 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
10998 if (!SWIG_IsOK(res2)) {
10999 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_permutation_mul" "', argument " "2"" of type '" "gsl_permutation const *""'");
11000 }
11001 arg2 = (gsl_permutation *)(argp2);
11002 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
11003 if (!SWIG_IsOK(res3)) {
11004 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_permutation_mul" "', argument " "3"" of type '" "gsl_permutation const *""'");
11005 }
11006 arg3 = (gsl_permutation *)(argp3);
11007 result = (int)gsl_permutation_mul(arg1,(struct gsl_permutation_struct const *)arg2,(struct gsl_permutation_struct const *)arg3);
11008 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
11009
11010
11011
11012 XSRETURN(argvi);
11013 fail:
11014
11015
11016
11017 SWIG_croak_null();
11018 }
11019 }
11020
11021
XS(_wrap_gsl_permutation_linear_to_canonical)11022 XS(_wrap_gsl_permutation_linear_to_canonical) {
11023 {
11024 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
11025 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
11026 void *argp1 = 0 ;
11027 int res1 = 0 ;
11028 void *argp2 = 0 ;
11029 int res2 = 0 ;
11030 int argvi = 0;
11031 int result;
11032 dXSARGS;
11033
11034 if ((items < 2) || (items > 2)) {
11035 SWIG_croak("Usage: gsl_permutation_linear_to_canonical(q,p);");
11036 }
11037 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
11038 if (!SWIG_IsOK(res1)) {
11039 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_linear_to_canonical" "', argument " "1"" of type '" "gsl_permutation *""'");
11040 }
11041 arg1 = (gsl_permutation *)(argp1);
11042 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
11043 if (!SWIG_IsOK(res2)) {
11044 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_permutation_linear_to_canonical" "', argument " "2"" of type '" "gsl_permutation const *""'");
11045 }
11046 arg2 = (gsl_permutation *)(argp2);
11047 result = (int)gsl_permutation_linear_to_canonical(arg1,(struct gsl_permutation_struct const *)arg2);
11048 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
11049
11050
11051 XSRETURN(argvi);
11052 fail:
11053
11054
11055 SWIG_croak_null();
11056 }
11057 }
11058
11059
XS(_wrap_gsl_permutation_canonical_to_linear)11060 XS(_wrap_gsl_permutation_canonical_to_linear) {
11061 {
11062 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
11063 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
11064 void *argp1 = 0 ;
11065 int res1 = 0 ;
11066 void *argp2 = 0 ;
11067 int res2 = 0 ;
11068 int argvi = 0;
11069 int result;
11070 dXSARGS;
11071
11072 if ((items < 2) || (items > 2)) {
11073 SWIG_croak("Usage: gsl_permutation_canonical_to_linear(p,q);");
11074 }
11075 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
11076 if (!SWIG_IsOK(res1)) {
11077 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_canonical_to_linear" "', argument " "1"" of type '" "gsl_permutation *""'");
11078 }
11079 arg1 = (gsl_permutation *)(argp1);
11080 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
11081 if (!SWIG_IsOK(res2)) {
11082 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_permutation_canonical_to_linear" "', argument " "2"" of type '" "gsl_permutation const *""'");
11083 }
11084 arg2 = (gsl_permutation *)(argp2);
11085 result = (int)gsl_permutation_canonical_to_linear(arg1,(struct gsl_permutation_struct const *)arg2);
11086 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
11087
11088
11089 XSRETURN(argvi);
11090 fail:
11091
11092
11093 SWIG_croak_null();
11094 }
11095 }
11096
11097
XS(_wrap_gsl_permutation_inversions)11098 XS(_wrap_gsl_permutation_inversions) {
11099 {
11100 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
11101 void *argp1 = 0 ;
11102 int res1 = 0 ;
11103 int argvi = 0;
11104 size_t result;
11105 dXSARGS;
11106
11107 if ((items < 1) || (items > 1)) {
11108 SWIG_croak("Usage: gsl_permutation_inversions(p);");
11109 }
11110 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
11111 if (!SWIG_IsOK(res1)) {
11112 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_inversions" "', argument " "1"" of type '" "gsl_permutation const *""'");
11113 }
11114 arg1 = (gsl_permutation *)(argp1);
11115 result = gsl_permutation_inversions((struct gsl_permutation_struct const *)arg1);
11116 ST(argvi) = SWIG_From_size_t SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
11117
11118 XSRETURN(argvi);
11119 fail:
11120
11121 SWIG_croak_null();
11122 }
11123 }
11124
11125
XS(_wrap_gsl_permutation_linear_cycles)11126 XS(_wrap_gsl_permutation_linear_cycles) {
11127 {
11128 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
11129 void *argp1 = 0 ;
11130 int res1 = 0 ;
11131 int argvi = 0;
11132 size_t result;
11133 dXSARGS;
11134
11135 if ((items < 1) || (items > 1)) {
11136 SWIG_croak("Usage: gsl_permutation_linear_cycles(p);");
11137 }
11138 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
11139 if (!SWIG_IsOK(res1)) {
11140 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_linear_cycles" "', argument " "1"" of type '" "gsl_permutation const *""'");
11141 }
11142 arg1 = (gsl_permutation *)(argp1);
11143 result = gsl_permutation_linear_cycles((struct gsl_permutation_struct const *)arg1);
11144 ST(argvi) = SWIG_From_size_t SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
11145
11146 XSRETURN(argvi);
11147 fail:
11148
11149 SWIG_croak_null();
11150 }
11151 }
11152
11153
XS(_wrap_gsl_permutation_canonical_cycles)11154 XS(_wrap_gsl_permutation_canonical_cycles) {
11155 {
11156 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
11157 void *argp1 = 0 ;
11158 int res1 = 0 ;
11159 int argvi = 0;
11160 size_t result;
11161 dXSARGS;
11162
11163 if ((items < 1) || (items > 1)) {
11164 SWIG_croak("Usage: gsl_permutation_canonical_cycles(q);");
11165 }
11166 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
11167 if (!SWIG_IsOK(res1)) {
11168 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_canonical_cycles" "', argument " "1"" of type '" "gsl_permutation const *""'");
11169 }
11170 arg1 = (gsl_permutation *)(argp1);
11171 result = gsl_permutation_canonical_cycles((struct gsl_permutation_struct const *)arg1);
11172 ST(argvi) = SWIG_From_size_t SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
11173
11174 XSRETURN(argvi);
11175 fail:
11176
11177 SWIG_croak_null();
11178 }
11179 }
11180
11181
XS(_wrap_gsl_permutation_get)11182 XS(_wrap_gsl_permutation_get) {
11183 {
11184 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
11185 size_t arg2 ;
11186 void *argp1 = 0 ;
11187 int res1 = 0 ;
11188 size_t val2 ;
11189 int ecode2 = 0 ;
11190 int argvi = 0;
11191 size_t result;
11192 dXSARGS;
11193
11194 if ((items < 2) || (items > 2)) {
11195 SWIG_croak("Usage: gsl_permutation_get(p,i);");
11196 }
11197 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
11198 if (!SWIG_IsOK(res1)) {
11199 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_get" "', argument " "1"" of type '" "gsl_permutation const *""'");
11200 }
11201 arg1 = (gsl_permutation *)(argp1);
11202 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
11203 if (!SWIG_IsOK(ecode2)) {
11204 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_permutation_get" "', argument " "2"" of type '" "size_t""'");
11205 }
11206 arg2 = (size_t)(val2);
11207 result = gsl_permutation_get((struct gsl_permutation_struct const *)arg1,arg2);
11208 ST(argvi) = SWIG_From_size_t SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
11209
11210
11211 XSRETURN(argvi);
11212 fail:
11213
11214
11215 SWIG_croak_null();
11216 }
11217 }
11218
11219
XS(_wrap_gsl_complex_dat_set)11220 XS(_wrap_gsl_complex_dat_set) {
11221 {
11222 gsl_complex *arg1 = (gsl_complex *) 0 ;
11223 double *arg2 ;
11224 void *argp1 = 0 ;
11225 int res1 = 0 ;
11226 void *argp2 = 0 ;
11227 int res2 = 0 ;
11228 int argvi = 0;
11229 dXSARGS;
11230
11231 if ((items < 2) || (items > 2)) {
11232 SWIG_croak("Usage: gsl_complex_dat_set(self,dat);");
11233 }
11234 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_complex, 0 | 0 );
11235 if (!SWIG_IsOK(res1)) {
11236 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_dat_set" "', argument " "1"" of type '" "gsl_complex *""'");
11237 }
11238 arg1 = (gsl_complex *)(argp1);
11239 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_double, 0 | 0 );
11240 if (!SWIG_IsOK(res2)) {
11241 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_complex_dat_set" "', argument " "2"" of type '" "double [2]""'");
11242 }
11243 arg2 = (double *)(argp2);
11244 {
11245 if (arg2) {
11246 size_t ii = 0;
11247 for (; ii < (size_t)2; ++ii) *(double *)&arg1->dat[ii] = *((double *)arg2 + ii);
11248 } else {
11249 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in variable '""dat""' of type '""double [2]""'");
11250 }
11251 }
11252 ST(argvi) = &PL_sv_undef;
11253
11254
11255 XSRETURN(argvi);
11256 fail:
11257
11258
11259 SWIG_croak_null();
11260 }
11261 }
11262
11263
XS(_wrap_gsl_complex_dat_get)11264 XS(_wrap_gsl_complex_dat_get) {
11265 {
11266 gsl_complex *arg1 = (gsl_complex *) 0 ;
11267 void *argp1 = 0 ;
11268 int res1 = 0 ;
11269 int argvi = 0;
11270 double *result = 0 ;
11271 dXSARGS;
11272
11273 if ((items < 1) || (items > 1)) {
11274 SWIG_croak("Usage: gsl_complex_dat_get(self);");
11275 }
11276 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_complex, 0 | 0 );
11277 if (!SWIG_IsOK(res1)) {
11278 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_dat_get" "', argument " "1"" of type '" "gsl_complex *""'");
11279 }
11280 arg1 = (gsl_complex *)(argp1);
11281 result = (double *)(double *) ((arg1)->dat);
11282 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_double, 0 | 0); argvi++ ;
11283
11284 XSRETURN(argvi);
11285 fail:
11286
11287 SWIG_croak_null();
11288 }
11289 }
11290
11291
XS(_wrap_new_gsl_complex)11292 XS(_wrap_new_gsl_complex) {
11293 {
11294 int argvi = 0;
11295 gsl_complex *result = 0 ;
11296 dXSARGS;
11297
11298 if ((items < 0) || (items > 0)) {
11299 SWIG_croak("Usage: new_gsl_complex();");
11300 }
11301 result = (gsl_complex *)calloc(1, sizeof(gsl_complex));
11302 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_complex, SWIG_OWNER | SWIG_SHADOW); argvi++ ;
11303 XSRETURN(argvi);
11304 fail:
11305 SWIG_croak_null();
11306 }
11307 }
11308
11309
XS(_wrap_delete_gsl_complex)11310 XS(_wrap_delete_gsl_complex) {
11311 {
11312 gsl_complex *arg1 = (gsl_complex *) 0 ;
11313 void *argp1 = 0 ;
11314 int res1 = 0 ;
11315 int argvi = 0;
11316 dXSARGS;
11317
11318 if ((items < 1) || (items > 1)) {
11319 SWIG_croak("Usage: delete_gsl_complex(self);");
11320 }
11321 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_complex, SWIG_POINTER_DISOWN | 0 );
11322 if (!SWIG_IsOK(res1)) {
11323 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "delete_gsl_complex" "', argument " "1"" of type '" "gsl_complex *""'");
11324 }
11325 arg1 = (gsl_complex *)(argp1);
11326 free((char *) arg1);
11327 ST(argvi) = &PL_sv_undef;
11328
11329 XSRETURN(argvi);
11330 fail:
11331
11332 SWIG_croak_null();
11333 }
11334 }
11335
11336
XS(_wrap_gsl_complex_long_double_dat_set)11337 XS(_wrap_gsl_complex_long_double_dat_set) {
11338 {
11339 gsl_complex_long_double *arg1 = (gsl_complex_long_double *) 0 ;
11340 long double *arg2 ;
11341 void *argp1 = 0 ;
11342 int res1 = 0 ;
11343 void *argp2 = 0 ;
11344 int res2 = 0 ;
11345 int argvi = 0;
11346 dXSARGS;
11347
11348 if ((items < 2) || (items > 2)) {
11349 SWIG_croak("Usage: gsl_complex_long_double_dat_set(self,dat);");
11350 }
11351 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_complex_long_double, 0 | 0 );
11352 if (!SWIG_IsOK(res1)) {
11353 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_long_double_dat_set" "', argument " "1"" of type '" "gsl_complex_long_double *""'");
11354 }
11355 arg1 = (gsl_complex_long_double *)(argp1);
11356 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_long_double, 0 | 0 );
11357 if (!SWIG_IsOK(res2)) {
11358 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_complex_long_double_dat_set" "', argument " "2"" of type '" "long double [2]""'");
11359 }
11360 arg2 = (long double *)(argp2);
11361 {
11362 if (arg2) {
11363 size_t ii = 0;
11364 for (; ii < (size_t)2; ++ii) *(long double *)&arg1->dat[ii] = *((long double *)arg2 + ii);
11365 } else {
11366 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in variable '""dat""' of type '""long double [2]""'");
11367 }
11368 }
11369 ST(argvi) = &PL_sv_undef;
11370
11371
11372 XSRETURN(argvi);
11373 fail:
11374
11375
11376 SWIG_croak_null();
11377 }
11378 }
11379
11380
XS(_wrap_gsl_complex_long_double_dat_get)11381 XS(_wrap_gsl_complex_long_double_dat_get) {
11382 {
11383 gsl_complex_long_double *arg1 = (gsl_complex_long_double *) 0 ;
11384 void *argp1 = 0 ;
11385 int res1 = 0 ;
11386 int argvi = 0;
11387 long double *result = 0 ;
11388 dXSARGS;
11389
11390 if ((items < 1) || (items > 1)) {
11391 SWIG_croak("Usage: gsl_complex_long_double_dat_get(self);");
11392 }
11393 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_complex_long_double, 0 | 0 );
11394 if (!SWIG_IsOK(res1)) {
11395 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_long_double_dat_get" "', argument " "1"" of type '" "gsl_complex_long_double *""'");
11396 }
11397 arg1 = (gsl_complex_long_double *)(argp1);
11398 result = (long double *)(long double *) ((arg1)->dat);
11399 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_long_double, 0 | 0); argvi++ ;
11400
11401 XSRETURN(argvi);
11402 fail:
11403
11404 SWIG_croak_null();
11405 }
11406 }
11407
11408
XS(_wrap_new_gsl_complex_long_double)11409 XS(_wrap_new_gsl_complex_long_double) {
11410 {
11411 int argvi = 0;
11412 gsl_complex_long_double *result = 0 ;
11413 dXSARGS;
11414
11415 if ((items < 0) || (items > 0)) {
11416 SWIG_croak("Usage: new_gsl_complex_long_double();");
11417 }
11418 result = (gsl_complex_long_double *)calloc(1, sizeof(gsl_complex_long_double));
11419 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_complex_long_double, SWIG_OWNER | SWIG_SHADOW); argvi++ ;
11420 XSRETURN(argvi);
11421 fail:
11422 SWIG_croak_null();
11423 }
11424 }
11425
11426
XS(_wrap_delete_gsl_complex_long_double)11427 XS(_wrap_delete_gsl_complex_long_double) {
11428 {
11429 gsl_complex_long_double *arg1 = (gsl_complex_long_double *) 0 ;
11430 void *argp1 = 0 ;
11431 int res1 = 0 ;
11432 int argvi = 0;
11433 dXSARGS;
11434
11435 if ((items < 1) || (items > 1)) {
11436 SWIG_croak("Usage: delete_gsl_complex_long_double(self);");
11437 }
11438 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_complex_long_double, SWIG_POINTER_DISOWN | 0 );
11439 if (!SWIG_IsOK(res1)) {
11440 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "delete_gsl_complex_long_double" "', argument " "1"" of type '" "gsl_complex_long_double *""'");
11441 }
11442 arg1 = (gsl_complex_long_double *)(argp1);
11443 free((char *) arg1);
11444 ST(argvi) = &PL_sv_undef;
11445
11446 XSRETURN(argvi);
11447 fail:
11448
11449 SWIG_croak_null();
11450 }
11451 }
11452
11453
XS(_wrap_gsl_complex_float_dat_set)11454 XS(_wrap_gsl_complex_float_dat_set) {
11455 {
11456 gsl_complex_float *arg1 = (gsl_complex_float *) 0 ;
11457 float *arg2 ;
11458 void *argp1 = 0 ;
11459 int res1 = 0 ;
11460 void *argp2 = 0 ;
11461 int res2 = 0 ;
11462 int argvi = 0;
11463 dXSARGS;
11464
11465 if ((items < 2) || (items > 2)) {
11466 SWIG_croak("Usage: gsl_complex_float_dat_set(self,dat);");
11467 }
11468 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_complex_float, 0 | 0 );
11469 if (!SWIG_IsOK(res1)) {
11470 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_float_dat_set" "', argument " "1"" of type '" "gsl_complex_float *""'");
11471 }
11472 arg1 = (gsl_complex_float *)(argp1);
11473 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_float, 0 | 0 );
11474 if (!SWIG_IsOK(res2)) {
11475 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_complex_float_dat_set" "', argument " "2"" of type '" "float [2]""'");
11476 }
11477 arg2 = (float *)(argp2);
11478 {
11479 if (arg2) {
11480 size_t ii = 0;
11481 for (; ii < (size_t)2; ++ii) *(float *)&arg1->dat[ii] = *((float *)arg2 + ii);
11482 } else {
11483 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in variable '""dat""' of type '""float [2]""'");
11484 }
11485 }
11486 ST(argvi) = &PL_sv_undef;
11487
11488
11489 XSRETURN(argvi);
11490 fail:
11491
11492
11493 SWIG_croak_null();
11494 }
11495 }
11496
11497
XS(_wrap_gsl_complex_float_dat_get)11498 XS(_wrap_gsl_complex_float_dat_get) {
11499 {
11500 gsl_complex_float *arg1 = (gsl_complex_float *) 0 ;
11501 void *argp1 = 0 ;
11502 int res1 = 0 ;
11503 int argvi = 0;
11504 float *result = 0 ;
11505 dXSARGS;
11506
11507 if ((items < 1) || (items > 1)) {
11508 SWIG_croak("Usage: gsl_complex_float_dat_get(self);");
11509 }
11510 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_complex_float, 0 | 0 );
11511 if (!SWIG_IsOK(res1)) {
11512 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_float_dat_get" "', argument " "1"" of type '" "gsl_complex_float *""'");
11513 }
11514 arg1 = (gsl_complex_float *)(argp1);
11515 result = (float *)(float *) ((arg1)->dat);
11516 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_float, 0 | 0); argvi++ ;
11517
11518 XSRETURN(argvi);
11519 fail:
11520
11521 SWIG_croak_null();
11522 }
11523 }
11524
11525
XS(_wrap_new_gsl_complex_float)11526 XS(_wrap_new_gsl_complex_float) {
11527 {
11528 int argvi = 0;
11529 gsl_complex_float *result = 0 ;
11530 dXSARGS;
11531
11532 if ((items < 0) || (items > 0)) {
11533 SWIG_croak("Usage: new_gsl_complex_float();");
11534 }
11535 result = (gsl_complex_float *)calloc(1, sizeof(gsl_complex_float));
11536 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_complex_float, SWIG_OWNER | SWIG_SHADOW); argvi++ ;
11537 XSRETURN(argvi);
11538 fail:
11539 SWIG_croak_null();
11540 }
11541 }
11542
11543
XS(_wrap_delete_gsl_complex_float)11544 XS(_wrap_delete_gsl_complex_float) {
11545 {
11546 gsl_complex_float *arg1 = (gsl_complex_float *) 0 ;
11547 void *argp1 = 0 ;
11548 int res1 = 0 ;
11549 int argvi = 0;
11550 dXSARGS;
11551
11552 if ((items < 1) || (items > 1)) {
11553 SWIG_croak("Usage: delete_gsl_complex_float(self);");
11554 }
11555 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_complex_float, SWIG_POINTER_DISOWN | 0 );
11556 if (!SWIG_IsOK(res1)) {
11557 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "delete_gsl_complex_float" "', argument " "1"" of type '" "gsl_complex_float *""'");
11558 }
11559 arg1 = (gsl_complex_float *)(argp1);
11560 free((char *) arg1);
11561 ST(argvi) = &PL_sv_undef;
11562
11563 XSRETURN(argvi);
11564 fail:
11565
11566 SWIG_croak_null();
11567 }
11568 }
11569
11570
XS(_wrap_gsl_complex_polar)11571 XS(_wrap_gsl_complex_polar) {
11572 {
11573 double arg1 ;
11574 double arg2 ;
11575 double val1 ;
11576 int ecode1 = 0 ;
11577 double val2 ;
11578 int ecode2 = 0 ;
11579 int argvi = 0;
11580 gsl_complex result;
11581 dXSARGS;
11582
11583 if ((items < 2) || (items > 2)) {
11584 SWIG_croak("Usage: gsl_complex_polar(r,theta);");
11585 }
11586 ecode1 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
11587 if (!SWIG_IsOK(ecode1)) {
11588 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_complex_polar" "', argument " "1"" of type '" "double""'");
11589 }
11590 arg1 = (double)(val1);
11591 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
11592 if (!SWIG_IsOK(ecode2)) {
11593 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_complex_polar" "', argument " "2"" of type '" "double""'");
11594 }
11595 arg2 = (double)(val2);
11596 result = gsl_complex_polar(arg1,arg2);
11597 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++ ;
11598
11599
11600 XSRETURN(argvi);
11601 fail:
11602
11603
11604 SWIG_croak_null();
11605 }
11606 }
11607
11608
XS(_wrap_gsl_complex_rect)11609 XS(_wrap_gsl_complex_rect) {
11610 {
11611 double arg1 ;
11612 double arg2 ;
11613 double val1 ;
11614 int ecode1 = 0 ;
11615 double val2 ;
11616 int ecode2 = 0 ;
11617 int argvi = 0;
11618 gsl_complex result;
11619 dXSARGS;
11620
11621 if ((items < 2) || (items > 2)) {
11622 SWIG_croak("Usage: gsl_complex_rect(x,y);");
11623 }
11624 ecode1 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
11625 if (!SWIG_IsOK(ecode1)) {
11626 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_complex_rect" "', argument " "1"" of type '" "double""'");
11627 }
11628 arg1 = (double)(val1);
11629 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
11630 if (!SWIG_IsOK(ecode2)) {
11631 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_complex_rect" "', argument " "2"" of type '" "double""'");
11632 }
11633 arg2 = (double)(val2);
11634 result = gsl_complex_rect(arg1,arg2);
11635 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++ ;
11636
11637
11638 XSRETURN(argvi);
11639 fail:
11640
11641
11642 SWIG_croak_null();
11643 }
11644 }
11645
11646
XS(_wrap_gsl_complex_arg)11647 XS(_wrap_gsl_complex_arg) {
11648 {
11649 gsl_complex arg1 ;
11650 void *argp1 ;
11651 int res1 = 0 ;
11652 int argvi = 0;
11653 double result;
11654 dXSARGS;
11655
11656 if ((items < 1) || (items > 1)) {
11657 SWIG_croak("Usage: gsl_complex_arg(z);");
11658 }
11659 {
11660 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
11661 if (!SWIG_IsOK(res1)) {
11662 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_arg" "', argument " "1"" of type '" "gsl_complex""'");
11663 }
11664 if (!argp1) {
11665 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_arg" "', argument " "1"" of type '" "gsl_complex""'");
11666 } else {
11667 arg1 = *((gsl_complex *)(argp1));
11668 }
11669 }
11670 result = (double)gsl_complex_arg(arg1);
11671 ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(result)); argvi++ ;
11672 XSRETURN(argvi);
11673 fail:
11674 SWIG_croak_null();
11675 }
11676 }
11677
11678
XS(_wrap_gsl_complex_abs)11679 XS(_wrap_gsl_complex_abs) {
11680 {
11681 gsl_complex arg1 ;
11682 void *argp1 ;
11683 int res1 = 0 ;
11684 int argvi = 0;
11685 double result;
11686 dXSARGS;
11687
11688 if ((items < 1) || (items > 1)) {
11689 SWIG_croak("Usage: gsl_complex_abs(z);");
11690 }
11691 {
11692 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
11693 if (!SWIG_IsOK(res1)) {
11694 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_abs" "', argument " "1"" of type '" "gsl_complex""'");
11695 }
11696 if (!argp1) {
11697 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_abs" "', argument " "1"" of type '" "gsl_complex""'");
11698 } else {
11699 arg1 = *((gsl_complex *)(argp1));
11700 }
11701 }
11702 result = (double)gsl_complex_abs(arg1);
11703 ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(result)); argvi++ ;
11704 XSRETURN(argvi);
11705 fail:
11706 SWIG_croak_null();
11707 }
11708 }
11709
11710
XS(_wrap_gsl_complex_abs2)11711 XS(_wrap_gsl_complex_abs2) {
11712 {
11713 gsl_complex arg1 ;
11714 void *argp1 ;
11715 int res1 = 0 ;
11716 int argvi = 0;
11717 double result;
11718 dXSARGS;
11719
11720 if ((items < 1) || (items > 1)) {
11721 SWIG_croak("Usage: gsl_complex_abs2(z);");
11722 }
11723 {
11724 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
11725 if (!SWIG_IsOK(res1)) {
11726 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_abs2" "', argument " "1"" of type '" "gsl_complex""'");
11727 }
11728 if (!argp1) {
11729 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_abs2" "', argument " "1"" of type '" "gsl_complex""'");
11730 } else {
11731 arg1 = *((gsl_complex *)(argp1));
11732 }
11733 }
11734 result = (double)gsl_complex_abs2(arg1);
11735 ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(result)); argvi++ ;
11736 XSRETURN(argvi);
11737 fail:
11738 SWIG_croak_null();
11739 }
11740 }
11741
11742
XS(_wrap_gsl_complex_logabs)11743 XS(_wrap_gsl_complex_logabs) {
11744 {
11745 gsl_complex arg1 ;
11746 void *argp1 ;
11747 int res1 = 0 ;
11748 int argvi = 0;
11749 double result;
11750 dXSARGS;
11751
11752 if ((items < 1) || (items > 1)) {
11753 SWIG_croak("Usage: gsl_complex_logabs(z);");
11754 }
11755 {
11756 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
11757 if (!SWIG_IsOK(res1)) {
11758 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_logabs" "', argument " "1"" of type '" "gsl_complex""'");
11759 }
11760 if (!argp1) {
11761 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_logabs" "', argument " "1"" of type '" "gsl_complex""'");
11762 } else {
11763 arg1 = *((gsl_complex *)(argp1));
11764 }
11765 }
11766 result = (double)gsl_complex_logabs(arg1);
11767 ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(result)); argvi++ ;
11768 XSRETURN(argvi);
11769 fail:
11770 SWIG_croak_null();
11771 }
11772 }
11773
11774
XS(_wrap_gsl_complex_add)11775 XS(_wrap_gsl_complex_add) {
11776 {
11777 gsl_complex arg1 ;
11778 gsl_complex arg2 ;
11779 void *argp1 ;
11780 int res1 = 0 ;
11781 void *argp2 ;
11782 int res2 = 0 ;
11783 int argvi = 0;
11784 gsl_complex result;
11785 dXSARGS;
11786
11787 if ((items < 2) || (items > 2)) {
11788 SWIG_croak("Usage: gsl_complex_add(a,b);");
11789 }
11790 {
11791 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
11792 if (!SWIG_IsOK(res1)) {
11793 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_add" "', argument " "1"" of type '" "gsl_complex""'");
11794 }
11795 if (!argp1) {
11796 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_add" "', argument " "1"" of type '" "gsl_complex""'");
11797 } else {
11798 arg1 = *((gsl_complex *)(argp1));
11799 }
11800 }
11801 {
11802 res2 = SWIG_ConvertPtr(ST(1), &argp2, SWIGTYPE_p_gsl_complex, 0 );
11803 if (!SWIG_IsOK(res2)) {
11804 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_complex_add" "', argument " "2"" of type '" "gsl_complex""'");
11805 }
11806 if (!argp2) {
11807 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_add" "', argument " "2"" of type '" "gsl_complex""'");
11808 } else {
11809 arg2 = *((gsl_complex *)(argp2));
11810 }
11811 }
11812 result = gsl_complex_add(arg1,arg2);
11813 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++ ;
11814 XSRETURN(argvi);
11815 fail:
11816 SWIG_croak_null();
11817 }
11818 }
11819
11820
XS(_wrap_gsl_complex_sub)11821 XS(_wrap_gsl_complex_sub) {
11822 {
11823 gsl_complex arg1 ;
11824 gsl_complex arg2 ;
11825 void *argp1 ;
11826 int res1 = 0 ;
11827 void *argp2 ;
11828 int res2 = 0 ;
11829 int argvi = 0;
11830 gsl_complex result;
11831 dXSARGS;
11832
11833 if ((items < 2) || (items > 2)) {
11834 SWIG_croak("Usage: gsl_complex_sub(a,b);");
11835 }
11836 {
11837 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
11838 if (!SWIG_IsOK(res1)) {
11839 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_sub" "', argument " "1"" of type '" "gsl_complex""'");
11840 }
11841 if (!argp1) {
11842 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_sub" "', argument " "1"" of type '" "gsl_complex""'");
11843 } else {
11844 arg1 = *((gsl_complex *)(argp1));
11845 }
11846 }
11847 {
11848 res2 = SWIG_ConvertPtr(ST(1), &argp2, SWIGTYPE_p_gsl_complex, 0 );
11849 if (!SWIG_IsOK(res2)) {
11850 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_complex_sub" "', argument " "2"" of type '" "gsl_complex""'");
11851 }
11852 if (!argp2) {
11853 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_sub" "', argument " "2"" of type '" "gsl_complex""'");
11854 } else {
11855 arg2 = *((gsl_complex *)(argp2));
11856 }
11857 }
11858 result = gsl_complex_sub(arg1,arg2);
11859 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++ ;
11860 XSRETURN(argvi);
11861 fail:
11862 SWIG_croak_null();
11863 }
11864 }
11865
11866
XS(_wrap_gsl_complex_mul)11867 XS(_wrap_gsl_complex_mul) {
11868 {
11869 gsl_complex arg1 ;
11870 gsl_complex arg2 ;
11871 void *argp1 ;
11872 int res1 = 0 ;
11873 void *argp2 ;
11874 int res2 = 0 ;
11875 int argvi = 0;
11876 gsl_complex result;
11877 dXSARGS;
11878
11879 if ((items < 2) || (items > 2)) {
11880 SWIG_croak("Usage: gsl_complex_mul(a,b);");
11881 }
11882 {
11883 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
11884 if (!SWIG_IsOK(res1)) {
11885 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_mul" "', argument " "1"" of type '" "gsl_complex""'");
11886 }
11887 if (!argp1) {
11888 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_mul" "', argument " "1"" of type '" "gsl_complex""'");
11889 } else {
11890 arg1 = *((gsl_complex *)(argp1));
11891 }
11892 }
11893 {
11894 res2 = SWIG_ConvertPtr(ST(1), &argp2, SWIGTYPE_p_gsl_complex, 0 );
11895 if (!SWIG_IsOK(res2)) {
11896 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_complex_mul" "', argument " "2"" of type '" "gsl_complex""'");
11897 }
11898 if (!argp2) {
11899 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_mul" "', argument " "2"" of type '" "gsl_complex""'");
11900 } else {
11901 arg2 = *((gsl_complex *)(argp2));
11902 }
11903 }
11904 result = gsl_complex_mul(arg1,arg2);
11905 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++ ;
11906 XSRETURN(argvi);
11907 fail:
11908 SWIG_croak_null();
11909 }
11910 }
11911
11912
XS(_wrap_gsl_complex_div)11913 XS(_wrap_gsl_complex_div) {
11914 {
11915 gsl_complex arg1 ;
11916 gsl_complex arg2 ;
11917 void *argp1 ;
11918 int res1 = 0 ;
11919 void *argp2 ;
11920 int res2 = 0 ;
11921 int argvi = 0;
11922 gsl_complex result;
11923 dXSARGS;
11924
11925 if ((items < 2) || (items > 2)) {
11926 SWIG_croak("Usage: gsl_complex_div(a,b);");
11927 }
11928 {
11929 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
11930 if (!SWIG_IsOK(res1)) {
11931 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_div" "', argument " "1"" of type '" "gsl_complex""'");
11932 }
11933 if (!argp1) {
11934 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_div" "', argument " "1"" of type '" "gsl_complex""'");
11935 } else {
11936 arg1 = *((gsl_complex *)(argp1));
11937 }
11938 }
11939 {
11940 res2 = SWIG_ConvertPtr(ST(1), &argp2, SWIGTYPE_p_gsl_complex, 0 );
11941 if (!SWIG_IsOK(res2)) {
11942 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_complex_div" "', argument " "2"" of type '" "gsl_complex""'");
11943 }
11944 if (!argp2) {
11945 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_div" "', argument " "2"" of type '" "gsl_complex""'");
11946 } else {
11947 arg2 = *((gsl_complex *)(argp2));
11948 }
11949 }
11950 result = gsl_complex_div(arg1,arg2);
11951 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++ ;
11952 XSRETURN(argvi);
11953 fail:
11954 SWIG_croak_null();
11955 }
11956 }
11957
11958
XS(_wrap_gsl_complex_add_real)11959 XS(_wrap_gsl_complex_add_real) {
11960 {
11961 gsl_complex arg1 ;
11962 double arg2 ;
11963 void *argp1 ;
11964 int res1 = 0 ;
11965 double val2 ;
11966 int ecode2 = 0 ;
11967 int argvi = 0;
11968 gsl_complex result;
11969 dXSARGS;
11970
11971 if ((items < 2) || (items > 2)) {
11972 SWIG_croak("Usage: gsl_complex_add_real(a,x);");
11973 }
11974 {
11975 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
11976 if (!SWIG_IsOK(res1)) {
11977 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_add_real" "', argument " "1"" of type '" "gsl_complex""'");
11978 }
11979 if (!argp1) {
11980 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_add_real" "', argument " "1"" of type '" "gsl_complex""'");
11981 } else {
11982 arg1 = *((gsl_complex *)(argp1));
11983 }
11984 }
11985 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
11986 if (!SWIG_IsOK(ecode2)) {
11987 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_complex_add_real" "', argument " "2"" of type '" "double""'");
11988 }
11989 arg2 = (double)(val2);
11990 result = gsl_complex_add_real(arg1,arg2);
11991 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++ ;
11992
11993 XSRETURN(argvi);
11994 fail:
11995
11996 SWIG_croak_null();
11997 }
11998 }
11999
12000
XS(_wrap_gsl_complex_sub_real)12001 XS(_wrap_gsl_complex_sub_real) {
12002 {
12003 gsl_complex arg1 ;
12004 double arg2 ;
12005 void *argp1 ;
12006 int res1 = 0 ;
12007 double val2 ;
12008 int ecode2 = 0 ;
12009 int argvi = 0;
12010 gsl_complex result;
12011 dXSARGS;
12012
12013 if ((items < 2) || (items > 2)) {
12014 SWIG_croak("Usage: gsl_complex_sub_real(a,x);");
12015 }
12016 {
12017 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
12018 if (!SWIG_IsOK(res1)) {
12019 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_sub_real" "', argument " "1"" of type '" "gsl_complex""'");
12020 }
12021 if (!argp1) {
12022 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_sub_real" "', argument " "1"" of type '" "gsl_complex""'");
12023 } else {
12024 arg1 = *((gsl_complex *)(argp1));
12025 }
12026 }
12027 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
12028 if (!SWIG_IsOK(ecode2)) {
12029 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_complex_sub_real" "', argument " "2"" of type '" "double""'");
12030 }
12031 arg2 = (double)(val2);
12032 result = gsl_complex_sub_real(arg1,arg2);
12033 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++ ;
12034
12035 XSRETURN(argvi);
12036 fail:
12037
12038 SWIG_croak_null();
12039 }
12040 }
12041
12042
XS(_wrap_gsl_complex_mul_real)12043 XS(_wrap_gsl_complex_mul_real) {
12044 {
12045 gsl_complex arg1 ;
12046 double arg2 ;
12047 void *argp1 ;
12048 int res1 = 0 ;
12049 double val2 ;
12050 int ecode2 = 0 ;
12051 int argvi = 0;
12052 gsl_complex result;
12053 dXSARGS;
12054
12055 if ((items < 2) || (items > 2)) {
12056 SWIG_croak("Usage: gsl_complex_mul_real(a,x);");
12057 }
12058 {
12059 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
12060 if (!SWIG_IsOK(res1)) {
12061 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_mul_real" "', argument " "1"" of type '" "gsl_complex""'");
12062 }
12063 if (!argp1) {
12064 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_mul_real" "', argument " "1"" of type '" "gsl_complex""'");
12065 } else {
12066 arg1 = *((gsl_complex *)(argp1));
12067 }
12068 }
12069 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
12070 if (!SWIG_IsOK(ecode2)) {
12071 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_complex_mul_real" "', argument " "2"" of type '" "double""'");
12072 }
12073 arg2 = (double)(val2);
12074 result = gsl_complex_mul_real(arg1,arg2);
12075 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++ ;
12076
12077 XSRETURN(argvi);
12078 fail:
12079
12080 SWIG_croak_null();
12081 }
12082 }
12083
12084
XS(_wrap_gsl_complex_div_real)12085 XS(_wrap_gsl_complex_div_real) {
12086 {
12087 gsl_complex arg1 ;
12088 double arg2 ;
12089 void *argp1 ;
12090 int res1 = 0 ;
12091 double val2 ;
12092 int ecode2 = 0 ;
12093 int argvi = 0;
12094 gsl_complex result;
12095 dXSARGS;
12096
12097 if ((items < 2) || (items > 2)) {
12098 SWIG_croak("Usage: gsl_complex_div_real(a,x);");
12099 }
12100 {
12101 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
12102 if (!SWIG_IsOK(res1)) {
12103 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_div_real" "', argument " "1"" of type '" "gsl_complex""'");
12104 }
12105 if (!argp1) {
12106 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_div_real" "', argument " "1"" of type '" "gsl_complex""'");
12107 } else {
12108 arg1 = *((gsl_complex *)(argp1));
12109 }
12110 }
12111 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
12112 if (!SWIG_IsOK(ecode2)) {
12113 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_complex_div_real" "', argument " "2"" of type '" "double""'");
12114 }
12115 arg2 = (double)(val2);
12116 result = gsl_complex_div_real(arg1,arg2);
12117 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++ ;
12118
12119 XSRETURN(argvi);
12120 fail:
12121
12122 SWIG_croak_null();
12123 }
12124 }
12125
12126
XS(_wrap_gsl_complex_add_imag)12127 XS(_wrap_gsl_complex_add_imag) {
12128 {
12129 gsl_complex arg1 ;
12130 double arg2 ;
12131 void *argp1 ;
12132 int res1 = 0 ;
12133 double val2 ;
12134 int ecode2 = 0 ;
12135 int argvi = 0;
12136 gsl_complex result;
12137 dXSARGS;
12138
12139 if ((items < 2) || (items > 2)) {
12140 SWIG_croak("Usage: gsl_complex_add_imag(a,y);");
12141 }
12142 {
12143 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
12144 if (!SWIG_IsOK(res1)) {
12145 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_add_imag" "', argument " "1"" of type '" "gsl_complex""'");
12146 }
12147 if (!argp1) {
12148 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_add_imag" "', argument " "1"" of type '" "gsl_complex""'");
12149 } else {
12150 arg1 = *((gsl_complex *)(argp1));
12151 }
12152 }
12153 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
12154 if (!SWIG_IsOK(ecode2)) {
12155 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_complex_add_imag" "', argument " "2"" of type '" "double""'");
12156 }
12157 arg2 = (double)(val2);
12158 result = gsl_complex_add_imag(arg1,arg2);
12159 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++ ;
12160
12161 XSRETURN(argvi);
12162 fail:
12163
12164 SWIG_croak_null();
12165 }
12166 }
12167
12168
XS(_wrap_gsl_complex_sub_imag)12169 XS(_wrap_gsl_complex_sub_imag) {
12170 {
12171 gsl_complex arg1 ;
12172 double arg2 ;
12173 void *argp1 ;
12174 int res1 = 0 ;
12175 double val2 ;
12176 int ecode2 = 0 ;
12177 int argvi = 0;
12178 gsl_complex result;
12179 dXSARGS;
12180
12181 if ((items < 2) || (items > 2)) {
12182 SWIG_croak("Usage: gsl_complex_sub_imag(a,y);");
12183 }
12184 {
12185 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
12186 if (!SWIG_IsOK(res1)) {
12187 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_sub_imag" "', argument " "1"" of type '" "gsl_complex""'");
12188 }
12189 if (!argp1) {
12190 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_sub_imag" "', argument " "1"" of type '" "gsl_complex""'");
12191 } else {
12192 arg1 = *((gsl_complex *)(argp1));
12193 }
12194 }
12195 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
12196 if (!SWIG_IsOK(ecode2)) {
12197 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_complex_sub_imag" "', argument " "2"" of type '" "double""'");
12198 }
12199 arg2 = (double)(val2);
12200 result = gsl_complex_sub_imag(arg1,arg2);
12201 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++ ;
12202
12203 XSRETURN(argvi);
12204 fail:
12205
12206 SWIG_croak_null();
12207 }
12208 }
12209
12210
XS(_wrap_gsl_complex_mul_imag)12211 XS(_wrap_gsl_complex_mul_imag) {
12212 {
12213 gsl_complex arg1 ;
12214 double arg2 ;
12215 void *argp1 ;
12216 int res1 = 0 ;
12217 double val2 ;
12218 int ecode2 = 0 ;
12219 int argvi = 0;
12220 gsl_complex result;
12221 dXSARGS;
12222
12223 if ((items < 2) || (items > 2)) {
12224 SWIG_croak("Usage: gsl_complex_mul_imag(a,y);");
12225 }
12226 {
12227 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
12228 if (!SWIG_IsOK(res1)) {
12229 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_mul_imag" "', argument " "1"" of type '" "gsl_complex""'");
12230 }
12231 if (!argp1) {
12232 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_mul_imag" "', argument " "1"" of type '" "gsl_complex""'");
12233 } else {
12234 arg1 = *((gsl_complex *)(argp1));
12235 }
12236 }
12237 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
12238 if (!SWIG_IsOK(ecode2)) {
12239 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_complex_mul_imag" "', argument " "2"" of type '" "double""'");
12240 }
12241 arg2 = (double)(val2);
12242 result = gsl_complex_mul_imag(arg1,arg2);
12243 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++ ;
12244
12245 XSRETURN(argvi);
12246 fail:
12247
12248 SWIG_croak_null();
12249 }
12250 }
12251
12252
XS(_wrap_gsl_complex_div_imag)12253 XS(_wrap_gsl_complex_div_imag) {
12254 {
12255 gsl_complex arg1 ;
12256 double arg2 ;
12257 void *argp1 ;
12258 int res1 = 0 ;
12259 double val2 ;
12260 int ecode2 = 0 ;
12261 int argvi = 0;
12262 gsl_complex result;
12263 dXSARGS;
12264
12265 if ((items < 2) || (items > 2)) {
12266 SWIG_croak("Usage: gsl_complex_div_imag(a,y);");
12267 }
12268 {
12269 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
12270 if (!SWIG_IsOK(res1)) {
12271 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_div_imag" "', argument " "1"" of type '" "gsl_complex""'");
12272 }
12273 if (!argp1) {
12274 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_div_imag" "', argument " "1"" of type '" "gsl_complex""'");
12275 } else {
12276 arg1 = *((gsl_complex *)(argp1));
12277 }
12278 }
12279 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
12280 if (!SWIG_IsOK(ecode2)) {
12281 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_complex_div_imag" "', argument " "2"" of type '" "double""'");
12282 }
12283 arg2 = (double)(val2);
12284 result = gsl_complex_div_imag(arg1,arg2);
12285 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++ ;
12286
12287 XSRETURN(argvi);
12288 fail:
12289
12290 SWIG_croak_null();
12291 }
12292 }
12293
12294
XS(_wrap_gsl_complex_conjugate)12295 XS(_wrap_gsl_complex_conjugate) {
12296 {
12297 gsl_complex arg1 ;
12298 void *argp1 ;
12299 int res1 = 0 ;
12300 int argvi = 0;
12301 gsl_complex result;
12302 dXSARGS;
12303
12304 if ((items < 1) || (items > 1)) {
12305 SWIG_croak("Usage: gsl_complex_conjugate(z);");
12306 }
12307 {
12308 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
12309 if (!SWIG_IsOK(res1)) {
12310 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_conjugate" "', argument " "1"" of type '" "gsl_complex""'");
12311 }
12312 if (!argp1) {
12313 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_conjugate" "', argument " "1"" of type '" "gsl_complex""'");
12314 } else {
12315 arg1 = *((gsl_complex *)(argp1));
12316 }
12317 }
12318 result = gsl_complex_conjugate(arg1);
12319 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++ ;
12320 XSRETURN(argvi);
12321 fail:
12322 SWIG_croak_null();
12323 }
12324 }
12325
12326
XS(_wrap_gsl_complex_inverse)12327 XS(_wrap_gsl_complex_inverse) {
12328 {
12329 gsl_complex arg1 ;
12330 void *argp1 ;
12331 int res1 = 0 ;
12332 int argvi = 0;
12333 gsl_complex result;
12334 dXSARGS;
12335
12336 if ((items < 1) || (items > 1)) {
12337 SWIG_croak("Usage: gsl_complex_inverse(a);");
12338 }
12339 {
12340 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
12341 if (!SWIG_IsOK(res1)) {
12342 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_inverse" "', argument " "1"" of type '" "gsl_complex""'");
12343 }
12344 if (!argp1) {
12345 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_inverse" "', argument " "1"" of type '" "gsl_complex""'");
12346 } else {
12347 arg1 = *((gsl_complex *)(argp1));
12348 }
12349 }
12350 result = gsl_complex_inverse(arg1);
12351 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++ ;
12352 XSRETURN(argvi);
12353 fail:
12354 SWIG_croak_null();
12355 }
12356 }
12357
12358
XS(_wrap_gsl_complex_negative)12359 XS(_wrap_gsl_complex_negative) {
12360 {
12361 gsl_complex arg1 ;
12362 void *argp1 ;
12363 int res1 = 0 ;
12364 int argvi = 0;
12365 gsl_complex result;
12366 dXSARGS;
12367
12368 if ((items < 1) || (items > 1)) {
12369 SWIG_croak("Usage: gsl_complex_negative(a);");
12370 }
12371 {
12372 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
12373 if (!SWIG_IsOK(res1)) {
12374 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_negative" "', argument " "1"" of type '" "gsl_complex""'");
12375 }
12376 if (!argp1) {
12377 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_negative" "', argument " "1"" of type '" "gsl_complex""'");
12378 } else {
12379 arg1 = *((gsl_complex *)(argp1));
12380 }
12381 }
12382 result = gsl_complex_negative(arg1);
12383 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++ ;
12384 XSRETURN(argvi);
12385 fail:
12386 SWIG_croak_null();
12387 }
12388 }
12389
12390
XS(_wrap_gsl_complex_sqrt)12391 XS(_wrap_gsl_complex_sqrt) {
12392 {
12393 gsl_complex arg1 ;
12394 void *argp1 ;
12395 int res1 = 0 ;
12396 int argvi = 0;
12397 gsl_complex result;
12398 dXSARGS;
12399
12400 if ((items < 1) || (items > 1)) {
12401 SWIG_croak("Usage: gsl_complex_sqrt(z);");
12402 }
12403 {
12404 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
12405 if (!SWIG_IsOK(res1)) {
12406 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_sqrt" "', argument " "1"" of type '" "gsl_complex""'");
12407 }
12408 if (!argp1) {
12409 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_sqrt" "', argument " "1"" of type '" "gsl_complex""'");
12410 } else {
12411 arg1 = *((gsl_complex *)(argp1));
12412 }
12413 }
12414 result = gsl_complex_sqrt(arg1);
12415 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
12416 XSRETURN(argvi);
12417 fail:
12418 SWIG_croak_null();
12419 }
12420 }
12421
12422
XS(_wrap_gsl_complex_sqrt_real)12423 XS(_wrap_gsl_complex_sqrt_real) {
12424 {
12425 double arg1 ;
12426 double val1 ;
12427 int ecode1 = 0 ;
12428 int argvi = 0;
12429 gsl_complex result;
12430 dXSARGS;
12431
12432 if ((items < 1) || (items > 1)) {
12433 SWIG_croak("Usage: gsl_complex_sqrt_real(x);");
12434 }
12435 ecode1 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
12436 if (!SWIG_IsOK(ecode1)) {
12437 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_complex_sqrt_real" "', argument " "1"" of type '" "double""'");
12438 }
12439 arg1 = (double)(val1);
12440 result = gsl_complex_sqrt_real(arg1);
12441 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++ ;
12442
12443 XSRETURN(argvi);
12444 fail:
12445
12446 SWIG_croak_null();
12447 }
12448 }
12449
12450
XS(_wrap_gsl_complex_pow)12451 XS(_wrap_gsl_complex_pow) {
12452 {
12453 gsl_complex arg1 ;
12454 gsl_complex arg2 ;
12455 void *argp1 ;
12456 int res1 = 0 ;
12457 void *argp2 ;
12458 int res2 = 0 ;
12459 int argvi = 0;
12460 gsl_complex result;
12461 dXSARGS;
12462
12463 if ((items < 2) || (items > 2)) {
12464 SWIG_croak("Usage: gsl_complex_pow(a,b);");
12465 }
12466 {
12467 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
12468 if (!SWIG_IsOK(res1)) {
12469 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_pow" "', argument " "1"" of type '" "gsl_complex""'");
12470 }
12471 if (!argp1) {
12472 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_pow" "', argument " "1"" of type '" "gsl_complex""'");
12473 } else {
12474 arg1 = *((gsl_complex *)(argp1));
12475 }
12476 }
12477 {
12478 res2 = SWIG_ConvertPtr(ST(1), &argp2, SWIGTYPE_p_gsl_complex, 0 );
12479 if (!SWIG_IsOK(res2)) {
12480 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_complex_pow" "', argument " "2"" of type '" "gsl_complex""'");
12481 }
12482 if (!argp2) {
12483 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_pow" "', argument " "2"" of type '" "gsl_complex""'");
12484 } else {
12485 arg2 = *((gsl_complex *)(argp2));
12486 }
12487 }
12488 result = gsl_complex_pow(arg1,arg2);
12489 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++ ;
12490 XSRETURN(argvi);
12491 fail:
12492 SWIG_croak_null();
12493 }
12494 }
12495
12496
XS(_wrap_gsl_complex_pow_real)12497 XS(_wrap_gsl_complex_pow_real) {
12498 {
12499 gsl_complex arg1 ;
12500 double arg2 ;
12501 void *argp1 ;
12502 int res1 = 0 ;
12503 double val2 ;
12504 int ecode2 = 0 ;
12505 int argvi = 0;
12506 gsl_complex result;
12507 dXSARGS;
12508
12509 if ((items < 2) || (items > 2)) {
12510 SWIG_croak("Usage: gsl_complex_pow_real(a,b);");
12511 }
12512 {
12513 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
12514 if (!SWIG_IsOK(res1)) {
12515 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_pow_real" "', argument " "1"" of type '" "gsl_complex""'");
12516 }
12517 if (!argp1) {
12518 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_pow_real" "', argument " "1"" of type '" "gsl_complex""'");
12519 } else {
12520 arg1 = *((gsl_complex *)(argp1));
12521 }
12522 }
12523 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
12524 if (!SWIG_IsOK(ecode2)) {
12525 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_complex_pow_real" "', argument " "2"" of type '" "double""'");
12526 }
12527 arg2 = (double)(val2);
12528 result = gsl_complex_pow_real(arg1,arg2);
12529 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++ ;
12530
12531 XSRETURN(argvi);
12532 fail:
12533
12534 SWIG_croak_null();
12535 }
12536 }
12537
12538
XS(_wrap_gsl_complex_exp)12539 XS(_wrap_gsl_complex_exp) {
12540 {
12541 gsl_complex arg1 ;
12542 void *argp1 ;
12543 int res1 = 0 ;
12544 int argvi = 0;
12545 gsl_complex result;
12546 dXSARGS;
12547
12548 if ((items < 1) || (items > 1)) {
12549 SWIG_croak("Usage: gsl_complex_exp(a);");
12550 }
12551 {
12552 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
12553 if (!SWIG_IsOK(res1)) {
12554 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_exp" "', argument " "1"" of type '" "gsl_complex""'");
12555 }
12556 if (!argp1) {
12557 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_exp" "', argument " "1"" of type '" "gsl_complex""'");
12558 } else {
12559 arg1 = *((gsl_complex *)(argp1));
12560 }
12561 }
12562 result = gsl_complex_exp(arg1);
12563 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++ ;
12564 XSRETURN(argvi);
12565 fail:
12566 SWIG_croak_null();
12567 }
12568 }
12569
12570
XS(_wrap_gsl_complex_log)12571 XS(_wrap_gsl_complex_log) {
12572 {
12573 gsl_complex arg1 ;
12574 void *argp1 ;
12575 int res1 = 0 ;
12576 int argvi = 0;
12577 gsl_complex result;
12578 dXSARGS;
12579
12580 if ((items < 1) || (items > 1)) {
12581 SWIG_croak("Usage: gsl_complex_log(a);");
12582 }
12583 {
12584 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
12585 if (!SWIG_IsOK(res1)) {
12586 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_log" "', argument " "1"" of type '" "gsl_complex""'");
12587 }
12588 if (!argp1) {
12589 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_log" "', argument " "1"" of type '" "gsl_complex""'");
12590 } else {
12591 arg1 = *((gsl_complex *)(argp1));
12592 }
12593 }
12594 result = gsl_complex_log(arg1);
12595 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++ ;
12596 XSRETURN(argvi);
12597 fail:
12598 SWIG_croak_null();
12599 }
12600 }
12601
12602
XS(_wrap_gsl_complex_log10)12603 XS(_wrap_gsl_complex_log10) {
12604 {
12605 gsl_complex arg1 ;
12606 void *argp1 ;
12607 int res1 = 0 ;
12608 int argvi = 0;
12609 gsl_complex result;
12610 dXSARGS;
12611
12612 if ((items < 1) || (items > 1)) {
12613 SWIG_croak("Usage: gsl_complex_log10(a);");
12614 }
12615 {
12616 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
12617 if (!SWIG_IsOK(res1)) {
12618 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_log10" "', argument " "1"" of type '" "gsl_complex""'");
12619 }
12620 if (!argp1) {
12621 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_log10" "', argument " "1"" of type '" "gsl_complex""'");
12622 } else {
12623 arg1 = *((gsl_complex *)(argp1));
12624 }
12625 }
12626 result = gsl_complex_log10(arg1);
12627 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++ ;
12628 XSRETURN(argvi);
12629 fail:
12630 SWIG_croak_null();
12631 }
12632 }
12633
12634
XS(_wrap_gsl_complex_log_b)12635 XS(_wrap_gsl_complex_log_b) {
12636 {
12637 gsl_complex arg1 ;
12638 gsl_complex arg2 ;
12639 void *argp1 ;
12640 int res1 = 0 ;
12641 void *argp2 ;
12642 int res2 = 0 ;
12643 int argvi = 0;
12644 gsl_complex result;
12645 dXSARGS;
12646
12647 if ((items < 2) || (items > 2)) {
12648 SWIG_croak("Usage: gsl_complex_log_b(a,b);");
12649 }
12650 {
12651 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
12652 if (!SWIG_IsOK(res1)) {
12653 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_log_b" "', argument " "1"" of type '" "gsl_complex""'");
12654 }
12655 if (!argp1) {
12656 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_log_b" "', argument " "1"" of type '" "gsl_complex""'");
12657 } else {
12658 arg1 = *((gsl_complex *)(argp1));
12659 }
12660 }
12661 {
12662 res2 = SWIG_ConvertPtr(ST(1), &argp2, SWIGTYPE_p_gsl_complex, 0 );
12663 if (!SWIG_IsOK(res2)) {
12664 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_complex_log_b" "', argument " "2"" of type '" "gsl_complex""'");
12665 }
12666 if (!argp2) {
12667 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_log_b" "', argument " "2"" of type '" "gsl_complex""'");
12668 } else {
12669 arg2 = *((gsl_complex *)(argp2));
12670 }
12671 }
12672 result = gsl_complex_log_b(arg1,arg2);
12673 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++ ;
12674 XSRETURN(argvi);
12675 fail:
12676 SWIG_croak_null();
12677 }
12678 }
12679
12680
XS(_wrap_gsl_complex_sin)12681 XS(_wrap_gsl_complex_sin) {
12682 {
12683 gsl_complex arg1 ;
12684 void *argp1 ;
12685 int res1 = 0 ;
12686 int argvi = 0;
12687 gsl_complex result;
12688 dXSARGS;
12689
12690 if ((items < 1) || (items > 1)) {
12691 SWIG_croak("Usage: gsl_complex_sin(a);");
12692 }
12693 {
12694 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
12695 if (!SWIG_IsOK(res1)) {
12696 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_sin" "', argument " "1"" of type '" "gsl_complex""'");
12697 }
12698 if (!argp1) {
12699 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_sin" "', argument " "1"" of type '" "gsl_complex""'");
12700 } else {
12701 arg1 = *((gsl_complex *)(argp1));
12702 }
12703 }
12704 result = gsl_complex_sin(arg1);
12705 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++ ;
12706 XSRETURN(argvi);
12707 fail:
12708 SWIG_croak_null();
12709 }
12710 }
12711
12712
XS(_wrap_gsl_complex_cos)12713 XS(_wrap_gsl_complex_cos) {
12714 {
12715 gsl_complex arg1 ;
12716 void *argp1 ;
12717 int res1 = 0 ;
12718 int argvi = 0;
12719 gsl_complex result;
12720 dXSARGS;
12721
12722 if ((items < 1) || (items > 1)) {
12723 SWIG_croak("Usage: gsl_complex_cos(a);");
12724 }
12725 {
12726 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
12727 if (!SWIG_IsOK(res1)) {
12728 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_cos" "', argument " "1"" of type '" "gsl_complex""'");
12729 }
12730 if (!argp1) {
12731 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_cos" "', argument " "1"" of type '" "gsl_complex""'");
12732 } else {
12733 arg1 = *((gsl_complex *)(argp1));
12734 }
12735 }
12736 result = gsl_complex_cos(arg1);
12737 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++ ;
12738 XSRETURN(argvi);
12739 fail:
12740 SWIG_croak_null();
12741 }
12742 }
12743
12744
XS(_wrap_gsl_complex_sec)12745 XS(_wrap_gsl_complex_sec) {
12746 {
12747 gsl_complex arg1 ;
12748 void *argp1 ;
12749 int res1 = 0 ;
12750 int argvi = 0;
12751 gsl_complex result;
12752 dXSARGS;
12753
12754 if ((items < 1) || (items > 1)) {
12755 SWIG_croak("Usage: gsl_complex_sec(a);");
12756 }
12757 {
12758 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
12759 if (!SWIG_IsOK(res1)) {
12760 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_sec" "', argument " "1"" of type '" "gsl_complex""'");
12761 }
12762 if (!argp1) {
12763 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_sec" "', argument " "1"" of type '" "gsl_complex""'");
12764 } else {
12765 arg1 = *((gsl_complex *)(argp1));
12766 }
12767 }
12768 result = gsl_complex_sec(arg1);
12769 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++ ;
12770 XSRETURN(argvi);
12771 fail:
12772 SWIG_croak_null();
12773 }
12774 }
12775
12776
XS(_wrap_gsl_complex_csc)12777 XS(_wrap_gsl_complex_csc) {
12778 {
12779 gsl_complex arg1 ;
12780 void *argp1 ;
12781 int res1 = 0 ;
12782 int argvi = 0;
12783 gsl_complex result;
12784 dXSARGS;
12785
12786 if ((items < 1) || (items > 1)) {
12787 SWIG_croak("Usage: gsl_complex_csc(a);");
12788 }
12789 {
12790 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
12791 if (!SWIG_IsOK(res1)) {
12792 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_csc" "', argument " "1"" of type '" "gsl_complex""'");
12793 }
12794 if (!argp1) {
12795 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_csc" "', argument " "1"" of type '" "gsl_complex""'");
12796 } else {
12797 arg1 = *((gsl_complex *)(argp1));
12798 }
12799 }
12800 result = gsl_complex_csc(arg1);
12801 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++ ;
12802 XSRETURN(argvi);
12803 fail:
12804 SWIG_croak_null();
12805 }
12806 }
12807
12808
XS(_wrap_gsl_complex_tan)12809 XS(_wrap_gsl_complex_tan) {
12810 {
12811 gsl_complex arg1 ;
12812 void *argp1 ;
12813 int res1 = 0 ;
12814 int argvi = 0;
12815 gsl_complex result;
12816 dXSARGS;
12817
12818 if ((items < 1) || (items > 1)) {
12819 SWIG_croak("Usage: gsl_complex_tan(a);");
12820 }
12821 {
12822 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
12823 if (!SWIG_IsOK(res1)) {
12824 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_tan" "', argument " "1"" of type '" "gsl_complex""'");
12825 }
12826 if (!argp1) {
12827 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_tan" "', argument " "1"" of type '" "gsl_complex""'");
12828 } else {
12829 arg1 = *((gsl_complex *)(argp1));
12830 }
12831 }
12832 result = gsl_complex_tan(arg1);
12833 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++ ;
12834 XSRETURN(argvi);
12835 fail:
12836 SWIG_croak_null();
12837 }
12838 }
12839
12840
XS(_wrap_gsl_complex_cot)12841 XS(_wrap_gsl_complex_cot) {
12842 {
12843 gsl_complex arg1 ;
12844 void *argp1 ;
12845 int res1 = 0 ;
12846 int argvi = 0;
12847 gsl_complex result;
12848 dXSARGS;
12849
12850 if ((items < 1) || (items > 1)) {
12851 SWIG_croak("Usage: gsl_complex_cot(a);");
12852 }
12853 {
12854 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
12855 if (!SWIG_IsOK(res1)) {
12856 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_cot" "', argument " "1"" of type '" "gsl_complex""'");
12857 }
12858 if (!argp1) {
12859 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_cot" "', argument " "1"" of type '" "gsl_complex""'");
12860 } else {
12861 arg1 = *((gsl_complex *)(argp1));
12862 }
12863 }
12864 result = gsl_complex_cot(arg1);
12865 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++ ;
12866 XSRETURN(argvi);
12867 fail:
12868 SWIG_croak_null();
12869 }
12870 }
12871
12872
XS(_wrap_gsl_complex_arcsin)12873 XS(_wrap_gsl_complex_arcsin) {
12874 {
12875 gsl_complex arg1 ;
12876 void *argp1 ;
12877 int res1 = 0 ;
12878 int argvi = 0;
12879 gsl_complex result;
12880 dXSARGS;
12881
12882 if ((items < 1) || (items > 1)) {
12883 SWIG_croak("Usage: gsl_complex_arcsin(a);");
12884 }
12885 {
12886 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
12887 if (!SWIG_IsOK(res1)) {
12888 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_arcsin" "', argument " "1"" of type '" "gsl_complex""'");
12889 }
12890 if (!argp1) {
12891 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_arcsin" "', argument " "1"" of type '" "gsl_complex""'");
12892 } else {
12893 arg1 = *((gsl_complex *)(argp1));
12894 }
12895 }
12896 result = gsl_complex_arcsin(arg1);
12897 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++ ;
12898 XSRETURN(argvi);
12899 fail:
12900 SWIG_croak_null();
12901 }
12902 }
12903
12904
XS(_wrap_gsl_complex_arcsin_real)12905 XS(_wrap_gsl_complex_arcsin_real) {
12906 {
12907 double arg1 ;
12908 double val1 ;
12909 int ecode1 = 0 ;
12910 int argvi = 0;
12911 gsl_complex result;
12912 dXSARGS;
12913
12914 if ((items < 1) || (items > 1)) {
12915 SWIG_croak("Usage: gsl_complex_arcsin_real(a);");
12916 }
12917 ecode1 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
12918 if (!SWIG_IsOK(ecode1)) {
12919 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_complex_arcsin_real" "', argument " "1"" of type '" "double""'");
12920 }
12921 arg1 = (double)(val1);
12922 result = gsl_complex_arcsin_real(arg1);
12923 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++ ;
12924
12925 XSRETURN(argvi);
12926 fail:
12927
12928 SWIG_croak_null();
12929 }
12930 }
12931
12932
XS(_wrap_gsl_complex_arccos)12933 XS(_wrap_gsl_complex_arccos) {
12934 {
12935 gsl_complex arg1 ;
12936 void *argp1 ;
12937 int res1 = 0 ;
12938 int argvi = 0;
12939 gsl_complex result;
12940 dXSARGS;
12941
12942 if ((items < 1) || (items > 1)) {
12943 SWIG_croak("Usage: gsl_complex_arccos(a);");
12944 }
12945 {
12946 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
12947 if (!SWIG_IsOK(res1)) {
12948 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_arccos" "', argument " "1"" of type '" "gsl_complex""'");
12949 }
12950 if (!argp1) {
12951 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_arccos" "', argument " "1"" of type '" "gsl_complex""'");
12952 } else {
12953 arg1 = *((gsl_complex *)(argp1));
12954 }
12955 }
12956 result = gsl_complex_arccos(arg1);
12957 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++ ;
12958 XSRETURN(argvi);
12959 fail:
12960 SWIG_croak_null();
12961 }
12962 }
12963
12964
XS(_wrap_gsl_complex_arccos_real)12965 XS(_wrap_gsl_complex_arccos_real) {
12966 {
12967 double arg1 ;
12968 double val1 ;
12969 int ecode1 = 0 ;
12970 int argvi = 0;
12971 gsl_complex result;
12972 dXSARGS;
12973
12974 if ((items < 1) || (items > 1)) {
12975 SWIG_croak("Usage: gsl_complex_arccos_real(a);");
12976 }
12977 ecode1 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
12978 if (!SWIG_IsOK(ecode1)) {
12979 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_complex_arccos_real" "', argument " "1"" of type '" "double""'");
12980 }
12981 arg1 = (double)(val1);
12982 result = gsl_complex_arccos_real(arg1);
12983 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
12984
12985 XSRETURN(argvi);
12986 fail:
12987
12988 SWIG_croak_null();
12989 }
12990 }
12991
12992
XS(_wrap_gsl_complex_arcsec)12993 XS(_wrap_gsl_complex_arcsec) {
12994 {
12995 gsl_complex arg1 ;
12996 void *argp1 ;
12997 int res1 = 0 ;
12998 int argvi = 0;
12999 gsl_complex result;
13000 dXSARGS;
13001
13002 if ((items < 1) || (items > 1)) {
13003 SWIG_croak("Usage: gsl_complex_arcsec(a);");
13004 }
13005 {
13006 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
13007 if (!SWIG_IsOK(res1)) {
13008 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_arcsec" "', argument " "1"" of type '" "gsl_complex""'");
13009 }
13010 if (!argp1) {
13011 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_arcsec" "', argument " "1"" of type '" "gsl_complex""'");
13012 } else {
13013 arg1 = *((gsl_complex *)(argp1));
13014 }
13015 }
13016 result = gsl_complex_arcsec(arg1);
13017 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++ ;
13018 XSRETURN(argvi);
13019 fail:
13020 SWIG_croak_null();
13021 }
13022 }
13023
13024
XS(_wrap_gsl_complex_arcsec_real)13025 XS(_wrap_gsl_complex_arcsec_real) {
13026 {
13027 double arg1 ;
13028 double val1 ;
13029 int ecode1 = 0 ;
13030 int argvi = 0;
13031 gsl_complex result;
13032 dXSARGS;
13033
13034 if ((items < 1) || (items > 1)) {
13035 SWIG_croak("Usage: gsl_complex_arcsec_real(a);");
13036 }
13037 ecode1 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
13038 if (!SWIG_IsOK(ecode1)) {
13039 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_complex_arcsec_real" "', argument " "1"" of type '" "double""'");
13040 }
13041 arg1 = (double)(val1);
13042 result = gsl_complex_arcsec_real(arg1);
13043 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++ ;
13044
13045 XSRETURN(argvi);
13046 fail:
13047
13048 SWIG_croak_null();
13049 }
13050 }
13051
13052
XS(_wrap_gsl_complex_arccsc)13053 XS(_wrap_gsl_complex_arccsc) {
13054 {
13055 gsl_complex arg1 ;
13056 void *argp1 ;
13057 int res1 = 0 ;
13058 int argvi = 0;
13059 gsl_complex result;
13060 dXSARGS;
13061
13062 if ((items < 1) || (items > 1)) {
13063 SWIG_croak("Usage: gsl_complex_arccsc(a);");
13064 }
13065 {
13066 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
13067 if (!SWIG_IsOK(res1)) {
13068 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_arccsc" "', argument " "1"" of type '" "gsl_complex""'");
13069 }
13070 if (!argp1) {
13071 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_arccsc" "', argument " "1"" of type '" "gsl_complex""'");
13072 } else {
13073 arg1 = *((gsl_complex *)(argp1));
13074 }
13075 }
13076 result = gsl_complex_arccsc(arg1);
13077 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++ ;
13078 XSRETURN(argvi);
13079 fail:
13080 SWIG_croak_null();
13081 }
13082 }
13083
13084
XS(_wrap_gsl_complex_arccsc_real)13085 XS(_wrap_gsl_complex_arccsc_real) {
13086 {
13087 double arg1 ;
13088 double val1 ;
13089 int ecode1 = 0 ;
13090 int argvi = 0;
13091 gsl_complex result;
13092 dXSARGS;
13093
13094 if ((items < 1) || (items > 1)) {
13095 SWIG_croak("Usage: gsl_complex_arccsc_real(a);");
13096 }
13097 ecode1 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
13098 if (!SWIG_IsOK(ecode1)) {
13099 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_complex_arccsc_real" "', argument " "1"" of type '" "double""'");
13100 }
13101 arg1 = (double)(val1);
13102 result = gsl_complex_arccsc_real(arg1);
13103 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++ ;
13104
13105 XSRETURN(argvi);
13106 fail:
13107
13108 SWIG_croak_null();
13109 }
13110 }
13111
13112
XS(_wrap_gsl_complex_arctan)13113 XS(_wrap_gsl_complex_arctan) {
13114 {
13115 gsl_complex arg1 ;
13116 void *argp1 ;
13117 int res1 = 0 ;
13118 int argvi = 0;
13119 gsl_complex result;
13120 dXSARGS;
13121
13122 if ((items < 1) || (items > 1)) {
13123 SWIG_croak("Usage: gsl_complex_arctan(a);");
13124 }
13125 {
13126 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
13127 if (!SWIG_IsOK(res1)) {
13128 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_arctan" "', argument " "1"" of type '" "gsl_complex""'");
13129 }
13130 if (!argp1) {
13131 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_arctan" "', argument " "1"" of type '" "gsl_complex""'");
13132 } else {
13133 arg1 = *((gsl_complex *)(argp1));
13134 }
13135 }
13136 result = gsl_complex_arctan(arg1);
13137 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
13138 XSRETURN(argvi);
13139 fail:
13140 SWIG_croak_null();
13141 }
13142 }
13143
13144
XS(_wrap_gsl_complex_arccot)13145 XS(_wrap_gsl_complex_arccot) {
13146 {
13147 gsl_complex arg1 ;
13148 void *argp1 ;
13149 int res1 = 0 ;
13150 int argvi = 0;
13151 gsl_complex result;
13152 dXSARGS;
13153
13154 if ((items < 1) || (items > 1)) {
13155 SWIG_croak("Usage: gsl_complex_arccot(a);");
13156 }
13157 {
13158 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
13159 if (!SWIG_IsOK(res1)) {
13160 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_arccot" "', argument " "1"" of type '" "gsl_complex""'");
13161 }
13162 if (!argp1) {
13163 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_arccot" "', argument " "1"" of type '" "gsl_complex""'");
13164 } else {
13165 arg1 = *((gsl_complex *)(argp1));
13166 }
13167 }
13168 result = gsl_complex_arccot(arg1);
13169 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++ ;
13170 XSRETURN(argvi);
13171 fail:
13172 SWIG_croak_null();
13173 }
13174 }
13175
13176
XS(_wrap_gsl_complex_sinh)13177 XS(_wrap_gsl_complex_sinh) {
13178 {
13179 gsl_complex arg1 ;
13180 void *argp1 ;
13181 int res1 = 0 ;
13182 int argvi = 0;
13183 gsl_complex result;
13184 dXSARGS;
13185
13186 if ((items < 1) || (items > 1)) {
13187 SWIG_croak("Usage: gsl_complex_sinh(a);");
13188 }
13189 {
13190 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
13191 if (!SWIG_IsOK(res1)) {
13192 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_sinh" "', argument " "1"" of type '" "gsl_complex""'");
13193 }
13194 if (!argp1) {
13195 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_sinh" "', argument " "1"" of type '" "gsl_complex""'");
13196 } else {
13197 arg1 = *((gsl_complex *)(argp1));
13198 }
13199 }
13200 result = gsl_complex_sinh(arg1);
13201 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++ ;
13202 XSRETURN(argvi);
13203 fail:
13204 SWIG_croak_null();
13205 }
13206 }
13207
13208
XS(_wrap_gsl_complex_cosh)13209 XS(_wrap_gsl_complex_cosh) {
13210 {
13211 gsl_complex arg1 ;
13212 void *argp1 ;
13213 int res1 = 0 ;
13214 int argvi = 0;
13215 gsl_complex result;
13216 dXSARGS;
13217
13218 if ((items < 1) || (items > 1)) {
13219 SWIG_croak("Usage: gsl_complex_cosh(a);");
13220 }
13221 {
13222 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
13223 if (!SWIG_IsOK(res1)) {
13224 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_cosh" "', argument " "1"" of type '" "gsl_complex""'");
13225 }
13226 if (!argp1) {
13227 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_cosh" "', argument " "1"" of type '" "gsl_complex""'");
13228 } else {
13229 arg1 = *((gsl_complex *)(argp1));
13230 }
13231 }
13232 result = gsl_complex_cosh(arg1);
13233 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++ ;
13234 XSRETURN(argvi);
13235 fail:
13236 SWIG_croak_null();
13237 }
13238 }
13239
13240
XS(_wrap_gsl_complex_sech)13241 XS(_wrap_gsl_complex_sech) {
13242 {
13243 gsl_complex arg1 ;
13244 void *argp1 ;
13245 int res1 = 0 ;
13246 int argvi = 0;
13247 gsl_complex result;
13248 dXSARGS;
13249
13250 if ((items < 1) || (items > 1)) {
13251 SWIG_croak("Usage: gsl_complex_sech(a);");
13252 }
13253 {
13254 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
13255 if (!SWIG_IsOK(res1)) {
13256 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_sech" "', argument " "1"" of type '" "gsl_complex""'");
13257 }
13258 if (!argp1) {
13259 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_sech" "', argument " "1"" of type '" "gsl_complex""'");
13260 } else {
13261 arg1 = *((gsl_complex *)(argp1));
13262 }
13263 }
13264 result = gsl_complex_sech(arg1);
13265 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++ ;
13266 XSRETURN(argvi);
13267 fail:
13268 SWIG_croak_null();
13269 }
13270 }
13271
13272
XS(_wrap_gsl_complex_csch)13273 XS(_wrap_gsl_complex_csch) {
13274 {
13275 gsl_complex arg1 ;
13276 void *argp1 ;
13277 int res1 = 0 ;
13278 int argvi = 0;
13279 gsl_complex result;
13280 dXSARGS;
13281
13282 if ((items < 1) || (items > 1)) {
13283 SWIG_croak("Usage: gsl_complex_csch(a);");
13284 }
13285 {
13286 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
13287 if (!SWIG_IsOK(res1)) {
13288 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_csch" "', argument " "1"" of type '" "gsl_complex""'");
13289 }
13290 if (!argp1) {
13291 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_csch" "', argument " "1"" of type '" "gsl_complex""'");
13292 } else {
13293 arg1 = *((gsl_complex *)(argp1));
13294 }
13295 }
13296 result = gsl_complex_csch(arg1);
13297 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++ ;
13298 XSRETURN(argvi);
13299 fail:
13300 SWIG_croak_null();
13301 }
13302 }
13303
13304
XS(_wrap_gsl_complex_tanh)13305 XS(_wrap_gsl_complex_tanh) {
13306 {
13307 gsl_complex arg1 ;
13308 void *argp1 ;
13309 int res1 = 0 ;
13310 int argvi = 0;
13311 gsl_complex result;
13312 dXSARGS;
13313
13314 if ((items < 1) || (items > 1)) {
13315 SWIG_croak("Usage: gsl_complex_tanh(a);");
13316 }
13317 {
13318 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
13319 if (!SWIG_IsOK(res1)) {
13320 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_tanh" "', argument " "1"" of type '" "gsl_complex""'");
13321 }
13322 if (!argp1) {
13323 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_tanh" "', argument " "1"" of type '" "gsl_complex""'");
13324 } else {
13325 arg1 = *((gsl_complex *)(argp1));
13326 }
13327 }
13328 result = gsl_complex_tanh(arg1);
13329 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++ ;
13330 XSRETURN(argvi);
13331 fail:
13332 SWIG_croak_null();
13333 }
13334 }
13335
13336
XS(_wrap_gsl_complex_coth)13337 XS(_wrap_gsl_complex_coth) {
13338 {
13339 gsl_complex arg1 ;
13340 void *argp1 ;
13341 int res1 = 0 ;
13342 int argvi = 0;
13343 gsl_complex result;
13344 dXSARGS;
13345
13346 if ((items < 1) || (items > 1)) {
13347 SWIG_croak("Usage: gsl_complex_coth(a);");
13348 }
13349 {
13350 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
13351 if (!SWIG_IsOK(res1)) {
13352 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_coth" "', argument " "1"" of type '" "gsl_complex""'");
13353 }
13354 if (!argp1) {
13355 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_coth" "', argument " "1"" of type '" "gsl_complex""'");
13356 } else {
13357 arg1 = *((gsl_complex *)(argp1));
13358 }
13359 }
13360 result = gsl_complex_coth(arg1);
13361 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++ ;
13362 XSRETURN(argvi);
13363 fail:
13364 SWIG_croak_null();
13365 }
13366 }
13367
13368
XS(_wrap_gsl_complex_arcsinh)13369 XS(_wrap_gsl_complex_arcsinh) {
13370 {
13371 gsl_complex arg1 ;
13372 void *argp1 ;
13373 int res1 = 0 ;
13374 int argvi = 0;
13375 gsl_complex result;
13376 dXSARGS;
13377
13378 if ((items < 1) || (items > 1)) {
13379 SWIG_croak("Usage: gsl_complex_arcsinh(a);");
13380 }
13381 {
13382 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
13383 if (!SWIG_IsOK(res1)) {
13384 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_arcsinh" "', argument " "1"" of type '" "gsl_complex""'");
13385 }
13386 if (!argp1) {
13387 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_arcsinh" "', argument " "1"" of type '" "gsl_complex""'");
13388 } else {
13389 arg1 = *((gsl_complex *)(argp1));
13390 }
13391 }
13392 result = gsl_complex_arcsinh(arg1);
13393 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++ ;
13394 XSRETURN(argvi);
13395 fail:
13396 SWIG_croak_null();
13397 }
13398 }
13399
13400
XS(_wrap_gsl_complex_arccosh)13401 XS(_wrap_gsl_complex_arccosh) {
13402 {
13403 gsl_complex arg1 ;
13404 void *argp1 ;
13405 int res1 = 0 ;
13406 int argvi = 0;
13407 gsl_complex result;
13408 dXSARGS;
13409
13410 if ((items < 1) || (items > 1)) {
13411 SWIG_croak("Usage: gsl_complex_arccosh(a);");
13412 }
13413 {
13414 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
13415 if (!SWIG_IsOK(res1)) {
13416 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_arccosh" "', argument " "1"" of type '" "gsl_complex""'");
13417 }
13418 if (!argp1) {
13419 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_arccosh" "', argument " "1"" of type '" "gsl_complex""'");
13420 } else {
13421 arg1 = *((gsl_complex *)(argp1));
13422 }
13423 }
13424 result = gsl_complex_arccosh(arg1);
13425 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++ ;
13426 XSRETURN(argvi);
13427 fail:
13428 SWIG_croak_null();
13429 }
13430 }
13431
13432
XS(_wrap_gsl_complex_arccosh_real)13433 XS(_wrap_gsl_complex_arccosh_real) {
13434 {
13435 double arg1 ;
13436 double val1 ;
13437 int ecode1 = 0 ;
13438 int argvi = 0;
13439 gsl_complex result;
13440 dXSARGS;
13441
13442 if ((items < 1) || (items > 1)) {
13443 SWIG_croak("Usage: gsl_complex_arccosh_real(a);");
13444 }
13445 ecode1 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
13446 if (!SWIG_IsOK(ecode1)) {
13447 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_complex_arccosh_real" "', argument " "1"" of type '" "double""'");
13448 }
13449 arg1 = (double)(val1);
13450 result = gsl_complex_arccosh_real(arg1);
13451 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++ ;
13452
13453 XSRETURN(argvi);
13454 fail:
13455
13456 SWIG_croak_null();
13457 }
13458 }
13459
13460
XS(_wrap_gsl_complex_arcsech)13461 XS(_wrap_gsl_complex_arcsech) {
13462 {
13463 gsl_complex arg1 ;
13464 void *argp1 ;
13465 int res1 = 0 ;
13466 int argvi = 0;
13467 gsl_complex result;
13468 dXSARGS;
13469
13470 if ((items < 1) || (items > 1)) {
13471 SWIG_croak("Usage: gsl_complex_arcsech(a);");
13472 }
13473 {
13474 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
13475 if (!SWIG_IsOK(res1)) {
13476 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_arcsech" "', argument " "1"" of type '" "gsl_complex""'");
13477 }
13478 if (!argp1) {
13479 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_arcsech" "', argument " "1"" of type '" "gsl_complex""'");
13480 } else {
13481 arg1 = *((gsl_complex *)(argp1));
13482 }
13483 }
13484 result = gsl_complex_arcsech(arg1);
13485 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++ ;
13486 XSRETURN(argvi);
13487 fail:
13488 SWIG_croak_null();
13489 }
13490 }
13491
13492
XS(_wrap_gsl_complex_arccsch)13493 XS(_wrap_gsl_complex_arccsch) {
13494 {
13495 gsl_complex arg1 ;
13496 void *argp1 ;
13497 int res1 = 0 ;
13498 int argvi = 0;
13499 gsl_complex result;
13500 dXSARGS;
13501
13502 if ((items < 1) || (items > 1)) {
13503 SWIG_croak("Usage: gsl_complex_arccsch(a);");
13504 }
13505 {
13506 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
13507 if (!SWIG_IsOK(res1)) {
13508 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_arccsch" "', argument " "1"" of type '" "gsl_complex""'");
13509 }
13510 if (!argp1) {
13511 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_arccsch" "', argument " "1"" of type '" "gsl_complex""'");
13512 } else {
13513 arg1 = *((gsl_complex *)(argp1));
13514 }
13515 }
13516 result = gsl_complex_arccsch(arg1);
13517 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++ ;
13518 XSRETURN(argvi);
13519 fail:
13520 SWIG_croak_null();
13521 }
13522 }
13523
13524
XS(_wrap_gsl_complex_arctanh)13525 XS(_wrap_gsl_complex_arctanh) {
13526 {
13527 gsl_complex arg1 ;
13528 void *argp1 ;
13529 int res1 = 0 ;
13530 int argvi = 0;
13531 gsl_complex result;
13532 dXSARGS;
13533
13534 if ((items < 1) || (items > 1)) {
13535 SWIG_croak("Usage: gsl_complex_arctanh(a);");
13536 }
13537 {
13538 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
13539 if (!SWIG_IsOK(res1)) {
13540 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_arctanh" "', argument " "1"" of type '" "gsl_complex""'");
13541 }
13542 if (!argp1) {
13543 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_arctanh" "', argument " "1"" of type '" "gsl_complex""'");
13544 } else {
13545 arg1 = *((gsl_complex *)(argp1));
13546 }
13547 }
13548 result = gsl_complex_arctanh(arg1);
13549 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++ ;
13550 XSRETURN(argvi);
13551 fail:
13552 SWIG_croak_null();
13553 }
13554 }
13555
13556
XS(_wrap_gsl_complex_arctanh_real)13557 XS(_wrap_gsl_complex_arctanh_real) {
13558 {
13559 double arg1 ;
13560 double val1 ;
13561 int ecode1 = 0 ;
13562 int argvi = 0;
13563 gsl_complex result;
13564 dXSARGS;
13565
13566 if ((items < 1) || (items > 1)) {
13567 SWIG_croak("Usage: gsl_complex_arctanh_real(a);");
13568 }
13569 ecode1 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
13570 if (!SWIG_IsOK(ecode1)) {
13571 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_complex_arctanh_real" "', argument " "1"" of type '" "double""'");
13572 }
13573 arg1 = (double)(val1);
13574 result = gsl_complex_arctanh_real(arg1);
13575 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
13576
13577 XSRETURN(argvi);
13578 fail:
13579
13580 SWIG_croak_null();
13581 }
13582 }
13583
13584
XS(_wrap_gsl_complex_arccoth)13585 XS(_wrap_gsl_complex_arccoth) {
13586 {
13587 gsl_complex arg1 ;
13588 void *argp1 ;
13589 int res1 = 0 ;
13590 int argvi = 0;
13591 gsl_complex result;
13592 dXSARGS;
13593
13594 if ((items < 1) || (items > 1)) {
13595 SWIG_croak("Usage: gsl_complex_arccoth(a);");
13596 }
13597 {
13598 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
13599 if (!SWIG_IsOK(res1)) {
13600 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_arccoth" "', argument " "1"" of type '" "gsl_complex""'");
13601 }
13602 if (!argp1) {
13603 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_arccoth" "', argument " "1"" of type '" "gsl_complex""'");
13604 } else {
13605 arg1 = *((gsl_complex *)(argp1));
13606 }
13607 }
13608 result = gsl_complex_arccoth(arg1);
13609 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++ ;
13610 XSRETURN(argvi);
13611 fail:
13612 SWIG_croak_null();
13613 }
13614 }
13615
13616
13617
13618 /* -------- TYPE CONVERSION AND EQUIVALENCE RULES (BEGIN) -------- */
13619
13620 static swig_type_info _swigt__p_FILE = {"_p_FILE", "FILE *", 0, 0, (void*)0, 0};
13621 static swig_type_info _swigt__p_char = {"_p_char", "char *", 0, 0, (void*)0, 0};
13622 static swig_type_info _swigt__p_double = {"_p_double", "double *", 0, 0, (void*)0, 0};
13623 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};
13624 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};
13625 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};
13626 static swig_type_info _swigt__p_float = {"_p_float", "float *", 0, 0, (void*)0, 0};
13627 static swig_type_info _swigt__p_gsl_complex = {"_p_gsl_complex", "gsl_complex *", 0, 0, (void*)"Math::GSL::Linalg::gsl_complex", 0};
13628 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};
13629 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};
13630 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};
13631 static swig_type_info _swigt__p_gsl_matrix = {"_p_gsl_matrix", "gsl_matrix *", 0, 0, (void*)0, 0};
13632 static swig_type_info _swigt__p_gsl_matrix_complex = {"_p_gsl_matrix_complex", "gsl_matrix_complex *", 0, 0, (void*)0, 0};
13633 static swig_type_info _swigt__p_gsl_mode_t = {"_p_gsl_mode_t", "gsl_mode_t *", 0, 0, (void*)0, 0};
13634 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};
13635 static swig_type_info _swigt__p_gsl_vector = {"_p_gsl_vector", "gsl_vector *", 0, 0, (void*)0, 0};
13636 static swig_type_info _swigt__p_gsl_vector_complex = {"_p_gsl_vector_complex", "gsl_vector_complex *", 0, 0, (void*)0, 0};
13637 static swig_type_info _swigt__p_int = {"_p_int", "int *", 0, 0, (void*)0, 0};
13638 static swig_type_info _swigt__p_long_double = {"_p_long_double", "long double *", 0, 0, (void*)0, 0};
13639 static swig_type_info _swigt__p_size_t = {"_p_size_t", "size_t *", 0, 0, (void*)0, 0};
13640
13641 static swig_type_info *swig_type_initial[] = {
13642 &_swigt__p_FILE,
13643 &_swigt__p_char,
13644 &_swigt__p_double,
13645 &_swigt__p_f_CBLAS_TRANSPOSE_t_p_gsl_vector_p_void__int,
13646 &_swigt__p_f_p_q_const__char_p_q_const__char_int_int__void,
13647 &_swigt__p_f_p_q_const__char_p_q_const__char_int_p_q_const__char__void,
13648 &_swigt__p_float,
13649 &_swigt__p_gsl_complex,
13650 &_swigt__p_gsl_complex_float,
13651 &_swigt__p_gsl_complex_long_double,
13652 &_swigt__p_gsl_linalg_matrix_mod_t,
13653 &_swigt__p_gsl_matrix,
13654 &_swigt__p_gsl_matrix_complex,
13655 &_swigt__p_gsl_mode_t,
13656 &_swigt__p_gsl_permutation_struct,
13657 &_swigt__p_gsl_vector,
13658 &_swigt__p_gsl_vector_complex,
13659 &_swigt__p_int,
13660 &_swigt__p_long_double,
13661 &_swigt__p_size_t,
13662 };
13663
13664 static swig_cast_info _swigc__p_FILE[] = { {&_swigt__p_FILE, 0, 0, 0},{0, 0, 0, 0}};
13665 static swig_cast_info _swigc__p_char[] = { {&_swigt__p_char, 0, 0, 0},{0, 0, 0, 0}};
13666 static swig_cast_info _swigc__p_double[] = { {&_swigt__p_double, 0, 0, 0},{0, 0, 0, 0}};
13667 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}};
13668 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}};
13669 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}};
13670 static swig_cast_info _swigc__p_float[] = { {&_swigt__p_float, 0, 0, 0},{0, 0, 0, 0}};
13671 static swig_cast_info _swigc__p_gsl_complex[] = { {&_swigt__p_gsl_complex, 0, 0, 0},{0, 0, 0, 0}};
13672 static swig_cast_info _swigc__p_gsl_complex_float[] = { {&_swigt__p_gsl_complex_float, 0, 0, 0},{0, 0, 0, 0}};
13673 static swig_cast_info _swigc__p_gsl_complex_long_double[] = { {&_swigt__p_gsl_complex_long_double, 0, 0, 0},{0, 0, 0, 0}};
13674 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}};
13675 static swig_cast_info _swigc__p_gsl_matrix[] = { {&_swigt__p_gsl_matrix, 0, 0, 0},{0, 0, 0, 0}};
13676 static swig_cast_info _swigc__p_gsl_matrix_complex[] = { {&_swigt__p_gsl_matrix_complex, 0, 0, 0},{0, 0, 0, 0}};
13677 static swig_cast_info _swigc__p_gsl_mode_t[] = { {&_swigt__p_gsl_mode_t, 0, 0, 0},{0, 0, 0, 0}};
13678 static swig_cast_info _swigc__p_gsl_permutation_struct[] = { {&_swigt__p_gsl_permutation_struct, 0, 0, 0},{0, 0, 0, 0}};
13679 static swig_cast_info _swigc__p_gsl_vector[] = { {&_swigt__p_gsl_vector, 0, 0, 0},{0, 0, 0, 0}};
13680 static swig_cast_info _swigc__p_gsl_vector_complex[] = { {&_swigt__p_gsl_vector_complex, 0, 0, 0},{0, 0, 0, 0}};
13681 static swig_cast_info _swigc__p_int[] = { {&_swigt__p_int, 0, 0, 0},{0, 0, 0, 0}};
13682 static swig_cast_info _swigc__p_long_double[] = { {&_swigt__p_long_double, 0, 0, 0},{0, 0, 0, 0}};
13683 static swig_cast_info _swigc__p_size_t[] = { {&_swigt__p_size_t, 0, 0, 0},{0, 0, 0, 0}};
13684
13685 static swig_cast_info *swig_cast_initial[] = {
13686 _swigc__p_FILE,
13687 _swigc__p_char,
13688 _swigc__p_double,
13689 _swigc__p_f_CBLAS_TRANSPOSE_t_p_gsl_vector_p_void__int,
13690 _swigc__p_f_p_q_const__char_p_q_const__char_int_int__void,
13691 _swigc__p_f_p_q_const__char_p_q_const__char_int_p_q_const__char__void,
13692 _swigc__p_float,
13693 _swigc__p_gsl_complex,
13694 _swigc__p_gsl_complex_float,
13695 _swigc__p_gsl_complex_long_double,
13696 _swigc__p_gsl_linalg_matrix_mod_t,
13697 _swigc__p_gsl_matrix,
13698 _swigc__p_gsl_matrix_complex,
13699 _swigc__p_gsl_mode_t,
13700 _swigc__p_gsl_permutation_struct,
13701 _swigc__p_gsl_vector,
13702 _swigc__p_gsl_vector_complex,
13703 _swigc__p_int,
13704 _swigc__p_long_double,
13705 _swigc__p_size_t,
13706 };
13707
13708
13709 /* -------- TYPE CONVERSION AND EQUIVALENCE RULES (END) -------- */
13710
13711 static swig_constant_info swig_constants[] = {
13712 {0,0,0,0,0,0}
13713 };
13714 #ifdef __cplusplus
13715 }
13716 #endif
13717 static swig_variable_info swig_variables[] = {
13718 {0,0,0,0}
13719 };
13720 static swig_command_info swig_commands[] = {
13721 {"Math::GSL::Linalgc::gsl_error", _wrap_gsl_error},
13722 {"Math::GSL::Linalgc::gsl_stream_printf", _wrap_gsl_stream_printf},
13723 {"Math::GSL::Linalgc::gsl_strerror", _wrap_gsl_strerror},
13724 {"Math::GSL::Linalgc::gsl_set_error_handler", _wrap_gsl_set_error_handler},
13725 {"Math::GSL::Linalgc::gsl_set_error_handler_off", _wrap_gsl_set_error_handler_off},
13726 {"Math::GSL::Linalgc::gsl_set_stream_handler", _wrap_gsl_set_stream_handler},
13727 {"Math::GSL::Linalgc::gsl_set_stream", _wrap_gsl_set_stream},
13728 {"Math::GSL::Linalgc::gsl_linalg_matmult", _wrap_gsl_linalg_matmult},
13729 {"Math::GSL::Linalgc::gsl_linalg_matmult_mod", _wrap_gsl_linalg_matmult_mod},
13730 {"Math::GSL::Linalgc::gsl_linalg_exponential_ss", _wrap_gsl_linalg_exponential_ss},
13731 {"Math::GSL::Linalgc::gsl_linalg_householder_transform", _wrap_gsl_linalg_householder_transform},
13732 {"Math::GSL::Linalgc::gsl_linalg_complex_householder_transform", _wrap_gsl_linalg_complex_householder_transform},
13733 {"Math::GSL::Linalgc::gsl_linalg_householder_hm", _wrap_gsl_linalg_householder_hm},
13734 {"Math::GSL::Linalgc::gsl_linalg_householder_mh", _wrap_gsl_linalg_householder_mh},
13735 {"Math::GSL::Linalgc::gsl_linalg_householder_hv", _wrap_gsl_linalg_householder_hv},
13736 {"Math::GSL::Linalgc::gsl_linalg_householder_hm1", _wrap_gsl_linalg_householder_hm1},
13737 {"Math::GSL::Linalgc::gsl_linalg_complex_householder_hm", _wrap_gsl_linalg_complex_householder_hm},
13738 {"Math::GSL::Linalgc::gsl_linalg_complex_householder_mh", _wrap_gsl_linalg_complex_householder_mh},
13739 {"Math::GSL::Linalgc::gsl_linalg_complex_householder_hv", _wrap_gsl_linalg_complex_householder_hv},
13740 {"Math::GSL::Linalgc::gsl_linalg_hessenberg_decomp", _wrap_gsl_linalg_hessenberg_decomp},
13741 {"Math::GSL::Linalgc::gsl_linalg_hessenberg_unpack", _wrap_gsl_linalg_hessenberg_unpack},
13742 {"Math::GSL::Linalgc::gsl_linalg_hessenberg_unpack_accum", _wrap_gsl_linalg_hessenberg_unpack_accum},
13743 {"Math::GSL::Linalgc::gsl_linalg_hessenberg_set_zero", _wrap_gsl_linalg_hessenberg_set_zero},
13744 {"Math::GSL::Linalgc::gsl_linalg_hessenberg_submatrix", _wrap_gsl_linalg_hessenberg_submatrix},
13745 {"Math::GSL::Linalgc::gsl_linalg_hesstri_decomp", _wrap_gsl_linalg_hesstri_decomp},
13746 {"Math::GSL::Linalgc::gsl_linalg_SV_decomp", _wrap_gsl_linalg_SV_decomp},
13747 {"Math::GSL::Linalgc::gsl_linalg_SV_decomp_mod", _wrap_gsl_linalg_SV_decomp_mod},
13748 {"Math::GSL::Linalgc::gsl_linalg_SV_decomp_jacobi", _wrap_gsl_linalg_SV_decomp_jacobi},
13749 {"Math::GSL::Linalgc::gsl_linalg_SV_solve", _wrap_gsl_linalg_SV_solve},
13750 {"Math::GSL::Linalgc::gsl_linalg_SV_leverage", _wrap_gsl_linalg_SV_leverage},
13751 {"Math::GSL::Linalgc::gsl_linalg_LU_decomp", _wrap_gsl_linalg_LU_decomp},
13752 {"Math::GSL::Linalgc::gsl_linalg_LU_solve", _wrap_gsl_linalg_LU_solve},
13753 {"Math::GSL::Linalgc::gsl_linalg_LU_svx", _wrap_gsl_linalg_LU_svx},
13754 {"Math::GSL::Linalgc::gsl_linalg_LU_refine", _wrap_gsl_linalg_LU_refine},
13755 {"Math::GSL::Linalgc::gsl_linalg_LU_invert", _wrap_gsl_linalg_LU_invert},
13756 {"Math::GSL::Linalgc::gsl_linalg_LU_det", _wrap_gsl_linalg_LU_det},
13757 {"Math::GSL::Linalgc::gsl_linalg_LU_lndet", _wrap_gsl_linalg_LU_lndet},
13758 {"Math::GSL::Linalgc::gsl_linalg_LU_sgndet", _wrap_gsl_linalg_LU_sgndet},
13759 {"Math::GSL::Linalgc::gsl_linalg_complex_LU_decomp", _wrap_gsl_linalg_complex_LU_decomp},
13760 {"Math::GSL::Linalgc::gsl_linalg_complex_LU_solve", _wrap_gsl_linalg_complex_LU_solve},
13761 {"Math::GSL::Linalgc::gsl_linalg_complex_LU_svx", _wrap_gsl_linalg_complex_LU_svx},
13762 {"Math::GSL::Linalgc::gsl_linalg_complex_LU_refine", _wrap_gsl_linalg_complex_LU_refine},
13763 {"Math::GSL::Linalgc::gsl_linalg_complex_LU_invert", _wrap_gsl_linalg_complex_LU_invert},
13764 {"Math::GSL::Linalgc::gsl_linalg_complex_LU_det", _wrap_gsl_linalg_complex_LU_det},
13765 {"Math::GSL::Linalgc::gsl_linalg_complex_LU_lndet", _wrap_gsl_linalg_complex_LU_lndet},
13766 {"Math::GSL::Linalgc::gsl_linalg_complex_LU_sgndet", _wrap_gsl_linalg_complex_LU_sgndet},
13767 {"Math::GSL::Linalgc::gsl_linalg_QR_decomp", _wrap_gsl_linalg_QR_decomp},
13768 {"Math::GSL::Linalgc::gsl_linalg_QR_solve", _wrap_gsl_linalg_QR_solve},
13769 {"Math::GSL::Linalgc::gsl_linalg_QR_svx", _wrap_gsl_linalg_QR_svx},
13770 {"Math::GSL::Linalgc::gsl_linalg_QR_lssolve", _wrap_gsl_linalg_QR_lssolve},
13771 {"Math::GSL::Linalgc::gsl_linalg_QR_QRsolve", _wrap_gsl_linalg_QR_QRsolve},
13772 {"Math::GSL::Linalgc::gsl_linalg_QR_Rsolve", _wrap_gsl_linalg_QR_Rsolve},
13773 {"Math::GSL::Linalgc::gsl_linalg_QR_Rsvx", _wrap_gsl_linalg_QR_Rsvx},
13774 {"Math::GSL::Linalgc::gsl_linalg_QR_update", _wrap_gsl_linalg_QR_update},
13775 {"Math::GSL::Linalgc::gsl_linalg_QR_QTvec", _wrap_gsl_linalg_QR_QTvec},
13776 {"Math::GSL::Linalgc::gsl_linalg_QR_Qvec", _wrap_gsl_linalg_QR_Qvec},
13777 {"Math::GSL::Linalgc::gsl_linalg_QR_QTmat", _wrap_gsl_linalg_QR_QTmat},
13778 {"Math::GSL::Linalgc::gsl_linalg_QR_matQ", _wrap_gsl_linalg_QR_matQ},
13779 {"Math::GSL::Linalgc::gsl_linalg_QR_unpack", _wrap_gsl_linalg_QR_unpack},
13780 {"Math::GSL::Linalgc::gsl_linalg_R_solve", _wrap_gsl_linalg_R_solve},
13781 {"Math::GSL::Linalgc::gsl_linalg_R_svx", _wrap_gsl_linalg_R_svx},
13782 {"Math::GSL::Linalgc::gsl_linalg_QRPT_decomp", _wrap_gsl_linalg_QRPT_decomp},
13783 {"Math::GSL::Linalgc::gsl_linalg_QRPT_decomp2", _wrap_gsl_linalg_QRPT_decomp2},
13784 {"Math::GSL::Linalgc::gsl_linalg_QRPT_solve", _wrap_gsl_linalg_QRPT_solve},
13785 {"Math::GSL::Linalgc::gsl_linalg_QRPT_lssolve", _wrap_gsl_linalg_QRPT_lssolve},
13786 {"Math::GSL::Linalgc::gsl_linalg_QRPT_lssolve2", _wrap_gsl_linalg_QRPT_lssolve2},
13787 {"Math::GSL::Linalgc::gsl_linalg_QRPT_svx", _wrap_gsl_linalg_QRPT_svx},
13788 {"Math::GSL::Linalgc::gsl_linalg_QRPT_QRsolve", _wrap_gsl_linalg_QRPT_QRsolve},
13789 {"Math::GSL::Linalgc::gsl_linalg_QRPT_Rsolve", _wrap_gsl_linalg_QRPT_Rsolve},
13790 {"Math::GSL::Linalgc::gsl_linalg_QRPT_Rsvx", _wrap_gsl_linalg_QRPT_Rsvx},
13791 {"Math::GSL::Linalgc::gsl_linalg_QRPT_update", _wrap_gsl_linalg_QRPT_update},
13792 {"Math::GSL::Linalgc::gsl_linalg_QRPT_rank", _wrap_gsl_linalg_QRPT_rank},
13793 {"Math::GSL::Linalgc::gsl_linalg_QRPT_rcond", _wrap_gsl_linalg_QRPT_rcond},
13794 {"Math::GSL::Linalgc::gsl_linalg_COD_decomp", _wrap_gsl_linalg_COD_decomp},
13795 {"Math::GSL::Linalgc::gsl_linalg_COD_decomp_e", _wrap_gsl_linalg_COD_decomp_e},
13796 {"Math::GSL::Linalgc::gsl_linalg_COD_lssolve", _wrap_gsl_linalg_COD_lssolve},
13797 {"Math::GSL::Linalgc::gsl_linalg_COD_unpack", _wrap_gsl_linalg_COD_unpack},
13798 {"Math::GSL::Linalgc::gsl_linalg_COD_matZ", _wrap_gsl_linalg_COD_matZ},
13799 {"Math::GSL::Linalgc::gsl_linalg_LQ_decomp", _wrap_gsl_linalg_LQ_decomp},
13800 {"Math::GSL::Linalgc::gsl_linalg_LQ_solve_T", _wrap_gsl_linalg_LQ_solve_T},
13801 {"Math::GSL::Linalgc::gsl_linalg_LQ_svx_T", _wrap_gsl_linalg_LQ_svx_T},
13802 {"Math::GSL::Linalgc::gsl_linalg_LQ_lssolve_T", _wrap_gsl_linalg_LQ_lssolve_T},
13803 {"Math::GSL::Linalgc::gsl_linalg_LQ_Lsolve_T", _wrap_gsl_linalg_LQ_Lsolve_T},
13804 {"Math::GSL::Linalgc::gsl_linalg_LQ_Lsvx_T", _wrap_gsl_linalg_LQ_Lsvx_T},
13805 {"Math::GSL::Linalgc::gsl_linalg_L_solve_T", _wrap_gsl_linalg_L_solve_T},
13806 {"Math::GSL::Linalgc::gsl_linalg_LQ_vecQ", _wrap_gsl_linalg_LQ_vecQ},
13807 {"Math::GSL::Linalgc::gsl_linalg_LQ_vecQT", _wrap_gsl_linalg_LQ_vecQT},
13808 {"Math::GSL::Linalgc::gsl_linalg_LQ_unpack", _wrap_gsl_linalg_LQ_unpack},
13809 {"Math::GSL::Linalgc::gsl_linalg_LQ_update", _wrap_gsl_linalg_LQ_update},
13810 {"Math::GSL::Linalgc::gsl_linalg_LQ_LQsolve", _wrap_gsl_linalg_LQ_LQsolve},
13811 {"Math::GSL::Linalgc::gsl_linalg_PTLQ_decomp", _wrap_gsl_linalg_PTLQ_decomp},
13812 {"Math::GSL::Linalgc::gsl_linalg_PTLQ_decomp2", _wrap_gsl_linalg_PTLQ_decomp2},
13813 {"Math::GSL::Linalgc::gsl_linalg_PTLQ_solve_T", _wrap_gsl_linalg_PTLQ_solve_T},
13814 {"Math::GSL::Linalgc::gsl_linalg_PTLQ_svx_T", _wrap_gsl_linalg_PTLQ_svx_T},
13815 {"Math::GSL::Linalgc::gsl_linalg_PTLQ_LQsolve_T", _wrap_gsl_linalg_PTLQ_LQsolve_T},
13816 {"Math::GSL::Linalgc::gsl_linalg_PTLQ_Lsolve_T", _wrap_gsl_linalg_PTLQ_Lsolve_T},
13817 {"Math::GSL::Linalgc::gsl_linalg_PTLQ_Lsvx_T", _wrap_gsl_linalg_PTLQ_Lsvx_T},
13818 {"Math::GSL::Linalgc::gsl_linalg_PTLQ_update", _wrap_gsl_linalg_PTLQ_update},
13819 {"Math::GSL::Linalgc::gsl_linalg_cholesky_decomp", _wrap_gsl_linalg_cholesky_decomp},
13820 {"Math::GSL::Linalgc::gsl_linalg_cholesky_decomp1", _wrap_gsl_linalg_cholesky_decomp1},
13821 {"Math::GSL::Linalgc::gsl_linalg_cholesky_solve", _wrap_gsl_linalg_cholesky_solve},
13822 {"Math::GSL::Linalgc::gsl_linalg_cholesky_svx", _wrap_gsl_linalg_cholesky_svx},
13823 {"Math::GSL::Linalgc::gsl_linalg_cholesky_invert", _wrap_gsl_linalg_cholesky_invert},
13824 {"Math::GSL::Linalgc::gsl_linalg_cholesky_decomp_unit", _wrap_gsl_linalg_cholesky_decomp_unit},
13825 {"Math::GSL::Linalgc::gsl_linalg_cholesky_scale", _wrap_gsl_linalg_cholesky_scale},
13826 {"Math::GSL::Linalgc::gsl_linalg_cholesky_scale_apply", _wrap_gsl_linalg_cholesky_scale_apply},
13827 {"Math::GSL::Linalgc::gsl_linalg_cholesky_decomp2", _wrap_gsl_linalg_cholesky_decomp2},
13828 {"Math::GSL::Linalgc::gsl_linalg_cholesky_svx2", _wrap_gsl_linalg_cholesky_svx2},
13829 {"Math::GSL::Linalgc::gsl_linalg_cholesky_solve2", _wrap_gsl_linalg_cholesky_solve2},
13830 {"Math::GSL::Linalgc::gsl_linalg_cholesky_rcond", _wrap_gsl_linalg_cholesky_rcond},
13831 {"Math::GSL::Linalgc::gsl_linalg_complex_cholesky_decomp", _wrap_gsl_linalg_complex_cholesky_decomp},
13832 {"Math::GSL::Linalgc::gsl_linalg_complex_cholesky_solve", _wrap_gsl_linalg_complex_cholesky_solve},
13833 {"Math::GSL::Linalgc::gsl_linalg_complex_cholesky_svx", _wrap_gsl_linalg_complex_cholesky_svx},
13834 {"Math::GSL::Linalgc::gsl_linalg_complex_cholesky_invert", _wrap_gsl_linalg_complex_cholesky_invert},
13835 {"Math::GSL::Linalgc::gsl_linalg_pcholesky_decomp", _wrap_gsl_linalg_pcholesky_decomp},
13836 {"Math::GSL::Linalgc::gsl_linalg_pcholesky_solve", _wrap_gsl_linalg_pcholesky_solve},
13837 {"Math::GSL::Linalgc::gsl_linalg_pcholesky_svx", _wrap_gsl_linalg_pcholesky_svx},
13838 {"Math::GSL::Linalgc::gsl_linalg_pcholesky_decomp2", _wrap_gsl_linalg_pcholesky_decomp2},
13839 {"Math::GSL::Linalgc::gsl_linalg_pcholesky_solve2", _wrap_gsl_linalg_pcholesky_solve2},
13840 {"Math::GSL::Linalgc::gsl_linalg_pcholesky_svx2", _wrap_gsl_linalg_pcholesky_svx2},
13841 {"Math::GSL::Linalgc::gsl_linalg_pcholesky_invert", _wrap_gsl_linalg_pcholesky_invert},
13842 {"Math::GSL::Linalgc::gsl_linalg_pcholesky_rcond", _wrap_gsl_linalg_pcholesky_rcond},
13843 {"Math::GSL::Linalgc::gsl_linalg_mcholesky_decomp", _wrap_gsl_linalg_mcholesky_decomp},
13844 {"Math::GSL::Linalgc::gsl_linalg_mcholesky_solve", _wrap_gsl_linalg_mcholesky_solve},
13845 {"Math::GSL::Linalgc::gsl_linalg_mcholesky_svx", _wrap_gsl_linalg_mcholesky_svx},
13846 {"Math::GSL::Linalgc::gsl_linalg_mcholesky_rcond", _wrap_gsl_linalg_mcholesky_rcond},
13847 {"Math::GSL::Linalgc::gsl_linalg_mcholesky_invert", _wrap_gsl_linalg_mcholesky_invert},
13848 {"Math::GSL::Linalgc::gsl_linalg_symmtd_decomp", _wrap_gsl_linalg_symmtd_decomp},
13849 {"Math::GSL::Linalgc::gsl_linalg_symmtd_unpack", _wrap_gsl_linalg_symmtd_unpack},
13850 {"Math::GSL::Linalgc::gsl_linalg_symmtd_unpack_T", _wrap_gsl_linalg_symmtd_unpack_T},
13851 {"Math::GSL::Linalgc::gsl_linalg_hermtd_decomp", _wrap_gsl_linalg_hermtd_decomp},
13852 {"Math::GSL::Linalgc::gsl_linalg_hermtd_unpack", _wrap_gsl_linalg_hermtd_unpack},
13853 {"Math::GSL::Linalgc::gsl_linalg_hermtd_unpack_T", _wrap_gsl_linalg_hermtd_unpack_T},
13854 {"Math::GSL::Linalgc::gsl_linalg_HH_solve", _wrap_gsl_linalg_HH_solve},
13855 {"Math::GSL::Linalgc::gsl_linalg_HH_svx", _wrap_gsl_linalg_HH_svx},
13856 {"Math::GSL::Linalgc::gsl_linalg_solve_symm_tridiag", _wrap_gsl_linalg_solve_symm_tridiag},
13857 {"Math::GSL::Linalgc::gsl_linalg_solve_tridiag", _wrap_gsl_linalg_solve_tridiag},
13858 {"Math::GSL::Linalgc::gsl_linalg_solve_symm_cyc_tridiag", _wrap_gsl_linalg_solve_symm_cyc_tridiag},
13859 {"Math::GSL::Linalgc::gsl_linalg_solve_cyc_tridiag", _wrap_gsl_linalg_solve_cyc_tridiag},
13860 {"Math::GSL::Linalgc::gsl_linalg_bidiag_decomp", _wrap_gsl_linalg_bidiag_decomp},
13861 {"Math::GSL::Linalgc::gsl_linalg_bidiag_unpack", _wrap_gsl_linalg_bidiag_unpack},
13862 {"Math::GSL::Linalgc::gsl_linalg_bidiag_unpack2", _wrap_gsl_linalg_bidiag_unpack2},
13863 {"Math::GSL::Linalgc::gsl_linalg_bidiag_unpack_B", _wrap_gsl_linalg_bidiag_unpack_B},
13864 {"Math::GSL::Linalgc::gsl_linalg_balance_matrix", _wrap_gsl_linalg_balance_matrix},
13865 {"Math::GSL::Linalgc::gsl_linalg_balance_accum", _wrap_gsl_linalg_balance_accum},
13866 {"Math::GSL::Linalgc::gsl_linalg_balance_columns", _wrap_gsl_linalg_balance_columns},
13867 {"Math::GSL::Linalgc::gsl_linalg_tri_upper_rcond", _wrap_gsl_linalg_tri_upper_rcond},
13868 {"Math::GSL::Linalgc::gsl_linalg_tri_lower_rcond", _wrap_gsl_linalg_tri_lower_rcond},
13869 {"Math::GSL::Linalgc::gsl_linalg_invnorm1", _wrap_gsl_linalg_invnorm1},
13870 {"Math::GSL::Linalgc::gsl_linalg_tri_upper_invert", _wrap_gsl_linalg_tri_upper_invert},
13871 {"Math::GSL::Linalgc::gsl_linalg_tri_lower_invert", _wrap_gsl_linalg_tri_lower_invert},
13872 {"Math::GSL::Linalgc::gsl_linalg_tri_upper_unit_invert", _wrap_gsl_linalg_tri_upper_unit_invert},
13873 {"Math::GSL::Linalgc::gsl_linalg_tri_lower_unit_invert", _wrap_gsl_linalg_tri_lower_unit_invert},
13874 {"Math::GSL::Linalgc::gsl_linalg_givens", _wrap_gsl_linalg_givens},
13875 {"Math::GSL::Linalgc::gsl_linalg_givens_gv", _wrap_gsl_linalg_givens_gv},
13876 {"Math::GSL::Linalgc::gsl_permutation_struct_size_set", _wrap_gsl_permutation_struct_size_set},
13877 {"Math::GSL::Linalgc::gsl_permutation_struct_size_get", _wrap_gsl_permutation_struct_size_get},
13878 {"Math::GSL::Linalgc::gsl_permutation_struct_data_set", _wrap_gsl_permutation_struct_data_set},
13879 {"Math::GSL::Linalgc::gsl_permutation_struct_data_get", _wrap_gsl_permutation_struct_data_get},
13880 {"Math::GSL::Linalgc::new_gsl_permutation_struct", _wrap_new_gsl_permutation_struct},
13881 {"Math::GSL::Linalgc::delete_gsl_permutation_struct", _wrap_delete_gsl_permutation_struct},
13882 {"Math::GSL::Linalgc::gsl_permutation_alloc", _wrap_gsl_permutation_alloc},
13883 {"Math::GSL::Linalgc::gsl_permutation_calloc", _wrap_gsl_permutation_calloc},
13884 {"Math::GSL::Linalgc::gsl_permutation_init", _wrap_gsl_permutation_init},
13885 {"Math::GSL::Linalgc::gsl_permutation_free", _wrap_gsl_permutation_free},
13886 {"Math::GSL::Linalgc::gsl_permutation_memcpy", _wrap_gsl_permutation_memcpy},
13887 {"Math::GSL::Linalgc::gsl_permutation_fread", _wrap_gsl_permutation_fread},
13888 {"Math::GSL::Linalgc::gsl_permutation_fwrite", _wrap_gsl_permutation_fwrite},
13889 {"Math::GSL::Linalgc::gsl_permutation_fscanf", _wrap_gsl_permutation_fscanf},
13890 {"Math::GSL::Linalgc::gsl_permutation_fprintf", _wrap_gsl_permutation_fprintf},
13891 {"Math::GSL::Linalgc::gsl_permutation_size", _wrap_gsl_permutation_size},
13892 {"Math::GSL::Linalgc::gsl_permutation_data", _wrap_gsl_permutation_data},
13893 {"Math::GSL::Linalgc::gsl_permutation_swap", _wrap_gsl_permutation_swap},
13894 {"Math::GSL::Linalgc::gsl_permutation_valid", _wrap_gsl_permutation_valid},
13895 {"Math::GSL::Linalgc::gsl_permutation_reverse", _wrap_gsl_permutation_reverse},
13896 {"Math::GSL::Linalgc::gsl_permutation_inverse", _wrap_gsl_permutation_inverse},
13897 {"Math::GSL::Linalgc::gsl_permutation_next", _wrap_gsl_permutation_next},
13898 {"Math::GSL::Linalgc::gsl_permutation_prev", _wrap_gsl_permutation_prev},
13899 {"Math::GSL::Linalgc::gsl_permutation_mul", _wrap_gsl_permutation_mul},
13900 {"Math::GSL::Linalgc::gsl_permutation_linear_to_canonical", _wrap_gsl_permutation_linear_to_canonical},
13901 {"Math::GSL::Linalgc::gsl_permutation_canonical_to_linear", _wrap_gsl_permutation_canonical_to_linear},
13902 {"Math::GSL::Linalgc::gsl_permutation_inversions", _wrap_gsl_permutation_inversions},
13903 {"Math::GSL::Linalgc::gsl_permutation_linear_cycles", _wrap_gsl_permutation_linear_cycles},
13904 {"Math::GSL::Linalgc::gsl_permutation_canonical_cycles", _wrap_gsl_permutation_canonical_cycles},
13905 {"Math::GSL::Linalgc::gsl_permutation_get", _wrap_gsl_permutation_get},
13906 {"Math::GSL::Linalgc::gsl_complex_dat_set", _wrap_gsl_complex_dat_set},
13907 {"Math::GSL::Linalgc::gsl_complex_dat_get", _wrap_gsl_complex_dat_get},
13908 {"Math::GSL::Linalgc::new_gsl_complex", _wrap_new_gsl_complex},
13909 {"Math::GSL::Linalgc::delete_gsl_complex", _wrap_delete_gsl_complex},
13910 {"Math::GSL::Linalgc::gsl_complex_long_double_dat_set", _wrap_gsl_complex_long_double_dat_set},
13911 {"Math::GSL::Linalgc::gsl_complex_long_double_dat_get", _wrap_gsl_complex_long_double_dat_get},
13912 {"Math::GSL::Linalgc::new_gsl_complex_long_double", _wrap_new_gsl_complex_long_double},
13913 {"Math::GSL::Linalgc::delete_gsl_complex_long_double", _wrap_delete_gsl_complex_long_double},
13914 {"Math::GSL::Linalgc::gsl_complex_float_dat_set", _wrap_gsl_complex_float_dat_set},
13915 {"Math::GSL::Linalgc::gsl_complex_float_dat_get", _wrap_gsl_complex_float_dat_get},
13916 {"Math::GSL::Linalgc::new_gsl_complex_float", _wrap_new_gsl_complex_float},
13917 {"Math::GSL::Linalgc::delete_gsl_complex_float", _wrap_delete_gsl_complex_float},
13918 {"Math::GSL::Linalgc::gsl_complex_polar", _wrap_gsl_complex_polar},
13919 {"Math::GSL::Linalgc::gsl_complex_rect", _wrap_gsl_complex_rect},
13920 {"Math::GSL::Linalgc::gsl_complex_arg", _wrap_gsl_complex_arg},
13921 {"Math::GSL::Linalgc::gsl_complex_abs", _wrap_gsl_complex_abs},
13922 {"Math::GSL::Linalgc::gsl_complex_abs2", _wrap_gsl_complex_abs2},
13923 {"Math::GSL::Linalgc::gsl_complex_logabs", _wrap_gsl_complex_logabs},
13924 {"Math::GSL::Linalgc::gsl_complex_add", _wrap_gsl_complex_add},
13925 {"Math::GSL::Linalgc::gsl_complex_sub", _wrap_gsl_complex_sub},
13926 {"Math::GSL::Linalgc::gsl_complex_mul", _wrap_gsl_complex_mul},
13927 {"Math::GSL::Linalgc::gsl_complex_div", _wrap_gsl_complex_div},
13928 {"Math::GSL::Linalgc::gsl_complex_add_real", _wrap_gsl_complex_add_real},
13929 {"Math::GSL::Linalgc::gsl_complex_sub_real", _wrap_gsl_complex_sub_real},
13930 {"Math::GSL::Linalgc::gsl_complex_mul_real", _wrap_gsl_complex_mul_real},
13931 {"Math::GSL::Linalgc::gsl_complex_div_real", _wrap_gsl_complex_div_real},
13932 {"Math::GSL::Linalgc::gsl_complex_add_imag", _wrap_gsl_complex_add_imag},
13933 {"Math::GSL::Linalgc::gsl_complex_sub_imag", _wrap_gsl_complex_sub_imag},
13934 {"Math::GSL::Linalgc::gsl_complex_mul_imag", _wrap_gsl_complex_mul_imag},
13935 {"Math::GSL::Linalgc::gsl_complex_div_imag", _wrap_gsl_complex_div_imag},
13936 {"Math::GSL::Linalgc::gsl_complex_conjugate", _wrap_gsl_complex_conjugate},
13937 {"Math::GSL::Linalgc::gsl_complex_inverse", _wrap_gsl_complex_inverse},
13938 {"Math::GSL::Linalgc::gsl_complex_negative", _wrap_gsl_complex_negative},
13939 {"Math::GSL::Linalgc::gsl_complex_sqrt", _wrap_gsl_complex_sqrt},
13940 {"Math::GSL::Linalgc::gsl_complex_sqrt_real", _wrap_gsl_complex_sqrt_real},
13941 {"Math::GSL::Linalgc::gsl_complex_pow", _wrap_gsl_complex_pow},
13942 {"Math::GSL::Linalgc::gsl_complex_pow_real", _wrap_gsl_complex_pow_real},
13943 {"Math::GSL::Linalgc::gsl_complex_exp", _wrap_gsl_complex_exp},
13944 {"Math::GSL::Linalgc::gsl_complex_log", _wrap_gsl_complex_log},
13945 {"Math::GSL::Linalgc::gsl_complex_log10", _wrap_gsl_complex_log10},
13946 {"Math::GSL::Linalgc::gsl_complex_log_b", _wrap_gsl_complex_log_b},
13947 {"Math::GSL::Linalgc::gsl_complex_sin", _wrap_gsl_complex_sin},
13948 {"Math::GSL::Linalgc::gsl_complex_cos", _wrap_gsl_complex_cos},
13949 {"Math::GSL::Linalgc::gsl_complex_sec", _wrap_gsl_complex_sec},
13950 {"Math::GSL::Linalgc::gsl_complex_csc", _wrap_gsl_complex_csc},
13951 {"Math::GSL::Linalgc::gsl_complex_tan", _wrap_gsl_complex_tan},
13952 {"Math::GSL::Linalgc::gsl_complex_cot", _wrap_gsl_complex_cot},
13953 {"Math::GSL::Linalgc::gsl_complex_arcsin", _wrap_gsl_complex_arcsin},
13954 {"Math::GSL::Linalgc::gsl_complex_arcsin_real", _wrap_gsl_complex_arcsin_real},
13955 {"Math::GSL::Linalgc::gsl_complex_arccos", _wrap_gsl_complex_arccos},
13956 {"Math::GSL::Linalgc::gsl_complex_arccos_real", _wrap_gsl_complex_arccos_real},
13957 {"Math::GSL::Linalgc::gsl_complex_arcsec", _wrap_gsl_complex_arcsec},
13958 {"Math::GSL::Linalgc::gsl_complex_arcsec_real", _wrap_gsl_complex_arcsec_real},
13959 {"Math::GSL::Linalgc::gsl_complex_arccsc", _wrap_gsl_complex_arccsc},
13960 {"Math::GSL::Linalgc::gsl_complex_arccsc_real", _wrap_gsl_complex_arccsc_real},
13961 {"Math::GSL::Linalgc::gsl_complex_arctan", _wrap_gsl_complex_arctan},
13962 {"Math::GSL::Linalgc::gsl_complex_arccot", _wrap_gsl_complex_arccot},
13963 {"Math::GSL::Linalgc::gsl_complex_sinh", _wrap_gsl_complex_sinh},
13964 {"Math::GSL::Linalgc::gsl_complex_cosh", _wrap_gsl_complex_cosh},
13965 {"Math::GSL::Linalgc::gsl_complex_sech", _wrap_gsl_complex_sech},
13966 {"Math::GSL::Linalgc::gsl_complex_csch", _wrap_gsl_complex_csch},
13967 {"Math::GSL::Linalgc::gsl_complex_tanh", _wrap_gsl_complex_tanh},
13968 {"Math::GSL::Linalgc::gsl_complex_coth", _wrap_gsl_complex_coth},
13969 {"Math::GSL::Linalgc::gsl_complex_arcsinh", _wrap_gsl_complex_arcsinh},
13970 {"Math::GSL::Linalgc::gsl_complex_arccosh", _wrap_gsl_complex_arccosh},
13971 {"Math::GSL::Linalgc::gsl_complex_arccosh_real", _wrap_gsl_complex_arccosh_real},
13972 {"Math::GSL::Linalgc::gsl_complex_arcsech", _wrap_gsl_complex_arcsech},
13973 {"Math::GSL::Linalgc::gsl_complex_arccsch", _wrap_gsl_complex_arccsch},
13974 {"Math::GSL::Linalgc::gsl_complex_arctanh", _wrap_gsl_complex_arctanh},
13975 {"Math::GSL::Linalgc::gsl_complex_arctanh_real", _wrap_gsl_complex_arctanh_real},
13976 {"Math::GSL::Linalgc::gsl_complex_arccoth", _wrap_gsl_complex_arccoth},
13977 {0,0}
13978 };
13979 /* -----------------------------------------------------------------------------
13980 * Type initialization:
13981 * This problem is tough by the requirement that no dynamic
13982 * memory is used. Also, since swig_type_info structures store pointers to
13983 * swig_cast_info structures and swig_cast_info structures store pointers back
13984 * to swig_type_info structures, we need some lookup code at initialization.
13985 * The idea is that swig generates all the structures that are needed.
13986 * The runtime then collects these partially filled structures.
13987 * The SWIG_InitializeModule function takes these initial arrays out of
13988 * swig_module, and does all the lookup, filling in the swig_module.types
13989 * array with the correct data and linking the correct swig_cast_info
13990 * structures together.
13991 *
13992 * The generated swig_type_info structures are assigned statically to an initial
13993 * array. We just loop through that array, and handle each type individually.
13994 * First we lookup if this type has been already loaded, and if so, use the
13995 * loaded structure instead of the generated one. Then we have to fill in the
13996 * cast linked list. The cast data is initially stored in something like a
13997 * two-dimensional array. Each row corresponds to a type (there are the same
13998 * number of rows as there are in the swig_type_initial array). Each entry in
13999 * a column is one of the swig_cast_info structures for that type.
14000 * The cast_initial array is actually an array of arrays, because each row has
14001 * a variable number of columns. So to actually build the cast linked list,
14002 * we find the array of casts associated with the type, and loop through it
14003 * adding the casts to the list. The one last trick we need to do is making
14004 * sure the type pointer in the swig_cast_info struct is correct.
14005 *
14006 * First off, we lookup the cast->type name to see if it is already loaded.
14007 * There are three cases to handle:
14008 * 1) If the cast->type has already been loaded AND the type we are adding
14009 * casting info to has not been loaded (it is in this module), THEN we
14010 * replace the cast->type pointer with the type pointer that has already
14011 * been loaded.
14012 * 2) If BOTH types (the one we are adding casting info to, and the
14013 * cast->type) are loaded, THEN the cast info has already been loaded by
14014 * the previous module so we just ignore it.
14015 * 3) Finally, if cast->type has not already been loaded, then we add that
14016 * swig_cast_info to the linked list (because the cast->type) pointer will
14017 * be correct.
14018 * ----------------------------------------------------------------------------- */
14019
14020 #ifdef __cplusplus
14021 extern "C" {
14022 #if 0
14023 } /* c-mode */
14024 #endif
14025 #endif
14026
14027 #if 0
14028 #define SWIGRUNTIME_DEBUG
14029 #endif
14030
14031
14032 SWIGRUNTIME void
SWIG_InitializeModule(void * clientdata)14033 SWIG_InitializeModule(void *clientdata) {
14034 size_t i;
14035 swig_module_info *module_head, *iter;
14036 int init;
14037
14038 /* check to see if the circular list has been setup, if not, set it up */
14039 if (swig_module.next==0) {
14040 /* Initialize the swig_module */
14041 swig_module.type_initial = swig_type_initial;
14042 swig_module.cast_initial = swig_cast_initial;
14043 swig_module.next = &swig_module;
14044 init = 1;
14045 } else {
14046 init = 0;
14047 }
14048
14049 /* Try and load any already created modules */
14050 module_head = SWIG_GetModule(clientdata);
14051 if (!module_head) {
14052 /* This is the first module loaded for this interpreter */
14053 /* so set the swig module into the interpreter */
14054 SWIG_SetModule(clientdata, &swig_module);
14055 } else {
14056 /* the interpreter has loaded a SWIG module, but has it loaded this one? */
14057 iter=module_head;
14058 do {
14059 if (iter==&swig_module) {
14060 /* Our module is already in the list, so there's nothing more to do. */
14061 return;
14062 }
14063 iter=iter->next;
14064 } while (iter!= module_head);
14065
14066 /* otherwise we must add our module into the list */
14067 swig_module.next = module_head->next;
14068 module_head->next = &swig_module;
14069 }
14070
14071 /* When multiple interpreters are used, a module could have already been initialized in
14072 a different interpreter, but not yet have a pointer in this interpreter.
14073 In this case, we do not want to continue adding types... everything should be
14074 set up already */
14075 if (init == 0) return;
14076
14077 /* Now work on filling in swig_module.types */
14078 #ifdef SWIGRUNTIME_DEBUG
14079 printf("SWIG_InitializeModule: size %lu\n", (unsigned long)swig_module.size);
14080 #endif
14081 for (i = 0; i < swig_module.size; ++i) {
14082 swig_type_info *type = 0;
14083 swig_type_info *ret;
14084 swig_cast_info *cast;
14085
14086 #ifdef SWIGRUNTIME_DEBUG
14087 printf("SWIG_InitializeModule: type %lu %s\n", (unsigned long)i, swig_module.type_initial[i]->name);
14088 #endif
14089
14090 /* if there is another module already loaded */
14091 if (swig_module.next != &swig_module) {
14092 type = SWIG_MangledTypeQueryModule(swig_module.next, &swig_module, swig_module.type_initial[i]->name);
14093 }
14094 if (type) {
14095 /* Overwrite clientdata field */
14096 #ifdef SWIGRUNTIME_DEBUG
14097 printf("SWIG_InitializeModule: found type %s\n", type->name);
14098 #endif
14099 if (swig_module.type_initial[i]->clientdata) {
14100 type->clientdata = swig_module.type_initial[i]->clientdata;
14101 #ifdef SWIGRUNTIME_DEBUG
14102 printf("SWIG_InitializeModule: found and overwrite type %s \n", type->name);
14103 #endif
14104 }
14105 } else {
14106 type = swig_module.type_initial[i];
14107 }
14108
14109 /* Insert casting types */
14110 cast = swig_module.cast_initial[i];
14111 while (cast->type) {
14112 /* Don't need to add information already in the list */
14113 ret = 0;
14114 #ifdef SWIGRUNTIME_DEBUG
14115 printf("SWIG_InitializeModule: look cast %s\n", cast->type->name);
14116 #endif
14117 if (swig_module.next != &swig_module) {
14118 ret = SWIG_MangledTypeQueryModule(swig_module.next, &swig_module, cast->type->name);
14119 #ifdef SWIGRUNTIME_DEBUG
14120 if (ret) printf("SWIG_InitializeModule: found cast %s\n", ret->name);
14121 #endif
14122 }
14123 if (ret) {
14124 if (type == swig_module.type_initial[i]) {
14125 #ifdef SWIGRUNTIME_DEBUG
14126 printf("SWIG_InitializeModule: skip old type %s\n", ret->name);
14127 #endif
14128 cast->type = ret;
14129 ret = 0;
14130 } else {
14131 /* Check for casting already in the list */
14132 swig_cast_info *ocast = SWIG_TypeCheck(ret->name, type);
14133 #ifdef SWIGRUNTIME_DEBUG
14134 if (ocast) printf("SWIG_InitializeModule: skip old cast %s\n", ret->name);
14135 #endif
14136 if (!ocast) ret = 0;
14137 }
14138 }
14139
14140 if (!ret) {
14141 #ifdef SWIGRUNTIME_DEBUG
14142 printf("SWIG_InitializeModule: adding cast %s\n", cast->type->name);
14143 #endif
14144 if (type->cast) {
14145 type->cast->prev = cast;
14146 cast->next = type->cast;
14147 }
14148 type->cast = cast;
14149 }
14150 cast++;
14151 }
14152 /* Set entry in modules->types array equal to the type */
14153 swig_module.types[i] = type;
14154 }
14155 swig_module.types[i] = 0;
14156
14157 #ifdef SWIGRUNTIME_DEBUG
14158 printf("**** SWIG_InitializeModule: Cast List ******\n");
14159 for (i = 0; i < swig_module.size; ++i) {
14160 int j = 0;
14161 swig_cast_info *cast = swig_module.cast_initial[i];
14162 printf("SWIG_InitializeModule: type %lu %s\n", (unsigned long)i, swig_module.type_initial[i]->name);
14163 while (cast->type) {
14164 printf("SWIG_InitializeModule: cast type %s\n", cast->type->name);
14165 cast++;
14166 ++j;
14167 }
14168 printf("---- Total casts: %d\n",j);
14169 }
14170 printf("**** SWIG_InitializeModule: Cast List ******\n");
14171 #endif
14172 }
14173
14174 /* This function will propagate the clientdata field of type to
14175 * any new swig_type_info structures that have been added into the list
14176 * of equivalent types. It is like calling
14177 * SWIG_TypeClientData(type, clientdata) a second time.
14178 */
14179 SWIGRUNTIME void
SWIG_PropagateClientData(void)14180 SWIG_PropagateClientData(void) {
14181 size_t i;
14182 swig_cast_info *equiv;
14183 static int init_run = 0;
14184
14185 if (init_run) return;
14186 init_run = 1;
14187
14188 for (i = 0; i < swig_module.size; i++) {
14189 if (swig_module.types[i]->clientdata) {
14190 equiv = swig_module.types[i]->cast;
14191 while (equiv) {
14192 if (!equiv->converter) {
14193 if (equiv->type && !equiv->type->clientdata)
14194 SWIG_TypeClientData(equiv->type, swig_module.types[i]->clientdata);
14195 }
14196 equiv = equiv->next;
14197 }
14198 }
14199 }
14200 }
14201
14202 #ifdef __cplusplus
14203 #if 0
14204 {
14205 /* c-mode */
14206 #endif
14207 }
14208 #endif
14209
14210
14211
14212 #if defined(__cplusplus) && ! defined(XSPROTO)
14213 extern "C"
14214 #endif
14215
XS(SWIG_init)14216 XS(SWIG_init) {
14217 dXSARGS;
14218 int i;
14219 (void)items;
14220
14221 SWIG_InitializeModule(0);
14222
14223 /* Install commands */
14224 for (i = 0; swig_commands[i].name; i++) {
14225 /* Casts only needed for Perl < 5.10. */
14226 #ifdef __cplusplus
14227 newXS(const_cast<char*>(swig_commands[i].name), swig_commands[i].wrapper, const_cast<char*>(__FILE__));
14228 #else
14229 newXS((char*)swig_commands[i].name, swig_commands[i].wrapper, (char*)__FILE__);
14230 #endif
14231 }
14232
14233 /* Install variables */
14234 for (i = 0; swig_variables[i].name; i++) {
14235 SV *sv;
14236 sv = get_sv(swig_variables[i].name, TRUE | 0x2 | GV_ADDMULTI);
14237 if (swig_variables[i].type) {
14238 SWIG_MakePtr(sv,(void *)1, *swig_variables[i].type,0);
14239 } else {
14240 sv_setiv(sv,(IV) 0);
14241 }
14242 swig_create_magic(sv, swig_variables[i].name, swig_variables[i].set, swig_variables[i].get);
14243 }
14244
14245 /* Install constant */
14246 for (i = 0; swig_constants[i].type; i++) {
14247 SV *sv;
14248 sv = get_sv(swig_constants[i].name, TRUE | 0x2 | GV_ADDMULTI);
14249 switch(swig_constants[i].type) {
14250 case SWIG_INT:
14251 sv_setiv(sv, (IV) swig_constants[i].lvalue);
14252 break;
14253 case SWIG_FLOAT:
14254 sv_setnv(sv, (double) swig_constants[i].dvalue);
14255 break;
14256 case SWIG_STRING:
14257 sv_setpv(sv, (const char *) swig_constants[i].pvalue);
14258 break;
14259 case SWIG_POINTER:
14260 SWIG_MakePtr(sv, swig_constants[i].pvalue, *(swig_constants[i].ptype),0);
14261 break;
14262 case SWIG_BINARY:
14263 SWIG_MakePackedObj(sv, swig_constants[i].pvalue, swig_constants[i].lvalue, *(swig_constants[i].ptype));
14264 break;
14265 default:
14266 break;
14267 }
14268 SvREADONLY_on(sv);
14269 }
14270
14271 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
14272 SV *sv = get_sv((char*) SWIG_prefix "GSL_VERSION", TRUE | 0x2 | GV_ADDMULTI);
14273 sv_setsv(sv, SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(2.7)));
14274 SvREADONLY_on(sv);
14275 } while(0) /*@SWIG@*/;
14276 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
14277 SV *sv = get_sv((char*) SWIG_prefix "GSL_MAJOR_VERSION", TRUE | 0x2 | GV_ADDMULTI);
14278 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(2)));
14279 SvREADONLY_on(sv);
14280 } while(0) /*@SWIG@*/;
14281 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
14282 SV *sv = get_sv((char*) SWIG_prefix "GSL_MINOR_VERSION", TRUE | 0x2 | GV_ADDMULTI);
14283 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(7)));
14284 SvREADONLY_on(sv);
14285 } while(0) /*@SWIG@*/;
14286 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
14287 SV *sv = get_sv((char*) SWIG_prefix "GSL_POSZERO", TRUE | 0x2 | GV_ADDMULTI);
14288 sv_setsv(sv, SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)((+0.0))));
14289 SvREADONLY_on(sv);
14290 } while(0) /*@SWIG@*/;
14291 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
14292 SV *sv = get_sv((char*) SWIG_prefix "GSL_NEGZERO", TRUE | 0x2 | GV_ADDMULTI);
14293 sv_setsv(sv, SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)((-0.0))));
14294 SvREADONLY_on(sv);
14295 } while(0) /*@SWIG@*/;
14296 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
14297 SV *sv = get_sv((char*) SWIG_prefix "GSL_SUCCESS", TRUE | 0x2 | GV_ADDMULTI);
14298 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_SUCCESS)));
14299 SvREADONLY_on(sv);
14300 } while(0) /*@SWIG@*/;
14301 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
14302 SV *sv = get_sv((char*) SWIG_prefix "GSL_FAILURE", TRUE | 0x2 | GV_ADDMULTI);
14303 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_FAILURE)));
14304 SvREADONLY_on(sv);
14305 } while(0) /*@SWIG@*/;
14306 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
14307 SV *sv = get_sv((char*) SWIG_prefix "GSL_CONTINUE", TRUE | 0x2 | GV_ADDMULTI);
14308 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_CONTINUE)));
14309 SvREADONLY_on(sv);
14310 } while(0) /*@SWIG@*/;
14311 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
14312 SV *sv = get_sv((char*) SWIG_prefix "GSL_EDOM", TRUE | 0x2 | GV_ADDMULTI);
14313 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EDOM)));
14314 SvREADONLY_on(sv);
14315 } while(0) /*@SWIG@*/;
14316 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
14317 SV *sv = get_sv((char*) SWIG_prefix "GSL_ERANGE", TRUE | 0x2 | GV_ADDMULTI);
14318 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ERANGE)));
14319 SvREADONLY_on(sv);
14320 } while(0) /*@SWIG@*/;
14321 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
14322 SV *sv = get_sv((char*) SWIG_prefix "GSL_EFAULT", TRUE | 0x2 | GV_ADDMULTI);
14323 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EFAULT)));
14324 SvREADONLY_on(sv);
14325 } while(0) /*@SWIG@*/;
14326 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
14327 SV *sv = get_sv((char*) SWIG_prefix "GSL_EINVAL", TRUE | 0x2 | GV_ADDMULTI);
14328 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EINVAL)));
14329 SvREADONLY_on(sv);
14330 } while(0) /*@SWIG@*/;
14331 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
14332 SV *sv = get_sv((char*) SWIG_prefix "GSL_EFAILED", TRUE | 0x2 | GV_ADDMULTI);
14333 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EFAILED)));
14334 SvREADONLY_on(sv);
14335 } while(0) /*@SWIG@*/;
14336 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
14337 SV *sv = get_sv((char*) SWIG_prefix "GSL_EFACTOR", TRUE | 0x2 | GV_ADDMULTI);
14338 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EFACTOR)));
14339 SvREADONLY_on(sv);
14340 } while(0) /*@SWIG@*/;
14341 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
14342 SV *sv = get_sv((char*) SWIG_prefix "GSL_ESANITY", TRUE | 0x2 | GV_ADDMULTI);
14343 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ESANITY)));
14344 SvREADONLY_on(sv);
14345 } while(0) /*@SWIG@*/;
14346 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
14347 SV *sv = get_sv((char*) SWIG_prefix "GSL_ENOMEM", TRUE | 0x2 | GV_ADDMULTI);
14348 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ENOMEM)));
14349 SvREADONLY_on(sv);
14350 } while(0) /*@SWIG@*/;
14351 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
14352 SV *sv = get_sv((char*) SWIG_prefix "GSL_EBADFUNC", TRUE | 0x2 | GV_ADDMULTI);
14353 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EBADFUNC)));
14354 SvREADONLY_on(sv);
14355 } while(0) /*@SWIG@*/;
14356 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
14357 SV *sv = get_sv((char*) SWIG_prefix "GSL_ERUNAWAY", TRUE | 0x2 | GV_ADDMULTI);
14358 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ERUNAWAY)));
14359 SvREADONLY_on(sv);
14360 } while(0) /*@SWIG@*/;
14361 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
14362 SV *sv = get_sv((char*) SWIG_prefix "GSL_EMAXITER", TRUE | 0x2 | GV_ADDMULTI);
14363 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EMAXITER)));
14364 SvREADONLY_on(sv);
14365 } while(0) /*@SWIG@*/;
14366 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
14367 SV *sv = get_sv((char*) SWIG_prefix "GSL_EZERODIV", TRUE | 0x2 | GV_ADDMULTI);
14368 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EZERODIV)));
14369 SvREADONLY_on(sv);
14370 } while(0) /*@SWIG@*/;
14371 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
14372 SV *sv = get_sv((char*) SWIG_prefix "GSL_EBADTOL", TRUE | 0x2 | GV_ADDMULTI);
14373 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EBADTOL)));
14374 SvREADONLY_on(sv);
14375 } while(0) /*@SWIG@*/;
14376 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
14377 SV *sv = get_sv((char*) SWIG_prefix "GSL_ETOL", TRUE | 0x2 | GV_ADDMULTI);
14378 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ETOL)));
14379 SvREADONLY_on(sv);
14380 } while(0) /*@SWIG@*/;
14381 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
14382 SV *sv = get_sv((char*) SWIG_prefix "GSL_EUNDRFLW", TRUE | 0x2 | GV_ADDMULTI);
14383 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EUNDRFLW)));
14384 SvREADONLY_on(sv);
14385 } while(0) /*@SWIG@*/;
14386 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
14387 SV *sv = get_sv((char*) SWIG_prefix "GSL_EOVRFLW", TRUE | 0x2 | GV_ADDMULTI);
14388 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EOVRFLW)));
14389 SvREADONLY_on(sv);
14390 } while(0) /*@SWIG@*/;
14391 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
14392 SV *sv = get_sv((char*) SWIG_prefix "GSL_ELOSS", TRUE | 0x2 | GV_ADDMULTI);
14393 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ELOSS)));
14394 SvREADONLY_on(sv);
14395 } while(0) /*@SWIG@*/;
14396 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
14397 SV *sv = get_sv((char*) SWIG_prefix "GSL_EROUND", TRUE | 0x2 | GV_ADDMULTI);
14398 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EROUND)));
14399 SvREADONLY_on(sv);
14400 } while(0) /*@SWIG@*/;
14401 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
14402 SV *sv = get_sv((char*) SWIG_prefix "GSL_EBADLEN", TRUE | 0x2 | GV_ADDMULTI);
14403 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EBADLEN)));
14404 SvREADONLY_on(sv);
14405 } while(0) /*@SWIG@*/;
14406 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
14407 SV *sv = get_sv((char*) SWIG_prefix "GSL_ENOTSQR", TRUE | 0x2 | GV_ADDMULTI);
14408 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ENOTSQR)));
14409 SvREADONLY_on(sv);
14410 } while(0) /*@SWIG@*/;
14411 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
14412 SV *sv = get_sv((char*) SWIG_prefix "GSL_ESING", TRUE | 0x2 | GV_ADDMULTI);
14413 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ESING)));
14414 SvREADONLY_on(sv);
14415 } while(0) /*@SWIG@*/;
14416 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
14417 SV *sv = get_sv((char*) SWIG_prefix "GSL_EDIVERGE", TRUE | 0x2 | GV_ADDMULTI);
14418 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EDIVERGE)));
14419 SvREADONLY_on(sv);
14420 } while(0) /*@SWIG@*/;
14421 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
14422 SV *sv = get_sv((char*) SWIG_prefix "GSL_EUNSUP", TRUE | 0x2 | GV_ADDMULTI);
14423 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EUNSUP)));
14424 SvREADONLY_on(sv);
14425 } while(0) /*@SWIG@*/;
14426 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
14427 SV *sv = get_sv((char*) SWIG_prefix "GSL_EUNIMPL", TRUE | 0x2 | GV_ADDMULTI);
14428 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EUNIMPL)));
14429 SvREADONLY_on(sv);
14430 } while(0) /*@SWIG@*/;
14431 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
14432 SV *sv = get_sv((char*) SWIG_prefix "GSL_ECACHE", TRUE | 0x2 | GV_ADDMULTI);
14433 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ECACHE)));
14434 SvREADONLY_on(sv);
14435 } while(0) /*@SWIG@*/;
14436 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
14437 SV *sv = get_sv((char*) SWIG_prefix "GSL_ETABLE", TRUE | 0x2 | GV_ADDMULTI);
14438 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ETABLE)));
14439 SvREADONLY_on(sv);
14440 } while(0) /*@SWIG@*/;
14441 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
14442 SV *sv = get_sv((char*) SWIG_prefix "GSL_ENOPROG", TRUE | 0x2 | GV_ADDMULTI);
14443 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ENOPROG)));
14444 SvREADONLY_on(sv);
14445 } while(0) /*@SWIG@*/;
14446 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
14447 SV *sv = get_sv((char*) SWIG_prefix "GSL_ENOPROGJ", TRUE | 0x2 | GV_ADDMULTI);
14448 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ENOPROGJ)));
14449 SvREADONLY_on(sv);
14450 } while(0) /*@SWIG@*/;
14451 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
14452 SV *sv = get_sv((char*) SWIG_prefix "GSL_ETOLF", TRUE | 0x2 | GV_ADDMULTI);
14453 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ETOLF)));
14454 SvREADONLY_on(sv);
14455 } while(0) /*@SWIG@*/;
14456 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
14457 SV *sv = get_sv((char*) SWIG_prefix "GSL_ETOLX", TRUE | 0x2 | GV_ADDMULTI);
14458 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ETOLX)));
14459 SvREADONLY_on(sv);
14460 } while(0) /*@SWIG@*/;
14461 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
14462 SV *sv = get_sv((char*) SWIG_prefix "GSL_ETOLG", TRUE | 0x2 | GV_ADDMULTI);
14463 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ETOLG)));
14464 SvREADONLY_on(sv);
14465 } while(0) /*@SWIG@*/;
14466 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
14467 SV *sv = get_sv((char*) SWIG_prefix "GSL_EOF", TRUE | 0x2 | GV_ADDMULTI);
14468 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EOF)));
14469 SvREADONLY_on(sv);
14470 } while(0) /*@SWIG@*/;
14471 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
14472 SV *sv = get_sv((char*) SWIG_prefix "GSL_LINALG_MOD_NONE", TRUE | 0x2 | GV_ADDMULTI);
14473 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_LINALG_MOD_NONE)));
14474 SvREADONLY_on(sv);
14475 } while(0) /*@SWIG@*/;
14476 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
14477 SV *sv = get_sv((char*) SWIG_prefix "GSL_LINALG_MOD_TRANSPOSE", TRUE | 0x2 | GV_ADDMULTI);
14478 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_LINALG_MOD_TRANSPOSE)));
14479 SvREADONLY_on(sv);
14480 } while(0) /*@SWIG@*/;
14481 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
14482 SV *sv = get_sv((char*) SWIG_prefix "GSL_LINALG_MOD_CONJUGATE", TRUE | 0x2 | GV_ADDMULTI);
14483 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_LINALG_MOD_CONJUGATE)));
14484 SvREADONLY_on(sv);
14485 } while(0) /*@SWIG@*/;
14486 SWIG_TypeClientData(SWIGTYPE_p_gsl_permutation_struct, (void*) "Math::GSL::Linalg::gsl_permutation_struct");
14487 SWIG_TypeClientData(SWIGTYPE_p_gsl_complex, (void*) "Math::GSL::Linalg::gsl_complex");
14488 SWIG_TypeClientData(SWIGTYPE_p_gsl_complex_long_double, (void*) "Math::GSL::Linalg::gsl_complex_long_double");
14489 SWIG_TypeClientData(SWIGTYPE_p_gsl_complex_float, (void*) "Math::GSL::Linalg::gsl_complex_float");
14490 ST(0) = &PL_sv_yes;
14491 XSRETURN(1);
14492 }
14493
14494