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_p_q_const__char_p_q_const__char_int_int__void swig_types[3]
1523 #define SWIGTYPE_p_f_p_q_const__char_p_q_const__char_int_p_q_const__char__void swig_types[4]
1524 #define SWIGTYPE_p_float swig_types[5]
1525 #define SWIGTYPE_p_gsl_complex swig_types[6]
1526 #define SWIGTYPE_p_gsl_complex_float swig_types[7]
1527 #define SWIGTYPE_p_gsl_complex_long_double swig_types[8]
1528 #define SWIGTYPE_p_gsl_linalg_matrix_mod_t swig_types[9]
1529 #define SWIGTYPE_p_gsl_matrix swig_types[10]
1530 #define SWIGTYPE_p_gsl_matrix_complex swig_types[11]
1531 #define SWIGTYPE_p_gsl_mode_t swig_types[12]
1532 #define SWIGTYPE_p_gsl_permutation_struct swig_types[13]
1533 #define SWIGTYPE_p_gsl_vector swig_types[14]
1534 #define SWIGTYPE_p_gsl_vector_complex swig_types[15]
1535 #define SWIGTYPE_p_int swig_types[16]
1536 #define SWIGTYPE_p_long_double swig_types[17]
1537 #define SWIGTYPE_p_size_t swig_types[18]
1538 static swig_type_info *swig_types[20];
1539 static swig_module_info swig_module = {swig_types, 19, 0, 0, 0, 0};
1540 #define SWIG_TypeQuery(name) SWIG_TypeQueryModule(&swig_module, &swig_module, name)
1541 #define SWIG_MangledTypeQuery(name) SWIG_MangledTypeQueryModule(&swig_module, &swig_module, name)
1542
1543 /* -------- TYPES TABLE (END) -------- */
1544
1545 #define SWIG_init boot_Math__GSL__Linalg
1546
1547 #define SWIG_name "Math::GSL::Linalgc::boot_Math__GSL__Linalg"
1548 #define SWIG_prefix "Math::GSL::Linalgc::"
1549
1550 #define SWIGVERSION 0x040001
1551 #define SWIG_VERSION SWIGVERSION
1552
1553
1554 #define SWIG_as_voidptr(a) (void *)((const void *)(a))
1555 #define SWIG_as_voidptrptr(a) ((void)SWIG_as_voidptr(*a),(void**)(a))
1556
1557
1558 #ifdef __cplusplus
1559 extern "C"
1560 #endif
1561 #ifndef PERL_OBJECT
1562 #ifndef MULTIPLICITY
1563 SWIGEXPORT void SWIG_init (CV* cv);
1564 #else
1565 SWIGEXPORT void SWIG_init (pTHXo_ CV* cv);
1566 #endif
1567 #else
1568 SWIGEXPORT void SWIG_init (CV *cv, CPerlObj *);
1569 #endif
1570
1571
1572 SWIGINTERNINLINE SV *
SWIG_PERL_DECL_ARGS_1(double value)1573 SWIG_From_double SWIG_PERL_DECL_ARGS_1(double value)
1574 {
1575 return sv_2mortal(newSVnv(value));
1576 }
1577
1578
1579 SWIGINTERNINLINE SV *
SWIG_PERL_DECL_ARGS_1(long value)1580 SWIG_From_long SWIG_PERL_DECL_ARGS_1(long value)
1581 {
1582 SV *sv;
1583 if (IVSIZE >= sizeof(value) || (value >= IV_MIN && value <= IV_MAX))
1584 sv = newSViv(value);
1585 else
1586 sv = newSVpvf("%ld", value);
1587 return sv_2mortal(sv);
1588 }
1589
1590
1591 SWIGINTERNINLINE SV *
SWIG_PERL_DECL_ARGS_1(int value)1592 SWIG_From_int SWIG_PERL_DECL_ARGS_1(int value)
1593 {
1594 return SWIG_From_long SWIG_PERL_CALL_ARGS_1(value);
1595 }
1596
1597
1598 SWIGINTERN swig_type_info*
SWIG_pchar_descriptor(void)1599 SWIG_pchar_descriptor(void)
1600 {
1601 static int init = 0;
1602 static swig_type_info* info = 0;
1603 if (!init) {
1604 info = SWIG_TypeQuery("_p_char");
1605 init = 1;
1606 }
1607 return info;
1608 }
1609
1610
1611 SWIGINTERN int
SWIG_AsCharPtrAndSize(SV * obj,char ** cptr,size_t * psize,int * alloc)1612 SWIG_AsCharPtrAndSize(SV *obj, char** cptr, size_t* psize, int *alloc)
1613 {
1614 if (SvMAGICAL(obj)) {
1615 SV *tmp = sv_newmortal();
1616 SvSetSV(tmp, obj);
1617 obj = tmp;
1618 }
1619 if (SvPOK(obj)) {
1620 STRLEN len = 0;
1621 char *cstr = SvPV(obj, len);
1622 size_t size = len + 1;
1623 if (cptr) {
1624 if (alloc) {
1625 if (*alloc == SWIG_NEWOBJ) {
1626 *cptr = (char *)memcpy(malloc((size)*sizeof(char)), cstr, sizeof(char)*(size));
1627 } else {
1628 *cptr = cstr;
1629 *alloc = SWIG_OLDOBJ;
1630 }
1631 }
1632 }
1633 if (psize) *psize = size;
1634 return SWIG_OK;
1635 } else {
1636 swig_type_info* pchar_descriptor = SWIG_pchar_descriptor();
1637 if (pchar_descriptor) {
1638 char* vptr = 0;
1639 if (SWIG_ConvertPtr(obj, (void**)&vptr, pchar_descriptor, 0) == SWIG_OK) {
1640 if (cptr) *cptr = vptr;
1641 if (psize) *psize = vptr ? (strlen(vptr) + 1) : 0;
1642 if (alloc) *alloc = SWIG_OLDOBJ;
1643 return SWIG_OK;
1644 }
1645 }
1646 }
1647 return SWIG_TypeError;
1648 }
1649
1650
1651
1652
1653
1654 #include <limits.h>
1655 #if !defined(SWIG_NO_LLONG_MAX)
1656 # if !defined(LLONG_MAX) && defined(__GNUC__) && defined (__LONG_LONG_MAX__)
1657 # define LLONG_MAX __LONG_LONG_MAX__
1658 # define LLONG_MIN (-LLONG_MAX - 1LL)
1659 # define ULLONG_MAX (LLONG_MAX * 2ULL + 1ULL)
1660 # endif
1661 #endif
1662
1663
1664 #include <stdlib.h>
1665 #ifdef _MSC_VER
1666 # ifndef strtoull
1667 # define strtoull _strtoui64
1668 # endif
1669 # ifndef strtoll
1670 # define strtoll _strtoi64
1671 # endif
1672 #endif
1673
1674
1675 SWIGINTERN int
SWIG_PERL_DECL_ARGS_2(SV * obj,double * val)1676 SWIG_AsVal_double SWIG_PERL_DECL_ARGS_2(SV *obj, double *val)
1677 {
1678 if (SvNIOK(obj)) {
1679 if (val) *val = SvNV(obj);
1680 return SWIG_OK;
1681 } else if (SvIOK(obj)) {
1682 if (val) *val = (double) SvIV(obj);
1683 return SWIG_AddCast(SWIG_OK);
1684 } else {
1685 const char *nptr = SvPV_nolen(obj);
1686 if (nptr) {
1687 char *endptr;
1688 double v;
1689 errno = 0;
1690 v = strtod(nptr, &endptr);
1691 if (errno == ERANGE) {
1692 errno = 0;
1693 return SWIG_OverflowError;
1694 } else {
1695 if (*endptr == '\0') {
1696 if (val) *val = v;
1697 return SWIG_Str2NumCast(SWIG_OK);
1698 }
1699 }
1700 }
1701 }
1702 return SWIG_TypeError;
1703 }
1704
1705
1706 #include <float.h>
1707
1708
1709 #include <math.h>
1710
1711
1712 SWIGINTERNINLINE int
SWIG_CanCastAsInteger(double * d,double min,double max)1713 SWIG_CanCastAsInteger(double *d, double min, double max) {
1714 double x = *d;
1715 if ((min <= x && x <= max)) {
1716 double fx = floor(x);
1717 double cx = ceil(x);
1718 double rd = ((x - fx) < 0.5) ? fx : cx; /* simple rint */
1719 if ((errno == EDOM) || (errno == ERANGE)) {
1720 errno = 0;
1721 } else {
1722 double summ, reps, diff;
1723 if (rd < x) {
1724 diff = x - rd;
1725 } else if (rd > x) {
1726 diff = rd - x;
1727 } else {
1728 return 1;
1729 }
1730 summ = rd + x;
1731 reps = diff/summ;
1732 if (reps < 8*DBL_EPSILON) {
1733 *d = rd;
1734 return 1;
1735 }
1736 }
1737 }
1738 return 0;
1739 }
1740
1741
1742 SWIGINTERN int
SWIG_PERL_DECL_ARGS_2(SV * obj,long * val)1743 SWIG_AsVal_long SWIG_PERL_DECL_ARGS_2(SV *obj, long* val)
1744 {
1745 if (SvUOK(obj)) {
1746 UV v = SvUV(obj);
1747 if (UVSIZE < sizeof(*val) || v <= LONG_MAX) {
1748 if (val) *val = v;
1749 return SWIG_OK;
1750 }
1751 return SWIG_OverflowError;
1752 } else if (SvIOK(obj)) {
1753 IV v = SvIV(obj);
1754 if (IVSIZE <= sizeof(*val) || (v >= LONG_MIN && v <= LONG_MAX)) {
1755 if(val) *val = v;
1756 return SWIG_OK;
1757 }
1758 return SWIG_OverflowError;
1759 } else {
1760 int dispatch = 0;
1761 const char *nptr = SvPV_nolen(obj);
1762 if (nptr) {
1763 char *endptr;
1764 long v;
1765 errno = 0;
1766 v = strtol(nptr, &endptr,0);
1767 if (errno == ERANGE) {
1768 errno = 0;
1769 return SWIG_OverflowError;
1770 } else {
1771 if (*endptr == '\0') {
1772 if (val) *val = v;
1773 return SWIG_Str2NumCast(SWIG_OK);
1774 }
1775 }
1776 }
1777 if (!dispatch) {
1778 double d;
1779 int res = SWIG_AddCast(SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(obj,&d));
1780 if (SWIG_IsOK(res) && SWIG_CanCastAsInteger(&d, LONG_MIN, LONG_MAX)) {
1781 if (val) *val = (long)(d);
1782 return res;
1783 }
1784 }
1785 }
1786 return SWIG_TypeError;
1787 }
1788
1789
1790 SWIGINTERN int
SWIG_PERL_DECL_ARGS_2(SV * obj,int * val)1791 SWIG_AsVal_int SWIG_PERL_DECL_ARGS_2(SV * obj, int *val)
1792 {
1793 long v;
1794 int res = SWIG_AsVal_long SWIG_PERL_CALL_ARGS_2(obj, &v);
1795 if (SWIG_IsOK(res)) {
1796 if ((v < INT_MIN || v > INT_MAX)) {
1797 return SWIG_OverflowError;
1798 } else {
1799 if (val) *val = (int)(v);
1800 }
1801 }
1802 return res;
1803 }
1804
1805
1806 SWIGINTERNINLINE SV *
SWIG_FromCharPtrAndSize(const char * carray,size_t size)1807 SWIG_FromCharPtrAndSize(const char* carray, size_t size)
1808 {
1809 SV *obj = sv_newmortal();
1810 if (carray) {
1811 sv_setpvn(obj, carray, size);
1812 } else {
1813 sv_setsv(obj, &PL_sv_undef);
1814 }
1815 return obj;
1816 }
1817
1818
1819 SWIGINTERNINLINE SV *
SWIG_FromCharPtr(const char * cptr)1820 SWIG_FromCharPtr(const char *cptr)
1821 {
1822 return SWIG_FromCharPtrAndSize(cptr, (cptr ? strlen(cptr) : 0));
1823 }
1824
1825
1826 #include "gsl/gsl_nan.h"
1827 #include "gsl/gsl_errno.h"
1828 #include "gsl/gsl_math.h"
1829 #include "gsl/gsl_monte.h"
1830
1831
1832 struct perl_array {
1833 I32 len;
1834 AV *array;
1835 };
1836
1837
1838
1839 enum awType { awDouble, awFloat, awInt, awUnsigned };
1840
1841 typedef struct {
1842 I32 size;
1843 enum awType type;
1844 void * data;
1845 } array_wrapper;
1846
array_wrapper_alloc(int numelem,enum awType type)1847 array_wrapper * array_wrapper_alloc(int numelem, enum awType type){
1848 array_wrapper * rv = malloc(sizeof(array_wrapper));
1849
1850 if (rv == NULL)
1851 croak("array_wrapper_alloc: can't malloc wrapper\n");
1852
1853 switch (type){
1854 case awDouble:
1855 rv->data = malloc(sizeof(double) * numelem);
1856 break;
1857 case awFloat:
1858 rv->data = malloc(sizeof(float) * numelem);
1859 break;
1860 case awInt:
1861 rv->data = malloc(sizeof(int) * numelem);
1862 break;
1863 case awUnsigned:
1864 rv->data = malloc(sizeof(unsigned int) * numelem);
1865 break;
1866 default:
1867 croak("array_wrapper_alloc: type should be awDouble, awFloat, awInt, or awUnsigned");
1868 }
1869
1870 if (rv->data == NULL)
1871 croak("array_wrapper_alloc: can't malloc data");
1872
1873 rv->size = numelem;
1874 rv->type = type;
1875 return rv;
1876 }
1877
array_wrapper_free(array_wrapper * daw)1878 void array_wrapper_free(array_wrapper * daw){
1879 free(daw->data);
1880 free(daw);
1881 }
1882
1883
1884 /* structure to hold required information while the gsl function call
1885 for each callback
1886 */
1887 struct gsl_function_perl {
1888 gsl_function C_gsl_function;
1889 SV * function;
1890 SV * params;
1891 };
1892
1893 struct gsl_function_fdf_perl {
1894 gsl_function_fdf C_gsl_function_fdf;
1895 SV * f;
1896 SV * df;
1897 SV * fdf;
1898 SV * params;
1899 };
1900
1901 struct gsl_monte_function_perl {
1902 gsl_monte_function C_gsl_monte_function;
1903 SV * f;
1904 SV * dim;
1905 SV * params;
1906 };
1907
gsl_function_perl_free(struct gsl_function_perl * perl_f)1908 void gsl_function_perl_free(struct gsl_function_perl * perl_f){
1909 if (perl_f != NULL) {
1910 SvREFCNT_dec(perl_f->function);
1911 SvREFCNT_dec(perl_f->params);
1912 Safefree(perl_f);
1913 }
1914 }
1915
gsl_function_fdf_perl_free(struct gsl_function_fdf_perl * perl_fdf)1916 void gsl_function_fdf_perl_free(struct gsl_function_fdf_perl * perl_fdf){
1917 if (perl_fdf != NULL) {
1918 SvREFCNT_dec(perl_fdf->f);
1919 SvREFCNT_dec(perl_fdf->df);
1920 SvREFCNT_dec(perl_fdf->fdf);
1921 SvREFCNT_dec(perl_fdf->params);
1922 Safefree(perl_fdf);
1923 }
1924 }
1925
1926 /* These functions (C callbacks) calls the perl callbacks.
1927 Info for perl callback can be found using the 'void*params' parameter
1928 */
call_gsl_function_x_params(SV * function,double x,SV * params)1929 double call_gsl_function_x_params(SV* function, double x, SV *params){
1930 unsigned int count;
1931 double y;
1932 dSP;
1933
1934 //fprintf(stderr, "LOOKUP CALLBACK\n");
1935 ENTER;
1936 SAVETMPS;
1937
1938 PUSHMARK(SP);
1939 XPUSHs(sv_2mortal(newSVnv((double)x)));
1940 XPUSHs(params);
1941 PUTBACK; /* make local stack pointer global */
1942
1943 count = call_sv(function, G_SCALAR);
1944 SPAGAIN;
1945
1946 if (count != 1)
1947 croak("Expected to call subroutine in scalar context!");
1948
1949 y = POPn;
1950
1951 PUTBACK; /* make local stack pointer global */
1952 FREETMPS;
1953 LEAVE;
1954
1955 return y;
1956 }
1957
call_gsl_function(double x,void * params)1958 double call_gsl_function(double x , void *params){
1959 struct gsl_function_perl *F=(struct gsl_function_perl*)params;
1960 return call_gsl_function_x_params( F->function, x, F->params );
1961 }
1962
call_gsl_function_fdf_f(double x,void * params)1963 double call_gsl_function_fdf_f(double x , void *params){
1964 struct gsl_function_fdf_perl *F=(struct gsl_function_fdf_perl*)params;
1965 return call_gsl_function_x_params( F->f, x, F->params );
1966 }
1967
call_gsl_function_fdf_df(double x,void * params)1968 double call_gsl_function_fdf_df(double x , void *params){
1969 struct gsl_function_fdf_perl *F=(struct gsl_function_fdf_perl*)params;
1970 return call_gsl_function_x_params( F->df, x, F->params );
1971 }
1972
call_gsl_function_fdf_fdf(double x,void * params,double * f,double * df)1973 void call_gsl_function_fdf_fdf(double x , void *params, double *f, double *df ){
1974 struct gsl_function_fdf_perl *F=(struct gsl_function_fdf_perl*)params;
1975
1976 dSP;
1977
1978 ENTER;
1979 SAVETMPS;
1980
1981 PUSHMARK(SP);
1982 EXTEND(SP, 2);
1983 PUSHs(sv_2mortal(newSVnv((double)x)));
1984 PUSHs(F->params);
1985 PUTBACK; /* make local stack pointer global */
1986
1987 {
1988 unsigned int count = call_sv(F->fdf, G_ARRAY);
1989 SPAGAIN;
1990
1991 if (count != 2)
1992 croak( "Expected two return values, got %d", count );
1993 }
1994
1995 *df = POPn;
1996 *f = POPn;
1997
1998 PUTBACK; /* make local stack pointer global */
1999 FREETMPS;
2000 LEAVE;
2001 }
2002
call_gsl_monte_function(double * x_array,size_t dim,void * params)2003 double call_gsl_monte_function(double *x_array , size_t dim, void *params){
2004 struct gsl_monte_function_perl *F=(struct gsl_monte_function_perl*)params;
2005 unsigned int count;
2006 unsigned int i;
2007 AV* perl_array;
2008 double y;
2009 dSP;
2010
2011 //fprintf(stderr, "LOOKUP CALLBACK\n");
2012 ENTER;
2013 SAVETMPS;
2014
2015 PUSHMARK(SP);
2016 perl_array=newAV();
2017 sv_2mortal((SV*)perl_array);
2018 XPUSHs(sv_2mortal(newRV((SV *)perl_array)));
2019 for(i=0; i<dim; i++) {
2020 /* no mortal : it is referenced by the array */
2021 av_push(perl_array, newSVnv(x_array[i]));
2022 }
2023 XPUSHs(sv_2mortal(newSViv(dim)));
2024 XPUSHs(F->params);
2025 PUTBACK; /* make local stack pointer global */
2026
2027 count = call_sv(F->f, G_SCALAR);
2028 SPAGAIN;
2029
2030 if (count != 1)
2031 croak("Expected to call subroutine in scalar context!");
2032
2033 y = POPn;
2034
2035 PUTBACK; /* make local stack pointer global */
2036 FREETMPS;
2037 LEAVE;
2038
2039 return y;
2040 }
2041
2042
gsl_function_fdf_extract(char * param_name,HV * hash,SV * func[])2043 void gsl_function_fdf_extract( char* param_name, HV* hash, SV* func[] ) {
2044 static const char *keys[3] = { "f", "df", "fdf" };
2045
2046 int ikey;
2047
2048 for ( ikey = 0 ; ikey < 3 ; ++ikey ) {
2049 func[ikey] = 0;
2050 const char* key = keys[ikey];
2051 /* it just so happens that strlen(keys[ikey]) == ikey + 1 */
2052 SV** pp_sv = hv_fetch( hash, key, ikey+1, 0 );
2053 SV* function;
2054
2055 if ( !pp_sv )
2056 croak("Math::GSL : %s: missing key %s!", param_name, key);
2057
2058 function = *pp_sv;
2059
2060 if ( SvPOK(function) || ( SvROK( function ) && SvTYPE(SvRV(function)) == SVt_PVCV ) ) {
2061 /* hold on to SV after the enclosing hash goes away */
2062 SvREFCNT_inc( function );
2063 func[ikey] = function;
2064 }
2065 else {
2066 croak( "Math::GSL : %s: key %s is not a reference to code!", param_name, key);
2067 }
2068 }
2069 }
2070
2071
2072
2073 #include "gsl/gsl_inline.h"
2074 #include "gsl/gsl_linalg.h"
2075 #include "gsl/gsl_permutation.h"
2076 #include "gsl/gsl_complex.h"
2077 #include "gsl/gsl_complex_math.h"
2078
2079
2080 SWIGINTERN int
SWIG_PERL_DECL_ARGS_2(SV * obj,unsigned long * val)2081 SWIG_AsVal_unsigned_SS_long SWIG_PERL_DECL_ARGS_2(SV *obj, unsigned long *val)
2082 {
2083 if (SvUOK(obj)) {
2084 UV v = SvUV(obj);
2085 if (UVSIZE <= sizeof(*val) || v <= ULONG_MAX) {
2086 if (val) *val = v;
2087 return SWIG_OK;
2088 }
2089 return SWIG_OverflowError;
2090 } else if (SvIOK(obj)) {
2091 IV v = SvIV(obj);
2092 if (v >= 0 && (IVSIZE <= sizeof(*val) || v <= ULONG_MAX)) {
2093 if (val) *val = v;
2094 return SWIG_OK;
2095 }
2096 return SWIG_OverflowError;
2097 } else {
2098 int dispatch = 0;
2099 const char *nptr = SvPV_nolen(obj);
2100 if (nptr) {
2101 char *endptr;
2102 unsigned long v;
2103 errno = 0;
2104 v = strtoul(nptr, &endptr,0);
2105 if (errno == ERANGE) {
2106 errno = 0;
2107 return SWIG_OverflowError;
2108 } else {
2109 if (*endptr == '\0') {
2110 if (val) *val = v;
2111 return SWIG_Str2NumCast(SWIG_OK);
2112 }
2113 }
2114 }
2115 if (!dispatch) {
2116 double d;
2117 int res = SWIG_AddCast(SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(obj,&d));
2118 if (SWIG_IsOK(res) && SWIG_CanCastAsInteger(&d, 0, ULONG_MAX)) {
2119 if (val) *val = (unsigned long)(d);
2120 return res;
2121 }
2122 }
2123 }
2124 return SWIG_TypeError;
2125 }
2126
2127
2128 #if defined(LLONG_MAX) && !defined(SWIG_LONG_LONG_AVAILABLE)
2129 # define SWIG_LONG_LONG_AVAILABLE
2130 #endif
2131
2132
2133 #ifdef SWIG_LONG_LONG_AVAILABLE
2134 SWIGINTERN int
SWIG_PERL_DECL_ARGS_2(SV * obj,unsigned long long * val)2135 SWIG_AsVal_unsigned_SS_long_SS_long SWIG_PERL_DECL_ARGS_2(SV *obj, unsigned long long *val)
2136 {
2137 if (SvUOK(obj)) {
2138 /* pretty sure this should be conditional on
2139 * (UVSIZE <= sizeof(*val) || v <= ULLONG_MAX) */
2140 if (val) *val = SvUV(obj);
2141 return SWIG_OK;
2142 } else if (SvIOK(obj)) {
2143 IV v = SvIV(obj);
2144 if (v >= 0 && (IVSIZE <= sizeof(*val) || v <= ULLONG_MAX)) {
2145 if (val) *val = v;
2146 return SWIG_OK;
2147 } else {
2148 return SWIG_OverflowError;
2149 }
2150 } else {
2151 int dispatch = 0;
2152 const char *nptr = SvPV_nolen(obj);
2153 if (nptr) {
2154 char *endptr;
2155 unsigned long long v;
2156 errno = 0;
2157 v = strtoull(nptr, &endptr,0);
2158 if (errno == ERANGE) {
2159 errno = 0;
2160 return SWIG_OverflowError;
2161 } else {
2162 if (*endptr == '\0') {
2163 if (val) *val = v;
2164 return SWIG_Str2NumCast(SWIG_OK);
2165 }
2166 }
2167 }
2168 if (!dispatch) {
2169 const double mant_max = 1LL << DBL_MANT_DIG;
2170 double d;
2171 int res = SWIG_AddCast(SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(obj,&d));
2172 if (SWIG_IsOK(res) && SWIG_CanCastAsInteger(&d, 0, mant_max)) {
2173 if (val) *val = (unsigned long long)(d);
2174 return res;
2175 }
2176 }
2177 }
2178 return SWIG_TypeError;
2179 }
2180 #endif
2181
2182
2183 SWIGINTERNINLINE int
SWIG_PERL_DECL_ARGS_2(SV * obj,size_t * val)2184 SWIG_AsVal_size_t SWIG_PERL_DECL_ARGS_2(SV * obj, size_t *val)
2185 {
2186 int res = SWIG_TypeError;
2187 #ifdef SWIG_LONG_LONG_AVAILABLE
2188 if (sizeof(size_t) <= sizeof(unsigned long)) {
2189 #endif
2190 unsigned long v;
2191 res = SWIG_AsVal_unsigned_SS_long SWIG_PERL_CALL_ARGS_2(obj, val ? &v : 0);
2192 if (SWIG_IsOK(res) && val) *val = (size_t)(v);
2193 #ifdef SWIG_LONG_LONG_AVAILABLE
2194 } else if (sizeof(size_t) <= sizeof(unsigned long long)) {
2195 unsigned long long v;
2196 res = SWIG_AsVal_unsigned_SS_long_SS_long SWIG_PERL_CALL_ARGS_2(obj, val ? &v : 0);
2197 if (SWIG_IsOK(res) && val) *val = (size_t)(v);
2198 }
2199 #endif
2200 return res;
2201 }
2202
2203
2204 SWIGINTERNINLINE SV *
SWIG_PERL_DECL_ARGS_1(unsigned long value)2205 SWIG_From_unsigned_SS_long SWIG_PERL_DECL_ARGS_1(unsigned long value)
2206 {
2207 SV *sv;
2208 if (UVSIZE >= sizeof(value) || value <= UV_MAX)
2209 sv = newSVuv(value);
2210 else
2211 sv = newSVpvf("%lu", value);
2212 return sv_2mortal(sv);
2213 }
2214
2215
2216 #include <stdio.h>
2217 #if (defined(_MSC_VER) && (_MSC_VER < 1900)) || defined(__BORLANDC__) || defined(_WATCOM)
2218 # ifndef snprintf
2219 # define snprintf _snprintf
2220 # endif
2221 #endif
2222
2223
2224 #ifdef SWIG_LONG_LONG_AVAILABLE
2225 SWIGINTERNINLINE SV *
SWIG_PERL_DECL_ARGS_1(unsigned long long value)2226 SWIG_From_unsigned_SS_long_SS_long SWIG_PERL_DECL_ARGS_1(unsigned long long value)
2227 {
2228 SV *sv;
2229 if (UVSIZE >= sizeof(value) || value <= UV_MAX)
2230 sv = newSVuv((UV)(value));
2231 else {
2232 //sv = newSVpvf("%llu", value); doesn't work in non 64bit Perl
2233 char temp[256];
2234 sprintf(temp, "%llu", value);
2235 sv = newSVpv(temp, 0);
2236 }
2237 return sv_2mortal(sv);
2238 }
2239 #endif
2240
2241
2242 SWIGINTERNINLINE SV *
SWIG_PERL_DECL_ARGS_1(size_t value)2243 SWIG_From_size_t SWIG_PERL_DECL_ARGS_1(size_t value)
2244 {
2245 #ifdef SWIG_LONG_LONG_AVAILABLE
2246 if (sizeof(size_t) <= sizeof(unsigned long)) {
2247 #endif
2248 return SWIG_From_unsigned_SS_long SWIG_PERL_CALL_ARGS_1((unsigned long)(value));
2249 #ifdef SWIG_LONG_LONG_AVAILABLE
2250 } else {
2251 /* assume sizeof(size_t) <= sizeof(unsigned long long) */
2252 return SWIG_From_unsigned_SS_long_SS_long SWIG_PERL_CALL_ARGS_1((unsigned long long)(value));
2253 }
2254 #endif
2255 }
2256
2257 #ifdef __cplusplus
2258 extern "C" {
2259 #endif
2260
2261 #ifdef PERL_OBJECT
2262 #define MAGIC_CLASS _wrap_Math__GSL__Linalg_var::
2263 class _wrap_Math__GSL__Linalg_var : public CPerlObj {
2264 public:
2265 #else
2266 #define MAGIC_CLASS
2267 #endif
swig_magic_readonly(pTHX_ SV * SWIGUNUSEDPARM (sv),MAGIC * SWIGUNUSEDPARM (mg))2268 SWIGCLASS_STATIC int swig_magic_readonly(pTHX_ SV *SWIGUNUSEDPARM(sv), MAGIC *SWIGUNUSEDPARM(mg)) {
2269 MAGIC_PPERL
2270 croak("Value is read-only.");
2271 return 0;
2272 }
2273
2274
2275 #ifdef PERL_OBJECT
2276 };
2277 #endif
2278
2279 #ifdef __cplusplus
2280 }
2281 #endif
2282
2283 #ifdef __cplusplus
2284 extern "C" {
2285 #endif
XS(_wrap_gsl_error)2286 XS(_wrap_gsl_error) {
2287 {
2288 char *arg1 = (char *) 0 ;
2289 char *arg2 = (char *) 0 ;
2290 int arg3 ;
2291 int arg4 ;
2292 int res1 ;
2293 char *buf1 = 0 ;
2294 int alloc1 = 0 ;
2295 int res2 ;
2296 char *buf2 = 0 ;
2297 int alloc2 = 0 ;
2298 int val3 ;
2299 int ecode3 = 0 ;
2300 int val4 ;
2301 int ecode4 = 0 ;
2302 int argvi = 0;
2303 dXSARGS;
2304
2305 if ((items < 4) || (items > 4)) {
2306 SWIG_croak("Usage: gsl_error(reason,file,line,gsl_errno);");
2307 }
2308 res1 = SWIG_AsCharPtrAndSize(ST(0), &buf1, NULL, &alloc1);
2309 if (!SWIG_IsOK(res1)) {
2310 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_error" "', argument " "1"" of type '" "char const *""'");
2311 }
2312 arg1 = (char *)(buf1);
2313 res2 = SWIG_AsCharPtrAndSize(ST(1), &buf2, NULL, &alloc2);
2314 if (!SWIG_IsOK(res2)) {
2315 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_error" "', argument " "2"" of type '" "char const *""'");
2316 }
2317 arg2 = (char *)(buf2);
2318 ecode3 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
2319 if (!SWIG_IsOK(ecode3)) {
2320 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_error" "', argument " "3"" of type '" "int""'");
2321 }
2322 arg3 = (int)(val3);
2323 ecode4 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(3), &val4);
2324 if (!SWIG_IsOK(ecode4)) {
2325 SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "gsl_error" "', argument " "4"" of type '" "int""'");
2326 }
2327 arg4 = (int)(val4);
2328 gsl_error((char const *)arg1,(char const *)arg2,arg3,arg4);
2329 ST(argvi) = &PL_sv_undef;
2330 if (alloc1 == SWIG_NEWOBJ) free((char*)buf1);
2331 if (alloc2 == SWIG_NEWOBJ) free((char*)buf2);
2332
2333
2334 XSRETURN(argvi);
2335 fail:
2336 if (alloc1 == SWIG_NEWOBJ) free((char*)buf1);
2337 if (alloc2 == SWIG_NEWOBJ) free((char*)buf2);
2338
2339
2340 SWIG_croak_null();
2341 }
2342 }
2343
2344
XS(_wrap_gsl_stream_printf)2345 XS(_wrap_gsl_stream_printf) {
2346 {
2347 char *arg1 = (char *) 0 ;
2348 char *arg2 = (char *) 0 ;
2349 int arg3 ;
2350 char *arg4 = (char *) 0 ;
2351 int res1 ;
2352 char *buf1 = 0 ;
2353 int alloc1 = 0 ;
2354 int res2 ;
2355 char *buf2 = 0 ;
2356 int alloc2 = 0 ;
2357 int val3 ;
2358 int ecode3 = 0 ;
2359 int res4 ;
2360 char *buf4 = 0 ;
2361 int alloc4 = 0 ;
2362 int argvi = 0;
2363 dXSARGS;
2364
2365 if ((items < 4) || (items > 4)) {
2366 SWIG_croak("Usage: gsl_stream_printf(label,file,line,reason);");
2367 }
2368 res1 = SWIG_AsCharPtrAndSize(ST(0), &buf1, NULL, &alloc1);
2369 if (!SWIG_IsOK(res1)) {
2370 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_stream_printf" "', argument " "1"" of type '" "char const *""'");
2371 }
2372 arg1 = (char *)(buf1);
2373 res2 = SWIG_AsCharPtrAndSize(ST(1), &buf2, NULL, &alloc2);
2374 if (!SWIG_IsOK(res2)) {
2375 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_stream_printf" "', argument " "2"" of type '" "char const *""'");
2376 }
2377 arg2 = (char *)(buf2);
2378 ecode3 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
2379 if (!SWIG_IsOK(ecode3)) {
2380 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_stream_printf" "', argument " "3"" of type '" "int""'");
2381 }
2382 arg3 = (int)(val3);
2383 res4 = SWIG_AsCharPtrAndSize(ST(3), &buf4, NULL, &alloc4);
2384 if (!SWIG_IsOK(res4)) {
2385 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_stream_printf" "', argument " "4"" of type '" "char const *""'");
2386 }
2387 arg4 = (char *)(buf4);
2388 gsl_stream_printf((char const *)arg1,(char const *)arg2,arg3,(char const *)arg4);
2389 ST(argvi) = &PL_sv_undef;
2390 if (alloc1 == SWIG_NEWOBJ) free((char*)buf1);
2391 if (alloc2 == SWIG_NEWOBJ) free((char*)buf2);
2392
2393 if (alloc4 == SWIG_NEWOBJ) free((char*)buf4);
2394 XSRETURN(argvi);
2395 fail:
2396 if (alloc1 == SWIG_NEWOBJ) free((char*)buf1);
2397 if (alloc2 == SWIG_NEWOBJ) free((char*)buf2);
2398
2399 if (alloc4 == SWIG_NEWOBJ) free((char*)buf4);
2400 SWIG_croak_null();
2401 }
2402 }
2403
2404
XS(_wrap_gsl_strerror)2405 XS(_wrap_gsl_strerror) {
2406 {
2407 int arg1 ;
2408 int val1 ;
2409 int ecode1 = 0 ;
2410 int argvi = 0;
2411 char *result = 0 ;
2412 dXSARGS;
2413
2414 if ((items < 1) || (items > 1)) {
2415 SWIG_croak("Usage: gsl_strerror(gsl_errno);");
2416 }
2417 ecode1 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
2418 if (!SWIG_IsOK(ecode1)) {
2419 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_strerror" "', argument " "1"" of type '" "int""'");
2420 }
2421 arg1 = (int)(val1);
2422 result = (char *)gsl_strerror(arg1);
2423 ST(argvi) = SWIG_FromCharPtr((const char *)result); argvi++ ;
2424
2425 XSRETURN(argvi);
2426 fail:
2427
2428 SWIG_croak_null();
2429 }
2430 }
2431
2432
XS(_wrap_gsl_set_error_handler)2433 XS(_wrap_gsl_set_error_handler) {
2434 {
2435 gsl_error_handler_t *arg1 = (gsl_error_handler_t *) 0 ;
2436 int argvi = 0;
2437 gsl_error_handler_t *result = 0 ;
2438 dXSARGS;
2439
2440 if ((items < 1) || (items > 1)) {
2441 SWIG_croak("Usage: gsl_set_error_handler(new_handler);");
2442 }
2443 {
2444 int res = SWIG_ConvertFunctionPtr(ST(0), (void**)(&arg1), SWIGTYPE_p_f_p_q_const__char_p_q_const__char_int_int__void);
2445 if (!SWIG_IsOK(res)) {
2446 SWIG_exception_fail(SWIG_ArgError(res), "in method '" "gsl_set_error_handler" "', argument " "1"" of type '" "gsl_error_handler_t *""'");
2447 }
2448 }
2449 result = (gsl_error_handler_t *)gsl_set_error_handler(arg1);
2450 ST(argvi) = SWIG_NewFunctionPtrObj((void *)(result), SWIGTYPE_p_f_p_q_const__char_p_q_const__char_int_int__void); argvi++ ;
2451
2452 XSRETURN(argvi);
2453 fail:
2454
2455 SWIG_croak_null();
2456 }
2457 }
2458
2459
XS(_wrap_gsl_set_error_handler_off)2460 XS(_wrap_gsl_set_error_handler_off) {
2461 {
2462 int argvi = 0;
2463 gsl_error_handler_t *result = 0 ;
2464 dXSARGS;
2465
2466 if ((items < 0) || (items > 0)) {
2467 SWIG_croak("Usage: gsl_set_error_handler_off();");
2468 }
2469 result = (gsl_error_handler_t *)gsl_set_error_handler_off();
2470 ST(argvi) = SWIG_NewFunctionPtrObj((void *)(result), SWIGTYPE_p_f_p_q_const__char_p_q_const__char_int_int__void); argvi++ ;
2471 XSRETURN(argvi);
2472 fail:
2473 SWIG_croak_null();
2474 }
2475 }
2476
2477
XS(_wrap_gsl_set_stream_handler)2478 XS(_wrap_gsl_set_stream_handler) {
2479 {
2480 gsl_stream_handler_t *arg1 = (gsl_stream_handler_t *) 0 ;
2481 int argvi = 0;
2482 gsl_stream_handler_t *result = 0 ;
2483 dXSARGS;
2484
2485 if ((items < 1) || (items > 1)) {
2486 SWIG_croak("Usage: gsl_set_stream_handler(new_handler);");
2487 }
2488 {
2489 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);
2490 if (!SWIG_IsOK(res)) {
2491 SWIG_exception_fail(SWIG_ArgError(res), "in method '" "gsl_set_stream_handler" "', argument " "1"" of type '" "gsl_stream_handler_t *""'");
2492 }
2493 }
2494 result = (gsl_stream_handler_t *)gsl_set_stream_handler(arg1);
2495 ST(argvi) = SWIG_NewFunctionPtrObj((void *)(result), SWIGTYPE_p_f_p_q_const__char_p_q_const__char_int_p_q_const__char__void); argvi++ ;
2496
2497 XSRETURN(argvi);
2498 fail:
2499
2500 SWIG_croak_null();
2501 }
2502 }
2503
2504
XS(_wrap_gsl_set_stream)2505 XS(_wrap_gsl_set_stream) {
2506 {
2507 FILE *arg1 = (FILE *) 0 ;
2508 void *argp1 = 0 ;
2509 int res1 = 0 ;
2510 int argvi = 0;
2511 FILE *result = 0 ;
2512 dXSARGS;
2513
2514 if ((items < 1) || (items > 1)) {
2515 SWIG_croak("Usage: gsl_set_stream(new_stream);");
2516 }
2517 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_FILE, 0 | 0 );
2518 if (!SWIG_IsOK(res1)) {
2519 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_set_stream" "', argument " "1"" of type '" "FILE *""'");
2520 }
2521 arg1 = (FILE *)(argp1);
2522 result = (FILE *)gsl_set_stream(arg1);
2523 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_FILE, 0 | 0); argvi++ ;
2524
2525 XSRETURN(argvi);
2526 fail:
2527
2528 SWIG_croak_null();
2529 }
2530 }
2531
2532
XS(_wrap_gsl_linalg_matmult)2533 XS(_wrap_gsl_linalg_matmult) {
2534 {
2535 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
2536 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
2537 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
2538 void *argp1 = 0 ;
2539 int res1 = 0 ;
2540 void *argp2 = 0 ;
2541 int res2 = 0 ;
2542 void *argp3 = 0 ;
2543 int res3 = 0 ;
2544 int argvi = 0;
2545 int result;
2546 dXSARGS;
2547
2548 if ((items < 3) || (items > 3)) {
2549 SWIG_croak("Usage: gsl_linalg_matmult(A,B,C);");
2550 }
2551 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
2552 if (!SWIG_IsOK(res1)) {
2553 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_matmult" "', argument " "1"" of type '" "gsl_matrix const *""'");
2554 }
2555 arg1 = (gsl_matrix *)(argp1);
2556 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
2557 if (!SWIG_IsOK(res2)) {
2558 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_matmult" "', argument " "2"" of type '" "gsl_matrix const *""'");
2559 }
2560 arg2 = (gsl_matrix *)(argp2);
2561 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
2562 if (!SWIG_IsOK(res3)) {
2563 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_matmult" "', argument " "3"" of type '" "gsl_matrix *""'");
2564 }
2565 arg3 = (gsl_matrix *)(argp3);
2566 result = (int)gsl_linalg_matmult((gsl_matrix const *)arg1,(gsl_matrix const *)arg2,arg3);
2567 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
2568
2569
2570
2571 XSRETURN(argvi);
2572 fail:
2573
2574
2575
2576 SWIG_croak_null();
2577 }
2578 }
2579
2580
XS(_wrap_gsl_linalg_matmult_mod)2581 XS(_wrap_gsl_linalg_matmult_mod) {
2582 {
2583 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
2584 gsl_linalg_matrix_mod_t arg2 ;
2585 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
2586 gsl_linalg_matrix_mod_t arg4 ;
2587 gsl_matrix *arg5 = (gsl_matrix *) 0 ;
2588 void *argp1 = 0 ;
2589 int res1 = 0 ;
2590 int val2 ;
2591 int ecode2 = 0 ;
2592 void *argp3 = 0 ;
2593 int res3 = 0 ;
2594 int val4 ;
2595 int ecode4 = 0 ;
2596 void *argp5 = 0 ;
2597 int res5 = 0 ;
2598 int argvi = 0;
2599 int result;
2600 dXSARGS;
2601
2602 if ((items < 5) || (items > 5)) {
2603 SWIG_croak("Usage: gsl_linalg_matmult_mod(A,modA,B,modB,C);");
2604 }
2605 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
2606 if (!SWIG_IsOK(res1)) {
2607 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_matmult_mod" "', argument " "1"" of type '" "gsl_matrix const *""'");
2608 }
2609 arg1 = (gsl_matrix *)(argp1);
2610 ecode2 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
2611 if (!SWIG_IsOK(ecode2)) {
2612 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_linalg_matmult_mod" "', argument " "2"" of type '" "gsl_linalg_matrix_mod_t""'");
2613 }
2614 arg2 = (gsl_linalg_matrix_mod_t)(val2);
2615 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
2616 if (!SWIG_IsOK(res3)) {
2617 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_matmult_mod" "', argument " "3"" of type '" "gsl_matrix const *""'");
2618 }
2619 arg3 = (gsl_matrix *)(argp3);
2620 ecode4 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(3), &val4);
2621 if (!SWIG_IsOK(ecode4)) {
2622 SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "gsl_linalg_matmult_mod" "', argument " "4"" of type '" "gsl_linalg_matrix_mod_t""'");
2623 }
2624 arg4 = (gsl_linalg_matrix_mod_t)(val4);
2625 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_matrix, 0 | 0 );
2626 if (!SWIG_IsOK(res5)) {
2627 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_matmult_mod" "', argument " "5"" of type '" "gsl_matrix *""'");
2628 }
2629 arg5 = (gsl_matrix *)(argp5);
2630 result = (int)gsl_linalg_matmult_mod((gsl_matrix const *)arg1,arg2,(gsl_matrix const *)arg3,arg4,arg5);
2631 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
2632
2633
2634
2635
2636
2637 XSRETURN(argvi);
2638 fail:
2639
2640
2641
2642
2643
2644 SWIG_croak_null();
2645 }
2646 }
2647
2648
XS(_wrap_gsl_linalg_exponential_ss)2649 XS(_wrap_gsl_linalg_exponential_ss) {
2650 {
2651 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
2652 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
2653 gsl_mode_t arg3 ;
2654 void *argp1 = 0 ;
2655 int res1 = 0 ;
2656 void *argp2 = 0 ;
2657 int res2 = 0 ;
2658 void *argp3 ;
2659 int res3 = 0 ;
2660 int argvi = 0;
2661 int result;
2662 dXSARGS;
2663
2664 if ((items < 3) || (items > 3)) {
2665 SWIG_croak("Usage: gsl_linalg_exponential_ss(A,eA,mode);");
2666 }
2667 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
2668 if (!SWIG_IsOK(res1)) {
2669 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_exponential_ss" "', argument " "1"" of type '" "gsl_matrix const *""'");
2670 }
2671 arg1 = (gsl_matrix *)(argp1);
2672 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
2673 if (!SWIG_IsOK(res2)) {
2674 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_exponential_ss" "', argument " "2"" of type '" "gsl_matrix *""'");
2675 }
2676 arg2 = (gsl_matrix *)(argp2);
2677 {
2678 res3 = SWIG_ConvertPtr(ST(2), &argp3, SWIGTYPE_p_gsl_mode_t, 0 );
2679 if (!SWIG_IsOK(res3)) {
2680 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_exponential_ss" "', argument " "3"" of type '" "gsl_mode_t""'");
2681 }
2682 if (!argp3) {
2683 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_linalg_exponential_ss" "', argument " "3"" of type '" "gsl_mode_t""'");
2684 } else {
2685 arg3 = *((gsl_mode_t *)(argp3));
2686 }
2687 }
2688 result = (int)gsl_linalg_exponential_ss((gsl_matrix const *)arg1,arg2,arg3);
2689 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
2690
2691
2692 XSRETURN(argvi);
2693 fail:
2694
2695
2696 SWIG_croak_null();
2697 }
2698 }
2699
2700
XS(_wrap_gsl_linalg_householder_transform)2701 XS(_wrap_gsl_linalg_householder_transform) {
2702 {
2703 gsl_vector *arg1 = (gsl_vector *) 0 ;
2704 void *argp1 = 0 ;
2705 int res1 = 0 ;
2706 int argvi = 0;
2707 double result;
2708 dXSARGS;
2709
2710 if ((items < 1) || (items > 1)) {
2711 SWIG_croak("Usage: gsl_linalg_householder_transform(v);");
2712 }
2713 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
2714 if (!SWIG_IsOK(res1)) {
2715 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_householder_transform" "', argument " "1"" of type '" "gsl_vector *""'");
2716 }
2717 arg1 = (gsl_vector *)(argp1);
2718 result = (double)gsl_linalg_householder_transform(arg1);
2719 ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(result)); argvi++ ;
2720
2721 XSRETURN(argvi);
2722 fail:
2723
2724 SWIG_croak_null();
2725 }
2726 }
2727
2728
XS(_wrap_gsl_linalg_complex_householder_transform)2729 XS(_wrap_gsl_linalg_complex_householder_transform) {
2730 {
2731 gsl_vector_complex *arg1 = (gsl_vector_complex *) 0 ;
2732 void *argp1 = 0 ;
2733 int res1 = 0 ;
2734 int argvi = 0;
2735 gsl_complex result;
2736 dXSARGS;
2737
2738 if ((items < 1) || (items > 1)) {
2739 SWIG_croak("Usage: gsl_linalg_complex_householder_transform(v);");
2740 }
2741 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
2742 if (!SWIG_IsOK(res1)) {
2743 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_complex_householder_transform" "', argument " "1"" of type '" "gsl_vector_complex *""'");
2744 }
2745 arg1 = (gsl_vector_complex *)(argp1);
2746 result = gsl_linalg_complex_householder_transform(arg1);
2747 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++ ;
2748
2749 XSRETURN(argvi);
2750 fail:
2751
2752 SWIG_croak_null();
2753 }
2754 }
2755
2756
XS(_wrap_gsl_linalg_householder_hm)2757 XS(_wrap_gsl_linalg_householder_hm) {
2758 {
2759 double arg1 ;
2760 gsl_vector *arg2 = (gsl_vector *) 0 ;
2761 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
2762 double val1 ;
2763 int ecode1 = 0 ;
2764 void *argp2 = 0 ;
2765 int res2 = 0 ;
2766 void *argp3 = 0 ;
2767 int res3 = 0 ;
2768 int argvi = 0;
2769 int result;
2770 dXSARGS;
2771
2772 if ((items < 3) || (items > 3)) {
2773 SWIG_croak("Usage: gsl_linalg_householder_hm(tau,v,A);");
2774 }
2775 ecode1 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
2776 if (!SWIG_IsOK(ecode1)) {
2777 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_linalg_householder_hm" "', argument " "1"" of type '" "double""'");
2778 }
2779 arg1 = (double)(val1);
2780 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
2781 if (!SWIG_IsOK(res2)) {
2782 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_householder_hm" "', argument " "2"" of type '" "gsl_vector const *""'");
2783 }
2784 arg2 = (gsl_vector *)(argp2);
2785 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
2786 if (!SWIG_IsOK(res3)) {
2787 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_householder_hm" "', argument " "3"" of type '" "gsl_matrix *""'");
2788 }
2789 arg3 = (gsl_matrix *)(argp3);
2790 result = (int)gsl_linalg_householder_hm(arg1,(gsl_vector const *)arg2,arg3);
2791 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
2792
2793
2794
2795 XSRETURN(argvi);
2796 fail:
2797
2798
2799
2800 SWIG_croak_null();
2801 }
2802 }
2803
2804
XS(_wrap_gsl_linalg_householder_mh)2805 XS(_wrap_gsl_linalg_householder_mh) {
2806 {
2807 double arg1 ;
2808 gsl_vector *arg2 = (gsl_vector *) 0 ;
2809 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
2810 double val1 ;
2811 int ecode1 = 0 ;
2812 void *argp2 = 0 ;
2813 int res2 = 0 ;
2814 void *argp3 = 0 ;
2815 int res3 = 0 ;
2816 int argvi = 0;
2817 int result;
2818 dXSARGS;
2819
2820 if ((items < 3) || (items > 3)) {
2821 SWIG_croak("Usage: gsl_linalg_householder_mh(tau,v,A);");
2822 }
2823 ecode1 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
2824 if (!SWIG_IsOK(ecode1)) {
2825 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_linalg_householder_mh" "', argument " "1"" of type '" "double""'");
2826 }
2827 arg1 = (double)(val1);
2828 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
2829 if (!SWIG_IsOK(res2)) {
2830 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_householder_mh" "', argument " "2"" of type '" "gsl_vector const *""'");
2831 }
2832 arg2 = (gsl_vector *)(argp2);
2833 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
2834 if (!SWIG_IsOK(res3)) {
2835 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_householder_mh" "', argument " "3"" of type '" "gsl_matrix *""'");
2836 }
2837 arg3 = (gsl_matrix *)(argp3);
2838 result = (int)gsl_linalg_householder_mh(arg1,(gsl_vector const *)arg2,arg3);
2839 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
2840
2841
2842
2843 XSRETURN(argvi);
2844 fail:
2845
2846
2847
2848 SWIG_croak_null();
2849 }
2850 }
2851
2852
XS(_wrap_gsl_linalg_householder_hv)2853 XS(_wrap_gsl_linalg_householder_hv) {
2854 {
2855 double arg1 ;
2856 gsl_vector *arg2 = (gsl_vector *) 0 ;
2857 gsl_vector *arg3 = (gsl_vector *) 0 ;
2858 double val1 ;
2859 int ecode1 = 0 ;
2860 void *argp2 = 0 ;
2861 int res2 = 0 ;
2862 void *argp3 = 0 ;
2863 int res3 = 0 ;
2864 int argvi = 0;
2865 int result;
2866 dXSARGS;
2867
2868 if ((items < 3) || (items > 3)) {
2869 SWIG_croak("Usage: gsl_linalg_householder_hv(tau,v,w);");
2870 }
2871 ecode1 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
2872 if (!SWIG_IsOK(ecode1)) {
2873 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_linalg_householder_hv" "', argument " "1"" of type '" "double""'");
2874 }
2875 arg1 = (double)(val1);
2876 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
2877 if (!SWIG_IsOK(res2)) {
2878 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_householder_hv" "', argument " "2"" of type '" "gsl_vector const *""'");
2879 }
2880 arg2 = (gsl_vector *)(argp2);
2881 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
2882 if (!SWIG_IsOK(res3)) {
2883 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_householder_hv" "', argument " "3"" of type '" "gsl_vector *""'");
2884 }
2885 arg3 = (gsl_vector *)(argp3);
2886 result = (int)gsl_linalg_householder_hv(arg1,(gsl_vector const *)arg2,arg3);
2887 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
2888
2889
2890
2891 XSRETURN(argvi);
2892 fail:
2893
2894
2895
2896 SWIG_croak_null();
2897 }
2898 }
2899
2900
XS(_wrap_gsl_linalg_householder_hm1)2901 XS(_wrap_gsl_linalg_householder_hm1) {
2902 {
2903 double arg1 ;
2904 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
2905 double val1 ;
2906 int ecode1 = 0 ;
2907 void *argp2 = 0 ;
2908 int res2 = 0 ;
2909 int argvi = 0;
2910 int result;
2911 dXSARGS;
2912
2913 if ((items < 2) || (items > 2)) {
2914 SWIG_croak("Usage: gsl_linalg_householder_hm1(tau,A);");
2915 }
2916 ecode1 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
2917 if (!SWIG_IsOK(ecode1)) {
2918 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_linalg_householder_hm1" "', argument " "1"" of type '" "double""'");
2919 }
2920 arg1 = (double)(val1);
2921 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
2922 if (!SWIG_IsOK(res2)) {
2923 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_householder_hm1" "', argument " "2"" of type '" "gsl_matrix *""'");
2924 }
2925 arg2 = (gsl_matrix *)(argp2);
2926 result = (int)gsl_linalg_householder_hm1(arg1,arg2);
2927 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
2928
2929
2930 XSRETURN(argvi);
2931 fail:
2932
2933
2934 SWIG_croak_null();
2935 }
2936 }
2937
2938
XS(_wrap_gsl_linalg_complex_householder_hm)2939 XS(_wrap_gsl_linalg_complex_householder_hm) {
2940 {
2941 gsl_complex arg1 ;
2942 gsl_vector_complex *arg2 = (gsl_vector_complex *) 0 ;
2943 gsl_matrix_complex *arg3 = (gsl_matrix_complex *) 0 ;
2944 void *argp1 ;
2945 int res1 = 0 ;
2946 void *argp2 = 0 ;
2947 int res2 = 0 ;
2948 void *argp3 = 0 ;
2949 int res3 = 0 ;
2950 int argvi = 0;
2951 int result;
2952 dXSARGS;
2953
2954 if ((items < 3) || (items > 3)) {
2955 SWIG_croak("Usage: gsl_linalg_complex_householder_hm(tau,v,A);");
2956 }
2957 {
2958 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
2959 if (!SWIG_IsOK(res1)) {
2960 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_complex_householder_hm" "', argument " "1"" of type '" "gsl_complex""'");
2961 }
2962 if (!argp1) {
2963 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_linalg_complex_householder_hm" "', argument " "1"" of type '" "gsl_complex""'");
2964 } else {
2965 arg1 = *((gsl_complex *)(argp1));
2966 }
2967 }
2968 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
2969 if (!SWIG_IsOK(res2)) {
2970 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_complex_householder_hm" "', argument " "2"" of type '" "gsl_vector_complex const *""'");
2971 }
2972 arg2 = (gsl_vector_complex *)(argp2);
2973 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
2974 if (!SWIG_IsOK(res3)) {
2975 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_complex_householder_hm" "', argument " "3"" of type '" "gsl_matrix_complex *""'");
2976 }
2977 arg3 = (gsl_matrix_complex *)(argp3);
2978 result = (int)gsl_linalg_complex_householder_hm(arg1,(gsl_vector_complex const *)arg2,arg3);
2979 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
2980
2981
2982 XSRETURN(argvi);
2983 fail:
2984
2985
2986 SWIG_croak_null();
2987 }
2988 }
2989
2990
XS(_wrap_gsl_linalg_complex_householder_mh)2991 XS(_wrap_gsl_linalg_complex_householder_mh) {
2992 {
2993 gsl_complex arg1 ;
2994 gsl_vector_complex *arg2 = (gsl_vector_complex *) 0 ;
2995 gsl_matrix_complex *arg3 = (gsl_matrix_complex *) 0 ;
2996 void *argp1 ;
2997 int res1 = 0 ;
2998 void *argp2 = 0 ;
2999 int res2 = 0 ;
3000 void *argp3 = 0 ;
3001 int res3 = 0 ;
3002 int argvi = 0;
3003 int result;
3004 dXSARGS;
3005
3006 if ((items < 3) || (items > 3)) {
3007 SWIG_croak("Usage: gsl_linalg_complex_householder_mh(tau,v,A);");
3008 }
3009 {
3010 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
3011 if (!SWIG_IsOK(res1)) {
3012 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_complex_householder_mh" "', argument " "1"" of type '" "gsl_complex""'");
3013 }
3014 if (!argp1) {
3015 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_linalg_complex_householder_mh" "', argument " "1"" of type '" "gsl_complex""'");
3016 } else {
3017 arg1 = *((gsl_complex *)(argp1));
3018 }
3019 }
3020 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
3021 if (!SWIG_IsOK(res2)) {
3022 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_complex_householder_mh" "', argument " "2"" of type '" "gsl_vector_complex const *""'");
3023 }
3024 arg2 = (gsl_vector_complex *)(argp2);
3025 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
3026 if (!SWIG_IsOK(res3)) {
3027 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_complex_householder_mh" "', argument " "3"" of type '" "gsl_matrix_complex *""'");
3028 }
3029 arg3 = (gsl_matrix_complex *)(argp3);
3030 result = (int)gsl_linalg_complex_householder_mh(arg1,(gsl_vector_complex const *)arg2,arg3);
3031 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3032
3033
3034 XSRETURN(argvi);
3035 fail:
3036
3037
3038 SWIG_croak_null();
3039 }
3040 }
3041
3042
XS(_wrap_gsl_linalg_complex_householder_hv)3043 XS(_wrap_gsl_linalg_complex_householder_hv) {
3044 {
3045 gsl_complex arg1 ;
3046 gsl_vector_complex *arg2 = (gsl_vector_complex *) 0 ;
3047 gsl_vector_complex *arg3 = (gsl_vector_complex *) 0 ;
3048 void *argp1 ;
3049 int res1 = 0 ;
3050 void *argp2 = 0 ;
3051 int res2 = 0 ;
3052 void *argp3 = 0 ;
3053 int res3 = 0 ;
3054 int argvi = 0;
3055 int result;
3056 dXSARGS;
3057
3058 if ((items < 3) || (items > 3)) {
3059 SWIG_croak("Usage: gsl_linalg_complex_householder_hv(tau,v,w);");
3060 }
3061 {
3062 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
3063 if (!SWIG_IsOK(res1)) {
3064 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_complex_householder_hv" "', argument " "1"" of type '" "gsl_complex""'");
3065 }
3066 if (!argp1) {
3067 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_linalg_complex_householder_hv" "', argument " "1"" of type '" "gsl_complex""'");
3068 } else {
3069 arg1 = *((gsl_complex *)(argp1));
3070 }
3071 }
3072 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
3073 if (!SWIG_IsOK(res2)) {
3074 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_complex_householder_hv" "', argument " "2"" of type '" "gsl_vector_complex const *""'");
3075 }
3076 arg2 = (gsl_vector_complex *)(argp2);
3077 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
3078 if (!SWIG_IsOK(res3)) {
3079 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_complex_householder_hv" "', argument " "3"" of type '" "gsl_vector_complex *""'");
3080 }
3081 arg3 = (gsl_vector_complex *)(argp3);
3082 result = (int)gsl_linalg_complex_householder_hv(arg1,(gsl_vector_complex const *)arg2,arg3);
3083 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3084
3085
3086 XSRETURN(argvi);
3087 fail:
3088
3089
3090 SWIG_croak_null();
3091 }
3092 }
3093
3094
XS(_wrap_gsl_linalg_hessenberg_decomp)3095 XS(_wrap_gsl_linalg_hessenberg_decomp) {
3096 {
3097 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
3098 gsl_vector *arg2 = (gsl_vector *) 0 ;
3099 void *argp1 = 0 ;
3100 int res1 = 0 ;
3101 void *argp2 = 0 ;
3102 int res2 = 0 ;
3103 int argvi = 0;
3104 int result;
3105 dXSARGS;
3106
3107 if ((items < 2) || (items > 2)) {
3108 SWIG_croak("Usage: gsl_linalg_hessenberg_decomp(A,tau);");
3109 }
3110 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3111 if (!SWIG_IsOK(res1)) {
3112 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_hessenberg_decomp" "', argument " "1"" of type '" "gsl_matrix *""'");
3113 }
3114 arg1 = (gsl_matrix *)(argp1);
3115 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
3116 if (!SWIG_IsOK(res2)) {
3117 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_hessenberg_decomp" "', argument " "2"" of type '" "gsl_vector *""'");
3118 }
3119 arg2 = (gsl_vector *)(argp2);
3120 result = (int)gsl_linalg_hessenberg_decomp(arg1,arg2);
3121 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3122
3123
3124 XSRETURN(argvi);
3125 fail:
3126
3127
3128 SWIG_croak_null();
3129 }
3130 }
3131
3132
XS(_wrap_gsl_linalg_hessenberg_unpack)3133 XS(_wrap_gsl_linalg_hessenberg_unpack) {
3134 {
3135 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
3136 gsl_vector *arg2 = (gsl_vector *) 0 ;
3137 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
3138 void *argp1 = 0 ;
3139 int res1 = 0 ;
3140 void *argp2 = 0 ;
3141 int res2 = 0 ;
3142 void *argp3 = 0 ;
3143 int res3 = 0 ;
3144 int argvi = 0;
3145 int result;
3146 dXSARGS;
3147
3148 if ((items < 3) || (items > 3)) {
3149 SWIG_croak("Usage: gsl_linalg_hessenberg_unpack(H,tau,U);");
3150 }
3151 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3152 if (!SWIG_IsOK(res1)) {
3153 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_hessenberg_unpack" "', argument " "1"" of type '" "gsl_matrix *""'");
3154 }
3155 arg1 = (gsl_matrix *)(argp1);
3156 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
3157 if (!SWIG_IsOK(res2)) {
3158 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_hessenberg_unpack" "', argument " "2"" of type '" "gsl_vector *""'");
3159 }
3160 arg2 = (gsl_vector *)(argp2);
3161 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3162 if (!SWIG_IsOK(res3)) {
3163 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_hessenberg_unpack" "', argument " "3"" of type '" "gsl_matrix *""'");
3164 }
3165 arg3 = (gsl_matrix *)(argp3);
3166 result = (int)gsl_linalg_hessenberg_unpack(arg1,arg2,arg3);
3167 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3168
3169
3170
3171 XSRETURN(argvi);
3172 fail:
3173
3174
3175
3176 SWIG_croak_null();
3177 }
3178 }
3179
3180
XS(_wrap_gsl_linalg_hessenberg_unpack_accum)3181 XS(_wrap_gsl_linalg_hessenberg_unpack_accum) {
3182 {
3183 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
3184 gsl_vector *arg2 = (gsl_vector *) 0 ;
3185 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
3186 void *argp1 = 0 ;
3187 int res1 = 0 ;
3188 void *argp2 = 0 ;
3189 int res2 = 0 ;
3190 void *argp3 = 0 ;
3191 int res3 = 0 ;
3192 int argvi = 0;
3193 int result;
3194 dXSARGS;
3195
3196 if ((items < 3) || (items > 3)) {
3197 SWIG_croak("Usage: gsl_linalg_hessenberg_unpack_accum(H,tau,U);");
3198 }
3199 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3200 if (!SWIG_IsOK(res1)) {
3201 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_hessenberg_unpack_accum" "', argument " "1"" of type '" "gsl_matrix *""'");
3202 }
3203 arg1 = (gsl_matrix *)(argp1);
3204 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
3205 if (!SWIG_IsOK(res2)) {
3206 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_hessenberg_unpack_accum" "', argument " "2"" of type '" "gsl_vector *""'");
3207 }
3208 arg2 = (gsl_vector *)(argp2);
3209 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3210 if (!SWIG_IsOK(res3)) {
3211 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_hessenberg_unpack_accum" "', argument " "3"" of type '" "gsl_matrix *""'");
3212 }
3213 arg3 = (gsl_matrix *)(argp3);
3214 result = (int)gsl_linalg_hessenberg_unpack_accum(arg1,arg2,arg3);
3215 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3216
3217
3218
3219 XSRETURN(argvi);
3220 fail:
3221
3222
3223
3224 SWIG_croak_null();
3225 }
3226 }
3227
3228
XS(_wrap_gsl_linalg_hessenberg_set_zero)3229 XS(_wrap_gsl_linalg_hessenberg_set_zero) {
3230 {
3231 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
3232 void *argp1 = 0 ;
3233 int res1 = 0 ;
3234 int argvi = 0;
3235 int result;
3236 dXSARGS;
3237
3238 if ((items < 1) || (items > 1)) {
3239 SWIG_croak("Usage: gsl_linalg_hessenberg_set_zero(H);");
3240 }
3241 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3242 if (!SWIG_IsOK(res1)) {
3243 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_hessenberg_set_zero" "', argument " "1"" of type '" "gsl_matrix *""'");
3244 }
3245 arg1 = (gsl_matrix *)(argp1);
3246 result = (int)gsl_linalg_hessenberg_set_zero(arg1);
3247 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3248
3249 XSRETURN(argvi);
3250 fail:
3251
3252 SWIG_croak_null();
3253 }
3254 }
3255
3256
XS(_wrap_gsl_linalg_hessenberg_submatrix)3257 XS(_wrap_gsl_linalg_hessenberg_submatrix) {
3258 {
3259 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
3260 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
3261 size_t arg3 ;
3262 gsl_vector *arg4 = (gsl_vector *) 0 ;
3263 void *argp1 = 0 ;
3264 int res1 = 0 ;
3265 void *argp2 = 0 ;
3266 int res2 = 0 ;
3267 size_t val3 ;
3268 int ecode3 = 0 ;
3269 void *argp4 = 0 ;
3270 int res4 = 0 ;
3271 int argvi = 0;
3272 int result;
3273 dXSARGS;
3274
3275 if ((items < 4) || (items > 4)) {
3276 SWIG_croak("Usage: gsl_linalg_hessenberg_submatrix(M,A,top,tau);");
3277 }
3278 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3279 if (!SWIG_IsOK(res1)) {
3280 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_hessenberg_submatrix" "', argument " "1"" of type '" "gsl_matrix *""'");
3281 }
3282 arg1 = (gsl_matrix *)(argp1);
3283 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3284 if (!SWIG_IsOK(res2)) {
3285 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_hessenberg_submatrix" "', argument " "2"" of type '" "gsl_matrix *""'");
3286 }
3287 arg2 = (gsl_matrix *)(argp2);
3288 ecode3 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
3289 if (!SWIG_IsOK(ecode3)) {
3290 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_linalg_hessenberg_submatrix" "', argument " "3"" of type '" "size_t""'");
3291 }
3292 arg3 = (size_t)(val3);
3293 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
3294 if (!SWIG_IsOK(res4)) {
3295 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_hessenberg_submatrix" "', argument " "4"" of type '" "gsl_vector *""'");
3296 }
3297 arg4 = (gsl_vector *)(argp4);
3298 result = (int)gsl_linalg_hessenberg_submatrix(arg1,arg2,arg3,arg4);
3299 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3300
3301
3302
3303
3304 XSRETURN(argvi);
3305 fail:
3306
3307
3308
3309
3310 SWIG_croak_null();
3311 }
3312 }
3313
3314
XS(_wrap_gsl_linalg_hesstri_decomp)3315 XS(_wrap_gsl_linalg_hesstri_decomp) {
3316 {
3317 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
3318 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
3319 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
3320 gsl_matrix *arg4 = (gsl_matrix *) 0 ;
3321 gsl_vector *arg5 = (gsl_vector *) 0 ;
3322 void *argp1 = 0 ;
3323 int res1 = 0 ;
3324 void *argp2 = 0 ;
3325 int res2 = 0 ;
3326 void *argp3 = 0 ;
3327 int res3 = 0 ;
3328 void *argp4 = 0 ;
3329 int res4 = 0 ;
3330 void *argp5 = 0 ;
3331 int res5 = 0 ;
3332 int argvi = 0;
3333 int result;
3334 dXSARGS;
3335
3336 if ((items < 5) || (items > 5)) {
3337 SWIG_croak("Usage: gsl_linalg_hesstri_decomp(A,B,U,V,work);");
3338 }
3339 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3340 if (!SWIG_IsOK(res1)) {
3341 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_hesstri_decomp" "', argument " "1"" of type '" "gsl_matrix *""'");
3342 }
3343 arg1 = (gsl_matrix *)(argp1);
3344 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3345 if (!SWIG_IsOK(res2)) {
3346 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_hesstri_decomp" "', argument " "2"" of type '" "gsl_matrix *""'");
3347 }
3348 arg2 = (gsl_matrix *)(argp2);
3349 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3350 if (!SWIG_IsOK(res3)) {
3351 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_hesstri_decomp" "', argument " "3"" of type '" "gsl_matrix *""'");
3352 }
3353 arg3 = (gsl_matrix *)(argp3);
3354 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3355 if (!SWIG_IsOK(res4)) {
3356 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_hesstri_decomp" "', argument " "4"" of type '" "gsl_matrix *""'");
3357 }
3358 arg4 = (gsl_matrix *)(argp4);
3359 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
3360 if (!SWIG_IsOK(res5)) {
3361 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_hesstri_decomp" "', argument " "5"" of type '" "gsl_vector *""'");
3362 }
3363 arg5 = (gsl_vector *)(argp5);
3364 result = (int)gsl_linalg_hesstri_decomp(arg1,arg2,arg3,arg4,arg5);
3365 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3366
3367
3368
3369
3370
3371 XSRETURN(argvi);
3372 fail:
3373
3374
3375
3376
3377
3378 SWIG_croak_null();
3379 }
3380 }
3381
3382
XS(_wrap_gsl_linalg_SV_decomp)3383 XS(_wrap_gsl_linalg_SV_decomp) {
3384 {
3385 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
3386 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
3387 gsl_vector *arg3 = (gsl_vector *) 0 ;
3388 gsl_vector *arg4 = (gsl_vector *) 0 ;
3389 void *argp1 = 0 ;
3390 int res1 = 0 ;
3391 void *argp2 = 0 ;
3392 int res2 = 0 ;
3393 void *argp3 = 0 ;
3394 int res3 = 0 ;
3395 void *argp4 = 0 ;
3396 int res4 = 0 ;
3397 int argvi = 0;
3398 int result;
3399 dXSARGS;
3400
3401 if ((items < 4) || (items > 4)) {
3402 SWIG_croak("Usage: gsl_linalg_SV_decomp(A,V,S,work);");
3403 }
3404 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3405 if (!SWIG_IsOK(res1)) {
3406 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_SV_decomp" "', argument " "1"" of type '" "gsl_matrix *""'");
3407 }
3408 arg1 = (gsl_matrix *)(argp1);
3409 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3410 if (!SWIG_IsOK(res2)) {
3411 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_SV_decomp" "', argument " "2"" of type '" "gsl_matrix *""'");
3412 }
3413 arg2 = (gsl_matrix *)(argp2);
3414 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
3415 if (!SWIG_IsOK(res3)) {
3416 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_SV_decomp" "', argument " "3"" of type '" "gsl_vector *""'");
3417 }
3418 arg3 = (gsl_vector *)(argp3);
3419 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
3420 if (!SWIG_IsOK(res4)) {
3421 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_SV_decomp" "', argument " "4"" of type '" "gsl_vector *""'");
3422 }
3423 arg4 = (gsl_vector *)(argp4);
3424 result = (int)gsl_linalg_SV_decomp(arg1,arg2,arg3,arg4);
3425 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3426
3427
3428
3429
3430 XSRETURN(argvi);
3431 fail:
3432
3433
3434
3435
3436 SWIG_croak_null();
3437 }
3438 }
3439
3440
XS(_wrap_gsl_linalg_SV_decomp_mod)3441 XS(_wrap_gsl_linalg_SV_decomp_mod) {
3442 {
3443 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
3444 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
3445 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
3446 gsl_vector *arg4 = (gsl_vector *) 0 ;
3447 gsl_vector *arg5 = (gsl_vector *) 0 ;
3448 void *argp1 = 0 ;
3449 int res1 = 0 ;
3450 void *argp2 = 0 ;
3451 int res2 = 0 ;
3452 void *argp3 = 0 ;
3453 int res3 = 0 ;
3454 void *argp4 = 0 ;
3455 int res4 = 0 ;
3456 void *argp5 = 0 ;
3457 int res5 = 0 ;
3458 int argvi = 0;
3459 int result;
3460 dXSARGS;
3461
3462 if ((items < 5) || (items > 5)) {
3463 SWIG_croak("Usage: gsl_linalg_SV_decomp_mod(A,X,V,S,work);");
3464 }
3465 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3466 if (!SWIG_IsOK(res1)) {
3467 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_SV_decomp_mod" "', argument " "1"" of type '" "gsl_matrix *""'");
3468 }
3469 arg1 = (gsl_matrix *)(argp1);
3470 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3471 if (!SWIG_IsOK(res2)) {
3472 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_SV_decomp_mod" "', argument " "2"" of type '" "gsl_matrix *""'");
3473 }
3474 arg2 = (gsl_matrix *)(argp2);
3475 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3476 if (!SWIG_IsOK(res3)) {
3477 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_SV_decomp_mod" "', argument " "3"" of type '" "gsl_matrix *""'");
3478 }
3479 arg3 = (gsl_matrix *)(argp3);
3480 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
3481 if (!SWIG_IsOK(res4)) {
3482 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_SV_decomp_mod" "', argument " "4"" of type '" "gsl_vector *""'");
3483 }
3484 arg4 = (gsl_vector *)(argp4);
3485 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
3486 if (!SWIG_IsOK(res5)) {
3487 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_SV_decomp_mod" "', argument " "5"" of type '" "gsl_vector *""'");
3488 }
3489 arg5 = (gsl_vector *)(argp5);
3490 result = (int)gsl_linalg_SV_decomp_mod(arg1,arg2,arg3,arg4,arg5);
3491 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3492
3493
3494
3495
3496
3497 XSRETURN(argvi);
3498 fail:
3499
3500
3501
3502
3503
3504 SWIG_croak_null();
3505 }
3506 }
3507
3508
XS(_wrap_gsl_linalg_SV_decomp_jacobi)3509 XS(_wrap_gsl_linalg_SV_decomp_jacobi) {
3510 {
3511 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
3512 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
3513 gsl_vector *arg3 = (gsl_vector *) 0 ;
3514 void *argp1 = 0 ;
3515 int res1 = 0 ;
3516 void *argp2 = 0 ;
3517 int res2 = 0 ;
3518 void *argp3 = 0 ;
3519 int res3 = 0 ;
3520 int argvi = 0;
3521 int result;
3522 dXSARGS;
3523
3524 if ((items < 3) || (items > 3)) {
3525 SWIG_croak("Usage: gsl_linalg_SV_decomp_jacobi(A,Q,S);");
3526 }
3527 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3528 if (!SWIG_IsOK(res1)) {
3529 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_SV_decomp_jacobi" "', argument " "1"" of type '" "gsl_matrix *""'");
3530 }
3531 arg1 = (gsl_matrix *)(argp1);
3532 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3533 if (!SWIG_IsOK(res2)) {
3534 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_SV_decomp_jacobi" "', argument " "2"" of type '" "gsl_matrix *""'");
3535 }
3536 arg2 = (gsl_matrix *)(argp2);
3537 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
3538 if (!SWIG_IsOK(res3)) {
3539 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_SV_decomp_jacobi" "', argument " "3"" of type '" "gsl_vector *""'");
3540 }
3541 arg3 = (gsl_vector *)(argp3);
3542 result = (int)gsl_linalg_SV_decomp_jacobi(arg1,arg2,arg3);
3543 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3544
3545
3546
3547 XSRETURN(argvi);
3548 fail:
3549
3550
3551
3552 SWIG_croak_null();
3553 }
3554 }
3555
3556
XS(_wrap_gsl_linalg_SV_solve)3557 XS(_wrap_gsl_linalg_SV_solve) {
3558 {
3559 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
3560 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
3561 gsl_vector *arg3 = (gsl_vector *) 0 ;
3562 gsl_vector *arg4 = (gsl_vector *) 0 ;
3563 gsl_vector *arg5 = (gsl_vector *) 0 ;
3564 void *argp1 = 0 ;
3565 int res1 = 0 ;
3566 void *argp2 = 0 ;
3567 int res2 = 0 ;
3568 void *argp3 = 0 ;
3569 int res3 = 0 ;
3570 void *argp4 = 0 ;
3571 int res4 = 0 ;
3572 void *argp5 = 0 ;
3573 int res5 = 0 ;
3574 int argvi = 0;
3575 int result;
3576 dXSARGS;
3577
3578 if ((items < 5) || (items > 5)) {
3579 SWIG_croak("Usage: gsl_linalg_SV_solve(U,Q,S,b,x);");
3580 }
3581 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3582 if (!SWIG_IsOK(res1)) {
3583 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_SV_solve" "', argument " "1"" of type '" "gsl_matrix const *""'");
3584 }
3585 arg1 = (gsl_matrix *)(argp1);
3586 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3587 if (!SWIG_IsOK(res2)) {
3588 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_SV_solve" "', argument " "2"" of type '" "gsl_matrix const *""'");
3589 }
3590 arg2 = (gsl_matrix *)(argp2);
3591 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
3592 if (!SWIG_IsOK(res3)) {
3593 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_SV_solve" "', argument " "3"" of type '" "gsl_vector const *""'");
3594 }
3595 arg3 = (gsl_vector *)(argp3);
3596 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
3597 if (!SWIG_IsOK(res4)) {
3598 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_SV_solve" "', argument " "4"" of type '" "gsl_vector const *""'");
3599 }
3600 arg4 = (gsl_vector *)(argp4);
3601 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
3602 if (!SWIG_IsOK(res5)) {
3603 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_SV_solve" "', argument " "5"" of type '" "gsl_vector *""'");
3604 }
3605 arg5 = (gsl_vector *)(argp5);
3606 result = (int)gsl_linalg_SV_solve((gsl_matrix const *)arg1,(gsl_matrix const *)arg2,(gsl_vector const *)arg3,(gsl_vector const *)arg4,arg5);
3607 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3608
3609
3610
3611
3612
3613 XSRETURN(argvi);
3614 fail:
3615
3616
3617
3618
3619
3620 SWIG_croak_null();
3621 }
3622 }
3623
3624
XS(_wrap_gsl_linalg_SV_leverage)3625 XS(_wrap_gsl_linalg_SV_leverage) {
3626 {
3627 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
3628 gsl_vector *arg2 = (gsl_vector *) 0 ;
3629 void *argp1 = 0 ;
3630 int res1 = 0 ;
3631 void *argp2 = 0 ;
3632 int res2 = 0 ;
3633 int argvi = 0;
3634 int result;
3635 dXSARGS;
3636
3637 if ((items < 2) || (items > 2)) {
3638 SWIG_croak("Usage: gsl_linalg_SV_leverage(U,h);");
3639 }
3640 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3641 if (!SWIG_IsOK(res1)) {
3642 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_SV_leverage" "', argument " "1"" of type '" "gsl_matrix const *""'");
3643 }
3644 arg1 = (gsl_matrix *)(argp1);
3645 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
3646 if (!SWIG_IsOK(res2)) {
3647 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_SV_leverage" "', argument " "2"" of type '" "gsl_vector *""'");
3648 }
3649 arg2 = (gsl_vector *)(argp2);
3650 result = (int)gsl_linalg_SV_leverage((gsl_matrix const *)arg1,arg2);
3651 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3652
3653
3654 XSRETURN(argvi);
3655 fail:
3656
3657
3658 SWIG_croak_null();
3659 }
3660 }
3661
3662
XS(_wrap_gsl_linalg_LU_decomp)3663 XS(_wrap_gsl_linalg_LU_decomp) {
3664 {
3665 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
3666 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
3667 int *arg3 = (int *) 0 ;
3668 void *argp1 = 0 ;
3669 int res1 = 0 ;
3670 void *argp2 = 0 ;
3671 int res2 = 0 ;
3672 int temp3 ;
3673 int res3 = SWIG_TMPOBJ ;
3674 int argvi = 0;
3675 int result;
3676 dXSARGS;
3677
3678 arg3 = &temp3;
3679 if ((items < 2) || (items > 2)) {
3680 SWIG_croak("Usage: gsl_linalg_LU_decomp(A,p);");
3681 }
3682 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3683 if (!SWIG_IsOK(res1)) {
3684 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LU_decomp" "', argument " "1"" of type '" "gsl_matrix *""'");
3685 }
3686 arg1 = (gsl_matrix *)(argp1);
3687 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
3688 if (!SWIG_IsOK(res2)) {
3689 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_LU_decomp" "', argument " "2"" of type '" "gsl_permutation *""'");
3690 }
3691 arg2 = (gsl_permutation *)(argp2);
3692 result = (int)gsl_linalg_LU_decomp(arg1,arg2,arg3);
3693 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3694 if (SWIG_IsTmpObj(res3)) {
3695 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((*arg3)); argvi++ ;
3696 } else {
3697 int new_flags = SWIG_IsNewObj(res3) ? (SWIG_POINTER_OWN | 0) : 0;
3698 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg3), SWIGTYPE_p_int, new_flags); argvi++ ;
3699 }
3700
3701
3702
3703 XSRETURN(argvi);
3704 fail:
3705
3706
3707
3708 SWIG_croak_null();
3709 }
3710 }
3711
3712
XS(_wrap_gsl_linalg_LU_solve)3713 XS(_wrap_gsl_linalg_LU_solve) {
3714 {
3715 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
3716 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
3717 gsl_vector *arg3 = (gsl_vector *) 0 ;
3718 gsl_vector *arg4 = (gsl_vector *) 0 ;
3719 void *argp1 = 0 ;
3720 int res1 = 0 ;
3721 void *argp2 = 0 ;
3722 int res2 = 0 ;
3723 void *argp3 = 0 ;
3724 int res3 = 0 ;
3725 void *argp4 = 0 ;
3726 int res4 = 0 ;
3727 int argvi = 0;
3728 int result;
3729 dXSARGS;
3730
3731 if ((items < 4) || (items > 4)) {
3732 SWIG_croak("Usage: gsl_linalg_LU_solve(LU,p,b,x);");
3733 }
3734 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3735 if (!SWIG_IsOK(res1)) {
3736 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LU_solve" "', argument " "1"" of type '" "gsl_matrix const *""'");
3737 }
3738 arg1 = (gsl_matrix *)(argp1);
3739 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
3740 if (!SWIG_IsOK(res2)) {
3741 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_LU_solve" "', argument " "2"" of type '" "gsl_permutation const *""'");
3742 }
3743 arg2 = (gsl_permutation *)(argp2);
3744 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
3745 if (!SWIG_IsOK(res3)) {
3746 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_LU_solve" "', argument " "3"" of type '" "gsl_vector const *""'");
3747 }
3748 arg3 = (gsl_vector *)(argp3);
3749 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
3750 if (!SWIG_IsOK(res4)) {
3751 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_LU_solve" "', argument " "4"" of type '" "gsl_vector *""'");
3752 }
3753 arg4 = (gsl_vector *)(argp4);
3754 result = (int)gsl_linalg_LU_solve((gsl_matrix const *)arg1,(struct gsl_permutation_struct const *)arg2,(gsl_vector const *)arg3,arg4);
3755 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3756
3757
3758
3759
3760 XSRETURN(argvi);
3761 fail:
3762
3763
3764
3765
3766 SWIG_croak_null();
3767 }
3768 }
3769
3770
XS(_wrap_gsl_linalg_LU_svx)3771 XS(_wrap_gsl_linalg_LU_svx) {
3772 {
3773 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
3774 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
3775 gsl_vector *arg3 = (gsl_vector *) 0 ;
3776 void *argp1 = 0 ;
3777 int res1 = 0 ;
3778 void *argp2 = 0 ;
3779 int res2 = 0 ;
3780 void *argp3 = 0 ;
3781 int res3 = 0 ;
3782 int argvi = 0;
3783 int result;
3784 dXSARGS;
3785
3786 if ((items < 3) || (items > 3)) {
3787 SWIG_croak("Usage: gsl_linalg_LU_svx(LU,p,x);");
3788 }
3789 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3790 if (!SWIG_IsOK(res1)) {
3791 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LU_svx" "', argument " "1"" of type '" "gsl_matrix const *""'");
3792 }
3793 arg1 = (gsl_matrix *)(argp1);
3794 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
3795 if (!SWIG_IsOK(res2)) {
3796 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_LU_svx" "', argument " "2"" of type '" "gsl_permutation const *""'");
3797 }
3798 arg2 = (gsl_permutation *)(argp2);
3799 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
3800 if (!SWIG_IsOK(res3)) {
3801 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_LU_svx" "', argument " "3"" of type '" "gsl_vector *""'");
3802 }
3803 arg3 = (gsl_vector *)(argp3);
3804 result = (int)gsl_linalg_LU_svx((gsl_matrix const *)arg1,(struct gsl_permutation_struct const *)arg2,arg3);
3805 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3806
3807
3808
3809 XSRETURN(argvi);
3810 fail:
3811
3812
3813
3814 SWIG_croak_null();
3815 }
3816 }
3817
3818
XS(_wrap_gsl_linalg_LU_refine)3819 XS(_wrap_gsl_linalg_LU_refine) {
3820 {
3821 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
3822 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
3823 gsl_permutation *arg3 = (gsl_permutation *) 0 ;
3824 gsl_vector *arg4 = (gsl_vector *) 0 ;
3825 gsl_vector *arg5 = (gsl_vector *) 0 ;
3826 gsl_vector *arg6 = (gsl_vector *) 0 ;
3827 void *argp1 = 0 ;
3828 int res1 = 0 ;
3829 void *argp2 = 0 ;
3830 int res2 = 0 ;
3831 void *argp3 = 0 ;
3832 int res3 = 0 ;
3833 void *argp4 = 0 ;
3834 int res4 = 0 ;
3835 void *argp5 = 0 ;
3836 int res5 = 0 ;
3837 void *argp6 = 0 ;
3838 int res6 = 0 ;
3839 int argvi = 0;
3840 int result;
3841 dXSARGS;
3842
3843 if ((items < 6) || (items > 6)) {
3844 SWIG_croak("Usage: gsl_linalg_LU_refine(A,LU,p,b,x,work);");
3845 }
3846 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3847 if (!SWIG_IsOK(res1)) {
3848 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LU_refine" "', argument " "1"" of type '" "gsl_matrix const *""'");
3849 }
3850 arg1 = (gsl_matrix *)(argp1);
3851 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3852 if (!SWIG_IsOK(res2)) {
3853 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_LU_refine" "', argument " "2"" of type '" "gsl_matrix const *""'");
3854 }
3855 arg2 = (gsl_matrix *)(argp2);
3856 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
3857 if (!SWIG_IsOK(res3)) {
3858 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_LU_refine" "', argument " "3"" of type '" "gsl_permutation const *""'");
3859 }
3860 arg3 = (gsl_permutation *)(argp3);
3861 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
3862 if (!SWIG_IsOK(res4)) {
3863 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_LU_refine" "', argument " "4"" of type '" "gsl_vector const *""'");
3864 }
3865 arg4 = (gsl_vector *)(argp4);
3866 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
3867 if (!SWIG_IsOK(res5)) {
3868 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_LU_refine" "', argument " "5"" of type '" "gsl_vector *""'");
3869 }
3870 arg5 = (gsl_vector *)(argp5);
3871 res6 = SWIG_ConvertPtr(ST(5), &argp6,SWIGTYPE_p_gsl_vector, 0 | 0 );
3872 if (!SWIG_IsOK(res6)) {
3873 SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_linalg_LU_refine" "', argument " "6"" of type '" "gsl_vector *""'");
3874 }
3875 arg6 = (gsl_vector *)(argp6);
3876 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);
3877 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3878
3879
3880
3881
3882
3883
3884 XSRETURN(argvi);
3885 fail:
3886
3887
3888
3889
3890
3891
3892 SWIG_croak_null();
3893 }
3894 }
3895
3896
XS(_wrap_gsl_linalg_LU_invert)3897 XS(_wrap_gsl_linalg_LU_invert) {
3898 {
3899 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
3900 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
3901 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
3902 void *argp1 = 0 ;
3903 int res1 = 0 ;
3904 void *argp2 = 0 ;
3905 int res2 = 0 ;
3906 void *argp3 = 0 ;
3907 int res3 = 0 ;
3908 int argvi = 0;
3909 int result;
3910 dXSARGS;
3911
3912 if ((items < 3) || (items > 3)) {
3913 SWIG_croak("Usage: gsl_linalg_LU_invert(LU,p,inverse);");
3914 }
3915 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3916 if (!SWIG_IsOK(res1)) {
3917 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LU_invert" "', argument " "1"" of type '" "gsl_matrix const *""'");
3918 }
3919 arg1 = (gsl_matrix *)(argp1);
3920 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
3921 if (!SWIG_IsOK(res2)) {
3922 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_LU_invert" "', argument " "2"" of type '" "gsl_permutation const *""'");
3923 }
3924 arg2 = (gsl_permutation *)(argp2);
3925 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3926 if (!SWIG_IsOK(res3)) {
3927 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_LU_invert" "', argument " "3"" of type '" "gsl_matrix *""'");
3928 }
3929 arg3 = (gsl_matrix *)(argp3);
3930 result = (int)gsl_linalg_LU_invert((gsl_matrix const *)arg1,(struct gsl_permutation_struct const *)arg2,arg3);
3931 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3932
3933
3934
3935 XSRETURN(argvi);
3936 fail:
3937
3938
3939
3940 SWIG_croak_null();
3941 }
3942 }
3943
3944
XS(_wrap_gsl_linalg_LU_det)3945 XS(_wrap_gsl_linalg_LU_det) {
3946 {
3947 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
3948 int arg2 ;
3949 void *argp1 = 0 ;
3950 int res1 = 0 ;
3951 int val2 ;
3952 int ecode2 = 0 ;
3953 int argvi = 0;
3954 double result;
3955 dXSARGS;
3956
3957 if ((items < 2) || (items > 2)) {
3958 SWIG_croak("Usage: gsl_linalg_LU_det(LU,signum);");
3959 }
3960 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3961 if (!SWIG_IsOK(res1)) {
3962 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LU_det" "', argument " "1"" of type '" "gsl_matrix *""'");
3963 }
3964 arg1 = (gsl_matrix *)(argp1);
3965 ecode2 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
3966 if (!SWIG_IsOK(ecode2)) {
3967 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_linalg_LU_det" "', argument " "2"" of type '" "int""'");
3968 }
3969 arg2 = (int)(val2);
3970 result = (double)gsl_linalg_LU_det(arg1,arg2);
3971 ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(result)); argvi++ ;
3972
3973
3974 XSRETURN(argvi);
3975 fail:
3976
3977
3978 SWIG_croak_null();
3979 }
3980 }
3981
3982
XS(_wrap_gsl_linalg_LU_lndet)3983 XS(_wrap_gsl_linalg_LU_lndet) {
3984 {
3985 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
3986 void *argp1 = 0 ;
3987 int res1 = 0 ;
3988 int argvi = 0;
3989 double result;
3990 dXSARGS;
3991
3992 if ((items < 1) || (items > 1)) {
3993 SWIG_croak("Usage: gsl_linalg_LU_lndet(LU);");
3994 }
3995 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3996 if (!SWIG_IsOK(res1)) {
3997 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LU_lndet" "', argument " "1"" of type '" "gsl_matrix *""'");
3998 }
3999 arg1 = (gsl_matrix *)(argp1);
4000 result = (double)gsl_linalg_LU_lndet(arg1);
4001 ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(result)); argvi++ ;
4002
4003 XSRETURN(argvi);
4004 fail:
4005
4006 SWIG_croak_null();
4007 }
4008 }
4009
4010
XS(_wrap_gsl_linalg_LU_sgndet)4011 XS(_wrap_gsl_linalg_LU_sgndet) {
4012 {
4013 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
4014 int arg2 ;
4015 void *argp1 = 0 ;
4016 int res1 = 0 ;
4017 int val2 ;
4018 int ecode2 = 0 ;
4019 int argvi = 0;
4020 int result;
4021 dXSARGS;
4022
4023 if ((items < 2) || (items > 2)) {
4024 SWIG_croak("Usage: gsl_linalg_LU_sgndet(lu,signum);");
4025 }
4026 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
4027 if (!SWIG_IsOK(res1)) {
4028 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LU_sgndet" "', argument " "1"" of type '" "gsl_matrix *""'");
4029 }
4030 arg1 = (gsl_matrix *)(argp1);
4031 ecode2 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
4032 if (!SWIG_IsOK(ecode2)) {
4033 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_linalg_LU_sgndet" "', argument " "2"" of type '" "int""'");
4034 }
4035 arg2 = (int)(val2);
4036 result = (int)gsl_linalg_LU_sgndet(arg1,arg2);
4037 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4038
4039
4040 XSRETURN(argvi);
4041 fail:
4042
4043
4044 SWIG_croak_null();
4045 }
4046 }
4047
4048
XS(_wrap_gsl_linalg_complex_LU_decomp)4049 XS(_wrap_gsl_linalg_complex_LU_decomp) {
4050 {
4051 gsl_matrix_complex *arg1 = (gsl_matrix_complex *) 0 ;
4052 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
4053 int *arg3 = (int *) 0 ;
4054 void *argp1 = 0 ;
4055 int res1 = 0 ;
4056 void *argp2 = 0 ;
4057 int res2 = 0 ;
4058 int temp3 ;
4059 int res3 = SWIG_TMPOBJ ;
4060 int argvi = 0;
4061 int result;
4062 dXSARGS;
4063
4064 arg3 = &temp3;
4065 if ((items < 2) || (items > 2)) {
4066 SWIG_croak("Usage: gsl_linalg_complex_LU_decomp(A,p);");
4067 }
4068 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
4069 if (!SWIG_IsOK(res1)) {
4070 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_complex_LU_decomp" "', argument " "1"" of type '" "gsl_matrix_complex *""'");
4071 }
4072 arg1 = (gsl_matrix_complex *)(argp1);
4073 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
4074 if (!SWIG_IsOK(res2)) {
4075 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_complex_LU_decomp" "', argument " "2"" of type '" "gsl_permutation *""'");
4076 }
4077 arg2 = (gsl_permutation *)(argp2);
4078 result = (int)gsl_linalg_complex_LU_decomp(arg1,arg2,arg3);
4079 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4080 if (SWIG_IsTmpObj(res3)) {
4081 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((*arg3)); argvi++ ;
4082 } else {
4083 int new_flags = SWIG_IsNewObj(res3) ? (SWIG_POINTER_OWN | 0) : 0;
4084 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg3), SWIGTYPE_p_int, new_flags); argvi++ ;
4085 }
4086
4087
4088
4089 XSRETURN(argvi);
4090 fail:
4091
4092
4093
4094 SWIG_croak_null();
4095 }
4096 }
4097
4098
XS(_wrap_gsl_linalg_complex_LU_solve)4099 XS(_wrap_gsl_linalg_complex_LU_solve) {
4100 {
4101 gsl_matrix_complex *arg1 = (gsl_matrix_complex *) 0 ;
4102 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
4103 gsl_vector_complex *arg3 = (gsl_vector_complex *) 0 ;
4104 gsl_vector_complex *arg4 = (gsl_vector_complex *) 0 ;
4105 void *argp1 = 0 ;
4106 int res1 = 0 ;
4107 void *argp2 = 0 ;
4108 int res2 = 0 ;
4109 void *argp3 = 0 ;
4110 int res3 = 0 ;
4111 void *argp4 = 0 ;
4112 int res4 = 0 ;
4113 int argvi = 0;
4114 int result;
4115 dXSARGS;
4116
4117 if ((items < 4) || (items > 4)) {
4118 SWIG_croak("Usage: gsl_linalg_complex_LU_solve(LU,p,b,x);");
4119 }
4120 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
4121 if (!SWIG_IsOK(res1)) {
4122 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_complex_LU_solve" "', argument " "1"" of type '" "gsl_matrix_complex const *""'");
4123 }
4124 arg1 = (gsl_matrix_complex *)(argp1);
4125 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
4126 if (!SWIG_IsOK(res2)) {
4127 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_complex_LU_solve" "', argument " "2"" of type '" "gsl_permutation const *""'");
4128 }
4129 arg2 = (gsl_permutation *)(argp2);
4130 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
4131 if (!SWIG_IsOK(res3)) {
4132 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_complex_LU_solve" "', argument " "3"" of type '" "gsl_vector_complex const *""'");
4133 }
4134 arg3 = (gsl_vector_complex *)(argp3);
4135 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
4136 if (!SWIG_IsOK(res4)) {
4137 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_complex_LU_solve" "', argument " "4"" of type '" "gsl_vector_complex *""'");
4138 }
4139 arg4 = (gsl_vector_complex *)(argp4);
4140 result = (int)gsl_linalg_complex_LU_solve((gsl_matrix_complex const *)arg1,(struct gsl_permutation_struct const *)arg2,(gsl_vector_complex const *)arg3,arg4);
4141 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4142
4143
4144
4145
4146 XSRETURN(argvi);
4147 fail:
4148
4149
4150
4151
4152 SWIG_croak_null();
4153 }
4154 }
4155
4156
XS(_wrap_gsl_linalg_complex_LU_svx)4157 XS(_wrap_gsl_linalg_complex_LU_svx) {
4158 {
4159 gsl_matrix_complex *arg1 = (gsl_matrix_complex *) 0 ;
4160 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
4161 gsl_vector_complex *arg3 = (gsl_vector_complex *) 0 ;
4162 void *argp1 = 0 ;
4163 int res1 = 0 ;
4164 void *argp2 = 0 ;
4165 int res2 = 0 ;
4166 void *argp3 = 0 ;
4167 int res3 = 0 ;
4168 int argvi = 0;
4169 int result;
4170 dXSARGS;
4171
4172 if ((items < 3) || (items > 3)) {
4173 SWIG_croak("Usage: gsl_linalg_complex_LU_svx(LU,p,x);");
4174 }
4175 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
4176 if (!SWIG_IsOK(res1)) {
4177 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_complex_LU_svx" "', argument " "1"" of type '" "gsl_matrix_complex const *""'");
4178 }
4179 arg1 = (gsl_matrix_complex *)(argp1);
4180 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
4181 if (!SWIG_IsOK(res2)) {
4182 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_complex_LU_svx" "', argument " "2"" of type '" "gsl_permutation const *""'");
4183 }
4184 arg2 = (gsl_permutation *)(argp2);
4185 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
4186 if (!SWIG_IsOK(res3)) {
4187 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_complex_LU_svx" "', argument " "3"" of type '" "gsl_vector_complex *""'");
4188 }
4189 arg3 = (gsl_vector_complex *)(argp3);
4190 result = (int)gsl_linalg_complex_LU_svx((gsl_matrix_complex const *)arg1,(struct gsl_permutation_struct const *)arg2,arg3);
4191 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4192
4193
4194
4195 XSRETURN(argvi);
4196 fail:
4197
4198
4199
4200 SWIG_croak_null();
4201 }
4202 }
4203
4204
XS(_wrap_gsl_linalg_complex_LU_refine)4205 XS(_wrap_gsl_linalg_complex_LU_refine) {
4206 {
4207 gsl_matrix_complex *arg1 = (gsl_matrix_complex *) 0 ;
4208 gsl_matrix_complex *arg2 = (gsl_matrix_complex *) 0 ;
4209 gsl_permutation *arg3 = (gsl_permutation *) 0 ;
4210 gsl_vector_complex *arg4 = (gsl_vector_complex *) 0 ;
4211 gsl_vector_complex *arg5 = (gsl_vector_complex *) 0 ;
4212 gsl_vector_complex *arg6 = (gsl_vector_complex *) 0 ;
4213 void *argp1 = 0 ;
4214 int res1 = 0 ;
4215 void *argp2 = 0 ;
4216 int res2 = 0 ;
4217 void *argp3 = 0 ;
4218 int res3 = 0 ;
4219 void *argp4 = 0 ;
4220 int res4 = 0 ;
4221 void *argp5 = 0 ;
4222 int res5 = 0 ;
4223 void *argp6 = 0 ;
4224 int res6 = 0 ;
4225 int argvi = 0;
4226 int result;
4227 dXSARGS;
4228
4229 if ((items < 6) || (items > 6)) {
4230 SWIG_croak("Usage: gsl_linalg_complex_LU_refine(A,LU,p,b,x,work);");
4231 }
4232 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
4233 if (!SWIG_IsOK(res1)) {
4234 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_complex_LU_refine" "', argument " "1"" of type '" "gsl_matrix_complex const *""'");
4235 }
4236 arg1 = (gsl_matrix_complex *)(argp1);
4237 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
4238 if (!SWIG_IsOK(res2)) {
4239 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_complex_LU_refine" "', argument " "2"" of type '" "gsl_matrix_complex const *""'");
4240 }
4241 arg2 = (gsl_matrix_complex *)(argp2);
4242 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
4243 if (!SWIG_IsOK(res3)) {
4244 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_complex_LU_refine" "', argument " "3"" of type '" "gsl_permutation const *""'");
4245 }
4246 arg3 = (gsl_permutation *)(argp3);
4247 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
4248 if (!SWIG_IsOK(res4)) {
4249 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_complex_LU_refine" "', argument " "4"" of type '" "gsl_vector_complex const *""'");
4250 }
4251 arg4 = (gsl_vector_complex *)(argp4);
4252 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
4253 if (!SWIG_IsOK(res5)) {
4254 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_complex_LU_refine" "', argument " "5"" of type '" "gsl_vector_complex *""'");
4255 }
4256 arg5 = (gsl_vector_complex *)(argp5);
4257 res6 = SWIG_ConvertPtr(ST(5), &argp6,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
4258 if (!SWIG_IsOK(res6)) {
4259 SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_linalg_complex_LU_refine" "', argument " "6"" of type '" "gsl_vector_complex *""'");
4260 }
4261 arg6 = (gsl_vector_complex *)(argp6);
4262 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);
4263 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4264
4265
4266
4267
4268
4269
4270 XSRETURN(argvi);
4271 fail:
4272
4273
4274
4275
4276
4277
4278 SWIG_croak_null();
4279 }
4280 }
4281
4282
XS(_wrap_gsl_linalg_complex_LU_invert)4283 XS(_wrap_gsl_linalg_complex_LU_invert) {
4284 {
4285 gsl_matrix_complex *arg1 = (gsl_matrix_complex *) 0 ;
4286 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
4287 gsl_matrix_complex *arg3 = (gsl_matrix_complex *) 0 ;
4288 void *argp1 = 0 ;
4289 int res1 = 0 ;
4290 void *argp2 = 0 ;
4291 int res2 = 0 ;
4292 void *argp3 = 0 ;
4293 int res3 = 0 ;
4294 int argvi = 0;
4295 int result;
4296 dXSARGS;
4297
4298 if ((items < 3) || (items > 3)) {
4299 SWIG_croak("Usage: gsl_linalg_complex_LU_invert(LU,p,inverse);");
4300 }
4301 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
4302 if (!SWIG_IsOK(res1)) {
4303 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_complex_LU_invert" "', argument " "1"" of type '" "gsl_matrix_complex const *""'");
4304 }
4305 arg1 = (gsl_matrix_complex *)(argp1);
4306 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
4307 if (!SWIG_IsOK(res2)) {
4308 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_complex_LU_invert" "', argument " "2"" of type '" "gsl_permutation const *""'");
4309 }
4310 arg2 = (gsl_permutation *)(argp2);
4311 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
4312 if (!SWIG_IsOK(res3)) {
4313 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_complex_LU_invert" "', argument " "3"" of type '" "gsl_matrix_complex *""'");
4314 }
4315 arg3 = (gsl_matrix_complex *)(argp3);
4316 result = (int)gsl_linalg_complex_LU_invert((gsl_matrix_complex const *)arg1,(struct gsl_permutation_struct const *)arg2,arg3);
4317 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4318
4319
4320
4321 XSRETURN(argvi);
4322 fail:
4323
4324
4325
4326 SWIG_croak_null();
4327 }
4328 }
4329
4330
XS(_wrap_gsl_linalg_complex_LU_det)4331 XS(_wrap_gsl_linalg_complex_LU_det) {
4332 {
4333 gsl_matrix_complex *arg1 = (gsl_matrix_complex *) 0 ;
4334 int arg2 ;
4335 void *argp1 = 0 ;
4336 int res1 = 0 ;
4337 int val2 ;
4338 int ecode2 = 0 ;
4339 int argvi = 0;
4340 gsl_complex result;
4341 dXSARGS;
4342
4343 if ((items < 2) || (items > 2)) {
4344 SWIG_croak("Usage: gsl_linalg_complex_LU_det(LU,signum);");
4345 }
4346 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
4347 if (!SWIG_IsOK(res1)) {
4348 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_complex_LU_det" "', argument " "1"" of type '" "gsl_matrix_complex *""'");
4349 }
4350 arg1 = (gsl_matrix_complex *)(argp1);
4351 ecode2 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
4352 if (!SWIG_IsOK(ecode2)) {
4353 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_linalg_complex_LU_det" "', argument " "2"" of type '" "int""'");
4354 }
4355 arg2 = (int)(val2);
4356 result = gsl_linalg_complex_LU_det(arg1,arg2);
4357 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++ ;
4358
4359
4360 XSRETURN(argvi);
4361 fail:
4362
4363
4364 SWIG_croak_null();
4365 }
4366 }
4367
4368
XS(_wrap_gsl_linalg_complex_LU_lndet)4369 XS(_wrap_gsl_linalg_complex_LU_lndet) {
4370 {
4371 gsl_matrix_complex *arg1 = (gsl_matrix_complex *) 0 ;
4372 void *argp1 = 0 ;
4373 int res1 = 0 ;
4374 int argvi = 0;
4375 double result;
4376 dXSARGS;
4377
4378 if ((items < 1) || (items > 1)) {
4379 SWIG_croak("Usage: gsl_linalg_complex_LU_lndet(LU);");
4380 }
4381 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
4382 if (!SWIG_IsOK(res1)) {
4383 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_complex_LU_lndet" "', argument " "1"" of type '" "gsl_matrix_complex *""'");
4384 }
4385 arg1 = (gsl_matrix_complex *)(argp1);
4386 result = (double)gsl_linalg_complex_LU_lndet(arg1);
4387 ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(result)); argvi++ ;
4388
4389 XSRETURN(argvi);
4390 fail:
4391
4392 SWIG_croak_null();
4393 }
4394 }
4395
4396
XS(_wrap_gsl_linalg_complex_LU_sgndet)4397 XS(_wrap_gsl_linalg_complex_LU_sgndet) {
4398 {
4399 gsl_matrix_complex *arg1 = (gsl_matrix_complex *) 0 ;
4400 int arg2 ;
4401 void *argp1 = 0 ;
4402 int res1 = 0 ;
4403 int val2 ;
4404 int ecode2 = 0 ;
4405 int argvi = 0;
4406 gsl_complex result;
4407 dXSARGS;
4408
4409 if ((items < 2) || (items > 2)) {
4410 SWIG_croak("Usage: gsl_linalg_complex_LU_sgndet(LU,signum);");
4411 }
4412 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
4413 if (!SWIG_IsOK(res1)) {
4414 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_complex_LU_sgndet" "', argument " "1"" of type '" "gsl_matrix_complex *""'");
4415 }
4416 arg1 = (gsl_matrix_complex *)(argp1);
4417 ecode2 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
4418 if (!SWIG_IsOK(ecode2)) {
4419 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_linalg_complex_LU_sgndet" "', argument " "2"" of type '" "int""'");
4420 }
4421 arg2 = (int)(val2);
4422 result = gsl_linalg_complex_LU_sgndet(arg1,arg2);
4423 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++ ;
4424
4425
4426 XSRETURN(argvi);
4427 fail:
4428
4429
4430 SWIG_croak_null();
4431 }
4432 }
4433
4434
XS(_wrap_gsl_linalg_QR_decomp)4435 XS(_wrap_gsl_linalg_QR_decomp) {
4436 {
4437 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
4438 gsl_vector *arg2 = (gsl_vector *) 0 ;
4439 void *argp1 = 0 ;
4440 int res1 = 0 ;
4441 void *argp2 = 0 ;
4442 int res2 = 0 ;
4443 int argvi = 0;
4444 int result;
4445 dXSARGS;
4446
4447 if ((items < 2) || (items > 2)) {
4448 SWIG_croak("Usage: gsl_linalg_QR_decomp(A,tau);");
4449 }
4450 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
4451 if (!SWIG_IsOK(res1)) {
4452 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QR_decomp" "', argument " "1"" of type '" "gsl_matrix *""'");
4453 }
4454 arg1 = (gsl_matrix *)(argp1);
4455 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
4456 if (!SWIG_IsOK(res2)) {
4457 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QR_decomp" "', argument " "2"" of type '" "gsl_vector *""'");
4458 }
4459 arg2 = (gsl_vector *)(argp2);
4460 result = (int)gsl_linalg_QR_decomp(arg1,arg2);
4461 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4462
4463
4464 XSRETURN(argvi);
4465 fail:
4466
4467
4468 SWIG_croak_null();
4469 }
4470 }
4471
4472
XS(_wrap_gsl_linalg_QR_solve)4473 XS(_wrap_gsl_linalg_QR_solve) {
4474 {
4475 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
4476 gsl_vector *arg2 = (gsl_vector *) 0 ;
4477 gsl_vector *arg3 = (gsl_vector *) 0 ;
4478 gsl_vector *arg4 = (gsl_vector *) 0 ;
4479 void *argp1 = 0 ;
4480 int res1 = 0 ;
4481 void *argp2 = 0 ;
4482 int res2 = 0 ;
4483 void *argp3 = 0 ;
4484 int res3 = 0 ;
4485 void *argp4 = 0 ;
4486 int res4 = 0 ;
4487 int argvi = 0;
4488 int result;
4489 dXSARGS;
4490
4491 if ((items < 4) || (items > 4)) {
4492 SWIG_croak("Usage: gsl_linalg_QR_solve(QR,tau,b,x);");
4493 }
4494 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
4495 if (!SWIG_IsOK(res1)) {
4496 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QR_solve" "', argument " "1"" of type '" "gsl_matrix const *""'");
4497 }
4498 arg1 = (gsl_matrix *)(argp1);
4499 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
4500 if (!SWIG_IsOK(res2)) {
4501 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QR_solve" "', argument " "2"" of type '" "gsl_vector const *""'");
4502 }
4503 arg2 = (gsl_vector *)(argp2);
4504 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
4505 if (!SWIG_IsOK(res3)) {
4506 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QR_solve" "', argument " "3"" of type '" "gsl_vector const *""'");
4507 }
4508 arg3 = (gsl_vector *)(argp3);
4509 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
4510 if (!SWIG_IsOK(res4)) {
4511 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_QR_solve" "', argument " "4"" of type '" "gsl_vector *""'");
4512 }
4513 arg4 = (gsl_vector *)(argp4);
4514 result = (int)gsl_linalg_QR_solve((gsl_matrix const *)arg1,(gsl_vector const *)arg2,(gsl_vector const *)arg3,arg4);
4515 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4516
4517
4518
4519
4520 XSRETURN(argvi);
4521 fail:
4522
4523
4524
4525
4526 SWIG_croak_null();
4527 }
4528 }
4529
4530
XS(_wrap_gsl_linalg_QR_svx)4531 XS(_wrap_gsl_linalg_QR_svx) {
4532 {
4533 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
4534 gsl_vector *arg2 = (gsl_vector *) 0 ;
4535 gsl_vector *arg3 = (gsl_vector *) 0 ;
4536 void *argp1 = 0 ;
4537 int res1 = 0 ;
4538 void *argp2 = 0 ;
4539 int res2 = 0 ;
4540 void *argp3 = 0 ;
4541 int res3 = 0 ;
4542 int argvi = 0;
4543 int result;
4544 dXSARGS;
4545
4546 if ((items < 3) || (items > 3)) {
4547 SWIG_croak("Usage: gsl_linalg_QR_svx(QR,tau,x);");
4548 }
4549 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
4550 if (!SWIG_IsOK(res1)) {
4551 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QR_svx" "', argument " "1"" of type '" "gsl_matrix const *""'");
4552 }
4553 arg1 = (gsl_matrix *)(argp1);
4554 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
4555 if (!SWIG_IsOK(res2)) {
4556 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QR_svx" "', argument " "2"" of type '" "gsl_vector const *""'");
4557 }
4558 arg2 = (gsl_vector *)(argp2);
4559 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
4560 if (!SWIG_IsOK(res3)) {
4561 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QR_svx" "', argument " "3"" of type '" "gsl_vector *""'");
4562 }
4563 arg3 = (gsl_vector *)(argp3);
4564 result = (int)gsl_linalg_QR_svx((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3);
4565 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4566
4567
4568
4569 XSRETURN(argvi);
4570 fail:
4571
4572
4573
4574 SWIG_croak_null();
4575 }
4576 }
4577
4578
XS(_wrap_gsl_linalg_QR_lssolve)4579 XS(_wrap_gsl_linalg_QR_lssolve) {
4580 {
4581 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
4582 gsl_vector *arg2 = (gsl_vector *) 0 ;
4583 gsl_vector *arg3 = (gsl_vector *) 0 ;
4584 gsl_vector *arg4 = (gsl_vector *) 0 ;
4585 gsl_vector *arg5 = (gsl_vector *) 0 ;
4586 void *argp1 = 0 ;
4587 int res1 = 0 ;
4588 void *argp2 = 0 ;
4589 int res2 = 0 ;
4590 void *argp3 = 0 ;
4591 int res3 = 0 ;
4592 void *argp4 = 0 ;
4593 int res4 = 0 ;
4594 void *argp5 = 0 ;
4595 int res5 = 0 ;
4596 int argvi = 0;
4597 int result;
4598 dXSARGS;
4599
4600 if ((items < 5) || (items > 5)) {
4601 SWIG_croak("Usage: gsl_linalg_QR_lssolve(QR,tau,b,x,residual);");
4602 }
4603 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
4604 if (!SWIG_IsOK(res1)) {
4605 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QR_lssolve" "', argument " "1"" of type '" "gsl_matrix const *""'");
4606 }
4607 arg1 = (gsl_matrix *)(argp1);
4608 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
4609 if (!SWIG_IsOK(res2)) {
4610 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QR_lssolve" "', argument " "2"" of type '" "gsl_vector const *""'");
4611 }
4612 arg2 = (gsl_vector *)(argp2);
4613 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
4614 if (!SWIG_IsOK(res3)) {
4615 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QR_lssolve" "', argument " "3"" of type '" "gsl_vector const *""'");
4616 }
4617 arg3 = (gsl_vector *)(argp3);
4618 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
4619 if (!SWIG_IsOK(res4)) {
4620 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_QR_lssolve" "', argument " "4"" of type '" "gsl_vector *""'");
4621 }
4622 arg4 = (gsl_vector *)(argp4);
4623 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
4624 if (!SWIG_IsOK(res5)) {
4625 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_QR_lssolve" "', argument " "5"" of type '" "gsl_vector *""'");
4626 }
4627 arg5 = (gsl_vector *)(argp5);
4628 result = (int)gsl_linalg_QR_lssolve((gsl_matrix const *)arg1,(gsl_vector const *)arg2,(gsl_vector const *)arg3,arg4,arg5);
4629 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4630
4631
4632
4633
4634
4635 XSRETURN(argvi);
4636 fail:
4637
4638
4639
4640
4641
4642 SWIG_croak_null();
4643 }
4644 }
4645
4646
XS(_wrap_gsl_linalg_QR_QRsolve)4647 XS(_wrap_gsl_linalg_QR_QRsolve) {
4648 {
4649 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
4650 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
4651 gsl_vector *arg3 = (gsl_vector *) 0 ;
4652 gsl_vector *arg4 = (gsl_vector *) 0 ;
4653 void *argp1 = 0 ;
4654 int res1 = 0 ;
4655 void *argp2 = 0 ;
4656 int res2 = 0 ;
4657 void *argp3 = 0 ;
4658 int res3 = 0 ;
4659 void *argp4 = 0 ;
4660 int res4 = 0 ;
4661 int argvi = 0;
4662 int result;
4663 dXSARGS;
4664
4665 if ((items < 4) || (items > 4)) {
4666 SWIG_croak("Usage: gsl_linalg_QR_QRsolve(Q,R,b,x);");
4667 }
4668 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
4669 if (!SWIG_IsOK(res1)) {
4670 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QR_QRsolve" "', argument " "1"" of type '" "gsl_matrix *""'");
4671 }
4672 arg1 = (gsl_matrix *)(argp1);
4673 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
4674 if (!SWIG_IsOK(res2)) {
4675 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QR_QRsolve" "', argument " "2"" of type '" "gsl_matrix *""'");
4676 }
4677 arg2 = (gsl_matrix *)(argp2);
4678 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
4679 if (!SWIG_IsOK(res3)) {
4680 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QR_QRsolve" "', argument " "3"" of type '" "gsl_vector const *""'");
4681 }
4682 arg3 = (gsl_vector *)(argp3);
4683 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
4684 if (!SWIG_IsOK(res4)) {
4685 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_QR_QRsolve" "', argument " "4"" of type '" "gsl_vector *""'");
4686 }
4687 arg4 = (gsl_vector *)(argp4);
4688 result = (int)gsl_linalg_QR_QRsolve(arg1,arg2,(gsl_vector const *)arg3,arg4);
4689 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4690
4691
4692
4693
4694 XSRETURN(argvi);
4695 fail:
4696
4697
4698
4699
4700 SWIG_croak_null();
4701 }
4702 }
4703
4704
XS(_wrap_gsl_linalg_QR_Rsolve)4705 XS(_wrap_gsl_linalg_QR_Rsolve) {
4706 {
4707 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
4708 gsl_vector *arg2 = (gsl_vector *) 0 ;
4709 gsl_vector *arg3 = (gsl_vector *) 0 ;
4710 void *argp1 = 0 ;
4711 int res1 = 0 ;
4712 void *argp2 = 0 ;
4713 int res2 = 0 ;
4714 void *argp3 = 0 ;
4715 int res3 = 0 ;
4716 int argvi = 0;
4717 int result;
4718 dXSARGS;
4719
4720 if ((items < 3) || (items > 3)) {
4721 SWIG_croak("Usage: gsl_linalg_QR_Rsolve(QR,b,x);");
4722 }
4723 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
4724 if (!SWIG_IsOK(res1)) {
4725 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QR_Rsolve" "', argument " "1"" of type '" "gsl_matrix const *""'");
4726 }
4727 arg1 = (gsl_matrix *)(argp1);
4728 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
4729 if (!SWIG_IsOK(res2)) {
4730 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QR_Rsolve" "', argument " "2"" of type '" "gsl_vector const *""'");
4731 }
4732 arg2 = (gsl_vector *)(argp2);
4733 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
4734 if (!SWIG_IsOK(res3)) {
4735 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QR_Rsolve" "', argument " "3"" of type '" "gsl_vector *""'");
4736 }
4737 arg3 = (gsl_vector *)(argp3);
4738 result = (int)gsl_linalg_QR_Rsolve((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3);
4739 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4740
4741
4742
4743 XSRETURN(argvi);
4744 fail:
4745
4746
4747
4748 SWIG_croak_null();
4749 }
4750 }
4751
4752
XS(_wrap_gsl_linalg_QR_Rsvx)4753 XS(_wrap_gsl_linalg_QR_Rsvx) {
4754 {
4755 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
4756 gsl_vector *arg2 = (gsl_vector *) 0 ;
4757 void *argp1 = 0 ;
4758 int res1 = 0 ;
4759 void *argp2 = 0 ;
4760 int res2 = 0 ;
4761 int argvi = 0;
4762 int result;
4763 dXSARGS;
4764
4765 if ((items < 2) || (items > 2)) {
4766 SWIG_croak("Usage: gsl_linalg_QR_Rsvx(QR,x);");
4767 }
4768 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
4769 if (!SWIG_IsOK(res1)) {
4770 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QR_Rsvx" "', argument " "1"" of type '" "gsl_matrix const *""'");
4771 }
4772 arg1 = (gsl_matrix *)(argp1);
4773 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
4774 if (!SWIG_IsOK(res2)) {
4775 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QR_Rsvx" "', argument " "2"" of type '" "gsl_vector *""'");
4776 }
4777 arg2 = (gsl_vector *)(argp2);
4778 result = (int)gsl_linalg_QR_Rsvx((gsl_matrix const *)arg1,arg2);
4779 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4780
4781
4782 XSRETURN(argvi);
4783 fail:
4784
4785
4786 SWIG_croak_null();
4787 }
4788 }
4789
4790
XS(_wrap_gsl_linalg_QR_update)4791 XS(_wrap_gsl_linalg_QR_update) {
4792 {
4793 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
4794 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
4795 gsl_vector *arg3 = (gsl_vector *) 0 ;
4796 gsl_vector *arg4 = (gsl_vector *) 0 ;
4797 void *argp1 = 0 ;
4798 int res1 = 0 ;
4799 void *argp2 = 0 ;
4800 int res2 = 0 ;
4801 void *argp3 = 0 ;
4802 int res3 = 0 ;
4803 void *argp4 = 0 ;
4804 int res4 = 0 ;
4805 int argvi = 0;
4806 int result;
4807 dXSARGS;
4808
4809 if ((items < 4) || (items > 4)) {
4810 SWIG_croak("Usage: gsl_linalg_QR_update(Q,R,w,v);");
4811 }
4812 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
4813 if (!SWIG_IsOK(res1)) {
4814 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QR_update" "', argument " "1"" of type '" "gsl_matrix *""'");
4815 }
4816 arg1 = (gsl_matrix *)(argp1);
4817 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
4818 if (!SWIG_IsOK(res2)) {
4819 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QR_update" "', argument " "2"" of type '" "gsl_matrix *""'");
4820 }
4821 arg2 = (gsl_matrix *)(argp2);
4822 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
4823 if (!SWIG_IsOK(res3)) {
4824 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QR_update" "', argument " "3"" of type '" "gsl_vector *""'");
4825 }
4826 arg3 = (gsl_vector *)(argp3);
4827 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
4828 if (!SWIG_IsOK(res4)) {
4829 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_QR_update" "', argument " "4"" of type '" "gsl_vector const *""'");
4830 }
4831 arg4 = (gsl_vector *)(argp4);
4832 result = (int)gsl_linalg_QR_update(arg1,arg2,arg3,(gsl_vector const *)arg4);
4833 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4834
4835
4836
4837
4838 XSRETURN(argvi);
4839 fail:
4840
4841
4842
4843
4844 SWIG_croak_null();
4845 }
4846 }
4847
4848
XS(_wrap_gsl_linalg_QR_QTvec)4849 XS(_wrap_gsl_linalg_QR_QTvec) {
4850 {
4851 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
4852 gsl_vector *arg2 = (gsl_vector *) 0 ;
4853 gsl_vector *arg3 = (gsl_vector *) 0 ;
4854 void *argp1 = 0 ;
4855 int res1 = 0 ;
4856 void *argp2 = 0 ;
4857 int res2 = 0 ;
4858 void *argp3 = 0 ;
4859 int res3 = 0 ;
4860 int argvi = 0;
4861 int result;
4862 dXSARGS;
4863
4864 if ((items < 3) || (items > 3)) {
4865 SWIG_croak("Usage: gsl_linalg_QR_QTvec(QR,tau,v);");
4866 }
4867 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
4868 if (!SWIG_IsOK(res1)) {
4869 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QR_QTvec" "', argument " "1"" of type '" "gsl_matrix const *""'");
4870 }
4871 arg1 = (gsl_matrix *)(argp1);
4872 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
4873 if (!SWIG_IsOK(res2)) {
4874 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QR_QTvec" "', argument " "2"" of type '" "gsl_vector const *""'");
4875 }
4876 arg2 = (gsl_vector *)(argp2);
4877 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
4878 if (!SWIG_IsOK(res3)) {
4879 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QR_QTvec" "', argument " "3"" of type '" "gsl_vector *""'");
4880 }
4881 arg3 = (gsl_vector *)(argp3);
4882 result = (int)gsl_linalg_QR_QTvec((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3);
4883 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4884
4885
4886
4887 XSRETURN(argvi);
4888 fail:
4889
4890
4891
4892 SWIG_croak_null();
4893 }
4894 }
4895
4896
XS(_wrap_gsl_linalg_QR_Qvec)4897 XS(_wrap_gsl_linalg_QR_Qvec) {
4898 {
4899 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
4900 gsl_vector *arg2 = (gsl_vector *) 0 ;
4901 gsl_vector *arg3 = (gsl_vector *) 0 ;
4902 void *argp1 = 0 ;
4903 int res1 = 0 ;
4904 void *argp2 = 0 ;
4905 int res2 = 0 ;
4906 void *argp3 = 0 ;
4907 int res3 = 0 ;
4908 int argvi = 0;
4909 int result;
4910 dXSARGS;
4911
4912 if ((items < 3) || (items > 3)) {
4913 SWIG_croak("Usage: gsl_linalg_QR_Qvec(QR,tau,v);");
4914 }
4915 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
4916 if (!SWIG_IsOK(res1)) {
4917 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QR_Qvec" "', argument " "1"" of type '" "gsl_matrix const *""'");
4918 }
4919 arg1 = (gsl_matrix *)(argp1);
4920 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
4921 if (!SWIG_IsOK(res2)) {
4922 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QR_Qvec" "', argument " "2"" of type '" "gsl_vector const *""'");
4923 }
4924 arg2 = (gsl_vector *)(argp2);
4925 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
4926 if (!SWIG_IsOK(res3)) {
4927 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QR_Qvec" "', argument " "3"" of type '" "gsl_vector *""'");
4928 }
4929 arg3 = (gsl_vector *)(argp3);
4930 result = (int)gsl_linalg_QR_Qvec((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3);
4931 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4932
4933
4934
4935 XSRETURN(argvi);
4936 fail:
4937
4938
4939
4940 SWIG_croak_null();
4941 }
4942 }
4943
4944
XS(_wrap_gsl_linalg_QR_QTmat)4945 XS(_wrap_gsl_linalg_QR_QTmat) {
4946 {
4947 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
4948 gsl_vector *arg2 = (gsl_vector *) 0 ;
4949 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
4950 void *argp1 = 0 ;
4951 int res1 = 0 ;
4952 void *argp2 = 0 ;
4953 int res2 = 0 ;
4954 void *argp3 = 0 ;
4955 int res3 = 0 ;
4956 int argvi = 0;
4957 int result;
4958 dXSARGS;
4959
4960 if ((items < 3) || (items > 3)) {
4961 SWIG_croak("Usage: gsl_linalg_QR_QTmat(QR,tau,A);");
4962 }
4963 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
4964 if (!SWIG_IsOK(res1)) {
4965 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QR_QTmat" "', argument " "1"" of type '" "gsl_matrix const *""'");
4966 }
4967 arg1 = (gsl_matrix *)(argp1);
4968 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
4969 if (!SWIG_IsOK(res2)) {
4970 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QR_QTmat" "', argument " "2"" of type '" "gsl_vector const *""'");
4971 }
4972 arg2 = (gsl_vector *)(argp2);
4973 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
4974 if (!SWIG_IsOK(res3)) {
4975 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QR_QTmat" "', argument " "3"" of type '" "gsl_matrix *""'");
4976 }
4977 arg3 = (gsl_matrix *)(argp3);
4978 result = (int)gsl_linalg_QR_QTmat((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3);
4979 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4980
4981
4982
4983 XSRETURN(argvi);
4984 fail:
4985
4986
4987
4988 SWIG_croak_null();
4989 }
4990 }
4991
4992
XS(_wrap_gsl_linalg_QR_matQ)4993 XS(_wrap_gsl_linalg_QR_matQ) {
4994 {
4995 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
4996 gsl_vector *arg2 = (gsl_vector *) 0 ;
4997 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
4998 void *argp1 = 0 ;
4999 int res1 = 0 ;
5000 void *argp2 = 0 ;
5001 int res2 = 0 ;
5002 void *argp3 = 0 ;
5003 int res3 = 0 ;
5004 int argvi = 0;
5005 int result;
5006 dXSARGS;
5007
5008 if ((items < 3) || (items > 3)) {
5009 SWIG_croak("Usage: gsl_linalg_QR_matQ(QR,tau,A);");
5010 }
5011 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5012 if (!SWIG_IsOK(res1)) {
5013 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QR_matQ" "', argument " "1"" of type '" "gsl_matrix const *""'");
5014 }
5015 arg1 = (gsl_matrix *)(argp1);
5016 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
5017 if (!SWIG_IsOK(res2)) {
5018 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QR_matQ" "', argument " "2"" of type '" "gsl_vector const *""'");
5019 }
5020 arg2 = (gsl_vector *)(argp2);
5021 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5022 if (!SWIG_IsOK(res3)) {
5023 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QR_matQ" "', argument " "3"" of type '" "gsl_matrix *""'");
5024 }
5025 arg3 = (gsl_matrix *)(argp3);
5026 result = (int)gsl_linalg_QR_matQ((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3);
5027 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5028
5029
5030
5031 XSRETURN(argvi);
5032 fail:
5033
5034
5035
5036 SWIG_croak_null();
5037 }
5038 }
5039
5040
XS(_wrap_gsl_linalg_QR_unpack)5041 XS(_wrap_gsl_linalg_QR_unpack) {
5042 {
5043 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5044 gsl_vector *arg2 = (gsl_vector *) 0 ;
5045 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
5046 gsl_matrix *arg4 = (gsl_matrix *) 0 ;
5047 void *argp1 = 0 ;
5048 int res1 = 0 ;
5049 void *argp2 = 0 ;
5050 int res2 = 0 ;
5051 void *argp3 = 0 ;
5052 int res3 = 0 ;
5053 void *argp4 = 0 ;
5054 int res4 = 0 ;
5055 int argvi = 0;
5056 int result;
5057 dXSARGS;
5058
5059 if ((items < 4) || (items > 4)) {
5060 SWIG_croak("Usage: gsl_linalg_QR_unpack(QR,tau,Q,R);");
5061 }
5062 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5063 if (!SWIG_IsOK(res1)) {
5064 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QR_unpack" "', argument " "1"" of type '" "gsl_matrix const *""'");
5065 }
5066 arg1 = (gsl_matrix *)(argp1);
5067 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
5068 if (!SWIG_IsOK(res2)) {
5069 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QR_unpack" "', argument " "2"" of type '" "gsl_vector const *""'");
5070 }
5071 arg2 = (gsl_vector *)(argp2);
5072 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5073 if (!SWIG_IsOK(res3)) {
5074 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QR_unpack" "', argument " "3"" of type '" "gsl_matrix *""'");
5075 }
5076 arg3 = (gsl_matrix *)(argp3);
5077 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5078 if (!SWIG_IsOK(res4)) {
5079 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_QR_unpack" "', argument " "4"" of type '" "gsl_matrix *""'");
5080 }
5081 arg4 = (gsl_matrix *)(argp4);
5082 result = (int)gsl_linalg_QR_unpack((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3,arg4);
5083 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5084
5085
5086
5087
5088 XSRETURN(argvi);
5089 fail:
5090
5091
5092
5093
5094 SWIG_croak_null();
5095 }
5096 }
5097
5098
XS(_wrap_gsl_linalg_R_solve)5099 XS(_wrap_gsl_linalg_R_solve) {
5100 {
5101 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5102 gsl_vector *arg2 = (gsl_vector *) 0 ;
5103 gsl_vector *arg3 = (gsl_vector *) 0 ;
5104 void *argp1 = 0 ;
5105 int res1 = 0 ;
5106 void *argp2 = 0 ;
5107 int res2 = 0 ;
5108 void *argp3 = 0 ;
5109 int res3 = 0 ;
5110 int argvi = 0;
5111 int result;
5112 dXSARGS;
5113
5114 if ((items < 3) || (items > 3)) {
5115 SWIG_croak("Usage: gsl_linalg_R_solve(R,b,x);");
5116 }
5117 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5118 if (!SWIG_IsOK(res1)) {
5119 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_R_solve" "', argument " "1"" of type '" "gsl_matrix const *""'");
5120 }
5121 arg1 = (gsl_matrix *)(argp1);
5122 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
5123 if (!SWIG_IsOK(res2)) {
5124 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_R_solve" "', argument " "2"" of type '" "gsl_vector const *""'");
5125 }
5126 arg2 = (gsl_vector *)(argp2);
5127 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
5128 if (!SWIG_IsOK(res3)) {
5129 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_R_solve" "', argument " "3"" of type '" "gsl_vector *""'");
5130 }
5131 arg3 = (gsl_vector *)(argp3);
5132 result = (int)gsl_linalg_R_solve((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3);
5133 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5134
5135
5136
5137 XSRETURN(argvi);
5138 fail:
5139
5140
5141
5142 SWIG_croak_null();
5143 }
5144 }
5145
5146
XS(_wrap_gsl_linalg_R_svx)5147 XS(_wrap_gsl_linalg_R_svx) {
5148 {
5149 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5150 gsl_vector *arg2 = (gsl_vector *) 0 ;
5151 void *argp1 = 0 ;
5152 int res1 = 0 ;
5153 void *argp2 = 0 ;
5154 int res2 = 0 ;
5155 int argvi = 0;
5156 int result;
5157 dXSARGS;
5158
5159 if ((items < 2) || (items > 2)) {
5160 SWIG_croak("Usage: gsl_linalg_R_svx(R,x);");
5161 }
5162 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5163 if (!SWIG_IsOK(res1)) {
5164 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_R_svx" "', argument " "1"" of type '" "gsl_matrix const *""'");
5165 }
5166 arg1 = (gsl_matrix *)(argp1);
5167 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
5168 if (!SWIG_IsOK(res2)) {
5169 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_R_svx" "', argument " "2"" of type '" "gsl_vector *""'");
5170 }
5171 arg2 = (gsl_vector *)(argp2);
5172 result = (int)gsl_linalg_R_svx((gsl_matrix const *)arg1,arg2);
5173 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5174
5175
5176 XSRETURN(argvi);
5177 fail:
5178
5179
5180 SWIG_croak_null();
5181 }
5182 }
5183
5184
XS(_wrap_gsl_linalg_QRPT_decomp)5185 XS(_wrap_gsl_linalg_QRPT_decomp) {
5186 {
5187 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5188 gsl_vector *arg2 = (gsl_vector *) 0 ;
5189 gsl_permutation *arg3 = (gsl_permutation *) 0 ;
5190 int *arg4 = (int *) 0 ;
5191 gsl_vector *arg5 = (gsl_vector *) 0 ;
5192 void *argp1 = 0 ;
5193 int res1 = 0 ;
5194 void *argp2 = 0 ;
5195 int res2 = 0 ;
5196 void *argp3 = 0 ;
5197 int res3 = 0 ;
5198 int temp4 ;
5199 int res4 = SWIG_TMPOBJ ;
5200 void *argp5 = 0 ;
5201 int res5 = 0 ;
5202 int argvi = 0;
5203 int result;
5204 dXSARGS;
5205
5206 arg4 = &temp4;
5207 if ((items < 4) || (items > 4)) {
5208 SWIG_croak("Usage: gsl_linalg_QRPT_decomp(A,tau,p,norm);");
5209 }
5210 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5211 if (!SWIG_IsOK(res1)) {
5212 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QRPT_decomp" "', argument " "1"" of type '" "gsl_matrix *""'");
5213 }
5214 arg1 = (gsl_matrix *)(argp1);
5215 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
5216 if (!SWIG_IsOK(res2)) {
5217 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QRPT_decomp" "', argument " "2"" of type '" "gsl_vector *""'");
5218 }
5219 arg2 = (gsl_vector *)(argp2);
5220 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
5221 if (!SWIG_IsOK(res3)) {
5222 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QRPT_decomp" "', argument " "3"" of type '" "gsl_permutation *""'");
5223 }
5224 arg3 = (gsl_permutation *)(argp3);
5225 res5 = SWIG_ConvertPtr(ST(3), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
5226 if (!SWIG_IsOK(res5)) {
5227 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_QRPT_decomp" "', argument " "5"" of type '" "gsl_vector *""'");
5228 }
5229 arg5 = (gsl_vector *)(argp5);
5230 result = (int)gsl_linalg_QRPT_decomp(arg1,arg2,arg3,arg4,arg5);
5231 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5232 if (SWIG_IsTmpObj(res4)) {
5233 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((*arg4)); argvi++ ;
5234 } else {
5235 int new_flags = SWIG_IsNewObj(res4) ? (SWIG_POINTER_OWN | 0) : 0;
5236 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg4), SWIGTYPE_p_int, new_flags); argvi++ ;
5237 }
5238
5239
5240
5241
5242
5243 XSRETURN(argvi);
5244 fail:
5245
5246
5247
5248
5249
5250 SWIG_croak_null();
5251 }
5252 }
5253
5254
XS(_wrap_gsl_linalg_QRPT_decomp2)5255 XS(_wrap_gsl_linalg_QRPT_decomp2) {
5256 {
5257 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5258 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
5259 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
5260 gsl_vector *arg4 = (gsl_vector *) 0 ;
5261 gsl_permutation *arg5 = (gsl_permutation *) 0 ;
5262 int *arg6 = (int *) 0 ;
5263 gsl_vector *arg7 = (gsl_vector *) 0 ;
5264 void *argp1 = 0 ;
5265 int res1 = 0 ;
5266 void *argp2 = 0 ;
5267 int res2 = 0 ;
5268 void *argp3 = 0 ;
5269 int res3 = 0 ;
5270 void *argp4 = 0 ;
5271 int res4 = 0 ;
5272 void *argp5 = 0 ;
5273 int res5 = 0 ;
5274 int temp6 ;
5275 int res6 = SWIG_TMPOBJ ;
5276 void *argp7 = 0 ;
5277 int res7 = 0 ;
5278 int argvi = 0;
5279 int result;
5280 dXSARGS;
5281
5282 arg6 = &temp6;
5283 if ((items < 6) || (items > 6)) {
5284 SWIG_croak("Usage: gsl_linalg_QRPT_decomp2(A,q,r,tau,p,norm);");
5285 }
5286 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5287 if (!SWIG_IsOK(res1)) {
5288 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QRPT_decomp2" "', argument " "1"" of type '" "gsl_matrix const *""'");
5289 }
5290 arg1 = (gsl_matrix *)(argp1);
5291 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5292 if (!SWIG_IsOK(res2)) {
5293 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QRPT_decomp2" "', argument " "2"" of type '" "gsl_matrix *""'");
5294 }
5295 arg2 = (gsl_matrix *)(argp2);
5296 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5297 if (!SWIG_IsOK(res3)) {
5298 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QRPT_decomp2" "', argument " "3"" of type '" "gsl_matrix *""'");
5299 }
5300 arg3 = (gsl_matrix *)(argp3);
5301 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
5302 if (!SWIG_IsOK(res4)) {
5303 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_QRPT_decomp2" "', argument " "4"" of type '" "gsl_vector *""'");
5304 }
5305 arg4 = (gsl_vector *)(argp4);
5306 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
5307 if (!SWIG_IsOK(res5)) {
5308 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_QRPT_decomp2" "', argument " "5"" of type '" "gsl_permutation *""'");
5309 }
5310 arg5 = (gsl_permutation *)(argp5);
5311 res7 = SWIG_ConvertPtr(ST(5), &argp7,SWIGTYPE_p_gsl_vector, 0 | 0 );
5312 if (!SWIG_IsOK(res7)) {
5313 SWIG_exception_fail(SWIG_ArgError(res7), "in method '" "gsl_linalg_QRPT_decomp2" "', argument " "7"" of type '" "gsl_vector *""'");
5314 }
5315 arg7 = (gsl_vector *)(argp7);
5316 result = (int)gsl_linalg_QRPT_decomp2((gsl_matrix const *)arg1,arg2,arg3,arg4,arg5,arg6,arg7);
5317 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5318 if (SWIG_IsTmpObj(res6)) {
5319 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((*arg6)); argvi++ ;
5320 } else {
5321 int new_flags = SWIG_IsNewObj(res6) ? (SWIG_POINTER_OWN | 0) : 0;
5322 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg6), SWIGTYPE_p_int, new_flags); argvi++ ;
5323 }
5324
5325
5326
5327
5328
5329
5330
5331 XSRETURN(argvi);
5332 fail:
5333
5334
5335
5336
5337
5338
5339
5340 SWIG_croak_null();
5341 }
5342 }
5343
5344
XS(_wrap_gsl_linalg_QRPT_solve)5345 XS(_wrap_gsl_linalg_QRPT_solve) {
5346 {
5347 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5348 gsl_vector *arg2 = (gsl_vector *) 0 ;
5349 gsl_permutation *arg3 = (gsl_permutation *) 0 ;
5350 gsl_vector *arg4 = (gsl_vector *) 0 ;
5351 gsl_vector *arg5 = (gsl_vector *) 0 ;
5352 void *argp1 = 0 ;
5353 int res1 = 0 ;
5354 void *argp2 = 0 ;
5355 int res2 = 0 ;
5356 void *argp3 = 0 ;
5357 int res3 = 0 ;
5358 void *argp4 = 0 ;
5359 int res4 = 0 ;
5360 void *argp5 = 0 ;
5361 int res5 = 0 ;
5362 int argvi = 0;
5363 int result;
5364 dXSARGS;
5365
5366 if ((items < 5) || (items > 5)) {
5367 SWIG_croak("Usage: gsl_linalg_QRPT_solve(QR,tau,p,b,x);");
5368 }
5369 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5370 if (!SWIG_IsOK(res1)) {
5371 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QRPT_solve" "', argument " "1"" of type '" "gsl_matrix const *""'");
5372 }
5373 arg1 = (gsl_matrix *)(argp1);
5374 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
5375 if (!SWIG_IsOK(res2)) {
5376 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QRPT_solve" "', argument " "2"" of type '" "gsl_vector const *""'");
5377 }
5378 arg2 = (gsl_vector *)(argp2);
5379 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
5380 if (!SWIG_IsOK(res3)) {
5381 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QRPT_solve" "', argument " "3"" of type '" "gsl_permutation const *""'");
5382 }
5383 arg3 = (gsl_permutation *)(argp3);
5384 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
5385 if (!SWIG_IsOK(res4)) {
5386 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_QRPT_solve" "', argument " "4"" of type '" "gsl_vector const *""'");
5387 }
5388 arg4 = (gsl_vector *)(argp4);
5389 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
5390 if (!SWIG_IsOK(res5)) {
5391 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_QRPT_solve" "', argument " "5"" of type '" "gsl_vector *""'");
5392 }
5393 arg5 = (gsl_vector *)(argp5);
5394 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);
5395 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5396
5397
5398
5399
5400
5401 XSRETURN(argvi);
5402 fail:
5403
5404
5405
5406
5407
5408 SWIG_croak_null();
5409 }
5410 }
5411
5412
XS(_wrap_gsl_linalg_QRPT_svx)5413 XS(_wrap_gsl_linalg_QRPT_svx) {
5414 {
5415 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5416 gsl_vector *arg2 = (gsl_vector *) 0 ;
5417 gsl_permutation *arg3 = (gsl_permutation *) 0 ;
5418 gsl_vector *arg4 = (gsl_vector *) 0 ;
5419 void *argp1 = 0 ;
5420 int res1 = 0 ;
5421 void *argp2 = 0 ;
5422 int res2 = 0 ;
5423 void *argp3 = 0 ;
5424 int res3 = 0 ;
5425 void *argp4 = 0 ;
5426 int res4 = 0 ;
5427 int argvi = 0;
5428 int result;
5429 dXSARGS;
5430
5431 if ((items < 4) || (items > 4)) {
5432 SWIG_croak("Usage: gsl_linalg_QRPT_svx(QR,tau,p,x);");
5433 }
5434 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5435 if (!SWIG_IsOK(res1)) {
5436 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QRPT_svx" "', argument " "1"" of type '" "gsl_matrix const *""'");
5437 }
5438 arg1 = (gsl_matrix *)(argp1);
5439 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
5440 if (!SWIG_IsOK(res2)) {
5441 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QRPT_svx" "', argument " "2"" of type '" "gsl_vector const *""'");
5442 }
5443 arg2 = (gsl_vector *)(argp2);
5444 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
5445 if (!SWIG_IsOK(res3)) {
5446 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QRPT_svx" "', argument " "3"" of type '" "gsl_permutation const *""'");
5447 }
5448 arg3 = (gsl_permutation *)(argp3);
5449 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
5450 if (!SWIG_IsOK(res4)) {
5451 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_QRPT_svx" "', argument " "4"" of type '" "gsl_vector *""'");
5452 }
5453 arg4 = (gsl_vector *)(argp4);
5454 result = (int)gsl_linalg_QRPT_svx((gsl_matrix const *)arg1,(gsl_vector const *)arg2,(struct gsl_permutation_struct const *)arg3,arg4);
5455 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5456
5457
5458
5459
5460 XSRETURN(argvi);
5461 fail:
5462
5463
5464
5465
5466 SWIG_croak_null();
5467 }
5468 }
5469
5470
XS(_wrap_gsl_linalg_QRPT_QRsolve)5471 XS(_wrap_gsl_linalg_QRPT_QRsolve) {
5472 {
5473 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5474 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
5475 gsl_permutation *arg3 = (gsl_permutation *) 0 ;
5476 gsl_vector *arg4 = (gsl_vector *) 0 ;
5477 gsl_vector *arg5 = (gsl_vector *) 0 ;
5478 void *argp1 = 0 ;
5479 int res1 = 0 ;
5480 void *argp2 = 0 ;
5481 int res2 = 0 ;
5482 void *argp3 = 0 ;
5483 int res3 = 0 ;
5484 void *argp4 = 0 ;
5485 int res4 = 0 ;
5486 void *argp5 = 0 ;
5487 int res5 = 0 ;
5488 int argvi = 0;
5489 int result;
5490 dXSARGS;
5491
5492 if ((items < 5) || (items > 5)) {
5493 SWIG_croak("Usage: gsl_linalg_QRPT_QRsolve(Q,R,p,b,x);");
5494 }
5495 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5496 if (!SWIG_IsOK(res1)) {
5497 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QRPT_QRsolve" "', argument " "1"" of type '" "gsl_matrix const *""'");
5498 }
5499 arg1 = (gsl_matrix *)(argp1);
5500 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5501 if (!SWIG_IsOK(res2)) {
5502 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QRPT_QRsolve" "', argument " "2"" of type '" "gsl_matrix const *""'");
5503 }
5504 arg2 = (gsl_matrix *)(argp2);
5505 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
5506 if (!SWIG_IsOK(res3)) {
5507 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QRPT_QRsolve" "', argument " "3"" of type '" "gsl_permutation const *""'");
5508 }
5509 arg3 = (gsl_permutation *)(argp3);
5510 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
5511 if (!SWIG_IsOK(res4)) {
5512 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_QRPT_QRsolve" "', argument " "4"" of type '" "gsl_vector const *""'");
5513 }
5514 arg4 = (gsl_vector *)(argp4);
5515 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
5516 if (!SWIG_IsOK(res5)) {
5517 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_QRPT_QRsolve" "', argument " "5"" of type '" "gsl_vector *""'");
5518 }
5519 arg5 = (gsl_vector *)(argp5);
5520 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);
5521 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5522
5523
5524
5525
5526
5527 XSRETURN(argvi);
5528 fail:
5529
5530
5531
5532
5533
5534 SWIG_croak_null();
5535 }
5536 }
5537
5538
XS(_wrap_gsl_linalg_QRPT_Rsolve)5539 XS(_wrap_gsl_linalg_QRPT_Rsolve) {
5540 {
5541 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5542 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
5543 gsl_vector *arg3 = (gsl_vector *) 0 ;
5544 gsl_vector *arg4 = (gsl_vector *) 0 ;
5545 void *argp1 = 0 ;
5546 int res1 = 0 ;
5547 void *argp2 = 0 ;
5548 int res2 = 0 ;
5549 void *argp3 = 0 ;
5550 int res3 = 0 ;
5551 void *argp4 = 0 ;
5552 int res4 = 0 ;
5553 int argvi = 0;
5554 int result;
5555 dXSARGS;
5556
5557 if ((items < 4) || (items > 4)) {
5558 SWIG_croak("Usage: gsl_linalg_QRPT_Rsolve(QR,p,b,x);");
5559 }
5560 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5561 if (!SWIG_IsOK(res1)) {
5562 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QRPT_Rsolve" "', argument " "1"" of type '" "gsl_matrix const *""'");
5563 }
5564 arg1 = (gsl_matrix *)(argp1);
5565 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
5566 if (!SWIG_IsOK(res2)) {
5567 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QRPT_Rsolve" "', argument " "2"" of type '" "gsl_permutation const *""'");
5568 }
5569 arg2 = (gsl_permutation *)(argp2);
5570 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
5571 if (!SWIG_IsOK(res3)) {
5572 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QRPT_Rsolve" "', argument " "3"" of type '" "gsl_vector const *""'");
5573 }
5574 arg3 = (gsl_vector *)(argp3);
5575 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
5576 if (!SWIG_IsOK(res4)) {
5577 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_QRPT_Rsolve" "', argument " "4"" of type '" "gsl_vector *""'");
5578 }
5579 arg4 = (gsl_vector *)(argp4);
5580 result = (int)gsl_linalg_QRPT_Rsolve((gsl_matrix const *)arg1,(struct gsl_permutation_struct const *)arg2,(gsl_vector const *)arg3,arg4);
5581 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5582
5583
5584
5585
5586 XSRETURN(argvi);
5587 fail:
5588
5589
5590
5591
5592 SWIG_croak_null();
5593 }
5594 }
5595
5596
XS(_wrap_gsl_linalg_QRPT_Rsvx)5597 XS(_wrap_gsl_linalg_QRPT_Rsvx) {
5598 {
5599 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5600 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
5601 gsl_vector *arg3 = (gsl_vector *) 0 ;
5602 void *argp1 = 0 ;
5603 int res1 = 0 ;
5604 void *argp2 = 0 ;
5605 int res2 = 0 ;
5606 void *argp3 = 0 ;
5607 int res3 = 0 ;
5608 int argvi = 0;
5609 int result;
5610 dXSARGS;
5611
5612 if ((items < 3) || (items > 3)) {
5613 SWIG_croak("Usage: gsl_linalg_QRPT_Rsvx(QR,p,x);");
5614 }
5615 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5616 if (!SWIG_IsOK(res1)) {
5617 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QRPT_Rsvx" "', argument " "1"" of type '" "gsl_matrix const *""'");
5618 }
5619 arg1 = (gsl_matrix *)(argp1);
5620 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
5621 if (!SWIG_IsOK(res2)) {
5622 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QRPT_Rsvx" "', argument " "2"" of type '" "gsl_permutation const *""'");
5623 }
5624 arg2 = (gsl_permutation *)(argp2);
5625 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
5626 if (!SWIG_IsOK(res3)) {
5627 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QRPT_Rsvx" "', argument " "3"" of type '" "gsl_vector *""'");
5628 }
5629 arg3 = (gsl_vector *)(argp3);
5630 result = (int)gsl_linalg_QRPT_Rsvx((gsl_matrix const *)arg1,(struct gsl_permutation_struct const *)arg2,arg3);
5631 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5632
5633
5634
5635 XSRETURN(argvi);
5636 fail:
5637
5638
5639
5640 SWIG_croak_null();
5641 }
5642 }
5643
5644
XS(_wrap_gsl_linalg_QRPT_update)5645 XS(_wrap_gsl_linalg_QRPT_update) {
5646 {
5647 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5648 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
5649 gsl_permutation *arg3 = (gsl_permutation *) 0 ;
5650 gsl_vector *arg4 = (gsl_vector *) 0 ;
5651 gsl_vector *arg5 = (gsl_vector *) 0 ;
5652 void *argp1 = 0 ;
5653 int res1 = 0 ;
5654 void *argp2 = 0 ;
5655 int res2 = 0 ;
5656 void *argp3 = 0 ;
5657 int res3 = 0 ;
5658 void *argp4 = 0 ;
5659 int res4 = 0 ;
5660 void *argp5 = 0 ;
5661 int res5 = 0 ;
5662 int argvi = 0;
5663 int result;
5664 dXSARGS;
5665
5666 if ((items < 5) || (items > 5)) {
5667 SWIG_croak("Usage: gsl_linalg_QRPT_update(Q,R,p,u,v);");
5668 }
5669 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5670 if (!SWIG_IsOK(res1)) {
5671 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QRPT_update" "', argument " "1"" of type '" "gsl_matrix *""'");
5672 }
5673 arg1 = (gsl_matrix *)(argp1);
5674 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5675 if (!SWIG_IsOK(res2)) {
5676 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QRPT_update" "', argument " "2"" of type '" "gsl_matrix *""'");
5677 }
5678 arg2 = (gsl_matrix *)(argp2);
5679 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
5680 if (!SWIG_IsOK(res3)) {
5681 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QRPT_update" "', argument " "3"" of type '" "gsl_permutation const *""'");
5682 }
5683 arg3 = (gsl_permutation *)(argp3);
5684 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
5685 if (!SWIG_IsOK(res4)) {
5686 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_QRPT_update" "', argument " "4"" of type '" "gsl_vector *""'");
5687 }
5688 arg4 = (gsl_vector *)(argp4);
5689 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
5690 if (!SWIG_IsOK(res5)) {
5691 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_QRPT_update" "', argument " "5"" of type '" "gsl_vector const *""'");
5692 }
5693 arg5 = (gsl_vector *)(argp5);
5694 result = (int)gsl_linalg_QRPT_update(arg1,arg2,(struct gsl_permutation_struct const *)arg3,arg4,(gsl_vector const *)arg5);
5695 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5696
5697
5698
5699
5700
5701 XSRETURN(argvi);
5702 fail:
5703
5704
5705
5706
5707
5708 SWIG_croak_null();
5709 }
5710 }
5711
5712
XS(_wrap_gsl_linalg_LQ_decomp)5713 XS(_wrap_gsl_linalg_LQ_decomp) {
5714 {
5715 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5716 gsl_vector *arg2 = (gsl_vector *) 0 ;
5717 void *argp1 = 0 ;
5718 int res1 = 0 ;
5719 void *argp2 = 0 ;
5720 int res2 = 0 ;
5721 int argvi = 0;
5722 int result;
5723 dXSARGS;
5724
5725 if ((items < 2) || (items > 2)) {
5726 SWIG_croak("Usage: gsl_linalg_LQ_decomp(A,tau);");
5727 }
5728 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5729 if (!SWIG_IsOK(res1)) {
5730 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LQ_decomp" "', argument " "1"" of type '" "gsl_matrix *""'");
5731 }
5732 arg1 = (gsl_matrix *)(argp1);
5733 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
5734 if (!SWIG_IsOK(res2)) {
5735 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_LQ_decomp" "', argument " "2"" of type '" "gsl_vector *""'");
5736 }
5737 arg2 = (gsl_vector *)(argp2);
5738 result = (int)gsl_linalg_LQ_decomp(arg1,arg2);
5739 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5740
5741
5742 XSRETURN(argvi);
5743 fail:
5744
5745
5746 SWIG_croak_null();
5747 }
5748 }
5749
5750
XS(_wrap_gsl_linalg_LQ_solve_T)5751 XS(_wrap_gsl_linalg_LQ_solve_T) {
5752 {
5753 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5754 gsl_vector *arg2 = (gsl_vector *) 0 ;
5755 gsl_vector *arg3 = (gsl_vector *) 0 ;
5756 gsl_vector *arg4 = (gsl_vector *) 0 ;
5757 void *argp1 = 0 ;
5758 int res1 = 0 ;
5759 void *argp2 = 0 ;
5760 int res2 = 0 ;
5761 void *argp3 = 0 ;
5762 int res3 = 0 ;
5763 void *argp4 = 0 ;
5764 int res4 = 0 ;
5765 int argvi = 0;
5766 int result;
5767 dXSARGS;
5768
5769 if ((items < 4) || (items > 4)) {
5770 SWIG_croak("Usage: gsl_linalg_LQ_solve_T(LQ,tau,b,x);");
5771 }
5772 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5773 if (!SWIG_IsOK(res1)) {
5774 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LQ_solve_T" "', argument " "1"" of type '" "gsl_matrix const *""'");
5775 }
5776 arg1 = (gsl_matrix *)(argp1);
5777 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
5778 if (!SWIG_IsOK(res2)) {
5779 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_LQ_solve_T" "', argument " "2"" of type '" "gsl_vector const *""'");
5780 }
5781 arg2 = (gsl_vector *)(argp2);
5782 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
5783 if (!SWIG_IsOK(res3)) {
5784 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_LQ_solve_T" "', argument " "3"" of type '" "gsl_vector const *""'");
5785 }
5786 arg3 = (gsl_vector *)(argp3);
5787 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
5788 if (!SWIG_IsOK(res4)) {
5789 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_LQ_solve_T" "', argument " "4"" of type '" "gsl_vector *""'");
5790 }
5791 arg4 = (gsl_vector *)(argp4);
5792 result = (int)gsl_linalg_LQ_solve_T((gsl_matrix const *)arg1,(gsl_vector const *)arg2,(gsl_vector const *)arg3,arg4);
5793 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5794
5795
5796
5797
5798 XSRETURN(argvi);
5799 fail:
5800
5801
5802
5803
5804 SWIG_croak_null();
5805 }
5806 }
5807
5808
XS(_wrap_gsl_linalg_LQ_svx_T)5809 XS(_wrap_gsl_linalg_LQ_svx_T) {
5810 {
5811 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5812 gsl_vector *arg2 = (gsl_vector *) 0 ;
5813 gsl_vector *arg3 = (gsl_vector *) 0 ;
5814 void *argp1 = 0 ;
5815 int res1 = 0 ;
5816 void *argp2 = 0 ;
5817 int res2 = 0 ;
5818 void *argp3 = 0 ;
5819 int res3 = 0 ;
5820 int argvi = 0;
5821 int result;
5822 dXSARGS;
5823
5824 if ((items < 3) || (items > 3)) {
5825 SWIG_croak("Usage: gsl_linalg_LQ_svx_T(LQ,tau,x);");
5826 }
5827 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5828 if (!SWIG_IsOK(res1)) {
5829 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LQ_svx_T" "', argument " "1"" of type '" "gsl_matrix const *""'");
5830 }
5831 arg1 = (gsl_matrix *)(argp1);
5832 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
5833 if (!SWIG_IsOK(res2)) {
5834 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_LQ_svx_T" "', argument " "2"" of type '" "gsl_vector const *""'");
5835 }
5836 arg2 = (gsl_vector *)(argp2);
5837 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
5838 if (!SWIG_IsOK(res3)) {
5839 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_LQ_svx_T" "', argument " "3"" of type '" "gsl_vector *""'");
5840 }
5841 arg3 = (gsl_vector *)(argp3);
5842 result = (int)gsl_linalg_LQ_svx_T((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3);
5843 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5844
5845
5846
5847 XSRETURN(argvi);
5848 fail:
5849
5850
5851
5852 SWIG_croak_null();
5853 }
5854 }
5855
5856
XS(_wrap_gsl_linalg_LQ_lssolve_T)5857 XS(_wrap_gsl_linalg_LQ_lssolve_T) {
5858 {
5859 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5860 gsl_vector *arg2 = (gsl_vector *) 0 ;
5861 gsl_vector *arg3 = (gsl_vector *) 0 ;
5862 gsl_vector *arg4 = (gsl_vector *) 0 ;
5863 gsl_vector *arg5 = (gsl_vector *) 0 ;
5864 void *argp1 = 0 ;
5865 int res1 = 0 ;
5866 void *argp2 = 0 ;
5867 int res2 = 0 ;
5868 void *argp3 = 0 ;
5869 int res3 = 0 ;
5870 void *argp4 = 0 ;
5871 int res4 = 0 ;
5872 void *argp5 = 0 ;
5873 int res5 = 0 ;
5874 int argvi = 0;
5875 int result;
5876 dXSARGS;
5877
5878 if ((items < 5) || (items > 5)) {
5879 SWIG_croak("Usage: gsl_linalg_LQ_lssolve_T(LQ,tau,b,x,residual);");
5880 }
5881 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5882 if (!SWIG_IsOK(res1)) {
5883 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LQ_lssolve_T" "', argument " "1"" of type '" "gsl_matrix const *""'");
5884 }
5885 arg1 = (gsl_matrix *)(argp1);
5886 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
5887 if (!SWIG_IsOK(res2)) {
5888 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_LQ_lssolve_T" "', argument " "2"" of type '" "gsl_vector const *""'");
5889 }
5890 arg2 = (gsl_vector *)(argp2);
5891 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
5892 if (!SWIG_IsOK(res3)) {
5893 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_LQ_lssolve_T" "', argument " "3"" of type '" "gsl_vector const *""'");
5894 }
5895 arg3 = (gsl_vector *)(argp3);
5896 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
5897 if (!SWIG_IsOK(res4)) {
5898 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_LQ_lssolve_T" "', argument " "4"" of type '" "gsl_vector *""'");
5899 }
5900 arg4 = (gsl_vector *)(argp4);
5901 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
5902 if (!SWIG_IsOK(res5)) {
5903 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_LQ_lssolve_T" "', argument " "5"" of type '" "gsl_vector *""'");
5904 }
5905 arg5 = (gsl_vector *)(argp5);
5906 result = (int)gsl_linalg_LQ_lssolve_T((gsl_matrix const *)arg1,(gsl_vector const *)arg2,(gsl_vector const *)arg3,arg4,arg5);
5907 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5908
5909
5910
5911
5912
5913 XSRETURN(argvi);
5914 fail:
5915
5916
5917
5918
5919
5920 SWIG_croak_null();
5921 }
5922 }
5923
5924
XS(_wrap_gsl_linalg_LQ_Lsolve_T)5925 XS(_wrap_gsl_linalg_LQ_Lsolve_T) {
5926 {
5927 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5928 gsl_vector *arg2 = (gsl_vector *) 0 ;
5929 gsl_vector *arg3 = (gsl_vector *) 0 ;
5930 void *argp1 = 0 ;
5931 int res1 = 0 ;
5932 void *argp2 = 0 ;
5933 int res2 = 0 ;
5934 void *argp3 = 0 ;
5935 int res3 = 0 ;
5936 int argvi = 0;
5937 int result;
5938 dXSARGS;
5939
5940 if ((items < 3) || (items > 3)) {
5941 SWIG_croak("Usage: gsl_linalg_LQ_Lsolve_T(LQ,b,x);");
5942 }
5943 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5944 if (!SWIG_IsOK(res1)) {
5945 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LQ_Lsolve_T" "', argument " "1"" of type '" "gsl_matrix const *""'");
5946 }
5947 arg1 = (gsl_matrix *)(argp1);
5948 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
5949 if (!SWIG_IsOK(res2)) {
5950 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_LQ_Lsolve_T" "', argument " "2"" of type '" "gsl_vector const *""'");
5951 }
5952 arg2 = (gsl_vector *)(argp2);
5953 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
5954 if (!SWIG_IsOK(res3)) {
5955 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_LQ_Lsolve_T" "', argument " "3"" of type '" "gsl_vector *""'");
5956 }
5957 arg3 = (gsl_vector *)(argp3);
5958 result = (int)gsl_linalg_LQ_Lsolve_T((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3);
5959 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5960
5961
5962
5963 XSRETURN(argvi);
5964 fail:
5965
5966
5967
5968 SWIG_croak_null();
5969 }
5970 }
5971
5972
XS(_wrap_gsl_linalg_LQ_Lsvx_T)5973 XS(_wrap_gsl_linalg_LQ_Lsvx_T) {
5974 {
5975 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5976 gsl_vector *arg2 = (gsl_vector *) 0 ;
5977 void *argp1 = 0 ;
5978 int res1 = 0 ;
5979 void *argp2 = 0 ;
5980 int res2 = 0 ;
5981 int argvi = 0;
5982 int result;
5983 dXSARGS;
5984
5985 if ((items < 2) || (items > 2)) {
5986 SWIG_croak("Usage: gsl_linalg_LQ_Lsvx_T(LQ,x);");
5987 }
5988 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5989 if (!SWIG_IsOK(res1)) {
5990 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LQ_Lsvx_T" "', argument " "1"" of type '" "gsl_matrix const *""'");
5991 }
5992 arg1 = (gsl_matrix *)(argp1);
5993 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
5994 if (!SWIG_IsOK(res2)) {
5995 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_LQ_Lsvx_T" "', argument " "2"" of type '" "gsl_vector *""'");
5996 }
5997 arg2 = (gsl_vector *)(argp2);
5998 result = (int)gsl_linalg_LQ_Lsvx_T((gsl_matrix const *)arg1,arg2);
5999 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6000
6001
6002 XSRETURN(argvi);
6003 fail:
6004
6005
6006 SWIG_croak_null();
6007 }
6008 }
6009
6010
XS(_wrap_gsl_linalg_L_solve_T)6011 XS(_wrap_gsl_linalg_L_solve_T) {
6012 {
6013 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
6014 gsl_vector *arg2 = (gsl_vector *) 0 ;
6015 gsl_vector *arg3 = (gsl_vector *) 0 ;
6016 void *argp1 = 0 ;
6017 int res1 = 0 ;
6018 void *argp2 = 0 ;
6019 int res2 = 0 ;
6020 void *argp3 = 0 ;
6021 int res3 = 0 ;
6022 int argvi = 0;
6023 int result;
6024 dXSARGS;
6025
6026 if ((items < 3) || (items > 3)) {
6027 SWIG_croak("Usage: gsl_linalg_L_solve_T(L,b,x);");
6028 }
6029 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6030 if (!SWIG_IsOK(res1)) {
6031 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_L_solve_T" "', argument " "1"" of type '" "gsl_matrix const *""'");
6032 }
6033 arg1 = (gsl_matrix *)(argp1);
6034 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
6035 if (!SWIG_IsOK(res2)) {
6036 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_L_solve_T" "', argument " "2"" of type '" "gsl_vector const *""'");
6037 }
6038 arg2 = (gsl_vector *)(argp2);
6039 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
6040 if (!SWIG_IsOK(res3)) {
6041 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_L_solve_T" "', argument " "3"" of type '" "gsl_vector *""'");
6042 }
6043 arg3 = (gsl_vector *)(argp3);
6044 result = (int)gsl_linalg_L_solve_T((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3);
6045 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6046
6047
6048
6049 XSRETURN(argvi);
6050 fail:
6051
6052
6053
6054 SWIG_croak_null();
6055 }
6056 }
6057
6058
XS(_wrap_gsl_linalg_LQ_vecQ)6059 XS(_wrap_gsl_linalg_LQ_vecQ) {
6060 {
6061 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
6062 gsl_vector *arg2 = (gsl_vector *) 0 ;
6063 gsl_vector *arg3 = (gsl_vector *) 0 ;
6064 void *argp1 = 0 ;
6065 int res1 = 0 ;
6066 void *argp2 = 0 ;
6067 int res2 = 0 ;
6068 void *argp3 = 0 ;
6069 int res3 = 0 ;
6070 int argvi = 0;
6071 int result;
6072 dXSARGS;
6073
6074 if ((items < 3) || (items > 3)) {
6075 SWIG_croak("Usage: gsl_linalg_LQ_vecQ(LQ,tau,v);");
6076 }
6077 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6078 if (!SWIG_IsOK(res1)) {
6079 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LQ_vecQ" "', argument " "1"" of type '" "gsl_matrix const *""'");
6080 }
6081 arg1 = (gsl_matrix *)(argp1);
6082 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
6083 if (!SWIG_IsOK(res2)) {
6084 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_LQ_vecQ" "', argument " "2"" of type '" "gsl_vector const *""'");
6085 }
6086 arg2 = (gsl_vector *)(argp2);
6087 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
6088 if (!SWIG_IsOK(res3)) {
6089 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_LQ_vecQ" "', argument " "3"" of type '" "gsl_vector *""'");
6090 }
6091 arg3 = (gsl_vector *)(argp3);
6092 result = (int)gsl_linalg_LQ_vecQ((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3);
6093 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6094
6095
6096
6097 XSRETURN(argvi);
6098 fail:
6099
6100
6101
6102 SWIG_croak_null();
6103 }
6104 }
6105
6106
XS(_wrap_gsl_linalg_LQ_vecQT)6107 XS(_wrap_gsl_linalg_LQ_vecQT) {
6108 {
6109 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
6110 gsl_vector *arg2 = (gsl_vector *) 0 ;
6111 gsl_vector *arg3 = (gsl_vector *) 0 ;
6112 void *argp1 = 0 ;
6113 int res1 = 0 ;
6114 void *argp2 = 0 ;
6115 int res2 = 0 ;
6116 void *argp3 = 0 ;
6117 int res3 = 0 ;
6118 int argvi = 0;
6119 int result;
6120 dXSARGS;
6121
6122 if ((items < 3) || (items > 3)) {
6123 SWIG_croak("Usage: gsl_linalg_LQ_vecQT(LQ,tau,v);");
6124 }
6125 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6126 if (!SWIG_IsOK(res1)) {
6127 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LQ_vecQT" "', argument " "1"" of type '" "gsl_matrix const *""'");
6128 }
6129 arg1 = (gsl_matrix *)(argp1);
6130 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
6131 if (!SWIG_IsOK(res2)) {
6132 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_LQ_vecQT" "', argument " "2"" of type '" "gsl_vector const *""'");
6133 }
6134 arg2 = (gsl_vector *)(argp2);
6135 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
6136 if (!SWIG_IsOK(res3)) {
6137 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_LQ_vecQT" "', argument " "3"" of type '" "gsl_vector *""'");
6138 }
6139 arg3 = (gsl_vector *)(argp3);
6140 result = (int)gsl_linalg_LQ_vecQT((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3);
6141 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6142
6143
6144
6145 XSRETURN(argvi);
6146 fail:
6147
6148
6149
6150 SWIG_croak_null();
6151 }
6152 }
6153
6154
XS(_wrap_gsl_linalg_LQ_unpack)6155 XS(_wrap_gsl_linalg_LQ_unpack) {
6156 {
6157 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
6158 gsl_vector *arg2 = (gsl_vector *) 0 ;
6159 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
6160 gsl_matrix *arg4 = (gsl_matrix *) 0 ;
6161 void *argp1 = 0 ;
6162 int res1 = 0 ;
6163 void *argp2 = 0 ;
6164 int res2 = 0 ;
6165 void *argp3 = 0 ;
6166 int res3 = 0 ;
6167 void *argp4 = 0 ;
6168 int res4 = 0 ;
6169 int argvi = 0;
6170 int result;
6171 dXSARGS;
6172
6173 if ((items < 4) || (items > 4)) {
6174 SWIG_croak("Usage: gsl_linalg_LQ_unpack(LQ,tau,Q,L);");
6175 }
6176 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6177 if (!SWIG_IsOK(res1)) {
6178 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LQ_unpack" "', argument " "1"" of type '" "gsl_matrix const *""'");
6179 }
6180 arg1 = (gsl_matrix *)(argp1);
6181 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
6182 if (!SWIG_IsOK(res2)) {
6183 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_LQ_unpack" "', argument " "2"" of type '" "gsl_vector const *""'");
6184 }
6185 arg2 = (gsl_vector *)(argp2);
6186 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6187 if (!SWIG_IsOK(res3)) {
6188 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_LQ_unpack" "', argument " "3"" of type '" "gsl_matrix *""'");
6189 }
6190 arg3 = (gsl_matrix *)(argp3);
6191 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6192 if (!SWIG_IsOK(res4)) {
6193 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_LQ_unpack" "', argument " "4"" of type '" "gsl_matrix *""'");
6194 }
6195 arg4 = (gsl_matrix *)(argp4);
6196 result = (int)gsl_linalg_LQ_unpack((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3,arg4);
6197 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6198
6199
6200
6201
6202 XSRETURN(argvi);
6203 fail:
6204
6205
6206
6207
6208 SWIG_croak_null();
6209 }
6210 }
6211
6212
XS(_wrap_gsl_linalg_LQ_update)6213 XS(_wrap_gsl_linalg_LQ_update) {
6214 {
6215 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
6216 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
6217 gsl_vector *arg3 = (gsl_vector *) 0 ;
6218 gsl_vector *arg4 = (gsl_vector *) 0 ;
6219 void *argp1 = 0 ;
6220 int res1 = 0 ;
6221 void *argp2 = 0 ;
6222 int res2 = 0 ;
6223 void *argp3 = 0 ;
6224 int res3 = 0 ;
6225 void *argp4 = 0 ;
6226 int res4 = 0 ;
6227 int argvi = 0;
6228 int result;
6229 dXSARGS;
6230
6231 if ((items < 4) || (items > 4)) {
6232 SWIG_croak("Usage: gsl_linalg_LQ_update(Q,R,v,w);");
6233 }
6234 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6235 if (!SWIG_IsOK(res1)) {
6236 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LQ_update" "', argument " "1"" of type '" "gsl_matrix *""'");
6237 }
6238 arg1 = (gsl_matrix *)(argp1);
6239 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6240 if (!SWIG_IsOK(res2)) {
6241 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_LQ_update" "', argument " "2"" of type '" "gsl_matrix *""'");
6242 }
6243 arg2 = (gsl_matrix *)(argp2);
6244 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
6245 if (!SWIG_IsOK(res3)) {
6246 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_LQ_update" "', argument " "3"" of type '" "gsl_vector const *""'");
6247 }
6248 arg3 = (gsl_vector *)(argp3);
6249 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
6250 if (!SWIG_IsOK(res4)) {
6251 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_LQ_update" "', argument " "4"" of type '" "gsl_vector *""'");
6252 }
6253 arg4 = (gsl_vector *)(argp4);
6254 result = (int)gsl_linalg_LQ_update(arg1,arg2,(gsl_vector const *)arg3,arg4);
6255 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6256
6257
6258
6259
6260 XSRETURN(argvi);
6261 fail:
6262
6263
6264
6265
6266 SWIG_croak_null();
6267 }
6268 }
6269
6270
XS(_wrap_gsl_linalg_LQ_LQsolve)6271 XS(_wrap_gsl_linalg_LQ_LQsolve) {
6272 {
6273 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
6274 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
6275 gsl_vector *arg3 = (gsl_vector *) 0 ;
6276 gsl_vector *arg4 = (gsl_vector *) 0 ;
6277 void *argp1 = 0 ;
6278 int res1 = 0 ;
6279 void *argp2 = 0 ;
6280 int res2 = 0 ;
6281 void *argp3 = 0 ;
6282 int res3 = 0 ;
6283 void *argp4 = 0 ;
6284 int res4 = 0 ;
6285 int argvi = 0;
6286 int result;
6287 dXSARGS;
6288
6289 if ((items < 4) || (items > 4)) {
6290 SWIG_croak("Usage: gsl_linalg_LQ_LQsolve(Q,L,b,x);");
6291 }
6292 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6293 if (!SWIG_IsOK(res1)) {
6294 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LQ_LQsolve" "', argument " "1"" of type '" "gsl_matrix *""'");
6295 }
6296 arg1 = (gsl_matrix *)(argp1);
6297 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6298 if (!SWIG_IsOK(res2)) {
6299 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_LQ_LQsolve" "', argument " "2"" of type '" "gsl_matrix *""'");
6300 }
6301 arg2 = (gsl_matrix *)(argp2);
6302 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
6303 if (!SWIG_IsOK(res3)) {
6304 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_LQ_LQsolve" "', argument " "3"" of type '" "gsl_vector const *""'");
6305 }
6306 arg3 = (gsl_vector *)(argp3);
6307 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
6308 if (!SWIG_IsOK(res4)) {
6309 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_LQ_LQsolve" "', argument " "4"" of type '" "gsl_vector *""'");
6310 }
6311 arg4 = (gsl_vector *)(argp4);
6312 result = (int)gsl_linalg_LQ_LQsolve(arg1,arg2,(gsl_vector const *)arg3,arg4);
6313 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6314
6315
6316
6317
6318 XSRETURN(argvi);
6319 fail:
6320
6321
6322
6323
6324 SWIG_croak_null();
6325 }
6326 }
6327
6328
XS(_wrap_gsl_linalg_PTLQ_decomp)6329 XS(_wrap_gsl_linalg_PTLQ_decomp) {
6330 {
6331 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
6332 gsl_vector *arg2 = (gsl_vector *) 0 ;
6333 gsl_permutation *arg3 = (gsl_permutation *) 0 ;
6334 int *arg4 = (int *) 0 ;
6335 gsl_vector *arg5 = (gsl_vector *) 0 ;
6336 void *argp1 = 0 ;
6337 int res1 = 0 ;
6338 void *argp2 = 0 ;
6339 int res2 = 0 ;
6340 void *argp3 = 0 ;
6341 int res3 = 0 ;
6342 int temp4 ;
6343 int res4 = SWIG_TMPOBJ ;
6344 void *argp5 = 0 ;
6345 int res5 = 0 ;
6346 int argvi = 0;
6347 int result;
6348 dXSARGS;
6349
6350 arg4 = &temp4;
6351 if ((items < 4) || (items > 4)) {
6352 SWIG_croak("Usage: gsl_linalg_PTLQ_decomp(A,tau,p,norm);");
6353 }
6354 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6355 if (!SWIG_IsOK(res1)) {
6356 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_PTLQ_decomp" "', argument " "1"" of type '" "gsl_matrix *""'");
6357 }
6358 arg1 = (gsl_matrix *)(argp1);
6359 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
6360 if (!SWIG_IsOK(res2)) {
6361 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_PTLQ_decomp" "', argument " "2"" of type '" "gsl_vector *""'");
6362 }
6363 arg2 = (gsl_vector *)(argp2);
6364 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
6365 if (!SWIG_IsOK(res3)) {
6366 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_PTLQ_decomp" "', argument " "3"" of type '" "gsl_permutation *""'");
6367 }
6368 arg3 = (gsl_permutation *)(argp3);
6369 res5 = SWIG_ConvertPtr(ST(3), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
6370 if (!SWIG_IsOK(res5)) {
6371 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_PTLQ_decomp" "', argument " "5"" of type '" "gsl_vector *""'");
6372 }
6373 arg5 = (gsl_vector *)(argp5);
6374 result = (int)gsl_linalg_PTLQ_decomp(arg1,arg2,arg3,arg4,arg5);
6375 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6376 if (SWIG_IsTmpObj(res4)) {
6377 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((*arg4)); argvi++ ;
6378 } else {
6379 int new_flags = SWIG_IsNewObj(res4) ? (SWIG_POINTER_OWN | 0) : 0;
6380 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg4), SWIGTYPE_p_int, new_flags); argvi++ ;
6381 }
6382
6383
6384
6385
6386
6387 XSRETURN(argvi);
6388 fail:
6389
6390
6391
6392
6393
6394 SWIG_croak_null();
6395 }
6396 }
6397
6398
XS(_wrap_gsl_linalg_PTLQ_decomp2)6399 XS(_wrap_gsl_linalg_PTLQ_decomp2) {
6400 {
6401 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
6402 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
6403 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
6404 gsl_vector *arg4 = (gsl_vector *) 0 ;
6405 gsl_permutation *arg5 = (gsl_permutation *) 0 ;
6406 int *arg6 = (int *) 0 ;
6407 gsl_vector *arg7 = (gsl_vector *) 0 ;
6408 void *argp1 = 0 ;
6409 int res1 = 0 ;
6410 void *argp2 = 0 ;
6411 int res2 = 0 ;
6412 void *argp3 = 0 ;
6413 int res3 = 0 ;
6414 void *argp4 = 0 ;
6415 int res4 = 0 ;
6416 void *argp5 = 0 ;
6417 int res5 = 0 ;
6418 int temp6 ;
6419 int res6 = SWIG_TMPOBJ ;
6420 void *argp7 = 0 ;
6421 int res7 = 0 ;
6422 int argvi = 0;
6423 int result;
6424 dXSARGS;
6425
6426 arg6 = &temp6;
6427 if ((items < 6) || (items > 6)) {
6428 SWIG_croak("Usage: gsl_linalg_PTLQ_decomp2(A,q,r,tau,p,norm);");
6429 }
6430 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6431 if (!SWIG_IsOK(res1)) {
6432 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_PTLQ_decomp2" "', argument " "1"" of type '" "gsl_matrix const *""'");
6433 }
6434 arg1 = (gsl_matrix *)(argp1);
6435 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6436 if (!SWIG_IsOK(res2)) {
6437 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_PTLQ_decomp2" "', argument " "2"" of type '" "gsl_matrix *""'");
6438 }
6439 arg2 = (gsl_matrix *)(argp2);
6440 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6441 if (!SWIG_IsOK(res3)) {
6442 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_PTLQ_decomp2" "', argument " "3"" of type '" "gsl_matrix *""'");
6443 }
6444 arg3 = (gsl_matrix *)(argp3);
6445 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
6446 if (!SWIG_IsOK(res4)) {
6447 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_PTLQ_decomp2" "', argument " "4"" of type '" "gsl_vector *""'");
6448 }
6449 arg4 = (gsl_vector *)(argp4);
6450 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
6451 if (!SWIG_IsOK(res5)) {
6452 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_PTLQ_decomp2" "', argument " "5"" of type '" "gsl_permutation *""'");
6453 }
6454 arg5 = (gsl_permutation *)(argp5);
6455 res7 = SWIG_ConvertPtr(ST(5), &argp7,SWIGTYPE_p_gsl_vector, 0 | 0 );
6456 if (!SWIG_IsOK(res7)) {
6457 SWIG_exception_fail(SWIG_ArgError(res7), "in method '" "gsl_linalg_PTLQ_decomp2" "', argument " "7"" of type '" "gsl_vector *""'");
6458 }
6459 arg7 = (gsl_vector *)(argp7);
6460 result = (int)gsl_linalg_PTLQ_decomp2((gsl_matrix const *)arg1,arg2,arg3,arg4,arg5,arg6,arg7);
6461 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6462 if (SWIG_IsTmpObj(res6)) {
6463 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((*arg6)); argvi++ ;
6464 } else {
6465 int new_flags = SWIG_IsNewObj(res6) ? (SWIG_POINTER_OWN | 0) : 0;
6466 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg6), SWIGTYPE_p_int, new_flags); argvi++ ;
6467 }
6468
6469
6470
6471
6472
6473
6474
6475 XSRETURN(argvi);
6476 fail:
6477
6478
6479
6480
6481
6482
6483
6484 SWIG_croak_null();
6485 }
6486 }
6487
6488
XS(_wrap_gsl_linalg_PTLQ_solve_T)6489 XS(_wrap_gsl_linalg_PTLQ_solve_T) {
6490 {
6491 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
6492 gsl_vector *arg2 = (gsl_vector *) 0 ;
6493 gsl_permutation *arg3 = (gsl_permutation *) 0 ;
6494 gsl_vector *arg4 = (gsl_vector *) 0 ;
6495 gsl_vector *arg5 = (gsl_vector *) 0 ;
6496 void *argp1 = 0 ;
6497 int res1 = 0 ;
6498 void *argp2 = 0 ;
6499 int res2 = 0 ;
6500 void *argp3 = 0 ;
6501 int res3 = 0 ;
6502 void *argp4 = 0 ;
6503 int res4 = 0 ;
6504 void *argp5 = 0 ;
6505 int res5 = 0 ;
6506 int argvi = 0;
6507 int result;
6508 dXSARGS;
6509
6510 if ((items < 5) || (items > 5)) {
6511 SWIG_croak("Usage: gsl_linalg_PTLQ_solve_T(QR,tau,p,b,x);");
6512 }
6513 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6514 if (!SWIG_IsOK(res1)) {
6515 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_PTLQ_solve_T" "', argument " "1"" of type '" "gsl_matrix const *""'");
6516 }
6517 arg1 = (gsl_matrix *)(argp1);
6518 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
6519 if (!SWIG_IsOK(res2)) {
6520 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_PTLQ_solve_T" "', argument " "2"" of type '" "gsl_vector const *""'");
6521 }
6522 arg2 = (gsl_vector *)(argp2);
6523 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
6524 if (!SWIG_IsOK(res3)) {
6525 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_PTLQ_solve_T" "', argument " "3"" of type '" "gsl_permutation const *""'");
6526 }
6527 arg3 = (gsl_permutation *)(argp3);
6528 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
6529 if (!SWIG_IsOK(res4)) {
6530 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_PTLQ_solve_T" "', argument " "4"" of type '" "gsl_vector const *""'");
6531 }
6532 arg4 = (gsl_vector *)(argp4);
6533 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
6534 if (!SWIG_IsOK(res5)) {
6535 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_PTLQ_solve_T" "', argument " "5"" of type '" "gsl_vector *""'");
6536 }
6537 arg5 = (gsl_vector *)(argp5);
6538 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);
6539 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6540
6541
6542
6543
6544
6545 XSRETURN(argvi);
6546 fail:
6547
6548
6549
6550
6551
6552 SWIG_croak_null();
6553 }
6554 }
6555
6556
XS(_wrap_gsl_linalg_PTLQ_svx_T)6557 XS(_wrap_gsl_linalg_PTLQ_svx_T) {
6558 {
6559 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
6560 gsl_vector *arg2 = (gsl_vector *) 0 ;
6561 gsl_permutation *arg3 = (gsl_permutation *) 0 ;
6562 gsl_vector *arg4 = (gsl_vector *) 0 ;
6563 void *argp1 = 0 ;
6564 int res1 = 0 ;
6565 void *argp2 = 0 ;
6566 int res2 = 0 ;
6567 void *argp3 = 0 ;
6568 int res3 = 0 ;
6569 void *argp4 = 0 ;
6570 int res4 = 0 ;
6571 int argvi = 0;
6572 int result;
6573 dXSARGS;
6574
6575 if ((items < 4) || (items > 4)) {
6576 SWIG_croak("Usage: gsl_linalg_PTLQ_svx_T(LQ,tau,p,x);");
6577 }
6578 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6579 if (!SWIG_IsOK(res1)) {
6580 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_PTLQ_svx_T" "', argument " "1"" of type '" "gsl_matrix const *""'");
6581 }
6582 arg1 = (gsl_matrix *)(argp1);
6583 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
6584 if (!SWIG_IsOK(res2)) {
6585 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_PTLQ_svx_T" "', argument " "2"" of type '" "gsl_vector const *""'");
6586 }
6587 arg2 = (gsl_vector *)(argp2);
6588 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
6589 if (!SWIG_IsOK(res3)) {
6590 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_PTLQ_svx_T" "', argument " "3"" of type '" "gsl_permutation const *""'");
6591 }
6592 arg3 = (gsl_permutation *)(argp3);
6593 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
6594 if (!SWIG_IsOK(res4)) {
6595 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_PTLQ_svx_T" "', argument " "4"" of type '" "gsl_vector *""'");
6596 }
6597 arg4 = (gsl_vector *)(argp4);
6598 result = (int)gsl_linalg_PTLQ_svx_T((gsl_matrix const *)arg1,(gsl_vector const *)arg2,(struct gsl_permutation_struct const *)arg3,arg4);
6599 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6600
6601
6602
6603
6604 XSRETURN(argvi);
6605 fail:
6606
6607
6608
6609
6610 SWIG_croak_null();
6611 }
6612 }
6613
6614
XS(_wrap_gsl_linalg_PTLQ_LQsolve_T)6615 XS(_wrap_gsl_linalg_PTLQ_LQsolve_T) {
6616 {
6617 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
6618 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
6619 gsl_permutation *arg3 = (gsl_permutation *) 0 ;
6620 gsl_vector *arg4 = (gsl_vector *) 0 ;
6621 gsl_vector *arg5 = (gsl_vector *) 0 ;
6622 void *argp1 = 0 ;
6623 int res1 = 0 ;
6624 void *argp2 = 0 ;
6625 int res2 = 0 ;
6626 void *argp3 = 0 ;
6627 int res3 = 0 ;
6628 void *argp4 = 0 ;
6629 int res4 = 0 ;
6630 void *argp5 = 0 ;
6631 int res5 = 0 ;
6632 int argvi = 0;
6633 int result;
6634 dXSARGS;
6635
6636 if ((items < 5) || (items > 5)) {
6637 SWIG_croak("Usage: gsl_linalg_PTLQ_LQsolve_T(Q,L,p,b,x);");
6638 }
6639 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6640 if (!SWIG_IsOK(res1)) {
6641 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_PTLQ_LQsolve_T" "', argument " "1"" of type '" "gsl_matrix const *""'");
6642 }
6643 arg1 = (gsl_matrix *)(argp1);
6644 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6645 if (!SWIG_IsOK(res2)) {
6646 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_PTLQ_LQsolve_T" "', argument " "2"" of type '" "gsl_matrix const *""'");
6647 }
6648 arg2 = (gsl_matrix *)(argp2);
6649 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
6650 if (!SWIG_IsOK(res3)) {
6651 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_PTLQ_LQsolve_T" "', argument " "3"" of type '" "gsl_permutation const *""'");
6652 }
6653 arg3 = (gsl_permutation *)(argp3);
6654 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
6655 if (!SWIG_IsOK(res4)) {
6656 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_PTLQ_LQsolve_T" "', argument " "4"" of type '" "gsl_vector const *""'");
6657 }
6658 arg4 = (gsl_vector *)(argp4);
6659 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
6660 if (!SWIG_IsOK(res5)) {
6661 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_PTLQ_LQsolve_T" "', argument " "5"" of type '" "gsl_vector *""'");
6662 }
6663 arg5 = (gsl_vector *)(argp5);
6664 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);
6665 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6666
6667
6668
6669
6670
6671 XSRETURN(argvi);
6672 fail:
6673
6674
6675
6676
6677
6678 SWIG_croak_null();
6679 }
6680 }
6681
6682
XS(_wrap_gsl_linalg_PTLQ_Lsolve_T)6683 XS(_wrap_gsl_linalg_PTLQ_Lsolve_T) {
6684 {
6685 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
6686 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
6687 gsl_vector *arg3 = (gsl_vector *) 0 ;
6688 gsl_vector *arg4 = (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 void *argp4 = 0 ;
6696 int res4 = 0 ;
6697 int argvi = 0;
6698 int result;
6699 dXSARGS;
6700
6701 if ((items < 4) || (items > 4)) {
6702 SWIG_croak("Usage: gsl_linalg_PTLQ_Lsolve_T(LQ,p,b,x);");
6703 }
6704 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6705 if (!SWIG_IsOK(res1)) {
6706 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_PTLQ_Lsolve_T" "', argument " "1"" of type '" "gsl_matrix const *""'");
6707 }
6708 arg1 = (gsl_matrix *)(argp1);
6709 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
6710 if (!SWIG_IsOK(res2)) {
6711 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_PTLQ_Lsolve_T" "', argument " "2"" of type '" "gsl_permutation const *""'");
6712 }
6713 arg2 = (gsl_permutation *)(argp2);
6714 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
6715 if (!SWIG_IsOK(res3)) {
6716 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_PTLQ_Lsolve_T" "', argument " "3"" of type '" "gsl_vector const *""'");
6717 }
6718 arg3 = (gsl_vector *)(argp3);
6719 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
6720 if (!SWIG_IsOK(res4)) {
6721 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_PTLQ_Lsolve_T" "', argument " "4"" of type '" "gsl_vector *""'");
6722 }
6723 arg4 = (gsl_vector *)(argp4);
6724 result = (int)gsl_linalg_PTLQ_Lsolve_T((gsl_matrix const *)arg1,(struct gsl_permutation_struct const *)arg2,(gsl_vector const *)arg3,arg4);
6725 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6726
6727
6728
6729
6730 XSRETURN(argvi);
6731 fail:
6732
6733
6734
6735
6736 SWIG_croak_null();
6737 }
6738 }
6739
6740
XS(_wrap_gsl_linalg_PTLQ_Lsvx_T)6741 XS(_wrap_gsl_linalg_PTLQ_Lsvx_T) {
6742 {
6743 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
6744 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
6745 gsl_vector *arg3 = (gsl_vector *) 0 ;
6746 void *argp1 = 0 ;
6747 int res1 = 0 ;
6748 void *argp2 = 0 ;
6749 int res2 = 0 ;
6750 void *argp3 = 0 ;
6751 int res3 = 0 ;
6752 int argvi = 0;
6753 int result;
6754 dXSARGS;
6755
6756 if ((items < 3) || (items > 3)) {
6757 SWIG_croak("Usage: gsl_linalg_PTLQ_Lsvx_T(LQ,p,x);");
6758 }
6759 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6760 if (!SWIG_IsOK(res1)) {
6761 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_PTLQ_Lsvx_T" "', argument " "1"" of type '" "gsl_matrix const *""'");
6762 }
6763 arg1 = (gsl_matrix *)(argp1);
6764 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
6765 if (!SWIG_IsOK(res2)) {
6766 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_PTLQ_Lsvx_T" "', argument " "2"" of type '" "gsl_permutation const *""'");
6767 }
6768 arg2 = (gsl_permutation *)(argp2);
6769 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
6770 if (!SWIG_IsOK(res3)) {
6771 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_PTLQ_Lsvx_T" "', argument " "3"" of type '" "gsl_vector *""'");
6772 }
6773 arg3 = (gsl_vector *)(argp3);
6774 result = (int)gsl_linalg_PTLQ_Lsvx_T((gsl_matrix const *)arg1,(struct gsl_permutation_struct const *)arg2,arg3);
6775 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6776
6777
6778
6779 XSRETURN(argvi);
6780 fail:
6781
6782
6783
6784 SWIG_croak_null();
6785 }
6786 }
6787
6788
XS(_wrap_gsl_linalg_PTLQ_update)6789 XS(_wrap_gsl_linalg_PTLQ_update) {
6790 {
6791 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
6792 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
6793 gsl_permutation *arg3 = (gsl_permutation *) 0 ;
6794 gsl_vector *arg4 = (gsl_vector *) 0 ;
6795 gsl_vector *arg5 = (gsl_vector *) 0 ;
6796 void *argp1 = 0 ;
6797 int res1 = 0 ;
6798 void *argp2 = 0 ;
6799 int res2 = 0 ;
6800 void *argp3 = 0 ;
6801 int res3 = 0 ;
6802 void *argp4 = 0 ;
6803 int res4 = 0 ;
6804 void *argp5 = 0 ;
6805 int res5 = 0 ;
6806 int argvi = 0;
6807 int result;
6808 dXSARGS;
6809
6810 if ((items < 5) || (items > 5)) {
6811 SWIG_croak("Usage: gsl_linalg_PTLQ_update(Q,L,p,v,w);");
6812 }
6813 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6814 if (!SWIG_IsOK(res1)) {
6815 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_PTLQ_update" "', argument " "1"" of type '" "gsl_matrix *""'");
6816 }
6817 arg1 = (gsl_matrix *)(argp1);
6818 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6819 if (!SWIG_IsOK(res2)) {
6820 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_PTLQ_update" "', argument " "2"" of type '" "gsl_matrix *""'");
6821 }
6822 arg2 = (gsl_matrix *)(argp2);
6823 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
6824 if (!SWIG_IsOK(res3)) {
6825 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_PTLQ_update" "', argument " "3"" of type '" "gsl_permutation const *""'");
6826 }
6827 arg3 = (gsl_permutation *)(argp3);
6828 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
6829 if (!SWIG_IsOK(res4)) {
6830 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_PTLQ_update" "', argument " "4"" of type '" "gsl_vector const *""'");
6831 }
6832 arg4 = (gsl_vector *)(argp4);
6833 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
6834 if (!SWIG_IsOK(res5)) {
6835 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_PTLQ_update" "', argument " "5"" of type '" "gsl_vector *""'");
6836 }
6837 arg5 = (gsl_vector *)(argp5);
6838 result = (int)gsl_linalg_PTLQ_update(arg1,arg2,(struct gsl_permutation_struct const *)arg3,(gsl_vector const *)arg4,arg5);
6839 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6840
6841
6842
6843
6844
6845 XSRETURN(argvi);
6846 fail:
6847
6848
6849
6850
6851
6852 SWIG_croak_null();
6853 }
6854 }
6855
6856
XS(_wrap_gsl_linalg_cholesky_decomp)6857 XS(_wrap_gsl_linalg_cholesky_decomp) {
6858 {
6859 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
6860 void *argp1 = 0 ;
6861 int res1 = 0 ;
6862 int argvi = 0;
6863 int result;
6864 dXSARGS;
6865
6866 if ((items < 1) || (items > 1)) {
6867 SWIG_croak("Usage: gsl_linalg_cholesky_decomp(A);");
6868 }
6869 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6870 if (!SWIG_IsOK(res1)) {
6871 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_cholesky_decomp" "', argument " "1"" of type '" "gsl_matrix *""'");
6872 }
6873 arg1 = (gsl_matrix *)(argp1);
6874 result = (int)gsl_linalg_cholesky_decomp(arg1);
6875 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6876
6877 XSRETURN(argvi);
6878 fail:
6879
6880 SWIG_croak_null();
6881 }
6882 }
6883
6884
XS(_wrap_gsl_linalg_cholesky_solve)6885 XS(_wrap_gsl_linalg_cholesky_solve) {
6886 {
6887 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
6888 gsl_vector *arg2 = (gsl_vector *) 0 ;
6889 gsl_vector *arg3 = (gsl_vector *) 0 ;
6890 void *argp1 = 0 ;
6891 int res1 = 0 ;
6892 void *argp2 = 0 ;
6893 int res2 = 0 ;
6894 void *argp3 = 0 ;
6895 int res3 = 0 ;
6896 int argvi = 0;
6897 int result;
6898 dXSARGS;
6899
6900 if ((items < 3) || (items > 3)) {
6901 SWIG_croak("Usage: gsl_linalg_cholesky_solve(cholesky,b,x);");
6902 }
6903 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6904 if (!SWIG_IsOK(res1)) {
6905 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_cholesky_solve" "', argument " "1"" of type '" "gsl_matrix const *""'");
6906 }
6907 arg1 = (gsl_matrix *)(argp1);
6908 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
6909 if (!SWIG_IsOK(res2)) {
6910 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_cholesky_solve" "', argument " "2"" of type '" "gsl_vector const *""'");
6911 }
6912 arg2 = (gsl_vector *)(argp2);
6913 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
6914 if (!SWIG_IsOK(res3)) {
6915 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_cholesky_solve" "', argument " "3"" of type '" "gsl_vector *""'");
6916 }
6917 arg3 = (gsl_vector *)(argp3);
6918 result = (int)gsl_linalg_cholesky_solve((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3);
6919 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6920
6921
6922
6923 XSRETURN(argvi);
6924 fail:
6925
6926
6927
6928 SWIG_croak_null();
6929 }
6930 }
6931
6932
XS(_wrap_gsl_linalg_cholesky_svx)6933 XS(_wrap_gsl_linalg_cholesky_svx) {
6934 {
6935 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
6936 gsl_vector *arg2 = (gsl_vector *) 0 ;
6937 void *argp1 = 0 ;
6938 int res1 = 0 ;
6939 void *argp2 = 0 ;
6940 int res2 = 0 ;
6941 int argvi = 0;
6942 int result;
6943 dXSARGS;
6944
6945 if ((items < 2) || (items > 2)) {
6946 SWIG_croak("Usage: gsl_linalg_cholesky_svx(cholesky,x);");
6947 }
6948 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6949 if (!SWIG_IsOK(res1)) {
6950 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_cholesky_svx" "', argument " "1"" of type '" "gsl_matrix const *""'");
6951 }
6952 arg1 = (gsl_matrix *)(argp1);
6953 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
6954 if (!SWIG_IsOK(res2)) {
6955 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_cholesky_svx" "', argument " "2"" of type '" "gsl_vector *""'");
6956 }
6957 arg2 = (gsl_vector *)(argp2);
6958 result = (int)gsl_linalg_cholesky_svx((gsl_matrix const *)arg1,arg2);
6959 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6960
6961
6962 XSRETURN(argvi);
6963 fail:
6964
6965
6966 SWIG_croak_null();
6967 }
6968 }
6969
6970
XS(_wrap_gsl_linalg_cholesky_invert)6971 XS(_wrap_gsl_linalg_cholesky_invert) {
6972 {
6973 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
6974 void *argp1 = 0 ;
6975 int res1 = 0 ;
6976 int argvi = 0;
6977 int result;
6978 dXSARGS;
6979
6980 if ((items < 1) || (items > 1)) {
6981 SWIG_croak("Usage: gsl_linalg_cholesky_invert(cholesky);");
6982 }
6983 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6984 if (!SWIG_IsOK(res1)) {
6985 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_cholesky_invert" "', argument " "1"" of type '" "gsl_matrix *""'");
6986 }
6987 arg1 = (gsl_matrix *)(argp1);
6988 result = (int)gsl_linalg_cholesky_invert(arg1);
6989 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6990
6991 XSRETURN(argvi);
6992 fail:
6993
6994 SWIG_croak_null();
6995 }
6996 }
6997
6998
XS(_wrap_gsl_linalg_cholesky_decomp_unit)6999 XS(_wrap_gsl_linalg_cholesky_decomp_unit) {
7000 {
7001 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
7002 gsl_vector *arg2 = (gsl_vector *) 0 ;
7003 void *argp1 = 0 ;
7004 int res1 = 0 ;
7005 void *argp2 = 0 ;
7006 int res2 = 0 ;
7007 int argvi = 0;
7008 int result;
7009 dXSARGS;
7010
7011 if ((items < 2) || (items > 2)) {
7012 SWIG_croak("Usage: gsl_linalg_cholesky_decomp_unit(A,D);");
7013 }
7014 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7015 if (!SWIG_IsOK(res1)) {
7016 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_cholesky_decomp_unit" "', argument " "1"" of type '" "gsl_matrix *""'");
7017 }
7018 arg1 = (gsl_matrix *)(argp1);
7019 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
7020 if (!SWIG_IsOK(res2)) {
7021 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_cholesky_decomp_unit" "', argument " "2"" of type '" "gsl_vector *""'");
7022 }
7023 arg2 = (gsl_vector *)(argp2);
7024 result = (int)gsl_linalg_cholesky_decomp_unit(arg1,arg2);
7025 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7026
7027
7028 XSRETURN(argvi);
7029 fail:
7030
7031
7032 SWIG_croak_null();
7033 }
7034 }
7035
7036
XS(_wrap_gsl_linalg_complex_cholesky_decomp)7037 XS(_wrap_gsl_linalg_complex_cholesky_decomp) {
7038 {
7039 gsl_matrix_complex *arg1 = (gsl_matrix_complex *) 0 ;
7040 void *argp1 = 0 ;
7041 int res1 = 0 ;
7042 int argvi = 0;
7043 int result;
7044 dXSARGS;
7045
7046 if ((items < 1) || (items > 1)) {
7047 SWIG_croak("Usage: gsl_linalg_complex_cholesky_decomp(A);");
7048 }
7049 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
7050 if (!SWIG_IsOK(res1)) {
7051 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_complex_cholesky_decomp" "', argument " "1"" of type '" "gsl_matrix_complex *""'");
7052 }
7053 arg1 = (gsl_matrix_complex *)(argp1);
7054 result = (int)gsl_linalg_complex_cholesky_decomp(arg1);
7055 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7056
7057 XSRETURN(argvi);
7058 fail:
7059
7060 SWIG_croak_null();
7061 }
7062 }
7063
7064
XS(_wrap_gsl_linalg_complex_cholesky_solve)7065 XS(_wrap_gsl_linalg_complex_cholesky_solve) {
7066 {
7067 gsl_matrix_complex *arg1 = (gsl_matrix_complex *) 0 ;
7068 gsl_vector_complex *arg2 = (gsl_vector_complex *) 0 ;
7069 gsl_vector_complex *arg3 = (gsl_vector_complex *) 0 ;
7070 void *argp1 = 0 ;
7071 int res1 = 0 ;
7072 void *argp2 = 0 ;
7073 int res2 = 0 ;
7074 void *argp3 = 0 ;
7075 int res3 = 0 ;
7076 int argvi = 0;
7077 int result;
7078 dXSARGS;
7079
7080 if ((items < 3) || (items > 3)) {
7081 SWIG_croak("Usage: gsl_linalg_complex_cholesky_solve(cholesky,b,x);");
7082 }
7083 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
7084 if (!SWIG_IsOK(res1)) {
7085 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_complex_cholesky_solve" "', argument " "1"" of type '" "gsl_matrix_complex const *""'");
7086 }
7087 arg1 = (gsl_matrix_complex *)(argp1);
7088 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
7089 if (!SWIG_IsOK(res2)) {
7090 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_complex_cholesky_solve" "', argument " "2"" of type '" "gsl_vector_complex const *""'");
7091 }
7092 arg2 = (gsl_vector_complex *)(argp2);
7093 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
7094 if (!SWIG_IsOK(res3)) {
7095 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_complex_cholesky_solve" "', argument " "3"" of type '" "gsl_vector_complex *""'");
7096 }
7097 arg3 = (gsl_vector_complex *)(argp3);
7098 result = (int)gsl_linalg_complex_cholesky_solve((gsl_matrix_complex const *)arg1,(gsl_vector_complex const *)arg2,arg3);
7099 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7100
7101
7102
7103 XSRETURN(argvi);
7104 fail:
7105
7106
7107
7108 SWIG_croak_null();
7109 }
7110 }
7111
7112
XS(_wrap_gsl_linalg_complex_cholesky_svx)7113 XS(_wrap_gsl_linalg_complex_cholesky_svx) {
7114 {
7115 gsl_matrix_complex *arg1 = (gsl_matrix_complex *) 0 ;
7116 gsl_vector_complex *arg2 = (gsl_vector_complex *) 0 ;
7117 void *argp1 = 0 ;
7118 int res1 = 0 ;
7119 void *argp2 = 0 ;
7120 int res2 = 0 ;
7121 int argvi = 0;
7122 int result;
7123 dXSARGS;
7124
7125 if ((items < 2) || (items > 2)) {
7126 SWIG_croak("Usage: gsl_linalg_complex_cholesky_svx(cholesky,x);");
7127 }
7128 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
7129 if (!SWIG_IsOK(res1)) {
7130 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_complex_cholesky_svx" "', argument " "1"" of type '" "gsl_matrix_complex const *""'");
7131 }
7132 arg1 = (gsl_matrix_complex *)(argp1);
7133 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
7134 if (!SWIG_IsOK(res2)) {
7135 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_complex_cholesky_svx" "', argument " "2"" of type '" "gsl_vector_complex *""'");
7136 }
7137 arg2 = (gsl_vector_complex *)(argp2);
7138 result = (int)gsl_linalg_complex_cholesky_svx((gsl_matrix_complex const *)arg1,arg2);
7139 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7140
7141
7142 XSRETURN(argvi);
7143 fail:
7144
7145
7146 SWIG_croak_null();
7147 }
7148 }
7149
7150
XS(_wrap_gsl_linalg_complex_cholesky_invert)7151 XS(_wrap_gsl_linalg_complex_cholesky_invert) {
7152 {
7153 gsl_matrix_complex *arg1 = (gsl_matrix_complex *) 0 ;
7154 void *argp1 = 0 ;
7155 int res1 = 0 ;
7156 int argvi = 0;
7157 int result;
7158 dXSARGS;
7159
7160 if ((items < 1) || (items > 1)) {
7161 SWIG_croak("Usage: gsl_linalg_complex_cholesky_invert(cholesky);");
7162 }
7163 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
7164 if (!SWIG_IsOK(res1)) {
7165 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_complex_cholesky_invert" "', argument " "1"" of type '" "gsl_matrix_complex *""'");
7166 }
7167 arg1 = (gsl_matrix_complex *)(argp1);
7168 result = (int)gsl_linalg_complex_cholesky_invert(arg1);
7169 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7170
7171 XSRETURN(argvi);
7172 fail:
7173
7174 SWIG_croak_null();
7175 }
7176 }
7177
7178
XS(_wrap_gsl_linalg_symmtd_decomp)7179 XS(_wrap_gsl_linalg_symmtd_decomp) {
7180 {
7181 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
7182 gsl_vector *arg2 = (gsl_vector *) 0 ;
7183 void *argp1 = 0 ;
7184 int res1 = 0 ;
7185 void *argp2 = 0 ;
7186 int res2 = 0 ;
7187 int argvi = 0;
7188 int result;
7189 dXSARGS;
7190
7191 if ((items < 2) || (items > 2)) {
7192 SWIG_croak("Usage: gsl_linalg_symmtd_decomp(A,tau);");
7193 }
7194 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7195 if (!SWIG_IsOK(res1)) {
7196 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_symmtd_decomp" "', argument " "1"" of type '" "gsl_matrix *""'");
7197 }
7198 arg1 = (gsl_matrix *)(argp1);
7199 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
7200 if (!SWIG_IsOK(res2)) {
7201 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_symmtd_decomp" "', argument " "2"" of type '" "gsl_vector *""'");
7202 }
7203 arg2 = (gsl_vector *)(argp2);
7204 result = (int)gsl_linalg_symmtd_decomp(arg1,arg2);
7205 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7206
7207
7208 XSRETURN(argvi);
7209 fail:
7210
7211
7212 SWIG_croak_null();
7213 }
7214 }
7215
7216
XS(_wrap_gsl_linalg_symmtd_unpack)7217 XS(_wrap_gsl_linalg_symmtd_unpack) {
7218 {
7219 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
7220 gsl_vector *arg2 = (gsl_vector *) 0 ;
7221 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
7222 gsl_vector *arg4 = (gsl_vector *) 0 ;
7223 gsl_vector *arg5 = (gsl_vector *) 0 ;
7224 void *argp1 = 0 ;
7225 int res1 = 0 ;
7226 void *argp2 = 0 ;
7227 int res2 = 0 ;
7228 void *argp3 = 0 ;
7229 int res3 = 0 ;
7230 void *argp4 = 0 ;
7231 int res4 = 0 ;
7232 void *argp5 = 0 ;
7233 int res5 = 0 ;
7234 int argvi = 0;
7235 int result;
7236 dXSARGS;
7237
7238 if ((items < 5) || (items > 5)) {
7239 SWIG_croak("Usage: gsl_linalg_symmtd_unpack(A,tau,Q,diag,subdiag);");
7240 }
7241 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7242 if (!SWIG_IsOK(res1)) {
7243 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_symmtd_unpack" "', argument " "1"" of type '" "gsl_matrix const *""'");
7244 }
7245 arg1 = (gsl_matrix *)(argp1);
7246 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
7247 if (!SWIG_IsOK(res2)) {
7248 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_symmtd_unpack" "', argument " "2"" of type '" "gsl_vector const *""'");
7249 }
7250 arg2 = (gsl_vector *)(argp2);
7251 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7252 if (!SWIG_IsOK(res3)) {
7253 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_symmtd_unpack" "', argument " "3"" of type '" "gsl_matrix *""'");
7254 }
7255 arg3 = (gsl_matrix *)(argp3);
7256 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
7257 if (!SWIG_IsOK(res4)) {
7258 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_symmtd_unpack" "', argument " "4"" of type '" "gsl_vector *""'");
7259 }
7260 arg4 = (gsl_vector *)(argp4);
7261 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
7262 if (!SWIG_IsOK(res5)) {
7263 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_symmtd_unpack" "', argument " "5"" of type '" "gsl_vector *""'");
7264 }
7265 arg5 = (gsl_vector *)(argp5);
7266 result = (int)gsl_linalg_symmtd_unpack((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3,arg4,arg5);
7267 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7268
7269
7270
7271
7272
7273 XSRETURN(argvi);
7274 fail:
7275
7276
7277
7278
7279
7280 SWIG_croak_null();
7281 }
7282 }
7283
7284
XS(_wrap_gsl_linalg_symmtd_unpack_T)7285 XS(_wrap_gsl_linalg_symmtd_unpack_T) {
7286 {
7287 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
7288 gsl_vector *arg2 = (gsl_vector *) 0 ;
7289 gsl_vector *arg3 = (gsl_vector *) 0 ;
7290 void *argp1 = 0 ;
7291 int res1 = 0 ;
7292 void *argp2 = 0 ;
7293 int res2 = 0 ;
7294 void *argp3 = 0 ;
7295 int res3 = 0 ;
7296 int argvi = 0;
7297 int result;
7298 dXSARGS;
7299
7300 if ((items < 3) || (items > 3)) {
7301 SWIG_croak("Usage: gsl_linalg_symmtd_unpack_T(A,diag,subdiag);");
7302 }
7303 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7304 if (!SWIG_IsOK(res1)) {
7305 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_symmtd_unpack_T" "', argument " "1"" of type '" "gsl_matrix const *""'");
7306 }
7307 arg1 = (gsl_matrix *)(argp1);
7308 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
7309 if (!SWIG_IsOK(res2)) {
7310 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_symmtd_unpack_T" "', argument " "2"" of type '" "gsl_vector *""'");
7311 }
7312 arg2 = (gsl_vector *)(argp2);
7313 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
7314 if (!SWIG_IsOK(res3)) {
7315 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_symmtd_unpack_T" "', argument " "3"" of type '" "gsl_vector *""'");
7316 }
7317 arg3 = (gsl_vector *)(argp3);
7318 result = (int)gsl_linalg_symmtd_unpack_T((gsl_matrix const *)arg1,arg2,arg3);
7319 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7320
7321
7322
7323 XSRETURN(argvi);
7324 fail:
7325
7326
7327
7328 SWIG_croak_null();
7329 }
7330 }
7331
7332
XS(_wrap_gsl_linalg_hermtd_decomp)7333 XS(_wrap_gsl_linalg_hermtd_decomp) {
7334 {
7335 gsl_matrix_complex *arg1 = (gsl_matrix_complex *) 0 ;
7336 gsl_vector_complex *arg2 = (gsl_vector_complex *) 0 ;
7337 void *argp1 = 0 ;
7338 int res1 = 0 ;
7339 void *argp2 = 0 ;
7340 int res2 = 0 ;
7341 int argvi = 0;
7342 int result;
7343 dXSARGS;
7344
7345 if ((items < 2) || (items > 2)) {
7346 SWIG_croak("Usage: gsl_linalg_hermtd_decomp(A,tau);");
7347 }
7348 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
7349 if (!SWIG_IsOK(res1)) {
7350 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_hermtd_decomp" "', argument " "1"" of type '" "gsl_matrix_complex *""'");
7351 }
7352 arg1 = (gsl_matrix_complex *)(argp1);
7353 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
7354 if (!SWIG_IsOK(res2)) {
7355 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_hermtd_decomp" "', argument " "2"" of type '" "gsl_vector_complex *""'");
7356 }
7357 arg2 = (gsl_vector_complex *)(argp2);
7358 result = (int)gsl_linalg_hermtd_decomp(arg1,arg2);
7359 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7360
7361
7362 XSRETURN(argvi);
7363 fail:
7364
7365
7366 SWIG_croak_null();
7367 }
7368 }
7369
7370
XS(_wrap_gsl_linalg_hermtd_unpack)7371 XS(_wrap_gsl_linalg_hermtd_unpack) {
7372 {
7373 gsl_matrix_complex *arg1 = (gsl_matrix_complex *) 0 ;
7374 gsl_vector_complex *arg2 = (gsl_vector_complex *) 0 ;
7375 gsl_matrix_complex *arg3 = (gsl_matrix_complex *) 0 ;
7376 gsl_vector *arg4 = (gsl_vector *) 0 ;
7377 gsl_vector *arg5 = (gsl_vector *) 0 ;
7378 void *argp1 = 0 ;
7379 int res1 = 0 ;
7380 void *argp2 = 0 ;
7381 int res2 = 0 ;
7382 void *argp3 = 0 ;
7383 int res3 = 0 ;
7384 void *argp4 = 0 ;
7385 int res4 = 0 ;
7386 void *argp5 = 0 ;
7387 int res5 = 0 ;
7388 int argvi = 0;
7389 int result;
7390 dXSARGS;
7391
7392 if ((items < 5) || (items > 5)) {
7393 SWIG_croak("Usage: gsl_linalg_hermtd_unpack(A,tau,U,diag,sudiag);");
7394 }
7395 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
7396 if (!SWIG_IsOK(res1)) {
7397 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_hermtd_unpack" "', argument " "1"" of type '" "gsl_matrix_complex const *""'");
7398 }
7399 arg1 = (gsl_matrix_complex *)(argp1);
7400 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
7401 if (!SWIG_IsOK(res2)) {
7402 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_hermtd_unpack" "', argument " "2"" of type '" "gsl_vector_complex const *""'");
7403 }
7404 arg2 = (gsl_vector_complex *)(argp2);
7405 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
7406 if (!SWIG_IsOK(res3)) {
7407 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_hermtd_unpack" "', argument " "3"" of type '" "gsl_matrix_complex *""'");
7408 }
7409 arg3 = (gsl_matrix_complex *)(argp3);
7410 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
7411 if (!SWIG_IsOK(res4)) {
7412 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_hermtd_unpack" "', argument " "4"" of type '" "gsl_vector *""'");
7413 }
7414 arg4 = (gsl_vector *)(argp4);
7415 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
7416 if (!SWIG_IsOK(res5)) {
7417 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_hermtd_unpack" "', argument " "5"" of type '" "gsl_vector *""'");
7418 }
7419 arg5 = (gsl_vector *)(argp5);
7420 result = (int)gsl_linalg_hermtd_unpack((gsl_matrix_complex const *)arg1,(gsl_vector_complex const *)arg2,arg3,arg4,arg5);
7421 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7422
7423
7424
7425
7426
7427 XSRETURN(argvi);
7428 fail:
7429
7430
7431
7432
7433
7434 SWIG_croak_null();
7435 }
7436 }
7437
7438
XS(_wrap_gsl_linalg_hermtd_unpack_T)7439 XS(_wrap_gsl_linalg_hermtd_unpack_T) {
7440 {
7441 gsl_matrix_complex *arg1 = (gsl_matrix_complex *) 0 ;
7442 gsl_vector *arg2 = (gsl_vector *) 0 ;
7443 gsl_vector *arg3 = (gsl_vector *) 0 ;
7444 void *argp1 = 0 ;
7445 int res1 = 0 ;
7446 void *argp2 = 0 ;
7447 int res2 = 0 ;
7448 void *argp3 = 0 ;
7449 int res3 = 0 ;
7450 int argvi = 0;
7451 int result;
7452 dXSARGS;
7453
7454 if ((items < 3) || (items > 3)) {
7455 SWIG_croak("Usage: gsl_linalg_hermtd_unpack_T(A,diag,subdiag);");
7456 }
7457 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
7458 if (!SWIG_IsOK(res1)) {
7459 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_hermtd_unpack_T" "', argument " "1"" of type '" "gsl_matrix_complex const *""'");
7460 }
7461 arg1 = (gsl_matrix_complex *)(argp1);
7462 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
7463 if (!SWIG_IsOK(res2)) {
7464 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_hermtd_unpack_T" "', argument " "2"" of type '" "gsl_vector *""'");
7465 }
7466 arg2 = (gsl_vector *)(argp2);
7467 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
7468 if (!SWIG_IsOK(res3)) {
7469 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_hermtd_unpack_T" "', argument " "3"" of type '" "gsl_vector *""'");
7470 }
7471 arg3 = (gsl_vector *)(argp3);
7472 result = (int)gsl_linalg_hermtd_unpack_T((gsl_matrix_complex const *)arg1,arg2,arg3);
7473 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7474
7475
7476
7477 XSRETURN(argvi);
7478 fail:
7479
7480
7481
7482 SWIG_croak_null();
7483 }
7484 }
7485
7486
XS(_wrap_gsl_linalg_HH_solve)7487 XS(_wrap_gsl_linalg_HH_solve) {
7488 {
7489 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
7490 gsl_vector *arg2 = (gsl_vector *) 0 ;
7491 gsl_vector *arg3 = (gsl_vector *) 0 ;
7492 void *argp1 = 0 ;
7493 int res1 = 0 ;
7494 void *argp2 = 0 ;
7495 int res2 = 0 ;
7496 void *argp3 = 0 ;
7497 int res3 = 0 ;
7498 int argvi = 0;
7499 int result;
7500 dXSARGS;
7501
7502 if ((items < 3) || (items > 3)) {
7503 SWIG_croak("Usage: gsl_linalg_HH_solve(A,b,x);");
7504 }
7505 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7506 if (!SWIG_IsOK(res1)) {
7507 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_HH_solve" "', argument " "1"" of type '" "gsl_matrix *""'");
7508 }
7509 arg1 = (gsl_matrix *)(argp1);
7510 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
7511 if (!SWIG_IsOK(res2)) {
7512 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_HH_solve" "', argument " "2"" of type '" "gsl_vector const *""'");
7513 }
7514 arg2 = (gsl_vector *)(argp2);
7515 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
7516 if (!SWIG_IsOK(res3)) {
7517 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_HH_solve" "', argument " "3"" of type '" "gsl_vector *""'");
7518 }
7519 arg3 = (gsl_vector *)(argp3);
7520 result = (int)gsl_linalg_HH_solve(arg1,(gsl_vector const *)arg2,arg3);
7521 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7522
7523
7524
7525 XSRETURN(argvi);
7526 fail:
7527
7528
7529
7530 SWIG_croak_null();
7531 }
7532 }
7533
7534
XS(_wrap_gsl_linalg_HH_svx)7535 XS(_wrap_gsl_linalg_HH_svx) {
7536 {
7537 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
7538 gsl_vector *arg2 = (gsl_vector *) 0 ;
7539 void *argp1 = 0 ;
7540 int res1 = 0 ;
7541 void *argp2 = 0 ;
7542 int res2 = 0 ;
7543 int argvi = 0;
7544 int result;
7545 dXSARGS;
7546
7547 if ((items < 2) || (items > 2)) {
7548 SWIG_croak("Usage: gsl_linalg_HH_svx(A,x);");
7549 }
7550 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7551 if (!SWIG_IsOK(res1)) {
7552 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_HH_svx" "', argument " "1"" of type '" "gsl_matrix *""'");
7553 }
7554 arg1 = (gsl_matrix *)(argp1);
7555 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
7556 if (!SWIG_IsOK(res2)) {
7557 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_HH_svx" "', argument " "2"" of type '" "gsl_vector *""'");
7558 }
7559 arg2 = (gsl_vector *)(argp2);
7560 result = (int)gsl_linalg_HH_svx(arg1,arg2);
7561 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7562
7563
7564 XSRETURN(argvi);
7565 fail:
7566
7567
7568 SWIG_croak_null();
7569 }
7570 }
7571
7572
XS(_wrap_gsl_linalg_solve_symm_tridiag)7573 XS(_wrap_gsl_linalg_solve_symm_tridiag) {
7574 {
7575 gsl_vector *arg1 = (gsl_vector *) 0 ;
7576 gsl_vector *arg2 = (gsl_vector *) 0 ;
7577 gsl_vector *arg3 = (gsl_vector *) 0 ;
7578 gsl_vector *arg4 = (gsl_vector *) 0 ;
7579 void *argp1 = 0 ;
7580 int res1 = 0 ;
7581 void *argp2 = 0 ;
7582 int res2 = 0 ;
7583 void *argp3 = 0 ;
7584 int res3 = 0 ;
7585 void *argp4 = 0 ;
7586 int res4 = 0 ;
7587 int argvi = 0;
7588 int result;
7589 dXSARGS;
7590
7591 if ((items < 4) || (items > 4)) {
7592 SWIG_croak("Usage: gsl_linalg_solve_symm_tridiag(diag,offdiag,b,x);");
7593 }
7594 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
7595 if (!SWIG_IsOK(res1)) {
7596 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_solve_symm_tridiag" "', argument " "1"" of type '" "gsl_vector const *""'");
7597 }
7598 arg1 = (gsl_vector *)(argp1);
7599 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
7600 if (!SWIG_IsOK(res2)) {
7601 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_solve_symm_tridiag" "', argument " "2"" of type '" "gsl_vector const *""'");
7602 }
7603 arg2 = (gsl_vector *)(argp2);
7604 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
7605 if (!SWIG_IsOK(res3)) {
7606 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_solve_symm_tridiag" "', argument " "3"" of type '" "gsl_vector const *""'");
7607 }
7608 arg3 = (gsl_vector *)(argp3);
7609 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
7610 if (!SWIG_IsOK(res4)) {
7611 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_solve_symm_tridiag" "', argument " "4"" of type '" "gsl_vector *""'");
7612 }
7613 arg4 = (gsl_vector *)(argp4);
7614 result = (int)gsl_linalg_solve_symm_tridiag((gsl_vector const *)arg1,(gsl_vector const *)arg2,(gsl_vector const *)arg3,arg4);
7615 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7616
7617
7618
7619
7620 XSRETURN(argvi);
7621 fail:
7622
7623
7624
7625
7626 SWIG_croak_null();
7627 }
7628 }
7629
7630
XS(_wrap_gsl_linalg_solve_tridiag)7631 XS(_wrap_gsl_linalg_solve_tridiag) {
7632 {
7633 gsl_vector *arg1 = (gsl_vector *) 0 ;
7634 gsl_vector *arg2 = (gsl_vector *) 0 ;
7635 gsl_vector *arg3 = (gsl_vector *) 0 ;
7636 gsl_vector *arg4 = (gsl_vector *) 0 ;
7637 gsl_vector *arg5 = (gsl_vector *) 0 ;
7638 void *argp1 = 0 ;
7639 int res1 = 0 ;
7640 void *argp2 = 0 ;
7641 int res2 = 0 ;
7642 void *argp3 = 0 ;
7643 int res3 = 0 ;
7644 void *argp4 = 0 ;
7645 int res4 = 0 ;
7646 void *argp5 = 0 ;
7647 int res5 = 0 ;
7648 int argvi = 0;
7649 int result;
7650 dXSARGS;
7651
7652 if ((items < 5) || (items > 5)) {
7653 SWIG_croak("Usage: gsl_linalg_solve_tridiag(diag,abovediag,belowdiag,b,x);");
7654 }
7655 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
7656 if (!SWIG_IsOK(res1)) {
7657 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_solve_tridiag" "', argument " "1"" of type '" "gsl_vector const *""'");
7658 }
7659 arg1 = (gsl_vector *)(argp1);
7660 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
7661 if (!SWIG_IsOK(res2)) {
7662 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_solve_tridiag" "', argument " "2"" of type '" "gsl_vector const *""'");
7663 }
7664 arg2 = (gsl_vector *)(argp2);
7665 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
7666 if (!SWIG_IsOK(res3)) {
7667 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_solve_tridiag" "', argument " "3"" of type '" "gsl_vector const *""'");
7668 }
7669 arg3 = (gsl_vector *)(argp3);
7670 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
7671 if (!SWIG_IsOK(res4)) {
7672 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_solve_tridiag" "', argument " "4"" of type '" "gsl_vector const *""'");
7673 }
7674 arg4 = (gsl_vector *)(argp4);
7675 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
7676 if (!SWIG_IsOK(res5)) {
7677 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_solve_tridiag" "', argument " "5"" of type '" "gsl_vector *""'");
7678 }
7679 arg5 = (gsl_vector *)(argp5);
7680 result = (int)gsl_linalg_solve_tridiag((gsl_vector const *)arg1,(gsl_vector const *)arg2,(gsl_vector const *)arg3,(gsl_vector const *)arg4,arg5);
7681 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7682
7683
7684
7685
7686
7687 XSRETURN(argvi);
7688 fail:
7689
7690
7691
7692
7693
7694 SWIG_croak_null();
7695 }
7696 }
7697
7698
XS(_wrap_gsl_linalg_solve_symm_cyc_tridiag)7699 XS(_wrap_gsl_linalg_solve_symm_cyc_tridiag) {
7700 {
7701 gsl_vector *arg1 = (gsl_vector *) 0 ;
7702 gsl_vector *arg2 = (gsl_vector *) 0 ;
7703 gsl_vector *arg3 = (gsl_vector *) 0 ;
7704 gsl_vector *arg4 = (gsl_vector *) 0 ;
7705 void *argp1 = 0 ;
7706 int res1 = 0 ;
7707 void *argp2 = 0 ;
7708 int res2 = 0 ;
7709 void *argp3 = 0 ;
7710 int res3 = 0 ;
7711 void *argp4 = 0 ;
7712 int res4 = 0 ;
7713 int argvi = 0;
7714 int result;
7715 dXSARGS;
7716
7717 if ((items < 4) || (items > 4)) {
7718 SWIG_croak("Usage: gsl_linalg_solve_symm_cyc_tridiag(diag,offdiag,b,x);");
7719 }
7720 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
7721 if (!SWIG_IsOK(res1)) {
7722 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_solve_symm_cyc_tridiag" "', argument " "1"" of type '" "gsl_vector const *""'");
7723 }
7724 arg1 = (gsl_vector *)(argp1);
7725 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
7726 if (!SWIG_IsOK(res2)) {
7727 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_solve_symm_cyc_tridiag" "', argument " "2"" of type '" "gsl_vector const *""'");
7728 }
7729 arg2 = (gsl_vector *)(argp2);
7730 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
7731 if (!SWIG_IsOK(res3)) {
7732 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_solve_symm_cyc_tridiag" "', argument " "3"" of type '" "gsl_vector const *""'");
7733 }
7734 arg3 = (gsl_vector *)(argp3);
7735 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
7736 if (!SWIG_IsOK(res4)) {
7737 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_solve_symm_cyc_tridiag" "', argument " "4"" of type '" "gsl_vector *""'");
7738 }
7739 arg4 = (gsl_vector *)(argp4);
7740 result = (int)gsl_linalg_solve_symm_cyc_tridiag((gsl_vector const *)arg1,(gsl_vector const *)arg2,(gsl_vector const *)arg3,arg4);
7741 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7742
7743
7744
7745
7746 XSRETURN(argvi);
7747 fail:
7748
7749
7750
7751
7752 SWIG_croak_null();
7753 }
7754 }
7755
7756
XS(_wrap_gsl_linalg_solve_cyc_tridiag)7757 XS(_wrap_gsl_linalg_solve_cyc_tridiag) {
7758 {
7759 gsl_vector *arg1 = (gsl_vector *) 0 ;
7760 gsl_vector *arg2 = (gsl_vector *) 0 ;
7761 gsl_vector *arg3 = (gsl_vector *) 0 ;
7762 gsl_vector *arg4 = (gsl_vector *) 0 ;
7763 gsl_vector *arg5 = (gsl_vector *) 0 ;
7764 void *argp1 = 0 ;
7765 int res1 = 0 ;
7766 void *argp2 = 0 ;
7767 int res2 = 0 ;
7768 void *argp3 = 0 ;
7769 int res3 = 0 ;
7770 void *argp4 = 0 ;
7771 int res4 = 0 ;
7772 void *argp5 = 0 ;
7773 int res5 = 0 ;
7774 int argvi = 0;
7775 int result;
7776 dXSARGS;
7777
7778 if ((items < 5) || (items > 5)) {
7779 SWIG_croak("Usage: gsl_linalg_solve_cyc_tridiag(diag,abovediag,belowdiag,b,x);");
7780 }
7781 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
7782 if (!SWIG_IsOK(res1)) {
7783 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_solve_cyc_tridiag" "', argument " "1"" of type '" "gsl_vector const *""'");
7784 }
7785 arg1 = (gsl_vector *)(argp1);
7786 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
7787 if (!SWIG_IsOK(res2)) {
7788 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_solve_cyc_tridiag" "', argument " "2"" of type '" "gsl_vector const *""'");
7789 }
7790 arg2 = (gsl_vector *)(argp2);
7791 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
7792 if (!SWIG_IsOK(res3)) {
7793 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_solve_cyc_tridiag" "', argument " "3"" of type '" "gsl_vector const *""'");
7794 }
7795 arg3 = (gsl_vector *)(argp3);
7796 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
7797 if (!SWIG_IsOK(res4)) {
7798 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_solve_cyc_tridiag" "', argument " "4"" of type '" "gsl_vector const *""'");
7799 }
7800 arg4 = (gsl_vector *)(argp4);
7801 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
7802 if (!SWIG_IsOK(res5)) {
7803 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_solve_cyc_tridiag" "', argument " "5"" of type '" "gsl_vector *""'");
7804 }
7805 arg5 = (gsl_vector *)(argp5);
7806 result = (int)gsl_linalg_solve_cyc_tridiag((gsl_vector const *)arg1,(gsl_vector const *)arg2,(gsl_vector const *)arg3,(gsl_vector const *)arg4,arg5);
7807 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7808
7809
7810
7811
7812
7813 XSRETURN(argvi);
7814 fail:
7815
7816
7817
7818
7819
7820 SWIG_croak_null();
7821 }
7822 }
7823
7824
XS(_wrap_gsl_linalg_bidiag_decomp)7825 XS(_wrap_gsl_linalg_bidiag_decomp) {
7826 {
7827 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
7828 gsl_vector *arg2 = (gsl_vector *) 0 ;
7829 gsl_vector *arg3 = (gsl_vector *) 0 ;
7830 void *argp1 = 0 ;
7831 int res1 = 0 ;
7832 void *argp2 = 0 ;
7833 int res2 = 0 ;
7834 void *argp3 = 0 ;
7835 int res3 = 0 ;
7836 int argvi = 0;
7837 int result;
7838 dXSARGS;
7839
7840 if ((items < 3) || (items > 3)) {
7841 SWIG_croak("Usage: gsl_linalg_bidiag_decomp(A,tau_U,tau_V);");
7842 }
7843 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7844 if (!SWIG_IsOK(res1)) {
7845 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_bidiag_decomp" "', argument " "1"" of type '" "gsl_matrix *""'");
7846 }
7847 arg1 = (gsl_matrix *)(argp1);
7848 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
7849 if (!SWIG_IsOK(res2)) {
7850 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_bidiag_decomp" "', argument " "2"" of type '" "gsl_vector *""'");
7851 }
7852 arg2 = (gsl_vector *)(argp2);
7853 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
7854 if (!SWIG_IsOK(res3)) {
7855 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_bidiag_decomp" "', argument " "3"" of type '" "gsl_vector *""'");
7856 }
7857 arg3 = (gsl_vector *)(argp3);
7858 result = (int)gsl_linalg_bidiag_decomp(arg1,arg2,arg3);
7859 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7860
7861
7862
7863 XSRETURN(argvi);
7864 fail:
7865
7866
7867
7868 SWIG_croak_null();
7869 }
7870 }
7871
7872
XS(_wrap_gsl_linalg_bidiag_unpack)7873 XS(_wrap_gsl_linalg_bidiag_unpack) {
7874 {
7875 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
7876 gsl_vector *arg2 = (gsl_vector *) 0 ;
7877 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
7878 gsl_vector *arg4 = (gsl_vector *) 0 ;
7879 gsl_matrix *arg5 = (gsl_matrix *) 0 ;
7880 gsl_vector *arg6 = (gsl_vector *) 0 ;
7881 gsl_vector *arg7 = (gsl_vector *) 0 ;
7882 void *argp1 = 0 ;
7883 int res1 = 0 ;
7884 void *argp2 = 0 ;
7885 int res2 = 0 ;
7886 void *argp3 = 0 ;
7887 int res3 = 0 ;
7888 void *argp4 = 0 ;
7889 int res4 = 0 ;
7890 void *argp5 = 0 ;
7891 int res5 = 0 ;
7892 void *argp6 = 0 ;
7893 int res6 = 0 ;
7894 void *argp7 = 0 ;
7895 int res7 = 0 ;
7896 int argvi = 0;
7897 int result;
7898 dXSARGS;
7899
7900 if ((items < 7) || (items > 7)) {
7901 SWIG_croak("Usage: gsl_linalg_bidiag_unpack(A,tau_U,U,tau_V,V,diag,superdiag);");
7902 }
7903 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7904 if (!SWIG_IsOK(res1)) {
7905 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_bidiag_unpack" "', argument " "1"" of type '" "gsl_matrix const *""'");
7906 }
7907 arg1 = (gsl_matrix *)(argp1);
7908 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
7909 if (!SWIG_IsOK(res2)) {
7910 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_bidiag_unpack" "', argument " "2"" of type '" "gsl_vector const *""'");
7911 }
7912 arg2 = (gsl_vector *)(argp2);
7913 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7914 if (!SWIG_IsOK(res3)) {
7915 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_bidiag_unpack" "', argument " "3"" of type '" "gsl_matrix *""'");
7916 }
7917 arg3 = (gsl_matrix *)(argp3);
7918 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
7919 if (!SWIG_IsOK(res4)) {
7920 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_bidiag_unpack" "', argument " "4"" of type '" "gsl_vector const *""'");
7921 }
7922 arg4 = (gsl_vector *)(argp4);
7923 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7924 if (!SWIG_IsOK(res5)) {
7925 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_bidiag_unpack" "', argument " "5"" of type '" "gsl_matrix *""'");
7926 }
7927 arg5 = (gsl_matrix *)(argp5);
7928 res6 = SWIG_ConvertPtr(ST(5), &argp6,SWIGTYPE_p_gsl_vector, 0 | 0 );
7929 if (!SWIG_IsOK(res6)) {
7930 SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_linalg_bidiag_unpack" "', argument " "6"" of type '" "gsl_vector *""'");
7931 }
7932 arg6 = (gsl_vector *)(argp6);
7933 res7 = SWIG_ConvertPtr(ST(6), &argp7,SWIGTYPE_p_gsl_vector, 0 | 0 );
7934 if (!SWIG_IsOK(res7)) {
7935 SWIG_exception_fail(SWIG_ArgError(res7), "in method '" "gsl_linalg_bidiag_unpack" "', argument " "7"" of type '" "gsl_vector *""'");
7936 }
7937 arg7 = (gsl_vector *)(argp7);
7938 result = (int)gsl_linalg_bidiag_unpack((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3,(gsl_vector const *)arg4,arg5,arg6,arg7);
7939 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7940
7941
7942
7943
7944
7945
7946
7947 XSRETURN(argvi);
7948 fail:
7949
7950
7951
7952
7953
7954
7955
7956 SWIG_croak_null();
7957 }
7958 }
7959
7960
XS(_wrap_gsl_linalg_bidiag_unpack2)7961 XS(_wrap_gsl_linalg_bidiag_unpack2) {
7962 {
7963 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
7964 gsl_vector *arg2 = (gsl_vector *) 0 ;
7965 gsl_vector *arg3 = (gsl_vector *) 0 ;
7966 gsl_matrix *arg4 = (gsl_matrix *) 0 ;
7967 void *argp1 = 0 ;
7968 int res1 = 0 ;
7969 void *argp2 = 0 ;
7970 int res2 = 0 ;
7971 void *argp3 = 0 ;
7972 int res3 = 0 ;
7973 void *argp4 = 0 ;
7974 int res4 = 0 ;
7975 int argvi = 0;
7976 int result;
7977 dXSARGS;
7978
7979 if ((items < 4) || (items > 4)) {
7980 SWIG_croak("Usage: gsl_linalg_bidiag_unpack2(A,tau_U,tau_V,V);");
7981 }
7982 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7983 if (!SWIG_IsOK(res1)) {
7984 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_bidiag_unpack2" "', argument " "1"" of type '" "gsl_matrix *""'");
7985 }
7986 arg1 = (gsl_matrix *)(argp1);
7987 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
7988 if (!SWIG_IsOK(res2)) {
7989 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_bidiag_unpack2" "', argument " "2"" of type '" "gsl_vector *""'");
7990 }
7991 arg2 = (gsl_vector *)(argp2);
7992 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
7993 if (!SWIG_IsOK(res3)) {
7994 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_bidiag_unpack2" "', argument " "3"" of type '" "gsl_vector *""'");
7995 }
7996 arg3 = (gsl_vector *)(argp3);
7997 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7998 if (!SWIG_IsOK(res4)) {
7999 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_bidiag_unpack2" "', argument " "4"" of type '" "gsl_matrix *""'");
8000 }
8001 arg4 = (gsl_matrix *)(argp4);
8002 result = (int)gsl_linalg_bidiag_unpack2(arg1,arg2,arg3,arg4);
8003 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8004
8005
8006
8007
8008 XSRETURN(argvi);
8009 fail:
8010
8011
8012
8013
8014 SWIG_croak_null();
8015 }
8016 }
8017
8018
XS(_wrap_gsl_linalg_bidiag_unpack_B)8019 XS(_wrap_gsl_linalg_bidiag_unpack_B) {
8020 {
8021 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
8022 gsl_vector *arg2 = (gsl_vector *) 0 ;
8023 gsl_vector *arg3 = (gsl_vector *) 0 ;
8024 void *argp1 = 0 ;
8025 int res1 = 0 ;
8026 void *argp2 = 0 ;
8027 int res2 = 0 ;
8028 void *argp3 = 0 ;
8029 int res3 = 0 ;
8030 int argvi = 0;
8031 int result;
8032 dXSARGS;
8033
8034 if ((items < 3) || (items > 3)) {
8035 SWIG_croak("Usage: gsl_linalg_bidiag_unpack_B(A,diag,superdiag);");
8036 }
8037 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
8038 if (!SWIG_IsOK(res1)) {
8039 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_bidiag_unpack_B" "', argument " "1"" of type '" "gsl_matrix const *""'");
8040 }
8041 arg1 = (gsl_matrix *)(argp1);
8042 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
8043 if (!SWIG_IsOK(res2)) {
8044 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_bidiag_unpack_B" "', argument " "2"" of type '" "gsl_vector *""'");
8045 }
8046 arg2 = (gsl_vector *)(argp2);
8047 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
8048 if (!SWIG_IsOK(res3)) {
8049 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_bidiag_unpack_B" "', argument " "3"" of type '" "gsl_vector *""'");
8050 }
8051 arg3 = (gsl_vector *)(argp3);
8052 result = (int)gsl_linalg_bidiag_unpack_B((gsl_matrix const *)arg1,arg2,arg3);
8053 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8054
8055
8056
8057 XSRETURN(argvi);
8058 fail:
8059
8060
8061
8062 SWIG_croak_null();
8063 }
8064 }
8065
8066
XS(_wrap_gsl_linalg_balance_matrix)8067 XS(_wrap_gsl_linalg_balance_matrix) {
8068 {
8069 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
8070 gsl_vector *arg2 = (gsl_vector *) 0 ;
8071 void *argp1 = 0 ;
8072 int res1 = 0 ;
8073 void *argp2 = 0 ;
8074 int res2 = 0 ;
8075 int argvi = 0;
8076 int result;
8077 dXSARGS;
8078
8079 if ((items < 2) || (items > 2)) {
8080 SWIG_croak("Usage: gsl_linalg_balance_matrix(A,D);");
8081 }
8082 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
8083 if (!SWIG_IsOK(res1)) {
8084 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_balance_matrix" "', argument " "1"" of type '" "gsl_matrix *""'");
8085 }
8086 arg1 = (gsl_matrix *)(argp1);
8087 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
8088 if (!SWIG_IsOK(res2)) {
8089 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_balance_matrix" "', argument " "2"" of type '" "gsl_vector *""'");
8090 }
8091 arg2 = (gsl_vector *)(argp2);
8092 result = (int)gsl_linalg_balance_matrix(arg1,arg2);
8093 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8094
8095
8096 XSRETURN(argvi);
8097 fail:
8098
8099
8100 SWIG_croak_null();
8101 }
8102 }
8103
8104
XS(_wrap_gsl_linalg_balance_accum)8105 XS(_wrap_gsl_linalg_balance_accum) {
8106 {
8107 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
8108 gsl_vector *arg2 = (gsl_vector *) 0 ;
8109 void *argp1 = 0 ;
8110 int res1 = 0 ;
8111 void *argp2 = 0 ;
8112 int res2 = 0 ;
8113 int argvi = 0;
8114 int result;
8115 dXSARGS;
8116
8117 if ((items < 2) || (items > 2)) {
8118 SWIG_croak("Usage: gsl_linalg_balance_accum(A,D);");
8119 }
8120 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
8121 if (!SWIG_IsOK(res1)) {
8122 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_balance_accum" "', argument " "1"" of type '" "gsl_matrix *""'");
8123 }
8124 arg1 = (gsl_matrix *)(argp1);
8125 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
8126 if (!SWIG_IsOK(res2)) {
8127 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_balance_accum" "', argument " "2"" of type '" "gsl_vector *""'");
8128 }
8129 arg2 = (gsl_vector *)(argp2);
8130 result = (int)gsl_linalg_balance_accum(arg1,arg2);
8131 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8132
8133
8134 XSRETURN(argvi);
8135 fail:
8136
8137
8138 SWIG_croak_null();
8139 }
8140 }
8141
8142
XS(_wrap_gsl_linalg_balance_columns)8143 XS(_wrap_gsl_linalg_balance_columns) {
8144 {
8145 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
8146 gsl_vector *arg2 = (gsl_vector *) 0 ;
8147 void *argp1 = 0 ;
8148 int res1 = 0 ;
8149 void *argp2 = 0 ;
8150 int res2 = 0 ;
8151 int argvi = 0;
8152 int result;
8153 dXSARGS;
8154
8155 if ((items < 2) || (items > 2)) {
8156 SWIG_croak("Usage: gsl_linalg_balance_columns(A,D);");
8157 }
8158 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
8159 if (!SWIG_IsOK(res1)) {
8160 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_balance_columns" "', argument " "1"" of type '" "gsl_matrix *""'");
8161 }
8162 arg1 = (gsl_matrix *)(argp1);
8163 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
8164 if (!SWIG_IsOK(res2)) {
8165 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_balance_columns" "', argument " "2"" of type '" "gsl_vector *""'");
8166 }
8167 arg2 = (gsl_vector *)(argp2);
8168 result = (int)gsl_linalg_balance_columns(arg1,arg2);
8169 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8170
8171
8172 XSRETURN(argvi);
8173 fail:
8174
8175
8176 SWIG_croak_null();
8177 }
8178 }
8179
8180
XS(_wrap_gsl_linalg_givens)8181 XS(_wrap_gsl_linalg_givens) {
8182 {
8183 double arg1 ;
8184 double arg2 ;
8185 double *arg3 = (double *) 0 ;
8186 double *arg4 = (double *) 0 ;
8187 double val1 ;
8188 int ecode1 = 0 ;
8189 double val2 ;
8190 int ecode2 = 0 ;
8191 double temp3 ;
8192 int res3 = SWIG_TMPOBJ ;
8193 double temp4 ;
8194 int res4 = SWIG_TMPOBJ ;
8195 int argvi = 0;
8196 dXSARGS;
8197
8198 arg3 = &temp3;
8199 arg4 = &temp4;
8200 if ((items < 2) || (items > 2)) {
8201 SWIG_croak("Usage: gsl_linalg_givens(a,b);");
8202 }
8203 ecode1 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
8204 if (!SWIG_IsOK(ecode1)) {
8205 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_linalg_givens" "', argument " "1"" of type '" "double""'");
8206 }
8207 arg1 = (double)(val1);
8208 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
8209 if (!SWIG_IsOK(ecode2)) {
8210 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_linalg_givens" "', argument " "2"" of type '" "double""'");
8211 }
8212 arg2 = (double)(val2);
8213 gsl_linalg_givens(arg1,arg2,arg3,arg4);
8214 ST(argvi) = &PL_sv_undef;
8215 if (SWIG_IsTmpObj(res3)) {
8216 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((*arg3)); argvi++ ;
8217 } else {
8218 int new_flags = SWIG_IsNewObj(res3) ? (SWIG_POINTER_OWN | 0) : 0;
8219 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg3), SWIGTYPE_p_double, new_flags); argvi++ ;
8220 }
8221 if (SWIG_IsTmpObj(res4)) {
8222 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((*arg4)); argvi++ ;
8223 } else {
8224 int new_flags = SWIG_IsNewObj(res4) ? (SWIG_POINTER_OWN | 0) : 0;
8225 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg4), SWIGTYPE_p_double, new_flags); argvi++ ;
8226 }
8227
8228
8229
8230
8231 XSRETURN(argvi);
8232 fail:
8233
8234
8235
8236
8237 SWIG_croak_null();
8238 }
8239 }
8240
8241
XS(_wrap_gsl_linalg_givens_gv)8242 XS(_wrap_gsl_linalg_givens_gv) {
8243 {
8244 gsl_vector *arg1 = (gsl_vector *) 0 ;
8245 size_t arg2 ;
8246 size_t arg3 ;
8247 double arg4 ;
8248 double arg5 ;
8249 void *argp1 = 0 ;
8250 int res1 = 0 ;
8251 size_t val2 ;
8252 int ecode2 = 0 ;
8253 size_t val3 ;
8254 int ecode3 = 0 ;
8255 double val4 ;
8256 int ecode4 = 0 ;
8257 double val5 ;
8258 int ecode5 = 0 ;
8259 int argvi = 0;
8260 dXSARGS;
8261
8262 if ((items < 5) || (items > 5)) {
8263 SWIG_croak("Usage: gsl_linalg_givens_gv(v,i,j,c,s);");
8264 }
8265 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
8266 if (!SWIG_IsOK(res1)) {
8267 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_givens_gv" "', argument " "1"" of type '" "gsl_vector *""'");
8268 }
8269 arg1 = (gsl_vector *)(argp1);
8270 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
8271 if (!SWIG_IsOK(ecode2)) {
8272 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_linalg_givens_gv" "', argument " "2"" of type '" "size_t""'");
8273 }
8274 arg2 = (size_t)(val2);
8275 ecode3 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
8276 if (!SWIG_IsOK(ecode3)) {
8277 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_linalg_givens_gv" "', argument " "3"" of type '" "size_t""'");
8278 }
8279 arg3 = (size_t)(val3);
8280 ecode4 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(3), &val4);
8281 if (!SWIG_IsOK(ecode4)) {
8282 SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "gsl_linalg_givens_gv" "', argument " "4"" of type '" "double""'");
8283 }
8284 arg4 = (double)(val4);
8285 ecode5 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(4), &val5);
8286 if (!SWIG_IsOK(ecode5)) {
8287 SWIG_exception_fail(SWIG_ArgError(ecode5), "in method '" "gsl_linalg_givens_gv" "', argument " "5"" of type '" "double""'");
8288 }
8289 arg5 = (double)(val5);
8290 gsl_linalg_givens_gv(arg1,arg2,arg3,arg4,arg5);
8291 ST(argvi) = &PL_sv_undef;
8292
8293
8294
8295
8296
8297 XSRETURN(argvi);
8298 fail:
8299
8300
8301
8302
8303
8304 SWIG_croak_null();
8305 }
8306 }
8307
8308
XS(_wrap_gsl_permutation_struct_size_set)8309 XS(_wrap_gsl_permutation_struct_size_set) {
8310 {
8311 struct gsl_permutation_struct *arg1 = (struct gsl_permutation_struct *) 0 ;
8312 size_t arg2 ;
8313 void *argp1 = 0 ;
8314 int res1 = 0 ;
8315 size_t val2 ;
8316 int ecode2 = 0 ;
8317 int argvi = 0;
8318 dXSARGS;
8319
8320 if ((items < 2) || (items > 2)) {
8321 SWIG_croak("Usage: gsl_permutation_struct_size_set(self,size);");
8322 }
8323 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
8324 if (!SWIG_IsOK(res1)) {
8325 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_struct_size_set" "', argument " "1"" of type '" "struct gsl_permutation_struct *""'");
8326 }
8327 arg1 = (struct gsl_permutation_struct *)(argp1);
8328 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
8329 if (!SWIG_IsOK(ecode2)) {
8330 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_permutation_struct_size_set" "', argument " "2"" of type '" "size_t""'");
8331 }
8332 arg2 = (size_t)(val2);
8333 if (arg1) (arg1)->size = arg2;
8334 ST(argvi) = &PL_sv_undef;
8335
8336
8337 XSRETURN(argvi);
8338 fail:
8339
8340
8341 SWIG_croak_null();
8342 }
8343 }
8344
8345
XS(_wrap_gsl_permutation_struct_size_get)8346 XS(_wrap_gsl_permutation_struct_size_get) {
8347 {
8348 struct gsl_permutation_struct *arg1 = (struct gsl_permutation_struct *) 0 ;
8349 void *argp1 = 0 ;
8350 int res1 = 0 ;
8351 int argvi = 0;
8352 size_t result;
8353 dXSARGS;
8354
8355 if ((items < 1) || (items > 1)) {
8356 SWIG_croak("Usage: gsl_permutation_struct_size_get(self);");
8357 }
8358 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
8359 if (!SWIG_IsOK(res1)) {
8360 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_struct_size_get" "', argument " "1"" of type '" "struct gsl_permutation_struct *""'");
8361 }
8362 arg1 = (struct gsl_permutation_struct *)(argp1);
8363 result = ((arg1)->size);
8364 ST(argvi) = SWIG_From_size_t SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
8365
8366 XSRETURN(argvi);
8367 fail:
8368
8369 SWIG_croak_null();
8370 }
8371 }
8372
8373
XS(_wrap_gsl_permutation_struct_data_set)8374 XS(_wrap_gsl_permutation_struct_data_set) {
8375 {
8376 struct gsl_permutation_struct *arg1 = (struct gsl_permutation_struct *) 0 ;
8377 size_t *arg2 = (size_t *) 0 ;
8378 void *argp1 = 0 ;
8379 int res1 = 0 ;
8380 void *argp2 = 0 ;
8381 int res2 = 0 ;
8382 int argvi = 0;
8383 dXSARGS;
8384
8385 if ((items < 2) || (items > 2)) {
8386 SWIG_croak("Usage: gsl_permutation_struct_data_set(self,data);");
8387 }
8388 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
8389 if (!SWIG_IsOK(res1)) {
8390 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_struct_data_set" "', argument " "1"" of type '" "struct gsl_permutation_struct *""'");
8391 }
8392 arg1 = (struct gsl_permutation_struct *)(argp1);
8393 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_size_t, SWIG_POINTER_DISOWN | 0 );
8394 if (!SWIG_IsOK(res2)) {
8395 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_permutation_struct_data_set" "', argument " "2"" of type '" "size_t *""'");
8396 }
8397 arg2 = (size_t *)(argp2);
8398 if (arg1) (arg1)->data = arg2;
8399 ST(argvi) = &PL_sv_undef;
8400
8401
8402 XSRETURN(argvi);
8403 fail:
8404
8405
8406 SWIG_croak_null();
8407 }
8408 }
8409
8410
XS(_wrap_gsl_permutation_struct_data_get)8411 XS(_wrap_gsl_permutation_struct_data_get) {
8412 {
8413 struct gsl_permutation_struct *arg1 = (struct gsl_permutation_struct *) 0 ;
8414 void *argp1 = 0 ;
8415 int res1 = 0 ;
8416 int argvi = 0;
8417 size_t *result = 0 ;
8418 dXSARGS;
8419
8420 if ((items < 1) || (items > 1)) {
8421 SWIG_croak("Usage: gsl_permutation_struct_data_get(self);");
8422 }
8423 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
8424 if (!SWIG_IsOK(res1)) {
8425 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_struct_data_get" "', argument " "1"" of type '" "struct gsl_permutation_struct *""'");
8426 }
8427 arg1 = (struct gsl_permutation_struct *)(argp1);
8428 result = (size_t *) ((arg1)->data);
8429 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_size_t, 0 | 0); argvi++ ;
8430
8431 XSRETURN(argvi);
8432 fail:
8433
8434 SWIG_croak_null();
8435 }
8436 }
8437
8438
XS(_wrap_new_gsl_permutation_struct)8439 XS(_wrap_new_gsl_permutation_struct) {
8440 {
8441 int argvi = 0;
8442 struct gsl_permutation_struct *result = 0 ;
8443 dXSARGS;
8444
8445 if ((items < 0) || (items > 0)) {
8446 SWIG_croak("Usage: new_gsl_permutation_struct();");
8447 }
8448 result = (struct gsl_permutation_struct *)calloc(1, sizeof(struct gsl_permutation_struct));
8449 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_permutation_struct, SWIG_OWNER | SWIG_SHADOW); argvi++ ;
8450 XSRETURN(argvi);
8451 fail:
8452 SWIG_croak_null();
8453 }
8454 }
8455
8456
XS(_wrap_delete_gsl_permutation_struct)8457 XS(_wrap_delete_gsl_permutation_struct) {
8458 {
8459 struct gsl_permutation_struct *arg1 = (struct gsl_permutation_struct *) 0 ;
8460 void *argp1 = 0 ;
8461 int res1 = 0 ;
8462 int argvi = 0;
8463 dXSARGS;
8464
8465 if ((items < 1) || (items > 1)) {
8466 SWIG_croak("Usage: delete_gsl_permutation_struct(self);");
8467 }
8468 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, SWIG_POINTER_DISOWN | 0 );
8469 if (!SWIG_IsOK(res1)) {
8470 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "delete_gsl_permutation_struct" "', argument " "1"" of type '" "struct gsl_permutation_struct *""'");
8471 }
8472 arg1 = (struct gsl_permutation_struct *)(argp1);
8473 free((char *) arg1);
8474 ST(argvi) = &PL_sv_undef;
8475
8476 XSRETURN(argvi);
8477 fail:
8478
8479 SWIG_croak_null();
8480 }
8481 }
8482
8483
XS(_wrap_gsl_permutation_alloc)8484 XS(_wrap_gsl_permutation_alloc) {
8485 {
8486 size_t arg1 ;
8487 size_t val1 ;
8488 int ecode1 = 0 ;
8489 int argvi = 0;
8490 gsl_permutation *result = 0 ;
8491 dXSARGS;
8492
8493 if ((items < 1) || (items > 1)) {
8494 SWIG_croak("Usage: gsl_permutation_alloc(n);");
8495 }
8496 ecode1 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
8497 if (!SWIG_IsOK(ecode1)) {
8498 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_permutation_alloc" "', argument " "1"" of type '" "size_t""'");
8499 }
8500 arg1 = (size_t)(val1);
8501 result = (gsl_permutation *)gsl_permutation_alloc(arg1);
8502 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_permutation_struct, 0 | SWIG_SHADOW); argvi++ ;
8503
8504 XSRETURN(argvi);
8505 fail:
8506
8507 SWIG_croak_null();
8508 }
8509 }
8510
8511
XS(_wrap_gsl_permutation_calloc)8512 XS(_wrap_gsl_permutation_calloc) {
8513 {
8514 size_t arg1 ;
8515 size_t val1 ;
8516 int ecode1 = 0 ;
8517 int argvi = 0;
8518 gsl_permutation *result = 0 ;
8519 dXSARGS;
8520
8521 if ((items < 1) || (items > 1)) {
8522 SWIG_croak("Usage: gsl_permutation_calloc(n);");
8523 }
8524 ecode1 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
8525 if (!SWIG_IsOK(ecode1)) {
8526 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_permutation_calloc" "', argument " "1"" of type '" "size_t""'");
8527 }
8528 arg1 = (size_t)(val1);
8529 result = (gsl_permutation *)gsl_permutation_calloc(arg1);
8530 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_permutation_struct, 0 | SWIG_SHADOW); argvi++ ;
8531
8532 XSRETURN(argvi);
8533 fail:
8534
8535 SWIG_croak_null();
8536 }
8537 }
8538
8539
XS(_wrap_gsl_permutation_init)8540 XS(_wrap_gsl_permutation_init) {
8541 {
8542 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
8543 void *argp1 = 0 ;
8544 int res1 = 0 ;
8545 int argvi = 0;
8546 dXSARGS;
8547
8548 if ((items < 1) || (items > 1)) {
8549 SWIG_croak("Usage: gsl_permutation_init(p);");
8550 }
8551 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
8552 if (!SWIG_IsOK(res1)) {
8553 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_init" "', argument " "1"" of type '" "gsl_permutation *""'");
8554 }
8555 arg1 = (gsl_permutation *)(argp1);
8556 gsl_permutation_init(arg1);
8557 ST(argvi) = &PL_sv_undef;
8558
8559 XSRETURN(argvi);
8560 fail:
8561
8562 SWIG_croak_null();
8563 }
8564 }
8565
8566
XS(_wrap_gsl_permutation_free)8567 XS(_wrap_gsl_permutation_free) {
8568 {
8569 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
8570 void *argp1 = 0 ;
8571 int res1 = 0 ;
8572 int argvi = 0;
8573 dXSARGS;
8574
8575 if ((items < 1) || (items > 1)) {
8576 SWIG_croak("Usage: gsl_permutation_free(p);");
8577 }
8578 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
8579 if (!SWIG_IsOK(res1)) {
8580 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_free" "', argument " "1"" of type '" "gsl_permutation *""'");
8581 }
8582 arg1 = (gsl_permutation *)(argp1);
8583 gsl_permutation_free(arg1);
8584 ST(argvi) = &PL_sv_undef;
8585
8586 XSRETURN(argvi);
8587 fail:
8588
8589 SWIG_croak_null();
8590 }
8591 }
8592
8593
XS(_wrap_gsl_permutation_memcpy)8594 XS(_wrap_gsl_permutation_memcpy) {
8595 {
8596 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
8597 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
8598 void *argp1 = 0 ;
8599 int res1 = 0 ;
8600 void *argp2 = 0 ;
8601 int res2 = 0 ;
8602 int argvi = 0;
8603 int result;
8604 dXSARGS;
8605
8606 if ((items < 2) || (items > 2)) {
8607 SWIG_croak("Usage: gsl_permutation_memcpy(dest,src);");
8608 }
8609 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
8610 if (!SWIG_IsOK(res1)) {
8611 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_memcpy" "', argument " "1"" of type '" "gsl_permutation *""'");
8612 }
8613 arg1 = (gsl_permutation *)(argp1);
8614 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
8615 if (!SWIG_IsOK(res2)) {
8616 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_permutation_memcpy" "', argument " "2"" of type '" "gsl_permutation const *""'");
8617 }
8618 arg2 = (gsl_permutation *)(argp2);
8619 result = (int)gsl_permutation_memcpy(arg1,(struct gsl_permutation_struct const *)arg2);
8620 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8621
8622
8623 XSRETURN(argvi);
8624 fail:
8625
8626
8627 SWIG_croak_null();
8628 }
8629 }
8630
8631
XS(_wrap_gsl_permutation_fread)8632 XS(_wrap_gsl_permutation_fread) {
8633 {
8634 FILE *arg1 = (FILE *) 0 ;
8635 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
8636 void *argp1 = 0 ;
8637 int res1 = 0 ;
8638 void *argp2 = 0 ;
8639 int res2 = 0 ;
8640 int argvi = 0;
8641 int result;
8642 dXSARGS;
8643
8644 if ((items < 2) || (items > 2)) {
8645 SWIG_croak("Usage: gsl_permutation_fread(stream,p);");
8646 }
8647 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_FILE, 0 | 0 );
8648 if (!SWIG_IsOK(res1)) {
8649 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_fread" "', argument " "1"" of type '" "FILE *""'");
8650 }
8651 arg1 = (FILE *)(argp1);
8652 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
8653 if (!SWIG_IsOK(res2)) {
8654 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_permutation_fread" "', argument " "2"" of type '" "gsl_permutation *""'");
8655 }
8656 arg2 = (gsl_permutation *)(argp2);
8657 result = (int)gsl_permutation_fread(arg1,arg2);
8658 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8659
8660
8661 XSRETURN(argvi);
8662 fail:
8663
8664
8665 SWIG_croak_null();
8666 }
8667 }
8668
8669
XS(_wrap_gsl_permutation_fwrite)8670 XS(_wrap_gsl_permutation_fwrite) {
8671 {
8672 FILE *arg1 = (FILE *) 0 ;
8673 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
8674 void *argp1 = 0 ;
8675 int res1 = 0 ;
8676 void *argp2 = 0 ;
8677 int res2 = 0 ;
8678 int argvi = 0;
8679 int result;
8680 dXSARGS;
8681
8682 if ((items < 2) || (items > 2)) {
8683 SWIG_croak("Usage: gsl_permutation_fwrite(stream,p);");
8684 }
8685 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_FILE, 0 | 0 );
8686 if (!SWIG_IsOK(res1)) {
8687 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_fwrite" "', argument " "1"" of type '" "FILE *""'");
8688 }
8689 arg1 = (FILE *)(argp1);
8690 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
8691 if (!SWIG_IsOK(res2)) {
8692 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_permutation_fwrite" "', argument " "2"" of type '" "gsl_permutation const *""'");
8693 }
8694 arg2 = (gsl_permutation *)(argp2);
8695 result = (int)gsl_permutation_fwrite(arg1,(struct gsl_permutation_struct const *)arg2);
8696 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8697
8698
8699 XSRETURN(argvi);
8700 fail:
8701
8702
8703 SWIG_croak_null();
8704 }
8705 }
8706
8707
XS(_wrap_gsl_permutation_fscanf)8708 XS(_wrap_gsl_permutation_fscanf) {
8709 {
8710 FILE *arg1 = (FILE *) 0 ;
8711 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
8712 void *argp1 = 0 ;
8713 int res1 = 0 ;
8714 void *argp2 = 0 ;
8715 int res2 = 0 ;
8716 int argvi = 0;
8717 int result;
8718 dXSARGS;
8719
8720 if ((items < 2) || (items > 2)) {
8721 SWIG_croak("Usage: gsl_permutation_fscanf(stream,p);");
8722 }
8723 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_FILE, 0 | 0 );
8724 if (!SWIG_IsOK(res1)) {
8725 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_fscanf" "', argument " "1"" of type '" "FILE *""'");
8726 }
8727 arg1 = (FILE *)(argp1);
8728 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
8729 if (!SWIG_IsOK(res2)) {
8730 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_permutation_fscanf" "', argument " "2"" of type '" "gsl_permutation *""'");
8731 }
8732 arg2 = (gsl_permutation *)(argp2);
8733 result = (int)gsl_permutation_fscanf(arg1,arg2);
8734 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8735
8736
8737 XSRETURN(argvi);
8738 fail:
8739
8740
8741 SWIG_croak_null();
8742 }
8743 }
8744
8745
XS(_wrap_gsl_permutation_fprintf)8746 XS(_wrap_gsl_permutation_fprintf) {
8747 {
8748 FILE *arg1 = (FILE *) 0 ;
8749 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
8750 char *arg3 = (char *) 0 ;
8751 void *argp1 = 0 ;
8752 int res1 = 0 ;
8753 void *argp2 = 0 ;
8754 int res2 = 0 ;
8755 int res3 ;
8756 char *buf3 = 0 ;
8757 int alloc3 = 0 ;
8758 int argvi = 0;
8759 int result;
8760 dXSARGS;
8761
8762 if ((items < 3) || (items > 3)) {
8763 SWIG_croak("Usage: gsl_permutation_fprintf(stream,p,format);");
8764 }
8765 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_FILE, 0 | 0 );
8766 if (!SWIG_IsOK(res1)) {
8767 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_fprintf" "', argument " "1"" of type '" "FILE *""'");
8768 }
8769 arg1 = (FILE *)(argp1);
8770 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
8771 if (!SWIG_IsOK(res2)) {
8772 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_permutation_fprintf" "', argument " "2"" of type '" "gsl_permutation const *""'");
8773 }
8774 arg2 = (gsl_permutation *)(argp2);
8775 res3 = SWIG_AsCharPtrAndSize(ST(2), &buf3, NULL, &alloc3);
8776 if (!SWIG_IsOK(res3)) {
8777 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_permutation_fprintf" "', argument " "3"" of type '" "char const *""'");
8778 }
8779 arg3 = (char *)(buf3);
8780 result = (int)gsl_permutation_fprintf(arg1,(struct gsl_permutation_struct const *)arg2,(char const *)arg3);
8781 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8782
8783
8784 if (alloc3 == SWIG_NEWOBJ) free((char*)buf3);
8785 XSRETURN(argvi);
8786 fail:
8787
8788
8789 if (alloc3 == SWIG_NEWOBJ) free((char*)buf3);
8790 SWIG_croak_null();
8791 }
8792 }
8793
8794
XS(_wrap_gsl_permutation_size)8795 XS(_wrap_gsl_permutation_size) {
8796 {
8797 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
8798 void *argp1 = 0 ;
8799 int res1 = 0 ;
8800 int argvi = 0;
8801 size_t result;
8802 dXSARGS;
8803
8804 if ((items < 1) || (items > 1)) {
8805 SWIG_croak("Usage: gsl_permutation_size(p);");
8806 }
8807 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
8808 if (!SWIG_IsOK(res1)) {
8809 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_size" "', argument " "1"" of type '" "gsl_permutation const *""'");
8810 }
8811 arg1 = (gsl_permutation *)(argp1);
8812 result = gsl_permutation_size((struct gsl_permutation_struct const *)arg1);
8813 ST(argvi) = SWIG_From_size_t SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
8814
8815 XSRETURN(argvi);
8816 fail:
8817
8818 SWIG_croak_null();
8819 }
8820 }
8821
8822
XS(_wrap_gsl_permutation_data)8823 XS(_wrap_gsl_permutation_data) {
8824 {
8825 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
8826 void *argp1 = 0 ;
8827 int res1 = 0 ;
8828 int argvi = 0;
8829 size_t *result = 0 ;
8830 dXSARGS;
8831
8832 if ((items < 1) || (items > 1)) {
8833 SWIG_croak("Usage: gsl_permutation_data(p);");
8834 }
8835 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
8836 if (!SWIG_IsOK(res1)) {
8837 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_data" "', argument " "1"" of type '" "gsl_permutation const *""'");
8838 }
8839 arg1 = (gsl_permutation *)(argp1);
8840 result = (size_t *)gsl_permutation_data((struct gsl_permutation_struct const *)arg1);
8841 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_size_t, 0 | 0); argvi++ ;
8842
8843 XSRETURN(argvi);
8844 fail:
8845
8846 SWIG_croak_null();
8847 }
8848 }
8849
8850
XS(_wrap_gsl_permutation_swap)8851 XS(_wrap_gsl_permutation_swap) {
8852 {
8853 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
8854 size_t arg2 ;
8855 size_t arg3 ;
8856 void *argp1 = 0 ;
8857 int res1 = 0 ;
8858 size_t val2 ;
8859 int ecode2 = 0 ;
8860 size_t val3 ;
8861 int ecode3 = 0 ;
8862 int argvi = 0;
8863 int result;
8864 dXSARGS;
8865
8866 if ((items < 3) || (items > 3)) {
8867 SWIG_croak("Usage: gsl_permutation_swap(p,i,j);");
8868 }
8869 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
8870 if (!SWIG_IsOK(res1)) {
8871 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_swap" "', argument " "1"" of type '" "gsl_permutation *""'");
8872 }
8873 arg1 = (gsl_permutation *)(argp1);
8874 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
8875 if (!SWIG_IsOK(ecode2)) {
8876 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_permutation_swap" "', argument " "2"" of type '" "size_t""'");
8877 }
8878 arg2 = (size_t)(val2);
8879 ecode3 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
8880 if (!SWIG_IsOK(ecode3)) {
8881 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_permutation_swap" "', argument " "3"" of type '" "size_t""'");
8882 }
8883 arg3 = (size_t)(val3);
8884 result = (int)gsl_permutation_swap(arg1,arg2,arg3);
8885 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8886
8887
8888
8889 XSRETURN(argvi);
8890 fail:
8891
8892
8893
8894 SWIG_croak_null();
8895 }
8896 }
8897
8898
XS(_wrap_gsl_permutation_valid)8899 XS(_wrap_gsl_permutation_valid) {
8900 {
8901 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
8902 void *argp1 = 0 ;
8903 int res1 = 0 ;
8904 int argvi = 0;
8905 int result;
8906 dXSARGS;
8907
8908 if ((items < 1) || (items > 1)) {
8909 SWIG_croak("Usage: gsl_permutation_valid(p);");
8910 }
8911 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
8912 if (!SWIG_IsOK(res1)) {
8913 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_valid" "', argument " "1"" of type '" "gsl_permutation const *""'");
8914 }
8915 arg1 = (gsl_permutation *)(argp1);
8916 result = (int)gsl_permutation_valid((struct gsl_permutation_struct const *)arg1);
8917 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8918
8919 XSRETURN(argvi);
8920 fail:
8921
8922 SWIG_croak_null();
8923 }
8924 }
8925
8926
XS(_wrap_gsl_permutation_reverse)8927 XS(_wrap_gsl_permutation_reverse) {
8928 {
8929 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
8930 void *argp1 = 0 ;
8931 int res1 = 0 ;
8932 int argvi = 0;
8933 dXSARGS;
8934
8935 if ((items < 1) || (items > 1)) {
8936 SWIG_croak("Usage: gsl_permutation_reverse(p);");
8937 }
8938 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
8939 if (!SWIG_IsOK(res1)) {
8940 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_reverse" "', argument " "1"" of type '" "gsl_permutation *""'");
8941 }
8942 arg1 = (gsl_permutation *)(argp1);
8943 gsl_permutation_reverse(arg1);
8944 ST(argvi) = &PL_sv_undef;
8945
8946 XSRETURN(argvi);
8947 fail:
8948
8949 SWIG_croak_null();
8950 }
8951 }
8952
8953
XS(_wrap_gsl_permutation_inverse)8954 XS(_wrap_gsl_permutation_inverse) {
8955 {
8956 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
8957 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
8958 void *argp1 = 0 ;
8959 int res1 = 0 ;
8960 void *argp2 = 0 ;
8961 int res2 = 0 ;
8962 int argvi = 0;
8963 int result;
8964 dXSARGS;
8965
8966 if ((items < 2) || (items > 2)) {
8967 SWIG_croak("Usage: gsl_permutation_inverse(inv,p);");
8968 }
8969 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
8970 if (!SWIG_IsOK(res1)) {
8971 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_inverse" "', argument " "1"" of type '" "gsl_permutation *""'");
8972 }
8973 arg1 = (gsl_permutation *)(argp1);
8974 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
8975 if (!SWIG_IsOK(res2)) {
8976 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_permutation_inverse" "', argument " "2"" of type '" "gsl_permutation const *""'");
8977 }
8978 arg2 = (gsl_permutation *)(argp2);
8979 result = (int)gsl_permutation_inverse(arg1,(struct gsl_permutation_struct const *)arg2);
8980 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8981
8982
8983 XSRETURN(argvi);
8984 fail:
8985
8986
8987 SWIG_croak_null();
8988 }
8989 }
8990
8991
XS(_wrap_gsl_permutation_next)8992 XS(_wrap_gsl_permutation_next) {
8993 {
8994 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
8995 void *argp1 = 0 ;
8996 int res1 = 0 ;
8997 int argvi = 0;
8998 int result;
8999 dXSARGS;
9000
9001 if ((items < 1) || (items > 1)) {
9002 SWIG_croak("Usage: gsl_permutation_next(p);");
9003 }
9004 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
9005 if (!SWIG_IsOK(res1)) {
9006 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_next" "', argument " "1"" of type '" "gsl_permutation *""'");
9007 }
9008 arg1 = (gsl_permutation *)(argp1);
9009 result = (int)gsl_permutation_next(arg1);
9010 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
9011
9012 XSRETURN(argvi);
9013 fail:
9014
9015 SWIG_croak_null();
9016 }
9017 }
9018
9019
XS(_wrap_gsl_permutation_prev)9020 XS(_wrap_gsl_permutation_prev) {
9021 {
9022 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
9023 void *argp1 = 0 ;
9024 int res1 = 0 ;
9025 int argvi = 0;
9026 int result;
9027 dXSARGS;
9028
9029 if ((items < 1) || (items > 1)) {
9030 SWIG_croak("Usage: gsl_permutation_prev(p);");
9031 }
9032 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
9033 if (!SWIG_IsOK(res1)) {
9034 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_prev" "', argument " "1"" of type '" "gsl_permutation *""'");
9035 }
9036 arg1 = (gsl_permutation *)(argp1);
9037 result = (int)gsl_permutation_prev(arg1);
9038 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
9039
9040 XSRETURN(argvi);
9041 fail:
9042
9043 SWIG_croak_null();
9044 }
9045 }
9046
9047
XS(_wrap_gsl_permutation_mul)9048 XS(_wrap_gsl_permutation_mul) {
9049 {
9050 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
9051 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
9052 gsl_permutation *arg3 = (gsl_permutation *) 0 ;
9053 void *argp1 = 0 ;
9054 int res1 = 0 ;
9055 void *argp2 = 0 ;
9056 int res2 = 0 ;
9057 void *argp3 = 0 ;
9058 int res3 = 0 ;
9059 int argvi = 0;
9060 int result;
9061 dXSARGS;
9062
9063 if ((items < 3) || (items > 3)) {
9064 SWIG_croak("Usage: gsl_permutation_mul(p,pa,pb);");
9065 }
9066 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
9067 if (!SWIG_IsOK(res1)) {
9068 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_mul" "', argument " "1"" of type '" "gsl_permutation *""'");
9069 }
9070 arg1 = (gsl_permutation *)(argp1);
9071 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
9072 if (!SWIG_IsOK(res2)) {
9073 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_permutation_mul" "', argument " "2"" of type '" "gsl_permutation const *""'");
9074 }
9075 arg2 = (gsl_permutation *)(argp2);
9076 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
9077 if (!SWIG_IsOK(res3)) {
9078 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_permutation_mul" "', argument " "3"" of type '" "gsl_permutation const *""'");
9079 }
9080 arg3 = (gsl_permutation *)(argp3);
9081 result = (int)gsl_permutation_mul(arg1,(struct gsl_permutation_struct const *)arg2,(struct gsl_permutation_struct const *)arg3);
9082 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
9083
9084
9085
9086 XSRETURN(argvi);
9087 fail:
9088
9089
9090
9091 SWIG_croak_null();
9092 }
9093 }
9094
9095
XS(_wrap_gsl_permutation_linear_to_canonical)9096 XS(_wrap_gsl_permutation_linear_to_canonical) {
9097 {
9098 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
9099 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
9100 void *argp1 = 0 ;
9101 int res1 = 0 ;
9102 void *argp2 = 0 ;
9103 int res2 = 0 ;
9104 int argvi = 0;
9105 int result;
9106 dXSARGS;
9107
9108 if ((items < 2) || (items > 2)) {
9109 SWIG_croak("Usage: gsl_permutation_linear_to_canonical(q,p);");
9110 }
9111 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
9112 if (!SWIG_IsOK(res1)) {
9113 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_linear_to_canonical" "', argument " "1"" of type '" "gsl_permutation *""'");
9114 }
9115 arg1 = (gsl_permutation *)(argp1);
9116 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
9117 if (!SWIG_IsOK(res2)) {
9118 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_permutation_linear_to_canonical" "', argument " "2"" of type '" "gsl_permutation const *""'");
9119 }
9120 arg2 = (gsl_permutation *)(argp2);
9121 result = (int)gsl_permutation_linear_to_canonical(arg1,(struct gsl_permutation_struct const *)arg2);
9122 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
9123
9124
9125 XSRETURN(argvi);
9126 fail:
9127
9128
9129 SWIG_croak_null();
9130 }
9131 }
9132
9133
XS(_wrap_gsl_permutation_canonical_to_linear)9134 XS(_wrap_gsl_permutation_canonical_to_linear) {
9135 {
9136 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
9137 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
9138 void *argp1 = 0 ;
9139 int res1 = 0 ;
9140 void *argp2 = 0 ;
9141 int res2 = 0 ;
9142 int argvi = 0;
9143 int result;
9144 dXSARGS;
9145
9146 if ((items < 2) || (items > 2)) {
9147 SWIG_croak("Usage: gsl_permutation_canonical_to_linear(p,q);");
9148 }
9149 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
9150 if (!SWIG_IsOK(res1)) {
9151 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_canonical_to_linear" "', argument " "1"" of type '" "gsl_permutation *""'");
9152 }
9153 arg1 = (gsl_permutation *)(argp1);
9154 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
9155 if (!SWIG_IsOK(res2)) {
9156 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_permutation_canonical_to_linear" "', argument " "2"" of type '" "gsl_permutation const *""'");
9157 }
9158 arg2 = (gsl_permutation *)(argp2);
9159 result = (int)gsl_permutation_canonical_to_linear(arg1,(struct gsl_permutation_struct const *)arg2);
9160 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
9161
9162
9163 XSRETURN(argvi);
9164 fail:
9165
9166
9167 SWIG_croak_null();
9168 }
9169 }
9170
9171
XS(_wrap_gsl_permutation_inversions)9172 XS(_wrap_gsl_permutation_inversions) {
9173 {
9174 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
9175 void *argp1 = 0 ;
9176 int res1 = 0 ;
9177 int argvi = 0;
9178 size_t result;
9179 dXSARGS;
9180
9181 if ((items < 1) || (items > 1)) {
9182 SWIG_croak("Usage: gsl_permutation_inversions(p);");
9183 }
9184 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
9185 if (!SWIG_IsOK(res1)) {
9186 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_inversions" "', argument " "1"" of type '" "gsl_permutation const *""'");
9187 }
9188 arg1 = (gsl_permutation *)(argp1);
9189 result = gsl_permutation_inversions((struct gsl_permutation_struct const *)arg1);
9190 ST(argvi) = SWIG_From_size_t SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
9191
9192 XSRETURN(argvi);
9193 fail:
9194
9195 SWIG_croak_null();
9196 }
9197 }
9198
9199
XS(_wrap_gsl_permutation_linear_cycles)9200 XS(_wrap_gsl_permutation_linear_cycles) {
9201 {
9202 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
9203 void *argp1 = 0 ;
9204 int res1 = 0 ;
9205 int argvi = 0;
9206 size_t result;
9207 dXSARGS;
9208
9209 if ((items < 1) || (items > 1)) {
9210 SWIG_croak("Usage: gsl_permutation_linear_cycles(p);");
9211 }
9212 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
9213 if (!SWIG_IsOK(res1)) {
9214 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_linear_cycles" "', argument " "1"" of type '" "gsl_permutation const *""'");
9215 }
9216 arg1 = (gsl_permutation *)(argp1);
9217 result = gsl_permutation_linear_cycles((struct gsl_permutation_struct const *)arg1);
9218 ST(argvi) = SWIG_From_size_t SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
9219
9220 XSRETURN(argvi);
9221 fail:
9222
9223 SWIG_croak_null();
9224 }
9225 }
9226
9227
XS(_wrap_gsl_permutation_canonical_cycles)9228 XS(_wrap_gsl_permutation_canonical_cycles) {
9229 {
9230 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
9231 void *argp1 = 0 ;
9232 int res1 = 0 ;
9233 int argvi = 0;
9234 size_t result;
9235 dXSARGS;
9236
9237 if ((items < 1) || (items > 1)) {
9238 SWIG_croak("Usage: gsl_permutation_canonical_cycles(q);");
9239 }
9240 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
9241 if (!SWIG_IsOK(res1)) {
9242 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_canonical_cycles" "', argument " "1"" of type '" "gsl_permutation const *""'");
9243 }
9244 arg1 = (gsl_permutation *)(argp1);
9245 result = gsl_permutation_canonical_cycles((struct gsl_permutation_struct const *)arg1);
9246 ST(argvi) = SWIG_From_size_t SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
9247
9248 XSRETURN(argvi);
9249 fail:
9250
9251 SWIG_croak_null();
9252 }
9253 }
9254
9255
XS(_wrap_gsl_permutation_get)9256 XS(_wrap_gsl_permutation_get) {
9257 {
9258 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
9259 size_t arg2 ;
9260 void *argp1 = 0 ;
9261 int res1 = 0 ;
9262 size_t val2 ;
9263 int ecode2 = 0 ;
9264 int argvi = 0;
9265 size_t result;
9266 dXSARGS;
9267
9268 if ((items < 2) || (items > 2)) {
9269 SWIG_croak("Usage: gsl_permutation_get(p,i);");
9270 }
9271 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
9272 if (!SWIG_IsOK(res1)) {
9273 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_get" "', argument " "1"" of type '" "gsl_permutation const *""'");
9274 }
9275 arg1 = (gsl_permutation *)(argp1);
9276 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
9277 if (!SWIG_IsOK(ecode2)) {
9278 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_permutation_get" "', argument " "2"" of type '" "size_t""'");
9279 }
9280 arg2 = (size_t)(val2);
9281 result = gsl_permutation_get((struct gsl_permutation_struct const *)arg1,arg2);
9282 ST(argvi) = SWIG_From_size_t SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
9283
9284
9285 XSRETURN(argvi);
9286 fail:
9287
9288
9289 SWIG_croak_null();
9290 }
9291 }
9292
9293
XS(_wrap_gsl_complex_dat_set)9294 XS(_wrap_gsl_complex_dat_set) {
9295 {
9296 gsl_complex *arg1 = (gsl_complex *) 0 ;
9297 double *arg2 ;
9298 void *argp1 = 0 ;
9299 int res1 = 0 ;
9300 void *argp2 = 0 ;
9301 int res2 = 0 ;
9302 int argvi = 0;
9303 dXSARGS;
9304
9305 if ((items < 2) || (items > 2)) {
9306 SWIG_croak("Usage: gsl_complex_dat_set(self,dat);");
9307 }
9308 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_complex, 0 | 0 );
9309 if (!SWIG_IsOK(res1)) {
9310 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_dat_set" "', argument " "1"" of type '" "gsl_complex *""'");
9311 }
9312 arg1 = (gsl_complex *)(argp1);
9313 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_double, 0 | 0 );
9314 if (!SWIG_IsOK(res2)) {
9315 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_complex_dat_set" "', argument " "2"" of type '" "double [2]""'");
9316 }
9317 arg2 = (double *)(argp2);
9318 {
9319 if (arg2) {
9320 size_t ii = 0;
9321 for (; ii < (size_t)2; ++ii) *(double *)&arg1->dat[ii] = *((double *)arg2 + ii);
9322 } else {
9323 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in variable '""dat""' of type '""double [2]""'");
9324 }
9325 }
9326 ST(argvi) = &PL_sv_undef;
9327
9328
9329 XSRETURN(argvi);
9330 fail:
9331
9332
9333 SWIG_croak_null();
9334 }
9335 }
9336
9337
XS(_wrap_gsl_complex_dat_get)9338 XS(_wrap_gsl_complex_dat_get) {
9339 {
9340 gsl_complex *arg1 = (gsl_complex *) 0 ;
9341 void *argp1 = 0 ;
9342 int res1 = 0 ;
9343 int argvi = 0;
9344 double *result = 0 ;
9345 dXSARGS;
9346
9347 if ((items < 1) || (items > 1)) {
9348 SWIG_croak("Usage: gsl_complex_dat_get(self);");
9349 }
9350 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_complex, 0 | 0 );
9351 if (!SWIG_IsOK(res1)) {
9352 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_dat_get" "', argument " "1"" of type '" "gsl_complex *""'");
9353 }
9354 arg1 = (gsl_complex *)(argp1);
9355 result = (double *)(double *) ((arg1)->dat);
9356 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_double, 0 | 0); argvi++ ;
9357
9358 XSRETURN(argvi);
9359 fail:
9360
9361 SWIG_croak_null();
9362 }
9363 }
9364
9365
XS(_wrap_new_gsl_complex)9366 XS(_wrap_new_gsl_complex) {
9367 {
9368 int argvi = 0;
9369 gsl_complex *result = 0 ;
9370 dXSARGS;
9371
9372 if ((items < 0) || (items > 0)) {
9373 SWIG_croak("Usage: new_gsl_complex();");
9374 }
9375 result = (gsl_complex *)calloc(1, sizeof(gsl_complex));
9376 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_complex, SWIG_OWNER | SWIG_SHADOW); argvi++ ;
9377 XSRETURN(argvi);
9378 fail:
9379 SWIG_croak_null();
9380 }
9381 }
9382
9383
XS(_wrap_delete_gsl_complex)9384 XS(_wrap_delete_gsl_complex) {
9385 {
9386 gsl_complex *arg1 = (gsl_complex *) 0 ;
9387 void *argp1 = 0 ;
9388 int res1 = 0 ;
9389 int argvi = 0;
9390 dXSARGS;
9391
9392 if ((items < 1) || (items > 1)) {
9393 SWIG_croak("Usage: delete_gsl_complex(self);");
9394 }
9395 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_complex, SWIG_POINTER_DISOWN | 0 );
9396 if (!SWIG_IsOK(res1)) {
9397 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "delete_gsl_complex" "', argument " "1"" of type '" "gsl_complex *""'");
9398 }
9399 arg1 = (gsl_complex *)(argp1);
9400 free((char *) arg1);
9401 ST(argvi) = &PL_sv_undef;
9402
9403 XSRETURN(argvi);
9404 fail:
9405
9406 SWIG_croak_null();
9407 }
9408 }
9409
9410
XS(_wrap_gsl_complex_long_double_dat_set)9411 XS(_wrap_gsl_complex_long_double_dat_set) {
9412 {
9413 gsl_complex_long_double *arg1 = (gsl_complex_long_double *) 0 ;
9414 long double *arg2 ;
9415 void *argp1 = 0 ;
9416 int res1 = 0 ;
9417 void *argp2 = 0 ;
9418 int res2 = 0 ;
9419 int argvi = 0;
9420 dXSARGS;
9421
9422 if ((items < 2) || (items > 2)) {
9423 SWIG_croak("Usage: gsl_complex_long_double_dat_set(self,dat);");
9424 }
9425 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_complex_long_double, 0 | 0 );
9426 if (!SWIG_IsOK(res1)) {
9427 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_long_double_dat_set" "', argument " "1"" of type '" "gsl_complex_long_double *""'");
9428 }
9429 arg1 = (gsl_complex_long_double *)(argp1);
9430 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_long_double, 0 | 0 );
9431 if (!SWIG_IsOK(res2)) {
9432 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_complex_long_double_dat_set" "', argument " "2"" of type '" "long double [2]""'");
9433 }
9434 arg2 = (long double *)(argp2);
9435 {
9436 if (arg2) {
9437 size_t ii = 0;
9438 for (; ii < (size_t)2; ++ii) *(long double *)&arg1->dat[ii] = *((long double *)arg2 + ii);
9439 } else {
9440 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in variable '""dat""' of type '""long double [2]""'");
9441 }
9442 }
9443 ST(argvi) = &PL_sv_undef;
9444
9445
9446 XSRETURN(argvi);
9447 fail:
9448
9449
9450 SWIG_croak_null();
9451 }
9452 }
9453
9454
XS(_wrap_gsl_complex_long_double_dat_get)9455 XS(_wrap_gsl_complex_long_double_dat_get) {
9456 {
9457 gsl_complex_long_double *arg1 = (gsl_complex_long_double *) 0 ;
9458 void *argp1 = 0 ;
9459 int res1 = 0 ;
9460 int argvi = 0;
9461 long double *result = 0 ;
9462 dXSARGS;
9463
9464 if ((items < 1) || (items > 1)) {
9465 SWIG_croak("Usage: gsl_complex_long_double_dat_get(self);");
9466 }
9467 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_complex_long_double, 0 | 0 );
9468 if (!SWIG_IsOK(res1)) {
9469 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_long_double_dat_get" "', argument " "1"" of type '" "gsl_complex_long_double *""'");
9470 }
9471 arg1 = (gsl_complex_long_double *)(argp1);
9472 result = (long double *)(long double *) ((arg1)->dat);
9473 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_long_double, 0 | 0); argvi++ ;
9474
9475 XSRETURN(argvi);
9476 fail:
9477
9478 SWIG_croak_null();
9479 }
9480 }
9481
9482
XS(_wrap_new_gsl_complex_long_double)9483 XS(_wrap_new_gsl_complex_long_double) {
9484 {
9485 int argvi = 0;
9486 gsl_complex_long_double *result = 0 ;
9487 dXSARGS;
9488
9489 if ((items < 0) || (items > 0)) {
9490 SWIG_croak("Usage: new_gsl_complex_long_double();");
9491 }
9492 result = (gsl_complex_long_double *)calloc(1, sizeof(gsl_complex_long_double));
9493 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_complex_long_double, SWIG_OWNER | SWIG_SHADOW); argvi++ ;
9494 XSRETURN(argvi);
9495 fail:
9496 SWIG_croak_null();
9497 }
9498 }
9499
9500
XS(_wrap_delete_gsl_complex_long_double)9501 XS(_wrap_delete_gsl_complex_long_double) {
9502 {
9503 gsl_complex_long_double *arg1 = (gsl_complex_long_double *) 0 ;
9504 void *argp1 = 0 ;
9505 int res1 = 0 ;
9506 int argvi = 0;
9507 dXSARGS;
9508
9509 if ((items < 1) || (items > 1)) {
9510 SWIG_croak("Usage: delete_gsl_complex_long_double(self);");
9511 }
9512 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_complex_long_double, SWIG_POINTER_DISOWN | 0 );
9513 if (!SWIG_IsOK(res1)) {
9514 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "delete_gsl_complex_long_double" "', argument " "1"" of type '" "gsl_complex_long_double *""'");
9515 }
9516 arg1 = (gsl_complex_long_double *)(argp1);
9517 free((char *) arg1);
9518 ST(argvi) = &PL_sv_undef;
9519
9520 XSRETURN(argvi);
9521 fail:
9522
9523 SWIG_croak_null();
9524 }
9525 }
9526
9527
XS(_wrap_gsl_complex_float_dat_set)9528 XS(_wrap_gsl_complex_float_dat_set) {
9529 {
9530 gsl_complex_float *arg1 = (gsl_complex_float *) 0 ;
9531 float *arg2 ;
9532 void *argp1 = 0 ;
9533 int res1 = 0 ;
9534 void *argp2 = 0 ;
9535 int res2 = 0 ;
9536 int argvi = 0;
9537 dXSARGS;
9538
9539 if ((items < 2) || (items > 2)) {
9540 SWIG_croak("Usage: gsl_complex_float_dat_set(self,dat);");
9541 }
9542 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_complex_float, 0 | 0 );
9543 if (!SWIG_IsOK(res1)) {
9544 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_float_dat_set" "', argument " "1"" of type '" "gsl_complex_float *""'");
9545 }
9546 arg1 = (gsl_complex_float *)(argp1);
9547 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_float, 0 | 0 );
9548 if (!SWIG_IsOK(res2)) {
9549 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_complex_float_dat_set" "', argument " "2"" of type '" "float [2]""'");
9550 }
9551 arg2 = (float *)(argp2);
9552 {
9553 if (arg2) {
9554 size_t ii = 0;
9555 for (; ii < (size_t)2; ++ii) *(float *)&arg1->dat[ii] = *((float *)arg2 + ii);
9556 } else {
9557 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in variable '""dat""' of type '""float [2]""'");
9558 }
9559 }
9560 ST(argvi) = &PL_sv_undef;
9561
9562
9563 XSRETURN(argvi);
9564 fail:
9565
9566
9567 SWIG_croak_null();
9568 }
9569 }
9570
9571
XS(_wrap_gsl_complex_float_dat_get)9572 XS(_wrap_gsl_complex_float_dat_get) {
9573 {
9574 gsl_complex_float *arg1 = (gsl_complex_float *) 0 ;
9575 void *argp1 = 0 ;
9576 int res1 = 0 ;
9577 int argvi = 0;
9578 float *result = 0 ;
9579 dXSARGS;
9580
9581 if ((items < 1) || (items > 1)) {
9582 SWIG_croak("Usage: gsl_complex_float_dat_get(self);");
9583 }
9584 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_complex_float, 0 | 0 );
9585 if (!SWIG_IsOK(res1)) {
9586 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_float_dat_get" "', argument " "1"" of type '" "gsl_complex_float *""'");
9587 }
9588 arg1 = (gsl_complex_float *)(argp1);
9589 result = (float *)(float *) ((arg1)->dat);
9590 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_float, 0 | 0); argvi++ ;
9591
9592 XSRETURN(argvi);
9593 fail:
9594
9595 SWIG_croak_null();
9596 }
9597 }
9598
9599
XS(_wrap_new_gsl_complex_float)9600 XS(_wrap_new_gsl_complex_float) {
9601 {
9602 int argvi = 0;
9603 gsl_complex_float *result = 0 ;
9604 dXSARGS;
9605
9606 if ((items < 0) || (items > 0)) {
9607 SWIG_croak("Usage: new_gsl_complex_float();");
9608 }
9609 result = (gsl_complex_float *)calloc(1, sizeof(gsl_complex_float));
9610 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_complex_float, SWIG_OWNER | SWIG_SHADOW); argvi++ ;
9611 XSRETURN(argvi);
9612 fail:
9613 SWIG_croak_null();
9614 }
9615 }
9616
9617
XS(_wrap_delete_gsl_complex_float)9618 XS(_wrap_delete_gsl_complex_float) {
9619 {
9620 gsl_complex_float *arg1 = (gsl_complex_float *) 0 ;
9621 void *argp1 = 0 ;
9622 int res1 = 0 ;
9623 int argvi = 0;
9624 dXSARGS;
9625
9626 if ((items < 1) || (items > 1)) {
9627 SWIG_croak("Usage: delete_gsl_complex_float(self);");
9628 }
9629 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_complex_float, SWIG_POINTER_DISOWN | 0 );
9630 if (!SWIG_IsOK(res1)) {
9631 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "delete_gsl_complex_float" "', argument " "1"" of type '" "gsl_complex_float *""'");
9632 }
9633 arg1 = (gsl_complex_float *)(argp1);
9634 free((char *) arg1);
9635 ST(argvi) = &PL_sv_undef;
9636
9637 XSRETURN(argvi);
9638 fail:
9639
9640 SWIG_croak_null();
9641 }
9642 }
9643
9644
XS(_wrap_gsl_complex_polar)9645 XS(_wrap_gsl_complex_polar) {
9646 {
9647 double arg1 ;
9648 double arg2 ;
9649 double val1 ;
9650 int ecode1 = 0 ;
9651 double val2 ;
9652 int ecode2 = 0 ;
9653 int argvi = 0;
9654 gsl_complex result;
9655 dXSARGS;
9656
9657 if ((items < 2) || (items > 2)) {
9658 SWIG_croak("Usage: gsl_complex_polar(r,theta);");
9659 }
9660 ecode1 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
9661 if (!SWIG_IsOK(ecode1)) {
9662 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_complex_polar" "', argument " "1"" of type '" "double""'");
9663 }
9664 arg1 = (double)(val1);
9665 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
9666 if (!SWIG_IsOK(ecode2)) {
9667 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_complex_polar" "', argument " "2"" of type '" "double""'");
9668 }
9669 arg2 = (double)(val2);
9670 result = gsl_complex_polar(arg1,arg2);
9671 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++ ;
9672
9673
9674 XSRETURN(argvi);
9675 fail:
9676
9677
9678 SWIG_croak_null();
9679 }
9680 }
9681
9682
XS(_wrap_gsl_complex_rect)9683 XS(_wrap_gsl_complex_rect) {
9684 {
9685 double arg1 ;
9686 double arg2 ;
9687 double val1 ;
9688 int ecode1 = 0 ;
9689 double val2 ;
9690 int ecode2 = 0 ;
9691 int argvi = 0;
9692 gsl_complex result;
9693 dXSARGS;
9694
9695 if ((items < 2) || (items > 2)) {
9696 SWIG_croak("Usage: gsl_complex_rect(x,y);");
9697 }
9698 ecode1 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
9699 if (!SWIG_IsOK(ecode1)) {
9700 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_complex_rect" "', argument " "1"" of type '" "double""'");
9701 }
9702 arg1 = (double)(val1);
9703 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
9704 if (!SWIG_IsOK(ecode2)) {
9705 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_complex_rect" "', argument " "2"" of type '" "double""'");
9706 }
9707 arg2 = (double)(val2);
9708 result = gsl_complex_rect(arg1,arg2);
9709 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++ ;
9710
9711
9712 XSRETURN(argvi);
9713 fail:
9714
9715
9716 SWIG_croak_null();
9717 }
9718 }
9719
9720
XS(_wrap_gsl_complex_arg)9721 XS(_wrap_gsl_complex_arg) {
9722 {
9723 gsl_complex arg1 ;
9724 void *argp1 ;
9725 int res1 = 0 ;
9726 int argvi = 0;
9727 double result;
9728 dXSARGS;
9729
9730 if ((items < 1) || (items > 1)) {
9731 SWIG_croak("Usage: gsl_complex_arg(z);");
9732 }
9733 {
9734 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
9735 if (!SWIG_IsOK(res1)) {
9736 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_arg" "', argument " "1"" of type '" "gsl_complex""'");
9737 }
9738 if (!argp1) {
9739 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_arg" "', argument " "1"" of type '" "gsl_complex""'");
9740 } else {
9741 arg1 = *((gsl_complex *)(argp1));
9742 }
9743 }
9744 result = (double)gsl_complex_arg(arg1);
9745 ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(result)); argvi++ ;
9746 XSRETURN(argvi);
9747 fail:
9748 SWIG_croak_null();
9749 }
9750 }
9751
9752
XS(_wrap_gsl_complex_abs)9753 XS(_wrap_gsl_complex_abs) {
9754 {
9755 gsl_complex arg1 ;
9756 void *argp1 ;
9757 int res1 = 0 ;
9758 int argvi = 0;
9759 double result;
9760 dXSARGS;
9761
9762 if ((items < 1) || (items > 1)) {
9763 SWIG_croak("Usage: gsl_complex_abs(z);");
9764 }
9765 {
9766 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
9767 if (!SWIG_IsOK(res1)) {
9768 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_abs" "', argument " "1"" of type '" "gsl_complex""'");
9769 }
9770 if (!argp1) {
9771 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_abs" "', argument " "1"" of type '" "gsl_complex""'");
9772 } else {
9773 arg1 = *((gsl_complex *)(argp1));
9774 }
9775 }
9776 result = (double)gsl_complex_abs(arg1);
9777 ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(result)); argvi++ ;
9778 XSRETURN(argvi);
9779 fail:
9780 SWIG_croak_null();
9781 }
9782 }
9783
9784
XS(_wrap_gsl_complex_abs2)9785 XS(_wrap_gsl_complex_abs2) {
9786 {
9787 gsl_complex arg1 ;
9788 void *argp1 ;
9789 int res1 = 0 ;
9790 int argvi = 0;
9791 double result;
9792 dXSARGS;
9793
9794 if ((items < 1) || (items > 1)) {
9795 SWIG_croak("Usage: gsl_complex_abs2(z);");
9796 }
9797 {
9798 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
9799 if (!SWIG_IsOK(res1)) {
9800 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_abs2" "', argument " "1"" of type '" "gsl_complex""'");
9801 }
9802 if (!argp1) {
9803 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_abs2" "', argument " "1"" of type '" "gsl_complex""'");
9804 } else {
9805 arg1 = *((gsl_complex *)(argp1));
9806 }
9807 }
9808 result = (double)gsl_complex_abs2(arg1);
9809 ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(result)); argvi++ ;
9810 XSRETURN(argvi);
9811 fail:
9812 SWIG_croak_null();
9813 }
9814 }
9815
9816
XS(_wrap_gsl_complex_logabs)9817 XS(_wrap_gsl_complex_logabs) {
9818 {
9819 gsl_complex arg1 ;
9820 void *argp1 ;
9821 int res1 = 0 ;
9822 int argvi = 0;
9823 double result;
9824 dXSARGS;
9825
9826 if ((items < 1) || (items > 1)) {
9827 SWIG_croak("Usage: gsl_complex_logabs(z);");
9828 }
9829 {
9830 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
9831 if (!SWIG_IsOK(res1)) {
9832 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_logabs" "', argument " "1"" of type '" "gsl_complex""'");
9833 }
9834 if (!argp1) {
9835 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_logabs" "', argument " "1"" of type '" "gsl_complex""'");
9836 } else {
9837 arg1 = *((gsl_complex *)(argp1));
9838 }
9839 }
9840 result = (double)gsl_complex_logabs(arg1);
9841 ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(result)); argvi++ ;
9842 XSRETURN(argvi);
9843 fail:
9844 SWIG_croak_null();
9845 }
9846 }
9847
9848
XS(_wrap_gsl_complex_add)9849 XS(_wrap_gsl_complex_add) {
9850 {
9851 gsl_complex arg1 ;
9852 gsl_complex arg2 ;
9853 void *argp1 ;
9854 int res1 = 0 ;
9855 void *argp2 ;
9856 int res2 = 0 ;
9857 int argvi = 0;
9858 gsl_complex result;
9859 dXSARGS;
9860
9861 if ((items < 2) || (items > 2)) {
9862 SWIG_croak("Usage: gsl_complex_add(a,b);");
9863 }
9864 {
9865 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
9866 if (!SWIG_IsOK(res1)) {
9867 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_add" "', argument " "1"" of type '" "gsl_complex""'");
9868 }
9869 if (!argp1) {
9870 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_add" "', argument " "1"" of type '" "gsl_complex""'");
9871 } else {
9872 arg1 = *((gsl_complex *)(argp1));
9873 }
9874 }
9875 {
9876 res2 = SWIG_ConvertPtr(ST(1), &argp2, SWIGTYPE_p_gsl_complex, 0 );
9877 if (!SWIG_IsOK(res2)) {
9878 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_complex_add" "', argument " "2"" of type '" "gsl_complex""'");
9879 }
9880 if (!argp2) {
9881 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_add" "', argument " "2"" of type '" "gsl_complex""'");
9882 } else {
9883 arg2 = *((gsl_complex *)(argp2));
9884 }
9885 }
9886 result = gsl_complex_add(arg1,arg2);
9887 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++ ;
9888 XSRETURN(argvi);
9889 fail:
9890 SWIG_croak_null();
9891 }
9892 }
9893
9894
XS(_wrap_gsl_complex_sub)9895 XS(_wrap_gsl_complex_sub) {
9896 {
9897 gsl_complex arg1 ;
9898 gsl_complex arg2 ;
9899 void *argp1 ;
9900 int res1 = 0 ;
9901 void *argp2 ;
9902 int res2 = 0 ;
9903 int argvi = 0;
9904 gsl_complex result;
9905 dXSARGS;
9906
9907 if ((items < 2) || (items > 2)) {
9908 SWIG_croak("Usage: gsl_complex_sub(a,b);");
9909 }
9910 {
9911 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
9912 if (!SWIG_IsOK(res1)) {
9913 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_sub" "', argument " "1"" of type '" "gsl_complex""'");
9914 }
9915 if (!argp1) {
9916 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_sub" "', argument " "1"" of type '" "gsl_complex""'");
9917 } else {
9918 arg1 = *((gsl_complex *)(argp1));
9919 }
9920 }
9921 {
9922 res2 = SWIG_ConvertPtr(ST(1), &argp2, SWIGTYPE_p_gsl_complex, 0 );
9923 if (!SWIG_IsOK(res2)) {
9924 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_complex_sub" "', argument " "2"" of type '" "gsl_complex""'");
9925 }
9926 if (!argp2) {
9927 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_sub" "', argument " "2"" of type '" "gsl_complex""'");
9928 } else {
9929 arg2 = *((gsl_complex *)(argp2));
9930 }
9931 }
9932 result = gsl_complex_sub(arg1,arg2);
9933 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++ ;
9934 XSRETURN(argvi);
9935 fail:
9936 SWIG_croak_null();
9937 }
9938 }
9939
9940
XS(_wrap_gsl_complex_mul)9941 XS(_wrap_gsl_complex_mul) {
9942 {
9943 gsl_complex arg1 ;
9944 gsl_complex arg2 ;
9945 void *argp1 ;
9946 int res1 = 0 ;
9947 void *argp2 ;
9948 int res2 = 0 ;
9949 int argvi = 0;
9950 gsl_complex result;
9951 dXSARGS;
9952
9953 if ((items < 2) || (items > 2)) {
9954 SWIG_croak("Usage: gsl_complex_mul(a,b);");
9955 }
9956 {
9957 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
9958 if (!SWIG_IsOK(res1)) {
9959 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_mul" "', argument " "1"" of type '" "gsl_complex""'");
9960 }
9961 if (!argp1) {
9962 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_mul" "', argument " "1"" of type '" "gsl_complex""'");
9963 } else {
9964 arg1 = *((gsl_complex *)(argp1));
9965 }
9966 }
9967 {
9968 res2 = SWIG_ConvertPtr(ST(1), &argp2, SWIGTYPE_p_gsl_complex, 0 );
9969 if (!SWIG_IsOK(res2)) {
9970 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_complex_mul" "', argument " "2"" of type '" "gsl_complex""'");
9971 }
9972 if (!argp2) {
9973 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_mul" "', argument " "2"" of type '" "gsl_complex""'");
9974 } else {
9975 arg2 = *((gsl_complex *)(argp2));
9976 }
9977 }
9978 result = gsl_complex_mul(arg1,arg2);
9979 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++ ;
9980 XSRETURN(argvi);
9981 fail:
9982 SWIG_croak_null();
9983 }
9984 }
9985
9986
XS(_wrap_gsl_complex_div)9987 XS(_wrap_gsl_complex_div) {
9988 {
9989 gsl_complex arg1 ;
9990 gsl_complex arg2 ;
9991 void *argp1 ;
9992 int res1 = 0 ;
9993 void *argp2 ;
9994 int res2 = 0 ;
9995 int argvi = 0;
9996 gsl_complex result;
9997 dXSARGS;
9998
9999 if ((items < 2) || (items > 2)) {
10000 SWIG_croak("Usage: gsl_complex_div(a,b);");
10001 }
10002 {
10003 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
10004 if (!SWIG_IsOK(res1)) {
10005 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_div" "', argument " "1"" of type '" "gsl_complex""'");
10006 }
10007 if (!argp1) {
10008 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_div" "', argument " "1"" of type '" "gsl_complex""'");
10009 } else {
10010 arg1 = *((gsl_complex *)(argp1));
10011 }
10012 }
10013 {
10014 res2 = SWIG_ConvertPtr(ST(1), &argp2, SWIGTYPE_p_gsl_complex, 0 );
10015 if (!SWIG_IsOK(res2)) {
10016 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_complex_div" "', argument " "2"" of type '" "gsl_complex""'");
10017 }
10018 if (!argp2) {
10019 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_div" "', argument " "2"" of type '" "gsl_complex""'");
10020 } else {
10021 arg2 = *((gsl_complex *)(argp2));
10022 }
10023 }
10024 result = gsl_complex_div(arg1,arg2);
10025 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++ ;
10026 XSRETURN(argvi);
10027 fail:
10028 SWIG_croak_null();
10029 }
10030 }
10031
10032
XS(_wrap_gsl_complex_add_real)10033 XS(_wrap_gsl_complex_add_real) {
10034 {
10035 gsl_complex arg1 ;
10036 double arg2 ;
10037 void *argp1 ;
10038 int res1 = 0 ;
10039 double val2 ;
10040 int ecode2 = 0 ;
10041 int argvi = 0;
10042 gsl_complex result;
10043 dXSARGS;
10044
10045 if ((items < 2) || (items > 2)) {
10046 SWIG_croak("Usage: gsl_complex_add_real(a,x);");
10047 }
10048 {
10049 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
10050 if (!SWIG_IsOK(res1)) {
10051 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_add_real" "', argument " "1"" of type '" "gsl_complex""'");
10052 }
10053 if (!argp1) {
10054 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_add_real" "', argument " "1"" of type '" "gsl_complex""'");
10055 } else {
10056 arg1 = *((gsl_complex *)(argp1));
10057 }
10058 }
10059 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
10060 if (!SWIG_IsOK(ecode2)) {
10061 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_complex_add_real" "', argument " "2"" of type '" "double""'");
10062 }
10063 arg2 = (double)(val2);
10064 result = gsl_complex_add_real(arg1,arg2);
10065 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++ ;
10066
10067 XSRETURN(argvi);
10068 fail:
10069
10070 SWIG_croak_null();
10071 }
10072 }
10073
10074
XS(_wrap_gsl_complex_sub_real)10075 XS(_wrap_gsl_complex_sub_real) {
10076 {
10077 gsl_complex arg1 ;
10078 double arg2 ;
10079 void *argp1 ;
10080 int res1 = 0 ;
10081 double val2 ;
10082 int ecode2 = 0 ;
10083 int argvi = 0;
10084 gsl_complex result;
10085 dXSARGS;
10086
10087 if ((items < 2) || (items > 2)) {
10088 SWIG_croak("Usage: gsl_complex_sub_real(a,x);");
10089 }
10090 {
10091 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
10092 if (!SWIG_IsOK(res1)) {
10093 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_sub_real" "', argument " "1"" of type '" "gsl_complex""'");
10094 }
10095 if (!argp1) {
10096 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_sub_real" "', argument " "1"" of type '" "gsl_complex""'");
10097 } else {
10098 arg1 = *((gsl_complex *)(argp1));
10099 }
10100 }
10101 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
10102 if (!SWIG_IsOK(ecode2)) {
10103 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_complex_sub_real" "', argument " "2"" of type '" "double""'");
10104 }
10105 arg2 = (double)(val2);
10106 result = gsl_complex_sub_real(arg1,arg2);
10107 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++ ;
10108
10109 XSRETURN(argvi);
10110 fail:
10111
10112 SWIG_croak_null();
10113 }
10114 }
10115
10116
XS(_wrap_gsl_complex_mul_real)10117 XS(_wrap_gsl_complex_mul_real) {
10118 {
10119 gsl_complex arg1 ;
10120 double arg2 ;
10121 void *argp1 ;
10122 int res1 = 0 ;
10123 double val2 ;
10124 int ecode2 = 0 ;
10125 int argvi = 0;
10126 gsl_complex result;
10127 dXSARGS;
10128
10129 if ((items < 2) || (items > 2)) {
10130 SWIG_croak("Usage: gsl_complex_mul_real(a,x);");
10131 }
10132 {
10133 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
10134 if (!SWIG_IsOK(res1)) {
10135 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_mul_real" "', argument " "1"" of type '" "gsl_complex""'");
10136 }
10137 if (!argp1) {
10138 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_mul_real" "', argument " "1"" of type '" "gsl_complex""'");
10139 } else {
10140 arg1 = *((gsl_complex *)(argp1));
10141 }
10142 }
10143 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
10144 if (!SWIG_IsOK(ecode2)) {
10145 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_complex_mul_real" "', argument " "2"" of type '" "double""'");
10146 }
10147 arg2 = (double)(val2);
10148 result = gsl_complex_mul_real(arg1,arg2);
10149 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++ ;
10150
10151 XSRETURN(argvi);
10152 fail:
10153
10154 SWIG_croak_null();
10155 }
10156 }
10157
10158
XS(_wrap_gsl_complex_div_real)10159 XS(_wrap_gsl_complex_div_real) {
10160 {
10161 gsl_complex arg1 ;
10162 double arg2 ;
10163 void *argp1 ;
10164 int res1 = 0 ;
10165 double val2 ;
10166 int ecode2 = 0 ;
10167 int argvi = 0;
10168 gsl_complex result;
10169 dXSARGS;
10170
10171 if ((items < 2) || (items > 2)) {
10172 SWIG_croak("Usage: gsl_complex_div_real(a,x);");
10173 }
10174 {
10175 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
10176 if (!SWIG_IsOK(res1)) {
10177 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_div_real" "', argument " "1"" of type '" "gsl_complex""'");
10178 }
10179 if (!argp1) {
10180 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_div_real" "', argument " "1"" of type '" "gsl_complex""'");
10181 } else {
10182 arg1 = *((gsl_complex *)(argp1));
10183 }
10184 }
10185 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
10186 if (!SWIG_IsOK(ecode2)) {
10187 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_complex_div_real" "', argument " "2"" of type '" "double""'");
10188 }
10189 arg2 = (double)(val2);
10190 result = gsl_complex_div_real(arg1,arg2);
10191 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++ ;
10192
10193 XSRETURN(argvi);
10194 fail:
10195
10196 SWIG_croak_null();
10197 }
10198 }
10199
10200
XS(_wrap_gsl_complex_add_imag)10201 XS(_wrap_gsl_complex_add_imag) {
10202 {
10203 gsl_complex arg1 ;
10204 double arg2 ;
10205 void *argp1 ;
10206 int res1 = 0 ;
10207 double val2 ;
10208 int ecode2 = 0 ;
10209 int argvi = 0;
10210 gsl_complex result;
10211 dXSARGS;
10212
10213 if ((items < 2) || (items > 2)) {
10214 SWIG_croak("Usage: gsl_complex_add_imag(a,y);");
10215 }
10216 {
10217 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
10218 if (!SWIG_IsOK(res1)) {
10219 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_add_imag" "', argument " "1"" of type '" "gsl_complex""'");
10220 }
10221 if (!argp1) {
10222 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_add_imag" "', argument " "1"" of type '" "gsl_complex""'");
10223 } else {
10224 arg1 = *((gsl_complex *)(argp1));
10225 }
10226 }
10227 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
10228 if (!SWIG_IsOK(ecode2)) {
10229 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_complex_add_imag" "', argument " "2"" of type '" "double""'");
10230 }
10231 arg2 = (double)(val2);
10232 result = gsl_complex_add_imag(arg1,arg2);
10233 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++ ;
10234
10235 XSRETURN(argvi);
10236 fail:
10237
10238 SWIG_croak_null();
10239 }
10240 }
10241
10242
XS(_wrap_gsl_complex_sub_imag)10243 XS(_wrap_gsl_complex_sub_imag) {
10244 {
10245 gsl_complex arg1 ;
10246 double arg2 ;
10247 void *argp1 ;
10248 int res1 = 0 ;
10249 double val2 ;
10250 int ecode2 = 0 ;
10251 int argvi = 0;
10252 gsl_complex result;
10253 dXSARGS;
10254
10255 if ((items < 2) || (items > 2)) {
10256 SWIG_croak("Usage: gsl_complex_sub_imag(a,y);");
10257 }
10258 {
10259 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
10260 if (!SWIG_IsOK(res1)) {
10261 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_sub_imag" "', argument " "1"" of type '" "gsl_complex""'");
10262 }
10263 if (!argp1) {
10264 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_sub_imag" "', argument " "1"" of type '" "gsl_complex""'");
10265 } else {
10266 arg1 = *((gsl_complex *)(argp1));
10267 }
10268 }
10269 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
10270 if (!SWIG_IsOK(ecode2)) {
10271 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_complex_sub_imag" "', argument " "2"" of type '" "double""'");
10272 }
10273 arg2 = (double)(val2);
10274 result = gsl_complex_sub_imag(arg1,arg2);
10275 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++ ;
10276
10277 XSRETURN(argvi);
10278 fail:
10279
10280 SWIG_croak_null();
10281 }
10282 }
10283
10284
XS(_wrap_gsl_complex_mul_imag)10285 XS(_wrap_gsl_complex_mul_imag) {
10286 {
10287 gsl_complex arg1 ;
10288 double arg2 ;
10289 void *argp1 ;
10290 int res1 = 0 ;
10291 double val2 ;
10292 int ecode2 = 0 ;
10293 int argvi = 0;
10294 gsl_complex result;
10295 dXSARGS;
10296
10297 if ((items < 2) || (items > 2)) {
10298 SWIG_croak("Usage: gsl_complex_mul_imag(a,y);");
10299 }
10300 {
10301 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
10302 if (!SWIG_IsOK(res1)) {
10303 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_mul_imag" "', argument " "1"" of type '" "gsl_complex""'");
10304 }
10305 if (!argp1) {
10306 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_mul_imag" "', argument " "1"" of type '" "gsl_complex""'");
10307 } else {
10308 arg1 = *((gsl_complex *)(argp1));
10309 }
10310 }
10311 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
10312 if (!SWIG_IsOK(ecode2)) {
10313 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_complex_mul_imag" "', argument " "2"" of type '" "double""'");
10314 }
10315 arg2 = (double)(val2);
10316 result = gsl_complex_mul_imag(arg1,arg2);
10317 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++ ;
10318
10319 XSRETURN(argvi);
10320 fail:
10321
10322 SWIG_croak_null();
10323 }
10324 }
10325
10326
XS(_wrap_gsl_complex_div_imag)10327 XS(_wrap_gsl_complex_div_imag) {
10328 {
10329 gsl_complex arg1 ;
10330 double arg2 ;
10331 void *argp1 ;
10332 int res1 = 0 ;
10333 double val2 ;
10334 int ecode2 = 0 ;
10335 int argvi = 0;
10336 gsl_complex result;
10337 dXSARGS;
10338
10339 if ((items < 2) || (items > 2)) {
10340 SWIG_croak("Usage: gsl_complex_div_imag(a,y);");
10341 }
10342 {
10343 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
10344 if (!SWIG_IsOK(res1)) {
10345 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_div_imag" "', argument " "1"" of type '" "gsl_complex""'");
10346 }
10347 if (!argp1) {
10348 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_div_imag" "', argument " "1"" of type '" "gsl_complex""'");
10349 } else {
10350 arg1 = *((gsl_complex *)(argp1));
10351 }
10352 }
10353 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
10354 if (!SWIG_IsOK(ecode2)) {
10355 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_complex_div_imag" "', argument " "2"" of type '" "double""'");
10356 }
10357 arg2 = (double)(val2);
10358 result = gsl_complex_div_imag(arg1,arg2);
10359 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++ ;
10360
10361 XSRETURN(argvi);
10362 fail:
10363
10364 SWIG_croak_null();
10365 }
10366 }
10367
10368
XS(_wrap_gsl_complex_conjugate)10369 XS(_wrap_gsl_complex_conjugate) {
10370 {
10371 gsl_complex arg1 ;
10372 void *argp1 ;
10373 int res1 = 0 ;
10374 int argvi = 0;
10375 gsl_complex result;
10376 dXSARGS;
10377
10378 if ((items < 1) || (items > 1)) {
10379 SWIG_croak("Usage: gsl_complex_conjugate(z);");
10380 }
10381 {
10382 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
10383 if (!SWIG_IsOK(res1)) {
10384 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_conjugate" "', argument " "1"" of type '" "gsl_complex""'");
10385 }
10386 if (!argp1) {
10387 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_conjugate" "', argument " "1"" of type '" "gsl_complex""'");
10388 } else {
10389 arg1 = *((gsl_complex *)(argp1));
10390 }
10391 }
10392 result = gsl_complex_conjugate(arg1);
10393 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++ ;
10394 XSRETURN(argvi);
10395 fail:
10396 SWIG_croak_null();
10397 }
10398 }
10399
10400
XS(_wrap_gsl_complex_inverse)10401 XS(_wrap_gsl_complex_inverse) {
10402 {
10403 gsl_complex arg1 ;
10404 void *argp1 ;
10405 int res1 = 0 ;
10406 int argvi = 0;
10407 gsl_complex result;
10408 dXSARGS;
10409
10410 if ((items < 1) || (items > 1)) {
10411 SWIG_croak("Usage: gsl_complex_inverse(a);");
10412 }
10413 {
10414 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
10415 if (!SWIG_IsOK(res1)) {
10416 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_inverse" "', argument " "1"" of type '" "gsl_complex""'");
10417 }
10418 if (!argp1) {
10419 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_inverse" "', argument " "1"" of type '" "gsl_complex""'");
10420 } else {
10421 arg1 = *((gsl_complex *)(argp1));
10422 }
10423 }
10424 result = gsl_complex_inverse(arg1);
10425 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++ ;
10426 XSRETURN(argvi);
10427 fail:
10428 SWIG_croak_null();
10429 }
10430 }
10431
10432
XS(_wrap_gsl_complex_negative)10433 XS(_wrap_gsl_complex_negative) {
10434 {
10435 gsl_complex arg1 ;
10436 void *argp1 ;
10437 int res1 = 0 ;
10438 int argvi = 0;
10439 gsl_complex result;
10440 dXSARGS;
10441
10442 if ((items < 1) || (items > 1)) {
10443 SWIG_croak("Usage: gsl_complex_negative(a);");
10444 }
10445 {
10446 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
10447 if (!SWIG_IsOK(res1)) {
10448 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_negative" "', argument " "1"" of type '" "gsl_complex""'");
10449 }
10450 if (!argp1) {
10451 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_negative" "', argument " "1"" of type '" "gsl_complex""'");
10452 } else {
10453 arg1 = *((gsl_complex *)(argp1));
10454 }
10455 }
10456 result = gsl_complex_negative(arg1);
10457 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++ ;
10458 XSRETURN(argvi);
10459 fail:
10460 SWIG_croak_null();
10461 }
10462 }
10463
10464
XS(_wrap_gsl_complex_sqrt)10465 XS(_wrap_gsl_complex_sqrt) {
10466 {
10467 gsl_complex arg1 ;
10468 void *argp1 ;
10469 int res1 = 0 ;
10470 int argvi = 0;
10471 gsl_complex result;
10472 dXSARGS;
10473
10474 if ((items < 1) || (items > 1)) {
10475 SWIG_croak("Usage: gsl_complex_sqrt(z);");
10476 }
10477 {
10478 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
10479 if (!SWIG_IsOK(res1)) {
10480 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_sqrt" "', argument " "1"" of type '" "gsl_complex""'");
10481 }
10482 if (!argp1) {
10483 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_sqrt" "', argument " "1"" of type '" "gsl_complex""'");
10484 } else {
10485 arg1 = *((gsl_complex *)(argp1));
10486 }
10487 }
10488 result = gsl_complex_sqrt(arg1);
10489 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++ ;
10490 XSRETURN(argvi);
10491 fail:
10492 SWIG_croak_null();
10493 }
10494 }
10495
10496
XS(_wrap_gsl_complex_sqrt_real)10497 XS(_wrap_gsl_complex_sqrt_real) {
10498 {
10499 double arg1 ;
10500 double val1 ;
10501 int ecode1 = 0 ;
10502 int argvi = 0;
10503 gsl_complex result;
10504 dXSARGS;
10505
10506 if ((items < 1) || (items > 1)) {
10507 SWIG_croak("Usage: gsl_complex_sqrt_real(x);");
10508 }
10509 ecode1 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
10510 if (!SWIG_IsOK(ecode1)) {
10511 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_complex_sqrt_real" "', argument " "1"" of type '" "double""'");
10512 }
10513 arg1 = (double)(val1);
10514 result = gsl_complex_sqrt_real(arg1);
10515 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++ ;
10516
10517 XSRETURN(argvi);
10518 fail:
10519
10520 SWIG_croak_null();
10521 }
10522 }
10523
10524
XS(_wrap_gsl_complex_pow)10525 XS(_wrap_gsl_complex_pow) {
10526 {
10527 gsl_complex arg1 ;
10528 gsl_complex arg2 ;
10529 void *argp1 ;
10530 int res1 = 0 ;
10531 void *argp2 ;
10532 int res2 = 0 ;
10533 int argvi = 0;
10534 gsl_complex result;
10535 dXSARGS;
10536
10537 if ((items < 2) || (items > 2)) {
10538 SWIG_croak("Usage: gsl_complex_pow(a,b);");
10539 }
10540 {
10541 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
10542 if (!SWIG_IsOK(res1)) {
10543 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_pow" "', argument " "1"" of type '" "gsl_complex""'");
10544 }
10545 if (!argp1) {
10546 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_pow" "', argument " "1"" of type '" "gsl_complex""'");
10547 } else {
10548 arg1 = *((gsl_complex *)(argp1));
10549 }
10550 }
10551 {
10552 res2 = SWIG_ConvertPtr(ST(1), &argp2, SWIGTYPE_p_gsl_complex, 0 );
10553 if (!SWIG_IsOK(res2)) {
10554 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_complex_pow" "', argument " "2"" of type '" "gsl_complex""'");
10555 }
10556 if (!argp2) {
10557 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_pow" "', argument " "2"" of type '" "gsl_complex""'");
10558 } else {
10559 arg2 = *((gsl_complex *)(argp2));
10560 }
10561 }
10562 result = gsl_complex_pow(arg1,arg2);
10563 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++ ;
10564 XSRETURN(argvi);
10565 fail:
10566 SWIG_croak_null();
10567 }
10568 }
10569
10570
XS(_wrap_gsl_complex_pow_real)10571 XS(_wrap_gsl_complex_pow_real) {
10572 {
10573 gsl_complex arg1 ;
10574 double arg2 ;
10575 void *argp1 ;
10576 int res1 = 0 ;
10577 double val2 ;
10578 int ecode2 = 0 ;
10579 int argvi = 0;
10580 gsl_complex result;
10581 dXSARGS;
10582
10583 if ((items < 2) || (items > 2)) {
10584 SWIG_croak("Usage: gsl_complex_pow_real(a,b);");
10585 }
10586 {
10587 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
10588 if (!SWIG_IsOK(res1)) {
10589 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_pow_real" "', argument " "1"" of type '" "gsl_complex""'");
10590 }
10591 if (!argp1) {
10592 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_pow_real" "', argument " "1"" of type '" "gsl_complex""'");
10593 } else {
10594 arg1 = *((gsl_complex *)(argp1));
10595 }
10596 }
10597 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
10598 if (!SWIG_IsOK(ecode2)) {
10599 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_complex_pow_real" "', argument " "2"" of type '" "double""'");
10600 }
10601 arg2 = (double)(val2);
10602 result = gsl_complex_pow_real(arg1,arg2);
10603 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++ ;
10604
10605 XSRETURN(argvi);
10606 fail:
10607
10608 SWIG_croak_null();
10609 }
10610 }
10611
10612
XS(_wrap_gsl_complex_exp)10613 XS(_wrap_gsl_complex_exp) {
10614 {
10615 gsl_complex arg1 ;
10616 void *argp1 ;
10617 int res1 = 0 ;
10618 int argvi = 0;
10619 gsl_complex result;
10620 dXSARGS;
10621
10622 if ((items < 1) || (items > 1)) {
10623 SWIG_croak("Usage: gsl_complex_exp(a);");
10624 }
10625 {
10626 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
10627 if (!SWIG_IsOK(res1)) {
10628 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_exp" "', argument " "1"" of type '" "gsl_complex""'");
10629 }
10630 if (!argp1) {
10631 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_exp" "', argument " "1"" of type '" "gsl_complex""'");
10632 } else {
10633 arg1 = *((gsl_complex *)(argp1));
10634 }
10635 }
10636 result = gsl_complex_exp(arg1);
10637 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++ ;
10638 XSRETURN(argvi);
10639 fail:
10640 SWIG_croak_null();
10641 }
10642 }
10643
10644
XS(_wrap_gsl_complex_log)10645 XS(_wrap_gsl_complex_log) {
10646 {
10647 gsl_complex arg1 ;
10648 void *argp1 ;
10649 int res1 = 0 ;
10650 int argvi = 0;
10651 gsl_complex result;
10652 dXSARGS;
10653
10654 if ((items < 1) || (items > 1)) {
10655 SWIG_croak("Usage: gsl_complex_log(a);");
10656 }
10657 {
10658 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
10659 if (!SWIG_IsOK(res1)) {
10660 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_log" "', argument " "1"" of type '" "gsl_complex""'");
10661 }
10662 if (!argp1) {
10663 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_log" "', argument " "1"" of type '" "gsl_complex""'");
10664 } else {
10665 arg1 = *((gsl_complex *)(argp1));
10666 }
10667 }
10668 result = gsl_complex_log(arg1);
10669 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++ ;
10670 XSRETURN(argvi);
10671 fail:
10672 SWIG_croak_null();
10673 }
10674 }
10675
10676
XS(_wrap_gsl_complex_log10)10677 XS(_wrap_gsl_complex_log10) {
10678 {
10679 gsl_complex arg1 ;
10680 void *argp1 ;
10681 int res1 = 0 ;
10682 int argvi = 0;
10683 gsl_complex result;
10684 dXSARGS;
10685
10686 if ((items < 1) || (items > 1)) {
10687 SWIG_croak("Usage: gsl_complex_log10(a);");
10688 }
10689 {
10690 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
10691 if (!SWIG_IsOK(res1)) {
10692 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_log10" "', argument " "1"" of type '" "gsl_complex""'");
10693 }
10694 if (!argp1) {
10695 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_log10" "', argument " "1"" of type '" "gsl_complex""'");
10696 } else {
10697 arg1 = *((gsl_complex *)(argp1));
10698 }
10699 }
10700 result = gsl_complex_log10(arg1);
10701 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++ ;
10702 XSRETURN(argvi);
10703 fail:
10704 SWIG_croak_null();
10705 }
10706 }
10707
10708
XS(_wrap_gsl_complex_log_b)10709 XS(_wrap_gsl_complex_log_b) {
10710 {
10711 gsl_complex arg1 ;
10712 gsl_complex arg2 ;
10713 void *argp1 ;
10714 int res1 = 0 ;
10715 void *argp2 ;
10716 int res2 = 0 ;
10717 int argvi = 0;
10718 gsl_complex result;
10719 dXSARGS;
10720
10721 if ((items < 2) || (items > 2)) {
10722 SWIG_croak("Usage: gsl_complex_log_b(a,b);");
10723 }
10724 {
10725 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
10726 if (!SWIG_IsOK(res1)) {
10727 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_log_b" "', argument " "1"" of type '" "gsl_complex""'");
10728 }
10729 if (!argp1) {
10730 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_log_b" "', argument " "1"" of type '" "gsl_complex""'");
10731 } else {
10732 arg1 = *((gsl_complex *)(argp1));
10733 }
10734 }
10735 {
10736 res2 = SWIG_ConvertPtr(ST(1), &argp2, SWIGTYPE_p_gsl_complex, 0 );
10737 if (!SWIG_IsOK(res2)) {
10738 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_complex_log_b" "', argument " "2"" of type '" "gsl_complex""'");
10739 }
10740 if (!argp2) {
10741 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_log_b" "', argument " "2"" of type '" "gsl_complex""'");
10742 } else {
10743 arg2 = *((gsl_complex *)(argp2));
10744 }
10745 }
10746 result = gsl_complex_log_b(arg1,arg2);
10747 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++ ;
10748 XSRETURN(argvi);
10749 fail:
10750 SWIG_croak_null();
10751 }
10752 }
10753
10754
XS(_wrap_gsl_complex_sin)10755 XS(_wrap_gsl_complex_sin) {
10756 {
10757 gsl_complex arg1 ;
10758 void *argp1 ;
10759 int res1 = 0 ;
10760 int argvi = 0;
10761 gsl_complex result;
10762 dXSARGS;
10763
10764 if ((items < 1) || (items > 1)) {
10765 SWIG_croak("Usage: gsl_complex_sin(a);");
10766 }
10767 {
10768 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
10769 if (!SWIG_IsOK(res1)) {
10770 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_sin" "', argument " "1"" of type '" "gsl_complex""'");
10771 }
10772 if (!argp1) {
10773 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_sin" "', argument " "1"" of type '" "gsl_complex""'");
10774 } else {
10775 arg1 = *((gsl_complex *)(argp1));
10776 }
10777 }
10778 result = gsl_complex_sin(arg1);
10779 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++ ;
10780 XSRETURN(argvi);
10781 fail:
10782 SWIG_croak_null();
10783 }
10784 }
10785
10786
XS(_wrap_gsl_complex_cos)10787 XS(_wrap_gsl_complex_cos) {
10788 {
10789 gsl_complex arg1 ;
10790 void *argp1 ;
10791 int res1 = 0 ;
10792 int argvi = 0;
10793 gsl_complex result;
10794 dXSARGS;
10795
10796 if ((items < 1) || (items > 1)) {
10797 SWIG_croak("Usage: gsl_complex_cos(a);");
10798 }
10799 {
10800 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
10801 if (!SWIG_IsOK(res1)) {
10802 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_cos" "', argument " "1"" of type '" "gsl_complex""'");
10803 }
10804 if (!argp1) {
10805 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_cos" "', argument " "1"" of type '" "gsl_complex""'");
10806 } else {
10807 arg1 = *((gsl_complex *)(argp1));
10808 }
10809 }
10810 result = gsl_complex_cos(arg1);
10811 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++ ;
10812 XSRETURN(argvi);
10813 fail:
10814 SWIG_croak_null();
10815 }
10816 }
10817
10818
XS(_wrap_gsl_complex_sec)10819 XS(_wrap_gsl_complex_sec) {
10820 {
10821 gsl_complex arg1 ;
10822 void *argp1 ;
10823 int res1 = 0 ;
10824 int argvi = 0;
10825 gsl_complex result;
10826 dXSARGS;
10827
10828 if ((items < 1) || (items > 1)) {
10829 SWIG_croak("Usage: gsl_complex_sec(a);");
10830 }
10831 {
10832 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
10833 if (!SWIG_IsOK(res1)) {
10834 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_sec" "', argument " "1"" of type '" "gsl_complex""'");
10835 }
10836 if (!argp1) {
10837 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_sec" "', argument " "1"" of type '" "gsl_complex""'");
10838 } else {
10839 arg1 = *((gsl_complex *)(argp1));
10840 }
10841 }
10842 result = gsl_complex_sec(arg1);
10843 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++ ;
10844 XSRETURN(argvi);
10845 fail:
10846 SWIG_croak_null();
10847 }
10848 }
10849
10850
XS(_wrap_gsl_complex_csc)10851 XS(_wrap_gsl_complex_csc) {
10852 {
10853 gsl_complex arg1 ;
10854 void *argp1 ;
10855 int res1 = 0 ;
10856 int argvi = 0;
10857 gsl_complex result;
10858 dXSARGS;
10859
10860 if ((items < 1) || (items > 1)) {
10861 SWIG_croak("Usage: gsl_complex_csc(a);");
10862 }
10863 {
10864 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
10865 if (!SWIG_IsOK(res1)) {
10866 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_csc" "', argument " "1"" of type '" "gsl_complex""'");
10867 }
10868 if (!argp1) {
10869 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_csc" "', argument " "1"" of type '" "gsl_complex""'");
10870 } else {
10871 arg1 = *((gsl_complex *)(argp1));
10872 }
10873 }
10874 result = gsl_complex_csc(arg1);
10875 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++ ;
10876 XSRETURN(argvi);
10877 fail:
10878 SWIG_croak_null();
10879 }
10880 }
10881
10882
XS(_wrap_gsl_complex_tan)10883 XS(_wrap_gsl_complex_tan) {
10884 {
10885 gsl_complex arg1 ;
10886 void *argp1 ;
10887 int res1 = 0 ;
10888 int argvi = 0;
10889 gsl_complex result;
10890 dXSARGS;
10891
10892 if ((items < 1) || (items > 1)) {
10893 SWIG_croak("Usage: gsl_complex_tan(a);");
10894 }
10895 {
10896 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
10897 if (!SWIG_IsOK(res1)) {
10898 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_tan" "', argument " "1"" of type '" "gsl_complex""'");
10899 }
10900 if (!argp1) {
10901 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_tan" "', argument " "1"" of type '" "gsl_complex""'");
10902 } else {
10903 arg1 = *((gsl_complex *)(argp1));
10904 }
10905 }
10906 result = gsl_complex_tan(arg1);
10907 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++ ;
10908 XSRETURN(argvi);
10909 fail:
10910 SWIG_croak_null();
10911 }
10912 }
10913
10914
XS(_wrap_gsl_complex_cot)10915 XS(_wrap_gsl_complex_cot) {
10916 {
10917 gsl_complex arg1 ;
10918 void *argp1 ;
10919 int res1 = 0 ;
10920 int argvi = 0;
10921 gsl_complex result;
10922 dXSARGS;
10923
10924 if ((items < 1) || (items > 1)) {
10925 SWIG_croak("Usage: gsl_complex_cot(a);");
10926 }
10927 {
10928 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
10929 if (!SWIG_IsOK(res1)) {
10930 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_cot" "', argument " "1"" of type '" "gsl_complex""'");
10931 }
10932 if (!argp1) {
10933 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_cot" "', argument " "1"" of type '" "gsl_complex""'");
10934 } else {
10935 arg1 = *((gsl_complex *)(argp1));
10936 }
10937 }
10938 result = gsl_complex_cot(arg1);
10939 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++ ;
10940 XSRETURN(argvi);
10941 fail:
10942 SWIG_croak_null();
10943 }
10944 }
10945
10946
XS(_wrap_gsl_complex_arcsin)10947 XS(_wrap_gsl_complex_arcsin) {
10948 {
10949 gsl_complex arg1 ;
10950 void *argp1 ;
10951 int res1 = 0 ;
10952 int argvi = 0;
10953 gsl_complex result;
10954 dXSARGS;
10955
10956 if ((items < 1) || (items > 1)) {
10957 SWIG_croak("Usage: gsl_complex_arcsin(a);");
10958 }
10959 {
10960 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
10961 if (!SWIG_IsOK(res1)) {
10962 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_arcsin" "', argument " "1"" of type '" "gsl_complex""'");
10963 }
10964 if (!argp1) {
10965 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_arcsin" "', argument " "1"" of type '" "gsl_complex""'");
10966 } else {
10967 arg1 = *((gsl_complex *)(argp1));
10968 }
10969 }
10970 result = gsl_complex_arcsin(arg1);
10971 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++ ;
10972 XSRETURN(argvi);
10973 fail:
10974 SWIG_croak_null();
10975 }
10976 }
10977
10978
XS(_wrap_gsl_complex_arcsin_real)10979 XS(_wrap_gsl_complex_arcsin_real) {
10980 {
10981 double arg1 ;
10982 double val1 ;
10983 int ecode1 = 0 ;
10984 int argvi = 0;
10985 gsl_complex result;
10986 dXSARGS;
10987
10988 if ((items < 1) || (items > 1)) {
10989 SWIG_croak("Usage: gsl_complex_arcsin_real(a);");
10990 }
10991 ecode1 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
10992 if (!SWIG_IsOK(ecode1)) {
10993 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_complex_arcsin_real" "', argument " "1"" of type '" "double""'");
10994 }
10995 arg1 = (double)(val1);
10996 result = gsl_complex_arcsin_real(arg1);
10997 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++ ;
10998
10999 XSRETURN(argvi);
11000 fail:
11001
11002 SWIG_croak_null();
11003 }
11004 }
11005
11006
XS(_wrap_gsl_complex_arccos)11007 XS(_wrap_gsl_complex_arccos) {
11008 {
11009 gsl_complex arg1 ;
11010 void *argp1 ;
11011 int res1 = 0 ;
11012 int argvi = 0;
11013 gsl_complex result;
11014 dXSARGS;
11015
11016 if ((items < 1) || (items > 1)) {
11017 SWIG_croak("Usage: gsl_complex_arccos(a);");
11018 }
11019 {
11020 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
11021 if (!SWIG_IsOK(res1)) {
11022 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_arccos" "', argument " "1"" of type '" "gsl_complex""'");
11023 }
11024 if (!argp1) {
11025 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_arccos" "', argument " "1"" of type '" "gsl_complex""'");
11026 } else {
11027 arg1 = *((gsl_complex *)(argp1));
11028 }
11029 }
11030 result = gsl_complex_arccos(arg1);
11031 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++ ;
11032 XSRETURN(argvi);
11033 fail:
11034 SWIG_croak_null();
11035 }
11036 }
11037
11038
XS(_wrap_gsl_complex_arccos_real)11039 XS(_wrap_gsl_complex_arccos_real) {
11040 {
11041 double arg1 ;
11042 double val1 ;
11043 int ecode1 = 0 ;
11044 int argvi = 0;
11045 gsl_complex result;
11046 dXSARGS;
11047
11048 if ((items < 1) || (items > 1)) {
11049 SWIG_croak("Usage: gsl_complex_arccos_real(a);");
11050 }
11051 ecode1 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
11052 if (!SWIG_IsOK(ecode1)) {
11053 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_complex_arccos_real" "', argument " "1"" of type '" "double""'");
11054 }
11055 arg1 = (double)(val1);
11056 result = gsl_complex_arccos_real(arg1);
11057 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++ ;
11058
11059 XSRETURN(argvi);
11060 fail:
11061
11062 SWIG_croak_null();
11063 }
11064 }
11065
11066
XS(_wrap_gsl_complex_arcsec)11067 XS(_wrap_gsl_complex_arcsec) {
11068 {
11069 gsl_complex arg1 ;
11070 void *argp1 ;
11071 int res1 = 0 ;
11072 int argvi = 0;
11073 gsl_complex result;
11074 dXSARGS;
11075
11076 if ((items < 1) || (items > 1)) {
11077 SWIG_croak("Usage: gsl_complex_arcsec(a);");
11078 }
11079 {
11080 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
11081 if (!SWIG_IsOK(res1)) {
11082 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_arcsec" "', argument " "1"" of type '" "gsl_complex""'");
11083 }
11084 if (!argp1) {
11085 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_arcsec" "', argument " "1"" of type '" "gsl_complex""'");
11086 } else {
11087 arg1 = *((gsl_complex *)(argp1));
11088 }
11089 }
11090 result = gsl_complex_arcsec(arg1);
11091 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++ ;
11092 XSRETURN(argvi);
11093 fail:
11094 SWIG_croak_null();
11095 }
11096 }
11097
11098
XS(_wrap_gsl_complex_arcsec_real)11099 XS(_wrap_gsl_complex_arcsec_real) {
11100 {
11101 double arg1 ;
11102 double val1 ;
11103 int ecode1 = 0 ;
11104 int argvi = 0;
11105 gsl_complex result;
11106 dXSARGS;
11107
11108 if ((items < 1) || (items > 1)) {
11109 SWIG_croak("Usage: gsl_complex_arcsec_real(a);");
11110 }
11111 ecode1 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
11112 if (!SWIG_IsOK(ecode1)) {
11113 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_complex_arcsec_real" "', argument " "1"" of type '" "double""'");
11114 }
11115 arg1 = (double)(val1);
11116 result = gsl_complex_arcsec_real(arg1);
11117 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++ ;
11118
11119 XSRETURN(argvi);
11120 fail:
11121
11122 SWIG_croak_null();
11123 }
11124 }
11125
11126
XS(_wrap_gsl_complex_arccsc)11127 XS(_wrap_gsl_complex_arccsc) {
11128 {
11129 gsl_complex arg1 ;
11130 void *argp1 ;
11131 int res1 = 0 ;
11132 int argvi = 0;
11133 gsl_complex result;
11134 dXSARGS;
11135
11136 if ((items < 1) || (items > 1)) {
11137 SWIG_croak("Usage: gsl_complex_arccsc(a);");
11138 }
11139 {
11140 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
11141 if (!SWIG_IsOK(res1)) {
11142 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_arccsc" "', argument " "1"" of type '" "gsl_complex""'");
11143 }
11144 if (!argp1) {
11145 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_arccsc" "', argument " "1"" of type '" "gsl_complex""'");
11146 } else {
11147 arg1 = *((gsl_complex *)(argp1));
11148 }
11149 }
11150 result = gsl_complex_arccsc(arg1);
11151 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++ ;
11152 XSRETURN(argvi);
11153 fail:
11154 SWIG_croak_null();
11155 }
11156 }
11157
11158
XS(_wrap_gsl_complex_arccsc_real)11159 XS(_wrap_gsl_complex_arccsc_real) {
11160 {
11161 double arg1 ;
11162 double val1 ;
11163 int ecode1 = 0 ;
11164 int argvi = 0;
11165 gsl_complex result;
11166 dXSARGS;
11167
11168 if ((items < 1) || (items > 1)) {
11169 SWIG_croak("Usage: gsl_complex_arccsc_real(a);");
11170 }
11171 ecode1 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
11172 if (!SWIG_IsOK(ecode1)) {
11173 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_complex_arccsc_real" "', argument " "1"" of type '" "double""'");
11174 }
11175 arg1 = (double)(val1);
11176 result = gsl_complex_arccsc_real(arg1);
11177 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++ ;
11178
11179 XSRETURN(argvi);
11180 fail:
11181
11182 SWIG_croak_null();
11183 }
11184 }
11185
11186
XS(_wrap_gsl_complex_arctan)11187 XS(_wrap_gsl_complex_arctan) {
11188 {
11189 gsl_complex arg1 ;
11190 void *argp1 ;
11191 int res1 = 0 ;
11192 int argvi = 0;
11193 gsl_complex result;
11194 dXSARGS;
11195
11196 if ((items < 1) || (items > 1)) {
11197 SWIG_croak("Usage: gsl_complex_arctan(a);");
11198 }
11199 {
11200 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
11201 if (!SWIG_IsOK(res1)) {
11202 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_arctan" "', argument " "1"" of type '" "gsl_complex""'");
11203 }
11204 if (!argp1) {
11205 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_arctan" "', argument " "1"" of type '" "gsl_complex""'");
11206 } else {
11207 arg1 = *((gsl_complex *)(argp1));
11208 }
11209 }
11210 result = gsl_complex_arctan(arg1);
11211 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++ ;
11212 XSRETURN(argvi);
11213 fail:
11214 SWIG_croak_null();
11215 }
11216 }
11217
11218
XS(_wrap_gsl_complex_arccot)11219 XS(_wrap_gsl_complex_arccot) {
11220 {
11221 gsl_complex arg1 ;
11222 void *argp1 ;
11223 int res1 = 0 ;
11224 int argvi = 0;
11225 gsl_complex result;
11226 dXSARGS;
11227
11228 if ((items < 1) || (items > 1)) {
11229 SWIG_croak("Usage: gsl_complex_arccot(a);");
11230 }
11231 {
11232 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
11233 if (!SWIG_IsOK(res1)) {
11234 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_arccot" "', argument " "1"" of type '" "gsl_complex""'");
11235 }
11236 if (!argp1) {
11237 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_arccot" "', argument " "1"" of type '" "gsl_complex""'");
11238 } else {
11239 arg1 = *((gsl_complex *)(argp1));
11240 }
11241 }
11242 result = gsl_complex_arccot(arg1);
11243 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++ ;
11244 XSRETURN(argvi);
11245 fail:
11246 SWIG_croak_null();
11247 }
11248 }
11249
11250
XS(_wrap_gsl_complex_sinh)11251 XS(_wrap_gsl_complex_sinh) {
11252 {
11253 gsl_complex arg1 ;
11254 void *argp1 ;
11255 int res1 = 0 ;
11256 int argvi = 0;
11257 gsl_complex result;
11258 dXSARGS;
11259
11260 if ((items < 1) || (items > 1)) {
11261 SWIG_croak("Usage: gsl_complex_sinh(a);");
11262 }
11263 {
11264 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
11265 if (!SWIG_IsOK(res1)) {
11266 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_sinh" "', argument " "1"" of type '" "gsl_complex""'");
11267 }
11268 if (!argp1) {
11269 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_sinh" "', argument " "1"" of type '" "gsl_complex""'");
11270 } else {
11271 arg1 = *((gsl_complex *)(argp1));
11272 }
11273 }
11274 result = gsl_complex_sinh(arg1);
11275 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++ ;
11276 XSRETURN(argvi);
11277 fail:
11278 SWIG_croak_null();
11279 }
11280 }
11281
11282
XS(_wrap_gsl_complex_cosh)11283 XS(_wrap_gsl_complex_cosh) {
11284 {
11285 gsl_complex arg1 ;
11286 void *argp1 ;
11287 int res1 = 0 ;
11288 int argvi = 0;
11289 gsl_complex result;
11290 dXSARGS;
11291
11292 if ((items < 1) || (items > 1)) {
11293 SWIG_croak("Usage: gsl_complex_cosh(a);");
11294 }
11295 {
11296 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
11297 if (!SWIG_IsOK(res1)) {
11298 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_cosh" "', argument " "1"" of type '" "gsl_complex""'");
11299 }
11300 if (!argp1) {
11301 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_cosh" "', argument " "1"" of type '" "gsl_complex""'");
11302 } else {
11303 arg1 = *((gsl_complex *)(argp1));
11304 }
11305 }
11306 result = gsl_complex_cosh(arg1);
11307 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++ ;
11308 XSRETURN(argvi);
11309 fail:
11310 SWIG_croak_null();
11311 }
11312 }
11313
11314
XS(_wrap_gsl_complex_sech)11315 XS(_wrap_gsl_complex_sech) {
11316 {
11317 gsl_complex arg1 ;
11318 void *argp1 ;
11319 int res1 = 0 ;
11320 int argvi = 0;
11321 gsl_complex result;
11322 dXSARGS;
11323
11324 if ((items < 1) || (items > 1)) {
11325 SWIG_croak("Usage: gsl_complex_sech(a);");
11326 }
11327 {
11328 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
11329 if (!SWIG_IsOK(res1)) {
11330 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_sech" "', argument " "1"" of type '" "gsl_complex""'");
11331 }
11332 if (!argp1) {
11333 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_sech" "', argument " "1"" of type '" "gsl_complex""'");
11334 } else {
11335 arg1 = *((gsl_complex *)(argp1));
11336 }
11337 }
11338 result = gsl_complex_sech(arg1);
11339 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++ ;
11340 XSRETURN(argvi);
11341 fail:
11342 SWIG_croak_null();
11343 }
11344 }
11345
11346
XS(_wrap_gsl_complex_csch)11347 XS(_wrap_gsl_complex_csch) {
11348 {
11349 gsl_complex arg1 ;
11350 void *argp1 ;
11351 int res1 = 0 ;
11352 int argvi = 0;
11353 gsl_complex result;
11354 dXSARGS;
11355
11356 if ((items < 1) || (items > 1)) {
11357 SWIG_croak("Usage: gsl_complex_csch(a);");
11358 }
11359 {
11360 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
11361 if (!SWIG_IsOK(res1)) {
11362 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_csch" "', argument " "1"" of type '" "gsl_complex""'");
11363 }
11364 if (!argp1) {
11365 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_csch" "', argument " "1"" of type '" "gsl_complex""'");
11366 } else {
11367 arg1 = *((gsl_complex *)(argp1));
11368 }
11369 }
11370 result = gsl_complex_csch(arg1);
11371 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++ ;
11372 XSRETURN(argvi);
11373 fail:
11374 SWIG_croak_null();
11375 }
11376 }
11377
11378
XS(_wrap_gsl_complex_tanh)11379 XS(_wrap_gsl_complex_tanh) {
11380 {
11381 gsl_complex arg1 ;
11382 void *argp1 ;
11383 int res1 = 0 ;
11384 int argvi = 0;
11385 gsl_complex result;
11386 dXSARGS;
11387
11388 if ((items < 1) || (items > 1)) {
11389 SWIG_croak("Usage: gsl_complex_tanh(a);");
11390 }
11391 {
11392 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
11393 if (!SWIG_IsOK(res1)) {
11394 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_tanh" "', argument " "1"" of type '" "gsl_complex""'");
11395 }
11396 if (!argp1) {
11397 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_tanh" "', argument " "1"" of type '" "gsl_complex""'");
11398 } else {
11399 arg1 = *((gsl_complex *)(argp1));
11400 }
11401 }
11402 result = gsl_complex_tanh(arg1);
11403 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++ ;
11404 XSRETURN(argvi);
11405 fail:
11406 SWIG_croak_null();
11407 }
11408 }
11409
11410
XS(_wrap_gsl_complex_coth)11411 XS(_wrap_gsl_complex_coth) {
11412 {
11413 gsl_complex arg1 ;
11414 void *argp1 ;
11415 int res1 = 0 ;
11416 int argvi = 0;
11417 gsl_complex result;
11418 dXSARGS;
11419
11420 if ((items < 1) || (items > 1)) {
11421 SWIG_croak("Usage: gsl_complex_coth(a);");
11422 }
11423 {
11424 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
11425 if (!SWIG_IsOK(res1)) {
11426 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_coth" "', argument " "1"" of type '" "gsl_complex""'");
11427 }
11428 if (!argp1) {
11429 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_coth" "', argument " "1"" of type '" "gsl_complex""'");
11430 } else {
11431 arg1 = *((gsl_complex *)(argp1));
11432 }
11433 }
11434 result = gsl_complex_coth(arg1);
11435 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++ ;
11436 XSRETURN(argvi);
11437 fail:
11438 SWIG_croak_null();
11439 }
11440 }
11441
11442
XS(_wrap_gsl_complex_arcsinh)11443 XS(_wrap_gsl_complex_arcsinh) {
11444 {
11445 gsl_complex arg1 ;
11446 void *argp1 ;
11447 int res1 = 0 ;
11448 int argvi = 0;
11449 gsl_complex result;
11450 dXSARGS;
11451
11452 if ((items < 1) || (items > 1)) {
11453 SWIG_croak("Usage: gsl_complex_arcsinh(a);");
11454 }
11455 {
11456 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
11457 if (!SWIG_IsOK(res1)) {
11458 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_arcsinh" "', argument " "1"" of type '" "gsl_complex""'");
11459 }
11460 if (!argp1) {
11461 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_arcsinh" "', argument " "1"" of type '" "gsl_complex""'");
11462 } else {
11463 arg1 = *((gsl_complex *)(argp1));
11464 }
11465 }
11466 result = gsl_complex_arcsinh(arg1);
11467 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++ ;
11468 XSRETURN(argvi);
11469 fail:
11470 SWIG_croak_null();
11471 }
11472 }
11473
11474
XS(_wrap_gsl_complex_arccosh)11475 XS(_wrap_gsl_complex_arccosh) {
11476 {
11477 gsl_complex arg1 ;
11478 void *argp1 ;
11479 int res1 = 0 ;
11480 int argvi = 0;
11481 gsl_complex result;
11482 dXSARGS;
11483
11484 if ((items < 1) || (items > 1)) {
11485 SWIG_croak("Usage: gsl_complex_arccosh(a);");
11486 }
11487 {
11488 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
11489 if (!SWIG_IsOK(res1)) {
11490 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_arccosh" "', argument " "1"" of type '" "gsl_complex""'");
11491 }
11492 if (!argp1) {
11493 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_arccosh" "', argument " "1"" of type '" "gsl_complex""'");
11494 } else {
11495 arg1 = *((gsl_complex *)(argp1));
11496 }
11497 }
11498 result = gsl_complex_arccosh(arg1);
11499 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++ ;
11500 XSRETURN(argvi);
11501 fail:
11502 SWIG_croak_null();
11503 }
11504 }
11505
11506
XS(_wrap_gsl_complex_arccosh_real)11507 XS(_wrap_gsl_complex_arccosh_real) {
11508 {
11509 double arg1 ;
11510 double val1 ;
11511 int ecode1 = 0 ;
11512 int argvi = 0;
11513 gsl_complex result;
11514 dXSARGS;
11515
11516 if ((items < 1) || (items > 1)) {
11517 SWIG_croak("Usage: gsl_complex_arccosh_real(a);");
11518 }
11519 ecode1 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
11520 if (!SWIG_IsOK(ecode1)) {
11521 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_complex_arccosh_real" "', argument " "1"" of type '" "double""'");
11522 }
11523 arg1 = (double)(val1);
11524 result = gsl_complex_arccosh_real(arg1);
11525 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++ ;
11526
11527 XSRETURN(argvi);
11528 fail:
11529
11530 SWIG_croak_null();
11531 }
11532 }
11533
11534
XS(_wrap_gsl_complex_arcsech)11535 XS(_wrap_gsl_complex_arcsech) {
11536 {
11537 gsl_complex arg1 ;
11538 void *argp1 ;
11539 int res1 = 0 ;
11540 int argvi = 0;
11541 gsl_complex result;
11542 dXSARGS;
11543
11544 if ((items < 1) || (items > 1)) {
11545 SWIG_croak("Usage: gsl_complex_arcsech(a);");
11546 }
11547 {
11548 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
11549 if (!SWIG_IsOK(res1)) {
11550 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_arcsech" "', argument " "1"" of type '" "gsl_complex""'");
11551 }
11552 if (!argp1) {
11553 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_arcsech" "', argument " "1"" of type '" "gsl_complex""'");
11554 } else {
11555 arg1 = *((gsl_complex *)(argp1));
11556 }
11557 }
11558 result = gsl_complex_arcsech(arg1);
11559 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++ ;
11560 XSRETURN(argvi);
11561 fail:
11562 SWIG_croak_null();
11563 }
11564 }
11565
11566
XS(_wrap_gsl_complex_arccsch)11567 XS(_wrap_gsl_complex_arccsch) {
11568 {
11569 gsl_complex arg1 ;
11570 void *argp1 ;
11571 int res1 = 0 ;
11572 int argvi = 0;
11573 gsl_complex result;
11574 dXSARGS;
11575
11576 if ((items < 1) || (items > 1)) {
11577 SWIG_croak("Usage: gsl_complex_arccsch(a);");
11578 }
11579 {
11580 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
11581 if (!SWIG_IsOK(res1)) {
11582 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_arccsch" "', argument " "1"" of type '" "gsl_complex""'");
11583 }
11584 if (!argp1) {
11585 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_arccsch" "', argument " "1"" of type '" "gsl_complex""'");
11586 } else {
11587 arg1 = *((gsl_complex *)(argp1));
11588 }
11589 }
11590 result = gsl_complex_arccsch(arg1);
11591 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++ ;
11592 XSRETURN(argvi);
11593 fail:
11594 SWIG_croak_null();
11595 }
11596 }
11597
11598
XS(_wrap_gsl_complex_arctanh)11599 XS(_wrap_gsl_complex_arctanh) {
11600 {
11601 gsl_complex arg1 ;
11602 void *argp1 ;
11603 int res1 = 0 ;
11604 int argvi = 0;
11605 gsl_complex result;
11606 dXSARGS;
11607
11608 if ((items < 1) || (items > 1)) {
11609 SWIG_croak("Usage: gsl_complex_arctanh(a);");
11610 }
11611 {
11612 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
11613 if (!SWIG_IsOK(res1)) {
11614 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_arctanh" "', argument " "1"" of type '" "gsl_complex""'");
11615 }
11616 if (!argp1) {
11617 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_arctanh" "', argument " "1"" of type '" "gsl_complex""'");
11618 } else {
11619 arg1 = *((gsl_complex *)(argp1));
11620 }
11621 }
11622 result = gsl_complex_arctanh(arg1);
11623 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++ ;
11624 XSRETURN(argvi);
11625 fail:
11626 SWIG_croak_null();
11627 }
11628 }
11629
11630
XS(_wrap_gsl_complex_arctanh_real)11631 XS(_wrap_gsl_complex_arctanh_real) {
11632 {
11633 double arg1 ;
11634 double val1 ;
11635 int ecode1 = 0 ;
11636 int argvi = 0;
11637 gsl_complex result;
11638 dXSARGS;
11639
11640 if ((items < 1) || (items > 1)) {
11641 SWIG_croak("Usage: gsl_complex_arctanh_real(a);");
11642 }
11643 ecode1 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
11644 if (!SWIG_IsOK(ecode1)) {
11645 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_complex_arctanh_real" "', argument " "1"" of type '" "double""'");
11646 }
11647 arg1 = (double)(val1);
11648 result = gsl_complex_arctanh_real(arg1);
11649 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++ ;
11650
11651 XSRETURN(argvi);
11652 fail:
11653
11654 SWIG_croak_null();
11655 }
11656 }
11657
11658
XS(_wrap_gsl_complex_arccoth)11659 XS(_wrap_gsl_complex_arccoth) {
11660 {
11661 gsl_complex arg1 ;
11662 void *argp1 ;
11663 int res1 = 0 ;
11664 int argvi = 0;
11665 gsl_complex result;
11666 dXSARGS;
11667
11668 if ((items < 1) || (items > 1)) {
11669 SWIG_croak("Usage: gsl_complex_arccoth(a);");
11670 }
11671 {
11672 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
11673 if (!SWIG_IsOK(res1)) {
11674 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_arccoth" "', argument " "1"" of type '" "gsl_complex""'");
11675 }
11676 if (!argp1) {
11677 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_arccoth" "', argument " "1"" of type '" "gsl_complex""'");
11678 } else {
11679 arg1 = *((gsl_complex *)(argp1));
11680 }
11681 }
11682 result = gsl_complex_arccoth(arg1);
11683 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++ ;
11684 XSRETURN(argvi);
11685 fail:
11686 SWIG_croak_null();
11687 }
11688 }
11689
11690
11691
11692 /* -------- TYPE CONVERSION AND EQUIVALENCE RULES (BEGIN) -------- */
11693
11694 static swig_type_info _swigt__p_FILE = {"_p_FILE", "FILE *", 0, 0, (void*)0, 0};
11695 static swig_type_info _swigt__p_char = {"_p_char", "char *", 0, 0, (void*)0, 0};
11696 static swig_type_info _swigt__p_double = {"_p_double", "double *", 0, 0, (void*)0, 0};
11697 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};
11698 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};
11699 static swig_type_info _swigt__p_float = {"_p_float", "float *", 0, 0, (void*)0, 0};
11700 static swig_type_info _swigt__p_gsl_complex = {"_p_gsl_complex", "gsl_complex *", 0, 0, (void*)"Math::GSL::Linalg::gsl_complex", 0};
11701 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};
11702 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};
11703 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};
11704 static swig_type_info _swigt__p_gsl_matrix = {"_p_gsl_matrix", "gsl_matrix *", 0, 0, (void*)0, 0};
11705 static swig_type_info _swigt__p_gsl_matrix_complex = {"_p_gsl_matrix_complex", "gsl_matrix_complex *", 0, 0, (void*)0, 0};
11706 static swig_type_info _swigt__p_gsl_mode_t = {"_p_gsl_mode_t", "gsl_mode_t *", 0, 0, (void*)0, 0};
11707 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};
11708 static swig_type_info _swigt__p_gsl_vector = {"_p_gsl_vector", "gsl_vector *", 0, 0, (void*)0, 0};
11709 static swig_type_info _swigt__p_gsl_vector_complex = {"_p_gsl_vector_complex", "gsl_vector_complex *", 0, 0, (void*)0, 0};
11710 static swig_type_info _swigt__p_int = {"_p_int", "int *", 0, 0, (void*)0, 0};
11711 static swig_type_info _swigt__p_long_double = {"_p_long_double", "long double *", 0, 0, (void*)0, 0};
11712 static swig_type_info _swigt__p_size_t = {"_p_size_t", "size_t *", 0, 0, (void*)0, 0};
11713
11714 static swig_type_info *swig_type_initial[] = {
11715 &_swigt__p_FILE,
11716 &_swigt__p_char,
11717 &_swigt__p_double,
11718 &_swigt__p_f_p_q_const__char_p_q_const__char_int_int__void,
11719 &_swigt__p_f_p_q_const__char_p_q_const__char_int_p_q_const__char__void,
11720 &_swigt__p_float,
11721 &_swigt__p_gsl_complex,
11722 &_swigt__p_gsl_complex_float,
11723 &_swigt__p_gsl_complex_long_double,
11724 &_swigt__p_gsl_linalg_matrix_mod_t,
11725 &_swigt__p_gsl_matrix,
11726 &_swigt__p_gsl_matrix_complex,
11727 &_swigt__p_gsl_mode_t,
11728 &_swigt__p_gsl_permutation_struct,
11729 &_swigt__p_gsl_vector,
11730 &_swigt__p_gsl_vector_complex,
11731 &_swigt__p_int,
11732 &_swigt__p_long_double,
11733 &_swigt__p_size_t,
11734 };
11735
11736 static swig_cast_info _swigc__p_FILE[] = { {&_swigt__p_FILE, 0, 0, 0},{0, 0, 0, 0}};
11737 static swig_cast_info _swigc__p_char[] = { {&_swigt__p_char, 0, 0, 0},{0, 0, 0, 0}};
11738 static swig_cast_info _swigc__p_double[] = { {&_swigt__p_double, 0, 0, 0},{0, 0, 0, 0}};
11739 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}};
11740 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}};
11741 static swig_cast_info _swigc__p_float[] = { {&_swigt__p_float, 0, 0, 0},{0, 0, 0, 0}};
11742 static swig_cast_info _swigc__p_gsl_complex[] = { {&_swigt__p_gsl_complex, 0, 0, 0},{0, 0, 0, 0}};
11743 static swig_cast_info _swigc__p_gsl_complex_float[] = { {&_swigt__p_gsl_complex_float, 0, 0, 0},{0, 0, 0, 0}};
11744 static swig_cast_info _swigc__p_gsl_complex_long_double[] = { {&_swigt__p_gsl_complex_long_double, 0, 0, 0},{0, 0, 0, 0}};
11745 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}};
11746 static swig_cast_info _swigc__p_gsl_matrix[] = { {&_swigt__p_gsl_matrix, 0, 0, 0},{0, 0, 0, 0}};
11747 static swig_cast_info _swigc__p_gsl_matrix_complex[] = { {&_swigt__p_gsl_matrix_complex, 0, 0, 0},{0, 0, 0, 0}};
11748 static swig_cast_info _swigc__p_gsl_mode_t[] = { {&_swigt__p_gsl_mode_t, 0, 0, 0},{0, 0, 0, 0}};
11749 static swig_cast_info _swigc__p_gsl_permutation_struct[] = { {&_swigt__p_gsl_permutation_struct, 0, 0, 0},{0, 0, 0, 0}};
11750 static swig_cast_info _swigc__p_gsl_vector[] = { {&_swigt__p_gsl_vector, 0, 0, 0},{0, 0, 0, 0}};
11751 static swig_cast_info _swigc__p_gsl_vector_complex[] = { {&_swigt__p_gsl_vector_complex, 0, 0, 0},{0, 0, 0, 0}};
11752 static swig_cast_info _swigc__p_int[] = { {&_swigt__p_int, 0, 0, 0},{0, 0, 0, 0}};
11753 static swig_cast_info _swigc__p_long_double[] = { {&_swigt__p_long_double, 0, 0, 0},{0, 0, 0, 0}};
11754 static swig_cast_info _swigc__p_size_t[] = { {&_swigt__p_size_t, 0, 0, 0},{0, 0, 0, 0}};
11755
11756 static swig_cast_info *swig_cast_initial[] = {
11757 _swigc__p_FILE,
11758 _swigc__p_char,
11759 _swigc__p_double,
11760 _swigc__p_f_p_q_const__char_p_q_const__char_int_int__void,
11761 _swigc__p_f_p_q_const__char_p_q_const__char_int_p_q_const__char__void,
11762 _swigc__p_float,
11763 _swigc__p_gsl_complex,
11764 _swigc__p_gsl_complex_float,
11765 _swigc__p_gsl_complex_long_double,
11766 _swigc__p_gsl_linalg_matrix_mod_t,
11767 _swigc__p_gsl_matrix,
11768 _swigc__p_gsl_matrix_complex,
11769 _swigc__p_gsl_mode_t,
11770 _swigc__p_gsl_permutation_struct,
11771 _swigc__p_gsl_vector,
11772 _swigc__p_gsl_vector_complex,
11773 _swigc__p_int,
11774 _swigc__p_long_double,
11775 _swigc__p_size_t,
11776 };
11777
11778
11779 /* -------- TYPE CONVERSION AND EQUIVALENCE RULES (END) -------- */
11780
11781 static swig_constant_info swig_constants[] = {
11782 {0,0,0,0,0,0}
11783 };
11784 #ifdef __cplusplus
11785 }
11786 #endif
11787 static swig_variable_info swig_variables[] = {
11788 {0,0,0,0}
11789 };
11790 static swig_command_info swig_commands[] = {
11791 {"Math::GSL::Linalgc::gsl_error", _wrap_gsl_error},
11792 {"Math::GSL::Linalgc::gsl_stream_printf", _wrap_gsl_stream_printf},
11793 {"Math::GSL::Linalgc::gsl_strerror", _wrap_gsl_strerror},
11794 {"Math::GSL::Linalgc::gsl_set_error_handler", _wrap_gsl_set_error_handler},
11795 {"Math::GSL::Linalgc::gsl_set_error_handler_off", _wrap_gsl_set_error_handler_off},
11796 {"Math::GSL::Linalgc::gsl_set_stream_handler", _wrap_gsl_set_stream_handler},
11797 {"Math::GSL::Linalgc::gsl_set_stream", _wrap_gsl_set_stream},
11798 {"Math::GSL::Linalgc::gsl_linalg_matmult", _wrap_gsl_linalg_matmult},
11799 {"Math::GSL::Linalgc::gsl_linalg_matmult_mod", _wrap_gsl_linalg_matmult_mod},
11800 {"Math::GSL::Linalgc::gsl_linalg_exponential_ss", _wrap_gsl_linalg_exponential_ss},
11801 {"Math::GSL::Linalgc::gsl_linalg_householder_transform", _wrap_gsl_linalg_householder_transform},
11802 {"Math::GSL::Linalgc::gsl_linalg_complex_householder_transform", _wrap_gsl_linalg_complex_householder_transform},
11803 {"Math::GSL::Linalgc::gsl_linalg_householder_hm", _wrap_gsl_linalg_householder_hm},
11804 {"Math::GSL::Linalgc::gsl_linalg_householder_mh", _wrap_gsl_linalg_householder_mh},
11805 {"Math::GSL::Linalgc::gsl_linalg_householder_hv", _wrap_gsl_linalg_householder_hv},
11806 {"Math::GSL::Linalgc::gsl_linalg_householder_hm1", _wrap_gsl_linalg_householder_hm1},
11807 {"Math::GSL::Linalgc::gsl_linalg_complex_householder_hm", _wrap_gsl_linalg_complex_householder_hm},
11808 {"Math::GSL::Linalgc::gsl_linalg_complex_householder_mh", _wrap_gsl_linalg_complex_householder_mh},
11809 {"Math::GSL::Linalgc::gsl_linalg_complex_householder_hv", _wrap_gsl_linalg_complex_householder_hv},
11810 {"Math::GSL::Linalgc::gsl_linalg_hessenberg_decomp", _wrap_gsl_linalg_hessenberg_decomp},
11811 {"Math::GSL::Linalgc::gsl_linalg_hessenberg_unpack", _wrap_gsl_linalg_hessenberg_unpack},
11812 {"Math::GSL::Linalgc::gsl_linalg_hessenberg_unpack_accum", _wrap_gsl_linalg_hessenberg_unpack_accum},
11813 {"Math::GSL::Linalgc::gsl_linalg_hessenberg_set_zero", _wrap_gsl_linalg_hessenberg_set_zero},
11814 {"Math::GSL::Linalgc::gsl_linalg_hessenberg_submatrix", _wrap_gsl_linalg_hessenberg_submatrix},
11815 {"Math::GSL::Linalgc::gsl_linalg_hesstri_decomp", _wrap_gsl_linalg_hesstri_decomp},
11816 {"Math::GSL::Linalgc::gsl_linalg_SV_decomp", _wrap_gsl_linalg_SV_decomp},
11817 {"Math::GSL::Linalgc::gsl_linalg_SV_decomp_mod", _wrap_gsl_linalg_SV_decomp_mod},
11818 {"Math::GSL::Linalgc::gsl_linalg_SV_decomp_jacobi", _wrap_gsl_linalg_SV_decomp_jacobi},
11819 {"Math::GSL::Linalgc::gsl_linalg_SV_solve", _wrap_gsl_linalg_SV_solve},
11820 {"Math::GSL::Linalgc::gsl_linalg_SV_leverage", _wrap_gsl_linalg_SV_leverage},
11821 {"Math::GSL::Linalgc::gsl_linalg_LU_decomp", _wrap_gsl_linalg_LU_decomp},
11822 {"Math::GSL::Linalgc::gsl_linalg_LU_solve", _wrap_gsl_linalg_LU_solve},
11823 {"Math::GSL::Linalgc::gsl_linalg_LU_svx", _wrap_gsl_linalg_LU_svx},
11824 {"Math::GSL::Linalgc::gsl_linalg_LU_refine", _wrap_gsl_linalg_LU_refine},
11825 {"Math::GSL::Linalgc::gsl_linalg_LU_invert", _wrap_gsl_linalg_LU_invert},
11826 {"Math::GSL::Linalgc::gsl_linalg_LU_det", _wrap_gsl_linalg_LU_det},
11827 {"Math::GSL::Linalgc::gsl_linalg_LU_lndet", _wrap_gsl_linalg_LU_lndet},
11828 {"Math::GSL::Linalgc::gsl_linalg_LU_sgndet", _wrap_gsl_linalg_LU_sgndet},
11829 {"Math::GSL::Linalgc::gsl_linalg_complex_LU_decomp", _wrap_gsl_linalg_complex_LU_decomp},
11830 {"Math::GSL::Linalgc::gsl_linalg_complex_LU_solve", _wrap_gsl_linalg_complex_LU_solve},
11831 {"Math::GSL::Linalgc::gsl_linalg_complex_LU_svx", _wrap_gsl_linalg_complex_LU_svx},
11832 {"Math::GSL::Linalgc::gsl_linalg_complex_LU_refine", _wrap_gsl_linalg_complex_LU_refine},
11833 {"Math::GSL::Linalgc::gsl_linalg_complex_LU_invert", _wrap_gsl_linalg_complex_LU_invert},
11834 {"Math::GSL::Linalgc::gsl_linalg_complex_LU_det", _wrap_gsl_linalg_complex_LU_det},
11835 {"Math::GSL::Linalgc::gsl_linalg_complex_LU_lndet", _wrap_gsl_linalg_complex_LU_lndet},
11836 {"Math::GSL::Linalgc::gsl_linalg_complex_LU_sgndet", _wrap_gsl_linalg_complex_LU_sgndet},
11837 {"Math::GSL::Linalgc::gsl_linalg_QR_decomp", _wrap_gsl_linalg_QR_decomp},
11838 {"Math::GSL::Linalgc::gsl_linalg_QR_solve", _wrap_gsl_linalg_QR_solve},
11839 {"Math::GSL::Linalgc::gsl_linalg_QR_svx", _wrap_gsl_linalg_QR_svx},
11840 {"Math::GSL::Linalgc::gsl_linalg_QR_lssolve", _wrap_gsl_linalg_QR_lssolve},
11841 {"Math::GSL::Linalgc::gsl_linalg_QR_QRsolve", _wrap_gsl_linalg_QR_QRsolve},
11842 {"Math::GSL::Linalgc::gsl_linalg_QR_Rsolve", _wrap_gsl_linalg_QR_Rsolve},
11843 {"Math::GSL::Linalgc::gsl_linalg_QR_Rsvx", _wrap_gsl_linalg_QR_Rsvx},
11844 {"Math::GSL::Linalgc::gsl_linalg_QR_update", _wrap_gsl_linalg_QR_update},
11845 {"Math::GSL::Linalgc::gsl_linalg_QR_QTvec", _wrap_gsl_linalg_QR_QTvec},
11846 {"Math::GSL::Linalgc::gsl_linalg_QR_Qvec", _wrap_gsl_linalg_QR_Qvec},
11847 {"Math::GSL::Linalgc::gsl_linalg_QR_QTmat", _wrap_gsl_linalg_QR_QTmat},
11848 {"Math::GSL::Linalgc::gsl_linalg_QR_matQ", _wrap_gsl_linalg_QR_matQ},
11849 {"Math::GSL::Linalgc::gsl_linalg_QR_unpack", _wrap_gsl_linalg_QR_unpack},
11850 {"Math::GSL::Linalgc::gsl_linalg_R_solve", _wrap_gsl_linalg_R_solve},
11851 {"Math::GSL::Linalgc::gsl_linalg_R_svx", _wrap_gsl_linalg_R_svx},
11852 {"Math::GSL::Linalgc::gsl_linalg_QRPT_decomp", _wrap_gsl_linalg_QRPT_decomp},
11853 {"Math::GSL::Linalgc::gsl_linalg_QRPT_decomp2", _wrap_gsl_linalg_QRPT_decomp2},
11854 {"Math::GSL::Linalgc::gsl_linalg_QRPT_solve", _wrap_gsl_linalg_QRPT_solve},
11855 {"Math::GSL::Linalgc::gsl_linalg_QRPT_svx", _wrap_gsl_linalg_QRPT_svx},
11856 {"Math::GSL::Linalgc::gsl_linalg_QRPT_QRsolve", _wrap_gsl_linalg_QRPT_QRsolve},
11857 {"Math::GSL::Linalgc::gsl_linalg_QRPT_Rsolve", _wrap_gsl_linalg_QRPT_Rsolve},
11858 {"Math::GSL::Linalgc::gsl_linalg_QRPT_Rsvx", _wrap_gsl_linalg_QRPT_Rsvx},
11859 {"Math::GSL::Linalgc::gsl_linalg_QRPT_update", _wrap_gsl_linalg_QRPT_update},
11860 {"Math::GSL::Linalgc::gsl_linalg_LQ_decomp", _wrap_gsl_linalg_LQ_decomp},
11861 {"Math::GSL::Linalgc::gsl_linalg_LQ_solve_T", _wrap_gsl_linalg_LQ_solve_T},
11862 {"Math::GSL::Linalgc::gsl_linalg_LQ_svx_T", _wrap_gsl_linalg_LQ_svx_T},
11863 {"Math::GSL::Linalgc::gsl_linalg_LQ_lssolve_T", _wrap_gsl_linalg_LQ_lssolve_T},
11864 {"Math::GSL::Linalgc::gsl_linalg_LQ_Lsolve_T", _wrap_gsl_linalg_LQ_Lsolve_T},
11865 {"Math::GSL::Linalgc::gsl_linalg_LQ_Lsvx_T", _wrap_gsl_linalg_LQ_Lsvx_T},
11866 {"Math::GSL::Linalgc::gsl_linalg_L_solve_T", _wrap_gsl_linalg_L_solve_T},
11867 {"Math::GSL::Linalgc::gsl_linalg_LQ_vecQ", _wrap_gsl_linalg_LQ_vecQ},
11868 {"Math::GSL::Linalgc::gsl_linalg_LQ_vecQT", _wrap_gsl_linalg_LQ_vecQT},
11869 {"Math::GSL::Linalgc::gsl_linalg_LQ_unpack", _wrap_gsl_linalg_LQ_unpack},
11870 {"Math::GSL::Linalgc::gsl_linalg_LQ_update", _wrap_gsl_linalg_LQ_update},
11871 {"Math::GSL::Linalgc::gsl_linalg_LQ_LQsolve", _wrap_gsl_linalg_LQ_LQsolve},
11872 {"Math::GSL::Linalgc::gsl_linalg_PTLQ_decomp", _wrap_gsl_linalg_PTLQ_decomp},
11873 {"Math::GSL::Linalgc::gsl_linalg_PTLQ_decomp2", _wrap_gsl_linalg_PTLQ_decomp2},
11874 {"Math::GSL::Linalgc::gsl_linalg_PTLQ_solve_T", _wrap_gsl_linalg_PTLQ_solve_T},
11875 {"Math::GSL::Linalgc::gsl_linalg_PTLQ_svx_T", _wrap_gsl_linalg_PTLQ_svx_T},
11876 {"Math::GSL::Linalgc::gsl_linalg_PTLQ_LQsolve_T", _wrap_gsl_linalg_PTLQ_LQsolve_T},
11877 {"Math::GSL::Linalgc::gsl_linalg_PTLQ_Lsolve_T", _wrap_gsl_linalg_PTLQ_Lsolve_T},
11878 {"Math::GSL::Linalgc::gsl_linalg_PTLQ_Lsvx_T", _wrap_gsl_linalg_PTLQ_Lsvx_T},
11879 {"Math::GSL::Linalgc::gsl_linalg_PTLQ_update", _wrap_gsl_linalg_PTLQ_update},
11880 {"Math::GSL::Linalgc::gsl_linalg_cholesky_decomp", _wrap_gsl_linalg_cholesky_decomp},
11881 {"Math::GSL::Linalgc::gsl_linalg_cholesky_solve", _wrap_gsl_linalg_cholesky_solve},
11882 {"Math::GSL::Linalgc::gsl_linalg_cholesky_svx", _wrap_gsl_linalg_cholesky_svx},
11883 {"Math::GSL::Linalgc::gsl_linalg_cholesky_invert", _wrap_gsl_linalg_cholesky_invert},
11884 {"Math::GSL::Linalgc::gsl_linalg_cholesky_decomp_unit", _wrap_gsl_linalg_cholesky_decomp_unit},
11885 {"Math::GSL::Linalgc::gsl_linalg_complex_cholesky_decomp", _wrap_gsl_linalg_complex_cholesky_decomp},
11886 {"Math::GSL::Linalgc::gsl_linalg_complex_cholesky_solve", _wrap_gsl_linalg_complex_cholesky_solve},
11887 {"Math::GSL::Linalgc::gsl_linalg_complex_cholesky_svx", _wrap_gsl_linalg_complex_cholesky_svx},
11888 {"Math::GSL::Linalgc::gsl_linalg_complex_cholesky_invert", _wrap_gsl_linalg_complex_cholesky_invert},
11889 {"Math::GSL::Linalgc::gsl_linalg_symmtd_decomp", _wrap_gsl_linalg_symmtd_decomp},
11890 {"Math::GSL::Linalgc::gsl_linalg_symmtd_unpack", _wrap_gsl_linalg_symmtd_unpack},
11891 {"Math::GSL::Linalgc::gsl_linalg_symmtd_unpack_T", _wrap_gsl_linalg_symmtd_unpack_T},
11892 {"Math::GSL::Linalgc::gsl_linalg_hermtd_decomp", _wrap_gsl_linalg_hermtd_decomp},
11893 {"Math::GSL::Linalgc::gsl_linalg_hermtd_unpack", _wrap_gsl_linalg_hermtd_unpack},
11894 {"Math::GSL::Linalgc::gsl_linalg_hermtd_unpack_T", _wrap_gsl_linalg_hermtd_unpack_T},
11895 {"Math::GSL::Linalgc::gsl_linalg_HH_solve", _wrap_gsl_linalg_HH_solve},
11896 {"Math::GSL::Linalgc::gsl_linalg_HH_svx", _wrap_gsl_linalg_HH_svx},
11897 {"Math::GSL::Linalgc::gsl_linalg_solve_symm_tridiag", _wrap_gsl_linalg_solve_symm_tridiag},
11898 {"Math::GSL::Linalgc::gsl_linalg_solve_tridiag", _wrap_gsl_linalg_solve_tridiag},
11899 {"Math::GSL::Linalgc::gsl_linalg_solve_symm_cyc_tridiag", _wrap_gsl_linalg_solve_symm_cyc_tridiag},
11900 {"Math::GSL::Linalgc::gsl_linalg_solve_cyc_tridiag", _wrap_gsl_linalg_solve_cyc_tridiag},
11901 {"Math::GSL::Linalgc::gsl_linalg_bidiag_decomp", _wrap_gsl_linalg_bidiag_decomp},
11902 {"Math::GSL::Linalgc::gsl_linalg_bidiag_unpack", _wrap_gsl_linalg_bidiag_unpack},
11903 {"Math::GSL::Linalgc::gsl_linalg_bidiag_unpack2", _wrap_gsl_linalg_bidiag_unpack2},
11904 {"Math::GSL::Linalgc::gsl_linalg_bidiag_unpack_B", _wrap_gsl_linalg_bidiag_unpack_B},
11905 {"Math::GSL::Linalgc::gsl_linalg_balance_matrix", _wrap_gsl_linalg_balance_matrix},
11906 {"Math::GSL::Linalgc::gsl_linalg_balance_accum", _wrap_gsl_linalg_balance_accum},
11907 {"Math::GSL::Linalgc::gsl_linalg_balance_columns", _wrap_gsl_linalg_balance_columns},
11908 {"Math::GSL::Linalgc::gsl_linalg_givens", _wrap_gsl_linalg_givens},
11909 {"Math::GSL::Linalgc::gsl_linalg_givens_gv", _wrap_gsl_linalg_givens_gv},
11910 {"Math::GSL::Linalgc::gsl_permutation_struct_size_set", _wrap_gsl_permutation_struct_size_set},
11911 {"Math::GSL::Linalgc::gsl_permutation_struct_size_get", _wrap_gsl_permutation_struct_size_get},
11912 {"Math::GSL::Linalgc::gsl_permutation_struct_data_set", _wrap_gsl_permutation_struct_data_set},
11913 {"Math::GSL::Linalgc::gsl_permutation_struct_data_get", _wrap_gsl_permutation_struct_data_get},
11914 {"Math::GSL::Linalgc::new_gsl_permutation_struct", _wrap_new_gsl_permutation_struct},
11915 {"Math::GSL::Linalgc::delete_gsl_permutation_struct", _wrap_delete_gsl_permutation_struct},
11916 {"Math::GSL::Linalgc::gsl_permutation_alloc", _wrap_gsl_permutation_alloc},
11917 {"Math::GSL::Linalgc::gsl_permutation_calloc", _wrap_gsl_permutation_calloc},
11918 {"Math::GSL::Linalgc::gsl_permutation_init", _wrap_gsl_permutation_init},
11919 {"Math::GSL::Linalgc::gsl_permutation_free", _wrap_gsl_permutation_free},
11920 {"Math::GSL::Linalgc::gsl_permutation_memcpy", _wrap_gsl_permutation_memcpy},
11921 {"Math::GSL::Linalgc::gsl_permutation_fread", _wrap_gsl_permutation_fread},
11922 {"Math::GSL::Linalgc::gsl_permutation_fwrite", _wrap_gsl_permutation_fwrite},
11923 {"Math::GSL::Linalgc::gsl_permutation_fscanf", _wrap_gsl_permutation_fscanf},
11924 {"Math::GSL::Linalgc::gsl_permutation_fprintf", _wrap_gsl_permutation_fprintf},
11925 {"Math::GSL::Linalgc::gsl_permutation_size", _wrap_gsl_permutation_size},
11926 {"Math::GSL::Linalgc::gsl_permutation_data", _wrap_gsl_permutation_data},
11927 {"Math::GSL::Linalgc::gsl_permutation_swap", _wrap_gsl_permutation_swap},
11928 {"Math::GSL::Linalgc::gsl_permutation_valid", _wrap_gsl_permutation_valid},
11929 {"Math::GSL::Linalgc::gsl_permutation_reverse", _wrap_gsl_permutation_reverse},
11930 {"Math::GSL::Linalgc::gsl_permutation_inverse", _wrap_gsl_permutation_inverse},
11931 {"Math::GSL::Linalgc::gsl_permutation_next", _wrap_gsl_permutation_next},
11932 {"Math::GSL::Linalgc::gsl_permutation_prev", _wrap_gsl_permutation_prev},
11933 {"Math::GSL::Linalgc::gsl_permutation_mul", _wrap_gsl_permutation_mul},
11934 {"Math::GSL::Linalgc::gsl_permutation_linear_to_canonical", _wrap_gsl_permutation_linear_to_canonical},
11935 {"Math::GSL::Linalgc::gsl_permutation_canonical_to_linear", _wrap_gsl_permutation_canonical_to_linear},
11936 {"Math::GSL::Linalgc::gsl_permutation_inversions", _wrap_gsl_permutation_inversions},
11937 {"Math::GSL::Linalgc::gsl_permutation_linear_cycles", _wrap_gsl_permutation_linear_cycles},
11938 {"Math::GSL::Linalgc::gsl_permutation_canonical_cycles", _wrap_gsl_permutation_canonical_cycles},
11939 {"Math::GSL::Linalgc::gsl_permutation_get", _wrap_gsl_permutation_get},
11940 {"Math::GSL::Linalgc::gsl_complex_dat_set", _wrap_gsl_complex_dat_set},
11941 {"Math::GSL::Linalgc::gsl_complex_dat_get", _wrap_gsl_complex_dat_get},
11942 {"Math::GSL::Linalgc::new_gsl_complex", _wrap_new_gsl_complex},
11943 {"Math::GSL::Linalgc::delete_gsl_complex", _wrap_delete_gsl_complex},
11944 {"Math::GSL::Linalgc::gsl_complex_long_double_dat_set", _wrap_gsl_complex_long_double_dat_set},
11945 {"Math::GSL::Linalgc::gsl_complex_long_double_dat_get", _wrap_gsl_complex_long_double_dat_get},
11946 {"Math::GSL::Linalgc::new_gsl_complex_long_double", _wrap_new_gsl_complex_long_double},
11947 {"Math::GSL::Linalgc::delete_gsl_complex_long_double", _wrap_delete_gsl_complex_long_double},
11948 {"Math::GSL::Linalgc::gsl_complex_float_dat_set", _wrap_gsl_complex_float_dat_set},
11949 {"Math::GSL::Linalgc::gsl_complex_float_dat_get", _wrap_gsl_complex_float_dat_get},
11950 {"Math::GSL::Linalgc::new_gsl_complex_float", _wrap_new_gsl_complex_float},
11951 {"Math::GSL::Linalgc::delete_gsl_complex_float", _wrap_delete_gsl_complex_float},
11952 {"Math::GSL::Linalgc::gsl_complex_polar", _wrap_gsl_complex_polar},
11953 {"Math::GSL::Linalgc::gsl_complex_rect", _wrap_gsl_complex_rect},
11954 {"Math::GSL::Linalgc::gsl_complex_arg", _wrap_gsl_complex_arg},
11955 {"Math::GSL::Linalgc::gsl_complex_abs", _wrap_gsl_complex_abs},
11956 {"Math::GSL::Linalgc::gsl_complex_abs2", _wrap_gsl_complex_abs2},
11957 {"Math::GSL::Linalgc::gsl_complex_logabs", _wrap_gsl_complex_logabs},
11958 {"Math::GSL::Linalgc::gsl_complex_add", _wrap_gsl_complex_add},
11959 {"Math::GSL::Linalgc::gsl_complex_sub", _wrap_gsl_complex_sub},
11960 {"Math::GSL::Linalgc::gsl_complex_mul", _wrap_gsl_complex_mul},
11961 {"Math::GSL::Linalgc::gsl_complex_div", _wrap_gsl_complex_div},
11962 {"Math::GSL::Linalgc::gsl_complex_add_real", _wrap_gsl_complex_add_real},
11963 {"Math::GSL::Linalgc::gsl_complex_sub_real", _wrap_gsl_complex_sub_real},
11964 {"Math::GSL::Linalgc::gsl_complex_mul_real", _wrap_gsl_complex_mul_real},
11965 {"Math::GSL::Linalgc::gsl_complex_div_real", _wrap_gsl_complex_div_real},
11966 {"Math::GSL::Linalgc::gsl_complex_add_imag", _wrap_gsl_complex_add_imag},
11967 {"Math::GSL::Linalgc::gsl_complex_sub_imag", _wrap_gsl_complex_sub_imag},
11968 {"Math::GSL::Linalgc::gsl_complex_mul_imag", _wrap_gsl_complex_mul_imag},
11969 {"Math::GSL::Linalgc::gsl_complex_div_imag", _wrap_gsl_complex_div_imag},
11970 {"Math::GSL::Linalgc::gsl_complex_conjugate", _wrap_gsl_complex_conjugate},
11971 {"Math::GSL::Linalgc::gsl_complex_inverse", _wrap_gsl_complex_inverse},
11972 {"Math::GSL::Linalgc::gsl_complex_negative", _wrap_gsl_complex_negative},
11973 {"Math::GSL::Linalgc::gsl_complex_sqrt", _wrap_gsl_complex_sqrt},
11974 {"Math::GSL::Linalgc::gsl_complex_sqrt_real", _wrap_gsl_complex_sqrt_real},
11975 {"Math::GSL::Linalgc::gsl_complex_pow", _wrap_gsl_complex_pow},
11976 {"Math::GSL::Linalgc::gsl_complex_pow_real", _wrap_gsl_complex_pow_real},
11977 {"Math::GSL::Linalgc::gsl_complex_exp", _wrap_gsl_complex_exp},
11978 {"Math::GSL::Linalgc::gsl_complex_log", _wrap_gsl_complex_log},
11979 {"Math::GSL::Linalgc::gsl_complex_log10", _wrap_gsl_complex_log10},
11980 {"Math::GSL::Linalgc::gsl_complex_log_b", _wrap_gsl_complex_log_b},
11981 {"Math::GSL::Linalgc::gsl_complex_sin", _wrap_gsl_complex_sin},
11982 {"Math::GSL::Linalgc::gsl_complex_cos", _wrap_gsl_complex_cos},
11983 {"Math::GSL::Linalgc::gsl_complex_sec", _wrap_gsl_complex_sec},
11984 {"Math::GSL::Linalgc::gsl_complex_csc", _wrap_gsl_complex_csc},
11985 {"Math::GSL::Linalgc::gsl_complex_tan", _wrap_gsl_complex_tan},
11986 {"Math::GSL::Linalgc::gsl_complex_cot", _wrap_gsl_complex_cot},
11987 {"Math::GSL::Linalgc::gsl_complex_arcsin", _wrap_gsl_complex_arcsin},
11988 {"Math::GSL::Linalgc::gsl_complex_arcsin_real", _wrap_gsl_complex_arcsin_real},
11989 {"Math::GSL::Linalgc::gsl_complex_arccos", _wrap_gsl_complex_arccos},
11990 {"Math::GSL::Linalgc::gsl_complex_arccos_real", _wrap_gsl_complex_arccos_real},
11991 {"Math::GSL::Linalgc::gsl_complex_arcsec", _wrap_gsl_complex_arcsec},
11992 {"Math::GSL::Linalgc::gsl_complex_arcsec_real", _wrap_gsl_complex_arcsec_real},
11993 {"Math::GSL::Linalgc::gsl_complex_arccsc", _wrap_gsl_complex_arccsc},
11994 {"Math::GSL::Linalgc::gsl_complex_arccsc_real", _wrap_gsl_complex_arccsc_real},
11995 {"Math::GSL::Linalgc::gsl_complex_arctan", _wrap_gsl_complex_arctan},
11996 {"Math::GSL::Linalgc::gsl_complex_arccot", _wrap_gsl_complex_arccot},
11997 {"Math::GSL::Linalgc::gsl_complex_sinh", _wrap_gsl_complex_sinh},
11998 {"Math::GSL::Linalgc::gsl_complex_cosh", _wrap_gsl_complex_cosh},
11999 {"Math::GSL::Linalgc::gsl_complex_sech", _wrap_gsl_complex_sech},
12000 {"Math::GSL::Linalgc::gsl_complex_csch", _wrap_gsl_complex_csch},
12001 {"Math::GSL::Linalgc::gsl_complex_tanh", _wrap_gsl_complex_tanh},
12002 {"Math::GSL::Linalgc::gsl_complex_coth", _wrap_gsl_complex_coth},
12003 {"Math::GSL::Linalgc::gsl_complex_arcsinh", _wrap_gsl_complex_arcsinh},
12004 {"Math::GSL::Linalgc::gsl_complex_arccosh", _wrap_gsl_complex_arccosh},
12005 {"Math::GSL::Linalgc::gsl_complex_arccosh_real", _wrap_gsl_complex_arccosh_real},
12006 {"Math::GSL::Linalgc::gsl_complex_arcsech", _wrap_gsl_complex_arcsech},
12007 {"Math::GSL::Linalgc::gsl_complex_arccsch", _wrap_gsl_complex_arccsch},
12008 {"Math::GSL::Linalgc::gsl_complex_arctanh", _wrap_gsl_complex_arctanh},
12009 {"Math::GSL::Linalgc::gsl_complex_arctanh_real", _wrap_gsl_complex_arctanh_real},
12010 {"Math::GSL::Linalgc::gsl_complex_arccoth", _wrap_gsl_complex_arccoth},
12011 {0,0}
12012 };
12013 /* -----------------------------------------------------------------------------
12014 * Type initialization:
12015 * This problem is tough by the requirement that no dynamic
12016 * memory is used. Also, since swig_type_info structures store pointers to
12017 * swig_cast_info structures and swig_cast_info structures store pointers back
12018 * to swig_type_info structures, we need some lookup code at initialization.
12019 * The idea is that swig generates all the structures that are needed.
12020 * The runtime then collects these partially filled structures.
12021 * The SWIG_InitializeModule function takes these initial arrays out of
12022 * swig_module, and does all the lookup, filling in the swig_module.types
12023 * array with the correct data and linking the correct swig_cast_info
12024 * structures together.
12025 *
12026 * The generated swig_type_info structures are assigned statically to an initial
12027 * array. We just loop through that array, and handle each type individually.
12028 * First we lookup if this type has been already loaded, and if so, use the
12029 * loaded structure instead of the generated one. Then we have to fill in the
12030 * cast linked list. The cast data is initially stored in something like a
12031 * two-dimensional array. Each row corresponds to a type (there are the same
12032 * number of rows as there are in the swig_type_initial array). Each entry in
12033 * a column is one of the swig_cast_info structures for that type.
12034 * The cast_initial array is actually an array of arrays, because each row has
12035 * a variable number of columns. So to actually build the cast linked list,
12036 * we find the array of casts associated with the type, and loop through it
12037 * adding the casts to the list. The one last trick we need to do is making
12038 * sure the type pointer in the swig_cast_info struct is correct.
12039 *
12040 * First off, we lookup the cast->type name to see if it is already loaded.
12041 * There are three cases to handle:
12042 * 1) If the cast->type has already been loaded AND the type we are adding
12043 * casting info to has not been loaded (it is in this module), THEN we
12044 * replace the cast->type pointer with the type pointer that has already
12045 * been loaded.
12046 * 2) If BOTH types (the one we are adding casting info to, and the
12047 * cast->type) are loaded, THEN the cast info has already been loaded by
12048 * the previous module so we just ignore it.
12049 * 3) Finally, if cast->type has not already been loaded, then we add that
12050 * swig_cast_info to the linked list (because the cast->type) pointer will
12051 * be correct.
12052 * ----------------------------------------------------------------------------- */
12053
12054 #ifdef __cplusplus
12055 extern "C" {
12056 #if 0
12057 } /* c-mode */
12058 #endif
12059 #endif
12060
12061 #if 0
12062 #define SWIGRUNTIME_DEBUG
12063 #endif
12064
12065
12066 SWIGRUNTIME void
SWIG_InitializeModule(void * clientdata)12067 SWIG_InitializeModule(void *clientdata) {
12068 size_t i;
12069 swig_module_info *module_head, *iter;
12070 int init;
12071
12072 /* check to see if the circular list has been setup, if not, set it up */
12073 if (swig_module.next==0) {
12074 /* Initialize the swig_module */
12075 swig_module.type_initial = swig_type_initial;
12076 swig_module.cast_initial = swig_cast_initial;
12077 swig_module.next = &swig_module;
12078 init = 1;
12079 } else {
12080 init = 0;
12081 }
12082
12083 /* Try and load any already created modules */
12084 module_head = SWIG_GetModule(clientdata);
12085 if (!module_head) {
12086 /* This is the first module loaded for this interpreter */
12087 /* so set the swig module into the interpreter */
12088 SWIG_SetModule(clientdata, &swig_module);
12089 } else {
12090 /* the interpreter has loaded a SWIG module, but has it loaded this one? */
12091 iter=module_head;
12092 do {
12093 if (iter==&swig_module) {
12094 /* Our module is already in the list, so there's nothing more to do. */
12095 return;
12096 }
12097 iter=iter->next;
12098 } while (iter!= module_head);
12099
12100 /* otherwise we must add our module into the list */
12101 swig_module.next = module_head->next;
12102 module_head->next = &swig_module;
12103 }
12104
12105 /* When multiple interpreters are used, a module could have already been initialized in
12106 a different interpreter, but not yet have a pointer in this interpreter.
12107 In this case, we do not want to continue adding types... everything should be
12108 set up already */
12109 if (init == 0) return;
12110
12111 /* Now work on filling in swig_module.types */
12112 #ifdef SWIGRUNTIME_DEBUG
12113 printf("SWIG_InitializeModule: size %lu\n", (unsigned long)swig_module.size);
12114 #endif
12115 for (i = 0; i < swig_module.size; ++i) {
12116 swig_type_info *type = 0;
12117 swig_type_info *ret;
12118 swig_cast_info *cast;
12119
12120 #ifdef SWIGRUNTIME_DEBUG
12121 printf("SWIG_InitializeModule: type %lu %s\n", (unsigned long)i, swig_module.type_initial[i]->name);
12122 #endif
12123
12124 /* if there is another module already loaded */
12125 if (swig_module.next != &swig_module) {
12126 type = SWIG_MangledTypeQueryModule(swig_module.next, &swig_module, swig_module.type_initial[i]->name);
12127 }
12128 if (type) {
12129 /* Overwrite clientdata field */
12130 #ifdef SWIGRUNTIME_DEBUG
12131 printf("SWIG_InitializeModule: found type %s\n", type->name);
12132 #endif
12133 if (swig_module.type_initial[i]->clientdata) {
12134 type->clientdata = swig_module.type_initial[i]->clientdata;
12135 #ifdef SWIGRUNTIME_DEBUG
12136 printf("SWIG_InitializeModule: found and overwrite type %s \n", type->name);
12137 #endif
12138 }
12139 } else {
12140 type = swig_module.type_initial[i];
12141 }
12142
12143 /* Insert casting types */
12144 cast = swig_module.cast_initial[i];
12145 while (cast->type) {
12146 /* Don't need to add information already in the list */
12147 ret = 0;
12148 #ifdef SWIGRUNTIME_DEBUG
12149 printf("SWIG_InitializeModule: look cast %s\n", cast->type->name);
12150 #endif
12151 if (swig_module.next != &swig_module) {
12152 ret = SWIG_MangledTypeQueryModule(swig_module.next, &swig_module, cast->type->name);
12153 #ifdef SWIGRUNTIME_DEBUG
12154 if (ret) printf("SWIG_InitializeModule: found cast %s\n", ret->name);
12155 #endif
12156 }
12157 if (ret) {
12158 if (type == swig_module.type_initial[i]) {
12159 #ifdef SWIGRUNTIME_DEBUG
12160 printf("SWIG_InitializeModule: skip old type %s\n", ret->name);
12161 #endif
12162 cast->type = ret;
12163 ret = 0;
12164 } else {
12165 /* Check for casting already in the list */
12166 swig_cast_info *ocast = SWIG_TypeCheck(ret->name, type);
12167 #ifdef SWIGRUNTIME_DEBUG
12168 if (ocast) printf("SWIG_InitializeModule: skip old cast %s\n", ret->name);
12169 #endif
12170 if (!ocast) ret = 0;
12171 }
12172 }
12173
12174 if (!ret) {
12175 #ifdef SWIGRUNTIME_DEBUG
12176 printf("SWIG_InitializeModule: adding cast %s\n", cast->type->name);
12177 #endif
12178 if (type->cast) {
12179 type->cast->prev = cast;
12180 cast->next = type->cast;
12181 }
12182 type->cast = cast;
12183 }
12184 cast++;
12185 }
12186 /* Set entry in modules->types array equal to the type */
12187 swig_module.types[i] = type;
12188 }
12189 swig_module.types[i] = 0;
12190
12191 #ifdef SWIGRUNTIME_DEBUG
12192 printf("**** SWIG_InitializeModule: Cast List ******\n");
12193 for (i = 0; i < swig_module.size; ++i) {
12194 int j = 0;
12195 swig_cast_info *cast = swig_module.cast_initial[i];
12196 printf("SWIG_InitializeModule: type %lu %s\n", (unsigned long)i, swig_module.type_initial[i]->name);
12197 while (cast->type) {
12198 printf("SWIG_InitializeModule: cast type %s\n", cast->type->name);
12199 cast++;
12200 ++j;
12201 }
12202 printf("---- Total casts: %d\n",j);
12203 }
12204 printf("**** SWIG_InitializeModule: Cast List ******\n");
12205 #endif
12206 }
12207
12208 /* This function will propagate the clientdata field of type to
12209 * any new swig_type_info structures that have been added into the list
12210 * of equivalent types. It is like calling
12211 * SWIG_TypeClientData(type, clientdata) a second time.
12212 */
12213 SWIGRUNTIME void
SWIG_PropagateClientData(void)12214 SWIG_PropagateClientData(void) {
12215 size_t i;
12216 swig_cast_info *equiv;
12217 static int init_run = 0;
12218
12219 if (init_run) return;
12220 init_run = 1;
12221
12222 for (i = 0; i < swig_module.size; i++) {
12223 if (swig_module.types[i]->clientdata) {
12224 equiv = swig_module.types[i]->cast;
12225 while (equiv) {
12226 if (!equiv->converter) {
12227 if (equiv->type && !equiv->type->clientdata)
12228 SWIG_TypeClientData(equiv->type, swig_module.types[i]->clientdata);
12229 }
12230 equiv = equiv->next;
12231 }
12232 }
12233 }
12234 }
12235
12236 #ifdef __cplusplus
12237 #if 0
12238 {
12239 /* c-mode */
12240 #endif
12241 }
12242 #endif
12243
12244
12245
12246 #if defined(__cplusplus) && ! defined(XSPROTO)
12247 extern "C"
12248 #endif
12249
XS(SWIG_init)12250 XS(SWIG_init) {
12251 dXSARGS;
12252 int i;
12253 (void)items;
12254
12255 SWIG_InitializeModule(0);
12256
12257 /* Install commands */
12258 for (i = 0; swig_commands[i].name; i++) {
12259 /* Casts only needed for Perl < 5.10. */
12260 #ifdef __cplusplus
12261 newXS(const_cast<char*>(swig_commands[i].name), swig_commands[i].wrapper, const_cast<char*>(__FILE__));
12262 #else
12263 newXS((char*)swig_commands[i].name, swig_commands[i].wrapper, (char*)__FILE__);
12264 #endif
12265 }
12266
12267 /* Install variables */
12268 for (i = 0; swig_variables[i].name; i++) {
12269 SV *sv;
12270 sv = get_sv(swig_variables[i].name, TRUE | 0x2 | GV_ADDMULTI);
12271 if (swig_variables[i].type) {
12272 SWIG_MakePtr(sv,(void *)1, *swig_variables[i].type,0);
12273 } else {
12274 sv_setiv(sv,(IV) 0);
12275 }
12276 swig_create_magic(sv, swig_variables[i].name, swig_variables[i].set, swig_variables[i].get);
12277 }
12278
12279 /* Install constant */
12280 for (i = 0; swig_constants[i].type; i++) {
12281 SV *sv;
12282 sv = get_sv(swig_constants[i].name, TRUE | 0x2 | GV_ADDMULTI);
12283 switch(swig_constants[i].type) {
12284 case SWIG_INT:
12285 sv_setiv(sv, (IV) swig_constants[i].lvalue);
12286 break;
12287 case SWIG_FLOAT:
12288 sv_setnv(sv, (double) swig_constants[i].dvalue);
12289 break;
12290 case SWIG_STRING:
12291 sv_setpv(sv, (const char *) swig_constants[i].pvalue);
12292 break;
12293 case SWIG_POINTER:
12294 SWIG_MakePtr(sv, swig_constants[i].pvalue, *(swig_constants[i].ptype),0);
12295 break;
12296 case SWIG_BINARY:
12297 SWIG_MakePackedObj(sv, swig_constants[i].pvalue, swig_constants[i].lvalue, *(swig_constants[i].ptype));
12298 break;
12299 default:
12300 break;
12301 }
12302 SvREADONLY_on(sv);
12303 }
12304
12305 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12306 SV *sv = get_sv((char*) SWIG_prefix "GSL_VERSION", TRUE | 0x2 | GV_ADDMULTI);
12307 sv_setsv(sv, SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(2.7)));
12308 SvREADONLY_on(sv);
12309 } while(0) /*@SWIG@*/;
12310 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12311 SV *sv = get_sv((char*) SWIG_prefix "GSL_MAJOR_VERSION", TRUE | 0x2 | GV_ADDMULTI);
12312 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(2)));
12313 SvREADONLY_on(sv);
12314 } while(0) /*@SWIG@*/;
12315 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12316 SV *sv = get_sv((char*) SWIG_prefix "GSL_MINOR_VERSION", TRUE | 0x2 | GV_ADDMULTI);
12317 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(7)));
12318 SvREADONLY_on(sv);
12319 } while(0) /*@SWIG@*/;
12320 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12321 SV *sv = get_sv((char*) SWIG_prefix "GSL_POSZERO", TRUE | 0x2 | GV_ADDMULTI);
12322 sv_setsv(sv, SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)((+0.0))));
12323 SvREADONLY_on(sv);
12324 } while(0) /*@SWIG@*/;
12325 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12326 SV *sv = get_sv((char*) SWIG_prefix "GSL_NEGZERO", TRUE | 0x2 | GV_ADDMULTI);
12327 sv_setsv(sv, SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)((-0.0))));
12328 SvREADONLY_on(sv);
12329 } while(0) /*@SWIG@*/;
12330 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12331 SV *sv = get_sv((char*) SWIG_prefix "GSL_SUCCESS", TRUE | 0x2 | GV_ADDMULTI);
12332 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_SUCCESS)));
12333 SvREADONLY_on(sv);
12334 } while(0) /*@SWIG@*/;
12335 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12336 SV *sv = get_sv((char*) SWIG_prefix "GSL_FAILURE", TRUE | 0x2 | GV_ADDMULTI);
12337 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_FAILURE)));
12338 SvREADONLY_on(sv);
12339 } while(0) /*@SWIG@*/;
12340 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12341 SV *sv = get_sv((char*) SWIG_prefix "GSL_CONTINUE", TRUE | 0x2 | GV_ADDMULTI);
12342 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_CONTINUE)));
12343 SvREADONLY_on(sv);
12344 } while(0) /*@SWIG@*/;
12345 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12346 SV *sv = get_sv((char*) SWIG_prefix "GSL_EDOM", TRUE | 0x2 | GV_ADDMULTI);
12347 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EDOM)));
12348 SvREADONLY_on(sv);
12349 } while(0) /*@SWIG@*/;
12350 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12351 SV *sv = get_sv((char*) SWIG_prefix "GSL_ERANGE", TRUE | 0x2 | GV_ADDMULTI);
12352 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ERANGE)));
12353 SvREADONLY_on(sv);
12354 } while(0) /*@SWIG@*/;
12355 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12356 SV *sv = get_sv((char*) SWIG_prefix "GSL_EFAULT", TRUE | 0x2 | GV_ADDMULTI);
12357 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EFAULT)));
12358 SvREADONLY_on(sv);
12359 } while(0) /*@SWIG@*/;
12360 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12361 SV *sv = get_sv((char*) SWIG_prefix "GSL_EINVAL", TRUE | 0x2 | GV_ADDMULTI);
12362 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EINVAL)));
12363 SvREADONLY_on(sv);
12364 } while(0) /*@SWIG@*/;
12365 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12366 SV *sv = get_sv((char*) SWIG_prefix "GSL_EFAILED", TRUE | 0x2 | GV_ADDMULTI);
12367 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EFAILED)));
12368 SvREADONLY_on(sv);
12369 } while(0) /*@SWIG@*/;
12370 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12371 SV *sv = get_sv((char*) SWIG_prefix "GSL_EFACTOR", TRUE | 0x2 | GV_ADDMULTI);
12372 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EFACTOR)));
12373 SvREADONLY_on(sv);
12374 } while(0) /*@SWIG@*/;
12375 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12376 SV *sv = get_sv((char*) SWIG_prefix "GSL_ESANITY", TRUE | 0x2 | GV_ADDMULTI);
12377 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ESANITY)));
12378 SvREADONLY_on(sv);
12379 } while(0) /*@SWIG@*/;
12380 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12381 SV *sv = get_sv((char*) SWIG_prefix "GSL_ENOMEM", TRUE | 0x2 | GV_ADDMULTI);
12382 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ENOMEM)));
12383 SvREADONLY_on(sv);
12384 } while(0) /*@SWIG@*/;
12385 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12386 SV *sv = get_sv((char*) SWIG_prefix "GSL_EBADFUNC", TRUE | 0x2 | GV_ADDMULTI);
12387 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EBADFUNC)));
12388 SvREADONLY_on(sv);
12389 } while(0) /*@SWIG@*/;
12390 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12391 SV *sv = get_sv((char*) SWIG_prefix "GSL_ERUNAWAY", TRUE | 0x2 | GV_ADDMULTI);
12392 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ERUNAWAY)));
12393 SvREADONLY_on(sv);
12394 } while(0) /*@SWIG@*/;
12395 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12396 SV *sv = get_sv((char*) SWIG_prefix "GSL_EMAXITER", TRUE | 0x2 | GV_ADDMULTI);
12397 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EMAXITER)));
12398 SvREADONLY_on(sv);
12399 } while(0) /*@SWIG@*/;
12400 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12401 SV *sv = get_sv((char*) SWIG_prefix "GSL_EZERODIV", TRUE | 0x2 | GV_ADDMULTI);
12402 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EZERODIV)));
12403 SvREADONLY_on(sv);
12404 } while(0) /*@SWIG@*/;
12405 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12406 SV *sv = get_sv((char*) SWIG_prefix "GSL_EBADTOL", TRUE | 0x2 | GV_ADDMULTI);
12407 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EBADTOL)));
12408 SvREADONLY_on(sv);
12409 } while(0) /*@SWIG@*/;
12410 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12411 SV *sv = get_sv((char*) SWIG_prefix "GSL_ETOL", TRUE | 0x2 | GV_ADDMULTI);
12412 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ETOL)));
12413 SvREADONLY_on(sv);
12414 } while(0) /*@SWIG@*/;
12415 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12416 SV *sv = get_sv((char*) SWIG_prefix "GSL_EUNDRFLW", TRUE | 0x2 | GV_ADDMULTI);
12417 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EUNDRFLW)));
12418 SvREADONLY_on(sv);
12419 } while(0) /*@SWIG@*/;
12420 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12421 SV *sv = get_sv((char*) SWIG_prefix "GSL_EOVRFLW", TRUE | 0x2 | GV_ADDMULTI);
12422 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EOVRFLW)));
12423 SvREADONLY_on(sv);
12424 } while(0) /*@SWIG@*/;
12425 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12426 SV *sv = get_sv((char*) SWIG_prefix "GSL_ELOSS", TRUE | 0x2 | GV_ADDMULTI);
12427 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ELOSS)));
12428 SvREADONLY_on(sv);
12429 } while(0) /*@SWIG@*/;
12430 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12431 SV *sv = get_sv((char*) SWIG_prefix "GSL_EROUND", TRUE | 0x2 | GV_ADDMULTI);
12432 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EROUND)));
12433 SvREADONLY_on(sv);
12434 } while(0) /*@SWIG@*/;
12435 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12436 SV *sv = get_sv((char*) SWIG_prefix "GSL_EBADLEN", TRUE | 0x2 | GV_ADDMULTI);
12437 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EBADLEN)));
12438 SvREADONLY_on(sv);
12439 } while(0) /*@SWIG@*/;
12440 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12441 SV *sv = get_sv((char*) SWIG_prefix "GSL_ENOTSQR", TRUE | 0x2 | GV_ADDMULTI);
12442 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ENOTSQR)));
12443 SvREADONLY_on(sv);
12444 } while(0) /*@SWIG@*/;
12445 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12446 SV *sv = get_sv((char*) SWIG_prefix "GSL_ESING", TRUE | 0x2 | GV_ADDMULTI);
12447 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ESING)));
12448 SvREADONLY_on(sv);
12449 } while(0) /*@SWIG@*/;
12450 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12451 SV *sv = get_sv((char*) SWIG_prefix "GSL_EDIVERGE", TRUE | 0x2 | GV_ADDMULTI);
12452 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EDIVERGE)));
12453 SvREADONLY_on(sv);
12454 } while(0) /*@SWIG@*/;
12455 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12456 SV *sv = get_sv((char*) SWIG_prefix "GSL_EUNSUP", TRUE | 0x2 | GV_ADDMULTI);
12457 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EUNSUP)));
12458 SvREADONLY_on(sv);
12459 } while(0) /*@SWIG@*/;
12460 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12461 SV *sv = get_sv((char*) SWIG_prefix "GSL_EUNIMPL", TRUE | 0x2 | GV_ADDMULTI);
12462 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EUNIMPL)));
12463 SvREADONLY_on(sv);
12464 } while(0) /*@SWIG@*/;
12465 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12466 SV *sv = get_sv((char*) SWIG_prefix "GSL_ECACHE", TRUE | 0x2 | GV_ADDMULTI);
12467 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ECACHE)));
12468 SvREADONLY_on(sv);
12469 } while(0) /*@SWIG@*/;
12470 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12471 SV *sv = get_sv((char*) SWIG_prefix "GSL_ETABLE", TRUE | 0x2 | GV_ADDMULTI);
12472 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ETABLE)));
12473 SvREADONLY_on(sv);
12474 } while(0) /*@SWIG@*/;
12475 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12476 SV *sv = get_sv((char*) SWIG_prefix "GSL_ENOPROG", TRUE | 0x2 | GV_ADDMULTI);
12477 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ENOPROG)));
12478 SvREADONLY_on(sv);
12479 } while(0) /*@SWIG@*/;
12480 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12481 SV *sv = get_sv((char*) SWIG_prefix "GSL_ENOPROGJ", TRUE | 0x2 | GV_ADDMULTI);
12482 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ENOPROGJ)));
12483 SvREADONLY_on(sv);
12484 } while(0) /*@SWIG@*/;
12485 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12486 SV *sv = get_sv((char*) SWIG_prefix "GSL_ETOLF", TRUE | 0x2 | GV_ADDMULTI);
12487 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ETOLF)));
12488 SvREADONLY_on(sv);
12489 } while(0) /*@SWIG@*/;
12490 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12491 SV *sv = get_sv((char*) SWIG_prefix "GSL_ETOLX", TRUE | 0x2 | GV_ADDMULTI);
12492 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ETOLX)));
12493 SvREADONLY_on(sv);
12494 } while(0) /*@SWIG@*/;
12495 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12496 SV *sv = get_sv((char*) SWIG_prefix "GSL_ETOLG", TRUE | 0x2 | GV_ADDMULTI);
12497 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ETOLG)));
12498 SvREADONLY_on(sv);
12499 } while(0) /*@SWIG@*/;
12500 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12501 SV *sv = get_sv((char*) SWIG_prefix "GSL_EOF", TRUE | 0x2 | GV_ADDMULTI);
12502 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EOF)));
12503 SvREADONLY_on(sv);
12504 } while(0) /*@SWIG@*/;
12505 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12506 SV *sv = get_sv((char*) SWIG_prefix "GSL_LINALG_MOD_NONE", TRUE | 0x2 | GV_ADDMULTI);
12507 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_LINALG_MOD_NONE)));
12508 SvREADONLY_on(sv);
12509 } while(0) /*@SWIG@*/;
12510 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12511 SV *sv = get_sv((char*) SWIG_prefix "GSL_LINALG_MOD_TRANSPOSE", TRUE | 0x2 | GV_ADDMULTI);
12512 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_LINALG_MOD_TRANSPOSE)));
12513 SvREADONLY_on(sv);
12514 } while(0) /*@SWIG@*/;
12515 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12516 SV *sv = get_sv((char*) SWIG_prefix "GSL_LINALG_MOD_CONJUGATE", TRUE | 0x2 | GV_ADDMULTI);
12517 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_LINALG_MOD_CONJUGATE)));
12518 SvREADONLY_on(sv);
12519 } while(0) /*@SWIG@*/;
12520 SWIG_TypeClientData(SWIGTYPE_p_gsl_permutation_struct, (void*) "Math::GSL::Linalg::gsl_permutation_struct");
12521 SWIG_TypeClientData(SWIGTYPE_p_gsl_complex, (void*) "Math::GSL::Linalg::gsl_complex");
12522 SWIG_TypeClientData(SWIGTYPE_p_gsl_complex_long_double, (void*) "Math::GSL::Linalg::gsl_complex_long_double");
12523 SWIG_TypeClientData(SWIGTYPE_p_gsl_complex_float, (void*) "Math::GSL::Linalg::gsl_complex_float");
12524 ST(0) = &PL_sv_yes;
12525 XSRETURN(1);
12526 }
12527
12528