1 /* ----------------------------------------------------------------------------
2 * This file was automatically generated by SWIG (http://www.swig.org).
3 * Version 4.0.1
4 *
5 * This file is not intended to be easily readable and contains a number of
6 * coding conventions designed to improve portability and efficiency. Do not make
7 * changes to this file unless you know what you are doing--modify the SWIG
8 * interface file instead.
9 * ----------------------------------------------------------------------------- */
10
11
12 #ifndef SWIGPERL
13 #define SWIGPERL
14 #endif
15
16 #define SWIG_CASTRANK_MODE
17
18 /* -----------------------------------------------------------------------------
19 * This section contains generic SWIG labels for method/variable
20 * declarations/attributes, and other compiler dependent labels.
21 * ----------------------------------------------------------------------------- */
22
23 /* template workaround for compilers that cannot correctly implement the C++ standard */
24 #ifndef SWIGTEMPLATEDISAMBIGUATOR
25 # if defined(__SUNPRO_CC) && (__SUNPRO_CC <= 0x560)
26 # define SWIGTEMPLATEDISAMBIGUATOR template
27 # elif defined(__HP_aCC)
28 /* Needed even with `aCC -AA' when `aCC -V' reports HP ANSI C++ B3910B A.03.55 */
29 /* If we find a maximum version that requires this, the test would be __HP_aCC <= 35500 for A.03.55 */
30 # define SWIGTEMPLATEDISAMBIGUATOR template
31 # else
32 # define SWIGTEMPLATEDISAMBIGUATOR
33 # endif
34 #endif
35
36 /* inline attribute */
37 #ifndef SWIGINLINE
38 # if defined(__cplusplus) || (defined(__GNUC__) && !defined(__STRICT_ANSI__))
39 # define SWIGINLINE inline
40 # else
41 # define SWIGINLINE
42 # endif
43 #endif
44
45 /* attribute recognised by some compilers to avoid 'unused' warnings */
46 #ifndef SWIGUNUSED
47 # if defined(__GNUC__)
48 # if !(defined(__cplusplus)) || (__GNUC__ > 3 || (__GNUC__ == 3 && __GNUC_MINOR__ >= 4))
49 # define SWIGUNUSED __attribute__ ((__unused__))
50 # else
51 # define SWIGUNUSED
52 # endif
53 # elif defined(__ICC)
54 # define SWIGUNUSED __attribute__ ((__unused__))
55 # else
56 # define SWIGUNUSED
57 # endif
58 #endif
59
60 #ifndef SWIG_MSC_UNSUPPRESS_4505
61 # if defined(_MSC_VER)
62 # pragma warning(disable : 4505) /* unreferenced local function has been removed */
63 # endif
64 #endif
65
66 #ifndef SWIGUNUSEDPARM
67 # ifdef __cplusplus
68 # define SWIGUNUSEDPARM(p)
69 # else
70 # define SWIGUNUSEDPARM(p) p SWIGUNUSED
71 # endif
72 #endif
73
74 /* internal SWIG method */
75 #ifndef SWIGINTERN
76 # define SWIGINTERN static SWIGUNUSED
77 #endif
78
79 /* internal inline SWIG method */
80 #ifndef SWIGINTERNINLINE
81 # define SWIGINTERNINLINE SWIGINTERN SWIGINLINE
82 #endif
83
84 /* exporting methods */
85 #if defined(__GNUC__)
86 # if (__GNUC__ >= 4) || (__GNUC__ == 3 && __GNUC_MINOR__ >= 4)
87 # ifndef GCC_HASCLASSVISIBILITY
88 # define GCC_HASCLASSVISIBILITY
89 # endif
90 # endif
91 #endif
92
93 #ifndef SWIGEXPORT
94 # if defined(_WIN32) || defined(__WIN32__) || defined(__CYGWIN__)
95 # if defined(STATIC_LINKED)
96 # define SWIGEXPORT
97 # else
98 # define SWIGEXPORT __declspec(dllexport)
99 # endif
100 # else
101 # if defined(__GNUC__) && defined(GCC_HASCLASSVISIBILITY)
102 # define SWIGEXPORT __attribute__ ((visibility("default")))
103 # else
104 # define SWIGEXPORT
105 # endif
106 # endif
107 #endif
108
109 /* calling conventions for Windows */
110 #ifndef SWIGSTDCALL
111 # if defined(_WIN32) || defined(__WIN32__) || defined(__CYGWIN__)
112 # define SWIGSTDCALL __stdcall
113 # else
114 # define SWIGSTDCALL
115 # endif
116 #endif
117
118 /* Deal with Microsoft's attempt at deprecating C standard runtime functions */
119 #if !defined(SWIG_NO_CRT_SECURE_NO_DEPRECATE) && defined(_MSC_VER) && !defined(_CRT_SECURE_NO_DEPRECATE)
120 # define _CRT_SECURE_NO_DEPRECATE
121 #endif
122
123 /* Deal with Microsoft's attempt at deprecating methods in the standard C++ library */
124 #if !defined(SWIG_NO_SCL_SECURE_NO_DEPRECATE) && defined(_MSC_VER) && !defined(_SCL_SECURE_NO_DEPRECATE)
125 # define _SCL_SECURE_NO_DEPRECATE
126 #endif
127
128 /* Deal with Apple's deprecated 'AssertMacros.h' from Carbon-framework */
129 #if defined(__APPLE__) && !defined(__ASSERT_MACROS_DEFINE_VERSIONS_WITHOUT_UNDERSCORES)
130 # define __ASSERT_MACROS_DEFINE_VERSIONS_WITHOUT_UNDERSCORES 0
131 #endif
132
133 /* Intel's compiler complains if a variable which was never initialised is
134 * cast to void, which is a common idiom which we use to indicate that we
135 * are aware a variable isn't used. So we just silence that warning.
136 * See: https://github.com/swig/swig/issues/192 for more discussion.
137 */
138 #ifdef __INTEL_COMPILER
139 # pragma warning disable 592
140 #endif
141
142 /* -----------------------------------------------------------------------------
143 * swigrun.swg
144 *
145 * This file contains generic C API SWIG runtime support for pointer
146 * type checking.
147 * ----------------------------------------------------------------------------- */
148
149 /* This should only be incremented when either the layout of swig_type_info changes,
150 or for whatever reason, the runtime changes incompatibly */
151 #define SWIG_RUNTIME_VERSION "4"
152
153 /* define SWIG_TYPE_TABLE_NAME as "SWIG_TYPE_TABLE" */
154 #ifdef SWIG_TYPE_TABLE
155 # define SWIG_QUOTE_STRING(x) #x
156 # define SWIG_EXPAND_AND_QUOTE_STRING(x) SWIG_QUOTE_STRING(x)
157 # define SWIG_TYPE_TABLE_NAME SWIG_EXPAND_AND_QUOTE_STRING(SWIG_TYPE_TABLE)
158 #else
159 # define SWIG_TYPE_TABLE_NAME
160 #endif
161
162 /*
163 You can use the SWIGRUNTIME and SWIGRUNTIMEINLINE macros for
164 creating a static or dynamic library from the SWIG runtime code.
165 In 99.9% of the cases, SWIG just needs to declare them as 'static'.
166
167 But only do this if strictly necessary, ie, if you have problems
168 with your compiler or suchlike.
169 */
170
171 #ifndef SWIGRUNTIME
172 # define SWIGRUNTIME SWIGINTERN
173 #endif
174
175 #ifndef SWIGRUNTIMEINLINE
176 # define SWIGRUNTIMEINLINE SWIGRUNTIME SWIGINLINE
177 #endif
178
179 /* Generic buffer size */
180 #ifndef SWIG_BUFFER_SIZE
181 # define SWIG_BUFFER_SIZE 1024
182 #endif
183
184 /* Flags for pointer conversions */
185 #define SWIG_POINTER_DISOWN 0x1
186 #define SWIG_CAST_NEW_MEMORY 0x2
187 #define SWIG_POINTER_NO_NULL 0x4
188
189 /* Flags for new pointer objects */
190 #define SWIG_POINTER_OWN 0x1
191
192
193 /*
194 Flags/methods for returning states.
195
196 The SWIG conversion methods, as ConvertPtr, return an integer
197 that tells if the conversion was successful or not. And if not,
198 an error code can be returned (see swigerrors.swg for the codes).
199
200 Use the following macros/flags to set or process the returning
201 states.
202
203 In old versions of SWIG, code such as the following was usually written:
204
205 if (SWIG_ConvertPtr(obj,vptr,ty.flags) != -1) {
206 // success code
207 } else {
208 //fail code
209 }
210
211 Now you can be more explicit:
212
213 int res = SWIG_ConvertPtr(obj,vptr,ty.flags);
214 if (SWIG_IsOK(res)) {
215 // success code
216 } else {
217 // fail code
218 }
219
220 which is the same really, but now you can also do
221
222 Type *ptr;
223 int res = SWIG_ConvertPtr(obj,(void **)(&ptr),ty.flags);
224 if (SWIG_IsOK(res)) {
225 // success code
226 if (SWIG_IsNewObj(res) {
227 ...
228 delete *ptr;
229 } else {
230 ...
231 }
232 } else {
233 // fail code
234 }
235
236 I.e., now SWIG_ConvertPtr can return new objects and you can
237 identify the case and take care of the deallocation. Of course that
238 also requires SWIG_ConvertPtr to return new result values, such as
239
240 int SWIG_ConvertPtr(obj, ptr,...) {
241 if (<obj is ok>) {
242 if (<need new object>) {
243 *ptr = <ptr to new allocated object>;
244 return SWIG_NEWOBJ;
245 } else {
246 *ptr = <ptr to old object>;
247 return SWIG_OLDOBJ;
248 }
249 } else {
250 return SWIG_BADOBJ;
251 }
252 }
253
254 Of course, returning the plain '0(success)/-1(fail)' still works, but you can be
255 more explicit by returning SWIG_BADOBJ, SWIG_ERROR or any of the
256 SWIG errors code.
257
258 Finally, if the SWIG_CASTRANK_MODE is enabled, the result code
259 allows to return the 'cast rank', for example, if you have this
260
261 int food(double)
262 int fooi(int);
263
264 and you call
265
266 food(1) // cast rank '1' (1 -> 1.0)
267 fooi(1) // cast rank '0'
268
269 just use the SWIG_AddCast()/SWIG_CheckState()
270 */
271
272 #define SWIG_OK (0)
273 #define SWIG_ERROR (-1)
274 #define SWIG_IsOK(r) (r >= 0)
275 #define SWIG_ArgError(r) ((r != SWIG_ERROR) ? r : SWIG_TypeError)
276
277 /* The CastRankLimit says how many bits are used for the cast rank */
278 #define SWIG_CASTRANKLIMIT (1 << 8)
279 /* The NewMask denotes the object was created (using new/malloc) */
280 #define SWIG_NEWOBJMASK (SWIG_CASTRANKLIMIT << 1)
281 /* The TmpMask is for in/out typemaps that use temporal objects */
282 #define SWIG_TMPOBJMASK (SWIG_NEWOBJMASK << 1)
283 /* Simple returning values */
284 #define SWIG_BADOBJ (SWIG_ERROR)
285 #define SWIG_OLDOBJ (SWIG_OK)
286 #define SWIG_NEWOBJ (SWIG_OK | SWIG_NEWOBJMASK)
287 #define SWIG_TMPOBJ (SWIG_OK | SWIG_TMPOBJMASK)
288 /* Check, add and del mask methods */
289 #define SWIG_AddNewMask(r) (SWIG_IsOK(r) ? (r | SWIG_NEWOBJMASK) : r)
290 #define SWIG_DelNewMask(r) (SWIG_IsOK(r) ? (r & ~SWIG_NEWOBJMASK) : r)
291 #define SWIG_IsNewObj(r) (SWIG_IsOK(r) && (r & SWIG_NEWOBJMASK))
292 #define SWIG_AddTmpMask(r) (SWIG_IsOK(r) ? (r | SWIG_TMPOBJMASK) : r)
293 #define SWIG_DelTmpMask(r) (SWIG_IsOK(r) ? (r & ~SWIG_TMPOBJMASK) : r)
294 #define SWIG_IsTmpObj(r) (SWIG_IsOK(r) && (r & SWIG_TMPOBJMASK))
295
296 /* Cast-Rank Mode */
297 #if defined(SWIG_CASTRANK_MODE)
298 # ifndef SWIG_TypeRank
299 # define SWIG_TypeRank unsigned long
300 # endif
301 # ifndef SWIG_MAXCASTRANK /* Default cast allowed */
302 # define SWIG_MAXCASTRANK (2)
303 # endif
304 # define SWIG_CASTRANKMASK ((SWIG_CASTRANKLIMIT) -1)
305 # define SWIG_CastRank(r) (r & SWIG_CASTRANKMASK)
SWIG_AddCast(int r)306 SWIGINTERNINLINE int SWIG_AddCast(int r) {
307 return SWIG_IsOK(r) ? ((SWIG_CastRank(r) < SWIG_MAXCASTRANK) ? (r + 1) : SWIG_ERROR) : r;
308 }
SWIG_CheckState(int r)309 SWIGINTERNINLINE int SWIG_CheckState(int r) {
310 return SWIG_IsOK(r) ? SWIG_CastRank(r) + 1 : 0;
311 }
312 #else /* no cast-rank mode */
313 # define SWIG_AddCast(r) (r)
314 # define SWIG_CheckState(r) (SWIG_IsOK(r) ? 1 : 0)
315 #endif
316
317
318 #include <string.h>
319
320 #ifdef __cplusplus
321 extern "C" {
322 #endif
323
324 typedef void *(*swig_converter_func)(void *, int *);
325 typedef struct swig_type_info *(*swig_dycast_func)(void **);
326
327 /* Structure to store information on one type */
328 typedef struct swig_type_info {
329 const char *name; /* mangled name of this type */
330 const char *str; /* human readable name of this type */
331 swig_dycast_func dcast; /* dynamic cast function down a hierarchy */
332 struct swig_cast_info *cast; /* linked list of types that can cast into this type */
333 void *clientdata; /* language specific type data */
334 int owndata; /* flag if the structure owns the clientdata */
335 } swig_type_info;
336
337 /* Structure to store a type and conversion function used for casting */
338 typedef struct swig_cast_info {
339 swig_type_info *type; /* pointer to type that is equivalent to this type */
340 swig_converter_func converter; /* function to cast the void pointers */
341 struct swig_cast_info *next; /* pointer to next cast in linked list */
342 struct swig_cast_info *prev; /* pointer to the previous cast */
343 } swig_cast_info;
344
345 /* Structure used to store module information
346 * Each module generates one structure like this, and the runtime collects
347 * all of these structures and stores them in a circularly linked list.*/
348 typedef struct swig_module_info {
349 swig_type_info **types; /* Array of pointers to swig_type_info structures that are in this module */
350 size_t size; /* Number of types in this module */
351 struct swig_module_info *next; /* Pointer to next element in circularly linked list */
352 swig_type_info **type_initial; /* Array of initially generated type structures */
353 swig_cast_info **cast_initial; /* Array of initially generated casting structures */
354 void *clientdata; /* Language specific module data */
355 } swig_module_info;
356
357 /*
358 Compare two type names skipping the space characters, therefore
359 "char*" == "char *" and "Class<int>" == "Class<int >", etc.
360
361 Return 0 when the two name types are equivalent, as in
362 strncmp, but skipping ' '.
363 */
364 SWIGRUNTIME int
SWIG_TypeNameComp(const char * f1,const char * l1,const char * f2,const char * l2)365 SWIG_TypeNameComp(const char *f1, const char *l1,
366 const char *f2, const char *l2) {
367 for (;(f1 != l1) && (f2 != l2); ++f1, ++f2) {
368 while ((*f1 == ' ') && (f1 != l1)) ++f1;
369 while ((*f2 == ' ') && (f2 != l2)) ++f2;
370 if (*f1 != *f2) return (*f1 > *f2) ? 1 : -1;
371 }
372 return (int)((l1 - f1) - (l2 - f2));
373 }
374
375 /*
376 Check type equivalence in a name list like <name1>|<name2>|...
377 Return 0 if equal, -1 if nb < tb, 1 if nb > tb
378 */
379 SWIGRUNTIME int
SWIG_TypeCmp(const char * nb,const char * tb)380 SWIG_TypeCmp(const char *nb, const char *tb) {
381 int equiv = 1;
382 const char* te = tb + strlen(tb);
383 const char* ne = nb;
384 while (equiv != 0 && *ne) {
385 for (nb = ne; *ne; ++ne) {
386 if (*ne == '|') break;
387 }
388 equiv = SWIG_TypeNameComp(nb, ne, tb, te);
389 if (*ne) ++ne;
390 }
391 return equiv;
392 }
393
394 /*
395 Check type equivalence in a name list like <name1>|<name2>|...
396 Return 0 if not equal, 1 if equal
397 */
398 SWIGRUNTIME int
SWIG_TypeEquiv(const char * nb,const char * tb)399 SWIG_TypeEquiv(const char *nb, const char *tb) {
400 return SWIG_TypeCmp(nb, tb) == 0 ? 1 : 0;
401 }
402
403 /*
404 Check the typename
405 */
406 SWIGRUNTIME swig_cast_info *
SWIG_TypeCheck(const char * c,swig_type_info * ty)407 SWIG_TypeCheck(const char *c, swig_type_info *ty) {
408 if (ty) {
409 swig_cast_info *iter = ty->cast;
410 while (iter) {
411 if (strcmp(iter->type->name, c) == 0) {
412 if (iter == ty->cast)
413 return iter;
414 /* Move iter to the top of the linked list */
415 iter->prev->next = iter->next;
416 if (iter->next)
417 iter->next->prev = iter->prev;
418 iter->next = ty->cast;
419 iter->prev = 0;
420 if (ty->cast) ty->cast->prev = iter;
421 ty->cast = iter;
422 return iter;
423 }
424 iter = iter->next;
425 }
426 }
427 return 0;
428 }
429
430 /*
431 Identical to SWIG_TypeCheck, except strcmp is replaced with a pointer comparison
432 */
433 SWIGRUNTIME swig_cast_info *
SWIG_TypeCheckStruct(swig_type_info * from,swig_type_info * ty)434 SWIG_TypeCheckStruct(swig_type_info *from, swig_type_info *ty) {
435 if (ty) {
436 swig_cast_info *iter = ty->cast;
437 while (iter) {
438 if (iter->type == from) {
439 if (iter == ty->cast)
440 return iter;
441 /* Move iter to the top of the linked list */
442 iter->prev->next = iter->next;
443 if (iter->next)
444 iter->next->prev = iter->prev;
445 iter->next = ty->cast;
446 iter->prev = 0;
447 if (ty->cast) ty->cast->prev = iter;
448 ty->cast = iter;
449 return iter;
450 }
451 iter = iter->next;
452 }
453 }
454 return 0;
455 }
456
457 /*
458 Cast a pointer up an inheritance hierarchy
459 */
460 SWIGRUNTIMEINLINE void *
SWIG_TypeCast(swig_cast_info * ty,void * ptr,int * newmemory)461 SWIG_TypeCast(swig_cast_info *ty, void *ptr, int *newmemory) {
462 return ((!ty) || (!ty->converter)) ? ptr : (*ty->converter)(ptr, newmemory);
463 }
464
465 /*
466 Dynamic pointer casting. Down an inheritance hierarchy
467 */
468 SWIGRUNTIME swig_type_info *
SWIG_TypeDynamicCast(swig_type_info * ty,void ** ptr)469 SWIG_TypeDynamicCast(swig_type_info *ty, void **ptr) {
470 swig_type_info *lastty = ty;
471 if (!ty || !ty->dcast) return ty;
472 while (ty && (ty->dcast)) {
473 ty = (*ty->dcast)(ptr);
474 if (ty) lastty = ty;
475 }
476 return lastty;
477 }
478
479 /*
480 Return the name associated with this type
481 */
482 SWIGRUNTIMEINLINE const char *
SWIG_TypeName(const swig_type_info * ty)483 SWIG_TypeName(const swig_type_info *ty) {
484 return ty->name;
485 }
486
487 /*
488 Return the pretty name associated with this type,
489 that is an unmangled type name in a form presentable to the user.
490 */
491 SWIGRUNTIME const char *
SWIG_TypePrettyName(const swig_type_info * type)492 SWIG_TypePrettyName(const swig_type_info *type) {
493 /* The "str" field contains the equivalent pretty names of the
494 type, separated by vertical-bar characters. We choose
495 to print the last name, as it is often (?) the most
496 specific. */
497 if (!type) return NULL;
498 if (type->str != NULL) {
499 const char *last_name = type->str;
500 const char *s;
501 for (s = type->str; *s; s++)
502 if (*s == '|') last_name = s+1;
503 return last_name;
504 }
505 else
506 return type->name;
507 }
508
509 /*
510 Set the clientdata field for a type
511 */
512 SWIGRUNTIME void
SWIG_TypeClientData(swig_type_info * ti,void * clientdata)513 SWIG_TypeClientData(swig_type_info *ti, void *clientdata) {
514 swig_cast_info *cast = ti->cast;
515 /* if (ti->clientdata == clientdata) return; */
516 ti->clientdata = clientdata;
517
518 while (cast) {
519 if (!cast->converter) {
520 swig_type_info *tc = cast->type;
521 if (!tc->clientdata) {
522 SWIG_TypeClientData(tc, clientdata);
523 }
524 }
525 cast = cast->next;
526 }
527 }
528 SWIGRUNTIME void
SWIG_TypeNewClientData(swig_type_info * ti,void * clientdata)529 SWIG_TypeNewClientData(swig_type_info *ti, void *clientdata) {
530 SWIG_TypeClientData(ti, clientdata);
531 ti->owndata = 1;
532 }
533
534 /*
535 Search for a swig_type_info structure only by mangled name
536 Search is a O(log #types)
537
538 We start searching at module start, and finish searching when start == end.
539 Note: if start == end at the beginning of the function, we go all the way around
540 the circular list.
541 */
542 SWIGRUNTIME swig_type_info *
SWIG_MangledTypeQueryModule(swig_module_info * start,swig_module_info * end,const char * name)543 SWIG_MangledTypeQueryModule(swig_module_info *start,
544 swig_module_info *end,
545 const char *name) {
546 swig_module_info *iter = start;
547 do {
548 if (iter->size) {
549 size_t l = 0;
550 size_t r = iter->size - 1;
551 do {
552 /* since l+r >= 0, we can (>> 1) instead (/ 2) */
553 size_t i = (l + r) >> 1;
554 const char *iname = iter->types[i]->name;
555 if (iname) {
556 int compare = strcmp(name, iname);
557 if (compare == 0) {
558 return iter->types[i];
559 } else if (compare < 0) {
560 if (i) {
561 r = i - 1;
562 } else {
563 break;
564 }
565 } else if (compare > 0) {
566 l = i + 1;
567 }
568 } else {
569 break; /* should never happen */
570 }
571 } while (l <= r);
572 }
573 iter = iter->next;
574 } while (iter != end);
575 return 0;
576 }
577
578 /*
579 Search for a swig_type_info structure for either a mangled name or a human readable name.
580 It first searches the mangled names of the types, which is a O(log #types)
581 If a type is not found it then searches the human readable names, which is O(#types).
582
583 We start searching at module start, and finish searching when start == end.
584 Note: if start == end at the beginning of the function, we go all the way around
585 the circular list.
586 */
587 SWIGRUNTIME swig_type_info *
SWIG_TypeQueryModule(swig_module_info * start,swig_module_info * end,const char * name)588 SWIG_TypeQueryModule(swig_module_info *start,
589 swig_module_info *end,
590 const char *name) {
591 /* STEP 1: Search the name field using binary search */
592 swig_type_info *ret = SWIG_MangledTypeQueryModule(start, end, name);
593 if (ret) {
594 return ret;
595 } else {
596 /* STEP 2: If the type hasn't been found, do a complete search
597 of the str field (the human readable name) */
598 swig_module_info *iter = start;
599 do {
600 size_t i = 0;
601 for (; i < iter->size; ++i) {
602 if (iter->types[i]->str && (SWIG_TypeEquiv(iter->types[i]->str, name)))
603 return iter->types[i];
604 }
605 iter = iter->next;
606 } while (iter != end);
607 }
608
609 /* neither found a match */
610 return 0;
611 }
612
613 /*
614 Pack binary data into a string
615 */
616 SWIGRUNTIME char *
SWIG_PackData(char * c,void * ptr,size_t sz)617 SWIG_PackData(char *c, void *ptr, size_t sz) {
618 static const char hex[17] = "0123456789abcdef";
619 const unsigned char *u = (unsigned char *) ptr;
620 const unsigned char *eu = u + sz;
621 for (; u != eu; ++u) {
622 unsigned char uu = *u;
623 *(c++) = hex[(uu & 0xf0) >> 4];
624 *(c++) = hex[uu & 0xf];
625 }
626 return c;
627 }
628
629 /*
630 Unpack binary data from a string
631 */
632 SWIGRUNTIME const char *
SWIG_UnpackData(const char * c,void * ptr,size_t sz)633 SWIG_UnpackData(const char *c, void *ptr, size_t sz) {
634 unsigned char *u = (unsigned char *) ptr;
635 const unsigned char *eu = u + sz;
636 for (; u != eu; ++u) {
637 char d = *(c++);
638 unsigned char uu;
639 if ((d >= '0') && (d <= '9'))
640 uu = (unsigned char)((d - '0') << 4);
641 else if ((d >= 'a') && (d <= 'f'))
642 uu = (unsigned char)((d - ('a'-10)) << 4);
643 else
644 return (char *) 0;
645 d = *(c++);
646 if ((d >= '0') && (d <= '9'))
647 uu |= (unsigned char)(d - '0');
648 else if ((d >= 'a') && (d <= 'f'))
649 uu |= (unsigned char)(d - ('a'-10));
650 else
651 return (char *) 0;
652 *u = uu;
653 }
654 return c;
655 }
656
657 /*
658 Pack 'void *' into a string buffer.
659 */
660 SWIGRUNTIME char *
SWIG_PackVoidPtr(char * buff,void * ptr,const char * name,size_t bsz)661 SWIG_PackVoidPtr(char *buff, void *ptr, const char *name, size_t bsz) {
662 char *r = buff;
663 if ((2*sizeof(void *) + 2) > bsz) return 0;
664 *(r++) = '_';
665 r = SWIG_PackData(r,&ptr,sizeof(void *));
666 if (strlen(name) + 1 > (bsz - (r - buff))) return 0;
667 strcpy(r,name);
668 return buff;
669 }
670
671 SWIGRUNTIME const char *
SWIG_UnpackVoidPtr(const char * c,void ** ptr,const char * name)672 SWIG_UnpackVoidPtr(const char *c, void **ptr, const char *name) {
673 if (*c != '_') {
674 if (strcmp(c,"NULL") == 0) {
675 *ptr = (void *) 0;
676 return name;
677 } else {
678 return 0;
679 }
680 }
681 return SWIG_UnpackData(++c,ptr,sizeof(void *));
682 }
683
684 SWIGRUNTIME char *
SWIG_PackDataName(char * buff,void * ptr,size_t sz,const char * name,size_t bsz)685 SWIG_PackDataName(char *buff, void *ptr, size_t sz, const char *name, size_t bsz) {
686 char *r = buff;
687 size_t lname = (name ? strlen(name) : 0);
688 if ((2*sz + 2 + lname) > bsz) return 0;
689 *(r++) = '_';
690 r = SWIG_PackData(r,ptr,sz);
691 if (lname) {
692 strncpy(r,name,lname+1);
693 } else {
694 *r = 0;
695 }
696 return buff;
697 }
698
699 SWIGRUNTIME const char *
SWIG_UnpackDataName(const char * c,void * ptr,size_t sz,const char * name)700 SWIG_UnpackDataName(const char *c, void *ptr, size_t sz, const char *name) {
701 if (*c != '_') {
702 if (strcmp(c,"NULL") == 0) {
703 memset(ptr,0,sz);
704 return name;
705 } else {
706 return 0;
707 }
708 }
709 return SWIG_UnpackData(++c,ptr,sz);
710 }
711
712 #ifdef __cplusplus
713 }
714 #endif
715
716 /* Errors in SWIG */
717 #define SWIG_UnknownError -1
718 #define SWIG_IOError -2
719 #define SWIG_RuntimeError -3
720 #define SWIG_IndexError -4
721 #define SWIG_TypeError -5
722 #define SWIG_DivisionByZero -6
723 #define SWIG_OverflowError -7
724 #define SWIG_SyntaxError -8
725 #define SWIG_ValueError -9
726 #define SWIG_SystemError -10
727 #define SWIG_AttributeError -11
728 #define SWIG_MemoryError -12
729 #define SWIG_NullReferenceError -13
730
731
732
733 #ifdef __cplusplus
734 /* Needed on some windows machines---since MS plays funny games with the header files under C++ */
735 #include <math.h>
736 #include <stdlib.h>
737 extern "C" {
738 #endif
739 #include "EXTERN.h"
740 #include "perl.h"
741 #include "XSUB.h"
742
743 /* Add in functionality missing in older versions of Perl. Much of this is based on Devel-PPPort on cpan. */
744
745 /* Add PERL_REVISION, PERL_VERSION, PERL_SUBVERSION if missing */
746 #ifndef PERL_REVISION
747 # if !defined(__PATCHLEVEL_H_INCLUDED__) && !(defined(PATCHLEVEL) && defined(SUBVERSION))
748 # define PERL_PATCHLEVEL_H_IMPLICIT
749 # include <patchlevel.h>
750 # endif
751 # if !(defined(PERL_VERSION) || (defined(SUBVERSION) && defined(PATCHLEVEL)))
752 # include <could_not_find_Perl_patchlevel.h>
753 # endif
754 # ifndef PERL_REVISION
755 # define PERL_REVISION (5)
756 # define PERL_VERSION PATCHLEVEL
757 # define PERL_SUBVERSION SUBVERSION
758 # endif
759 #endif
760
761 #if defined(WIN32) && defined(PERL_OBJECT) && !defined(PerlIO_exportFILE)
762 #define PerlIO_exportFILE(fh,fl) (FILE*)(fh)
763 #endif
764
765 #ifndef SvIOK_UV
766 # define SvIOK_UV(sv) (SvIOK(sv) && (SvUVX(sv) == SvIVX(sv)))
767 #endif
768
769 #ifndef SvUOK
770 # define SvUOK(sv) SvIOK_UV(sv)
771 #endif
772
773 #if ((PERL_VERSION < 4) || ((PERL_VERSION == 4) && (PERL_SUBVERSION <= 5)))
774 # define PL_sv_undef sv_undef
775 # define PL_na na
776 # define PL_errgv errgv
777 # define PL_sv_no sv_no
778 # define PL_sv_yes sv_yes
779 # define PL_markstack_ptr markstack_ptr
780 #endif
781
782 #ifndef IVSIZE
783 # ifdef LONGSIZE
784 # define IVSIZE LONGSIZE
785 # else
786 # define IVSIZE 4 /* A bold guess, but the best we can make. */
787 # endif
788 #endif
789
790 #ifndef INT2PTR
791 # if (IVSIZE == PTRSIZE) && (UVSIZE == PTRSIZE)
792 # define PTRV UV
793 # define INT2PTR(any,d) (any)(d)
794 # else
795 # if PTRSIZE == LONGSIZE
796 # define PTRV unsigned long
797 # else
798 # define PTRV unsigned
799 # endif
800 # define INT2PTR(any,d) (any)(PTRV)(d)
801 # endif
802
803 # define NUM2PTR(any,d) (any)(PTRV)(d)
804 # define PTR2IV(p) INT2PTR(IV,p)
805 # define PTR2UV(p) INT2PTR(UV,p)
806 # define PTR2NV(p) NUM2PTR(NV,p)
807
808 # if PTRSIZE == LONGSIZE
809 # define PTR2ul(p) (unsigned long)(p)
810 # else
811 # define PTR2ul(p) INT2PTR(unsigned long,p)
812 # endif
813 #endif /* !INT2PTR */
814
815 #ifndef SvPV_nolen
816 # define SvPV_nolen(x) SvPV(x,PL_na)
817 #endif
818
819 #ifndef get_sv
820 # define get_sv perl_get_sv
821 #endif
822
823 #ifndef ERRSV
824 # define ERRSV get_sv("@",FALSE)
825 #endif
826
827 #ifndef pTHX_
828 #define pTHX_
829 #endif
830
831 #include <string.h>
832 #ifdef __cplusplus
833 }
834 #endif
835
836 /* -----------------------------------------------------------------------------
837 * error manipulation
838 * ----------------------------------------------------------------------------- */
839
840 SWIGINTERN const char*
SWIG_Perl_ErrorType(int code)841 SWIG_Perl_ErrorType(int code) {
842 switch(code) {
843 case SWIG_MemoryError:
844 return "MemoryError";
845 case SWIG_IOError:
846 return "IOError";
847 case SWIG_RuntimeError:
848 return "RuntimeError";
849 case SWIG_IndexError:
850 return "IndexError";
851 case SWIG_TypeError:
852 return "TypeError";
853 case SWIG_DivisionByZero:
854 return "ZeroDivisionError";
855 case SWIG_OverflowError:
856 return "OverflowError";
857 case SWIG_SyntaxError:
858 return "SyntaxError";
859 case SWIG_ValueError:
860 return "ValueError";
861 case SWIG_SystemError:
862 return "SystemError";
863 case SWIG_AttributeError:
864 return "AttributeError";
865 default:
866 return "RuntimeError";
867 }
868 }
869
870
871 /* -----------------------------------------------------------------------------
872 * perlrun.swg
873 *
874 * This file contains the runtime support for Perl modules
875 * and includes code for managing global variables and pointer
876 * type checking.
877 * ----------------------------------------------------------------------------- */
878
879 #ifdef PERL_OBJECT
880 #define SWIG_PERL_OBJECT_DECL CPerlObj *SWIGUNUSEDPARM(pPerl),
881 #define SWIG_PERL_OBJECT_CALL pPerl,
882 #else
883 #define SWIG_PERL_OBJECT_DECL
884 #define SWIG_PERL_OBJECT_CALL
885 #endif
886
887 /* Common SWIG API */
888
889 /* for raw pointers */
890 #define SWIG_ConvertPtr(obj, pp, type, flags) SWIG_Perl_ConvertPtr(SWIG_PERL_OBJECT_CALL obj, pp, type, flags)
891 #define SWIG_ConvertPtrAndOwn(obj, pp, type, flags,own) SWIG_Perl_ConvertPtrAndOwn(SWIG_PERL_OBJECT_CALL obj, pp, type, flags, own)
892 #define SWIG_NewPointerObj(p, type, flags) SWIG_Perl_NewPointerObj(SWIG_PERL_OBJECT_CALL p, type, flags)
893 #define SWIG_AcquirePtr(ptr, src) SWIG_Perl_AcquirePtr(ptr, src)
894 #define swig_owntype int
895
896 /* for raw packed data */
897 #define SWIG_ConvertPacked(obj, p, s, type) SWIG_Perl_ConvertPacked(SWIG_PERL_OBJECT_CALL obj, p, s, type)
898 #define SWIG_NewPackedObj(p, s, type) SWIG_Perl_NewPackedObj(SWIG_PERL_OBJECT_CALL p, s, type)
899
900 /* for class or struct pointers */
901 #define SWIG_ConvertInstance(obj, pptr, type, flags) SWIG_ConvertPtr(obj, pptr, type, flags)
902 #define SWIG_NewInstanceObj(ptr, type, flags) SWIG_NewPointerObj(ptr, type, flags)
903
904 /* for C or C++ function pointers */
905 #define SWIG_ConvertFunctionPtr(obj, pptr, type) SWIG_ConvertPtr(obj, pptr, type, 0)
906 #define SWIG_NewFunctionPtrObj(ptr, type) SWIG_NewPointerObj(ptr, type, 0)
907
908 /* for C++ member pointers, ie, member methods */
909 #define SWIG_ConvertMember(obj, ptr, sz, ty) SWIG_ConvertPacked(obj, ptr, sz, ty)
910 #define SWIG_NewMemberObj(ptr, sz, type) SWIG_NewPackedObj(ptr, sz, type)
911
912
913 /* Runtime API */
914
915 #define SWIG_GetModule(clientdata) SWIG_Perl_GetModule(clientdata)
916 #define SWIG_SetModule(clientdata, pointer) SWIG_Perl_SetModule(pointer)
917
918
919 /* Error manipulation */
920
921 #define SWIG_ErrorType(code) SWIG_Perl_ErrorType(code)
922 #define SWIG_Error(code, msg) sv_setpvf(get_sv("@", GV_ADD), "%s %s", SWIG_ErrorType(code), msg)
923 #define SWIG_fail goto fail
924
925 /* Perl-specific SWIG API */
926
927 #define SWIG_MakePtr(sv, ptr, type, flags) SWIG_Perl_MakePtr(SWIG_PERL_OBJECT_CALL sv, ptr, type, flags)
928 #define SWIG_MakePackedObj(sv, p, s, type) SWIG_Perl_MakePackedObj(SWIG_PERL_OBJECT_CALL sv, p, s, type)
929 #define SWIG_SetError(str) SWIG_Error(SWIG_RuntimeError, str)
930
931
932 #define SWIG_PERL_DECL_ARGS_1(arg1) (SWIG_PERL_OBJECT_DECL arg1)
933 #define SWIG_PERL_CALL_ARGS_1(arg1) (SWIG_PERL_OBJECT_CALL arg1)
934 #define SWIG_PERL_DECL_ARGS_2(arg1, arg2) (SWIG_PERL_OBJECT_DECL arg1, arg2)
935 #define SWIG_PERL_CALL_ARGS_2(arg1, arg2) (SWIG_PERL_OBJECT_CALL arg1, arg2)
936
937 /* -----------------------------------------------------------------------------
938 * pointers/data manipulation
939 * ----------------------------------------------------------------------------- */
940
941 /* For backward compatibility only */
942 #define SWIG_POINTER_EXCEPTION 0
943
944 #ifdef __cplusplus
945 extern "C" {
946 #endif
947
948 #define SWIG_OWNER SWIG_POINTER_OWN
949 #define SWIG_SHADOW SWIG_OWNER << 1
950
951 #define SWIG_MAYBE_PERL_OBJECT SWIG_PERL_OBJECT_DECL
952
953 /* SWIG Perl macros */
954
955 /* Macro to declare an XS function */
956 #ifndef XSPROTO
957 # define XSPROTO(name) void name(pTHX_ CV* cv)
958 #endif
959
960 /* Macro to call an XS function */
961 #ifdef PERL_OBJECT
962 # define SWIG_CALLXS(_name) _name(cv,pPerl)
963 #else
964 # ifndef MULTIPLICITY
965 # define SWIG_CALLXS(_name) _name(cv)
966 # else
967 # define SWIG_CALLXS(_name) _name(PERL_GET_THX, cv)
968 # endif
969 #endif
970
971 #ifdef PERL_OBJECT
972 #define MAGIC_PPERL CPerlObj *pPerl = (CPerlObj *) this;
973
974 #ifdef __cplusplus
975 extern "C" {
976 #endif
977 typedef int (CPerlObj::*SwigMagicFunc)(SV *, MAGIC *);
978 #ifdef __cplusplus
979 }
980 #endif
981
982 #define SWIG_MAGIC(a,b) (SV *a, MAGIC *b)
983 #define SWIGCLASS_STATIC
984
985 #else /* PERL_OBJECT */
986
987 #define MAGIC_PPERL
988 #define SWIGCLASS_STATIC static SWIGUNUSED
989
990 #ifndef MULTIPLICITY
991 #define SWIG_MAGIC(a,b) (SV *a, MAGIC *b)
992
993 #ifdef __cplusplus
994 extern "C" {
995 #endif
996 typedef int (*SwigMagicFunc)(SV *, MAGIC *);
997 #ifdef __cplusplus
998 }
999 #endif
1000
1001 #else /* MULTIPLICITY */
1002
1003 #define SWIG_MAGIC(a,b) (struct interpreter *interp, SV *a, MAGIC *b)
1004
1005 #ifdef __cplusplus
1006 extern "C" {
1007 #endif
1008 typedef int (*SwigMagicFunc)(struct interpreter *, SV *, MAGIC *);
1009 #ifdef __cplusplus
1010 }
1011 #endif
1012
1013 #endif /* MULTIPLICITY */
1014 #endif /* PERL_OBJECT */
1015
1016 # ifdef PERL_OBJECT
1017 # define SWIG_croak_null() SWIG_Perl_croak_null(pPerl)
SWIG_Perl_croak_null(CPerlObj * pPerl)1018 static void SWIGUNUSED SWIG_Perl_croak_null(CPerlObj *pPerl)
1019 # else
1020 static void SWIGUNUSED SWIG_croak_null()
1021 # endif
1022 {
1023 SV *err = get_sv("@", GV_ADD);
1024 # if (PERL_VERSION < 6)
1025 croak("%_", err);
1026 # else
1027 if (sv_isobject(err))
1028 croak(0);
1029 else
1030 croak("%s", SvPV_nolen(err));
1031 # endif
1032 }
1033
1034
1035 /*
1036 Define how strict is the cast between strings and integers/doubles
1037 when overloading between these types occurs.
1038
1039 The default is making it as strict as possible by using SWIG_AddCast
1040 when needed.
1041
1042 You can use -DSWIG_PERL_NO_STRICT_STR2NUM at compilation time to
1043 disable the SWIG_AddCast, making the casting between string and
1044 numbers less strict.
1045
1046 In the end, we try to solve the overloading between strings and
1047 numerical types in the more natural way, but if you can avoid it,
1048 well, avoid it using %rename, for example.
1049 */
1050 #ifndef SWIG_PERL_NO_STRICT_STR2NUM
1051 # ifndef SWIG_PERL_STRICT_STR2NUM
1052 # define SWIG_PERL_STRICT_STR2NUM
1053 # endif
1054 #endif
1055 #ifdef SWIG_PERL_STRICT_STR2NUM
1056 /* string takes precedence */
1057 #define SWIG_Str2NumCast(x) SWIG_AddCast(x)
1058 #else
1059 /* number takes precedence */
1060 #define SWIG_Str2NumCast(x) x
1061 #endif
1062
1063
1064
1065 #include <stdlib.h>
1066
1067 SWIGRUNTIME const char *
SWIG_Perl_TypeProxyName(const swig_type_info * type)1068 SWIG_Perl_TypeProxyName(const swig_type_info *type) {
1069 if (!type) return NULL;
1070 if (type->clientdata != NULL) {
1071 return (const char*) type->clientdata;
1072 }
1073 else {
1074 return type->name;
1075 }
1076 }
1077
1078 /* Identical to SWIG_TypeCheck, except for strcmp comparison */
1079 SWIGRUNTIME swig_cast_info *
SWIG_TypeProxyCheck(const char * c,swig_type_info * ty)1080 SWIG_TypeProxyCheck(const char *c, swig_type_info *ty) {
1081 if (ty) {
1082 swig_cast_info *iter = ty->cast;
1083 while (iter) {
1084 if (strcmp(SWIG_Perl_TypeProxyName(iter->type), c) == 0) {
1085 if (iter == ty->cast)
1086 return iter;
1087 /* Move iter to the top of the linked list */
1088 iter->prev->next = iter->next;
1089 if (iter->next)
1090 iter->next->prev = iter->prev;
1091 iter->next = ty->cast;
1092 iter->prev = 0;
1093 if (ty->cast) ty->cast->prev = iter;
1094 ty->cast = iter;
1095 return iter;
1096 }
1097 iter = iter->next;
1098 }
1099 }
1100 return 0;
1101 }
1102
1103 /* Acquire a pointer value */
1104
1105 SWIGRUNTIME int
SWIG_Perl_AcquirePtr(SWIG_MAYBE_PERL_OBJECT SV * sv,int own)1106 SWIG_Perl_AcquirePtr(SWIG_MAYBE_PERL_OBJECT SV *sv, int own) {
1107 /* TODO */
1108 return 0;
1109 }
1110
1111 /* Function for getting a pointer value */
1112
1113 SWIGRUNTIME int
SWIG_Perl_ConvertPtrAndOwn(SWIG_MAYBE_PERL_OBJECT SV * sv,void ** ptr,swig_type_info * _t,int flags,int * own)1114 SWIG_Perl_ConvertPtrAndOwn(SWIG_MAYBE_PERL_OBJECT SV *sv, void **ptr, swig_type_info *_t, int flags, int *own) {
1115 swig_cast_info *tc;
1116 void *voidptr = (void *)0;
1117 SV *tsv = 0;
1118
1119 if (own)
1120 *own = 0;
1121
1122 /* If magical, apply more magic */
1123 if (SvGMAGICAL(sv))
1124 mg_get(sv);
1125
1126 /* Check to see if this is an object */
1127 if (sv_isobject(sv)) {
1128 IV tmp = 0;
1129 tsv = (SV*) SvRV(sv);
1130 if ((SvTYPE(tsv) == SVt_PVHV)) {
1131 MAGIC *mg;
1132 if (SvMAGICAL(tsv)) {
1133 mg = mg_find(tsv,'P');
1134 if (mg) {
1135 sv = mg->mg_obj;
1136 if (sv_isobject(sv)) {
1137 tsv = (SV*)SvRV(sv);
1138 tmp = SvIV(tsv);
1139 }
1140 }
1141 } else {
1142 return SWIG_ERROR;
1143 }
1144 } else {
1145 tmp = SvIV(tsv);
1146 }
1147 voidptr = INT2PTR(void *,tmp);
1148 } else if (! SvOK(sv)) { /* Check for undef */
1149 *(ptr) = (void *) 0;
1150 return (flags & SWIG_POINTER_NO_NULL) ? SWIG_NullReferenceError : SWIG_OK;
1151 } else if (SvTYPE(sv) == SVt_RV) { /* Check for NULL pointer */
1152 if (!SvROK(sv)) {
1153 /* In Perl 5.12 and later, SVt_RV == SVt_IV, so sv could be a valid integer value. */
1154 if (SvIOK(sv)) {
1155 return SWIG_ERROR;
1156 } else {
1157 /* NULL pointer (reference to undef). */
1158 *(ptr) = (void *) 0;
1159 return SWIG_OK;
1160 }
1161 } else {
1162 return SWIG_ERROR;
1163 }
1164 } else { /* Don't know what it is */
1165 return SWIG_ERROR;
1166 }
1167 if (_t) {
1168 /* Now see if the types match */
1169 char *_c = HvNAME(SvSTASH(SvRV(sv)));
1170 tc = SWIG_TypeProxyCheck(_c,_t);
1171 #ifdef SWIG_DIRECTORS
1172 if (!tc && !sv_derived_from(sv,SWIG_Perl_TypeProxyName(_t))) {
1173 #else
1174 if (!tc) {
1175 #endif
1176 return SWIG_ERROR;
1177 }
1178 {
1179 int newmemory = 0;
1180 *ptr = SWIG_TypeCast(tc,voidptr,&newmemory);
1181 if (newmemory == SWIG_CAST_NEW_MEMORY) {
1182 assert(own); /* badly formed typemap which will lead to a memory leak - it must set and use own to delete *ptr */
1183 if (own)
1184 *own = *own | SWIG_CAST_NEW_MEMORY;
1185 }
1186 }
1187 } else {
1188 *ptr = voidptr;
1189 }
1190
1191 /*
1192 * DISOWN implementation: we need a perl guru to check this one.
1193 */
1194 if (tsv && (flags & SWIG_POINTER_DISOWN)) {
1195 /*
1196 * almost copy paste code from below SWIG_POINTER_OWN setting
1197 */
1198 SV *obj = sv;
1199 HV *stash = SvSTASH(SvRV(obj));
1200 GV *gv = *(GV**)hv_fetch(stash, "OWNER", 5, TRUE);
1201 if (isGV(gv)) {
1202 HV *hv = GvHVn(gv);
1203 /*
1204 * To set ownership (see below), a newSViv(1) entry is added.
1205 * Hence, to remove ownership, we delete the entry.
1206 */
1207 if (hv_exists_ent(hv, obj, 0)) {
1208 hv_delete_ent(hv, obj, 0, 0);
1209 }
1210 }
1211 }
1212 return SWIG_OK;
1213 }
1214
1215 SWIGRUNTIME int
1216 SWIG_Perl_ConvertPtr(SWIG_MAYBE_PERL_OBJECT SV *sv, void **ptr, swig_type_info *_t, int flags) {
1217 return SWIG_Perl_ConvertPtrAndOwn(sv, ptr, _t, flags, 0);
1218 }
1219
1220 SWIGRUNTIME void
1221 SWIG_Perl_MakePtr(SWIG_MAYBE_PERL_OBJECT SV *sv, void *ptr, swig_type_info *t, int flags) {
1222 if (ptr && (flags & (SWIG_SHADOW | SWIG_POINTER_OWN))) {
1223 SV *self;
1224 SV *obj=newSV(0);
1225 HV *hash=newHV();
1226 HV *stash;
1227 sv_setref_pv(obj, SWIG_Perl_TypeProxyName(t), ptr);
1228 stash=SvSTASH(SvRV(obj));
1229 if (flags & SWIG_POINTER_OWN) {
1230 HV *hv;
1231 GV *gv = *(GV**)hv_fetch(stash, "OWNER", 5, TRUE);
1232 if (!isGV(gv))
1233 gv_init(gv, stash, "OWNER", 5, FALSE);
1234 hv=GvHVn(gv);
1235 hv_store_ent(hv, obj, newSViv(1), 0);
1236 }
1237 sv_magic((SV *)hash, (SV *)obj, 'P', Nullch, 0);
1238 SvREFCNT_dec(obj);
1239 self=newRV_noinc((SV *)hash);
1240 sv_setsv(sv, self);
1241 SvREFCNT_dec((SV *)self);
1242 sv_bless(sv, stash);
1243 }
1244 else {
1245 sv_setref_pv(sv, SWIG_Perl_TypeProxyName(t), ptr);
1246 }
1247 }
1248
1249 SWIGRUNTIMEINLINE SV *
1250 SWIG_Perl_NewPointerObj(SWIG_MAYBE_PERL_OBJECT void *ptr, swig_type_info *t, int flags) {
1251 SV *result = sv_newmortal();
1252 SWIG_MakePtr(result, ptr, t, flags);
1253 return result;
1254 }
1255
1256 SWIGRUNTIME void
1257 SWIG_Perl_MakePackedObj(SWIG_MAYBE_PERL_OBJECT SV *sv, void *ptr, int sz, swig_type_info *type) {
1258 char result[1024];
1259 char *r = result;
1260 if ((2*sz + 1 + strlen(SWIG_Perl_TypeProxyName(type))) > 1000) return;
1261 *(r++) = '_';
1262 r = SWIG_PackData(r,ptr,sz);
1263 strcpy(r,SWIG_Perl_TypeProxyName(type));
1264 sv_setpv(sv, result);
1265 }
1266
1267 SWIGRUNTIME SV *
1268 SWIG_Perl_NewPackedObj(SWIG_MAYBE_PERL_OBJECT void *ptr, int sz, swig_type_info *type) {
1269 SV *result = sv_newmortal();
1270 SWIG_Perl_MakePackedObj(result, ptr, sz, type);
1271 return result;
1272 }
1273
1274 /* Convert a packed pointer value */
1275 SWIGRUNTIME int
1276 SWIG_Perl_ConvertPacked(SWIG_MAYBE_PERL_OBJECT SV *obj, void *ptr, int sz, swig_type_info *ty) {
1277 swig_cast_info *tc;
1278 const char *c = 0;
1279
1280 if ((!obj) || (!SvOK(obj))) return SWIG_ERROR;
1281 c = SvPV_nolen(obj);
1282 /* Pointer values must start with leading underscore */
1283 if (*c != '_') return SWIG_ERROR;
1284 c++;
1285 c = SWIG_UnpackData(c,ptr,sz);
1286 if (ty) {
1287 tc = SWIG_TypeCheck(c,ty);
1288 if (!tc) return SWIG_ERROR;
1289 }
1290 return SWIG_OK;
1291 }
1292
1293
1294 /* Macros for low-level exception handling */
1295 #define SWIG_croak(x) { SWIG_Error(SWIG_RuntimeError, x); SWIG_fail; }
1296
1297
1298 typedef XSPROTO(SwigPerlWrapper);
1299 typedef SwigPerlWrapper *SwigPerlWrapperPtr;
1300
1301 /* Structure for command table */
1302 typedef struct {
1303 const char *name;
1304 SwigPerlWrapperPtr wrapper;
1305 } swig_command_info;
1306
1307 /* Information for constant table */
1308
1309 #define SWIG_INT 1
1310 #define SWIG_FLOAT 2
1311 #define SWIG_STRING 3
1312 #define SWIG_POINTER 4
1313 #define SWIG_BINARY 5
1314
1315 /* Constant information structure */
1316 typedef struct swig_constant_info {
1317 int type;
1318 const char *name;
1319 long lvalue;
1320 double dvalue;
1321 void *pvalue;
1322 swig_type_info **ptype;
1323 } swig_constant_info;
1324
1325
1326 /* Structure for variable table */
1327 typedef struct {
1328 const char *name;
1329 SwigMagicFunc set;
1330 SwigMagicFunc get;
1331 swig_type_info **type;
1332 } swig_variable_info;
1333
1334 /* Magic variable code */
1335 #ifndef PERL_OBJECT
1336 # ifdef __cplusplus
1337 # define swig_create_magic(s,a,b,c) _swig_create_magic(s,const_cast<char*>(a),b,c)
1338 # else
1339 # define swig_create_magic(s,a,b,c) _swig_create_magic(s,(char*)(a),b,c)
1340 # endif
1341 # ifndef MULTIPLICITY
1342 SWIGRUNTIME void _swig_create_magic(SV *sv, char *name, int (*set)(SV *, MAGIC *), int (*get)(SV *,MAGIC *))
1343 # else
1344 SWIGRUNTIME void _swig_create_magic(SV *sv, char *name, int (*set)(struct interpreter*, SV *, MAGIC *), int (*get)(struct interpreter*, SV *,MAGIC *))
1345 # endif
1346 #else
1347 # define swig_create_magic(s,a,b,c) _swig_create_magic(pPerl,s,a,b,c)
1348 SWIGRUNTIME void _swig_create_magic(CPerlObj *pPerl, SV *sv, const char *name, int (CPerlObj::*set)(SV *, MAGIC *), int (CPerlObj::*get)(SV *, MAGIC *))
1349 #endif
1350 {
1351 MAGIC *mg;
1352 sv_magic(sv,sv,'U',name,strlen(name));
1353 mg = mg_find(sv,'U');
1354 mg->mg_virtual = (MGVTBL *) malloc(sizeof(MGVTBL));
1355 mg->mg_virtual->svt_get = (SwigMagicFunc) get;
1356 mg->mg_virtual->svt_set = (SwigMagicFunc) set;
1357 mg->mg_virtual->svt_len = 0;
1358 mg->mg_virtual->svt_clear = 0;
1359 mg->mg_virtual->svt_free = 0;
1360 }
1361
1362
1363 SWIGRUNTIME swig_module_info *
1364 SWIG_Perl_GetModule(void *SWIGUNUSEDPARM(clientdata)) {
1365 static void *type_pointer = (void *)0;
1366 SV *pointer;
1367
1368 /* first check if pointer already created */
1369 if (!type_pointer) {
1370 pointer = get_sv("swig_runtime_data::type_pointer" SWIG_RUNTIME_VERSION SWIG_TYPE_TABLE_NAME, FALSE | GV_ADDMULTI);
1371 if (pointer && SvOK(pointer)) {
1372 type_pointer = INT2PTR(swig_type_info **, SvIV(pointer));
1373 }
1374 }
1375
1376 return (swig_module_info *) type_pointer;
1377 }
1378
1379 SWIGRUNTIME void
1380 SWIG_Perl_SetModule(swig_module_info *module) {
1381 SV *pointer;
1382
1383 /* create a new pointer */
1384 pointer = get_sv("swig_runtime_data::type_pointer" SWIG_RUNTIME_VERSION SWIG_TYPE_TABLE_NAME, TRUE | GV_ADDMULTI);
1385 sv_setiv(pointer, PTR2IV(module));
1386 }
1387
1388 #ifdef __cplusplus
1389 }
1390 #endif
1391
1392 /* Workaround perl5 global namespace pollution. Note that undefining library
1393 * functions like fopen will not solve the problem on all platforms as fopen
1394 * might be a macro on Windows but not necessarily on other operating systems. */
1395 #ifdef do_open
1396 #undef do_open
1397 #endif
1398 #ifdef do_close
1399 #undef do_close
1400 #endif
1401 #ifdef do_exec
1402 #undef do_exec
1403 #endif
1404 #ifdef scalar
1405 #undef scalar
1406 #endif
1407 #ifdef list
1408 #undef list
1409 #endif
1410 #ifdef apply
1411 #undef apply
1412 #endif
1413 #ifdef convert
1414 #undef convert
1415 #endif
1416 #ifdef Error
1417 #undef Error
1418 #endif
1419 #ifdef form
1420 #undef form
1421 #endif
1422 #ifdef vform
1423 #undef vform
1424 #endif
1425 #ifdef LABEL
1426 #undef LABEL
1427 #endif
1428 #ifdef METHOD
1429 #undef METHOD
1430 #endif
1431 #ifdef Move
1432 #undef Move
1433 #endif
1434 #ifdef yylex
1435 #undef yylex
1436 #endif
1437 #ifdef yyparse
1438 #undef yyparse
1439 #endif
1440 #ifdef yyerror
1441 #undef yyerror
1442 #endif
1443 #ifdef invert
1444 #undef invert
1445 #endif
1446 #ifdef ref
1447 #undef ref
1448 #endif
1449 #ifdef read
1450 #undef read
1451 #endif
1452 #ifdef write
1453 #undef write
1454 #endif
1455 #ifdef eof
1456 #undef eof
1457 #endif
1458 #ifdef close
1459 #undef close
1460 #endif
1461 #ifdef rewind
1462 #undef rewind
1463 #endif
1464 #ifdef free
1465 #undef free
1466 #endif
1467 #ifdef malloc
1468 #undef malloc
1469 #endif
1470 #ifdef calloc
1471 #undef calloc
1472 #endif
1473 #ifdef Stat
1474 #undef Stat
1475 #endif
1476 #ifdef check
1477 #undef check
1478 #endif
1479 #ifdef seekdir
1480 #undef seekdir
1481 #endif
1482 #ifdef open
1483 #undef open
1484 #endif
1485 #ifdef readdir
1486 #undef readdir
1487 #endif
1488 #ifdef bind
1489 #undef bind
1490 #endif
1491 #ifdef access
1492 #undef access
1493 #endif
1494 #ifdef stat
1495 #undef stat
1496 #endif
1497 #ifdef seed
1498 #undef seed
1499 #endif
1500
1501 #ifdef bool
1502 /* Leave if macro is from C99 stdbool.h */
1503 #ifndef __bool_true_false_are_defined
1504 #undef bool
1505 #endif
1506 #endif
1507
1508
1509
1510
1511 #define SWIG_exception_fail(code, msg) do { SWIG_Error(code, msg); SWIG_fail; } while(0)
1512
1513 #define SWIG_contract_assert(expr, msg) if (!(expr)) { SWIG_Error(SWIG_RuntimeError, msg); SWIG_fail; } else
1514
1515
1516
1517 /* -------- TYPES TABLE (BEGIN) -------- */
1518
1519 #define SWIGTYPE_p_FILE swig_types[0]
1520 #define SWIGTYPE_p_char swig_types[1]
1521 #define SWIGTYPE_p_double swig_types[2]
1522 #define SWIGTYPE_p_f_CBLAS_TRANSPOSE_t_p_gsl_vector_p_void__int swig_types[3]
1523 #define SWIGTYPE_p_f_p_q_const__char_p_q_const__char_int_int__void swig_types[4]
1524 #define SWIGTYPE_p_f_p_q_const__char_p_q_const__char_int_p_q_const__char__void swig_types[5]
1525 #define SWIGTYPE_p_float swig_types[6]
1526 #define SWIGTYPE_p_gsl_complex swig_types[7]
1527 #define SWIGTYPE_p_gsl_complex_float swig_types[8]
1528 #define SWIGTYPE_p_gsl_complex_long_double swig_types[9]
1529 #define SWIGTYPE_p_gsl_linalg_matrix_mod_t swig_types[10]
1530 #define SWIGTYPE_p_gsl_matrix swig_types[11]
1531 #define SWIGTYPE_p_gsl_matrix_complex swig_types[12]
1532 #define SWIGTYPE_p_gsl_mode_t swig_types[13]
1533 #define SWIGTYPE_p_gsl_permutation_struct swig_types[14]
1534 #define SWIGTYPE_p_gsl_vector swig_types[15]
1535 #define SWIGTYPE_p_gsl_vector_complex swig_types[16]
1536 #define SWIGTYPE_p_int swig_types[17]
1537 #define SWIGTYPE_p_long_double swig_types[18]
1538 #define SWIGTYPE_p_size_t swig_types[19]
1539 static swig_type_info *swig_types[21];
1540 static swig_module_info swig_module = {swig_types, 20, 0, 0, 0, 0};
1541 #define SWIG_TypeQuery(name) SWIG_TypeQueryModule(&swig_module, &swig_module, name)
1542 #define SWIG_MangledTypeQuery(name) SWIG_MangledTypeQueryModule(&swig_module, &swig_module, name)
1543
1544 /* -------- TYPES TABLE (END) -------- */
1545
1546 #define SWIG_init boot_Math__GSL__Linalg
1547
1548 #define SWIG_name "Math::GSL::Linalgc::boot_Math__GSL__Linalg"
1549 #define SWIG_prefix "Math::GSL::Linalgc::"
1550
1551 #define SWIGVERSION 0x040001
1552 #define SWIG_VERSION SWIGVERSION
1553
1554
1555 #define SWIG_as_voidptr(a) (void *)((const void *)(a))
1556 #define SWIG_as_voidptrptr(a) ((void)SWIG_as_voidptr(*a),(void**)(a))
1557
1558
1559 #ifdef __cplusplus
1560 extern "C"
1561 #endif
1562 #ifndef PERL_OBJECT
1563 #ifndef MULTIPLICITY
1564 SWIGEXPORT void SWIG_init (CV* cv);
1565 #else
1566 SWIGEXPORT void SWIG_init (pTHXo_ CV* cv);
1567 #endif
1568 #else
1569 SWIGEXPORT void SWIG_init (CV *cv, CPerlObj *);
1570 #endif
1571
1572
1573 SWIGINTERNINLINE SV *
SWIG_PERL_DECL_ARGS_1(double value)1574 SWIG_From_double SWIG_PERL_DECL_ARGS_1(double value)
1575 {
1576 return sv_2mortal(newSVnv(value));
1577 }
1578
1579
1580 SWIGINTERNINLINE SV *
SWIG_PERL_DECL_ARGS_1(long value)1581 SWIG_From_long SWIG_PERL_DECL_ARGS_1(long value)
1582 {
1583 SV *sv;
1584 if (IVSIZE >= sizeof(value) || (value >= IV_MIN && value <= IV_MAX))
1585 sv = newSViv(value);
1586 else
1587 sv = newSVpvf("%ld", value);
1588 return sv_2mortal(sv);
1589 }
1590
1591
1592 SWIGINTERNINLINE SV *
SWIG_PERL_DECL_ARGS_1(int value)1593 SWIG_From_int SWIG_PERL_DECL_ARGS_1(int value)
1594 {
1595 return SWIG_From_long SWIG_PERL_CALL_ARGS_1(value);
1596 }
1597
1598
1599 SWIGINTERN swig_type_info*
SWIG_pchar_descriptor(void)1600 SWIG_pchar_descriptor(void)
1601 {
1602 static int init = 0;
1603 static swig_type_info* info = 0;
1604 if (!init) {
1605 info = SWIG_TypeQuery("_p_char");
1606 init = 1;
1607 }
1608 return info;
1609 }
1610
1611
1612 SWIGINTERN int
SWIG_AsCharPtrAndSize(SV * obj,char ** cptr,size_t * psize,int * alloc)1613 SWIG_AsCharPtrAndSize(SV *obj, char** cptr, size_t* psize, int *alloc)
1614 {
1615 if (SvMAGICAL(obj)) {
1616 SV *tmp = sv_newmortal();
1617 SvSetSV(tmp, obj);
1618 obj = tmp;
1619 }
1620 if (SvPOK(obj)) {
1621 STRLEN len = 0;
1622 char *cstr = SvPV(obj, len);
1623 size_t size = len + 1;
1624 if (cptr) {
1625 if (alloc) {
1626 if (*alloc == SWIG_NEWOBJ) {
1627 *cptr = (char *)memcpy(malloc((size)*sizeof(char)), cstr, sizeof(char)*(size));
1628 } else {
1629 *cptr = cstr;
1630 *alloc = SWIG_OLDOBJ;
1631 }
1632 }
1633 }
1634 if (psize) *psize = size;
1635 return SWIG_OK;
1636 } else {
1637 swig_type_info* pchar_descriptor = SWIG_pchar_descriptor();
1638 if (pchar_descriptor) {
1639 char* vptr = 0;
1640 if (SWIG_ConvertPtr(obj, (void**)&vptr, pchar_descriptor, 0) == SWIG_OK) {
1641 if (cptr) *cptr = vptr;
1642 if (psize) *psize = vptr ? (strlen(vptr) + 1) : 0;
1643 if (alloc) *alloc = SWIG_OLDOBJ;
1644 return SWIG_OK;
1645 }
1646 }
1647 }
1648 return SWIG_TypeError;
1649 }
1650
1651
1652
1653
1654
1655 #include <limits.h>
1656 #if !defined(SWIG_NO_LLONG_MAX)
1657 # if !defined(LLONG_MAX) && defined(__GNUC__) && defined (__LONG_LONG_MAX__)
1658 # define LLONG_MAX __LONG_LONG_MAX__
1659 # define LLONG_MIN (-LLONG_MAX - 1LL)
1660 # define ULLONG_MAX (LLONG_MAX * 2ULL + 1ULL)
1661 # endif
1662 #endif
1663
1664
1665 #include <stdlib.h>
1666 #ifdef _MSC_VER
1667 # ifndef strtoull
1668 # define strtoull _strtoui64
1669 # endif
1670 # ifndef strtoll
1671 # define strtoll _strtoi64
1672 # endif
1673 #endif
1674
1675
1676 SWIGINTERN int
SWIG_PERL_DECL_ARGS_2(SV * obj,double * val)1677 SWIG_AsVal_double SWIG_PERL_DECL_ARGS_2(SV *obj, double *val)
1678 {
1679 if (SvNIOK(obj)) {
1680 if (val) *val = SvNV(obj);
1681 return SWIG_OK;
1682 } else if (SvIOK(obj)) {
1683 if (val) *val = (double) SvIV(obj);
1684 return SWIG_AddCast(SWIG_OK);
1685 } else {
1686 const char *nptr = SvPV_nolen(obj);
1687 if (nptr) {
1688 char *endptr;
1689 double v;
1690 errno = 0;
1691 v = strtod(nptr, &endptr);
1692 if (errno == ERANGE) {
1693 errno = 0;
1694 return SWIG_OverflowError;
1695 } else {
1696 if (*endptr == '\0') {
1697 if (val) *val = v;
1698 return SWIG_Str2NumCast(SWIG_OK);
1699 }
1700 }
1701 }
1702 }
1703 return SWIG_TypeError;
1704 }
1705
1706
1707 #include <float.h>
1708
1709
1710 #include <math.h>
1711
1712
1713 SWIGINTERNINLINE int
SWIG_CanCastAsInteger(double * d,double min,double max)1714 SWIG_CanCastAsInteger(double *d, double min, double max) {
1715 double x = *d;
1716 if ((min <= x && x <= max)) {
1717 double fx = floor(x);
1718 double cx = ceil(x);
1719 double rd = ((x - fx) < 0.5) ? fx : cx; /* simple rint */
1720 if ((errno == EDOM) || (errno == ERANGE)) {
1721 errno = 0;
1722 } else {
1723 double summ, reps, diff;
1724 if (rd < x) {
1725 diff = x - rd;
1726 } else if (rd > x) {
1727 diff = rd - x;
1728 } else {
1729 return 1;
1730 }
1731 summ = rd + x;
1732 reps = diff/summ;
1733 if (reps < 8*DBL_EPSILON) {
1734 *d = rd;
1735 return 1;
1736 }
1737 }
1738 }
1739 return 0;
1740 }
1741
1742
1743 SWIGINTERN int
SWIG_PERL_DECL_ARGS_2(SV * obj,long * val)1744 SWIG_AsVal_long SWIG_PERL_DECL_ARGS_2(SV *obj, long* val)
1745 {
1746 if (SvUOK(obj)) {
1747 UV v = SvUV(obj);
1748 if (UVSIZE < sizeof(*val) || v <= LONG_MAX) {
1749 if (val) *val = v;
1750 return SWIG_OK;
1751 }
1752 return SWIG_OverflowError;
1753 } else if (SvIOK(obj)) {
1754 IV v = SvIV(obj);
1755 if (IVSIZE <= sizeof(*val) || (v >= LONG_MIN && v <= LONG_MAX)) {
1756 if(val) *val = v;
1757 return SWIG_OK;
1758 }
1759 return SWIG_OverflowError;
1760 } else {
1761 int dispatch = 0;
1762 const char *nptr = SvPV_nolen(obj);
1763 if (nptr) {
1764 char *endptr;
1765 long v;
1766 errno = 0;
1767 v = strtol(nptr, &endptr,0);
1768 if (errno == ERANGE) {
1769 errno = 0;
1770 return SWIG_OverflowError;
1771 } else {
1772 if (*endptr == '\0') {
1773 if (val) *val = v;
1774 return SWIG_Str2NumCast(SWIG_OK);
1775 }
1776 }
1777 }
1778 if (!dispatch) {
1779 double d;
1780 int res = SWIG_AddCast(SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(obj,&d));
1781 if (SWIG_IsOK(res) && SWIG_CanCastAsInteger(&d, LONG_MIN, LONG_MAX)) {
1782 if (val) *val = (long)(d);
1783 return res;
1784 }
1785 }
1786 }
1787 return SWIG_TypeError;
1788 }
1789
1790
1791 SWIGINTERN int
SWIG_PERL_DECL_ARGS_2(SV * obj,int * val)1792 SWIG_AsVal_int SWIG_PERL_DECL_ARGS_2(SV * obj, int *val)
1793 {
1794 long v;
1795 int res = SWIG_AsVal_long SWIG_PERL_CALL_ARGS_2(obj, &v);
1796 if (SWIG_IsOK(res)) {
1797 if ((v < INT_MIN || v > INT_MAX)) {
1798 return SWIG_OverflowError;
1799 } else {
1800 if (val) *val = (int)(v);
1801 }
1802 }
1803 return res;
1804 }
1805
1806
1807 SWIGINTERNINLINE SV *
SWIG_FromCharPtrAndSize(const char * carray,size_t size)1808 SWIG_FromCharPtrAndSize(const char* carray, size_t size)
1809 {
1810 SV *obj = sv_newmortal();
1811 if (carray) {
1812 sv_setpvn(obj, carray, size);
1813 } else {
1814 sv_setsv(obj, &PL_sv_undef);
1815 }
1816 return obj;
1817 }
1818
1819
1820 SWIGINTERNINLINE SV *
SWIG_FromCharPtr(const char * cptr)1821 SWIG_FromCharPtr(const char *cptr)
1822 {
1823 return SWIG_FromCharPtrAndSize(cptr, (cptr ? strlen(cptr) : 0));
1824 }
1825
1826
1827 #include "gsl/gsl_nan.h"
1828 #include "gsl/gsl_errno.h"
1829 #include "gsl/gsl_math.h"
1830 #include "gsl/gsl_monte.h"
1831
1832
1833 struct perl_array {
1834 I32 len;
1835 AV *array;
1836 };
1837
1838
1839
1840 enum awType { awDouble, awFloat, awInt, awUnsigned };
1841
1842 typedef struct {
1843 I32 size;
1844 enum awType type;
1845 void * data;
1846 } array_wrapper;
1847
array_wrapper_alloc(int numelem,enum awType type)1848 array_wrapper * array_wrapper_alloc(int numelem, enum awType type){
1849 array_wrapper * rv = malloc(sizeof(array_wrapper));
1850
1851 if (rv == NULL)
1852 croak("array_wrapper_alloc: can't malloc wrapper\n");
1853
1854 switch (type){
1855 case awDouble:
1856 rv->data = malloc(sizeof(double) * numelem);
1857 break;
1858 case awFloat:
1859 rv->data = malloc(sizeof(float) * numelem);
1860 break;
1861 case awInt:
1862 rv->data = malloc(sizeof(int) * numelem);
1863 break;
1864 case awUnsigned:
1865 rv->data = malloc(sizeof(unsigned int) * numelem);
1866 break;
1867 default:
1868 croak("array_wrapper_alloc: type should be awDouble, awFloat, awInt, or awUnsigned");
1869 }
1870
1871 if (rv->data == NULL)
1872 croak("array_wrapper_alloc: can't malloc data");
1873
1874 rv->size = numelem;
1875 rv->type = type;
1876 return rv;
1877 }
1878
array_wrapper_free(array_wrapper * daw)1879 void array_wrapper_free(array_wrapper * daw){
1880 free(daw->data);
1881 free(daw);
1882 }
1883
1884
1885 /* structure to hold required information while the gsl function call
1886 for each callback
1887 */
1888 struct gsl_function_perl {
1889 gsl_function C_gsl_function;
1890 SV * function;
1891 SV * params;
1892 };
1893
1894 struct gsl_function_fdf_perl {
1895 gsl_function_fdf C_gsl_function_fdf;
1896 SV * f;
1897 SV * df;
1898 SV * fdf;
1899 SV * params;
1900 };
1901
1902 struct gsl_monte_function_perl {
1903 gsl_monte_function C_gsl_monte_function;
1904 SV * f;
1905 SV * dim;
1906 SV * params;
1907 };
1908
gsl_function_perl_free(struct gsl_function_perl * perl_f)1909 void gsl_function_perl_free(struct gsl_function_perl * perl_f){
1910 if (perl_f != NULL) {
1911 SvREFCNT_dec(perl_f->function);
1912 SvREFCNT_dec(perl_f->params);
1913 Safefree(perl_f);
1914 }
1915 }
1916
gsl_function_fdf_perl_free(struct gsl_function_fdf_perl * perl_fdf)1917 void gsl_function_fdf_perl_free(struct gsl_function_fdf_perl * perl_fdf){
1918 if (perl_fdf != NULL) {
1919 SvREFCNT_dec(perl_fdf->f);
1920 SvREFCNT_dec(perl_fdf->df);
1921 SvREFCNT_dec(perl_fdf->fdf);
1922 SvREFCNT_dec(perl_fdf->params);
1923 Safefree(perl_fdf);
1924 }
1925 }
1926
1927 /* These functions (C callbacks) calls the perl callbacks.
1928 Info for perl callback can be found using the 'void*params' parameter
1929 */
call_gsl_function_x_params(SV * function,double x,SV * params)1930 double call_gsl_function_x_params(SV* function, double x, SV *params){
1931 unsigned int count;
1932 double y;
1933 dSP;
1934
1935 //fprintf(stderr, "LOOKUP CALLBACK\n");
1936 ENTER;
1937 SAVETMPS;
1938
1939 PUSHMARK(SP);
1940 XPUSHs(sv_2mortal(newSVnv((double)x)));
1941 XPUSHs(params);
1942 PUTBACK; /* make local stack pointer global */
1943
1944 count = call_sv(function, G_SCALAR);
1945 SPAGAIN;
1946
1947 if (count != 1)
1948 croak("Expected to call subroutine in scalar context!");
1949
1950 y = POPn;
1951
1952 PUTBACK; /* make local stack pointer global */
1953 FREETMPS;
1954 LEAVE;
1955
1956 return y;
1957 }
1958
call_gsl_function(double x,void * params)1959 double call_gsl_function(double x , void *params){
1960 struct gsl_function_perl *F=(struct gsl_function_perl*)params;
1961 return call_gsl_function_x_params( F->function, x, F->params );
1962 }
1963
call_gsl_function_fdf_f(double x,void * params)1964 double call_gsl_function_fdf_f(double x , void *params){
1965 struct gsl_function_fdf_perl *F=(struct gsl_function_fdf_perl*)params;
1966 return call_gsl_function_x_params( F->f, x, F->params );
1967 }
1968
call_gsl_function_fdf_df(double x,void * params)1969 double call_gsl_function_fdf_df(double x , void *params){
1970 struct gsl_function_fdf_perl *F=(struct gsl_function_fdf_perl*)params;
1971 return call_gsl_function_x_params( F->df, x, F->params );
1972 }
1973
call_gsl_function_fdf_fdf(double x,void * params,double * f,double * df)1974 void call_gsl_function_fdf_fdf(double x , void *params, double *f, double *df ){
1975 struct gsl_function_fdf_perl *F=(struct gsl_function_fdf_perl*)params;
1976
1977 dSP;
1978
1979 ENTER;
1980 SAVETMPS;
1981
1982 PUSHMARK(SP);
1983 EXTEND(SP, 2);
1984 PUSHs(sv_2mortal(newSVnv((double)x)));
1985 PUSHs(F->params);
1986 PUTBACK; /* make local stack pointer global */
1987
1988 {
1989 unsigned int count = call_sv(F->fdf, G_ARRAY);
1990 SPAGAIN;
1991
1992 if (count != 2)
1993 croak( "Expected two return values, got %d", count );
1994 }
1995
1996 *df = POPn;
1997 *f = POPn;
1998
1999 PUTBACK; /* make local stack pointer global */
2000 FREETMPS;
2001 LEAVE;
2002 }
2003
call_gsl_monte_function(double * x_array,size_t dim,void * params)2004 double call_gsl_monte_function(double *x_array , size_t dim, void *params){
2005 struct gsl_monte_function_perl *F=(struct gsl_monte_function_perl*)params;
2006 unsigned int count;
2007 unsigned int i;
2008 AV* perl_array;
2009 double y;
2010 dSP;
2011
2012 //fprintf(stderr, "LOOKUP CALLBACK\n");
2013 ENTER;
2014 SAVETMPS;
2015
2016 PUSHMARK(SP);
2017 perl_array=newAV();
2018 sv_2mortal((SV*)perl_array);
2019 XPUSHs(sv_2mortal(newRV((SV *)perl_array)));
2020 for(i=0; i<dim; i++) {
2021 /* no mortal : it is referenced by the array */
2022 av_push(perl_array, newSVnv(x_array[i]));
2023 }
2024 XPUSHs(sv_2mortal(newSViv(dim)));
2025 XPUSHs(F->params);
2026 PUTBACK; /* make local stack pointer global */
2027
2028 count = call_sv(F->f, G_SCALAR);
2029 SPAGAIN;
2030
2031 if (count != 1)
2032 croak("Expected to call subroutine in scalar context!");
2033
2034 y = POPn;
2035
2036 PUTBACK; /* make local stack pointer global */
2037 FREETMPS;
2038 LEAVE;
2039
2040 return y;
2041 }
2042
2043
gsl_function_fdf_extract(char * param_name,HV * hash,SV * func[])2044 void gsl_function_fdf_extract( char* param_name, HV* hash, SV* func[] ) {
2045 static const char *keys[3] = { "f", "df", "fdf" };
2046
2047 int ikey;
2048
2049 for ( ikey = 0 ; ikey < 3 ; ++ikey ) {
2050 func[ikey] = 0;
2051 const char* key = keys[ikey];
2052 /* it just so happens that strlen(keys[ikey]) == ikey + 1 */
2053 SV** pp_sv = hv_fetch( hash, key, ikey+1, 0 );
2054 SV* function;
2055
2056 if ( !pp_sv )
2057 croak("Math::GSL : %s: missing key %s!", param_name, key);
2058
2059 function = *pp_sv;
2060
2061 if ( SvPOK(function) || ( SvROK( function ) && SvTYPE(SvRV(function)) == SVt_PVCV ) ) {
2062 /* hold on to SV after the enclosing hash goes away */
2063 SvREFCNT_inc( function );
2064 func[ikey] = function;
2065 }
2066 else {
2067 croak( "Math::GSL : %s: key %s is not a reference to code!", param_name, key);
2068 }
2069 }
2070 }
2071
2072
2073
2074 #include "gsl/gsl_inline.h"
2075 #include "gsl/gsl_linalg.h"
2076 #include "gsl/gsl_permutation.h"
2077 #include "gsl/gsl_complex.h"
2078 #include "gsl/gsl_complex_math.h"
2079
2080
2081 SWIGINTERN int
SWIG_PERL_DECL_ARGS_2(SV * obj,unsigned long * val)2082 SWIG_AsVal_unsigned_SS_long SWIG_PERL_DECL_ARGS_2(SV *obj, unsigned long *val)
2083 {
2084 if (SvUOK(obj)) {
2085 UV v = SvUV(obj);
2086 if (UVSIZE <= sizeof(*val) || v <= ULONG_MAX) {
2087 if (val) *val = v;
2088 return SWIG_OK;
2089 }
2090 return SWIG_OverflowError;
2091 } else if (SvIOK(obj)) {
2092 IV v = SvIV(obj);
2093 if (v >= 0 && (IVSIZE <= sizeof(*val) || v <= ULONG_MAX)) {
2094 if (val) *val = v;
2095 return SWIG_OK;
2096 }
2097 return SWIG_OverflowError;
2098 } else {
2099 int dispatch = 0;
2100 const char *nptr = SvPV_nolen(obj);
2101 if (nptr) {
2102 char *endptr;
2103 unsigned long v;
2104 errno = 0;
2105 v = strtoul(nptr, &endptr,0);
2106 if (errno == ERANGE) {
2107 errno = 0;
2108 return SWIG_OverflowError;
2109 } else {
2110 if (*endptr == '\0') {
2111 if (val) *val = v;
2112 return SWIG_Str2NumCast(SWIG_OK);
2113 }
2114 }
2115 }
2116 if (!dispatch) {
2117 double d;
2118 int res = SWIG_AddCast(SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(obj,&d));
2119 if (SWIG_IsOK(res) && SWIG_CanCastAsInteger(&d, 0, ULONG_MAX)) {
2120 if (val) *val = (unsigned long)(d);
2121 return res;
2122 }
2123 }
2124 }
2125 return SWIG_TypeError;
2126 }
2127
2128
2129 #if defined(LLONG_MAX) && !defined(SWIG_LONG_LONG_AVAILABLE)
2130 # define SWIG_LONG_LONG_AVAILABLE
2131 #endif
2132
2133
2134 #ifdef SWIG_LONG_LONG_AVAILABLE
2135 SWIGINTERN int
SWIG_PERL_DECL_ARGS_2(SV * obj,unsigned long long * val)2136 SWIG_AsVal_unsigned_SS_long_SS_long SWIG_PERL_DECL_ARGS_2(SV *obj, unsigned long long *val)
2137 {
2138 if (SvUOK(obj)) {
2139 /* pretty sure this should be conditional on
2140 * (UVSIZE <= sizeof(*val) || v <= ULLONG_MAX) */
2141 if (val) *val = SvUV(obj);
2142 return SWIG_OK;
2143 } else if (SvIOK(obj)) {
2144 IV v = SvIV(obj);
2145 if (v >= 0 && (IVSIZE <= sizeof(*val) || v <= ULLONG_MAX)) {
2146 if (val) *val = v;
2147 return SWIG_OK;
2148 } else {
2149 return SWIG_OverflowError;
2150 }
2151 } else {
2152 int dispatch = 0;
2153 const char *nptr = SvPV_nolen(obj);
2154 if (nptr) {
2155 char *endptr;
2156 unsigned long long v;
2157 errno = 0;
2158 v = strtoull(nptr, &endptr,0);
2159 if (errno == ERANGE) {
2160 errno = 0;
2161 return SWIG_OverflowError;
2162 } else {
2163 if (*endptr == '\0') {
2164 if (val) *val = v;
2165 return SWIG_Str2NumCast(SWIG_OK);
2166 }
2167 }
2168 }
2169 if (!dispatch) {
2170 const double mant_max = 1LL << DBL_MANT_DIG;
2171 double d;
2172 int res = SWIG_AddCast(SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(obj,&d));
2173 if (SWIG_IsOK(res) && SWIG_CanCastAsInteger(&d, 0, mant_max)) {
2174 if (val) *val = (unsigned long long)(d);
2175 return res;
2176 }
2177 }
2178 }
2179 return SWIG_TypeError;
2180 }
2181 #endif
2182
2183
2184 SWIGINTERNINLINE int
SWIG_PERL_DECL_ARGS_2(SV * obj,size_t * val)2185 SWIG_AsVal_size_t SWIG_PERL_DECL_ARGS_2(SV * obj, size_t *val)
2186 {
2187 int res = SWIG_TypeError;
2188 #ifdef SWIG_LONG_LONG_AVAILABLE
2189 if (sizeof(size_t) <= sizeof(unsigned long)) {
2190 #endif
2191 unsigned long v;
2192 res = SWIG_AsVal_unsigned_SS_long SWIG_PERL_CALL_ARGS_2(obj, val ? &v : 0);
2193 if (SWIG_IsOK(res) && val) *val = (size_t)(v);
2194 #ifdef SWIG_LONG_LONG_AVAILABLE
2195 } else if (sizeof(size_t) <= sizeof(unsigned long long)) {
2196 unsigned long long v;
2197 res = SWIG_AsVal_unsigned_SS_long_SS_long SWIG_PERL_CALL_ARGS_2(obj, val ? &v : 0);
2198 if (SWIG_IsOK(res) && val) *val = (size_t)(v);
2199 }
2200 #endif
2201 return res;
2202 }
2203
2204
2205 SWIGINTERNINLINE SV *
SWIG_PERL_DECL_ARGS_1(unsigned long value)2206 SWIG_From_unsigned_SS_long SWIG_PERL_DECL_ARGS_1(unsigned long value)
2207 {
2208 SV *sv;
2209 if (UVSIZE >= sizeof(value) || value <= UV_MAX)
2210 sv = newSVuv(value);
2211 else
2212 sv = newSVpvf("%lu", value);
2213 return sv_2mortal(sv);
2214 }
2215
2216
2217 #include <stdio.h>
2218 #if (defined(_MSC_VER) && (_MSC_VER < 1900)) || defined(__BORLANDC__) || defined(_WATCOM)
2219 # ifndef snprintf
2220 # define snprintf _snprintf
2221 # endif
2222 #endif
2223
2224
2225 #ifdef SWIG_LONG_LONG_AVAILABLE
2226 SWIGINTERNINLINE SV *
SWIG_PERL_DECL_ARGS_1(unsigned long long value)2227 SWIG_From_unsigned_SS_long_SS_long SWIG_PERL_DECL_ARGS_1(unsigned long long value)
2228 {
2229 SV *sv;
2230 if (UVSIZE >= sizeof(value) || value <= UV_MAX)
2231 sv = newSVuv((UV)(value));
2232 else {
2233 //sv = newSVpvf("%llu", value); doesn't work in non 64bit Perl
2234 char temp[256];
2235 sprintf(temp, "%llu", value);
2236 sv = newSVpv(temp, 0);
2237 }
2238 return sv_2mortal(sv);
2239 }
2240 #endif
2241
2242
2243 SWIGINTERNINLINE SV *
SWIG_PERL_DECL_ARGS_1(size_t value)2244 SWIG_From_size_t SWIG_PERL_DECL_ARGS_1(size_t value)
2245 {
2246 #ifdef SWIG_LONG_LONG_AVAILABLE
2247 if (sizeof(size_t) <= sizeof(unsigned long)) {
2248 #endif
2249 return SWIG_From_unsigned_SS_long SWIG_PERL_CALL_ARGS_1((unsigned long)(value));
2250 #ifdef SWIG_LONG_LONG_AVAILABLE
2251 } else {
2252 /* assume sizeof(size_t) <= sizeof(unsigned long long) */
2253 return SWIG_From_unsigned_SS_long_SS_long SWIG_PERL_CALL_ARGS_1((unsigned long long)(value));
2254 }
2255 #endif
2256 }
2257
2258 #ifdef __cplusplus
2259 extern "C" {
2260 #endif
2261
2262 #ifdef PERL_OBJECT
2263 #define MAGIC_CLASS _wrap_Math__GSL__Linalg_var::
2264 class _wrap_Math__GSL__Linalg_var : public CPerlObj {
2265 public:
2266 #else
2267 #define MAGIC_CLASS
2268 #endif
swig_magic_readonly(pTHX_ SV * SWIGUNUSEDPARM (sv),MAGIC * SWIGUNUSEDPARM (mg))2269 SWIGCLASS_STATIC int swig_magic_readonly(pTHX_ SV *SWIGUNUSEDPARM(sv), MAGIC *SWIGUNUSEDPARM(mg)) {
2270 MAGIC_PPERL
2271 croak("Value is read-only.");
2272 return 0;
2273 }
2274
2275
2276 #ifdef PERL_OBJECT
2277 };
2278 #endif
2279
2280 #ifdef __cplusplus
2281 }
2282 #endif
2283
2284 #ifdef __cplusplus
2285 extern "C" {
2286 #endif
XS(_wrap_gsl_error)2287 XS(_wrap_gsl_error) {
2288 {
2289 char *arg1 = (char *) 0 ;
2290 char *arg2 = (char *) 0 ;
2291 int arg3 ;
2292 int arg4 ;
2293 int res1 ;
2294 char *buf1 = 0 ;
2295 int alloc1 = 0 ;
2296 int res2 ;
2297 char *buf2 = 0 ;
2298 int alloc2 = 0 ;
2299 int val3 ;
2300 int ecode3 = 0 ;
2301 int val4 ;
2302 int ecode4 = 0 ;
2303 int argvi = 0;
2304 dXSARGS;
2305
2306 if ((items < 4) || (items > 4)) {
2307 SWIG_croak("Usage: gsl_error(reason,file,line,gsl_errno);");
2308 }
2309 res1 = SWIG_AsCharPtrAndSize(ST(0), &buf1, NULL, &alloc1);
2310 if (!SWIG_IsOK(res1)) {
2311 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_error" "', argument " "1"" of type '" "char const *""'");
2312 }
2313 arg1 = (char *)(buf1);
2314 res2 = SWIG_AsCharPtrAndSize(ST(1), &buf2, NULL, &alloc2);
2315 if (!SWIG_IsOK(res2)) {
2316 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_error" "', argument " "2"" of type '" "char const *""'");
2317 }
2318 arg2 = (char *)(buf2);
2319 ecode3 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
2320 if (!SWIG_IsOK(ecode3)) {
2321 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_error" "', argument " "3"" of type '" "int""'");
2322 }
2323 arg3 = (int)(val3);
2324 ecode4 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(3), &val4);
2325 if (!SWIG_IsOK(ecode4)) {
2326 SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "gsl_error" "', argument " "4"" of type '" "int""'");
2327 }
2328 arg4 = (int)(val4);
2329 gsl_error((char const *)arg1,(char const *)arg2,arg3,arg4);
2330 ST(argvi) = &PL_sv_undef;
2331 if (alloc1 == SWIG_NEWOBJ) free((char*)buf1);
2332 if (alloc2 == SWIG_NEWOBJ) free((char*)buf2);
2333
2334
2335 XSRETURN(argvi);
2336 fail:
2337 if (alloc1 == SWIG_NEWOBJ) free((char*)buf1);
2338 if (alloc2 == SWIG_NEWOBJ) free((char*)buf2);
2339
2340
2341 SWIG_croak_null();
2342 }
2343 }
2344
2345
XS(_wrap_gsl_stream_printf)2346 XS(_wrap_gsl_stream_printf) {
2347 {
2348 char *arg1 = (char *) 0 ;
2349 char *arg2 = (char *) 0 ;
2350 int arg3 ;
2351 char *arg4 = (char *) 0 ;
2352 int res1 ;
2353 char *buf1 = 0 ;
2354 int alloc1 = 0 ;
2355 int res2 ;
2356 char *buf2 = 0 ;
2357 int alloc2 = 0 ;
2358 int val3 ;
2359 int ecode3 = 0 ;
2360 int res4 ;
2361 char *buf4 = 0 ;
2362 int alloc4 = 0 ;
2363 int argvi = 0;
2364 dXSARGS;
2365
2366 if ((items < 4) || (items > 4)) {
2367 SWIG_croak("Usage: gsl_stream_printf(label,file,line,reason);");
2368 }
2369 res1 = SWIG_AsCharPtrAndSize(ST(0), &buf1, NULL, &alloc1);
2370 if (!SWIG_IsOK(res1)) {
2371 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_stream_printf" "', argument " "1"" of type '" "char const *""'");
2372 }
2373 arg1 = (char *)(buf1);
2374 res2 = SWIG_AsCharPtrAndSize(ST(1), &buf2, NULL, &alloc2);
2375 if (!SWIG_IsOK(res2)) {
2376 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_stream_printf" "', argument " "2"" of type '" "char const *""'");
2377 }
2378 arg2 = (char *)(buf2);
2379 ecode3 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
2380 if (!SWIG_IsOK(ecode3)) {
2381 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_stream_printf" "', argument " "3"" of type '" "int""'");
2382 }
2383 arg3 = (int)(val3);
2384 res4 = SWIG_AsCharPtrAndSize(ST(3), &buf4, NULL, &alloc4);
2385 if (!SWIG_IsOK(res4)) {
2386 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_stream_printf" "', argument " "4"" of type '" "char const *""'");
2387 }
2388 arg4 = (char *)(buf4);
2389 gsl_stream_printf((char const *)arg1,(char const *)arg2,arg3,(char const *)arg4);
2390 ST(argvi) = &PL_sv_undef;
2391 if (alloc1 == SWIG_NEWOBJ) free((char*)buf1);
2392 if (alloc2 == SWIG_NEWOBJ) free((char*)buf2);
2393
2394 if (alloc4 == SWIG_NEWOBJ) free((char*)buf4);
2395 XSRETURN(argvi);
2396 fail:
2397 if (alloc1 == SWIG_NEWOBJ) free((char*)buf1);
2398 if (alloc2 == SWIG_NEWOBJ) free((char*)buf2);
2399
2400 if (alloc4 == SWIG_NEWOBJ) free((char*)buf4);
2401 SWIG_croak_null();
2402 }
2403 }
2404
2405
XS(_wrap_gsl_strerror)2406 XS(_wrap_gsl_strerror) {
2407 {
2408 int arg1 ;
2409 int val1 ;
2410 int ecode1 = 0 ;
2411 int argvi = 0;
2412 char *result = 0 ;
2413 dXSARGS;
2414
2415 if ((items < 1) || (items > 1)) {
2416 SWIG_croak("Usage: gsl_strerror(gsl_errno);");
2417 }
2418 ecode1 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
2419 if (!SWIG_IsOK(ecode1)) {
2420 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_strerror" "', argument " "1"" of type '" "int""'");
2421 }
2422 arg1 = (int)(val1);
2423 result = (char *)gsl_strerror(arg1);
2424 ST(argvi) = SWIG_FromCharPtr((const char *)result); argvi++ ;
2425
2426 XSRETURN(argvi);
2427 fail:
2428
2429 SWIG_croak_null();
2430 }
2431 }
2432
2433
XS(_wrap_gsl_set_error_handler)2434 XS(_wrap_gsl_set_error_handler) {
2435 {
2436 gsl_error_handler_t *arg1 = (gsl_error_handler_t *) 0 ;
2437 int argvi = 0;
2438 gsl_error_handler_t *result = 0 ;
2439 dXSARGS;
2440
2441 if ((items < 1) || (items > 1)) {
2442 SWIG_croak("Usage: gsl_set_error_handler(new_handler);");
2443 }
2444 {
2445 int res = SWIG_ConvertFunctionPtr(ST(0), (void**)(&arg1), SWIGTYPE_p_f_p_q_const__char_p_q_const__char_int_int__void);
2446 if (!SWIG_IsOK(res)) {
2447 SWIG_exception_fail(SWIG_ArgError(res), "in method '" "gsl_set_error_handler" "', argument " "1"" of type '" "gsl_error_handler_t *""'");
2448 }
2449 }
2450 result = (gsl_error_handler_t *)gsl_set_error_handler(arg1);
2451 ST(argvi) = SWIG_NewFunctionPtrObj((void *)(result), SWIGTYPE_p_f_p_q_const__char_p_q_const__char_int_int__void); argvi++ ;
2452
2453 XSRETURN(argvi);
2454 fail:
2455
2456 SWIG_croak_null();
2457 }
2458 }
2459
2460
XS(_wrap_gsl_set_error_handler_off)2461 XS(_wrap_gsl_set_error_handler_off) {
2462 {
2463 int argvi = 0;
2464 gsl_error_handler_t *result = 0 ;
2465 dXSARGS;
2466
2467 if ((items < 0) || (items > 0)) {
2468 SWIG_croak("Usage: gsl_set_error_handler_off();");
2469 }
2470 result = (gsl_error_handler_t *)gsl_set_error_handler_off();
2471 ST(argvi) = SWIG_NewFunctionPtrObj((void *)(result), SWIGTYPE_p_f_p_q_const__char_p_q_const__char_int_int__void); argvi++ ;
2472 XSRETURN(argvi);
2473 fail:
2474 SWIG_croak_null();
2475 }
2476 }
2477
2478
XS(_wrap_gsl_set_stream_handler)2479 XS(_wrap_gsl_set_stream_handler) {
2480 {
2481 gsl_stream_handler_t *arg1 = (gsl_stream_handler_t *) 0 ;
2482 int argvi = 0;
2483 gsl_stream_handler_t *result = 0 ;
2484 dXSARGS;
2485
2486 if ((items < 1) || (items > 1)) {
2487 SWIG_croak("Usage: gsl_set_stream_handler(new_handler);");
2488 }
2489 {
2490 int res = SWIG_ConvertFunctionPtr(ST(0), (void**)(&arg1), SWIGTYPE_p_f_p_q_const__char_p_q_const__char_int_p_q_const__char__void);
2491 if (!SWIG_IsOK(res)) {
2492 SWIG_exception_fail(SWIG_ArgError(res), "in method '" "gsl_set_stream_handler" "', argument " "1"" of type '" "gsl_stream_handler_t *""'");
2493 }
2494 }
2495 result = (gsl_stream_handler_t *)gsl_set_stream_handler(arg1);
2496 ST(argvi) = SWIG_NewFunctionPtrObj((void *)(result), SWIGTYPE_p_f_p_q_const__char_p_q_const__char_int_p_q_const__char__void); argvi++ ;
2497
2498 XSRETURN(argvi);
2499 fail:
2500
2501 SWIG_croak_null();
2502 }
2503 }
2504
2505
XS(_wrap_gsl_set_stream)2506 XS(_wrap_gsl_set_stream) {
2507 {
2508 FILE *arg1 = (FILE *) 0 ;
2509 void *argp1 = 0 ;
2510 int res1 = 0 ;
2511 int argvi = 0;
2512 FILE *result = 0 ;
2513 dXSARGS;
2514
2515 if ((items < 1) || (items > 1)) {
2516 SWIG_croak("Usage: gsl_set_stream(new_stream);");
2517 }
2518 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_FILE, 0 | 0 );
2519 if (!SWIG_IsOK(res1)) {
2520 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_set_stream" "', argument " "1"" of type '" "FILE *""'");
2521 }
2522 arg1 = (FILE *)(argp1);
2523 result = (FILE *)gsl_set_stream(arg1);
2524 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_FILE, 0 | 0); argvi++ ;
2525
2526 XSRETURN(argvi);
2527 fail:
2528
2529 SWIG_croak_null();
2530 }
2531 }
2532
2533
XS(_wrap_gsl_linalg_matmult)2534 XS(_wrap_gsl_linalg_matmult) {
2535 {
2536 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
2537 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
2538 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
2539 void *argp1 = 0 ;
2540 int res1 = 0 ;
2541 void *argp2 = 0 ;
2542 int res2 = 0 ;
2543 void *argp3 = 0 ;
2544 int res3 = 0 ;
2545 int argvi = 0;
2546 int result;
2547 dXSARGS;
2548
2549 if ((items < 3) || (items > 3)) {
2550 SWIG_croak("Usage: gsl_linalg_matmult(A,B,C);");
2551 }
2552 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
2553 if (!SWIG_IsOK(res1)) {
2554 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_matmult" "', argument " "1"" of type '" "gsl_matrix const *""'");
2555 }
2556 arg1 = (gsl_matrix *)(argp1);
2557 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
2558 if (!SWIG_IsOK(res2)) {
2559 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_matmult" "', argument " "2"" of type '" "gsl_matrix const *""'");
2560 }
2561 arg2 = (gsl_matrix *)(argp2);
2562 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
2563 if (!SWIG_IsOK(res3)) {
2564 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_matmult" "', argument " "3"" of type '" "gsl_matrix *""'");
2565 }
2566 arg3 = (gsl_matrix *)(argp3);
2567 result = (int)gsl_linalg_matmult((gsl_matrix const *)arg1,(gsl_matrix const *)arg2,arg3);
2568 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
2569
2570
2571
2572 XSRETURN(argvi);
2573 fail:
2574
2575
2576
2577 SWIG_croak_null();
2578 }
2579 }
2580
2581
XS(_wrap_gsl_linalg_matmult_mod)2582 XS(_wrap_gsl_linalg_matmult_mod) {
2583 {
2584 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
2585 gsl_linalg_matrix_mod_t arg2 ;
2586 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
2587 gsl_linalg_matrix_mod_t arg4 ;
2588 gsl_matrix *arg5 = (gsl_matrix *) 0 ;
2589 void *argp1 = 0 ;
2590 int res1 = 0 ;
2591 int val2 ;
2592 int ecode2 = 0 ;
2593 void *argp3 = 0 ;
2594 int res3 = 0 ;
2595 int val4 ;
2596 int ecode4 = 0 ;
2597 void *argp5 = 0 ;
2598 int res5 = 0 ;
2599 int argvi = 0;
2600 int result;
2601 dXSARGS;
2602
2603 if ((items < 5) || (items > 5)) {
2604 SWIG_croak("Usage: gsl_linalg_matmult_mod(A,modA,B,modB,C);");
2605 }
2606 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
2607 if (!SWIG_IsOK(res1)) {
2608 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_matmult_mod" "', argument " "1"" of type '" "gsl_matrix const *""'");
2609 }
2610 arg1 = (gsl_matrix *)(argp1);
2611 ecode2 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
2612 if (!SWIG_IsOK(ecode2)) {
2613 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_linalg_matmult_mod" "', argument " "2"" of type '" "gsl_linalg_matrix_mod_t""'");
2614 }
2615 arg2 = (gsl_linalg_matrix_mod_t)(val2);
2616 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
2617 if (!SWIG_IsOK(res3)) {
2618 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_matmult_mod" "', argument " "3"" of type '" "gsl_matrix const *""'");
2619 }
2620 arg3 = (gsl_matrix *)(argp3);
2621 ecode4 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(3), &val4);
2622 if (!SWIG_IsOK(ecode4)) {
2623 SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "gsl_linalg_matmult_mod" "', argument " "4"" of type '" "gsl_linalg_matrix_mod_t""'");
2624 }
2625 arg4 = (gsl_linalg_matrix_mod_t)(val4);
2626 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_matrix, 0 | 0 );
2627 if (!SWIG_IsOK(res5)) {
2628 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_matmult_mod" "', argument " "5"" of type '" "gsl_matrix *""'");
2629 }
2630 arg5 = (gsl_matrix *)(argp5);
2631 result = (int)gsl_linalg_matmult_mod((gsl_matrix const *)arg1,arg2,(gsl_matrix const *)arg3,arg4,arg5);
2632 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
2633
2634
2635
2636
2637
2638 XSRETURN(argvi);
2639 fail:
2640
2641
2642
2643
2644
2645 SWIG_croak_null();
2646 }
2647 }
2648
2649
XS(_wrap_gsl_linalg_exponential_ss)2650 XS(_wrap_gsl_linalg_exponential_ss) {
2651 {
2652 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
2653 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
2654 gsl_mode_t arg3 ;
2655 void *argp1 = 0 ;
2656 int res1 = 0 ;
2657 void *argp2 = 0 ;
2658 int res2 = 0 ;
2659 void *argp3 ;
2660 int res3 = 0 ;
2661 int argvi = 0;
2662 int result;
2663 dXSARGS;
2664
2665 if ((items < 3) || (items > 3)) {
2666 SWIG_croak("Usage: gsl_linalg_exponential_ss(A,eA,mode);");
2667 }
2668 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
2669 if (!SWIG_IsOK(res1)) {
2670 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_exponential_ss" "', argument " "1"" of type '" "gsl_matrix const *""'");
2671 }
2672 arg1 = (gsl_matrix *)(argp1);
2673 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
2674 if (!SWIG_IsOK(res2)) {
2675 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_exponential_ss" "', argument " "2"" of type '" "gsl_matrix *""'");
2676 }
2677 arg2 = (gsl_matrix *)(argp2);
2678 {
2679 res3 = SWIG_ConvertPtr(ST(2), &argp3, SWIGTYPE_p_gsl_mode_t, 0 );
2680 if (!SWIG_IsOK(res3)) {
2681 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_exponential_ss" "', argument " "3"" of type '" "gsl_mode_t""'");
2682 }
2683 if (!argp3) {
2684 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_linalg_exponential_ss" "', argument " "3"" of type '" "gsl_mode_t""'");
2685 } else {
2686 arg3 = *((gsl_mode_t *)(argp3));
2687 }
2688 }
2689 result = (int)gsl_linalg_exponential_ss((gsl_matrix const *)arg1,arg2,arg3);
2690 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
2691
2692
2693 XSRETURN(argvi);
2694 fail:
2695
2696
2697 SWIG_croak_null();
2698 }
2699 }
2700
2701
XS(_wrap_gsl_linalg_householder_transform)2702 XS(_wrap_gsl_linalg_householder_transform) {
2703 {
2704 gsl_vector *arg1 = (gsl_vector *) 0 ;
2705 void *argp1 = 0 ;
2706 int res1 = 0 ;
2707 int argvi = 0;
2708 double result;
2709 dXSARGS;
2710
2711 if ((items < 1) || (items > 1)) {
2712 SWIG_croak("Usage: gsl_linalg_householder_transform(v);");
2713 }
2714 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
2715 if (!SWIG_IsOK(res1)) {
2716 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_householder_transform" "', argument " "1"" of type '" "gsl_vector *""'");
2717 }
2718 arg1 = (gsl_vector *)(argp1);
2719 result = (double)gsl_linalg_householder_transform(arg1);
2720 ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(result)); argvi++ ;
2721
2722 XSRETURN(argvi);
2723 fail:
2724
2725 SWIG_croak_null();
2726 }
2727 }
2728
2729
XS(_wrap_gsl_linalg_complex_householder_transform)2730 XS(_wrap_gsl_linalg_complex_householder_transform) {
2731 {
2732 gsl_vector_complex *arg1 = (gsl_vector_complex *) 0 ;
2733 void *argp1 = 0 ;
2734 int res1 = 0 ;
2735 int argvi = 0;
2736 gsl_complex result;
2737 dXSARGS;
2738
2739 if ((items < 1) || (items > 1)) {
2740 SWIG_croak("Usage: gsl_linalg_complex_householder_transform(v);");
2741 }
2742 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
2743 if (!SWIG_IsOK(res1)) {
2744 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_complex_householder_transform" "', argument " "1"" of type '" "gsl_vector_complex *""'");
2745 }
2746 arg1 = (gsl_vector_complex *)(argp1);
2747 result = gsl_linalg_complex_householder_transform(arg1);
2748 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
2749
2750 XSRETURN(argvi);
2751 fail:
2752
2753 SWIG_croak_null();
2754 }
2755 }
2756
2757
XS(_wrap_gsl_linalg_householder_hm)2758 XS(_wrap_gsl_linalg_householder_hm) {
2759 {
2760 double arg1 ;
2761 gsl_vector *arg2 = (gsl_vector *) 0 ;
2762 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
2763 double val1 ;
2764 int ecode1 = 0 ;
2765 void *argp2 = 0 ;
2766 int res2 = 0 ;
2767 void *argp3 = 0 ;
2768 int res3 = 0 ;
2769 int argvi = 0;
2770 int result;
2771 dXSARGS;
2772
2773 if ((items < 3) || (items > 3)) {
2774 SWIG_croak("Usage: gsl_linalg_householder_hm(tau,v,A);");
2775 }
2776 ecode1 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
2777 if (!SWIG_IsOK(ecode1)) {
2778 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_linalg_householder_hm" "', argument " "1"" of type '" "double""'");
2779 }
2780 arg1 = (double)(val1);
2781 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
2782 if (!SWIG_IsOK(res2)) {
2783 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_householder_hm" "', argument " "2"" of type '" "gsl_vector const *""'");
2784 }
2785 arg2 = (gsl_vector *)(argp2);
2786 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
2787 if (!SWIG_IsOK(res3)) {
2788 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_householder_hm" "', argument " "3"" of type '" "gsl_matrix *""'");
2789 }
2790 arg3 = (gsl_matrix *)(argp3);
2791 result = (int)gsl_linalg_householder_hm(arg1,(gsl_vector const *)arg2,arg3);
2792 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
2793
2794
2795
2796 XSRETURN(argvi);
2797 fail:
2798
2799
2800
2801 SWIG_croak_null();
2802 }
2803 }
2804
2805
XS(_wrap_gsl_linalg_householder_mh)2806 XS(_wrap_gsl_linalg_householder_mh) {
2807 {
2808 double arg1 ;
2809 gsl_vector *arg2 = (gsl_vector *) 0 ;
2810 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
2811 double val1 ;
2812 int ecode1 = 0 ;
2813 void *argp2 = 0 ;
2814 int res2 = 0 ;
2815 void *argp3 = 0 ;
2816 int res3 = 0 ;
2817 int argvi = 0;
2818 int result;
2819 dXSARGS;
2820
2821 if ((items < 3) || (items > 3)) {
2822 SWIG_croak("Usage: gsl_linalg_householder_mh(tau,v,A);");
2823 }
2824 ecode1 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
2825 if (!SWIG_IsOK(ecode1)) {
2826 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_linalg_householder_mh" "', argument " "1"" of type '" "double""'");
2827 }
2828 arg1 = (double)(val1);
2829 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
2830 if (!SWIG_IsOK(res2)) {
2831 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_householder_mh" "', argument " "2"" of type '" "gsl_vector const *""'");
2832 }
2833 arg2 = (gsl_vector *)(argp2);
2834 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
2835 if (!SWIG_IsOK(res3)) {
2836 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_householder_mh" "', argument " "3"" of type '" "gsl_matrix *""'");
2837 }
2838 arg3 = (gsl_matrix *)(argp3);
2839 result = (int)gsl_linalg_householder_mh(arg1,(gsl_vector const *)arg2,arg3);
2840 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
2841
2842
2843
2844 XSRETURN(argvi);
2845 fail:
2846
2847
2848
2849 SWIG_croak_null();
2850 }
2851 }
2852
2853
XS(_wrap_gsl_linalg_householder_hv)2854 XS(_wrap_gsl_linalg_householder_hv) {
2855 {
2856 double arg1 ;
2857 gsl_vector *arg2 = (gsl_vector *) 0 ;
2858 gsl_vector *arg3 = (gsl_vector *) 0 ;
2859 double val1 ;
2860 int ecode1 = 0 ;
2861 void *argp2 = 0 ;
2862 int res2 = 0 ;
2863 void *argp3 = 0 ;
2864 int res3 = 0 ;
2865 int argvi = 0;
2866 int result;
2867 dXSARGS;
2868
2869 if ((items < 3) || (items > 3)) {
2870 SWIG_croak("Usage: gsl_linalg_householder_hv(tau,v,w);");
2871 }
2872 ecode1 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
2873 if (!SWIG_IsOK(ecode1)) {
2874 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_linalg_householder_hv" "', argument " "1"" of type '" "double""'");
2875 }
2876 arg1 = (double)(val1);
2877 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
2878 if (!SWIG_IsOK(res2)) {
2879 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_householder_hv" "', argument " "2"" of type '" "gsl_vector const *""'");
2880 }
2881 arg2 = (gsl_vector *)(argp2);
2882 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
2883 if (!SWIG_IsOK(res3)) {
2884 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_householder_hv" "', argument " "3"" of type '" "gsl_vector *""'");
2885 }
2886 arg3 = (gsl_vector *)(argp3);
2887 result = (int)gsl_linalg_householder_hv(arg1,(gsl_vector const *)arg2,arg3);
2888 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
2889
2890
2891
2892 XSRETURN(argvi);
2893 fail:
2894
2895
2896
2897 SWIG_croak_null();
2898 }
2899 }
2900
2901
XS(_wrap_gsl_linalg_householder_hm1)2902 XS(_wrap_gsl_linalg_householder_hm1) {
2903 {
2904 double arg1 ;
2905 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
2906 double val1 ;
2907 int ecode1 = 0 ;
2908 void *argp2 = 0 ;
2909 int res2 = 0 ;
2910 int argvi = 0;
2911 int result;
2912 dXSARGS;
2913
2914 if ((items < 2) || (items > 2)) {
2915 SWIG_croak("Usage: gsl_linalg_householder_hm1(tau,A);");
2916 }
2917 ecode1 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
2918 if (!SWIG_IsOK(ecode1)) {
2919 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_linalg_householder_hm1" "', argument " "1"" of type '" "double""'");
2920 }
2921 arg1 = (double)(val1);
2922 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
2923 if (!SWIG_IsOK(res2)) {
2924 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_householder_hm1" "', argument " "2"" of type '" "gsl_matrix *""'");
2925 }
2926 arg2 = (gsl_matrix *)(argp2);
2927 result = (int)gsl_linalg_householder_hm1(arg1,arg2);
2928 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
2929
2930
2931 XSRETURN(argvi);
2932 fail:
2933
2934
2935 SWIG_croak_null();
2936 }
2937 }
2938
2939
XS(_wrap_gsl_linalg_complex_householder_hm)2940 XS(_wrap_gsl_linalg_complex_householder_hm) {
2941 {
2942 gsl_complex arg1 ;
2943 gsl_vector_complex *arg2 = (gsl_vector_complex *) 0 ;
2944 gsl_matrix_complex *arg3 = (gsl_matrix_complex *) 0 ;
2945 void *argp1 ;
2946 int res1 = 0 ;
2947 void *argp2 = 0 ;
2948 int res2 = 0 ;
2949 void *argp3 = 0 ;
2950 int res3 = 0 ;
2951 int argvi = 0;
2952 int result;
2953 dXSARGS;
2954
2955 if ((items < 3) || (items > 3)) {
2956 SWIG_croak("Usage: gsl_linalg_complex_householder_hm(tau,v,A);");
2957 }
2958 {
2959 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
2960 if (!SWIG_IsOK(res1)) {
2961 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_complex_householder_hm" "', argument " "1"" of type '" "gsl_complex""'");
2962 }
2963 if (!argp1) {
2964 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_linalg_complex_householder_hm" "', argument " "1"" of type '" "gsl_complex""'");
2965 } else {
2966 arg1 = *((gsl_complex *)(argp1));
2967 }
2968 }
2969 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
2970 if (!SWIG_IsOK(res2)) {
2971 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_complex_householder_hm" "', argument " "2"" of type '" "gsl_vector_complex const *""'");
2972 }
2973 arg2 = (gsl_vector_complex *)(argp2);
2974 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
2975 if (!SWIG_IsOK(res3)) {
2976 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_complex_householder_hm" "', argument " "3"" of type '" "gsl_matrix_complex *""'");
2977 }
2978 arg3 = (gsl_matrix_complex *)(argp3);
2979 result = (int)gsl_linalg_complex_householder_hm(arg1,(gsl_vector_complex const *)arg2,arg3);
2980 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
2981
2982
2983 XSRETURN(argvi);
2984 fail:
2985
2986
2987 SWIG_croak_null();
2988 }
2989 }
2990
2991
XS(_wrap_gsl_linalg_complex_householder_mh)2992 XS(_wrap_gsl_linalg_complex_householder_mh) {
2993 {
2994 gsl_complex arg1 ;
2995 gsl_vector_complex *arg2 = (gsl_vector_complex *) 0 ;
2996 gsl_matrix_complex *arg3 = (gsl_matrix_complex *) 0 ;
2997 void *argp1 ;
2998 int res1 = 0 ;
2999 void *argp2 = 0 ;
3000 int res2 = 0 ;
3001 void *argp3 = 0 ;
3002 int res3 = 0 ;
3003 int argvi = 0;
3004 int result;
3005 dXSARGS;
3006
3007 if ((items < 3) || (items > 3)) {
3008 SWIG_croak("Usage: gsl_linalg_complex_householder_mh(tau,v,A);");
3009 }
3010 {
3011 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
3012 if (!SWIG_IsOK(res1)) {
3013 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_complex_householder_mh" "', argument " "1"" of type '" "gsl_complex""'");
3014 }
3015 if (!argp1) {
3016 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_linalg_complex_householder_mh" "', argument " "1"" of type '" "gsl_complex""'");
3017 } else {
3018 arg1 = *((gsl_complex *)(argp1));
3019 }
3020 }
3021 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
3022 if (!SWIG_IsOK(res2)) {
3023 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_complex_householder_mh" "', argument " "2"" of type '" "gsl_vector_complex const *""'");
3024 }
3025 arg2 = (gsl_vector_complex *)(argp2);
3026 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
3027 if (!SWIG_IsOK(res3)) {
3028 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_complex_householder_mh" "', argument " "3"" of type '" "gsl_matrix_complex *""'");
3029 }
3030 arg3 = (gsl_matrix_complex *)(argp3);
3031 result = (int)gsl_linalg_complex_householder_mh(arg1,(gsl_vector_complex const *)arg2,arg3);
3032 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3033
3034
3035 XSRETURN(argvi);
3036 fail:
3037
3038
3039 SWIG_croak_null();
3040 }
3041 }
3042
3043
XS(_wrap_gsl_linalg_complex_householder_hv)3044 XS(_wrap_gsl_linalg_complex_householder_hv) {
3045 {
3046 gsl_complex arg1 ;
3047 gsl_vector_complex *arg2 = (gsl_vector_complex *) 0 ;
3048 gsl_vector_complex *arg3 = (gsl_vector_complex *) 0 ;
3049 void *argp1 ;
3050 int res1 = 0 ;
3051 void *argp2 = 0 ;
3052 int res2 = 0 ;
3053 void *argp3 = 0 ;
3054 int res3 = 0 ;
3055 int argvi = 0;
3056 int result;
3057 dXSARGS;
3058
3059 if ((items < 3) || (items > 3)) {
3060 SWIG_croak("Usage: gsl_linalg_complex_householder_hv(tau,v,w);");
3061 }
3062 {
3063 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
3064 if (!SWIG_IsOK(res1)) {
3065 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_complex_householder_hv" "', argument " "1"" of type '" "gsl_complex""'");
3066 }
3067 if (!argp1) {
3068 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_linalg_complex_householder_hv" "', argument " "1"" of type '" "gsl_complex""'");
3069 } else {
3070 arg1 = *((gsl_complex *)(argp1));
3071 }
3072 }
3073 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
3074 if (!SWIG_IsOK(res2)) {
3075 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_complex_householder_hv" "', argument " "2"" of type '" "gsl_vector_complex const *""'");
3076 }
3077 arg2 = (gsl_vector_complex *)(argp2);
3078 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
3079 if (!SWIG_IsOK(res3)) {
3080 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_complex_householder_hv" "', argument " "3"" of type '" "gsl_vector_complex *""'");
3081 }
3082 arg3 = (gsl_vector_complex *)(argp3);
3083 result = (int)gsl_linalg_complex_householder_hv(arg1,(gsl_vector_complex const *)arg2,arg3);
3084 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3085
3086
3087 XSRETURN(argvi);
3088 fail:
3089
3090
3091 SWIG_croak_null();
3092 }
3093 }
3094
3095
XS(_wrap_gsl_linalg_hessenberg_decomp)3096 XS(_wrap_gsl_linalg_hessenberg_decomp) {
3097 {
3098 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
3099 gsl_vector *arg2 = (gsl_vector *) 0 ;
3100 void *argp1 = 0 ;
3101 int res1 = 0 ;
3102 void *argp2 = 0 ;
3103 int res2 = 0 ;
3104 int argvi = 0;
3105 int result;
3106 dXSARGS;
3107
3108 if ((items < 2) || (items > 2)) {
3109 SWIG_croak("Usage: gsl_linalg_hessenberg_decomp(A,tau);");
3110 }
3111 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3112 if (!SWIG_IsOK(res1)) {
3113 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_hessenberg_decomp" "', argument " "1"" of type '" "gsl_matrix *""'");
3114 }
3115 arg1 = (gsl_matrix *)(argp1);
3116 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
3117 if (!SWIG_IsOK(res2)) {
3118 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_hessenberg_decomp" "', argument " "2"" of type '" "gsl_vector *""'");
3119 }
3120 arg2 = (gsl_vector *)(argp2);
3121 result = (int)gsl_linalg_hessenberg_decomp(arg1,arg2);
3122 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3123
3124
3125 XSRETURN(argvi);
3126 fail:
3127
3128
3129 SWIG_croak_null();
3130 }
3131 }
3132
3133
XS(_wrap_gsl_linalg_hessenberg_unpack)3134 XS(_wrap_gsl_linalg_hessenberg_unpack) {
3135 {
3136 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
3137 gsl_vector *arg2 = (gsl_vector *) 0 ;
3138 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
3139 void *argp1 = 0 ;
3140 int res1 = 0 ;
3141 void *argp2 = 0 ;
3142 int res2 = 0 ;
3143 void *argp3 = 0 ;
3144 int res3 = 0 ;
3145 int argvi = 0;
3146 int result;
3147 dXSARGS;
3148
3149 if ((items < 3) || (items > 3)) {
3150 SWIG_croak("Usage: gsl_linalg_hessenberg_unpack(H,tau,U);");
3151 }
3152 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3153 if (!SWIG_IsOK(res1)) {
3154 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_hessenberg_unpack" "', argument " "1"" of type '" "gsl_matrix *""'");
3155 }
3156 arg1 = (gsl_matrix *)(argp1);
3157 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
3158 if (!SWIG_IsOK(res2)) {
3159 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_hessenberg_unpack" "', argument " "2"" of type '" "gsl_vector *""'");
3160 }
3161 arg2 = (gsl_vector *)(argp2);
3162 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3163 if (!SWIG_IsOK(res3)) {
3164 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_hessenberg_unpack" "', argument " "3"" of type '" "gsl_matrix *""'");
3165 }
3166 arg3 = (gsl_matrix *)(argp3);
3167 result = (int)gsl_linalg_hessenberg_unpack(arg1,arg2,arg3);
3168 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3169
3170
3171
3172 XSRETURN(argvi);
3173 fail:
3174
3175
3176
3177 SWIG_croak_null();
3178 }
3179 }
3180
3181
XS(_wrap_gsl_linalg_hessenberg_unpack_accum)3182 XS(_wrap_gsl_linalg_hessenberg_unpack_accum) {
3183 {
3184 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
3185 gsl_vector *arg2 = (gsl_vector *) 0 ;
3186 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
3187 void *argp1 = 0 ;
3188 int res1 = 0 ;
3189 void *argp2 = 0 ;
3190 int res2 = 0 ;
3191 void *argp3 = 0 ;
3192 int res3 = 0 ;
3193 int argvi = 0;
3194 int result;
3195 dXSARGS;
3196
3197 if ((items < 3) || (items > 3)) {
3198 SWIG_croak("Usage: gsl_linalg_hessenberg_unpack_accum(H,tau,U);");
3199 }
3200 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3201 if (!SWIG_IsOK(res1)) {
3202 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_hessenberg_unpack_accum" "', argument " "1"" of type '" "gsl_matrix *""'");
3203 }
3204 arg1 = (gsl_matrix *)(argp1);
3205 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
3206 if (!SWIG_IsOK(res2)) {
3207 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_hessenberg_unpack_accum" "', argument " "2"" of type '" "gsl_vector *""'");
3208 }
3209 arg2 = (gsl_vector *)(argp2);
3210 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3211 if (!SWIG_IsOK(res3)) {
3212 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_hessenberg_unpack_accum" "', argument " "3"" of type '" "gsl_matrix *""'");
3213 }
3214 arg3 = (gsl_matrix *)(argp3);
3215 result = (int)gsl_linalg_hessenberg_unpack_accum(arg1,arg2,arg3);
3216 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3217
3218
3219
3220 XSRETURN(argvi);
3221 fail:
3222
3223
3224
3225 SWIG_croak_null();
3226 }
3227 }
3228
3229
XS(_wrap_gsl_linalg_hessenberg_set_zero)3230 XS(_wrap_gsl_linalg_hessenberg_set_zero) {
3231 {
3232 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
3233 void *argp1 = 0 ;
3234 int res1 = 0 ;
3235 int argvi = 0;
3236 int result;
3237 dXSARGS;
3238
3239 if ((items < 1) || (items > 1)) {
3240 SWIG_croak("Usage: gsl_linalg_hessenberg_set_zero(H);");
3241 }
3242 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3243 if (!SWIG_IsOK(res1)) {
3244 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_hessenberg_set_zero" "', argument " "1"" of type '" "gsl_matrix *""'");
3245 }
3246 arg1 = (gsl_matrix *)(argp1);
3247 result = (int)gsl_linalg_hessenberg_set_zero(arg1);
3248 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3249
3250 XSRETURN(argvi);
3251 fail:
3252
3253 SWIG_croak_null();
3254 }
3255 }
3256
3257
XS(_wrap_gsl_linalg_hessenberg_submatrix)3258 XS(_wrap_gsl_linalg_hessenberg_submatrix) {
3259 {
3260 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
3261 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
3262 size_t arg3 ;
3263 gsl_vector *arg4 = (gsl_vector *) 0 ;
3264 void *argp1 = 0 ;
3265 int res1 = 0 ;
3266 void *argp2 = 0 ;
3267 int res2 = 0 ;
3268 size_t val3 ;
3269 int ecode3 = 0 ;
3270 void *argp4 = 0 ;
3271 int res4 = 0 ;
3272 int argvi = 0;
3273 int result;
3274 dXSARGS;
3275
3276 if ((items < 4) || (items > 4)) {
3277 SWIG_croak("Usage: gsl_linalg_hessenberg_submatrix(M,A,top,tau);");
3278 }
3279 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3280 if (!SWIG_IsOK(res1)) {
3281 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_hessenberg_submatrix" "', argument " "1"" of type '" "gsl_matrix *""'");
3282 }
3283 arg1 = (gsl_matrix *)(argp1);
3284 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3285 if (!SWIG_IsOK(res2)) {
3286 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_hessenberg_submatrix" "', argument " "2"" of type '" "gsl_matrix *""'");
3287 }
3288 arg2 = (gsl_matrix *)(argp2);
3289 ecode3 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
3290 if (!SWIG_IsOK(ecode3)) {
3291 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_linalg_hessenberg_submatrix" "', argument " "3"" of type '" "size_t""'");
3292 }
3293 arg3 = (size_t)(val3);
3294 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
3295 if (!SWIG_IsOK(res4)) {
3296 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_hessenberg_submatrix" "', argument " "4"" of type '" "gsl_vector *""'");
3297 }
3298 arg4 = (gsl_vector *)(argp4);
3299 result = (int)gsl_linalg_hessenberg_submatrix(arg1,arg2,arg3,arg4);
3300 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3301
3302
3303
3304
3305 XSRETURN(argvi);
3306 fail:
3307
3308
3309
3310
3311 SWIG_croak_null();
3312 }
3313 }
3314
3315
XS(_wrap_gsl_linalg_hesstri_decomp)3316 XS(_wrap_gsl_linalg_hesstri_decomp) {
3317 {
3318 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
3319 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
3320 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
3321 gsl_matrix *arg4 = (gsl_matrix *) 0 ;
3322 gsl_vector *arg5 = (gsl_vector *) 0 ;
3323 void *argp1 = 0 ;
3324 int res1 = 0 ;
3325 void *argp2 = 0 ;
3326 int res2 = 0 ;
3327 void *argp3 = 0 ;
3328 int res3 = 0 ;
3329 void *argp4 = 0 ;
3330 int res4 = 0 ;
3331 void *argp5 = 0 ;
3332 int res5 = 0 ;
3333 int argvi = 0;
3334 int result;
3335 dXSARGS;
3336
3337 if ((items < 5) || (items > 5)) {
3338 SWIG_croak("Usage: gsl_linalg_hesstri_decomp(A,B,U,V,work);");
3339 }
3340 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3341 if (!SWIG_IsOK(res1)) {
3342 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_hesstri_decomp" "', argument " "1"" of type '" "gsl_matrix *""'");
3343 }
3344 arg1 = (gsl_matrix *)(argp1);
3345 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3346 if (!SWIG_IsOK(res2)) {
3347 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_hesstri_decomp" "', argument " "2"" of type '" "gsl_matrix *""'");
3348 }
3349 arg2 = (gsl_matrix *)(argp2);
3350 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3351 if (!SWIG_IsOK(res3)) {
3352 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_hesstri_decomp" "', argument " "3"" of type '" "gsl_matrix *""'");
3353 }
3354 arg3 = (gsl_matrix *)(argp3);
3355 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3356 if (!SWIG_IsOK(res4)) {
3357 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_hesstri_decomp" "', argument " "4"" of type '" "gsl_matrix *""'");
3358 }
3359 arg4 = (gsl_matrix *)(argp4);
3360 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
3361 if (!SWIG_IsOK(res5)) {
3362 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_hesstri_decomp" "', argument " "5"" of type '" "gsl_vector *""'");
3363 }
3364 arg5 = (gsl_vector *)(argp5);
3365 result = (int)gsl_linalg_hesstri_decomp(arg1,arg2,arg3,arg4,arg5);
3366 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3367
3368
3369
3370
3371
3372 XSRETURN(argvi);
3373 fail:
3374
3375
3376
3377
3378
3379 SWIG_croak_null();
3380 }
3381 }
3382
3383
XS(_wrap_gsl_linalg_SV_decomp)3384 XS(_wrap_gsl_linalg_SV_decomp) {
3385 {
3386 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
3387 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
3388 gsl_vector *arg3 = (gsl_vector *) 0 ;
3389 gsl_vector *arg4 = (gsl_vector *) 0 ;
3390 void *argp1 = 0 ;
3391 int res1 = 0 ;
3392 void *argp2 = 0 ;
3393 int res2 = 0 ;
3394 void *argp3 = 0 ;
3395 int res3 = 0 ;
3396 void *argp4 = 0 ;
3397 int res4 = 0 ;
3398 int argvi = 0;
3399 int result;
3400 dXSARGS;
3401
3402 if ((items < 4) || (items > 4)) {
3403 SWIG_croak("Usage: gsl_linalg_SV_decomp(A,V,S,work);");
3404 }
3405 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3406 if (!SWIG_IsOK(res1)) {
3407 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_SV_decomp" "', argument " "1"" of type '" "gsl_matrix *""'");
3408 }
3409 arg1 = (gsl_matrix *)(argp1);
3410 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3411 if (!SWIG_IsOK(res2)) {
3412 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_SV_decomp" "', argument " "2"" of type '" "gsl_matrix *""'");
3413 }
3414 arg2 = (gsl_matrix *)(argp2);
3415 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
3416 if (!SWIG_IsOK(res3)) {
3417 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_SV_decomp" "', argument " "3"" of type '" "gsl_vector *""'");
3418 }
3419 arg3 = (gsl_vector *)(argp3);
3420 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
3421 if (!SWIG_IsOK(res4)) {
3422 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_SV_decomp" "', argument " "4"" of type '" "gsl_vector *""'");
3423 }
3424 arg4 = (gsl_vector *)(argp4);
3425 result = (int)gsl_linalg_SV_decomp(arg1,arg2,arg3,arg4);
3426 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3427
3428
3429
3430
3431 XSRETURN(argvi);
3432 fail:
3433
3434
3435
3436
3437 SWIG_croak_null();
3438 }
3439 }
3440
3441
XS(_wrap_gsl_linalg_SV_decomp_mod)3442 XS(_wrap_gsl_linalg_SV_decomp_mod) {
3443 {
3444 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
3445 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
3446 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
3447 gsl_vector *arg4 = (gsl_vector *) 0 ;
3448 gsl_vector *arg5 = (gsl_vector *) 0 ;
3449 void *argp1 = 0 ;
3450 int res1 = 0 ;
3451 void *argp2 = 0 ;
3452 int res2 = 0 ;
3453 void *argp3 = 0 ;
3454 int res3 = 0 ;
3455 void *argp4 = 0 ;
3456 int res4 = 0 ;
3457 void *argp5 = 0 ;
3458 int res5 = 0 ;
3459 int argvi = 0;
3460 int result;
3461 dXSARGS;
3462
3463 if ((items < 5) || (items > 5)) {
3464 SWIG_croak("Usage: gsl_linalg_SV_decomp_mod(A,X,V,S,work);");
3465 }
3466 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3467 if (!SWIG_IsOK(res1)) {
3468 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_SV_decomp_mod" "', argument " "1"" of type '" "gsl_matrix *""'");
3469 }
3470 arg1 = (gsl_matrix *)(argp1);
3471 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3472 if (!SWIG_IsOK(res2)) {
3473 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_SV_decomp_mod" "', argument " "2"" of type '" "gsl_matrix *""'");
3474 }
3475 arg2 = (gsl_matrix *)(argp2);
3476 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3477 if (!SWIG_IsOK(res3)) {
3478 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_SV_decomp_mod" "', argument " "3"" of type '" "gsl_matrix *""'");
3479 }
3480 arg3 = (gsl_matrix *)(argp3);
3481 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
3482 if (!SWIG_IsOK(res4)) {
3483 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_SV_decomp_mod" "', argument " "4"" of type '" "gsl_vector *""'");
3484 }
3485 arg4 = (gsl_vector *)(argp4);
3486 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
3487 if (!SWIG_IsOK(res5)) {
3488 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_SV_decomp_mod" "', argument " "5"" of type '" "gsl_vector *""'");
3489 }
3490 arg5 = (gsl_vector *)(argp5);
3491 result = (int)gsl_linalg_SV_decomp_mod(arg1,arg2,arg3,arg4,arg5);
3492 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3493
3494
3495
3496
3497
3498 XSRETURN(argvi);
3499 fail:
3500
3501
3502
3503
3504
3505 SWIG_croak_null();
3506 }
3507 }
3508
3509
XS(_wrap_gsl_linalg_SV_decomp_jacobi)3510 XS(_wrap_gsl_linalg_SV_decomp_jacobi) {
3511 {
3512 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
3513 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
3514 gsl_vector *arg3 = (gsl_vector *) 0 ;
3515 void *argp1 = 0 ;
3516 int res1 = 0 ;
3517 void *argp2 = 0 ;
3518 int res2 = 0 ;
3519 void *argp3 = 0 ;
3520 int res3 = 0 ;
3521 int argvi = 0;
3522 int result;
3523 dXSARGS;
3524
3525 if ((items < 3) || (items > 3)) {
3526 SWIG_croak("Usage: gsl_linalg_SV_decomp_jacobi(A,Q,S);");
3527 }
3528 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3529 if (!SWIG_IsOK(res1)) {
3530 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_SV_decomp_jacobi" "', argument " "1"" of type '" "gsl_matrix *""'");
3531 }
3532 arg1 = (gsl_matrix *)(argp1);
3533 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3534 if (!SWIG_IsOK(res2)) {
3535 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_SV_decomp_jacobi" "', argument " "2"" of type '" "gsl_matrix *""'");
3536 }
3537 arg2 = (gsl_matrix *)(argp2);
3538 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
3539 if (!SWIG_IsOK(res3)) {
3540 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_SV_decomp_jacobi" "', argument " "3"" of type '" "gsl_vector *""'");
3541 }
3542 arg3 = (gsl_vector *)(argp3);
3543 result = (int)gsl_linalg_SV_decomp_jacobi(arg1,arg2,arg3);
3544 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3545
3546
3547
3548 XSRETURN(argvi);
3549 fail:
3550
3551
3552
3553 SWIG_croak_null();
3554 }
3555 }
3556
3557
XS(_wrap_gsl_linalg_SV_solve)3558 XS(_wrap_gsl_linalg_SV_solve) {
3559 {
3560 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
3561 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
3562 gsl_vector *arg3 = (gsl_vector *) 0 ;
3563 gsl_vector *arg4 = (gsl_vector *) 0 ;
3564 gsl_vector *arg5 = (gsl_vector *) 0 ;
3565 void *argp1 = 0 ;
3566 int res1 = 0 ;
3567 void *argp2 = 0 ;
3568 int res2 = 0 ;
3569 void *argp3 = 0 ;
3570 int res3 = 0 ;
3571 void *argp4 = 0 ;
3572 int res4 = 0 ;
3573 void *argp5 = 0 ;
3574 int res5 = 0 ;
3575 int argvi = 0;
3576 int result;
3577 dXSARGS;
3578
3579 if ((items < 5) || (items > 5)) {
3580 SWIG_croak("Usage: gsl_linalg_SV_solve(U,Q,S,b,x);");
3581 }
3582 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3583 if (!SWIG_IsOK(res1)) {
3584 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_SV_solve" "', argument " "1"" of type '" "gsl_matrix const *""'");
3585 }
3586 arg1 = (gsl_matrix *)(argp1);
3587 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3588 if (!SWIG_IsOK(res2)) {
3589 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_SV_solve" "', argument " "2"" of type '" "gsl_matrix const *""'");
3590 }
3591 arg2 = (gsl_matrix *)(argp2);
3592 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
3593 if (!SWIG_IsOK(res3)) {
3594 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_SV_solve" "', argument " "3"" of type '" "gsl_vector const *""'");
3595 }
3596 arg3 = (gsl_vector *)(argp3);
3597 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
3598 if (!SWIG_IsOK(res4)) {
3599 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_SV_solve" "', argument " "4"" of type '" "gsl_vector const *""'");
3600 }
3601 arg4 = (gsl_vector *)(argp4);
3602 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
3603 if (!SWIG_IsOK(res5)) {
3604 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_SV_solve" "', argument " "5"" of type '" "gsl_vector *""'");
3605 }
3606 arg5 = (gsl_vector *)(argp5);
3607 result = (int)gsl_linalg_SV_solve((gsl_matrix const *)arg1,(gsl_matrix const *)arg2,(gsl_vector const *)arg3,(gsl_vector const *)arg4,arg5);
3608 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3609
3610
3611
3612
3613
3614 XSRETURN(argvi);
3615 fail:
3616
3617
3618
3619
3620
3621 SWIG_croak_null();
3622 }
3623 }
3624
3625
XS(_wrap_gsl_linalg_SV_leverage)3626 XS(_wrap_gsl_linalg_SV_leverage) {
3627 {
3628 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
3629 gsl_vector *arg2 = (gsl_vector *) 0 ;
3630 void *argp1 = 0 ;
3631 int res1 = 0 ;
3632 void *argp2 = 0 ;
3633 int res2 = 0 ;
3634 int argvi = 0;
3635 int result;
3636 dXSARGS;
3637
3638 if ((items < 2) || (items > 2)) {
3639 SWIG_croak("Usage: gsl_linalg_SV_leverage(U,h);");
3640 }
3641 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3642 if (!SWIG_IsOK(res1)) {
3643 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_SV_leverage" "', argument " "1"" of type '" "gsl_matrix const *""'");
3644 }
3645 arg1 = (gsl_matrix *)(argp1);
3646 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
3647 if (!SWIG_IsOK(res2)) {
3648 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_SV_leverage" "', argument " "2"" of type '" "gsl_vector *""'");
3649 }
3650 arg2 = (gsl_vector *)(argp2);
3651 result = (int)gsl_linalg_SV_leverage((gsl_matrix const *)arg1,arg2);
3652 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3653
3654
3655 XSRETURN(argvi);
3656 fail:
3657
3658
3659 SWIG_croak_null();
3660 }
3661 }
3662
3663
XS(_wrap_gsl_linalg_LU_decomp)3664 XS(_wrap_gsl_linalg_LU_decomp) {
3665 {
3666 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
3667 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
3668 int *arg3 = (int *) 0 ;
3669 void *argp1 = 0 ;
3670 int res1 = 0 ;
3671 void *argp2 = 0 ;
3672 int res2 = 0 ;
3673 int temp3 ;
3674 int res3 = SWIG_TMPOBJ ;
3675 int argvi = 0;
3676 int result;
3677 dXSARGS;
3678
3679 arg3 = &temp3;
3680 if ((items < 2) || (items > 2)) {
3681 SWIG_croak("Usage: gsl_linalg_LU_decomp(A,p);");
3682 }
3683 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3684 if (!SWIG_IsOK(res1)) {
3685 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LU_decomp" "', argument " "1"" of type '" "gsl_matrix *""'");
3686 }
3687 arg1 = (gsl_matrix *)(argp1);
3688 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
3689 if (!SWIG_IsOK(res2)) {
3690 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_LU_decomp" "', argument " "2"" of type '" "gsl_permutation *""'");
3691 }
3692 arg2 = (gsl_permutation *)(argp2);
3693 result = (int)gsl_linalg_LU_decomp(arg1,arg2,arg3);
3694 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3695 if (SWIG_IsTmpObj(res3)) {
3696 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((*arg3)); argvi++ ;
3697 } else {
3698 int new_flags = SWIG_IsNewObj(res3) ? (SWIG_POINTER_OWN | 0) : 0;
3699 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg3), SWIGTYPE_p_int, new_flags); argvi++ ;
3700 }
3701
3702
3703
3704 XSRETURN(argvi);
3705 fail:
3706
3707
3708
3709 SWIG_croak_null();
3710 }
3711 }
3712
3713
XS(_wrap_gsl_linalg_LU_solve)3714 XS(_wrap_gsl_linalg_LU_solve) {
3715 {
3716 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
3717 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
3718 gsl_vector *arg3 = (gsl_vector *) 0 ;
3719 gsl_vector *arg4 = (gsl_vector *) 0 ;
3720 void *argp1 = 0 ;
3721 int res1 = 0 ;
3722 void *argp2 = 0 ;
3723 int res2 = 0 ;
3724 void *argp3 = 0 ;
3725 int res3 = 0 ;
3726 void *argp4 = 0 ;
3727 int res4 = 0 ;
3728 int argvi = 0;
3729 int result;
3730 dXSARGS;
3731
3732 if ((items < 4) || (items > 4)) {
3733 SWIG_croak("Usage: gsl_linalg_LU_solve(LU,p,b,x);");
3734 }
3735 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3736 if (!SWIG_IsOK(res1)) {
3737 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LU_solve" "', argument " "1"" of type '" "gsl_matrix const *""'");
3738 }
3739 arg1 = (gsl_matrix *)(argp1);
3740 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
3741 if (!SWIG_IsOK(res2)) {
3742 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_LU_solve" "', argument " "2"" of type '" "gsl_permutation const *""'");
3743 }
3744 arg2 = (gsl_permutation *)(argp2);
3745 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
3746 if (!SWIG_IsOK(res3)) {
3747 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_LU_solve" "', argument " "3"" of type '" "gsl_vector const *""'");
3748 }
3749 arg3 = (gsl_vector *)(argp3);
3750 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
3751 if (!SWIG_IsOK(res4)) {
3752 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_LU_solve" "', argument " "4"" of type '" "gsl_vector *""'");
3753 }
3754 arg4 = (gsl_vector *)(argp4);
3755 result = (int)gsl_linalg_LU_solve((gsl_matrix const *)arg1,(struct gsl_permutation_struct const *)arg2,(gsl_vector const *)arg3,arg4);
3756 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3757
3758
3759
3760
3761 XSRETURN(argvi);
3762 fail:
3763
3764
3765
3766
3767 SWIG_croak_null();
3768 }
3769 }
3770
3771
XS(_wrap_gsl_linalg_LU_svx)3772 XS(_wrap_gsl_linalg_LU_svx) {
3773 {
3774 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
3775 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
3776 gsl_vector *arg3 = (gsl_vector *) 0 ;
3777 void *argp1 = 0 ;
3778 int res1 = 0 ;
3779 void *argp2 = 0 ;
3780 int res2 = 0 ;
3781 void *argp3 = 0 ;
3782 int res3 = 0 ;
3783 int argvi = 0;
3784 int result;
3785 dXSARGS;
3786
3787 if ((items < 3) || (items > 3)) {
3788 SWIG_croak("Usage: gsl_linalg_LU_svx(LU,p,x);");
3789 }
3790 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3791 if (!SWIG_IsOK(res1)) {
3792 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LU_svx" "', argument " "1"" of type '" "gsl_matrix const *""'");
3793 }
3794 arg1 = (gsl_matrix *)(argp1);
3795 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
3796 if (!SWIG_IsOK(res2)) {
3797 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_LU_svx" "', argument " "2"" of type '" "gsl_permutation const *""'");
3798 }
3799 arg2 = (gsl_permutation *)(argp2);
3800 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
3801 if (!SWIG_IsOK(res3)) {
3802 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_LU_svx" "', argument " "3"" of type '" "gsl_vector *""'");
3803 }
3804 arg3 = (gsl_vector *)(argp3);
3805 result = (int)gsl_linalg_LU_svx((gsl_matrix const *)arg1,(struct gsl_permutation_struct const *)arg2,arg3);
3806 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3807
3808
3809
3810 XSRETURN(argvi);
3811 fail:
3812
3813
3814
3815 SWIG_croak_null();
3816 }
3817 }
3818
3819
XS(_wrap_gsl_linalg_LU_refine)3820 XS(_wrap_gsl_linalg_LU_refine) {
3821 {
3822 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
3823 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
3824 gsl_permutation *arg3 = (gsl_permutation *) 0 ;
3825 gsl_vector *arg4 = (gsl_vector *) 0 ;
3826 gsl_vector *arg5 = (gsl_vector *) 0 ;
3827 gsl_vector *arg6 = (gsl_vector *) 0 ;
3828 void *argp1 = 0 ;
3829 int res1 = 0 ;
3830 void *argp2 = 0 ;
3831 int res2 = 0 ;
3832 void *argp3 = 0 ;
3833 int res3 = 0 ;
3834 void *argp4 = 0 ;
3835 int res4 = 0 ;
3836 void *argp5 = 0 ;
3837 int res5 = 0 ;
3838 void *argp6 = 0 ;
3839 int res6 = 0 ;
3840 int argvi = 0;
3841 int result;
3842 dXSARGS;
3843
3844 if ((items < 6) || (items > 6)) {
3845 SWIG_croak("Usage: gsl_linalg_LU_refine(A,LU,p,b,x,work);");
3846 }
3847 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3848 if (!SWIG_IsOK(res1)) {
3849 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LU_refine" "', argument " "1"" of type '" "gsl_matrix const *""'");
3850 }
3851 arg1 = (gsl_matrix *)(argp1);
3852 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3853 if (!SWIG_IsOK(res2)) {
3854 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_LU_refine" "', argument " "2"" of type '" "gsl_matrix const *""'");
3855 }
3856 arg2 = (gsl_matrix *)(argp2);
3857 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
3858 if (!SWIG_IsOK(res3)) {
3859 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_LU_refine" "', argument " "3"" of type '" "gsl_permutation const *""'");
3860 }
3861 arg3 = (gsl_permutation *)(argp3);
3862 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
3863 if (!SWIG_IsOK(res4)) {
3864 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_LU_refine" "', argument " "4"" of type '" "gsl_vector const *""'");
3865 }
3866 arg4 = (gsl_vector *)(argp4);
3867 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
3868 if (!SWIG_IsOK(res5)) {
3869 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_LU_refine" "', argument " "5"" of type '" "gsl_vector *""'");
3870 }
3871 arg5 = (gsl_vector *)(argp5);
3872 res6 = SWIG_ConvertPtr(ST(5), &argp6,SWIGTYPE_p_gsl_vector, 0 | 0 );
3873 if (!SWIG_IsOK(res6)) {
3874 SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_linalg_LU_refine" "', argument " "6"" of type '" "gsl_vector *""'");
3875 }
3876 arg6 = (gsl_vector *)(argp6);
3877 result = (int)gsl_linalg_LU_refine((gsl_matrix const *)arg1,(gsl_matrix const *)arg2,(struct gsl_permutation_struct const *)arg3,(gsl_vector const *)arg4,arg5,arg6);
3878 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3879
3880
3881
3882
3883
3884
3885 XSRETURN(argvi);
3886 fail:
3887
3888
3889
3890
3891
3892
3893 SWIG_croak_null();
3894 }
3895 }
3896
3897
XS(_wrap_gsl_linalg_LU_invert)3898 XS(_wrap_gsl_linalg_LU_invert) {
3899 {
3900 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
3901 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
3902 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
3903 void *argp1 = 0 ;
3904 int res1 = 0 ;
3905 void *argp2 = 0 ;
3906 int res2 = 0 ;
3907 void *argp3 = 0 ;
3908 int res3 = 0 ;
3909 int argvi = 0;
3910 int result;
3911 dXSARGS;
3912
3913 if ((items < 3) || (items > 3)) {
3914 SWIG_croak("Usage: gsl_linalg_LU_invert(LU,p,inverse);");
3915 }
3916 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3917 if (!SWIG_IsOK(res1)) {
3918 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LU_invert" "', argument " "1"" of type '" "gsl_matrix const *""'");
3919 }
3920 arg1 = (gsl_matrix *)(argp1);
3921 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
3922 if (!SWIG_IsOK(res2)) {
3923 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_LU_invert" "', argument " "2"" of type '" "gsl_permutation const *""'");
3924 }
3925 arg2 = (gsl_permutation *)(argp2);
3926 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3927 if (!SWIG_IsOK(res3)) {
3928 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_LU_invert" "', argument " "3"" of type '" "gsl_matrix *""'");
3929 }
3930 arg3 = (gsl_matrix *)(argp3);
3931 result = (int)gsl_linalg_LU_invert((gsl_matrix const *)arg1,(struct gsl_permutation_struct const *)arg2,arg3);
3932 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3933
3934
3935
3936 XSRETURN(argvi);
3937 fail:
3938
3939
3940
3941 SWIG_croak_null();
3942 }
3943 }
3944
3945
XS(_wrap_gsl_linalg_LU_det)3946 XS(_wrap_gsl_linalg_LU_det) {
3947 {
3948 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
3949 int arg2 ;
3950 void *argp1 = 0 ;
3951 int res1 = 0 ;
3952 int val2 ;
3953 int ecode2 = 0 ;
3954 int argvi = 0;
3955 double result;
3956 dXSARGS;
3957
3958 if ((items < 2) || (items > 2)) {
3959 SWIG_croak("Usage: gsl_linalg_LU_det(LU,signum);");
3960 }
3961 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3962 if (!SWIG_IsOK(res1)) {
3963 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LU_det" "', argument " "1"" of type '" "gsl_matrix *""'");
3964 }
3965 arg1 = (gsl_matrix *)(argp1);
3966 ecode2 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
3967 if (!SWIG_IsOK(ecode2)) {
3968 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_linalg_LU_det" "', argument " "2"" of type '" "int""'");
3969 }
3970 arg2 = (int)(val2);
3971 result = (double)gsl_linalg_LU_det(arg1,arg2);
3972 ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(result)); argvi++ ;
3973
3974
3975 XSRETURN(argvi);
3976 fail:
3977
3978
3979 SWIG_croak_null();
3980 }
3981 }
3982
3983
XS(_wrap_gsl_linalg_LU_lndet)3984 XS(_wrap_gsl_linalg_LU_lndet) {
3985 {
3986 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
3987 void *argp1 = 0 ;
3988 int res1 = 0 ;
3989 int argvi = 0;
3990 double result;
3991 dXSARGS;
3992
3993 if ((items < 1) || (items > 1)) {
3994 SWIG_croak("Usage: gsl_linalg_LU_lndet(LU);");
3995 }
3996 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3997 if (!SWIG_IsOK(res1)) {
3998 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LU_lndet" "', argument " "1"" of type '" "gsl_matrix *""'");
3999 }
4000 arg1 = (gsl_matrix *)(argp1);
4001 result = (double)gsl_linalg_LU_lndet(arg1);
4002 ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(result)); argvi++ ;
4003
4004 XSRETURN(argvi);
4005 fail:
4006
4007 SWIG_croak_null();
4008 }
4009 }
4010
4011
XS(_wrap_gsl_linalg_LU_sgndet)4012 XS(_wrap_gsl_linalg_LU_sgndet) {
4013 {
4014 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
4015 int arg2 ;
4016 void *argp1 = 0 ;
4017 int res1 = 0 ;
4018 int val2 ;
4019 int ecode2 = 0 ;
4020 int argvi = 0;
4021 int result;
4022 dXSARGS;
4023
4024 if ((items < 2) || (items > 2)) {
4025 SWIG_croak("Usage: gsl_linalg_LU_sgndet(lu,signum);");
4026 }
4027 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
4028 if (!SWIG_IsOK(res1)) {
4029 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LU_sgndet" "', argument " "1"" of type '" "gsl_matrix *""'");
4030 }
4031 arg1 = (gsl_matrix *)(argp1);
4032 ecode2 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
4033 if (!SWIG_IsOK(ecode2)) {
4034 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_linalg_LU_sgndet" "', argument " "2"" of type '" "int""'");
4035 }
4036 arg2 = (int)(val2);
4037 result = (int)gsl_linalg_LU_sgndet(arg1,arg2);
4038 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4039
4040
4041 XSRETURN(argvi);
4042 fail:
4043
4044
4045 SWIG_croak_null();
4046 }
4047 }
4048
4049
XS(_wrap_gsl_linalg_complex_LU_decomp)4050 XS(_wrap_gsl_linalg_complex_LU_decomp) {
4051 {
4052 gsl_matrix_complex *arg1 = (gsl_matrix_complex *) 0 ;
4053 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
4054 int *arg3 = (int *) 0 ;
4055 void *argp1 = 0 ;
4056 int res1 = 0 ;
4057 void *argp2 = 0 ;
4058 int res2 = 0 ;
4059 int temp3 ;
4060 int res3 = SWIG_TMPOBJ ;
4061 int argvi = 0;
4062 int result;
4063 dXSARGS;
4064
4065 arg3 = &temp3;
4066 if ((items < 2) || (items > 2)) {
4067 SWIG_croak("Usage: gsl_linalg_complex_LU_decomp(A,p);");
4068 }
4069 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
4070 if (!SWIG_IsOK(res1)) {
4071 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_complex_LU_decomp" "', argument " "1"" of type '" "gsl_matrix_complex *""'");
4072 }
4073 arg1 = (gsl_matrix_complex *)(argp1);
4074 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
4075 if (!SWIG_IsOK(res2)) {
4076 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_complex_LU_decomp" "', argument " "2"" of type '" "gsl_permutation *""'");
4077 }
4078 arg2 = (gsl_permutation *)(argp2);
4079 result = (int)gsl_linalg_complex_LU_decomp(arg1,arg2,arg3);
4080 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4081 if (SWIG_IsTmpObj(res3)) {
4082 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((*arg3)); argvi++ ;
4083 } else {
4084 int new_flags = SWIG_IsNewObj(res3) ? (SWIG_POINTER_OWN | 0) : 0;
4085 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg3), SWIGTYPE_p_int, new_flags); argvi++ ;
4086 }
4087
4088
4089
4090 XSRETURN(argvi);
4091 fail:
4092
4093
4094
4095 SWIG_croak_null();
4096 }
4097 }
4098
4099
XS(_wrap_gsl_linalg_complex_LU_solve)4100 XS(_wrap_gsl_linalg_complex_LU_solve) {
4101 {
4102 gsl_matrix_complex *arg1 = (gsl_matrix_complex *) 0 ;
4103 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
4104 gsl_vector_complex *arg3 = (gsl_vector_complex *) 0 ;
4105 gsl_vector_complex *arg4 = (gsl_vector_complex *) 0 ;
4106 void *argp1 = 0 ;
4107 int res1 = 0 ;
4108 void *argp2 = 0 ;
4109 int res2 = 0 ;
4110 void *argp3 = 0 ;
4111 int res3 = 0 ;
4112 void *argp4 = 0 ;
4113 int res4 = 0 ;
4114 int argvi = 0;
4115 int result;
4116 dXSARGS;
4117
4118 if ((items < 4) || (items > 4)) {
4119 SWIG_croak("Usage: gsl_linalg_complex_LU_solve(LU,p,b,x);");
4120 }
4121 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
4122 if (!SWIG_IsOK(res1)) {
4123 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_complex_LU_solve" "', argument " "1"" of type '" "gsl_matrix_complex const *""'");
4124 }
4125 arg1 = (gsl_matrix_complex *)(argp1);
4126 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
4127 if (!SWIG_IsOK(res2)) {
4128 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_complex_LU_solve" "', argument " "2"" of type '" "gsl_permutation const *""'");
4129 }
4130 arg2 = (gsl_permutation *)(argp2);
4131 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
4132 if (!SWIG_IsOK(res3)) {
4133 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_complex_LU_solve" "', argument " "3"" of type '" "gsl_vector_complex const *""'");
4134 }
4135 arg3 = (gsl_vector_complex *)(argp3);
4136 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
4137 if (!SWIG_IsOK(res4)) {
4138 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_complex_LU_solve" "', argument " "4"" of type '" "gsl_vector_complex *""'");
4139 }
4140 arg4 = (gsl_vector_complex *)(argp4);
4141 result = (int)gsl_linalg_complex_LU_solve((gsl_matrix_complex const *)arg1,(struct gsl_permutation_struct const *)arg2,(gsl_vector_complex const *)arg3,arg4);
4142 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4143
4144
4145
4146
4147 XSRETURN(argvi);
4148 fail:
4149
4150
4151
4152
4153 SWIG_croak_null();
4154 }
4155 }
4156
4157
XS(_wrap_gsl_linalg_complex_LU_svx)4158 XS(_wrap_gsl_linalg_complex_LU_svx) {
4159 {
4160 gsl_matrix_complex *arg1 = (gsl_matrix_complex *) 0 ;
4161 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
4162 gsl_vector_complex *arg3 = (gsl_vector_complex *) 0 ;
4163 void *argp1 = 0 ;
4164 int res1 = 0 ;
4165 void *argp2 = 0 ;
4166 int res2 = 0 ;
4167 void *argp3 = 0 ;
4168 int res3 = 0 ;
4169 int argvi = 0;
4170 int result;
4171 dXSARGS;
4172
4173 if ((items < 3) || (items > 3)) {
4174 SWIG_croak("Usage: gsl_linalg_complex_LU_svx(LU,p,x);");
4175 }
4176 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
4177 if (!SWIG_IsOK(res1)) {
4178 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_complex_LU_svx" "', argument " "1"" of type '" "gsl_matrix_complex const *""'");
4179 }
4180 arg1 = (gsl_matrix_complex *)(argp1);
4181 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
4182 if (!SWIG_IsOK(res2)) {
4183 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_complex_LU_svx" "', argument " "2"" of type '" "gsl_permutation const *""'");
4184 }
4185 arg2 = (gsl_permutation *)(argp2);
4186 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
4187 if (!SWIG_IsOK(res3)) {
4188 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_complex_LU_svx" "', argument " "3"" of type '" "gsl_vector_complex *""'");
4189 }
4190 arg3 = (gsl_vector_complex *)(argp3);
4191 result = (int)gsl_linalg_complex_LU_svx((gsl_matrix_complex const *)arg1,(struct gsl_permutation_struct const *)arg2,arg3);
4192 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4193
4194
4195
4196 XSRETURN(argvi);
4197 fail:
4198
4199
4200
4201 SWIG_croak_null();
4202 }
4203 }
4204
4205
XS(_wrap_gsl_linalg_complex_LU_refine)4206 XS(_wrap_gsl_linalg_complex_LU_refine) {
4207 {
4208 gsl_matrix_complex *arg1 = (gsl_matrix_complex *) 0 ;
4209 gsl_matrix_complex *arg2 = (gsl_matrix_complex *) 0 ;
4210 gsl_permutation *arg3 = (gsl_permutation *) 0 ;
4211 gsl_vector_complex *arg4 = (gsl_vector_complex *) 0 ;
4212 gsl_vector_complex *arg5 = (gsl_vector_complex *) 0 ;
4213 gsl_vector_complex *arg6 = (gsl_vector_complex *) 0 ;
4214 void *argp1 = 0 ;
4215 int res1 = 0 ;
4216 void *argp2 = 0 ;
4217 int res2 = 0 ;
4218 void *argp3 = 0 ;
4219 int res3 = 0 ;
4220 void *argp4 = 0 ;
4221 int res4 = 0 ;
4222 void *argp5 = 0 ;
4223 int res5 = 0 ;
4224 void *argp6 = 0 ;
4225 int res6 = 0 ;
4226 int argvi = 0;
4227 int result;
4228 dXSARGS;
4229
4230 if ((items < 6) || (items > 6)) {
4231 SWIG_croak("Usage: gsl_linalg_complex_LU_refine(A,LU,p,b,x,work);");
4232 }
4233 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
4234 if (!SWIG_IsOK(res1)) {
4235 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_complex_LU_refine" "', argument " "1"" of type '" "gsl_matrix_complex const *""'");
4236 }
4237 arg1 = (gsl_matrix_complex *)(argp1);
4238 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
4239 if (!SWIG_IsOK(res2)) {
4240 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_complex_LU_refine" "', argument " "2"" of type '" "gsl_matrix_complex const *""'");
4241 }
4242 arg2 = (gsl_matrix_complex *)(argp2);
4243 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
4244 if (!SWIG_IsOK(res3)) {
4245 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_complex_LU_refine" "', argument " "3"" of type '" "gsl_permutation const *""'");
4246 }
4247 arg3 = (gsl_permutation *)(argp3);
4248 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
4249 if (!SWIG_IsOK(res4)) {
4250 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_complex_LU_refine" "', argument " "4"" of type '" "gsl_vector_complex const *""'");
4251 }
4252 arg4 = (gsl_vector_complex *)(argp4);
4253 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
4254 if (!SWIG_IsOK(res5)) {
4255 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_complex_LU_refine" "', argument " "5"" of type '" "gsl_vector_complex *""'");
4256 }
4257 arg5 = (gsl_vector_complex *)(argp5);
4258 res6 = SWIG_ConvertPtr(ST(5), &argp6,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
4259 if (!SWIG_IsOK(res6)) {
4260 SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_linalg_complex_LU_refine" "', argument " "6"" of type '" "gsl_vector_complex *""'");
4261 }
4262 arg6 = (gsl_vector_complex *)(argp6);
4263 result = (int)gsl_linalg_complex_LU_refine((gsl_matrix_complex const *)arg1,(gsl_matrix_complex const *)arg2,(struct gsl_permutation_struct const *)arg3,(gsl_vector_complex const *)arg4,arg5,arg6);
4264 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4265
4266
4267
4268
4269
4270
4271 XSRETURN(argvi);
4272 fail:
4273
4274
4275
4276
4277
4278
4279 SWIG_croak_null();
4280 }
4281 }
4282
4283
XS(_wrap_gsl_linalg_complex_LU_invert)4284 XS(_wrap_gsl_linalg_complex_LU_invert) {
4285 {
4286 gsl_matrix_complex *arg1 = (gsl_matrix_complex *) 0 ;
4287 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
4288 gsl_matrix_complex *arg3 = (gsl_matrix_complex *) 0 ;
4289 void *argp1 = 0 ;
4290 int res1 = 0 ;
4291 void *argp2 = 0 ;
4292 int res2 = 0 ;
4293 void *argp3 = 0 ;
4294 int res3 = 0 ;
4295 int argvi = 0;
4296 int result;
4297 dXSARGS;
4298
4299 if ((items < 3) || (items > 3)) {
4300 SWIG_croak("Usage: gsl_linalg_complex_LU_invert(LU,p,inverse);");
4301 }
4302 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
4303 if (!SWIG_IsOK(res1)) {
4304 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_complex_LU_invert" "', argument " "1"" of type '" "gsl_matrix_complex const *""'");
4305 }
4306 arg1 = (gsl_matrix_complex *)(argp1);
4307 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
4308 if (!SWIG_IsOK(res2)) {
4309 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_complex_LU_invert" "', argument " "2"" of type '" "gsl_permutation const *""'");
4310 }
4311 arg2 = (gsl_permutation *)(argp2);
4312 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
4313 if (!SWIG_IsOK(res3)) {
4314 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_complex_LU_invert" "', argument " "3"" of type '" "gsl_matrix_complex *""'");
4315 }
4316 arg3 = (gsl_matrix_complex *)(argp3);
4317 result = (int)gsl_linalg_complex_LU_invert((gsl_matrix_complex const *)arg1,(struct gsl_permutation_struct const *)arg2,arg3);
4318 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4319
4320
4321
4322 XSRETURN(argvi);
4323 fail:
4324
4325
4326
4327 SWIG_croak_null();
4328 }
4329 }
4330
4331
XS(_wrap_gsl_linalg_complex_LU_det)4332 XS(_wrap_gsl_linalg_complex_LU_det) {
4333 {
4334 gsl_matrix_complex *arg1 = (gsl_matrix_complex *) 0 ;
4335 int arg2 ;
4336 void *argp1 = 0 ;
4337 int res1 = 0 ;
4338 int val2 ;
4339 int ecode2 = 0 ;
4340 int argvi = 0;
4341 gsl_complex result;
4342 dXSARGS;
4343
4344 if ((items < 2) || (items > 2)) {
4345 SWIG_croak("Usage: gsl_linalg_complex_LU_det(LU,signum);");
4346 }
4347 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
4348 if (!SWIG_IsOK(res1)) {
4349 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_complex_LU_det" "', argument " "1"" of type '" "gsl_matrix_complex *""'");
4350 }
4351 arg1 = (gsl_matrix_complex *)(argp1);
4352 ecode2 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
4353 if (!SWIG_IsOK(ecode2)) {
4354 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_linalg_complex_LU_det" "', argument " "2"" of type '" "int""'");
4355 }
4356 arg2 = (int)(val2);
4357 result = gsl_linalg_complex_LU_det(arg1,arg2);
4358 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
4359
4360
4361 XSRETURN(argvi);
4362 fail:
4363
4364
4365 SWIG_croak_null();
4366 }
4367 }
4368
4369
XS(_wrap_gsl_linalg_complex_LU_lndet)4370 XS(_wrap_gsl_linalg_complex_LU_lndet) {
4371 {
4372 gsl_matrix_complex *arg1 = (gsl_matrix_complex *) 0 ;
4373 void *argp1 = 0 ;
4374 int res1 = 0 ;
4375 int argvi = 0;
4376 double result;
4377 dXSARGS;
4378
4379 if ((items < 1) || (items > 1)) {
4380 SWIG_croak("Usage: gsl_linalg_complex_LU_lndet(LU);");
4381 }
4382 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
4383 if (!SWIG_IsOK(res1)) {
4384 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_complex_LU_lndet" "', argument " "1"" of type '" "gsl_matrix_complex *""'");
4385 }
4386 arg1 = (gsl_matrix_complex *)(argp1);
4387 result = (double)gsl_linalg_complex_LU_lndet(arg1);
4388 ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(result)); argvi++ ;
4389
4390 XSRETURN(argvi);
4391 fail:
4392
4393 SWIG_croak_null();
4394 }
4395 }
4396
4397
XS(_wrap_gsl_linalg_complex_LU_sgndet)4398 XS(_wrap_gsl_linalg_complex_LU_sgndet) {
4399 {
4400 gsl_matrix_complex *arg1 = (gsl_matrix_complex *) 0 ;
4401 int arg2 ;
4402 void *argp1 = 0 ;
4403 int res1 = 0 ;
4404 int val2 ;
4405 int ecode2 = 0 ;
4406 int argvi = 0;
4407 gsl_complex result;
4408 dXSARGS;
4409
4410 if ((items < 2) || (items > 2)) {
4411 SWIG_croak("Usage: gsl_linalg_complex_LU_sgndet(LU,signum);");
4412 }
4413 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
4414 if (!SWIG_IsOK(res1)) {
4415 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_complex_LU_sgndet" "', argument " "1"" of type '" "gsl_matrix_complex *""'");
4416 }
4417 arg1 = (gsl_matrix_complex *)(argp1);
4418 ecode2 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
4419 if (!SWIG_IsOK(ecode2)) {
4420 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_linalg_complex_LU_sgndet" "', argument " "2"" of type '" "int""'");
4421 }
4422 arg2 = (int)(val2);
4423 result = gsl_linalg_complex_LU_sgndet(arg1,arg2);
4424 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
4425
4426
4427 XSRETURN(argvi);
4428 fail:
4429
4430
4431 SWIG_croak_null();
4432 }
4433 }
4434
4435
XS(_wrap_gsl_linalg_QR_decomp)4436 XS(_wrap_gsl_linalg_QR_decomp) {
4437 {
4438 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
4439 gsl_vector *arg2 = (gsl_vector *) 0 ;
4440 void *argp1 = 0 ;
4441 int res1 = 0 ;
4442 void *argp2 = 0 ;
4443 int res2 = 0 ;
4444 int argvi = 0;
4445 int result;
4446 dXSARGS;
4447
4448 if ((items < 2) || (items > 2)) {
4449 SWIG_croak("Usage: gsl_linalg_QR_decomp(A,tau);");
4450 }
4451 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
4452 if (!SWIG_IsOK(res1)) {
4453 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QR_decomp" "', argument " "1"" of type '" "gsl_matrix *""'");
4454 }
4455 arg1 = (gsl_matrix *)(argp1);
4456 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
4457 if (!SWIG_IsOK(res2)) {
4458 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QR_decomp" "', argument " "2"" of type '" "gsl_vector *""'");
4459 }
4460 arg2 = (gsl_vector *)(argp2);
4461 result = (int)gsl_linalg_QR_decomp(arg1,arg2);
4462 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4463
4464
4465 XSRETURN(argvi);
4466 fail:
4467
4468
4469 SWIG_croak_null();
4470 }
4471 }
4472
4473
XS(_wrap_gsl_linalg_QR_solve)4474 XS(_wrap_gsl_linalg_QR_solve) {
4475 {
4476 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
4477 gsl_vector *arg2 = (gsl_vector *) 0 ;
4478 gsl_vector *arg3 = (gsl_vector *) 0 ;
4479 gsl_vector *arg4 = (gsl_vector *) 0 ;
4480 void *argp1 = 0 ;
4481 int res1 = 0 ;
4482 void *argp2 = 0 ;
4483 int res2 = 0 ;
4484 void *argp3 = 0 ;
4485 int res3 = 0 ;
4486 void *argp4 = 0 ;
4487 int res4 = 0 ;
4488 int argvi = 0;
4489 int result;
4490 dXSARGS;
4491
4492 if ((items < 4) || (items > 4)) {
4493 SWIG_croak("Usage: gsl_linalg_QR_solve(QR,tau,b,x);");
4494 }
4495 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
4496 if (!SWIG_IsOK(res1)) {
4497 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QR_solve" "', argument " "1"" of type '" "gsl_matrix const *""'");
4498 }
4499 arg1 = (gsl_matrix *)(argp1);
4500 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
4501 if (!SWIG_IsOK(res2)) {
4502 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QR_solve" "', argument " "2"" of type '" "gsl_vector const *""'");
4503 }
4504 arg2 = (gsl_vector *)(argp2);
4505 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
4506 if (!SWIG_IsOK(res3)) {
4507 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QR_solve" "', argument " "3"" of type '" "gsl_vector const *""'");
4508 }
4509 arg3 = (gsl_vector *)(argp3);
4510 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
4511 if (!SWIG_IsOK(res4)) {
4512 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_QR_solve" "', argument " "4"" of type '" "gsl_vector *""'");
4513 }
4514 arg4 = (gsl_vector *)(argp4);
4515 result = (int)gsl_linalg_QR_solve((gsl_matrix const *)arg1,(gsl_vector const *)arg2,(gsl_vector const *)arg3,arg4);
4516 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4517
4518
4519
4520
4521 XSRETURN(argvi);
4522 fail:
4523
4524
4525
4526
4527 SWIG_croak_null();
4528 }
4529 }
4530
4531
XS(_wrap_gsl_linalg_QR_svx)4532 XS(_wrap_gsl_linalg_QR_svx) {
4533 {
4534 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
4535 gsl_vector *arg2 = (gsl_vector *) 0 ;
4536 gsl_vector *arg3 = (gsl_vector *) 0 ;
4537 void *argp1 = 0 ;
4538 int res1 = 0 ;
4539 void *argp2 = 0 ;
4540 int res2 = 0 ;
4541 void *argp3 = 0 ;
4542 int res3 = 0 ;
4543 int argvi = 0;
4544 int result;
4545 dXSARGS;
4546
4547 if ((items < 3) || (items > 3)) {
4548 SWIG_croak("Usage: gsl_linalg_QR_svx(QR,tau,x);");
4549 }
4550 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
4551 if (!SWIG_IsOK(res1)) {
4552 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QR_svx" "', argument " "1"" of type '" "gsl_matrix const *""'");
4553 }
4554 arg1 = (gsl_matrix *)(argp1);
4555 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
4556 if (!SWIG_IsOK(res2)) {
4557 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QR_svx" "', argument " "2"" of type '" "gsl_vector const *""'");
4558 }
4559 arg2 = (gsl_vector *)(argp2);
4560 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
4561 if (!SWIG_IsOK(res3)) {
4562 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QR_svx" "', argument " "3"" of type '" "gsl_vector *""'");
4563 }
4564 arg3 = (gsl_vector *)(argp3);
4565 result = (int)gsl_linalg_QR_svx((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3);
4566 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4567
4568
4569
4570 XSRETURN(argvi);
4571 fail:
4572
4573
4574
4575 SWIG_croak_null();
4576 }
4577 }
4578
4579
XS(_wrap_gsl_linalg_QR_lssolve)4580 XS(_wrap_gsl_linalg_QR_lssolve) {
4581 {
4582 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
4583 gsl_vector *arg2 = (gsl_vector *) 0 ;
4584 gsl_vector *arg3 = (gsl_vector *) 0 ;
4585 gsl_vector *arg4 = (gsl_vector *) 0 ;
4586 gsl_vector *arg5 = (gsl_vector *) 0 ;
4587 void *argp1 = 0 ;
4588 int res1 = 0 ;
4589 void *argp2 = 0 ;
4590 int res2 = 0 ;
4591 void *argp3 = 0 ;
4592 int res3 = 0 ;
4593 void *argp4 = 0 ;
4594 int res4 = 0 ;
4595 void *argp5 = 0 ;
4596 int res5 = 0 ;
4597 int argvi = 0;
4598 int result;
4599 dXSARGS;
4600
4601 if ((items < 5) || (items > 5)) {
4602 SWIG_croak("Usage: gsl_linalg_QR_lssolve(QR,tau,b,x,residual);");
4603 }
4604 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
4605 if (!SWIG_IsOK(res1)) {
4606 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QR_lssolve" "', argument " "1"" of type '" "gsl_matrix const *""'");
4607 }
4608 arg1 = (gsl_matrix *)(argp1);
4609 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
4610 if (!SWIG_IsOK(res2)) {
4611 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QR_lssolve" "', argument " "2"" of type '" "gsl_vector const *""'");
4612 }
4613 arg2 = (gsl_vector *)(argp2);
4614 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
4615 if (!SWIG_IsOK(res3)) {
4616 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QR_lssolve" "', argument " "3"" of type '" "gsl_vector const *""'");
4617 }
4618 arg3 = (gsl_vector *)(argp3);
4619 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
4620 if (!SWIG_IsOK(res4)) {
4621 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_QR_lssolve" "', argument " "4"" of type '" "gsl_vector *""'");
4622 }
4623 arg4 = (gsl_vector *)(argp4);
4624 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
4625 if (!SWIG_IsOK(res5)) {
4626 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_QR_lssolve" "', argument " "5"" of type '" "gsl_vector *""'");
4627 }
4628 arg5 = (gsl_vector *)(argp5);
4629 result = (int)gsl_linalg_QR_lssolve((gsl_matrix const *)arg1,(gsl_vector const *)arg2,(gsl_vector const *)arg3,arg4,arg5);
4630 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4631
4632
4633
4634
4635
4636 XSRETURN(argvi);
4637 fail:
4638
4639
4640
4641
4642
4643 SWIG_croak_null();
4644 }
4645 }
4646
4647
XS(_wrap_gsl_linalg_QR_QRsolve)4648 XS(_wrap_gsl_linalg_QR_QRsolve) {
4649 {
4650 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
4651 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
4652 gsl_vector *arg3 = (gsl_vector *) 0 ;
4653 gsl_vector *arg4 = (gsl_vector *) 0 ;
4654 void *argp1 = 0 ;
4655 int res1 = 0 ;
4656 void *argp2 = 0 ;
4657 int res2 = 0 ;
4658 void *argp3 = 0 ;
4659 int res3 = 0 ;
4660 void *argp4 = 0 ;
4661 int res4 = 0 ;
4662 int argvi = 0;
4663 int result;
4664 dXSARGS;
4665
4666 if ((items < 4) || (items > 4)) {
4667 SWIG_croak("Usage: gsl_linalg_QR_QRsolve(Q,R,b,x);");
4668 }
4669 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
4670 if (!SWIG_IsOK(res1)) {
4671 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QR_QRsolve" "', argument " "1"" of type '" "gsl_matrix *""'");
4672 }
4673 arg1 = (gsl_matrix *)(argp1);
4674 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
4675 if (!SWIG_IsOK(res2)) {
4676 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QR_QRsolve" "', argument " "2"" of type '" "gsl_matrix *""'");
4677 }
4678 arg2 = (gsl_matrix *)(argp2);
4679 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
4680 if (!SWIG_IsOK(res3)) {
4681 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QR_QRsolve" "', argument " "3"" of type '" "gsl_vector const *""'");
4682 }
4683 arg3 = (gsl_vector *)(argp3);
4684 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
4685 if (!SWIG_IsOK(res4)) {
4686 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_QR_QRsolve" "', argument " "4"" of type '" "gsl_vector *""'");
4687 }
4688 arg4 = (gsl_vector *)(argp4);
4689 result = (int)gsl_linalg_QR_QRsolve(arg1,arg2,(gsl_vector const *)arg3,arg4);
4690 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4691
4692
4693
4694
4695 XSRETURN(argvi);
4696 fail:
4697
4698
4699
4700
4701 SWIG_croak_null();
4702 }
4703 }
4704
4705
XS(_wrap_gsl_linalg_QR_Rsolve)4706 XS(_wrap_gsl_linalg_QR_Rsolve) {
4707 {
4708 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
4709 gsl_vector *arg2 = (gsl_vector *) 0 ;
4710 gsl_vector *arg3 = (gsl_vector *) 0 ;
4711 void *argp1 = 0 ;
4712 int res1 = 0 ;
4713 void *argp2 = 0 ;
4714 int res2 = 0 ;
4715 void *argp3 = 0 ;
4716 int res3 = 0 ;
4717 int argvi = 0;
4718 int result;
4719 dXSARGS;
4720
4721 if ((items < 3) || (items > 3)) {
4722 SWIG_croak("Usage: gsl_linalg_QR_Rsolve(QR,b,x);");
4723 }
4724 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
4725 if (!SWIG_IsOK(res1)) {
4726 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QR_Rsolve" "', argument " "1"" of type '" "gsl_matrix const *""'");
4727 }
4728 arg1 = (gsl_matrix *)(argp1);
4729 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
4730 if (!SWIG_IsOK(res2)) {
4731 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QR_Rsolve" "', argument " "2"" of type '" "gsl_vector const *""'");
4732 }
4733 arg2 = (gsl_vector *)(argp2);
4734 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
4735 if (!SWIG_IsOK(res3)) {
4736 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QR_Rsolve" "', argument " "3"" of type '" "gsl_vector *""'");
4737 }
4738 arg3 = (gsl_vector *)(argp3);
4739 result = (int)gsl_linalg_QR_Rsolve((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3);
4740 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4741
4742
4743
4744 XSRETURN(argvi);
4745 fail:
4746
4747
4748
4749 SWIG_croak_null();
4750 }
4751 }
4752
4753
XS(_wrap_gsl_linalg_QR_Rsvx)4754 XS(_wrap_gsl_linalg_QR_Rsvx) {
4755 {
4756 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
4757 gsl_vector *arg2 = (gsl_vector *) 0 ;
4758 void *argp1 = 0 ;
4759 int res1 = 0 ;
4760 void *argp2 = 0 ;
4761 int res2 = 0 ;
4762 int argvi = 0;
4763 int result;
4764 dXSARGS;
4765
4766 if ((items < 2) || (items > 2)) {
4767 SWIG_croak("Usage: gsl_linalg_QR_Rsvx(QR,x);");
4768 }
4769 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
4770 if (!SWIG_IsOK(res1)) {
4771 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QR_Rsvx" "', argument " "1"" of type '" "gsl_matrix const *""'");
4772 }
4773 arg1 = (gsl_matrix *)(argp1);
4774 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
4775 if (!SWIG_IsOK(res2)) {
4776 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QR_Rsvx" "', argument " "2"" of type '" "gsl_vector *""'");
4777 }
4778 arg2 = (gsl_vector *)(argp2);
4779 result = (int)gsl_linalg_QR_Rsvx((gsl_matrix const *)arg1,arg2);
4780 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4781
4782
4783 XSRETURN(argvi);
4784 fail:
4785
4786
4787 SWIG_croak_null();
4788 }
4789 }
4790
4791
XS(_wrap_gsl_linalg_QR_update)4792 XS(_wrap_gsl_linalg_QR_update) {
4793 {
4794 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
4795 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
4796 gsl_vector *arg3 = (gsl_vector *) 0 ;
4797 gsl_vector *arg4 = (gsl_vector *) 0 ;
4798 void *argp1 = 0 ;
4799 int res1 = 0 ;
4800 void *argp2 = 0 ;
4801 int res2 = 0 ;
4802 void *argp3 = 0 ;
4803 int res3 = 0 ;
4804 void *argp4 = 0 ;
4805 int res4 = 0 ;
4806 int argvi = 0;
4807 int result;
4808 dXSARGS;
4809
4810 if ((items < 4) || (items > 4)) {
4811 SWIG_croak("Usage: gsl_linalg_QR_update(Q,R,w,v);");
4812 }
4813 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
4814 if (!SWIG_IsOK(res1)) {
4815 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QR_update" "', argument " "1"" of type '" "gsl_matrix *""'");
4816 }
4817 arg1 = (gsl_matrix *)(argp1);
4818 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
4819 if (!SWIG_IsOK(res2)) {
4820 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QR_update" "', argument " "2"" of type '" "gsl_matrix *""'");
4821 }
4822 arg2 = (gsl_matrix *)(argp2);
4823 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
4824 if (!SWIG_IsOK(res3)) {
4825 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QR_update" "', argument " "3"" of type '" "gsl_vector *""'");
4826 }
4827 arg3 = (gsl_vector *)(argp3);
4828 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
4829 if (!SWIG_IsOK(res4)) {
4830 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_QR_update" "', argument " "4"" of type '" "gsl_vector const *""'");
4831 }
4832 arg4 = (gsl_vector *)(argp4);
4833 result = (int)gsl_linalg_QR_update(arg1,arg2,arg3,(gsl_vector const *)arg4);
4834 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4835
4836
4837
4838
4839 XSRETURN(argvi);
4840 fail:
4841
4842
4843
4844
4845 SWIG_croak_null();
4846 }
4847 }
4848
4849
XS(_wrap_gsl_linalg_QR_QTvec)4850 XS(_wrap_gsl_linalg_QR_QTvec) {
4851 {
4852 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
4853 gsl_vector *arg2 = (gsl_vector *) 0 ;
4854 gsl_vector *arg3 = (gsl_vector *) 0 ;
4855 void *argp1 = 0 ;
4856 int res1 = 0 ;
4857 void *argp2 = 0 ;
4858 int res2 = 0 ;
4859 void *argp3 = 0 ;
4860 int res3 = 0 ;
4861 int argvi = 0;
4862 int result;
4863 dXSARGS;
4864
4865 if ((items < 3) || (items > 3)) {
4866 SWIG_croak("Usage: gsl_linalg_QR_QTvec(QR,tau,v);");
4867 }
4868 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
4869 if (!SWIG_IsOK(res1)) {
4870 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QR_QTvec" "', argument " "1"" of type '" "gsl_matrix const *""'");
4871 }
4872 arg1 = (gsl_matrix *)(argp1);
4873 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
4874 if (!SWIG_IsOK(res2)) {
4875 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QR_QTvec" "', argument " "2"" of type '" "gsl_vector const *""'");
4876 }
4877 arg2 = (gsl_vector *)(argp2);
4878 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
4879 if (!SWIG_IsOK(res3)) {
4880 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QR_QTvec" "', argument " "3"" of type '" "gsl_vector *""'");
4881 }
4882 arg3 = (gsl_vector *)(argp3);
4883 result = (int)gsl_linalg_QR_QTvec((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3);
4884 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4885
4886
4887
4888 XSRETURN(argvi);
4889 fail:
4890
4891
4892
4893 SWIG_croak_null();
4894 }
4895 }
4896
4897
XS(_wrap_gsl_linalg_QR_Qvec)4898 XS(_wrap_gsl_linalg_QR_Qvec) {
4899 {
4900 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
4901 gsl_vector *arg2 = (gsl_vector *) 0 ;
4902 gsl_vector *arg3 = (gsl_vector *) 0 ;
4903 void *argp1 = 0 ;
4904 int res1 = 0 ;
4905 void *argp2 = 0 ;
4906 int res2 = 0 ;
4907 void *argp3 = 0 ;
4908 int res3 = 0 ;
4909 int argvi = 0;
4910 int result;
4911 dXSARGS;
4912
4913 if ((items < 3) || (items > 3)) {
4914 SWIG_croak("Usage: gsl_linalg_QR_Qvec(QR,tau,v);");
4915 }
4916 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
4917 if (!SWIG_IsOK(res1)) {
4918 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QR_Qvec" "', argument " "1"" of type '" "gsl_matrix const *""'");
4919 }
4920 arg1 = (gsl_matrix *)(argp1);
4921 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
4922 if (!SWIG_IsOK(res2)) {
4923 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QR_Qvec" "', argument " "2"" of type '" "gsl_vector const *""'");
4924 }
4925 arg2 = (gsl_vector *)(argp2);
4926 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
4927 if (!SWIG_IsOK(res3)) {
4928 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QR_Qvec" "', argument " "3"" of type '" "gsl_vector *""'");
4929 }
4930 arg3 = (gsl_vector *)(argp3);
4931 result = (int)gsl_linalg_QR_Qvec((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3);
4932 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4933
4934
4935
4936 XSRETURN(argvi);
4937 fail:
4938
4939
4940
4941 SWIG_croak_null();
4942 }
4943 }
4944
4945
XS(_wrap_gsl_linalg_QR_QTmat)4946 XS(_wrap_gsl_linalg_QR_QTmat) {
4947 {
4948 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
4949 gsl_vector *arg2 = (gsl_vector *) 0 ;
4950 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
4951 void *argp1 = 0 ;
4952 int res1 = 0 ;
4953 void *argp2 = 0 ;
4954 int res2 = 0 ;
4955 void *argp3 = 0 ;
4956 int res3 = 0 ;
4957 int argvi = 0;
4958 int result;
4959 dXSARGS;
4960
4961 if ((items < 3) || (items > 3)) {
4962 SWIG_croak("Usage: gsl_linalg_QR_QTmat(QR,tau,A);");
4963 }
4964 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
4965 if (!SWIG_IsOK(res1)) {
4966 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QR_QTmat" "', argument " "1"" of type '" "gsl_matrix const *""'");
4967 }
4968 arg1 = (gsl_matrix *)(argp1);
4969 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
4970 if (!SWIG_IsOK(res2)) {
4971 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QR_QTmat" "', argument " "2"" of type '" "gsl_vector const *""'");
4972 }
4973 arg2 = (gsl_vector *)(argp2);
4974 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
4975 if (!SWIG_IsOK(res3)) {
4976 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QR_QTmat" "', argument " "3"" of type '" "gsl_matrix *""'");
4977 }
4978 arg3 = (gsl_matrix *)(argp3);
4979 result = (int)gsl_linalg_QR_QTmat((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3);
4980 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4981
4982
4983
4984 XSRETURN(argvi);
4985 fail:
4986
4987
4988
4989 SWIG_croak_null();
4990 }
4991 }
4992
4993
XS(_wrap_gsl_linalg_QR_matQ)4994 XS(_wrap_gsl_linalg_QR_matQ) {
4995 {
4996 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
4997 gsl_vector *arg2 = (gsl_vector *) 0 ;
4998 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
4999 void *argp1 = 0 ;
5000 int res1 = 0 ;
5001 void *argp2 = 0 ;
5002 int res2 = 0 ;
5003 void *argp3 = 0 ;
5004 int res3 = 0 ;
5005 int argvi = 0;
5006 int result;
5007 dXSARGS;
5008
5009 if ((items < 3) || (items > 3)) {
5010 SWIG_croak("Usage: gsl_linalg_QR_matQ(QR,tau,A);");
5011 }
5012 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5013 if (!SWIG_IsOK(res1)) {
5014 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QR_matQ" "', argument " "1"" of type '" "gsl_matrix const *""'");
5015 }
5016 arg1 = (gsl_matrix *)(argp1);
5017 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
5018 if (!SWIG_IsOK(res2)) {
5019 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QR_matQ" "', argument " "2"" of type '" "gsl_vector const *""'");
5020 }
5021 arg2 = (gsl_vector *)(argp2);
5022 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5023 if (!SWIG_IsOK(res3)) {
5024 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QR_matQ" "', argument " "3"" of type '" "gsl_matrix *""'");
5025 }
5026 arg3 = (gsl_matrix *)(argp3);
5027 result = (int)gsl_linalg_QR_matQ((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3);
5028 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5029
5030
5031
5032 XSRETURN(argvi);
5033 fail:
5034
5035
5036
5037 SWIG_croak_null();
5038 }
5039 }
5040
5041
XS(_wrap_gsl_linalg_QR_unpack)5042 XS(_wrap_gsl_linalg_QR_unpack) {
5043 {
5044 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5045 gsl_vector *arg2 = (gsl_vector *) 0 ;
5046 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
5047 gsl_matrix *arg4 = (gsl_matrix *) 0 ;
5048 void *argp1 = 0 ;
5049 int res1 = 0 ;
5050 void *argp2 = 0 ;
5051 int res2 = 0 ;
5052 void *argp3 = 0 ;
5053 int res3 = 0 ;
5054 void *argp4 = 0 ;
5055 int res4 = 0 ;
5056 int argvi = 0;
5057 int result;
5058 dXSARGS;
5059
5060 if ((items < 4) || (items > 4)) {
5061 SWIG_croak("Usage: gsl_linalg_QR_unpack(QR,tau,Q,R);");
5062 }
5063 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5064 if (!SWIG_IsOK(res1)) {
5065 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QR_unpack" "', argument " "1"" of type '" "gsl_matrix const *""'");
5066 }
5067 arg1 = (gsl_matrix *)(argp1);
5068 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
5069 if (!SWIG_IsOK(res2)) {
5070 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QR_unpack" "', argument " "2"" of type '" "gsl_vector const *""'");
5071 }
5072 arg2 = (gsl_vector *)(argp2);
5073 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5074 if (!SWIG_IsOK(res3)) {
5075 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QR_unpack" "', argument " "3"" of type '" "gsl_matrix *""'");
5076 }
5077 arg3 = (gsl_matrix *)(argp3);
5078 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5079 if (!SWIG_IsOK(res4)) {
5080 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_QR_unpack" "', argument " "4"" of type '" "gsl_matrix *""'");
5081 }
5082 arg4 = (gsl_matrix *)(argp4);
5083 result = (int)gsl_linalg_QR_unpack((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3,arg4);
5084 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5085
5086
5087
5088
5089 XSRETURN(argvi);
5090 fail:
5091
5092
5093
5094
5095 SWIG_croak_null();
5096 }
5097 }
5098
5099
XS(_wrap_gsl_linalg_R_solve)5100 XS(_wrap_gsl_linalg_R_solve) {
5101 {
5102 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5103 gsl_vector *arg2 = (gsl_vector *) 0 ;
5104 gsl_vector *arg3 = (gsl_vector *) 0 ;
5105 void *argp1 = 0 ;
5106 int res1 = 0 ;
5107 void *argp2 = 0 ;
5108 int res2 = 0 ;
5109 void *argp3 = 0 ;
5110 int res3 = 0 ;
5111 int argvi = 0;
5112 int result;
5113 dXSARGS;
5114
5115 if ((items < 3) || (items > 3)) {
5116 SWIG_croak("Usage: gsl_linalg_R_solve(R,b,x);");
5117 }
5118 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5119 if (!SWIG_IsOK(res1)) {
5120 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_R_solve" "', argument " "1"" of type '" "gsl_matrix const *""'");
5121 }
5122 arg1 = (gsl_matrix *)(argp1);
5123 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
5124 if (!SWIG_IsOK(res2)) {
5125 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_R_solve" "', argument " "2"" of type '" "gsl_vector const *""'");
5126 }
5127 arg2 = (gsl_vector *)(argp2);
5128 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
5129 if (!SWIG_IsOK(res3)) {
5130 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_R_solve" "', argument " "3"" of type '" "gsl_vector *""'");
5131 }
5132 arg3 = (gsl_vector *)(argp3);
5133 result = (int)gsl_linalg_R_solve((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3);
5134 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5135
5136
5137
5138 XSRETURN(argvi);
5139 fail:
5140
5141
5142
5143 SWIG_croak_null();
5144 }
5145 }
5146
5147
XS(_wrap_gsl_linalg_R_svx)5148 XS(_wrap_gsl_linalg_R_svx) {
5149 {
5150 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5151 gsl_vector *arg2 = (gsl_vector *) 0 ;
5152 void *argp1 = 0 ;
5153 int res1 = 0 ;
5154 void *argp2 = 0 ;
5155 int res2 = 0 ;
5156 int argvi = 0;
5157 int result;
5158 dXSARGS;
5159
5160 if ((items < 2) || (items > 2)) {
5161 SWIG_croak("Usage: gsl_linalg_R_svx(R,x);");
5162 }
5163 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5164 if (!SWIG_IsOK(res1)) {
5165 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_R_svx" "', argument " "1"" of type '" "gsl_matrix const *""'");
5166 }
5167 arg1 = (gsl_matrix *)(argp1);
5168 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
5169 if (!SWIG_IsOK(res2)) {
5170 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_R_svx" "', argument " "2"" of type '" "gsl_vector *""'");
5171 }
5172 arg2 = (gsl_vector *)(argp2);
5173 result = (int)gsl_linalg_R_svx((gsl_matrix const *)arg1,arg2);
5174 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5175
5176
5177 XSRETURN(argvi);
5178 fail:
5179
5180
5181 SWIG_croak_null();
5182 }
5183 }
5184
5185
XS(_wrap_gsl_linalg_QRPT_decomp)5186 XS(_wrap_gsl_linalg_QRPT_decomp) {
5187 {
5188 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5189 gsl_vector *arg2 = (gsl_vector *) 0 ;
5190 gsl_permutation *arg3 = (gsl_permutation *) 0 ;
5191 int *arg4 = (int *) 0 ;
5192 gsl_vector *arg5 = (gsl_vector *) 0 ;
5193 void *argp1 = 0 ;
5194 int res1 = 0 ;
5195 void *argp2 = 0 ;
5196 int res2 = 0 ;
5197 void *argp3 = 0 ;
5198 int res3 = 0 ;
5199 int temp4 ;
5200 int res4 = SWIG_TMPOBJ ;
5201 void *argp5 = 0 ;
5202 int res5 = 0 ;
5203 int argvi = 0;
5204 int result;
5205 dXSARGS;
5206
5207 arg4 = &temp4;
5208 if ((items < 4) || (items > 4)) {
5209 SWIG_croak("Usage: gsl_linalg_QRPT_decomp(A,tau,p,norm);");
5210 }
5211 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5212 if (!SWIG_IsOK(res1)) {
5213 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QRPT_decomp" "', argument " "1"" of type '" "gsl_matrix *""'");
5214 }
5215 arg1 = (gsl_matrix *)(argp1);
5216 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
5217 if (!SWIG_IsOK(res2)) {
5218 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QRPT_decomp" "', argument " "2"" of type '" "gsl_vector *""'");
5219 }
5220 arg2 = (gsl_vector *)(argp2);
5221 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
5222 if (!SWIG_IsOK(res3)) {
5223 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QRPT_decomp" "', argument " "3"" of type '" "gsl_permutation *""'");
5224 }
5225 arg3 = (gsl_permutation *)(argp3);
5226 res5 = SWIG_ConvertPtr(ST(3), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
5227 if (!SWIG_IsOK(res5)) {
5228 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_QRPT_decomp" "', argument " "5"" of type '" "gsl_vector *""'");
5229 }
5230 arg5 = (gsl_vector *)(argp5);
5231 result = (int)gsl_linalg_QRPT_decomp(arg1,arg2,arg3,arg4,arg5);
5232 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5233 if (SWIG_IsTmpObj(res4)) {
5234 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((*arg4)); argvi++ ;
5235 } else {
5236 int new_flags = SWIG_IsNewObj(res4) ? (SWIG_POINTER_OWN | 0) : 0;
5237 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg4), SWIGTYPE_p_int, new_flags); argvi++ ;
5238 }
5239
5240
5241
5242
5243
5244 XSRETURN(argvi);
5245 fail:
5246
5247
5248
5249
5250
5251 SWIG_croak_null();
5252 }
5253 }
5254
5255
XS(_wrap_gsl_linalg_QRPT_decomp2)5256 XS(_wrap_gsl_linalg_QRPT_decomp2) {
5257 {
5258 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5259 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
5260 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
5261 gsl_vector *arg4 = (gsl_vector *) 0 ;
5262 gsl_permutation *arg5 = (gsl_permutation *) 0 ;
5263 int *arg6 = (int *) 0 ;
5264 gsl_vector *arg7 = (gsl_vector *) 0 ;
5265 void *argp1 = 0 ;
5266 int res1 = 0 ;
5267 void *argp2 = 0 ;
5268 int res2 = 0 ;
5269 void *argp3 = 0 ;
5270 int res3 = 0 ;
5271 void *argp4 = 0 ;
5272 int res4 = 0 ;
5273 void *argp5 = 0 ;
5274 int res5 = 0 ;
5275 int temp6 ;
5276 int res6 = SWIG_TMPOBJ ;
5277 void *argp7 = 0 ;
5278 int res7 = 0 ;
5279 int argvi = 0;
5280 int result;
5281 dXSARGS;
5282
5283 arg6 = &temp6;
5284 if ((items < 6) || (items > 6)) {
5285 SWIG_croak("Usage: gsl_linalg_QRPT_decomp2(A,q,r,tau,p,norm);");
5286 }
5287 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5288 if (!SWIG_IsOK(res1)) {
5289 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QRPT_decomp2" "', argument " "1"" of type '" "gsl_matrix const *""'");
5290 }
5291 arg1 = (gsl_matrix *)(argp1);
5292 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5293 if (!SWIG_IsOK(res2)) {
5294 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QRPT_decomp2" "', argument " "2"" of type '" "gsl_matrix *""'");
5295 }
5296 arg2 = (gsl_matrix *)(argp2);
5297 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5298 if (!SWIG_IsOK(res3)) {
5299 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QRPT_decomp2" "', argument " "3"" of type '" "gsl_matrix *""'");
5300 }
5301 arg3 = (gsl_matrix *)(argp3);
5302 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
5303 if (!SWIG_IsOK(res4)) {
5304 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_QRPT_decomp2" "', argument " "4"" of type '" "gsl_vector *""'");
5305 }
5306 arg4 = (gsl_vector *)(argp4);
5307 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
5308 if (!SWIG_IsOK(res5)) {
5309 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_QRPT_decomp2" "', argument " "5"" of type '" "gsl_permutation *""'");
5310 }
5311 arg5 = (gsl_permutation *)(argp5);
5312 res7 = SWIG_ConvertPtr(ST(5), &argp7,SWIGTYPE_p_gsl_vector, 0 | 0 );
5313 if (!SWIG_IsOK(res7)) {
5314 SWIG_exception_fail(SWIG_ArgError(res7), "in method '" "gsl_linalg_QRPT_decomp2" "', argument " "7"" of type '" "gsl_vector *""'");
5315 }
5316 arg7 = (gsl_vector *)(argp7);
5317 result = (int)gsl_linalg_QRPT_decomp2((gsl_matrix const *)arg1,arg2,arg3,arg4,arg5,arg6,arg7);
5318 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5319 if (SWIG_IsTmpObj(res6)) {
5320 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((*arg6)); argvi++ ;
5321 } else {
5322 int new_flags = SWIG_IsNewObj(res6) ? (SWIG_POINTER_OWN | 0) : 0;
5323 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg6), SWIGTYPE_p_int, new_flags); argvi++ ;
5324 }
5325
5326
5327
5328
5329
5330
5331
5332 XSRETURN(argvi);
5333 fail:
5334
5335
5336
5337
5338
5339
5340
5341 SWIG_croak_null();
5342 }
5343 }
5344
5345
XS(_wrap_gsl_linalg_QRPT_solve)5346 XS(_wrap_gsl_linalg_QRPT_solve) {
5347 {
5348 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5349 gsl_vector *arg2 = (gsl_vector *) 0 ;
5350 gsl_permutation *arg3 = (gsl_permutation *) 0 ;
5351 gsl_vector *arg4 = (gsl_vector *) 0 ;
5352 gsl_vector *arg5 = (gsl_vector *) 0 ;
5353 void *argp1 = 0 ;
5354 int res1 = 0 ;
5355 void *argp2 = 0 ;
5356 int res2 = 0 ;
5357 void *argp3 = 0 ;
5358 int res3 = 0 ;
5359 void *argp4 = 0 ;
5360 int res4 = 0 ;
5361 void *argp5 = 0 ;
5362 int res5 = 0 ;
5363 int argvi = 0;
5364 int result;
5365 dXSARGS;
5366
5367 if ((items < 5) || (items > 5)) {
5368 SWIG_croak("Usage: gsl_linalg_QRPT_solve(QR,tau,p,b,x);");
5369 }
5370 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5371 if (!SWIG_IsOK(res1)) {
5372 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QRPT_solve" "', argument " "1"" of type '" "gsl_matrix const *""'");
5373 }
5374 arg1 = (gsl_matrix *)(argp1);
5375 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
5376 if (!SWIG_IsOK(res2)) {
5377 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QRPT_solve" "', argument " "2"" of type '" "gsl_vector const *""'");
5378 }
5379 arg2 = (gsl_vector *)(argp2);
5380 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
5381 if (!SWIG_IsOK(res3)) {
5382 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QRPT_solve" "', argument " "3"" of type '" "gsl_permutation const *""'");
5383 }
5384 arg3 = (gsl_permutation *)(argp3);
5385 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
5386 if (!SWIG_IsOK(res4)) {
5387 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_QRPT_solve" "', argument " "4"" of type '" "gsl_vector const *""'");
5388 }
5389 arg4 = (gsl_vector *)(argp4);
5390 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
5391 if (!SWIG_IsOK(res5)) {
5392 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_QRPT_solve" "', argument " "5"" of type '" "gsl_vector *""'");
5393 }
5394 arg5 = (gsl_vector *)(argp5);
5395 result = (int)gsl_linalg_QRPT_solve((gsl_matrix const *)arg1,(gsl_vector const *)arg2,(struct gsl_permutation_struct const *)arg3,(gsl_vector const *)arg4,arg5);
5396 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5397
5398
5399
5400
5401
5402 XSRETURN(argvi);
5403 fail:
5404
5405
5406
5407
5408
5409 SWIG_croak_null();
5410 }
5411 }
5412
5413
XS(_wrap_gsl_linalg_QRPT_lssolve)5414 XS(_wrap_gsl_linalg_QRPT_lssolve) {
5415 {
5416 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5417 gsl_vector *arg2 = (gsl_vector *) 0 ;
5418 gsl_permutation *arg3 = (gsl_permutation *) 0 ;
5419 gsl_vector *arg4 = (gsl_vector *) 0 ;
5420 gsl_vector *arg5 = (gsl_vector *) 0 ;
5421 gsl_vector *arg6 = (gsl_vector *) 0 ;
5422 void *argp1 = 0 ;
5423 int res1 = 0 ;
5424 void *argp2 = 0 ;
5425 int res2 = 0 ;
5426 void *argp3 = 0 ;
5427 int res3 = 0 ;
5428 void *argp4 = 0 ;
5429 int res4 = 0 ;
5430 void *argp5 = 0 ;
5431 int res5 = 0 ;
5432 void *argp6 = 0 ;
5433 int res6 = 0 ;
5434 int argvi = 0;
5435 int result;
5436 dXSARGS;
5437
5438 if ((items < 6) || (items > 6)) {
5439 SWIG_croak("Usage: gsl_linalg_QRPT_lssolve(QR,tau,p,b,x,residual);");
5440 }
5441 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5442 if (!SWIG_IsOK(res1)) {
5443 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QRPT_lssolve" "', argument " "1"" of type '" "gsl_matrix const *""'");
5444 }
5445 arg1 = (gsl_matrix *)(argp1);
5446 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
5447 if (!SWIG_IsOK(res2)) {
5448 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QRPT_lssolve" "', argument " "2"" of type '" "gsl_vector const *""'");
5449 }
5450 arg2 = (gsl_vector *)(argp2);
5451 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
5452 if (!SWIG_IsOK(res3)) {
5453 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QRPT_lssolve" "', argument " "3"" of type '" "gsl_permutation const *""'");
5454 }
5455 arg3 = (gsl_permutation *)(argp3);
5456 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
5457 if (!SWIG_IsOK(res4)) {
5458 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_QRPT_lssolve" "', argument " "4"" of type '" "gsl_vector const *""'");
5459 }
5460 arg4 = (gsl_vector *)(argp4);
5461 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
5462 if (!SWIG_IsOK(res5)) {
5463 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_QRPT_lssolve" "', argument " "5"" of type '" "gsl_vector *""'");
5464 }
5465 arg5 = (gsl_vector *)(argp5);
5466 res6 = SWIG_ConvertPtr(ST(5), &argp6,SWIGTYPE_p_gsl_vector, 0 | 0 );
5467 if (!SWIG_IsOK(res6)) {
5468 SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_linalg_QRPT_lssolve" "', argument " "6"" of type '" "gsl_vector *""'");
5469 }
5470 arg6 = (gsl_vector *)(argp6);
5471 result = (int)gsl_linalg_QRPT_lssolve((gsl_matrix const *)arg1,(gsl_vector const *)arg2,(struct gsl_permutation_struct const *)arg3,(gsl_vector const *)arg4,arg5,arg6);
5472 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5473
5474
5475
5476
5477
5478
5479 XSRETURN(argvi);
5480 fail:
5481
5482
5483
5484
5485
5486
5487 SWIG_croak_null();
5488 }
5489 }
5490
5491
XS(_wrap_gsl_linalg_QRPT_lssolve2)5492 XS(_wrap_gsl_linalg_QRPT_lssolve2) {
5493 {
5494 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5495 gsl_vector *arg2 = (gsl_vector *) 0 ;
5496 gsl_permutation *arg3 = (gsl_permutation *) 0 ;
5497 gsl_vector *arg4 = (gsl_vector *) 0 ;
5498 size_t arg5 ;
5499 gsl_vector *arg6 = (gsl_vector *) 0 ;
5500 gsl_vector *arg7 = (gsl_vector *) 0 ;
5501 void *argp1 = 0 ;
5502 int res1 = 0 ;
5503 void *argp2 = 0 ;
5504 int res2 = 0 ;
5505 void *argp3 = 0 ;
5506 int res3 = 0 ;
5507 void *argp4 = 0 ;
5508 int res4 = 0 ;
5509 size_t val5 ;
5510 int ecode5 = 0 ;
5511 void *argp6 = 0 ;
5512 int res6 = 0 ;
5513 void *argp7 = 0 ;
5514 int res7 = 0 ;
5515 int argvi = 0;
5516 int result;
5517 dXSARGS;
5518
5519 if ((items < 7) || (items > 7)) {
5520 SWIG_croak("Usage: gsl_linalg_QRPT_lssolve2(QR,tau,p,b,rank,x,residual);");
5521 }
5522 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5523 if (!SWIG_IsOK(res1)) {
5524 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QRPT_lssolve2" "', argument " "1"" of type '" "gsl_matrix const *""'");
5525 }
5526 arg1 = (gsl_matrix *)(argp1);
5527 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
5528 if (!SWIG_IsOK(res2)) {
5529 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QRPT_lssolve2" "', argument " "2"" of type '" "gsl_vector const *""'");
5530 }
5531 arg2 = (gsl_vector *)(argp2);
5532 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
5533 if (!SWIG_IsOK(res3)) {
5534 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QRPT_lssolve2" "', argument " "3"" of type '" "gsl_permutation const *""'");
5535 }
5536 arg3 = (gsl_permutation *)(argp3);
5537 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
5538 if (!SWIG_IsOK(res4)) {
5539 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_QRPT_lssolve2" "', argument " "4"" of type '" "gsl_vector const *""'");
5540 }
5541 arg4 = (gsl_vector *)(argp4);
5542 ecode5 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(4), &val5);
5543 if (!SWIG_IsOK(ecode5)) {
5544 SWIG_exception_fail(SWIG_ArgError(ecode5), "in method '" "gsl_linalg_QRPT_lssolve2" "', argument " "5"" of type '" "size_t""'");
5545 }
5546 arg5 = (size_t)(val5);
5547 res6 = SWIG_ConvertPtr(ST(5), &argp6,SWIGTYPE_p_gsl_vector, 0 | 0 );
5548 if (!SWIG_IsOK(res6)) {
5549 SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_linalg_QRPT_lssolve2" "', argument " "6"" of type '" "gsl_vector *""'");
5550 }
5551 arg6 = (gsl_vector *)(argp6);
5552 res7 = SWIG_ConvertPtr(ST(6), &argp7,SWIGTYPE_p_gsl_vector, 0 | 0 );
5553 if (!SWIG_IsOK(res7)) {
5554 SWIG_exception_fail(SWIG_ArgError(res7), "in method '" "gsl_linalg_QRPT_lssolve2" "', argument " "7"" of type '" "gsl_vector *""'");
5555 }
5556 arg7 = (gsl_vector *)(argp7);
5557 result = (int)gsl_linalg_QRPT_lssolve2((gsl_matrix const *)arg1,(gsl_vector const *)arg2,(struct gsl_permutation_struct const *)arg3,(gsl_vector const *)arg4,arg5,arg6,arg7);
5558 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5559
5560
5561
5562
5563
5564
5565
5566 XSRETURN(argvi);
5567 fail:
5568
5569
5570
5571
5572
5573
5574
5575 SWIG_croak_null();
5576 }
5577 }
5578
5579
XS(_wrap_gsl_linalg_QRPT_svx)5580 XS(_wrap_gsl_linalg_QRPT_svx) {
5581 {
5582 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5583 gsl_vector *arg2 = (gsl_vector *) 0 ;
5584 gsl_permutation *arg3 = (gsl_permutation *) 0 ;
5585 gsl_vector *arg4 = (gsl_vector *) 0 ;
5586 void *argp1 = 0 ;
5587 int res1 = 0 ;
5588 void *argp2 = 0 ;
5589 int res2 = 0 ;
5590 void *argp3 = 0 ;
5591 int res3 = 0 ;
5592 void *argp4 = 0 ;
5593 int res4 = 0 ;
5594 int argvi = 0;
5595 int result;
5596 dXSARGS;
5597
5598 if ((items < 4) || (items > 4)) {
5599 SWIG_croak("Usage: gsl_linalg_QRPT_svx(QR,tau,p,x);");
5600 }
5601 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5602 if (!SWIG_IsOK(res1)) {
5603 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QRPT_svx" "', argument " "1"" of type '" "gsl_matrix const *""'");
5604 }
5605 arg1 = (gsl_matrix *)(argp1);
5606 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
5607 if (!SWIG_IsOK(res2)) {
5608 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QRPT_svx" "', argument " "2"" of type '" "gsl_vector const *""'");
5609 }
5610 arg2 = (gsl_vector *)(argp2);
5611 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
5612 if (!SWIG_IsOK(res3)) {
5613 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QRPT_svx" "', argument " "3"" of type '" "gsl_permutation const *""'");
5614 }
5615 arg3 = (gsl_permutation *)(argp3);
5616 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
5617 if (!SWIG_IsOK(res4)) {
5618 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_QRPT_svx" "', argument " "4"" of type '" "gsl_vector *""'");
5619 }
5620 arg4 = (gsl_vector *)(argp4);
5621 result = (int)gsl_linalg_QRPT_svx((gsl_matrix const *)arg1,(gsl_vector const *)arg2,(struct gsl_permutation_struct const *)arg3,arg4);
5622 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5623
5624
5625
5626
5627 XSRETURN(argvi);
5628 fail:
5629
5630
5631
5632
5633 SWIG_croak_null();
5634 }
5635 }
5636
5637
XS(_wrap_gsl_linalg_QRPT_QRsolve)5638 XS(_wrap_gsl_linalg_QRPT_QRsolve) {
5639 {
5640 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5641 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
5642 gsl_permutation *arg3 = (gsl_permutation *) 0 ;
5643 gsl_vector *arg4 = (gsl_vector *) 0 ;
5644 gsl_vector *arg5 = (gsl_vector *) 0 ;
5645 void *argp1 = 0 ;
5646 int res1 = 0 ;
5647 void *argp2 = 0 ;
5648 int res2 = 0 ;
5649 void *argp3 = 0 ;
5650 int res3 = 0 ;
5651 void *argp4 = 0 ;
5652 int res4 = 0 ;
5653 void *argp5 = 0 ;
5654 int res5 = 0 ;
5655 int argvi = 0;
5656 int result;
5657 dXSARGS;
5658
5659 if ((items < 5) || (items > 5)) {
5660 SWIG_croak("Usage: gsl_linalg_QRPT_QRsolve(Q,R,p,b,x);");
5661 }
5662 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5663 if (!SWIG_IsOK(res1)) {
5664 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QRPT_QRsolve" "', argument " "1"" of type '" "gsl_matrix const *""'");
5665 }
5666 arg1 = (gsl_matrix *)(argp1);
5667 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5668 if (!SWIG_IsOK(res2)) {
5669 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QRPT_QRsolve" "', argument " "2"" of type '" "gsl_matrix const *""'");
5670 }
5671 arg2 = (gsl_matrix *)(argp2);
5672 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
5673 if (!SWIG_IsOK(res3)) {
5674 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QRPT_QRsolve" "', argument " "3"" of type '" "gsl_permutation const *""'");
5675 }
5676 arg3 = (gsl_permutation *)(argp3);
5677 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
5678 if (!SWIG_IsOK(res4)) {
5679 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_QRPT_QRsolve" "', argument " "4"" of type '" "gsl_vector const *""'");
5680 }
5681 arg4 = (gsl_vector *)(argp4);
5682 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
5683 if (!SWIG_IsOK(res5)) {
5684 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_QRPT_QRsolve" "', argument " "5"" of type '" "gsl_vector *""'");
5685 }
5686 arg5 = (gsl_vector *)(argp5);
5687 result = (int)gsl_linalg_QRPT_QRsolve((gsl_matrix const *)arg1,(gsl_matrix const *)arg2,(struct gsl_permutation_struct const *)arg3,(gsl_vector const *)arg4,arg5);
5688 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5689
5690
5691
5692
5693
5694 XSRETURN(argvi);
5695 fail:
5696
5697
5698
5699
5700
5701 SWIG_croak_null();
5702 }
5703 }
5704
5705
XS(_wrap_gsl_linalg_QRPT_Rsolve)5706 XS(_wrap_gsl_linalg_QRPT_Rsolve) {
5707 {
5708 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5709 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
5710 gsl_vector *arg3 = (gsl_vector *) 0 ;
5711 gsl_vector *arg4 = (gsl_vector *) 0 ;
5712 void *argp1 = 0 ;
5713 int res1 = 0 ;
5714 void *argp2 = 0 ;
5715 int res2 = 0 ;
5716 void *argp3 = 0 ;
5717 int res3 = 0 ;
5718 void *argp4 = 0 ;
5719 int res4 = 0 ;
5720 int argvi = 0;
5721 int result;
5722 dXSARGS;
5723
5724 if ((items < 4) || (items > 4)) {
5725 SWIG_croak("Usage: gsl_linalg_QRPT_Rsolve(QR,p,b,x);");
5726 }
5727 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5728 if (!SWIG_IsOK(res1)) {
5729 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QRPT_Rsolve" "', argument " "1"" of type '" "gsl_matrix const *""'");
5730 }
5731 arg1 = (gsl_matrix *)(argp1);
5732 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
5733 if (!SWIG_IsOK(res2)) {
5734 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QRPT_Rsolve" "', argument " "2"" of type '" "gsl_permutation const *""'");
5735 }
5736 arg2 = (gsl_permutation *)(argp2);
5737 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
5738 if (!SWIG_IsOK(res3)) {
5739 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QRPT_Rsolve" "', argument " "3"" of type '" "gsl_vector const *""'");
5740 }
5741 arg3 = (gsl_vector *)(argp3);
5742 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
5743 if (!SWIG_IsOK(res4)) {
5744 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_QRPT_Rsolve" "', argument " "4"" of type '" "gsl_vector *""'");
5745 }
5746 arg4 = (gsl_vector *)(argp4);
5747 result = (int)gsl_linalg_QRPT_Rsolve((gsl_matrix const *)arg1,(struct gsl_permutation_struct const *)arg2,(gsl_vector const *)arg3,arg4);
5748 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5749
5750
5751
5752
5753 XSRETURN(argvi);
5754 fail:
5755
5756
5757
5758
5759 SWIG_croak_null();
5760 }
5761 }
5762
5763
XS(_wrap_gsl_linalg_QRPT_Rsvx)5764 XS(_wrap_gsl_linalg_QRPT_Rsvx) {
5765 {
5766 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5767 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
5768 gsl_vector *arg3 = (gsl_vector *) 0 ;
5769 void *argp1 = 0 ;
5770 int res1 = 0 ;
5771 void *argp2 = 0 ;
5772 int res2 = 0 ;
5773 void *argp3 = 0 ;
5774 int res3 = 0 ;
5775 int argvi = 0;
5776 int result;
5777 dXSARGS;
5778
5779 if ((items < 3) || (items > 3)) {
5780 SWIG_croak("Usage: gsl_linalg_QRPT_Rsvx(QR,p,x);");
5781 }
5782 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5783 if (!SWIG_IsOK(res1)) {
5784 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QRPT_Rsvx" "', argument " "1"" of type '" "gsl_matrix const *""'");
5785 }
5786 arg1 = (gsl_matrix *)(argp1);
5787 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
5788 if (!SWIG_IsOK(res2)) {
5789 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QRPT_Rsvx" "', argument " "2"" of type '" "gsl_permutation const *""'");
5790 }
5791 arg2 = (gsl_permutation *)(argp2);
5792 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
5793 if (!SWIG_IsOK(res3)) {
5794 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QRPT_Rsvx" "', argument " "3"" of type '" "gsl_vector *""'");
5795 }
5796 arg3 = (gsl_vector *)(argp3);
5797 result = (int)gsl_linalg_QRPT_Rsvx((gsl_matrix const *)arg1,(struct gsl_permutation_struct const *)arg2,arg3);
5798 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5799
5800
5801
5802 XSRETURN(argvi);
5803 fail:
5804
5805
5806
5807 SWIG_croak_null();
5808 }
5809 }
5810
5811
XS(_wrap_gsl_linalg_QRPT_update)5812 XS(_wrap_gsl_linalg_QRPT_update) {
5813 {
5814 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5815 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
5816 gsl_permutation *arg3 = (gsl_permutation *) 0 ;
5817 gsl_vector *arg4 = (gsl_vector *) 0 ;
5818 gsl_vector *arg5 = (gsl_vector *) 0 ;
5819 void *argp1 = 0 ;
5820 int res1 = 0 ;
5821 void *argp2 = 0 ;
5822 int res2 = 0 ;
5823 void *argp3 = 0 ;
5824 int res3 = 0 ;
5825 void *argp4 = 0 ;
5826 int res4 = 0 ;
5827 void *argp5 = 0 ;
5828 int res5 = 0 ;
5829 int argvi = 0;
5830 int result;
5831 dXSARGS;
5832
5833 if ((items < 5) || (items > 5)) {
5834 SWIG_croak("Usage: gsl_linalg_QRPT_update(Q,R,p,u,v);");
5835 }
5836 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5837 if (!SWIG_IsOK(res1)) {
5838 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QRPT_update" "', argument " "1"" of type '" "gsl_matrix *""'");
5839 }
5840 arg1 = (gsl_matrix *)(argp1);
5841 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5842 if (!SWIG_IsOK(res2)) {
5843 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QRPT_update" "', argument " "2"" of type '" "gsl_matrix *""'");
5844 }
5845 arg2 = (gsl_matrix *)(argp2);
5846 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
5847 if (!SWIG_IsOK(res3)) {
5848 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QRPT_update" "', argument " "3"" of type '" "gsl_permutation const *""'");
5849 }
5850 arg3 = (gsl_permutation *)(argp3);
5851 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
5852 if (!SWIG_IsOK(res4)) {
5853 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_QRPT_update" "', argument " "4"" of type '" "gsl_vector *""'");
5854 }
5855 arg4 = (gsl_vector *)(argp4);
5856 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
5857 if (!SWIG_IsOK(res5)) {
5858 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_QRPT_update" "', argument " "5"" of type '" "gsl_vector const *""'");
5859 }
5860 arg5 = (gsl_vector *)(argp5);
5861 result = (int)gsl_linalg_QRPT_update(arg1,arg2,(struct gsl_permutation_struct const *)arg3,arg4,(gsl_vector const *)arg5);
5862 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5863
5864
5865
5866
5867
5868 XSRETURN(argvi);
5869 fail:
5870
5871
5872
5873
5874
5875 SWIG_croak_null();
5876 }
5877 }
5878
5879
XS(_wrap_gsl_linalg_QRPT_rank)5880 XS(_wrap_gsl_linalg_QRPT_rank) {
5881 {
5882 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5883 double arg2 ;
5884 void *argp1 = 0 ;
5885 int res1 = 0 ;
5886 double val2 ;
5887 int ecode2 = 0 ;
5888 int argvi = 0;
5889 size_t result;
5890 dXSARGS;
5891
5892 if ((items < 2) || (items > 2)) {
5893 SWIG_croak("Usage: gsl_linalg_QRPT_rank(QR,tol);");
5894 }
5895 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5896 if (!SWIG_IsOK(res1)) {
5897 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QRPT_rank" "', argument " "1"" of type '" "gsl_matrix const *""'");
5898 }
5899 arg1 = (gsl_matrix *)(argp1);
5900 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
5901 if (!SWIG_IsOK(ecode2)) {
5902 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_linalg_QRPT_rank" "', argument " "2"" of type '" "double""'");
5903 }
5904 arg2 = (double)(val2);
5905 result = gsl_linalg_QRPT_rank((gsl_matrix const *)arg1,arg2);
5906 ST(argvi) = SWIG_From_size_t SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
5907
5908
5909 XSRETURN(argvi);
5910 fail:
5911
5912
5913 SWIG_croak_null();
5914 }
5915 }
5916
5917
XS(_wrap_gsl_linalg_QRPT_rcond)5918 XS(_wrap_gsl_linalg_QRPT_rcond) {
5919 {
5920 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5921 double *arg2 = (double *) 0 ;
5922 gsl_vector *arg3 = (gsl_vector *) 0 ;
5923 void *argp1 = 0 ;
5924 int res1 = 0 ;
5925 void *argp2 = 0 ;
5926 int res2 = 0 ;
5927 void *argp3 = 0 ;
5928 int res3 = 0 ;
5929 int argvi = 0;
5930 int result;
5931 dXSARGS;
5932
5933 if ((items < 3) || (items > 3)) {
5934 SWIG_croak("Usage: gsl_linalg_QRPT_rcond(QR,rcond,work);");
5935 }
5936 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5937 if (!SWIG_IsOK(res1)) {
5938 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QRPT_rcond" "', argument " "1"" of type '" "gsl_matrix const *""'");
5939 }
5940 arg1 = (gsl_matrix *)(argp1);
5941 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_double, 0 | 0 );
5942 if (!SWIG_IsOK(res2)) {
5943 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QRPT_rcond" "', argument " "2"" of type '" "double *""'");
5944 }
5945 arg2 = (double *)(argp2);
5946 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
5947 if (!SWIG_IsOK(res3)) {
5948 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QRPT_rcond" "', argument " "3"" of type '" "gsl_vector *""'");
5949 }
5950 arg3 = (gsl_vector *)(argp3);
5951 result = (int)gsl_linalg_QRPT_rcond((gsl_matrix const *)arg1,arg2,arg3);
5952 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5953
5954
5955
5956 XSRETURN(argvi);
5957 fail:
5958
5959
5960
5961 SWIG_croak_null();
5962 }
5963 }
5964
5965
XS(_wrap_gsl_linalg_COD_decomp)5966 XS(_wrap_gsl_linalg_COD_decomp) {
5967 {
5968 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5969 gsl_vector *arg2 = (gsl_vector *) 0 ;
5970 gsl_vector *arg3 = (gsl_vector *) 0 ;
5971 gsl_permutation *arg4 = (gsl_permutation *) 0 ;
5972 size_t *arg5 = (size_t *) 0 ;
5973 gsl_vector *arg6 = (gsl_vector *) 0 ;
5974 void *argp1 = 0 ;
5975 int res1 = 0 ;
5976 void *argp2 = 0 ;
5977 int res2 = 0 ;
5978 void *argp3 = 0 ;
5979 int res3 = 0 ;
5980 void *argp4 = 0 ;
5981 int res4 = 0 ;
5982 void *argp5 = 0 ;
5983 int res5 = 0 ;
5984 void *argp6 = 0 ;
5985 int res6 = 0 ;
5986 int argvi = 0;
5987 int result;
5988 dXSARGS;
5989
5990 if ((items < 6) || (items > 6)) {
5991 SWIG_croak("Usage: gsl_linalg_COD_decomp(A,tau_Q,tau_Z,p,rank,work);");
5992 }
5993 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5994 if (!SWIG_IsOK(res1)) {
5995 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_COD_decomp" "', argument " "1"" of type '" "gsl_matrix *""'");
5996 }
5997 arg1 = (gsl_matrix *)(argp1);
5998 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
5999 if (!SWIG_IsOK(res2)) {
6000 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_COD_decomp" "', argument " "2"" of type '" "gsl_vector *""'");
6001 }
6002 arg2 = (gsl_vector *)(argp2);
6003 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
6004 if (!SWIG_IsOK(res3)) {
6005 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_COD_decomp" "', argument " "3"" of type '" "gsl_vector *""'");
6006 }
6007 arg3 = (gsl_vector *)(argp3);
6008 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
6009 if (!SWIG_IsOK(res4)) {
6010 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_COD_decomp" "', argument " "4"" of type '" "gsl_permutation *""'");
6011 }
6012 arg4 = (gsl_permutation *)(argp4);
6013 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_size_t, 0 | 0 );
6014 if (!SWIG_IsOK(res5)) {
6015 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_COD_decomp" "', argument " "5"" of type '" "size_t *""'");
6016 }
6017 arg5 = (size_t *)(argp5);
6018 res6 = SWIG_ConvertPtr(ST(5), &argp6,SWIGTYPE_p_gsl_vector, 0 | 0 );
6019 if (!SWIG_IsOK(res6)) {
6020 SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_linalg_COD_decomp" "', argument " "6"" of type '" "gsl_vector *""'");
6021 }
6022 arg6 = (gsl_vector *)(argp6);
6023 result = (int)gsl_linalg_COD_decomp(arg1,arg2,arg3,arg4,arg5,arg6);
6024 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6025
6026
6027
6028
6029
6030
6031 XSRETURN(argvi);
6032 fail:
6033
6034
6035
6036
6037
6038
6039 SWIG_croak_null();
6040 }
6041 }
6042
6043
XS(_wrap_gsl_linalg_COD_decomp_e)6044 XS(_wrap_gsl_linalg_COD_decomp_e) {
6045 {
6046 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
6047 gsl_vector *arg2 = (gsl_vector *) 0 ;
6048 gsl_vector *arg3 = (gsl_vector *) 0 ;
6049 gsl_permutation *arg4 = (gsl_permutation *) 0 ;
6050 double arg5 ;
6051 size_t *arg6 = (size_t *) 0 ;
6052 gsl_vector *arg7 = (gsl_vector *) 0 ;
6053 void *argp1 = 0 ;
6054 int res1 = 0 ;
6055 void *argp2 = 0 ;
6056 int res2 = 0 ;
6057 void *argp3 = 0 ;
6058 int res3 = 0 ;
6059 void *argp4 = 0 ;
6060 int res4 = 0 ;
6061 double val5 ;
6062 int ecode5 = 0 ;
6063 void *argp6 = 0 ;
6064 int res6 = 0 ;
6065 void *argp7 = 0 ;
6066 int res7 = 0 ;
6067 int argvi = 0;
6068 int result;
6069 dXSARGS;
6070
6071 if ((items < 7) || (items > 7)) {
6072 SWIG_croak("Usage: gsl_linalg_COD_decomp_e(A,tau_Q,tau_Z,p,tol,rank,work);");
6073 }
6074 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6075 if (!SWIG_IsOK(res1)) {
6076 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_COD_decomp_e" "', argument " "1"" of type '" "gsl_matrix *""'");
6077 }
6078 arg1 = (gsl_matrix *)(argp1);
6079 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
6080 if (!SWIG_IsOK(res2)) {
6081 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_COD_decomp_e" "', argument " "2"" of type '" "gsl_vector *""'");
6082 }
6083 arg2 = (gsl_vector *)(argp2);
6084 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
6085 if (!SWIG_IsOK(res3)) {
6086 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_COD_decomp_e" "', argument " "3"" of type '" "gsl_vector *""'");
6087 }
6088 arg3 = (gsl_vector *)(argp3);
6089 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
6090 if (!SWIG_IsOK(res4)) {
6091 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_COD_decomp_e" "', argument " "4"" of type '" "gsl_permutation *""'");
6092 }
6093 arg4 = (gsl_permutation *)(argp4);
6094 ecode5 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(4), &val5);
6095 if (!SWIG_IsOK(ecode5)) {
6096 SWIG_exception_fail(SWIG_ArgError(ecode5), "in method '" "gsl_linalg_COD_decomp_e" "', argument " "5"" of type '" "double""'");
6097 }
6098 arg5 = (double)(val5);
6099 res6 = SWIG_ConvertPtr(ST(5), &argp6,SWIGTYPE_p_size_t, 0 | 0 );
6100 if (!SWIG_IsOK(res6)) {
6101 SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_linalg_COD_decomp_e" "', argument " "6"" of type '" "size_t *""'");
6102 }
6103 arg6 = (size_t *)(argp6);
6104 res7 = SWIG_ConvertPtr(ST(6), &argp7,SWIGTYPE_p_gsl_vector, 0 | 0 );
6105 if (!SWIG_IsOK(res7)) {
6106 SWIG_exception_fail(SWIG_ArgError(res7), "in method '" "gsl_linalg_COD_decomp_e" "', argument " "7"" of type '" "gsl_vector *""'");
6107 }
6108 arg7 = (gsl_vector *)(argp7);
6109 result = (int)gsl_linalg_COD_decomp_e(arg1,arg2,arg3,arg4,arg5,arg6,arg7);
6110 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6111
6112
6113
6114
6115
6116
6117
6118 XSRETURN(argvi);
6119 fail:
6120
6121
6122
6123
6124
6125
6126
6127 SWIG_croak_null();
6128 }
6129 }
6130
6131
XS(_wrap_gsl_linalg_COD_lssolve)6132 XS(_wrap_gsl_linalg_COD_lssolve) {
6133 {
6134 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
6135 gsl_vector *arg2 = (gsl_vector *) 0 ;
6136 gsl_vector *arg3 = (gsl_vector *) 0 ;
6137 gsl_permutation *arg4 = (gsl_permutation *) 0 ;
6138 size_t arg5 ;
6139 gsl_vector *arg6 = (gsl_vector *) 0 ;
6140 gsl_vector *arg7 = (gsl_vector *) 0 ;
6141 gsl_vector *arg8 = (gsl_vector *) 0 ;
6142 void *argp1 = 0 ;
6143 int res1 = 0 ;
6144 void *argp2 = 0 ;
6145 int res2 = 0 ;
6146 void *argp3 = 0 ;
6147 int res3 = 0 ;
6148 void *argp4 = 0 ;
6149 int res4 = 0 ;
6150 size_t val5 ;
6151 int ecode5 = 0 ;
6152 void *argp6 = 0 ;
6153 int res6 = 0 ;
6154 void *argp7 = 0 ;
6155 int res7 = 0 ;
6156 void *argp8 = 0 ;
6157 int res8 = 0 ;
6158 int argvi = 0;
6159 int result;
6160 dXSARGS;
6161
6162 if ((items < 8) || (items > 8)) {
6163 SWIG_croak("Usage: gsl_linalg_COD_lssolve(QRZT,tau_Q,tau_Z,perm,rank,b,x,residual);");
6164 }
6165 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6166 if (!SWIG_IsOK(res1)) {
6167 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_COD_lssolve" "', argument " "1"" of type '" "gsl_matrix const *""'");
6168 }
6169 arg1 = (gsl_matrix *)(argp1);
6170 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
6171 if (!SWIG_IsOK(res2)) {
6172 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_COD_lssolve" "', argument " "2"" of type '" "gsl_vector const *""'");
6173 }
6174 arg2 = (gsl_vector *)(argp2);
6175 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
6176 if (!SWIG_IsOK(res3)) {
6177 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_COD_lssolve" "', argument " "3"" of type '" "gsl_vector const *""'");
6178 }
6179 arg3 = (gsl_vector *)(argp3);
6180 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
6181 if (!SWIG_IsOK(res4)) {
6182 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_COD_lssolve" "', argument " "4"" of type '" "gsl_permutation const *""'");
6183 }
6184 arg4 = (gsl_permutation *)(argp4);
6185 ecode5 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(4), &val5);
6186 if (!SWIG_IsOK(ecode5)) {
6187 SWIG_exception_fail(SWIG_ArgError(ecode5), "in method '" "gsl_linalg_COD_lssolve" "', argument " "5"" of type '" "size_t""'");
6188 }
6189 arg5 = (size_t)(val5);
6190 res6 = SWIG_ConvertPtr(ST(5), &argp6,SWIGTYPE_p_gsl_vector, 0 | 0 );
6191 if (!SWIG_IsOK(res6)) {
6192 SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_linalg_COD_lssolve" "', argument " "6"" of type '" "gsl_vector const *""'");
6193 }
6194 arg6 = (gsl_vector *)(argp6);
6195 res7 = SWIG_ConvertPtr(ST(6), &argp7,SWIGTYPE_p_gsl_vector, 0 | 0 );
6196 if (!SWIG_IsOK(res7)) {
6197 SWIG_exception_fail(SWIG_ArgError(res7), "in method '" "gsl_linalg_COD_lssolve" "', argument " "7"" of type '" "gsl_vector *""'");
6198 }
6199 arg7 = (gsl_vector *)(argp7);
6200 res8 = SWIG_ConvertPtr(ST(7), &argp8,SWIGTYPE_p_gsl_vector, 0 | 0 );
6201 if (!SWIG_IsOK(res8)) {
6202 SWIG_exception_fail(SWIG_ArgError(res8), "in method '" "gsl_linalg_COD_lssolve" "', argument " "8"" of type '" "gsl_vector *""'");
6203 }
6204 arg8 = (gsl_vector *)(argp8);
6205 result = (int)gsl_linalg_COD_lssolve((gsl_matrix const *)arg1,(gsl_vector const *)arg2,(gsl_vector const *)arg3,(struct gsl_permutation_struct const *)arg4,arg5,(gsl_vector const *)arg6,arg7,arg8);
6206 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6207
6208
6209
6210
6211
6212
6213
6214
6215 XSRETURN(argvi);
6216 fail:
6217
6218
6219
6220
6221
6222
6223
6224
6225 SWIG_croak_null();
6226 }
6227 }
6228
6229
XS(_wrap_gsl_linalg_COD_lssolve2)6230 XS(_wrap_gsl_linalg_COD_lssolve2) {
6231 {
6232 double arg1 ;
6233 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
6234 gsl_vector *arg3 = (gsl_vector *) 0 ;
6235 gsl_vector *arg4 = (gsl_vector *) 0 ;
6236 gsl_permutation *arg5 = (gsl_permutation *) 0 ;
6237 size_t arg6 ;
6238 gsl_vector *arg7 = (gsl_vector *) 0 ;
6239 gsl_vector *arg8 = (gsl_vector *) 0 ;
6240 gsl_vector *arg9 = (gsl_vector *) 0 ;
6241 gsl_matrix *arg10 = (gsl_matrix *) 0 ;
6242 gsl_vector *arg11 = (gsl_vector *) 0 ;
6243 double val1 ;
6244 int ecode1 = 0 ;
6245 void *argp2 = 0 ;
6246 int res2 = 0 ;
6247 void *argp3 = 0 ;
6248 int res3 = 0 ;
6249 void *argp4 = 0 ;
6250 int res4 = 0 ;
6251 void *argp5 = 0 ;
6252 int res5 = 0 ;
6253 size_t val6 ;
6254 int ecode6 = 0 ;
6255 void *argp7 = 0 ;
6256 int res7 = 0 ;
6257 void *argp8 = 0 ;
6258 int res8 = 0 ;
6259 void *argp9 = 0 ;
6260 int res9 = 0 ;
6261 void *argp10 = 0 ;
6262 int res10 = 0 ;
6263 void *argp11 = 0 ;
6264 int res11 = 0 ;
6265 int argvi = 0;
6266 int result;
6267 dXSARGS;
6268
6269 if ((items < 11) || (items > 11)) {
6270 SWIG_croak("Usage: gsl_linalg_COD_lssolve2(lambda,QRZT,tau_Q,tau_Z,perm,rank,b,x,residual,S,work);");
6271 }
6272 ecode1 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
6273 if (!SWIG_IsOK(ecode1)) {
6274 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_linalg_COD_lssolve2" "', argument " "1"" of type '" "double""'");
6275 }
6276 arg1 = (double)(val1);
6277 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6278 if (!SWIG_IsOK(res2)) {
6279 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_COD_lssolve2" "', argument " "2"" of type '" "gsl_matrix const *""'");
6280 }
6281 arg2 = (gsl_matrix *)(argp2);
6282 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
6283 if (!SWIG_IsOK(res3)) {
6284 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_COD_lssolve2" "', argument " "3"" of type '" "gsl_vector const *""'");
6285 }
6286 arg3 = (gsl_vector *)(argp3);
6287 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
6288 if (!SWIG_IsOK(res4)) {
6289 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_COD_lssolve2" "', argument " "4"" of type '" "gsl_vector const *""'");
6290 }
6291 arg4 = (gsl_vector *)(argp4);
6292 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
6293 if (!SWIG_IsOK(res5)) {
6294 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_COD_lssolve2" "', argument " "5"" of type '" "gsl_permutation const *""'");
6295 }
6296 arg5 = (gsl_permutation *)(argp5);
6297 ecode6 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(5), &val6);
6298 if (!SWIG_IsOK(ecode6)) {
6299 SWIG_exception_fail(SWIG_ArgError(ecode6), "in method '" "gsl_linalg_COD_lssolve2" "', argument " "6"" of type '" "size_t""'");
6300 }
6301 arg6 = (size_t)(val6);
6302 res7 = SWIG_ConvertPtr(ST(6), &argp7,SWIGTYPE_p_gsl_vector, 0 | 0 );
6303 if (!SWIG_IsOK(res7)) {
6304 SWIG_exception_fail(SWIG_ArgError(res7), "in method '" "gsl_linalg_COD_lssolve2" "', argument " "7"" of type '" "gsl_vector const *""'");
6305 }
6306 arg7 = (gsl_vector *)(argp7);
6307 res8 = SWIG_ConvertPtr(ST(7), &argp8,SWIGTYPE_p_gsl_vector, 0 | 0 );
6308 if (!SWIG_IsOK(res8)) {
6309 SWIG_exception_fail(SWIG_ArgError(res8), "in method '" "gsl_linalg_COD_lssolve2" "', argument " "8"" of type '" "gsl_vector *""'");
6310 }
6311 arg8 = (gsl_vector *)(argp8);
6312 res9 = SWIG_ConvertPtr(ST(8), &argp9,SWIGTYPE_p_gsl_vector, 0 | 0 );
6313 if (!SWIG_IsOK(res9)) {
6314 SWIG_exception_fail(SWIG_ArgError(res9), "in method '" "gsl_linalg_COD_lssolve2" "', argument " "9"" of type '" "gsl_vector *""'");
6315 }
6316 arg9 = (gsl_vector *)(argp9);
6317 res10 = SWIG_ConvertPtr(ST(9), &argp10,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6318 if (!SWIG_IsOK(res10)) {
6319 SWIG_exception_fail(SWIG_ArgError(res10), "in method '" "gsl_linalg_COD_lssolve2" "', argument " "10"" of type '" "gsl_matrix *""'");
6320 }
6321 arg10 = (gsl_matrix *)(argp10);
6322 res11 = SWIG_ConvertPtr(ST(10), &argp11,SWIGTYPE_p_gsl_vector, 0 | 0 );
6323 if (!SWIG_IsOK(res11)) {
6324 SWIG_exception_fail(SWIG_ArgError(res11), "in method '" "gsl_linalg_COD_lssolve2" "', argument " "11"" of type '" "gsl_vector *""'");
6325 }
6326 arg11 = (gsl_vector *)(argp11);
6327 result = (int)gsl_linalg_COD_lssolve2(arg1,(gsl_matrix const *)arg2,(gsl_vector const *)arg3,(gsl_vector const *)arg4,(struct gsl_permutation_struct const *)arg5,arg6,(gsl_vector const *)arg7,arg8,arg9,arg10,arg11);
6328 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6329
6330
6331
6332
6333
6334
6335
6336
6337
6338
6339
6340 XSRETURN(argvi);
6341 fail:
6342
6343
6344
6345
6346
6347
6348
6349
6350
6351
6352
6353 SWIG_croak_null();
6354 }
6355 }
6356
6357
XS(_wrap_gsl_linalg_COD_unpack)6358 XS(_wrap_gsl_linalg_COD_unpack) {
6359 {
6360 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
6361 gsl_vector *arg2 = (gsl_vector *) 0 ;
6362 gsl_vector *arg3 = (gsl_vector *) 0 ;
6363 size_t arg4 ;
6364 gsl_matrix *arg5 = (gsl_matrix *) 0 ;
6365 gsl_matrix *arg6 = (gsl_matrix *) 0 ;
6366 gsl_matrix *arg7 = (gsl_matrix *) 0 ;
6367 void *argp1 = 0 ;
6368 int res1 = 0 ;
6369 void *argp2 = 0 ;
6370 int res2 = 0 ;
6371 void *argp3 = 0 ;
6372 int res3 = 0 ;
6373 size_t val4 ;
6374 int ecode4 = 0 ;
6375 void *argp5 = 0 ;
6376 int res5 = 0 ;
6377 void *argp6 = 0 ;
6378 int res6 = 0 ;
6379 void *argp7 = 0 ;
6380 int res7 = 0 ;
6381 int argvi = 0;
6382 int result;
6383 dXSARGS;
6384
6385 if ((items < 7) || (items > 7)) {
6386 SWIG_croak("Usage: gsl_linalg_COD_unpack(QRZT,tau_Q,tau_Z,rank,Q,R,Z);");
6387 }
6388 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6389 if (!SWIG_IsOK(res1)) {
6390 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_COD_unpack" "', argument " "1"" of type '" "gsl_matrix const *""'");
6391 }
6392 arg1 = (gsl_matrix *)(argp1);
6393 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
6394 if (!SWIG_IsOK(res2)) {
6395 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_COD_unpack" "', argument " "2"" of type '" "gsl_vector const *""'");
6396 }
6397 arg2 = (gsl_vector *)(argp2);
6398 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
6399 if (!SWIG_IsOK(res3)) {
6400 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_COD_unpack" "', argument " "3"" of type '" "gsl_vector const *""'");
6401 }
6402 arg3 = (gsl_vector *)(argp3);
6403 ecode4 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(3), &val4);
6404 if (!SWIG_IsOK(ecode4)) {
6405 SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "gsl_linalg_COD_unpack" "', argument " "4"" of type '" "size_t""'");
6406 }
6407 arg4 = (size_t)(val4);
6408 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6409 if (!SWIG_IsOK(res5)) {
6410 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_COD_unpack" "', argument " "5"" of type '" "gsl_matrix *""'");
6411 }
6412 arg5 = (gsl_matrix *)(argp5);
6413 res6 = SWIG_ConvertPtr(ST(5), &argp6,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6414 if (!SWIG_IsOK(res6)) {
6415 SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_linalg_COD_unpack" "', argument " "6"" of type '" "gsl_matrix *""'");
6416 }
6417 arg6 = (gsl_matrix *)(argp6);
6418 res7 = SWIG_ConvertPtr(ST(6), &argp7,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6419 if (!SWIG_IsOK(res7)) {
6420 SWIG_exception_fail(SWIG_ArgError(res7), "in method '" "gsl_linalg_COD_unpack" "', argument " "7"" of type '" "gsl_matrix *""'");
6421 }
6422 arg7 = (gsl_matrix *)(argp7);
6423 result = (int)gsl_linalg_COD_unpack((gsl_matrix const *)arg1,(gsl_vector const *)arg2,(gsl_vector const *)arg3,arg4,arg5,arg6,arg7);
6424 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6425
6426
6427
6428
6429
6430
6431
6432 XSRETURN(argvi);
6433 fail:
6434
6435
6436
6437
6438
6439
6440
6441 SWIG_croak_null();
6442 }
6443 }
6444
6445
XS(_wrap_gsl_linalg_COD_matZ)6446 XS(_wrap_gsl_linalg_COD_matZ) {
6447 {
6448 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
6449 gsl_vector *arg2 = (gsl_vector *) 0 ;
6450 size_t arg3 ;
6451 gsl_matrix *arg4 = (gsl_matrix *) 0 ;
6452 gsl_vector *arg5 = (gsl_vector *) 0 ;
6453 void *argp1 = 0 ;
6454 int res1 = 0 ;
6455 void *argp2 = 0 ;
6456 int res2 = 0 ;
6457 size_t val3 ;
6458 int ecode3 = 0 ;
6459 void *argp4 = 0 ;
6460 int res4 = 0 ;
6461 void *argp5 = 0 ;
6462 int res5 = 0 ;
6463 int argvi = 0;
6464 int result;
6465 dXSARGS;
6466
6467 if ((items < 5) || (items > 5)) {
6468 SWIG_croak("Usage: gsl_linalg_COD_matZ(QRZT,tau_Z,rank,A,work);");
6469 }
6470 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6471 if (!SWIG_IsOK(res1)) {
6472 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_COD_matZ" "', argument " "1"" of type '" "gsl_matrix const *""'");
6473 }
6474 arg1 = (gsl_matrix *)(argp1);
6475 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
6476 if (!SWIG_IsOK(res2)) {
6477 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_COD_matZ" "', argument " "2"" of type '" "gsl_vector const *""'");
6478 }
6479 arg2 = (gsl_vector *)(argp2);
6480 ecode3 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
6481 if (!SWIG_IsOK(ecode3)) {
6482 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_linalg_COD_matZ" "', argument " "3"" of type '" "size_t""'");
6483 }
6484 arg3 = (size_t)(val3);
6485 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6486 if (!SWIG_IsOK(res4)) {
6487 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_COD_matZ" "', argument " "4"" of type '" "gsl_matrix *""'");
6488 }
6489 arg4 = (gsl_matrix *)(argp4);
6490 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
6491 if (!SWIG_IsOK(res5)) {
6492 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_COD_matZ" "', argument " "5"" of type '" "gsl_vector *""'");
6493 }
6494 arg5 = (gsl_vector *)(argp5);
6495 result = (int)gsl_linalg_COD_matZ((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3,arg4,arg5);
6496 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6497
6498
6499
6500
6501
6502 XSRETURN(argvi);
6503 fail:
6504
6505
6506
6507
6508
6509 SWIG_croak_null();
6510 }
6511 }
6512
6513
XS(_wrap_gsl_linalg_LQ_decomp)6514 XS(_wrap_gsl_linalg_LQ_decomp) {
6515 {
6516 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
6517 gsl_vector *arg2 = (gsl_vector *) 0 ;
6518 void *argp1 = 0 ;
6519 int res1 = 0 ;
6520 void *argp2 = 0 ;
6521 int res2 = 0 ;
6522 int argvi = 0;
6523 int result;
6524 dXSARGS;
6525
6526 if ((items < 2) || (items > 2)) {
6527 SWIG_croak("Usage: gsl_linalg_LQ_decomp(A,tau);");
6528 }
6529 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6530 if (!SWIG_IsOK(res1)) {
6531 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LQ_decomp" "', argument " "1"" of type '" "gsl_matrix *""'");
6532 }
6533 arg1 = (gsl_matrix *)(argp1);
6534 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
6535 if (!SWIG_IsOK(res2)) {
6536 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_LQ_decomp" "', argument " "2"" of type '" "gsl_vector *""'");
6537 }
6538 arg2 = (gsl_vector *)(argp2);
6539 result = (int)gsl_linalg_LQ_decomp(arg1,arg2);
6540 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6541
6542
6543 XSRETURN(argvi);
6544 fail:
6545
6546
6547 SWIG_croak_null();
6548 }
6549 }
6550
6551
XS(_wrap_gsl_linalg_LQ_solve_T)6552 XS(_wrap_gsl_linalg_LQ_solve_T) {
6553 {
6554 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
6555 gsl_vector *arg2 = (gsl_vector *) 0 ;
6556 gsl_vector *arg3 = (gsl_vector *) 0 ;
6557 gsl_vector *arg4 = (gsl_vector *) 0 ;
6558 void *argp1 = 0 ;
6559 int res1 = 0 ;
6560 void *argp2 = 0 ;
6561 int res2 = 0 ;
6562 void *argp3 = 0 ;
6563 int res3 = 0 ;
6564 void *argp4 = 0 ;
6565 int res4 = 0 ;
6566 int argvi = 0;
6567 int result;
6568 dXSARGS;
6569
6570 if ((items < 4) || (items > 4)) {
6571 SWIG_croak("Usage: gsl_linalg_LQ_solve_T(LQ,tau,b,x);");
6572 }
6573 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6574 if (!SWIG_IsOK(res1)) {
6575 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LQ_solve_T" "', argument " "1"" of type '" "gsl_matrix const *""'");
6576 }
6577 arg1 = (gsl_matrix *)(argp1);
6578 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
6579 if (!SWIG_IsOK(res2)) {
6580 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_LQ_solve_T" "', argument " "2"" of type '" "gsl_vector const *""'");
6581 }
6582 arg2 = (gsl_vector *)(argp2);
6583 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
6584 if (!SWIG_IsOK(res3)) {
6585 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_LQ_solve_T" "', argument " "3"" of type '" "gsl_vector const *""'");
6586 }
6587 arg3 = (gsl_vector *)(argp3);
6588 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
6589 if (!SWIG_IsOK(res4)) {
6590 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_LQ_solve_T" "', argument " "4"" of type '" "gsl_vector *""'");
6591 }
6592 arg4 = (gsl_vector *)(argp4);
6593 result = (int)gsl_linalg_LQ_solve_T((gsl_matrix const *)arg1,(gsl_vector const *)arg2,(gsl_vector const *)arg3,arg4);
6594 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6595
6596
6597
6598
6599 XSRETURN(argvi);
6600 fail:
6601
6602
6603
6604
6605 SWIG_croak_null();
6606 }
6607 }
6608
6609
XS(_wrap_gsl_linalg_LQ_svx_T)6610 XS(_wrap_gsl_linalg_LQ_svx_T) {
6611 {
6612 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
6613 gsl_vector *arg2 = (gsl_vector *) 0 ;
6614 gsl_vector *arg3 = (gsl_vector *) 0 ;
6615 void *argp1 = 0 ;
6616 int res1 = 0 ;
6617 void *argp2 = 0 ;
6618 int res2 = 0 ;
6619 void *argp3 = 0 ;
6620 int res3 = 0 ;
6621 int argvi = 0;
6622 int result;
6623 dXSARGS;
6624
6625 if ((items < 3) || (items > 3)) {
6626 SWIG_croak("Usage: gsl_linalg_LQ_svx_T(LQ,tau,x);");
6627 }
6628 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6629 if (!SWIG_IsOK(res1)) {
6630 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LQ_svx_T" "', argument " "1"" of type '" "gsl_matrix const *""'");
6631 }
6632 arg1 = (gsl_matrix *)(argp1);
6633 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
6634 if (!SWIG_IsOK(res2)) {
6635 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_LQ_svx_T" "', argument " "2"" of type '" "gsl_vector const *""'");
6636 }
6637 arg2 = (gsl_vector *)(argp2);
6638 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
6639 if (!SWIG_IsOK(res3)) {
6640 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_LQ_svx_T" "', argument " "3"" of type '" "gsl_vector *""'");
6641 }
6642 arg3 = (gsl_vector *)(argp3);
6643 result = (int)gsl_linalg_LQ_svx_T((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3);
6644 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6645
6646
6647
6648 XSRETURN(argvi);
6649 fail:
6650
6651
6652
6653 SWIG_croak_null();
6654 }
6655 }
6656
6657
XS(_wrap_gsl_linalg_LQ_lssolve_T)6658 XS(_wrap_gsl_linalg_LQ_lssolve_T) {
6659 {
6660 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
6661 gsl_vector *arg2 = (gsl_vector *) 0 ;
6662 gsl_vector *arg3 = (gsl_vector *) 0 ;
6663 gsl_vector *arg4 = (gsl_vector *) 0 ;
6664 gsl_vector *arg5 = (gsl_vector *) 0 ;
6665 void *argp1 = 0 ;
6666 int res1 = 0 ;
6667 void *argp2 = 0 ;
6668 int res2 = 0 ;
6669 void *argp3 = 0 ;
6670 int res3 = 0 ;
6671 void *argp4 = 0 ;
6672 int res4 = 0 ;
6673 void *argp5 = 0 ;
6674 int res5 = 0 ;
6675 int argvi = 0;
6676 int result;
6677 dXSARGS;
6678
6679 if ((items < 5) || (items > 5)) {
6680 SWIG_croak("Usage: gsl_linalg_LQ_lssolve_T(LQ,tau,b,x,residual);");
6681 }
6682 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6683 if (!SWIG_IsOK(res1)) {
6684 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LQ_lssolve_T" "', argument " "1"" of type '" "gsl_matrix const *""'");
6685 }
6686 arg1 = (gsl_matrix *)(argp1);
6687 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
6688 if (!SWIG_IsOK(res2)) {
6689 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_LQ_lssolve_T" "', argument " "2"" of type '" "gsl_vector const *""'");
6690 }
6691 arg2 = (gsl_vector *)(argp2);
6692 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
6693 if (!SWIG_IsOK(res3)) {
6694 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_LQ_lssolve_T" "', argument " "3"" of type '" "gsl_vector const *""'");
6695 }
6696 arg3 = (gsl_vector *)(argp3);
6697 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
6698 if (!SWIG_IsOK(res4)) {
6699 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_LQ_lssolve_T" "', argument " "4"" of type '" "gsl_vector *""'");
6700 }
6701 arg4 = (gsl_vector *)(argp4);
6702 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
6703 if (!SWIG_IsOK(res5)) {
6704 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_LQ_lssolve_T" "', argument " "5"" of type '" "gsl_vector *""'");
6705 }
6706 arg5 = (gsl_vector *)(argp5);
6707 result = (int)gsl_linalg_LQ_lssolve_T((gsl_matrix const *)arg1,(gsl_vector const *)arg2,(gsl_vector const *)arg3,arg4,arg5);
6708 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6709
6710
6711
6712
6713
6714 XSRETURN(argvi);
6715 fail:
6716
6717
6718
6719
6720
6721 SWIG_croak_null();
6722 }
6723 }
6724
6725
XS(_wrap_gsl_linalg_LQ_Lsolve_T)6726 XS(_wrap_gsl_linalg_LQ_Lsolve_T) {
6727 {
6728 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
6729 gsl_vector *arg2 = (gsl_vector *) 0 ;
6730 gsl_vector *arg3 = (gsl_vector *) 0 ;
6731 void *argp1 = 0 ;
6732 int res1 = 0 ;
6733 void *argp2 = 0 ;
6734 int res2 = 0 ;
6735 void *argp3 = 0 ;
6736 int res3 = 0 ;
6737 int argvi = 0;
6738 int result;
6739 dXSARGS;
6740
6741 if ((items < 3) || (items > 3)) {
6742 SWIG_croak("Usage: gsl_linalg_LQ_Lsolve_T(LQ,b,x);");
6743 }
6744 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6745 if (!SWIG_IsOK(res1)) {
6746 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LQ_Lsolve_T" "', argument " "1"" of type '" "gsl_matrix const *""'");
6747 }
6748 arg1 = (gsl_matrix *)(argp1);
6749 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
6750 if (!SWIG_IsOK(res2)) {
6751 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_LQ_Lsolve_T" "', argument " "2"" of type '" "gsl_vector const *""'");
6752 }
6753 arg2 = (gsl_vector *)(argp2);
6754 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
6755 if (!SWIG_IsOK(res3)) {
6756 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_LQ_Lsolve_T" "', argument " "3"" of type '" "gsl_vector *""'");
6757 }
6758 arg3 = (gsl_vector *)(argp3);
6759 result = (int)gsl_linalg_LQ_Lsolve_T((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3);
6760 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6761
6762
6763
6764 XSRETURN(argvi);
6765 fail:
6766
6767
6768
6769 SWIG_croak_null();
6770 }
6771 }
6772
6773
XS(_wrap_gsl_linalg_LQ_Lsvx_T)6774 XS(_wrap_gsl_linalg_LQ_Lsvx_T) {
6775 {
6776 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
6777 gsl_vector *arg2 = (gsl_vector *) 0 ;
6778 void *argp1 = 0 ;
6779 int res1 = 0 ;
6780 void *argp2 = 0 ;
6781 int res2 = 0 ;
6782 int argvi = 0;
6783 int result;
6784 dXSARGS;
6785
6786 if ((items < 2) || (items > 2)) {
6787 SWIG_croak("Usage: gsl_linalg_LQ_Lsvx_T(LQ,x);");
6788 }
6789 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6790 if (!SWIG_IsOK(res1)) {
6791 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LQ_Lsvx_T" "', argument " "1"" of type '" "gsl_matrix const *""'");
6792 }
6793 arg1 = (gsl_matrix *)(argp1);
6794 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
6795 if (!SWIG_IsOK(res2)) {
6796 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_LQ_Lsvx_T" "', argument " "2"" of type '" "gsl_vector *""'");
6797 }
6798 arg2 = (gsl_vector *)(argp2);
6799 result = (int)gsl_linalg_LQ_Lsvx_T((gsl_matrix const *)arg1,arg2);
6800 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6801
6802
6803 XSRETURN(argvi);
6804 fail:
6805
6806
6807 SWIG_croak_null();
6808 }
6809 }
6810
6811
XS(_wrap_gsl_linalg_L_solve_T)6812 XS(_wrap_gsl_linalg_L_solve_T) {
6813 {
6814 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
6815 gsl_vector *arg2 = (gsl_vector *) 0 ;
6816 gsl_vector *arg3 = (gsl_vector *) 0 ;
6817 void *argp1 = 0 ;
6818 int res1 = 0 ;
6819 void *argp2 = 0 ;
6820 int res2 = 0 ;
6821 void *argp3 = 0 ;
6822 int res3 = 0 ;
6823 int argvi = 0;
6824 int result;
6825 dXSARGS;
6826
6827 if ((items < 3) || (items > 3)) {
6828 SWIG_croak("Usage: gsl_linalg_L_solve_T(L,b,x);");
6829 }
6830 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6831 if (!SWIG_IsOK(res1)) {
6832 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_L_solve_T" "', argument " "1"" of type '" "gsl_matrix const *""'");
6833 }
6834 arg1 = (gsl_matrix *)(argp1);
6835 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
6836 if (!SWIG_IsOK(res2)) {
6837 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_L_solve_T" "', argument " "2"" of type '" "gsl_vector const *""'");
6838 }
6839 arg2 = (gsl_vector *)(argp2);
6840 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
6841 if (!SWIG_IsOK(res3)) {
6842 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_L_solve_T" "', argument " "3"" of type '" "gsl_vector *""'");
6843 }
6844 arg3 = (gsl_vector *)(argp3);
6845 result = (int)gsl_linalg_L_solve_T((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3);
6846 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6847
6848
6849
6850 XSRETURN(argvi);
6851 fail:
6852
6853
6854
6855 SWIG_croak_null();
6856 }
6857 }
6858
6859
XS(_wrap_gsl_linalg_LQ_vecQ)6860 XS(_wrap_gsl_linalg_LQ_vecQ) {
6861 {
6862 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
6863 gsl_vector *arg2 = (gsl_vector *) 0 ;
6864 gsl_vector *arg3 = (gsl_vector *) 0 ;
6865 void *argp1 = 0 ;
6866 int res1 = 0 ;
6867 void *argp2 = 0 ;
6868 int res2 = 0 ;
6869 void *argp3 = 0 ;
6870 int res3 = 0 ;
6871 int argvi = 0;
6872 int result;
6873 dXSARGS;
6874
6875 if ((items < 3) || (items > 3)) {
6876 SWIG_croak("Usage: gsl_linalg_LQ_vecQ(LQ,tau,v);");
6877 }
6878 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6879 if (!SWIG_IsOK(res1)) {
6880 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LQ_vecQ" "', argument " "1"" of type '" "gsl_matrix const *""'");
6881 }
6882 arg1 = (gsl_matrix *)(argp1);
6883 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
6884 if (!SWIG_IsOK(res2)) {
6885 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_LQ_vecQ" "', argument " "2"" of type '" "gsl_vector const *""'");
6886 }
6887 arg2 = (gsl_vector *)(argp2);
6888 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
6889 if (!SWIG_IsOK(res3)) {
6890 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_LQ_vecQ" "', argument " "3"" of type '" "gsl_vector *""'");
6891 }
6892 arg3 = (gsl_vector *)(argp3);
6893 result = (int)gsl_linalg_LQ_vecQ((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3);
6894 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6895
6896
6897
6898 XSRETURN(argvi);
6899 fail:
6900
6901
6902
6903 SWIG_croak_null();
6904 }
6905 }
6906
6907
XS(_wrap_gsl_linalg_LQ_vecQT)6908 XS(_wrap_gsl_linalg_LQ_vecQT) {
6909 {
6910 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
6911 gsl_vector *arg2 = (gsl_vector *) 0 ;
6912 gsl_vector *arg3 = (gsl_vector *) 0 ;
6913 void *argp1 = 0 ;
6914 int res1 = 0 ;
6915 void *argp2 = 0 ;
6916 int res2 = 0 ;
6917 void *argp3 = 0 ;
6918 int res3 = 0 ;
6919 int argvi = 0;
6920 int result;
6921 dXSARGS;
6922
6923 if ((items < 3) || (items > 3)) {
6924 SWIG_croak("Usage: gsl_linalg_LQ_vecQT(LQ,tau,v);");
6925 }
6926 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6927 if (!SWIG_IsOK(res1)) {
6928 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LQ_vecQT" "', argument " "1"" of type '" "gsl_matrix const *""'");
6929 }
6930 arg1 = (gsl_matrix *)(argp1);
6931 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
6932 if (!SWIG_IsOK(res2)) {
6933 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_LQ_vecQT" "', argument " "2"" of type '" "gsl_vector const *""'");
6934 }
6935 arg2 = (gsl_vector *)(argp2);
6936 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
6937 if (!SWIG_IsOK(res3)) {
6938 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_LQ_vecQT" "', argument " "3"" of type '" "gsl_vector *""'");
6939 }
6940 arg3 = (gsl_vector *)(argp3);
6941 result = (int)gsl_linalg_LQ_vecQT((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3);
6942 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6943
6944
6945
6946 XSRETURN(argvi);
6947 fail:
6948
6949
6950
6951 SWIG_croak_null();
6952 }
6953 }
6954
6955
XS(_wrap_gsl_linalg_LQ_unpack)6956 XS(_wrap_gsl_linalg_LQ_unpack) {
6957 {
6958 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
6959 gsl_vector *arg2 = (gsl_vector *) 0 ;
6960 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
6961 gsl_matrix *arg4 = (gsl_matrix *) 0 ;
6962 void *argp1 = 0 ;
6963 int res1 = 0 ;
6964 void *argp2 = 0 ;
6965 int res2 = 0 ;
6966 void *argp3 = 0 ;
6967 int res3 = 0 ;
6968 void *argp4 = 0 ;
6969 int res4 = 0 ;
6970 int argvi = 0;
6971 int result;
6972 dXSARGS;
6973
6974 if ((items < 4) || (items > 4)) {
6975 SWIG_croak("Usage: gsl_linalg_LQ_unpack(LQ,tau,Q,L);");
6976 }
6977 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6978 if (!SWIG_IsOK(res1)) {
6979 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LQ_unpack" "', argument " "1"" of type '" "gsl_matrix const *""'");
6980 }
6981 arg1 = (gsl_matrix *)(argp1);
6982 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
6983 if (!SWIG_IsOK(res2)) {
6984 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_LQ_unpack" "', argument " "2"" of type '" "gsl_vector const *""'");
6985 }
6986 arg2 = (gsl_vector *)(argp2);
6987 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6988 if (!SWIG_IsOK(res3)) {
6989 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_LQ_unpack" "', argument " "3"" of type '" "gsl_matrix *""'");
6990 }
6991 arg3 = (gsl_matrix *)(argp3);
6992 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6993 if (!SWIG_IsOK(res4)) {
6994 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_LQ_unpack" "', argument " "4"" of type '" "gsl_matrix *""'");
6995 }
6996 arg4 = (gsl_matrix *)(argp4);
6997 result = (int)gsl_linalg_LQ_unpack((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3,arg4);
6998 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6999
7000
7001
7002
7003 XSRETURN(argvi);
7004 fail:
7005
7006
7007
7008
7009 SWIG_croak_null();
7010 }
7011 }
7012
7013
XS(_wrap_gsl_linalg_LQ_update)7014 XS(_wrap_gsl_linalg_LQ_update) {
7015 {
7016 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
7017 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
7018 gsl_vector *arg3 = (gsl_vector *) 0 ;
7019 gsl_vector *arg4 = (gsl_vector *) 0 ;
7020 void *argp1 = 0 ;
7021 int res1 = 0 ;
7022 void *argp2 = 0 ;
7023 int res2 = 0 ;
7024 void *argp3 = 0 ;
7025 int res3 = 0 ;
7026 void *argp4 = 0 ;
7027 int res4 = 0 ;
7028 int argvi = 0;
7029 int result;
7030 dXSARGS;
7031
7032 if ((items < 4) || (items > 4)) {
7033 SWIG_croak("Usage: gsl_linalg_LQ_update(Q,R,v,w);");
7034 }
7035 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7036 if (!SWIG_IsOK(res1)) {
7037 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LQ_update" "', argument " "1"" of type '" "gsl_matrix *""'");
7038 }
7039 arg1 = (gsl_matrix *)(argp1);
7040 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7041 if (!SWIG_IsOK(res2)) {
7042 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_LQ_update" "', argument " "2"" of type '" "gsl_matrix *""'");
7043 }
7044 arg2 = (gsl_matrix *)(argp2);
7045 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
7046 if (!SWIG_IsOK(res3)) {
7047 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_LQ_update" "', argument " "3"" of type '" "gsl_vector const *""'");
7048 }
7049 arg3 = (gsl_vector *)(argp3);
7050 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
7051 if (!SWIG_IsOK(res4)) {
7052 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_LQ_update" "', argument " "4"" of type '" "gsl_vector *""'");
7053 }
7054 arg4 = (gsl_vector *)(argp4);
7055 result = (int)gsl_linalg_LQ_update(arg1,arg2,(gsl_vector const *)arg3,arg4);
7056 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7057
7058
7059
7060
7061 XSRETURN(argvi);
7062 fail:
7063
7064
7065
7066
7067 SWIG_croak_null();
7068 }
7069 }
7070
7071
XS(_wrap_gsl_linalg_LQ_LQsolve)7072 XS(_wrap_gsl_linalg_LQ_LQsolve) {
7073 {
7074 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
7075 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
7076 gsl_vector *arg3 = (gsl_vector *) 0 ;
7077 gsl_vector *arg4 = (gsl_vector *) 0 ;
7078 void *argp1 = 0 ;
7079 int res1 = 0 ;
7080 void *argp2 = 0 ;
7081 int res2 = 0 ;
7082 void *argp3 = 0 ;
7083 int res3 = 0 ;
7084 void *argp4 = 0 ;
7085 int res4 = 0 ;
7086 int argvi = 0;
7087 int result;
7088 dXSARGS;
7089
7090 if ((items < 4) || (items > 4)) {
7091 SWIG_croak("Usage: gsl_linalg_LQ_LQsolve(Q,L,b,x);");
7092 }
7093 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7094 if (!SWIG_IsOK(res1)) {
7095 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LQ_LQsolve" "', argument " "1"" of type '" "gsl_matrix *""'");
7096 }
7097 arg1 = (gsl_matrix *)(argp1);
7098 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7099 if (!SWIG_IsOK(res2)) {
7100 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_LQ_LQsolve" "', argument " "2"" of type '" "gsl_matrix *""'");
7101 }
7102 arg2 = (gsl_matrix *)(argp2);
7103 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
7104 if (!SWIG_IsOK(res3)) {
7105 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_LQ_LQsolve" "', argument " "3"" of type '" "gsl_vector const *""'");
7106 }
7107 arg3 = (gsl_vector *)(argp3);
7108 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
7109 if (!SWIG_IsOK(res4)) {
7110 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_LQ_LQsolve" "', argument " "4"" of type '" "gsl_vector *""'");
7111 }
7112 arg4 = (gsl_vector *)(argp4);
7113 result = (int)gsl_linalg_LQ_LQsolve(arg1,arg2,(gsl_vector const *)arg3,arg4);
7114 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7115
7116
7117
7118
7119 XSRETURN(argvi);
7120 fail:
7121
7122
7123
7124
7125 SWIG_croak_null();
7126 }
7127 }
7128
7129
XS(_wrap_gsl_linalg_PTLQ_decomp)7130 XS(_wrap_gsl_linalg_PTLQ_decomp) {
7131 {
7132 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
7133 gsl_vector *arg2 = (gsl_vector *) 0 ;
7134 gsl_permutation *arg3 = (gsl_permutation *) 0 ;
7135 int *arg4 = (int *) 0 ;
7136 gsl_vector *arg5 = (gsl_vector *) 0 ;
7137 void *argp1 = 0 ;
7138 int res1 = 0 ;
7139 void *argp2 = 0 ;
7140 int res2 = 0 ;
7141 void *argp3 = 0 ;
7142 int res3 = 0 ;
7143 int temp4 ;
7144 int res4 = SWIG_TMPOBJ ;
7145 void *argp5 = 0 ;
7146 int res5 = 0 ;
7147 int argvi = 0;
7148 int result;
7149 dXSARGS;
7150
7151 arg4 = &temp4;
7152 if ((items < 4) || (items > 4)) {
7153 SWIG_croak("Usage: gsl_linalg_PTLQ_decomp(A,tau,p,norm);");
7154 }
7155 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7156 if (!SWIG_IsOK(res1)) {
7157 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_PTLQ_decomp" "', argument " "1"" of type '" "gsl_matrix *""'");
7158 }
7159 arg1 = (gsl_matrix *)(argp1);
7160 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
7161 if (!SWIG_IsOK(res2)) {
7162 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_PTLQ_decomp" "', argument " "2"" of type '" "gsl_vector *""'");
7163 }
7164 arg2 = (gsl_vector *)(argp2);
7165 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
7166 if (!SWIG_IsOK(res3)) {
7167 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_PTLQ_decomp" "', argument " "3"" of type '" "gsl_permutation *""'");
7168 }
7169 arg3 = (gsl_permutation *)(argp3);
7170 res5 = SWIG_ConvertPtr(ST(3), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
7171 if (!SWIG_IsOK(res5)) {
7172 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_PTLQ_decomp" "', argument " "5"" of type '" "gsl_vector *""'");
7173 }
7174 arg5 = (gsl_vector *)(argp5);
7175 result = (int)gsl_linalg_PTLQ_decomp(arg1,arg2,arg3,arg4,arg5);
7176 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7177 if (SWIG_IsTmpObj(res4)) {
7178 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((*arg4)); argvi++ ;
7179 } else {
7180 int new_flags = SWIG_IsNewObj(res4) ? (SWIG_POINTER_OWN | 0) : 0;
7181 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg4), SWIGTYPE_p_int, new_flags); argvi++ ;
7182 }
7183
7184
7185
7186
7187
7188 XSRETURN(argvi);
7189 fail:
7190
7191
7192
7193
7194
7195 SWIG_croak_null();
7196 }
7197 }
7198
7199
XS(_wrap_gsl_linalg_PTLQ_decomp2)7200 XS(_wrap_gsl_linalg_PTLQ_decomp2) {
7201 {
7202 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
7203 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
7204 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
7205 gsl_vector *arg4 = (gsl_vector *) 0 ;
7206 gsl_permutation *arg5 = (gsl_permutation *) 0 ;
7207 int *arg6 = (int *) 0 ;
7208 gsl_vector *arg7 = (gsl_vector *) 0 ;
7209 void *argp1 = 0 ;
7210 int res1 = 0 ;
7211 void *argp2 = 0 ;
7212 int res2 = 0 ;
7213 void *argp3 = 0 ;
7214 int res3 = 0 ;
7215 void *argp4 = 0 ;
7216 int res4 = 0 ;
7217 void *argp5 = 0 ;
7218 int res5 = 0 ;
7219 int temp6 ;
7220 int res6 = SWIG_TMPOBJ ;
7221 void *argp7 = 0 ;
7222 int res7 = 0 ;
7223 int argvi = 0;
7224 int result;
7225 dXSARGS;
7226
7227 arg6 = &temp6;
7228 if ((items < 6) || (items > 6)) {
7229 SWIG_croak("Usage: gsl_linalg_PTLQ_decomp2(A,q,r,tau,p,norm);");
7230 }
7231 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7232 if (!SWIG_IsOK(res1)) {
7233 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_PTLQ_decomp2" "', argument " "1"" of type '" "gsl_matrix const *""'");
7234 }
7235 arg1 = (gsl_matrix *)(argp1);
7236 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7237 if (!SWIG_IsOK(res2)) {
7238 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_PTLQ_decomp2" "', argument " "2"" of type '" "gsl_matrix *""'");
7239 }
7240 arg2 = (gsl_matrix *)(argp2);
7241 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7242 if (!SWIG_IsOK(res3)) {
7243 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_PTLQ_decomp2" "', argument " "3"" of type '" "gsl_matrix *""'");
7244 }
7245 arg3 = (gsl_matrix *)(argp3);
7246 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
7247 if (!SWIG_IsOK(res4)) {
7248 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_PTLQ_decomp2" "', argument " "4"" of type '" "gsl_vector *""'");
7249 }
7250 arg4 = (gsl_vector *)(argp4);
7251 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
7252 if (!SWIG_IsOK(res5)) {
7253 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_PTLQ_decomp2" "', argument " "5"" of type '" "gsl_permutation *""'");
7254 }
7255 arg5 = (gsl_permutation *)(argp5);
7256 res7 = SWIG_ConvertPtr(ST(5), &argp7,SWIGTYPE_p_gsl_vector, 0 | 0 );
7257 if (!SWIG_IsOK(res7)) {
7258 SWIG_exception_fail(SWIG_ArgError(res7), "in method '" "gsl_linalg_PTLQ_decomp2" "', argument " "7"" of type '" "gsl_vector *""'");
7259 }
7260 arg7 = (gsl_vector *)(argp7);
7261 result = (int)gsl_linalg_PTLQ_decomp2((gsl_matrix const *)arg1,arg2,arg3,arg4,arg5,arg6,arg7);
7262 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7263 if (SWIG_IsTmpObj(res6)) {
7264 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((*arg6)); argvi++ ;
7265 } else {
7266 int new_flags = SWIG_IsNewObj(res6) ? (SWIG_POINTER_OWN | 0) : 0;
7267 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg6), SWIGTYPE_p_int, new_flags); argvi++ ;
7268 }
7269
7270
7271
7272
7273
7274
7275
7276 XSRETURN(argvi);
7277 fail:
7278
7279
7280
7281
7282
7283
7284
7285 SWIG_croak_null();
7286 }
7287 }
7288
7289
XS(_wrap_gsl_linalg_PTLQ_solve_T)7290 XS(_wrap_gsl_linalg_PTLQ_solve_T) {
7291 {
7292 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
7293 gsl_vector *arg2 = (gsl_vector *) 0 ;
7294 gsl_permutation *arg3 = (gsl_permutation *) 0 ;
7295 gsl_vector *arg4 = (gsl_vector *) 0 ;
7296 gsl_vector *arg5 = (gsl_vector *) 0 ;
7297 void *argp1 = 0 ;
7298 int res1 = 0 ;
7299 void *argp2 = 0 ;
7300 int res2 = 0 ;
7301 void *argp3 = 0 ;
7302 int res3 = 0 ;
7303 void *argp4 = 0 ;
7304 int res4 = 0 ;
7305 void *argp5 = 0 ;
7306 int res5 = 0 ;
7307 int argvi = 0;
7308 int result;
7309 dXSARGS;
7310
7311 if ((items < 5) || (items > 5)) {
7312 SWIG_croak("Usage: gsl_linalg_PTLQ_solve_T(QR,tau,p,b,x);");
7313 }
7314 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7315 if (!SWIG_IsOK(res1)) {
7316 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_PTLQ_solve_T" "', argument " "1"" of type '" "gsl_matrix const *""'");
7317 }
7318 arg1 = (gsl_matrix *)(argp1);
7319 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
7320 if (!SWIG_IsOK(res2)) {
7321 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_PTLQ_solve_T" "', argument " "2"" of type '" "gsl_vector const *""'");
7322 }
7323 arg2 = (gsl_vector *)(argp2);
7324 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
7325 if (!SWIG_IsOK(res3)) {
7326 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_PTLQ_solve_T" "', argument " "3"" of type '" "gsl_permutation const *""'");
7327 }
7328 arg3 = (gsl_permutation *)(argp3);
7329 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
7330 if (!SWIG_IsOK(res4)) {
7331 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_PTLQ_solve_T" "', argument " "4"" of type '" "gsl_vector const *""'");
7332 }
7333 arg4 = (gsl_vector *)(argp4);
7334 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
7335 if (!SWIG_IsOK(res5)) {
7336 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_PTLQ_solve_T" "', argument " "5"" of type '" "gsl_vector *""'");
7337 }
7338 arg5 = (gsl_vector *)(argp5);
7339 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);
7340 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7341
7342
7343
7344
7345
7346 XSRETURN(argvi);
7347 fail:
7348
7349
7350
7351
7352
7353 SWIG_croak_null();
7354 }
7355 }
7356
7357
XS(_wrap_gsl_linalg_PTLQ_svx_T)7358 XS(_wrap_gsl_linalg_PTLQ_svx_T) {
7359 {
7360 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
7361 gsl_vector *arg2 = (gsl_vector *) 0 ;
7362 gsl_permutation *arg3 = (gsl_permutation *) 0 ;
7363 gsl_vector *arg4 = (gsl_vector *) 0 ;
7364 void *argp1 = 0 ;
7365 int res1 = 0 ;
7366 void *argp2 = 0 ;
7367 int res2 = 0 ;
7368 void *argp3 = 0 ;
7369 int res3 = 0 ;
7370 void *argp4 = 0 ;
7371 int res4 = 0 ;
7372 int argvi = 0;
7373 int result;
7374 dXSARGS;
7375
7376 if ((items < 4) || (items > 4)) {
7377 SWIG_croak("Usage: gsl_linalg_PTLQ_svx_T(LQ,tau,p,x);");
7378 }
7379 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7380 if (!SWIG_IsOK(res1)) {
7381 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_PTLQ_svx_T" "', argument " "1"" of type '" "gsl_matrix const *""'");
7382 }
7383 arg1 = (gsl_matrix *)(argp1);
7384 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
7385 if (!SWIG_IsOK(res2)) {
7386 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_PTLQ_svx_T" "', argument " "2"" of type '" "gsl_vector const *""'");
7387 }
7388 arg2 = (gsl_vector *)(argp2);
7389 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
7390 if (!SWIG_IsOK(res3)) {
7391 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_PTLQ_svx_T" "', argument " "3"" of type '" "gsl_permutation const *""'");
7392 }
7393 arg3 = (gsl_permutation *)(argp3);
7394 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
7395 if (!SWIG_IsOK(res4)) {
7396 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_PTLQ_svx_T" "', argument " "4"" of type '" "gsl_vector *""'");
7397 }
7398 arg4 = (gsl_vector *)(argp4);
7399 result = (int)gsl_linalg_PTLQ_svx_T((gsl_matrix const *)arg1,(gsl_vector const *)arg2,(struct gsl_permutation_struct const *)arg3,arg4);
7400 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7401
7402
7403
7404
7405 XSRETURN(argvi);
7406 fail:
7407
7408
7409
7410
7411 SWIG_croak_null();
7412 }
7413 }
7414
7415
XS(_wrap_gsl_linalg_PTLQ_LQsolve_T)7416 XS(_wrap_gsl_linalg_PTLQ_LQsolve_T) {
7417 {
7418 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
7419 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
7420 gsl_permutation *arg3 = (gsl_permutation *) 0 ;
7421 gsl_vector *arg4 = (gsl_vector *) 0 ;
7422 gsl_vector *arg5 = (gsl_vector *) 0 ;
7423 void *argp1 = 0 ;
7424 int res1 = 0 ;
7425 void *argp2 = 0 ;
7426 int res2 = 0 ;
7427 void *argp3 = 0 ;
7428 int res3 = 0 ;
7429 void *argp4 = 0 ;
7430 int res4 = 0 ;
7431 void *argp5 = 0 ;
7432 int res5 = 0 ;
7433 int argvi = 0;
7434 int result;
7435 dXSARGS;
7436
7437 if ((items < 5) || (items > 5)) {
7438 SWIG_croak("Usage: gsl_linalg_PTLQ_LQsolve_T(Q,L,p,b,x);");
7439 }
7440 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7441 if (!SWIG_IsOK(res1)) {
7442 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_PTLQ_LQsolve_T" "', argument " "1"" of type '" "gsl_matrix const *""'");
7443 }
7444 arg1 = (gsl_matrix *)(argp1);
7445 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7446 if (!SWIG_IsOK(res2)) {
7447 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_PTLQ_LQsolve_T" "', argument " "2"" of type '" "gsl_matrix const *""'");
7448 }
7449 arg2 = (gsl_matrix *)(argp2);
7450 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
7451 if (!SWIG_IsOK(res3)) {
7452 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_PTLQ_LQsolve_T" "', argument " "3"" of type '" "gsl_permutation const *""'");
7453 }
7454 arg3 = (gsl_permutation *)(argp3);
7455 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
7456 if (!SWIG_IsOK(res4)) {
7457 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_PTLQ_LQsolve_T" "', argument " "4"" of type '" "gsl_vector const *""'");
7458 }
7459 arg4 = (gsl_vector *)(argp4);
7460 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
7461 if (!SWIG_IsOK(res5)) {
7462 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_PTLQ_LQsolve_T" "', argument " "5"" of type '" "gsl_vector *""'");
7463 }
7464 arg5 = (gsl_vector *)(argp5);
7465 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);
7466 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7467
7468
7469
7470
7471
7472 XSRETURN(argvi);
7473 fail:
7474
7475
7476
7477
7478
7479 SWIG_croak_null();
7480 }
7481 }
7482
7483
XS(_wrap_gsl_linalg_PTLQ_Lsolve_T)7484 XS(_wrap_gsl_linalg_PTLQ_Lsolve_T) {
7485 {
7486 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
7487 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
7488 gsl_vector *arg3 = (gsl_vector *) 0 ;
7489 gsl_vector *arg4 = (gsl_vector *) 0 ;
7490 void *argp1 = 0 ;
7491 int res1 = 0 ;
7492 void *argp2 = 0 ;
7493 int res2 = 0 ;
7494 void *argp3 = 0 ;
7495 int res3 = 0 ;
7496 void *argp4 = 0 ;
7497 int res4 = 0 ;
7498 int argvi = 0;
7499 int result;
7500 dXSARGS;
7501
7502 if ((items < 4) || (items > 4)) {
7503 SWIG_croak("Usage: gsl_linalg_PTLQ_Lsolve_T(LQ,p,b,x);");
7504 }
7505 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7506 if (!SWIG_IsOK(res1)) {
7507 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_PTLQ_Lsolve_T" "', argument " "1"" of type '" "gsl_matrix const *""'");
7508 }
7509 arg1 = (gsl_matrix *)(argp1);
7510 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
7511 if (!SWIG_IsOK(res2)) {
7512 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_PTLQ_Lsolve_T" "', argument " "2"" of type '" "gsl_permutation const *""'");
7513 }
7514 arg2 = (gsl_permutation *)(argp2);
7515 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
7516 if (!SWIG_IsOK(res3)) {
7517 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_PTLQ_Lsolve_T" "', argument " "3"" of type '" "gsl_vector const *""'");
7518 }
7519 arg3 = (gsl_vector *)(argp3);
7520 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
7521 if (!SWIG_IsOK(res4)) {
7522 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_PTLQ_Lsolve_T" "', argument " "4"" of type '" "gsl_vector *""'");
7523 }
7524 arg4 = (gsl_vector *)(argp4);
7525 result = (int)gsl_linalg_PTLQ_Lsolve_T((gsl_matrix const *)arg1,(struct gsl_permutation_struct const *)arg2,(gsl_vector const *)arg3,arg4);
7526 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7527
7528
7529
7530
7531 XSRETURN(argvi);
7532 fail:
7533
7534
7535
7536
7537 SWIG_croak_null();
7538 }
7539 }
7540
7541
XS(_wrap_gsl_linalg_PTLQ_Lsvx_T)7542 XS(_wrap_gsl_linalg_PTLQ_Lsvx_T) {
7543 {
7544 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
7545 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
7546 gsl_vector *arg3 = (gsl_vector *) 0 ;
7547 void *argp1 = 0 ;
7548 int res1 = 0 ;
7549 void *argp2 = 0 ;
7550 int res2 = 0 ;
7551 void *argp3 = 0 ;
7552 int res3 = 0 ;
7553 int argvi = 0;
7554 int result;
7555 dXSARGS;
7556
7557 if ((items < 3) || (items > 3)) {
7558 SWIG_croak("Usage: gsl_linalg_PTLQ_Lsvx_T(LQ,p,x);");
7559 }
7560 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7561 if (!SWIG_IsOK(res1)) {
7562 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_PTLQ_Lsvx_T" "', argument " "1"" of type '" "gsl_matrix const *""'");
7563 }
7564 arg1 = (gsl_matrix *)(argp1);
7565 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
7566 if (!SWIG_IsOK(res2)) {
7567 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_PTLQ_Lsvx_T" "', argument " "2"" of type '" "gsl_permutation const *""'");
7568 }
7569 arg2 = (gsl_permutation *)(argp2);
7570 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
7571 if (!SWIG_IsOK(res3)) {
7572 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_PTLQ_Lsvx_T" "', argument " "3"" of type '" "gsl_vector *""'");
7573 }
7574 arg3 = (gsl_vector *)(argp3);
7575 result = (int)gsl_linalg_PTLQ_Lsvx_T((gsl_matrix const *)arg1,(struct gsl_permutation_struct const *)arg2,arg3);
7576 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7577
7578
7579
7580 XSRETURN(argvi);
7581 fail:
7582
7583
7584
7585 SWIG_croak_null();
7586 }
7587 }
7588
7589
XS(_wrap_gsl_linalg_PTLQ_update)7590 XS(_wrap_gsl_linalg_PTLQ_update) {
7591 {
7592 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
7593 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
7594 gsl_permutation *arg3 = (gsl_permutation *) 0 ;
7595 gsl_vector *arg4 = (gsl_vector *) 0 ;
7596 gsl_vector *arg5 = (gsl_vector *) 0 ;
7597 void *argp1 = 0 ;
7598 int res1 = 0 ;
7599 void *argp2 = 0 ;
7600 int res2 = 0 ;
7601 void *argp3 = 0 ;
7602 int res3 = 0 ;
7603 void *argp4 = 0 ;
7604 int res4 = 0 ;
7605 void *argp5 = 0 ;
7606 int res5 = 0 ;
7607 int argvi = 0;
7608 int result;
7609 dXSARGS;
7610
7611 if ((items < 5) || (items > 5)) {
7612 SWIG_croak("Usage: gsl_linalg_PTLQ_update(Q,L,p,v,w);");
7613 }
7614 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7615 if (!SWIG_IsOK(res1)) {
7616 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_PTLQ_update" "', argument " "1"" of type '" "gsl_matrix *""'");
7617 }
7618 arg1 = (gsl_matrix *)(argp1);
7619 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7620 if (!SWIG_IsOK(res2)) {
7621 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_PTLQ_update" "', argument " "2"" of type '" "gsl_matrix *""'");
7622 }
7623 arg2 = (gsl_matrix *)(argp2);
7624 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
7625 if (!SWIG_IsOK(res3)) {
7626 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_PTLQ_update" "', argument " "3"" of type '" "gsl_permutation const *""'");
7627 }
7628 arg3 = (gsl_permutation *)(argp3);
7629 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
7630 if (!SWIG_IsOK(res4)) {
7631 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_PTLQ_update" "', argument " "4"" of type '" "gsl_vector const *""'");
7632 }
7633 arg4 = (gsl_vector *)(argp4);
7634 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
7635 if (!SWIG_IsOK(res5)) {
7636 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_PTLQ_update" "', argument " "5"" of type '" "gsl_vector *""'");
7637 }
7638 arg5 = (gsl_vector *)(argp5);
7639 result = (int)gsl_linalg_PTLQ_update(arg1,arg2,(struct gsl_permutation_struct const *)arg3,(gsl_vector const *)arg4,arg5);
7640 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7641
7642
7643
7644
7645
7646 XSRETURN(argvi);
7647 fail:
7648
7649
7650
7651
7652
7653 SWIG_croak_null();
7654 }
7655 }
7656
7657
XS(_wrap_gsl_linalg_cholesky_decomp)7658 XS(_wrap_gsl_linalg_cholesky_decomp) {
7659 {
7660 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
7661 void *argp1 = 0 ;
7662 int res1 = 0 ;
7663 int argvi = 0;
7664 int result;
7665 dXSARGS;
7666
7667 if ((items < 1) || (items > 1)) {
7668 SWIG_croak("Usage: gsl_linalg_cholesky_decomp(A);");
7669 }
7670 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7671 if (!SWIG_IsOK(res1)) {
7672 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_cholesky_decomp" "', argument " "1"" of type '" "gsl_matrix *""'");
7673 }
7674 arg1 = (gsl_matrix *)(argp1);
7675 result = (int)gsl_linalg_cholesky_decomp(arg1);
7676 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7677
7678 XSRETURN(argvi);
7679 fail:
7680
7681 SWIG_croak_null();
7682 }
7683 }
7684
7685
XS(_wrap_gsl_linalg_cholesky_decomp1)7686 XS(_wrap_gsl_linalg_cholesky_decomp1) {
7687 {
7688 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
7689 void *argp1 = 0 ;
7690 int res1 = 0 ;
7691 int argvi = 0;
7692 int result;
7693 dXSARGS;
7694
7695 if ((items < 1) || (items > 1)) {
7696 SWIG_croak("Usage: gsl_linalg_cholesky_decomp1(A);");
7697 }
7698 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7699 if (!SWIG_IsOK(res1)) {
7700 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_cholesky_decomp1" "', argument " "1"" of type '" "gsl_matrix *""'");
7701 }
7702 arg1 = (gsl_matrix *)(argp1);
7703 result = (int)gsl_linalg_cholesky_decomp1(arg1);
7704 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7705
7706 XSRETURN(argvi);
7707 fail:
7708
7709 SWIG_croak_null();
7710 }
7711 }
7712
7713
XS(_wrap_gsl_linalg_cholesky_solve)7714 XS(_wrap_gsl_linalg_cholesky_solve) {
7715 {
7716 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
7717 gsl_vector *arg2 = (gsl_vector *) 0 ;
7718 gsl_vector *arg3 = (gsl_vector *) 0 ;
7719 void *argp1 = 0 ;
7720 int res1 = 0 ;
7721 void *argp2 = 0 ;
7722 int res2 = 0 ;
7723 void *argp3 = 0 ;
7724 int res3 = 0 ;
7725 int argvi = 0;
7726 int result;
7727 dXSARGS;
7728
7729 if ((items < 3) || (items > 3)) {
7730 SWIG_croak("Usage: gsl_linalg_cholesky_solve(cholesky,b,x);");
7731 }
7732 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7733 if (!SWIG_IsOK(res1)) {
7734 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_cholesky_solve" "', argument " "1"" of type '" "gsl_matrix const *""'");
7735 }
7736 arg1 = (gsl_matrix *)(argp1);
7737 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
7738 if (!SWIG_IsOK(res2)) {
7739 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_cholesky_solve" "', argument " "2"" of type '" "gsl_vector const *""'");
7740 }
7741 arg2 = (gsl_vector *)(argp2);
7742 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
7743 if (!SWIG_IsOK(res3)) {
7744 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_cholesky_solve" "', argument " "3"" of type '" "gsl_vector *""'");
7745 }
7746 arg3 = (gsl_vector *)(argp3);
7747 result = (int)gsl_linalg_cholesky_solve((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3);
7748 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7749
7750
7751
7752 XSRETURN(argvi);
7753 fail:
7754
7755
7756
7757 SWIG_croak_null();
7758 }
7759 }
7760
7761
XS(_wrap_gsl_linalg_cholesky_svx)7762 XS(_wrap_gsl_linalg_cholesky_svx) {
7763 {
7764 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
7765 gsl_vector *arg2 = (gsl_vector *) 0 ;
7766 void *argp1 = 0 ;
7767 int res1 = 0 ;
7768 void *argp2 = 0 ;
7769 int res2 = 0 ;
7770 int argvi = 0;
7771 int result;
7772 dXSARGS;
7773
7774 if ((items < 2) || (items > 2)) {
7775 SWIG_croak("Usage: gsl_linalg_cholesky_svx(cholesky,x);");
7776 }
7777 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7778 if (!SWIG_IsOK(res1)) {
7779 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_cholesky_svx" "', argument " "1"" of type '" "gsl_matrix const *""'");
7780 }
7781 arg1 = (gsl_matrix *)(argp1);
7782 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
7783 if (!SWIG_IsOK(res2)) {
7784 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_cholesky_svx" "', argument " "2"" of type '" "gsl_vector *""'");
7785 }
7786 arg2 = (gsl_vector *)(argp2);
7787 result = (int)gsl_linalg_cholesky_svx((gsl_matrix const *)arg1,arg2);
7788 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7789
7790
7791 XSRETURN(argvi);
7792 fail:
7793
7794
7795 SWIG_croak_null();
7796 }
7797 }
7798
7799
XS(_wrap_gsl_linalg_cholesky_invert)7800 XS(_wrap_gsl_linalg_cholesky_invert) {
7801 {
7802 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
7803 void *argp1 = 0 ;
7804 int res1 = 0 ;
7805 int argvi = 0;
7806 int result;
7807 dXSARGS;
7808
7809 if ((items < 1) || (items > 1)) {
7810 SWIG_croak("Usage: gsl_linalg_cholesky_invert(cholesky);");
7811 }
7812 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7813 if (!SWIG_IsOK(res1)) {
7814 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_cholesky_invert" "', argument " "1"" of type '" "gsl_matrix *""'");
7815 }
7816 arg1 = (gsl_matrix *)(argp1);
7817 result = (int)gsl_linalg_cholesky_invert(arg1);
7818 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7819
7820 XSRETURN(argvi);
7821 fail:
7822
7823 SWIG_croak_null();
7824 }
7825 }
7826
7827
XS(_wrap_gsl_linalg_cholesky_decomp_unit)7828 XS(_wrap_gsl_linalg_cholesky_decomp_unit) {
7829 {
7830 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
7831 gsl_vector *arg2 = (gsl_vector *) 0 ;
7832 void *argp1 = 0 ;
7833 int res1 = 0 ;
7834 void *argp2 = 0 ;
7835 int res2 = 0 ;
7836 int argvi = 0;
7837 int result;
7838 dXSARGS;
7839
7840 if ((items < 2) || (items > 2)) {
7841 SWIG_croak("Usage: gsl_linalg_cholesky_decomp_unit(A,D);");
7842 }
7843 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7844 if (!SWIG_IsOK(res1)) {
7845 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_cholesky_decomp_unit" "', argument " "1"" of type '" "gsl_matrix *""'");
7846 }
7847 arg1 = (gsl_matrix *)(argp1);
7848 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
7849 if (!SWIG_IsOK(res2)) {
7850 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_cholesky_decomp_unit" "', argument " "2"" of type '" "gsl_vector *""'");
7851 }
7852 arg2 = (gsl_vector *)(argp2);
7853 result = (int)gsl_linalg_cholesky_decomp_unit(arg1,arg2);
7854 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7855
7856
7857 XSRETURN(argvi);
7858 fail:
7859
7860
7861 SWIG_croak_null();
7862 }
7863 }
7864
7865
XS(_wrap_gsl_linalg_cholesky_scale)7866 XS(_wrap_gsl_linalg_cholesky_scale) {
7867 {
7868 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
7869 gsl_vector *arg2 = (gsl_vector *) 0 ;
7870 void *argp1 = 0 ;
7871 int res1 = 0 ;
7872 void *argp2 = 0 ;
7873 int res2 = 0 ;
7874 int argvi = 0;
7875 int result;
7876 dXSARGS;
7877
7878 if ((items < 2) || (items > 2)) {
7879 SWIG_croak("Usage: gsl_linalg_cholesky_scale(A,S);");
7880 }
7881 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7882 if (!SWIG_IsOK(res1)) {
7883 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_cholesky_scale" "', argument " "1"" of type '" "gsl_matrix const *""'");
7884 }
7885 arg1 = (gsl_matrix *)(argp1);
7886 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
7887 if (!SWIG_IsOK(res2)) {
7888 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_cholesky_scale" "', argument " "2"" of type '" "gsl_vector *""'");
7889 }
7890 arg2 = (gsl_vector *)(argp2);
7891 result = (int)gsl_linalg_cholesky_scale((gsl_matrix const *)arg1,arg2);
7892 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7893
7894
7895 XSRETURN(argvi);
7896 fail:
7897
7898
7899 SWIG_croak_null();
7900 }
7901 }
7902
7903
XS(_wrap_gsl_linalg_cholesky_scale_apply)7904 XS(_wrap_gsl_linalg_cholesky_scale_apply) {
7905 {
7906 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
7907 gsl_vector *arg2 = (gsl_vector *) 0 ;
7908 void *argp1 = 0 ;
7909 int res1 = 0 ;
7910 void *argp2 = 0 ;
7911 int res2 = 0 ;
7912 int argvi = 0;
7913 int result;
7914 dXSARGS;
7915
7916 if ((items < 2) || (items > 2)) {
7917 SWIG_croak("Usage: gsl_linalg_cholesky_scale_apply(A,S);");
7918 }
7919 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7920 if (!SWIG_IsOK(res1)) {
7921 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_cholesky_scale_apply" "', argument " "1"" of type '" "gsl_matrix *""'");
7922 }
7923 arg1 = (gsl_matrix *)(argp1);
7924 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
7925 if (!SWIG_IsOK(res2)) {
7926 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_cholesky_scale_apply" "', argument " "2"" of type '" "gsl_vector const *""'");
7927 }
7928 arg2 = (gsl_vector *)(argp2);
7929 result = (int)gsl_linalg_cholesky_scale_apply(arg1,(gsl_vector const *)arg2);
7930 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7931
7932
7933 XSRETURN(argvi);
7934 fail:
7935
7936
7937 SWIG_croak_null();
7938 }
7939 }
7940
7941
XS(_wrap_gsl_linalg_cholesky_decomp2)7942 XS(_wrap_gsl_linalg_cholesky_decomp2) {
7943 {
7944 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
7945 gsl_vector *arg2 = (gsl_vector *) 0 ;
7946 void *argp1 = 0 ;
7947 int res1 = 0 ;
7948 void *argp2 = 0 ;
7949 int res2 = 0 ;
7950 int argvi = 0;
7951 int result;
7952 dXSARGS;
7953
7954 if ((items < 2) || (items > 2)) {
7955 SWIG_croak("Usage: gsl_linalg_cholesky_decomp2(A,S);");
7956 }
7957 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7958 if (!SWIG_IsOK(res1)) {
7959 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_cholesky_decomp2" "', argument " "1"" of type '" "gsl_matrix *""'");
7960 }
7961 arg1 = (gsl_matrix *)(argp1);
7962 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
7963 if (!SWIG_IsOK(res2)) {
7964 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_cholesky_decomp2" "', argument " "2"" of type '" "gsl_vector *""'");
7965 }
7966 arg2 = (gsl_vector *)(argp2);
7967 result = (int)gsl_linalg_cholesky_decomp2(arg1,arg2);
7968 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7969
7970
7971 XSRETURN(argvi);
7972 fail:
7973
7974
7975 SWIG_croak_null();
7976 }
7977 }
7978
7979
XS(_wrap_gsl_linalg_cholesky_svx2)7980 XS(_wrap_gsl_linalg_cholesky_svx2) {
7981 {
7982 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
7983 gsl_vector *arg2 = (gsl_vector *) 0 ;
7984 gsl_vector *arg3 = (gsl_vector *) 0 ;
7985 void *argp1 = 0 ;
7986 int res1 = 0 ;
7987 void *argp2 = 0 ;
7988 int res2 = 0 ;
7989 void *argp3 = 0 ;
7990 int res3 = 0 ;
7991 int argvi = 0;
7992 int result;
7993 dXSARGS;
7994
7995 if ((items < 3) || (items > 3)) {
7996 SWIG_croak("Usage: gsl_linalg_cholesky_svx2(LLT,S,x);");
7997 }
7998 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7999 if (!SWIG_IsOK(res1)) {
8000 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_cholesky_svx2" "', argument " "1"" of type '" "gsl_matrix const *""'");
8001 }
8002 arg1 = (gsl_matrix *)(argp1);
8003 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
8004 if (!SWIG_IsOK(res2)) {
8005 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_cholesky_svx2" "', argument " "2"" of type '" "gsl_vector const *""'");
8006 }
8007 arg2 = (gsl_vector *)(argp2);
8008 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
8009 if (!SWIG_IsOK(res3)) {
8010 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_cholesky_svx2" "', argument " "3"" of type '" "gsl_vector *""'");
8011 }
8012 arg3 = (gsl_vector *)(argp3);
8013 result = (int)gsl_linalg_cholesky_svx2((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3);
8014 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8015
8016
8017
8018 XSRETURN(argvi);
8019 fail:
8020
8021
8022
8023 SWIG_croak_null();
8024 }
8025 }
8026
8027
XS(_wrap_gsl_linalg_cholesky_solve2)8028 XS(_wrap_gsl_linalg_cholesky_solve2) {
8029 {
8030 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
8031 gsl_vector *arg2 = (gsl_vector *) 0 ;
8032 gsl_vector *arg3 = (gsl_vector *) 0 ;
8033 gsl_vector *arg4 = (gsl_vector *) 0 ;
8034 void *argp1 = 0 ;
8035 int res1 = 0 ;
8036 void *argp2 = 0 ;
8037 int res2 = 0 ;
8038 void *argp3 = 0 ;
8039 int res3 = 0 ;
8040 void *argp4 = 0 ;
8041 int res4 = 0 ;
8042 int argvi = 0;
8043 int result;
8044 dXSARGS;
8045
8046 if ((items < 4) || (items > 4)) {
8047 SWIG_croak("Usage: gsl_linalg_cholesky_solve2(LLT,S,b,x);");
8048 }
8049 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
8050 if (!SWIG_IsOK(res1)) {
8051 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_cholesky_solve2" "', argument " "1"" of type '" "gsl_matrix const *""'");
8052 }
8053 arg1 = (gsl_matrix *)(argp1);
8054 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
8055 if (!SWIG_IsOK(res2)) {
8056 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_cholesky_solve2" "', argument " "2"" of type '" "gsl_vector const *""'");
8057 }
8058 arg2 = (gsl_vector *)(argp2);
8059 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
8060 if (!SWIG_IsOK(res3)) {
8061 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_cholesky_solve2" "', argument " "3"" of type '" "gsl_vector const *""'");
8062 }
8063 arg3 = (gsl_vector *)(argp3);
8064 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
8065 if (!SWIG_IsOK(res4)) {
8066 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_cholesky_solve2" "', argument " "4"" of type '" "gsl_vector *""'");
8067 }
8068 arg4 = (gsl_vector *)(argp4);
8069 result = (int)gsl_linalg_cholesky_solve2((gsl_matrix const *)arg1,(gsl_vector const *)arg2,(gsl_vector const *)arg3,arg4);
8070 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8071
8072
8073
8074
8075 XSRETURN(argvi);
8076 fail:
8077
8078
8079
8080
8081 SWIG_croak_null();
8082 }
8083 }
8084
8085
XS(_wrap_gsl_linalg_cholesky_rcond)8086 XS(_wrap_gsl_linalg_cholesky_rcond) {
8087 {
8088 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
8089 double *arg2 = (double *) 0 ;
8090 gsl_vector *arg3 = (gsl_vector *) 0 ;
8091 void *argp1 = 0 ;
8092 int res1 = 0 ;
8093 void *argp2 = 0 ;
8094 int res2 = 0 ;
8095 void *argp3 = 0 ;
8096 int res3 = 0 ;
8097 int argvi = 0;
8098 int result;
8099 dXSARGS;
8100
8101 if ((items < 3) || (items > 3)) {
8102 SWIG_croak("Usage: gsl_linalg_cholesky_rcond(LLT,rcond,work);");
8103 }
8104 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
8105 if (!SWIG_IsOK(res1)) {
8106 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_cholesky_rcond" "', argument " "1"" of type '" "gsl_matrix const *""'");
8107 }
8108 arg1 = (gsl_matrix *)(argp1);
8109 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_double, 0 | 0 );
8110 if (!SWIG_IsOK(res2)) {
8111 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_cholesky_rcond" "', argument " "2"" of type '" "double *""'");
8112 }
8113 arg2 = (double *)(argp2);
8114 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
8115 if (!SWIG_IsOK(res3)) {
8116 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_cholesky_rcond" "', argument " "3"" of type '" "gsl_vector *""'");
8117 }
8118 arg3 = (gsl_vector *)(argp3);
8119 result = (int)gsl_linalg_cholesky_rcond((gsl_matrix const *)arg1,arg2,arg3);
8120 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8121
8122
8123
8124 XSRETURN(argvi);
8125 fail:
8126
8127
8128
8129 SWIG_croak_null();
8130 }
8131 }
8132
8133
XS(_wrap_gsl_linalg_complex_cholesky_decomp)8134 XS(_wrap_gsl_linalg_complex_cholesky_decomp) {
8135 {
8136 gsl_matrix_complex *arg1 = (gsl_matrix_complex *) 0 ;
8137 void *argp1 = 0 ;
8138 int res1 = 0 ;
8139 int argvi = 0;
8140 int result;
8141 dXSARGS;
8142
8143 if ((items < 1) || (items > 1)) {
8144 SWIG_croak("Usage: gsl_linalg_complex_cholesky_decomp(A);");
8145 }
8146 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
8147 if (!SWIG_IsOK(res1)) {
8148 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_complex_cholesky_decomp" "', argument " "1"" of type '" "gsl_matrix_complex *""'");
8149 }
8150 arg1 = (gsl_matrix_complex *)(argp1);
8151 result = (int)gsl_linalg_complex_cholesky_decomp(arg1);
8152 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8153
8154 XSRETURN(argvi);
8155 fail:
8156
8157 SWIG_croak_null();
8158 }
8159 }
8160
8161
XS(_wrap_gsl_linalg_complex_cholesky_solve)8162 XS(_wrap_gsl_linalg_complex_cholesky_solve) {
8163 {
8164 gsl_matrix_complex *arg1 = (gsl_matrix_complex *) 0 ;
8165 gsl_vector_complex *arg2 = (gsl_vector_complex *) 0 ;
8166 gsl_vector_complex *arg3 = (gsl_vector_complex *) 0 ;
8167 void *argp1 = 0 ;
8168 int res1 = 0 ;
8169 void *argp2 = 0 ;
8170 int res2 = 0 ;
8171 void *argp3 = 0 ;
8172 int res3 = 0 ;
8173 int argvi = 0;
8174 int result;
8175 dXSARGS;
8176
8177 if ((items < 3) || (items > 3)) {
8178 SWIG_croak("Usage: gsl_linalg_complex_cholesky_solve(cholesky,b,x);");
8179 }
8180 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
8181 if (!SWIG_IsOK(res1)) {
8182 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_complex_cholesky_solve" "', argument " "1"" of type '" "gsl_matrix_complex const *""'");
8183 }
8184 arg1 = (gsl_matrix_complex *)(argp1);
8185 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
8186 if (!SWIG_IsOK(res2)) {
8187 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_complex_cholesky_solve" "', argument " "2"" of type '" "gsl_vector_complex const *""'");
8188 }
8189 arg2 = (gsl_vector_complex *)(argp2);
8190 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
8191 if (!SWIG_IsOK(res3)) {
8192 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_complex_cholesky_solve" "', argument " "3"" of type '" "gsl_vector_complex *""'");
8193 }
8194 arg3 = (gsl_vector_complex *)(argp3);
8195 result = (int)gsl_linalg_complex_cholesky_solve((gsl_matrix_complex const *)arg1,(gsl_vector_complex const *)arg2,arg3);
8196 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8197
8198
8199
8200 XSRETURN(argvi);
8201 fail:
8202
8203
8204
8205 SWIG_croak_null();
8206 }
8207 }
8208
8209
XS(_wrap_gsl_linalg_complex_cholesky_svx)8210 XS(_wrap_gsl_linalg_complex_cholesky_svx) {
8211 {
8212 gsl_matrix_complex *arg1 = (gsl_matrix_complex *) 0 ;
8213 gsl_vector_complex *arg2 = (gsl_vector_complex *) 0 ;
8214 void *argp1 = 0 ;
8215 int res1 = 0 ;
8216 void *argp2 = 0 ;
8217 int res2 = 0 ;
8218 int argvi = 0;
8219 int result;
8220 dXSARGS;
8221
8222 if ((items < 2) || (items > 2)) {
8223 SWIG_croak("Usage: gsl_linalg_complex_cholesky_svx(cholesky,x);");
8224 }
8225 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
8226 if (!SWIG_IsOK(res1)) {
8227 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_complex_cholesky_svx" "', argument " "1"" of type '" "gsl_matrix_complex const *""'");
8228 }
8229 arg1 = (gsl_matrix_complex *)(argp1);
8230 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
8231 if (!SWIG_IsOK(res2)) {
8232 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_complex_cholesky_svx" "', argument " "2"" of type '" "gsl_vector_complex *""'");
8233 }
8234 arg2 = (gsl_vector_complex *)(argp2);
8235 result = (int)gsl_linalg_complex_cholesky_svx((gsl_matrix_complex const *)arg1,arg2);
8236 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8237
8238
8239 XSRETURN(argvi);
8240 fail:
8241
8242
8243 SWIG_croak_null();
8244 }
8245 }
8246
8247
XS(_wrap_gsl_linalg_complex_cholesky_invert)8248 XS(_wrap_gsl_linalg_complex_cholesky_invert) {
8249 {
8250 gsl_matrix_complex *arg1 = (gsl_matrix_complex *) 0 ;
8251 void *argp1 = 0 ;
8252 int res1 = 0 ;
8253 int argvi = 0;
8254 int result;
8255 dXSARGS;
8256
8257 if ((items < 1) || (items > 1)) {
8258 SWIG_croak("Usage: gsl_linalg_complex_cholesky_invert(cholesky);");
8259 }
8260 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
8261 if (!SWIG_IsOK(res1)) {
8262 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_complex_cholesky_invert" "', argument " "1"" of type '" "gsl_matrix_complex *""'");
8263 }
8264 arg1 = (gsl_matrix_complex *)(argp1);
8265 result = (int)gsl_linalg_complex_cholesky_invert(arg1);
8266 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8267
8268 XSRETURN(argvi);
8269 fail:
8270
8271 SWIG_croak_null();
8272 }
8273 }
8274
8275
XS(_wrap_gsl_linalg_pcholesky_decomp)8276 XS(_wrap_gsl_linalg_pcholesky_decomp) {
8277 {
8278 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
8279 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
8280 void *argp1 = 0 ;
8281 int res1 = 0 ;
8282 void *argp2 = 0 ;
8283 int res2 = 0 ;
8284 int argvi = 0;
8285 int result;
8286 dXSARGS;
8287
8288 if ((items < 2) || (items > 2)) {
8289 SWIG_croak("Usage: gsl_linalg_pcholesky_decomp(A,p);");
8290 }
8291 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
8292 if (!SWIG_IsOK(res1)) {
8293 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_pcholesky_decomp" "', argument " "1"" of type '" "gsl_matrix *""'");
8294 }
8295 arg1 = (gsl_matrix *)(argp1);
8296 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
8297 if (!SWIG_IsOK(res2)) {
8298 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_pcholesky_decomp" "', argument " "2"" of type '" "gsl_permutation *""'");
8299 }
8300 arg2 = (gsl_permutation *)(argp2);
8301 result = (int)gsl_linalg_pcholesky_decomp(arg1,arg2);
8302 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8303
8304
8305 XSRETURN(argvi);
8306 fail:
8307
8308
8309 SWIG_croak_null();
8310 }
8311 }
8312
8313
XS(_wrap_gsl_linalg_pcholesky_solve)8314 XS(_wrap_gsl_linalg_pcholesky_solve) {
8315 {
8316 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
8317 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
8318 gsl_vector *arg3 = (gsl_vector *) 0 ;
8319 gsl_vector *arg4 = (gsl_vector *) 0 ;
8320 void *argp1 = 0 ;
8321 int res1 = 0 ;
8322 void *argp2 = 0 ;
8323 int res2 = 0 ;
8324 void *argp3 = 0 ;
8325 int res3 = 0 ;
8326 void *argp4 = 0 ;
8327 int res4 = 0 ;
8328 int argvi = 0;
8329 int result;
8330 dXSARGS;
8331
8332 if ((items < 4) || (items > 4)) {
8333 SWIG_croak("Usage: gsl_linalg_pcholesky_solve(LDLT,p,b,x);");
8334 }
8335 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
8336 if (!SWIG_IsOK(res1)) {
8337 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_pcholesky_solve" "', argument " "1"" of type '" "gsl_matrix const *""'");
8338 }
8339 arg1 = (gsl_matrix *)(argp1);
8340 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
8341 if (!SWIG_IsOK(res2)) {
8342 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_pcholesky_solve" "', argument " "2"" of type '" "gsl_permutation const *""'");
8343 }
8344 arg2 = (gsl_permutation *)(argp2);
8345 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
8346 if (!SWIG_IsOK(res3)) {
8347 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_pcholesky_solve" "', argument " "3"" of type '" "gsl_vector const *""'");
8348 }
8349 arg3 = (gsl_vector *)(argp3);
8350 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
8351 if (!SWIG_IsOK(res4)) {
8352 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_pcholesky_solve" "', argument " "4"" of type '" "gsl_vector *""'");
8353 }
8354 arg4 = (gsl_vector *)(argp4);
8355 result = (int)gsl_linalg_pcholesky_solve((gsl_matrix const *)arg1,(struct gsl_permutation_struct const *)arg2,(gsl_vector const *)arg3,arg4);
8356 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8357
8358
8359
8360
8361 XSRETURN(argvi);
8362 fail:
8363
8364
8365
8366
8367 SWIG_croak_null();
8368 }
8369 }
8370
8371
XS(_wrap_gsl_linalg_pcholesky_svx)8372 XS(_wrap_gsl_linalg_pcholesky_svx) {
8373 {
8374 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
8375 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
8376 gsl_vector *arg3 = (gsl_vector *) 0 ;
8377 void *argp1 = 0 ;
8378 int res1 = 0 ;
8379 void *argp2 = 0 ;
8380 int res2 = 0 ;
8381 void *argp3 = 0 ;
8382 int res3 = 0 ;
8383 int argvi = 0;
8384 int result;
8385 dXSARGS;
8386
8387 if ((items < 3) || (items > 3)) {
8388 SWIG_croak("Usage: gsl_linalg_pcholesky_svx(LDLT,p,x);");
8389 }
8390 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
8391 if (!SWIG_IsOK(res1)) {
8392 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_pcholesky_svx" "', argument " "1"" of type '" "gsl_matrix const *""'");
8393 }
8394 arg1 = (gsl_matrix *)(argp1);
8395 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
8396 if (!SWIG_IsOK(res2)) {
8397 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_pcholesky_svx" "', argument " "2"" of type '" "gsl_permutation const *""'");
8398 }
8399 arg2 = (gsl_permutation *)(argp2);
8400 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
8401 if (!SWIG_IsOK(res3)) {
8402 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_pcholesky_svx" "', argument " "3"" of type '" "gsl_vector *""'");
8403 }
8404 arg3 = (gsl_vector *)(argp3);
8405 result = (int)gsl_linalg_pcholesky_svx((gsl_matrix const *)arg1,(struct gsl_permutation_struct const *)arg2,arg3);
8406 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8407
8408
8409
8410 XSRETURN(argvi);
8411 fail:
8412
8413
8414
8415 SWIG_croak_null();
8416 }
8417 }
8418
8419
XS(_wrap_gsl_linalg_pcholesky_decomp2)8420 XS(_wrap_gsl_linalg_pcholesky_decomp2) {
8421 {
8422 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
8423 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
8424 gsl_vector *arg3 = (gsl_vector *) 0 ;
8425 void *argp1 = 0 ;
8426 int res1 = 0 ;
8427 void *argp2 = 0 ;
8428 int res2 = 0 ;
8429 void *argp3 = 0 ;
8430 int res3 = 0 ;
8431 int argvi = 0;
8432 int result;
8433 dXSARGS;
8434
8435 if ((items < 3) || (items > 3)) {
8436 SWIG_croak("Usage: gsl_linalg_pcholesky_decomp2(A,p,S);");
8437 }
8438 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
8439 if (!SWIG_IsOK(res1)) {
8440 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_pcholesky_decomp2" "', argument " "1"" of type '" "gsl_matrix *""'");
8441 }
8442 arg1 = (gsl_matrix *)(argp1);
8443 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
8444 if (!SWIG_IsOK(res2)) {
8445 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_pcholesky_decomp2" "', argument " "2"" of type '" "gsl_permutation *""'");
8446 }
8447 arg2 = (gsl_permutation *)(argp2);
8448 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
8449 if (!SWIG_IsOK(res3)) {
8450 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_pcholesky_decomp2" "', argument " "3"" of type '" "gsl_vector *""'");
8451 }
8452 arg3 = (gsl_vector *)(argp3);
8453 result = (int)gsl_linalg_pcholesky_decomp2(arg1,arg2,arg3);
8454 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8455
8456
8457
8458 XSRETURN(argvi);
8459 fail:
8460
8461
8462
8463 SWIG_croak_null();
8464 }
8465 }
8466
8467
XS(_wrap_gsl_linalg_pcholesky_solve2)8468 XS(_wrap_gsl_linalg_pcholesky_solve2) {
8469 {
8470 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
8471 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
8472 gsl_vector *arg3 = (gsl_vector *) 0 ;
8473 gsl_vector *arg4 = (gsl_vector *) 0 ;
8474 gsl_vector *arg5 = (gsl_vector *) 0 ;
8475 void *argp1 = 0 ;
8476 int res1 = 0 ;
8477 void *argp2 = 0 ;
8478 int res2 = 0 ;
8479 void *argp3 = 0 ;
8480 int res3 = 0 ;
8481 void *argp4 = 0 ;
8482 int res4 = 0 ;
8483 void *argp5 = 0 ;
8484 int res5 = 0 ;
8485 int argvi = 0;
8486 int result;
8487 dXSARGS;
8488
8489 if ((items < 5) || (items > 5)) {
8490 SWIG_croak("Usage: gsl_linalg_pcholesky_solve2(LDLT,p,S,b,x);");
8491 }
8492 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
8493 if (!SWIG_IsOK(res1)) {
8494 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_pcholesky_solve2" "', argument " "1"" of type '" "gsl_matrix const *""'");
8495 }
8496 arg1 = (gsl_matrix *)(argp1);
8497 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
8498 if (!SWIG_IsOK(res2)) {
8499 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_pcholesky_solve2" "', argument " "2"" of type '" "gsl_permutation const *""'");
8500 }
8501 arg2 = (gsl_permutation *)(argp2);
8502 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
8503 if (!SWIG_IsOK(res3)) {
8504 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_pcholesky_solve2" "', argument " "3"" of type '" "gsl_vector const *""'");
8505 }
8506 arg3 = (gsl_vector *)(argp3);
8507 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
8508 if (!SWIG_IsOK(res4)) {
8509 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_pcholesky_solve2" "', argument " "4"" of type '" "gsl_vector const *""'");
8510 }
8511 arg4 = (gsl_vector *)(argp4);
8512 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
8513 if (!SWIG_IsOK(res5)) {
8514 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_pcholesky_solve2" "', argument " "5"" of type '" "gsl_vector *""'");
8515 }
8516 arg5 = (gsl_vector *)(argp5);
8517 result = (int)gsl_linalg_pcholesky_solve2((gsl_matrix const *)arg1,(struct gsl_permutation_struct const *)arg2,(gsl_vector const *)arg3,(gsl_vector const *)arg4,arg5);
8518 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8519
8520
8521
8522
8523
8524 XSRETURN(argvi);
8525 fail:
8526
8527
8528
8529
8530
8531 SWIG_croak_null();
8532 }
8533 }
8534
8535
XS(_wrap_gsl_linalg_pcholesky_svx2)8536 XS(_wrap_gsl_linalg_pcholesky_svx2) {
8537 {
8538 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
8539 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
8540 gsl_vector *arg3 = (gsl_vector *) 0 ;
8541 gsl_vector *arg4 = (gsl_vector *) 0 ;
8542 void *argp1 = 0 ;
8543 int res1 = 0 ;
8544 void *argp2 = 0 ;
8545 int res2 = 0 ;
8546 void *argp3 = 0 ;
8547 int res3 = 0 ;
8548 void *argp4 = 0 ;
8549 int res4 = 0 ;
8550 int argvi = 0;
8551 int result;
8552 dXSARGS;
8553
8554 if ((items < 4) || (items > 4)) {
8555 SWIG_croak("Usage: gsl_linalg_pcholesky_svx2(LDLT,p,S,x);");
8556 }
8557 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
8558 if (!SWIG_IsOK(res1)) {
8559 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_pcholesky_svx2" "', argument " "1"" of type '" "gsl_matrix const *""'");
8560 }
8561 arg1 = (gsl_matrix *)(argp1);
8562 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
8563 if (!SWIG_IsOK(res2)) {
8564 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_pcholesky_svx2" "', argument " "2"" of type '" "gsl_permutation const *""'");
8565 }
8566 arg2 = (gsl_permutation *)(argp2);
8567 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
8568 if (!SWIG_IsOK(res3)) {
8569 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_pcholesky_svx2" "', argument " "3"" of type '" "gsl_vector const *""'");
8570 }
8571 arg3 = (gsl_vector *)(argp3);
8572 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
8573 if (!SWIG_IsOK(res4)) {
8574 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_pcholesky_svx2" "', argument " "4"" of type '" "gsl_vector *""'");
8575 }
8576 arg4 = (gsl_vector *)(argp4);
8577 result = (int)gsl_linalg_pcholesky_svx2((gsl_matrix const *)arg1,(struct gsl_permutation_struct const *)arg2,(gsl_vector const *)arg3,arg4);
8578 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8579
8580
8581
8582
8583 XSRETURN(argvi);
8584 fail:
8585
8586
8587
8588
8589 SWIG_croak_null();
8590 }
8591 }
8592
8593
XS(_wrap_gsl_linalg_pcholesky_invert)8594 XS(_wrap_gsl_linalg_pcholesky_invert) {
8595 {
8596 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
8597 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
8598 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
8599 void *argp1 = 0 ;
8600 int res1 = 0 ;
8601 void *argp2 = 0 ;
8602 int res2 = 0 ;
8603 void *argp3 = 0 ;
8604 int res3 = 0 ;
8605 int argvi = 0;
8606 int result;
8607 dXSARGS;
8608
8609 if ((items < 3) || (items > 3)) {
8610 SWIG_croak("Usage: gsl_linalg_pcholesky_invert(LDLT,p,Ainv);");
8611 }
8612 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
8613 if (!SWIG_IsOK(res1)) {
8614 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_pcholesky_invert" "', argument " "1"" of type '" "gsl_matrix const *""'");
8615 }
8616 arg1 = (gsl_matrix *)(argp1);
8617 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
8618 if (!SWIG_IsOK(res2)) {
8619 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_pcholesky_invert" "', argument " "2"" of type '" "gsl_permutation const *""'");
8620 }
8621 arg2 = (gsl_permutation *)(argp2);
8622 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
8623 if (!SWIG_IsOK(res3)) {
8624 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_pcholesky_invert" "', argument " "3"" of type '" "gsl_matrix *""'");
8625 }
8626 arg3 = (gsl_matrix *)(argp3);
8627 result = (int)gsl_linalg_pcholesky_invert((gsl_matrix const *)arg1,(struct gsl_permutation_struct const *)arg2,arg3);
8628 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8629
8630
8631
8632 XSRETURN(argvi);
8633 fail:
8634
8635
8636
8637 SWIG_croak_null();
8638 }
8639 }
8640
8641
XS(_wrap_gsl_linalg_pcholesky_rcond)8642 XS(_wrap_gsl_linalg_pcholesky_rcond) {
8643 {
8644 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
8645 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
8646 double *arg3 = (double *) 0 ;
8647 gsl_vector *arg4 = (gsl_vector *) 0 ;
8648 void *argp1 = 0 ;
8649 int res1 = 0 ;
8650 void *argp2 = 0 ;
8651 int res2 = 0 ;
8652 void *argp3 = 0 ;
8653 int res3 = 0 ;
8654 void *argp4 = 0 ;
8655 int res4 = 0 ;
8656 int argvi = 0;
8657 int result;
8658 dXSARGS;
8659
8660 if ((items < 4) || (items > 4)) {
8661 SWIG_croak("Usage: gsl_linalg_pcholesky_rcond(LDLT,p,rcond,work);");
8662 }
8663 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
8664 if (!SWIG_IsOK(res1)) {
8665 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_pcholesky_rcond" "', argument " "1"" of type '" "gsl_matrix const *""'");
8666 }
8667 arg1 = (gsl_matrix *)(argp1);
8668 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
8669 if (!SWIG_IsOK(res2)) {
8670 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_pcholesky_rcond" "', argument " "2"" of type '" "gsl_permutation const *""'");
8671 }
8672 arg2 = (gsl_permutation *)(argp2);
8673 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_double, 0 | 0 );
8674 if (!SWIG_IsOK(res3)) {
8675 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_pcholesky_rcond" "', argument " "3"" of type '" "double *""'");
8676 }
8677 arg3 = (double *)(argp3);
8678 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
8679 if (!SWIG_IsOK(res4)) {
8680 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_pcholesky_rcond" "', argument " "4"" of type '" "gsl_vector *""'");
8681 }
8682 arg4 = (gsl_vector *)(argp4);
8683 result = (int)gsl_linalg_pcholesky_rcond((gsl_matrix const *)arg1,(struct gsl_permutation_struct const *)arg2,arg3,arg4);
8684 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8685
8686
8687
8688
8689 XSRETURN(argvi);
8690 fail:
8691
8692
8693
8694
8695 SWIG_croak_null();
8696 }
8697 }
8698
8699
XS(_wrap_gsl_linalg_mcholesky_decomp)8700 XS(_wrap_gsl_linalg_mcholesky_decomp) {
8701 {
8702 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
8703 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
8704 gsl_vector *arg3 = (gsl_vector *) 0 ;
8705 void *argp1 = 0 ;
8706 int res1 = 0 ;
8707 void *argp2 = 0 ;
8708 int res2 = 0 ;
8709 void *argp3 = 0 ;
8710 int res3 = 0 ;
8711 int argvi = 0;
8712 int result;
8713 dXSARGS;
8714
8715 if ((items < 3) || (items > 3)) {
8716 SWIG_croak("Usage: gsl_linalg_mcholesky_decomp(A,p,E);");
8717 }
8718 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
8719 if (!SWIG_IsOK(res1)) {
8720 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_mcholesky_decomp" "', argument " "1"" of type '" "gsl_matrix *""'");
8721 }
8722 arg1 = (gsl_matrix *)(argp1);
8723 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
8724 if (!SWIG_IsOK(res2)) {
8725 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_mcholesky_decomp" "', argument " "2"" of type '" "gsl_permutation *""'");
8726 }
8727 arg2 = (gsl_permutation *)(argp2);
8728 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
8729 if (!SWIG_IsOK(res3)) {
8730 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_mcholesky_decomp" "', argument " "3"" of type '" "gsl_vector *""'");
8731 }
8732 arg3 = (gsl_vector *)(argp3);
8733 result = (int)gsl_linalg_mcholesky_decomp(arg1,arg2,arg3);
8734 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8735
8736
8737
8738 XSRETURN(argvi);
8739 fail:
8740
8741
8742
8743 SWIG_croak_null();
8744 }
8745 }
8746
8747
XS(_wrap_gsl_linalg_mcholesky_solve)8748 XS(_wrap_gsl_linalg_mcholesky_solve) {
8749 {
8750 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
8751 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
8752 gsl_vector *arg3 = (gsl_vector *) 0 ;
8753 gsl_vector *arg4 = (gsl_vector *) 0 ;
8754 void *argp1 = 0 ;
8755 int res1 = 0 ;
8756 void *argp2 = 0 ;
8757 int res2 = 0 ;
8758 void *argp3 = 0 ;
8759 int res3 = 0 ;
8760 void *argp4 = 0 ;
8761 int res4 = 0 ;
8762 int argvi = 0;
8763 int result;
8764 dXSARGS;
8765
8766 if ((items < 4) || (items > 4)) {
8767 SWIG_croak("Usage: gsl_linalg_mcholesky_solve(LDLT,p,b,x);");
8768 }
8769 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
8770 if (!SWIG_IsOK(res1)) {
8771 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_mcholesky_solve" "', argument " "1"" of type '" "gsl_matrix const *""'");
8772 }
8773 arg1 = (gsl_matrix *)(argp1);
8774 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
8775 if (!SWIG_IsOK(res2)) {
8776 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_mcholesky_solve" "', argument " "2"" of type '" "gsl_permutation const *""'");
8777 }
8778 arg2 = (gsl_permutation *)(argp2);
8779 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
8780 if (!SWIG_IsOK(res3)) {
8781 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_mcholesky_solve" "', argument " "3"" of type '" "gsl_vector const *""'");
8782 }
8783 arg3 = (gsl_vector *)(argp3);
8784 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
8785 if (!SWIG_IsOK(res4)) {
8786 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_mcholesky_solve" "', argument " "4"" of type '" "gsl_vector *""'");
8787 }
8788 arg4 = (gsl_vector *)(argp4);
8789 result = (int)gsl_linalg_mcholesky_solve((gsl_matrix const *)arg1,(struct gsl_permutation_struct const *)arg2,(gsl_vector const *)arg3,arg4);
8790 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8791
8792
8793
8794
8795 XSRETURN(argvi);
8796 fail:
8797
8798
8799
8800
8801 SWIG_croak_null();
8802 }
8803 }
8804
8805
XS(_wrap_gsl_linalg_mcholesky_svx)8806 XS(_wrap_gsl_linalg_mcholesky_svx) {
8807 {
8808 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
8809 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
8810 gsl_vector *arg3 = (gsl_vector *) 0 ;
8811 void *argp1 = 0 ;
8812 int res1 = 0 ;
8813 void *argp2 = 0 ;
8814 int res2 = 0 ;
8815 void *argp3 = 0 ;
8816 int res3 = 0 ;
8817 int argvi = 0;
8818 int result;
8819 dXSARGS;
8820
8821 if ((items < 3) || (items > 3)) {
8822 SWIG_croak("Usage: gsl_linalg_mcholesky_svx(LDLT,p,x);");
8823 }
8824 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
8825 if (!SWIG_IsOK(res1)) {
8826 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_mcholesky_svx" "', argument " "1"" of type '" "gsl_matrix const *""'");
8827 }
8828 arg1 = (gsl_matrix *)(argp1);
8829 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
8830 if (!SWIG_IsOK(res2)) {
8831 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_mcholesky_svx" "', argument " "2"" of type '" "gsl_permutation const *""'");
8832 }
8833 arg2 = (gsl_permutation *)(argp2);
8834 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
8835 if (!SWIG_IsOK(res3)) {
8836 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_mcholesky_svx" "', argument " "3"" of type '" "gsl_vector *""'");
8837 }
8838 arg3 = (gsl_vector *)(argp3);
8839 result = (int)gsl_linalg_mcholesky_svx((gsl_matrix const *)arg1,(struct gsl_permutation_struct const *)arg2,arg3);
8840 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8841
8842
8843
8844 XSRETURN(argvi);
8845 fail:
8846
8847
8848
8849 SWIG_croak_null();
8850 }
8851 }
8852
8853
XS(_wrap_gsl_linalg_mcholesky_rcond)8854 XS(_wrap_gsl_linalg_mcholesky_rcond) {
8855 {
8856 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
8857 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
8858 double *arg3 = (double *) 0 ;
8859 gsl_vector *arg4 = (gsl_vector *) 0 ;
8860 void *argp1 = 0 ;
8861 int res1 = 0 ;
8862 void *argp2 = 0 ;
8863 int res2 = 0 ;
8864 void *argp3 = 0 ;
8865 int res3 = 0 ;
8866 void *argp4 = 0 ;
8867 int res4 = 0 ;
8868 int argvi = 0;
8869 int result;
8870 dXSARGS;
8871
8872 if ((items < 4) || (items > 4)) {
8873 SWIG_croak("Usage: gsl_linalg_mcholesky_rcond(LDLT,p,rcond,work);");
8874 }
8875 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
8876 if (!SWIG_IsOK(res1)) {
8877 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_mcholesky_rcond" "', argument " "1"" of type '" "gsl_matrix const *""'");
8878 }
8879 arg1 = (gsl_matrix *)(argp1);
8880 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
8881 if (!SWIG_IsOK(res2)) {
8882 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_mcholesky_rcond" "', argument " "2"" of type '" "gsl_permutation const *""'");
8883 }
8884 arg2 = (gsl_permutation *)(argp2);
8885 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_double, 0 | 0 );
8886 if (!SWIG_IsOK(res3)) {
8887 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_mcholesky_rcond" "', argument " "3"" of type '" "double *""'");
8888 }
8889 arg3 = (double *)(argp3);
8890 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
8891 if (!SWIG_IsOK(res4)) {
8892 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_mcholesky_rcond" "', argument " "4"" of type '" "gsl_vector *""'");
8893 }
8894 arg4 = (gsl_vector *)(argp4);
8895 result = (int)gsl_linalg_mcholesky_rcond((gsl_matrix const *)arg1,(struct gsl_permutation_struct const *)arg2,arg3,arg4);
8896 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8897
8898
8899
8900
8901 XSRETURN(argvi);
8902 fail:
8903
8904
8905
8906
8907 SWIG_croak_null();
8908 }
8909 }
8910
8911
XS(_wrap_gsl_linalg_mcholesky_invert)8912 XS(_wrap_gsl_linalg_mcholesky_invert) {
8913 {
8914 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
8915 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
8916 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
8917 void *argp1 = 0 ;
8918 int res1 = 0 ;
8919 void *argp2 = 0 ;
8920 int res2 = 0 ;
8921 void *argp3 = 0 ;
8922 int res3 = 0 ;
8923 int argvi = 0;
8924 int result;
8925 dXSARGS;
8926
8927 if ((items < 3) || (items > 3)) {
8928 SWIG_croak("Usage: gsl_linalg_mcholesky_invert(LDLT,p,Ainv);");
8929 }
8930 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
8931 if (!SWIG_IsOK(res1)) {
8932 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_mcholesky_invert" "', argument " "1"" of type '" "gsl_matrix const *""'");
8933 }
8934 arg1 = (gsl_matrix *)(argp1);
8935 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
8936 if (!SWIG_IsOK(res2)) {
8937 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_mcholesky_invert" "', argument " "2"" of type '" "gsl_permutation const *""'");
8938 }
8939 arg2 = (gsl_permutation *)(argp2);
8940 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
8941 if (!SWIG_IsOK(res3)) {
8942 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_mcholesky_invert" "', argument " "3"" of type '" "gsl_matrix *""'");
8943 }
8944 arg3 = (gsl_matrix *)(argp3);
8945 result = (int)gsl_linalg_mcholesky_invert((gsl_matrix const *)arg1,(struct gsl_permutation_struct const *)arg2,arg3);
8946 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8947
8948
8949
8950 XSRETURN(argvi);
8951 fail:
8952
8953
8954
8955 SWIG_croak_null();
8956 }
8957 }
8958
8959
XS(_wrap_gsl_linalg_symmtd_decomp)8960 XS(_wrap_gsl_linalg_symmtd_decomp) {
8961 {
8962 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
8963 gsl_vector *arg2 = (gsl_vector *) 0 ;
8964 void *argp1 = 0 ;
8965 int res1 = 0 ;
8966 void *argp2 = 0 ;
8967 int res2 = 0 ;
8968 int argvi = 0;
8969 int result;
8970 dXSARGS;
8971
8972 if ((items < 2) || (items > 2)) {
8973 SWIG_croak("Usage: gsl_linalg_symmtd_decomp(A,tau);");
8974 }
8975 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
8976 if (!SWIG_IsOK(res1)) {
8977 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_symmtd_decomp" "', argument " "1"" of type '" "gsl_matrix *""'");
8978 }
8979 arg1 = (gsl_matrix *)(argp1);
8980 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
8981 if (!SWIG_IsOK(res2)) {
8982 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_symmtd_decomp" "', argument " "2"" of type '" "gsl_vector *""'");
8983 }
8984 arg2 = (gsl_vector *)(argp2);
8985 result = (int)gsl_linalg_symmtd_decomp(arg1,arg2);
8986 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8987
8988
8989 XSRETURN(argvi);
8990 fail:
8991
8992
8993 SWIG_croak_null();
8994 }
8995 }
8996
8997
XS(_wrap_gsl_linalg_symmtd_unpack)8998 XS(_wrap_gsl_linalg_symmtd_unpack) {
8999 {
9000 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
9001 gsl_vector *arg2 = (gsl_vector *) 0 ;
9002 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
9003 gsl_vector *arg4 = (gsl_vector *) 0 ;
9004 gsl_vector *arg5 = (gsl_vector *) 0 ;
9005 void *argp1 = 0 ;
9006 int res1 = 0 ;
9007 void *argp2 = 0 ;
9008 int res2 = 0 ;
9009 void *argp3 = 0 ;
9010 int res3 = 0 ;
9011 void *argp4 = 0 ;
9012 int res4 = 0 ;
9013 void *argp5 = 0 ;
9014 int res5 = 0 ;
9015 int argvi = 0;
9016 int result;
9017 dXSARGS;
9018
9019 if ((items < 5) || (items > 5)) {
9020 SWIG_croak("Usage: gsl_linalg_symmtd_unpack(A,tau,Q,diag,subdiag);");
9021 }
9022 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
9023 if (!SWIG_IsOK(res1)) {
9024 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_symmtd_unpack" "', argument " "1"" of type '" "gsl_matrix const *""'");
9025 }
9026 arg1 = (gsl_matrix *)(argp1);
9027 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
9028 if (!SWIG_IsOK(res2)) {
9029 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_symmtd_unpack" "', argument " "2"" of type '" "gsl_vector const *""'");
9030 }
9031 arg2 = (gsl_vector *)(argp2);
9032 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
9033 if (!SWIG_IsOK(res3)) {
9034 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_symmtd_unpack" "', argument " "3"" of type '" "gsl_matrix *""'");
9035 }
9036 arg3 = (gsl_matrix *)(argp3);
9037 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
9038 if (!SWIG_IsOK(res4)) {
9039 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_symmtd_unpack" "', argument " "4"" of type '" "gsl_vector *""'");
9040 }
9041 arg4 = (gsl_vector *)(argp4);
9042 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
9043 if (!SWIG_IsOK(res5)) {
9044 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_symmtd_unpack" "', argument " "5"" of type '" "gsl_vector *""'");
9045 }
9046 arg5 = (gsl_vector *)(argp5);
9047 result = (int)gsl_linalg_symmtd_unpack((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3,arg4,arg5);
9048 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
9049
9050
9051
9052
9053
9054 XSRETURN(argvi);
9055 fail:
9056
9057
9058
9059
9060
9061 SWIG_croak_null();
9062 }
9063 }
9064
9065
XS(_wrap_gsl_linalg_symmtd_unpack_T)9066 XS(_wrap_gsl_linalg_symmtd_unpack_T) {
9067 {
9068 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
9069 gsl_vector *arg2 = (gsl_vector *) 0 ;
9070 gsl_vector *arg3 = (gsl_vector *) 0 ;
9071 void *argp1 = 0 ;
9072 int res1 = 0 ;
9073 void *argp2 = 0 ;
9074 int res2 = 0 ;
9075 void *argp3 = 0 ;
9076 int res3 = 0 ;
9077 int argvi = 0;
9078 int result;
9079 dXSARGS;
9080
9081 if ((items < 3) || (items > 3)) {
9082 SWIG_croak("Usage: gsl_linalg_symmtd_unpack_T(A,diag,subdiag);");
9083 }
9084 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
9085 if (!SWIG_IsOK(res1)) {
9086 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_symmtd_unpack_T" "', argument " "1"" of type '" "gsl_matrix const *""'");
9087 }
9088 arg1 = (gsl_matrix *)(argp1);
9089 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
9090 if (!SWIG_IsOK(res2)) {
9091 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_symmtd_unpack_T" "', argument " "2"" of type '" "gsl_vector *""'");
9092 }
9093 arg2 = (gsl_vector *)(argp2);
9094 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
9095 if (!SWIG_IsOK(res3)) {
9096 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_symmtd_unpack_T" "', argument " "3"" of type '" "gsl_vector *""'");
9097 }
9098 arg3 = (gsl_vector *)(argp3);
9099 result = (int)gsl_linalg_symmtd_unpack_T((gsl_matrix const *)arg1,arg2,arg3);
9100 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
9101
9102
9103
9104 XSRETURN(argvi);
9105 fail:
9106
9107
9108
9109 SWIG_croak_null();
9110 }
9111 }
9112
9113
XS(_wrap_gsl_linalg_hermtd_decomp)9114 XS(_wrap_gsl_linalg_hermtd_decomp) {
9115 {
9116 gsl_matrix_complex *arg1 = (gsl_matrix_complex *) 0 ;
9117 gsl_vector_complex *arg2 = (gsl_vector_complex *) 0 ;
9118 void *argp1 = 0 ;
9119 int res1 = 0 ;
9120 void *argp2 = 0 ;
9121 int res2 = 0 ;
9122 int argvi = 0;
9123 int result;
9124 dXSARGS;
9125
9126 if ((items < 2) || (items > 2)) {
9127 SWIG_croak("Usage: gsl_linalg_hermtd_decomp(A,tau);");
9128 }
9129 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
9130 if (!SWIG_IsOK(res1)) {
9131 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_hermtd_decomp" "', argument " "1"" of type '" "gsl_matrix_complex *""'");
9132 }
9133 arg1 = (gsl_matrix_complex *)(argp1);
9134 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
9135 if (!SWIG_IsOK(res2)) {
9136 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_hermtd_decomp" "', argument " "2"" of type '" "gsl_vector_complex *""'");
9137 }
9138 arg2 = (gsl_vector_complex *)(argp2);
9139 result = (int)gsl_linalg_hermtd_decomp(arg1,arg2);
9140 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
9141
9142
9143 XSRETURN(argvi);
9144 fail:
9145
9146
9147 SWIG_croak_null();
9148 }
9149 }
9150
9151
XS(_wrap_gsl_linalg_hermtd_unpack)9152 XS(_wrap_gsl_linalg_hermtd_unpack) {
9153 {
9154 gsl_matrix_complex *arg1 = (gsl_matrix_complex *) 0 ;
9155 gsl_vector_complex *arg2 = (gsl_vector_complex *) 0 ;
9156 gsl_matrix_complex *arg3 = (gsl_matrix_complex *) 0 ;
9157 gsl_vector *arg4 = (gsl_vector *) 0 ;
9158 gsl_vector *arg5 = (gsl_vector *) 0 ;
9159 void *argp1 = 0 ;
9160 int res1 = 0 ;
9161 void *argp2 = 0 ;
9162 int res2 = 0 ;
9163 void *argp3 = 0 ;
9164 int res3 = 0 ;
9165 void *argp4 = 0 ;
9166 int res4 = 0 ;
9167 void *argp5 = 0 ;
9168 int res5 = 0 ;
9169 int argvi = 0;
9170 int result;
9171 dXSARGS;
9172
9173 if ((items < 5) || (items > 5)) {
9174 SWIG_croak("Usage: gsl_linalg_hermtd_unpack(A,tau,U,diag,sudiag);");
9175 }
9176 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
9177 if (!SWIG_IsOK(res1)) {
9178 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_hermtd_unpack" "', argument " "1"" of type '" "gsl_matrix_complex const *""'");
9179 }
9180 arg1 = (gsl_matrix_complex *)(argp1);
9181 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
9182 if (!SWIG_IsOK(res2)) {
9183 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_hermtd_unpack" "', argument " "2"" of type '" "gsl_vector_complex const *""'");
9184 }
9185 arg2 = (gsl_vector_complex *)(argp2);
9186 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
9187 if (!SWIG_IsOK(res3)) {
9188 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_hermtd_unpack" "', argument " "3"" of type '" "gsl_matrix_complex *""'");
9189 }
9190 arg3 = (gsl_matrix_complex *)(argp3);
9191 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
9192 if (!SWIG_IsOK(res4)) {
9193 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_hermtd_unpack" "', argument " "4"" of type '" "gsl_vector *""'");
9194 }
9195 arg4 = (gsl_vector *)(argp4);
9196 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
9197 if (!SWIG_IsOK(res5)) {
9198 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_hermtd_unpack" "', argument " "5"" of type '" "gsl_vector *""'");
9199 }
9200 arg5 = (gsl_vector *)(argp5);
9201 result = (int)gsl_linalg_hermtd_unpack((gsl_matrix_complex const *)arg1,(gsl_vector_complex const *)arg2,arg3,arg4,arg5);
9202 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
9203
9204
9205
9206
9207
9208 XSRETURN(argvi);
9209 fail:
9210
9211
9212
9213
9214
9215 SWIG_croak_null();
9216 }
9217 }
9218
9219
XS(_wrap_gsl_linalg_hermtd_unpack_T)9220 XS(_wrap_gsl_linalg_hermtd_unpack_T) {
9221 {
9222 gsl_matrix_complex *arg1 = (gsl_matrix_complex *) 0 ;
9223 gsl_vector *arg2 = (gsl_vector *) 0 ;
9224 gsl_vector *arg3 = (gsl_vector *) 0 ;
9225 void *argp1 = 0 ;
9226 int res1 = 0 ;
9227 void *argp2 = 0 ;
9228 int res2 = 0 ;
9229 void *argp3 = 0 ;
9230 int res3 = 0 ;
9231 int argvi = 0;
9232 int result;
9233 dXSARGS;
9234
9235 if ((items < 3) || (items > 3)) {
9236 SWIG_croak("Usage: gsl_linalg_hermtd_unpack_T(A,diag,subdiag);");
9237 }
9238 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
9239 if (!SWIG_IsOK(res1)) {
9240 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_hermtd_unpack_T" "', argument " "1"" of type '" "gsl_matrix_complex const *""'");
9241 }
9242 arg1 = (gsl_matrix_complex *)(argp1);
9243 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
9244 if (!SWIG_IsOK(res2)) {
9245 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_hermtd_unpack_T" "', argument " "2"" of type '" "gsl_vector *""'");
9246 }
9247 arg2 = (gsl_vector *)(argp2);
9248 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
9249 if (!SWIG_IsOK(res3)) {
9250 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_hermtd_unpack_T" "', argument " "3"" of type '" "gsl_vector *""'");
9251 }
9252 arg3 = (gsl_vector *)(argp3);
9253 result = (int)gsl_linalg_hermtd_unpack_T((gsl_matrix_complex const *)arg1,arg2,arg3);
9254 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
9255
9256
9257
9258 XSRETURN(argvi);
9259 fail:
9260
9261
9262
9263 SWIG_croak_null();
9264 }
9265 }
9266
9267
XS(_wrap_gsl_linalg_HH_solve)9268 XS(_wrap_gsl_linalg_HH_solve) {
9269 {
9270 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
9271 gsl_vector *arg2 = (gsl_vector *) 0 ;
9272 gsl_vector *arg3 = (gsl_vector *) 0 ;
9273 void *argp1 = 0 ;
9274 int res1 = 0 ;
9275 void *argp2 = 0 ;
9276 int res2 = 0 ;
9277 void *argp3 = 0 ;
9278 int res3 = 0 ;
9279 int argvi = 0;
9280 int result;
9281 dXSARGS;
9282
9283 if ((items < 3) || (items > 3)) {
9284 SWIG_croak("Usage: gsl_linalg_HH_solve(A,b,x);");
9285 }
9286 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
9287 if (!SWIG_IsOK(res1)) {
9288 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_HH_solve" "', argument " "1"" of type '" "gsl_matrix *""'");
9289 }
9290 arg1 = (gsl_matrix *)(argp1);
9291 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
9292 if (!SWIG_IsOK(res2)) {
9293 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_HH_solve" "', argument " "2"" of type '" "gsl_vector const *""'");
9294 }
9295 arg2 = (gsl_vector *)(argp2);
9296 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
9297 if (!SWIG_IsOK(res3)) {
9298 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_HH_solve" "', argument " "3"" of type '" "gsl_vector *""'");
9299 }
9300 arg3 = (gsl_vector *)(argp3);
9301 result = (int)gsl_linalg_HH_solve(arg1,(gsl_vector const *)arg2,arg3);
9302 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
9303
9304
9305
9306 XSRETURN(argvi);
9307 fail:
9308
9309
9310
9311 SWIG_croak_null();
9312 }
9313 }
9314
9315
XS(_wrap_gsl_linalg_HH_svx)9316 XS(_wrap_gsl_linalg_HH_svx) {
9317 {
9318 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
9319 gsl_vector *arg2 = (gsl_vector *) 0 ;
9320 void *argp1 = 0 ;
9321 int res1 = 0 ;
9322 void *argp2 = 0 ;
9323 int res2 = 0 ;
9324 int argvi = 0;
9325 int result;
9326 dXSARGS;
9327
9328 if ((items < 2) || (items > 2)) {
9329 SWIG_croak("Usage: gsl_linalg_HH_svx(A,x);");
9330 }
9331 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
9332 if (!SWIG_IsOK(res1)) {
9333 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_HH_svx" "', argument " "1"" of type '" "gsl_matrix *""'");
9334 }
9335 arg1 = (gsl_matrix *)(argp1);
9336 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
9337 if (!SWIG_IsOK(res2)) {
9338 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_HH_svx" "', argument " "2"" of type '" "gsl_vector *""'");
9339 }
9340 arg2 = (gsl_vector *)(argp2);
9341 result = (int)gsl_linalg_HH_svx(arg1,arg2);
9342 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
9343
9344
9345 XSRETURN(argvi);
9346 fail:
9347
9348
9349 SWIG_croak_null();
9350 }
9351 }
9352
9353
XS(_wrap_gsl_linalg_solve_symm_tridiag)9354 XS(_wrap_gsl_linalg_solve_symm_tridiag) {
9355 {
9356 gsl_vector *arg1 = (gsl_vector *) 0 ;
9357 gsl_vector *arg2 = (gsl_vector *) 0 ;
9358 gsl_vector *arg3 = (gsl_vector *) 0 ;
9359 gsl_vector *arg4 = (gsl_vector *) 0 ;
9360 void *argp1 = 0 ;
9361 int res1 = 0 ;
9362 void *argp2 = 0 ;
9363 int res2 = 0 ;
9364 void *argp3 = 0 ;
9365 int res3 = 0 ;
9366 void *argp4 = 0 ;
9367 int res4 = 0 ;
9368 int argvi = 0;
9369 int result;
9370 dXSARGS;
9371
9372 if ((items < 4) || (items > 4)) {
9373 SWIG_croak("Usage: gsl_linalg_solve_symm_tridiag(diag,offdiag,b,x);");
9374 }
9375 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
9376 if (!SWIG_IsOK(res1)) {
9377 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_solve_symm_tridiag" "', argument " "1"" of type '" "gsl_vector const *""'");
9378 }
9379 arg1 = (gsl_vector *)(argp1);
9380 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
9381 if (!SWIG_IsOK(res2)) {
9382 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_solve_symm_tridiag" "', argument " "2"" of type '" "gsl_vector const *""'");
9383 }
9384 arg2 = (gsl_vector *)(argp2);
9385 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
9386 if (!SWIG_IsOK(res3)) {
9387 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_solve_symm_tridiag" "', argument " "3"" of type '" "gsl_vector const *""'");
9388 }
9389 arg3 = (gsl_vector *)(argp3);
9390 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
9391 if (!SWIG_IsOK(res4)) {
9392 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_solve_symm_tridiag" "', argument " "4"" of type '" "gsl_vector *""'");
9393 }
9394 arg4 = (gsl_vector *)(argp4);
9395 result = (int)gsl_linalg_solve_symm_tridiag((gsl_vector const *)arg1,(gsl_vector const *)arg2,(gsl_vector const *)arg3,arg4);
9396 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
9397
9398
9399
9400
9401 XSRETURN(argvi);
9402 fail:
9403
9404
9405
9406
9407 SWIG_croak_null();
9408 }
9409 }
9410
9411
XS(_wrap_gsl_linalg_solve_tridiag)9412 XS(_wrap_gsl_linalg_solve_tridiag) {
9413 {
9414 gsl_vector *arg1 = (gsl_vector *) 0 ;
9415 gsl_vector *arg2 = (gsl_vector *) 0 ;
9416 gsl_vector *arg3 = (gsl_vector *) 0 ;
9417 gsl_vector *arg4 = (gsl_vector *) 0 ;
9418 gsl_vector *arg5 = (gsl_vector *) 0 ;
9419 void *argp1 = 0 ;
9420 int res1 = 0 ;
9421 void *argp2 = 0 ;
9422 int res2 = 0 ;
9423 void *argp3 = 0 ;
9424 int res3 = 0 ;
9425 void *argp4 = 0 ;
9426 int res4 = 0 ;
9427 void *argp5 = 0 ;
9428 int res5 = 0 ;
9429 int argvi = 0;
9430 int result;
9431 dXSARGS;
9432
9433 if ((items < 5) || (items > 5)) {
9434 SWIG_croak("Usage: gsl_linalg_solve_tridiag(diag,abovediag,belowdiag,b,x);");
9435 }
9436 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
9437 if (!SWIG_IsOK(res1)) {
9438 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_solve_tridiag" "', argument " "1"" of type '" "gsl_vector const *""'");
9439 }
9440 arg1 = (gsl_vector *)(argp1);
9441 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
9442 if (!SWIG_IsOK(res2)) {
9443 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_solve_tridiag" "', argument " "2"" of type '" "gsl_vector const *""'");
9444 }
9445 arg2 = (gsl_vector *)(argp2);
9446 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
9447 if (!SWIG_IsOK(res3)) {
9448 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_solve_tridiag" "', argument " "3"" of type '" "gsl_vector const *""'");
9449 }
9450 arg3 = (gsl_vector *)(argp3);
9451 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
9452 if (!SWIG_IsOK(res4)) {
9453 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_solve_tridiag" "', argument " "4"" of type '" "gsl_vector const *""'");
9454 }
9455 arg4 = (gsl_vector *)(argp4);
9456 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
9457 if (!SWIG_IsOK(res5)) {
9458 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_solve_tridiag" "', argument " "5"" of type '" "gsl_vector *""'");
9459 }
9460 arg5 = (gsl_vector *)(argp5);
9461 result = (int)gsl_linalg_solve_tridiag((gsl_vector const *)arg1,(gsl_vector const *)arg2,(gsl_vector const *)arg3,(gsl_vector const *)arg4,arg5);
9462 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
9463
9464
9465
9466
9467
9468 XSRETURN(argvi);
9469 fail:
9470
9471
9472
9473
9474
9475 SWIG_croak_null();
9476 }
9477 }
9478
9479
XS(_wrap_gsl_linalg_solve_symm_cyc_tridiag)9480 XS(_wrap_gsl_linalg_solve_symm_cyc_tridiag) {
9481 {
9482 gsl_vector *arg1 = (gsl_vector *) 0 ;
9483 gsl_vector *arg2 = (gsl_vector *) 0 ;
9484 gsl_vector *arg3 = (gsl_vector *) 0 ;
9485 gsl_vector *arg4 = (gsl_vector *) 0 ;
9486 void *argp1 = 0 ;
9487 int res1 = 0 ;
9488 void *argp2 = 0 ;
9489 int res2 = 0 ;
9490 void *argp3 = 0 ;
9491 int res3 = 0 ;
9492 void *argp4 = 0 ;
9493 int res4 = 0 ;
9494 int argvi = 0;
9495 int result;
9496 dXSARGS;
9497
9498 if ((items < 4) || (items > 4)) {
9499 SWIG_croak("Usage: gsl_linalg_solve_symm_cyc_tridiag(diag,offdiag,b,x);");
9500 }
9501 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
9502 if (!SWIG_IsOK(res1)) {
9503 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_solve_symm_cyc_tridiag" "', argument " "1"" of type '" "gsl_vector const *""'");
9504 }
9505 arg1 = (gsl_vector *)(argp1);
9506 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
9507 if (!SWIG_IsOK(res2)) {
9508 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_solve_symm_cyc_tridiag" "', argument " "2"" of type '" "gsl_vector const *""'");
9509 }
9510 arg2 = (gsl_vector *)(argp2);
9511 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
9512 if (!SWIG_IsOK(res3)) {
9513 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_solve_symm_cyc_tridiag" "', argument " "3"" of type '" "gsl_vector const *""'");
9514 }
9515 arg3 = (gsl_vector *)(argp3);
9516 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
9517 if (!SWIG_IsOK(res4)) {
9518 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_solve_symm_cyc_tridiag" "', argument " "4"" of type '" "gsl_vector *""'");
9519 }
9520 arg4 = (gsl_vector *)(argp4);
9521 result = (int)gsl_linalg_solve_symm_cyc_tridiag((gsl_vector const *)arg1,(gsl_vector const *)arg2,(gsl_vector const *)arg3,arg4);
9522 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
9523
9524
9525
9526
9527 XSRETURN(argvi);
9528 fail:
9529
9530
9531
9532
9533 SWIG_croak_null();
9534 }
9535 }
9536
9537
XS(_wrap_gsl_linalg_solve_cyc_tridiag)9538 XS(_wrap_gsl_linalg_solve_cyc_tridiag) {
9539 {
9540 gsl_vector *arg1 = (gsl_vector *) 0 ;
9541 gsl_vector *arg2 = (gsl_vector *) 0 ;
9542 gsl_vector *arg3 = (gsl_vector *) 0 ;
9543 gsl_vector *arg4 = (gsl_vector *) 0 ;
9544 gsl_vector *arg5 = (gsl_vector *) 0 ;
9545 void *argp1 = 0 ;
9546 int res1 = 0 ;
9547 void *argp2 = 0 ;
9548 int res2 = 0 ;
9549 void *argp3 = 0 ;
9550 int res3 = 0 ;
9551 void *argp4 = 0 ;
9552 int res4 = 0 ;
9553 void *argp5 = 0 ;
9554 int res5 = 0 ;
9555 int argvi = 0;
9556 int result;
9557 dXSARGS;
9558
9559 if ((items < 5) || (items > 5)) {
9560 SWIG_croak("Usage: gsl_linalg_solve_cyc_tridiag(diag,abovediag,belowdiag,b,x);");
9561 }
9562 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
9563 if (!SWIG_IsOK(res1)) {
9564 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_solve_cyc_tridiag" "', argument " "1"" of type '" "gsl_vector const *""'");
9565 }
9566 arg1 = (gsl_vector *)(argp1);
9567 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
9568 if (!SWIG_IsOK(res2)) {
9569 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_solve_cyc_tridiag" "', argument " "2"" of type '" "gsl_vector const *""'");
9570 }
9571 arg2 = (gsl_vector *)(argp2);
9572 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
9573 if (!SWIG_IsOK(res3)) {
9574 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_solve_cyc_tridiag" "', argument " "3"" of type '" "gsl_vector const *""'");
9575 }
9576 arg3 = (gsl_vector *)(argp3);
9577 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
9578 if (!SWIG_IsOK(res4)) {
9579 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_solve_cyc_tridiag" "', argument " "4"" of type '" "gsl_vector const *""'");
9580 }
9581 arg4 = (gsl_vector *)(argp4);
9582 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
9583 if (!SWIG_IsOK(res5)) {
9584 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_solve_cyc_tridiag" "', argument " "5"" of type '" "gsl_vector *""'");
9585 }
9586 arg5 = (gsl_vector *)(argp5);
9587 result = (int)gsl_linalg_solve_cyc_tridiag((gsl_vector const *)arg1,(gsl_vector const *)arg2,(gsl_vector const *)arg3,(gsl_vector const *)arg4,arg5);
9588 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
9589
9590
9591
9592
9593
9594 XSRETURN(argvi);
9595 fail:
9596
9597
9598
9599
9600
9601 SWIG_croak_null();
9602 }
9603 }
9604
9605
XS(_wrap_gsl_linalg_bidiag_decomp)9606 XS(_wrap_gsl_linalg_bidiag_decomp) {
9607 {
9608 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
9609 gsl_vector *arg2 = (gsl_vector *) 0 ;
9610 gsl_vector *arg3 = (gsl_vector *) 0 ;
9611 void *argp1 = 0 ;
9612 int res1 = 0 ;
9613 void *argp2 = 0 ;
9614 int res2 = 0 ;
9615 void *argp3 = 0 ;
9616 int res3 = 0 ;
9617 int argvi = 0;
9618 int result;
9619 dXSARGS;
9620
9621 if ((items < 3) || (items > 3)) {
9622 SWIG_croak("Usage: gsl_linalg_bidiag_decomp(A,tau_U,tau_V);");
9623 }
9624 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
9625 if (!SWIG_IsOK(res1)) {
9626 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_bidiag_decomp" "', argument " "1"" of type '" "gsl_matrix *""'");
9627 }
9628 arg1 = (gsl_matrix *)(argp1);
9629 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
9630 if (!SWIG_IsOK(res2)) {
9631 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_bidiag_decomp" "', argument " "2"" of type '" "gsl_vector *""'");
9632 }
9633 arg2 = (gsl_vector *)(argp2);
9634 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
9635 if (!SWIG_IsOK(res3)) {
9636 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_bidiag_decomp" "', argument " "3"" of type '" "gsl_vector *""'");
9637 }
9638 arg3 = (gsl_vector *)(argp3);
9639 result = (int)gsl_linalg_bidiag_decomp(arg1,arg2,arg3);
9640 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
9641
9642
9643
9644 XSRETURN(argvi);
9645 fail:
9646
9647
9648
9649 SWIG_croak_null();
9650 }
9651 }
9652
9653
XS(_wrap_gsl_linalg_bidiag_unpack)9654 XS(_wrap_gsl_linalg_bidiag_unpack) {
9655 {
9656 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
9657 gsl_vector *arg2 = (gsl_vector *) 0 ;
9658 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
9659 gsl_vector *arg4 = (gsl_vector *) 0 ;
9660 gsl_matrix *arg5 = (gsl_matrix *) 0 ;
9661 gsl_vector *arg6 = (gsl_vector *) 0 ;
9662 gsl_vector *arg7 = (gsl_vector *) 0 ;
9663 void *argp1 = 0 ;
9664 int res1 = 0 ;
9665 void *argp2 = 0 ;
9666 int res2 = 0 ;
9667 void *argp3 = 0 ;
9668 int res3 = 0 ;
9669 void *argp4 = 0 ;
9670 int res4 = 0 ;
9671 void *argp5 = 0 ;
9672 int res5 = 0 ;
9673 void *argp6 = 0 ;
9674 int res6 = 0 ;
9675 void *argp7 = 0 ;
9676 int res7 = 0 ;
9677 int argvi = 0;
9678 int result;
9679 dXSARGS;
9680
9681 if ((items < 7) || (items > 7)) {
9682 SWIG_croak("Usage: gsl_linalg_bidiag_unpack(A,tau_U,U,tau_V,V,diag,superdiag);");
9683 }
9684 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
9685 if (!SWIG_IsOK(res1)) {
9686 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_bidiag_unpack" "', argument " "1"" of type '" "gsl_matrix const *""'");
9687 }
9688 arg1 = (gsl_matrix *)(argp1);
9689 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
9690 if (!SWIG_IsOK(res2)) {
9691 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_bidiag_unpack" "', argument " "2"" of type '" "gsl_vector const *""'");
9692 }
9693 arg2 = (gsl_vector *)(argp2);
9694 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
9695 if (!SWIG_IsOK(res3)) {
9696 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_bidiag_unpack" "', argument " "3"" of type '" "gsl_matrix *""'");
9697 }
9698 arg3 = (gsl_matrix *)(argp3);
9699 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
9700 if (!SWIG_IsOK(res4)) {
9701 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_bidiag_unpack" "', argument " "4"" of type '" "gsl_vector const *""'");
9702 }
9703 arg4 = (gsl_vector *)(argp4);
9704 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_matrix, 0 | 0 );
9705 if (!SWIG_IsOK(res5)) {
9706 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_bidiag_unpack" "', argument " "5"" of type '" "gsl_matrix *""'");
9707 }
9708 arg5 = (gsl_matrix *)(argp5);
9709 res6 = SWIG_ConvertPtr(ST(5), &argp6,SWIGTYPE_p_gsl_vector, 0 | 0 );
9710 if (!SWIG_IsOK(res6)) {
9711 SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_linalg_bidiag_unpack" "', argument " "6"" of type '" "gsl_vector *""'");
9712 }
9713 arg6 = (gsl_vector *)(argp6);
9714 res7 = SWIG_ConvertPtr(ST(6), &argp7,SWIGTYPE_p_gsl_vector, 0 | 0 );
9715 if (!SWIG_IsOK(res7)) {
9716 SWIG_exception_fail(SWIG_ArgError(res7), "in method '" "gsl_linalg_bidiag_unpack" "', argument " "7"" of type '" "gsl_vector *""'");
9717 }
9718 arg7 = (gsl_vector *)(argp7);
9719 result = (int)gsl_linalg_bidiag_unpack((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3,(gsl_vector const *)arg4,arg5,arg6,arg7);
9720 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
9721
9722
9723
9724
9725
9726
9727
9728 XSRETURN(argvi);
9729 fail:
9730
9731
9732
9733
9734
9735
9736
9737 SWIG_croak_null();
9738 }
9739 }
9740
9741
XS(_wrap_gsl_linalg_bidiag_unpack2)9742 XS(_wrap_gsl_linalg_bidiag_unpack2) {
9743 {
9744 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
9745 gsl_vector *arg2 = (gsl_vector *) 0 ;
9746 gsl_vector *arg3 = (gsl_vector *) 0 ;
9747 gsl_matrix *arg4 = (gsl_matrix *) 0 ;
9748 void *argp1 = 0 ;
9749 int res1 = 0 ;
9750 void *argp2 = 0 ;
9751 int res2 = 0 ;
9752 void *argp3 = 0 ;
9753 int res3 = 0 ;
9754 void *argp4 = 0 ;
9755 int res4 = 0 ;
9756 int argvi = 0;
9757 int result;
9758 dXSARGS;
9759
9760 if ((items < 4) || (items > 4)) {
9761 SWIG_croak("Usage: gsl_linalg_bidiag_unpack2(A,tau_U,tau_V,V);");
9762 }
9763 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
9764 if (!SWIG_IsOK(res1)) {
9765 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_bidiag_unpack2" "', argument " "1"" of type '" "gsl_matrix *""'");
9766 }
9767 arg1 = (gsl_matrix *)(argp1);
9768 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
9769 if (!SWIG_IsOK(res2)) {
9770 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_bidiag_unpack2" "', argument " "2"" of type '" "gsl_vector *""'");
9771 }
9772 arg2 = (gsl_vector *)(argp2);
9773 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
9774 if (!SWIG_IsOK(res3)) {
9775 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_bidiag_unpack2" "', argument " "3"" of type '" "gsl_vector *""'");
9776 }
9777 arg3 = (gsl_vector *)(argp3);
9778 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_matrix, 0 | 0 );
9779 if (!SWIG_IsOK(res4)) {
9780 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_bidiag_unpack2" "', argument " "4"" of type '" "gsl_matrix *""'");
9781 }
9782 arg4 = (gsl_matrix *)(argp4);
9783 result = (int)gsl_linalg_bidiag_unpack2(arg1,arg2,arg3,arg4);
9784 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
9785
9786
9787
9788
9789 XSRETURN(argvi);
9790 fail:
9791
9792
9793
9794
9795 SWIG_croak_null();
9796 }
9797 }
9798
9799
XS(_wrap_gsl_linalg_bidiag_unpack_B)9800 XS(_wrap_gsl_linalg_bidiag_unpack_B) {
9801 {
9802 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
9803 gsl_vector *arg2 = (gsl_vector *) 0 ;
9804 gsl_vector *arg3 = (gsl_vector *) 0 ;
9805 void *argp1 = 0 ;
9806 int res1 = 0 ;
9807 void *argp2 = 0 ;
9808 int res2 = 0 ;
9809 void *argp3 = 0 ;
9810 int res3 = 0 ;
9811 int argvi = 0;
9812 int result;
9813 dXSARGS;
9814
9815 if ((items < 3) || (items > 3)) {
9816 SWIG_croak("Usage: gsl_linalg_bidiag_unpack_B(A,diag,superdiag);");
9817 }
9818 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
9819 if (!SWIG_IsOK(res1)) {
9820 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_bidiag_unpack_B" "', argument " "1"" of type '" "gsl_matrix const *""'");
9821 }
9822 arg1 = (gsl_matrix *)(argp1);
9823 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
9824 if (!SWIG_IsOK(res2)) {
9825 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_bidiag_unpack_B" "', argument " "2"" of type '" "gsl_vector *""'");
9826 }
9827 arg2 = (gsl_vector *)(argp2);
9828 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
9829 if (!SWIG_IsOK(res3)) {
9830 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_bidiag_unpack_B" "', argument " "3"" of type '" "gsl_vector *""'");
9831 }
9832 arg3 = (gsl_vector *)(argp3);
9833 result = (int)gsl_linalg_bidiag_unpack_B((gsl_matrix const *)arg1,arg2,arg3);
9834 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
9835
9836
9837
9838 XSRETURN(argvi);
9839 fail:
9840
9841
9842
9843 SWIG_croak_null();
9844 }
9845 }
9846
9847
XS(_wrap_gsl_linalg_balance_matrix)9848 XS(_wrap_gsl_linalg_balance_matrix) {
9849 {
9850 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
9851 gsl_vector *arg2 = (gsl_vector *) 0 ;
9852 void *argp1 = 0 ;
9853 int res1 = 0 ;
9854 void *argp2 = 0 ;
9855 int res2 = 0 ;
9856 int argvi = 0;
9857 int result;
9858 dXSARGS;
9859
9860 if ((items < 2) || (items > 2)) {
9861 SWIG_croak("Usage: gsl_linalg_balance_matrix(A,D);");
9862 }
9863 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
9864 if (!SWIG_IsOK(res1)) {
9865 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_balance_matrix" "', argument " "1"" of type '" "gsl_matrix *""'");
9866 }
9867 arg1 = (gsl_matrix *)(argp1);
9868 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
9869 if (!SWIG_IsOK(res2)) {
9870 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_balance_matrix" "', argument " "2"" of type '" "gsl_vector *""'");
9871 }
9872 arg2 = (gsl_vector *)(argp2);
9873 result = (int)gsl_linalg_balance_matrix(arg1,arg2);
9874 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
9875
9876
9877 XSRETURN(argvi);
9878 fail:
9879
9880
9881 SWIG_croak_null();
9882 }
9883 }
9884
9885
XS(_wrap_gsl_linalg_balance_accum)9886 XS(_wrap_gsl_linalg_balance_accum) {
9887 {
9888 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
9889 gsl_vector *arg2 = (gsl_vector *) 0 ;
9890 void *argp1 = 0 ;
9891 int res1 = 0 ;
9892 void *argp2 = 0 ;
9893 int res2 = 0 ;
9894 int argvi = 0;
9895 int result;
9896 dXSARGS;
9897
9898 if ((items < 2) || (items > 2)) {
9899 SWIG_croak("Usage: gsl_linalg_balance_accum(A,D);");
9900 }
9901 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
9902 if (!SWIG_IsOK(res1)) {
9903 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_balance_accum" "', argument " "1"" of type '" "gsl_matrix *""'");
9904 }
9905 arg1 = (gsl_matrix *)(argp1);
9906 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
9907 if (!SWIG_IsOK(res2)) {
9908 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_balance_accum" "', argument " "2"" of type '" "gsl_vector *""'");
9909 }
9910 arg2 = (gsl_vector *)(argp2);
9911 result = (int)gsl_linalg_balance_accum(arg1,arg2);
9912 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
9913
9914
9915 XSRETURN(argvi);
9916 fail:
9917
9918
9919 SWIG_croak_null();
9920 }
9921 }
9922
9923
XS(_wrap_gsl_linalg_balance_columns)9924 XS(_wrap_gsl_linalg_balance_columns) {
9925 {
9926 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
9927 gsl_vector *arg2 = (gsl_vector *) 0 ;
9928 void *argp1 = 0 ;
9929 int res1 = 0 ;
9930 void *argp2 = 0 ;
9931 int res2 = 0 ;
9932 int argvi = 0;
9933 int result;
9934 dXSARGS;
9935
9936 if ((items < 2) || (items > 2)) {
9937 SWIG_croak("Usage: gsl_linalg_balance_columns(A,D);");
9938 }
9939 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
9940 if (!SWIG_IsOK(res1)) {
9941 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_balance_columns" "', argument " "1"" of type '" "gsl_matrix *""'");
9942 }
9943 arg1 = (gsl_matrix *)(argp1);
9944 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
9945 if (!SWIG_IsOK(res2)) {
9946 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_balance_columns" "', argument " "2"" of type '" "gsl_vector *""'");
9947 }
9948 arg2 = (gsl_vector *)(argp2);
9949 result = (int)gsl_linalg_balance_columns(arg1,arg2);
9950 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
9951
9952
9953 XSRETURN(argvi);
9954 fail:
9955
9956
9957 SWIG_croak_null();
9958 }
9959 }
9960
9961
XS(_wrap_gsl_linalg_tri_upper_rcond)9962 XS(_wrap_gsl_linalg_tri_upper_rcond) {
9963 {
9964 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
9965 double *arg2 = (double *) 0 ;
9966 gsl_vector *arg3 = (gsl_vector *) 0 ;
9967 void *argp1 = 0 ;
9968 int res1 = 0 ;
9969 void *argp2 = 0 ;
9970 int res2 = 0 ;
9971 void *argp3 = 0 ;
9972 int res3 = 0 ;
9973 int argvi = 0;
9974 int result;
9975 dXSARGS;
9976
9977 if ((items < 3) || (items > 3)) {
9978 SWIG_croak("Usage: gsl_linalg_tri_upper_rcond(A,rcond,work);");
9979 }
9980 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
9981 if (!SWIG_IsOK(res1)) {
9982 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_tri_upper_rcond" "', argument " "1"" of type '" "gsl_matrix const *""'");
9983 }
9984 arg1 = (gsl_matrix *)(argp1);
9985 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_double, 0 | 0 );
9986 if (!SWIG_IsOK(res2)) {
9987 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_tri_upper_rcond" "', argument " "2"" of type '" "double *""'");
9988 }
9989 arg2 = (double *)(argp2);
9990 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
9991 if (!SWIG_IsOK(res3)) {
9992 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_tri_upper_rcond" "', argument " "3"" of type '" "gsl_vector *""'");
9993 }
9994 arg3 = (gsl_vector *)(argp3);
9995 result = (int)gsl_linalg_tri_upper_rcond((gsl_matrix const *)arg1,arg2,arg3);
9996 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
9997
9998
9999
10000 XSRETURN(argvi);
10001 fail:
10002
10003
10004
10005 SWIG_croak_null();
10006 }
10007 }
10008
10009
XS(_wrap_gsl_linalg_tri_lower_rcond)10010 XS(_wrap_gsl_linalg_tri_lower_rcond) {
10011 {
10012 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
10013 double *arg2 = (double *) 0 ;
10014 gsl_vector *arg3 = (gsl_vector *) 0 ;
10015 void *argp1 = 0 ;
10016 int res1 = 0 ;
10017 void *argp2 = 0 ;
10018 int res2 = 0 ;
10019 void *argp3 = 0 ;
10020 int res3 = 0 ;
10021 int argvi = 0;
10022 int result;
10023 dXSARGS;
10024
10025 if ((items < 3) || (items > 3)) {
10026 SWIG_croak("Usage: gsl_linalg_tri_lower_rcond(A,rcond,work);");
10027 }
10028 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
10029 if (!SWIG_IsOK(res1)) {
10030 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_tri_lower_rcond" "', argument " "1"" of type '" "gsl_matrix const *""'");
10031 }
10032 arg1 = (gsl_matrix *)(argp1);
10033 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_double, 0 | 0 );
10034 if (!SWIG_IsOK(res2)) {
10035 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_tri_lower_rcond" "', argument " "2"" of type '" "double *""'");
10036 }
10037 arg2 = (double *)(argp2);
10038 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
10039 if (!SWIG_IsOK(res3)) {
10040 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_tri_lower_rcond" "', argument " "3"" of type '" "gsl_vector *""'");
10041 }
10042 arg3 = (gsl_vector *)(argp3);
10043 result = (int)gsl_linalg_tri_lower_rcond((gsl_matrix const *)arg1,arg2,arg3);
10044 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
10045
10046
10047
10048 XSRETURN(argvi);
10049 fail:
10050
10051
10052
10053 SWIG_croak_null();
10054 }
10055 }
10056
10057
XS(_wrap_gsl_linalg_invnorm1)10058 XS(_wrap_gsl_linalg_invnorm1) {
10059 {
10060 size_t arg1 ;
10061 int (*arg2)(CBLAS_TRANSPOSE_t,gsl_vector *,void *) = (int (*)(CBLAS_TRANSPOSE_t,gsl_vector *,void *)) 0 ;
10062 void *arg3 = (void *) 0 ;
10063 double *arg4 = (double *) 0 ;
10064 gsl_vector *arg5 = (gsl_vector *) 0 ;
10065 size_t val1 ;
10066 int ecode1 = 0 ;
10067 int res3 ;
10068 void *argp4 = 0 ;
10069 int res4 = 0 ;
10070 void *argp5 = 0 ;
10071 int res5 = 0 ;
10072 int argvi = 0;
10073 int result;
10074 dXSARGS;
10075
10076 if ((items < 5) || (items > 5)) {
10077 SWIG_croak("Usage: gsl_linalg_invnorm1(N,Ainvx,params,Ainvnorm,work);");
10078 }
10079 ecode1 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
10080 if (!SWIG_IsOK(ecode1)) {
10081 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_linalg_invnorm1" "', argument " "1"" of type '" "size_t""'");
10082 }
10083 arg1 = (size_t)(val1);
10084 {
10085 int res = SWIG_ConvertFunctionPtr(ST(1), (void**)(&arg2), SWIGTYPE_p_f_CBLAS_TRANSPOSE_t_p_gsl_vector_p_void__int);
10086 if (!SWIG_IsOK(res)) {
10087 SWIG_exception_fail(SWIG_ArgError(res), "in method '" "gsl_linalg_invnorm1" "', argument " "2"" of type '" "int (*)(CBLAS_TRANSPOSE_t,gsl_vector *,void *)""'");
10088 }
10089 }
10090 res3 = SWIG_ConvertPtr(ST(2),SWIG_as_voidptrptr(&arg3), 0, 0);
10091 if (!SWIG_IsOK(res3)) {
10092 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_invnorm1" "', argument " "3"" of type '" "void *""'");
10093 }
10094 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_double, 0 | 0 );
10095 if (!SWIG_IsOK(res4)) {
10096 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_invnorm1" "', argument " "4"" of type '" "double *""'");
10097 }
10098 arg4 = (double *)(argp4);
10099 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
10100 if (!SWIG_IsOK(res5)) {
10101 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_invnorm1" "', argument " "5"" of type '" "gsl_vector *""'");
10102 }
10103 arg5 = (gsl_vector *)(argp5);
10104 result = (int)gsl_linalg_invnorm1(arg1,arg2,arg3,arg4,arg5);
10105 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
10106
10107
10108
10109
10110
10111 XSRETURN(argvi);
10112 fail:
10113
10114
10115
10116
10117
10118 SWIG_croak_null();
10119 }
10120 }
10121
10122
XS(_wrap_gsl_linalg_tri_upper_invert)10123 XS(_wrap_gsl_linalg_tri_upper_invert) {
10124 {
10125 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
10126 void *argp1 = 0 ;
10127 int res1 = 0 ;
10128 int argvi = 0;
10129 int result;
10130 dXSARGS;
10131
10132 if ((items < 1) || (items > 1)) {
10133 SWIG_croak("Usage: gsl_linalg_tri_upper_invert(T);");
10134 }
10135 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
10136 if (!SWIG_IsOK(res1)) {
10137 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_tri_upper_invert" "', argument " "1"" of type '" "gsl_matrix *""'");
10138 }
10139 arg1 = (gsl_matrix *)(argp1);
10140 result = (int)gsl_linalg_tri_upper_invert(arg1);
10141 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
10142
10143 XSRETURN(argvi);
10144 fail:
10145
10146 SWIG_croak_null();
10147 }
10148 }
10149
10150
XS(_wrap_gsl_linalg_tri_lower_invert)10151 XS(_wrap_gsl_linalg_tri_lower_invert) {
10152 {
10153 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
10154 void *argp1 = 0 ;
10155 int res1 = 0 ;
10156 int argvi = 0;
10157 int result;
10158 dXSARGS;
10159
10160 if ((items < 1) || (items > 1)) {
10161 SWIG_croak("Usage: gsl_linalg_tri_lower_invert(T);");
10162 }
10163 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
10164 if (!SWIG_IsOK(res1)) {
10165 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_tri_lower_invert" "', argument " "1"" of type '" "gsl_matrix *""'");
10166 }
10167 arg1 = (gsl_matrix *)(argp1);
10168 result = (int)gsl_linalg_tri_lower_invert(arg1);
10169 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
10170
10171 XSRETURN(argvi);
10172 fail:
10173
10174 SWIG_croak_null();
10175 }
10176 }
10177
10178
XS(_wrap_gsl_linalg_tri_upper_unit_invert)10179 XS(_wrap_gsl_linalg_tri_upper_unit_invert) {
10180 {
10181 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
10182 void *argp1 = 0 ;
10183 int res1 = 0 ;
10184 int argvi = 0;
10185 int result;
10186 dXSARGS;
10187
10188 if ((items < 1) || (items > 1)) {
10189 SWIG_croak("Usage: gsl_linalg_tri_upper_unit_invert(T);");
10190 }
10191 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
10192 if (!SWIG_IsOK(res1)) {
10193 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_tri_upper_unit_invert" "', argument " "1"" of type '" "gsl_matrix *""'");
10194 }
10195 arg1 = (gsl_matrix *)(argp1);
10196 result = (int)gsl_linalg_tri_upper_unit_invert(arg1);
10197 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
10198
10199 XSRETURN(argvi);
10200 fail:
10201
10202 SWIG_croak_null();
10203 }
10204 }
10205
10206
XS(_wrap_gsl_linalg_tri_lower_unit_invert)10207 XS(_wrap_gsl_linalg_tri_lower_unit_invert) {
10208 {
10209 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
10210 void *argp1 = 0 ;
10211 int res1 = 0 ;
10212 int argvi = 0;
10213 int result;
10214 dXSARGS;
10215
10216 if ((items < 1) || (items > 1)) {
10217 SWIG_croak("Usage: gsl_linalg_tri_lower_unit_invert(T);");
10218 }
10219 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
10220 if (!SWIG_IsOK(res1)) {
10221 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_tri_lower_unit_invert" "', argument " "1"" of type '" "gsl_matrix *""'");
10222 }
10223 arg1 = (gsl_matrix *)(argp1);
10224 result = (int)gsl_linalg_tri_lower_unit_invert(arg1);
10225 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
10226
10227 XSRETURN(argvi);
10228 fail:
10229
10230 SWIG_croak_null();
10231 }
10232 }
10233
10234
XS(_wrap_gsl_linalg_givens)10235 XS(_wrap_gsl_linalg_givens) {
10236 {
10237 double arg1 ;
10238 double arg2 ;
10239 double *arg3 = (double *) 0 ;
10240 double *arg4 = (double *) 0 ;
10241 double val1 ;
10242 int ecode1 = 0 ;
10243 double val2 ;
10244 int ecode2 = 0 ;
10245 double temp3 ;
10246 int res3 = SWIG_TMPOBJ ;
10247 double temp4 ;
10248 int res4 = SWIG_TMPOBJ ;
10249 int argvi = 0;
10250 dXSARGS;
10251
10252 arg3 = &temp3;
10253 arg4 = &temp4;
10254 if ((items < 2) || (items > 2)) {
10255 SWIG_croak("Usage: gsl_linalg_givens(a,b);");
10256 }
10257 ecode1 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
10258 if (!SWIG_IsOK(ecode1)) {
10259 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_linalg_givens" "', argument " "1"" of type '" "double""'");
10260 }
10261 arg1 = (double)(val1);
10262 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
10263 if (!SWIG_IsOK(ecode2)) {
10264 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_linalg_givens" "', argument " "2"" of type '" "double""'");
10265 }
10266 arg2 = (double)(val2);
10267 gsl_linalg_givens(arg1,arg2,arg3,arg4);
10268 ST(argvi) = &PL_sv_undef;
10269 if (SWIG_IsTmpObj(res3)) {
10270 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((*arg3)); argvi++ ;
10271 } else {
10272 int new_flags = SWIG_IsNewObj(res3) ? (SWIG_POINTER_OWN | 0) : 0;
10273 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg3), SWIGTYPE_p_double, new_flags); argvi++ ;
10274 }
10275 if (SWIG_IsTmpObj(res4)) {
10276 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((*arg4)); argvi++ ;
10277 } else {
10278 int new_flags = SWIG_IsNewObj(res4) ? (SWIG_POINTER_OWN | 0) : 0;
10279 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg4), SWIGTYPE_p_double, new_flags); argvi++ ;
10280 }
10281
10282
10283
10284
10285 XSRETURN(argvi);
10286 fail:
10287
10288
10289
10290
10291 SWIG_croak_null();
10292 }
10293 }
10294
10295
XS(_wrap_gsl_linalg_givens_gv)10296 XS(_wrap_gsl_linalg_givens_gv) {
10297 {
10298 gsl_vector *arg1 = (gsl_vector *) 0 ;
10299 size_t arg2 ;
10300 size_t arg3 ;
10301 double arg4 ;
10302 double arg5 ;
10303 void *argp1 = 0 ;
10304 int res1 = 0 ;
10305 size_t val2 ;
10306 int ecode2 = 0 ;
10307 size_t val3 ;
10308 int ecode3 = 0 ;
10309 double val4 ;
10310 int ecode4 = 0 ;
10311 double val5 ;
10312 int ecode5 = 0 ;
10313 int argvi = 0;
10314 dXSARGS;
10315
10316 if ((items < 5) || (items > 5)) {
10317 SWIG_croak("Usage: gsl_linalg_givens_gv(v,i,j,c,s);");
10318 }
10319 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
10320 if (!SWIG_IsOK(res1)) {
10321 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_givens_gv" "', argument " "1"" of type '" "gsl_vector *""'");
10322 }
10323 arg1 = (gsl_vector *)(argp1);
10324 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
10325 if (!SWIG_IsOK(ecode2)) {
10326 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_linalg_givens_gv" "', argument " "2"" of type '" "size_t""'");
10327 }
10328 arg2 = (size_t)(val2);
10329 ecode3 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
10330 if (!SWIG_IsOK(ecode3)) {
10331 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_linalg_givens_gv" "', argument " "3"" of type '" "size_t""'");
10332 }
10333 arg3 = (size_t)(val3);
10334 ecode4 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(3), &val4);
10335 if (!SWIG_IsOK(ecode4)) {
10336 SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "gsl_linalg_givens_gv" "', argument " "4"" of type '" "double""'");
10337 }
10338 arg4 = (double)(val4);
10339 ecode5 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(4), &val5);
10340 if (!SWIG_IsOK(ecode5)) {
10341 SWIG_exception_fail(SWIG_ArgError(ecode5), "in method '" "gsl_linalg_givens_gv" "', argument " "5"" of type '" "double""'");
10342 }
10343 arg5 = (double)(val5);
10344 gsl_linalg_givens_gv(arg1,arg2,arg3,arg4,arg5);
10345 ST(argvi) = &PL_sv_undef;
10346
10347
10348
10349
10350
10351 XSRETURN(argvi);
10352 fail:
10353
10354
10355
10356
10357
10358 SWIG_croak_null();
10359 }
10360 }
10361
10362
XS(_wrap_gsl_permutation_struct_size_set)10363 XS(_wrap_gsl_permutation_struct_size_set) {
10364 {
10365 struct gsl_permutation_struct *arg1 = (struct gsl_permutation_struct *) 0 ;
10366 size_t arg2 ;
10367 void *argp1 = 0 ;
10368 int res1 = 0 ;
10369 size_t val2 ;
10370 int ecode2 = 0 ;
10371 int argvi = 0;
10372 dXSARGS;
10373
10374 if ((items < 2) || (items > 2)) {
10375 SWIG_croak("Usage: gsl_permutation_struct_size_set(self,size);");
10376 }
10377 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
10378 if (!SWIG_IsOK(res1)) {
10379 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_struct_size_set" "', argument " "1"" of type '" "struct gsl_permutation_struct *""'");
10380 }
10381 arg1 = (struct gsl_permutation_struct *)(argp1);
10382 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
10383 if (!SWIG_IsOK(ecode2)) {
10384 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_permutation_struct_size_set" "', argument " "2"" of type '" "size_t""'");
10385 }
10386 arg2 = (size_t)(val2);
10387 if (arg1) (arg1)->size = arg2;
10388 ST(argvi) = &PL_sv_undef;
10389
10390
10391 XSRETURN(argvi);
10392 fail:
10393
10394
10395 SWIG_croak_null();
10396 }
10397 }
10398
10399
XS(_wrap_gsl_permutation_struct_size_get)10400 XS(_wrap_gsl_permutation_struct_size_get) {
10401 {
10402 struct gsl_permutation_struct *arg1 = (struct gsl_permutation_struct *) 0 ;
10403 void *argp1 = 0 ;
10404 int res1 = 0 ;
10405 int argvi = 0;
10406 size_t result;
10407 dXSARGS;
10408
10409 if ((items < 1) || (items > 1)) {
10410 SWIG_croak("Usage: gsl_permutation_struct_size_get(self);");
10411 }
10412 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
10413 if (!SWIG_IsOK(res1)) {
10414 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_struct_size_get" "', argument " "1"" of type '" "struct gsl_permutation_struct *""'");
10415 }
10416 arg1 = (struct gsl_permutation_struct *)(argp1);
10417 result = ((arg1)->size);
10418 ST(argvi) = SWIG_From_size_t SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
10419
10420 XSRETURN(argvi);
10421 fail:
10422
10423 SWIG_croak_null();
10424 }
10425 }
10426
10427
XS(_wrap_gsl_permutation_struct_data_set)10428 XS(_wrap_gsl_permutation_struct_data_set) {
10429 {
10430 struct gsl_permutation_struct *arg1 = (struct gsl_permutation_struct *) 0 ;
10431 size_t *arg2 = (size_t *) 0 ;
10432 void *argp1 = 0 ;
10433 int res1 = 0 ;
10434 void *argp2 = 0 ;
10435 int res2 = 0 ;
10436 int argvi = 0;
10437 dXSARGS;
10438
10439 if ((items < 2) || (items > 2)) {
10440 SWIG_croak("Usage: gsl_permutation_struct_data_set(self,data);");
10441 }
10442 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
10443 if (!SWIG_IsOK(res1)) {
10444 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_struct_data_set" "', argument " "1"" of type '" "struct gsl_permutation_struct *""'");
10445 }
10446 arg1 = (struct gsl_permutation_struct *)(argp1);
10447 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_size_t, SWIG_POINTER_DISOWN | 0 );
10448 if (!SWIG_IsOK(res2)) {
10449 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_permutation_struct_data_set" "', argument " "2"" of type '" "size_t *""'");
10450 }
10451 arg2 = (size_t *)(argp2);
10452 if (arg1) (arg1)->data = arg2;
10453 ST(argvi) = &PL_sv_undef;
10454
10455
10456 XSRETURN(argvi);
10457 fail:
10458
10459
10460 SWIG_croak_null();
10461 }
10462 }
10463
10464
XS(_wrap_gsl_permutation_struct_data_get)10465 XS(_wrap_gsl_permutation_struct_data_get) {
10466 {
10467 struct gsl_permutation_struct *arg1 = (struct gsl_permutation_struct *) 0 ;
10468 void *argp1 = 0 ;
10469 int res1 = 0 ;
10470 int argvi = 0;
10471 size_t *result = 0 ;
10472 dXSARGS;
10473
10474 if ((items < 1) || (items > 1)) {
10475 SWIG_croak("Usage: gsl_permutation_struct_data_get(self);");
10476 }
10477 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
10478 if (!SWIG_IsOK(res1)) {
10479 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_struct_data_get" "', argument " "1"" of type '" "struct gsl_permutation_struct *""'");
10480 }
10481 arg1 = (struct gsl_permutation_struct *)(argp1);
10482 result = (size_t *) ((arg1)->data);
10483 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_size_t, 0 | 0); argvi++ ;
10484
10485 XSRETURN(argvi);
10486 fail:
10487
10488 SWIG_croak_null();
10489 }
10490 }
10491
10492
XS(_wrap_new_gsl_permutation_struct)10493 XS(_wrap_new_gsl_permutation_struct) {
10494 {
10495 int argvi = 0;
10496 struct gsl_permutation_struct *result = 0 ;
10497 dXSARGS;
10498
10499 if ((items < 0) || (items > 0)) {
10500 SWIG_croak("Usage: new_gsl_permutation_struct();");
10501 }
10502 result = (struct gsl_permutation_struct *)calloc(1, sizeof(struct gsl_permutation_struct));
10503 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_permutation_struct, SWIG_OWNER | SWIG_SHADOW); argvi++ ;
10504 XSRETURN(argvi);
10505 fail:
10506 SWIG_croak_null();
10507 }
10508 }
10509
10510
XS(_wrap_delete_gsl_permutation_struct)10511 XS(_wrap_delete_gsl_permutation_struct) {
10512 {
10513 struct gsl_permutation_struct *arg1 = (struct gsl_permutation_struct *) 0 ;
10514 void *argp1 = 0 ;
10515 int res1 = 0 ;
10516 int argvi = 0;
10517 dXSARGS;
10518
10519 if ((items < 1) || (items > 1)) {
10520 SWIG_croak("Usage: delete_gsl_permutation_struct(self);");
10521 }
10522 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, SWIG_POINTER_DISOWN | 0 );
10523 if (!SWIG_IsOK(res1)) {
10524 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "delete_gsl_permutation_struct" "', argument " "1"" of type '" "struct gsl_permutation_struct *""'");
10525 }
10526 arg1 = (struct gsl_permutation_struct *)(argp1);
10527 free((char *) arg1);
10528 ST(argvi) = &PL_sv_undef;
10529
10530 XSRETURN(argvi);
10531 fail:
10532
10533 SWIG_croak_null();
10534 }
10535 }
10536
10537
XS(_wrap_gsl_permutation_alloc)10538 XS(_wrap_gsl_permutation_alloc) {
10539 {
10540 size_t arg1 ;
10541 size_t val1 ;
10542 int ecode1 = 0 ;
10543 int argvi = 0;
10544 gsl_permutation *result = 0 ;
10545 dXSARGS;
10546
10547 if ((items < 1) || (items > 1)) {
10548 SWIG_croak("Usage: gsl_permutation_alloc(n);");
10549 }
10550 ecode1 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
10551 if (!SWIG_IsOK(ecode1)) {
10552 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_permutation_alloc" "', argument " "1"" of type '" "size_t""'");
10553 }
10554 arg1 = (size_t)(val1);
10555 result = (gsl_permutation *)gsl_permutation_alloc(arg1);
10556 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_permutation_struct, 0 | SWIG_SHADOW); argvi++ ;
10557
10558 XSRETURN(argvi);
10559 fail:
10560
10561 SWIG_croak_null();
10562 }
10563 }
10564
10565
XS(_wrap_gsl_permutation_calloc)10566 XS(_wrap_gsl_permutation_calloc) {
10567 {
10568 size_t arg1 ;
10569 size_t val1 ;
10570 int ecode1 = 0 ;
10571 int argvi = 0;
10572 gsl_permutation *result = 0 ;
10573 dXSARGS;
10574
10575 if ((items < 1) || (items > 1)) {
10576 SWIG_croak("Usage: gsl_permutation_calloc(n);");
10577 }
10578 ecode1 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
10579 if (!SWIG_IsOK(ecode1)) {
10580 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_permutation_calloc" "', argument " "1"" of type '" "size_t""'");
10581 }
10582 arg1 = (size_t)(val1);
10583 result = (gsl_permutation *)gsl_permutation_calloc(arg1);
10584 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_permutation_struct, 0 | SWIG_SHADOW); argvi++ ;
10585
10586 XSRETURN(argvi);
10587 fail:
10588
10589 SWIG_croak_null();
10590 }
10591 }
10592
10593
XS(_wrap_gsl_permutation_init)10594 XS(_wrap_gsl_permutation_init) {
10595 {
10596 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
10597 void *argp1 = 0 ;
10598 int res1 = 0 ;
10599 int argvi = 0;
10600 dXSARGS;
10601
10602 if ((items < 1) || (items > 1)) {
10603 SWIG_croak("Usage: gsl_permutation_init(p);");
10604 }
10605 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
10606 if (!SWIG_IsOK(res1)) {
10607 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_init" "', argument " "1"" of type '" "gsl_permutation *""'");
10608 }
10609 arg1 = (gsl_permutation *)(argp1);
10610 gsl_permutation_init(arg1);
10611 ST(argvi) = &PL_sv_undef;
10612
10613 XSRETURN(argvi);
10614 fail:
10615
10616 SWIG_croak_null();
10617 }
10618 }
10619
10620
XS(_wrap_gsl_permutation_free)10621 XS(_wrap_gsl_permutation_free) {
10622 {
10623 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
10624 void *argp1 = 0 ;
10625 int res1 = 0 ;
10626 int argvi = 0;
10627 dXSARGS;
10628
10629 if ((items < 1) || (items > 1)) {
10630 SWIG_croak("Usage: gsl_permutation_free(p);");
10631 }
10632 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
10633 if (!SWIG_IsOK(res1)) {
10634 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_free" "', argument " "1"" of type '" "gsl_permutation *""'");
10635 }
10636 arg1 = (gsl_permutation *)(argp1);
10637 gsl_permutation_free(arg1);
10638 ST(argvi) = &PL_sv_undef;
10639
10640 XSRETURN(argvi);
10641 fail:
10642
10643 SWIG_croak_null();
10644 }
10645 }
10646
10647
XS(_wrap_gsl_permutation_memcpy)10648 XS(_wrap_gsl_permutation_memcpy) {
10649 {
10650 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
10651 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
10652 void *argp1 = 0 ;
10653 int res1 = 0 ;
10654 void *argp2 = 0 ;
10655 int res2 = 0 ;
10656 int argvi = 0;
10657 int result;
10658 dXSARGS;
10659
10660 if ((items < 2) || (items > 2)) {
10661 SWIG_croak("Usage: gsl_permutation_memcpy(dest,src);");
10662 }
10663 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
10664 if (!SWIG_IsOK(res1)) {
10665 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_memcpy" "', argument " "1"" of type '" "gsl_permutation *""'");
10666 }
10667 arg1 = (gsl_permutation *)(argp1);
10668 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
10669 if (!SWIG_IsOK(res2)) {
10670 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_permutation_memcpy" "', argument " "2"" of type '" "gsl_permutation const *""'");
10671 }
10672 arg2 = (gsl_permutation *)(argp2);
10673 result = (int)gsl_permutation_memcpy(arg1,(struct gsl_permutation_struct const *)arg2);
10674 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
10675
10676
10677 XSRETURN(argvi);
10678 fail:
10679
10680
10681 SWIG_croak_null();
10682 }
10683 }
10684
10685
XS(_wrap_gsl_permutation_fread)10686 XS(_wrap_gsl_permutation_fread) {
10687 {
10688 FILE *arg1 = (FILE *) 0 ;
10689 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
10690 void *argp1 = 0 ;
10691 int res1 = 0 ;
10692 void *argp2 = 0 ;
10693 int res2 = 0 ;
10694 int argvi = 0;
10695 int result;
10696 dXSARGS;
10697
10698 if ((items < 2) || (items > 2)) {
10699 SWIG_croak("Usage: gsl_permutation_fread(stream,p);");
10700 }
10701 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_FILE, 0 | 0 );
10702 if (!SWIG_IsOK(res1)) {
10703 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_fread" "', argument " "1"" of type '" "FILE *""'");
10704 }
10705 arg1 = (FILE *)(argp1);
10706 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
10707 if (!SWIG_IsOK(res2)) {
10708 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_permutation_fread" "', argument " "2"" of type '" "gsl_permutation *""'");
10709 }
10710 arg2 = (gsl_permutation *)(argp2);
10711 result = (int)gsl_permutation_fread(arg1,arg2);
10712 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
10713
10714
10715 XSRETURN(argvi);
10716 fail:
10717
10718
10719 SWIG_croak_null();
10720 }
10721 }
10722
10723
XS(_wrap_gsl_permutation_fwrite)10724 XS(_wrap_gsl_permutation_fwrite) {
10725 {
10726 FILE *arg1 = (FILE *) 0 ;
10727 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
10728 void *argp1 = 0 ;
10729 int res1 = 0 ;
10730 void *argp2 = 0 ;
10731 int res2 = 0 ;
10732 int argvi = 0;
10733 int result;
10734 dXSARGS;
10735
10736 if ((items < 2) || (items > 2)) {
10737 SWIG_croak("Usage: gsl_permutation_fwrite(stream,p);");
10738 }
10739 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_FILE, 0 | 0 );
10740 if (!SWIG_IsOK(res1)) {
10741 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_fwrite" "', argument " "1"" of type '" "FILE *""'");
10742 }
10743 arg1 = (FILE *)(argp1);
10744 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
10745 if (!SWIG_IsOK(res2)) {
10746 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_permutation_fwrite" "', argument " "2"" of type '" "gsl_permutation const *""'");
10747 }
10748 arg2 = (gsl_permutation *)(argp2);
10749 result = (int)gsl_permutation_fwrite(arg1,(struct gsl_permutation_struct const *)arg2);
10750 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
10751
10752
10753 XSRETURN(argvi);
10754 fail:
10755
10756
10757 SWIG_croak_null();
10758 }
10759 }
10760
10761
XS(_wrap_gsl_permutation_fscanf)10762 XS(_wrap_gsl_permutation_fscanf) {
10763 {
10764 FILE *arg1 = (FILE *) 0 ;
10765 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
10766 void *argp1 = 0 ;
10767 int res1 = 0 ;
10768 void *argp2 = 0 ;
10769 int res2 = 0 ;
10770 int argvi = 0;
10771 int result;
10772 dXSARGS;
10773
10774 if ((items < 2) || (items > 2)) {
10775 SWIG_croak("Usage: gsl_permutation_fscanf(stream,p);");
10776 }
10777 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_FILE, 0 | 0 );
10778 if (!SWIG_IsOK(res1)) {
10779 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_fscanf" "', argument " "1"" of type '" "FILE *""'");
10780 }
10781 arg1 = (FILE *)(argp1);
10782 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
10783 if (!SWIG_IsOK(res2)) {
10784 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_permutation_fscanf" "', argument " "2"" of type '" "gsl_permutation *""'");
10785 }
10786 arg2 = (gsl_permutation *)(argp2);
10787 result = (int)gsl_permutation_fscanf(arg1,arg2);
10788 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
10789
10790
10791 XSRETURN(argvi);
10792 fail:
10793
10794
10795 SWIG_croak_null();
10796 }
10797 }
10798
10799
XS(_wrap_gsl_permutation_fprintf)10800 XS(_wrap_gsl_permutation_fprintf) {
10801 {
10802 FILE *arg1 = (FILE *) 0 ;
10803 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
10804 char *arg3 = (char *) 0 ;
10805 void *argp1 = 0 ;
10806 int res1 = 0 ;
10807 void *argp2 = 0 ;
10808 int res2 = 0 ;
10809 int res3 ;
10810 char *buf3 = 0 ;
10811 int alloc3 = 0 ;
10812 int argvi = 0;
10813 int result;
10814 dXSARGS;
10815
10816 if ((items < 3) || (items > 3)) {
10817 SWIG_croak("Usage: gsl_permutation_fprintf(stream,p,format);");
10818 }
10819 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_FILE, 0 | 0 );
10820 if (!SWIG_IsOK(res1)) {
10821 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_fprintf" "', argument " "1"" of type '" "FILE *""'");
10822 }
10823 arg1 = (FILE *)(argp1);
10824 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
10825 if (!SWIG_IsOK(res2)) {
10826 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_permutation_fprintf" "', argument " "2"" of type '" "gsl_permutation const *""'");
10827 }
10828 arg2 = (gsl_permutation *)(argp2);
10829 res3 = SWIG_AsCharPtrAndSize(ST(2), &buf3, NULL, &alloc3);
10830 if (!SWIG_IsOK(res3)) {
10831 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_permutation_fprintf" "', argument " "3"" of type '" "char const *""'");
10832 }
10833 arg3 = (char *)(buf3);
10834 result = (int)gsl_permutation_fprintf(arg1,(struct gsl_permutation_struct const *)arg2,(char const *)arg3);
10835 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
10836
10837
10838 if (alloc3 == SWIG_NEWOBJ) free((char*)buf3);
10839 XSRETURN(argvi);
10840 fail:
10841
10842
10843 if (alloc3 == SWIG_NEWOBJ) free((char*)buf3);
10844 SWIG_croak_null();
10845 }
10846 }
10847
10848
XS(_wrap_gsl_permutation_size)10849 XS(_wrap_gsl_permutation_size) {
10850 {
10851 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
10852 void *argp1 = 0 ;
10853 int res1 = 0 ;
10854 int argvi = 0;
10855 size_t result;
10856 dXSARGS;
10857
10858 if ((items < 1) || (items > 1)) {
10859 SWIG_croak("Usage: gsl_permutation_size(p);");
10860 }
10861 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
10862 if (!SWIG_IsOK(res1)) {
10863 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_size" "', argument " "1"" of type '" "gsl_permutation const *""'");
10864 }
10865 arg1 = (gsl_permutation *)(argp1);
10866 result = gsl_permutation_size((struct gsl_permutation_struct const *)arg1);
10867 ST(argvi) = SWIG_From_size_t SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
10868
10869 XSRETURN(argvi);
10870 fail:
10871
10872 SWIG_croak_null();
10873 }
10874 }
10875
10876
XS(_wrap_gsl_permutation_data)10877 XS(_wrap_gsl_permutation_data) {
10878 {
10879 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
10880 void *argp1 = 0 ;
10881 int res1 = 0 ;
10882 int argvi = 0;
10883 size_t *result = 0 ;
10884 dXSARGS;
10885
10886 if ((items < 1) || (items > 1)) {
10887 SWIG_croak("Usage: gsl_permutation_data(p);");
10888 }
10889 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
10890 if (!SWIG_IsOK(res1)) {
10891 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_data" "', argument " "1"" of type '" "gsl_permutation const *""'");
10892 }
10893 arg1 = (gsl_permutation *)(argp1);
10894 result = (size_t *)gsl_permutation_data((struct gsl_permutation_struct const *)arg1);
10895 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_size_t, 0 | 0); argvi++ ;
10896
10897 XSRETURN(argvi);
10898 fail:
10899
10900 SWIG_croak_null();
10901 }
10902 }
10903
10904
XS(_wrap_gsl_permutation_swap)10905 XS(_wrap_gsl_permutation_swap) {
10906 {
10907 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
10908 size_t arg2 ;
10909 size_t arg3 ;
10910 void *argp1 = 0 ;
10911 int res1 = 0 ;
10912 size_t val2 ;
10913 int ecode2 = 0 ;
10914 size_t val3 ;
10915 int ecode3 = 0 ;
10916 int argvi = 0;
10917 int result;
10918 dXSARGS;
10919
10920 if ((items < 3) || (items > 3)) {
10921 SWIG_croak("Usage: gsl_permutation_swap(p,i,j);");
10922 }
10923 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
10924 if (!SWIG_IsOK(res1)) {
10925 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_swap" "', argument " "1"" of type '" "gsl_permutation *""'");
10926 }
10927 arg1 = (gsl_permutation *)(argp1);
10928 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
10929 if (!SWIG_IsOK(ecode2)) {
10930 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_permutation_swap" "', argument " "2"" of type '" "size_t""'");
10931 }
10932 arg2 = (size_t)(val2);
10933 ecode3 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
10934 if (!SWIG_IsOK(ecode3)) {
10935 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_permutation_swap" "', argument " "3"" of type '" "size_t""'");
10936 }
10937 arg3 = (size_t)(val3);
10938 result = (int)gsl_permutation_swap(arg1,arg2,arg3);
10939 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
10940
10941
10942
10943 XSRETURN(argvi);
10944 fail:
10945
10946
10947
10948 SWIG_croak_null();
10949 }
10950 }
10951
10952
XS(_wrap_gsl_permutation_valid)10953 XS(_wrap_gsl_permutation_valid) {
10954 {
10955 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
10956 void *argp1 = 0 ;
10957 int res1 = 0 ;
10958 int argvi = 0;
10959 int result;
10960 dXSARGS;
10961
10962 if ((items < 1) || (items > 1)) {
10963 SWIG_croak("Usage: gsl_permutation_valid(p);");
10964 }
10965 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
10966 if (!SWIG_IsOK(res1)) {
10967 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_valid" "', argument " "1"" of type '" "gsl_permutation const *""'");
10968 }
10969 arg1 = (gsl_permutation *)(argp1);
10970 result = (int)gsl_permutation_valid((struct gsl_permutation_struct const *)arg1);
10971 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
10972
10973 XSRETURN(argvi);
10974 fail:
10975
10976 SWIG_croak_null();
10977 }
10978 }
10979
10980
XS(_wrap_gsl_permutation_reverse)10981 XS(_wrap_gsl_permutation_reverse) {
10982 {
10983 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
10984 void *argp1 = 0 ;
10985 int res1 = 0 ;
10986 int argvi = 0;
10987 dXSARGS;
10988
10989 if ((items < 1) || (items > 1)) {
10990 SWIG_croak("Usage: gsl_permutation_reverse(p);");
10991 }
10992 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
10993 if (!SWIG_IsOK(res1)) {
10994 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_reverse" "', argument " "1"" of type '" "gsl_permutation *""'");
10995 }
10996 arg1 = (gsl_permutation *)(argp1);
10997 gsl_permutation_reverse(arg1);
10998 ST(argvi) = &PL_sv_undef;
10999
11000 XSRETURN(argvi);
11001 fail:
11002
11003 SWIG_croak_null();
11004 }
11005 }
11006
11007
XS(_wrap_gsl_permutation_inverse)11008 XS(_wrap_gsl_permutation_inverse) {
11009 {
11010 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
11011 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
11012 void *argp1 = 0 ;
11013 int res1 = 0 ;
11014 void *argp2 = 0 ;
11015 int res2 = 0 ;
11016 int argvi = 0;
11017 int result;
11018 dXSARGS;
11019
11020 if ((items < 2) || (items > 2)) {
11021 SWIG_croak("Usage: gsl_permutation_inverse(inv,p);");
11022 }
11023 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
11024 if (!SWIG_IsOK(res1)) {
11025 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_inverse" "', argument " "1"" of type '" "gsl_permutation *""'");
11026 }
11027 arg1 = (gsl_permutation *)(argp1);
11028 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
11029 if (!SWIG_IsOK(res2)) {
11030 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_permutation_inverse" "', argument " "2"" of type '" "gsl_permutation const *""'");
11031 }
11032 arg2 = (gsl_permutation *)(argp2);
11033 result = (int)gsl_permutation_inverse(arg1,(struct gsl_permutation_struct const *)arg2);
11034 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
11035
11036
11037 XSRETURN(argvi);
11038 fail:
11039
11040
11041 SWIG_croak_null();
11042 }
11043 }
11044
11045
XS(_wrap_gsl_permutation_next)11046 XS(_wrap_gsl_permutation_next) {
11047 {
11048 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
11049 void *argp1 = 0 ;
11050 int res1 = 0 ;
11051 int argvi = 0;
11052 int result;
11053 dXSARGS;
11054
11055 if ((items < 1) || (items > 1)) {
11056 SWIG_croak("Usage: gsl_permutation_next(p);");
11057 }
11058 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
11059 if (!SWIG_IsOK(res1)) {
11060 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_next" "', argument " "1"" of type '" "gsl_permutation *""'");
11061 }
11062 arg1 = (gsl_permutation *)(argp1);
11063 result = (int)gsl_permutation_next(arg1);
11064 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
11065
11066 XSRETURN(argvi);
11067 fail:
11068
11069 SWIG_croak_null();
11070 }
11071 }
11072
11073
XS(_wrap_gsl_permutation_prev)11074 XS(_wrap_gsl_permutation_prev) {
11075 {
11076 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
11077 void *argp1 = 0 ;
11078 int res1 = 0 ;
11079 int argvi = 0;
11080 int result;
11081 dXSARGS;
11082
11083 if ((items < 1) || (items > 1)) {
11084 SWIG_croak("Usage: gsl_permutation_prev(p);");
11085 }
11086 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
11087 if (!SWIG_IsOK(res1)) {
11088 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_prev" "', argument " "1"" of type '" "gsl_permutation *""'");
11089 }
11090 arg1 = (gsl_permutation *)(argp1);
11091 result = (int)gsl_permutation_prev(arg1);
11092 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
11093
11094 XSRETURN(argvi);
11095 fail:
11096
11097 SWIG_croak_null();
11098 }
11099 }
11100
11101
XS(_wrap_gsl_permutation_mul)11102 XS(_wrap_gsl_permutation_mul) {
11103 {
11104 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
11105 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
11106 gsl_permutation *arg3 = (gsl_permutation *) 0 ;
11107 void *argp1 = 0 ;
11108 int res1 = 0 ;
11109 void *argp2 = 0 ;
11110 int res2 = 0 ;
11111 void *argp3 = 0 ;
11112 int res3 = 0 ;
11113 int argvi = 0;
11114 int result;
11115 dXSARGS;
11116
11117 if ((items < 3) || (items > 3)) {
11118 SWIG_croak("Usage: gsl_permutation_mul(p,pa,pb);");
11119 }
11120 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
11121 if (!SWIG_IsOK(res1)) {
11122 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_mul" "', argument " "1"" of type '" "gsl_permutation *""'");
11123 }
11124 arg1 = (gsl_permutation *)(argp1);
11125 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
11126 if (!SWIG_IsOK(res2)) {
11127 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_permutation_mul" "', argument " "2"" of type '" "gsl_permutation const *""'");
11128 }
11129 arg2 = (gsl_permutation *)(argp2);
11130 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
11131 if (!SWIG_IsOK(res3)) {
11132 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_permutation_mul" "', argument " "3"" of type '" "gsl_permutation const *""'");
11133 }
11134 arg3 = (gsl_permutation *)(argp3);
11135 result = (int)gsl_permutation_mul(arg1,(struct gsl_permutation_struct const *)arg2,(struct gsl_permutation_struct const *)arg3);
11136 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
11137
11138
11139
11140 XSRETURN(argvi);
11141 fail:
11142
11143
11144
11145 SWIG_croak_null();
11146 }
11147 }
11148
11149
XS(_wrap_gsl_permutation_linear_to_canonical)11150 XS(_wrap_gsl_permutation_linear_to_canonical) {
11151 {
11152 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
11153 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
11154 void *argp1 = 0 ;
11155 int res1 = 0 ;
11156 void *argp2 = 0 ;
11157 int res2 = 0 ;
11158 int argvi = 0;
11159 int result;
11160 dXSARGS;
11161
11162 if ((items < 2) || (items > 2)) {
11163 SWIG_croak("Usage: gsl_permutation_linear_to_canonical(q,p);");
11164 }
11165 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
11166 if (!SWIG_IsOK(res1)) {
11167 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_linear_to_canonical" "', argument " "1"" of type '" "gsl_permutation *""'");
11168 }
11169 arg1 = (gsl_permutation *)(argp1);
11170 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
11171 if (!SWIG_IsOK(res2)) {
11172 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_permutation_linear_to_canonical" "', argument " "2"" of type '" "gsl_permutation const *""'");
11173 }
11174 arg2 = (gsl_permutation *)(argp2);
11175 result = (int)gsl_permutation_linear_to_canonical(arg1,(struct gsl_permutation_struct const *)arg2);
11176 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
11177
11178
11179 XSRETURN(argvi);
11180 fail:
11181
11182
11183 SWIG_croak_null();
11184 }
11185 }
11186
11187
XS(_wrap_gsl_permutation_canonical_to_linear)11188 XS(_wrap_gsl_permutation_canonical_to_linear) {
11189 {
11190 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
11191 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
11192 void *argp1 = 0 ;
11193 int res1 = 0 ;
11194 void *argp2 = 0 ;
11195 int res2 = 0 ;
11196 int argvi = 0;
11197 int result;
11198 dXSARGS;
11199
11200 if ((items < 2) || (items > 2)) {
11201 SWIG_croak("Usage: gsl_permutation_canonical_to_linear(p,q);");
11202 }
11203 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
11204 if (!SWIG_IsOK(res1)) {
11205 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_canonical_to_linear" "', argument " "1"" of type '" "gsl_permutation *""'");
11206 }
11207 arg1 = (gsl_permutation *)(argp1);
11208 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
11209 if (!SWIG_IsOK(res2)) {
11210 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_permutation_canonical_to_linear" "', argument " "2"" of type '" "gsl_permutation const *""'");
11211 }
11212 arg2 = (gsl_permutation *)(argp2);
11213 result = (int)gsl_permutation_canonical_to_linear(arg1,(struct gsl_permutation_struct const *)arg2);
11214 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
11215
11216
11217 XSRETURN(argvi);
11218 fail:
11219
11220
11221 SWIG_croak_null();
11222 }
11223 }
11224
11225
XS(_wrap_gsl_permutation_inversions)11226 XS(_wrap_gsl_permutation_inversions) {
11227 {
11228 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
11229 void *argp1 = 0 ;
11230 int res1 = 0 ;
11231 int argvi = 0;
11232 size_t result;
11233 dXSARGS;
11234
11235 if ((items < 1) || (items > 1)) {
11236 SWIG_croak("Usage: gsl_permutation_inversions(p);");
11237 }
11238 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
11239 if (!SWIG_IsOK(res1)) {
11240 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_inversions" "', argument " "1"" of type '" "gsl_permutation const *""'");
11241 }
11242 arg1 = (gsl_permutation *)(argp1);
11243 result = gsl_permutation_inversions((struct gsl_permutation_struct const *)arg1);
11244 ST(argvi) = SWIG_From_size_t SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
11245
11246 XSRETURN(argvi);
11247 fail:
11248
11249 SWIG_croak_null();
11250 }
11251 }
11252
11253
XS(_wrap_gsl_permutation_linear_cycles)11254 XS(_wrap_gsl_permutation_linear_cycles) {
11255 {
11256 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
11257 void *argp1 = 0 ;
11258 int res1 = 0 ;
11259 int argvi = 0;
11260 size_t result;
11261 dXSARGS;
11262
11263 if ((items < 1) || (items > 1)) {
11264 SWIG_croak("Usage: gsl_permutation_linear_cycles(p);");
11265 }
11266 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
11267 if (!SWIG_IsOK(res1)) {
11268 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_linear_cycles" "', argument " "1"" of type '" "gsl_permutation const *""'");
11269 }
11270 arg1 = (gsl_permutation *)(argp1);
11271 result = gsl_permutation_linear_cycles((struct gsl_permutation_struct const *)arg1);
11272 ST(argvi) = SWIG_From_size_t SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
11273
11274 XSRETURN(argvi);
11275 fail:
11276
11277 SWIG_croak_null();
11278 }
11279 }
11280
11281
XS(_wrap_gsl_permutation_canonical_cycles)11282 XS(_wrap_gsl_permutation_canonical_cycles) {
11283 {
11284 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
11285 void *argp1 = 0 ;
11286 int res1 = 0 ;
11287 int argvi = 0;
11288 size_t result;
11289 dXSARGS;
11290
11291 if ((items < 1) || (items > 1)) {
11292 SWIG_croak("Usage: gsl_permutation_canonical_cycles(q);");
11293 }
11294 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
11295 if (!SWIG_IsOK(res1)) {
11296 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_canonical_cycles" "', argument " "1"" of type '" "gsl_permutation const *""'");
11297 }
11298 arg1 = (gsl_permutation *)(argp1);
11299 result = gsl_permutation_canonical_cycles((struct gsl_permutation_struct const *)arg1);
11300 ST(argvi) = SWIG_From_size_t SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
11301
11302 XSRETURN(argvi);
11303 fail:
11304
11305 SWIG_croak_null();
11306 }
11307 }
11308
11309
XS(_wrap_gsl_permutation_get)11310 XS(_wrap_gsl_permutation_get) {
11311 {
11312 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
11313 size_t arg2 ;
11314 void *argp1 = 0 ;
11315 int res1 = 0 ;
11316 size_t val2 ;
11317 int ecode2 = 0 ;
11318 int argvi = 0;
11319 size_t result;
11320 dXSARGS;
11321
11322 if ((items < 2) || (items > 2)) {
11323 SWIG_croak("Usage: gsl_permutation_get(p,i);");
11324 }
11325 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
11326 if (!SWIG_IsOK(res1)) {
11327 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_get" "', argument " "1"" of type '" "gsl_permutation const *""'");
11328 }
11329 arg1 = (gsl_permutation *)(argp1);
11330 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
11331 if (!SWIG_IsOK(ecode2)) {
11332 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_permutation_get" "', argument " "2"" of type '" "size_t""'");
11333 }
11334 arg2 = (size_t)(val2);
11335 result = gsl_permutation_get((struct gsl_permutation_struct const *)arg1,arg2);
11336 ST(argvi) = SWIG_From_size_t SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
11337
11338
11339 XSRETURN(argvi);
11340 fail:
11341
11342
11343 SWIG_croak_null();
11344 }
11345 }
11346
11347
XS(_wrap_gsl_complex_dat_set)11348 XS(_wrap_gsl_complex_dat_set) {
11349 {
11350 gsl_complex *arg1 = (gsl_complex *) 0 ;
11351 double *arg2 ;
11352 void *argp1 = 0 ;
11353 int res1 = 0 ;
11354 void *argp2 = 0 ;
11355 int res2 = 0 ;
11356 int argvi = 0;
11357 dXSARGS;
11358
11359 if ((items < 2) || (items > 2)) {
11360 SWIG_croak("Usage: gsl_complex_dat_set(self,dat);");
11361 }
11362 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_complex, 0 | 0 );
11363 if (!SWIG_IsOK(res1)) {
11364 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_dat_set" "', argument " "1"" of type '" "gsl_complex *""'");
11365 }
11366 arg1 = (gsl_complex *)(argp1);
11367 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_double, 0 | 0 );
11368 if (!SWIG_IsOK(res2)) {
11369 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_complex_dat_set" "', argument " "2"" of type '" "double [2]""'");
11370 }
11371 arg2 = (double *)(argp2);
11372 {
11373 if (arg2) {
11374 size_t ii = 0;
11375 for (; ii < (size_t)2; ++ii) *(double *)&arg1->dat[ii] = *((double *)arg2 + ii);
11376 } else {
11377 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in variable '""dat""' of type '""double [2]""'");
11378 }
11379 }
11380 ST(argvi) = &PL_sv_undef;
11381
11382
11383 XSRETURN(argvi);
11384 fail:
11385
11386
11387 SWIG_croak_null();
11388 }
11389 }
11390
11391
XS(_wrap_gsl_complex_dat_get)11392 XS(_wrap_gsl_complex_dat_get) {
11393 {
11394 gsl_complex *arg1 = (gsl_complex *) 0 ;
11395 void *argp1 = 0 ;
11396 int res1 = 0 ;
11397 int argvi = 0;
11398 double *result = 0 ;
11399 dXSARGS;
11400
11401 if ((items < 1) || (items > 1)) {
11402 SWIG_croak("Usage: gsl_complex_dat_get(self);");
11403 }
11404 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_complex, 0 | 0 );
11405 if (!SWIG_IsOK(res1)) {
11406 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_dat_get" "', argument " "1"" of type '" "gsl_complex *""'");
11407 }
11408 arg1 = (gsl_complex *)(argp1);
11409 result = (double *)(double *) ((arg1)->dat);
11410 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_double, 0 | 0); argvi++ ;
11411
11412 XSRETURN(argvi);
11413 fail:
11414
11415 SWIG_croak_null();
11416 }
11417 }
11418
11419
XS(_wrap_new_gsl_complex)11420 XS(_wrap_new_gsl_complex) {
11421 {
11422 int argvi = 0;
11423 gsl_complex *result = 0 ;
11424 dXSARGS;
11425
11426 if ((items < 0) || (items > 0)) {
11427 SWIG_croak("Usage: new_gsl_complex();");
11428 }
11429 result = (gsl_complex *)calloc(1, sizeof(gsl_complex));
11430 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_complex, SWIG_OWNER | SWIG_SHADOW); argvi++ ;
11431 XSRETURN(argvi);
11432 fail:
11433 SWIG_croak_null();
11434 }
11435 }
11436
11437
XS(_wrap_delete_gsl_complex)11438 XS(_wrap_delete_gsl_complex) {
11439 {
11440 gsl_complex *arg1 = (gsl_complex *) 0 ;
11441 void *argp1 = 0 ;
11442 int res1 = 0 ;
11443 int argvi = 0;
11444 dXSARGS;
11445
11446 if ((items < 1) || (items > 1)) {
11447 SWIG_croak("Usage: delete_gsl_complex(self);");
11448 }
11449 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_complex, SWIG_POINTER_DISOWN | 0 );
11450 if (!SWIG_IsOK(res1)) {
11451 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "delete_gsl_complex" "', argument " "1"" of type '" "gsl_complex *""'");
11452 }
11453 arg1 = (gsl_complex *)(argp1);
11454 free((char *) arg1);
11455 ST(argvi) = &PL_sv_undef;
11456
11457 XSRETURN(argvi);
11458 fail:
11459
11460 SWIG_croak_null();
11461 }
11462 }
11463
11464
XS(_wrap_gsl_complex_long_double_dat_set)11465 XS(_wrap_gsl_complex_long_double_dat_set) {
11466 {
11467 gsl_complex_long_double *arg1 = (gsl_complex_long_double *) 0 ;
11468 long double *arg2 ;
11469 void *argp1 = 0 ;
11470 int res1 = 0 ;
11471 void *argp2 = 0 ;
11472 int res2 = 0 ;
11473 int argvi = 0;
11474 dXSARGS;
11475
11476 if ((items < 2) || (items > 2)) {
11477 SWIG_croak("Usage: gsl_complex_long_double_dat_set(self,dat);");
11478 }
11479 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_complex_long_double, 0 | 0 );
11480 if (!SWIG_IsOK(res1)) {
11481 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_long_double_dat_set" "', argument " "1"" of type '" "gsl_complex_long_double *""'");
11482 }
11483 arg1 = (gsl_complex_long_double *)(argp1);
11484 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_long_double, 0 | 0 );
11485 if (!SWIG_IsOK(res2)) {
11486 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_complex_long_double_dat_set" "', argument " "2"" of type '" "long double [2]""'");
11487 }
11488 arg2 = (long double *)(argp2);
11489 {
11490 if (arg2) {
11491 size_t ii = 0;
11492 for (; ii < (size_t)2; ++ii) *(long double *)&arg1->dat[ii] = *((long double *)arg2 + ii);
11493 } else {
11494 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in variable '""dat""' of type '""long double [2]""'");
11495 }
11496 }
11497 ST(argvi) = &PL_sv_undef;
11498
11499
11500 XSRETURN(argvi);
11501 fail:
11502
11503
11504 SWIG_croak_null();
11505 }
11506 }
11507
11508
XS(_wrap_gsl_complex_long_double_dat_get)11509 XS(_wrap_gsl_complex_long_double_dat_get) {
11510 {
11511 gsl_complex_long_double *arg1 = (gsl_complex_long_double *) 0 ;
11512 void *argp1 = 0 ;
11513 int res1 = 0 ;
11514 int argvi = 0;
11515 long double *result = 0 ;
11516 dXSARGS;
11517
11518 if ((items < 1) || (items > 1)) {
11519 SWIG_croak("Usage: gsl_complex_long_double_dat_get(self);");
11520 }
11521 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_complex_long_double, 0 | 0 );
11522 if (!SWIG_IsOK(res1)) {
11523 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_long_double_dat_get" "', argument " "1"" of type '" "gsl_complex_long_double *""'");
11524 }
11525 arg1 = (gsl_complex_long_double *)(argp1);
11526 result = (long double *)(long double *) ((arg1)->dat);
11527 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_long_double, 0 | 0); argvi++ ;
11528
11529 XSRETURN(argvi);
11530 fail:
11531
11532 SWIG_croak_null();
11533 }
11534 }
11535
11536
XS(_wrap_new_gsl_complex_long_double)11537 XS(_wrap_new_gsl_complex_long_double) {
11538 {
11539 int argvi = 0;
11540 gsl_complex_long_double *result = 0 ;
11541 dXSARGS;
11542
11543 if ((items < 0) || (items > 0)) {
11544 SWIG_croak("Usage: new_gsl_complex_long_double();");
11545 }
11546 result = (gsl_complex_long_double *)calloc(1, sizeof(gsl_complex_long_double));
11547 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_complex_long_double, SWIG_OWNER | SWIG_SHADOW); argvi++ ;
11548 XSRETURN(argvi);
11549 fail:
11550 SWIG_croak_null();
11551 }
11552 }
11553
11554
XS(_wrap_delete_gsl_complex_long_double)11555 XS(_wrap_delete_gsl_complex_long_double) {
11556 {
11557 gsl_complex_long_double *arg1 = (gsl_complex_long_double *) 0 ;
11558 void *argp1 = 0 ;
11559 int res1 = 0 ;
11560 int argvi = 0;
11561 dXSARGS;
11562
11563 if ((items < 1) || (items > 1)) {
11564 SWIG_croak("Usage: delete_gsl_complex_long_double(self);");
11565 }
11566 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_complex_long_double, SWIG_POINTER_DISOWN | 0 );
11567 if (!SWIG_IsOK(res1)) {
11568 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "delete_gsl_complex_long_double" "', argument " "1"" of type '" "gsl_complex_long_double *""'");
11569 }
11570 arg1 = (gsl_complex_long_double *)(argp1);
11571 free((char *) arg1);
11572 ST(argvi) = &PL_sv_undef;
11573
11574 XSRETURN(argvi);
11575 fail:
11576
11577 SWIG_croak_null();
11578 }
11579 }
11580
11581
XS(_wrap_gsl_complex_float_dat_set)11582 XS(_wrap_gsl_complex_float_dat_set) {
11583 {
11584 gsl_complex_float *arg1 = (gsl_complex_float *) 0 ;
11585 float *arg2 ;
11586 void *argp1 = 0 ;
11587 int res1 = 0 ;
11588 void *argp2 = 0 ;
11589 int res2 = 0 ;
11590 int argvi = 0;
11591 dXSARGS;
11592
11593 if ((items < 2) || (items > 2)) {
11594 SWIG_croak("Usage: gsl_complex_float_dat_set(self,dat);");
11595 }
11596 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_complex_float, 0 | 0 );
11597 if (!SWIG_IsOK(res1)) {
11598 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_float_dat_set" "', argument " "1"" of type '" "gsl_complex_float *""'");
11599 }
11600 arg1 = (gsl_complex_float *)(argp1);
11601 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_float, 0 | 0 );
11602 if (!SWIG_IsOK(res2)) {
11603 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_complex_float_dat_set" "', argument " "2"" of type '" "float [2]""'");
11604 }
11605 arg2 = (float *)(argp2);
11606 {
11607 if (arg2) {
11608 size_t ii = 0;
11609 for (; ii < (size_t)2; ++ii) *(float *)&arg1->dat[ii] = *((float *)arg2 + ii);
11610 } else {
11611 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in variable '""dat""' of type '""float [2]""'");
11612 }
11613 }
11614 ST(argvi) = &PL_sv_undef;
11615
11616
11617 XSRETURN(argvi);
11618 fail:
11619
11620
11621 SWIG_croak_null();
11622 }
11623 }
11624
11625
XS(_wrap_gsl_complex_float_dat_get)11626 XS(_wrap_gsl_complex_float_dat_get) {
11627 {
11628 gsl_complex_float *arg1 = (gsl_complex_float *) 0 ;
11629 void *argp1 = 0 ;
11630 int res1 = 0 ;
11631 int argvi = 0;
11632 float *result = 0 ;
11633 dXSARGS;
11634
11635 if ((items < 1) || (items > 1)) {
11636 SWIG_croak("Usage: gsl_complex_float_dat_get(self);");
11637 }
11638 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_complex_float, 0 | 0 );
11639 if (!SWIG_IsOK(res1)) {
11640 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_float_dat_get" "', argument " "1"" of type '" "gsl_complex_float *""'");
11641 }
11642 arg1 = (gsl_complex_float *)(argp1);
11643 result = (float *)(float *) ((arg1)->dat);
11644 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_float, 0 | 0); argvi++ ;
11645
11646 XSRETURN(argvi);
11647 fail:
11648
11649 SWIG_croak_null();
11650 }
11651 }
11652
11653
XS(_wrap_new_gsl_complex_float)11654 XS(_wrap_new_gsl_complex_float) {
11655 {
11656 int argvi = 0;
11657 gsl_complex_float *result = 0 ;
11658 dXSARGS;
11659
11660 if ((items < 0) || (items > 0)) {
11661 SWIG_croak("Usage: new_gsl_complex_float();");
11662 }
11663 result = (gsl_complex_float *)calloc(1, sizeof(gsl_complex_float));
11664 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_complex_float, SWIG_OWNER | SWIG_SHADOW); argvi++ ;
11665 XSRETURN(argvi);
11666 fail:
11667 SWIG_croak_null();
11668 }
11669 }
11670
11671
XS(_wrap_delete_gsl_complex_float)11672 XS(_wrap_delete_gsl_complex_float) {
11673 {
11674 gsl_complex_float *arg1 = (gsl_complex_float *) 0 ;
11675 void *argp1 = 0 ;
11676 int res1 = 0 ;
11677 int argvi = 0;
11678 dXSARGS;
11679
11680 if ((items < 1) || (items > 1)) {
11681 SWIG_croak("Usage: delete_gsl_complex_float(self);");
11682 }
11683 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_complex_float, SWIG_POINTER_DISOWN | 0 );
11684 if (!SWIG_IsOK(res1)) {
11685 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "delete_gsl_complex_float" "', argument " "1"" of type '" "gsl_complex_float *""'");
11686 }
11687 arg1 = (gsl_complex_float *)(argp1);
11688 free((char *) arg1);
11689 ST(argvi) = &PL_sv_undef;
11690
11691 XSRETURN(argvi);
11692 fail:
11693
11694 SWIG_croak_null();
11695 }
11696 }
11697
11698
XS(_wrap_gsl_complex_polar)11699 XS(_wrap_gsl_complex_polar) {
11700 {
11701 double arg1 ;
11702 double arg2 ;
11703 double val1 ;
11704 int ecode1 = 0 ;
11705 double val2 ;
11706 int ecode2 = 0 ;
11707 int argvi = 0;
11708 gsl_complex result;
11709 dXSARGS;
11710
11711 if ((items < 2) || (items > 2)) {
11712 SWIG_croak("Usage: gsl_complex_polar(r,theta);");
11713 }
11714 ecode1 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
11715 if (!SWIG_IsOK(ecode1)) {
11716 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_complex_polar" "', argument " "1"" of type '" "double""'");
11717 }
11718 arg1 = (double)(val1);
11719 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
11720 if (!SWIG_IsOK(ecode2)) {
11721 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_complex_polar" "', argument " "2"" of type '" "double""'");
11722 }
11723 arg2 = (double)(val2);
11724 result = gsl_complex_polar(arg1,arg2);
11725 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
11726
11727
11728 XSRETURN(argvi);
11729 fail:
11730
11731
11732 SWIG_croak_null();
11733 }
11734 }
11735
11736
XS(_wrap_gsl_complex_rect)11737 XS(_wrap_gsl_complex_rect) {
11738 {
11739 double arg1 ;
11740 double arg2 ;
11741 double val1 ;
11742 int ecode1 = 0 ;
11743 double val2 ;
11744 int ecode2 = 0 ;
11745 int argvi = 0;
11746 gsl_complex result;
11747 dXSARGS;
11748
11749 if ((items < 2) || (items > 2)) {
11750 SWIG_croak("Usage: gsl_complex_rect(x,y);");
11751 }
11752 ecode1 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
11753 if (!SWIG_IsOK(ecode1)) {
11754 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_complex_rect" "', argument " "1"" of type '" "double""'");
11755 }
11756 arg1 = (double)(val1);
11757 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
11758 if (!SWIG_IsOK(ecode2)) {
11759 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_complex_rect" "', argument " "2"" of type '" "double""'");
11760 }
11761 arg2 = (double)(val2);
11762 result = gsl_complex_rect(arg1,arg2);
11763 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
11764
11765
11766 XSRETURN(argvi);
11767 fail:
11768
11769
11770 SWIG_croak_null();
11771 }
11772 }
11773
11774
XS(_wrap_gsl_complex_arg)11775 XS(_wrap_gsl_complex_arg) {
11776 {
11777 gsl_complex arg1 ;
11778 void *argp1 ;
11779 int res1 = 0 ;
11780 int argvi = 0;
11781 double result;
11782 dXSARGS;
11783
11784 if ((items < 1) || (items > 1)) {
11785 SWIG_croak("Usage: gsl_complex_arg(z);");
11786 }
11787 {
11788 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
11789 if (!SWIG_IsOK(res1)) {
11790 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_arg" "', argument " "1"" of type '" "gsl_complex""'");
11791 }
11792 if (!argp1) {
11793 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_arg" "', argument " "1"" of type '" "gsl_complex""'");
11794 } else {
11795 arg1 = *((gsl_complex *)(argp1));
11796 }
11797 }
11798 result = (double)gsl_complex_arg(arg1);
11799 ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(result)); argvi++ ;
11800 XSRETURN(argvi);
11801 fail:
11802 SWIG_croak_null();
11803 }
11804 }
11805
11806
XS(_wrap_gsl_complex_abs)11807 XS(_wrap_gsl_complex_abs) {
11808 {
11809 gsl_complex arg1 ;
11810 void *argp1 ;
11811 int res1 = 0 ;
11812 int argvi = 0;
11813 double result;
11814 dXSARGS;
11815
11816 if ((items < 1) || (items > 1)) {
11817 SWIG_croak("Usage: gsl_complex_abs(z);");
11818 }
11819 {
11820 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
11821 if (!SWIG_IsOK(res1)) {
11822 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_abs" "', argument " "1"" of type '" "gsl_complex""'");
11823 }
11824 if (!argp1) {
11825 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_abs" "', argument " "1"" of type '" "gsl_complex""'");
11826 } else {
11827 arg1 = *((gsl_complex *)(argp1));
11828 }
11829 }
11830 result = (double)gsl_complex_abs(arg1);
11831 ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(result)); argvi++ ;
11832 XSRETURN(argvi);
11833 fail:
11834 SWIG_croak_null();
11835 }
11836 }
11837
11838
XS(_wrap_gsl_complex_abs2)11839 XS(_wrap_gsl_complex_abs2) {
11840 {
11841 gsl_complex arg1 ;
11842 void *argp1 ;
11843 int res1 = 0 ;
11844 int argvi = 0;
11845 double result;
11846 dXSARGS;
11847
11848 if ((items < 1) || (items > 1)) {
11849 SWIG_croak("Usage: gsl_complex_abs2(z);");
11850 }
11851 {
11852 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
11853 if (!SWIG_IsOK(res1)) {
11854 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_abs2" "', argument " "1"" of type '" "gsl_complex""'");
11855 }
11856 if (!argp1) {
11857 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_abs2" "', argument " "1"" of type '" "gsl_complex""'");
11858 } else {
11859 arg1 = *((gsl_complex *)(argp1));
11860 }
11861 }
11862 result = (double)gsl_complex_abs2(arg1);
11863 ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(result)); argvi++ ;
11864 XSRETURN(argvi);
11865 fail:
11866 SWIG_croak_null();
11867 }
11868 }
11869
11870
XS(_wrap_gsl_complex_logabs)11871 XS(_wrap_gsl_complex_logabs) {
11872 {
11873 gsl_complex arg1 ;
11874 void *argp1 ;
11875 int res1 = 0 ;
11876 int argvi = 0;
11877 double result;
11878 dXSARGS;
11879
11880 if ((items < 1) || (items > 1)) {
11881 SWIG_croak("Usage: gsl_complex_logabs(z);");
11882 }
11883 {
11884 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
11885 if (!SWIG_IsOK(res1)) {
11886 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_logabs" "', argument " "1"" of type '" "gsl_complex""'");
11887 }
11888 if (!argp1) {
11889 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_logabs" "', argument " "1"" of type '" "gsl_complex""'");
11890 } else {
11891 arg1 = *((gsl_complex *)(argp1));
11892 }
11893 }
11894 result = (double)gsl_complex_logabs(arg1);
11895 ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(result)); argvi++ ;
11896 XSRETURN(argvi);
11897 fail:
11898 SWIG_croak_null();
11899 }
11900 }
11901
11902
XS(_wrap_gsl_complex_add)11903 XS(_wrap_gsl_complex_add) {
11904 {
11905 gsl_complex arg1 ;
11906 gsl_complex arg2 ;
11907 void *argp1 ;
11908 int res1 = 0 ;
11909 void *argp2 ;
11910 int res2 = 0 ;
11911 int argvi = 0;
11912 gsl_complex result;
11913 dXSARGS;
11914
11915 if ((items < 2) || (items > 2)) {
11916 SWIG_croak("Usage: gsl_complex_add(a,b);");
11917 }
11918 {
11919 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
11920 if (!SWIG_IsOK(res1)) {
11921 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_add" "', argument " "1"" of type '" "gsl_complex""'");
11922 }
11923 if (!argp1) {
11924 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_add" "', argument " "1"" of type '" "gsl_complex""'");
11925 } else {
11926 arg1 = *((gsl_complex *)(argp1));
11927 }
11928 }
11929 {
11930 res2 = SWIG_ConvertPtr(ST(1), &argp2, SWIGTYPE_p_gsl_complex, 0 );
11931 if (!SWIG_IsOK(res2)) {
11932 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_complex_add" "', argument " "2"" of type '" "gsl_complex""'");
11933 }
11934 if (!argp2) {
11935 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_add" "', argument " "2"" of type '" "gsl_complex""'");
11936 } else {
11937 arg2 = *((gsl_complex *)(argp2));
11938 }
11939 }
11940 result = gsl_complex_add(arg1,arg2);
11941 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
11942 XSRETURN(argvi);
11943 fail:
11944 SWIG_croak_null();
11945 }
11946 }
11947
11948
XS(_wrap_gsl_complex_sub)11949 XS(_wrap_gsl_complex_sub) {
11950 {
11951 gsl_complex arg1 ;
11952 gsl_complex arg2 ;
11953 void *argp1 ;
11954 int res1 = 0 ;
11955 void *argp2 ;
11956 int res2 = 0 ;
11957 int argvi = 0;
11958 gsl_complex result;
11959 dXSARGS;
11960
11961 if ((items < 2) || (items > 2)) {
11962 SWIG_croak("Usage: gsl_complex_sub(a,b);");
11963 }
11964 {
11965 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
11966 if (!SWIG_IsOK(res1)) {
11967 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_sub" "', argument " "1"" of type '" "gsl_complex""'");
11968 }
11969 if (!argp1) {
11970 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_sub" "', argument " "1"" of type '" "gsl_complex""'");
11971 } else {
11972 arg1 = *((gsl_complex *)(argp1));
11973 }
11974 }
11975 {
11976 res2 = SWIG_ConvertPtr(ST(1), &argp2, SWIGTYPE_p_gsl_complex, 0 );
11977 if (!SWIG_IsOK(res2)) {
11978 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_complex_sub" "', argument " "2"" of type '" "gsl_complex""'");
11979 }
11980 if (!argp2) {
11981 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_sub" "', argument " "2"" of type '" "gsl_complex""'");
11982 } else {
11983 arg2 = *((gsl_complex *)(argp2));
11984 }
11985 }
11986 result = gsl_complex_sub(arg1,arg2);
11987 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
11988 XSRETURN(argvi);
11989 fail:
11990 SWIG_croak_null();
11991 }
11992 }
11993
11994
XS(_wrap_gsl_complex_mul)11995 XS(_wrap_gsl_complex_mul) {
11996 {
11997 gsl_complex arg1 ;
11998 gsl_complex arg2 ;
11999 void *argp1 ;
12000 int res1 = 0 ;
12001 void *argp2 ;
12002 int res2 = 0 ;
12003 int argvi = 0;
12004 gsl_complex result;
12005 dXSARGS;
12006
12007 if ((items < 2) || (items > 2)) {
12008 SWIG_croak("Usage: gsl_complex_mul(a,b);");
12009 }
12010 {
12011 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
12012 if (!SWIG_IsOK(res1)) {
12013 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_mul" "', argument " "1"" of type '" "gsl_complex""'");
12014 }
12015 if (!argp1) {
12016 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_mul" "', argument " "1"" of type '" "gsl_complex""'");
12017 } else {
12018 arg1 = *((gsl_complex *)(argp1));
12019 }
12020 }
12021 {
12022 res2 = SWIG_ConvertPtr(ST(1), &argp2, SWIGTYPE_p_gsl_complex, 0 );
12023 if (!SWIG_IsOK(res2)) {
12024 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_complex_mul" "', argument " "2"" of type '" "gsl_complex""'");
12025 }
12026 if (!argp2) {
12027 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_mul" "', argument " "2"" of type '" "gsl_complex""'");
12028 } else {
12029 arg2 = *((gsl_complex *)(argp2));
12030 }
12031 }
12032 result = gsl_complex_mul(arg1,arg2);
12033 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
12034 XSRETURN(argvi);
12035 fail:
12036 SWIG_croak_null();
12037 }
12038 }
12039
12040
XS(_wrap_gsl_complex_div)12041 XS(_wrap_gsl_complex_div) {
12042 {
12043 gsl_complex arg1 ;
12044 gsl_complex arg2 ;
12045 void *argp1 ;
12046 int res1 = 0 ;
12047 void *argp2 ;
12048 int res2 = 0 ;
12049 int argvi = 0;
12050 gsl_complex result;
12051 dXSARGS;
12052
12053 if ((items < 2) || (items > 2)) {
12054 SWIG_croak("Usage: gsl_complex_div(a,b);");
12055 }
12056 {
12057 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
12058 if (!SWIG_IsOK(res1)) {
12059 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_div" "', argument " "1"" of type '" "gsl_complex""'");
12060 }
12061 if (!argp1) {
12062 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_div" "', argument " "1"" of type '" "gsl_complex""'");
12063 } else {
12064 arg1 = *((gsl_complex *)(argp1));
12065 }
12066 }
12067 {
12068 res2 = SWIG_ConvertPtr(ST(1), &argp2, SWIGTYPE_p_gsl_complex, 0 );
12069 if (!SWIG_IsOK(res2)) {
12070 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_complex_div" "', argument " "2"" of type '" "gsl_complex""'");
12071 }
12072 if (!argp2) {
12073 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_div" "', argument " "2"" of type '" "gsl_complex""'");
12074 } else {
12075 arg2 = *((gsl_complex *)(argp2));
12076 }
12077 }
12078 result = gsl_complex_div(arg1,arg2);
12079 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
12080 XSRETURN(argvi);
12081 fail:
12082 SWIG_croak_null();
12083 }
12084 }
12085
12086
XS(_wrap_gsl_complex_add_real)12087 XS(_wrap_gsl_complex_add_real) {
12088 {
12089 gsl_complex arg1 ;
12090 double arg2 ;
12091 void *argp1 ;
12092 int res1 = 0 ;
12093 double val2 ;
12094 int ecode2 = 0 ;
12095 int argvi = 0;
12096 gsl_complex result;
12097 dXSARGS;
12098
12099 if ((items < 2) || (items > 2)) {
12100 SWIG_croak("Usage: gsl_complex_add_real(a,x);");
12101 }
12102 {
12103 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
12104 if (!SWIG_IsOK(res1)) {
12105 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_add_real" "', argument " "1"" of type '" "gsl_complex""'");
12106 }
12107 if (!argp1) {
12108 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_add_real" "', argument " "1"" of type '" "gsl_complex""'");
12109 } else {
12110 arg1 = *((gsl_complex *)(argp1));
12111 }
12112 }
12113 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
12114 if (!SWIG_IsOK(ecode2)) {
12115 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_complex_add_real" "', argument " "2"" of type '" "double""'");
12116 }
12117 arg2 = (double)(val2);
12118 result = gsl_complex_add_real(arg1,arg2);
12119 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
12120
12121 XSRETURN(argvi);
12122 fail:
12123
12124 SWIG_croak_null();
12125 }
12126 }
12127
12128
XS(_wrap_gsl_complex_sub_real)12129 XS(_wrap_gsl_complex_sub_real) {
12130 {
12131 gsl_complex arg1 ;
12132 double arg2 ;
12133 void *argp1 ;
12134 int res1 = 0 ;
12135 double val2 ;
12136 int ecode2 = 0 ;
12137 int argvi = 0;
12138 gsl_complex result;
12139 dXSARGS;
12140
12141 if ((items < 2) || (items > 2)) {
12142 SWIG_croak("Usage: gsl_complex_sub_real(a,x);");
12143 }
12144 {
12145 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
12146 if (!SWIG_IsOK(res1)) {
12147 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_sub_real" "', argument " "1"" of type '" "gsl_complex""'");
12148 }
12149 if (!argp1) {
12150 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_sub_real" "', argument " "1"" of type '" "gsl_complex""'");
12151 } else {
12152 arg1 = *((gsl_complex *)(argp1));
12153 }
12154 }
12155 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
12156 if (!SWIG_IsOK(ecode2)) {
12157 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_complex_sub_real" "', argument " "2"" of type '" "double""'");
12158 }
12159 arg2 = (double)(val2);
12160 result = gsl_complex_sub_real(arg1,arg2);
12161 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
12162
12163 XSRETURN(argvi);
12164 fail:
12165
12166 SWIG_croak_null();
12167 }
12168 }
12169
12170
XS(_wrap_gsl_complex_mul_real)12171 XS(_wrap_gsl_complex_mul_real) {
12172 {
12173 gsl_complex arg1 ;
12174 double arg2 ;
12175 void *argp1 ;
12176 int res1 = 0 ;
12177 double val2 ;
12178 int ecode2 = 0 ;
12179 int argvi = 0;
12180 gsl_complex result;
12181 dXSARGS;
12182
12183 if ((items < 2) || (items > 2)) {
12184 SWIG_croak("Usage: gsl_complex_mul_real(a,x);");
12185 }
12186 {
12187 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
12188 if (!SWIG_IsOK(res1)) {
12189 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_mul_real" "', argument " "1"" of type '" "gsl_complex""'");
12190 }
12191 if (!argp1) {
12192 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_mul_real" "', argument " "1"" of type '" "gsl_complex""'");
12193 } else {
12194 arg1 = *((gsl_complex *)(argp1));
12195 }
12196 }
12197 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
12198 if (!SWIG_IsOK(ecode2)) {
12199 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_complex_mul_real" "', argument " "2"" of type '" "double""'");
12200 }
12201 arg2 = (double)(val2);
12202 result = gsl_complex_mul_real(arg1,arg2);
12203 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
12204
12205 XSRETURN(argvi);
12206 fail:
12207
12208 SWIG_croak_null();
12209 }
12210 }
12211
12212
XS(_wrap_gsl_complex_div_real)12213 XS(_wrap_gsl_complex_div_real) {
12214 {
12215 gsl_complex arg1 ;
12216 double arg2 ;
12217 void *argp1 ;
12218 int res1 = 0 ;
12219 double val2 ;
12220 int ecode2 = 0 ;
12221 int argvi = 0;
12222 gsl_complex result;
12223 dXSARGS;
12224
12225 if ((items < 2) || (items > 2)) {
12226 SWIG_croak("Usage: gsl_complex_div_real(a,x);");
12227 }
12228 {
12229 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
12230 if (!SWIG_IsOK(res1)) {
12231 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_div_real" "', argument " "1"" of type '" "gsl_complex""'");
12232 }
12233 if (!argp1) {
12234 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_div_real" "', argument " "1"" of type '" "gsl_complex""'");
12235 } else {
12236 arg1 = *((gsl_complex *)(argp1));
12237 }
12238 }
12239 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
12240 if (!SWIG_IsOK(ecode2)) {
12241 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_complex_div_real" "', argument " "2"" of type '" "double""'");
12242 }
12243 arg2 = (double)(val2);
12244 result = gsl_complex_div_real(arg1,arg2);
12245 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
12246
12247 XSRETURN(argvi);
12248 fail:
12249
12250 SWIG_croak_null();
12251 }
12252 }
12253
12254
XS(_wrap_gsl_complex_add_imag)12255 XS(_wrap_gsl_complex_add_imag) {
12256 {
12257 gsl_complex arg1 ;
12258 double arg2 ;
12259 void *argp1 ;
12260 int res1 = 0 ;
12261 double val2 ;
12262 int ecode2 = 0 ;
12263 int argvi = 0;
12264 gsl_complex result;
12265 dXSARGS;
12266
12267 if ((items < 2) || (items > 2)) {
12268 SWIG_croak("Usage: gsl_complex_add_imag(a,y);");
12269 }
12270 {
12271 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
12272 if (!SWIG_IsOK(res1)) {
12273 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_add_imag" "', argument " "1"" of type '" "gsl_complex""'");
12274 }
12275 if (!argp1) {
12276 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_add_imag" "', argument " "1"" of type '" "gsl_complex""'");
12277 } else {
12278 arg1 = *((gsl_complex *)(argp1));
12279 }
12280 }
12281 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
12282 if (!SWIG_IsOK(ecode2)) {
12283 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_complex_add_imag" "', argument " "2"" of type '" "double""'");
12284 }
12285 arg2 = (double)(val2);
12286 result = gsl_complex_add_imag(arg1,arg2);
12287 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
12288
12289 XSRETURN(argvi);
12290 fail:
12291
12292 SWIG_croak_null();
12293 }
12294 }
12295
12296
XS(_wrap_gsl_complex_sub_imag)12297 XS(_wrap_gsl_complex_sub_imag) {
12298 {
12299 gsl_complex arg1 ;
12300 double arg2 ;
12301 void *argp1 ;
12302 int res1 = 0 ;
12303 double val2 ;
12304 int ecode2 = 0 ;
12305 int argvi = 0;
12306 gsl_complex result;
12307 dXSARGS;
12308
12309 if ((items < 2) || (items > 2)) {
12310 SWIG_croak("Usage: gsl_complex_sub_imag(a,y);");
12311 }
12312 {
12313 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
12314 if (!SWIG_IsOK(res1)) {
12315 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_sub_imag" "', argument " "1"" of type '" "gsl_complex""'");
12316 }
12317 if (!argp1) {
12318 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_sub_imag" "', argument " "1"" of type '" "gsl_complex""'");
12319 } else {
12320 arg1 = *((gsl_complex *)(argp1));
12321 }
12322 }
12323 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
12324 if (!SWIG_IsOK(ecode2)) {
12325 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_complex_sub_imag" "', argument " "2"" of type '" "double""'");
12326 }
12327 arg2 = (double)(val2);
12328 result = gsl_complex_sub_imag(arg1,arg2);
12329 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
12330
12331 XSRETURN(argvi);
12332 fail:
12333
12334 SWIG_croak_null();
12335 }
12336 }
12337
12338
XS(_wrap_gsl_complex_mul_imag)12339 XS(_wrap_gsl_complex_mul_imag) {
12340 {
12341 gsl_complex arg1 ;
12342 double arg2 ;
12343 void *argp1 ;
12344 int res1 = 0 ;
12345 double val2 ;
12346 int ecode2 = 0 ;
12347 int argvi = 0;
12348 gsl_complex result;
12349 dXSARGS;
12350
12351 if ((items < 2) || (items > 2)) {
12352 SWIG_croak("Usage: gsl_complex_mul_imag(a,y);");
12353 }
12354 {
12355 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
12356 if (!SWIG_IsOK(res1)) {
12357 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_mul_imag" "', argument " "1"" of type '" "gsl_complex""'");
12358 }
12359 if (!argp1) {
12360 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_mul_imag" "', argument " "1"" of type '" "gsl_complex""'");
12361 } else {
12362 arg1 = *((gsl_complex *)(argp1));
12363 }
12364 }
12365 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
12366 if (!SWIG_IsOK(ecode2)) {
12367 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_complex_mul_imag" "', argument " "2"" of type '" "double""'");
12368 }
12369 arg2 = (double)(val2);
12370 result = gsl_complex_mul_imag(arg1,arg2);
12371 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
12372
12373 XSRETURN(argvi);
12374 fail:
12375
12376 SWIG_croak_null();
12377 }
12378 }
12379
12380
XS(_wrap_gsl_complex_div_imag)12381 XS(_wrap_gsl_complex_div_imag) {
12382 {
12383 gsl_complex arg1 ;
12384 double arg2 ;
12385 void *argp1 ;
12386 int res1 = 0 ;
12387 double val2 ;
12388 int ecode2 = 0 ;
12389 int argvi = 0;
12390 gsl_complex result;
12391 dXSARGS;
12392
12393 if ((items < 2) || (items > 2)) {
12394 SWIG_croak("Usage: gsl_complex_div_imag(a,y);");
12395 }
12396 {
12397 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
12398 if (!SWIG_IsOK(res1)) {
12399 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_div_imag" "', argument " "1"" of type '" "gsl_complex""'");
12400 }
12401 if (!argp1) {
12402 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_div_imag" "', argument " "1"" of type '" "gsl_complex""'");
12403 } else {
12404 arg1 = *((gsl_complex *)(argp1));
12405 }
12406 }
12407 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
12408 if (!SWIG_IsOK(ecode2)) {
12409 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_complex_div_imag" "', argument " "2"" of type '" "double""'");
12410 }
12411 arg2 = (double)(val2);
12412 result = gsl_complex_div_imag(arg1,arg2);
12413 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
12414
12415 XSRETURN(argvi);
12416 fail:
12417
12418 SWIG_croak_null();
12419 }
12420 }
12421
12422
XS(_wrap_gsl_complex_conjugate)12423 XS(_wrap_gsl_complex_conjugate) {
12424 {
12425 gsl_complex arg1 ;
12426 void *argp1 ;
12427 int res1 = 0 ;
12428 int argvi = 0;
12429 gsl_complex result;
12430 dXSARGS;
12431
12432 if ((items < 1) || (items > 1)) {
12433 SWIG_croak("Usage: gsl_complex_conjugate(z);");
12434 }
12435 {
12436 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
12437 if (!SWIG_IsOK(res1)) {
12438 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_conjugate" "', argument " "1"" of type '" "gsl_complex""'");
12439 }
12440 if (!argp1) {
12441 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_conjugate" "', argument " "1"" of type '" "gsl_complex""'");
12442 } else {
12443 arg1 = *((gsl_complex *)(argp1));
12444 }
12445 }
12446 result = gsl_complex_conjugate(arg1);
12447 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
12448 XSRETURN(argvi);
12449 fail:
12450 SWIG_croak_null();
12451 }
12452 }
12453
12454
XS(_wrap_gsl_complex_inverse)12455 XS(_wrap_gsl_complex_inverse) {
12456 {
12457 gsl_complex arg1 ;
12458 void *argp1 ;
12459 int res1 = 0 ;
12460 int argvi = 0;
12461 gsl_complex result;
12462 dXSARGS;
12463
12464 if ((items < 1) || (items > 1)) {
12465 SWIG_croak("Usage: gsl_complex_inverse(a);");
12466 }
12467 {
12468 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
12469 if (!SWIG_IsOK(res1)) {
12470 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_inverse" "', argument " "1"" of type '" "gsl_complex""'");
12471 }
12472 if (!argp1) {
12473 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_inverse" "', argument " "1"" of type '" "gsl_complex""'");
12474 } else {
12475 arg1 = *((gsl_complex *)(argp1));
12476 }
12477 }
12478 result = gsl_complex_inverse(arg1);
12479 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
12480 XSRETURN(argvi);
12481 fail:
12482 SWIG_croak_null();
12483 }
12484 }
12485
12486
XS(_wrap_gsl_complex_negative)12487 XS(_wrap_gsl_complex_negative) {
12488 {
12489 gsl_complex arg1 ;
12490 void *argp1 ;
12491 int res1 = 0 ;
12492 int argvi = 0;
12493 gsl_complex result;
12494 dXSARGS;
12495
12496 if ((items < 1) || (items > 1)) {
12497 SWIG_croak("Usage: gsl_complex_negative(a);");
12498 }
12499 {
12500 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
12501 if (!SWIG_IsOK(res1)) {
12502 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_negative" "', argument " "1"" of type '" "gsl_complex""'");
12503 }
12504 if (!argp1) {
12505 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_negative" "', argument " "1"" of type '" "gsl_complex""'");
12506 } else {
12507 arg1 = *((gsl_complex *)(argp1));
12508 }
12509 }
12510 result = gsl_complex_negative(arg1);
12511 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
12512 XSRETURN(argvi);
12513 fail:
12514 SWIG_croak_null();
12515 }
12516 }
12517
12518
XS(_wrap_gsl_complex_sqrt)12519 XS(_wrap_gsl_complex_sqrt) {
12520 {
12521 gsl_complex arg1 ;
12522 void *argp1 ;
12523 int res1 = 0 ;
12524 int argvi = 0;
12525 gsl_complex result;
12526 dXSARGS;
12527
12528 if ((items < 1) || (items > 1)) {
12529 SWIG_croak("Usage: gsl_complex_sqrt(z);");
12530 }
12531 {
12532 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
12533 if (!SWIG_IsOK(res1)) {
12534 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_sqrt" "', argument " "1"" of type '" "gsl_complex""'");
12535 }
12536 if (!argp1) {
12537 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_sqrt" "', argument " "1"" of type '" "gsl_complex""'");
12538 } else {
12539 arg1 = *((gsl_complex *)(argp1));
12540 }
12541 }
12542 result = gsl_complex_sqrt(arg1);
12543 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
12544 XSRETURN(argvi);
12545 fail:
12546 SWIG_croak_null();
12547 }
12548 }
12549
12550
XS(_wrap_gsl_complex_sqrt_real)12551 XS(_wrap_gsl_complex_sqrt_real) {
12552 {
12553 double arg1 ;
12554 double val1 ;
12555 int ecode1 = 0 ;
12556 int argvi = 0;
12557 gsl_complex result;
12558 dXSARGS;
12559
12560 if ((items < 1) || (items > 1)) {
12561 SWIG_croak("Usage: gsl_complex_sqrt_real(x);");
12562 }
12563 ecode1 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
12564 if (!SWIG_IsOK(ecode1)) {
12565 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_complex_sqrt_real" "', argument " "1"" of type '" "double""'");
12566 }
12567 arg1 = (double)(val1);
12568 result = gsl_complex_sqrt_real(arg1);
12569 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
12570
12571 XSRETURN(argvi);
12572 fail:
12573
12574 SWIG_croak_null();
12575 }
12576 }
12577
12578
XS(_wrap_gsl_complex_pow)12579 XS(_wrap_gsl_complex_pow) {
12580 {
12581 gsl_complex arg1 ;
12582 gsl_complex arg2 ;
12583 void *argp1 ;
12584 int res1 = 0 ;
12585 void *argp2 ;
12586 int res2 = 0 ;
12587 int argvi = 0;
12588 gsl_complex result;
12589 dXSARGS;
12590
12591 if ((items < 2) || (items > 2)) {
12592 SWIG_croak("Usage: gsl_complex_pow(a,b);");
12593 }
12594 {
12595 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
12596 if (!SWIG_IsOK(res1)) {
12597 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_pow" "', argument " "1"" of type '" "gsl_complex""'");
12598 }
12599 if (!argp1) {
12600 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_pow" "', argument " "1"" of type '" "gsl_complex""'");
12601 } else {
12602 arg1 = *((gsl_complex *)(argp1));
12603 }
12604 }
12605 {
12606 res2 = SWIG_ConvertPtr(ST(1), &argp2, SWIGTYPE_p_gsl_complex, 0 );
12607 if (!SWIG_IsOK(res2)) {
12608 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_complex_pow" "', argument " "2"" of type '" "gsl_complex""'");
12609 }
12610 if (!argp2) {
12611 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_pow" "', argument " "2"" of type '" "gsl_complex""'");
12612 } else {
12613 arg2 = *((gsl_complex *)(argp2));
12614 }
12615 }
12616 result = gsl_complex_pow(arg1,arg2);
12617 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
12618 XSRETURN(argvi);
12619 fail:
12620 SWIG_croak_null();
12621 }
12622 }
12623
12624
XS(_wrap_gsl_complex_pow_real)12625 XS(_wrap_gsl_complex_pow_real) {
12626 {
12627 gsl_complex arg1 ;
12628 double arg2 ;
12629 void *argp1 ;
12630 int res1 = 0 ;
12631 double val2 ;
12632 int ecode2 = 0 ;
12633 int argvi = 0;
12634 gsl_complex result;
12635 dXSARGS;
12636
12637 if ((items < 2) || (items > 2)) {
12638 SWIG_croak("Usage: gsl_complex_pow_real(a,b);");
12639 }
12640 {
12641 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
12642 if (!SWIG_IsOK(res1)) {
12643 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_pow_real" "', argument " "1"" of type '" "gsl_complex""'");
12644 }
12645 if (!argp1) {
12646 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_pow_real" "', argument " "1"" of type '" "gsl_complex""'");
12647 } else {
12648 arg1 = *((gsl_complex *)(argp1));
12649 }
12650 }
12651 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
12652 if (!SWIG_IsOK(ecode2)) {
12653 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_complex_pow_real" "', argument " "2"" of type '" "double""'");
12654 }
12655 arg2 = (double)(val2);
12656 result = gsl_complex_pow_real(arg1,arg2);
12657 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
12658
12659 XSRETURN(argvi);
12660 fail:
12661
12662 SWIG_croak_null();
12663 }
12664 }
12665
12666
XS(_wrap_gsl_complex_exp)12667 XS(_wrap_gsl_complex_exp) {
12668 {
12669 gsl_complex arg1 ;
12670 void *argp1 ;
12671 int res1 = 0 ;
12672 int argvi = 0;
12673 gsl_complex result;
12674 dXSARGS;
12675
12676 if ((items < 1) || (items > 1)) {
12677 SWIG_croak("Usage: gsl_complex_exp(a);");
12678 }
12679 {
12680 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
12681 if (!SWIG_IsOK(res1)) {
12682 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_exp" "', argument " "1"" of type '" "gsl_complex""'");
12683 }
12684 if (!argp1) {
12685 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_exp" "', argument " "1"" of type '" "gsl_complex""'");
12686 } else {
12687 arg1 = *((gsl_complex *)(argp1));
12688 }
12689 }
12690 result = gsl_complex_exp(arg1);
12691 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
12692 XSRETURN(argvi);
12693 fail:
12694 SWIG_croak_null();
12695 }
12696 }
12697
12698
XS(_wrap_gsl_complex_log)12699 XS(_wrap_gsl_complex_log) {
12700 {
12701 gsl_complex arg1 ;
12702 void *argp1 ;
12703 int res1 = 0 ;
12704 int argvi = 0;
12705 gsl_complex result;
12706 dXSARGS;
12707
12708 if ((items < 1) || (items > 1)) {
12709 SWIG_croak("Usage: gsl_complex_log(a);");
12710 }
12711 {
12712 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
12713 if (!SWIG_IsOK(res1)) {
12714 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_log" "', argument " "1"" of type '" "gsl_complex""'");
12715 }
12716 if (!argp1) {
12717 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_log" "', argument " "1"" of type '" "gsl_complex""'");
12718 } else {
12719 arg1 = *((gsl_complex *)(argp1));
12720 }
12721 }
12722 result = gsl_complex_log(arg1);
12723 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
12724 XSRETURN(argvi);
12725 fail:
12726 SWIG_croak_null();
12727 }
12728 }
12729
12730
XS(_wrap_gsl_complex_log10)12731 XS(_wrap_gsl_complex_log10) {
12732 {
12733 gsl_complex arg1 ;
12734 void *argp1 ;
12735 int res1 = 0 ;
12736 int argvi = 0;
12737 gsl_complex result;
12738 dXSARGS;
12739
12740 if ((items < 1) || (items > 1)) {
12741 SWIG_croak("Usage: gsl_complex_log10(a);");
12742 }
12743 {
12744 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
12745 if (!SWIG_IsOK(res1)) {
12746 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_log10" "', argument " "1"" of type '" "gsl_complex""'");
12747 }
12748 if (!argp1) {
12749 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_log10" "', argument " "1"" of type '" "gsl_complex""'");
12750 } else {
12751 arg1 = *((gsl_complex *)(argp1));
12752 }
12753 }
12754 result = gsl_complex_log10(arg1);
12755 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
12756 XSRETURN(argvi);
12757 fail:
12758 SWIG_croak_null();
12759 }
12760 }
12761
12762
XS(_wrap_gsl_complex_log_b)12763 XS(_wrap_gsl_complex_log_b) {
12764 {
12765 gsl_complex arg1 ;
12766 gsl_complex arg2 ;
12767 void *argp1 ;
12768 int res1 = 0 ;
12769 void *argp2 ;
12770 int res2 = 0 ;
12771 int argvi = 0;
12772 gsl_complex result;
12773 dXSARGS;
12774
12775 if ((items < 2) || (items > 2)) {
12776 SWIG_croak("Usage: gsl_complex_log_b(a,b);");
12777 }
12778 {
12779 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
12780 if (!SWIG_IsOK(res1)) {
12781 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_log_b" "', argument " "1"" of type '" "gsl_complex""'");
12782 }
12783 if (!argp1) {
12784 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_log_b" "', argument " "1"" of type '" "gsl_complex""'");
12785 } else {
12786 arg1 = *((gsl_complex *)(argp1));
12787 }
12788 }
12789 {
12790 res2 = SWIG_ConvertPtr(ST(1), &argp2, SWIGTYPE_p_gsl_complex, 0 );
12791 if (!SWIG_IsOK(res2)) {
12792 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_complex_log_b" "', argument " "2"" of type '" "gsl_complex""'");
12793 }
12794 if (!argp2) {
12795 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_log_b" "', argument " "2"" of type '" "gsl_complex""'");
12796 } else {
12797 arg2 = *((gsl_complex *)(argp2));
12798 }
12799 }
12800 result = gsl_complex_log_b(arg1,arg2);
12801 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
12802 XSRETURN(argvi);
12803 fail:
12804 SWIG_croak_null();
12805 }
12806 }
12807
12808
XS(_wrap_gsl_complex_sin)12809 XS(_wrap_gsl_complex_sin) {
12810 {
12811 gsl_complex arg1 ;
12812 void *argp1 ;
12813 int res1 = 0 ;
12814 int argvi = 0;
12815 gsl_complex result;
12816 dXSARGS;
12817
12818 if ((items < 1) || (items > 1)) {
12819 SWIG_croak("Usage: gsl_complex_sin(a);");
12820 }
12821 {
12822 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
12823 if (!SWIG_IsOK(res1)) {
12824 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_sin" "', argument " "1"" of type '" "gsl_complex""'");
12825 }
12826 if (!argp1) {
12827 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_sin" "', argument " "1"" of type '" "gsl_complex""'");
12828 } else {
12829 arg1 = *((gsl_complex *)(argp1));
12830 }
12831 }
12832 result = gsl_complex_sin(arg1);
12833 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
12834 XSRETURN(argvi);
12835 fail:
12836 SWIG_croak_null();
12837 }
12838 }
12839
12840
XS(_wrap_gsl_complex_cos)12841 XS(_wrap_gsl_complex_cos) {
12842 {
12843 gsl_complex arg1 ;
12844 void *argp1 ;
12845 int res1 = 0 ;
12846 int argvi = 0;
12847 gsl_complex result;
12848 dXSARGS;
12849
12850 if ((items < 1) || (items > 1)) {
12851 SWIG_croak("Usage: gsl_complex_cos(a);");
12852 }
12853 {
12854 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
12855 if (!SWIG_IsOK(res1)) {
12856 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_cos" "', argument " "1"" of type '" "gsl_complex""'");
12857 }
12858 if (!argp1) {
12859 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_cos" "', argument " "1"" of type '" "gsl_complex""'");
12860 } else {
12861 arg1 = *((gsl_complex *)(argp1));
12862 }
12863 }
12864 result = gsl_complex_cos(arg1);
12865 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
12866 XSRETURN(argvi);
12867 fail:
12868 SWIG_croak_null();
12869 }
12870 }
12871
12872
XS(_wrap_gsl_complex_sec)12873 XS(_wrap_gsl_complex_sec) {
12874 {
12875 gsl_complex arg1 ;
12876 void *argp1 ;
12877 int res1 = 0 ;
12878 int argvi = 0;
12879 gsl_complex result;
12880 dXSARGS;
12881
12882 if ((items < 1) || (items > 1)) {
12883 SWIG_croak("Usage: gsl_complex_sec(a);");
12884 }
12885 {
12886 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
12887 if (!SWIG_IsOK(res1)) {
12888 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_sec" "', argument " "1"" of type '" "gsl_complex""'");
12889 }
12890 if (!argp1) {
12891 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_sec" "', argument " "1"" of type '" "gsl_complex""'");
12892 } else {
12893 arg1 = *((gsl_complex *)(argp1));
12894 }
12895 }
12896 result = gsl_complex_sec(arg1);
12897 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
12898 XSRETURN(argvi);
12899 fail:
12900 SWIG_croak_null();
12901 }
12902 }
12903
12904
XS(_wrap_gsl_complex_csc)12905 XS(_wrap_gsl_complex_csc) {
12906 {
12907 gsl_complex arg1 ;
12908 void *argp1 ;
12909 int res1 = 0 ;
12910 int argvi = 0;
12911 gsl_complex result;
12912 dXSARGS;
12913
12914 if ((items < 1) || (items > 1)) {
12915 SWIG_croak("Usage: gsl_complex_csc(a);");
12916 }
12917 {
12918 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
12919 if (!SWIG_IsOK(res1)) {
12920 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_csc" "', argument " "1"" of type '" "gsl_complex""'");
12921 }
12922 if (!argp1) {
12923 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_csc" "', argument " "1"" of type '" "gsl_complex""'");
12924 } else {
12925 arg1 = *((gsl_complex *)(argp1));
12926 }
12927 }
12928 result = gsl_complex_csc(arg1);
12929 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
12930 XSRETURN(argvi);
12931 fail:
12932 SWIG_croak_null();
12933 }
12934 }
12935
12936
XS(_wrap_gsl_complex_tan)12937 XS(_wrap_gsl_complex_tan) {
12938 {
12939 gsl_complex arg1 ;
12940 void *argp1 ;
12941 int res1 = 0 ;
12942 int argvi = 0;
12943 gsl_complex result;
12944 dXSARGS;
12945
12946 if ((items < 1) || (items > 1)) {
12947 SWIG_croak("Usage: gsl_complex_tan(a);");
12948 }
12949 {
12950 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
12951 if (!SWIG_IsOK(res1)) {
12952 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_tan" "', argument " "1"" of type '" "gsl_complex""'");
12953 }
12954 if (!argp1) {
12955 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_tan" "', argument " "1"" of type '" "gsl_complex""'");
12956 } else {
12957 arg1 = *((gsl_complex *)(argp1));
12958 }
12959 }
12960 result = gsl_complex_tan(arg1);
12961 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
12962 XSRETURN(argvi);
12963 fail:
12964 SWIG_croak_null();
12965 }
12966 }
12967
12968
XS(_wrap_gsl_complex_cot)12969 XS(_wrap_gsl_complex_cot) {
12970 {
12971 gsl_complex arg1 ;
12972 void *argp1 ;
12973 int res1 = 0 ;
12974 int argvi = 0;
12975 gsl_complex result;
12976 dXSARGS;
12977
12978 if ((items < 1) || (items > 1)) {
12979 SWIG_croak("Usage: gsl_complex_cot(a);");
12980 }
12981 {
12982 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
12983 if (!SWIG_IsOK(res1)) {
12984 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_cot" "', argument " "1"" of type '" "gsl_complex""'");
12985 }
12986 if (!argp1) {
12987 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_cot" "', argument " "1"" of type '" "gsl_complex""'");
12988 } else {
12989 arg1 = *((gsl_complex *)(argp1));
12990 }
12991 }
12992 result = gsl_complex_cot(arg1);
12993 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
12994 XSRETURN(argvi);
12995 fail:
12996 SWIG_croak_null();
12997 }
12998 }
12999
13000
XS(_wrap_gsl_complex_arcsin)13001 XS(_wrap_gsl_complex_arcsin) {
13002 {
13003 gsl_complex arg1 ;
13004 void *argp1 ;
13005 int res1 = 0 ;
13006 int argvi = 0;
13007 gsl_complex result;
13008 dXSARGS;
13009
13010 if ((items < 1) || (items > 1)) {
13011 SWIG_croak("Usage: gsl_complex_arcsin(a);");
13012 }
13013 {
13014 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
13015 if (!SWIG_IsOK(res1)) {
13016 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_arcsin" "', argument " "1"" of type '" "gsl_complex""'");
13017 }
13018 if (!argp1) {
13019 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_arcsin" "', argument " "1"" of type '" "gsl_complex""'");
13020 } else {
13021 arg1 = *((gsl_complex *)(argp1));
13022 }
13023 }
13024 result = gsl_complex_arcsin(arg1);
13025 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
13026 XSRETURN(argvi);
13027 fail:
13028 SWIG_croak_null();
13029 }
13030 }
13031
13032
XS(_wrap_gsl_complex_arcsin_real)13033 XS(_wrap_gsl_complex_arcsin_real) {
13034 {
13035 double arg1 ;
13036 double val1 ;
13037 int ecode1 = 0 ;
13038 int argvi = 0;
13039 gsl_complex result;
13040 dXSARGS;
13041
13042 if ((items < 1) || (items > 1)) {
13043 SWIG_croak("Usage: gsl_complex_arcsin_real(a);");
13044 }
13045 ecode1 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
13046 if (!SWIG_IsOK(ecode1)) {
13047 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_complex_arcsin_real" "', argument " "1"" of type '" "double""'");
13048 }
13049 arg1 = (double)(val1);
13050 result = gsl_complex_arcsin_real(arg1);
13051 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
13052
13053 XSRETURN(argvi);
13054 fail:
13055
13056 SWIG_croak_null();
13057 }
13058 }
13059
13060
XS(_wrap_gsl_complex_arccos)13061 XS(_wrap_gsl_complex_arccos) {
13062 {
13063 gsl_complex arg1 ;
13064 void *argp1 ;
13065 int res1 = 0 ;
13066 int argvi = 0;
13067 gsl_complex result;
13068 dXSARGS;
13069
13070 if ((items < 1) || (items > 1)) {
13071 SWIG_croak("Usage: gsl_complex_arccos(a);");
13072 }
13073 {
13074 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
13075 if (!SWIG_IsOK(res1)) {
13076 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_arccos" "', argument " "1"" of type '" "gsl_complex""'");
13077 }
13078 if (!argp1) {
13079 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_arccos" "', argument " "1"" of type '" "gsl_complex""'");
13080 } else {
13081 arg1 = *((gsl_complex *)(argp1));
13082 }
13083 }
13084 result = gsl_complex_arccos(arg1);
13085 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
13086 XSRETURN(argvi);
13087 fail:
13088 SWIG_croak_null();
13089 }
13090 }
13091
13092
XS(_wrap_gsl_complex_arccos_real)13093 XS(_wrap_gsl_complex_arccos_real) {
13094 {
13095 double arg1 ;
13096 double val1 ;
13097 int ecode1 = 0 ;
13098 int argvi = 0;
13099 gsl_complex result;
13100 dXSARGS;
13101
13102 if ((items < 1) || (items > 1)) {
13103 SWIG_croak("Usage: gsl_complex_arccos_real(a);");
13104 }
13105 ecode1 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
13106 if (!SWIG_IsOK(ecode1)) {
13107 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_complex_arccos_real" "', argument " "1"" of type '" "double""'");
13108 }
13109 arg1 = (double)(val1);
13110 result = gsl_complex_arccos_real(arg1);
13111 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
13112
13113 XSRETURN(argvi);
13114 fail:
13115
13116 SWIG_croak_null();
13117 }
13118 }
13119
13120
XS(_wrap_gsl_complex_arcsec)13121 XS(_wrap_gsl_complex_arcsec) {
13122 {
13123 gsl_complex arg1 ;
13124 void *argp1 ;
13125 int res1 = 0 ;
13126 int argvi = 0;
13127 gsl_complex result;
13128 dXSARGS;
13129
13130 if ((items < 1) || (items > 1)) {
13131 SWIG_croak("Usage: gsl_complex_arcsec(a);");
13132 }
13133 {
13134 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
13135 if (!SWIG_IsOK(res1)) {
13136 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_arcsec" "', argument " "1"" of type '" "gsl_complex""'");
13137 }
13138 if (!argp1) {
13139 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_arcsec" "', argument " "1"" of type '" "gsl_complex""'");
13140 } else {
13141 arg1 = *((gsl_complex *)(argp1));
13142 }
13143 }
13144 result = gsl_complex_arcsec(arg1);
13145 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
13146 XSRETURN(argvi);
13147 fail:
13148 SWIG_croak_null();
13149 }
13150 }
13151
13152
XS(_wrap_gsl_complex_arcsec_real)13153 XS(_wrap_gsl_complex_arcsec_real) {
13154 {
13155 double arg1 ;
13156 double val1 ;
13157 int ecode1 = 0 ;
13158 int argvi = 0;
13159 gsl_complex result;
13160 dXSARGS;
13161
13162 if ((items < 1) || (items > 1)) {
13163 SWIG_croak("Usage: gsl_complex_arcsec_real(a);");
13164 }
13165 ecode1 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
13166 if (!SWIG_IsOK(ecode1)) {
13167 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_complex_arcsec_real" "', argument " "1"" of type '" "double""'");
13168 }
13169 arg1 = (double)(val1);
13170 result = gsl_complex_arcsec_real(arg1);
13171 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
13172
13173 XSRETURN(argvi);
13174 fail:
13175
13176 SWIG_croak_null();
13177 }
13178 }
13179
13180
XS(_wrap_gsl_complex_arccsc)13181 XS(_wrap_gsl_complex_arccsc) {
13182 {
13183 gsl_complex arg1 ;
13184 void *argp1 ;
13185 int res1 = 0 ;
13186 int argvi = 0;
13187 gsl_complex result;
13188 dXSARGS;
13189
13190 if ((items < 1) || (items > 1)) {
13191 SWIG_croak("Usage: gsl_complex_arccsc(a);");
13192 }
13193 {
13194 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
13195 if (!SWIG_IsOK(res1)) {
13196 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_arccsc" "', argument " "1"" of type '" "gsl_complex""'");
13197 }
13198 if (!argp1) {
13199 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_arccsc" "', argument " "1"" of type '" "gsl_complex""'");
13200 } else {
13201 arg1 = *((gsl_complex *)(argp1));
13202 }
13203 }
13204 result = gsl_complex_arccsc(arg1);
13205 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
13206 XSRETURN(argvi);
13207 fail:
13208 SWIG_croak_null();
13209 }
13210 }
13211
13212
XS(_wrap_gsl_complex_arccsc_real)13213 XS(_wrap_gsl_complex_arccsc_real) {
13214 {
13215 double arg1 ;
13216 double val1 ;
13217 int ecode1 = 0 ;
13218 int argvi = 0;
13219 gsl_complex result;
13220 dXSARGS;
13221
13222 if ((items < 1) || (items > 1)) {
13223 SWIG_croak("Usage: gsl_complex_arccsc_real(a);");
13224 }
13225 ecode1 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
13226 if (!SWIG_IsOK(ecode1)) {
13227 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_complex_arccsc_real" "', argument " "1"" of type '" "double""'");
13228 }
13229 arg1 = (double)(val1);
13230 result = gsl_complex_arccsc_real(arg1);
13231 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
13232
13233 XSRETURN(argvi);
13234 fail:
13235
13236 SWIG_croak_null();
13237 }
13238 }
13239
13240
XS(_wrap_gsl_complex_arctan)13241 XS(_wrap_gsl_complex_arctan) {
13242 {
13243 gsl_complex arg1 ;
13244 void *argp1 ;
13245 int res1 = 0 ;
13246 int argvi = 0;
13247 gsl_complex result;
13248 dXSARGS;
13249
13250 if ((items < 1) || (items > 1)) {
13251 SWIG_croak("Usage: gsl_complex_arctan(a);");
13252 }
13253 {
13254 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
13255 if (!SWIG_IsOK(res1)) {
13256 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_arctan" "', argument " "1"" of type '" "gsl_complex""'");
13257 }
13258 if (!argp1) {
13259 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_arctan" "', argument " "1"" of type '" "gsl_complex""'");
13260 } else {
13261 arg1 = *((gsl_complex *)(argp1));
13262 }
13263 }
13264 result = gsl_complex_arctan(arg1);
13265 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
13266 XSRETURN(argvi);
13267 fail:
13268 SWIG_croak_null();
13269 }
13270 }
13271
13272
XS(_wrap_gsl_complex_arccot)13273 XS(_wrap_gsl_complex_arccot) {
13274 {
13275 gsl_complex arg1 ;
13276 void *argp1 ;
13277 int res1 = 0 ;
13278 int argvi = 0;
13279 gsl_complex result;
13280 dXSARGS;
13281
13282 if ((items < 1) || (items > 1)) {
13283 SWIG_croak("Usage: gsl_complex_arccot(a);");
13284 }
13285 {
13286 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
13287 if (!SWIG_IsOK(res1)) {
13288 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_arccot" "', argument " "1"" of type '" "gsl_complex""'");
13289 }
13290 if (!argp1) {
13291 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_arccot" "', argument " "1"" of type '" "gsl_complex""'");
13292 } else {
13293 arg1 = *((gsl_complex *)(argp1));
13294 }
13295 }
13296 result = gsl_complex_arccot(arg1);
13297 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
13298 XSRETURN(argvi);
13299 fail:
13300 SWIG_croak_null();
13301 }
13302 }
13303
13304
XS(_wrap_gsl_complex_sinh)13305 XS(_wrap_gsl_complex_sinh) {
13306 {
13307 gsl_complex arg1 ;
13308 void *argp1 ;
13309 int res1 = 0 ;
13310 int argvi = 0;
13311 gsl_complex result;
13312 dXSARGS;
13313
13314 if ((items < 1) || (items > 1)) {
13315 SWIG_croak("Usage: gsl_complex_sinh(a);");
13316 }
13317 {
13318 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
13319 if (!SWIG_IsOK(res1)) {
13320 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_sinh" "', argument " "1"" of type '" "gsl_complex""'");
13321 }
13322 if (!argp1) {
13323 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_sinh" "', argument " "1"" of type '" "gsl_complex""'");
13324 } else {
13325 arg1 = *((gsl_complex *)(argp1));
13326 }
13327 }
13328 result = gsl_complex_sinh(arg1);
13329 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
13330 XSRETURN(argvi);
13331 fail:
13332 SWIG_croak_null();
13333 }
13334 }
13335
13336
XS(_wrap_gsl_complex_cosh)13337 XS(_wrap_gsl_complex_cosh) {
13338 {
13339 gsl_complex arg1 ;
13340 void *argp1 ;
13341 int res1 = 0 ;
13342 int argvi = 0;
13343 gsl_complex result;
13344 dXSARGS;
13345
13346 if ((items < 1) || (items > 1)) {
13347 SWIG_croak("Usage: gsl_complex_cosh(a);");
13348 }
13349 {
13350 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
13351 if (!SWIG_IsOK(res1)) {
13352 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_cosh" "', argument " "1"" of type '" "gsl_complex""'");
13353 }
13354 if (!argp1) {
13355 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_cosh" "', argument " "1"" of type '" "gsl_complex""'");
13356 } else {
13357 arg1 = *((gsl_complex *)(argp1));
13358 }
13359 }
13360 result = gsl_complex_cosh(arg1);
13361 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
13362 XSRETURN(argvi);
13363 fail:
13364 SWIG_croak_null();
13365 }
13366 }
13367
13368
XS(_wrap_gsl_complex_sech)13369 XS(_wrap_gsl_complex_sech) {
13370 {
13371 gsl_complex arg1 ;
13372 void *argp1 ;
13373 int res1 = 0 ;
13374 int argvi = 0;
13375 gsl_complex result;
13376 dXSARGS;
13377
13378 if ((items < 1) || (items > 1)) {
13379 SWIG_croak("Usage: gsl_complex_sech(a);");
13380 }
13381 {
13382 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
13383 if (!SWIG_IsOK(res1)) {
13384 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_sech" "', argument " "1"" of type '" "gsl_complex""'");
13385 }
13386 if (!argp1) {
13387 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_sech" "', argument " "1"" of type '" "gsl_complex""'");
13388 } else {
13389 arg1 = *((gsl_complex *)(argp1));
13390 }
13391 }
13392 result = gsl_complex_sech(arg1);
13393 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
13394 XSRETURN(argvi);
13395 fail:
13396 SWIG_croak_null();
13397 }
13398 }
13399
13400
XS(_wrap_gsl_complex_csch)13401 XS(_wrap_gsl_complex_csch) {
13402 {
13403 gsl_complex arg1 ;
13404 void *argp1 ;
13405 int res1 = 0 ;
13406 int argvi = 0;
13407 gsl_complex result;
13408 dXSARGS;
13409
13410 if ((items < 1) || (items > 1)) {
13411 SWIG_croak("Usage: gsl_complex_csch(a);");
13412 }
13413 {
13414 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
13415 if (!SWIG_IsOK(res1)) {
13416 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_csch" "', argument " "1"" of type '" "gsl_complex""'");
13417 }
13418 if (!argp1) {
13419 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_csch" "', argument " "1"" of type '" "gsl_complex""'");
13420 } else {
13421 arg1 = *((gsl_complex *)(argp1));
13422 }
13423 }
13424 result = gsl_complex_csch(arg1);
13425 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
13426 XSRETURN(argvi);
13427 fail:
13428 SWIG_croak_null();
13429 }
13430 }
13431
13432
XS(_wrap_gsl_complex_tanh)13433 XS(_wrap_gsl_complex_tanh) {
13434 {
13435 gsl_complex arg1 ;
13436 void *argp1 ;
13437 int res1 = 0 ;
13438 int argvi = 0;
13439 gsl_complex result;
13440 dXSARGS;
13441
13442 if ((items < 1) || (items > 1)) {
13443 SWIG_croak("Usage: gsl_complex_tanh(a);");
13444 }
13445 {
13446 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
13447 if (!SWIG_IsOK(res1)) {
13448 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_tanh" "', argument " "1"" of type '" "gsl_complex""'");
13449 }
13450 if (!argp1) {
13451 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_tanh" "', argument " "1"" of type '" "gsl_complex""'");
13452 } else {
13453 arg1 = *((gsl_complex *)(argp1));
13454 }
13455 }
13456 result = gsl_complex_tanh(arg1);
13457 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
13458 XSRETURN(argvi);
13459 fail:
13460 SWIG_croak_null();
13461 }
13462 }
13463
13464
XS(_wrap_gsl_complex_coth)13465 XS(_wrap_gsl_complex_coth) {
13466 {
13467 gsl_complex arg1 ;
13468 void *argp1 ;
13469 int res1 = 0 ;
13470 int argvi = 0;
13471 gsl_complex result;
13472 dXSARGS;
13473
13474 if ((items < 1) || (items > 1)) {
13475 SWIG_croak("Usage: gsl_complex_coth(a);");
13476 }
13477 {
13478 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
13479 if (!SWIG_IsOK(res1)) {
13480 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_coth" "', argument " "1"" of type '" "gsl_complex""'");
13481 }
13482 if (!argp1) {
13483 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_coth" "', argument " "1"" of type '" "gsl_complex""'");
13484 } else {
13485 arg1 = *((gsl_complex *)(argp1));
13486 }
13487 }
13488 result = gsl_complex_coth(arg1);
13489 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
13490 XSRETURN(argvi);
13491 fail:
13492 SWIG_croak_null();
13493 }
13494 }
13495
13496
XS(_wrap_gsl_complex_arcsinh)13497 XS(_wrap_gsl_complex_arcsinh) {
13498 {
13499 gsl_complex arg1 ;
13500 void *argp1 ;
13501 int res1 = 0 ;
13502 int argvi = 0;
13503 gsl_complex result;
13504 dXSARGS;
13505
13506 if ((items < 1) || (items > 1)) {
13507 SWIG_croak("Usage: gsl_complex_arcsinh(a);");
13508 }
13509 {
13510 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
13511 if (!SWIG_IsOK(res1)) {
13512 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_arcsinh" "', argument " "1"" of type '" "gsl_complex""'");
13513 }
13514 if (!argp1) {
13515 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_arcsinh" "', argument " "1"" of type '" "gsl_complex""'");
13516 } else {
13517 arg1 = *((gsl_complex *)(argp1));
13518 }
13519 }
13520 result = gsl_complex_arcsinh(arg1);
13521 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
13522 XSRETURN(argvi);
13523 fail:
13524 SWIG_croak_null();
13525 }
13526 }
13527
13528
XS(_wrap_gsl_complex_arccosh)13529 XS(_wrap_gsl_complex_arccosh) {
13530 {
13531 gsl_complex arg1 ;
13532 void *argp1 ;
13533 int res1 = 0 ;
13534 int argvi = 0;
13535 gsl_complex result;
13536 dXSARGS;
13537
13538 if ((items < 1) || (items > 1)) {
13539 SWIG_croak("Usage: gsl_complex_arccosh(a);");
13540 }
13541 {
13542 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
13543 if (!SWIG_IsOK(res1)) {
13544 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_arccosh" "', argument " "1"" of type '" "gsl_complex""'");
13545 }
13546 if (!argp1) {
13547 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_arccosh" "', argument " "1"" of type '" "gsl_complex""'");
13548 } else {
13549 arg1 = *((gsl_complex *)(argp1));
13550 }
13551 }
13552 result = gsl_complex_arccosh(arg1);
13553 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
13554 XSRETURN(argvi);
13555 fail:
13556 SWIG_croak_null();
13557 }
13558 }
13559
13560
XS(_wrap_gsl_complex_arccosh_real)13561 XS(_wrap_gsl_complex_arccosh_real) {
13562 {
13563 double arg1 ;
13564 double val1 ;
13565 int ecode1 = 0 ;
13566 int argvi = 0;
13567 gsl_complex result;
13568 dXSARGS;
13569
13570 if ((items < 1) || (items > 1)) {
13571 SWIG_croak("Usage: gsl_complex_arccosh_real(a);");
13572 }
13573 ecode1 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
13574 if (!SWIG_IsOK(ecode1)) {
13575 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_complex_arccosh_real" "', argument " "1"" of type '" "double""'");
13576 }
13577 arg1 = (double)(val1);
13578 result = gsl_complex_arccosh_real(arg1);
13579 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
13580
13581 XSRETURN(argvi);
13582 fail:
13583
13584 SWIG_croak_null();
13585 }
13586 }
13587
13588
XS(_wrap_gsl_complex_arcsech)13589 XS(_wrap_gsl_complex_arcsech) {
13590 {
13591 gsl_complex arg1 ;
13592 void *argp1 ;
13593 int res1 = 0 ;
13594 int argvi = 0;
13595 gsl_complex result;
13596 dXSARGS;
13597
13598 if ((items < 1) || (items > 1)) {
13599 SWIG_croak("Usage: gsl_complex_arcsech(a);");
13600 }
13601 {
13602 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
13603 if (!SWIG_IsOK(res1)) {
13604 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_arcsech" "', argument " "1"" of type '" "gsl_complex""'");
13605 }
13606 if (!argp1) {
13607 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_arcsech" "', argument " "1"" of type '" "gsl_complex""'");
13608 } else {
13609 arg1 = *((gsl_complex *)(argp1));
13610 }
13611 }
13612 result = gsl_complex_arcsech(arg1);
13613 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
13614 XSRETURN(argvi);
13615 fail:
13616 SWIG_croak_null();
13617 }
13618 }
13619
13620
XS(_wrap_gsl_complex_arccsch)13621 XS(_wrap_gsl_complex_arccsch) {
13622 {
13623 gsl_complex arg1 ;
13624 void *argp1 ;
13625 int res1 = 0 ;
13626 int argvi = 0;
13627 gsl_complex result;
13628 dXSARGS;
13629
13630 if ((items < 1) || (items > 1)) {
13631 SWIG_croak("Usage: gsl_complex_arccsch(a);");
13632 }
13633 {
13634 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
13635 if (!SWIG_IsOK(res1)) {
13636 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_arccsch" "', argument " "1"" of type '" "gsl_complex""'");
13637 }
13638 if (!argp1) {
13639 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_arccsch" "', argument " "1"" of type '" "gsl_complex""'");
13640 } else {
13641 arg1 = *((gsl_complex *)(argp1));
13642 }
13643 }
13644 result = gsl_complex_arccsch(arg1);
13645 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
13646 XSRETURN(argvi);
13647 fail:
13648 SWIG_croak_null();
13649 }
13650 }
13651
13652
XS(_wrap_gsl_complex_arctanh)13653 XS(_wrap_gsl_complex_arctanh) {
13654 {
13655 gsl_complex arg1 ;
13656 void *argp1 ;
13657 int res1 = 0 ;
13658 int argvi = 0;
13659 gsl_complex result;
13660 dXSARGS;
13661
13662 if ((items < 1) || (items > 1)) {
13663 SWIG_croak("Usage: gsl_complex_arctanh(a);");
13664 }
13665 {
13666 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
13667 if (!SWIG_IsOK(res1)) {
13668 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_arctanh" "', argument " "1"" of type '" "gsl_complex""'");
13669 }
13670 if (!argp1) {
13671 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_arctanh" "', argument " "1"" of type '" "gsl_complex""'");
13672 } else {
13673 arg1 = *((gsl_complex *)(argp1));
13674 }
13675 }
13676 result = gsl_complex_arctanh(arg1);
13677 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
13678 XSRETURN(argvi);
13679 fail:
13680 SWIG_croak_null();
13681 }
13682 }
13683
13684
XS(_wrap_gsl_complex_arctanh_real)13685 XS(_wrap_gsl_complex_arctanh_real) {
13686 {
13687 double arg1 ;
13688 double val1 ;
13689 int ecode1 = 0 ;
13690 int argvi = 0;
13691 gsl_complex result;
13692 dXSARGS;
13693
13694 if ((items < 1) || (items > 1)) {
13695 SWIG_croak("Usage: gsl_complex_arctanh_real(a);");
13696 }
13697 ecode1 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
13698 if (!SWIG_IsOK(ecode1)) {
13699 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_complex_arctanh_real" "', argument " "1"" of type '" "double""'");
13700 }
13701 arg1 = (double)(val1);
13702 result = gsl_complex_arctanh_real(arg1);
13703 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
13704
13705 XSRETURN(argvi);
13706 fail:
13707
13708 SWIG_croak_null();
13709 }
13710 }
13711
13712
XS(_wrap_gsl_complex_arccoth)13713 XS(_wrap_gsl_complex_arccoth) {
13714 {
13715 gsl_complex arg1 ;
13716 void *argp1 ;
13717 int res1 = 0 ;
13718 int argvi = 0;
13719 gsl_complex result;
13720 dXSARGS;
13721
13722 if ((items < 1) || (items > 1)) {
13723 SWIG_croak("Usage: gsl_complex_arccoth(a);");
13724 }
13725 {
13726 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
13727 if (!SWIG_IsOK(res1)) {
13728 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_arccoth" "', argument " "1"" of type '" "gsl_complex""'");
13729 }
13730 if (!argp1) {
13731 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_arccoth" "', argument " "1"" of type '" "gsl_complex""'");
13732 } else {
13733 arg1 = *((gsl_complex *)(argp1));
13734 }
13735 }
13736 result = gsl_complex_arccoth(arg1);
13737 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
13738 XSRETURN(argvi);
13739 fail:
13740 SWIG_croak_null();
13741 }
13742 }
13743
13744
13745
13746 /* -------- TYPE CONVERSION AND EQUIVALENCE RULES (BEGIN) -------- */
13747
13748 static swig_type_info _swigt__p_FILE = {"_p_FILE", "FILE *", 0, 0, (void*)0, 0};
13749 static swig_type_info _swigt__p_char = {"_p_char", "char *", 0, 0, (void*)0, 0};
13750 static swig_type_info _swigt__p_double = {"_p_double", "double *", 0, 0, (void*)0, 0};
13751 static swig_type_info _swigt__p_f_CBLAS_TRANSPOSE_t_p_gsl_vector_p_void__int = {"_p_f_CBLAS_TRANSPOSE_t_p_gsl_vector_p_void__int", "int (*)(CBLAS_TRANSPOSE_t,gsl_vector *,void *)", 0, 0, (void*)0, 0};
13752 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};
13753 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};
13754 static swig_type_info _swigt__p_float = {"_p_float", "float *", 0, 0, (void*)0, 0};
13755 static swig_type_info _swigt__p_gsl_complex = {"_p_gsl_complex", "gsl_complex *", 0, 0, (void*)"Math::GSL::Linalg::gsl_complex", 0};
13756 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};
13757 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};
13758 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};
13759 static swig_type_info _swigt__p_gsl_matrix = {"_p_gsl_matrix", "gsl_matrix *", 0, 0, (void*)0, 0};
13760 static swig_type_info _swigt__p_gsl_matrix_complex = {"_p_gsl_matrix_complex", "gsl_matrix_complex *", 0, 0, (void*)0, 0};
13761 static swig_type_info _swigt__p_gsl_mode_t = {"_p_gsl_mode_t", "gsl_mode_t *", 0, 0, (void*)0, 0};
13762 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};
13763 static swig_type_info _swigt__p_gsl_vector = {"_p_gsl_vector", "gsl_vector *", 0, 0, (void*)0, 0};
13764 static swig_type_info _swigt__p_gsl_vector_complex = {"_p_gsl_vector_complex", "gsl_vector_complex *", 0, 0, (void*)0, 0};
13765 static swig_type_info _swigt__p_int = {"_p_int", "int *", 0, 0, (void*)0, 0};
13766 static swig_type_info _swigt__p_long_double = {"_p_long_double", "long double *", 0, 0, (void*)0, 0};
13767 static swig_type_info _swigt__p_size_t = {"_p_size_t", "size_t *", 0, 0, (void*)0, 0};
13768
13769 static swig_type_info *swig_type_initial[] = {
13770 &_swigt__p_FILE,
13771 &_swigt__p_char,
13772 &_swigt__p_double,
13773 &_swigt__p_f_CBLAS_TRANSPOSE_t_p_gsl_vector_p_void__int,
13774 &_swigt__p_f_p_q_const__char_p_q_const__char_int_int__void,
13775 &_swigt__p_f_p_q_const__char_p_q_const__char_int_p_q_const__char__void,
13776 &_swigt__p_float,
13777 &_swigt__p_gsl_complex,
13778 &_swigt__p_gsl_complex_float,
13779 &_swigt__p_gsl_complex_long_double,
13780 &_swigt__p_gsl_linalg_matrix_mod_t,
13781 &_swigt__p_gsl_matrix,
13782 &_swigt__p_gsl_matrix_complex,
13783 &_swigt__p_gsl_mode_t,
13784 &_swigt__p_gsl_permutation_struct,
13785 &_swigt__p_gsl_vector,
13786 &_swigt__p_gsl_vector_complex,
13787 &_swigt__p_int,
13788 &_swigt__p_long_double,
13789 &_swigt__p_size_t,
13790 };
13791
13792 static swig_cast_info _swigc__p_FILE[] = { {&_swigt__p_FILE, 0, 0, 0},{0, 0, 0, 0}};
13793 static swig_cast_info _swigc__p_char[] = { {&_swigt__p_char, 0, 0, 0},{0, 0, 0, 0}};
13794 static swig_cast_info _swigc__p_double[] = { {&_swigt__p_double, 0, 0, 0},{0, 0, 0, 0}};
13795 static swig_cast_info _swigc__p_f_CBLAS_TRANSPOSE_t_p_gsl_vector_p_void__int[] = { {&_swigt__p_f_CBLAS_TRANSPOSE_t_p_gsl_vector_p_void__int, 0, 0, 0},{0, 0, 0, 0}};
13796 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}};
13797 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}};
13798 static swig_cast_info _swigc__p_float[] = { {&_swigt__p_float, 0, 0, 0},{0, 0, 0, 0}};
13799 static swig_cast_info _swigc__p_gsl_complex[] = { {&_swigt__p_gsl_complex, 0, 0, 0},{0, 0, 0, 0}};
13800 static swig_cast_info _swigc__p_gsl_complex_float[] = { {&_swigt__p_gsl_complex_float, 0, 0, 0},{0, 0, 0, 0}};
13801 static swig_cast_info _swigc__p_gsl_complex_long_double[] = { {&_swigt__p_gsl_complex_long_double, 0, 0, 0},{0, 0, 0, 0}};
13802 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}};
13803 static swig_cast_info _swigc__p_gsl_matrix[] = { {&_swigt__p_gsl_matrix, 0, 0, 0},{0, 0, 0, 0}};
13804 static swig_cast_info _swigc__p_gsl_matrix_complex[] = { {&_swigt__p_gsl_matrix_complex, 0, 0, 0},{0, 0, 0, 0}};
13805 static swig_cast_info _swigc__p_gsl_mode_t[] = { {&_swigt__p_gsl_mode_t, 0, 0, 0},{0, 0, 0, 0}};
13806 static swig_cast_info _swigc__p_gsl_permutation_struct[] = { {&_swigt__p_gsl_permutation_struct, 0, 0, 0},{0, 0, 0, 0}};
13807 static swig_cast_info _swigc__p_gsl_vector[] = { {&_swigt__p_gsl_vector, 0, 0, 0},{0, 0, 0, 0}};
13808 static swig_cast_info _swigc__p_gsl_vector_complex[] = { {&_swigt__p_gsl_vector_complex, 0, 0, 0},{0, 0, 0, 0}};
13809 static swig_cast_info _swigc__p_int[] = { {&_swigt__p_int, 0, 0, 0},{0, 0, 0, 0}};
13810 static swig_cast_info _swigc__p_long_double[] = { {&_swigt__p_long_double, 0, 0, 0},{0, 0, 0, 0}};
13811 static swig_cast_info _swigc__p_size_t[] = { {&_swigt__p_size_t, 0, 0, 0},{0, 0, 0, 0}};
13812
13813 static swig_cast_info *swig_cast_initial[] = {
13814 _swigc__p_FILE,
13815 _swigc__p_char,
13816 _swigc__p_double,
13817 _swigc__p_f_CBLAS_TRANSPOSE_t_p_gsl_vector_p_void__int,
13818 _swigc__p_f_p_q_const__char_p_q_const__char_int_int__void,
13819 _swigc__p_f_p_q_const__char_p_q_const__char_int_p_q_const__char__void,
13820 _swigc__p_float,
13821 _swigc__p_gsl_complex,
13822 _swigc__p_gsl_complex_float,
13823 _swigc__p_gsl_complex_long_double,
13824 _swigc__p_gsl_linalg_matrix_mod_t,
13825 _swigc__p_gsl_matrix,
13826 _swigc__p_gsl_matrix_complex,
13827 _swigc__p_gsl_mode_t,
13828 _swigc__p_gsl_permutation_struct,
13829 _swigc__p_gsl_vector,
13830 _swigc__p_gsl_vector_complex,
13831 _swigc__p_int,
13832 _swigc__p_long_double,
13833 _swigc__p_size_t,
13834 };
13835
13836
13837 /* -------- TYPE CONVERSION AND EQUIVALENCE RULES (END) -------- */
13838
13839 static swig_constant_info swig_constants[] = {
13840 {0,0,0,0,0,0}
13841 };
13842 #ifdef __cplusplus
13843 }
13844 #endif
13845 static swig_variable_info swig_variables[] = {
13846 {0,0,0,0}
13847 };
13848 static swig_command_info swig_commands[] = {
13849 {"Math::GSL::Linalgc::gsl_error", _wrap_gsl_error},
13850 {"Math::GSL::Linalgc::gsl_stream_printf", _wrap_gsl_stream_printf},
13851 {"Math::GSL::Linalgc::gsl_strerror", _wrap_gsl_strerror},
13852 {"Math::GSL::Linalgc::gsl_set_error_handler", _wrap_gsl_set_error_handler},
13853 {"Math::GSL::Linalgc::gsl_set_error_handler_off", _wrap_gsl_set_error_handler_off},
13854 {"Math::GSL::Linalgc::gsl_set_stream_handler", _wrap_gsl_set_stream_handler},
13855 {"Math::GSL::Linalgc::gsl_set_stream", _wrap_gsl_set_stream},
13856 {"Math::GSL::Linalgc::gsl_linalg_matmult", _wrap_gsl_linalg_matmult},
13857 {"Math::GSL::Linalgc::gsl_linalg_matmult_mod", _wrap_gsl_linalg_matmult_mod},
13858 {"Math::GSL::Linalgc::gsl_linalg_exponential_ss", _wrap_gsl_linalg_exponential_ss},
13859 {"Math::GSL::Linalgc::gsl_linalg_householder_transform", _wrap_gsl_linalg_householder_transform},
13860 {"Math::GSL::Linalgc::gsl_linalg_complex_householder_transform", _wrap_gsl_linalg_complex_householder_transform},
13861 {"Math::GSL::Linalgc::gsl_linalg_householder_hm", _wrap_gsl_linalg_householder_hm},
13862 {"Math::GSL::Linalgc::gsl_linalg_householder_mh", _wrap_gsl_linalg_householder_mh},
13863 {"Math::GSL::Linalgc::gsl_linalg_householder_hv", _wrap_gsl_linalg_householder_hv},
13864 {"Math::GSL::Linalgc::gsl_linalg_householder_hm1", _wrap_gsl_linalg_householder_hm1},
13865 {"Math::GSL::Linalgc::gsl_linalg_complex_householder_hm", _wrap_gsl_linalg_complex_householder_hm},
13866 {"Math::GSL::Linalgc::gsl_linalg_complex_householder_mh", _wrap_gsl_linalg_complex_householder_mh},
13867 {"Math::GSL::Linalgc::gsl_linalg_complex_householder_hv", _wrap_gsl_linalg_complex_householder_hv},
13868 {"Math::GSL::Linalgc::gsl_linalg_hessenberg_decomp", _wrap_gsl_linalg_hessenberg_decomp},
13869 {"Math::GSL::Linalgc::gsl_linalg_hessenberg_unpack", _wrap_gsl_linalg_hessenberg_unpack},
13870 {"Math::GSL::Linalgc::gsl_linalg_hessenberg_unpack_accum", _wrap_gsl_linalg_hessenberg_unpack_accum},
13871 {"Math::GSL::Linalgc::gsl_linalg_hessenberg_set_zero", _wrap_gsl_linalg_hessenberg_set_zero},
13872 {"Math::GSL::Linalgc::gsl_linalg_hessenberg_submatrix", _wrap_gsl_linalg_hessenberg_submatrix},
13873 {"Math::GSL::Linalgc::gsl_linalg_hesstri_decomp", _wrap_gsl_linalg_hesstri_decomp},
13874 {"Math::GSL::Linalgc::gsl_linalg_SV_decomp", _wrap_gsl_linalg_SV_decomp},
13875 {"Math::GSL::Linalgc::gsl_linalg_SV_decomp_mod", _wrap_gsl_linalg_SV_decomp_mod},
13876 {"Math::GSL::Linalgc::gsl_linalg_SV_decomp_jacobi", _wrap_gsl_linalg_SV_decomp_jacobi},
13877 {"Math::GSL::Linalgc::gsl_linalg_SV_solve", _wrap_gsl_linalg_SV_solve},
13878 {"Math::GSL::Linalgc::gsl_linalg_SV_leverage", _wrap_gsl_linalg_SV_leverage},
13879 {"Math::GSL::Linalgc::gsl_linalg_LU_decomp", _wrap_gsl_linalg_LU_decomp},
13880 {"Math::GSL::Linalgc::gsl_linalg_LU_solve", _wrap_gsl_linalg_LU_solve},
13881 {"Math::GSL::Linalgc::gsl_linalg_LU_svx", _wrap_gsl_linalg_LU_svx},
13882 {"Math::GSL::Linalgc::gsl_linalg_LU_refine", _wrap_gsl_linalg_LU_refine},
13883 {"Math::GSL::Linalgc::gsl_linalg_LU_invert", _wrap_gsl_linalg_LU_invert},
13884 {"Math::GSL::Linalgc::gsl_linalg_LU_det", _wrap_gsl_linalg_LU_det},
13885 {"Math::GSL::Linalgc::gsl_linalg_LU_lndet", _wrap_gsl_linalg_LU_lndet},
13886 {"Math::GSL::Linalgc::gsl_linalg_LU_sgndet", _wrap_gsl_linalg_LU_sgndet},
13887 {"Math::GSL::Linalgc::gsl_linalg_complex_LU_decomp", _wrap_gsl_linalg_complex_LU_decomp},
13888 {"Math::GSL::Linalgc::gsl_linalg_complex_LU_solve", _wrap_gsl_linalg_complex_LU_solve},
13889 {"Math::GSL::Linalgc::gsl_linalg_complex_LU_svx", _wrap_gsl_linalg_complex_LU_svx},
13890 {"Math::GSL::Linalgc::gsl_linalg_complex_LU_refine", _wrap_gsl_linalg_complex_LU_refine},
13891 {"Math::GSL::Linalgc::gsl_linalg_complex_LU_invert", _wrap_gsl_linalg_complex_LU_invert},
13892 {"Math::GSL::Linalgc::gsl_linalg_complex_LU_det", _wrap_gsl_linalg_complex_LU_det},
13893 {"Math::GSL::Linalgc::gsl_linalg_complex_LU_lndet", _wrap_gsl_linalg_complex_LU_lndet},
13894 {"Math::GSL::Linalgc::gsl_linalg_complex_LU_sgndet", _wrap_gsl_linalg_complex_LU_sgndet},
13895 {"Math::GSL::Linalgc::gsl_linalg_QR_decomp", _wrap_gsl_linalg_QR_decomp},
13896 {"Math::GSL::Linalgc::gsl_linalg_QR_solve", _wrap_gsl_linalg_QR_solve},
13897 {"Math::GSL::Linalgc::gsl_linalg_QR_svx", _wrap_gsl_linalg_QR_svx},
13898 {"Math::GSL::Linalgc::gsl_linalg_QR_lssolve", _wrap_gsl_linalg_QR_lssolve},
13899 {"Math::GSL::Linalgc::gsl_linalg_QR_QRsolve", _wrap_gsl_linalg_QR_QRsolve},
13900 {"Math::GSL::Linalgc::gsl_linalg_QR_Rsolve", _wrap_gsl_linalg_QR_Rsolve},
13901 {"Math::GSL::Linalgc::gsl_linalg_QR_Rsvx", _wrap_gsl_linalg_QR_Rsvx},
13902 {"Math::GSL::Linalgc::gsl_linalg_QR_update", _wrap_gsl_linalg_QR_update},
13903 {"Math::GSL::Linalgc::gsl_linalg_QR_QTvec", _wrap_gsl_linalg_QR_QTvec},
13904 {"Math::GSL::Linalgc::gsl_linalg_QR_Qvec", _wrap_gsl_linalg_QR_Qvec},
13905 {"Math::GSL::Linalgc::gsl_linalg_QR_QTmat", _wrap_gsl_linalg_QR_QTmat},
13906 {"Math::GSL::Linalgc::gsl_linalg_QR_matQ", _wrap_gsl_linalg_QR_matQ},
13907 {"Math::GSL::Linalgc::gsl_linalg_QR_unpack", _wrap_gsl_linalg_QR_unpack},
13908 {"Math::GSL::Linalgc::gsl_linalg_R_solve", _wrap_gsl_linalg_R_solve},
13909 {"Math::GSL::Linalgc::gsl_linalg_R_svx", _wrap_gsl_linalg_R_svx},
13910 {"Math::GSL::Linalgc::gsl_linalg_QRPT_decomp", _wrap_gsl_linalg_QRPT_decomp},
13911 {"Math::GSL::Linalgc::gsl_linalg_QRPT_decomp2", _wrap_gsl_linalg_QRPT_decomp2},
13912 {"Math::GSL::Linalgc::gsl_linalg_QRPT_solve", _wrap_gsl_linalg_QRPT_solve},
13913 {"Math::GSL::Linalgc::gsl_linalg_QRPT_lssolve", _wrap_gsl_linalg_QRPT_lssolve},
13914 {"Math::GSL::Linalgc::gsl_linalg_QRPT_lssolve2", _wrap_gsl_linalg_QRPT_lssolve2},
13915 {"Math::GSL::Linalgc::gsl_linalg_QRPT_svx", _wrap_gsl_linalg_QRPT_svx},
13916 {"Math::GSL::Linalgc::gsl_linalg_QRPT_QRsolve", _wrap_gsl_linalg_QRPT_QRsolve},
13917 {"Math::GSL::Linalgc::gsl_linalg_QRPT_Rsolve", _wrap_gsl_linalg_QRPT_Rsolve},
13918 {"Math::GSL::Linalgc::gsl_linalg_QRPT_Rsvx", _wrap_gsl_linalg_QRPT_Rsvx},
13919 {"Math::GSL::Linalgc::gsl_linalg_QRPT_update", _wrap_gsl_linalg_QRPT_update},
13920 {"Math::GSL::Linalgc::gsl_linalg_QRPT_rank", _wrap_gsl_linalg_QRPT_rank},
13921 {"Math::GSL::Linalgc::gsl_linalg_QRPT_rcond", _wrap_gsl_linalg_QRPT_rcond},
13922 {"Math::GSL::Linalgc::gsl_linalg_COD_decomp", _wrap_gsl_linalg_COD_decomp},
13923 {"Math::GSL::Linalgc::gsl_linalg_COD_decomp_e", _wrap_gsl_linalg_COD_decomp_e},
13924 {"Math::GSL::Linalgc::gsl_linalg_COD_lssolve", _wrap_gsl_linalg_COD_lssolve},
13925 {"Math::GSL::Linalgc::gsl_linalg_COD_lssolve2", _wrap_gsl_linalg_COD_lssolve2},
13926 {"Math::GSL::Linalgc::gsl_linalg_COD_unpack", _wrap_gsl_linalg_COD_unpack},
13927 {"Math::GSL::Linalgc::gsl_linalg_COD_matZ", _wrap_gsl_linalg_COD_matZ},
13928 {"Math::GSL::Linalgc::gsl_linalg_LQ_decomp", _wrap_gsl_linalg_LQ_decomp},
13929 {"Math::GSL::Linalgc::gsl_linalg_LQ_solve_T", _wrap_gsl_linalg_LQ_solve_T},
13930 {"Math::GSL::Linalgc::gsl_linalg_LQ_svx_T", _wrap_gsl_linalg_LQ_svx_T},
13931 {"Math::GSL::Linalgc::gsl_linalg_LQ_lssolve_T", _wrap_gsl_linalg_LQ_lssolve_T},
13932 {"Math::GSL::Linalgc::gsl_linalg_LQ_Lsolve_T", _wrap_gsl_linalg_LQ_Lsolve_T},
13933 {"Math::GSL::Linalgc::gsl_linalg_LQ_Lsvx_T", _wrap_gsl_linalg_LQ_Lsvx_T},
13934 {"Math::GSL::Linalgc::gsl_linalg_L_solve_T", _wrap_gsl_linalg_L_solve_T},
13935 {"Math::GSL::Linalgc::gsl_linalg_LQ_vecQ", _wrap_gsl_linalg_LQ_vecQ},
13936 {"Math::GSL::Linalgc::gsl_linalg_LQ_vecQT", _wrap_gsl_linalg_LQ_vecQT},
13937 {"Math::GSL::Linalgc::gsl_linalg_LQ_unpack", _wrap_gsl_linalg_LQ_unpack},
13938 {"Math::GSL::Linalgc::gsl_linalg_LQ_update", _wrap_gsl_linalg_LQ_update},
13939 {"Math::GSL::Linalgc::gsl_linalg_LQ_LQsolve", _wrap_gsl_linalg_LQ_LQsolve},
13940 {"Math::GSL::Linalgc::gsl_linalg_PTLQ_decomp", _wrap_gsl_linalg_PTLQ_decomp},
13941 {"Math::GSL::Linalgc::gsl_linalg_PTLQ_decomp2", _wrap_gsl_linalg_PTLQ_decomp2},
13942 {"Math::GSL::Linalgc::gsl_linalg_PTLQ_solve_T", _wrap_gsl_linalg_PTLQ_solve_T},
13943 {"Math::GSL::Linalgc::gsl_linalg_PTLQ_svx_T", _wrap_gsl_linalg_PTLQ_svx_T},
13944 {"Math::GSL::Linalgc::gsl_linalg_PTLQ_LQsolve_T", _wrap_gsl_linalg_PTLQ_LQsolve_T},
13945 {"Math::GSL::Linalgc::gsl_linalg_PTLQ_Lsolve_T", _wrap_gsl_linalg_PTLQ_Lsolve_T},
13946 {"Math::GSL::Linalgc::gsl_linalg_PTLQ_Lsvx_T", _wrap_gsl_linalg_PTLQ_Lsvx_T},
13947 {"Math::GSL::Linalgc::gsl_linalg_PTLQ_update", _wrap_gsl_linalg_PTLQ_update},
13948 {"Math::GSL::Linalgc::gsl_linalg_cholesky_decomp", _wrap_gsl_linalg_cholesky_decomp},
13949 {"Math::GSL::Linalgc::gsl_linalg_cholesky_decomp1", _wrap_gsl_linalg_cholesky_decomp1},
13950 {"Math::GSL::Linalgc::gsl_linalg_cholesky_solve", _wrap_gsl_linalg_cholesky_solve},
13951 {"Math::GSL::Linalgc::gsl_linalg_cholesky_svx", _wrap_gsl_linalg_cholesky_svx},
13952 {"Math::GSL::Linalgc::gsl_linalg_cholesky_invert", _wrap_gsl_linalg_cholesky_invert},
13953 {"Math::GSL::Linalgc::gsl_linalg_cholesky_decomp_unit", _wrap_gsl_linalg_cholesky_decomp_unit},
13954 {"Math::GSL::Linalgc::gsl_linalg_cholesky_scale", _wrap_gsl_linalg_cholesky_scale},
13955 {"Math::GSL::Linalgc::gsl_linalg_cholesky_scale_apply", _wrap_gsl_linalg_cholesky_scale_apply},
13956 {"Math::GSL::Linalgc::gsl_linalg_cholesky_decomp2", _wrap_gsl_linalg_cholesky_decomp2},
13957 {"Math::GSL::Linalgc::gsl_linalg_cholesky_svx2", _wrap_gsl_linalg_cholesky_svx2},
13958 {"Math::GSL::Linalgc::gsl_linalg_cholesky_solve2", _wrap_gsl_linalg_cholesky_solve2},
13959 {"Math::GSL::Linalgc::gsl_linalg_cholesky_rcond", _wrap_gsl_linalg_cholesky_rcond},
13960 {"Math::GSL::Linalgc::gsl_linalg_complex_cholesky_decomp", _wrap_gsl_linalg_complex_cholesky_decomp},
13961 {"Math::GSL::Linalgc::gsl_linalg_complex_cholesky_solve", _wrap_gsl_linalg_complex_cholesky_solve},
13962 {"Math::GSL::Linalgc::gsl_linalg_complex_cholesky_svx", _wrap_gsl_linalg_complex_cholesky_svx},
13963 {"Math::GSL::Linalgc::gsl_linalg_complex_cholesky_invert", _wrap_gsl_linalg_complex_cholesky_invert},
13964 {"Math::GSL::Linalgc::gsl_linalg_pcholesky_decomp", _wrap_gsl_linalg_pcholesky_decomp},
13965 {"Math::GSL::Linalgc::gsl_linalg_pcholesky_solve", _wrap_gsl_linalg_pcholesky_solve},
13966 {"Math::GSL::Linalgc::gsl_linalg_pcholesky_svx", _wrap_gsl_linalg_pcholesky_svx},
13967 {"Math::GSL::Linalgc::gsl_linalg_pcholesky_decomp2", _wrap_gsl_linalg_pcholesky_decomp2},
13968 {"Math::GSL::Linalgc::gsl_linalg_pcholesky_solve2", _wrap_gsl_linalg_pcholesky_solve2},
13969 {"Math::GSL::Linalgc::gsl_linalg_pcholesky_svx2", _wrap_gsl_linalg_pcholesky_svx2},
13970 {"Math::GSL::Linalgc::gsl_linalg_pcholesky_invert", _wrap_gsl_linalg_pcholesky_invert},
13971 {"Math::GSL::Linalgc::gsl_linalg_pcholesky_rcond", _wrap_gsl_linalg_pcholesky_rcond},
13972 {"Math::GSL::Linalgc::gsl_linalg_mcholesky_decomp", _wrap_gsl_linalg_mcholesky_decomp},
13973 {"Math::GSL::Linalgc::gsl_linalg_mcholesky_solve", _wrap_gsl_linalg_mcholesky_solve},
13974 {"Math::GSL::Linalgc::gsl_linalg_mcholesky_svx", _wrap_gsl_linalg_mcholesky_svx},
13975 {"Math::GSL::Linalgc::gsl_linalg_mcholesky_rcond", _wrap_gsl_linalg_mcholesky_rcond},
13976 {"Math::GSL::Linalgc::gsl_linalg_mcholesky_invert", _wrap_gsl_linalg_mcholesky_invert},
13977 {"Math::GSL::Linalgc::gsl_linalg_symmtd_decomp", _wrap_gsl_linalg_symmtd_decomp},
13978 {"Math::GSL::Linalgc::gsl_linalg_symmtd_unpack", _wrap_gsl_linalg_symmtd_unpack},
13979 {"Math::GSL::Linalgc::gsl_linalg_symmtd_unpack_T", _wrap_gsl_linalg_symmtd_unpack_T},
13980 {"Math::GSL::Linalgc::gsl_linalg_hermtd_decomp", _wrap_gsl_linalg_hermtd_decomp},
13981 {"Math::GSL::Linalgc::gsl_linalg_hermtd_unpack", _wrap_gsl_linalg_hermtd_unpack},
13982 {"Math::GSL::Linalgc::gsl_linalg_hermtd_unpack_T", _wrap_gsl_linalg_hermtd_unpack_T},
13983 {"Math::GSL::Linalgc::gsl_linalg_HH_solve", _wrap_gsl_linalg_HH_solve},
13984 {"Math::GSL::Linalgc::gsl_linalg_HH_svx", _wrap_gsl_linalg_HH_svx},
13985 {"Math::GSL::Linalgc::gsl_linalg_solve_symm_tridiag", _wrap_gsl_linalg_solve_symm_tridiag},
13986 {"Math::GSL::Linalgc::gsl_linalg_solve_tridiag", _wrap_gsl_linalg_solve_tridiag},
13987 {"Math::GSL::Linalgc::gsl_linalg_solve_symm_cyc_tridiag", _wrap_gsl_linalg_solve_symm_cyc_tridiag},
13988 {"Math::GSL::Linalgc::gsl_linalg_solve_cyc_tridiag", _wrap_gsl_linalg_solve_cyc_tridiag},
13989 {"Math::GSL::Linalgc::gsl_linalg_bidiag_decomp", _wrap_gsl_linalg_bidiag_decomp},
13990 {"Math::GSL::Linalgc::gsl_linalg_bidiag_unpack", _wrap_gsl_linalg_bidiag_unpack},
13991 {"Math::GSL::Linalgc::gsl_linalg_bidiag_unpack2", _wrap_gsl_linalg_bidiag_unpack2},
13992 {"Math::GSL::Linalgc::gsl_linalg_bidiag_unpack_B", _wrap_gsl_linalg_bidiag_unpack_B},
13993 {"Math::GSL::Linalgc::gsl_linalg_balance_matrix", _wrap_gsl_linalg_balance_matrix},
13994 {"Math::GSL::Linalgc::gsl_linalg_balance_accum", _wrap_gsl_linalg_balance_accum},
13995 {"Math::GSL::Linalgc::gsl_linalg_balance_columns", _wrap_gsl_linalg_balance_columns},
13996 {"Math::GSL::Linalgc::gsl_linalg_tri_upper_rcond", _wrap_gsl_linalg_tri_upper_rcond},
13997 {"Math::GSL::Linalgc::gsl_linalg_tri_lower_rcond", _wrap_gsl_linalg_tri_lower_rcond},
13998 {"Math::GSL::Linalgc::gsl_linalg_invnorm1", _wrap_gsl_linalg_invnorm1},
13999 {"Math::GSL::Linalgc::gsl_linalg_tri_upper_invert", _wrap_gsl_linalg_tri_upper_invert},
14000 {"Math::GSL::Linalgc::gsl_linalg_tri_lower_invert", _wrap_gsl_linalg_tri_lower_invert},
14001 {"Math::GSL::Linalgc::gsl_linalg_tri_upper_unit_invert", _wrap_gsl_linalg_tri_upper_unit_invert},
14002 {"Math::GSL::Linalgc::gsl_linalg_tri_lower_unit_invert", _wrap_gsl_linalg_tri_lower_unit_invert},
14003 {"Math::GSL::Linalgc::gsl_linalg_givens", _wrap_gsl_linalg_givens},
14004 {"Math::GSL::Linalgc::gsl_linalg_givens_gv", _wrap_gsl_linalg_givens_gv},
14005 {"Math::GSL::Linalgc::gsl_permutation_struct_size_set", _wrap_gsl_permutation_struct_size_set},
14006 {"Math::GSL::Linalgc::gsl_permutation_struct_size_get", _wrap_gsl_permutation_struct_size_get},
14007 {"Math::GSL::Linalgc::gsl_permutation_struct_data_set", _wrap_gsl_permutation_struct_data_set},
14008 {"Math::GSL::Linalgc::gsl_permutation_struct_data_get", _wrap_gsl_permutation_struct_data_get},
14009 {"Math::GSL::Linalgc::new_gsl_permutation_struct", _wrap_new_gsl_permutation_struct},
14010 {"Math::GSL::Linalgc::delete_gsl_permutation_struct", _wrap_delete_gsl_permutation_struct},
14011 {"Math::GSL::Linalgc::gsl_permutation_alloc", _wrap_gsl_permutation_alloc},
14012 {"Math::GSL::Linalgc::gsl_permutation_calloc", _wrap_gsl_permutation_calloc},
14013 {"Math::GSL::Linalgc::gsl_permutation_init", _wrap_gsl_permutation_init},
14014 {"Math::GSL::Linalgc::gsl_permutation_free", _wrap_gsl_permutation_free},
14015 {"Math::GSL::Linalgc::gsl_permutation_memcpy", _wrap_gsl_permutation_memcpy},
14016 {"Math::GSL::Linalgc::gsl_permutation_fread", _wrap_gsl_permutation_fread},
14017 {"Math::GSL::Linalgc::gsl_permutation_fwrite", _wrap_gsl_permutation_fwrite},
14018 {"Math::GSL::Linalgc::gsl_permutation_fscanf", _wrap_gsl_permutation_fscanf},
14019 {"Math::GSL::Linalgc::gsl_permutation_fprintf", _wrap_gsl_permutation_fprintf},
14020 {"Math::GSL::Linalgc::gsl_permutation_size", _wrap_gsl_permutation_size},
14021 {"Math::GSL::Linalgc::gsl_permutation_data", _wrap_gsl_permutation_data},
14022 {"Math::GSL::Linalgc::gsl_permutation_swap", _wrap_gsl_permutation_swap},
14023 {"Math::GSL::Linalgc::gsl_permutation_valid", _wrap_gsl_permutation_valid},
14024 {"Math::GSL::Linalgc::gsl_permutation_reverse", _wrap_gsl_permutation_reverse},
14025 {"Math::GSL::Linalgc::gsl_permutation_inverse", _wrap_gsl_permutation_inverse},
14026 {"Math::GSL::Linalgc::gsl_permutation_next", _wrap_gsl_permutation_next},
14027 {"Math::GSL::Linalgc::gsl_permutation_prev", _wrap_gsl_permutation_prev},
14028 {"Math::GSL::Linalgc::gsl_permutation_mul", _wrap_gsl_permutation_mul},
14029 {"Math::GSL::Linalgc::gsl_permutation_linear_to_canonical", _wrap_gsl_permutation_linear_to_canonical},
14030 {"Math::GSL::Linalgc::gsl_permutation_canonical_to_linear", _wrap_gsl_permutation_canonical_to_linear},
14031 {"Math::GSL::Linalgc::gsl_permutation_inversions", _wrap_gsl_permutation_inversions},
14032 {"Math::GSL::Linalgc::gsl_permutation_linear_cycles", _wrap_gsl_permutation_linear_cycles},
14033 {"Math::GSL::Linalgc::gsl_permutation_canonical_cycles", _wrap_gsl_permutation_canonical_cycles},
14034 {"Math::GSL::Linalgc::gsl_permutation_get", _wrap_gsl_permutation_get},
14035 {"Math::GSL::Linalgc::gsl_complex_dat_set", _wrap_gsl_complex_dat_set},
14036 {"Math::GSL::Linalgc::gsl_complex_dat_get", _wrap_gsl_complex_dat_get},
14037 {"Math::GSL::Linalgc::new_gsl_complex", _wrap_new_gsl_complex},
14038 {"Math::GSL::Linalgc::delete_gsl_complex", _wrap_delete_gsl_complex},
14039 {"Math::GSL::Linalgc::gsl_complex_long_double_dat_set", _wrap_gsl_complex_long_double_dat_set},
14040 {"Math::GSL::Linalgc::gsl_complex_long_double_dat_get", _wrap_gsl_complex_long_double_dat_get},
14041 {"Math::GSL::Linalgc::new_gsl_complex_long_double", _wrap_new_gsl_complex_long_double},
14042 {"Math::GSL::Linalgc::delete_gsl_complex_long_double", _wrap_delete_gsl_complex_long_double},
14043 {"Math::GSL::Linalgc::gsl_complex_float_dat_set", _wrap_gsl_complex_float_dat_set},
14044 {"Math::GSL::Linalgc::gsl_complex_float_dat_get", _wrap_gsl_complex_float_dat_get},
14045 {"Math::GSL::Linalgc::new_gsl_complex_float", _wrap_new_gsl_complex_float},
14046 {"Math::GSL::Linalgc::delete_gsl_complex_float", _wrap_delete_gsl_complex_float},
14047 {"Math::GSL::Linalgc::gsl_complex_polar", _wrap_gsl_complex_polar},
14048 {"Math::GSL::Linalgc::gsl_complex_rect", _wrap_gsl_complex_rect},
14049 {"Math::GSL::Linalgc::gsl_complex_arg", _wrap_gsl_complex_arg},
14050 {"Math::GSL::Linalgc::gsl_complex_abs", _wrap_gsl_complex_abs},
14051 {"Math::GSL::Linalgc::gsl_complex_abs2", _wrap_gsl_complex_abs2},
14052 {"Math::GSL::Linalgc::gsl_complex_logabs", _wrap_gsl_complex_logabs},
14053 {"Math::GSL::Linalgc::gsl_complex_add", _wrap_gsl_complex_add},
14054 {"Math::GSL::Linalgc::gsl_complex_sub", _wrap_gsl_complex_sub},
14055 {"Math::GSL::Linalgc::gsl_complex_mul", _wrap_gsl_complex_mul},
14056 {"Math::GSL::Linalgc::gsl_complex_div", _wrap_gsl_complex_div},
14057 {"Math::GSL::Linalgc::gsl_complex_add_real", _wrap_gsl_complex_add_real},
14058 {"Math::GSL::Linalgc::gsl_complex_sub_real", _wrap_gsl_complex_sub_real},
14059 {"Math::GSL::Linalgc::gsl_complex_mul_real", _wrap_gsl_complex_mul_real},
14060 {"Math::GSL::Linalgc::gsl_complex_div_real", _wrap_gsl_complex_div_real},
14061 {"Math::GSL::Linalgc::gsl_complex_add_imag", _wrap_gsl_complex_add_imag},
14062 {"Math::GSL::Linalgc::gsl_complex_sub_imag", _wrap_gsl_complex_sub_imag},
14063 {"Math::GSL::Linalgc::gsl_complex_mul_imag", _wrap_gsl_complex_mul_imag},
14064 {"Math::GSL::Linalgc::gsl_complex_div_imag", _wrap_gsl_complex_div_imag},
14065 {"Math::GSL::Linalgc::gsl_complex_conjugate", _wrap_gsl_complex_conjugate},
14066 {"Math::GSL::Linalgc::gsl_complex_inverse", _wrap_gsl_complex_inverse},
14067 {"Math::GSL::Linalgc::gsl_complex_negative", _wrap_gsl_complex_negative},
14068 {"Math::GSL::Linalgc::gsl_complex_sqrt", _wrap_gsl_complex_sqrt},
14069 {"Math::GSL::Linalgc::gsl_complex_sqrt_real", _wrap_gsl_complex_sqrt_real},
14070 {"Math::GSL::Linalgc::gsl_complex_pow", _wrap_gsl_complex_pow},
14071 {"Math::GSL::Linalgc::gsl_complex_pow_real", _wrap_gsl_complex_pow_real},
14072 {"Math::GSL::Linalgc::gsl_complex_exp", _wrap_gsl_complex_exp},
14073 {"Math::GSL::Linalgc::gsl_complex_log", _wrap_gsl_complex_log},
14074 {"Math::GSL::Linalgc::gsl_complex_log10", _wrap_gsl_complex_log10},
14075 {"Math::GSL::Linalgc::gsl_complex_log_b", _wrap_gsl_complex_log_b},
14076 {"Math::GSL::Linalgc::gsl_complex_sin", _wrap_gsl_complex_sin},
14077 {"Math::GSL::Linalgc::gsl_complex_cos", _wrap_gsl_complex_cos},
14078 {"Math::GSL::Linalgc::gsl_complex_sec", _wrap_gsl_complex_sec},
14079 {"Math::GSL::Linalgc::gsl_complex_csc", _wrap_gsl_complex_csc},
14080 {"Math::GSL::Linalgc::gsl_complex_tan", _wrap_gsl_complex_tan},
14081 {"Math::GSL::Linalgc::gsl_complex_cot", _wrap_gsl_complex_cot},
14082 {"Math::GSL::Linalgc::gsl_complex_arcsin", _wrap_gsl_complex_arcsin},
14083 {"Math::GSL::Linalgc::gsl_complex_arcsin_real", _wrap_gsl_complex_arcsin_real},
14084 {"Math::GSL::Linalgc::gsl_complex_arccos", _wrap_gsl_complex_arccos},
14085 {"Math::GSL::Linalgc::gsl_complex_arccos_real", _wrap_gsl_complex_arccos_real},
14086 {"Math::GSL::Linalgc::gsl_complex_arcsec", _wrap_gsl_complex_arcsec},
14087 {"Math::GSL::Linalgc::gsl_complex_arcsec_real", _wrap_gsl_complex_arcsec_real},
14088 {"Math::GSL::Linalgc::gsl_complex_arccsc", _wrap_gsl_complex_arccsc},
14089 {"Math::GSL::Linalgc::gsl_complex_arccsc_real", _wrap_gsl_complex_arccsc_real},
14090 {"Math::GSL::Linalgc::gsl_complex_arctan", _wrap_gsl_complex_arctan},
14091 {"Math::GSL::Linalgc::gsl_complex_arccot", _wrap_gsl_complex_arccot},
14092 {"Math::GSL::Linalgc::gsl_complex_sinh", _wrap_gsl_complex_sinh},
14093 {"Math::GSL::Linalgc::gsl_complex_cosh", _wrap_gsl_complex_cosh},
14094 {"Math::GSL::Linalgc::gsl_complex_sech", _wrap_gsl_complex_sech},
14095 {"Math::GSL::Linalgc::gsl_complex_csch", _wrap_gsl_complex_csch},
14096 {"Math::GSL::Linalgc::gsl_complex_tanh", _wrap_gsl_complex_tanh},
14097 {"Math::GSL::Linalgc::gsl_complex_coth", _wrap_gsl_complex_coth},
14098 {"Math::GSL::Linalgc::gsl_complex_arcsinh", _wrap_gsl_complex_arcsinh},
14099 {"Math::GSL::Linalgc::gsl_complex_arccosh", _wrap_gsl_complex_arccosh},
14100 {"Math::GSL::Linalgc::gsl_complex_arccosh_real", _wrap_gsl_complex_arccosh_real},
14101 {"Math::GSL::Linalgc::gsl_complex_arcsech", _wrap_gsl_complex_arcsech},
14102 {"Math::GSL::Linalgc::gsl_complex_arccsch", _wrap_gsl_complex_arccsch},
14103 {"Math::GSL::Linalgc::gsl_complex_arctanh", _wrap_gsl_complex_arctanh},
14104 {"Math::GSL::Linalgc::gsl_complex_arctanh_real", _wrap_gsl_complex_arctanh_real},
14105 {"Math::GSL::Linalgc::gsl_complex_arccoth", _wrap_gsl_complex_arccoth},
14106 {0,0}
14107 };
14108 /* -----------------------------------------------------------------------------
14109 * Type initialization:
14110 * This problem is tough by the requirement that no dynamic
14111 * memory is used. Also, since swig_type_info structures store pointers to
14112 * swig_cast_info structures and swig_cast_info structures store pointers back
14113 * to swig_type_info structures, we need some lookup code at initialization.
14114 * The idea is that swig generates all the structures that are needed.
14115 * The runtime then collects these partially filled structures.
14116 * The SWIG_InitializeModule function takes these initial arrays out of
14117 * swig_module, and does all the lookup, filling in the swig_module.types
14118 * array with the correct data and linking the correct swig_cast_info
14119 * structures together.
14120 *
14121 * The generated swig_type_info structures are assigned statically to an initial
14122 * array. We just loop through that array, and handle each type individually.
14123 * First we lookup if this type has been already loaded, and if so, use the
14124 * loaded structure instead of the generated one. Then we have to fill in the
14125 * cast linked list. The cast data is initially stored in something like a
14126 * two-dimensional array. Each row corresponds to a type (there are the same
14127 * number of rows as there are in the swig_type_initial array). Each entry in
14128 * a column is one of the swig_cast_info structures for that type.
14129 * The cast_initial array is actually an array of arrays, because each row has
14130 * a variable number of columns. So to actually build the cast linked list,
14131 * we find the array of casts associated with the type, and loop through it
14132 * adding the casts to the list. The one last trick we need to do is making
14133 * sure the type pointer in the swig_cast_info struct is correct.
14134 *
14135 * First off, we lookup the cast->type name to see if it is already loaded.
14136 * There are three cases to handle:
14137 * 1) If the cast->type has already been loaded AND the type we are adding
14138 * casting info to has not been loaded (it is in this module), THEN we
14139 * replace the cast->type pointer with the type pointer that has already
14140 * been loaded.
14141 * 2) If BOTH types (the one we are adding casting info to, and the
14142 * cast->type) are loaded, THEN the cast info has already been loaded by
14143 * the previous module so we just ignore it.
14144 * 3) Finally, if cast->type has not already been loaded, then we add that
14145 * swig_cast_info to the linked list (because the cast->type) pointer will
14146 * be correct.
14147 * ----------------------------------------------------------------------------- */
14148
14149 #ifdef __cplusplus
14150 extern "C" {
14151 #if 0
14152 } /* c-mode */
14153 #endif
14154 #endif
14155
14156 #if 0
14157 #define SWIGRUNTIME_DEBUG
14158 #endif
14159
14160
14161 SWIGRUNTIME void
SWIG_InitializeModule(void * clientdata)14162 SWIG_InitializeModule(void *clientdata) {
14163 size_t i;
14164 swig_module_info *module_head, *iter;
14165 int init;
14166
14167 /* check to see if the circular list has been setup, if not, set it up */
14168 if (swig_module.next==0) {
14169 /* Initialize the swig_module */
14170 swig_module.type_initial = swig_type_initial;
14171 swig_module.cast_initial = swig_cast_initial;
14172 swig_module.next = &swig_module;
14173 init = 1;
14174 } else {
14175 init = 0;
14176 }
14177
14178 /* Try and load any already created modules */
14179 module_head = SWIG_GetModule(clientdata);
14180 if (!module_head) {
14181 /* This is the first module loaded for this interpreter */
14182 /* so set the swig module into the interpreter */
14183 SWIG_SetModule(clientdata, &swig_module);
14184 } else {
14185 /* the interpreter has loaded a SWIG module, but has it loaded this one? */
14186 iter=module_head;
14187 do {
14188 if (iter==&swig_module) {
14189 /* Our module is already in the list, so there's nothing more to do. */
14190 return;
14191 }
14192 iter=iter->next;
14193 } while (iter!= module_head);
14194
14195 /* otherwise we must add our module into the list */
14196 swig_module.next = module_head->next;
14197 module_head->next = &swig_module;
14198 }
14199
14200 /* When multiple interpreters are used, a module could have already been initialized in
14201 a different interpreter, but not yet have a pointer in this interpreter.
14202 In this case, we do not want to continue adding types... everything should be
14203 set up already */
14204 if (init == 0) return;
14205
14206 /* Now work on filling in swig_module.types */
14207 #ifdef SWIGRUNTIME_DEBUG
14208 printf("SWIG_InitializeModule: size %lu\n", (unsigned long)swig_module.size);
14209 #endif
14210 for (i = 0; i < swig_module.size; ++i) {
14211 swig_type_info *type = 0;
14212 swig_type_info *ret;
14213 swig_cast_info *cast;
14214
14215 #ifdef SWIGRUNTIME_DEBUG
14216 printf("SWIG_InitializeModule: type %lu %s\n", (unsigned long)i, swig_module.type_initial[i]->name);
14217 #endif
14218
14219 /* if there is another module already loaded */
14220 if (swig_module.next != &swig_module) {
14221 type = SWIG_MangledTypeQueryModule(swig_module.next, &swig_module, swig_module.type_initial[i]->name);
14222 }
14223 if (type) {
14224 /* Overwrite clientdata field */
14225 #ifdef SWIGRUNTIME_DEBUG
14226 printf("SWIG_InitializeModule: found type %s\n", type->name);
14227 #endif
14228 if (swig_module.type_initial[i]->clientdata) {
14229 type->clientdata = swig_module.type_initial[i]->clientdata;
14230 #ifdef SWIGRUNTIME_DEBUG
14231 printf("SWIG_InitializeModule: found and overwrite type %s \n", type->name);
14232 #endif
14233 }
14234 } else {
14235 type = swig_module.type_initial[i];
14236 }
14237
14238 /* Insert casting types */
14239 cast = swig_module.cast_initial[i];
14240 while (cast->type) {
14241 /* Don't need to add information already in the list */
14242 ret = 0;
14243 #ifdef SWIGRUNTIME_DEBUG
14244 printf("SWIG_InitializeModule: look cast %s\n", cast->type->name);
14245 #endif
14246 if (swig_module.next != &swig_module) {
14247 ret = SWIG_MangledTypeQueryModule(swig_module.next, &swig_module, cast->type->name);
14248 #ifdef SWIGRUNTIME_DEBUG
14249 if (ret) printf("SWIG_InitializeModule: found cast %s\n", ret->name);
14250 #endif
14251 }
14252 if (ret) {
14253 if (type == swig_module.type_initial[i]) {
14254 #ifdef SWIGRUNTIME_DEBUG
14255 printf("SWIG_InitializeModule: skip old type %s\n", ret->name);
14256 #endif
14257 cast->type = ret;
14258 ret = 0;
14259 } else {
14260 /* Check for casting already in the list */
14261 swig_cast_info *ocast = SWIG_TypeCheck(ret->name, type);
14262 #ifdef SWIGRUNTIME_DEBUG
14263 if (ocast) printf("SWIG_InitializeModule: skip old cast %s\n", ret->name);
14264 #endif
14265 if (!ocast) ret = 0;
14266 }
14267 }
14268
14269 if (!ret) {
14270 #ifdef SWIGRUNTIME_DEBUG
14271 printf("SWIG_InitializeModule: adding cast %s\n", cast->type->name);
14272 #endif
14273 if (type->cast) {
14274 type->cast->prev = cast;
14275 cast->next = type->cast;
14276 }
14277 type->cast = cast;
14278 }
14279 cast++;
14280 }
14281 /* Set entry in modules->types array equal to the type */
14282 swig_module.types[i] = type;
14283 }
14284 swig_module.types[i] = 0;
14285
14286 #ifdef SWIGRUNTIME_DEBUG
14287 printf("**** SWIG_InitializeModule: Cast List ******\n");
14288 for (i = 0; i < swig_module.size; ++i) {
14289 int j = 0;
14290 swig_cast_info *cast = swig_module.cast_initial[i];
14291 printf("SWIG_InitializeModule: type %lu %s\n", (unsigned long)i, swig_module.type_initial[i]->name);
14292 while (cast->type) {
14293 printf("SWIG_InitializeModule: cast type %s\n", cast->type->name);
14294 cast++;
14295 ++j;
14296 }
14297 printf("---- Total casts: %d\n",j);
14298 }
14299 printf("**** SWIG_InitializeModule: Cast List ******\n");
14300 #endif
14301 }
14302
14303 /* This function will propagate the clientdata field of type to
14304 * any new swig_type_info structures that have been added into the list
14305 * of equivalent types. It is like calling
14306 * SWIG_TypeClientData(type, clientdata) a second time.
14307 */
14308 SWIGRUNTIME void
SWIG_PropagateClientData(void)14309 SWIG_PropagateClientData(void) {
14310 size_t i;
14311 swig_cast_info *equiv;
14312 static int init_run = 0;
14313
14314 if (init_run) return;
14315 init_run = 1;
14316
14317 for (i = 0; i < swig_module.size; i++) {
14318 if (swig_module.types[i]->clientdata) {
14319 equiv = swig_module.types[i]->cast;
14320 while (equiv) {
14321 if (!equiv->converter) {
14322 if (equiv->type && !equiv->type->clientdata)
14323 SWIG_TypeClientData(equiv->type, swig_module.types[i]->clientdata);
14324 }
14325 equiv = equiv->next;
14326 }
14327 }
14328 }
14329 }
14330
14331 #ifdef __cplusplus
14332 #if 0
14333 {
14334 /* c-mode */
14335 #endif
14336 }
14337 #endif
14338
14339
14340
14341 #if defined(__cplusplus) && ! defined(XSPROTO)
14342 extern "C"
14343 #endif
14344
XS(SWIG_init)14345 XS(SWIG_init) {
14346 dXSARGS;
14347 int i;
14348 (void)items;
14349
14350 SWIG_InitializeModule(0);
14351
14352 /* Install commands */
14353 for (i = 0; swig_commands[i].name; i++) {
14354 /* Casts only needed for Perl < 5.10. */
14355 #ifdef __cplusplus
14356 newXS(const_cast<char*>(swig_commands[i].name), swig_commands[i].wrapper, const_cast<char*>(__FILE__));
14357 #else
14358 newXS((char*)swig_commands[i].name, swig_commands[i].wrapper, (char*)__FILE__);
14359 #endif
14360 }
14361
14362 /* Install variables */
14363 for (i = 0; swig_variables[i].name; i++) {
14364 SV *sv;
14365 sv = get_sv(swig_variables[i].name, TRUE | 0x2 | GV_ADDMULTI);
14366 if (swig_variables[i].type) {
14367 SWIG_MakePtr(sv,(void *)1, *swig_variables[i].type,0);
14368 } else {
14369 sv_setiv(sv,(IV) 0);
14370 }
14371 swig_create_magic(sv, swig_variables[i].name, swig_variables[i].set, swig_variables[i].get);
14372 }
14373
14374 /* Install constant */
14375 for (i = 0; swig_constants[i].type; i++) {
14376 SV *sv;
14377 sv = get_sv(swig_constants[i].name, TRUE | 0x2 | GV_ADDMULTI);
14378 switch(swig_constants[i].type) {
14379 case SWIG_INT:
14380 sv_setiv(sv, (IV) swig_constants[i].lvalue);
14381 break;
14382 case SWIG_FLOAT:
14383 sv_setnv(sv, (double) swig_constants[i].dvalue);
14384 break;
14385 case SWIG_STRING:
14386 sv_setpv(sv, (const char *) swig_constants[i].pvalue);
14387 break;
14388 case SWIG_POINTER:
14389 SWIG_MakePtr(sv, swig_constants[i].pvalue, *(swig_constants[i].ptype),0);
14390 break;
14391 case SWIG_BINARY:
14392 SWIG_MakePackedObj(sv, swig_constants[i].pvalue, swig_constants[i].lvalue, *(swig_constants[i].ptype));
14393 break;
14394 default:
14395 break;
14396 }
14397 SvREADONLY_on(sv);
14398 }
14399
14400 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
14401 SV *sv = get_sv((char*) SWIG_prefix "GSL_VERSION", TRUE | 0x2 | GV_ADDMULTI);
14402 sv_setsv(sv, SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(2.7)));
14403 SvREADONLY_on(sv);
14404 } while(0) /*@SWIG@*/;
14405 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
14406 SV *sv = get_sv((char*) SWIG_prefix "GSL_MAJOR_VERSION", TRUE | 0x2 | GV_ADDMULTI);
14407 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(2)));
14408 SvREADONLY_on(sv);
14409 } while(0) /*@SWIG@*/;
14410 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
14411 SV *sv = get_sv((char*) SWIG_prefix "GSL_MINOR_VERSION", TRUE | 0x2 | GV_ADDMULTI);
14412 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(7)));
14413 SvREADONLY_on(sv);
14414 } while(0) /*@SWIG@*/;
14415 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
14416 SV *sv = get_sv((char*) SWIG_prefix "GSL_POSZERO", TRUE | 0x2 | GV_ADDMULTI);
14417 sv_setsv(sv, SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)((+0.0))));
14418 SvREADONLY_on(sv);
14419 } while(0) /*@SWIG@*/;
14420 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
14421 SV *sv = get_sv((char*) SWIG_prefix "GSL_NEGZERO", TRUE | 0x2 | GV_ADDMULTI);
14422 sv_setsv(sv, SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)((-0.0))));
14423 SvREADONLY_on(sv);
14424 } while(0) /*@SWIG@*/;
14425 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
14426 SV *sv = get_sv((char*) SWIG_prefix "GSL_SUCCESS", TRUE | 0x2 | GV_ADDMULTI);
14427 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_SUCCESS)));
14428 SvREADONLY_on(sv);
14429 } while(0) /*@SWIG@*/;
14430 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
14431 SV *sv = get_sv((char*) SWIG_prefix "GSL_FAILURE", TRUE | 0x2 | GV_ADDMULTI);
14432 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_FAILURE)));
14433 SvREADONLY_on(sv);
14434 } while(0) /*@SWIG@*/;
14435 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
14436 SV *sv = get_sv((char*) SWIG_prefix "GSL_CONTINUE", TRUE | 0x2 | GV_ADDMULTI);
14437 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_CONTINUE)));
14438 SvREADONLY_on(sv);
14439 } while(0) /*@SWIG@*/;
14440 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
14441 SV *sv = get_sv((char*) SWIG_prefix "GSL_EDOM", TRUE | 0x2 | GV_ADDMULTI);
14442 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EDOM)));
14443 SvREADONLY_on(sv);
14444 } while(0) /*@SWIG@*/;
14445 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
14446 SV *sv = get_sv((char*) SWIG_prefix "GSL_ERANGE", TRUE | 0x2 | GV_ADDMULTI);
14447 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ERANGE)));
14448 SvREADONLY_on(sv);
14449 } while(0) /*@SWIG@*/;
14450 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
14451 SV *sv = get_sv((char*) SWIG_prefix "GSL_EFAULT", TRUE | 0x2 | GV_ADDMULTI);
14452 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EFAULT)));
14453 SvREADONLY_on(sv);
14454 } while(0) /*@SWIG@*/;
14455 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
14456 SV *sv = get_sv((char*) SWIG_prefix "GSL_EINVAL", TRUE | 0x2 | GV_ADDMULTI);
14457 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EINVAL)));
14458 SvREADONLY_on(sv);
14459 } while(0) /*@SWIG@*/;
14460 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
14461 SV *sv = get_sv((char*) SWIG_prefix "GSL_EFAILED", TRUE | 0x2 | GV_ADDMULTI);
14462 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EFAILED)));
14463 SvREADONLY_on(sv);
14464 } while(0) /*@SWIG@*/;
14465 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
14466 SV *sv = get_sv((char*) SWIG_prefix "GSL_EFACTOR", TRUE | 0x2 | GV_ADDMULTI);
14467 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EFACTOR)));
14468 SvREADONLY_on(sv);
14469 } while(0) /*@SWIG@*/;
14470 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
14471 SV *sv = get_sv((char*) SWIG_prefix "GSL_ESANITY", TRUE | 0x2 | GV_ADDMULTI);
14472 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ESANITY)));
14473 SvREADONLY_on(sv);
14474 } while(0) /*@SWIG@*/;
14475 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
14476 SV *sv = get_sv((char*) SWIG_prefix "GSL_ENOMEM", TRUE | 0x2 | GV_ADDMULTI);
14477 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ENOMEM)));
14478 SvREADONLY_on(sv);
14479 } while(0) /*@SWIG@*/;
14480 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
14481 SV *sv = get_sv((char*) SWIG_prefix "GSL_EBADFUNC", TRUE | 0x2 | GV_ADDMULTI);
14482 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EBADFUNC)));
14483 SvREADONLY_on(sv);
14484 } while(0) /*@SWIG@*/;
14485 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
14486 SV *sv = get_sv((char*) SWIG_prefix "GSL_ERUNAWAY", TRUE | 0x2 | GV_ADDMULTI);
14487 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ERUNAWAY)));
14488 SvREADONLY_on(sv);
14489 } while(0) /*@SWIG@*/;
14490 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
14491 SV *sv = get_sv((char*) SWIG_prefix "GSL_EMAXITER", TRUE | 0x2 | GV_ADDMULTI);
14492 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EMAXITER)));
14493 SvREADONLY_on(sv);
14494 } while(0) /*@SWIG@*/;
14495 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
14496 SV *sv = get_sv((char*) SWIG_prefix "GSL_EZERODIV", TRUE | 0x2 | GV_ADDMULTI);
14497 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EZERODIV)));
14498 SvREADONLY_on(sv);
14499 } while(0) /*@SWIG@*/;
14500 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
14501 SV *sv = get_sv((char*) SWIG_prefix "GSL_EBADTOL", TRUE | 0x2 | GV_ADDMULTI);
14502 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EBADTOL)));
14503 SvREADONLY_on(sv);
14504 } while(0) /*@SWIG@*/;
14505 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
14506 SV *sv = get_sv((char*) SWIG_prefix "GSL_ETOL", TRUE | 0x2 | GV_ADDMULTI);
14507 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ETOL)));
14508 SvREADONLY_on(sv);
14509 } while(0) /*@SWIG@*/;
14510 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
14511 SV *sv = get_sv((char*) SWIG_prefix "GSL_EUNDRFLW", TRUE | 0x2 | GV_ADDMULTI);
14512 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EUNDRFLW)));
14513 SvREADONLY_on(sv);
14514 } while(0) /*@SWIG@*/;
14515 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
14516 SV *sv = get_sv((char*) SWIG_prefix "GSL_EOVRFLW", TRUE | 0x2 | GV_ADDMULTI);
14517 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EOVRFLW)));
14518 SvREADONLY_on(sv);
14519 } while(0) /*@SWIG@*/;
14520 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
14521 SV *sv = get_sv((char*) SWIG_prefix "GSL_ELOSS", TRUE | 0x2 | GV_ADDMULTI);
14522 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ELOSS)));
14523 SvREADONLY_on(sv);
14524 } while(0) /*@SWIG@*/;
14525 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
14526 SV *sv = get_sv((char*) SWIG_prefix "GSL_EROUND", TRUE | 0x2 | GV_ADDMULTI);
14527 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EROUND)));
14528 SvREADONLY_on(sv);
14529 } while(0) /*@SWIG@*/;
14530 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
14531 SV *sv = get_sv((char*) SWIG_prefix "GSL_EBADLEN", TRUE | 0x2 | GV_ADDMULTI);
14532 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EBADLEN)));
14533 SvREADONLY_on(sv);
14534 } while(0) /*@SWIG@*/;
14535 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
14536 SV *sv = get_sv((char*) SWIG_prefix "GSL_ENOTSQR", TRUE | 0x2 | GV_ADDMULTI);
14537 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ENOTSQR)));
14538 SvREADONLY_on(sv);
14539 } while(0) /*@SWIG@*/;
14540 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
14541 SV *sv = get_sv((char*) SWIG_prefix "GSL_ESING", TRUE | 0x2 | GV_ADDMULTI);
14542 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ESING)));
14543 SvREADONLY_on(sv);
14544 } while(0) /*@SWIG@*/;
14545 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
14546 SV *sv = get_sv((char*) SWIG_prefix "GSL_EDIVERGE", TRUE | 0x2 | GV_ADDMULTI);
14547 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EDIVERGE)));
14548 SvREADONLY_on(sv);
14549 } while(0) /*@SWIG@*/;
14550 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
14551 SV *sv = get_sv((char*) SWIG_prefix "GSL_EUNSUP", TRUE | 0x2 | GV_ADDMULTI);
14552 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EUNSUP)));
14553 SvREADONLY_on(sv);
14554 } while(0) /*@SWIG@*/;
14555 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
14556 SV *sv = get_sv((char*) SWIG_prefix "GSL_EUNIMPL", TRUE | 0x2 | GV_ADDMULTI);
14557 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EUNIMPL)));
14558 SvREADONLY_on(sv);
14559 } while(0) /*@SWIG@*/;
14560 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
14561 SV *sv = get_sv((char*) SWIG_prefix "GSL_ECACHE", TRUE | 0x2 | GV_ADDMULTI);
14562 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ECACHE)));
14563 SvREADONLY_on(sv);
14564 } while(0) /*@SWIG@*/;
14565 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
14566 SV *sv = get_sv((char*) SWIG_prefix "GSL_ETABLE", TRUE | 0x2 | GV_ADDMULTI);
14567 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ETABLE)));
14568 SvREADONLY_on(sv);
14569 } while(0) /*@SWIG@*/;
14570 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
14571 SV *sv = get_sv((char*) SWIG_prefix "GSL_ENOPROG", TRUE | 0x2 | GV_ADDMULTI);
14572 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ENOPROG)));
14573 SvREADONLY_on(sv);
14574 } while(0) /*@SWIG@*/;
14575 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
14576 SV *sv = get_sv((char*) SWIG_prefix "GSL_ENOPROGJ", TRUE | 0x2 | GV_ADDMULTI);
14577 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ENOPROGJ)));
14578 SvREADONLY_on(sv);
14579 } while(0) /*@SWIG@*/;
14580 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
14581 SV *sv = get_sv((char*) SWIG_prefix "GSL_ETOLF", TRUE | 0x2 | GV_ADDMULTI);
14582 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ETOLF)));
14583 SvREADONLY_on(sv);
14584 } while(0) /*@SWIG@*/;
14585 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
14586 SV *sv = get_sv((char*) SWIG_prefix "GSL_ETOLX", TRUE | 0x2 | GV_ADDMULTI);
14587 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ETOLX)));
14588 SvREADONLY_on(sv);
14589 } while(0) /*@SWIG@*/;
14590 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
14591 SV *sv = get_sv((char*) SWIG_prefix "GSL_ETOLG", TRUE | 0x2 | GV_ADDMULTI);
14592 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ETOLG)));
14593 SvREADONLY_on(sv);
14594 } while(0) /*@SWIG@*/;
14595 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
14596 SV *sv = get_sv((char*) SWIG_prefix "GSL_EOF", TRUE | 0x2 | GV_ADDMULTI);
14597 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EOF)));
14598 SvREADONLY_on(sv);
14599 } while(0) /*@SWIG@*/;
14600 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
14601 SV *sv = get_sv((char*) SWIG_prefix "GSL_LINALG_MOD_NONE", TRUE | 0x2 | GV_ADDMULTI);
14602 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_LINALG_MOD_NONE)));
14603 SvREADONLY_on(sv);
14604 } while(0) /*@SWIG@*/;
14605 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
14606 SV *sv = get_sv((char*) SWIG_prefix "GSL_LINALG_MOD_TRANSPOSE", TRUE | 0x2 | GV_ADDMULTI);
14607 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_LINALG_MOD_TRANSPOSE)));
14608 SvREADONLY_on(sv);
14609 } while(0) /*@SWIG@*/;
14610 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
14611 SV *sv = get_sv((char*) SWIG_prefix "GSL_LINALG_MOD_CONJUGATE", TRUE | 0x2 | GV_ADDMULTI);
14612 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_LINALG_MOD_CONJUGATE)));
14613 SvREADONLY_on(sv);
14614 } while(0) /*@SWIG@*/;
14615 SWIG_TypeClientData(SWIGTYPE_p_gsl_permutation_struct, (void*) "Math::GSL::Linalg::gsl_permutation_struct");
14616 SWIG_TypeClientData(SWIGTYPE_p_gsl_complex, (void*) "Math::GSL::Linalg::gsl_complex");
14617 SWIG_TypeClientData(SWIGTYPE_p_gsl_complex_long_double, (void*) "Math::GSL::Linalg::gsl_complex_long_double");
14618 SWIG_TypeClientData(SWIGTYPE_p_gsl_complex_float, (void*) "Math::GSL::Linalg::gsl_complex_float");
14619 ST(0) = &PL_sv_yes;
14620 XSRETURN(1);
14621 }
14622
14623