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_unpack)4993 XS(_wrap_gsl_linalg_QR_unpack) {
4994 {
4995 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
4996 gsl_vector *arg2 = (gsl_vector *) 0 ;
4997 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
4998 gsl_matrix *arg4 = (gsl_matrix *) 0 ;
4999 void *argp1 = 0 ;
5000 int res1 = 0 ;
5001 void *argp2 = 0 ;
5002 int res2 = 0 ;
5003 void *argp3 = 0 ;
5004 int res3 = 0 ;
5005 void *argp4 = 0 ;
5006 int res4 = 0 ;
5007 int argvi = 0;
5008 int result;
5009 dXSARGS;
5010
5011 if ((items < 4) || (items > 4)) {
5012 SWIG_croak("Usage: gsl_linalg_QR_unpack(QR,tau,Q,R);");
5013 }
5014 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5015 if (!SWIG_IsOK(res1)) {
5016 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QR_unpack" "', argument " "1"" of type '" "gsl_matrix const *""'");
5017 }
5018 arg1 = (gsl_matrix *)(argp1);
5019 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
5020 if (!SWIG_IsOK(res2)) {
5021 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QR_unpack" "', argument " "2"" of type '" "gsl_vector const *""'");
5022 }
5023 arg2 = (gsl_vector *)(argp2);
5024 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5025 if (!SWIG_IsOK(res3)) {
5026 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QR_unpack" "', argument " "3"" of type '" "gsl_matrix *""'");
5027 }
5028 arg3 = (gsl_matrix *)(argp3);
5029 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5030 if (!SWIG_IsOK(res4)) {
5031 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_QR_unpack" "', argument " "4"" of type '" "gsl_matrix *""'");
5032 }
5033 arg4 = (gsl_matrix *)(argp4);
5034 result = (int)gsl_linalg_QR_unpack((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3,arg4);
5035 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5036
5037
5038
5039
5040 XSRETURN(argvi);
5041 fail:
5042
5043
5044
5045
5046 SWIG_croak_null();
5047 }
5048 }
5049
5050
XS(_wrap_gsl_linalg_R_solve)5051 XS(_wrap_gsl_linalg_R_solve) {
5052 {
5053 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5054 gsl_vector *arg2 = (gsl_vector *) 0 ;
5055 gsl_vector *arg3 = (gsl_vector *) 0 ;
5056 void *argp1 = 0 ;
5057 int res1 = 0 ;
5058 void *argp2 = 0 ;
5059 int res2 = 0 ;
5060 void *argp3 = 0 ;
5061 int res3 = 0 ;
5062 int argvi = 0;
5063 int result;
5064 dXSARGS;
5065
5066 if ((items < 3) || (items > 3)) {
5067 SWIG_croak("Usage: gsl_linalg_R_solve(R,b,x);");
5068 }
5069 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5070 if (!SWIG_IsOK(res1)) {
5071 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_R_solve" "', argument " "1"" of type '" "gsl_matrix const *""'");
5072 }
5073 arg1 = (gsl_matrix *)(argp1);
5074 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
5075 if (!SWIG_IsOK(res2)) {
5076 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_R_solve" "', argument " "2"" of type '" "gsl_vector const *""'");
5077 }
5078 arg2 = (gsl_vector *)(argp2);
5079 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
5080 if (!SWIG_IsOK(res3)) {
5081 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_R_solve" "', argument " "3"" of type '" "gsl_vector *""'");
5082 }
5083 arg3 = (gsl_vector *)(argp3);
5084 result = (int)gsl_linalg_R_solve((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3);
5085 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5086
5087
5088
5089 XSRETURN(argvi);
5090 fail:
5091
5092
5093
5094 SWIG_croak_null();
5095 }
5096 }
5097
5098
XS(_wrap_gsl_linalg_R_svx)5099 XS(_wrap_gsl_linalg_R_svx) {
5100 {
5101 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5102 gsl_vector *arg2 = (gsl_vector *) 0 ;
5103 void *argp1 = 0 ;
5104 int res1 = 0 ;
5105 void *argp2 = 0 ;
5106 int res2 = 0 ;
5107 int argvi = 0;
5108 int result;
5109 dXSARGS;
5110
5111 if ((items < 2) || (items > 2)) {
5112 SWIG_croak("Usage: gsl_linalg_R_svx(R,x);");
5113 }
5114 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5115 if (!SWIG_IsOK(res1)) {
5116 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_R_svx" "', argument " "1"" of type '" "gsl_matrix const *""'");
5117 }
5118 arg1 = (gsl_matrix *)(argp1);
5119 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
5120 if (!SWIG_IsOK(res2)) {
5121 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_R_svx" "', argument " "2"" of type '" "gsl_vector *""'");
5122 }
5123 arg2 = (gsl_vector *)(argp2);
5124 result = (int)gsl_linalg_R_svx((gsl_matrix const *)arg1,arg2);
5125 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5126
5127
5128 XSRETURN(argvi);
5129 fail:
5130
5131
5132 SWIG_croak_null();
5133 }
5134 }
5135
5136
XS(_wrap_gsl_linalg_QRPT_decomp)5137 XS(_wrap_gsl_linalg_QRPT_decomp) {
5138 {
5139 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5140 gsl_vector *arg2 = (gsl_vector *) 0 ;
5141 gsl_permutation *arg3 = (gsl_permutation *) 0 ;
5142 int *arg4 = (int *) 0 ;
5143 gsl_vector *arg5 = (gsl_vector *) 0 ;
5144 void *argp1 = 0 ;
5145 int res1 = 0 ;
5146 void *argp2 = 0 ;
5147 int res2 = 0 ;
5148 void *argp3 = 0 ;
5149 int res3 = 0 ;
5150 int temp4 ;
5151 int res4 = SWIG_TMPOBJ ;
5152 void *argp5 = 0 ;
5153 int res5 = 0 ;
5154 int argvi = 0;
5155 int result;
5156 dXSARGS;
5157
5158 arg4 = &temp4;
5159 if ((items < 4) || (items > 4)) {
5160 SWIG_croak("Usage: gsl_linalg_QRPT_decomp(A,tau,p,norm);");
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_QRPT_decomp" "', argument " "1"" of type '" "gsl_matrix *""'");
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_QRPT_decomp" "', argument " "2"" of type '" "gsl_vector *""'");
5170 }
5171 arg2 = (gsl_vector *)(argp2);
5172 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
5173 if (!SWIG_IsOK(res3)) {
5174 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QRPT_decomp" "', argument " "3"" of type '" "gsl_permutation *""'");
5175 }
5176 arg3 = (gsl_permutation *)(argp3);
5177 res5 = SWIG_ConvertPtr(ST(3), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
5178 if (!SWIG_IsOK(res5)) {
5179 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_QRPT_decomp" "', argument " "5"" of type '" "gsl_vector *""'");
5180 }
5181 arg5 = (gsl_vector *)(argp5);
5182 result = (int)gsl_linalg_QRPT_decomp(arg1,arg2,arg3,arg4,arg5);
5183 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5184 if (SWIG_IsTmpObj(res4)) {
5185 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((*arg4)); argvi++ ;
5186 } else {
5187 int new_flags = SWIG_IsNewObj(res4) ? (SWIG_POINTER_OWN | 0) : 0;
5188 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg4), SWIGTYPE_p_int, new_flags); argvi++ ;
5189 }
5190
5191
5192
5193
5194
5195 XSRETURN(argvi);
5196 fail:
5197
5198
5199
5200
5201
5202 SWIG_croak_null();
5203 }
5204 }
5205
5206
XS(_wrap_gsl_linalg_QRPT_decomp2)5207 XS(_wrap_gsl_linalg_QRPT_decomp2) {
5208 {
5209 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5210 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
5211 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
5212 gsl_vector *arg4 = (gsl_vector *) 0 ;
5213 gsl_permutation *arg5 = (gsl_permutation *) 0 ;
5214 int *arg6 = (int *) 0 ;
5215 gsl_vector *arg7 = (gsl_vector *) 0 ;
5216 void *argp1 = 0 ;
5217 int res1 = 0 ;
5218 void *argp2 = 0 ;
5219 int res2 = 0 ;
5220 void *argp3 = 0 ;
5221 int res3 = 0 ;
5222 void *argp4 = 0 ;
5223 int res4 = 0 ;
5224 void *argp5 = 0 ;
5225 int res5 = 0 ;
5226 int temp6 ;
5227 int res6 = SWIG_TMPOBJ ;
5228 void *argp7 = 0 ;
5229 int res7 = 0 ;
5230 int argvi = 0;
5231 int result;
5232 dXSARGS;
5233
5234 arg6 = &temp6;
5235 if ((items < 6) || (items > 6)) {
5236 SWIG_croak("Usage: gsl_linalg_QRPT_decomp2(A,q,r,tau,p,norm);");
5237 }
5238 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5239 if (!SWIG_IsOK(res1)) {
5240 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QRPT_decomp2" "', argument " "1"" of type '" "gsl_matrix const *""'");
5241 }
5242 arg1 = (gsl_matrix *)(argp1);
5243 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5244 if (!SWIG_IsOK(res2)) {
5245 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QRPT_decomp2" "', argument " "2"" of type '" "gsl_matrix *""'");
5246 }
5247 arg2 = (gsl_matrix *)(argp2);
5248 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5249 if (!SWIG_IsOK(res3)) {
5250 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QRPT_decomp2" "', argument " "3"" of type '" "gsl_matrix *""'");
5251 }
5252 arg3 = (gsl_matrix *)(argp3);
5253 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
5254 if (!SWIG_IsOK(res4)) {
5255 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_QRPT_decomp2" "', argument " "4"" of type '" "gsl_vector *""'");
5256 }
5257 arg4 = (gsl_vector *)(argp4);
5258 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
5259 if (!SWIG_IsOK(res5)) {
5260 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_QRPT_decomp2" "', argument " "5"" of type '" "gsl_permutation *""'");
5261 }
5262 arg5 = (gsl_permutation *)(argp5);
5263 res7 = SWIG_ConvertPtr(ST(5), &argp7,SWIGTYPE_p_gsl_vector, 0 | 0 );
5264 if (!SWIG_IsOK(res7)) {
5265 SWIG_exception_fail(SWIG_ArgError(res7), "in method '" "gsl_linalg_QRPT_decomp2" "', argument " "7"" of type '" "gsl_vector *""'");
5266 }
5267 arg7 = (gsl_vector *)(argp7);
5268 result = (int)gsl_linalg_QRPT_decomp2((gsl_matrix const *)arg1,arg2,arg3,arg4,arg5,arg6,arg7);
5269 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5270 if (SWIG_IsTmpObj(res6)) {
5271 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((*arg6)); argvi++ ;
5272 } else {
5273 int new_flags = SWIG_IsNewObj(res6) ? (SWIG_POINTER_OWN | 0) : 0;
5274 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg6), SWIGTYPE_p_int, new_flags); argvi++ ;
5275 }
5276
5277
5278
5279
5280
5281
5282
5283 XSRETURN(argvi);
5284 fail:
5285
5286
5287
5288
5289
5290
5291
5292 SWIG_croak_null();
5293 }
5294 }
5295
5296
XS(_wrap_gsl_linalg_QRPT_solve)5297 XS(_wrap_gsl_linalg_QRPT_solve) {
5298 {
5299 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5300 gsl_vector *arg2 = (gsl_vector *) 0 ;
5301 gsl_permutation *arg3 = (gsl_permutation *) 0 ;
5302 gsl_vector *arg4 = (gsl_vector *) 0 ;
5303 gsl_vector *arg5 = (gsl_vector *) 0 ;
5304 void *argp1 = 0 ;
5305 int res1 = 0 ;
5306 void *argp2 = 0 ;
5307 int res2 = 0 ;
5308 void *argp3 = 0 ;
5309 int res3 = 0 ;
5310 void *argp4 = 0 ;
5311 int res4 = 0 ;
5312 void *argp5 = 0 ;
5313 int res5 = 0 ;
5314 int argvi = 0;
5315 int result;
5316 dXSARGS;
5317
5318 if ((items < 5) || (items > 5)) {
5319 SWIG_croak("Usage: gsl_linalg_QRPT_solve(QR,tau,p,b,x);");
5320 }
5321 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5322 if (!SWIG_IsOK(res1)) {
5323 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QRPT_solve" "', argument " "1"" of type '" "gsl_matrix const *""'");
5324 }
5325 arg1 = (gsl_matrix *)(argp1);
5326 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
5327 if (!SWIG_IsOK(res2)) {
5328 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QRPT_solve" "', argument " "2"" of type '" "gsl_vector const *""'");
5329 }
5330 arg2 = (gsl_vector *)(argp2);
5331 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
5332 if (!SWIG_IsOK(res3)) {
5333 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QRPT_solve" "', argument " "3"" of type '" "gsl_permutation const *""'");
5334 }
5335 arg3 = (gsl_permutation *)(argp3);
5336 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
5337 if (!SWIG_IsOK(res4)) {
5338 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_QRPT_solve" "', argument " "4"" of type '" "gsl_vector const *""'");
5339 }
5340 arg4 = (gsl_vector *)(argp4);
5341 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
5342 if (!SWIG_IsOK(res5)) {
5343 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_QRPT_solve" "', argument " "5"" of type '" "gsl_vector *""'");
5344 }
5345 arg5 = (gsl_vector *)(argp5);
5346 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);
5347 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5348
5349
5350
5351
5352
5353 XSRETURN(argvi);
5354 fail:
5355
5356
5357
5358
5359
5360 SWIG_croak_null();
5361 }
5362 }
5363
5364
XS(_wrap_gsl_linalg_QRPT_svx)5365 XS(_wrap_gsl_linalg_QRPT_svx) {
5366 {
5367 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5368 gsl_vector *arg2 = (gsl_vector *) 0 ;
5369 gsl_permutation *arg3 = (gsl_permutation *) 0 ;
5370 gsl_vector *arg4 = (gsl_vector *) 0 ;
5371 void *argp1 = 0 ;
5372 int res1 = 0 ;
5373 void *argp2 = 0 ;
5374 int res2 = 0 ;
5375 void *argp3 = 0 ;
5376 int res3 = 0 ;
5377 void *argp4 = 0 ;
5378 int res4 = 0 ;
5379 int argvi = 0;
5380 int result;
5381 dXSARGS;
5382
5383 if ((items < 4) || (items > 4)) {
5384 SWIG_croak("Usage: gsl_linalg_QRPT_svx(QR,tau,p,x);");
5385 }
5386 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5387 if (!SWIG_IsOK(res1)) {
5388 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QRPT_svx" "', argument " "1"" of type '" "gsl_matrix const *""'");
5389 }
5390 arg1 = (gsl_matrix *)(argp1);
5391 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
5392 if (!SWIG_IsOK(res2)) {
5393 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QRPT_svx" "', argument " "2"" of type '" "gsl_vector const *""'");
5394 }
5395 arg2 = (gsl_vector *)(argp2);
5396 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
5397 if (!SWIG_IsOK(res3)) {
5398 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QRPT_svx" "', argument " "3"" of type '" "gsl_permutation const *""'");
5399 }
5400 arg3 = (gsl_permutation *)(argp3);
5401 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
5402 if (!SWIG_IsOK(res4)) {
5403 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_QRPT_svx" "', argument " "4"" of type '" "gsl_vector *""'");
5404 }
5405 arg4 = (gsl_vector *)(argp4);
5406 result = (int)gsl_linalg_QRPT_svx((gsl_matrix const *)arg1,(gsl_vector const *)arg2,(struct gsl_permutation_struct const *)arg3,arg4);
5407 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5408
5409
5410
5411
5412 XSRETURN(argvi);
5413 fail:
5414
5415
5416
5417
5418 SWIG_croak_null();
5419 }
5420 }
5421
5422
XS(_wrap_gsl_linalg_QRPT_QRsolve)5423 XS(_wrap_gsl_linalg_QRPT_QRsolve) {
5424 {
5425 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5426 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
5427 gsl_permutation *arg3 = (gsl_permutation *) 0 ;
5428 gsl_vector *arg4 = (gsl_vector *) 0 ;
5429 gsl_vector *arg5 = (gsl_vector *) 0 ;
5430 void *argp1 = 0 ;
5431 int res1 = 0 ;
5432 void *argp2 = 0 ;
5433 int res2 = 0 ;
5434 void *argp3 = 0 ;
5435 int res3 = 0 ;
5436 void *argp4 = 0 ;
5437 int res4 = 0 ;
5438 void *argp5 = 0 ;
5439 int res5 = 0 ;
5440 int argvi = 0;
5441 int result;
5442 dXSARGS;
5443
5444 if ((items < 5) || (items > 5)) {
5445 SWIG_croak("Usage: gsl_linalg_QRPT_QRsolve(Q,R,p,b,x);");
5446 }
5447 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5448 if (!SWIG_IsOK(res1)) {
5449 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QRPT_QRsolve" "', argument " "1"" of type '" "gsl_matrix const *""'");
5450 }
5451 arg1 = (gsl_matrix *)(argp1);
5452 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5453 if (!SWIG_IsOK(res2)) {
5454 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QRPT_QRsolve" "', argument " "2"" of type '" "gsl_matrix const *""'");
5455 }
5456 arg2 = (gsl_matrix *)(argp2);
5457 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
5458 if (!SWIG_IsOK(res3)) {
5459 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QRPT_QRsolve" "', argument " "3"" of type '" "gsl_permutation const *""'");
5460 }
5461 arg3 = (gsl_permutation *)(argp3);
5462 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
5463 if (!SWIG_IsOK(res4)) {
5464 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_QRPT_QRsolve" "', argument " "4"" of type '" "gsl_vector const *""'");
5465 }
5466 arg4 = (gsl_vector *)(argp4);
5467 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
5468 if (!SWIG_IsOK(res5)) {
5469 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_QRPT_QRsolve" "', argument " "5"" of type '" "gsl_vector *""'");
5470 }
5471 arg5 = (gsl_vector *)(argp5);
5472 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);
5473 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5474
5475
5476
5477
5478
5479 XSRETURN(argvi);
5480 fail:
5481
5482
5483
5484
5485
5486 SWIG_croak_null();
5487 }
5488 }
5489
5490
XS(_wrap_gsl_linalg_QRPT_Rsolve)5491 XS(_wrap_gsl_linalg_QRPT_Rsolve) {
5492 {
5493 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5494 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
5495 gsl_vector *arg3 = (gsl_vector *) 0 ;
5496 gsl_vector *arg4 = (gsl_vector *) 0 ;
5497 void *argp1 = 0 ;
5498 int res1 = 0 ;
5499 void *argp2 = 0 ;
5500 int res2 = 0 ;
5501 void *argp3 = 0 ;
5502 int res3 = 0 ;
5503 void *argp4 = 0 ;
5504 int res4 = 0 ;
5505 int argvi = 0;
5506 int result;
5507 dXSARGS;
5508
5509 if ((items < 4) || (items > 4)) {
5510 SWIG_croak("Usage: gsl_linalg_QRPT_Rsolve(QR,p,b,x);");
5511 }
5512 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5513 if (!SWIG_IsOK(res1)) {
5514 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QRPT_Rsolve" "', argument " "1"" of type '" "gsl_matrix const *""'");
5515 }
5516 arg1 = (gsl_matrix *)(argp1);
5517 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
5518 if (!SWIG_IsOK(res2)) {
5519 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QRPT_Rsolve" "', argument " "2"" of type '" "gsl_permutation const *""'");
5520 }
5521 arg2 = (gsl_permutation *)(argp2);
5522 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
5523 if (!SWIG_IsOK(res3)) {
5524 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QRPT_Rsolve" "', argument " "3"" of type '" "gsl_vector const *""'");
5525 }
5526 arg3 = (gsl_vector *)(argp3);
5527 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
5528 if (!SWIG_IsOK(res4)) {
5529 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_QRPT_Rsolve" "', argument " "4"" of type '" "gsl_vector *""'");
5530 }
5531 arg4 = (gsl_vector *)(argp4);
5532 result = (int)gsl_linalg_QRPT_Rsolve((gsl_matrix const *)arg1,(struct gsl_permutation_struct const *)arg2,(gsl_vector const *)arg3,arg4);
5533 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5534
5535
5536
5537
5538 XSRETURN(argvi);
5539 fail:
5540
5541
5542
5543
5544 SWIG_croak_null();
5545 }
5546 }
5547
5548
XS(_wrap_gsl_linalg_QRPT_Rsvx)5549 XS(_wrap_gsl_linalg_QRPT_Rsvx) {
5550 {
5551 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5552 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
5553 gsl_vector *arg3 = (gsl_vector *) 0 ;
5554 void *argp1 = 0 ;
5555 int res1 = 0 ;
5556 void *argp2 = 0 ;
5557 int res2 = 0 ;
5558 void *argp3 = 0 ;
5559 int res3 = 0 ;
5560 int argvi = 0;
5561 int result;
5562 dXSARGS;
5563
5564 if ((items < 3) || (items > 3)) {
5565 SWIG_croak("Usage: gsl_linalg_QRPT_Rsvx(QR,p,x);");
5566 }
5567 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5568 if (!SWIG_IsOK(res1)) {
5569 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QRPT_Rsvx" "', argument " "1"" of type '" "gsl_matrix const *""'");
5570 }
5571 arg1 = (gsl_matrix *)(argp1);
5572 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
5573 if (!SWIG_IsOK(res2)) {
5574 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QRPT_Rsvx" "', argument " "2"" of type '" "gsl_permutation const *""'");
5575 }
5576 arg2 = (gsl_permutation *)(argp2);
5577 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
5578 if (!SWIG_IsOK(res3)) {
5579 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QRPT_Rsvx" "', argument " "3"" of type '" "gsl_vector *""'");
5580 }
5581 arg3 = (gsl_vector *)(argp3);
5582 result = (int)gsl_linalg_QRPT_Rsvx((gsl_matrix const *)arg1,(struct gsl_permutation_struct const *)arg2,arg3);
5583 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5584
5585
5586
5587 XSRETURN(argvi);
5588 fail:
5589
5590
5591
5592 SWIG_croak_null();
5593 }
5594 }
5595
5596
XS(_wrap_gsl_linalg_QRPT_update)5597 XS(_wrap_gsl_linalg_QRPT_update) {
5598 {
5599 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5600 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
5601 gsl_permutation *arg3 = (gsl_permutation *) 0 ;
5602 gsl_vector *arg4 = (gsl_vector *) 0 ;
5603 gsl_vector *arg5 = (gsl_vector *) 0 ;
5604 void *argp1 = 0 ;
5605 int res1 = 0 ;
5606 void *argp2 = 0 ;
5607 int res2 = 0 ;
5608 void *argp3 = 0 ;
5609 int res3 = 0 ;
5610 void *argp4 = 0 ;
5611 int res4 = 0 ;
5612 void *argp5 = 0 ;
5613 int res5 = 0 ;
5614 int argvi = 0;
5615 int result;
5616 dXSARGS;
5617
5618 if ((items < 5) || (items > 5)) {
5619 SWIG_croak("Usage: gsl_linalg_QRPT_update(Q,R,p,u,v);");
5620 }
5621 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5622 if (!SWIG_IsOK(res1)) {
5623 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QRPT_update" "', argument " "1"" of type '" "gsl_matrix *""'");
5624 }
5625 arg1 = (gsl_matrix *)(argp1);
5626 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5627 if (!SWIG_IsOK(res2)) {
5628 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QRPT_update" "', argument " "2"" of type '" "gsl_matrix *""'");
5629 }
5630 arg2 = (gsl_matrix *)(argp2);
5631 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
5632 if (!SWIG_IsOK(res3)) {
5633 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QRPT_update" "', argument " "3"" of type '" "gsl_permutation const *""'");
5634 }
5635 arg3 = (gsl_permutation *)(argp3);
5636 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
5637 if (!SWIG_IsOK(res4)) {
5638 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_QRPT_update" "', argument " "4"" of type '" "gsl_vector *""'");
5639 }
5640 arg4 = (gsl_vector *)(argp4);
5641 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
5642 if (!SWIG_IsOK(res5)) {
5643 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_QRPT_update" "', argument " "5"" of type '" "gsl_vector const *""'");
5644 }
5645 arg5 = (gsl_vector *)(argp5);
5646 result = (int)gsl_linalg_QRPT_update(arg1,arg2,(struct gsl_permutation_struct const *)arg3,arg4,(gsl_vector const *)arg5);
5647 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5648
5649
5650
5651
5652
5653 XSRETURN(argvi);
5654 fail:
5655
5656
5657
5658
5659
5660 SWIG_croak_null();
5661 }
5662 }
5663
5664
XS(_wrap_gsl_linalg_LQ_decomp)5665 XS(_wrap_gsl_linalg_LQ_decomp) {
5666 {
5667 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5668 gsl_vector *arg2 = (gsl_vector *) 0 ;
5669 void *argp1 = 0 ;
5670 int res1 = 0 ;
5671 void *argp2 = 0 ;
5672 int res2 = 0 ;
5673 int argvi = 0;
5674 int result;
5675 dXSARGS;
5676
5677 if ((items < 2) || (items > 2)) {
5678 SWIG_croak("Usage: gsl_linalg_LQ_decomp(A,tau);");
5679 }
5680 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5681 if (!SWIG_IsOK(res1)) {
5682 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LQ_decomp" "', argument " "1"" of type '" "gsl_matrix *""'");
5683 }
5684 arg1 = (gsl_matrix *)(argp1);
5685 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
5686 if (!SWIG_IsOK(res2)) {
5687 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_LQ_decomp" "', argument " "2"" of type '" "gsl_vector *""'");
5688 }
5689 arg2 = (gsl_vector *)(argp2);
5690 result = (int)gsl_linalg_LQ_decomp(arg1,arg2);
5691 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5692
5693
5694 XSRETURN(argvi);
5695 fail:
5696
5697
5698 SWIG_croak_null();
5699 }
5700 }
5701
5702
XS(_wrap_gsl_linalg_LQ_solve_T)5703 XS(_wrap_gsl_linalg_LQ_solve_T) {
5704 {
5705 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5706 gsl_vector *arg2 = (gsl_vector *) 0 ;
5707 gsl_vector *arg3 = (gsl_vector *) 0 ;
5708 gsl_vector *arg4 = (gsl_vector *) 0 ;
5709 void *argp1 = 0 ;
5710 int res1 = 0 ;
5711 void *argp2 = 0 ;
5712 int res2 = 0 ;
5713 void *argp3 = 0 ;
5714 int res3 = 0 ;
5715 void *argp4 = 0 ;
5716 int res4 = 0 ;
5717 int argvi = 0;
5718 int result;
5719 dXSARGS;
5720
5721 if ((items < 4) || (items > 4)) {
5722 SWIG_croak("Usage: gsl_linalg_LQ_solve_T(LQ,tau,b,x);");
5723 }
5724 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5725 if (!SWIG_IsOK(res1)) {
5726 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LQ_solve_T" "', argument " "1"" of type '" "gsl_matrix const *""'");
5727 }
5728 arg1 = (gsl_matrix *)(argp1);
5729 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
5730 if (!SWIG_IsOK(res2)) {
5731 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_LQ_solve_T" "', argument " "2"" of type '" "gsl_vector const *""'");
5732 }
5733 arg2 = (gsl_vector *)(argp2);
5734 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
5735 if (!SWIG_IsOK(res3)) {
5736 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_LQ_solve_T" "', argument " "3"" of type '" "gsl_vector const *""'");
5737 }
5738 arg3 = (gsl_vector *)(argp3);
5739 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
5740 if (!SWIG_IsOK(res4)) {
5741 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_LQ_solve_T" "', argument " "4"" of type '" "gsl_vector *""'");
5742 }
5743 arg4 = (gsl_vector *)(argp4);
5744 result = (int)gsl_linalg_LQ_solve_T((gsl_matrix const *)arg1,(gsl_vector const *)arg2,(gsl_vector const *)arg3,arg4);
5745 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5746
5747
5748
5749
5750 XSRETURN(argvi);
5751 fail:
5752
5753
5754
5755
5756 SWIG_croak_null();
5757 }
5758 }
5759
5760
XS(_wrap_gsl_linalg_LQ_svx_T)5761 XS(_wrap_gsl_linalg_LQ_svx_T) {
5762 {
5763 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5764 gsl_vector *arg2 = (gsl_vector *) 0 ;
5765 gsl_vector *arg3 = (gsl_vector *) 0 ;
5766 void *argp1 = 0 ;
5767 int res1 = 0 ;
5768 void *argp2 = 0 ;
5769 int res2 = 0 ;
5770 void *argp3 = 0 ;
5771 int res3 = 0 ;
5772 int argvi = 0;
5773 int result;
5774 dXSARGS;
5775
5776 if ((items < 3) || (items > 3)) {
5777 SWIG_croak("Usage: gsl_linalg_LQ_svx_T(LQ,tau,x);");
5778 }
5779 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5780 if (!SWIG_IsOK(res1)) {
5781 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LQ_svx_T" "', argument " "1"" of type '" "gsl_matrix const *""'");
5782 }
5783 arg1 = (gsl_matrix *)(argp1);
5784 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
5785 if (!SWIG_IsOK(res2)) {
5786 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_LQ_svx_T" "', argument " "2"" of type '" "gsl_vector const *""'");
5787 }
5788 arg2 = (gsl_vector *)(argp2);
5789 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
5790 if (!SWIG_IsOK(res3)) {
5791 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_LQ_svx_T" "', argument " "3"" of type '" "gsl_vector *""'");
5792 }
5793 arg3 = (gsl_vector *)(argp3);
5794 result = (int)gsl_linalg_LQ_svx_T((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3);
5795 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5796
5797
5798
5799 XSRETURN(argvi);
5800 fail:
5801
5802
5803
5804 SWIG_croak_null();
5805 }
5806 }
5807
5808
XS(_wrap_gsl_linalg_LQ_lssolve_T)5809 XS(_wrap_gsl_linalg_LQ_lssolve_T) {
5810 {
5811 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5812 gsl_vector *arg2 = (gsl_vector *) 0 ;
5813 gsl_vector *arg3 = (gsl_vector *) 0 ;
5814 gsl_vector *arg4 = (gsl_vector *) 0 ;
5815 gsl_vector *arg5 = (gsl_vector *) 0 ;
5816 void *argp1 = 0 ;
5817 int res1 = 0 ;
5818 void *argp2 = 0 ;
5819 int res2 = 0 ;
5820 void *argp3 = 0 ;
5821 int res3 = 0 ;
5822 void *argp4 = 0 ;
5823 int res4 = 0 ;
5824 void *argp5 = 0 ;
5825 int res5 = 0 ;
5826 int argvi = 0;
5827 int result;
5828 dXSARGS;
5829
5830 if ((items < 5) || (items > 5)) {
5831 SWIG_croak("Usage: gsl_linalg_LQ_lssolve_T(LQ,tau,b,x,residual);");
5832 }
5833 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5834 if (!SWIG_IsOK(res1)) {
5835 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LQ_lssolve_T" "', argument " "1"" of type '" "gsl_matrix const *""'");
5836 }
5837 arg1 = (gsl_matrix *)(argp1);
5838 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
5839 if (!SWIG_IsOK(res2)) {
5840 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_LQ_lssolve_T" "', argument " "2"" of type '" "gsl_vector const *""'");
5841 }
5842 arg2 = (gsl_vector *)(argp2);
5843 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
5844 if (!SWIG_IsOK(res3)) {
5845 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_LQ_lssolve_T" "', argument " "3"" of type '" "gsl_vector const *""'");
5846 }
5847 arg3 = (gsl_vector *)(argp3);
5848 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
5849 if (!SWIG_IsOK(res4)) {
5850 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_LQ_lssolve_T" "', argument " "4"" of type '" "gsl_vector *""'");
5851 }
5852 arg4 = (gsl_vector *)(argp4);
5853 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
5854 if (!SWIG_IsOK(res5)) {
5855 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_LQ_lssolve_T" "', argument " "5"" of type '" "gsl_vector *""'");
5856 }
5857 arg5 = (gsl_vector *)(argp5);
5858 result = (int)gsl_linalg_LQ_lssolve_T((gsl_matrix const *)arg1,(gsl_vector const *)arg2,(gsl_vector const *)arg3,arg4,arg5);
5859 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5860
5861
5862
5863
5864
5865 XSRETURN(argvi);
5866 fail:
5867
5868
5869
5870
5871
5872 SWIG_croak_null();
5873 }
5874 }
5875
5876
XS(_wrap_gsl_linalg_LQ_Lsolve_T)5877 XS(_wrap_gsl_linalg_LQ_Lsolve_T) {
5878 {
5879 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5880 gsl_vector *arg2 = (gsl_vector *) 0 ;
5881 gsl_vector *arg3 = (gsl_vector *) 0 ;
5882 void *argp1 = 0 ;
5883 int res1 = 0 ;
5884 void *argp2 = 0 ;
5885 int res2 = 0 ;
5886 void *argp3 = 0 ;
5887 int res3 = 0 ;
5888 int argvi = 0;
5889 int result;
5890 dXSARGS;
5891
5892 if ((items < 3) || (items > 3)) {
5893 SWIG_croak("Usage: gsl_linalg_LQ_Lsolve_T(LQ,b,x);");
5894 }
5895 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5896 if (!SWIG_IsOK(res1)) {
5897 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LQ_Lsolve_T" "', argument " "1"" of type '" "gsl_matrix const *""'");
5898 }
5899 arg1 = (gsl_matrix *)(argp1);
5900 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
5901 if (!SWIG_IsOK(res2)) {
5902 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_LQ_Lsolve_T" "', argument " "2"" of type '" "gsl_vector const *""'");
5903 }
5904 arg2 = (gsl_vector *)(argp2);
5905 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
5906 if (!SWIG_IsOK(res3)) {
5907 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_LQ_Lsolve_T" "', argument " "3"" of type '" "gsl_vector *""'");
5908 }
5909 arg3 = (gsl_vector *)(argp3);
5910 result = (int)gsl_linalg_LQ_Lsolve_T((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3);
5911 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5912
5913
5914
5915 XSRETURN(argvi);
5916 fail:
5917
5918
5919
5920 SWIG_croak_null();
5921 }
5922 }
5923
5924
XS(_wrap_gsl_linalg_LQ_Lsvx_T)5925 XS(_wrap_gsl_linalg_LQ_Lsvx_T) {
5926 {
5927 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5928 gsl_vector *arg2 = (gsl_vector *) 0 ;
5929 void *argp1 = 0 ;
5930 int res1 = 0 ;
5931 void *argp2 = 0 ;
5932 int res2 = 0 ;
5933 int argvi = 0;
5934 int result;
5935 dXSARGS;
5936
5937 if ((items < 2) || (items > 2)) {
5938 SWIG_croak("Usage: gsl_linalg_LQ_Lsvx_T(LQ,x);");
5939 }
5940 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5941 if (!SWIG_IsOK(res1)) {
5942 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LQ_Lsvx_T" "', argument " "1"" of type '" "gsl_matrix const *""'");
5943 }
5944 arg1 = (gsl_matrix *)(argp1);
5945 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
5946 if (!SWIG_IsOK(res2)) {
5947 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_LQ_Lsvx_T" "', argument " "2"" of type '" "gsl_vector *""'");
5948 }
5949 arg2 = (gsl_vector *)(argp2);
5950 result = (int)gsl_linalg_LQ_Lsvx_T((gsl_matrix const *)arg1,arg2);
5951 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5952
5953
5954 XSRETURN(argvi);
5955 fail:
5956
5957
5958 SWIG_croak_null();
5959 }
5960 }
5961
5962
XS(_wrap_gsl_linalg_L_solve_T)5963 XS(_wrap_gsl_linalg_L_solve_T) {
5964 {
5965 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5966 gsl_vector *arg2 = (gsl_vector *) 0 ;
5967 gsl_vector *arg3 = (gsl_vector *) 0 ;
5968 void *argp1 = 0 ;
5969 int res1 = 0 ;
5970 void *argp2 = 0 ;
5971 int res2 = 0 ;
5972 void *argp3 = 0 ;
5973 int res3 = 0 ;
5974 int argvi = 0;
5975 int result;
5976 dXSARGS;
5977
5978 if ((items < 3) || (items > 3)) {
5979 SWIG_croak("Usage: gsl_linalg_L_solve_T(L,b,x);");
5980 }
5981 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5982 if (!SWIG_IsOK(res1)) {
5983 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_L_solve_T" "', argument " "1"" of type '" "gsl_matrix const *""'");
5984 }
5985 arg1 = (gsl_matrix *)(argp1);
5986 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
5987 if (!SWIG_IsOK(res2)) {
5988 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_L_solve_T" "', argument " "2"" of type '" "gsl_vector const *""'");
5989 }
5990 arg2 = (gsl_vector *)(argp2);
5991 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
5992 if (!SWIG_IsOK(res3)) {
5993 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_L_solve_T" "', argument " "3"" of type '" "gsl_vector *""'");
5994 }
5995 arg3 = (gsl_vector *)(argp3);
5996 result = (int)gsl_linalg_L_solve_T((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3);
5997 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5998
5999
6000
6001 XSRETURN(argvi);
6002 fail:
6003
6004
6005
6006 SWIG_croak_null();
6007 }
6008 }
6009
6010
XS(_wrap_gsl_linalg_LQ_vecQ)6011 XS(_wrap_gsl_linalg_LQ_vecQ) {
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_LQ_vecQ(LQ,tau,v);");
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_LQ_vecQ" "', 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_LQ_vecQ" "', 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_LQ_vecQ" "', argument " "3"" of type '" "gsl_vector *""'");
6042 }
6043 arg3 = (gsl_vector *)(argp3);
6044 result = (int)gsl_linalg_LQ_vecQ((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_vecQT)6059 XS(_wrap_gsl_linalg_LQ_vecQT) {
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_vecQT(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_vecQT" "', 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_vecQT" "', 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_vecQT" "', argument " "3"" of type '" "gsl_vector *""'");
6090 }
6091 arg3 = (gsl_vector *)(argp3);
6092 result = (int)gsl_linalg_LQ_vecQT((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_unpack)6107 XS(_wrap_gsl_linalg_LQ_unpack) {
6108 {
6109 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
6110 gsl_vector *arg2 = (gsl_vector *) 0 ;
6111 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
6112 gsl_matrix *arg4 = (gsl_matrix *) 0 ;
6113 void *argp1 = 0 ;
6114 int res1 = 0 ;
6115 void *argp2 = 0 ;
6116 int res2 = 0 ;
6117 void *argp3 = 0 ;
6118 int res3 = 0 ;
6119 void *argp4 = 0 ;
6120 int res4 = 0 ;
6121 int argvi = 0;
6122 int result;
6123 dXSARGS;
6124
6125 if ((items < 4) || (items > 4)) {
6126 SWIG_croak("Usage: gsl_linalg_LQ_unpack(LQ,tau,Q,L);");
6127 }
6128 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6129 if (!SWIG_IsOK(res1)) {
6130 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LQ_unpack" "', argument " "1"" of type '" "gsl_matrix const *""'");
6131 }
6132 arg1 = (gsl_matrix *)(argp1);
6133 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
6134 if (!SWIG_IsOK(res2)) {
6135 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_LQ_unpack" "', argument " "2"" of type '" "gsl_vector const *""'");
6136 }
6137 arg2 = (gsl_vector *)(argp2);
6138 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6139 if (!SWIG_IsOK(res3)) {
6140 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_LQ_unpack" "', argument " "3"" of type '" "gsl_matrix *""'");
6141 }
6142 arg3 = (gsl_matrix *)(argp3);
6143 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6144 if (!SWIG_IsOK(res4)) {
6145 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_LQ_unpack" "', argument " "4"" of type '" "gsl_matrix *""'");
6146 }
6147 arg4 = (gsl_matrix *)(argp4);
6148 result = (int)gsl_linalg_LQ_unpack((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3,arg4);
6149 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6150
6151
6152
6153
6154 XSRETURN(argvi);
6155 fail:
6156
6157
6158
6159
6160 SWIG_croak_null();
6161 }
6162 }
6163
6164
XS(_wrap_gsl_linalg_LQ_update)6165 XS(_wrap_gsl_linalg_LQ_update) {
6166 {
6167 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
6168 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
6169 gsl_vector *arg3 = (gsl_vector *) 0 ;
6170 gsl_vector *arg4 = (gsl_vector *) 0 ;
6171 void *argp1 = 0 ;
6172 int res1 = 0 ;
6173 void *argp2 = 0 ;
6174 int res2 = 0 ;
6175 void *argp3 = 0 ;
6176 int res3 = 0 ;
6177 void *argp4 = 0 ;
6178 int res4 = 0 ;
6179 int argvi = 0;
6180 int result;
6181 dXSARGS;
6182
6183 if ((items < 4) || (items > 4)) {
6184 SWIG_croak("Usage: gsl_linalg_LQ_update(Q,R,v,w);");
6185 }
6186 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6187 if (!SWIG_IsOK(res1)) {
6188 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LQ_update" "', argument " "1"" of type '" "gsl_matrix *""'");
6189 }
6190 arg1 = (gsl_matrix *)(argp1);
6191 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6192 if (!SWIG_IsOK(res2)) {
6193 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_LQ_update" "', argument " "2"" of type '" "gsl_matrix *""'");
6194 }
6195 arg2 = (gsl_matrix *)(argp2);
6196 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
6197 if (!SWIG_IsOK(res3)) {
6198 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_LQ_update" "', argument " "3"" of type '" "gsl_vector const *""'");
6199 }
6200 arg3 = (gsl_vector *)(argp3);
6201 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
6202 if (!SWIG_IsOK(res4)) {
6203 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_LQ_update" "', argument " "4"" of type '" "gsl_vector *""'");
6204 }
6205 arg4 = (gsl_vector *)(argp4);
6206 result = (int)gsl_linalg_LQ_update(arg1,arg2,(gsl_vector const *)arg3,arg4);
6207 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6208
6209
6210
6211
6212 XSRETURN(argvi);
6213 fail:
6214
6215
6216
6217
6218 SWIG_croak_null();
6219 }
6220 }
6221
6222
XS(_wrap_gsl_linalg_LQ_LQsolve)6223 XS(_wrap_gsl_linalg_LQ_LQsolve) {
6224 {
6225 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
6226 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
6227 gsl_vector *arg3 = (gsl_vector *) 0 ;
6228 gsl_vector *arg4 = (gsl_vector *) 0 ;
6229 void *argp1 = 0 ;
6230 int res1 = 0 ;
6231 void *argp2 = 0 ;
6232 int res2 = 0 ;
6233 void *argp3 = 0 ;
6234 int res3 = 0 ;
6235 void *argp4 = 0 ;
6236 int res4 = 0 ;
6237 int argvi = 0;
6238 int result;
6239 dXSARGS;
6240
6241 if ((items < 4) || (items > 4)) {
6242 SWIG_croak("Usage: gsl_linalg_LQ_LQsolve(Q,L,b,x);");
6243 }
6244 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6245 if (!SWIG_IsOK(res1)) {
6246 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LQ_LQsolve" "', argument " "1"" of type '" "gsl_matrix *""'");
6247 }
6248 arg1 = (gsl_matrix *)(argp1);
6249 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6250 if (!SWIG_IsOK(res2)) {
6251 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_LQ_LQsolve" "', argument " "2"" of type '" "gsl_matrix *""'");
6252 }
6253 arg2 = (gsl_matrix *)(argp2);
6254 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
6255 if (!SWIG_IsOK(res3)) {
6256 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_LQ_LQsolve" "', argument " "3"" of type '" "gsl_vector const *""'");
6257 }
6258 arg3 = (gsl_vector *)(argp3);
6259 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
6260 if (!SWIG_IsOK(res4)) {
6261 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_LQ_LQsolve" "', argument " "4"" of type '" "gsl_vector *""'");
6262 }
6263 arg4 = (gsl_vector *)(argp4);
6264 result = (int)gsl_linalg_LQ_LQsolve(arg1,arg2,(gsl_vector const *)arg3,arg4);
6265 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6266
6267
6268
6269
6270 XSRETURN(argvi);
6271 fail:
6272
6273
6274
6275
6276 SWIG_croak_null();
6277 }
6278 }
6279
6280
XS(_wrap_gsl_linalg_PTLQ_decomp)6281 XS(_wrap_gsl_linalg_PTLQ_decomp) {
6282 {
6283 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
6284 gsl_vector *arg2 = (gsl_vector *) 0 ;
6285 gsl_permutation *arg3 = (gsl_permutation *) 0 ;
6286 int *arg4 = (int *) 0 ;
6287 gsl_vector *arg5 = (gsl_vector *) 0 ;
6288 void *argp1 = 0 ;
6289 int res1 = 0 ;
6290 void *argp2 = 0 ;
6291 int res2 = 0 ;
6292 void *argp3 = 0 ;
6293 int res3 = 0 ;
6294 int temp4 ;
6295 int res4 = SWIG_TMPOBJ ;
6296 void *argp5 = 0 ;
6297 int res5 = 0 ;
6298 int argvi = 0;
6299 int result;
6300 dXSARGS;
6301
6302 arg4 = &temp4;
6303 if ((items < 4) || (items > 4)) {
6304 SWIG_croak("Usage: gsl_linalg_PTLQ_decomp(A,tau,p,norm);");
6305 }
6306 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6307 if (!SWIG_IsOK(res1)) {
6308 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_PTLQ_decomp" "', argument " "1"" of type '" "gsl_matrix *""'");
6309 }
6310 arg1 = (gsl_matrix *)(argp1);
6311 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
6312 if (!SWIG_IsOK(res2)) {
6313 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_PTLQ_decomp" "', argument " "2"" of type '" "gsl_vector *""'");
6314 }
6315 arg2 = (gsl_vector *)(argp2);
6316 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
6317 if (!SWIG_IsOK(res3)) {
6318 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_PTLQ_decomp" "', argument " "3"" of type '" "gsl_permutation *""'");
6319 }
6320 arg3 = (gsl_permutation *)(argp3);
6321 res5 = SWIG_ConvertPtr(ST(3), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
6322 if (!SWIG_IsOK(res5)) {
6323 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_PTLQ_decomp" "', argument " "5"" of type '" "gsl_vector *""'");
6324 }
6325 arg5 = (gsl_vector *)(argp5);
6326 result = (int)gsl_linalg_PTLQ_decomp(arg1,arg2,arg3,arg4,arg5);
6327 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6328 if (SWIG_IsTmpObj(res4)) {
6329 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((*arg4)); argvi++ ;
6330 } else {
6331 int new_flags = SWIG_IsNewObj(res4) ? (SWIG_POINTER_OWN | 0) : 0;
6332 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg4), SWIGTYPE_p_int, new_flags); argvi++ ;
6333 }
6334
6335
6336
6337
6338
6339 XSRETURN(argvi);
6340 fail:
6341
6342
6343
6344
6345
6346 SWIG_croak_null();
6347 }
6348 }
6349
6350
XS(_wrap_gsl_linalg_PTLQ_decomp2)6351 XS(_wrap_gsl_linalg_PTLQ_decomp2) {
6352 {
6353 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
6354 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
6355 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
6356 gsl_vector *arg4 = (gsl_vector *) 0 ;
6357 gsl_permutation *arg5 = (gsl_permutation *) 0 ;
6358 int *arg6 = (int *) 0 ;
6359 gsl_vector *arg7 = (gsl_vector *) 0 ;
6360 void *argp1 = 0 ;
6361 int res1 = 0 ;
6362 void *argp2 = 0 ;
6363 int res2 = 0 ;
6364 void *argp3 = 0 ;
6365 int res3 = 0 ;
6366 void *argp4 = 0 ;
6367 int res4 = 0 ;
6368 void *argp5 = 0 ;
6369 int res5 = 0 ;
6370 int temp6 ;
6371 int res6 = SWIG_TMPOBJ ;
6372 void *argp7 = 0 ;
6373 int res7 = 0 ;
6374 int argvi = 0;
6375 int result;
6376 dXSARGS;
6377
6378 arg6 = &temp6;
6379 if ((items < 6) || (items > 6)) {
6380 SWIG_croak("Usage: gsl_linalg_PTLQ_decomp2(A,q,r,tau,p,norm);");
6381 }
6382 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6383 if (!SWIG_IsOK(res1)) {
6384 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_PTLQ_decomp2" "', argument " "1"" of type '" "gsl_matrix const *""'");
6385 }
6386 arg1 = (gsl_matrix *)(argp1);
6387 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6388 if (!SWIG_IsOK(res2)) {
6389 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_PTLQ_decomp2" "', argument " "2"" of type '" "gsl_matrix *""'");
6390 }
6391 arg2 = (gsl_matrix *)(argp2);
6392 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6393 if (!SWIG_IsOK(res3)) {
6394 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_PTLQ_decomp2" "', argument " "3"" of type '" "gsl_matrix *""'");
6395 }
6396 arg3 = (gsl_matrix *)(argp3);
6397 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
6398 if (!SWIG_IsOK(res4)) {
6399 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_PTLQ_decomp2" "', argument " "4"" of type '" "gsl_vector *""'");
6400 }
6401 arg4 = (gsl_vector *)(argp4);
6402 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
6403 if (!SWIG_IsOK(res5)) {
6404 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_PTLQ_decomp2" "', argument " "5"" of type '" "gsl_permutation *""'");
6405 }
6406 arg5 = (gsl_permutation *)(argp5);
6407 res7 = SWIG_ConvertPtr(ST(5), &argp7,SWIGTYPE_p_gsl_vector, 0 | 0 );
6408 if (!SWIG_IsOK(res7)) {
6409 SWIG_exception_fail(SWIG_ArgError(res7), "in method '" "gsl_linalg_PTLQ_decomp2" "', argument " "7"" of type '" "gsl_vector *""'");
6410 }
6411 arg7 = (gsl_vector *)(argp7);
6412 result = (int)gsl_linalg_PTLQ_decomp2((gsl_matrix const *)arg1,arg2,arg3,arg4,arg5,arg6,arg7);
6413 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6414 if (SWIG_IsTmpObj(res6)) {
6415 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((*arg6)); argvi++ ;
6416 } else {
6417 int new_flags = SWIG_IsNewObj(res6) ? (SWIG_POINTER_OWN | 0) : 0;
6418 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg6), SWIGTYPE_p_int, new_flags); argvi++ ;
6419 }
6420
6421
6422
6423
6424
6425
6426
6427 XSRETURN(argvi);
6428 fail:
6429
6430
6431
6432
6433
6434
6435
6436 SWIG_croak_null();
6437 }
6438 }
6439
6440
XS(_wrap_gsl_linalg_PTLQ_solve_T)6441 XS(_wrap_gsl_linalg_PTLQ_solve_T) {
6442 {
6443 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
6444 gsl_vector *arg2 = (gsl_vector *) 0 ;
6445 gsl_permutation *arg3 = (gsl_permutation *) 0 ;
6446 gsl_vector *arg4 = (gsl_vector *) 0 ;
6447 gsl_vector *arg5 = (gsl_vector *) 0 ;
6448 void *argp1 = 0 ;
6449 int res1 = 0 ;
6450 void *argp2 = 0 ;
6451 int res2 = 0 ;
6452 void *argp3 = 0 ;
6453 int res3 = 0 ;
6454 void *argp4 = 0 ;
6455 int res4 = 0 ;
6456 void *argp5 = 0 ;
6457 int res5 = 0 ;
6458 int argvi = 0;
6459 int result;
6460 dXSARGS;
6461
6462 if ((items < 5) || (items > 5)) {
6463 SWIG_croak("Usage: gsl_linalg_PTLQ_solve_T(QR,tau,p,b,x);");
6464 }
6465 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6466 if (!SWIG_IsOK(res1)) {
6467 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_PTLQ_solve_T" "', argument " "1"" of type '" "gsl_matrix const *""'");
6468 }
6469 arg1 = (gsl_matrix *)(argp1);
6470 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
6471 if (!SWIG_IsOK(res2)) {
6472 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_PTLQ_solve_T" "', argument " "2"" of type '" "gsl_vector const *""'");
6473 }
6474 arg2 = (gsl_vector *)(argp2);
6475 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
6476 if (!SWIG_IsOK(res3)) {
6477 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_PTLQ_solve_T" "', argument " "3"" of type '" "gsl_permutation const *""'");
6478 }
6479 arg3 = (gsl_permutation *)(argp3);
6480 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
6481 if (!SWIG_IsOK(res4)) {
6482 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_PTLQ_solve_T" "', argument " "4"" of type '" "gsl_vector const *""'");
6483 }
6484 arg4 = (gsl_vector *)(argp4);
6485 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
6486 if (!SWIG_IsOK(res5)) {
6487 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_PTLQ_solve_T" "', argument " "5"" of type '" "gsl_vector *""'");
6488 }
6489 arg5 = (gsl_vector *)(argp5);
6490 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);
6491 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6492
6493
6494
6495
6496
6497 XSRETURN(argvi);
6498 fail:
6499
6500
6501
6502
6503
6504 SWIG_croak_null();
6505 }
6506 }
6507
6508
XS(_wrap_gsl_linalg_PTLQ_svx_T)6509 XS(_wrap_gsl_linalg_PTLQ_svx_T) {
6510 {
6511 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
6512 gsl_vector *arg2 = (gsl_vector *) 0 ;
6513 gsl_permutation *arg3 = (gsl_permutation *) 0 ;
6514 gsl_vector *arg4 = (gsl_vector *) 0 ;
6515 void *argp1 = 0 ;
6516 int res1 = 0 ;
6517 void *argp2 = 0 ;
6518 int res2 = 0 ;
6519 void *argp3 = 0 ;
6520 int res3 = 0 ;
6521 void *argp4 = 0 ;
6522 int res4 = 0 ;
6523 int argvi = 0;
6524 int result;
6525 dXSARGS;
6526
6527 if ((items < 4) || (items > 4)) {
6528 SWIG_croak("Usage: gsl_linalg_PTLQ_svx_T(LQ,tau,p,x);");
6529 }
6530 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6531 if (!SWIG_IsOK(res1)) {
6532 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_PTLQ_svx_T" "', argument " "1"" of type '" "gsl_matrix const *""'");
6533 }
6534 arg1 = (gsl_matrix *)(argp1);
6535 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
6536 if (!SWIG_IsOK(res2)) {
6537 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_PTLQ_svx_T" "', argument " "2"" of type '" "gsl_vector const *""'");
6538 }
6539 arg2 = (gsl_vector *)(argp2);
6540 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
6541 if (!SWIG_IsOK(res3)) {
6542 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_PTLQ_svx_T" "', argument " "3"" of type '" "gsl_permutation const *""'");
6543 }
6544 arg3 = (gsl_permutation *)(argp3);
6545 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
6546 if (!SWIG_IsOK(res4)) {
6547 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_PTLQ_svx_T" "', argument " "4"" of type '" "gsl_vector *""'");
6548 }
6549 arg4 = (gsl_vector *)(argp4);
6550 result = (int)gsl_linalg_PTLQ_svx_T((gsl_matrix const *)arg1,(gsl_vector const *)arg2,(struct gsl_permutation_struct const *)arg3,arg4);
6551 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6552
6553
6554
6555
6556 XSRETURN(argvi);
6557 fail:
6558
6559
6560
6561
6562 SWIG_croak_null();
6563 }
6564 }
6565
6566
XS(_wrap_gsl_linalg_PTLQ_LQsolve_T)6567 XS(_wrap_gsl_linalg_PTLQ_LQsolve_T) {
6568 {
6569 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
6570 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
6571 gsl_permutation *arg3 = (gsl_permutation *) 0 ;
6572 gsl_vector *arg4 = (gsl_vector *) 0 ;
6573 gsl_vector *arg5 = (gsl_vector *) 0 ;
6574 void *argp1 = 0 ;
6575 int res1 = 0 ;
6576 void *argp2 = 0 ;
6577 int res2 = 0 ;
6578 void *argp3 = 0 ;
6579 int res3 = 0 ;
6580 void *argp4 = 0 ;
6581 int res4 = 0 ;
6582 void *argp5 = 0 ;
6583 int res5 = 0 ;
6584 int argvi = 0;
6585 int result;
6586 dXSARGS;
6587
6588 if ((items < 5) || (items > 5)) {
6589 SWIG_croak("Usage: gsl_linalg_PTLQ_LQsolve_T(Q,L,p,b,x);");
6590 }
6591 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6592 if (!SWIG_IsOK(res1)) {
6593 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_PTLQ_LQsolve_T" "', argument " "1"" of type '" "gsl_matrix const *""'");
6594 }
6595 arg1 = (gsl_matrix *)(argp1);
6596 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6597 if (!SWIG_IsOK(res2)) {
6598 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_PTLQ_LQsolve_T" "', argument " "2"" of type '" "gsl_matrix const *""'");
6599 }
6600 arg2 = (gsl_matrix *)(argp2);
6601 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
6602 if (!SWIG_IsOK(res3)) {
6603 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_PTLQ_LQsolve_T" "', argument " "3"" of type '" "gsl_permutation const *""'");
6604 }
6605 arg3 = (gsl_permutation *)(argp3);
6606 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
6607 if (!SWIG_IsOK(res4)) {
6608 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_PTLQ_LQsolve_T" "', argument " "4"" of type '" "gsl_vector const *""'");
6609 }
6610 arg4 = (gsl_vector *)(argp4);
6611 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
6612 if (!SWIG_IsOK(res5)) {
6613 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_PTLQ_LQsolve_T" "', argument " "5"" of type '" "gsl_vector *""'");
6614 }
6615 arg5 = (gsl_vector *)(argp5);
6616 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);
6617 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6618
6619
6620
6621
6622
6623 XSRETURN(argvi);
6624 fail:
6625
6626
6627
6628
6629
6630 SWIG_croak_null();
6631 }
6632 }
6633
6634
XS(_wrap_gsl_linalg_PTLQ_Lsolve_T)6635 XS(_wrap_gsl_linalg_PTLQ_Lsolve_T) {
6636 {
6637 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
6638 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
6639 gsl_vector *arg3 = (gsl_vector *) 0 ;
6640 gsl_vector *arg4 = (gsl_vector *) 0 ;
6641 void *argp1 = 0 ;
6642 int res1 = 0 ;
6643 void *argp2 = 0 ;
6644 int res2 = 0 ;
6645 void *argp3 = 0 ;
6646 int res3 = 0 ;
6647 void *argp4 = 0 ;
6648 int res4 = 0 ;
6649 int argvi = 0;
6650 int result;
6651 dXSARGS;
6652
6653 if ((items < 4) || (items > 4)) {
6654 SWIG_croak("Usage: gsl_linalg_PTLQ_Lsolve_T(LQ,p,b,x);");
6655 }
6656 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6657 if (!SWIG_IsOK(res1)) {
6658 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_PTLQ_Lsolve_T" "', argument " "1"" of type '" "gsl_matrix const *""'");
6659 }
6660 arg1 = (gsl_matrix *)(argp1);
6661 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
6662 if (!SWIG_IsOK(res2)) {
6663 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_PTLQ_Lsolve_T" "', argument " "2"" of type '" "gsl_permutation const *""'");
6664 }
6665 arg2 = (gsl_permutation *)(argp2);
6666 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
6667 if (!SWIG_IsOK(res3)) {
6668 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_PTLQ_Lsolve_T" "', argument " "3"" of type '" "gsl_vector const *""'");
6669 }
6670 arg3 = (gsl_vector *)(argp3);
6671 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
6672 if (!SWIG_IsOK(res4)) {
6673 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_PTLQ_Lsolve_T" "', argument " "4"" of type '" "gsl_vector *""'");
6674 }
6675 arg4 = (gsl_vector *)(argp4);
6676 result = (int)gsl_linalg_PTLQ_Lsolve_T((gsl_matrix const *)arg1,(struct gsl_permutation_struct const *)arg2,(gsl_vector const *)arg3,arg4);
6677 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6678
6679
6680
6681
6682 XSRETURN(argvi);
6683 fail:
6684
6685
6686
6687
6688 SWIG_croak_null();
6689 }
6690 }
6691
6692
XS(_wrap_gsl_linalg_PTLQ_Lsvx_T)6693 XS(_wrap_gsl_linalg_PTLQ_Lsvx_T) {
6694 {
6695 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
6696 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
6697 gsl_vector *arg3 = (gsl_vector *) 0 ;
6698 void *argp1 = 0 ;
6699 int res1 = 0 ;
6700 void *argp2 = 0 ;
6701 int res2 = 0 ;
6702 void *argp3 = 0 ;
6703 int res3 = 0 ;
6704 int argvi = 0;
6705 int result;
6706 dXSARGS;
6707
6708 if ((items < 3) || (items > 3)) {
6709 SWIG_croak("Usage: gsl_linalg_PTLQ_Lsvx_T(LQ,p,x);");
6710 }
6711 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6712 if (!SWIG_IsOK(res1)) {
6713 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_PTLQ_Lsvx_T" "', argument " "1"" of type '" "gsl_matrix const *""'");
6714 }
6715 arg1 = (gsl_matrix *)(argp1);
6716 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
6717 if (!SWIG_IsOK(res2)) {
6718 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_PTLQ_Lsvx_T" "', argument " "2"" of type '" "gsl_permutation const *""'");
6719 }
6720 arg2 = (gsl_permutation *)(argp2);
6721 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
6722 if (!SWIG_IsOK(res3)) {
6723 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_PTLQ_Lsvx_T" "', argument " "3"" of type '" "gsl_vector *""'");
6724 }
6725 arg3 = (gsl_vector *)(argp3);
6726 result = (int)gsl_linalg_PTLQ_Lsvx_T((gsl_matrix const *)arg1,(struct gsl_permutation_struct const *)arg2,arg3);
6727 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6728
6729
6730
6731 XSRETURN(argvi);
6732 fail:
6733
6734
6735
6736 SWIG_croak_null();
6737 }
6738 }
6739
6740
XS(_wrap_gsl_linalg_PTLQ_update)6741 XS(_wrap_gsl_linalg_PTLQ_update) {
6742 {
6743 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
6744 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
6745 gsl_permutation *arg3 = (gsl_permutation *) 0 ;
6746 gsl_vector *arg4 = (gsl_vector *) 0 ;
6747 gsl_vector *arg5 = (gsl_vector *) 0 ;
6748 void *argp1 = 0 ;
6749 int res1 = 0 ;
6750 void *argp2 = 0 ;
6751 int res2 = 0 ;
6752 void *argp3 = 0 ;
6753 int res3 = 0 ;
6754 void *argp4 = 0 ;
6755 int res4 = 0 ;
6756 void *argp5 = 0 ;
6757 int res5 = 0 ;
6758 int argvi = 0;
6759 int result;
6760 dXSARGS;
6761
6762 if ((items < 5) || (items > 5)) {
6763 SWIG_croak("Usage: gsl_linalg_PTLQ_update(Q,L,p,v,w);");
6764 }
6765 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6766 if (!SWIG_IsOK(res1)) {
6767 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_PTLQ_update" "', argument " "1"" of type '" "gsl_matrix *""'");
6768 }
6769 arg1 = (gsl_matrix *)(argp1);
6770 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6771 if (!SWIG_IsOK(res2)) {
6772 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_PTLQ_update" "', argument " "2"" of type '" "gsl_matrix *""'");
6773 }
6774 arg2 = (gsl_matrix *)(argp2);
6775 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
6776 if (!SWIG_IsOK(res3)) {
6777 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_PTLQ_update" "', argument " "3"" of type '" "gsl_permutation const *""'");
6778 }
6779 arg3 = (gsl_permutation *)(argp3);
6780 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
6781 if (!SWIG_IsOK(res4)) {
6782 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_PTLQ_update" "', argument " "4"" of type '" "gsl_vector const *""'");
6783 }
6784 arg4 = (gsl_vector *)(argp4);
6785 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
6786 if (!SWIG_IsOK(res5)) {
6787 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_PTLQ_update" "', argument " "5"" of type '" "gsl_vector *""'");
6788 }
6789 arg5 = (gsl_vector *)(argp5);
6790 result = (int)gsl_linalg_PTLQ_update(arg1,arg2,(struct gsl_permutation_struct const *)arg3,(gsl_vector const *)arg4,arg5);
6791 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6792
6793
6794
6795
6796
6797 XSRETURN(argvi);
6798 fail:
6799
6800
6801
6802
6803
6804 SWIG_croak_null();
6805 }
6806 }
6807
6808
XS(_wrap_gsl_linalg_cholesky_decomp)6809 XS(_wrap_gsl_linalg_cholesky_decomp) {
6810 {
6811 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
6812 void *argp1 = 0 ;
6813 int res1 = 0 ;
6814 int argvi = 0;
6815 int result;
6816 dXSARGS;
6817
6818 if ((items < 1) || (items > 1)) {
6819 SWIG_croak("Usage: gsl_linalg_cholesky_decomp(A);");
6820 }
6821 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6822 if (!SWIG_IsOK(res1)) {
6823 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_cholesky_decomp" "', argument " "1"" of type '" "gsl_matrix *""'");
6824 }
6825 arg1 = (gsl_matrix *)(argp1);
6826 result = (int)gsl_linalg_cholesky_decomp(arg1);
6827 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6828
6829 XSRETURN(argvi);
6830 fail:
6831
6832 SWIG_croak_null();
6833 }
6834 }
6835
6836
XS(_wrap_gsl_linalg_cholesky_solve)6837 XS(_wrap_gsl_linalg_cholesky_solve) {
6838 {
6839 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
6840 gsl_vector *arg2 = (gsl_vector *) 0 ;
6841 gsl_vector *arg3 = (gsl_vector *) 0 ;
6842 void *argp1 = 0 ;
6843 int res1 = 0 ;
6844 void *argp2 = 0 ;
6845 int res2 = 0 ;
6846 void *argp3 = 0 ;
6847 int res3 = 0 ;
6848 int argvi = 0;
6849 int result;
6850 dXSARGS;
6851
6852 if ((items < 3) || (items > 3)) {
6853 SWIG_croak("Usage: gsl_linalg_cholesky_solve(cholesky,b,x);");
6854 }
6855 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6856 if (!SWIG_IsOK(res1)) {
6857 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_cholesky_solve" "', argument " "1"" of type '" "gsl_matrix const *""'");
6858 }
6859 arg1 = (gsl_matrix *)(argp1);
6860 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
6861 if (!SWIG_IsOK(res2)) {
6862 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_cholesky_solve" "', argument " "2"" of type '" "gsl_vector const *""'");
6863 }
6864 arg2 = (gsl_vector *)(argp2);
6865 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
6866 if (!SWIG_IsOK(res3)) {
6867 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_cholesky_solve" "', argument " "3"" of type '" "gsl_vector *""'");
6868 }
6869 arg3 = (gsl_vector *)(argp3);
6870 result = (int)gsl_linalg_cholesky_solve((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3);
6871 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6872
6873
6874
6875 XSRETURN(argvi);
6876 fail:
6877
6878
6879
6880 SWIG_croak_null();
6881 }
6882 }
6883
6884
XS(_wrap_gsl_linalg_cholesky_svx)6885 XS(_wrap_gsl_linalg_cholesky_svx) {
6886 {
6887 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
6888 gsl_vector *arg2 = (gsl_vector *) 0 ;
6889 void *argp1 = 0 ;
6890 int res1 = 0 ;
6891 void *argp2 = 0 ;
6892 int res2 = 0 ;
6893 int argvi = 0;
6894 int result;
6895 dXSARGS;
6896
6897 if ((items < 2) || (items > 2)) {
6898 SWIG_croak("Usage: gsl_linalg_cholesky_svx(cholesky,x);");
6899 }
6900 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6901 if (!SWIG_IsOK(res1)) {
6902 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_cholesky_svx" "', argument " "1"" of type '" "gsl_matrix const *""'");
6903 }
6904 arg1 = (gsl_matrix *)(argp1);
6905 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
6906 if (!SWIG_IsOK(res2)) {
6907 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_cholesky_svx" "', argument " "2"" of type '" "gsl_vector *""'");
6908 }
6909 arg2 = (gsl_vector *)(argp2);
6910 result = (int)gsl_linalg_cholesky_svx((gsl_matrix const *)arg1,arg2);
6911 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6912
6913
6914 XSRETURN(argvi);
6915 fail:
6916
6917
6918 SWIG_croak_null();
6919 }
6920 }
6921
6922
XS(_wrap_gsl_linalg_cholesky_invert)6923 XS(_wrap_gsl_linalg_cholesky_invert) {
6924 {
6925 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
6926 void *argp1 = 0 ;
6927 int res1 = 0 ;
6928 int argvi = 0;
6929 int result;
6930 dXSARGS;
6931
6932 if ((items < 1) || (items > 1)) {
6933 SWIG_croak("Usage: gsl_linalg_cholesky_invert(cholesky);");
6934 }
6935 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6936 if (!SWIG_IsOK(res1)) {
6937 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_cholesky_invert" "', argument " "1"" of type '" "gsl_matrix *""'");
6938 }
6939 arg1 = (gsl_matrix *)(argp1);
6940 result = (int)gsl_linalg_cholesky_invert(arg1);
6941 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6942
6943 XSRETURN(argvi);
6944 fail:
6945
6946 SWIG_croak_null();
6947 }
6948 }
6949
6950
XS(_wrap_gsl_linalg_cholesky_decomp_unit)6951 XS(_wrap_gsl_linalg_cholesky_decomp_unit) {
6952 {
6953 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
6954 gsl_vector *arg2 = (gsl_vector *) 0 ;
6955 void *argp1 = 0 ;
6956 int res1 = 0 ;
6957 void *argp2 = 0 ;
6958 int res2 = 0 ;
6959 int argvi = 0;
6960 int result;
6961 dXSARGS;
6962
6963 if ((items < 2) || (items > 2)) {
6964 SWIG_croak("Usage: gsl_linalg_cholesky_decomp_unit(A,D);");
6965 }
6966 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6967 if (!SWIG_IsOK(res1)) {
6968 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_cholesky_decomp_unit" "', argument " "1"" of type '" "gsl_matrix *""'");
6969 }
6970 arg1 = (gsl_matrix *)(argp1);
6971 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
6972 if (!SWIG_IsOK(res2)) {
6973 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_cholesky_decomp_unit" "', argument " "2"" of type '" "gsl_vector *""'");
6974 }
6975 arg2 = (gsl_vector *)(argp2);
6976 result = (int)gsl_linalg_cholesky_decomp_unit(arg1,arg2);
6977 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6978
6979
6980 XSRETURN(argvi);
6981 fail:
6982
6983
6984 SWIG_croak_null();
6985 }
6986 }
6987
6988
XS(_wrap_gsl_linalg_complex_cholesky_decomp)6989 XS(_wrap_gsl_linalg_complex_cholesky_decomp) {
6990 {
6991 gsl_matrix_complex *arg1 = (gsl_matrix_complex *) 0 ;
6992 void *argp1 = 0 ;
6993 int res1 = 0 ;
6994 int argvi = 0;
6995 int result;
6996 dXSARGS;
6997
6998 if ((items < 1) || (items > 1)) {
6999 SWIG_croak("Usage: gsl_linalg_complex_cholesky_decomp(A);");
7000 }
7001 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
7002 if (!SWIG_IsOK(res1)) {
7003 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_complex_cholesky_decomp" "', argument " "1"" of type '" "gsl_matrix_complex *""'");
7004 }
7005 arg1 = (gsl_matrix_complex *)(argp1);
7006 result = (int)gsl_linalg_complex_cholesky_decomp(arg1);
7007 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7008
7009 XSRETURN(argvi);
7010 fail:
7011
7012 SWIG_croak_null();
7013 }
7014 }
7015
7016
XS(_wrap_gsl_linalg_complex_cholesky_solve)7017 XS(_wrap_gsl_linalg_complex_cholesky_solve) {
7018 {
7019 gsl_matrix_complex *arg1 = (gsl_matrix_complex *) 0 ;
7020 gsl_vector_complex *arg2 = (gsl_vector_complex *) 0 ;
7021 gsl_vector_complex *arg3 = (gsl_vector_complex *) 0 ;
7022 void *argp1 = 0 ;
7023 int res1 = 0 ;
7024 void *argp2 = 0 ;
7025 int res2 = 0 ;
7026 void *argp3 = 0 ;
7027 int res3 = 0 ;
7028 int argvi = 0;
7029 int result;
7030 dXSARGS;
7031
7032 if ((items < 3) || (items > 3)) {
7033 SWIG_croak("Usage: gsl_linalg_complex_cholesky_solve(cholesky,b,x);");
7034 }
7035 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
7036 if (!SWIG_IsOK(res1)) {
7037 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_complex_cholesky_solve" "', argument " "1"" of type '" "gsl_matrix_complex const *""'");
7038 }
7039 arg1 = (gsl_matrix_complex *)(argp1);
7040 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
7041 if (!SWIG_IsOK(res2)) {
7042 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_complex_cholesky_solve" "', argument " "2"" of type '" "gsl_vector_complex const *""'");
7043 }
7044 arg2 = (gsl_vector_complex *)(argp2);
7045 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
7046 if (!SWIG_IsOK(res3)) {
7047 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_complex_cholesky_solve" "', argument " "3"" of type '" "gsl_vector_complex *""'");
7048 }
7049 arg3 = (gsl_vector_complex *)(argp3);
7050 result = (int)gsl_linalg_complex_cholesky_solve((gsl_matrix_complex const *)arg1,(gsl_vector_complex const *)arg2,arg3);
7051 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7052
7053
7054
7055 XSRETURN(argvi);
7056 fail:
7057
7058
7059
7060 SWIG_croak_null();
7061 }
7062 }
7063
7064
XS(_wrap_gsl_linalg_complex_cholesky_svx)7065 XS(_wrap_gsl_linalg_complex_cholesky_svx) {
7066 {
7067 gsl_matrix_complex *arg1 = (gsl_matrix_complex *) 0 ;
7068 gsl_vector_complex *arg2 = (gsl_vector_complex *) 0 ;
7069 void *argp1 = 0 ;
7070 int res1 = 0 ;
7071 void *argp2 = 0 ;
7072 int res2 = 0 ;
7073 int argvi = 0;
7074 int result;
7075 dXSARGS;
7076
7077 if ((items < 2) || (items > 2)) {
7078 SWIG_croak("Usage: gsl_linalg_complex_cholesky_svx(cholesky,x);");
7079 }
7080 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
7081 if (!SWIG_IsOK(res1)) {
7082 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_complex_cholesky_svx" "', argument " "1"" of type '" "gsl_matrix_complex const *""'");
7083 }
7084 arg1 = (gsl_matrix_complex *)(argp1);
7085 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
7086 if (!SWIG_IsOK(res2)) {
7087 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_complex_cholesky_svx" "', argument " "2"" of type '" "gsl_vector_complex *""'");
7088 }
7089 arg2 = (gsl_vector_complex *)(argp2);
7090 result = (int)gsl_linalg_complex_cholesky_svx((gsl_matrix_complex const *)arg1,arg2);
7091 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7092
7093
7094 XSRETURN(argvi);
7095 fail:
7096
7097
7098 SWIG_croak_null();
7099 }
7100 }
7101
7102
XS(_wrap_gsl_linalg_complex_cholesky_invert)7103 XS(_wrap_gsl_linalg_complex_cholesky_invert) {
7104 {
7105 gsl_matrix_complex *arg1 = (gsl_matrix_complex *) 0 ;
7106 void *argp1 = 0 ;
7107 int res1 = 0 ;
7108 int argvi = 0;
7109 int result;
7110 dXSARGS;
7111
7112 if ((items < 1) || (items > 1)) {
7113 SWIG_croak("Usage: gsl_linalg_complex_cholesky_invert(cholesky);");
7114 }
7115 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
7116 if (!SWIG_IsOK(res1)) {
7117 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_complex_cholesky_invert" "', argument " "1"" of type '" "gsl_matrix_complex *""'");
7118 }
7119 arg1 = (gsl_matrix_complex *)(argp1);
7120 result = (int)gsl_linalg_complex_cholesky_invert(arg1);
7121 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7122
7123 XSRETURN(argvi);
7124 fail:
7125
7126 SWIG_croak_null();
7127 }
7128 }
7129
7130
XS(_wrap_gsl_linalg_symmtd_decomp)7131 XS(_wrap_gsl_linalg_symmtd_decomp) {
7132 {
7133 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
7134 gsl_vector *arg2 = (gsl_vector *) 0 ;
7135 void *argp1 = 0 ;
7136 int res1 = 0 ;
7137 void *argp2 = 0 ;
7138 int res2 = 0 ;
7139 int argvi = 0;
7140 int result;
7141 dXSARGS;
7142
7143 if ((items < 2) || (items > 2)) {
7144 SWIG_croak("Usage: gsl_linalg_symmtd_decomp(A,tau);");
7145 }
7146 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7147 if (!SWIG_IsOK(res1)) {
7148 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_symmtd_decomp" "', argument " "1"" of type '" "gsl_matrix *""'");
7149 }
7150 arg1 = (gsl_matrix *)(argp1);
7151 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
7152 if (!SWIG_IsOK(res2)) {
7153 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_symmtd_decomp" "', argument " "2"" of type '" "gsl_vector *""'");
7154 }
7155 arg2 = (gsl_vector *)(argp2);
7156 result = (int)gsl_linalg_symmtd_decomp(arg1,arg2);
7157 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7158
7159
7160 XSRETURN(argvi);
7161 fail:
7162
7163
7164 SWIG_croak_null();
7165 }
7166 }
7167
7168
XS(_wrap_gsl_linalg_symmtd_unpack)7169 XS(_wrap_gsl_linalg_symmtd_unpack) {
7170 {
7171 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
7172 gsl_vector *arg2 = (gsl_vector *) 0 ;
7173 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
7174 gsl_vector *arg4 = (gsl_vector *) 0 ;
7175 gsl_vector *arg5 = (gsl_vector *) 0 ;
7176 void *argp1 = 0 ;
7177 int res1 = 0 ;
7178 void *argp2 = 0 ;
7179 int res2 = 0 ;
7180 void *argp3 = 0 ;
7181 int res3 = 0 ;
7182 void *argp4 = 0 ;
7183 int res4 = 0 ;
7184 void *argp5 = 0 ;
7185 int res5 = 0 ;
7186 int argvi = 0;
7187 int result;
7188 dXSARGS;
7189
7190 if ((items < 5) || (items > 5)) {
7191 SWIG_croak("Usage: gsl_linalg_symmtd_unpack(A,tau,Q,diag,subdiag);");
7192 }
7193 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7194 if (!SWIG_IsOK(res1)) {
7195 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_symmtd_unpack" "', argument " "1"" of type '" "gsl_matrix const *""'");
7196 }
7197 arg1 = (gsl_matrix *)(argp1);
7198 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
7199 if (!SWIG_IsOK(res2)) {
7200 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_symmtd_unpack" "', argument " "2"" of type '" "gsl_vector const *""'");
7201 }
7202 arg2 = (gsl_vector *)(argp2);
7203 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7204 if (!SWIG_IsOK(res3)) {
7205 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_symmtd_unpack" "', argument " "3"" of type '" "gsl_matrix *""'");
7206 }
7207 arg3 = (gsl_matrix *)(argp3);
7208 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
7209 if (!SWIG_IsOK(res4)) {
7210 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_symmtd_unpack" "', argument " "4"" of type '" "gsl_vector *""'");
7211 }
7212 arg4 = (gsl_vector *)(argp4);
7213 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
7214 if (!SWIG_IsOK(res5)) {
7215 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_symmtd_unpack" "', argument " "5"" of type '" "gsl_vector *""'");
7216 }
7217 arg5 = (gsl_vector *)(argp5);
7218 result = (int)gsl_linalg_symmtd_unpack((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3,arg4,arg5);
7219 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7220
7221
7222
7223
7224
7225 XSRETURN(argvi);
7226 fail:
7227
7228
7229
7230
7231
7232 SWIG_croak_null();
7233 }
7234 }
7235
7236
XS(_wrap_gsl_linalg_symmtd_unpack_T)7237 XS(_wrap_gsl_linalg_symmtd_unpack_T) {
7238 {
7239 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
7240 gsl_vector *arg2 = (gsl_vector *) 0 ;
7241 gsl_vector *arg3 = (gsl_vector *) 0 ;
7242 void *argp1 = 0 ;
7243 int res1 = 0 ;
7244 void *argp2 = 0 ;
7245 int res2 = 0 ;
7246 void *argp3 = 0 ;
7247 int res3 = 0 ;
7248 int argvi = 0;
7249 int result;
7250 dXSARGS;
7251
7252 if ((items < 3) || (items > 3)) {
7253 SWIG_croak("Usage: gsl_linalg_symmtd_unpack_T(A,diag,subdiag);");
7254 }
7255 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7256 if (!SWIG_IsOK(res1)) {
7257 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_symmtd_unpack_T" "', argument " "1"" of type '" "gsl_matrix const *""'");
7258 }
7259 arg1 = (gsl_matrix *)(argp1);
7260 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
7261 if (!SWIG_IsOK(res2)) {
7262 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_symmtd_unpack_T" "', argument " "2"" of type '" "gsl_vector *""'");
7263 }
7264 arg2 = (gsl_vector *)(argp2);
7265 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
7266 if (!SWIG_IsOK(res3)) {
7267 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_symmtd_unpack_T" "', argument " "3"" of type '" "gsl_vector *""'");
7268 }
7269 arg3 = (gsl_vector *)(argp3);
7270 result = (int)gsl_linalg_symmtd_unpack_T((gsl_matrix const *)arg1,arg2,arg3);
7271 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7272
7273
7274
7275 XSRETURN(argvi);
7276 fail:
7277
7278
7279
7280 SWIG_croak_null();
7281 }
7282 }
7283
7284
XS(_wrap_gsl_linalg_hermtd_decomp)7285 XS(_wrap_gsl_linalg_hermtd_decomp) {
7286 {
7287 gsl_matrix_complex *arg1 = (gsl_matrix_complex *) 0 ;
7288 gsl_vector_complex *arg2 = (gsl_vector_complex *) 0 ;
7289 void *argp1 = 0 ;
7290 int res1 = 0 ;
7291 void *argp2 = 0 ;
7292 int res2 = 0 ;
7293 int argvi = 0;
7294 int result;
7295 dXSARGS;
7296
7297 if ((items < 2) || (items > 2)) {
7298 SWIG_croak("Usage: gsl_linalg_hermtd_decomp(A,tau);");
7299 }
7300 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
7301 if (!SWIG_IsOK(res1)) {
7302 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_hermtd_decomp" "', argument " "1"" of type '" "gsl_matrix_complex *""'");
7303 }
7304 arg1 = (gsl_matrix_complex *)(argp1);
7305 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
7306 if (!SWIG_IsOK(res2)) {
7307 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_hermtd_decomp" "', argument " "2"" of type '" "gsl_vector_complex *""'");
7308 }
7309 arg2 = (gsl_vector_complex *)(argp2);
7310 result = (int)gsl_linalg_hermtd_decomp(arg1,arg2);
7311 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7312
7313
7314 XSRETURN(argvi);
7315 fail:
7316
7317
7318 SWIG_croak_null();
7319 }
7320 }
7321
7322
XS(_wrap_gsl_linalg_hermtd_unpack)7323 XS(_wrap_gsl_linalg_hermtd_unpack) {
7324 {
7325 gsl_matrix_complex *arg1 = (gsl_matrix_complex *) 0 ;
7326 gsl_vector_complex *arg2 = (gsl_vector_complex *) 0 ;
7327 gsl_matrix_complex *arg3 = (gsl_matrix_complex *) 0 ;
7328 gsl_vector *arg4 = (gsl_vector *) 0 ;
7329 gsl_vector *arg5 = (gsl_vector *) 0 ;
7330 void *argp1 = 0 ;
7331 int res1 = 0 ;
7332 void *argp2 = 0 ;
7333 int res2 = 0 ;
7334 void *argp3 = 0 ;
7335 int res3 = 0 ;
7336 void *argp4 = 0 ;
7337 int res4 = 0 ;
7338 void *argp5 = 0 ;
7339 int res5 = 0 ;
7340 int argvi = 0;
7341 int result;
7342 dXSARGS;
7343
7344 if ((items < 5) || (items > 5)) {
7345 SWIG_croak("Usage: gsl_linalg_hermtd_unpack(A,tau,U,diag,sudiag);");
7346 }
7347 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
7348 if (!SWIG_IsOK(res1)) {
7349 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_hermtd_unpack" "', argument " "1"" of type '" "gsl_matrix_complex const *""'");
7350 }
7351 arg1 = (gsl_matrix_complex *)(argp1);
7352 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
7353 if (!SWIG_IsOK(res2)) {
7354 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_hermtd_unpack" "', argument " "2"" of type '" "gsl_vector_complex const *""'");
7355 }
7356 arg2 = (gsl_vector_complex *)(argp2);
7357 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
7358 if (!SWIG_IsOK(res3)) {
7359 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_hermtd_unpack" "', argument " "3"" of type '" "gsl_matrix_complex *""'");
7360 }
7361 arg3 = (gsl_matrix_complex *)(argp3);
7362 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
7363 if (!SWIG_IsOK(res4)) {
7364 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_hermtd_unpack" "', argument " "4"" of type '" "gsl_vector *""'");
7365 }
7366 arg4 = (gsl_vector *)(argp4);
7367 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
7368 if (!SWIG_IsOK(res5)) {
7369 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_hermtd_unpack" "', argument " "5"" of type '" "gsl_vector *""'");
7370 }
7371 arg5 = (gsl_vector *)(argp5);
7372 result = (int)gsl_linalg_hermtd_unpack((gsl_matrix_complex const *)arg1,(gsl_vector_complex const *)arg2,arg3,arg4,arg5);
7373 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7374
7375
7376
7377
7378
7379 XSRETURN(argvi);
7380 fail:
7381
7382
7383
7384
7385
7386 SWIG_croak_null();
7387 }
7388 }
7389
7390
XS(_wrap_gsl_linalg_hermtd_unpack_T)7391 XS(_wrap_gsl_linalg_hermtd_unpack_T) {
7392 {
7393 gsl_matrix_complex *arg1 = (gsl_matrix_complex *) 0 ;
7394 gsl_vector *arg2 = (gsl_vector *) 0 ;
7395 gsl_vector *arg3 = (gsl_vector *) 0 ;
7396 void *argp1 = 0 ;
7397 int res1 = 0 ;
7398 void *argp2 = 0 ;
7399 int res2 = 0 ;
7400 void *argp3 = 0 ;
7401 int res3 = 0 ;
7402 int argvi = 0;
7403 int result;
7404 dXSARGS;
7405
7406 if ((items < 3) || (items > 3)) {
7407 SWIG_croak("Usage: gsl_linalg_hermtd_unpack_T(A,diag,subdiag);");
7408 }
7409 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
7410 if (!SWIG_IsOK(res1)) {
7411 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_hermtd_unpack_T" "', argument " "1"" of type '" "gsl_matrix_complex const *""'");
7412 }
7413 arg1 = (gsl_matrix_complex *)(argp1);
7414 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
7415 if (!SWIG_IsOK(res2)) {
7416 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_hermtd_unpack_T" "', argument " "2"" of type '" "gsl_vector *""'");
7417 }
7418 arg2 = (gsl_vector *)(argp2);
7419 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
7420 if (!SWIG_IsOK(res3)) {
7421 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_hermtd_unpack_T" "', argument " "3"" of type '" "gsl_vector *""'");
7422 }
7423 arg3 = (gsl_vector *)(argp3);
7424 result = (int)gsl_linalg_hermtd_unpack_T((gsl_matrix_complex const *)arg1,arg2,arg3);
7425 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7426
7427
7428
7429 XSRETURN(argvi);
7430 fail:
7431
7432
7433
7434 SWIG_croak_null();
7435 }
7436 }
7437
7438
XS(_wrap_gsl_linalg_HH_solve)7439 XS(_wrap_gsl_linalg_HH_solve) {
7440 {
7441 gsl_matrix *arg1 = (gsl_matrix *) 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_HH_solve(A,b,x);");
7456 }
7457 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7458 if (!SWIG_IsOK(res1)) {
7459 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_HH_solve" "', argument " "1"" of type '" "gsl_matrix *""'");
7460 }
7461 arg1 = (gsl_matrix *)(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_HH_solve" "', argument " "2"" of type '" "gsl_vector const *""'");
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_HH_solve" "', argument " "3"" of type '" "gsl_vector *""'");
7470 }
7471 arg3 = (gsl_vector *)(argp3);
7472 result = (int)gsl_linalg_HH_solve(arg1,(gsl_vector const *)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_svx)7487 XS(_wrap_gsl_linalg_HH_svx) {
7488 {
7489 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
7490 gsl_vector *arg2 = (gsl_vector *) 0 ;
7491 void *argp1 = 0 ;
7492 int res1 = 0 ;
7493 void *argp2 = 0 ;
7494 int res2 = 0 ;
7495 int argvi = 0;
7496 int result;
7497 dXSARGS;
7498
7499 if ((items < 2) || (items > 2)) {
7500 SWIG_croak("Usage: gsl_linalg_HH_svx(A,x);");
7501 }
7502 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7503 if (!SWIG_IsOK(res1)) {
7504 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_HH_svx" "', argument " "1"" of type '" "gsl_matrix *""'");
7505 }
7506 arg1 = (gsl_matrix *)(argp1);
7507 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
7508 if (!SWIG_IsOK(res2)) {
7509 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_HH_svx" "', argument " "2"" of type '" "gsl_vector *""'");
7510 }
7511 arg2 = (gsl_vector *)(argp2);
7512 result = (int)gsl_linalg_HH_svx(arg1,arg2);
7513 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7514
7515
7516 XSRETURN(argvi);
7517 fail:
7518
7519
7520 SWIG_croak_null();
7521 }
7522 }
7523
7524
XS(_wrap_gsl_linalg_solve_symm_tridiag)7525 XS(_wrap_gsl_linalg_solve_symm_tridiag) {
7526 {
7527 gsl_vector *arg1 = (gsl_vector *) 0 ;
7528 gsl_vector *arg2 = (gsl_vector *) 0 ;
7529 gsl_vector *arg3 = (gsl_vector *) 0 ;
7530 gsl_vector *arg4 = (gsl_vector *) 0 ;
7531 void *argp1 = 0 ;
7532 int res1 = 0 ;
7533 void *argp2 = 0 ;
7534 int res2 = 0 ;
7535 void *argp3 = 0 ;
7536 int res3 = 0 ;
7537 void *argp4 = 0 ;
7538 int res4 = 0 ;
7539 int argvi = 0;
7540 int result;
7541 dXSARGS;
7542
7543 if ((items < 4) || (items > 4)) {
7544 SWIG_croak("Usage: gsl_linalg_solve_symm_tridiag(diag,offdiag,b,x);");
7545 }
7546 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
7547 if (!SWIG_IsOK(res1)) {
7548 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_solve_symm_tridiag" "', argument " "1"" of type '" "gsl_vector const *""'");
7549 }
7550 arg1 = (gsl_vector *)(argp1);
7551 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
7552 if (!SWIG_IsOK(res2)) {
7553 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_solve_symm_tridiag" "', argument " "2"" of type '" "gsl_vector const *""'");
7554 }
7555 arg2 = (gsl_vector *)(argp2);
7556 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
7557 if (!SWIG_IsOK(res3)) {
7558 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_solve_symm_tridiag" "', argument " "3"" of type '" "gsl_vector const *""'");
7559 }
7560 arg3 = (gsl_vector *)(argp3);
7561 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
7562 if (!SWIG_IsOK(res4)) {
7563 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_solve_symm_tridiag" "', argument " "4"" of type '" "gsl_vector *""'");
7564 }
7565 arg4 = (gsl_vector *)(argp4);
7566 result = (int)gsl_linalg_solve_symm_tridiag((gsl_vector const *)arg1,(gsl_vector const *)arg2,(gsl_vector const *)arg3,arg4);
7567 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7568
7569
7570
7571
7572 XSRETURN(argvi);
7573 fail:
7574
7575
7576
7577
7578 SWIG_croak_null();
7579 }
7580 }
7581
7582
XS(_wrap_gsl_linalg_solve_tridiag)7583 XS(_wrap_gsl_linalg_solve_tridiag) {
7584 {
7585 gsl_vector *arg1 = (gsl_vector *) 0 ;
7586 gsl_vector *arg2 = (gsl_vector *) 0 ;
7587 gsl_vector *arg3 = (gsl_vector *) 0 ;
7588 gsl_vector *arg4 = (gsl_vector *) 0 ;
7589 gsl_vector *arg5 = (gsl_vector *) 0 ;
7590 void *argp1 = 0 ;
7591 int res1 = 0 ;
7592 void *argp2 = 0 ;
7593 int res2 = 0 ;
7594 void *argp3 = 0 ;
7595 int res3 = 0 ;
7596 void *argp4 = 0 ;
7597 int res4 = 0 ;
7598 void *argp5 = 0 ;
7599 int res5 = 0 ;
7600 int argvi = 0;
7601 int result;
7602 dXSARGS;
7603
7604 if ((items < 5) || (items > 5)) {
7605 SWIG_croak("Usage: gsl_linalg_solve_tridiag(diag,abovediag,belowdiag,b,x);");
7606 }
7607 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
7608 if (!SWIG_IsOK(res1)) {
7609 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_solve_tridiag" "', argument " "1"" of type '" "gsl_vector const *""'");
7610 }
7611 arg1 = (gsl_vector *)(argp1);
7612 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
7613 if (!SWIG_IsOK(res2)) {
7614 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_solve_tridiag" "', argument " "2"" of type '" "gsl_vector const *""'");
7615 }
7616 arg2 = (gsl_vector *)(argp2);
7617 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
7618 if (!SWIG_IsOK(res3)) {
7619 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_solve_tridiag" "', argument " "3"" of type '" "gsl_vector const *""'");
7620 }
7621 arg3 = (gsl_vector *)(argp3);
7622 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
7623 if (!SWIG_IsOK(res4)) {
7624 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_solve_tridiag" "', argument " "4"" of type '" "gsl_vector const *""'");
7625 }
7626 arg4 = (gsl_vector *)(argp4);
7627 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
7628 if (!SWIG_IsOK(res5)) {
7629 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_solve_tridiag" "', argument " "5"" of type '" "gsl_vector *""'");
7630 }
7631 arg5 = (gsl_vector *)(argp5);
7632 result = (int)gsl_linalg_solve_tridiag((gsl_vector const *)arg1,(gsl_vector const *)arg2,(gsl_vector const *)arg3,(gsl_vector const *)arg4,arg5);
7633 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7634
7635
7636
7637
7638
7639 XSRETURN(argvi);
7640 fail:
7641
7642
7643
7644
7645
7646 SWIG_croak_null();
7647 }
7648 }
7649
7650
XS(_wrap_gsl_linalg_solve_symm_cyc_tridiag)7651 XS(_wrap_gsl_linalg_solve_symm_cyc_tridiag) {
7652 {
7653 gsl_vector *arg1 = (gsl_vector *) 0 ;
7654 gsl_vector *arg2 = (gsl_vector *) 0 ;
7655 gsl_vector *arg3 = (gsl_vector *) 0 ;
7656 gsl_vector *arg4 = (gsl_vector *) 0 ;
7657 void *argp1 = 0 ;
7658 int res1 = 0 ;
7659 void *argp2 = 0 ;
7660 int res2 = 0 ;
7661 void *argp3 = 0 ;
7662 int res3 = 0 ;
7663 void *argp4 = 0 ;
7664 int res4 = 0 ;
7665 int argvi = 0;
7666 int result;
7667 dXSARGS;
7668
7669 if ((items < 4) || (items > 4)) {
7670 SWIG_croak("Usage: gsl_linalg_solve_symm_cyc_tridiag(diag,offdiag,b,x);");
7671 }
7672 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
7673 if (!SWIG_IsOK(res1)) {
7674 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_solve_symm_cyc_tridiag" "', argument " "1"" of type '" "gsl_vector const *""'");
7675 }
7676 arg1 = (gsl_vector *)(argp1);
7677 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
7678 if (!SWIG_IsOK(res2)) {
7679 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_solve_symm_cyc_tridiag" "', argument " "2"" of type '" "gsl_vector const *""'");
7680 }
7681 arg2 = (gsl_vector *)(argp2);
7682 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
7683 if (!SWIG_IsOK(res3)) {
7684 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_solve_symm_cyc_tridiag" "', argument " "3"" of type '" "gsl_vector const *""'");
7685 }
7686 arg3 = (gsl_vector *)(argp3);
7687 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
7688 if (!SWIG_IsOK(res4)) {
7689 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_solve_symm_cyc_tridiag" "', argument " "4"" of type '" "gsl_vector *""'");
7690 }
7691 arg4 = (gsl_vector *)(argp4);
7692 result = (int)gsl_linalg_solve_symm_cyc_tridiag((gsl_vector const *)arg1,(gsl_vector const *)arg2,(gsl_vector const *)arg3,arg4);
7693 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7694
7695
7696
7697
7698 XSRETURN(argvi);
7699 fail:
7700
7701
7702
7703
7704 SWIG_croak_null();
7705 }
7706 }
7707
7708
XS(_wrap_gsl_linalg_solve_cyc_tridiag)7709 XS(_wrap_gsl_linalg_solve_cyc_tridiag) {
7710 {
7711 gsl_vector *arg1 = (gsl_vector *) 0 ;
7712 gsl_vector *arg2 = (gsl_vector *) 0 ;
7713 gsl_vector *arg3 = (gsl_vector *) 0 ;
7714 gsl_vector *arg4 = (gsl_vector *) 0 ;
7715 gsl_vector *arg5 = (gsl_vector *) 0 ;
7716 void *argp1 = 0 ;
7717 int res1 = 0 ;
7718 void *argp2 = 0 ;
7719 int res2 = 0 ;
7720 void *argp3 = 0 ;
7721 int res3 = 0 ;
7722 void *argp4 = 0 ;
7723 int res4 = 0 ;
7724 void *argp5 = 0 ;
7725 int res5 = 0 ;
7726 int argvi = 0;
7727 int result;
7728 dXSARGS;
7729
7730 if ((items < 5) || (items > 5)) {
7731 SWIG_croak("Usage: gsl_linalg_solve_cyc_tridiag(diag,abovediag,belowdiag,b,x);");
7732 }
7733 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
7734 if (!SWIG_IsOK(res1)) {
7735 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_solve_cyc_tridiag" "', argument " "1"" of type '" "gsl_vector const *""'");
7736 }
7737 arg1 = (gsl_vector *)(argp1);
7738 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
7739 if (!SWIG_IsOK(res2)) {
7740 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_solve_cyc_tridiag" "', argument " "2"" of type '" "gsl_vector const *""'");
7741 }
7742 arg2 = (gsl_vector *)(argp2);
7743 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
7744 if (!SWIG_IsOK(res3)) {
7745 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_solve_cyc_tridiag" "', argument " "3"" of type '" "gsl_vector const *""'");
7746 }
7747 arg3 = (gsl_vector *)(argp3);
7748 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
7749 if (!SWIG_IsOK(res4)) {
7750 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_solve_cyc_tridiag" "', argument " "4"" of type '" "gsl_vector const *""'");
7751 }
7752 arg4 = (gsl_vector *)(argp4);
7753 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
7754 if (!SWIG_IsOK(res5)) {
7755 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_solve_cyc_tridiag" "', argument " "5"" of type '" "gsl_vector *""'");
7756 }
7757 arg5 = (gsl_vector *)(argp5);
7758 result = (int)gsl_linalg_solve_cyc_tridiag((gsl_vector const *)arg1,(gsl_vector const *)arg2,(gsl_vector const *)arg3,(gsl_vector const *)arg4,arg5);
7759 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7760
7761
7762
7763
7764
7765 XSRETURN(argvi);
7766 fail:
7767
7768
7769
7770
7771
7772 SWIG_croak_null();
7773 }
7774 }
7775
7776
XS(_wrap_gsl_linalg_bidiag_decomp)7777 XS(_wrap_gsl_linalg_bidiag_decomp) {
7778 {
7779 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
7780 gsl_vector *arg2 = (gsl_vector *) 0 ;
7781 gsl_vector *arg3 = (gsl_vector *) 0 ;
7782 void *argp1 = 0 ;
7783 int res1 = 0 ;
7784 void *argp2 = 0 ;
7785 int res2 = 0 ;
7786 void *argp3 = 0 ;
7787 int res3 = 0 ;
7788 int argvi = 0;
7789 int result;
7790 dXSARGS;
7791
7792 if ((items < 3) || (items > 3)) {
7793 SWIG_croak("Usage: gsl_linalg_bidiag_decomp(A,tau_U,tau_V);");
7794 }
7795 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7796 if (!SWIG_IsOK(res1)) {
7797 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_bidiag_decomp" "', argument " "1"" of type '" "gsl_matrix *""'");
7798 }
7799 arg1 = (gsl_matrix *)(argp1);
7800 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
7801 if (!SWIG_IsOK(res2)) {
7802 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_bidiag_decomp" "', argument " "2"" of type '" "gsl_vector *""'");
7803 }
7804 arg2 = (gsl_vector *)(argp2);
7805 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
7806 if (!SWIG_IsOK(res3)) {
7807 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_bidiag_decomp" "', argument " "3"" of type '" "gsl_vector *""'");
7808 }
7809 arg3 = (gsl_vector *)(argp3);
7810 result = (int)gsl_linalg_bidiag_decomp(arg1,arg2,arg3);
7811 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7812
7813
7814
7815 XSRETURN(argvi);
7816 fail:
7817
7818
7819
7820 SWIG_croak_null();
7821 }
7822 }
7823
7824
XS(_wrap_gsl_linalg_bidiag_unpack)7825 XS(_wrap_gsl_linalg_bidiag_unpack) {
7826 {
7827 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
7828 gsl_vector *arg2 = (gsl_vector *) 0 ;
7829 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
7830 gsl_vector *arg4 = (gsl_vector *) 0 ;
7831 gsl_matrix *arg5 = (gsl_matrix *) 0 ;
7832 gsl_vector *arg6 = (gsl_vector *) 0 ;
7833 gsl_vector *arg7 = (gsl_vector *) 0 ;
7834 void *argp1 = 0 ;
7835 int res1 = 0 ;
7836 void *argp2 = 0 ;
7837 int res2 = 0 ;
7838 void *argp3 = 0 ;
7839 int res3 = 0 ;
7840 void *argp4 = 0 ;
7841 int res4 = 0 ;
7842 void *argp5 = 0 ;
7843 int res5 = 0 ;
7844 void *argp6 = 0 ;
7845 int res6 = 0 ;
7846 void *argp7 = 0 ;
7847 int res7 = 0 ;
7848 int argvi = 0;
7849 int result;
7850 dXSARGS;
7851
7852 if ((items < 7) || (items > 7)) {
7853 SWIG_croak("Usage: gsl_linalg_bidiag_unpack(A,tau_U,U,tau_V,V,diag,superdiag);");
7854 }
7855 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7856 if (!SWIG_IsOK(res1)) {
7857 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_bidiag_unpack" "', argument " "1"" of type '" "gsl_matrix const *""'");
7858 }
7859 arg1 = (gsl_matrix *)(argp1);
7860 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
7861 if (!SWIG_IsOK(res2)) {
7862 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_bidiag_unpack" "', argument " "2"" of type '" "gsl_vector const *""'");
7863 }
7864 arg2 = (gsl_vector *)(argp2);
7865 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7866 if (!SWIG_IsOK(res3)) {
7867 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_bidiag_unpack" "', argument " "3"" of type '" "gsl_matrix *""'");
7868 }
7869 arg3 = (gsl_matrix *)(argp3);
7870 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
7871 if (!SWIG_IsOK(res4)) {
7872 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_bidiag_unpack" "', argument " "4"" of type '" "gsl_vector const *""'");
7873 }
7874 arg4 = (gsl_vector *)(argp4);
7875 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7876 if (!SWIG_IsOK(res5)) {
7877 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_bidiag_unpack" "', argument " "5"" of type '" "gsl_matrix *""'");
7878 }
7879 arg5 = (gsl_matrix *)(argp5);
7880 res6 = SWIG_ConvertPtr(ST(5), &argp6,SWIGTYPE_p_gsl_vector, 0 | 0 );
7881 if (!SWIG_IsOK(res6)) {
7882 SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_linalg_bidiag_unpack" "', argument " "6"" of type '" "gsl_vector *""'");
7883 }
7884 arg6 = (gsl_vector *)(argp6);
7885 res7 = SWIG_ConvertPtr(ST(6), &argp7,SWIGTYPE_p_gsl_vector, 0 | 0 );
7886 if (!SWIG_IsOK(res7)) {
7887 SWIG_exception_fail(SWIG_ArgError(res7), "in method '" "gsl_linalg_bidiag_unpack" "', argument " "7"" of type '" "gsl_vector *""'");
7888 }
7889 arg7 = (gsl_vector *)(argp7);
7890 result = (int)gsl_linalg_bidiag_unpack((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3,(gsl_vector const *)arg4,arg5,arg6,arg7);
7891 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7892
7893
7894
7895
7896
7897
7898
7899 XSRETURN(argvi);
7900 fail:
7901
7902
7903
7904
7905
7906
7907
7908 SWIG_croak_null();
7909 }
7910 }
7911
7912
XS(_wrap_gsl_linalg_bidiag_unpack2)7913 XS(_wrap_gsl_linalg_bidiag_unpack2) {
7914 {
7915 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
7916 gsl_vector *arg2 = (gsl_vector *) 0 ;
7917 gsl_vector *arg3 = (gsl_vector *) 0 ;
7918 gsl_matrix *arg4 = (gsl_matrix *) 0 ;
7919 void *argp1 = 0 ;
7920 int res1 = 0 ;
7921 void *argp2 = 0 ;
7922 int res2 = 0 ;
7923 void *argp3 = 0 ;
7924 int res3 = 0 ;
7925 void *argp4 = 0 ;
7926 int res4 = 0 ;
7927 int argvi = 0;
7928 int result;
7929 dXSARGS;
7930
7931 if ((items < 4) || (items > 4)) {
7932 SWIG_croak("Usage: gsl_linalg_bidiag_unpack2(A,tau_U,tau_V,V);");
7933 }
7934 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7935 if (!SWIG_IsOK(res1)) {
7936 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_bidiag_unpack2" "', argument " "1"" of type '" "gsl_matrix *""'");
7937 }
7938 arg1 = (gsl_matrix *)(argp1);
7939 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
7940 if (!SWIG_IsOK(res2)) {
7941 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_bidiag_unpack2" "', argument " "2"" of type '" "gsl_vector *""'");
7942 }
7943 arg2 = (gsl_vector *)(argp2);
7944 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
7945 if (!SWIG_IsOK(res3)) {
7946 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_bidiag_unpack2" "', argument " "3"" of type '" "gsl_vector *""'");
7947 }
7948 arg3 = (gsl_vector *)(argp3);
7949 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7950 if (!SWIG_IsOK(res4)) {
7951 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_bidiag_unpack2" "', argument " "4"" of type '" "gsl_matrix *""'");
7952 }
7953 arg4 = (gsl_matrix *)(argp4);
7954 result = (int)gsl_linalg_bidiag_unpack2(arg1,arg2,arg3,arg4);
7955 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7956
7957
7958
7959
7960 XSRETURN(argvi);
7961 fail:
7962
7963
7964
7965
7966 SWIG_croak_null();
7967 }
7968 }
7969
7970
XS(_wrap_gsl_linalg_bidiag_unpack_B)7971 XS(_wrap_gsl_linalg_bidiag_unpack_B) {
7972 {
7973 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
7974 gsl_vector *arg2 = (gsl_vector *) 0 ;
7975 gsl_vector *arg3 = (gsl_vector *) 0 ;
7976 void *argp1 = 0 ;
7977 int res1 = 0 ;
7978 void *argp2 = 0 ;
7979 int res2 = 0 ;
7980 void *argp3 = 0 ;
7981 int res3 = 0 ;
7982 int argvi = 0;
7983 int result;
7984 dXSARGS;
7985
7986 if ((items < 3) || (items > 3)) {
7987 SWIG_croak("Usage: gsl_linalg_bidiag_unpack_B(A,diag,superdiag);");
7988 }
7989 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7990 if (!SWIG_IsOK(res1)) {
7991 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_bidiag_unpack_B" "', argument " "1"" of type '" "gsl_matrix const *""'");
7992 }
7993 arg1 = (gsl_matrix *)(argp1);
7994 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
7995 if (!SWIG_IsOK(res2)) {
7996 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_bidiag_unpack_B" "', argument " "2"" of type '" "gsl_vector *""'");
7997 }
7998 arg2 = (gsl_vector *)(argp2);
7999 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
8000 if (!SWIG_IsOK(res3)) {
8001 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_bidiag_unpack_B" "', argument " "3"" of type '" "gsl_vector *""'");
8002 }
8003 arg3 = (gsl_vector *)(argp3);
8004 result = (int)gsl_linalg_bidiag_unpack_B((gsl_matrix const *)arg1,arg2,arg3);
8005 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8006
8007
8008
8009 XSRETURN(argvi);
8010 fail:
8011
8012
8013
8014 SWIG_croak_null();
8015 }
8016 }
8017
8018
XS(_wrap_gsl_linalg_balance_matrix)8019 XS(_wrap_gsl_linalg_balance_matrix) {
8020 {
8021 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
8022 gsl_vector *arg2 = (gsl_vector *) 0 ;
8023 void *argp1 = 0 ;
8024 int res1 = 0 ;
8025 void *argp2 = 0 ;
8026 int res2 = 0 ;
8027 int argvi = 0;
8028 int result;
8029 dXSARGS;
8030
8031 if ((items < 2) || (items > 2)) {
8032 SWIG_croak("Usage: gsl_linalg_balance_matrix(A,D);");
8033 }
8034 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
8035 if (!SWIG_IsOK(res1)) {
8036 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_balance_matrix" "', argument " "1"" of type '" "gsl_matrix *""'");
8037 }
8038 arg1 = (gsl_matrix *)(argp1);
8039 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
8040 if (!SWIG_IsOK(res2)) {
8041 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_balance_matrix" "', argument " "2"" of type '" "gsl_vector *""'");
8042 }
8043 arg2 = (gsl_vector *)(argp2);
8044 result = (int)gsl_linalg_balance_matrix(arg1,arg2);
8045 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8046
8047
8048 XSRETURN(argvi);
8049 fail:
8050
8051
8052 SWIG_croak_null();
8053 }
8054 }
8055
8056
XS(_wrap_gsl_linalg_balance_accum)8057 XS(_wrap_gsl_linalg_balance_accum) {
8058 {
8059 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
8060 gsl_vector *arg2 = (gsl_vector *) 0 ;
8061 void *argp1 = 0 ;
8062 int res1 = 0 ;
8063 void *argp2 = 0 ;
8064 int res2 = 0 ;
8065 int argvi = 0;
8066 int result;
8067 dXSARGS;
8068
8069 if ((items < 2) || (items > 2)) {
8070 SWIG_croak("Usage: gsl_linalg_balance_accum(A,D);");
8071 }
8072 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
8073 if (!SWIG_IsOK(res1)) {
8074 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_balance_accum" "', argument " "1"" of type '" "gsl_matrix *""'");
8075 }
8076 arg1 = (gsl_matrix *)(argp1);
8077 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
8078 if (!SWIG_IsOK(res2)) {
8079 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_balance_accum" "', argument " "2"" of type '" "gsl_vector *""'");
8080 }
8081 arg2 = (gsl_vector *)(argp2);
8082 result = (int)gsl_linalg_balance_accum(arg1,arg2);
8083 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8084
8085
8086 XSRETURN(argvi);
8087 fail:
8088
8089
8090 SWIG_croak_null();
8091 }
8092 }
8093
8094
XS(_wrap_gsl_linalg_balance_columns)8095 XS(_wrap_gsl_linalg_balance_columns) {
8096 {
8097 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
8098 gsl_vector *arg2 = (gsl_vector *) 0 ;
8099 void *argp1 = 0 ;
8100 int res1 = 0 ;
8101 void *argp2 = 0 ;
8102 int res2 = 0 ;
8103 int argvi = 0;
8104 int result;
8105 dXSARGS;
8106
8107 if ((items < 2) || (items > 2)) {
8108 SWIG_croak("Usage: gsl_linalg_balance_columns(A,D);");
8109 }
8110 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
8111 if (!SWIG_IsOK(res1)) {
8112 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_balance_columns" "', argument " "1"" of type '" "gsl_matrix *""'");
8113 }
8114 arg1 = (gsl_matrix *)(argp1);
8115 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
8116 if (!SWIG_IsOK(res2)) {
8117 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_balance_columns" "', argument " "2"" of type '" "gsl_vector *""'");
8118 }
8119 arg2 = (gsl_vector *)(argp2);
8120 result = (int)gsl_linalg_balance_columns(arg1,arg2);
8121 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8122
8123
8124 XSRETURN(argvi);
8125 fail:
8126
8127
8128 SWIG_croak_null();
8129 }
8130 }
8131
8132
XS(_wrap_gsl_permutation_struct_size_set)8133 XS(_wrap_gsl_permutation_struct_size_set) {
8134 {
8135 struct gsl_permutation_struct *arg1 = (struct gsl_permutation_struct *) 0 ;
8136 size_t arg2 ;
8137 void *argp1 = 0 ;
8138 int res1 = 0 ;
8139 size_t val2 ;
8140 int ecode2 = 0 ;
8141 int argvi = 0;
8142 dXSARGS;
8143
8144 if ((items < 2) || (items > 2)) {
8145 SWIG_croak("Usage: gsl_permutation_struct_size_set(self,size);");
8146 }
8147 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
8148 if (!SWIG_IsOK(res1)) {
8149 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_struct_size_set" "', argument " "1"" of type '" "struct gsl_permutation_struct *""'");
8150 }
8151 arg1 = (struct gsl_permutation_struct *)(argp1);
8152 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
8153 if (!SWIG_IsOK(ecode2)) {
8154 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_permutation_struct_size_set" "', argument " "2"" of type '" "size_t""'");
8155 }
8156 arg2 = (size_t)(val2);
8157 if (arg1) (arg1)->size = arg2;
8158 ST(argvi) = &PL_sv_undef;
8159
8160
8161 XSRETURN(argvi);
8162 fail:
8163
8164
8165 SWIG_croak_null();
8166 }
8167 }
8168
8169
XS(_wrap_gsl_permutation_struct_size_get)8170 XS(_wrap_gsl_permutation_struct_size_get) {
8171 {
8172 struct gsl_permutation_struct *arg1 = (struct gsl_permutation_struct *) 0 ;
8173 void *argp1 = 0 ;
8174 int res1 = 0 ;
8175 int argvi = 0;
8176 size_t result;
8177 dXSARGS;
8178
8179 if ((items < 1) || (items > 1)) {
8180 SWIG_croak("Usage: gsl_permutation_struct_size_get(self);");
8181 }
8182 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
8183 if (!SWIG_IsOK(res1)) {
8184 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_struct_size_get" "', argument " "1"" of type '" "struct gsl_permutation_struct *""'");
8185 }
8186 arg1 = (struct gsl_permutation_struct *)(argp1);
8187 result = ((arg1)->size);
8188 ST(argvi) = SWIG_From_size_t SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
8189
8190 XSRETURN(argvi);
8191 fail:
8192
8193 SWIG_croak_null();
8194 }
8195 }
8196
8197
XS(_wrap_gsl_permutation_struct_data_set)8198 XS(_wrap_gsl_permutation_struct_data_set) {
8199 {
8200 struct gsl_permutation_struct *arg1 = (struct gsl_permutation_struct *) 0 ;
8201 size_t *arg2 = (size_t *) 0 ;
8202 void *argp1 = 0 ;
8203 int res1 = 0 ;
8204 void *argp2 = 0 ;
8205 int res2 = 0 ;
8206 int argvi = 0;
8207 dXSARGS;
8208
8209 if ((items < 2) || (items > 2)) {
8210 SWIG_croak("Usage: gsl_permutation_struct_data_set(self,data);");
8211 }
8212 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
8213 if (!SWIG_IsOK(res1)) {
8214 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_struct_data_set" "', argument " "1"" of type '" "struct gsl_permutation_struct *""'");
8215 }
8216 arg1 = (struct gsl_permutation_struct *)(argp1);
8217 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_size_t, SWIG_POINTER_DISOWN | 0 );
8218 if (!SWIG_IsOK(res2)) {
8219 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_permutation_struct_data_set" "', argument " "2"" of type '" "size_t *""'");
8220 }
8221 arg2 = (size_t *)(argp2);
8222 if (arg1) (arg1)->data = arg2;
8223 ST(argvi) = &PL_sv_undef;
8224
8225
8226 XSRETURN(argvi);
8227 fail:
8228
8229
8230 SWIG_croak_null();
8231 }
8232 }
8233
8234
XS(_wrap_gsl_permutation_struct_data_get)8235 XS(_wrap_gsl_permutation_struct_data_get) {
8236 {
8237 struct gsl_permutation_struct *arg1 = (struct gsl_permutation_struct *) 0 ;
8238 void *argp1 = 0 ;
8239 int res1 = 0 ;
8240 int argvi = 0;
8241 size_t *result = 0 ;
8242 dXSARGS;
8243
8244 if ((items < 1) || (items > 1)) {
8245 SWIG_croak("Usage: gsl_permutation_struct_data_get(self);");
8246 }
8247 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
8248 if (!SWIG_IsOK(res1)) {
8249 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_struct_data_get" "', argument " "1"" of type '" "struct gsl_permutation_struct *""'");
8250 }
8251 arg1 = (struct gsl_permutation_struct *)(argp1);
8252 result = (size_t *) ((arg1)->data);
8253 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_size_t, 0 | 0); argvi++ ;
8254
8255 XSRETURN(argvi);
8256 fail:
8257
8258 SWIG_croak_null();
8259 }
8260 }
8261
8262
XS(_wrap_new_gsl_permutation_struct)8263 XS(_wrap_new_gsl_permutation_struct) {
8264 {
8265 int argvi = 0;
8266 struct gsl_permutation_struct *result = 0 ;
8267 dXSARGS;
8268
8269 if ((items < 0) || (items > 0)) {
8270 SWIG_croak("Usage: new_gsl_permutation_struct();");
8271 }
8272 result = (struct gsl_permutation_struct *)calloc(1, sizeof(struct gsl_permutation_struct));
8273 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_permutation_struct, SWIG_OWNER | SWIG_SHADOW); argvi++ ;
8274 XSRETURN(argvi);
8275 fail:
8276 SWIG_croak_null();
8277 }
8278 }
8279
8280
XS(_wrap_delete_gsl_permutation_struct)8281 XS(_wrap_delete_gsl_permutation_struct) {
8282 {
8283 struct gsl_permutation_struct *arg1 = (struct gsl_permutation_struct *) 0 ;
8284 void *argp1 = 0 ;
8285 int res1 = 0 ;
8286 int argvi = 0;
8287 dXSARGS;
8288
8289 if ((items < 1) || (items > 1)) {
8290 SWIG_croak("Usage: delete_gsl_permutation_struct(self);");
8291 }
8292 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, SWIG_POINTER_DISOWN | 0 );
8293 if (!SWIG_IsOK(res1)) {
8294 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "delete_gsl_permutation_struct" "', argument " "1"" of type '" "struct gsl_permutation_struct *""'");
8295 }
8296 arg1 = (struct gsl_permutation_struct *)(argp1);
8297 free((char *) arg1);
8298 ST(argvi) = &PL_sv_undef;
8299
8300 XSRETURN(argvi);
8301 fail:
8302
8303 SWIG_croak_null();
8304 }
8305 }
8306
8307
XS(_wrap_gsl_permutation_alloc)8308 XS(_wrap_gsl_permutation_alloc) {
8309 {
8310 size_t arg1 ;
8311 size_t val1 ;
8312 int ecode1 = 0 ;
8313 int argvi = 0;
8314 gsl_permutation *result = 0 ;
8315 dXSARGS;
8316
8317 if ((items < 1) || (items > 1)) {
8318 SWIG_croak("Usage: gsl_permutation_alloc(n);");
8319 }
8320 ecode1 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
8321 if (!SWIG_IsOK(ecode1)) {
8322 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_permutation_alloc" "', argument " "1"" of type '" "size_t""'");
8323 }
8324 arg1 = (size_t)(val1);
8325 result = (gsl_permutation *)gsl_permutation_alloc(arg1);
8326 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_permutation_struct, 0 | SWIG_SHADOW); argvi++ ;
8327
8328 XSRETURN(argvi);
8329 fail:
8330
8331 SWIG_croak_null();
8332 }
8333 }
8334
8335
XS(_wrap_gsl_permutation_calloc)8336 XS(_wrap_gsl_permutation_calloc) {
8337 {
8338 size_t arg1 ;
8339 size_t val1 ;
8340 int ecode1 = 0 ;
8341 int argvi = 0;
8342 gsl_permutation *result = 0 ;
8343 dXSARGS;
8344
8345 if ((items < 1) || (items > 1)) {
8346 SWIG_croak("Usage: gsl_permutation_calloc(n);");
8347 }
8348 ecode1 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
8349 if (!SWIG_IsOK(ecode1)) {
8350 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_permutation_calloc" "', argument " "1"" of type '" "size_t""'");
8351 }
8352 arg1 = (size_t)(val1);
8353 result = (gsl_permutation *)gsl_permutation_calloc(arg1);
8354 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_permutation_struct, 0 | SWIG_SHADOW); argvi++ ;
8355
8356 XSRETURN(argvi);
8357 fail:
8358
8359 SWIG_croak_null();
8360 }
8361 }
8362
8363
XS(_wrap_gsl_permutation_init)8364 XS(_wrap_gsl_permutation_init) {
8365 {
8366 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
8367 void *argp1 = 0 ;
8368 int res1 = 0 ;
8369 int argvi = 0;
8370 dXSARGS;
8371
8372 if ((items < 1) || (items > 1)) {
8373 SWIG_croak("Usage: gsl_permutation_init(p);");
8374 }
8375 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
8376 if (!SWIG_IsOK(res1)) {
8377 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_init" "', argument " "1"" of type '" "gsl_permutation *""'");
8378 }
8379 arg1 = (gsl_permutation *)(argp1);
8380 gsl_permutation_init(arg1);
8381 ST(argvi) = &PL_sv_undef;
8382
8383 XSRETURN(argvi);
8384 fail:
8385
8386 SWIG_croak_null();
8387 }
8388 }
8389
8390
XS(_wrap_gsl_permutation_free)8391 XS(_wrap_gsl_permutation_free) {
8392 {
8393 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
8394 void *argp1 = 0 ;
8395 int res1 = 0 ;
8396 int argvi = 0;
8397 dXSARGS;
8398
8399 if ((items < 1) || (items > 1)) {
8400 SWIG_croak("Usage: gsl_permutation_free(p);");
8401 }
8402 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
8403 if (!SWIG_IsOK(res1)) {
8404 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_free" "', argument " "1"" of type '" "gsl_permutation *""'");
8405 }
8406 arg1 = (gsl_permutation *)(argp1);
8407 gsl_permutation_free(arg1);
8408 ST(argvi) = &PL_sv_undef;
8409
8410 XSRETURN(argvi);
8411 fail:
8412
8413 SWIG_croak_null();
8414 }
8415 }
8416
8417
XS(_wrap_gsl_permutation_memcpy)8418 XS(_wrap_gsl_permutation_memcpy) {
8419 {
8420 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
8421 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
8422 void *argp1 = 0 ;
8423 int res1 = 0 ;
8424 void *argp2 = 0 ;
8425 int res2 = 0 ;
8426 int argvi = 0;
8427 int result;
8428 dXSARGS;
8429
8430 if ((items < 2) || (items > 2)) {
8431 SWIG_croak("Usage: gsl_permutation_memcpy(dest,src);");
8432 }
8433 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
8434 if (!SWIG_IsOK(res1)) {
8435 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_memcpy" "', argument " "1"" of type '" "gsl_permutation *""'");
8436 }
8437 arg1 = (gsl_permutation *)(argp1);
8438 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
8439 if (!SWIG_IsOK(res2)) {
8440 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_permutation_memcpy" "', argument " "2"" of type '" "gsl_permutation const *""'");
8441 }
8442 arg2 = (gsl_permutation *)(argp2);
8443 result = (int)gsl_permutation_memcpy(arg1,(struct gsl_permutation_struct const *)arg2);
8444 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8445
8446
8447 XSRETURN(argvi);
8448 fail:
8449
8450
8451 SWIG_croak_null();
8452 }
8453 }
8454
8455
XS(_wrap_gsl_permutation_fread)8456 XS(_wrap_gsl_permutation_fread) {
8457 {
8458 FILE *arg1 = (FILE *) 0 ;
8459 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
8460 void *argp1 = 0 ;
8461 int res1 = 0 ;
8462 void *argp2 = 0 ;
8463 int res2 = 0 ;
8464 int argvi = 0;
8465 int result;
8466 dXSARGS;
8467
8468 if ((items < 2) || (items > 2)) {
8469 SWIG_croak("Usage: gsl_permutation_fread(stream,p);");
8470 }
8471 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_FILE, 0 | 0 );
8472 if (!SWIG_IsOK(res1)) {
8473 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_fread" "', argument " "1"" of type '" "FILE *""'");
8474 }
8475 arg1 = (FILE *)(argp1);
8476 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
8477 if (!SWIG_IsOK(res2)) {
8478 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_permutation_fread" "', argument " "2"" of type '" "gsl_permutation *""'");
8479 }
8480 arg2 = (gsl_permutation *)(argp2);
8481 result = (int)gsl_permutation_fread(arg1,arg2);
8482 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8483
8484
8485 XSRETURN(argvi);
8486 fail:
8487
8488
8489 SWIG_croak_null();
8490 }
8491 }
8492
8493
XS(_wrap_gsl_permutation_fwrite)8494 XS(_wrap_gsl_permutation_fwrite) {
8495 {
8496 FILE *arg1 = (FILE *) 0 ;
8497 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
8498 void *argp1 = 0 ;
8499 int res1 = 0 ;
8500 void *argp2 = 0 ;
8501 int res2 = 0 ;
8502 int argvi = 0;
8503 int result;
8504 dXSARGS;
8505
8506 if ((items < 2) || (items > 2)) {
8507 SWIG_croak("Usage: gsl_permutation_fwrite(stream,p);");
8508 }
8509 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_FILE, 0 | 0 );
8510 if (!SWIG_IsOK(res1)) {
8511 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_fwrite" "', argument " "1"" of type '" "FILE *""'");
8512 }
8513 arg1 = (FILE *)(argp1);
8514 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
8515 if (!SWIG_IsOK(res2)) {
8516 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_permutation_fwrite" "', argument " "2"" of type '" "gsl_permutation const *""'");
8517 }
8518 arg2 = (gsl_permutation *)(argp2);
8519 result = (int)gsl_permutation_fwrite(arg1,(struct gsl_permutation_struct const *)arg2);
8520 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8521
8522
8523 XSRETURN(argvi);
8524 fail:
8525
8526
8527 SWIG_croak_null();
8528 }
8529 }
8530
8531
XS(_wrap_gsl_permutation_fscanf)8532 XS(_wrap_gsl_permutation_fscanf) {
8533 {
8534 FILE *arg1 = (FILE *) 0 ;
8535 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
8536 void *argp1 = 0 ;
8537 int res1 = 0 ;
8538 void *argp2 = 0 ;
8539 int res2 = 0 ;
8540 int argvi = 0;
8541 int result;
8542 dXSARGS;
8543
8544 if ((items < 2) || (items > 2)) {
8545 SWIG_croak("Usage: gsl_permutation_fscanf(stream,p);");
8546 }
8547 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_FILE, 0 | 0 );
8548 if (!SWIG_IsOK(res1)) {
8549 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_fscanf" "', argument " "1"" of type '" "FILE *""'");
8550 }
8551 arg1 = (FILE *)(argp1);
8552 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
8553 if (!SWIG_IsOK(res2)) {
8554 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_permutation_fscanf" "', argument " "2"" of type '" "gsl_permutation *""'");
8555 }
8556 arg2 = (gsl_permutation *)(argp2);
8557 result = (int)gsl_permutation_fscanf(arg1,arg2);
8558 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8559
8560
8561 XSRETURN(argvi);
8562 fail:
8563
8564
8565 SWIG_croak_null();
8566 }
8567 }
8568
8569
XS(_wrap_gsl_permutation_fprintf)8570 XS(_wrap_gsl_permutation_fprintf) {
8571 {
8572 FILE *arg1 = (FILE *) 0 ;
8573 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
8574 char *arg3 = (char *) 0 ;
8575 void *argp1 = 0 ;
8576 int res1 = 0 ;
8577 void *argp2 = 0 ;
8578 int res2 = 0 ;
8579 int res3 ;
8580 char *buf3 = 0 ;
8581 int alloc3 = 0 ;
8582 int argvi = 0;
8583 int result;
8584 dXSARGS;
8585
8586 if ((items < 3) || (items > 3)) {
8587 SWIG_croak("Usage: gsl_permutation_fprintf(stream,p,format);");
8588 }
8589 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_FILE, 0 | 0 );
8590 if (!SWIG_IsOK(res1)) {
8591 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_fprintf" "', argument " "1"" of type '" "FILE *""'");
8592 }
8593 arg1 = (FILE *)(argp1);
8594 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
8595 if (!SWIG_IsOK(res2)) {
8596 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_permutation_fprintf" "', argument " "2"" of type '" "gsl_permutation const *""'");
8597 }
8598 arg2 = (gsl_permutation *)(argp2);
8599 res3 = SWIG_AsCharPtrAndSize(ST(2), &buf3, NULL, &alloc3);
8600 if (!SWIG_IsOK(res3)) {
8601 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_permutation_fprintf" "', argument " "3"" of type '" "char const *""'");
8602 }
8603 arg3 = (char *)(buf3);
8604 result = (int)gsl_permutation_fprintf(arg1,(struct gsl_permutation_struct const *)arg2,(char const *)arg3);
8605 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8606
8607
8608 if (alloc3 == SWIG_NEWOBJ) free((char*)buf3);
8609 XSRETURN(argvi);
8610 fail:
8611
8612
8613 if (alloc3 == SWIG_NEWOBJ) free((char*)buf3);
8614 SWIG_croak_null();
8615 }
8616 }
8617
8618
XS(_wrap_gsl_permutation_size)8619 XS(_wrap_gsl_permutation_size) {
8620 {
8621 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
8622 void *argp1 = 0 ;
8623 int res1 = 0 ;
8624 int argvi = 0;
8625 size_t result;
8626 dXSARGS;
8627
8628 if ((items < 1) || (items > 1)) {
8629 SWIG_croak("Usage: gsl_permutation_size(p);");
8630 }
8631 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
8632 if (!SWIG_IsOK(res1)) {
8633 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_size" "', argument " "1"" of type '" "gsl_permutation const *""'");
8634 }
8635 arg1 = (gsl_permutation *)(argp1);
8636 result = gsl_permutation_size((struct gsl_permutation_struct const *)arg1);
8637 ST(argvi) = SWIG_From_size_t SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
8638
8639 XSRETURN(argvi);
8640 fail:
8641
8642 SWIG_croak_null();
8643 }
8644 }
8645
8646
XS(_wrap_gsl_permutation_data)8647 XS(_wrap_gsl_permutation_data) {
8648 {
8649 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
8650 void *argp1 = 0 ;
8651 int res1 = 0 ;
8652 int argvi = 0;
8653 size_t *result = 0 ;
8654 dXSARGS;
8655
8656 if ((items < 1) || (items > 1)) {
8657 SWIG_croak("Usage: gsl_permutation_data(p);");
8658 }
8659 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
8660 if (!SWIG_IsOK(res1)) {
8661 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_data" "', argument " "1"" of type '" "gsl_permutation const *""'");
8662 }
8663 arg1 = (gsl_permutation *)(argp1);
8664 result = (size_t *)gsl_permutation_data((struct gsl_permutation_struct const *)arg1);
8665 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_size_t, 0 | 0); argvi++ ;
8666
8667 XSRETURN(argvi);
8668 fail:
8669
8670 SWIG_croak_null();
8671 }
8672 }
8673
8674
XS(_wrap_gsl_permutation_swap)8675 XS(_wrap_gsl_permutation_swap) {
8676 {
8677 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
8678 size_t arg2 ;
8679 size_t arg3 ;
8680 void *argp1 = 0 ;
8681 int res1 = 0 ;
8682 size_t val2 ;
8683 int ecode2 = 0 ;
8684 size_t val3 ;
8685 int ecode3 = 0 ;
8686 int argvi = 0;
8687 int result;
8688 dXSARGS;
8689
8690 if ((items < 3) || (items > 3)) {
8691 SWIG_croak("Usage: gsl_permutation_swap(p,i,j);");
8692 }
8693 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
8694 if (!SWIG_IsOK(res1)) {
8695 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_swap" "', argument " "1"" of type '" "gsl_permutation *""'");
8696 }
8697 arg1 = (gsl_permutation *)(argp1);
8698 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
8699 if (!SWIG_IsOK(ecode2)) {
8700 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_permutation_swap" "', argument " "2"" of type '" "size_t""'");
8701 }
8702 arg2 = (size_t)(val2);
8703 ecode3 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
8704 if (!SWIG_IsOK(ecode3)) {
8705 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_permutation_swap" "', argument " "3"" of type '" "size_t""'");
8706 }
8707 arg3 = (size_t)(val3);
8708 result = (int)gsl_permutation_swap(arg1,arg2,arg3);
8709 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8710
8711
8712
8713 XSRETURN(argvi);
8714 fail:
8715
8716
8717
8718 SWIG_croak_null();
8719 }
8720 }
8721
8722
XS(_wrap_gsl_permutation_valid)8723 XS(_wrap_gsl_permutation_valid) {
8724 {
8725 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
8726 void *argp1 = 0 ;
8727 int res1 = 0 ;
8728 int argvi = 0;
8729 int result;
8730 dXSARGS;
8731
8732 if ((items < 1) || (items > 1)) {
8733 SWIG_croak("Usage: gsl_permutation_valid(p);");
8734 }
8735 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
8736 if (!SWIG_IsOK(res1)) {
8737 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_valid" "', argument " "1"" of type '" "gsl_permutation const *""'");
8738 }
8739 arg1 = (gsl_permutation *)(argp1);
8740 result = (int)gsl_permutation_valid((struct gsl_permutation_struct const *)arg1);
8741 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8742
8743 XSRETURN(argvi);
8744 fail:
8745
8746 SWIG_croak_null();
8747 }
8748 }
8749
8750
XS(_wrap_gsl_permutation_reverse)8751 XS(_wrap_gsl_permutation_reverse) {
8752 {
8753 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
8754 void *argp1 = 0 ;
8755 int res1 = 0 ;
8756 int argvi = 0;
8757 dXSARGS;
8758
8759 if ((items < 1) || (items > 1)) {
8760 SWIG_croak("Usage: gsl_permutation_reverse(p);");
8761 }
8762 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
8763 if (!SWIG_IsOK(res1)) {
8764 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_reverse" "', argument " "1"" of type '" "gsl_permutation *""'");
8765 }
8766 arg1 = (gsl_permutation *)(argp1);
8767 gsl_permutation_reverse(arg1);
8768 ST(argvi) = &PL_sv_undef;
8769
8770 XSRETURN(argvi);
8771 fail:
8772
8773 SWIG_croak_null();
8774 }
8775 }
8776
8777
XS(_wrap_gsl_permutation_inverse)8778 XS(_wrap_gsl_permutation_inverse) {
8779 {
8780 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
8781 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
8782 void *argp1 = 0 ;
8783 int res1 = 0 ;
8784 void *argp2 = 0 ;
8785 int res2 = 0 ;
8786 int argvi = 0;
8787 int result;
8788 dXSARGS;
8789
8790 if ((items < 2) || (items > 2)) {
8791 SWIG_croak("Usage: gsl_permutation_inverse(inv,p);");
8792 }
8793 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
8794 if (!SWIG_IsOK(res1)) {
8795 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_inverse" "', argument " "1"" of type '" "gsl_permutation *""'");
8796 }
8797 arg1 = (gsl_permutation *)(argp1);
8798 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
8799 if (!SWIG_IsOK(res2)) {
8800 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_permutation_inverse" "', argument " "2"" of type '" "gsl_permutation const *""'");
8801 }
8802 arg2 = (gsl_permutation *)(argp2);
8803 result = (int)gsl_permutation_inverse(arg1,(struct gsl_permutation_struct const *)arg2);
8804 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8805
8806
8807 XSRETURN(argvi);
8808 fail:
8809
8810
8811 SWIG_croak_null();
8812 }
8813 }
8814
8815
XS(_wrap_gsl_permutation_next)8816 XS(_wrap_gsl_permutation_next) {
8817 {
8818 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
8819 void *argp1 = 0 ;
8820 int res1 = 0 ;
8821 int argvi = 0;
8822 int result;
8823 dXSARGS;
8824
8825 if ((items < 1) || (items > 1)) {
8826 SWIG_croak("Usage: gsl_permutation_next(p);");
8827 }
8828 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
8829 if (!SWIG_IsOK(res1)) {
8830 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_next" "', argument " "1"" of type '" "gsl_permutation *""'");
8831 }
8832 arg1 = (gsl_permutation *)(argp1);
8833 result = (int)gsl_permutation_next(arg1);
8834 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8835
8836 XSRETURN(argvi);
8837 fail:
8838
8839 SWIG_croak_null();
8840 }
8841 }
8842
8843
XS(_wrap_gsl_permutation_prev)8844 XS(_wrap_gsl_permutation_prev) {
8845 {
8846 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
8847 void *argp1 = 0 ;
8848 int res1 = 0 ;
8849 int argvi = 0;
8850 int result;
8851 dXSARGS;
8852
8853 if ((items < 1) || (items > 1)) {
8854 SWIG_croak("Usage: gsl_permutation_prev(p);");
8855 }
8856 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
8857 if (!SWIG_IsOK(res1)) {
8858 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_prev" "', argument " "1"" of type '" "gsl_permutation *""'");
8859 }
8860 arg1 = (gsl_permutation *)(argp1);
8861 result = (int)gsl_permutation_prev(arg1);
8862 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8863
8864 XSRETURN(argvi);
8865 fail:
8866
8867 SWIG_croak_null();
8868 }
8869 }
8870
8871
XS(_wrap_gsl_permutation_mul)8872 XS(_wrap_gsl_permutation_mul) {
8873 {
8874 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
8875 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
8876 gsl_permutation *arg3 = (gsl_permutation *) 0 ;
8877 void *argp1 = 0 ;
8878 int res1 = 0 ;
8879 void *argp2 = 0 ;
8880 int res2 = 0 ;
8881 void *argp3 = 0 ;
8882 int res3 = 0 ;
8883 int argvi = 0;
8884 int result;
8885 dXSARGS;
8886
8887 if ((items < 3) || (items > 3)) {
8888 SWIG_croak("Usage: gsl_permutation_mul(p,pa,pb);");
8889 }
8890 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
8891 if (!SWIG_IsOK(res1)) {
8892 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_mul" "', argument " "1"" of type '" "gsl_permutation *""'");
8893 }
8894 arg1 = (gsl_permutation *)(argp1);
8895 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
8896 if (!SWIG_IsOK(res2)) {
8897 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_permutation_mul" "', argument " "2"" of type '" "gsl_permutation const *""'");
8898 }
8899 arg2 = (gsl_permutation *)(argp2);
8900 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
8901 if (!SWIG_IsOK(res3)) {
8902 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_permutation_mul" "', argument " "3"" of type '" "gsl_permutation const *""'");
8903 }
8904 arg3 = (gsl_permutation *)(argp3);
8905 result = (int)gsl_permutation_mul(arg1,(struct gsl_permutation_struct const *)arg2,(struct gsl_permutation_struct const *)arg3);
8906 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8907
8908
8909
8910 XSRETURN(argvi);
8911 fail:
8912
8913
8914
8915 SWIG_croak_null();
8916 }
8917 }
8918
8919
XS(_wrap_gsl_permutation_linear_to_canonical)8920 XS(_wrap_gsl_permutation_linear_to_canonical) {
8921 {
8922 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
8923 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
8924 void *argp1 = 0 ;
8925 int res1 = 0 ;
8926 void *argp2 = 0 ;
8927 int res2 = 0 ;
8928 int argvi = 0;
8929 int result;
8930 dXSARGS;
8931
8932 if ((items < 2) || (items > 2)) {
8933 SWIG_croak("Usage: gsl_permutation_linear_to_canonical(q,p);");
8934 }
8935 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
8936 if (!SWIG_IsOK(res1)) {
8937 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_linear_to_canonical" "', argument " "1"" of type '" "gsl_permutation *""'");
8938 }
8939 arg1 = (gsl_permutation *)(argp1);
8940 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
8941 if (!SWIG_IsOK(res2)) {
8942 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_permutation_linear_to_canonical" "', argument " "2"" of type '" "gsl_permutation const *""'");
8943 }
8944 arg2 = (gsl_permutation *)(argp2);
8945 result = (int)gsl_permutation_linear_to_canonical(arg1,(struct gsl_permutation_struct const *)arg2);
8946 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8947
8948
8949 XSRETURN(argvi);
8950 fail:
8951
8952
8953 SWIG_croak_null();
8954 }
8955 }
8956
8957
XS(_wrap_gsl_permutation_canonical_to_linear)8958 XS(_wrap_gsl_permutation_canonical_to_linear) {
8959 {
8960 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
8961 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
8962 void *argp1 = 0 ;
8963 int res1 = 0 ;
8964 void *argp2 = 0 ;
8965 int res2 = 0 ;
8966 int argvi = 0;
8967 int result;
8968 dXSARGS;
8969
8970 if ((items < 2) || (items > 2)) {
8971 SWIG_croak("Usage: gsl_permutation_canonical_to_linear(p,q);");
8972 }
8973 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
8974 if (!SWIG_IsOK(res1)) {
8975 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_canonical_to_linear" "', argument " "1"" of type '" "gsl_permutation *""'");
8976 }
8977 arg1 = (gsl_permutation *)(argp1);
8978 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
8979 if (!SWIG_IsOK(res2)) {
8980 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_permutation_canonical_to_linear" "', argument " "2"" of type '" "gsl_permutation const *""'");
8981 }
8982 arg2 = (gsl_permutation *)(argp2);
8983 result = (int)gsl_permutation_canonical_to_linear(arg1,(struct gsl_permutation_struct const *)arg2);
8984 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8985
8986
8987 XSRETURN(argvi);
8988 fail:
8989
8990
8991 SWIG_croak_null();
8992 }
8993 }
8994
8995
XS(_wrap_gsl_permutation_inversions)8996 XS(_wrap_gsl_permutation_inversions) {
8997 {
8998 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
8999 void *argp1 = 0 ;
9000 int res1 = 0 ;
9001 int argvi = 0;
9002 size_t result;
9003 dXSARGS;
9004
9005 if ((items < 1) || (items > 1)) {
9006 SWIG_croak("Usage: gsl_permutation_inversions(p);");
9007 }
9008 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
9009 if (!SWIG_IsOK(res1)) {
9010 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_inversions" "', argument " "1"" of type '" "gsl_permutation const *""'");
9011 }
9012 arg1 = (gsl_permutation *)(argp1);
9013 result = gsl_permutation_inversions((struct gsl_permutation_struct const *)arg1);
9014 ST(argvi) = SWIG_From_size_t SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
9015
9016 XSRETURN(argvi);
9017 fail:
9018
9019 SWIG_croak_null();
9020 }
9021 }
9022
9023
XS(_wrap_gsl_permutation_linear_cycles)9024 XS(_wrap_gsl_permutation_linear_cycles) {
9025 {
9026 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
9027 void *argp1 = 0 ;
9028 int res1 = 0 ;
9029 int argvi = 0;
9030 size_t result;
9031 dXSARGS;
9032
9033 if ((items < 1) || (items > 1)) {
9034 SWIG_croak("Usage: gsl_permutation_linear_cycles(p);");
9035 }
9036 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
9037 if (!SWIG_IsOK(res1)) {
9038 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_linear_cycles" "', argument " "1"" of type '" "gsl_permutation const *""'");
9039 }
9040 arg1 = (gsl_permutation *)(argp1);
9041 result = gsl_permutation_linear_cycles((struct gsl_permutation_struct const *)arg1);
9042 ST(argvi) = SWIG_From_size_t SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
9043
9044 XSRETURN(argvi);
9045 fail:
9046
9047 SWIG_croak_null();
9048 }
9049 }
9050
9051
XS(_wrap_gsl_permutation_canonical_cycles)9052 XS(_wrap_gsl_permutation_canonical_cycles) {
9053 {
9054 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
9055 void *argp1 = 0 ;
9056 int res1 = 0 ;
9057 int argvi = 0;
9058 size_t result;
9059 dXSARGS;
9060
9061 if ((items < 1) || (items > 1)) {
9062 SWIG_croak("Usage: gsl_permutation_canonical_cycles(q);");
9063 }
9064 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
9065 if (!SWIG_IsOK(res1)) {
9066 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_canonical_cycles" "', argument " "1"" of type '" "gsl_permutation const *""'");
9067 }
9068 arg1 = (gsl_permutation *)(argp1);
9069 result = gsl_permutation_canonical_cycles((struct gsl_permutation_struct const *)arg1);
9070 ST(argvi) = SWIG_From_size_t SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
9071
9072 XSRETURN(argvi);
9073 fail:
9074
9075 SWIG_croak_null();
9076 }
9077 }
9078
9079
XS(_wrap_gsl_permutation_get)9080 XS(_wrap_gsl_permutation_get) {
9081 {
9082 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
9083 size_t arg2 ;
9084 void *argp1 = 0 ;
9085 int res1 = 0 ;
9086 size_t val2 ;
9087 int ecode2 = 0 ;
9088 int argvi = 0;
9089 size_t result;
9090 dXSARGS;
9091
9092 if ((items < 2) || (items > 2)) {
9093 SWIG_croak("Usage: gsl_permutation_get(p,i);");
9094 }
9095 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
9096 if (!SWIG_IsOK(res1)) {
9097 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_get" "', argument " "1"" of type '" "gsl_permutation const *""'");
9098 }
9099 arg1 = (gsl_permutation *)(argp1);
9100 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
9101 if (!SWIG_IsOK(ecode2)) {
9102 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_permutation_get" "', argument " "2"" of type '" "size_t""'");
9103 }
9104 arg2 = (size_t)(val2);
9105 result = gsl_permutation_get((struct gsl_permutation_struct const *)arg1,arg2);
9106 ST(argvi) = SWIG_From_size_t SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
9107
9108
9109 XSRETURN(argvi);
9110 fail:
9111
9112
9113 SWIG_croak_null();
9114 }
9115 }
9116
9117
XS(_wrap_gsl_complex_dat_set)9118 XS(_wrap_gsl_complex_dat_set) {
9119 {
9120 gsl_complex *arg1 = (gsl_complex *) 0 ;
9121 double *arg2 ;
9122 void *argp1 = 0 ;
9123 int res1 = 0 ;
9124 void *argp2 = 0 ;
9125 int res2 = 0 ;
9126 int argvi = 0;
9127 dXSARGS;
9128
9129 if ((items < 2) || (items > 2)) {
9130 SWIG_croak("Usage: gsl_complex_dat_set(self,dat);");
9131 }
9132 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_complex, 0 | 0 );
9133 if (!SWIG_IsOK(res1)) {
9134 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_dat_set" "', argument " "1"" of type '" "gsl_complex *""'");
9135 }
9136 arg1 = (gsl_complex *)(argp1);
9137 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_double, 0 | 0 );
9138 if (!SWIG_IsOK(res2)) {
9139 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_complex_dat_set" "', argument " "2"" of type '" "double [2]""'");
9140 }
9141 arg2 = (double *)(argp2);
9142 {
9143 if (arg2) {
9144 size_t ii = 0;
9145 for (; ii < (size_t)2; ++ii) *(double *)&arg1->dat[ii] = *((double *)arg2 + ii);
9146 } else {
9147 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in variable '""dat""' of type '""double [2]""'");
9148 }
9149 }
9150 ST(argvi) = &PL_sv_undef;
9151
9152
9153 XSRETURN(argvi);
9154 fail:
9155
9156
9157 SWIG_croak_null();
9158 }
9159 }
9160
9161
XS(_wrap_gsl_complex_dat_get)9162 XS(_wrap_gsl_complex_dat_get) {
9163 {
9164 gsl_complex *arg1 = (gsl_complex *) 0 ;
9165 void *argp1 = 0 ;
9166 int res1 = 0 ;
9167 int argvi = 0;
9168 double *result = 0 ;
9169 dXSARGS;
9170
9171 if ((items < 1) || (items > 1)) {
9172 SWIG_croak("Usage: gsl_complex_dat_get(self);");
9173 }
9174 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_complex, 0 | 0 );
9175 if (!SWIG_IsOK(res1)) {
9176 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_dat_get" "', argument " "1"" of type '" "gsl_complex *""'");
9177 }
9178 arg1 = (gsl_complex *)(argp1);
9179 result = (double *)(double *) ((arg1)->dat);
9180 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_double, 0 | 0); argvi++ ;
9181
9182 XSRETURN(argvi);
9183 fail:
9184
9185 SWIG_croak_null();
9186 }
9187 }
9188
9189
XS(_wrap_new_gsl_complex)9190 XS(_wrap_new_gsl_complex) {
9191 {
9192 int argvi = 0;
9193 gsl_complex *result = 0 ;
9194 dXSARGS;
9195
9196 if ((items < 0) || (items > 0)) {
9197 SWIG_croak("Usage: new_gsl_complex();");
9198 }
9199 result = (gsl_complex *)calloc(1, sizeof(gsl_complex));
9200 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_complex, SWIG_OWNER | SWIG_SHADOW); argvi++ ;
9201 XSRETURN(argvi);
9202 fail:
9203 SWIG_croak_null();
9204 }
9205 }
9206
9207
XS(_wrap_delete_gsl_complex)9208 XS(_wrap_delete_gsl_complex) {
9209 {
9210 gsl_complex *arg1 = (gsl_complex *) 0 ;
9211 void *argp1 = 0 ;
9212 int res1 = 0 ;
9213 int argvi = 0;
9214 dXSARGS;
9215
9216 if ((items < 1) || (items > 1)) {
9217 SWIG_croak("Usage: delete_gsl_complex(self);");
9218 }
9219 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_complex, SWIG_POINTER_DISOWN | 0 );
9220 if (!SWIG_IsOK(res1)) {
9221 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "delete_gsl_complex" "', argument " "1"" of type '" "gsl_complex *""'");
9222 }
9223 arg1 = (gsl_complex *)(argp1);
9224 free((char *) arg1);
9225 ST(argvi) = &PL_sv_undef;
9226
9227 XSRETURN(argvi);
9228 fail:
9229
9230 SWIG_croak_null();
9231 }
9232 }
9233
9234
XS(_wrap_gsl_complex_long_double_dat_set)9235 XS(_wrap_gsl_complex_long_double_dat_set) {
9236 {
9237 gsl_complex_long_double *arg1 = (gsl_complex_long_double *) 0 ;
9238 long double *arg2 ;
9239 void *argp1 = 0 ;
9240 int res1 = 0 ;
9241 void *argp2 = 0 ;
9242 int res2 = 0 ;
9243 int argvi = 0;
9244 dXSARGS;
9245
9246 if ((items < 2) || (items > 2)) {
9247 SWIG_croak("Usage: gsl_complex_long_double_dat_set(self,dat);");
9248 }
9249 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_complex_long_double, 0 | 0 );
9250 if (!SWIG_IsOK(res1)) {
9251 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_long_double_dat_set" "', argument " "1"" of type '" "gsl_complex_long_double *""'");
9252 }
9253 arg1 = (gsl_complex_long_double *)(argp1);
9254 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_long_double, 0 | 0 );
9255 if (!SWIG_IsOK(res2)) {
9256 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_complex_long_double_dat_set" "', argument " "2"" of type '" "long double [2]""'");
9257 }
9258 arg2 = (long double *)(argp2);
9259 {
9260 if (arg2) {
9261 size_t ii = 0;
9262 for (; ii < (size_t)2; ++ii) *(long double *)&arg1->dat[ii] = *((long double *)arg2 + ii);
9263 } else {
9264 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in variable '""dat""' of type '""long double [2]""'");
9265 }
9266 }
9267 ST(argvi) = &PL_sv_undef;
9268
9269
9270 XSRETURN(argvi);
9271 fail:
9272
9273
9274 SWIG_croak_null();
9275 }
9276 }
9277
9278
XS(_wrap_gsl_complex_long_double_dat_get)9279 XS(_wrap_gsl_complex_long_double_dat_get) {
9280 {
9281 gsl_complex_long_double *arg1 = (gsl_complex_long_double *) 0 ;
9282 void *argp1 = 0 ;
9283 int res1 = 0 ;
9284 int argvi = 0;
9285 long double *result = 0 ;
9286 dXSARGS;
9287
9288 if ((items < 1) || (items > 1)) {
9289 SWIG_croak("Usage: gsl_complex_long_double_dat_get(self);");
9290 }
9291 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_complex_long_double, 0 | 0 );
9292 if (!SWIG_IsOK(res1)) {
9293 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_long_double_dat_get" "', argument " "1"" of type '" "gsl_complex_long_double *""'");
9294 }
9295 arg1 = (gsl_complex_long_double *)(argp1);
9296 result = (long double *)(long double *) ((arg1)->dat);
9297 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_long_double, 0 | 0); argvi++ ;
9298
9299 XSRETURN(argvi);
9300 fail:
9301
9302 SWIG_croak_null();
9303 }
9304 }
9305
9306
XS(_wrap_new_gsl_complex_long_double)9307 XS(_wrap_new_gsl_complex_long_double) {
9308 {
9309 int argvi = 0;
9310 gsl_complex_long_double *result = 0 ;
9311 dXSARGS;
9312
9313 if ((items < 0) || (items > 0)) {
9314 SWIG_croak("Usage: new_gsl_complex_long_double();");
9315 }
9316 result = (gsl_complex_long_double *)calloc(1, sizeof(gsl_complex_long_double));
9317 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_complex_long_double, SWIG_OWNER | SWIG_SHADOW); argvi++ ;
9318 XSRETURN(argvi);
9319 fail:
9320 SWIG_croak_null();
9321 }
9322 }
9323
9324
XS(_wrap_delete_gsl_complex_long_double)9325 XS(_wrap_delete_gsl_complex_long_double) {
9326 {
9327 gsl_complex_long_double *arg1 = (gsl_complex_long_double *) 0 ;
9328 void *argp1 = 0 ;
9329 int res1 = 0 ;
9330 int argvi = 0;
9331 dXSARGS;
9332
9333 if ((items < 1) || (items > 1)) {
9334 SWIG_croak("Usage: delete_gsl_complex_long_double(self);");
9335 }
9336 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_complex_long_double, SWIG_POINTER_DISOWN | 0 );
9337 if (!SWIG_IsOK(res1)) {
9338 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "delete_gsl_complex_long_double" "', argument " "1"" of type '" "gsl_complex_long_double *""'");
9339 }
9340 arg1 = (gsl_complex_long_double *)(argp1);
9341 free((char *) arg1);
9342 ST(argvi) = &PL_sv_undef;
9343
9344 XSRETURN(argvi);
9345 fail:
9346
9347 SWIG_croak_null();
9348 }
9349 }
9350
9351
XS(_wrap_gsl_complex_float_dat_set)9352 XS(_wrap_gsl_complex_float_dat_set) {
9353 {
9354 gsl_complex_float *arg1 = (gsl_complex_float *) 0 ;
9355 float *arg2 ;
9356 void *argp1 = 0 ;
9357 int res1 = 0 ;
9358 void *argp2 = 0 ;
9359 int res2 = 0 ;
9360 int argvi = 0;
9361 dXSARGS;
9362
9363 if ((items < 2) || (items > 2)) {
9364 SWIG_croak("Usage: gsl_complex_float_dat_set(self,dat);");
9365 }
9366 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_complex_float, 0 | 0 );
9367 if (!SWIG_IsOK(res1)) {
9368 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_float_dat_set" "', argument " "1"" of type '" "gsl_complex_float *""'");
9369 }
9370 arg1 = (gsl_complex_float *)(argp1);
9371 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_float, 0 | 0 );
9372 if (!SWIG_IsOK(res2)) {
9373 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_complex_float_dat_set" "', argument " "2"" of type '" "float [2]""'");
9374 }
9375 arg2 = (float *)(argp2);
9376 {
9377 if (arg2) {
9378 size_t ii = 0;
9379 for (; ii < (size_t)2; ++ii) *(float *)&arg1->dat[ii] = *((float *)arg2 + ii);
9380 } else {
9381 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in variable '""dat""' of type '""float [2]""'");
9382 }
9383 }
9384 ST(argvi) = &PL_sv_undef;
9385
9386
9387 XSRETURN(argvi);
9388 fail:
9389
9390
9391 SWIG_croak_null();
9392 }
9393 }
9394
9395
XS(_wrap_gsl_complex_float_dat_get)9396 XS(_wrap_gsl_complex_float_dat_get) {
9397 {
9398 gsl_complex_float *arg1 = (gsl_complex_float *) 0 ;
9399 void *argp1 = 0 ;
9400 int res1 = 0 ;
9401 int argvi = 0;
9402 float *result = 0 ;
9403 dXSARGS;
9404
9405 if ((items < 1) || (items > 1)) {
9406 SWIG_croak("Usage: gsl_complex_float_dat_get(self);");
9407 }
9408 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_complex_float, 0 | 0 );
9409 if (!SWIG_IsOK(res1)) {
9410 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_float_dat_get" "', argument " "1"" of type '" "gsl_complex_float *""'");
9411 }
9412 arg1 = (gsl_complex_float *)(argp1);
9413 result = (float *)(float *) ((arg1)->dat);
9414 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_float, 0 | 0); argvi++ ;
9415
9416 XSRETURN(argvi);
9417 fail:
9418
9419 SWIG_croak_null();
9420 }
9421 }
9422
9423
XS(_wrap_new_gsl_complex_float)9424 XS(_wrap_new_gsl_complex_float) {
9425 {
9426 int argvi = 0;
9427 gsl_complex_float *result = 0 ;
9428 dXSARGS;
9429
9430 if ((items < 0) || (items > 0)) {
9431 SWIG_croak("Usage: new_gsl_complex_float();");
9432 }
9433 result = (gsl_complex_float *)calloc(1, sizeof(gsl_complex_float));
9434 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_complex_float, SWIG_OWNER | SWIG_SHADOW); argvi++ ;
9435 XSRETURN(argvi);
9436 fail:
9437 SWIG_croak_null();
9438 }
9439 }
9440
9441
XS(_wrap_delete_gsl_complex_float)9442 XS(_wrap_delete_gsl_complex_float) {
9443 {
9444 gsl_complex_float *arg1 = (gsl_complex_float *) 0 ;
9445 void *argp1 = 0 ;
9446 int res1 = 0 ;
9447 int argvi = 0;
9448 dXSARGS;
9449
9450 if ((items < 1) || (items > 1)) {
9451 SWIG_croak("Usage: delete_gsl_complex_float(self);");
9452 }
9453 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_complex_float, SWIG_POINTER_DISOWN | 0 );
9454 if (!SWIG_IsOK(res1)) {
9455 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "delete_gsl_complex_float" "', argument " "1"" of type '" "gsl_complex_float *""'");
9456 }
9457 arg1 = (gsl_complex_float *)(argp1);
9458 free((char *) arg1);
9459 ST(argvi) = &PL_sv_undef;
9460
9461 XSRETURN(argvi);
9462 fail:
9463
9464 SWIG_croak_null();
9465 }
9466 }
9467
9468
XS(_wrap_gsl_complex_polar)9469 XS(_wrap_gsl_complex_polar) {
9470 {
9471 double arg1 ;
9472 double arg2 ;
9473 double val1 ;
9474 int ecode1 = 0 ;
9475 double val2 ;
9476 int ecode2 = 0 ;
9477 int argvi = 0;
9478 gsl_complex result;
9479 dXSARGS;
9480
9481 if ((items < 2) || (items > 2)) {
9482 SWIG_croak("Usage: gsl_complex_polar(r,theta);");
9483 }
9484 ecode1 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
9485 if (!SWIG_IsOK(ecode1)) {
9486 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_complex_polar" "', argument " "1"" of type '" "double""'");
9487 }
9488 arg1 = (double)(val1);
9489 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
9490 if (!SWIG_IsOK(ecode2)) {
9491 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_complex_polar" "', argument " "2"" of type '" "double""'");
9492 }
9493 arg2 = (double)(val2);
9494 result = gsl_complex_polar(arg1,arg2);
9495 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
9496
9497
9498 XSRETURN(argvi);
9499 fail:
9500
9501
9502 SWIG_croak_null();
9503 }
9504 }
9505
9506
XS(_wrap_gsl_complex_rect)9507 XS(_wrap_gsl_complex_rect) {
9508 {
9509 double arg1 ;
9510 double arg2 ;
9511 double val1 ;
9512 int ecode1 = 0 ;
9513 double val2 ;
9514 int ecode2 = 0 ;
9515 int argvi = 0;
9516 gsl_complex result;
9517 dXSARGS;
9518
9519 if ((items < 2) || (items > 2)) {
9520 SWIG_croak("Usage: gsl_complex_rect(x,y);");
9521 }
9522 ecode1 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
9523 if (!SWIG_IsOK(ecode1)) {
9524 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_complex_rect" "', argument " "1"" of type '" "double""'");
9525 }
9526 arg1 = (double)(val1);
9527 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
9528 if (!SWIG_IsOK(ecode2)) {
9529 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_complex_rect" "', argument " "2"" of type '" "double""'");
9530 }
9531 arg2 = (double)(val2);
9532 result = gsl_complex_rect(arg1,arg2);
9533 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
9534
9535
9536 XSRETURN(argvi);
9537 fail:
9538
9539
9540 SWIG_croak_null();
9541 }
9542 }
9543
9544
XS(_wrap_gsl_complex_arg)9545 XS(_wrap_gsl_complex_arg) {
9546 {
9547 gsl_complex arg1 ;
9548 void *argp1 ;
9549 int res1 = 0 ;
9550 int argvi = 0;
9551 double result;
9552 dXSARGS;
9553
9554 if ((items < 1) || (items > 1)) {
9555 SWIG_croak("Usage: gsl_complex_arg(z);");
9556 }
9557 {
9558 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
9559 if (!SWIG_IsOK(res1)) {
9560 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_arg" "', argument " "1"" of type '" "gsl_complex""'");
9561 }
9562 if (!argp1) {
9563 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_arg" "', argument " "1"" of type '" "gsl_complex""'");
9564 } else {
9565 arg1 = *((gsl_complex *)(argp1));
9566 }
9567 }
9568 result = (double)gsl_complex_arg(arg1);
9569 ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(result)); argvi++ ;
9570 XSRETURN(argvi);
9571 fail:
9572 SWIG_croak_null();
9573 }
9574 }
9575
9576
XS(_wrap_gsl_complex_abs)9577 XS(_wrap_gsl_complex_abs) {
9578 {
9579 gsl_complex arg1 ;
9580 void *argp1 ;
9581 int res1 = 0 ;
9582 int argvi = 0;
9583 double result;
9584 dXSARGS;
9585
9586 if ((items < 1) || (items > 1)) {
9587 SWIG_croak("Usage: gsl_complex_abs(z);");
9588 }
9589 {
9590 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
9591 if (!SWIG_IsOK(res1)) {
9592 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_abs" "', argument " "1"" of type '" "gsl_complex""'");
9593 }
9594 if (!argp1) {
9595 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_abs" "', argument " "1"" of type '" "gsl_complex""'");
9596 } else {
9597 arg1 = *((gsl_complex *)(argp1));
9598 }
9599 }
9600 result = (double)gsl_complex_abs(arg1);
9601 ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(result)); argvi++ ;
9602 XSRETURN(argvi);
9603 fail:
9604 SWIG_croak_null();
9605 }
9606 }
9607
9608
XS(_wrap_gsl_complex_abs2)9609 XS(_wrap_gsl_complex_abs2) {
9610 {
9611 gsl_complex arg1 ;
9612 void *argp1 ;
9613 int res1 = 0 ;
9614 int argvi = 0;
9615 double result;
9616 dXSARGS;
9617
9618 if ((items < 1) || (items > 1)) {
9619 SWIG_croak("Usage: gsl_complex_abs2(z);");
9620 }
9621 {
9622 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
9623 if (!SWIG_IsOK(res1)) {
9624 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_abs2" "', argument " "1"" of type '" "gsl_complex""'");
9625 }
9626 if (!argp1) {
9627 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_abs2" "', argument " "1"" of type '" "gsl_complex""'");
9628 } else {
9629 arg1 = *((gsl_complex *)(argp1));
9630 }
9631 }
9632 result = (double)gsl_complex_abs2(arg1);
9633 ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(result)); argvi++ ;
9634 XSRETURN(argvi);
9635 fail:
9636 SWIG_croak_null();
9637 }
9638 }
9639
9640
XS(_wrap_gsl_complex_logabs)9641 XS(_wrap_gsl_complex_logabs) {
9642 {
9643 gsl_complex arg1 ;
9644 void *argp1 ;
9645 int res1 = 0 ;
9646 int argvi = 0;
9647 double result;
9648 dXSARGS;
9649
9650 if ((items < 1) || (items > 1)) {
9651 SWIG_croak("Usage: gsl_complex_logabs(z);");
9652 }
9653 {
9654 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
9655 if (!SWIG_IsOK(res1)) {
9656 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_logabs" "', argument " "1"" of type '" "gsl_complex""'");
9657 }
9658 if (!argp1) {
9659 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_logabs" "', argument " "1"" of type '" "gsl_complex""'");
9660 } else {
9661 arg1 = *((gsl_complex *)(argp1));
9662 }
9663 }
9664 result = (double)gsl_complex_logabs(arg1);
9665 ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(result)); argvi++ ;
9666 XSRETURN(argvi);
9667 fail:
9668 SWIG_croak_null();
9669 }
9670 }
9671
9672
XS(_wrap_gsl_complex_add)9673 XS(_wrap_gsl_complex_add) {
9674 {
9675 gsl_complex arg1 ;
9676 gsl_complex arg2 ;
9677 void *argp1 ;
9678 int res1 = 0 ;
9679 void *argp2 ;
9680 int res2 = 0 ;
9681 int argvi = 0;
9682 gsl_complex result;
9683 dXSARGS;
9684
9685 if ((items < 2) || (items > 2)) {
9686 SWIG_croak("Usage: gsl_complex_add(a,b);");
9687 }
9688 {
9689 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
9690 if (!SWIG_IsOK(res1)) {
9691 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_add" "', argument " "1"" of type '" "gsl_complex""'");
9692 }
9693 if (!argp1) {
9694 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_add" "', argument " "1"" of type '" "gsl_complex""'");
9695 } else {
9696 arg1 = *((gsl_complex *)(argp1));
9697 }
9698 }
9699 {
9700 res2 = SWIG_ConvertPtr(ST(1), &argp2, SWIGTYPE_p_gsl_complex, 0 );
9701 if (!SWIG_IsOK(res2)) {
9702 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_complex_add" "', argument " "2"" of type '" "gsl_complex""'");
9703 }
9704 if (!argp2) {
9705 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_add" "', argument " "2"" of type '" "gsl_complex""'");
9706 } else {
9707 arg2 = *((gsl_complex *)(argp2));
9708 }
9709 }
9710 result = gsl_complex_add(arg1,arg2);
9711 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
9712 XSRETURN(argvi);
9713 fail:
9714 SWIG_croak_null();
9715 }
9716 }
9717
9718
XS(_wrap_gsl_complex_sub)9719 XS(_wrap_gsl_complex_sub) {
9720 {
9721 gsl_complex arg1 ;
9722 gsl_complex arg2 ;
9723 void *argp1 ;
9724 int res1 = 0 ;
9725 void *argp2 ;
9726 int res2 = 0 ;
9727 int argvi = 0;
9728 gsl_complex result;
9729 dXSARGS;
9730
9731 if ((items < 2) || (items > 2)) {
9732 SWIG_croak("Usage: gsl_complex_sub(a,b);");
9733 }
9734 {
9735 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
9736 if (!SWIG_IsOK(res1)) {
9737 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_sub" "', argument " "1"" of type '" "gsl_complex""'");
9738 }
9739 if (!argp1) {
9740 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_sub" "', argument " "1"" of type '" "gsl_complex""'");
9741 } else {
9742 arg1 = *((gsl_complex *)(argp1));
9743 }
9744 }
9745 {
9746 res2 = SWIG_ConvertPtr(ST(1), &argp2, SWIGTYPE_p_gsl_complex, 0 );
9747 if (!SWIG_IsOK(res2)) {
9748 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_complex_sub" "', argument " "2"" of type '" "gsl_complex""'");
9749 }
9750 if (!argp2) {
9751 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_sub" "', argument " "2"" of type '" "gsl_complex""'");
9752 } else {
9753 arg2 = *((gsl_complex *)(argp2));
9754 }
9755 }
9756 result = gsl_complex_sub(arg1,arg2);
9757 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
9758 XSRETURN(argvi);
9759 fail:
9760 SWIG_croak_null();
9761 }
9762 }
9763
9764
XS(_wrap_gsl_complex_mul)9765 XS(_wrap_gsl_complex_mul) {
9766 {
9767 gsl_complex arg1 ;
9768 gsl_complex arg2 ;
9769 void *argp1 ;
9770 int res1 = 0 ;
9771 void *argp2 ;
9772 int res2 = 0 ;
9773 int argvi = 0;
9774 gsl_complex result;
9775 dXSARGS;
9776
9777 if ((items < 2) || (items > 2)) {
9778 SWIG_croak("Usage: gsl_complex_mul(a,b);");
9779 }
9780 {
9781 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
9782 if (!SWIG_IsOK(res1)) {
9783 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_mul" "', argument " "1"" of type '" "gsl_complex""'");
9784 }
9785 if (!argp1) {
9786 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_mul" "', argument " "1"" of type '" "gsl_complex""'");
9787 } else {
9788 arg1 = *((gsl_complex *)(argp1));
9789 }
9790 }
9791 {
9792 res2 = SWIG_ConvertPtr(ST(1), &argp2, SWIGTYPE_p_gsl_complex, 0 );
9793 if (!SWIG_IsOK(res2)) {
9794 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_complex_mul" "', argument " "2"" of type '" "gsl_complex""'");
9795 }
9796 if (!argp2) {
9797 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_mul" "', argument " "2"" of type '" "gsl_complex""'");
9798 } else {
9799 arg2 = *((gsl_complex *)(argp2));
9800 }
9801 }
9802 result = gsl_complex_mul(arg1,arg2);
9803 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
9804 XSRETURN(argvi);
9805 fail:
9806 SWIG_croak_null();
9807 }
9808 }
9809
9810
XS(_wrap_gsl_complex_div)9811 XS(_wrap_gsl_complex_div) {
9812 {
9813 gsl_complex arg1 ;
9814 gsl_complex arg2 ;
9815 void *argp1 ;
9816 int res1 = 0 ;
9817 void *argp2 ;
9818 int res2 = 0 ;
9819 int argvi = 0;
9820 gsl_complex result;
9821 dXSARGS;
9822
9823 if ((items < 2) || (items > 2)) {
9824 SWIG_croak("Usage: gsl_complex_div(a,b);");
9825 }
9826 {
9827 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
9828 if (!SWIG_IsOK(res1)) {
9829 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_div" "', argument " "1"" of type '" "gsl_complex""'");
9830 }
9831 if (!argp1) {
9832 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_div" "', argument " "1"" of type '" "gsl_complex""'");
9833 } else {
9834 arg1 = *((gsl_complex *)(argp1));
9835 }
9836 }
9837 {
9838 res2 = SWIG_ConvertPtr(ST(1), &argp2, SWIGTYPE_p_gsl_complex, 0 );
9839 if (!SWIG_IsOK(res2)) {
9840 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_complex_div" "', argument " "2"" of type '" "gsl_complex""'");
9841 }
9842 if (!argp2) {
9843 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_div" "', argument " "2"" of type '" "gsl_complex""'");
9844 } else {
9845 arg2 = *((gsl_complex *)(argp2));
9846 }
9847 }
9848 result = gsl_complex_div(arg1,arg2);
9849 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
9850 XSRETURN(argvi);
9851 fail:
9852 SWIG_croak_null();
9853 }
9854 }
9855
9856
XS(_wrap_gsl_complex_add_real)9857 XS(_wrap_gsl_complex_add_real) {
9858 {
9859 gsl_complex arg1 ;
9860 double arg2 ;
9861 void *argp1 ;
9862 int res1 = 0 ;
9863 double val2 ;
9864 int ecode2 = 0 ;
9865 int argvi = 0;
9866 gsl_complex result;
9867 dXSARGS;
9868
9869 if ((items < 2) || (items > 2)) {
9870 SWIG_croak("Usage: gsl_complex_add_real(a,x);");
9871 }
9872 {
9873 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
9874 if (!SWIG_IsOK(res1)) {
9875 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_add_real" "', argument " "1"" of type '" "gsl_complex""'");
9876 }
9877 if (!argp1) {
9878 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_add_real" "', argument " "1"" of type '" "gsl_complex""'");
9879 } else {
9880 arg1 = *((gsl_complex *)(argp1));
9881 }
9882 }
9883 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
9884 if (!SWIG_IsOK(ecode2)) {
9885 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_complex_add_real" "', argument " "2"" of type '" "double""'");
9886 }
9887 arg2 = (double)(val2);
9888 result = gsl_complex_add_real(arg1,arg2);
9889 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
9890
9891 XSRETURN(argvi);
9892 fail:
9893
9894 SWIG_croak_null();
9895 }
9896 }
9897
9898
XS(_wrap_gsl_complex_sub_real)9899 XS(_wrap_gsl_complex_sub_real) {
9900 {
9901 gsl_complex arg1 ;
9902 double arg2 ;
9903 void *argp1 ;
9904 int res1 = 0 ;
9905 double val2 ;
9906 int ecode2 = 0 ;
9907 int argvi = 0;
9908 gsl_complex result;
9909 dXSARGS;
9910
9911 if ((items < 2) || (items > 2)) {
9912 SWIG_croak("Usage: gsl_complex_sub_real(a,x);");
9913 }
9914 {
9915 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
9916 if (!SWIG_IsOK(res1)) {
9917 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_sub_real" "', argument " "1"" of type '" "gsl_complex""'");
9918 }
9919 if (!argp1) {
9920 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_sub_real" "', argument " "1"" of type '" "gsl_complex""'");
9921 } else {
9922 arg1 = *((gsl_complex *)(argp1));
9923 }
9924 }
9925 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
9926 if (!SWIG_IsOK(ecode2)) {
9927 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_complex_sub_real" "', argument " "2"" of type '" "double""'");
9928 }
9929 arg2 = (double)(val2);
9930 result = gsl_complex_sub_real(arg1,arg2);
9931 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
9932
9933 XSRETURN(argvi);
9934 fail:
9935
9936 SWIG_croak_null();
9937 }
9938 }
9939
9940
XS(_wrap_gsl_complex_mul_real)9941 XS(_wrap_gsl_complex_mul_real) {
9942 {
9943 gsl_complex arg1 ;
9944 double arg2 ;
9945 void *argp1 ;
9946 int res1 = 0 ;
9947 double val2 ;
9948 int ecode2 = 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_real(a,x);");
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_real" "', argument " "1"" of type '" "gsl_complex""'");
9960 }
9961 if (!argp1) {
9962 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_mul_real" "', argument " "1"" of type '" "gsl_complex""'");
9963 } else {
9964 arg1 = *((gsl_complex *)(argp1));
9965 }
9966 }
9967 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
9968 if (!SWIG_IsOK(ecode2)) {
9969 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_complex_mul_real" "', argument " "2"" of type '" "double""'");
9970 }
9971 arg2 = (double)(val2);
9972 result = gsl_complex_mul_real(arg1,arg2);
9973 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
9974
9975 XSRETURN(argvi);
9976 fail:
9977
9978 SWIG_croak_null();
9979 }
9980 }
9981
9982
XS(_wrap_gsl_complex_div_real)9983 XS(_wrap_gsl_complex_div_real) {
9984 {
9985 gsl_complex arg1 ;
9986 double arg2 ;
9987 void *argp1 ;
9988 int res1 = 0 ;
9989 double val2 ;
9990 int ecode2 = 0 ;
9991 int argvi = 0;
9992 gsl_complex result;
9993 dXSARGS;
9994
9995 if ((items < 2) || (items > 2)) {
9996 SWIG_croak("Usage: gsl_complex_div_real(a,x);");
9997 }
9998 {
9999 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
10000 if (!SWIG_IsOK(res1)) {
10001 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_div_real" "', argument " "1"" of type '" "gsl_complex""'");
10002 }
10003 if (!argp1) {
10004 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_div_real" "', argument " "1"" of type '" "gsl_complex""'");
10005 } else {
10006 arg1 = *((gsl_complex *)(argp1));
10007 }
10008 }
10009 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
10010 if (!SWIG_IsOK(ecode2)) {
10011 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_complex_div_real" "', argument " "2"" of type '" "double""'");
10012 }
10013 arg2 = (double)(val2);
10014 result = gsl_complex_div_real(arg1,arg2);
10015 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
10016
10017 XSRETURN(argvi);
10018 fail:
10019
10020 SWIG_croak_null();
10021 }
10022 }
10023
10024
XS(_wrap_gsl_complex_add_imag)10025 XS(_wrap_gsl_complex_add_imag) {
10026 {
10027 gsl_complex arg1 ;
10028 double arg2 ;
10029 void *argp1 ;
10030 int res1 = 0 ;
10031 double val2 ;
10032 int ecode2 = 0 ;
10033 int argvi = 0;
10034 gsl_complex result;
10035 dXSARGS;
10036
10037 if ((items < 2) || (items > 2)) {
10038 SWIG_croak("Usage: gsl_complex_add_imag(a,y);");
10039 }
10040 {
10041 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
10042 if (!SWIG_IsOK(res1)) {
10043 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_add_imag" "', argument " "1"" of type '" "gsl_complex""'");
10044 }
10045 if (!argp1) {
10046 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_add_imag" "', argument " "1"" of type '" "gsl_complex""'");
10047 } else {
10048 arg1 = *((gsl_complex *)(argp1));
10049 }
10050 }
10051 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
10052 if (!SWIG_IsOK(ecode2)) {
10053 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_complex_add_imag" "', argument " "2"" of type '" "double""'");
10054 }
10055 arg2 = (double)(val2);
10056 result = gsl_complex_add_imag(arg1,arg2);
10057 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
10058
10059 XSRETURN(argvi);
10060 fail:
10061
10062 SWIG_croak_null();
10063 }
10064 }
10065
10066
XS(_wrap_gsl_complex_sub_imag)10067 XS(_wrap_gsl_complex_sub_imag) {
10068 {
10069 gsl_complex arg1 ;
10070 double arg2 ;
10071 void *argp1 ;
10072 int res1 = 0 ;
10073 double val2 ;
10074 int ecode2 = 0 ;
10075 int argvi = 0;
10076 gsl_complex result;
10077 dXSARGS;
10078
10079 if ((items < 2) || (items > 2)) {
10080 SWIG_croak("Usage: gsl_complex_sub_imag(a,y);");
10081 }
10082 {
10083 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
10084 if (!SWIG_IsOK(res1)) {
10085 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_sub_imag" "', argument " "1"" of type '" "gsl_complex""'");
10086 }
10087 if (!argp1) {
10088 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_sub_imag" "', argument " "1"" of type '" "gsl_complex""'");
10089 } else {
10090 arg1 = *((gsl_complex *)(argp1));
10091 }
10092 }
10093 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
10094 if (!SWIG_IsOK(ecode2)) {
10095 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_complex_sub_imag" "', argument " "2"" of type '" "double""'");
10096 }
10097 arg2 = (double)(val2);
10098 result = gsl_complex_sub_imag(arg1,arg2);
10099 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
10100
10101 XSRETURN(argvi);
10102 fail:
10103
10104 SWIG_croak_null();
10105 }
10106 }
10107
10108
XS(_wrap_gsl_complex_mul_imag)10109 XS(_wrap_gsl_complex_mul_imag) {
10110 {
10111 gsl_complex arg1 ;
10112 double arg2 ;
10113 void *argp1 ;
10114 int res1 = 0 ;
10115 double val2 ;
10116 int ecode2 = 0 ;
10117 int argvi = 0;
10118 gsl_complex result;
10119 dXSARGS;
10120
10121 if ((items < 2) || (items > 2)) {
10122 SWIG_croak("Usage: gsl_complex_mul_imag(a,y);");
10123 }
10124 {
10125 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
10126 if (!SWIG_IsOK(res1)) {
10127 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_mul_imag" "', argument " "1"" of type '" "gsl_complex""'");
10128 }
10129 if (!argp1) {
10130 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_mul_imag" "', argument " "1"" of type '" "gsl_complex""'");
10131 } else {
10132 arg1 = *((gsl_complex *)(argp1));
10133 }
10134 }
10135 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
10136 if (!SWIG_IsOK(ecode2)) {
10137 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_complex_mul_imag" "', argument " "2"" of type '" "double""'");
10138 }
10139 arg2 = (double)(val2);
10140 result = gsl_complex_mul_imag(arg1,arg2);
10141 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
10142
10143 XSRETURN(argvi);
10144 fail:
10145
10146 SWIG_croak_null();
10147 }
10148 }
10149
10150
XS(_wrap_gsl_complex_div_imag)10151 XS(_wrap_gsl_complex_div_imag) {
10152 {
10153 gsl_complex arg1 ;
10154 double arg2 ;
10155 void *argp1 ;
10156 int res1 = 0 ;
10157 double val2 ;
10158 int ecode2 = 0 ;
10159 int argvi = 0;
10160 gsl_complex result;
10161 dXSARGS;
10162
10163 if ((items < 2) || (items > 2)) {
10164 SWIG_croak("Usage: gsl_complex_div_imag(a,y);");
10165 }
10166 {
10167 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
10168 if (!SWIG_IsOK(res1)) {
10169 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_div_imag" "', argument " "1"" of type '" "gsl_complex""'");
10170 }
10171 if (!argp1) {
10172 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_div_imag" "', argument " "1"" of type '" "gsl_complex""'");
10173 } else {
10174 arg1 = *((gsl_complex *)(argp1));
10175 }
10176 }
10177 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
10178 if (!SWIG_IsOK(ecode2)) {
10179 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_complex_div_imag" "', argument " "2"" of type '" "double""'");
10180 }
10181 arg2 = (double)(val2);
10182 result = gsl_complex_div_imag(arg1,arg2);
10183 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
10184
10185 XSRETURN(argvi);
10186 fail:
10187
10188 SWIG_croak_null();
10189 }
10190 }
10191
10192
XS(_wrap_gsl_complex_conjugate)10193 XS(_wrap_gsl_complex_conjugate) {
10194 {
10195 gsl_complex arg1 ;
10196 void *argp1 ;
10197 int res1 = 0 ;
10198 int argvi = 0;
10199 gsl_complex result;
10200 dXSARGS;
10201
10202 if ((items < 1) || (items > 1)) {
10203 SWIG_croak("Usage: gsl_complex_conjugate(z);");
10204 }
10205 {
10206 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
10207 if (!SWIG_IsOK(res1)) {
10208 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_conjugate" "', argument " "1"" of type '" "gsl_complex""'");
10209 }
10210 if (!argp1) {
10211 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_conjugate" "', argument " "1"" of type '" "gsl_complex""'");
10212 } else {
10213 arg1 = *((gsl_complex *)(argp1));
10214 }
10215 }
10216 result = gsl_complex_conjugate(arg1);
10217 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
10218 XSRETURN(argvi);
10219 fail:
10220 SWIG_croak_null();
10221 }
10222 }
10223
10224
XS(_wrap_gsl_complex_inverse)10225 XS(_wrap_gsl_complex_inverse) {
10226 {
10227 gsl_complex arg1 ;
10228 void *argp1 ;
10229 int res1 = 0 ;
10230 int argvi = 0;
10231 gsl_complex result;
10232 dXSARGS;
10233
10234 if ((items < 1) || (items > 1)) {
10235 SWIG_croak("Usage: gsl_complex_inverse(a);");
10236 }
10237 {
10238 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
10239 if (!SWIG_IsOK(res1)) {
10240 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_inverse" "', argument " "1"" of type '" "gsl_complex""'");
10241 }
10242 if (!argp1) {
10243 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_inverse" "', argument " "1"" of type '" "gsl_complex""'");
10244 } else {
10245 arg1 = *((gsl_complex *)(argp1));
10246 }
10247 }
10248 result = gsl_complex_inverse(arg1);
10249 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
10250 XSRETURN(argvi);
10251 fail:
10252 SWIG_croak_null();
10253 }
10254 }
10255
10256
XS(_wrap_gsl_complex_negative)10257 XS(_wrap_gsl_complex_negative) {
10258 {
10259 gsl_complex arg1 ;
10260 void *argp1 ;
10261 int res1 = 0 ;
10262 int argvi = 0;
10263 gsl_complex result;
10264 dXSARGS;
10265
10266 if ((items < 1) || (items > 1)) {
10267 SWIG_croak("Usage: gsl_complex_negative(a);");
10268 }
10269 {
10270 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
10271 if (!SWIG_IsOK(res1)) {
10272 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_negative" "', argument " "1"" of type '" "gsl_complex""'");
10273 }
10274 if (!argp1) {
10275 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_negative" "', argument " "1"" of type '" "gsl_complex""'");
10276 } else {
10277 arg1 = *((gsl_complex *)(argp1));
10278 }
10279 }
10280 result = gsl_complex_negative(arg1);
10281 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
10282 XSRETURN(argvi);
10283 fail:
10284 SWIG_croak_null();
10285 }
10286 }
10287
10288
XS(_wrap_gsl_complex_sqrt)10289 XS(_wrap_gsl_complex_sqrt) {
10290 {
10291 gsl_complex arg1 ;
10292 void *argp1 ;
10293 int res1 = 0 ;
10294 int argvi = 0;
10295 gsl_complex result;
10296 dXSARGS;
10297
10298 if ((items < 1) || (items > 1)) {
10299 SWIG_croak("Usage: gsl_complex_sqrt(z);");
10300 }
10301 {
10302 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
10303 if (!SWIG_IsOK(res1)) {
10304 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_sqrt" "', argument " "1"" of type '" "gsl_complex""'");
10305 }
10306 if (!argp1) {
10307 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_sqrt" "', argument " "1"" of type '" "gsl_complex""'");
10308 } else {
10309 arg1 = *((gsl_complex *)(argp1));
10310 }
10311 }
10312 result = gsl_complex_sqrt(arg1);
10313 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
10314 XSRETURN(argvi);
10315 fail:
10316 SWIG_croak_null();
10317 }
10318 }
10319
10320
XS(_wrap_gsl_complex_sqrt_real)10321 XS(_wrap_gsl_complex_sqrt_real) {
10322 {
10323 double arg1 ;
10324 double val1 ;
10325 int ecode1 = 0 ;
10326 int argvi = 0;
10327 gsl_complex result;
10328 dXSARGS;
10329
10330 if ((items < 1) || (items > 1)) {
10331 SWIG_croak("Usage: gsl_complex_sqrt_real(x);");
10332 }
10333 ecode1 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
10334 if (!SWIG_IsOK(ecode1)) {
10335 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_complex_sqrt_real" "', argument " "1"" of type '" "double""'");
10336 }
10337 arg1 = (double)(val1);
10338 result = gsl_complex_sqrt_real(arg1);
10339 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
10340
10341 XSRETURN(argvi);
10342 fail:
10343
10344 SWIG_croak_null();
10345 }
10346 }
10347
10348
XS(_wrap_gsl_complex_pow)10349 XS(_wrap_gsl_complex_pow) {
10350 {
10351 gsl_complex arg1 ;
10352 gsl_complex arg2 ;
10353 void *argp1 ;
10354 int res1 = 0 ;
10355 void *argp2 ;
10356 int res2 = 0 ;
10357 int argvi = 0;
10358 gsl_complex result;
10359 dXSARGS;
10360
10361 if ((items < 2) || (items > 2)) {
10362 SWIG_croak("Usage: gsl_complex_pow(a,b);");
10363 }
10364 {
10365 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
10366 if (!SWIG_IsOK(res1)) {
10367 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_pow" "', argument " "1"" of type '" "gsl_complex""'");
10368 }
10369 if (!argp1) {
10370 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_pow" "', argument " "1"" of type '" "gsl_complex""'");
10371 } else {
10372 arg1 = *((gsl_complex *)(argp1));
10373 }
10374 }
10375 {
10376 res2 = SWIG_ConvertPtr(ST(1), &argp2, SWIGTYPE_p_gsl_complex, 0 );
10377 if (!SWIG_IsOK(res2)) {
10378 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_complex_pow" "', argument " "2"" of type '" "gsl_complex""'");
10379 }
10380 if (!argp2) {
10381 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_pow" "', argument " "2"" of type '" "gsl_complex""'");
10382 } else {
10383 arg2 = *((gsl_complex *)(argp2));
10384 }
10385 }
10386 result = gsl_complex_pow(arg1,arg2);
10387 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
10388 XSRETURN(argvi);
10389 fail:
10390 SWIG_croak_null();
10391 }
10392 }
10393
10394
XS(_wrap_gsl_complex_pow_real)10395 XS(_wrap_gsl_complex_pow_real) {
10396 {
10397 gsl_complex arg1 ;
10398 double arg2 ;
10399 void *argp1 ;
10400 int res1 = 0 ;
10401 double val2 ;
10402 int ecode2 = 0 ;
10403 int argvi = 0;
10404 gsl_complex result;
10405 dXSARGS;
10406
10407 if ((items < 2) || (items > 2)) {
10408 SWIG_croak("Usage: gsl_complex_pow_real(a,b);");
10409 }
10410 {
10411 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
10412 if (!SWIG_IsOK(res1)) {
10413 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_pow_real" "', argument " "1"" of type '" "gsl_complex""'");
10414 }
10415 if (!argp1) {
10416 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_pow_real" "', argument " "1"" of type '" "gsl_complex""'");
10417 } else {
10418 arg1 = *((gsl_complex *)(argp1));
10419 }
10420 }
10421 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
10422 if (!SWIG_IsOK(ecode2)) {
10423 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_complex_pow_real" "', argument " "2"" of type '" "double""'");
10424 }
10425 arg2 = (double)(val2);
10426 result = gsl_complex_pow_real(arg1,arg2);
10427 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
10428
10429 XSRETURN(argvi);
10430 fail:
10431
10432 SWIG_croak_null();
10433 }
10434 }
10435
10436
XS(_wrap_gsl_complex_exp)10437 XS(_wrap_gsl_complex_exp) {
10438 {
10439 gsl_complex arg1 ;
10440 void *argp1 ;
10441 int res1 = 0 ;
10442 int argvi = 0;
10443 gsl_complex result;
10444 dXSARGS;
10445
10446 if ((items < 1) || (items > 1)) {
10447 SWIG_croak("Usage: gsl_complex_exp(a);");
10448 }
10449 {
10450 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
10451 if (!SWIG_IsOK(res1)) {
10452 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_exp" "', argument " "1"" of type '" "gsl_complex""'");
10453 }
10454 if (!argp1) {
10455 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_exp" "', argument " "1"" of type '" "gsl_complex""'");
10456 } else {
10457 arg1 = *((gsl_complex *)(argp1));
10458 }
10459 }
10460 result = gsl_complex_exp(arg1);
10461 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
10462 XSRETURN(argvi);
10463 fail:
10464 SWIG_croak_null();
10465 }
10466 }
10467
10468
XS(_wrap_gsl_complex_log)10469 XS(_wrap_gsl_complex_log) {
10470 {
10471 gsl_complex arg1 ;
10472 void *argp1 ;
10473 int res1 = 0 ;
10474 int argvi = 0;
10475 gsl_complex result;
10476 dXSARGS;
10477
10478 if ((items < 1) || (items > 1)) {
10479 SWIG_croak("Usage: gsl_complex_log(a);");
10480 }
10481 {
10482 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
10483 if (!SWIG_IsOK(res1)) {
10484 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_log" "', argument " "1"" of type '" "gsl_complex""'");
10485 }
10486 if (!argp1) {
10487 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_log" "', argument " "1"" of type '" "gsl_complex""'");
10488 } else {
10489 arg1 = *((gsl_complex *)(argp1));
10490 }
10491 }
10492 result = gsl_complex_log(arg1);
10493 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
10494 XSRETURN(argvi);
10495 fail:
10496 SWIG_croak_null();
10497 }
10498 }
10499
10500
XS(_wrap_gsl_complex_log10)10501 XS(_wrap_gsl_complex_log10) {
10502 {
10503 gsl_complex arg1 ;
10504 void *argp1 ;
10505 int res1 = 0 ;
10506 int argvi = 0;
10507 gsl_complex result;
10508 dXSARGS;
10509
10510 if ((items < 1) || (items > 1)) {
10511 SWIG_croak("Usage: gsl_complex_log10(a);");
10512 }
10513 {
10514 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
10515 if (!SWIG_IsOK(res1)) {
10516 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_log10" "', argument " "1"" of type '" "gsl_complex""'");
10517 }
10518 if (!argp1) {
10519 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_log10" "', argument " "1"" of type '" "gsl_complex""'");
10520 } else {
10521 arg1 = *((gsl_complex *)(argp1));
10522 }
10523 }
10524 result = gsl_complex_log10(arg1);
10525 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
10526 XSRETURN(argvi);
10527 fail:
10528 SWIG_croak_null();
10529 }
10530 }
10531
10532
XS(_wrap_gsl_complex_log_b)10533 XS(_wrap_gsl_complex_log_b) {
10534 {
10535 gsl_complex arg1 ;
10536 gsl_complex arg2 ;
10537 void *argp1 ;
10538 int res1 = 0 ;
10539 void *argp2 ;
10540 int res2 = 0 ;
10541 int argvi = 0;
10542 gsl_complex result;
10543 dXSARGS;
10544
10545 if ((items < 2) || (items > 2)) {
10546 SWIG_croak("Usage: gsl_complex_log_b(a,b);");
10547 }
10548 {
10549 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
10550 if (!SWIG_IsOK(res1)) {
10551 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_log_b" "', argument " "1"" of type '" "gsl_complex""'");
10552 }
10553 if (!argp1) {
10554 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_log_b" "', argument " "1"" of type '" "gsl_complex""'");
10555 } else {
10556 arg1 = *((gsl_complex *)(argp1));
10557 }
10558 }
10559 {
10560 res2 = SWIG_ConvertPtr(ST(1), &argp2, SWIGTYPE_p_gsl_complex, 0 );
10561 if (!SWIG_IsOK(res2)) {
10562 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_complex_log_b" "', argument " "2"" of type '" "gsl_complex""'");
10563 }
10564 if (!argp2) {
10565 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_log_b" "', argument " "2"" of type '" "gsl_complex""'");
10566 } else {
10567 arg2 = *((gsl_complex *)(argp2));
10568 }
10569 }
10570 result = gsl_complex_log_b(arg1,arg2);
10571 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
10572 XSRETURN(argvi);
10573 fail:
10574 SWIG_croak_null();
10575 }
10576 }
10577
10578
XS(_wrap_gsl_complex_sin)10579 XS(_wrap_gsl_complex_sin) {
10580 {
10581 gsl_complex arg1 ;
10582 void *argp1 ;
10583 int res1 = 0 ;
10584 int argvi = 0;
10585 gsl_complex result;
10586 dXSARGS;
10587
10588 if ((items < 1) || (items > 1)) {
10589 SWIG_croak("Usage: gsl_complex_sin(a);");
10590 }
10591 {
10592 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
10593 if (!SWIG_IsOK(res1)) {
10594 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_sin" "', argument " "1"" of type '" "gsl_complex""'");
10595 }
10596 if (!argp1) {
10597 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_sin" "', argument " "1"" of type '" "gsl_complex""'");
10598 } else {
10599 arg1 = *((gsl_complex *)(argp1));
10600 }
10601 }
10602 result = gsl_complex_sin(arg1);
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 XSRETURN(argvi);
10605 fail:
10606 SWIG_croak_null();
10607 }
10608 }
10609
10610
XS(_wrap_gsl_complex_cos)10611 XS(_wrap_gsl_complex_cos) {
10612 {
10613 gsl_complex arg1 ;
10614 void *argp1 ;
10615 int res1 = 0 ;
10616 int argvi = 0;
10617 gsl_complex result;
10618 dXSARGS;
10619
10620 if ((items < 1) || (items > 1)) {
10621 SWIG_croak("Usage: gsl_complex_cos(a);");
10622 }
10623 {
10624 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
10625 if (!SWIG_IsOK(res1)) {
10626 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_cos" "', argument " "1"" of type '" "gsl_complex""'");
10627 }
10628 if (!argp1) {
10629 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_cos" "', argument " "1"" of type '" "gsl_complex""'");
10630 } else {
10631 arg1 = *((gsl_complex *)(argp1));
10632 }
10633 }
10634 result = gsl_complex_cos(arg1);
10635 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
10636 XSRETURN(argvi);
10637 fail:
10638 SWIG_croak_null();
10639 }
10640 }
10641
10642
XS(_wrap_gsl_complex_sec)10643 XS(_wrap_gsl_complex_sec) {
10644 {
10645 gsl_complex arg1 ;
10646 void *argp1 ;
10647 int res1 = 0 ;
10648 int argvi = 0;
10649 gsl_complex result;
10650 dXSARGS;
10651
10652 if ((items < 1) || (items > 1)) {
10653 SWIG_croak("Usage: gsl_complex_sec(a);");
10654 }
10655 {
10656 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
10657 if (!SWIG_IsOK(res1)) {
10658 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_sec" "', argument " "1"" of type '" "gsl_complex""'");
10659 }
10660 if (!argp1) {
10661 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_sec" "', argument " "1"" of type '" "gsl_complex""'");
10662 } else {
10663 arg1 = *((gsl_complex *)(argp1));
10664 }
10665 }
10666 result = gsl_complex_sec(arg1);
10667 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
10668 XSRETURN(argvi);
10669 fail:
10670 SWIG_croak_null();
10671 }
10672 }
10673
10674
XS(_wrap_gsl_complex_csc)10675 XS(_wrap_gsl_complex_csc) {
10676 {
10677 gsl_complex arg1 ;
10678 void *argp1 ;
10679 int res1 = 0 ;
10680 int argvi = 0;
10681 gsl_complex result;
10682 dXSARGS;
10683
10684 if ((items < 1) || (items > 1)) {
10685 SWIG_croak("Usage: gsl_complex_csc(a);");
10686 }
10687 {
10688 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
10689 if (!SWIG_IsOK(res1)) {
10690 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_csc" "', argument " "1"" of type '" "gsl_complex""'");
10691 }
10692 if (!argp1) {
10693 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_csc" "', argument " "1"" of type '" "gsl_complex""'");
10694 } else {
10695 arg1 = *((gsl_complex *)(argp1));
10696 }
10697 }
10698 result = gsl_complex_csc(arg1);
10699 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
10700 XSRETURN(argvi);
10701 fail:
10702 SWIG_croak_null();
10703 }
10704 }
10705
10706
XS(_wrap_gsl_complex_tan)10707 XS(_wrap_gsl_complex_tan) {
10708 {
10709 gsl_complex arg1 ;
10710 void *argp1 ;
10711 int res1 = 0 ;
10712 int argvi = 0;
10713 gsl_complex result;
10714 dXSARGS;
10715
10716 if ((items < 1) || (items > 1)) {
10717 SWIG_croak("Usage: gsl_complex_tan(a);");
10718 }
10719 {
10720 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
10721 if (!SWIG_IsOK(res1)) {
10722 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_tan" "', argument " "1"" of type '" "gsl_complex""'");
10723 }
10724 if (!argp1) {
10725 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_tan" "', argument " "1"" of type '" "gsl_complex""'");
10726 } else {
10727 arg1 = *((gsl_complex *)(argp1));
10728 }
10729 }
10730 result = gsl_complex_tan(arg1);
10731 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
10732 XSRETURN(argvi);
10733 fail:
10734 SWIG_croak_null();
10735 }
10736 }
10737
10738
XS(_wrap_gsl_complex_cot)10739 XS(_wrap_gsl_complex_cot) {
10740 {
10741 gsl_complex arg1 ;
10742 void *argp1 ;
10743 int res1 = 0 ;
10744 int argvi = 0;
10745 gsl_complex result;
10746 dXSARGS;
10747
10748 if ((items < 1) || (items > 1)) {
10749 SWIG_croak("Usage: gsl_complex_cot(a);");
10750 }
10751 {
10752 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
10753 if (!SWIG_IsOK(res1)) {
10754 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_cot" "', argument " "1"" of type '" "gsl_complex""'");
10755 }
10756 if (!argp1) {
10757 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_cot" "', argument " "1"" of type '" "gsl_complex""'");
10758 } else {
10759 arg1 = *((gsl_complex *)(argp1));
10760 }
10761 }
10762 result = gsl_complex_cot(arg1);
10763 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
10764 XSRETURN(argvi);
10765 fail:
10766 SWIG_croak_null();
10767 }
10768 }
10769
10770
XS(_wrap_gsl_complex_arcsin)10771 XS(_wrap_gsl_complex_arcsin) {
10772 {
10773 gsl_complex arg1 ;
10774 void *argp1 ;
10775 int res1 = 0 ;
10776 int argvi = 0;
10777 gsl_complex result;
10778 dXSARGS;
10779
10780 if ((items < 1) || (items > 1)) {
10781 SWIG_croak("Usage: gsl_complex_arcsin(a);");
10782 }
10783 {
10784 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
10785 if (!SWIG_IsOK(res1)) {
10786 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_arcsin" "', argument " "1"" of type '" "gsl_complex""'");
10787 }
10788 if (!argp1) {
10789 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_arcsin" "', argument " "1"" of type '" "gsl_complex""'");
10790 } else {
10791 arg1 = *((gsl_complex *)(argp1));
10792 }
10793 }
10794 result = gsl_complex_arcsin(arg1);
10795 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
10796 XSRETURN(argvi);
10797 fail:
10798 SWIG_croak_null();
10799 }
10800 }
10801
10802
XS(_wrap_gsl_complex_arcsin_real)10803 XS(_wrap_gsl_complex_arcsin_real) {
10804 {
10805 double arg1 ;
10806 double val1 ;
10807 int ecode1 = 0 ;
10808 int argvi = 0;
10809 gsl_complex result;
10810 dXSARGS;
10811
10812 if ((items < 1) || (items > 1)) {
10813 SWIG_croak("Usage: gsl_complex_arcsin_real(a);");
10814 }
10815 ecode1 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
10816 if (!SWIG_IsOK(ecode1)) {
10817 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_complex_arcsin_real" "', argument " "1"" of type '" "double""'");
10818 }
10819 arg1 = (double)(val1);
10820 result = gsl_complex_arcsin_real(arg1);
10821 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
10822
10823 XSRETURN(argvi);
10824 fail:
10825
10826 SWIG_croak_null();
10827 }
10828 }
10829
10830
XS(_wrap_gsl_complex_arccos)10831 XS(_wrap_gsl_complex_arccos) {
10832 {
10833 gsl_complex arg1 ;
10834 void *argp1 ;
10835 int res1 = 0 ;
10836 int argvi = 0;
10837 gsl_complex result;
10838 dXSARGS;
10839
10840 if ((items < 1) || (items > 1)) {
10841 SWIG_croak("Usage: gsl_complex_arccos(a);");
10842 }
10843 {
10844 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
10845 if (!SWIG_IsOK(res1)) {
10846 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_arccos" "', argument " "1"" of type '" "gsl_complex""'");
10847 }
10848 if (!argp1) {
10849 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_arccos" "', argument " "1"" of type '" "gsl_complex""'");
10850 } else {
10851 arg1 = *((gsl_complex *)(argp1));
10852 }
10853 }
10854 result = gsl_complex_arccos(arg1);
10855 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
10856 XSRETURN(argvi);
10857 fail:
10858 SWIG_croak_null();
10859 }
10860 }
10861
10862
XS(_wrap_gsl_complex_arccos_real)10863 XS(_wrap_gsl_complex_arccos_real) {
10864 {
10865 double arg1 ;
10866 double val1 ;
10867 int ecode1 = 0 ;
10868 int argvi = 0;
10869 gsl_complex result;
10870 dXSARGS;
10871
10872 if ((items < 1) || (items > 1)) {
10873 SWIG_croak("Usage: gsl_complex_arccos_real(a);");
10874 }
10875 ecode1 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
10876 if (!SWIG_IsOK(ecode1)) {
10877 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_complex_arccos_real" "', argument " "1"" of type '" "double""'");
10878 }
10879 arg1 = (double)(val1);
10880 result = gsl_complex_arccos_real(arg1);
10881 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
10882
10883 XSRETURN(argvi);
10884 fail:
10885
10886 SWIG_croak_null();
10887 }
10888 }
10889
10890
XS(_wrap_gsl_complex_arcsec)10891 XS(_wrap_gsl_complex_arcsec) {
10892 {
10893 gsl_complex arg1 ;
10894 void *argp1 ;
10895 int res1 = 0 ;
10896 int argvi = 0;
10897 gsl_complex result;
10898 dXSARGS;
10899
10900 if ((items < 1) || (items > 1)) {
10901 SWIG_croak("Usage: gsl_complex_arcsec(a);");
10902 }
10903 {
10904 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
10905 if (!SWIG_IsOK(res1)) {
10906 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_arcsec" "', argument " "1"" of type '" "gsl_complex""'");
10907 }
10908 if (!argp1) {
10909 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_arcsec" "', argument " "1"" of type '" "gsl_complex""'");
10910 } else {
10911 arg1 = *((gsl_complex *)(argp1));
10912 }
10913 }
10914 result = gsl_complex_arcsec(arg1);
10915 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
10916 XSRETURN(argvi);
10917 fail:
10918 SWIG_croak_null();
10919 }
10920 }
10921
10922
XS(_wrap_gsl_complex_arcsec_real)10923 XS(_wrap_gsl_complex_arcsec_real) {
10924 {
10925 double arg1 ;
10926 double val1 ;
10927 int ecode1 = 0 ;
10928 int argvi = 0;
10929 gsl_complex result;
10930 dXSARGS;
10931
10932 if ((items < 1) || (items > 1)) {
10933 SWIG_croak("Usage: gsl_complex_arcsec_real(a);");
10934 }
10935 ecode1 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
10936 if (!SWIG_IsOK(ecode1)) {
10937 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_complex_arcsec_real" "', argument " "1"" of type '" "double""'");
10938 }
10939 arg1 = (double)(val1);
10940 result = gsl_complex_arcsec_real(arg1);
10941 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
10942
10943 XSRETURN(argvi);
10944 fail:
10945
10946 SWIG_croak_null();
10947 }
10948 }
10949
10950
XS(_wrap_gsl_complex_arccsc)10951 XS(_wrap_gsl_complex_arccsc) {
10952 {
10953 gsl_complex arg1 ;
10954 void *argp1 ;
10955 int res1 = 0 ;
10956 int argvi = 0;
10957 gsl_complex result;
10958 dXSARGS;
10959
10960 if ((items < 1) || (items > 1)) {
10961 SWIG_croak("Usage: gsl_complex_arccsc(a);");
10962 }
10963 {
10964 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
10965 if (!SWIG_IsOK(res1)) {
10966 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_arccsc" "', argument " "1"" of type '" "gsl_complex""'");
10967 }
10968 if (!argp1) {
10969 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_arccsc" "', argument " "1"" of type '" "gsl_complex""'");
10970 } else {
10971 arg1 = *((gsl_complex *)(argp1));
10972 }
10973 }
10974 result = gsl_complex_arccsc(arg1);
10975 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
10976 XSRETURN(argvi);
10977 fail:
10978 SWIG_croak_null();
10979 }
10980 }
10981
10982
XS(_wrap_gsl_complex_arccsc_real)10983 XS(_wrap_gsl_complex_arccsc_real) {
10984 {
10985 double arg1 ;
10986 double val1 ;
10987 int ecode1 = 0 ;
10988 int argvi = 0;
10989 gsl_complex result;
10990 dXSARGS;
10991
10992 if ((items < 1) || (items > 1)) {
10993 SWIG_croak("Usage: gsl_complex_arccsc_real(a);");
10994 }
10995 ecode1 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
10996 if (!SWIG_IsOK(ecode1)) {
10997 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_complex_arccsc_real" "', argument " "1"" of type '" "double""'");
10998 }
10999 arg1 = (double)(val1);
11000 result = gsl_complex_arccsc_real(arg1);
11001 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
11002
11003 XSRETURN(argvi);
11004 fail:
11005
11006 SWIG_croak_null();
11007 }
11008 }
11009
11010
XS(_wrap_gsl_complex_arctan)11011 XS(_wrap_gsl_complex_arctan) {
11012 {
11013 gsl_complex arg1 ;
11014 void *argp1 ;
11015 int res1 = 0 ;
11016 int argvi = 0;
11017 gsl_complex result;
11018 dXSARGS;
11019
11020 if ((items < 1) || (items > 1)) {
11021 SWIG_croak("Usage: gsl_complex_arctan(a);");
11022 }
11023 {
11024 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
11025 if (!SWIG_IsOK(res1)) {
11026 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_arctan" "', argument " "1"" of type '" "gsl_complex""'");
11027 }
11028 if (!argp1) {
11029 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_arctan" "', argument " "1"" of type '" "gsl_complex""'");
11030 } else {
11031 arg1 = *((gsl_complex *)(argp1));
11032 }
11033 }
11034 result = gsl_complex_arctan(arg1);
11035 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
11036 XSRETURN(argvi);
11037 fail:
11038 SWIG_croak_null();
11039 }
11040 }
11041
11042
XS(_wrap_gsl_complex_arccot)11043 XS(_wrap_gsl_complex_arccot) {
11044 {
11045 gsl_complex arg1 ;
11046 void *argp1 ;
11047 int res1 = 0 ;
11048 int argvi = 0;
11049 gsl_complex result;
11050 dXSARGS;
11051
11052 if ((items < 1) || (items > 1)) {
11053 SWIG_croak("Usage: gsl_complex_arccot(a);");
11054 }
11055 {
11056 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
11057 if (!SWIG_IsOK(res1)) {
11058 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_arccot" "', argument " "1"" of type '" "gsl_complex""'");
11059 }
11060 if (!argp1) {
11061 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_arccot" "', argument " "1"" of type '" "gsl_complex""'");
11062 } else {
11063 arg1 = *((gsl_complex *)(argp1));
11064 }
11065 }
11066 result = gsl_complex_arccot(arg1);
11067 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
11068 XSRETURN(argvi);
11069 fail:
11070 SWIG_croak_null();
11071 }
11072 }
11073
11074
XS(_wrap_gsl_complex_sinh)11075 XS(_wrap_gsl_complex_sinh) {
11076 {
11077 gsl_complex arg1 ;
11078 void *argp1 ;
11079 int res1 = 0 ;
11080 int argvi = 0;
11081 gsl_complex result;
11082 dXSARGS;
11083
11084 if ((items < 1) || (items > 1)) {
11085 SWIG_croak("Usage: gsl_complex_sinh(a);");
11086 }
11087 {
11088 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
11089 if (!SWIG_IsOK(res1)) {
11090 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_sinh" "', argument " "1"" of type '" "gsl_complex""'");
11091 }
11092 if (!argp1) {
11093 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_sinh" "', argument " "1"" of type '" "gsl_complex""'");
11094 } else {
11095 arg1 = *((gsl_complex *)(argp1));
11096 }
11097 }
11098 result = gsl_complex_sinh(arg1);
11099 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
11100 XSRETURN(argvi);
11101 fail:
11102 SWIG_croak_null();
11103 }
11104 }
11105
11106
XS(_wrap_gsl_complex_cosh)11107 XS(_wrap_gsl_complex_cosh) {
11108 {
11109 gsl_complex arg1 ;
11110 void *argp1 ;
11111 int res1 = 0 ;
11112 int argvi = 0;
11113 gsl_complex result;
11114 dXSARGS;
11115
11116 if ((items < 1) || (items > 1)) {
11117 SWIG_croak("Usage: gsl_complex_cosh(a);");
11118 }
11119 {
11120 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
11121 if (!SWIG_IsOK(res1)) {
11122 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_cosh" "', argument " "1"" of type '" "gsl_complex""'");
11123 }
11124 if (!argp1) {
11125 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_cosh" "', argument " "1"" of type '" "gsl_complex""'");
11126 } else {
11127 arg1 = *((gsl_complex *)(argp1));
11128 }
11129 }
11130 result = gsl_complex_cosh(arg1);
11131 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
11132 XSRETURN(argvi);
11133 fail:
11134 SWIG_croak_null();
11135 }
11136 }
11137
11138
XS(_wrap_gsl_complex_sech)11139 XS(_wrap_gsl_complex_sech) {
11140 {
11141 gsl_complex arg1 ;
11142 void *argp1 ;
11143 int res1 = 0 ;
11144 int argvi = 0;
11145 gsl_complex result;
11146 dXSARGS;
11147
11148 if ((items < 1) || (items > 1)) {
11149 SWIG_croak("Usage: gsl_complex_sech(a);");
11150 }
11151 {
11152 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
11153 if (!SWIG_IsOK(res1)) {
11154 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_sech" "', argument " "1"" of type '" "gsl_complex""'");
11155 }
11156 if (!argp1) {
11157 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_sech" "', argument " "1"" of type '" "gsl_complex""'");
11158 } else {
11159 arg1 = *((gsl_complex *)(argp1));
11160 }
11161 }
11162 result = gsl_complex_sech(arg1);
11163 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
11164 XSRETURN(argvi);
11165 fail:
11166 SWIG_croak_null();
11167 }
11168 }
11169
11170
XS(_wrap_gsl_complex_csch)11171 XS(_wrap_gsl_complex_csch) {
11172 {
11173 gsl_complex arg1 ;
11174 void *argp1 ;
11175 int res1 = 0 ;
11176 int argvi = 0;
11177 gsl_complex result;
11178 dXSARGS;
11179
11180 if ((items < 1) || (items > 1)) {
11181 SWIG_croak("Usage: gsl_complex_csch(a);");
11182 }
11183 {
11184 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
11185 if (!SWIG_IsOK(res1)) {
11186 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_csch" "', argument " "1"" of type '" "gsl_complex""'");
11187 }
11188 if (!argp1) {
11189 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_csch" "', argument " "1"" of type '" "gsl_complex""'");
11190 } else {
11191 arg1 = *((gsl_complex *)(argp1));
11192 }
11193 }
11194 result = gsl_complex_csch(arg1);
11195 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
11196 XSRETURN(argvi);
11197 fail:
11198 SWIG_croak_null();
11199 }
11200 }
11201
11202
XS(_wrap_gsl_complex_tanh)11203 XS(_wrap_gsl_complex_tanh) {
11204 {
11205 gsl_complex arg1 ;
11206 void *argp1 ;
11207 int res1 = 0 ;
11208 int argvi = 0;
11209 gsl_complex result;
11210 dXSARGS;
11211
11212 if ((items < 1) || (items > 1)) {
11213 SWIG_croak("Usage: gsl_complex_tanh(a);");
11214 }
11215 {
11216 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
11217 if (!SWIG_IsOK(res1)) {
11218 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_tanh" "', argument " "1"" of type '" "gsl_complex""'");
11219 }
11220 if (!argp1) {
11221 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_tanh" "', argument " "1"" of type '" "gsl_complex""'");
11222 } else {
11223 arg1 = *((gsl_complex *)(argp1));
11224 }
11225 }
11226 result = gsl_complex_tanh(arg1);
11227 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
11228 XSRETURN(argvi);
11229 fail:
11230 SWIG_croak_null();
11231 }
11232 }
11233
11234
XS(_wrap_gsl_complex_coth)11235 XS(_wrap_gsl_complex_coth) {
11236 {
11237 gsl_complex arg1 ;
11238 void *argp1 ;
11239 int res1 = 0 ;
11240 int argvi = 0;
11241 gsl_complex result;
11242 dXSARGS;
11243
11244 if ((items < 1) || (items > 1)) {
11245 SWIG_croak("Usage: gsl_complex_coth(a);");
11246 }
11247 {
11248 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
11249 if (!SWIG_IsOK(res1)) {
11250 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_coth" "', argument " "1"" of type '" "gsl_complex""'");
11251 }
11252 if (!argp1) {
11253 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_coth" "', argument " "1"" of type '" "gsl_complex""'");
11254 } else {
11255 arg1 = *((gsl_complex *)(argp1));
11256 }
11257 }
11258 result = gsl_complex_coth(arg1);
11259 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
11260 XSRETURN(argvi);
11261 fail:
11262 SWIG_croak_null();
11263 }
11264 }
11265
11266
XS(_wrap_gsl_complex_arcsinh)11267 XS(_wrap_gsl_complex_arcsinh) {
11268 {
11269 gsl_complex arg1 ;
11270 void *argp1 ;
11271 int res1 = 0 ;
11272 int argvi = 0;
11273 gsl_complex result;
11274 dXSARGS;
11275
11276 if ((items < 1) || (items > 1)) {
11277 SWIG_croak("Usage: gsl_complex_arcsinh(a);");
11278 }
11279 {
11280 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
11281 if (!SWIG_IsOK(res1)) {
11282 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_arcsinh" "', argument " "1"" of type '" "gsl_complex""'");
11283 }
11284 if (!argp1) {
11285 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_arcsinh" "', argument " "1"" of type '" "gsl_complex""'");
11286 } else {
11287 arg1 = *((gsl_complex *)(argp1));
11288 }
11289 }
11290 result = gsl_complex_arcsinh(arg1);
11291 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
11292 XSRETURN(argvi);
11293 fail:
11294 SWIG_croak_null();
11295 }
11296 }
11297
11298
XS(_wrap_gsl_complex_arccosh)11299 XS(_wrap_gsl_complex_arccosh) {
11300 {
11301 gsl_complex arg1 ;
11302 void *argp1 ;
11303 int res1 = 0 ;
11304 int argvi = 0;
11305 gsl_complex result;
11306 dXSARGS;
11307
11308 if ((items < 1) || (items > 1)) {
11309 SWIG_croak("Usage: gsl_complex_arccosh(a);");
11310 }
11311 {
11312 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
11313 if (!SWIG_IsOK(res1)) {
11314 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_arccosh" "', argument " "1"" of type '" "gsl_complex""'");
11315 }
11316 if (!argp1) {
11317 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_arccosh" "', argument " "1"" of type '" "gsl_complex""'");
11318 } else {
11319 arg1 = *((gsl_complex *)(argp1));
11320 }
11321 }
11322 result = gsl_complex_arccosh(arg1);
11323 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
11324 XSRETURN(argvi);
11325 fail:
11326 SWIG_croak_null();
11327 }
11328 }
11329
11330
XS(_wrap_gsl_complex_arccosh_real)11331 XS(_wrap_gsl_complex_arccosh_real) {
11332 {
11333 double arg1 ;
11334 double val1 ;
11335 int ecode1 = 0 ;
11336 int argvi = 0;
11337 gsl_complex result;
11338 dXSARGS;
11339
11340 if ((items < 1) || (items > 1)) {
11341 SWIG_croak("Usage: gsl_complex_arccosh_real(a);");
11342 }
11343 ecode1 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
11344 if (!SWIG_IsOK(ecode1)) {
11345 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_complex_arccosh_real" "', argument " "1"" of type '" "double""'");
11346 }
11347 arg1 = (double)(val1);
11348 result = gsl_complex_arccosh_real(arg1);
11349 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
11350
11351 XSRETURN(argvi);
11352 fail:
11353
11354 SWIG_croak_null();
11355 }
11356 }
11357
11358
XS(_wrap_gsl_complex_arcsech)11359 XS(_wrap_gsl_complex_arcsech) {
11360 {
11361 gsl_complex arg1 ;
11362 void *argp1 ;
11363 int res1 = 0 ;
11364 int argvi = 0;
11365 gsl_complex result;
11366 dXSARGS;
11367
11368 if ((items < 1) || (items > 1)) {
11369 SWIG_croak("Usage: gsl_complex_arcsech(a);");
11370 }
11371 {
11372 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
11373 if (!SWIG_IsOK(res1)) {
11374 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_arcsech" "', argument " "1"" of type '" "gsl_complex""'");
11375 }
11376 if (!argp1) {
11377 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_arcsech" "', argument " "1"" of type '" "gsl_complex""'");
11378 } else {
11379 arg1 = *((gsl_complex *)(argp1));
11380 }
11381 }
11382 result = gsl_complex_arcsech(arg1);
11383 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
11384 XSRETURN(argvi);
11385 fail:
11386 SWIG_croak_null();
11387 }
11388 }
11389
11390
XS(_wrap_gsl_complex_arccsch)11391 XS(_wrap_gsl_complex_arccsch) {
11392 {
11393 gsl_complex arg1 ;
11394 void *argp1 ;
11395 int res1 = 0 ;
11396 int argvi = 0;
11397 gsl_complex result;
11398 dXSARGS;
11399
11400 if ((items < 1) || (items > 1)) {
11401 SWIG_croak("Usage: gsl_complex_arccsch(a);");
11402 }
11403 {
11404 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
11405 if (!SWIG_IsOK(res1)) {
11406 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_arccsch" "', argument " "1"" of type '" "gsl_complex""'");
11407 }
11408 if (!argp1) {
11409 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_arccsch" "', argument " "1"" of type '" "gsl_complex""'");
11410 } else {
11411 arg1 = *((gsl_complex *)(argp1));
11412 }
11413 }
11414 result = gsl_complex_arccsch(arg1);
11415 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
11416 XSRETURN(argvi);
11417 fail:
11418 SWIG_croak_null();
11419 }
11420 }
11421
11422
XS(_wrap_gsl_complex_arctanh)11423 XS(_wrap_gsl_complex_arctanh) {
11424 {
11425 gsl_complex arg1 ;
11426 void *argp1 ;
11427 int res1 = 0 ;
11428 int argvi = 0;
11429 gsl_complex result;
11430 dXSARGS;
11431
11432 if ((items < 1) || (items > 1)) {
11433 SWIG_croak("Usage: gsl_complex_arctanh(a);");
11434 }
11435 {
11436 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
11437 if (!SWIG_IsOK(res1)) {
11438 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_arctanh" "', argument " "1"" of type '" "gsl_complex""'");
11439 }
11440 if (!argp1) {
11441 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_arctanh" "', argument " "1"" of type '" "gsl_complex""'");
11442 } else {
11443 arg1 = *((gsl_complex *)(argp1));
11444 }
11445 }
11446 result = gsl_complex_arctanh(arg1);
11447 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
11448 XSRETURN(argvi);
11449 fail:
11450 SWIG_croak_null();
11451 }
11452 }
11453
11454
XS(_wrap_gsl_complex_arctanh_real)11455 XS(_wrap_gsl_complex_arctanh_real) {
11456 {
11457 double arg1 ;
11458 double val1 ;
11459 int ecode1 = 0 ;
11460 int argvi = 0;
11461 gsl_complex result;
11462 dXSARGS;
11463
11464 if ((items < 1) || (items > 1)) {
11465 SWIG_croak("Usage: gsl_complex_arctanh_real(a);");
11466 }
11467 ecode1 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
11468 if (!SWIG_IsOK(ecode1)) {
11469 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_complex_arctanh_real" "', argument " "1"" of type '" "double""'");
11470 }
11471 arg1 = (double)(val1);
11472 result = gsl_complex_arctanh_real(arg1);
11473 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
11474
11475 XSRETURN(argvi);
11476 fail:
11477
11478 SWIG_croak_null();
11479 }
11480 }
11481
11482
XS(_wrap_gsl_complex_arccoth)11483 XS(_wrap_gsl_complex_arccoth) {
11484 {
11485 gsl_complex arg1 ;
11486 void *argp1 ;
11487 int res1 = 0 ;
11488 int argvi = 0;
11489 gsl_complex result;
11490 dXSARGS;
11491
11492 if ((items < 1) || (items > 1)) {
11493 SWIG_croak("Usage: gsl_complex_arccoth(a);");
11494 }
11495 {
11496 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
11497 if (!SWIG_IsOK(res1)) {
11498 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_arccoth" "', argument " "1"" of type '" "gsl_complex""'");
11499 }
11500 if (!argp1) {
11501 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_arccoth" "', argument " "1"" of type '" "gsl_complex""'");
11502 } else {
11503 arg1 = *((gsl_complex *)(argp1));
11504 }
11505 }
11506 result = gsl_complex_arccoth(arg1);
11507 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
11508 XSRETURN(argvi);
11509 fail:
11510 SWIG_croak_null();
11511 }
11512 }
11513
11514
11515
11516 /* -------- TYPE CONVERSION AND EQUIVALENCE RULES (BEGIN) -------- */
11517
11518 static swig_type_info _swigt__p_FILE = {"_p_FILE", "FILE *", 0, 0, (void*)0, 0};
11519 static swig_type_info _swigt__p_char = {"_p_char", "char *", 0, 0, (void*)0, 0};
11520 static swig_type_info _swigt__p_double = {"_p_double", "double *", 0, 0, (void*)0, 0};
11521 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};
11522 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};
11523 static swig_type_info _swigt__p_float = {"_p_float", "float *", 0, 0, (void*)0, 0};
11524 static swig_type_info _swigt__p_gsl_complex = {"_p_gsl_complex", "gsl_complex *", 0, 0, (void*)"Math::GSL::Linalg::gsl_complex", 0};
11525 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};
11526 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};
11527 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};
11528 static swig_type_info _swigt__p_gsl_matrix = {"_p_gsl_matrix", "gsl_matrix *", 0, 0, (void*)0, 0};
11529 static swig_type_info _swigt__p_gsl_matrix_complex = {"_p_gsl_matrix_complex", "gsl_matrix_complex *", 0, 0, (void*)0, 0};
11530 static swig_type_info _swigt__p_gsl_mode_t = {"_p_gsl_mode_t", "gsl_mode_t *", 0, 0, (void*)0, 0};
11531 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};
11532 static swig_type_info _swigt__p_gsl_vector = {"_p_gsl_vector", "gsl_vector *", 0, 0, (void*)0, 0};
11533 static swig_type_info _swigt__p_gsl_vector_complex = {"_p_gsl_vector_complex", "gsl_vector_complex *", 0, 0, (void*)0, 0};
11534 static swig_type_info _swigt__p_int = {"_p_int", "int *", 0, 0, (void*)0, 0};
11535 static swig_type_info _swigt__p_long_double = {"_p_long_double", "long double *", 0, 0, (void*)0, 0};
11536 static swig_type_info _swigt__p_size_t = {"_p_size_t", "size_t *", 0, 0, (void*)0, 0};
11537
11538 static swig_type_info *swig_type_initial[] = {
11539 &_swigt__p_FILE,
11540 &_swigt__p_char,
11541 &_swigt__p_double,
11542 &_swigt__p_f_p_q_const__char_p_q_const__char_int_int__void,
11543 &_swigt__p_f_p_q_const__char_p_q_const__char_int_p_q_const__char__void,
11544 &_swigt__p_float,
11545 &_swigt__p_gsl_complex,
11546 &_swigt__p_gsl_complex_float,
11547 &_swigt__p_gsl_complex_long_double,
11548 &_swigt__p_gsl_linalg_matrix_mod_t,
11549 &_swigt__p_gsl_matrix,
11550 &_swigt__p_gsl_matrix_complex,
11551 &_swigt__p_gsl_mode_t,
11552 &_swigt__p_gsl_permutation_struct,
11553 &_swigt__p_gsl_vector,
11554 &_swigt__p_gsl_vector_complex,
11555 &_swigt__p_int,
11556 &_swigt__p_long_double,
11557 &_swigt__p_size_t,
11558 };
11559
11560 static swig_cast_info _swigc__p_FILE[] = { {&_swigt__p_FILE, 0, 0, 0},{0, 0, 0, 0}};
11561 static swig_cast_info _swigc__p_char[] = { {&_swigt__p_char, 0, 0, 0},{0, 0, 0, 0}};
11562 static swig_cast_info _swigc__p_double[] = { {&_swigt__p_double, 0, 0, 0},{0, 0, 0, 0}};
11563 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}};
11564 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}};
11565 static swig_cast_info _swigc__p_float[] = { {&_swigt__p_float, 0, 0, 0},{0, 0, 0, 0}};
11566 static swig_cast_info _swigc__p_gsl_complex[] = { {&_swigt__p_gsl_complex, 0, 0, 0},{0, 0, 0, 0}};
11567 static swig_cast_info _swigc__p_gsl_complex_float[] = { {&_swigt__p_gsl_complex_float, 0, 0, 0},{0, 0, 0, 0}};
11568 static swig_cast_info _swigc__p_gsl_complex_long_double[] = { {&_swigt__p_gsl_complex_long_double, 0, 0, 0},{0, 0, 0, 0}};
11569 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}};
11570 static swig_cast_info _swigc__p_gsl_matrix[] = { {&_swigt__p_gsl_matrix, 0, 0, 0},{0, 0, 0, 0}};
11571 static swig_cast_info _swigc__p_gsl_matrix_complex[] = { {&_swigt__p_gsl_matrix_complex, 0, 0, 0},{0, 0, 0, 0}};
11572 static swig_cast_info _swigc__p_gsl_mode_t[] = { {&_swigt__p_gsl_mode_t, 0, 0, 0},{0, 0, 0, 0}};
11573 static swig_cast_info _swigc__p_gsl_permutation_struct[] = { {&_swigt__p_gsl_permutation_struct, 0, 0, 0},{0, 0, 0, 0}};
11574 static swig_cast_info _swigc__p_gsl_vector[] = { {&_swigt__p_gsl_vector, 0, 0, 0},{0, 0, 0, 0}};
11575 static swig_cast_info _swigc__p_gsl_vector_complex[] = { {&_swigt__p_gsl_vector_complex, 0, 0, 0},{0, 0, 0, 0}};
11576 static swig_cast_info _swigc__p_int[] = { {&_swigt__p_int, 0, 0, 0},{0, 0, 0, 0}};
11577 static swig_cast_info _swigc__p_long_double[] = { {&_swigt__p_long_double, 0, 0, 0},{0, 0, 0, 0}};
11578 static swig_cast_info _swigc__p_size_t[] = { {&_swigt__p_size_t, 0, 0, 0},{0, 0, 0, 0}};
11579
11580 static swig_cast_info *swig_cast_initial[] = {
11581 _swigc__p_FILE,
11582 _swigc__p_char,
11583 _swigc__p_double,
11584 _swigc__p_f_p_q_const__char_p_q_const__char_int_int__void,
11585 _swigc__p_f_p_q_const__char_p_q_const__char_int_p_q_const__char__void,
11586 _swigc__p_float,
11587 _swigc__p_gsl_complex,
11588 _swigc__p_gsl_complex_float,
11589 _swigc__p_gsl_complex_long_double,
11590 _swigc__p_gsl_linalg_matrix_mod_t,
11591 _swigc__p_gsl_matrix,
11592 _swigc__p_gsl_matrix_complex,
11593 _swigc__p_gsl_mode_t,
11594 _swigc__p_gsl_permutation_struct,
11595 _swigc__p_gsl_vector,
11596 _swigc__p_gsl_vector_complex,
11597 _swigc__p_int,
11598 _swigc__p_long_double,
11599 _swigc__p_size_t,
11600 };
11601
11602
11603 /* -------- TYPE CONVERSION AND EQUIVALENCE RULES (END) -------- */
11604
11605 static swig_constant_info swig_constants[] = {
11606 {0,0,0,0,0,0}
11607 };
11608 #ifdef __cplusplus
11609 }
11610 #endif
11611 static swig_variable_info swig_variables[] = {
11612 {0,0,0,0}
11613 };
11614 static swig_command_info swig_commands[] = {
11615 {"Math::GSL::Linalgc::gsl_error", _wrap_gsl_error},
11616 {"Math::GSL::Linalgc::gsl_stream_printf", _wrap_gsl_stream_printf},
11617 {"Math::GSL::Linalgc::gsl_strerror", _wrap_gsl_strerror},
11618 {"Math::GSL::Linalgc::gsl_set_error_handler", _wrap_gsl_set_error_handler},
11619 {"Math::GSL::Linalgc::gsl_set_error_handler_off", _wrap_gsl_set_error_handler_off},
11620 {"Math::GSL::Linalgc::gsl_set_stream_handler", _wrap_gsl_set_stream_handler},
11621 {"Math::GSL::Linalgc::gsl_set_stream", _wrap_gsl_set_stream},
11622 {"Math::GSL::Linalgc::gsl_linalg_matmult", _wrap_gsl_linalg_matmult},
11623 {"Math::GSL::Linalgc::gsl_linalg_matmult_mod", _wrap_gsl_linalg_matmult_mod},
11624 {"Math::GSL::Linalgc::gsl_linalg_exponential_ss", _wrap_gsl_linalg_exponential_ss},
11625 {"Math::GSL::Linalgc::gsl_linalg_householder_transform", _wrap_gsl_linalg_householder_transform},
11626 {"Math::GSL::Linalgc::gsl_linalg_complex_householder_transform", _wrap_gsl_linalg_complex_householder_transform},
11627 {"Math::GSL::Linalgc::gsl_linalg_householder_hm", _wrap_gsl_linalg_householder_hm},
11628 {"Math::GSL::Linalgc::gsl_linalg_householder_mh", _wrap_gsl_linalg_householder_mh},
11629 {"Math::GSL::Linalgc::gsl_linalg_householder_hv", _wrap_gsl_linalg_householder_hv},
11630 {"Math::GSL::Linalgc::gsl_linalg_householder_hm1", _wrap_gsl_linalg_householder_hm1},
11631 {"Math::GSL::Linalgc::gsl_linalg_complex_householder_hm", _wrap_gsl_linalg_complex_householder_hm},
11632 {"Math::GSL::Linalgc::gsl_linalg_complex_householder_mh", _wrap_gsl_linalg_complex_householder_mh},
11633 {"Math::GSL::Linalgc::gsl_linalg_complex_householder_hv", _wrap_gsl_linalg_complex_householder_hv},
11634 {"Math::GSL::Linalgc::gsl_linalg_hessenberg_decomp", _wrap_gsl_linalg_hessenberg_decomp},
11635 {"Math::GSL::Linalgc::gsl_linalg_hessenberg_unpack", _wrap_gsl_linalg_hessenberg_unpack},
11636 {"Math::GSL::Linalgc::gsl_linalg_hessenberg_unpack_accum", _wrap_gsl_linalg_hessenberg_unpack_accum},
11637 {"Math::GSL::Linalgc::gsl_linalg_hessenberg_set_zero", _wrap_gsl_linalg_hessenberg_set_zero},
11638 {"Math::GSL::Linalgc::gsl_linalg_hessenberg_submatrix", _wrap_gsl_linalg_hessenberg_submatrix},
11639 {"Math::GSL::Linalgc::gsl_linalg_hesstri_decomp", _wrap_gsl_linalg_hesstri_decomp},
11640 {"Math::GSL::Linalgc::gsl_linalg_SV_decomp", _wrap_gsl_linalg_SV_decomp},
11641 {"Math::GSL::Linalgc::gsl_linalg_SV_decomp_mod", _wrap_gsl_linalg_SV_decomp_mod},
11642 {"Math::GSL::Linalgc::gsl_linalg_SV_decomp_jacobi", _wrap_gsl_linalg_SV_decomp_jacobi},
11643 {"Math::GSL::Linalgc::gsl_linalg_SV_solve", _wrap_gsl_linalg_SV_solve},
11644 {"Math::GSL::Linalgc::gsl_linalg_SV_leverage", _wrap_gsl_linalg_SV_leverage},
11645 {"Math::GSL::Linalgc::gsl_linalg_LU_decomp", _wrap_gsl_linalg_LU_decomp},
11646 {"Math::GSL::Linalgc::gsl_linalg_LU_solve", _wrap_gsl_linalg_LU_solve},
11647 {"Math::GSL::Linalgc::gsl_linalg_LU_svx", _wrap_gsl_linalg_LU_svx},
11648 {"Math::GSL::Linalgc::gsl_linalg_LU_refine", _wrap_gsl_linalg_LU_refine},
11649 {"Math::GSL::Linalgc::gsl_linalg_LU_invert", _wrap_gsl_linalg_LU_invert},
11650 {"Math::GSL::Linalgc::gsl_linalg_LU_det", _wrap_gsl_linalg_LU_det},
11651 {"Math::GSL::Linalgc::gsl_linalg_LU_lndet", _wrap_gsl_linalg_LU_lndet},
11652 {"Math::GSL::Linalgc::gsl_linalg_LU_sgndet", _wrap_gsl_linalg_LU_sgndet},
11653 {"Math::GSL::Linalgc::gsl_linalg_complex_LU_decomp", _wrap_gsl_linalg_complex_LU_decomp},
11654 {"Math::GSL::Linalgc::gsl_linalg_complex_LU_solve", _wrap_gsl_linalg_complex_LU_solve},
11655 {"Math::GSL::Linalgc::gsl_linalg_complex_LU_svx", _wrap_gsl_linalg_complex_LU_svx},
11656 {"Math::GSL::Linalgc::gsl_linalg_complex_LU_refine", _wrap_gsl_linalg_complex_LU_refine},
11657 {"Math::GSL::Linalgc::gsl_linalg_complex_LU_invert", _wrap_gsl_linalg_complex_LU_invert},
11658 {"Math::GSL::Linalgc::gsl_linalg_complex_LU_det", _wrap_gsl_linalg_complex_LU_det},
11659 {"Math::GSL::Linalgc::gsl_linalg_complex_LU_lndet", _wrap_gsl_linalg_complex_LU_lndet},
11660 {"Math::GSL::Linalgc::gsl_linalg_complex_LU_sgndet", _wrap_gsl_linalg_complex_LU_sgndet},
11661 {"Math::GSL::Linalgc::gsl_linalg_QR_decomp", _wrap_gsl_linalg_QR_decomp},
11662 {"Math::GSL::Linalgc::gsl_linalg_QR_solve", _wrap_gsl_linalg_QR_solve},
11663 {"Math::GSL::Linalgc::gsl_linalg_QR_svx", _wrap_gsl_linalg_QR_svx},
11664 {"Math::GSL::Linalgc::gsl_linalg_QR_lssolve", _wrap_gsl_linalg_QR_lssolve},
11665 {"Math::GSL::Linalgc::gsl_linalg_QR_QRsolve", _wrap_gsl_linalg_QR_QRsolve},
11666 {"Math::GSL::Linalgc::gsl_linalg_QR_Rsolve", _wrap_gsl_linalg_QR_Rsolve},
11667 {"Math::GSL::Linalgc::gsl_linalg_QR_Rsvx", _wrap_gsl_linalg_QR_Rsvx},
11668 {"Math::GSL::Linalgc::gsl_linalg_QR_update", _wrap_gsl_linalg_QR_update},
11669 {"Math::GSL::Linalgc::gsl_linalg_QR_QTvec", _wrap_gsl_linalg_QR_QTvec},
11670 {"Math::GSL::Linalgc::gsl_linalg_QR_Qvec", _wrap_gsl_linalg_QR_Qvec},
11671 {"Math::GSL::Linalgc::gsl_linalg_QR_QTmat", _wrap_gsl_linalg_QR_QTmat},
11672 {"Math::GSL::Linalgc::gsl_linalg_QR_unpack", _wrap_gsl_linalg_QR_unpack},
11673 {"Math::GSL::Linalgc::gsl_linalg_R_solve", _wrap_gsl_linalg_R_solve},
11674 {"Math::GSL::Linalgc::gsl_linalg_R_svx", _wrap_gsl_linalg_R_svx},
11675 {"Math::GSL::Linalgc::gsl_linalg_QRPT_decomp", _wrap_gsl_linalg_QRPT_decomp},
11676 {"Math::GSL::Linalgc::gsl_linalg_QRPT_decomp2", _wrap_gsl_linalg_QRPT_decomp2},
11677 {"Math::GSL::Linalgc::gsl_linalg_QRPT_solve", _wrap_gsl_linalg_QRPT_solve},
11678 {"Math::GSL::Linalgc::gsl_linalg_QRPT_svx", _wrap_gsl_linalg_QRPT_svx},
11679 {"Math::GSL::Linalgc::gsl_linalg_QRPT_QRsolve", _wrap_gsl_linalg_QRPT_QRsolve},
11680 {"Math::GSL::Linalgc::gsl_linalg_QRPT_Rsolve", _wrap_gsl_linalg_QRPT_Rsolve},
11681 {"Math::GSL::Linalgc::gsl_linalg_QRPT_Rsvx", _wrap_gsl_linalg_QRPT_Rsvx},
11682 {"Math::GSL::Linalgc::gsl_linalg_QRPT_update", _wrap_gsl_linalg_QRPT_update},
11683 {"Math::GSL::Linalgc::gsl_linalg_LQ_decomp", _wrap_gsl_linalg_LQ_decomp},
11684 {"Math::GSL::Linalgc::gsl_linalg_LQ_solve_T", _wrap_gsl_linalg_LQ_solve_T},
11685 {"Math::GSL::Linalgc::gsl_linalg_LQ_svx_T", _wrap_gsl_linalg_LQ_svx_T},
11686 {"Math::GSL::Linalgc::gsl_linalg_LQ_lssolve_T", _wrap_gsl_linalg_LQ_lssolve_T},
11687 {"Math::GSL::Linalgc::gsl_linalg_LQ_Lsolve_T", _wrap_gsl_linalg_LQ_Lsolve_T},
11688 {"Math::GSL::Linalgc::gsl_linalg_LQ_Lsvx_T", _wrap_gsl_linalg_LQ_Lsvx_T},
11689 {"Math::GSL::Linalgc::gsl_linalg_L_solve_T", _wrap_gsl_linalg_L_solve_T},
11690 {"Math::GSL::Linalgc::gsl_linalg_LQ_vecQ", _wrap_gsl_linalg_LQ_vecQ},
11691 {"Math::GSL::Linalgc::gsl_linalg_LQ_vecQT", _wrap_gsl_linalg_LQ_vecQT},
11692 {"Math::GSL::Linalgc::gsl_linalg_LQ_unpack", _wrap_gsl_linalg_LQ_unpack},
11693 {"Math::GSL::Linalgc::gsl_linalg_LQ_update", _wrap_gsl_linalg_LQ_update},
11694 {"Math::GSL::Linalgc::gsl_linalg_LQ_LQsolve", _wrap_gsl_linalg_LQ_LQsolve},
11695 {"Math::GSL::Linalgc::gsl_linalg_PTLQ_decomp", _wrap_gsl_linalg_PTLQ_decomp},
11696 {"Math::GSL::Linalgc::gsl_linalg_PTLQ_decomp2", _wrap_gsl_linalg_PTLQ_decomp2},
11697 {"Math::GSL::Linalgc::gsl_linalg_PTLQ_solve_T", _wrap_gsl_linalg_PTLQ_solve_T},
11698 {"Math::GSL::Linalgc::gsl_linalg_PTLQ_svx_T", _wrap_gsl_linalg_PTLQ_svx_T},
11699 {"Math::GSL::Linalgc::gsl_linalg_PTLQ_LQsolve_T", _wrap_gsl_linalg_PTLQ_LQsolve_T},
11700 {"Math::GSL::Linalgc::gsl_linalg_PTLQ_Lsolve_T", _wrap_gsl_linalg_PTLQ_Lsolve_T},
11701 {"Math::GSL::Linalgc::gsl_linalg_PTLQ_Lsvx_T", _wrap_gsl_linalg_PTLQ_Lsvx_T},
11702 {"Math::GSL::Linalgc::gsl_linalg_PTLQ_update", _wrap_gsl_linalg_PTLQ_update},
11703 {"Math::GSL::Linalgc::gsl_linalg_cholesky_decomp", _wrap_gsl_linalg_cholesky_decomp},
11704 {"Math::GSL::Linalgc::gsl_linalg_cholesky_solve", _wrap_gsl_linalg_cholesky_solve},
11705 {"Math::GSL::Linalgc::gsl_linalg_cholesky_svx", _wrap_gsl_linalg_cholesky_svx},
11706 {"Math::GSL::Linalgc::gsl_linalg_cholesky_invert", _wrap_gsl_linalg_cholesky_invert},
11707 {"Math::GSL::Linalgc::gsl_linalg_cholesky_decomp_unit", _wrap_gsl_linalg_cholesky_decomp_unit},
11708 {"Math::GSL::Linalgc::gsl_linalg_complex_cholesky_decomp", _wrap_gsl_linalg_complex_cholesky_decomp},
11709 {"Math::GSL::Linalgc::gsl_linalg_complex_cholesky_solve", _wrap_gsl_linalg_complex_cholesky_solve},
11710 {"Math::GSL::Linalgc::gsl_linalg_complex_cholesky_svx", _wrap_gsl_linalg_complex_cholesky_svx},
11711 {"Math::GSL::Linalgc::gsl_linalg_complex_cholesky_invert", _wrap_gsl_linalg_complex_cholesky_invert},
11712 {"Math::GSL::Linalgc::gsl_linalg_symmtd_decomp", _wrap_gsl_linalg_symmtd_decomp},
11713 {"Math::GSL::Linalgc::gsl_linalg_symmtd_unpack", _wrap_gsl_linalg_symmtd_unpack},
11714 {"Math::GSL::Linalgc::gsl_linalg_symmtd_unpack_T", _wrap_gsl_linalg_symmtd_unpack_T},
11715 {"Math::GSL::Linalgc::gsl_linalg_hermtd_decomp", _wrap_gsl_linalg_hermtd_decomp},
11716 {"Math::GSL::Linalgc::gsl_linalg_hermtd_unpack", _wrap_gsl_linalg_hermtd_unpack},
11717 {"Math::GSL::Linalgc::gsl_linalg_hermtd_unpack_T", _wrap_gsl_linalg_hermtd_unpack_T},
11718 {"Math::GSL::Linalgc::gsl_linalg_HH_solve", _wrap_gsl_linalg_HH_solve},
11719 {"Math::GSL::Linalgc::gsl_linalg_HH_svx", _wrap_gsl_linalg_HH_svx},
11720 {"Math::GSL::Linalgc::gsl_linalg_solve_symm_tridiag", _wrap_gsl_linalg_solve_symm_tridiag},
11721 {"Math::GSL::Linalgc::gsl_linalg_solve_tridiag", _wrap_gsl_linalg_solve_tridiag},
11722 {"Math::GSL::Linalgc::gsl_linalg_solve_symm_cyc_tridiag", _wrap_gsl_linalg_solve_symm_cyc_tridiag},
11723 {"Math::GSL::Linalgc::gsl_linalg_solve_cyc_tridiag", _wrap_gsl_linalg_solve_cyc_tridiag},
11724 {"Math::GSL::Linalgc::gsl_linalg_bidiag_decomp", _wrap_gsl_linalg_bidiag_decomp},
11725 {"Math::GSL::Linalgc::gsl_linalg_bidiag_unpack", _wrap_gsl_linalg_bidiag_unpack},
11726 {"Math::GSL::Linalgc::gsl_linalg_bidiag_unpack2", _wrap_gsl_linalg_bidiag_unpack2},
11727 {"Math::GSL::Linalgc::gsl_linalg_bidiag_unpack_B", _wrap_gsl_linalg_bidiag_unpack_B},
11728 {"Math::GSL::Linalgc::gsl_linalg_balance_matrix", _wrap_gsl_linalg_balance_matrix},
11729 {"Math::GSL::Linalgc::gsl_linalg_balance_accum", _wrap_gsl_linalg_balance_accum},
11730 {"Math::GSL::Linalgc::gsl_linalg_balance_columns", _wrap_gsl_linalg_balance_columns},
11731 {"Math::GSL::Linalgc::gsl_permutation_struct_size_set", _wrap_gsl_permutation_struct_size_set},
11732 {"Math::GSL::Linalgc::gsl_permutation_struct_size_get", _wrap_gsl_permutation_struct_size_get},
11733 {"Math::GSL::Linalgc::gsl_permutation_struct_data_set", _wrap_gsl_permutation_struct_data_set},
11734 {"Math::GSL::Linalgc::gsl_permutation_struct_data_get", _wrap_gsl_permutation_struct_data_get},
11735 {"Math::GSL::Linalgc::new_gsl_permutation_struct", _wrap_new_gsl_permutation_struct},
11736 {"Math::GSL::Linalgc::delete_gsl_permutation_struct", _wrap_delete_gsl_permutation_struct},
11737 {"Math::GSL::Linalgc::gsl_permutation_alloc", _wrap_gsl_permutation_alloc},
11738 {"Math::GSL::Linalgc::gsl_permutation_calloc", _wrap_gsl_permutation_calloc},
11739 {"Math::GSL::Linalgc::gsl_permutation_init", _wrap_gsl_permutation_init},
11740 {"Math::GSL::Linalgc::gsl_permutation_free", _wrap_gsl_permutation_free},
11741 {"Math::GSL::Linalgc::gsl_permutation_memcpy", _wrap_gsl_permutation_memcpy},
11742 {"Math::GSL::Linalgc::gsl_permutation_fread", _wrap_gsl_permutation_fread},
11743 {"Math::GSL::Linalgc::gsl_permutation_fwrite", _wrap_gsl_permutation_fwrite},
11744 {"Math::GSL::Linalgc::gsl_permutation_fscanf", _wrap_gsl_permutation_fscanf},
11745 {"Math::GSL::Linalgc::gsl_permutation_fprintf", _wrap_gsl_permutation_fprintf},
11746 {"Math::GSL::Linalgc::gsl_permutation_size", _wrap_gsl_permutation_size},
11747 {"Math::GSL::Linalgc::gsl_permutation_data", _wrap_gsl_permutation_data},
11748 {"Math::GSL::Linalgc::gsl_permutation_swap", _wrap_gsl_permutation_swap},
11749 {"Math::GSL::Linalgc::gsl_permutation_valid", _wrap_gsl_permutation_valid},
11750 {"Math::GSL::Linalgc::gsl_permutation_reverse", _wrap_gsl_permutation_reverse},
11751 {"Math::GSL::Linalgc::gsl_permutation_inverse", _wrap_gsl_permutation_inverse},
11752 {"Math::GSL::Linalgc::gsl_permutation_next", _wrap_gsl_permutation_next},
11753 {"Math::GSL::Linalgc::gsl_permutation_prev", _wrap_gsl_permutation_prev},
11754 {"Math::GSL::Linalgc::gsl_permutation_mul", _wrap_gsl_permutation_mul},
11755 {"Math::GSL::Linalgc::gsl_permutation_linear_to_canonical", _wrap_gsl_permutation_linear_to_canonical},
11756 {"Math::GSL::Linalgc::gsl_permutation_canonical_to_linear", _wrap_gsl_permutation_canonical_to_linear},
11757 {"Math::GSL::Linalgc::gsl_permutation_inversions", _wrap_gsl_permutation_inversions},
11758 {"Math::GSL::Linalgc::gsl_permutation_linear_cycles", _wrap_gsl_permutation_linear_cycles},
11759 {"Math::GSL::Linalgc::gsl_permutation_canonical_cycles", _wrap_gsl_permutation_canonical_cycles},
11760 {"Math::GSL::Linalgc::gsl_permutation_get", _wrap_gsl_permutation_get},
11761 {"Math::GSL::Linalgc::gsl_complex_dat_set", _wrap_gsl_complex_dat_set},
11762 {"Math::GSL::Linalgc::gsl_complex_dat_get", _wrap_gsl_complex_dat_get},
11763 {"Math::GSL::Linalgc::new_gsl_complex", _wrap_new_gsl_complex},
11764 {"Math::GSL::Linalgc::delete_gsl_complex", _wrap_delete_gsl_complex},
11765 {"Math::GSL::Linalgc::gsl_complex_long_double_dat_set", _wrap_gsl_complex_long_double_dat_set},
11766 {"Math::GSL::Linalgc::gsl_complex_long_double_dat_get", _wrap_gsl_complex_long_double_dat_get},
11767 {"Math::GSL::Linalgc::new_gsl_complex_long_double", _wrap_new_gsl_complex_long_double},
11768 {"Math::GSL::Linalgc::delete_gsl_complex_long_double", _wrap_delete_gsl_complex_long_double},
11769 {"Math::GSL::Linalgc::gsl_complex_float_dat_set", _wrap_gsl_complex_float_dat_set},
11770 {"Math::GSL::Linalgc::gsl_complex_float_dat_get", _wrap_gsl_complex_float_dat_get},
11771 {"Math::GSL::Linalgc::new_gsl_complex_float", _wrap_new_gsl_complex_float},
11772 {"Math::GSL::Linalgc::delete_gsl_complex_float", _wrap_delete_gsl_complex_float},
11773 {"Math::GSL::Linalgc::gsl_complex_polar", _wrap_gsl_complex_polar},
11774 {"Math::GSL::Linalgc::gsl_complex_rect", _wrap_gsl_complex_rect},
11775 {"Math::GSL::Linalgc::gsl_complex_arg", _wrap_gsl_complex_arg},
11776 {"Math::GSL::Linalgc::gsl_complex_abs", _wrap_gsl_complex_abs},
11777 {"Math::GSL::Linalgc::gsl_complex_abs2", _wrap_gsl_complex_abs2},
11778 {"Math::GSL::Linalgc::gsl_complex_logabs", _wrap_gsl_complex_logabs},
11779 {"Math::GSL::Linalgc::gsl_complex_add", _wrap_gsl_complex_add},
11780 {"Math::GSL::Linalgc::gsl_complex_sub", _wrap_gsl_complex_sub},
11781 {"Math::GSL::Linalgc::gsl_complex_mul", _wrap_gsl_complex_mul},
11782 {"Math::GSL::Linalgc::gsl_complex_div", _wrap_gsl_complex_div},
11783 {"Math::GSL::Linalgc::gsl_complex_add_real", _wrap_gsl_complex_add_real},
11784 {"Math::GSL::Linalgc::gsl_complex_sub_real", _wrap_gsl_complex_sub_real},
11785 {"Math::GSL::Linalgc::gsl_complex_mul_real", _wrap_gsl_complex_mul_real},
11786 {"Math::GSL::Linalgc::gsl_complex_div_real", _wrap_gsl_complex_div_real},
11787 {"Math::GSL::Linalgc::gsl_complex_add_imag", _wrap_gsl_complex_add_imag},
11788 {"Math::GSL::Linalgc::gsl_complex_sub_imag", _wrap_gsl_complex_sub_imag},
11789 {"Math::GSL::Linalgc::gsl_complex_mul_imag", _wrap_gsl_complex_mul_imag},
11790 {"Math::GSL::Linalgc::gsl_complex_div_imag", _wrap_gsl_complex_div_imag},
11791 {"Math::GSL::Linalgc::gsl_complex_conjugate", _wrap_gsl_complex_conjugate},
11792 {"Math::GSL::Linalgc::gsl_complex_inverse", _wrap_gsl_complex_inverse},
11793 {"Math::GSL::Linalgc::gsl_complex_negative", _wrap_gsl_complex_negative},
11794 {"Math::GSL::Linalgc::gsl_complex_sqrt", _wrap_gsl_complex_sqrt},
11795 {"Math::GSL::Linalgc::gsl_complex_sqrt_real", _wrap_gsl_complex_sqrt_real},
11796 {"Math::GSL::Linalgc::gsl_complex_pow", _wrap_gsl_complex_pow},
11797 {"Math::GSL::Linalgc::gsl_complex_pow_real", _wrap_gsl_complex_pow_real},
11798 {"Math::GSL::Linalgc::gsl_complex_exp", _wrap_gsl_complex_exp},
11799 {"Math::GSL::Linalgc::gsl_complex_log", _wrap_gsl_complex_log},
11800 {"Math::GSL::Linalgc::gsl_complex_log10", _wrap_gsl_complex_log10},
11801 {"Math::GSL::Linalgc::gsl_complex_log_b", _wrap_gsl_complex_log_b},
11802 {"Math::GSL::Linalgc::gsl_complex_sin", _wrap_gsl_complex_sin},
11803 {"Math::GSL::Linalgc::gsl_complex_cos", _wrap_gsl_complex_cos},
11804 {"Math::GSL::Linalgc::gsl_complex_sec", _wrap_gsl_complex_sec},
11805 {"Math::GSL::Linalgc::gsl_complex_csc", _wrap_gsl_complex_csc},
11806 {"Math::GSL::Linalgc::gsl_complex_tan", _wrap_gsl_complex_tan},
11807 {"Math::GSL::Linalgc::gsl_complex_cot", _wrap_gsl_complex_cot},
11808 {"Math::GSL::Linalgc::gsl_complex_arcsin", _wrap_gsl_complex_arcsin},
11809 {"Math::GSL::Linalgc::gsl_complex_arcsin_real", _wrap_gsl_complex_arcsin_real},
11810 {"Math::GSL::Linalgc::gsl_complex_arccos", _wrap_gsl_complex_arccos},
11811 {"Math::GSL::Linalgc::gsl_complex_arccos_real", _wrap_gsl_complex_arccos_real},
11812 {"Math::GSL::Linalgc::gsl_complex_arcsec", _wrap_gsl_complex_arcsec},
11813 {"Math::GSL::Linalgc::gsl_complex_arcsec_real", _wrap_gsl_complex_arcsec_real},
11814 {"Math::GSL::Linalgc::gsl_complex_arccsc", _wrap_gsl_complex_arccsc},
11815 {"Math::GSL::Linalgc::gsl_complex_arccsc_real", _wrap_gsl_complex_arccsc_real},
11816 {"Math::GSL::Linalgc::gsl_complex_arctan", _wrap_gsl_complex_arctan},
11817 {"Math::GSL::Linalgc::gsl_complex_arccot", _wrap_gsl_complex_arccot},
11818 {"Math::GSL::Linalgc::gsl_complex_sinh", _wrap_gsl_complex_sinh},
11819 {"Math::GSL::Linalgc::gsl_complex_cosh", _wrap_gsl_complex_cosh},
11820 {"Math::GSL::Linalgc::gsl_complex_sech", _wrap_gsl_complex_sech},
11821 {"Math::GSL::Linalgc::gsl_complex_csch", _wrap_gsl_complex_csch},
11822 {"Math::GSL::Linalgc::gsl_complex_tanh", _wrap_gsl_complex_tanh},
11823 {"Math::GSL::Linalgc::gsl_complex_coth", _wrap_gsl_complex_coth},
11824 {"Math::GSL::Linalgc::gsl_complex_arcsinh", _wrap_gsl_complex_arcsinh},
11825 {"Math::GSL::Linalgc::gsl_complex_arccosh", _wrap_gsl_complex_arccosh},
11826 {"Math::GSL::Linalgc::gsl_complex_arccosh_real", _wrap_gsl_complex_arccosh_real},
11827 {"Math::GSL::Linalgc::gsl_complex_arcsech", _wrap_gsl_complex_arcsech},
11828 {"Math::GSL::Linalgc::gsl_complex_arccsch", _wrap_gsl_complex_arccsch},
11829 {"Math::GSL::Linalgc::gsl_complex_arctanh", _wrap_gsl_complex_arctanh},
11830 {"Math::GSL::Linalgc::gsl_complex_arctanh_real", _wrap_gsl_complex_arctanh_real},
11831 {"Math::GSL::Linalgc::gsl_complex_arccoth", _wrap_gsl_complex_arccoth},
11832 {0,0}
11833 };
11834 /* -----------------------------------------------------------------------------
11835 * Type initialization:
11836 * This problem is tough by the requirement that no dynamic
11837 * memory is used. Also, since swig_type_info structures store pointers to
11838 * swig_cast_info structures and swig_cast_info structures store pointers back
11839 * to swig_type_info structures, we need some lookup code at initialization.
11840 * The idea is that swig generates all the structures that are needed.
11841 * The runtime then collects these partially filled structures.
11842 * The SWIG_InitializeModule function takes these initial arrays out of
11843 * swig_module, and does all the lookup, filling in the swig_module.types
11844 * array with the correct data and linking the correct swig_cast_info
11845 * structures together.
11846 *
11847 * The generated swig_type_info structures are assigned statically to an initial
11848 * array. We just loop through that array, and handle each type individually.
11849 * First we lookup if this type has been already loaded, and if so, use the
11850 * loaded structure instead of the generated one. Then we have to fill in the
11851 * cast linked list. The cast data is initially stored in something like a
11852 * two-dimensional array. Each row corresponds to a type (there are the same
11853 * number of rows as there are in the swig_type_initial array). Each entry in
11854 * a column is one of the swig_cast_info structures for that type.
11855 * The cast_initial array is actually an array of arrays, because each row has
11856 * a variable number of columns. So to actually build the cast linked list,
11857 * we find the array of casts associated with the type, and loop through it
11858 * adding the casts to the list. The one last trick we need to do is making
11859 * sure the type pointer in the swig_cast_info struct is correct.
11860 *
11861 * First off, we lookup the cast->type name to see if it is already loaded.
11862 * There are three cases to handle:
11863 * 1) If the cast->type has already been loaded AND the type we are adding
11864 * casting info to has not been loaded (it is in this module), THEN we
11865 * replace the cast->type pointer with the type pointer that has already
11866 * been loaded.
11867 * 2) If BOTH types (the one we are adding casting info to, and the
11868 * cast->type) are loaded, THEN the cast info has already been loaded by
11869 * the previous module so we just ignore it.
11870 * 3) Finally, if cast->type has not already been loaded, then we add that
11871 * swig_cast_info to the linked list (because the cast->type) pointer will
11872 * be correct.
11873 * ----------------------------------------------------------------------------- */
11874
11875 #ifdef __cplusplus
11876 extern "C" {
11877 #if 0
11878 } /* c-mode */
11879 #endif
11880 #endif
11881
11882 #if 0
11883 #define SWIGRUNTIME_DEBUG
11884 #endif
11885
11886
11887 SWIGRUNTIME void
SWIG_InitializeModule(void * clientdata)11888 SWIG_InitializeModule(void *clientdata) {
11889 size_t i;
11890 swig_module_info *module_head, *iter;
11891 int init;
11892
11893 /* check to see if the circular list has been setup, if not, set it up */
11894 if (swig_module.next==0) {
11895 /* Initialize the swig_module */
11896 swig_module.type_initial = swig_type_initial;
11897 swig_module.cast_initial = swig_cast_initial;
11898 swig_module.next = &swig_module;
11899 init = 1;
11900 } else {
11901 init = 0;
11902 }
11903
11904 /* Try and load any already created modules */
11905 module_head = SWIG_GetModule(clientdata);
11906 if (!module_head) {
11907 /* This is the first module loaded for this interpreter */
11908 /* so set the swig module into the interpreter */
11909 SWIG_SetModule(clientdata, &swig_module);
11910 } else {
11911 /* the interpreter has loaded a SWIG module, but has it loaded this one? */
11912 iter=module_head;
11913 do {
11914 if (iter==&swig_module) {
11915 /* Our module is already in the list, so there's nothing more to do. */
11916 return;
11917 }
11918 iter=iter->next;
11919 } while (iter!= module_head);
11920
11921 /* otherwise we must add our module into the list */
11922 swig_module.next = module_head->next;
11923 module_head->next = &swig_module;
11924 }
11925
11926 /* When multiple interpreters are used, a module could have already been initialized in
11927 a different interpreter, but not yet have a pointer in this interpreter.
11928 In this case, we do not want to continue adding types... everything should be
11929 set up already */
11930 if (init == 0) return;
11931
11932 /* Now work on filling in swig_module.types */
11933 #ifdef SWIGRUNTIME_DEBUG
11934 printf("SWIG_InitializeModule: size %lu\n", (unsigned long)swig_module.size);
11935 #endif
11936 for (i = 0; i < swig_module.size; ++i) {
11937 swig_type_info *type = 0;
11938 swig_type_info *ret;
11939 swig_cast_info *cast;
11940
11941 #ifdef SWIGRUNTIME_DEBUG
11942 printf("SWIG_InitializeModule: type %lu %s\n", (unsigned long)i, swig_module.type_initial[i]->name);
11943 #endif
11944
11945 /* if there is another module already loaded */
11946 if (swig_module.next != &swig_module) {
11947 type = SWIG_MangledTypeQueryModule(swig_module.next, &swig_module, swig_module.type_initial[i]->name);
11948 }
11949 if (type) {
11950 /* Overwrite clientdata field */
11951 #ifdef SWIGRUNTIME_DEBUG
11952 printf("SWIG_InitializeModule: found type %s\n", type->name);
11953 #endif
11954 if (swig_module.type_initial[i]->clientdata) {
11955 type->clientdata = swig_module.type_initial[i]->clientdata;
11956 #ifdef SWIGRUNTIME_DEBUG
11957 printf("SWIG_InitializeModule: found and overwrite type %s \n", type->name);
11958 #endif
11959 }
11960 } else {
11961 type = swig_module.type_initial[i];
11962 }
11963
11964 /* Insert casting types */
11965 cast = swig_module.cast_initial[i];
11966 while (cast->type) {
11967 /* Don't need to add information already in the list */
11968 ret = 0;
11969 #ifdef SWIGRUNTIME_DEBUG
11970 printf("SWIG_InitializeModule: look cast %s\n", cast->type->name);
11971 #endif
11972 if (swig_module.next != &swig_module) {
11973 ret = SWIG_MangledTypeQueryModule(swig_module.next, &swig_module, cast->type->name);
11974 #ifdef SWIGRUNTIME_DEBUG
11975 if (ret) printf("SWIG_InitializeModule: found cast %s\n", ret->name);
11976 #endif
11977 }
11978 if (ret) {
11979 if (type == swig_module.type_initial[i]) {
11980 #ifdef SWIGRUNTIME_DEBUG
11981 printf("SWIG_InitializeModule: skip old type %s\n", ret->name);
11982 #endif
11983 cast->type = ret;
11984 ret = 0;
11985 } else {
11986 /* Check for casting already in the list */
11987 swig_cast_info *ocast = SWIG_TypeCheck(ret->name, type);
11988 #ifdef SWIGRUNTIME_DEBUG
11989 if (ocast) printf("SWIG_InitializeModule: skip old cast %s\n", ret->name);
11990 #endif
11991 if (!ocast) ret = 0;
11992 }
11993 }
11994
11995 if (!ret) {
11996 #ifdef SWIGRUNTIME_DEBUG
11997 printf("SWIG_InitializeModule: adding cast %s\n", cast->type->name);
11998 #endif
11999 if (type->cast) {
12000 type->cast->prev = cast;
12001 cast->next = type->cast;
12002 }
12003 type->cast = cast;
12004 }
12005 cast++;
12006 }
12007 /* Set entry in modules->types array equal to the type */
12008 swig_module.types[i] = type;
12009 }
12010 swig_module.types[i] = 0;
12011
12012 #ifdef SWIGRUNTIME_DEBUG
12013 printf("**** SWIG_InitializeModule: Cast List ******\n");
12014 for (i = 0; i < swig_module.size; ++i) {
12015 int j = 0;
12016 swig_cast_info *cast = swig_module.cast_initial[i];
12017 printf("SWIG_InitializeModule: type %lu %s\n", (unsigned long)i, swig_module.type_initial[i]->name);
12018 while (cast->type) {
12019 printf("SWIG_InitializeModule: cast type %s\n", cast->type->name);
12020 cast++;
12021 ++j;
12022 }
12023 printf("---- Total casts: %d\n",j);
12024 }
12025 printf("**** SWIG_InitializeModule: Cast List ******\n");
12026 #endif
12027 }
12028
12029 /* This function will propagate the clientdata field of type to
12030 * any new swig_type_info structures that have been added into the list
12031 * of equivalent types. It is like calling
12032 * SWIG_TypeClientData(type, clientdata) a second time.
12033 */
12034 SWIGRUNTIME void
SWIG_PropagateClientData(void)12035 SWIG_PropagateClientData(void) {
12036 size_t i;
12037 swig_cast_info *equiv;
12038 static int init_run = 0;
12039
12040 if (init_run) return;
12041 init_run = 1;
12042
12043 for (i = 0; i < swig_module.size; i++) {
12044 if (swig_module.types[i]->clientdata) {
12045 equiv = swig_module.types[i]->cast;
12046 while (equiv) {
12047 if (!equiv->converter) {
12048 if (equiv->type && !equiv->type->clientdata)
12049 SWIG_TypeClientData(equiv->type, swig_module.types[i]->clientdata);
12050 }
12051 equiv = equiv->next;
12052 }
12053 }
12054 }
12055 }
12056
12057 #ifdef __cplusplus
12058 #if 0
12059 {
12060 /* c-mode */
12061 #endif
12062 }
12063 #endif
12064
12065
12066
12067 #if defined(__cplusplus) && ! defined(XSPROTO)
12068 extern "C"
12069 #endif
12070
XS(SWIG_init)12071 XS(SWIG_init) {
12072 dXSARGS;
12073 int i;
12074 (void)items;
12075
12076 SWIG_InitializeModule(0);
12077
12078 /* Install commands */
12079 for (i = 0; swig_commands[i].name; i++) {
12080 /* Casts only needed for Perl < 5.10. */
12081 #ifdef __cplusplus
12082 newXS(const_cast<char*>(swig_commands[i].name), swig_commands[i].wrapper, const_cast<char*>(__FILE__));
12083 #else
12084 newXS((char*)swig_commands[i].name, swig_commands[i].wrapper, (char*)__FILE__);
12085 #endif
12086 }
12087
12088 /* Install variables */
12089 for (i = 0; swig_variables[i].name; i++) {
12090 SV *sv;
12091 sv = get_sv(swig_variables[i].name, TRUE | 0x2 | GV_ADDMULTI);
12092 if (swig_variables[i].type) {
12093 SWIG_MakePtr(sv,(void *)1, *swig_variables[i].type,0);
12094 } else {
12095 sv_setiv(sv,(IV) 0);
12096 }
12097 swig_create_magic(sv, swig_variables[i].name, swig_variables[i].set, swig_variables[i].get);
12098 }
12099
12100 /* Install constant */
12101 for (i = 0; swig_constants[i].type; i++) {
12102 SV *sv;
12103 sv = get_sv(swig_constants[i].name, TRUE | 0x2 | GV_ADDMULTI);
12104 switch(swig_constants[i].type) {
12105 case SWIG_INT:
12106 sv_setiv(sv, (IV) swig_constants[i].lvalue);
12107 break;
12108 case SWIG_FLOAT:
12109 sv_setnv(sv, (double) swig_constants[i].dvalue);
12110 break;
12111 case SWIG_STRING:
12112 sv_setpv(sv, (const char *) swig_constants[i].pvalue);
12113 break;
12114 case SWIG_POINTER:
12115 SWIG_MakePtr(sv, swig_constants[i].pvalue, *(swig_constants[i].ptype),0);
12116 break;
12117 case SWIG_BINARY:
12118 SWIG_MakePackedObj(sv, swig_constants[i].pvalue, swig_constants[i].lvalue, *(swig_constants[i].ptype));
12119 break;
12120 default:
12121 break;
12122 }
12123 SvREADONLY_on(sv);
12124 }
12125
12126 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12127 SV *sv = get_sv((char*) SWIG_prefix "GSL_VERSION", TRUE | 0x2 | GV_ADDMULTI);
12128 sv_setsv(sv, SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(2.7)));
12129 SvREADONLY_on(sv);
12130 } while(0) /*@SWIG@*/;
12131 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12132 SV *sv = get_sv((char*) SWIG_prefix "GSL_MAJOR_VERSION", TRUE | 0x2 | GV_ADDMULTI);
12133 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(2)));
12134 SvREADONLY_on(sv);
12135 } while(0) /*@SWIG@*/;
12136 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12137 SV *sv = get_sv((char*) SWIG_prefix "GSL_MINOR_VERSION", TRUE | 0x2 | GV_ADDMULTI);
12138 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(7)));
12139 SvREADONLY_on(sv);
12140 } while(0) /*@SWIG@*/;
12141 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12142 SV *sv = get_sv((char*) SWIG_prefix "GSL_POSZERO", TRUE | 0x2 | GV_ADDMULTI);
12143 sv_setsv(sv, SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)((+0.0))));
12144 SvREADONLY_on(sv);
12145 } while(0) /*@SWIG@*/;
12146 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12147 SV *sv = get_sv((char*) SWIG_prefix "GSL_NEGZERO", TRUE | 0x2 | GV_ADDMULTI);
12148 sv_setsv(sv, SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)((-0.0))));
12149 SvREADONLY_on(sv);
12150 } while(0) /*@SWIG@*/;
12151 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12152 SV *sv = get_sv((char*) SWIG_prefix "GSL_SUCCESS", TRUE | 0x2 | GV_ADDMULTI);
12153 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_SUCCESS)));
12154 SvREADONLY_on(sv);
12155 } while(0) /*@SWIG@*/;
12156 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12157 SV *sv = get_sv((char*) SWIG_prefix "GSL_FAILURE", TRUE | 0x2 | GV_ADDMULTI);
12158 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_FAILURE)));
12159 SvREADONLY_on(sv);
12160 } while(0) /*@SWIG@*/;
12161 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12162 SV *sv = get_sv((char*) SWIG_prefix "GSL_CONTINUE", TRUE | 0x2 | GV_ADDMULTI);
12163 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_CONTINUE)));
12164 SvREADONLY_on(sv);
12165 } while(0) /*@SWIG@*/;
12166 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12167 SV *sv = get_sv((char*) SWIG_prefix "GSL_EDOM", TRUE | 0x2 | GV_ADDMULTI);
12168 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EDOM)));
12169 SvREADONLY_on(sv);
12170 } while(0) /*@SWIG@*/;
12171 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12172 SV *sv = get_sv((char*) SWIG_prefix "GSL_ERANGE", TRUE | 0x2 | GV_ADDMULTI);
12173 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ERANGE)));
12174 SvREADONLY_on(sv);
12175 } while(0) /*@SWIG@*/;
12176 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12177 SV *sv = get_sv((char*) SWIG_prefix "GSL_EFAULT", TRUE | 0x2 | GV_ADDMULTI);
12178 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EFAULT)));
12179 SvREADONLY_on(sv);
12180 } while(0) /*@SWIG@*/;
12181 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12182 SV *sv = get_sv((char*) SWIG_prefix "GSL_EINVAL", TRUE | 0x2 | GV_ADDMULTI);
12183 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EINVAL)));
12184 SvREADONLY_on(sv);
12185 } while(0) /*@SWIG@*/;
12186 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12187 SV *sv = get_sv((char*) SWIG_prefix "GSL_EFAILED", TRUE | 0x2 | GV_ADDMULTI);
12188 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EFAILED)));
12189 SvREADONLY_on(sv);
12190 } while(0) /*@SWIG@*/;
12191 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12192 SV *sv = get_sv((char*) SWIG_prefix "GSL_EFACTOR", TRUE | 0x2 | GV_ADDMULTI);
12193 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EFACTOR)));
12194 SvREADONLY_on(sv);
12195 } while(0) /*@SWIG@*/;
12196 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12197 SV *sv = get_sv((char*) SWIG_prefix "GSL_ESANITY", TRUE | 0x2 | GV_ADDMULTI);
12198 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ESANITY)));
12199 SvREADONLY_on(sv);
12200 } while(0) /*@SWIG@*/;
12201 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12202 SV *sv = get_sv((char*) SWIG_prefix "GSL_ENOMEM", TRUE | 0x2 | GV_ADDMULTI);
12203 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ENOMEM)));
12204 SvREADONLY_on(sv);
12205 } while(0) /*@SWIG@*/;
12206 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12207 SV *sv = get_sv((char*) SWIG_prefix "GSL_EBADFUNC", TRUE | 0x2 | GV_ADDMULTI);
12208 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EBADFUNC)));
12209 SvREADONLY_on(sv);
12210 } while(0) /*@SWIG@*/;
12211 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12212 SV *sv = get_sv((char*) SWIG_prefix "GSL_ERUNAWAY", TRUE | 0x2 | GV_ADDMULTI);
12213 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ERUNAWAY)));
12214 SvREADONLY_on(sv);
12215 } while(0) /*@SWIG@*/;
12216 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12217 SV *sv = get_sv((char*) SWIG_prefix "GSL_EMAXITER", TRUE | 0x2 | GV_ADDMULTI);
12218 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EMAXITER)));
12219 SvREADONLY_on(sv);
12220 } while(0) /*@SWIG@*/;
12221 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12222 SV *sv = get_sv((char*) SWIG_prefix "GSL_EZERODIV", TRUE | 0x2 | GV_ADDMULTI);
12223 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EZERODIV)));
12224 SvREADONLY_on(sv);
12225 } while(0) /*@SWIG@*/;
12226 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12227 SV *sv = get_sv((char*) SWIG_prefix "GSL_EBADTOL", TRUE | 0x2 | GV_ADDMULTI);
12228 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EBADTOL)));
12229 SvREADONLY_on(sv);
12230 } while(0) /*@SWIG@*/;
12231 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12232 SV *sv = get_sv((char*) SWIG_prefix "GSL_ETOL", TRUE | 0x2 | GV_ADDMULTI);
12233 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ETOL)));
12234 SvREADONLY_on(sv);
12235 } while(0) /*@SWIG@*/;
12236 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12237 SV *sv = get_sv((char*) SWIG_prefix "GSL_EUNDRFLW", TRUE | 0x2 | GV_ADDMULTI);
12238 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EUNDRFLW)));
12239 SvREADONLY_on(sv);
12240 } while(0) /*@SWIG@*/;
12241 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12242 SV *sv = get_sv((char*) SWIG_prefix "GSL_EOVRFLW", TRUE | 0x2 | GV_ADDMULTI);
12243 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EOVRFLW)));
12244 SvREADONLY_on(sv);
12245 } while(0) /*@SWIG@*/;
12246 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12247 SV *sv = get_sv((char*) SWIG_prefix "GSL_ELOSS", TRUE | 0x2 | GV_ADDMULTI);
12248 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ELOSS)));
12249 SvREADONLY_on(sv);
12250 } while(0) /*@SWIG@*/;
12251 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12252 SV *sv = get_sv((char*) SWIG_prefix "GSL_EROUND", TRUE | 0x2 | GV_ADDMULTI);
12253 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EROUND)));
12254 SvREADONLY_on(sv);
12255 } while(0) /*@SWIG@*/;
12256 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12257 SV *sv = get_sv((char*) SWIG_prefix "GSL_EBADLEN", TRUE | 0x2 | GV_ADDMULTI);
12258 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EBADLEN)));
12259 SvREADONLY_on(sv);
12260 } while(0) /*@SWIG@*/;
12261 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12262 SV *sv = get_sv((char*) SWIG_prefix "GSL_ENOTSQR", TRUE | 0x2 | GV_ADDMULTI);
12263 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ENOTSQR)));
12264 SvREADONLY_on(sv);
12265 } while(0) /*@SWIG@*/;
12266 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12267 SV *sv = get_sv((char*) SWIG_prefix "GSL_ESING", TRUE | 0x2 | GV_ADDMULTI);
12268 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ESING)));
12269 SvREADONLY_on(sv);
12270 } while(0) /*@SWIG@*/;
12271 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12272 SV *sv = get_sv((char*) SWIG_prefix "GSL_EDIVERGE", TRUE | 0x2 | GV_ADDMULTI);
12273 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EDIVERGE)));
12274 SvREADONLY_on(sv);
12275 } while(0) /*@SWIG@*/;
12276 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12277 SV *sv = get_sv((char*) SWIG_prefix "GSL_EUNSUP", TRUE | 0x2 | GV_ADDMULTI);
12278 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EUNSUP)));
12279 SvREADONLY_on(sv);
12280 } while(0) /*@SWIG@*/;
12281 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12282 SV *sv = get_sv((char*) SWIG_prefix "GSL_EUNIMPL", TRUE | 0x2 | GV_ADDMULTI);
12283 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EUNIMPL)));
12284 SvREADONLY_on(sv);
12285 } while(0) /*@SWIG@*/;
12286 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12287 SV *sv = get_sv((char*) SWIG_prefix "GSL_ECACHE", TRUE | 0x2 | GV_ADDMULTI);
12288 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ECACHE)));
12289 SvREADONLY_on(sv);
12290 } while(0) /*@SWIG@*/;
12291 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12292 SV *sv = get_sv((char*) SWIG_prefix "GSL_ETABLE", TRUE | 0x2 | GV_ADDMULTI);
12293 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ETABLE)));
12294 SvREADONLY_on(sv);
12295 } while(0) /*@SWIG@*/;
12296 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12297 SV *sv = get_sv((char*) SWIG_prefix "GSL_ENOPROG", TRUE | 0x2 | GV_ADDMULTI);
12298 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ENOPROG)));
12299 SvREADONLY_on(sv);
12300 } while(0) /*@SWIG@*/;
12301 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12302 SV *sv = get_sv((char*) SWIG_prefix "GSL_ENOPROGJ", TRUE | 0x2 | GV_ADDMULTI);
12303 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ENOPROGJ)));
12304 SvREADONLY_on(sv);
12305 } while(0) /*@SWIG@*/;
12306 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12307 SV *sv = get_sv((char*) SWIG_prefix "GSL_ETOLF", TRUE | 0x2 | GV_ADDMULTI);
12308 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ETOLF)));
12309 SvREADONLY_on(sv);
12310 } while(0) /*@SWIG@*/;
12311 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12312 SV *sv = get_sv((char*) SWIG_prefix "GSL_ETOLX", TRUE | 0x2 | GV_ADDMULTI);
12313 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ETOLX)));
12314 SvREADONLY_on(sv);
12315 } while(0) /*@SWIG@*/;
12316 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12317 SV *sv = get_sv((char*) SWIG_prefix "GSL_ETOLG", TRUE | 0x2 | GV_ADDMULTI);
12318 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ETOLG)));
12319 SvREADONLY_on(sv);
12320 } while(0) /*@SWIG@*/;
12321 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12322 SV *sv = get_sv((char*) SWIG_prefix "GSL_EOF", TRUE | 0x2 | GV_ADDMULTI);
12323 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EOF)));
12324 SvREADONLY_on(sv);
12325 } while(0) /*@SWIG@*/;
12326 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12327 SV *sv = get_sv((char*) SWIG_prefix "GSL_LINALG_MOD_NONE", TRUE | 0x2 | GV_ADDMULTI);
12328 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_LINALG_MOD_NONE)));
12329 SvREADONLY_on(sv);
12330 } while(0) /*@SWIG@*/;
12331 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12332 SV *sv = get_sv((char*) SWIG_prefix "GSL_LINALG_MOD_TRANSPOSE", TRUE | 0x2 | GV_ADDMULTI);
12333 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_LINALG_MOD_TRANSPOSE)));
12334 SvREADONLY_on(sv);
12335 } while(0) /*@SWIG@*/;
12336 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12337 SV *sv = get_sv((char*) SWIG_prefix "GSL_LINALG_MOD_CONJUGATE", TRUE | 0x2 | GV_ADDMULTI);
12338 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_LINALG_MOD_CONJUGATE)));
12339 SvREADONLY_on(sv);
12340 } while(0) /*@SWIG@*/;
12341 SWIG_TypeClientData(SWIGTYPE_p_gsl_permutation_struct, (void*) "Math::GSL::Linalg::gsl_permutation_struct");
12342 SWIG_TypeClientData(SWIGTYPE_p_gsl_complex, (void*) "Math::GSL::Linalg::gsl_complex");
12343 SWIG_TypeClientData(SWIGTYPE_p_gsl_complex_long_double, (void*) "Math::GSL::Linalg::gsl_complex_long_double");
12344 SWIG_TypeClientData(SWIGTYPE_p_gsl_complex_float, (void*) "Math::GSL::Linalg::gsl_complex_float");
12345 ST(0) = &PL_sv_yes;
12346 XSRETURN(1);
12347 }
12348
12349