1 /* ----------------------------------------------------------------------------
2 * This file was automatically generated by SWIG (http://www.swig.org).
3 * Version 4.0.1
4 *
5 * This file is not intended to be easily readable and contains a number of
6 * coding conventions designed to improve portability and efficiency. Do not make
7 * changes to this file unless you know what you are doing--modify the SWIG
8 * interface file instead.
9 * ----------------------------------------------------------------------------- */
10
11
12 #ifndef SWIGPERL
13 #define SWIGPERL
14 #endif
15
16 #define SWIG_CASTRANK_MODE
17
18 /* -----------------------------------------------------------------------------
19 * This section contains generic SWIG labels for method/variable
20 * declarations/attributes, and other compiler dependent labels.
21 * ----------------------------------------------------------------------------- */
22
23 /* template workaround for compilers that cannot correctly implement the C++ standard */
24 #ifndef SWIGTEMPLATEDISAMBIGUATOR
25 # if defined(__SUNPRO_CC) && (__SUNPRO_CC <= 0x560)
26 # define SWIGTEMPLATEDISAMBIGUATOR template
27 # elif defined(__HP_aCC)
28 /* Needed even with `aCC -AA' when `aCC -V' reports HP ANSI C++ B3910B A.03.55 */
29 /* If we find a maximum version that requires this, the test would be __HP_aCC <= 35500 for A.03.55 */
30 # define SWIGTEMPLATEDISAMBIGUATOR template
31 # else
32 # define SWIGTEMPLATEDISAMBIGUATOR
33 # endif
34 #endif
35
36 /* inline attribute */
37 #ifndef SWIGINLINE
38 # if defined(__cplusplus) || (defined(__GNUC__) && !defined(__STRICT_ANSI__))
39 # define SWIGINLINE inline
40 # else
41 # define SWIGINLINE
42 # endif
43 #endif
44
45 /* attribute recognised by some compilers to avoid 'unused' warnings */
46 #ifndef SWIGUNUSED
47 # if defined(__GNUC__)
48 # if !(defined(__cplusplus)) || (__GNUC__ > 3 || (__GNUC__ == 3 && __GNUC_MINOR__ >= 4))
49 # define SWIGUNUSED __attribute__ ((__unused__))
50 # else
51 # define SWIGUNUSED
52 # endif
53 # elif defined(__ICC)
54 # define SWIGUNUSED __attribute__ ((__unused__))
55 # else
56 # define SWIGUNUSED
57 # endif
58 #endif
59
60 #ifndef SWIG_MSC_UNSUPPRESS_4505
61 # if defined(_MSC_VER)
62 # pragma warning(disable : 4505) /* unreferenced local function has been removed */
63 # endif
64 #endif
65
66 #ifndef SWIGUNUSEDPARM
67 # ifdef __cplusplus
68 # define SWIGUNUSEDPARM(p)
69 # else
70 # define SWIGUNUSEDPARM(p) p SWIGUNUSED
71 # endif
72 #endif
73
74 /* internal SWIG method */
75 #ifndef SWIGINTERN
76 # define SWIGINTERN static SWIGUNUSED
77 #endif
78
79 /* internal inline SWIG method */
80 #ifndef SWIGINTERNINLINE
81 # define SWIGINTERNINLINE SWIGINTERN SWIGINLINE
82 #endif
83
84 /* exporting methods */
85 #if defined(__GNUC__)
86 # if (__GNUC__ >= 4) || (__GNUC__ == 3 && __GNUC_MINOR__ >= 4)
87 # ifndef GCC_HASCLASSVISIBILITY
88 # define GCC_HASCLASSVISIBILITY
89 # endif
90 # endif
91 #endif
92
93 #ifndef SWIGEXPORT
94 # if defined(_WIN32) || defined(__WIN32__) || defined(__CYGWIN__)
95 # if defined(STATIC_LINKED)
96 # define SWIGEXPORT
97 # else
98 # define SWIGEXPORT __declspec(dllexport)
99 # endif
100 # else
101 # if defined(__GNUC__) && defined(GCC_HASCLASSVISIBILITY)
102 # define SWIGEXPORT __attribute__ ((visibility("default")))
103 # else
104 # define SWIGEXPORT
105 # endif
106 # endif
107 #endif
108
109 /* calling conventions for Windows */
110 #ifndef SWIGSTDCALL
111 # if defined(_WIN32) || defined(__WIN32__) || defined(__CYGWIN__)
112 # define SWIGSTDCALL __stdcall
113 # else
114 # define SWIGSTDCALL
115 # endif
116 #endif
117
118 /* Deal with Microsoft's attempt at deprecating C standard runtime functions */
119 #if !defined(SWIG_NO_CRT_SECURE_NO_DEPRECATE) && defined(_MSC_VER) && !defined(_CRT_SECURE_NO_DEPRECATE)
120 # define _CRT_SECURE_NO_DEPRECATE
121 #endif
122
123 /* Deal with Microsoft's attempt at deprecating methods in the standard C++ library */
124 #if !defined(SWIG_NO_SCL_SECURE_NO_DEPRECATE) && defined(_MSC_VER) && !defined(_SCL_SECURE_NO_DEPRECATE)
125 # define _SCL_SECURE_NO_DEPRECATE
126 #endif
127
128 /* Deal with Apple's deprecated 'AssertMacros.h' from Carbon-framework */
129 #if defined(__APPLE__) && !defined(__ASSERT_MACROS_DEFINE_VERSIONS_WITHOUT_UNDERSCORES)
130 # define __ASSERT_MACROS_DEFINE_VERSIONS_WITHOUT_UNDERSCORES 0
131 #endif
132
133 /* Intel's compiler complains if a variable which was never initialised is
134 * cast to void, which is a common idiom which we use to indicate that we
135 * are aware a variable isn't used. So we just silence that warning.
136 * See: https://github.com/swig/swig/issues/192 for more discussion.
137 */
138 #ifdef __INTEL_COMPILER
139 # pragma warning disable 592
140 #endif
141
142 /* -----------------------------------------------------------------------------
143 * swigrun.swg
144 *
145 * This file contains generic C API SWIG runtime support for pointer
146 * type checking.
147 * ----------------------------------------------------------------------------- */
148
149 /* This should only be incremented when either the layout of swig_type_info changes,
150 or for whatever reason, the runtime changes incompatibly */
151 #define SWIG_RUNTIME_VERSION "4"
152
153 /* define SWIG_TYPE_TABLE_NAME as "SWIG_TYPE_TABLE" */
154 #ifdef SWIG_TYPE_TABLE
155 # define SWIG_QUOTE_STRING(x) #x
156 # define SWIG_EXPAND_AND_QUOTE_STRING(x) SWIG_QUOTE_STRING(x)
157 # define SWIG_TYPE_TABLE_NAME SWIG_EXPAND_AND_QUOTE_STRING(SWIG_TYPE_TABLE)
158 #else
159 # define SWIG_TYPE_TABLE_NAME
160 #endif
161
162 /*
163 You can use the SWIGRUNTIME and SWIGRUNTIMEINLINE macros for
164 creating a static or dynamic library from the SWIG runtime code.
165 In 99.9% of the cases, SWIG just needs to declare them as 'static'.
166
167 But only do this if strictly necessary, ie, if you have problems
168 with your compiler or suchlike.
169 */
170
171 #ifndef SWIGRUNTIME
172 # define SWIGRUNTIME SWIGINTERN
173 #endif
174
175 #ifndef SWIGRUNTIMEINLINE
176 # define SWIGRUNTIMEINLINE SWIGRUNTIME SWIGINLINE
177 #endif
178
179 /* Generic buffer size */
180 #ifndef SWIG_BUFFER_SIZE
181 # define SWIG_BUFFER_SIZE 1024
182 #endif
183
184 /* Flags for pointer conversions */
185 #define SWIG_POINTER_DISOWN 0x1
186 #define SWIG_CAST_NEW_MEMORY 0x2
187 #define SWIG_POINTER_NO_NULL 0x4
188
189 /* Flags for new pointer objects */
190 #define SWIG_POINTER_OWN 0x1
191
192
193 /*
194 Flags/methods for returning states.
195
196 The SWIG conversion methods, as ConvertPtr, return an integer
197 that tells if the conversion was successful or not. And if not,
198 an error code can be returned (see swigerrors.swg for the codes).
199
200 Use the following macros/flags to set or process the returning
201 states.
202
203 In old versions of SWIG, code such as the following was usually written:
204
205 if (SWIG_ConvertPtr(obj,vptr,ty.flags) != -1) {
206 // success code
207 } else {
208 //fail code
209 }
210
211 Now you can be more explicit:
212
213 int res = SWIG_ConvertPtr(obj,vptr,ty.flags);
214 if (SWIG_IsOK(res)) {
215 // success code
216 } else {
217 // fail code
218 }
219
220 which is the same really, but now you can also do
221
222 Type *ptr;
223 int res = SWIG_ConvertPtr(obj,(void **)(&ptr),ty.flags);
224 if (SWIG_IsOK(res)) {
225 // success code
226 if (SWIG_IsNewObj(res) {
227 ...
228 delete *ptr;
229 } else {
230 ...
231 }
232 } else {
233 // fail code
234 }
235
236 I.e., now SWIG_ConvertPtr can return new objects and you can
237 identify the case and take care of the deallocation. Of course that
238 also requires SWIG_ConvertPtr to return new result values, such as
239
240 int SWIG_ConvertPtr(obj, ptr,...) {
241 if (<obj is ok>) {
242 if (<need new object>) {
243 *ptr = <ptr to new allocated object>;
244 return SWIG_NEWOBJ;
245 } else {
246 *ptr = <ptr to old object>;
247 return SWIG_OLDOBJ;
248 }
249 } else {
250 return SWIG_BADOBJ;
251 }
252 }
253
254 Of course, returning the plain '0(success)/-1(fail)' still works, but you can be
255 more explicit by returning SWIG_BADOBJ, SWIG_ERROR or any of the
256 SWIG errors code.
257
258 Finally, if the SWIG_CASTRANK_MODE is enabled, the result code
259 allows to return the 'cast rank', for example, if you have this
260
261 int food(double)
262 int fooi(int);
263
264 and you call
265
266 food(1) // cast rank '1' (1 -> 1.0)
267 fooi(1) // cast rank '0'
268
269 just use the SWIG_AddCast()/SWIG_CheckState()
270 */
271
272 #define SWIG_OK (0)
273 #define SWIG_ERROR (-1)
274 #define SWIG_IsOK(r) (r >= 0)
275 #define SWIG_ArgError(r) ((r != SWIG_ERROR) ? r : SWIG_TypeError)
276
277 /* The CastRankLimit says how many bits are used for the cast rank */
278 #define SWIG_CASTRANKLIMIT (1 << 8)
279 /* The NewMask denotes the object was created (using new/malloc) */
280 #define SWIG_NEWOBJMASK (SWIG_CASTRANKLIMIT << 1)
281 /* The TmpMask is for in/out typemaps that use temporal objects */
282 #define SWIG_TMPOBJMASK (SWIG_NEWOBJMASK << 1)
283 /* Simple returning values */
284 #define SWIG_BADOBJ (SWIG_ERROR)
285 #define SWIG_OLDOBJ (SWIG_OK)
286 #define SWIG_NEWOBJ (SWIG_OK | SWIG_NEWOBJMASK)
287 #define SWIG_TMPOBJ (SWIG_OK | SWIG_TMPOBJMASK)
288 /* Check, add and del mask methods */
289 #define SWIG_AddNewMask(r) (SWIG_IsOK(r) ? (r | SWIG_NEWOBJMASK) : r)
290 #define SWIG_DelNewMask(r) (SWIG_IsOK(r) ? (r & ~SWIG_NEWOBJMASK) : r)
291 #define SWIG_IsNewObj(r) (SWIG_IsOK(r) && (r & SWIG_NEWOBJMASK))
292 #define SWIG_AddTmpMask(r) (SWIG_IsOK(r) ? (r | SWIG_TMPOBJMASK) : r)
293 #define SWIG_DelTmpMask(r) (SWIG_IsOK(r) ? (r & ~SWIG_TMPOBJMASK) : r)
294 #define SWIG_IsTmpObj(r) (SWIG_IsOK(r) && (r & SWIG_TMPOBJMASK))
295
296 /* Cast-Rank Mode */
297 #if defined(SWIG_CASTRANK_MODE)
298 # ifndef SWIG_TypeRank
299 # define SWIG_TypeRank unsigned long
300 # endif
301 # ifndef SWIG_MAXCASTRANK /* Default cast allowed */
302 # define SWIG_MAXCASTRANK (2)
303 # endif
304 # define SWIG_CASTRANKMASK ((SWIG_CASTRANKLIMIT) -1)
305 # define SWIG_CastRank(r) (r & SWIG_CASTRANKMASK)
SWIG_AddCast(int r)306 SWIGINTERNINLINE int SWIG_AddCast(int r) {
307 return SWIG_IsOK(r) ? ((SWIG_CastRank(r) < SWIG_MAXCASTRANK) ? (r + 1) : SWIG_ERROR) : r;
308 }
SWIG_CheckState(int r)309 SWIGINTERNINLINE int SWIG_CheckState(int r) {
310 return SWIG_IsOK(r) ? SWIG_CastRank(r) + 1 : 0;
311 }
312 #else /* no cast-rank mode */
313 # define SWIG_AddCast(r) (r)
314 # define SWIG_CheckState(r) (SWIG_IsOK(r) ? 1 : 0)
315 #endif
316
317
318 #include <string.h>
319
320 #ifdef __cplusplus
321 extern "C" {
322 #endif
323
324 typedef void *(*swig_converter_func)(void *, int *);
325 typedef struct swig_type_info *(*swig_dycast_func)(void **);
326
327 /* Structure to store information on one type */
328 typedef struct swig_type_info {
329 const char *name; /* mangled name of this type */
330 const char *str; /* human readable name of this type */
331 swig_dycast_func dcast; /* dynamic cast function down a hierarchy */
332 struct swig_cast_info *cast; /* linked list of types that can cast into this type */
333 void *clientdata; /* language specific type data */
334 int owndata; /* flag if the structure owns the clientdata */
335 } swig_type_info;
336
337 /* Structure to store a type and conversion function used for casting */
338 typedef struct swig_cast_info {
339 swig_type_info *type; /* pointer to type that is equivalent to this type */
340 swig_converter_func converter; /* function to cast the void pointers */
341 struct swig_cast_info *next; /* pointer to next cast in linked list */
342 struct swig_cast_info *prev; /* pointer to the previous cast */
343 } swig_cast_info;
344
345 /* Structure used to store module information
346 * Each module generates one structure like this, and the runtime collects
347 * all of these structures and stores them in a circularly linked list.*/
348 typedef struct swig_module_info {
349 swig_type_info **types; /* Array of pointers to swig_type_info structures that are in this module */
350 size_t size; /* Number of types in this module */
351 struct swig_module_info *next; /* Pointer to next element in circularly linked list */
352 swig_type_info **type_initial; /* Array of initially generated type structures */
353 swig_cast_info **cast_initial; /* Array of initially generated casting structures */
354 void *clientdata; /* Language specific module data */
355 } swig_module_info;
356
357 /*
358 Compare two type names skipping the space characters, therefore
359 "char*" == "char *" and "Class<int>" == "Class<int >", etc.
360
361 Return 0 when the two name types are equivalent, as in
362 strncmp, but skipping ' '.
363 */
364 SWIGRUNTIME int
SWIG_TypeNameComp(const char * f1,const char * l1,const char * f2,const char * l2)365 SWIG_TypeNameComp(const char *f1, const char *l1,
366 const char *f2, const char *l2) {
367 for (;(f1 != l1) && (f2 != l2); ++f1, ++f2) {
368 while ((*f1 == ' ') && (f1 != l1)) ++f1;
369 while ((*f2 == ' ') && (f2 != l2)) ++f2;
370 if (*f1 != *f2) return (*f1 > *f2) ? 1 : -1;
371 }
372 return (int)((l1 - f1) - (l2 - f2));
373 }
374
375 /*
376 Check type equivalence in a name list like <name1>|<name2>|...
377 Return 0 if equal, -1 if nb < tb, 1 if nb > tb
378 */
379 SWIGRUNTIME int
SWIG_TypeCmp(const char * nb,const char * tb)380 SWIG_TypeCmp(const char *nb, const char *tb) {
381 int equiv = 1;
382 const char* te = tb + strlen(tb);
383 const char* ne = nb;
384 while (equiv != 0 && *ne) {
385 for (nb = ne; *ne; ++ne) {
386 if (*ne == '|') break;
387 }
388 equiv = SWIG_TypeNameComp(nb, ne, tb, te);
389 if (*ne) ++ne;
390 }
391 return equiv;
392 }
393
394 /*
395 Check type equivalence in a name list like <name1>|<name2>|...
396 Return 0 if not equal, 1 if equal
397 */
398 SWIGRUNTIME int
SWIG_TypeEquiv(const char * nb,const char * tb)399 SWIG_TypeEquiv(const char *nb, const char *tb) {
400 return SWIG_TypeCmp(nb, tb) == 0 ? 1 : 0;
401 }
402
403 /*
404 Check the typename
405 */
406 SWIGRUNTIME swig_cast_info *
SWIG_TypeCheck(const char * c,swig_type_info * ty)407 SWIG_TypeCheck(const char *c, swig_type_info *ty) {
408 if (ty) {
409 swig_cast_info *iter = ty->cast;
410 while (iter) {
411 if (strcmp(iter->type->name, c) == 0) {
412 if (iter == ty->cast)
413 return iter;
414 /* Move iter to the top of the linked list */
415 iter->prev->next = iter->next;
416 if (iter->next)
417 iter->next->prev = iter->prev;
418 iter->next = ty->cast;
419 iter->prev = 0;
420 if (ty->cast) ty->cast->prev = iter;
421 ty->cast = iter;
422 return iter;
423 }
424 iter = iter->next;
425 }
426 }
427 return 0;
428 }
429
430 /*
431 Identical to SWIG_TypeCheck, except strcmp is replaced with a pointer comparison
432 */
433 SWIGRUNTIME swig_cast_info *
SWIG_TypeCheckStruct(swig_type_info * from,swig_type_info * ty)434 SWIG_TypeCheckStruct(swig_type_info *from, swig_type_info *ty) {
435 if (ty) {
436 swig_cast_info *iter = ty->cast;
437 while (iter) {
438 if (iter->type == from) {
439 if (iter == ty->cast)
440 return iter;
441 /* Move iter to the top of the linked list */
442 iter->prev->next = iter->next;
443 if (iter->next)
444 iter->next->prev = iter->prev;
445 iter->next = ty->cast;
446 iter->prev = 0;
447 if (ty->cast) ty->cast->prev = iter;
448 ty->cast = iter;
449 return iter;
450 }
451 iter = iter->next;
452 }
453 }
454 return 0;
455 }
456
457 /*
458 Cast a pointer up an inheritance hierarchy
459 */
460 SWIGRUNTIMEINLINE void *
SWIG_TypeCast(swig_cast_info * ty,void * ptr,int * newmemory)461 SWIG_TypeCast(swig_cast_info *ty, void *ptr, int *newmemory) {
462 return ((!ty) || (!ty->converter)) ? ptr : (*ty->converter)(ptr, newmemory);
463 }
464
465 /*
466 Dynamic pointer casting. Down an inheritance hierarchy
467 */
468 SWIGRUNTIME swig_type_info *
SWIG_TypeDynamicCast(swig_type_info * ty,void ** ptr)469 SWIG_TypeDynamicCast(swig_type_info *ty, void **ptr) {
470 swig_type_info *lastty = ty;
471 if (!ty || !ty->dcast) return ty;
472 while (ty && (ty->dcast)) {
473 ty = (*ty->dcast)(ptr);
474 if (ty) lastty = ty;
475 }
476 return lastty;
477 }
478
479 /*
480 Return the name associated with this type
481 */
482 SWIGRUNTIMEINLINE const char *
SWIG_TypeName(const swig_type_info * ty)483 SWIG_TypeName(const swig_type_info *ty) {
484 return ty->name;
485 }
486
487 /*
488 Return the pretty name associated with this type,
489 that is an unmangled type name in a form presentable to the user.
490 */
491 SWIGRUNTIME const char *
SWIG_TypePrettyName(const swig_type_info * type)492 SWIG_TypePrettyName(const swig_type_info *type) {
493 /* The "str" field contains the equivalent pretty names of the
494 type, separated by vertical-bar characters. We choose
495 to print the last name, as it is often (?) the most
496 specific. */
497 if (!type) return NULL;
498 if (type->str != NULL) {
499 const char *last_name = type->str;
500 const char *s;
501 for (s = type->str; *s; s++)
502 if (*s == '|') last_name = s+1;
503 return last_name;
504 }
505 else
506 return type->name;
507 }
508
509 /*
510 Set the clientdata field for a type
511 */
512 SWIGRUNTIME void
SWIG_TypeClientData(swig_type_info * ti,void * clientdata)513 SWIG_TypeClientData(swig_type_info *ti, void *clientdata) {
514 swig_cast_info *cast = ti->cast;
515 /* if (ti->clientdata == clientdata) return; */
516 ti->clientdata = clientdata;
517
518 while (cast) {
519 if (!cast->converter) {
520 swig_type_info *tc = cast->type;
521 if (!tc->clientdata) {
522 SWIG_TypeClientData(tc, clientdata);
523 }
524 }
525 cast = cast->next;
526 }
527 }
528 SWIGRUNTIME void
SWIG_TypeNewClientData(swig_type_info * ti,void * clientdata)529 SWIG_TypeNewClientData(swig_type_info *ti, void *clientdata) {
530 SWIG_TypeClientData(ti, clientdata);
531 ti->owndata = 1;
532 }
533
534 /*
535 Search for a swig_type_info structure only by mangled name
536 Search is a O(log #types)
537
538 We start searching at module start, and finish searching when start == end.
539 Note: if start == end at the beginning of the function, we go all the way around
540 the circular list.
541 */
542 SWIGRUNTIME swig_type_info *
SWIG_MangledTypeQueryModule(swig_module_info * start,swig_module_info * end,const char * name)543 SWIG_MangledTypeQueryModule(swig_module_info *start,
544 swig_module_info *end,
545 const char *name) {
546 swig_module_info *iter = start;
547 do {
548 if (iter->size) {
549 size_t l = 0;
550 size_t r = iter->size - 1;
551 do {
552 /* since l+r >= 0, we can (>> 1) instead (/ 2) */
553 size_t i = (l + r) >> 1;
554 const char *iname = iter->types[i]->name;
555 if (iname) {
556 int compare = strcmp(name, iname);
557 if (compare == 0) {
558 return iter->types[i];
559 } else if (compare < 0) {
560 if (i) {
561 r = i - 1;
562 } else {
563 break;
564 }
565 } else if (compare > 0) {
566 l = i + 1;
567 }
568 } else {
569 break; /* should never happen */
570 }
571 } while (l <= r);
572 }
573 iter = iter->next;
574 } while (iter != end);
575 return 0;
576 }
577
578 /*
579 Search for a swig_type_info structure for either a mangled name or a human readable name.
580 It first searches the mangled names of the types, which is a O(log #types)
581 If a type is not found it then searches the human readable names, which is O(#types).
582
583 We start searching at module start, and finish searching when start == end.
584 Note: if start == end at the beginning of the function, we go all the way around
585 the circular list.
586 */
587 SWIGRUNTIME swig_type_info *
SWIG_TypeQueryModule(swig_module_info * start,swig_module_info * end,const char * name)588 SWIG_TypeQueryModule(swig_module_info *start,
589 swig_module_info *end,
590 const char *name) {
591 /* STEP 1: Search the name field using binary search */
592 swig_type_info *ret = SWIG_MangledTypeQueryModule(start, end, name);
593 if (ret) {
594 return ret;
595 } else {
596 /* STEP 2: If the type hasn't been found, do a complete search
597 of the str field (the human readable name) */
598 swig_module_info *iter = start;
599 do {
600 size_t i = 0;
601 for (; i < iter->size; ++i) {
602 if (iter->types[i]->str && (SWIG_TypeEquiv(iter->types[i]->str, name)))
603 return iter->types[i];
604 }
605 iter = iter->next;
606 } while (iter != end);
607 }
608
609 /* neither found a match */
610 return 0;
611 }
612
613 /*
614 Pack binary data into a string
615 */
616 SWIGRUNTIME char *
SWIG_PackData(char * c,void * ptr,size_t sz)617 SWIG_PackData(char *c, void *ptr, size_t sz) {
618 static const char hex[17] = "0123456789abcdef";
619 const unsigned char *u = (unsigned char *) ptr;
620 const unsigned char *eu = u + sz;
621 for (; u != eu; ++u) {
622 unsigned char uu = *u;
623 *(c++) = hex[(uu & 0xf0) >> 4];
624 *(c++) = hex[uu & 0xf];
625 }
626 return c;
627 }
628
629 /*
630 Unpack binary data from a string
631 */
632 SWIGRUNTIME const char *
SWIG_UnpackData(const char * c,void * ptr,size_t sz)633 SWIG_UnpackData(const char *c, void *ptr, size_t sz) {
634 unsigned char *u = (unsigned char *) ptr;
635 const unsigned char *eu = u + sz;
636 for (; u != eu; ++u) {
637 char d = *(c++);
638 unsigned char uu;
639 if ((d >= '0') && (d <= '9'))
640 uu = (unsigned char)((d - '0') << 4);
641 else if ((d >= 'a') && (d <= 'f'))
642 uu = (unsigned char)((d - ('a'-10)) << 4);
643 else
644 return (char *) 0;
645 d = *(c++);
646 if ((d >= '0') && (d <= '9'))
647 uu |= (unsigned char)(d - '0');
648 else if ((d >= 'a') && (d <= 'f'))
649 uu |= (unsigned char)(d - ('a'-10));
650 else
651 return (char *) 0;
652 *u = uu;
653 }
654 return c;
655 }
656
657 /*
658 Pack 'void *' into a string buffer.
659 */
660 SWIGRUNTIME char *
SWIG_PackVoidPtr(char * buff,void * ptr,const char * name,size_t bsz)661 SWIG_PackVoidPtr(char *buff, void *ptr, const char *name, size_t bsz) {
662 char *r = buff;
663 if ((2*sizeof(void *) + 2) > bsz) return 0;
664 *(r++) = '_';
665 r = SWIG_PackData(r,&ptr,sizeof(void *));
666 if (strlen(name) + 1 > (bsz - (r - buff))) return 0;
667 strcpy(r,name);
668 return buff;
669 }
670
671 SWIGRUNTIME const char *
SWIG_UnpackVoidPtr(const char * c,void ** ptr,const char * name)672 SWIG_UnpackVoidPtr(const char *c, void **ptr, const char *name) {
673 if (*c != '_') {
674 if (strcmp(c,"NULL") == 0) {
675 *ptr = (void *) 0;
676 return name;
677 } else {
678 return 0;
679 }
680 }
681 return SWIG_UnpackData(++c,ptr,sizeof(void *));
682 }
683
684 SWIGRUNTIME char *
SWIG_PackDataName(char * buff,void * ptr,size_t sz,const char * name,size_t bsz)685 SWIG_PackDataName(char *buff, void *ptr, size_t sz, const char *name, size_t bsz) {
686 char *r = buff;
687 size_t lname = (name ? strlen(name) : 0);
688 if ((2*sz + 2 + lname) > bsz) return 0;
689 *(r++) = '_';
690 r = SWIG_PackData(r,ptr,sz);
691 if (lname) {
692 strncpy(r,name,lname+1);
693 } else {
694 *r = 0;
695 }
696 return buff;
697 }
698
699 SWIGRUNTIME const char *
SWIG_UnpackDataName(const char * c,void * ptr,size_t sz,const char * name)700 SWIG_UnpackDataName(const char *c, void *ptr, size_t sz, const char *name) {
701 if (*c != '_') {
702 if (strcmp(c,"NULL") == 0) {
703 memset(ptr,0,sz);
704 return name;
705 } else {
706 return 0;
707 }
708 }
709 return SWIG_UnpackData(++c,ptr,sz);
710 }
711
712 #ifdef __cplusplus
713 }
714 #endif
715
716 /* Errors in SWIG */
717 #define SWIG_UnknownError -1
718 #define SWIG_IOError -2
719 #define SWIG_RuntimeError -3
720 #define SWIG_IndexError -4
721 #define SWIG_TypeError -5
722 #define SWIG_DivisionByZero -6
723 #define SWIG_OverflowError -7
724 #define SWIG_SyntaxError -8
725 #define SWIG_ValueError -9
726 #define SWIG_SystemError -10
727 #define SWIG_AttributeError -11
728 #define SWIG_MemoryError -12
729 #define SWIG_NullReferenceError -13
730
731
732
733 #ifdef __cplusplus
734 /* Needed on some windows machines---since MS plays funny games with the header files under C++ */
735 #include <math.h>
736 #include <stdlib.h>
737 extern "C" {
738 #endif
739 #include "EXTERN.h"
740 #include "perl.h"
741 #include "XSUB.h"
742
743 /* Add in functionality missing in older versions of Perl. Much of this is based on Devel-PPPort on cpan. */
744
745 /* Add PERL_REVISION, PERL_VERSION, PERL_SUBVERSION if missing */
746 #ifndef PERL_REVISION
747 # if !defined(__PATCHLEVEL_H_INCLUDED__) && !(defined(PATCHLEVEL) && defined(SUBVERSION))
748 # define PERL_PATCHLEVEL_H_IMPLICIT
749 # include <patchlevel.h>
750 # endif
751 # if !(defined(PERL_VERSION) || (defined(SUBVERSION) && defined(PATCHLEVEL)))
752 # include <could_not_find_Perl_patchlevel.h>
753 # endif
754 # ifndef PERL_REVISION
755 # define PERL_REVISION (5)
756 # define PERL_VERSION PATCHLEVEL
757 # define PERL_SUBVERSION SUBVERSION
758 # endif
759 #endif
760
761 #if defined(WIN32) && defined(PERL_OBJECT) && !defined(PerlIO_exportFILE)
762 #define PerlIO_exportFILE(fh,fl) (FILE*)(fh)
763 #endif
764
765 #ifndef SvIOK_UV
766 # define SvIOK_UV(sv) (SvIOK(sv) && (SvUVX(sv) == SvIVX(sv)))
767 #endif
768
769 #ifndef SvUOK
770 # define SvUOK(sv) SvIOK_UV(sv)
771 #endif
772
773 #if ((PERL_VERSION < 4) || ((PERL_VERSION == 4) && (PERL_SUBVERSION <= 5)))
774 # define PL_sv_undef sv_undef
775 # define PL_na na
776 # define PL_errgv errgv
777 # define PL_sv_no sv_no
778 # define PL_sv_yes sv_yes
779 # define PL_markstack_ptr markstack_ptr
780 #endif
781
782 #ifndef IVSIZE
783 # ifdef LONGSIZE
784 # define IVSIZE LONGSIZE
785 # else
786 # define IVSIZE 4 /* A bold guess, but the best we can make. */
787 # endif
788 #endif
789
790 #ifndef INT2PTR
791 # if (IVSIZE == PTRSIZE) && (UVSIZE == PTRSIZE)
792 # define PTRV UV
793 # define INT2PTR(any,d) (any)(d)
794 # else
795 # if PTRSIZE == LONGSIZE
796 # define PTRV unsigned long
797 # else
798 # define PTRV unsigned
799 # endif
800 # define INT2PTR(any,d) (any)(PTRV)(d)
801 # endif
802
803 # define NUM2PTR(any,d) (any)(PTRV)(d)
804 # define PTR2IV(p) INT2PTR(IV,p)
805 # define PTR2UV(p) INT2PTR(UV,p)
806 # define PTR2NV(p) NUM2PTR(NV,p)
807
808 # if PTRSIZE == LONGSIZE
809 # define PTR2ul(p) (unsigned long)(p)
810 # else
811 # define PTR2ul(p) INT2PTR(unsigned long,p)
812 # endif
813 #endif /* !INT2PTR */
814
815 #ifndef SvPV_nolen
816 # define SvPV_nolen(x) SvPV(x,PL_na)
817 #endif
818
819 #ifndef get_sv
820 # define get_sv perl_get_sv
821 #endif
822
823 #ifndef ERRSV
824 # define ERRSV get_sv("@",FALSE)
825 #endif
826
827 #ifndef pTHX_
828 #define pTHX_
829 #endif
830
831 #include <string.h>
832 #ifdef __cplusplus
833 }
834 #endif
835
836 /* -----------------------------------------------------------------------------
837 * error manipulation
838 * ----------------------------------------------------------------------------- */
839
840 SWIGINTERN const char*
SWIG_Perl_ErrorType(int code)841 SWIG_Perl_ErrorType(int code) {
842 switch(code) {
843 case SWIG_MemoryError:
844 return "MemoryError";
845 case SWIG_IOError:
846 return "IOError";
847 case SWIG_RuntimeError:
848 return "RuntimeError";
849 case SWIG_IndexError:
850 return "IndexError";
851 case SWIG_TypeError:
852 return "TypeError";
853 case SWIG_DivisionByZero:
854 return "ZeroDivisionError";
855 case SWIG_OverflowError:
856 return "OverflowError";
857 case SWIG_SyntaxError:
858 return "SyntaxError";
859 case SWIG_ValueError:
860 return "ValueError";
861 case SWIG_SystemError:
862 return "SystemError";
863 case SWIG_AttributeError:
864 return "AttributeError";
865 default:
866 return "RuntimeError";
867 }
868 }
869
870
871 /* -----------------------------------------------------------------------------
872 * perlrun.swg
873 *
874 * This file contains the runtime support for Perl modules
875 * and includes code for managing global variables and pointer
876 * type checking.
877 * ----------------------------------------------------------------------------- */
878
879 #ifdef PERL_OBJECT
880 #define SWIG_PERL_OBJECT_DECL CPerlObj *SWIGUNUSEDPARM(pPerl),
881 #define SWIG_PERL_OBJECT_CALL pPerl,
882 #else
883 #define SWIG_PERL_OBJECT_DECL
884 #define SWIG_PERL_OBJECT_CALL
885 #endif
886
887 /* Common SWIG API */
888
889 /* for raw pointers */
890 #define SWIG_ConvertPtr(obj, pp, type, flags) SWIG_Perl_ConvertPtr(SWIG_PERL_OBJECT_CALL obj, pp, type, flags)
891 #define SWIG_ConvertPtrAndOwn(obj, pp, type, flags,own) SWIG_Perl_ConvertPtrAndOwn(SWIG_PERL_OBJECT_CALL obj, pp, type, flags, own)
892 #define SWIG_NewPointerObj(p, type, flags) SWIG_Perl_NewPointerObj(SWIG_PERL_OBJECT_CALL p, type, flags)
893 #define SWIG_AcquirePtr(ptr, src) SWIG_Perl_AcquirePtr(ptr, src)
894 #define swig_owntype int
895
896 /* for raw packed data */
897 #define SWIG_ConvertPacked(obj, p, s, type) SWIG_Perl_ConvertPacked(SWIG_PERL_OBJECT_CALL obj, p, s, type)
898 #define SWIG_NewPackedObj(p, s, type) SWIG_Perl_NewPackedObj(SWIG_PERL_OBJECT_CALL p, s, type)
899
900 /* for class or struct pointers */
901 #define SWIG_ConvertInstance(obj, pptr, type, flags) SWIG_ConvertPtr(obj, pptr, type, flags)
902 #define SWIG_NewInstanceObj(ptr, type, flags) SWIG_NewPointerObj(ptr, type, flags)
903
904 /* for C or C++ function pointers */
905 #define SWIG_ConvertFunctionPtr(obj, pptr, type) SWIG_ConvertPtr(obj, pptr, type, 0)
906 #define SWIG_NewFunctionPtrObj(ptr, type) SWIG_NewPointerObj(ptr, type, 0)
907
908 /* for C++ member pointers, ie, member methods */
909 #define SWIG_ConvertMember(obj, ptr, sz, ty) SWIG_ConvertPacked(obj, ptr, sz, ty)
910 #define SWIG_NewMemberObj(ptr, sz, type) SWIG_NewPackedObj(ptr, sz, type)
911
912
913 /* Runtime API */
914
915 #define SWIG_GetModule(clientdata) SWIG_Perl_GetModule(clientdata)
916 #define SWIG_SetModule(clientdata, pointer) SWIG_Perl_SetModule(pointer)
917
918
919 /* Error manipulation */
920
921 #define SWIG_ErrorType(code) SWIG_Perl_ErrorType(code)
922 #define SWIG_Error(code, msg) sv_setpvf(get_sv("@", GV_ADD), "%s %s", SWIG_ErrorType(code), msg)
923 #define SWIG_fail goto fail
924
925 /* Perl-specific SWIG API */
926
927 #define SWIG_MakePtr(sv, ptr, type, flags) SWIG_Perl_MakePtr(SWIG_PERL_OBJECT_CALL sv, ptr, type, flags)
928 #define SWIG_MakePackedObj(sv, p, s, type) SWIG_Perl_MakePackedObj(SWIG_PERL_OBJECT_CALL sv, p, s, type)
929 #define SWIG_SetError(str) SWIG_Error(SWIG_RuntimeError, str)
930
931
932 #define SWIG_PERL_DECL_ARGS_1(arg1) (SWIG_PERL_OBJECT_DECL arg1)
933 #define SWIG_PERL_CALL_ARGS_1(arg1) (SWIG_PERL_OBJECT_CALL arg1)
934 #define SWIG_PERL_DECL_ARGS_2(arg1, arg2) (SWIG_PERL_OBJECT_DECL arg1, arg2)
935 #define SWIG_PERL_CALL_ARGS_2(arg1, arg2) (SWIG_PERL_OBJECT_CALL arg1, arg2)
936
937 /* -----------------------------------------------------------------------------
938 * pointers/data manipulation
939 * ----------------------------------------------------------------------------- */
940
941 /* For backward compatibility only */
942 #define SWIG_POINTER_EXCEPTION 0
943
944 #ifdef __cplusplus
945 extern "C" {
946 #endif
947
948 #define SWIG_OWNER SWIG_POINTER_OWN
949 #define SWIG_SHADOW SWIG_OWNER << 1
950
951 #define SWIG_MAYBE_PERL_OBJECT SWIG_PERL_OBJECT_DECL
952
953 /* SWIG Perl macros */
954
955 /* Macro to declare an XS function */
956 #ifndef XSPROTO
957 # define XSPROTO(name) void name(pTHX_ CV* cv)
958 #endif
959
960 /* Macro to call an XS function */
961 #ifdef PERL_OBJECT
962 # define SWIG_CALLXS(_name) _name(cv,pPerl)
963 #else
964 # ifndef MULTIPLICITY
965 # define SWIG_CALLXS(_name) _name(cv)
966 # else
967 # define SWIG_CALLXS(_name) _name(PERL_GET_THX, cv)
968 # endif
969 #endif
970
971 #ifdef PERL_OBJECT
972 #define MAGIC_PPERL CPerlObj *pPerl = (CPerlObj *) this;
973
974 #ifdef __cplusplus
975 extern "C" {
976 #endif
977 typedef int (CPerlObj::*SwigMagicFunc)(SV *, MAGIC *);
978 #ifdef __cplusplus
979 }
980 #endif
981
982 #define SWIG_MAGIC(a,b) (SV *a, MAGIC *b)
983 #define SWIGCLASS_STATIC
984
985 #else /* PERL_OBJECT */
986
987 #define MAGIC_PPERL
988 #define SWIGCLASS_STATIC static SWIGUNUSED
989
990 #ifndef MULTIPLICITY
991 #define SWIG_MAGIC(a,b) (SV *a, MAGIC *b)
992
993 #ifdef __cplusplus
994 extern "C" {
995 #endif
996 typedef int (*SwigMagicFunc)(SV *, MAGIC *);
997 #ifdef __cplusplus
998 }
999 #endif
1000
1001 #else /* MULTIPLICITY */
1002
1003 #define SWIG_MAGIC(a,b) (struct interpreter *interp, SV *a, MAGIC *b)
1004
1005 #ifdef __cplusplus
1006 extern "C" {
1007 #endif
1008 typedef int (*SwigMagicFunc)(struct interpreter *, SV *, MAGIC *);
1009 #ifdef __cplusplus
1010 }
1011 #endif
1012
1013 #endif /* MULTIPLICITY */
1014 #endif /* PERL_OBJECT */
1015
1016 # ifdef PERL_OBJECT
1017 # define SWIG_croak_null() SWIG_Perl_croak_null(pPerl)
SWIG_Perl_croak_null(CPerlObj * pPerl)1018 static void SWIGUNUSED SWIG_Perl_croak_null(CPerlObj *pPerl)
1019 # else
1020 static void SWIGUNUSED SWIG_croak_null()
1021 # endif
1022 {
1023 SV *err = get_sv("@", GV_ADD);
1024 # if (PERL_VERSION < 6)
1025 croak("%_", err);
1026 # else
1027 if (sv_isobject(err))
1028 croak(0);
1029 else
1030 croak("%s", SvPV_nolen(err));
1031 # endif
1032 }
1033
1034
1035 /*
1036 Define how strict is the cast between strings and integers/doubles
1037 when overloading between these types occurs.
1038
1039 The default is making it as strict as possible by using SWIG_AddCast
1040 when needed.
1041
1042 You can use -DSWIG_PERL_NO_STRICT_STR2NUM at compilation time to
1043 disable the SWIG_AddCast, making the casting between string and
1044 numbers less strict.
1045
1046 In the end, we try to solve the overloading between strings and
1047 numerical types in the more natural way, but if you can avoid it,
1048 well, avoid it using %rename, for example.
1049 */
1050 #ifndef SWIG_PERL_NO_STRICT_STR2NUM
1051 # ifndef SWIG_PERL_STRICT_STR2NUM
1052 # define SWIG_PERL_STRICT_STR2NUM
1053 # endif
1054 #endif
1055 #ifdef SWIG_PERL_STRICT_STR2NUM
1056 /* string takes precedence */
1057 #define SWIG_Str2NumCast(x) SWIG_AddCast(x)
1058 #else
1059 /* number takes precedence */
1060 #define SWIG_Str2NumCast(x) x
1061 #endif
1062
1063
1064
1065 #include <stdlib.h>
1066
1067 SWIGRUNTIME const char *
SWIG_Perl_TypeProxyName(const swig_type_info * type)1068 SWIG_Perl_TypeProxyName(const swig_type_info *type) {
1069 if (!type) return NULL;
1070 if (type->clientdata != NULL) {
1071 return (const char*) type->clientdata;
1072 }
1073 else {
1074 return type->name;
1075 }
1076 }
1077
1078 /* Identical to SWIG_TypeCheck, except for strcmp comparison */
1079 SWIGRUNTIME swig_cast_info *
SWIG_TypeProxyCheck(const char * c,swig_type_info * ty)1080 SWIG_TypeProxyCheck(const char *c, swig_type_info *ty) {
1081 if (ty) {
1082 swig_cast_info *iter = ty->cast;
1083 while (iter) {
1084 if (strcmp(SWIG_Perl_TypeProxyName(iter->type), c) == 0) {
1085 if (iter == ty->cast)
1086 return iter;
1087 /* Move iter to the top of the linked list */
1088 iter->prev->next = iter->next;
1089 if (iter->next)
1090 iter->next->prev = iter->prev;
1091 iter->next = ty->cast;
1092 iter->prev = 0;
1093 if (ty->cast) ty->cast->prev = iter;
1094 ty->cast = iter;
1095 return iter;
1096 }
1097 iter = iter->next;
1098 }
1099 }
1100 return 0;
1101 }
1102
1103 /* Acquire a pointer value */
1104
1105 SWIGRUNTIME int
SWIG_Perl_AcquirePtr(SWIG_MAYBE_PERL_OBJECT SV * sv,int own)1106 SWIG_Perl_AcquirePtr(SWIG_MAYBE_PERL_OBJECT SV *sv, int own) {
1107 /* TODO */
1108 return 0;
1109 }
1110
1111 /* Function for getting a pointer value */
1112
1113 SWIGRUNTIME int
SWIG_Perl_ConvertPtrAndOwn(SWIG_MAYBE_PERL_OBJECT SV * sv,void ** ptr,swig_type_info * _t,int flags,int * own)1114 SWIG_Perl_ConvertPtrAndOwn(SWIG_MAYBE_PERL_OBJECT SV *sv, void **ptr, swig_type_info *_t, int flags, int *own) {
1115 swig_cast_info *tc;
1116 void *voidptr = (void *)0;
1117 SV *tsv = 0;
1118
1119 if (own)
1120 *own = 0;
1121
1122 /* If magical, apply more magic */
1123 if (SvGMAGICAL(sv))
1124 mg_get(sv);
1125
1126 /* Check to see if this is an object */
1127 if (sv_isobject(sv)) {
1128 IV tmp = 0;
1129 tsv = (SV*) SvRV(sv);
1130 if ((SvTYPE(tsv) == SVt_PVHV)) {
1131 MAGIC *mg;
1132 if (SvMAGICAL(tsv)) {
1133 mg = mg_find(tsv,'P');
1134 if (mg) {
1135 sv = mg->mg_obj;
1136 if (sv_isobject(sv)) {
1137 tsv = (SV*)SvRV(sv);
1138 tmp = SvIV(tsv);
1139 }
1140 }
1141 } else {
1142 return SWIG_ERROR;
1143 }
1144 } else {
1145 tmp = SvIV(tsv);
1146 }
1147 voidptr = INT2PTR(void *,tmp);
1148 } else if (! SvOK(sv)) { /* Check for undef */
1149 *(ptr) = (void *) 0;
1150 return (flags & SWIG_POINTER_NO_NULL) ? SWIG_NullReferenceError : SWIG_OK;
1151 } else if (SvTYPE(sv) == SVt_RV) { /* Check for NULL pointer */
1152 if (!SvROK(sv)) {
1153 /* In Perl 5.12 and later, SVt_RV == SVt_IV, so sv could be a valid integer value. */
1154 if (SvIOK(sv)) {
1155 return SWIG_ERROR;
1156 } else {
1157 /* NULL pointer (reference to undef). */
1158 *(ptr) = (void *) 0;
1159 return SWIG_OK;
1160 }
1161 } else {
1162 return SWIG_ERROR;
1163 }
1164 } else { /* Don't know what it is */
1165 return SWIG_ERROR;
1166 }
1167 if (_t) {
1168 /* Now see if the types match */
1169 char *_c = HvNAME(SvSTASH(SvRV(sv)));
1170 tc = SWIG_TypeProxyCheck(_c,_t);
1171 #ifdef SWIG_DIRECTORS
1172 if (!tc && !sv_derived_from(sv,SWIG_Perl_TypeProxyName(_t))) {
1173 #else
1174 if (!tc) {
1175 #endif
1176 return SWIG_ERROR;
1177 }
1178 {
1179 int newmemory = 0;
1180 *ptr = SWIG_TypeCast(tc,voidptr,&newmemory);
1181 if (newmemory == SWIG_CAST_NEW_MEMORY) {
1182 assert(own); /* badly formed typemap which will lead to a memory leak - it must set and use own to delete *ptr */
1183 if (own)
1184 *own = *own | SWIG_CAST_NEW_MEMORY;
1185 }
1186 }
1187 } else {
1188 *ptr = voidptr;
1189 }
1190
1191 /*
1192 * DISOWN implementation: we need a perl guru to check this one.
1193 */
1194 if (tsv && (flags & SWIG_POINTER_DISOWN)) {
1195 /*
1196 * almost copy paste code from below SWIG_POINTER_OWN setting
1197 */
1198 SV *obj = sv;
1199 HV *stash = SvSTASH(SvRV(obj));
1200 GV *gv = *(GV**)hv_fetch(stash, "OWNER", 5, TRUE);
1201 if (isGV(gv)) {
1202 HV *hv = GvHVn(gv);
1203 /*
1204 * To set ownership (see below), a newSViv(1) entry is added.
1205 * Hence, to remove ownership, we delete the entry.
1206 */
1207 if (hv_exists_ent(hv, obj, 0)) {
1208 hv_delete_ent(hv, obj, 0, 0);
1209 }
1210 }
1211 }
1212 return SWIG_OK;
1213 }
1214
1215 SWIGRUNTIME int
1216 SWIG_Perl_ConvertPtr(SWIG_MAYBE_PERL_OBJECT SV *sv, void **ptr, swig_type_info *_t, int flags) {
1217 return SWIG_Perl_ConvertPtrAndOwn(sv, ptr, _t, flags, 0);
1218 }
1219
1220 SWIGRUNTIME void
1221 SWIG_Perl_MakePtr(SWIG_MAYBE_PERL_OBJECT SV *sv, void *ptr, swig_type_info *t, int flags) {
1222 if (ptr && (flags & (SWIG_SHADOW | SWIG_POINTER_OWN))) {
1223 SV *self;
1224 SV *obj=newSV(0);
1225 HV *hash=newHV();
1226 HV *stash;
1227 sv_setref_pv(obj, SWIG_Perl_TypeProxyName(t), ptr);
1228 stash=SvSTASH(SvRV(obj));
1229 if (flags & SWIG_POINTER_OWN) {
1230 HV *hv;
1231 GV *gv = *(GV**)hv_fetch(stash, "OWNER", 5, TRUE);
1232 if (!isGV(gv))
1233 gv_init(gv, stash, "OWNER", 5, FALSE);
1234 hv=GvHVn(gv);
1235 hv_store_ent(hv, obj, newSViv(1), 0);
1236 }
1237 sv_magic((SV *)hash, (SV *)obj, 'P', Nullch, 0);
1238 SvREFCNT_dec(obj);
1239 self=newRV_noinc((SV *)hash);
1240 sv_setsv(sv, self);
1241 SvREFCNT_dec((SV *)self);
1242 sv_bless(sv, stash);
1243 }
1244 else {
1245 sv_setref_pv(sv, SWIG_Perl_TypeProxyName(t), ptr);
1246 }
1247 }
1248
1249 SWIGRUNTIMEINLINE SV *
1250 SWIG_Perl_NewPointerObj(SWIG_MAYBE_PERL_OBJECT void *ptr, swig_type_info *t, int flags) {
1251 SV *result = sv_newmortal();
1252 SWIG_MakePtr(result, ptr, t, flags);
1253 return result;
1254 }
1255
1256 SWIGRUNTIME void
1257 SWIG_Perl_MakePackedObj(SWIG_MAYBE_PERL_OBJECT SV *sv, void *ptr, int sz, swig_type_info *type) {
1258 char result[1024];
1259 char *r = result;
1260 if ((2*sz + 1 + strlen(SWIG_Perl_TypeProxyName(type))) > 1000) return;
1261 *(r++) = '_';
1262 r = SWIG_PackData(r,ptr,sz);
1263 strcpy(r,SWIG_Perl_TypeProxyName(type));
1264 sv_setpv(sv, result);
1265 }
1266
1267 SWIGRUNTIME SV *
1268 SWIG_Perl_NewPackedObj(SWIG_MAYBE_PERL_OBJECT void *ptr, int sz, swig_type_info *type) {
1269 SV *result = sv_newmortal();
1270 SWIG_Perl_MakePackedObj(result, ptr, sz, type);
1271 return result;
1272 }
1273
1274 /* Convert a packed pointer value */
1275 SWIGRUNTIME int
1276 SWIG_Perl_ConvertPacked(SWIG_MAYBE_PERL_OBJECT SV *obj, void *ptr, int sz, swig_type_info *ty) {
1277 swig_cast_info *tc;
1278 const char *c = 0;
1279
1280 if ((!obj) || (!SvOK(obj))) return SWIG_ERROR;
1281 c = SvPV_nolen(obj);
1282 /* Pointer values must start with leading underscore */
1283 if (*c != '_') return SWIG_ERROR;
1284 c++;
1285 c = SWIG_UnpackData(c,ptr,sz);
1286 if (ty) {
1287 tc = SWIG_TypeCheck(c,ty);
1288 if (!tc) return SWIG_ERROR;
1289 }
1290 return SWIG_OK;
1291 }
1292
1293
1294 /* Macros for low-level exception handling */
1295 #define SWIG_croak(x) { SWIG_Error(SWIG_RuntimeError, x); SWIG_fail; }
1296
1297
1298 typedef XSPROTO(SwigPerlWrapper);
1299 typedef SwigPerlWrapper *SwigPerlWrapperPtr;
1300
1301 /* Structure for command table */
1302 typedef struct {
1303 const char *name;
1304 SwigPerlWrapperPtr wrapper;
1305 } swig_command_info;
1306
1307 /* Information for constant table */
1308
1309 #define SWIG_INT 1
1310 #define SWIG_FLOAT 2
1311 #define SWIG_STRING 3
1312 #define SWIG_POINTER 4
1313 #define SWIG_BINARY 5
1314
1315 /* Constant information structure */
1316 typedef struct swig_constant_info {
1317 int type;
1318 const char *name;
1319 long lvalue;
1320 double dvalue;
1321 void *pvalue;
1322 swig_type_info **ptype;
1323 } swig_constant_info;
1324
1325
1326 /* Structure for variable table */
1327 typedef struct {
1328 const char *name;
1329 SwigMagicFunc set;
1330 SwigMagicFunc get;
1331 swig_type_info **type;
1332 } swig_variable_info;
1333
1334 /* Magic variable code */
1335 #ifndef PERL_OBJECT
1336 # ifdef __cplusplus
1337 # define swig_create_magic(s,a,b,c) _swig_create_magic(s,const_cast<char*>(a),b,c)
1338 # else
1339 # define swig_create_magic(s,a,b,c) _swig_create_magic(s,(char*)(a),b,c)
1340 # endif
1341 # ifndef MULTIPLICITY
1342 SWIGRUNTIME void _swig_create_magic(SV *sv, char *name, int (*set)(SV *, MAGIC *), int (*get)(SV *,MAGIC *))
1343 # else
1344 SWIGRUNTIME void _swig_create_magic(SV *sv, char *name, int (*set)(struct interpreter*, SV *, MAGIC *), int (*get)(struct interpreter*, SV *,MAGIC *))
1345 # endif
1346 #else
1347 # define swig_create_magic(s,a,b,c) _swig_create_magic(pPerl,s,a,b,c)
1348 SWIGRUNTIME void _swig_create_magic(CPerlObj *pPerl, SV *sv, const char *name, int (CPerlObj::*set)(SV *, MAGIC *), int (CPerlObj::*get)(SV *, MAGIC *))
1349 #endif
1350 {
1351 MAGIC *mg;
1352 sv_magic(sv,sv,'U',name,strlen(name));
1353 mg = mg_find(sv,'U');
1354 mg->mg_virtual = (MGVTBL *) malloc(sizeof(MGVTBL));
1355 mg->mg_virtual->svt_get = (SwigMagicFunc) get;
1356 mg->mg_virtual->svt_set = (SwigMagicFunc) set;
1357 mg->mg_virtual->svt_len = 0;
1358 mg->mg_virtual->svt_clear = 0;
1359 mg->mg_virtual->svt_free = 0;
1360 }
1361
1362
1363 SWIGRUNTIME swig_module_info *
1364 SWIG_Perl_GetModule(void *SWIGUNUSEDPARM(clientdata)) {
1365 static void *type_pointer = (void *)0;
1366 SV *pointer;
1367
1368 /* first check if pointer already created */
1369 if (!type_pointer) {
1370 pointer = get_sv("swig_runtime_data::type_pointer" SWIG_RUNTIME_VERSION SWIG_TYPE_TABLE_NAME, FALSE | GV_ADDMULTI);
1371 if (pointer && SvOK(pointer)) {
1372 type_pointer = INT2PTR(swig_type_info **, SvIV(pointer));
1373 }
1374 }
1375
1376 return (swig_module_info *) type_pointer;
1377 }
1378
1379 SWIGRUNTIME void
1380 SWIG_Perl_SetModule(swig_module_info *module) {
1381 SV *pointer;
1382
1383 /* create a new pointer */
1384 pointer = get_sv("swig_runtime_data::type_pointer" SWIG_RUNTIME_VERSION SWIG_TYPE_TABLE_NAME, TRUE | GV_ADDMULTI);
1385 sv_setiv(pointer, PTR2IV(module));
1386 }
1387
1388 #ifdef __cplusplus
1389 }
1390 #endif
1391
1392 /* Workaround perl5 global namespace pollution. Note that undefining library
1393 * functions like fopen will not solve the problem on all platforms as fopen
1394 * might be a macro on Windows but not necessarily on other operating systems. */
1395 #ifdef do_open
1396 #undef do_open
1397 #endif
1398 #ifdef do_close
1399 #undef do_close
1400 #endif
1401 #ifdef do_exec
1402 #undef do_exec
1403 #endif
1404 #ifdef scalar
1405 #undef scalar
1406 #endif
1407 #ifdef list
1408 #undef list
1409 #endif
1410 #ifdef apply
1411 #undef apply
1412 #endif
1413 #ifdef convert
1414 #undef convert
1415 #endif
1416 #ifdef Error
1417 #undef Error
1418 #endif
1419 #ifdef form
1420 #undef form
1421 #endif
1422 #ifdef vform
1423 #undef vform
1424 #endif
1425 #ifdef LABEL
1426 #undef LABEL
1427 #endif
1428 #ifdef METHOD
1429 #undef METHOD
1430 #endif
1431 #ifdef Move
1432 #undef Move
1433 #endif
1434 #ifdef yylex
1435 #undef yylex
1436 #endif
1437 #ifdef yyparse
1438 #undef yyparse
1439 #endif
1440 #ifdef yyerror
1441 #undef yyerror
1442 #endif
1443 #ifdef invert
1444 #undef invert
1445 #endif
1446 #ifdef ref
1447 #undef ref
1448 #endif
1449 #ifdef read
1450 #undef read
1451 #endif
1452 #ifdef write
1453 #undef write
1454 #endif
1455 #ifdef eof
1456 #undef eof
1457 #endif
1458 #ifdef close
1459 #undef close
1460 #endif
1461 #ifdef rewind
1462 #undef rewind
1463 #endif
1464 #ifdef free
1465 #undef free
1466 #endif
1467 #ifdef malloc
1468 #undef malloc
1469 #endif
1470 #ifdef calloc
1471 #undef calloc
1472 #endif
1473 #ifdef Stat
1474 #undef Stat
1475 #endif
1476 #ifdef check
1477 #undef check
1478 #endif
1479 #ifdef seekdir
1480 #undef seekdir
1481 #endif
1482 #ifdef open
1483 #undef open
1484 #endif
1485 #ifdef readdir
1486 #undef readdir
1487 #endif
1488 #ifdef bind
1489 #undef bind
1490 #endif
1491 #ifdef access
1492 #undef access
1493 #endif
1494 #ifdef stat
1495 #undef stat
1496 #endif
1497 #ifdef seed
1498 #undef seed
1499 #endif
1500
1501 #ifdef bool
1502 /* Leave if macro is from C99 stdbool.h */
1503 #ifndef __bool_true_false_are_defined
1504 #undef bool
1505 #endif
1506 #endif
1507
1508
1509
1510
1511 #define SWIG_exception_fail(code, msg) do { SWIG_Error(code, msg); SWIG_fail; } while(0)
1512
1513 #define SWIG_contract_assert(expr, msg) if (!(expr)) { SWIG_Error(SWIG_RuntimeError, msg); SWIG_fail; } else
1514
1515
1516
1517 /* -------- TYPES TABLE (BEGIN) -------- */
1518
1519 #define SWIGTYPE_p_FILE swig_types[0]
1520 #define SWIGTYPE_p_char swig_types[1]
1521 #define SWIGTYPE_p_double swig_types[2]
1522 #define SWIGTYPE_p_f_p_q_const__char_p_q_const__char_int_int__void swig_types[3]
1523 #define SWIGTYPE_p_f_p_q_const__char_p_q_const__char_int_p_q_const__char__void swig_types[4]
1524 #define SWIGTYPE_p_float swig_types[5]
1525 #define SWIGTYPE_p_gsl_complex swig_types[6]
1526 #define SWIGTYPE_p_gsl_complex_float swig_types[7]
1527 #define SWIGTYPE_p_gsl_complex_long_double swig_types[8]
1528 #define SWIGTYPE_p_gsl_linalg_matrix_mod_t swig_types[9]
1529 #define SWIGTYPE_p_gsl_matrix swig_types[10]
1530 #define SWIGTYPE_p_gsl_matrix_complex swig_types[11]
1531 #define SWIGTYPE_p_gsl_mode_t swig_types[12]
1532 #define SWIGTYPE_p_gsl_permutation_struct swig_types[13]
1533 #define SWIGTYPE_p_gsl_vector swig_types[14]
1534 #define SWIGTYPE_p_gsl_vector_complex swig_types[15]
1535 #define SWIGTYPE_p_int swig_types[16]
1536 #define SWIGTYPE_p_long_double swig_types[17]
1537 #define SWIGTYPE_p_size_t swig_types[18]
1538 static swig_type_info *swig_types[20];
1539 static swig_module_info swig_module = {swig_types, 19, 0, 0, 0, 0};
1540 #define SWIG_TypeQuery(name) SWIG_TypeQueryModule(&swig_module, &swig_module, name)
1541 #define SWIG_MangledTypeQuery(name) SWIG_MangledTypeQueryModule(&swig_module, &swig_module, name)
1542
1543 /* -------- TYPES TABLE (END) -------- */
1544
1545 #define SWIG_init boot_Math__GSL__Linalg
1546
1547 #define SWIG_name "Math::GSL::Linalgc::boot_Math__GSL__Linalg"
1548 #define SWIG_prefix "Math::GSL::Linalgc::"
1549
1550 #define SWIGVERSION 0x040001
1551 #define SWIG_VERSION SWIGVERSION
1552
1553
1554 #define SWIG_as_voidptr(a) (void *)((const void *)(a))
1555 #define SWIG_as_voidptrptr(a) ((void)SWIG_as_voidptr(*a),(void**)(a))
1556
1557
1558 #ifdef __cplusplus
1559 extern "C"
1560 #endif
1561 #ifndef PERL_OBJECT
1562 #ifndef MULTIPLICITY
1563 SWIGEXPORT void SWIG_init (CV* cv);
1564 #else
1565 SWIGEXPORT void SWIG_init (pTHXo_ CV* cv);
1566 #endif
1567 #else
1568 SWIGEXPORT void SWIG_init (CV *cv, CPerlObj *);
1569 #endif
1570
1571
1572 SWIGINTERNINLINE SV *
SWIG_PERL_DECL_ARGS_1(double value)1573 SWIG_From_double SWIG_PERL_DECL_ARGS_1(double value)
1574 {
1575 return sv_2mortal(newSVnv(value));
1576 }
1577
1578
1579 SWIGINTERNINLINE SV *
SWIG_PERL_DECL_ARGS_1(long value)1580 SWIG_From_long SWIG_PERL_DECL_ARGS_1(long value)
1581 {
1582 SV *sv;
1583 if (IVSIZE >= sizeof(value) || (value >= IV_MIN && value <= IV_MAX))
1584 sv = newSViv(value);
1585 else
1586 sv = newSVpvf("%ld", value);
1587 return sv_2mortal(sv);
1588 }
1589
1590
1591 SWIGINTERNINLINE SV *
SWIG_PERL_DECL_ARGS_1(int value)1592 SWIG_From_int SWIG_PERL_DECL_ARGS_1(int value)
1593 {
1594 return SWIG_From_long SWIG_PERL_CALL_ARGS_1(value);
1595 }
1596
1597
1598 SWIGINTERN swig_type_info*
SWIG_pchar_descriptor(void)1599 SWIG_pchar_descriptor(void)
1600 {
1601 static int init = 0;
1602 static swig_type_info* info = 0;
1603 if (!init) {
1604 info = SWIG_TypeQuery("_p_char");
1605 init = 1;
1606 }
1607 return info;
1608 }
1609
1610
1611 SWIGINTERN int
SWIG_AsCharPtrAndSize(SV * obj,char ** cptr,size_t * psize,int * alloc)1612 SWIG_AsCharPtrAndSize(SV *obj, char** cptr, size_t* psize, int *alloc)
1613 {
1614 if (SvMAGICAL(obj)) {
1615 SV *tmp = sv_newmortal();
1616 SvSetSV(tmp, obj);
1617 obj = tmp;
1618 }
1619 if (SvPOK(obj)) {
1620 STRLEN len = 0;
1621 char *cstr = SvPV(obj, len);
1622 size_t size = len + 1;
1623 if (cptr) {
1624 if (alloc) {
1625 if (*alloc == SWIG_NEWOBJ) {
1626 *cptr = (char *)memcpy(malloc((size)*sizeof(char)), cstr, sizeof(char)*(size));
1627 } else {
1628 *cptr = cstr;
1629 *alloc = SWIG_OLDOBJ;
1630 }
1631 }
1632 }
1633 if (psize) *psize = size;
1634 return SWIG_OK;
1635 } else {
1636 swig_type_info* pchar_descriptor = SWIG_pchar_descriptor();
1637 if (pchar_descriptor) {
1638 char* vptr = 0;
1639 if (SWIG_ConvertPtr(obj, (void**)&vptr, pchar_descriptor, 0) == SWIG_OK) {
1640 if (cptr) *cptr = vptr;
1641 if (psize) *psize = vptr ? (strlen(vptr) + 1) : 0;
1642 if (alloc) *alloc = SWIG_OLDOBJ;
1643 return SWIG_OK;
1644 }
1645 }
1646 }
1647 return SWIG_TypeError;
1648 }
1649
1650
1651
1652
1653
1654 #include <limits.h>
1655 #if !defined(SWIG_NO_LLONG_MAX)
1656 # if !defined(LLONG_MAX) && defined(__GNUC__) && defined (__LONG_LONG_MAX__)
1657 # define LLONG_MAX __LONG_LONG_MAX__
1658 # define LLONG_MIN (-LLONG_MAX - 1LL)
1659 # define ULLONG_MAX (LLONG_MAX * 2ULL + 1ULL)
1660 # endif
1661 #endif
1662
1663
1664 #include <stdlib.h>
1665 #ifdef _MSC_VER
1666 # ifndef strtoull
1667 # define strtoull _strtoui64
1668 # endif
1669 # ifndef strtoll
1670 # define strtoll _strtoi64
1671 # endif
1672 #endif
1673
1674
1675 SWIGINTERN int
SWIG_PERL_DECL_ARGS_2(SV * obj,double * val)1676 SWIG_AsVal_double SWIG_PERL_DECL_ARGS_2(SV *obj, double *val)
1677 {
1678 if (SvNIOK(obj)) {
1679 if (val) *val = SvNV(obj);
1680 return SWIG_OK;
1681 } else if (SvIOK(obj)) {
1682 if (val) *val = (double) SvIV(obj);
1683 return SWIG_AddCast(SWIG_OK);
1684 } else {
1685 const char *nptr = SvPV_nolen(obj);
1686 if (nptr) {
1687 char *endptr;
1688 double v;
1689 errno = 0;
1690 v = strtod(nptr, &endptr);
1691 if (errno == ERANGE) {
1692 errno = 0;
1693 return SWIG_OverflowError;
1694 } else {
1695 if (*endptr == '\0') {
1696 if (val) *val = v;
1697 return SWIG_Str2NumCast(SWIG_OK);
1698 }
1699 }
1700 }
1701 }
1702 return SWIG_TypeError;
1703 }
1704
1705
1706 #include <float.h>
1707
1708
1709 #include <math.h>
1710
1711
1712 SWIGINTERNINLINE int
SWIG_CanCastAsInteger(double * d,double min,double max)1713 SWIG_CanCastAsInteger(double *d, double min, double max) {
1714 double x = *d;
1715 if ((min <= x && x <= max)) {
1716 double fx = floor(x);
1717 double cx = ceil(x);
1718 double rd = ((x - fx) < 0.5) ? fx : cx; /* simple rint */
1719 if ((errno == EDOM) || (errno == ERANGE)) {
1720 errno = 0;
1721 } else {
1722 double summ, reps, diff;
1723 if (rd < x) {
1724 diff = x - rd;
1725 } else if (rd > x) {
1726 diff = rd - x;
1727 } else {
1728 return 1;
1729 }
1730 summ = rd + x;
1731 reps = diff/summ;
1732 if (reps < 8*DBL_EPSILON) {
1733 *d = rd;
1734 return 1;
1735 }
1736 }
1737 }
1738 return 0;
1739 }
1740
1741
1742 SWIGINTERN int
SWIG_PERL_DECL_ARGS_2(SV * obj,long * val)1743 SWIG_AsVal_long SWIG_PERL_DECL_ARGS_2(SV *obj, long* val)
1744 {
1745 if (SvUOK(obj)) {
1746 UV v = SvUV(obj);
1747 if (UVSIZE < sizeof(*val) || v <= LONG_MAX) {
1748 if (val) *val = v;
1749 return SWIG_OK;
1750 }
1751 return SWIG_OverflowError;
1752 } else if (SvIOK(obj)) {
1753 IV v = SvIV(obj);
1754 if (IVSIZE <= sizeof(*val) || (v >= LONG_MIN && v <= LONG_MAX)) {
1755 if(val) *val = v;
1756 return SWIG_OK;
1757 }
1758 return SWIG_OverflowError;
1759 } else {
1760 int dispatch = 0;
1761 const char *nptr = SvPV_nolen(obj);
1762 if (nptr) {
1763 char *endptr;
1764 long v;
1765 errno = 0;
1766 v = strtol(nptr, &endptr,0);
1767 if (errno == ERANGE) {
1768 errno = 0;
1769 return SWIG_OverflowError;
1770 } else {
1771 if (*endptr == '\0') {
1772 if (val) *val = v;
1773 return SWIG_Str2NumCast(SWIG_OK);
1774 }
1775 }
1776 }
1777 if (!dispatch) {
1778 double d;
1779 int res = SWIG_AddCast(SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(obj,&d));
1780 if (SWIG_IsOK(res) && SWIG_CanCastAsInteger(&d, LONG_MIN, LONG_MAX)) {
1781 if (val) *val = (long)(d);
1782 return res;
1783 }
1784 }
1785 }
1786 return SWIG_TypeError;
1787 }
1788
1789
1790 SWIGINTERN int
SWIG_PERL_DECL_ARGS_2(SV * obj,int * val)1791 SWIG_AsVal_int SWIG_PERL_DECL_ARGS_2(SV * obj, int *val)
1792 {
1793 long v;
1794 int res = SWIG_AsVal_long SWIG_PERL_CALL_ARGS_2(obj, &v);
1795 if (SWIG_IsOK(res)) {
1796 if ((v < INT_MIN || v > INT_MAX)) {
1797 return SWIG_OverflowError;
1798 } else {
1799 if (val) *val = (int)(v);
1800 }
1801 }
1802 return res;
1803 }
1804
1805
1806 SWIGINTERNINLINE SV *
SWIG_FromCharPtrAndSize(const char * carray,size_t size)1807 SWIG_FromCharPtrAndSize(const char* carray, size_t size)
1808 {
1809 SV *obj = sv_newmortal();
1810 if (carray) {
1811 sv_setpvn(obj, carray, size);
1812 } else {
1813 sv_setsv(obj, &PL_sv_undef);
1814 }
1815 return obj;
1816 }
1817
1818
1819 SWIGINTERNINLINE SV *
SWIG_FromCharPtr(const char * cptr)1820 SWIG_FromCharPtr(const char *cptr)
1821 {
1822 return SWIG_FromCharPtrAndSize(cptr, (cptr ? strlen(cptr) : 0));
1823 }
1824
1825
1826 #include "gsl/gsl_nan.h"
1827 #include "gsl/gsl_errno.h"
1828 #include "gsl/gsl_math.h"
1829 #include "gsl/gsl_monte.h"
1830
1831
1832 struct perl_array {
1833 I32 len;
1834 AV *array;
1835 };
1836
1837
1838
1839 enum awType { awDouble, awFloat, awInt, awUnsigned };
1840
1841 typedef struct {
1842 I32 size;
1843 enum awType type;
1844 void * data;
1845 } array_wrapper;
1846
array_wrapper_alloc(int numelem,enum awType type)1847 array_wrapper * array_wrapper_alloc(int numelem, enum awType type){
1848 array_wrapper * rv = malloc(sizeof(array_wrapper));
1849
1850 if (rv == NULL)
1851 croak("array_wrapper_alloc: can't malloc wrapper\n");
1852
1853 switch (type){
1854 case awDouble:
1855 rv->data = malloc(sizeof(double) * numelem);
1856 break;
1857 case awFloat:
1858 rv->data = malloc(sizeof(float) * numelem);
1859 break;
1860 case awInt:
1861 rv->data = malloc(sizeof(int) * numelem);
1862 break;
1863 case awUnsigned:
1864 rv->data = malloc(sizeof(unsigned int) * numelem);
1865 break;
1866 default:
1867 croak("array_wrapper_alloc: type should be awDouble, awFloat, awInt, or awUnsigned");
1868 }
1869
1870 if (rv->data == NULL)
1871 croak("array_wrapper_alloc: can't malloc data");
1872
1873 rv->size = numelem;
1874 rv->type = type;
1875 return rv;
1876 }
1877
array_wrapper_free(array_wrapper * daw)1878 void array_wrapper_free(array_wrapper * daw){
1879 free(daw->data);
1880 free(daw);
1881 }
1882
1883
1884 /* structure to hold required information while the gsl function call
1885 for each callback
1886 */
1887 struct gsl_function_perl {
1888 gsl_function C_gsl_function;
1889 SV * function;
1890 SV * params;
1891 };
1892
1893 struct gsl_function_fdf_perl {
1894 gsl_function_fdf C_gsl_function_fdf;
1895 SV * f;
1896 SV * df;
1897 SV * fdf;
1898 SV * params;
1899 };
1900
1901 struct gsl_monte_function_perl {
1902 gsl_monte_function C_gsl_monte_function;
1903 SV * f;
1904 SV * dim;
1905 SV * params;
1906 };
1907
gsl_function_perl_free(struct gsl_function_perl * perl_f)1908 void gsl_function_perl_free(struct gsl_function_perl * perl_f){
1909 if (perl_f != NULL) {
1910 SvREFCNT_dec(perl_f->function);
1911 SvREFCNT_dec(perl_f->params);
1912 Safefree(perl_f);
1913 }
1914 }
1915
gsl_function_fdf_perl_free(struct gsl_function_fdf_perl * perl_fdf)1916 void gsl_function_fdf_perl_free(struct gsl_function_fdf_perl * perl_fdf){
1917 if (perl_fdf != NULL) {
1918 SvREFCNT_dec(perl_fdf->f);
1919 SvREFCNT_dec(perl_fdf->df);
1920 SvREFCNT_dec(perl_fdf->fdf);
1921 SvREFCNT_dec(perl_fdf->params);
1922 Safefree(perl_fdf);
1923 }
1924 }
1925
1926 /* These functions (C callbacks) calls the perl callbacks.
1927 Info for perl callback can be found using the 'void*params' parameter
1928 */
call_gsl_function_x_params(SV * function,double x,SV * params)1929 double call_gsl_function_x_params(SV* function, double x, SV *params){
1930 unsigned int count;
1931 double y;
1932 dSP;
1933
1934 //fprintf(stderr, "LOOKUP CALLBACK\n");
1935 ENTER;
1936 SAVETMPS;
1937
1938 PUSHMARK(SP);
1939 XPUSHs(sv_2mortal(newSVnv((double)x)));
1940 XPUSHs(params);
1941 PUTBACK; /* make local stack pointer global */
1942
1943 count = call_sv(function, G_SCALAR);
1944 SPAGAIN;
1945
1946 if (count != 1)
1947 croak("Expected to call subroutine in scalar context!");
1948
1949 y = POPn;
1950
1951 PUTBACK; /* make local stack pointer global */
1952 FREETMPS;
1953 LEAVE;
1954
1955 return y;
1956 }
1957
call_gsl_function(double x,void * params)1958 double call_gsl_function(double x , void *params){
1959 struct gsl_function_perl *F=(struct gsl_function_perl*)params;
1960 return call_gsl_function_x_params( F->function, x, F->params );
1961 }
1962
call_gsl_function_fdf_f(double x,void * params)1963 double call_gsl_function_fdf_f(double x , void *params){
1964 struct gsl_function_fdf_perl *F=(struct gsl_function_fdf_perl*)params;
1965 return call_gsl_function_x_params( F->f, x, F->params );
1966 }
1967
call_gsl_function_fdf_df(double x,void * params)1968 double call_gsl_function_fdf_df(double x , void *params){
1969 struct gsl_function_fdf_perl *F=(struct gsl_function_fdf_perl*)params;
1970 return call_gsl_function_x_params( F->df, x, F->params );
1971 }
1972
call_gsl_function_fdf_fdf(double x,void * params,double * f,double * df)1973 void call_gsl_function_fdf_fdf(double x , void *params, double *f, double *df ){
1974 struct gsl_function_fdf_perl *F=(struct gsl_function_fdf_perl*)params;
1975
1976 dSP;
1977
1978 ENTER;
1979 SAVETMPS;
1980
1981 PUSHMARK(SP);
1982 EXTEND(SP, 2);
1983 PUSHs(sv_2mortal(newSVnv((double)x)));
1984 PUSHs(F->params);
1985 PUTBACK; /* make local stack pointer global */
1986
1987 {
1988 unsigned int count = call_sv(F->fdf, G_ARRAY);
1989 SPAGAIN;
1990
1991 if (count != 2)
1992 croak( "Expected two return values, got %d", count );
1993 }
1994
1995 *df = POPn;
1996 *f = POPn;
1997
1998 PUTBACK; /* make local stack pointer global */
1999 FREETMPS;
2000 LEAVE;
2001 }
2002
call_gsl_monte_function(double * x_array,size_t dim,void * params)2003 double call_gsl_monte_function(double *x_array , size_t dim, void *params){
2004 struct gsl_monte_function_perl *F=(struct gsl_monte_function_perl*)params;
2005 unsigned int count;
2006 unsigned int i;
2007 AV* perl_array;
2008 double y;
2009 dSP;
2010
2011 //fprintf(stderr, "LOOKUP CALLBACK\n");
2012 ENTER;
2013 SAVETMPS;
2014
2015 PUSHMARK(SP);
2016 perl_array=newAV();
2017 sv_2mortal((SV*)perl_array);
2018 XPUSHs(sv_2mortal(newRV((SV *)perl_array)));
2019 for(i=0; i<dim; i++) {
2020 /* no mortal : it is referenced by the array */
2021 av_push(perl_array, newSVnv(x_array[i]));
2022 }
2023 XPUSHs(sv_2mortal(newSViv(dim)));
2024 XPUSHs(F->params);
2025 PUTBACK; /* make local stack pointer global */
2026
2027 count = call_sv(F->f, G_SCALAR);
2028 SPAGAIN;
2029
2030 if (count != 1)
2031 croak("Expected to call subroutine in scalar context!");
2032
2033 y = POPn;
2034
2035 PUTBACK; /* make local stack pointer global */
2036 FREETMPS;
2037 LEAVE;
2038
2039 return y;
2040 }
2041
2042
gsl_function_fdf_extract(char * param_name,HV * hash,SV * func[])2043 void gsl_function_fdf_extract( char* param_name, HV* hash, SV* func[] ) {
2044 static const char *keys[3] = { "f", "df", "fdf" };
2045
2046 int ikey;
2047
2048 for ( ikey = 0 ; ikey < 3 ; ++ikey ) {
2049 func[ikey] = 0;
2050 const char* key = keys[ikey];
2051 /* it just so happens that strlen(keys[ikey]) == ikey + 1 */
2052 SV** pp_sv = hv_fetch( hash, key, ikey+1, 0 );
2053 SV* function;
2054
2055 if ( !pp_sv )
2056 croak("Math::GSL : %s: missing key %s!", param_name, key);
2057
2058 function = *pp_sv;
2059
2060 if ( SvPOK(function) || ( SvROK( function ) && SvTYPE(SvRV(function)) == SVt_PVCV ) ) {
2061 /* hold on to SV after the enclosing hash goes away */
2062 SvREFCNT_inc( function );
2063 func[ikey] = function;
2064 }
2065 else {
2066 croak( "Math::GSL : %s: key %s is not a reference to code!", param_name, key);
2067 }
2068 }
2069 }
2070
2071
2072
2073 #include "gsl/gsl_inline.h"
2074 #include "gsl/gsl_linalg.h"
2075 #include "gsl/gsl_permutation.h"
2076 #include "gsl/gsl_complex.h"
2077 #include "gsl/gsl_complex_math.h"
2078
2079
2080 SWIGINTERN int
SWIG_PERL_DECL_ARGS_2(SV * obj,unsigned long * val)2081 SWIG_AsVal_unsigned_SS_long SWIG_PERL_DECL_ARGS_2(SV *obj, unsigned long *val)
2082 {
2083 if (SvUOK(obj)) {
2084 UV v = SvUV(obj);
2085 if (UVSIZE <= sizeof(*val) || v <= ULONG_MAX) {
2086 if (val) *val = v;
2087 return SWIG_OK;
2088 }
2089 return SWIG_OverflowError;
2090 } else if (SvIOK(obj)) {
2091 IV v = SvIV(obj);
2092 if (v >= 0 && (IVSIZE <= sizeof(*val) || v <= ULONG_MAX)) {
2093 if (val) *val = v;
2094 return SWIG_OK;
2095 }
2096 return SWIG_OverflowError;
2097 } else {
2098 int dispatch = 0;
2099 const char *nptr = SvPV_nolen(obj);
2100 if (nptr) {
2101 char *endptr;
2102 unsigned long v;
2103 errno = 0;
2104 v = strtoul(nptr, &endptr,0);
2105 if (errno == ERANGE) {
2106 errno = 0;
2107 return SWIG_OverflowError;
2108 } else {
2109 if (*endptr == '\0') {
2110 if (val) *val = v;
2111 return SWIG_Str2NumCast(SWIG_OK);
2112 }
2113 }
2114 }
2115 if (!dispatch) {
2116 double d;
2117 int res = SWIG_AddCast(SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(obj,&d));
2118 if (SWIG_IsOK(res) && SWIG_CanCastAsInteger(&d, 0, ULONG_MAX)) {
2119 if (val) *val = (unsigned long)(d);
2120 return res;
2121 }
2122 }
2123 }
2124 return SWIG_TypeError;
2125 }
2126
2127
2128 #if defined(LLONG_MAX) && !defined(SWIG_LONG_LONG_AVAILABLE)
2129 # define SWIG_LONG_LONG_AVAILABLE
2130 #endif
2131
2132
2133 #ifdef SWIG_LONG_LONG_AVAILABLE
2134 SWIGINTERN int
SWIG_PERL_DECL_ARGS_2(SV * obj,unsigned long long * val)2135 SWIG_AsVal_unsigned_SS_long_SS_long SWIG_PERL_DECL_ARGS_2(SV *obj, unsigned long long *val)
2136 {
2137 if (SvUOK(obj)) {
2138 /* pretty sure this should be conditional on
2139 * (UVSIZE <= sizeof(*val) || v <= ULLONG_MAX) */
2140 if (val) *val = SvUV(obj);
2141 return SWIG_OK;
2142 } else if (SvIOK(obj)) {
2143 IV v = SvIV(obj);
2144 if (v >= 0 && (IVSIZE <= sizeof(*val) || v <= ULLONG_MAX)) {
2145 if (val) *val = v;
2146 return SWIG_OK;
2147 } else {
2148 return SWIG_OverflowError;
2149 }
2150 } else {
2151 int dispatch = 0;
2152 const char *nptr = SvPV_nolen(obj);
2153 if (nptr) {
2154 char *endptr;
2155 unsigned long long v;
2156 errno = 0;
2157 v = strtoull(nptr, &endptr,0);
2158 if (errno == ERANGE) {
2159 errno = 0;
2160 return SWIG_OverflowError;
2161 } else {
2162 if (*endptr == '\0') {
2163 if (val) *val = v;
2164 return SWIG_Str2NumCast(SWIG_OK);
2165 }
2166 }
2167 }
2168 if (!dispatch) {
2169 const double mant_max = 1LL << DBL_MANT_DIG;
2170 double d;
2171 int res = SWIG_AddCast(SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(obj,&d));
2172 if (SWIG_IsOK(res) && SWIG_CanCastAsInteger(&d, 0, mant_max)) {
2173 if (val) *val = (unsigned long long)(d);
2174 return res;
2175 }
2176 }
2177 }
2178 return SWIG_TypeError;
2179 }
2180 #endif
2181
2182
2183 SWIGINTERNINLINE int
SWIG_PERL_DECL_ARGS_2(SV * obj,size_t * val)2184 SWIG_AsVal_size_t SWIG_PERL_DECL_ARGS_2(SV * obj, size_t *val)
2185 {
2186 int res = SWIG_TypeError;
2187 #ifdef SWIG_LONG_LONG_AVAILABLE
2188 if (sizeof(size_t) <= sizeof(unsigned long)) {
2189 #endif
2190 unsigned long v;
2191 res = SWIG_AsVal_unsigned_SS_long SWIG_PERL_CALL_ARGS_2(obj, val ? &v : 0);
2192 if (SWIG_IsOK(res) && val) *val = (size_t)(v);
2193 #ifdef SWIG_LONG_LONG_AVAILABLE
2194 } else if (sizeof(size_t) <= sizeof(unsigned long long)) {
2195 unsigned long long v;
2196 res = SWIG_AsVal_unsigned_SS_long_SS_long SWIG_PERL_CALL_ARGS_2(obj, val ? &v : 0);
2197 if (SWIG_IsOK(res) && val) *val = (size_t)(v);
2198 }
2199 #endif
2200 return res;
2201 }
2202
2203
2204 SWIGINTERNINLINE SV *
SWIG_PERL_DECL_ARGS_1(unsigned long value)2205 SWIG_From_unsigned_SS_long SWIG_PERL_DECL_ARGS_1(unsigned long value)
2206 {
2207 SV *sv;
2208 if (UVSIZE >= sizeof(value) || value <= UV_MAX)
2209 sv = newSVuv(value);
2210 else
2211 sv = newSVpvf("%lu", value);
2212 return sv_2mortal(sv);
2213 }
2214
2215
2216 #include <stdio.h>
2217 #if (defined(_MSC_VER) && (_MSC_VER < 1900)) || defined(__BORLANDC__) || defined(_WATCOM)
2218 # ifndef snprintf
2219 # define snprintf _snprintf
2220 # endif
2221 #endif
2222
2223
2224 #ifdef SWIG_LONG_LONG_AVAILABLE
2225 SWIGINTERNINLINE SV *
SWIG_PERL_DECL_ARGS_1(unsigned long long value)2226 SWIG_From_unsigned_SS_long_SS_long SWIG_PERL_DECL_ARGS_1(unsigned long long value)
2227 {
2228 SV *sv;
2229 if (UVSIZE >= sizeof(value) || value <= UV_MAX)
2230 sv = newSVuv((UV)(value));
2231 else {
2232 //sv = newSVpvf("%llu", value); doesn't work in non 64bit Perl
2233 char temp[256];
2234 sprintf(temp, "%llu", value);
2235 sv = newSVpv(temp, 0);
2236 }
2237 return sv_2mortal(sv);
2238 }
2239 #endif
2240
2241
2242 SWIGINTERNINLINE SV *
SWIG_PERL_DECL_ARGS_1(size_t value)2243 SWIG_From_size_t SWIG_PERL_DECL_ARGS_1(size_t value)
2244 {
2245 #ifdef SWIG_LONG_LONG_AVAILABLE
2246 if (sizeof(size_t) <= sizeof(unsigned long)) {
2247 #endif
2248 return SWIG_From_unsigned_SS_long SWIG_PERL_CALL_ARGS_1((unsigned long)(value));
2249 #ifdef SWIG_LONG_LONG_AVAILABLE
2250 } else {
2251 /* assume sizeof(size_t) <= sizeof(unsigned long long) */
2252 return SWIG_From_unsigned_SS_long_SS_long SWIG_PERL_CALL_ARGS_1((unsigned long long)(value));
2253 }
2254 #endif
2255 }
2256
2257 #ifdef __cplusplus
2258 extern "C" {
2259 #endif
2260
2261 #ifdef PERL_OBJECT
2262 #define MAGIC_CLASS _wrap_Math__GSL__Linalg_var::
2263 class _wrap_Math__GSL__Linalg_var : public CPerlObj {
2264 public:
2265 #else
2266 #define MAGIC_CLASS
2267 #endif
swig_magic_readonly(pTHX_ SV * SWIGUNUSEDPARM (sv),MAGIC * SWIGUNUSEDPARM (mg))2268 SWIGCLASS_STATIC int swig_magic_readonly(pTHX_ SV *SWIGUNUSEDPARM(sv), MAGIC *SWIGUNUSEDPARM(mg)) {
2269 MAGIC_PPERL
2270 croak("Value is read-only.");
2271 return 0;
2272 }
2273
2274
2275 #ifdef PERL_OBJECT
2276 };
2277 #endif
2278
2279 #ifdef __cplusplus
2280 }
2281 #endif
2282
2283 #ifdef __cplusplus
2284 extern "C" {
2285 #endif
XS(_wrap_gsl_error)2286 XS(_wrap_gsl_error) {
2287 {
2288 char *arg1 = (char *) 0 ;
2289 char *arg2 = (char *) 0 ;
2290 int arg3 ;
2291 int arg4 ;
2292 int res1 ;
2293 char *buf1 = 0 ;
2294 int alloc1 = 0 ;
2295 int res2 ;
2296 char *buf2 = 0 ;
2297 int alloc2 = 0 ;
2298 int val3 ;
2299 int ecode3 = 0 ;
2300 int val4 ;
2301 int ecode4 = 0 ;
2302 int argvi = 0;
2303 dXSARGS;
2304
2305 if ((items < 4) || (items > 4)) {
2306 SWIG_croak("Usage: gsl_error(reason,file,line,gsl_errno);");
2307 }
2308 res1 = SWIG_AsCharPtrAndSize(ST(0), &buf1, NULL, &alloc1);
2309 if (!SWIG_IsOK(res1)) {
2310 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_error" "', argument " "1"" of type '" "char const *""'");
2311 }
2312 arg1 = (char *)(buf1);
2313 res2 = SWIG_AsCharPtrAndSize(ST(1), &buf2, NULL, &alloc2);
2314 if (!SWIG_IsOK(res2)) {
2315 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_error" "', argument " "2"" of type '" "char const *""'");
2316 }
2317 arg2 = (char *)(buf2);
2318 ecode3 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
2319 if (!SWIG_IsOK(ecode3)) {
2320 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_error" "', argument " "3"" of type '" "int""'");
2321 }
2322 arg3 = (int)(val3);
2323 ecode4 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(3), &val4);
2324 if (!SWIG_IsOK(ecode4)) {
2325 SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "gsl_error" "', argument " "4"" of type '" "int""'");
2326 }
2327 arg4 = (int)(val4);
2328 gsl_error((char const *)arg1,(char const *)arg2,arg3,arg4);
2329 ST(argvi) = &PL_sv_undef;
2330 if (alloc1 == SWIG_NEWOBJ) free((char*)buf1);
2331 if (alloc2 == SWIG_NEWOBJ) free((char*)buf2);
2332
2333
2334 XSRETURN(argvi);
2335 fail:
2336 if (alloc1 == SWIG_NEWOBJ) free((char*)buf1);
2337 if (alloc2 == SWIG_NEWOBJ) free((char*)buf2);
2338
2339
2340 SWIG_croak_null();
2341 }
2342 }
2343
2344
XS(_wrap_gsl_stream_printf)2345 XS(_wrap_gsl_stream_printf) {
2346 {
2347 char *arg1 = (char *) 0 ;
2348 char *arg2 = (char *) 0 ;
2349 int arg3 ;
2350 char *arg4 = (char *) 0 ;
2351 int res1 ;
2352 char *buf1 = 0 ;
2353 int alloc1 = 0 ;
2354 int res2 ;
2355 char *buf2 = 0 ;
2356 int alloc2 = 0 ;
2357 int val3 ;
2358 int ecode3 = 0 ;
2359 int res4 ;
2360 char *buf4 = 0 ;
2361 int alloc4 = 0 ;
2362 int argvi = 0;
2363 dXSARGS;
2364
2365 if ((items < 4) || (items > 4)) {
2366 SWIG_croak("Usage: gsl_stream_printf(label,file,line,reason);");
2367 }
2368 res1 = SWIG_AsCharPtrAndSize(ST(0), &buf1, NULL, &alloc1);
2369 if (!SWIG_IsOK(res1)) {
2370 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_stream_printf" "', argument " "1"" of type '" "char const *""'");
2371 }
2372 arg1 = (char *)(buf1);
2373 res2 = SWIG_AsCharPtrAndSize(ST(1), &buf2, NULL, &alloc2);
2374 if (!SWIG_IsOK(res2)) {
2375 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_stream_printf" "', argument " "2"" of type '" "char const *""'");
2376 }
2377 arg2 = (char *)(buf2);
2378 ecode3 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
2379 if (!SWIG_IsOK(ecode3)) {
2380 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_stream_printf" "', argument " "3"" of type '" "int""'");
2381 }
2382 arg3 = (int)(val3);
2383 res4 = SWIG_AsCharPtrAndSize(ST(3), &buf4, NULL, &alloc4);
2384 if (!SWIG_IsOK(res4)) {
2385 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_stream_printf" "', argument " "4"" of type '" "char const *""'");
2386 }
2387 arg4 = (char *)(buf4);
2388 gsl_stream_printf((char const *)arg1,(char const *)arg2,arg3,(char const *)arg4);
2389 ST(argvi) = &PL_sv_undef;
2390 if (alloc1 == SWIG_NEWOBJ) free((char*)buf1);
2391 if (alloc2 == SWIG_NEWOBJ) free((char*)buf2);
2392
2393 if (alloc4 == SWIG_NEWOBJ) free((char*)buf4);
2394 XSRETURN(argvi);
2395 fail:
2396 if (alloc1 == SWIG_NEWOBJ) free((char*)buf1);
2397 if (alloc2 == SWIG_NEWOBJ) free((char*)buf2);
2398
2399 if (alloc4 == SWIG_NEWOBJ) free((char*)buf4);
2400 SWIG_croak_null();
2401 }
2402 }
2403
2404
XS(_wrap_gsl_strerror)2405 XS(_wrap_gsl_strerror) {
2406 {
2407 int arg1 ;
2408 int val1 ;
2409 int ecode1 = 0 ;
2410 int argvi = 0;
2411 char *result = 0 ;
2412 dXSARGS;
2413
2414 if ((items < 1) || (items > 1)) {
2415 SWIG_croak("Usage: gsl_strerror(gsl_errno);");
2416 }
2417 ecode1 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
2418 if (!SWIG_IsOK(ecode1)) {
2419 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_strerror" "', argument " "1"" of type '" "int""'");
2420 }
2421 arg1 = (int)(val1);
2422 result = (char *)gsl_strerror(arg1);
2423 ST(argvi) = SWIG_FromCharPtr((const char *)result); argvi++ ;
2424
2425 XSRETURN(argvi);
2426 fail:
2427
2428 SWIG_croak_null();
2429 }
2430 }
2431
2432
XS(_wrap_gsl_set_error_handler)2433 XS(_wrap_gsl_set_error_handler) {
2434 {
2435 gsl_error_handler_t *arg1 = (gsl_error_handler_t *) 0 ;
2436 int argvi = 0;
2437 gsl_error_handler_t *result = 0 ;
2438 dXSARGS;
2439
2440 if ((items < 1) || (items > 1)) {
2441 SWIG_croak("Usage: gsl_set_error_handler(new_handler);");
2442 }
2443 {
2444 int res = SWIG_ConvertFunctionPtr(ST(0), (void**)(&arg1), SWIGTYPE_p_f_p_q_const__char_p_q_const__char_int_int__void);
2445 if (!SWIG_IsOK(res)) {
2446 SWIG_exception_fail(SWIG_ArgError(res), "in method '" "gsl_set_error_handler" "', argument " "1"" of type '" "gsl_error_handler_t *""'");
2447 }
2448 }
2449 result = (gsl_error_handler_t *)gsl_set_error_handler(arg1);
2450 ST(argvi) = SWIG_NewFunctionPtrObj((void *)(result), SWIGTYPE_p_f_p_q_const__char_p_q_const__char_int_int__void); argvi++ ;
2451
2452 XSRETURN(argvi);
2453 fail:
2454
2455 SWIG_croak_null();
2456 }
2457 }
2458
2459
XS(_wrap_gsl_set_error_handler_off)2460 XS(_wrap_gsl_set_error_handler_off) {
2461 {
2462 int argvi = 0;
2463 gsl_error_handler_t *result = 0 ;
2464 dXSARGS;
2465
2466 if ((items < 0) || (items > 0)) {
2467 SWIG_croak("Usage: gsl_set_error_handler_off();");
2468 }
2469 result = (gsl_error_handler_t *)gsl_set_error_handler_off();
2470 ST(argvi) = SWIG_NewFunctionPtrObj((void *)(result), SWIGTYPE_p_f_p_q_const__char_p_q_const__char_int_int__void); argvi++ ;
2471 XSRETURN(argvi);
2472 fail:
2473 SWIG_croak_null();
2474 }
2475 }
2476
2477
XS(_wrap_gsl_set_stream_handler)2478 XS(_wrap_gsl_set_stream_handler) {
2479 {
2480 gsl_stream_handler_t *arg1 = (gsl_stream_handler_t *) 0 ;
2481 int argvi = 0;
2482 gsl_stream_handler_t *result = 0 ;
2483 dXSARGS;
2484
2485 if ((items < 1) || (items > 1)) {
2486 SWIG_croak("Usage: gsl_set_stream_handler(new_handler);");
2487 }
2488 {
2489 int res = SWIG_ConvertFunctionPtr(ST(0), (void**)(&arg1), SWIGTYPE_p_f_p_q_const__char_p_q_const__char_int_p_q_const__char__void);
2490 if (!SWIG_IsOK(res)) {
2491 SWIG_exception_fail(SWIG_ArgError(res), "in method '" "gsl_set_stream_handler" "', argument " "1"" of type '" "gsl_stream_handler_t *""'");
2492 }
2493 }
2494 result = (gsl_stream_handler_t *)gsl_set_stream_handler(arg1);
2495 ST(argvi) = SWIG_NewFunctionPtrObj((void *)(result), SWIGTYPE_p_f_p_q_const__char_p_q_const__char_int_p_q_const__char__void); argvi++ ;
2496
2497 XSRETURN(argvi);
2498 fail:
2499
2500 SWIG_croak_null();
2501 }
2502 }
2503
2504
XS(_wrap_gsl_set_stream)2505 XS(_wrap_gsl_set_stream) {
2506 {
2507 FILE *arg1 = (FILE *) 0 ;
2508 void *argp1 = 0 ;
2509 int res1 = 0 ;
2510 int argvi = 0;
2511 FILE *result = 0 ;
2512 dXSARGS;
2513
2514 if ((items < 1) || (items > 1)) {
2515 SWIG_croak("Usage: gsl_set_stream(new_stream);");
2516 }
2517 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_FILE, 0 | 0 );
2518 if (!SWIG_IsOK(res1)) {
2519 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_set_stream" "', argument " "1"" of type '" "FILE *""'");
2520 }
2521 arg1 = (FILE *)(argp1);
2522 result = (FILE *)gsl_set_stream(arg1);
2523 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_FILE, 0 | 0); argvi++ ;
2524
2525 XSRETURN(argvi);
2526 fail:
2527
2528 SWIG_croak_null();
2529 }
2530 }
2531
2532
XS(_wrap_gsl_linalg_matmult)2533 XS(_wrap_gsl_linalg_matmult) {
2534 {
2535 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
2536 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
2537 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
2538 void *argp1 = 0 ;
2539 int res1 = 0 ;
2540 void *argp2 = 0 ;
2541 int res2 = 0 ;
2542 void *argp3 = 0 ;
2543 int res3 = 0 ;
2544 int argvi = 0;
2545 int result;
2546 dXSARGS;
2547
2548 if ((items < 3) || (items > 3)) {
2549 SWIG_croak("Usage: gsl_linalg_matmult(A,B,C);");
2550 }
2551 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
2552 if (!SWIG_IsOK(res1)) {
2553 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_matmult" "', argument " "1"" of type '" "gsl_matrix const *""'");
2554 }
2555 arg1 = (gsl_matrix *)(argp1);
2556 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
2557 if (!SWIG_IsOK(res2)) {
2558 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_matmult" "', argument " "2"" of type '" "gsl_matrix const *""'");
2559 }
2560 arg2 = (gsl_matrix *)(argp2);
2561 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
2562 if (!SWIG_IsOK(res3)) {
2563 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_matmult" "', argument " "3"" of type '" "gsl_matrix *""'");
2564 }
2565 arg3 = (gsl_matrix *)(argp3);
2566 result = (int)gsl_linalg_matmult((gsl_matrix const *)arg1,(gsl_matrix const *)arg2,arg3);
2567 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
2568
2569
2570
2571 XSRETURN(argvi);
2572 fail:
2573
2574
2575
2576 SWIG_croak_null();
2577 }
2578 }
2579
2580
XS(_wrap_gsl_linalg_matmult_mod)2581 XS(_wrap_gsl_linalg_matmult_mod) {
2582 {
2583 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
2584 gsl_linalg_matrix_mod_t arg2 ;
2585 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
2586 gsl_linalg_matrix_mod_t arg4 ;
2587 gsl_matrix *arg5 = (gsl_matrix *) 0 ;
2588 void *argp1 = 0 ;
2589 int res1 = 0 ;
2590 int val2 ;
2591 int ecode2 = 0 ;
2592 void *argp3 = 0 ;
2593 int res3 = 0 ;
2594 int val4 ;
2595 int ecode4 = 0 ;
2596 void *argp5 = 0 ;
2597 int res5 = 0 ;
2598 int argvi = 0;
2599 int result;
2600 dXSARGS;
2601
2602 if ((items < 5) || (items > 5)) {
2603 SWIG_croak("Usage: gsl_linalg_matmult_mod(A,modA,B,modB,C);");
2604 }
2605 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
2606 if (!SWIG_IsOK(res1)) {
2607 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_matmult_mod" "', argument " "1"" of type '" "gsl_matrix const *""'");
2608 }
2609 arg1 = (gsl_matrix *)(argp1);
2610 ecode2 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
2611 if (!SWIG_IsOK(ecode2)) {
2612 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_linalg_matmult_mod" "', argument " "2"" of type '" "gsl_linalg_matrix_mod_t""'");
2613 }
2614 arg2 = (gsl_linalg_matrix_mod_t)(val2);
2615 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
2616 if (!SWIG_IsOK(res3)) {
2617 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_matmult_mod" "', argument " "3"" of type '" "gsl_matrix const *""'");
2618 }
2619 arg3 = (gsl_matrix *)(argp3);
2620 ecode4 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(3), &val4);
2621 if (!SWIG_IsOK(ecode4)) {
2622 SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "gsl_linalg_matmult_mod" "', argument " "4"" of type '" "gsl_linalg_matrix_mod_t""'");
2623 }
2624 arg4 = (gsl_linalg_matrix_mod_t)(val4);
2625 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_matrix, 0 | 0 );
2626 if (!SWIG_IsOK(res5)) {
2627 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_matmult_mod" "', argument " "5"" of type '" "gsl_matrix *""'");
2628 }
2629 arg5 = (gsl_matrix *)(argp5);
2630 result = (int)gsl_linalg_matmult_mod((gsl_matrix const *)arg1,arg2,(gsl_matrix const *)arg3,arg4,arg5);
2631 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
2632
2633
2634
2635
2636
2637 XSRETURN(argvi);
2638 fail:
2639
2640
2641
2642
2643
2644 SWIG_croak_null();
2645 }
2646 }
2647
2648
XS(_wrap_gsl_linalg_exponential_ss)2649 XS(_wrap_gsl_linalg_exponential_ss) {
2650 {
2651 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
2652 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
2653 gsl_mode_t arg3 ;
2654 void *argp1 = 0 ;
2655 int res1 = 0 ;
2656 void *argp2 = 0 ;
2657 int res2 = 0 ;
2658 void *argp3 ;
2659 int res3 = 0 ;
2660 int argvi = 0;
2661 int result;
2662 dXSARGS;
2663
2664 if ((items < 3) || (items > 3)) {
2665 SWIG_croak("Usage: gsl_linalg_exponential_ss(A,eA,mode);");
2666 }
2667 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
2668 if (!SWIG_IsOK(res1)) {
2669 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_exponential_ss" "', argument " "1"" of type '" "gsl_matrix const *""'");
2670 }
2671 arg1 = (gsl_matrix *)(argp1);
2672 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
2673 if (!SWIG_IsOK(res2)) {
2674 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_exponential_ss" "', argument " "2"" of type '" "gsl_matrix *""'");
2675 }
2676 arg2 = (gsl_matrix *)(argp2);
2677 {
2678 res3 = SWIG_ConvertPtr(ST(2), &argp3, SWIGTYPE_p_gsl_mode_t, 0 );
2679 if (!SWIG_IsOK(res3)) {
2680 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_exponential_ss" "', argument " "3"" of type '" "gsl_mode_t""'");
2681 }
2682 if (!argp3) {
2683 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_linalg_exponential_ss" "', argument " "3"" of type '" "gsl_mode_t""'");
2684 } else {
2685 arg3 = *((gsl_mode_t *)(argp3));
2686 }
2687 }
2688 result = (int)gsl_linalg_exponential_ss((gsl_matrix const *)arg1,arg2,arg3);
2689 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
2690
2691
2692 XSRETURN(argvi);
2693 fail:
2694
2695
2696 SWIG_croak_null();
2697 }
2698 }
2699
2700
XS(_wrap_gsl_linalg_householder_transform)2701 XS(_wrap_gsl_linalg_householder_transform) {
2702 {
2703 gsl_vector *arg1 = (gsl_vector *) 0 ;
2704 void *argp1 = 0 ;
2705 int res1 = 0 ;
2706 int argvi = 0;
2707 double result;
2708 dXSARGS;
2709
2710 if ((items < 1) || (items > 1)) {
2711 SWIG_croak("Usage: gsl_linalg_householder_transform(v);");
2712 }
2713 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
2714 if (!SWIG_IsOK(res1)) {
2715 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_householder_transform" "', argument " "1"" of type '" "gsl_vector *""'");
2716 }
2717 arg1 = (gsl_vector *)(argp1);
2718 result = (double)gsl_linalg_householder_transform(arg1);
2719 ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(result)); argvi++ ;
2720
2721 XSRETURN(argvi);
2722 fail:
2723
2724 SWIG_croak_null();
2725 }
2726 }
2727
2728
XS(_wrap_gsl_linalg_complex_householder_transform)2729 XS(_wrap_gsl_linalg_complex_householder_transform) {
2730 {
2731 gsl_vector_complex *arg1 = (gsl_vector_complex *) 0 ;
2732 void *argp1 = 0 ;
2733 int res1 = 0 ;
2734 int argvi = 0;
2735 gsl_complex result;
2736 dXSARGS;
2737
2738 if ((items < 1) || (items > 1)) {
2739 SWIG_croak("Usage: gsl_linalg_complex_householder_transform(v);");
2740 }
2741 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
2742 if (!SWIG_IsOK(res1)) {
2743 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_complex_householder_transform" "', argument " "1"" of type '" "gsl_vector_complex *""'");
2744 }
2745 arg1 = (gsl_vector_complex *)(argp1);
2746 result = gsl_linalg_complex_householder_transform(arg1);
2747 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
2748
2749 XSRETURN(argvi);
2750 fail:
2751
2752 SWIG_croak_null();
2753 }
2754 }
2755
2756
XS(_wrap_gsl_linalg_householder_hm)2757 XS(_wrap_gsl_linalg_householder_hm) {
2758 {
2759 double arg1 ;
2760 gsl_vector *arg2 = (gsl_vector *) 0 ;
2761 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
2762 double val1 ;
2763 int ecode1 = 0 ;
2764 void *argp2 = 0 ;
2765 int res2 = 0 ;
2766 void *argp3 = 0 ;
2767 int res3 = 0 ;
2768 int argvi = 0;
2769 int result;
2770 dXSARGS;
2771
2772 if ((items < 3) || (items > 3)) {
2773 SWIG_croak("Usage: gsl_linalg_householder_hm(tau,v,A);");
2774 }
2775 ecode1 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
2776 if (!SWIG_IsOK(ecode1)) {
2777 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_linalg_householder_hm" "', argument " "1"" of type '" "double""'");
2778 }
2779 arg1 = (double)(val1);
2780 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
2781 if (!SWIG_IsOK(res2)) {
2782 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_householder_hm" "', argument " "2"" of type '" "gsl_vector const *""'");
2783 }
2784 arg2 = (gsl_vector *)(argp2);
2785 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
2786 if (!SWIG_IsOK(res3)) {
2787 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_householder_hm" "', argument " "3"" of type '" "gsl_matrix *""'");
2788 }
2789 arg3 = (gsl_matrix *)(argp3);
2790 result = (int)gsl_linalg_householder_hm(arg1,(gsl_vector const *)arg2,arg3);
2791 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
2792
2793
2794
2795 XSRETURN(argvi);
2796 fail:
2797
2798
2799
2800 SWIG_croak_null();
2801 }
2802 }
2803
2804
XS(_wrap_gsl_linalg_householder_mh)2805 XS(_wrap_gsl_linalg_householder_mh) {
2806 {
2807 double arg1 ;
2808 gsl_vector *arg2 = (gsl_vector *) 0 ;
2809 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
2810 double val1 ;
2811 int ecode1 = 0 ;
2812 void *argp2 = 0 ;
2813 int res2 = 0 ;
2814 void *argp3 = 0 ;
2815 int res3 = 0 ;
2816 int argvi = 0;
2817 int result;
2818 dXSARGS;
2819
2820 if ((items < 3) || (items > 3)) {
2821 SWIG_croak("Usage: gsl_linalg_householder_mh(tau,v,A);");
2822 }
2823 ecode1 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
2824 if (!SWIG_IsOK(ecode1)) {
2825 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_linalg_householder_mh" "', argument " "1"" of type '" "double""'");
2826 }
2827 arg1 = (double)(val1);
2828 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
2829 if (!SWIG_IsOK(res2)) {
2830 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_householder_mh" "', argument " "2"" of type '" "gsl_vector const *""'");
2831 }
2832 arg2 = (gsl_vector *)(argp2);
2833 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
2834 if (!SWIG_IsOK(res3)) {
2835 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_householder_mh" "', argument " "3"" of type '" "gsl_matrix *""'");
2836 }
2837 arg3 = (gsl_matrix *)(argp3);
2838 result = (int)gsl_linalg_householder_mh(arg1,(gsl_vector const *)arg2,arg3);
2839 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
2840
2841
2842
2843 XSRETURN(argvi);
2844 fail:
2845
2846
2847
2848 SWIG_croak_null();
2849 }
2850 }
2851
2852
XS(_wrap_gsl_linalg_householder_hv)2853 XS(_wrap_gsl_linalg_householder_hv) {
2854 {
2855 double arg1 ;
2856 gsl_vector *arg2 = (gsl_vector *) 0 ;
2857 gsl_vector *arg3 = (gsl_vector *) 0 ;
2858 double val1 ;
2859 int ecode1 = 0 ;
2860 void *argp2 = 0 ;
2861 int res2 = 0 ;
2862 void *argp3 = 0 ;
2863 int res3 = 0 ;
2864 int argvi = 0;
2865 int result;
2866 dXSARGS;
2867
2868 if ((items < 3) || (items > 3)) {
2869 SWIG_croak("Usage: gsl_linalg_householder_hv(tau,v,w);");
2870 }
2871 ecode1 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
2872 if (!SWIG_IsOK(ecode1)) {
2873 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_linalg_householder_hv" "', argument " "1"" of type '" "double""'");
2874 }
2875 arg1 = (double)(val1);
2876 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
2877 if (!SWIG_IsOK(res2)) {
2878 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_householder_hv" "', argument " "2"" of type '" "gsl_vector const *""'");
2879 }
2880 arg2 = (gsl_vector *)(argp2);
2881 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
2882 if (!SWIG_IsOK(res3)) {
2883 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_householder_hv" "', argument " "3"" of type '" "gsl_vector *""'");
2884 }
2885 arg3 = (gsl_vector *)(argp3);
2886 result = (int)gsl_linalg_householder_hv(arg1,(gsl_vector const *)arg2,arg3);
2887 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
2888
2889
2890
2891 XSRETURN(argvi);
2892 fail:
2893
2894
2895
2896 SWIG_croak_null();
2897 }
2898 }
2899
2900
XS(_wrap_gsl_linalg_householder_hm1)2901 XS(_wrap_gsl_linalg_householder_hm1) {
2902 {
2903 double arg1 ;
2904 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
2905 double val1 ;
2906 int ecode1 = 0 ;
2907 void *argp2 = 0 ;
2908 int res2 = 0 ;
2909 int argvi = 0;
2910 int result;
2911 dXSARGS;
2912
2913 if ((items < 2) || (items > 2)) {
2914 SWIG_croak("Usage: gsl_linalg_householder_hm1(tau,A);");
2915 }
2916 ecode1 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
2917 if (!SWIG_IsOK(ecode1)) {
2918 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_linalg_householder_hm1" "', argument " "1"" of type '" "double""'");
2919 }
2920 arg1 = (double)(val1);
2921 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
2922 if (!SWIG_IsOK(res2)) {
2923 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_householder_hm1" "', argument " "2"" of type '" "gsl_matrix *""'");
2924 }
2925 arg2 = (gsl_matrix *)(argp2);
2926 result = (int)gsl_linalg_householder_hm1(arg1,arg2);
2927 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
2928
2929
2930 XSRETURN(argvi);
2931 fail:
2932
2933
2934 SWIG_croak_null();
2935 }
2936 }
2937
2938
XS(_wrap_gsl_linalg_complex_householder_hm)2939 XS(_wrap_gsl_linalg_complex_householder_hm) {
2940 {
2941 gsl_complex arg1 ;
2942 gsl_vector_complex *arg2 = (gsl_vector_complex *) 0 ;
2943 gsl_matrix_complex *arg3 = (gsl_matrix_complex *) 0 ;
2944 void *argp1 ;
2945 int res1 = 0 ;
2946 void *argp2 = 0 ;
2947 int res2 = 0 ;
2948 void *argp3 = 0 ;
2949 int res3 = 0 ;
2950 int argvi = 0;
2951 int result;
2952 dXSARGS;
2953
2954 if ((items < 3) || (items > 3)) {
2955 SWIG_croak("Usage: gsl_linalg_complex_householder_hm(tau,v,A);");
2956 }
2957 {
2958 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
2959 if (!SWIG_IsOK(res1)) {
2960 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_complex_householder_hm" "', argument " "1"" of type '" "gsl_complex""'");
2961 }
2962 if (!argp1) {
2963 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_linalg_complex_householder_hm" "', argument " "1"" of type '" "gsl_complex""'");
2964 } else {
2965 arg1 = *((gsl_complex *)(argp1));
2966 }
2967 }
2968 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
2969 if (!SWIG_IsOK(res2)) {
2970 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_complex_householder_hm" "', argument " "2"" of type '" "gsl_vector_complex const *""'");
2971 }
2972 arg2 = (gsl_vector_complex *)(argp2);
2973 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
2974 if (!SWIG_IsOK(res3)) {
2975 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_complex_householder_hm" "', argument " "3"" of type '" "gsl_matrix_complex *""'");
2976 }
2977 arg3 = (gsl_matrix_complex *)(argp3);
2978 result = (int)gsl_linalg_complex_householder_hm(arg1,(gsl_vector_complex const *)arg2,arg3);
2979 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
2980
2981
2982 XSRETURN(argvi);
2983 fail:
2984
2985
2986 SWIG_croak_null();
2987 }
2988 }
2989
2990
XS(_wrap_gsl_linalg_complex_householder_mh)2991 XS(_wrap_gsl_linalg_complex_householder_mh) {
2992 {
2993 gsl_complex arg1 ;
2994 gsl_vector_complex *arg2 = (gsl_vector_complex *) 0 ;
2995 gsl_matrix_complex *arg3 = (gsl_matrix_complex *) 0 ;
2996 void *argp1 ;
2997 int res1 = 0 ;
2998 void *argp2 = 0 ;
2999 int res2 = 0 ;
3000 void *argp3 = 0 ;
3001 int res3 = 0 ;
3002 int argvi = 0;
3003 int result;
3004 dXSARGS;
3005
3006 if ((items < 3) || (items > 3)) {
3007 SWIG_croak("Usage: gsl_linalg_complex_householder_mh(tau,v,A);");
3008 }
3009 {
3010 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
3011 if (!SWIG_IsOK(res1)) {
3012 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_complex_householder_mh" "', argument " "1"" of type '" "gsl_complex""'");
3013 }
3014 if (!argp1) {
3015 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_linalg_complex_householder_mh" "', argument " "1"" of type '" "gsl_complex""'");
3016 } else {
3017 arg1 = *((gsl_complex *)(argp1));
3018 }
3019 }
3020 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
3021 if (!SWIG_IsOK(res2)) {
3022 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_complex_householder_mh" "', argument " "2"" of type '" "gsl_vector_complex const *""'");
3023 }
3024 arg2 = (gsl_vector_complex *)(argp2);
3025 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
3026 if (!SWIG_IsOK(res3)) {
3027 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_complex_householder_mh" "', argument " "3"" of type '" "gsl_matrix_complex *""'");
3028 }
3029 arg3 = (gsl_matrix_complex *)(argp3);
3030 result = (int)gsl_linalg_complex_householder_mh(arg1,(gsl_vector_complex const *)arg2,arg3);
3031 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3032
3033
3034 XSRETURN(argvi);
3035 fail:
3036
3037
3038 SWIG_croak_null();
3039 }
3040 }
3041
3042
XS(_wrap_gsl_linalg_complex_householder_hv)3043 XS(_wrap_gsl_linalg_complex_householder_hv) {
3044 {
3045 gsl_complex arg1 ;
3046 gsl_vector_complex *arg2 = (gsl_vector_complex *) 0 ;
3047 gsl_vector_complex *arg3 = (gsl_vector_complex *) 0 ;
3048 void *argp1 ;
3049 int res1 = 0 ;
3050 void *argp2 = 0 ;
3051 int res2 = 0 ;
3052 void *argp3 = 0 ;
3053 int res3 = 0 ;
3054 int argvi = 0;
3055 int result;
3056 dXSARGS;
3057
3058 if ((items < 3) || (items > 3)) {
3059 SWIG_croak("Usage: gsl_linalg_complex_householder_hv(tau,v,w);");
3060 }
3061 {
3062 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
3063 if (!SWIG_IsOK(res1)) {
3064 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_complex_householder_hv" "', argument " "1"" of type '" "gsl_complex""'");
3065 }
3066 if (!argp1) {
3067 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_linalg_complex_householder_hv" "', argument " "1"" of type '" "gsl_complex""'");
3068 } else {
3069 arg1 = *((gsl_complex *)(argp1));
3070 }
3071 }
3072 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
3073 if (!SWIG_IsOK(res2)) {
3074 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_complex_householder_hv" "', argument " "2"" of type '" "gsl_vector_complex const *""'");
3075 }
3076 arg2 = (gsl_vector_complex *)(argp2);
3077 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
3078 if (!SWIG_IsOK(res3)) {
3079 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_complex_householder_hv" "', argument " "3"" of type '" "gsl_vector_complex *""'");
3080 }
3081 arg3 = (gsl_vector_complex *)(argp3);
3082 result = (int)gsl_linalg_complex_householder_hv(arg1,(gsl_vector_complex const *)arg2,arg3);
3083 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3084
3085
3086 XSRETURN(argvi);
3087 fail:
3088
3089
3090 SWIG_croak_null();
3091 }
3092 }
3093
3094
XS(_wrap_gsl_linalg_hessenberg_decomp)3095 XS(_wrap_gsl_linalg_hessenberg_decomp) {
3096 {
3097 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
3098 gsl_vector *arg2 = (gsl_vector *) 0 ;
3099 void *argp1 = 0 ;
3100 int res1 = 0 ;
3101 void *argp2 = 0 ;
3102 int res2 = 0 ;
3103 int argvi = 0;
3104 int result;
3105 dXSARGS;
3106
3107 if ((items < 2) || (items > 2)) {
3108 SWIG_croak("Usage: gsl_linalg_hessenberg_decomp(A,tau);");
3109 }
3110 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3111 if (!SWIG_IsOK(res1)) {
3112 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_hessenberg_decomp" "', argument " "1"" of type '" "gsl_matrix *""'");
3113 }
3114 arg1 = (gsl_matrix *)(argp1);
3115 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
3116 if (!SWIG_IsOK(res2)) {
3117 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_hessenberg_decomp" "', argument " "2"" of type '" "gsl_vector *""'");
3118 }
3119 arg2 = (gsl_vector *)(argp2);
3120 result = (int)gsl_linalg_hessenberg_decomp(arg1,arg2);
3121 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3122
3123
3124 XSRETURN(argvi);
3125 fail:
3126
3127
3128 SWIG_croak_null();
3129 }
3130 }
3131
3132
XS(_wrap_gsl_linalg_hessenberg_unpack)3133 XS(_wrap_gsl_linalg_hessenberg_unpack) {
3134 {
3135 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
3136 gsl_vector *arg2 = (gsl_vector *) 0 ;
3137 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
3138 void *argp1 = 0 ;
3139 int res1 = 0 ;
3140 void *argp2 = 0 ;
3141 int res2 = 0 ;
3142 void *argp3 = 0 ;
3143 int res3 = 0 ;
3144 int argvi = 0;
3145 int result;
3146 dXSARGS;
3147
3148 if ((items < 3) || (items > 3)) {
3149 SWIG_croak("Usage: gsl_linalg_hessenberg_unpack(H,tau,U);");
3150 }
3151 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3152 if (!SWIG_IsOK(res1)) {
3153 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_hessenberg_unpack" "', argument " "1"" of type '" "gsl_matrix *""'");
3154 }
3155 arg1 = (gsl_matrix *)(argp1);
3156 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
3157 if (!SWIG_IsOK(res2)) {
3158 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_hessenberg_unpack" "', argument " "2"" of type '" "gsl_vector *""'");
3159 }
3160 arg2 = (gsl_vector *)(argp2);
3161 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3162 if (!SWIG_IsOK(res3)) {
3163 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_hessenberg_unpack" "', argument " "3"" of type '" "gsl_matrix *""'");
3164 }
3165 arg3 = (gsl_matrix *)(argp3);
3166 result = (int)gsl_linalg_hessenberg_unpack(arg1,arg2,arg3);
3167 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3168
3169
3170
3171 XSRETURN(argvi);
3172 fail:
3173
3174
3175
3176 SWIG_croak_null();
3177 }
3178 }
3179
3180
XS(_wrap_gsl_linalg_hessenberg_unpack_accum)3181 XS(_wrap_gsl_linalg_hessenberg_unpack_accum) {
3182 {
3183 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
3184 gsl_vector *arg2 = (gsl_vector *) 0 ;
3185 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
3186 void *argp1 = 0 ;
3187 int res1 = 0 ;
3188 void *argp2 = 0 ;
3189 int res2 = 0 ;
3190 void *argp3 = 0 ;
3191 int res3 = 0 ;
3192 int argvi = 0;
3193 int result;
3194 dXSARGS;
3195
3196 if ((items < 3) || (items > 3)) {
3197 SWIG_croak("Usage: gsl_linalg_hessenberg_unpack_accum(H,tau,U);");
3198 }
3199 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3200 if (!SWIG_IsOK(res1)) {
3201 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_hessenberg_unpack_accum" "', argument " "1"" of type '" "gsl_matrix *""'");
3202 }
3203 arg1 = (gsl_matrix *)(argp1);
3204 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
3205 if (!SWIG_IsOK(res2)) {
3206 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_hessenberg_unpack_accum" "', argument " "2"" of type '" "gsl_vector *""'");
3207 }
3208 arg2 = (gsl_vector *)(argp2);
3209 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3210 if (!SWIG_IsOK(res3)) {
3211 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_hessenberg_unpack_accum" "', argument " "3"" of type '" "gsl_matrix *""'");
3212 }
3213 arg3 = (gsl_matrix *)(argp3);
3214 result = (int)gsl_linalg_hessenberg_unpack_accum(arg1,arg2,arg3);
3215 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3216
3217
3218
3219 XSRETURN(argvi);
3220 fail:
3221
3222
3223
3224 SWIG_croak_null();
3225 }
3226 }
3227
3228
XS(_wrap_gsl_linalg_hessenberg_set_zero)3229 XS(_wrap_gsl_linalg_hessenberg_set_zero) {
3230 {
3231 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
3232 void *argp1 = 0 ;
3233 int res1 = 0 ;
3234 int argvi = 0;
3235 int result;
3236 dXSARGS;
3237
3238 if ((items < 1) || (items > 1)) {
3239 SWIG_croak("Usage: gsl_linalg_hessenberg_set_zero(H);");
3240 }
3241 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3242 if (!SWIG_IsOK(res1)) {
3243 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_hessenberg_set_zero" "', argument " "1"" of type '" "gsl_matrix *""'");
3244 }
3245 arg1 = (gsl_matrix *)(argp1);
3246 result = (int)gsl_linalg_hessenberg_set_zero(arg1);
3247 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3248
3249 XSRETURN(argvi);
3250 fail:
3251
3252 SWIG_croak_null();
3253 }
3254 }
3255
3256
XS(_wrap_gsl_linalg_hessenberg_submatrix)3257 XS(_wrap_gsl_linalg_hessenberg_submatrix) {
3258 {
3259 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
3260 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
3261 size_t arg3 ;
3262 gsl_vector *arg4 = (gsl_vector *) 0 ;
3263 void *argp1 = 0 ;
3264 int res1 = 0 ;
3265 void *argp2 = 0 ;
3266 int res2 = 0 ;
3267 size_t val3 ;
3268 int ecode3 = 0 ;
3269 void *argp4 = 0 ;
3270 int res4 = 0 ;
3271 int argvi = 0;
3272 int result;
3273 dXSARGS;
3274
3275 if ((items < 4) || (items > 4)) {
3276 SWIG_croak("Usage: gsl_linalg_hessenberg_submatrix(M,A,top,tau);");
3277 }
3278 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3279 if (!SWIG_IsOK(res1)) {
3280 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_hessenberg_submatrix" "', argument " "1"" of type '" "gsl_matrix *""'");
3281 }
3282 arg1 = (gsl_matrix *)(argp1);
3283 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3284 if (!SWIG_IsOK(res2)) {
3285 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_hessenberg_submatrix" "', argument " "2"" of type '" "gsl_matrix *""'");
3286 }
3287 arg2 = (gsl_matrix *)(argp2);
3288 ecode3 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
3289 if (!SWIG_IsOK(ecode3)) {
3290 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_linalg_hessenberg_submatrix" "', argument " "3"" of type '" "size_t""'");
3291 }
3292 arg3 = (size_t)(val3);
3293 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
3294 if (!SWIG_IsOK(res4)) {
3295 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_hessenberg_submatrix" "', argument " "4"" of type '" "gsl_vector *""'");
3296 }
3297 arg4 = (gsl_vector *)(argp4);
3298 result = (int)gsl_linalg_hessenberg_submatrix(arg1,arg2,arg3,arg4);
3299 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3300
3301
3302
3303
3304 XSRETURN(argvi);
3305 fail:
3306
3307
3308
3309
3310 SWIG_croak_null();
3311 }
3312 }
3313
3314
XS(_wrap_gsl_linalg_hesstri_decomp)3315 XS(_wrap_gsl_linalg_hesstri_decomp) {
3316 {
3317 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
3318 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
3319 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
3320 gsl_matrix *arg4 = (gsl_matrix *) 0 ;
3321 gsl_vector *arg5 = (gsl_vector *) 0 ;
3322 void *argp1 = 0 ;
3323 int res1 = 0 ;
3324 void *argp2 = 0 ;
3325 int res2 = 0 ;
3326 void *argp3 = 0 ;
3327 int res3 = 0 ;
3328 void *argp4 = 0 ;
3329 int res4 = 0 ;
3330 void *argp5 = 0 ;
3331 int res5 = 0 ;
3332 int argvi = 0;
3333 int result;
3334 dXSARGS;
3335
3336 if ((items < 5) || (items > 5)) {
3337 SWIG_croak("Usage: gsl_linalg_hesstri_decomp(A,B,U,V,work);");
3338 }
3339 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3340 if (!SWIG_IsOK(res1)) {
3341 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_hesstri_decomp" "', argument " "1"" of type '" "gsl_matrix *""'");
3342 }
3343 arg1 = (gsl_matrix *)(argp1);
3344 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3345 if (!SWIG_IsOK(res2)) {
3346 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_hesstri_decomp" "', argument " "2"" of type '" "gsl_matrix *""'");
3347 }
3348 arg2 = (gsl_matrix *)(argp2);
3349 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3350 if (!SWIG_IsOK(res3)) {
3351 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_hesstri_decomp" "', argument " "3"" of type '" "gsl_matrix *""'");
3352 }
3353 arg3 = (gsl_matrix *)(argp3);
3354 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3355 if (!SWIG_IsOK(res4)) {
3356 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_hesstri_decomp" "', argument " "4"" of type '" "gsl_matrix *""'");
3357 }
3358 arg4 = (gsl_matrix *)(argp4);
3359 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
3360 if (!SWIG_IsOK(res5)) {
3361 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_hesstri_decomp" "', argument " "5"" of type '" "gsl_vector *""'");
3362 }
3363 arg5 = (gsl_vector *)(argp5);
3364 result = (int)gsl_linalg_hesstri_decomp(arg1,arg2,arg3,arg4,arg5);
3365 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3366
3367
3368
3369
3370
3371 XSRETURN(argvi);
3372 fail:
3373
3374
3375
3376
3377
3378 SWIG_croak_null();
3379 }
3380 }
3381
3382
XS(_wrap_gsl_linalg_SV_decomp)3383 XS(_wrap_gsl_linalg_SV_decomp) {
3384 {
3385 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
3386 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
3387 gsl_vector *arg3 = (gsl_vector *) 0 ;
3388 gsl_vector *arg4 = (gsl_vector *) 0 ;
3389 void *argp1 = 0 ;
3390 int res1 = 0 ;
3391 void *argp2 = 0 ;
3392 int res2 = 0 ;
3393 void *argp3 = 0 ;
3394 int res3 = 0 ;
3395 void *argp4 = 0 ;
3396 int res4 = 0 ;
3397 int argvi = 0;
3398 int result;
3399 dXSARGS;
3400
3401 if ((items < 4) || (items > 4)) {
3402 SWIG_croak("Usage: gsl_linalg_SV_decomp(A,V,S,work);");
3403 }
3404 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3405 if (!SWIG_IsOK(res1)) {
3406 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_SV_decomp" "', argument " "1"" of type '" "gsl_matrix *""'");
3407 }
3408 arg1 = (gsl_matrix *)(argp1);
3409 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3410 if (!SWIG_IsOK(res2)) {
3411 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_SV_decomp" "', argument " "2"" of type '" "gsl_matrix *""'");
3412 }
3413 arg2 = (gsl_matrix *)(argp2);
3414 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
3415 if (!SWIG_IsOK(res3)) {
3416 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_SV_decomp" "', argument " "3"" of type '" "gsl_vector *""'");
3417 }
3418 arg3 = (gsl_vector *)(argp3);
3419 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
3420 if (!SWIG_IsOK(res4)) {
3421 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_SV_decomp" "', argument " "4"" of type '" "gsl_vector *""'");
3422 }
3423 arg4 = (gsl_vector *)(argp4);
3424 result = (int)gsl_linalg_SV_decomp(arg1,arg2,arg3,arg4);
3425 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3426
3427
3428
3429
3430 XSRETURN(argvi);
3431 fail:
3432
3433
3434
3435
3436 SWIG_croak_null();
3437 }
3438 }
3439
3440
XS(_wrap_gsl_linalg_SV_decomp_mod)3441 XS(_wrap_gsl_linalg_SV_decomp_mod) {
3442 {
3443 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
3444 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
3445 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
3446 gsl_vector *arg4 = (gsl_vector *) 0 ;
3447 gsl_vector *arg5 = (gsl_vector *) 0 ;
3448 void *argp1 = 0 ;
3449 int res1 = 0 ;
3450 void *argp2 = 0 ;
3451 int res2 = 0 ;
3452 void *argp3 = 0 ;
3453 int res3 = 0 ;
3454 void *argp4 = 0 ;
3455 int res4 = 0 ;
3456 void *argp5 = 0 ;
3457 int res5 = 0 ;
3458 int argvi = 0;
3459 int result;
3460 dXSARGS;
3461
3462 if ((items < 5) || (items > 5)) {
3463 SWIG_croak("Usage: gsl_linalg_SV_decomp_mod(A,X,V,S,work);");
3464 }
3465 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3466 if (!SWIG_IsOK(res1)) {
3467 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_SV_decomp_mod" "', argument " "1"" of type '" "gsl_matrix *""'");
3468 }
3469 arg1 = (gsl_matrix *)(argp1);
3470 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3471 if (!SWIG_IsOK(res2)) {
3472 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_SV_decomp_mod" "', argument " "2"" of type '" "gsl_matrix *""'");
3473 }
3474 arg2 = (gsl_matrix *)(argp2);
3475 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3476 if (!SWIG_IsOK(res3)) {
3477 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_SV_decomp_mod" "', argument " "3"" of type '" "gsl_matrix *""'");
3478 }
3479 arg3 = (gsl_matrix *)(argp3);
3480 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
3481 if (!SWIG_IsOK(res4)) {
3482 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_SV_decomp_mod" "', argument " "4"" of type '" "gsl_vector *""'");
3483 }
3484 arg4 = (gsl_vector *)(argp4);
3485 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
3486 if (!SWIG_IsOK(res5)) {
3487 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_SV_decomp_mod" "', argument " "5"" of type '" "gsl_vector *""'");
3488 }
3489 arg5 = (gsl_vector *)(argp5);
3490 result = (int)gsl_linalg_SV_decomp_mod(arg1,arg2,arg3,arg4,arg5);
3491 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3492
3493
3494
3495
3496
3497 XSRETURN(argvi);
3498 fail:
3499
3500
3501
3502
3503
3504 SWIG_croak_null();
3505 }
3506 }
3507
3508
XS(_wrap_gsl_linalg_SV_decomp_jacobi)3509 XS(_wrap_gsl_linalg_SV_decomp_jacobi) {
3510 {
3511 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
3512 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
3513 gsl_vector *arg3 = (gsl_vector *) 0 ;
3514 void *argp1 = 0 ;
3515 int res1 = 0 ;
3516 void *argp2 = 0 ;
3517 int res2 = 0 ;
3518 void *argp3 = 0 ;
3519 int res3 = 0 ;
3520 int argvi = 0;
3521 int result;
3522 dXSARGS;
3523
3524 if ((items < 3) || (items > 3)) {
3525 SWIG_croak("Usage: gsl_linalg_SV_decomp_jacobi(A,Q,S);");
3526 }
3527 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3528 if (!SWIG_IsOK(res1)) {
3529 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_SV_decomp_jacobi" "', argument " "1"" of type '" "gsl_matrix *""'");
3530 }
3531 arg1 = (gsl_matrix *)(argp1);
3532 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3533 if (!SWIG_IsOK(res2)) {
3534 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_SV_decomp_jacobi" "', argument " "2"" of type '" "gsl_matrix *""'");
3535 }
3536 arg2 = (gsl_matrix *)(argp2);
3537 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
3538 if (!SWIG_IsOK(res3)) {
3539 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_SV_decomp_jacobi" "', argument " "3"" of type '" "gsl_vector *""'");
3540 }
3541 arg3 = (gsl_vector *)(argp3);
3542 result = (int)gsl_linalg_SV_decomp_jacobi(arg1,arg2,arg3);
3543 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3544
3545
3546
3547 XSRETURN(argvi);
3548 fail:
3549
3550
3551
3552 SWIG_croak_null();
3553 }
3554 }
3555
3556
XS(_wrap_gsl_linalg_SV_solve)3557 XS(_wrap_gsl_linalg_SV_solve) {
3558 {
3559 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
3560 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
3561 gsl_vector *arg3 = (gsl_vector *) 0 ;
3562 gsl_vector *arg4 = (gsl_vector *) 0 ;
3563 gsl_vector *arg5 = (gsl_vector *) 0 ;
3564 void *argp1 = 0 ;
3565 int res1 = 0 ;
3566 void *argp2 = 0 ;
3567 int res2 = 0 ;
3568 void *argp3 = 0 ;
3569 int res3 = 0 ;
3570 void *argp4 = 0 ;
3571 int res4 = 0 ;
3572 void *argp5 = 0 ;
3573 int res5 = 0 ;
3574 int argvi = 0;
3575 int result;
3576 dXSARGS;
3577
3578 if ((items < 5) || (items > 5)) {
3579 SWIG_croak("Usage: gsl_linalg_SV_solve(U,Q,S,b,x);");
3580 }
3581 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3582 if (!SWIG_IsOK(res1)) {
3583 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_SV_solve" "', argument " "1"" of type '" "gsl_matrix const *""'");
3584 }
3585 arg1 = (gsl_matrix *)(argp1);
3586 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3587 if (!SWIG_IsOK(res2)) {
3588 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_SV_solve" "', argument " "2"" of type '" "gsl_matrix const *""'");
3589 }
3590 arg2 = (gsl_matrix *)(argp2);
3591 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
3592 if (!SWIG_IsOK(res3)) {
3593 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_SV_solve" "', argument " "3"" of type '" "gsl_vector const *""'");
3594 }
3595 arg3 = (gsl_vector *)(argp3);
3596 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
3597 if (!SWIG_IsOK(res4)) {
3598 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_SV_solve" "', argument " "4"" of type '" "gsl_vector const *""'");
3599 }
3600 arg4 = (gsl_vector *)(argp4);
3601 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
3602 if (!SWIG_IsOK(res5)) {
3603 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_SV_solve" "', argument " "5"" of type '" "gsl_vector *""'");
3604 }
3605 arg5 = (gsl_vector *)(argp5);
3606 result = (int)gsl_linalg_SV_solve((gsl_matrix const *)arg1,(gsl_matrix const *)arg2,(gsl_vector const *)arg3,(gsl_vector const *)arg4,arg5);
3607 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3608
3609
3610
3611
3612
3613 XSRETURN(argvi);
3614 fail:
3615
3616
3617
3618
3619
3620 SWIG_croak_null();
3621 }
3622 }
3623
3624
XS(_wrap_gsl_linalg_LU_decomp)3625 XS(_wrap_gsl_linalg_LU_decomp) {
3626 {
3627 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
3628 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
3629 int *arg3 = (int *) 0 ;
3630 void *argp1 = 0 ;
3631 int res1 = 0 ;
3632 void *argp2 = 0 ;
3633 int res2 = 0 ;
3634 int temp3 ;
3635 int res3 = SWIG_TMPOBJ ;
3636 int argvi = 0;
3637 int result;
3638 dXSARGS;
3639
3640 arg3 = &temp3;
3641 if ((items < 2) || (items > 2)) {
3642 SWIG_croak("Usage: gsl_linalg_LU_decomp(A,p);");
3643 }
3644 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3645 if (!SWIG_IsOK(res1)) {
3646 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LU_decomp" "', argument " "1"" of type '" "gsl_matrix *""'");
3647 }
3648 arg1 = (gsl_matrix *)(argp1);
3649 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
3650 if (!SWIG_IsOK(res2)) {
3651 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_LU_decomp" "', argument " "2"" of type '" "gsl_permutation *""'");
3652 }
3653 arg2 = (gsl_permutation *)(argp2);
3654 result = (int)gsl_linalg_LU_decomp(arg1,arg2,arg3);
3655 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3656 if (SWIG_IsTmpObj(res3)) {
3657 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((*arg3)); argvi++ ;
3658 } else {
3659 int new_flags = SWIG_IsNewObj(res3) ? (SWIG_POINTER_OWN | 0) : 0;
3660 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg3), SWIGTYPE_p_int, new_flags); argvi++ ;
3661 }
3662
3663
3664
3665 XSRETURN(argvi);
3666 fail:
3667
3668
3669
3670 SWIG_croak_null();
3671 }
3672 }
3673
3674
XS(_wrap_gsl_linalg_LU_solve)3675 XS(_wrap_gsl_linalg_LU_solve) {
3676 {
3677 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
3678 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
3679 gsl_vector *arg3 = (gsl_vector *) 0 ;
3680 gsl_vector *arg4 = (gsl_vector *) 0 ;
3681 void *argp1 = 0 ;
3682 int res1 = 0 ;
3683 void *argp2 = 0 ;
3684 int res2 = 0 ;
3685 void *argp3 = 0 ;
3686 int res3 = 0 ;
3687 void *argp4 = 0 ;
3688 int res4 = 0 ;
3689 int argvi = 0;
3690 int result;
3691 dXSARGS;
3692
3693 if ((items < 4) || (items > 4)) {
3694 SWIG_croak("Usage: gsl_linalg_LU_solve(LU,p,b,x);");
3695 }
3696 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3697 if (!SWIG_IsOK(res1)) {
3698 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LU_solve" "', argument " "1"" of type '" "gsl_matrix const *""'");
3699 }
3700 arg1 = (gsl_matrix *)(argp1);
3701 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
3702 if (!SWIG_IsOK(res2)) {
3703 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_LU_solve" "', argument " "2"" of type '" "gsl_permutation const *""'");
3704 }
3705 arg2 = (gsl_permutation *)(argp2);
3706 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
3707 if (!SWIG_IsOK(res3)) {
3708 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_LU_solve" "', argument " "3"" of type '" "gsl_vector const *""'");
3709 }
3710 arg3 = (gsl_vector *)(argp3);
3711 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
3712 if (!SWIG_IsOK(res4)) {
3713 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_LU_solve" "', argument " "4"" of type '" "gsl_vector *""'");
3714 }
3715 arg4 = (gsl_vector *)(argp4);
3716 result = (int)gsl_linalg_LU_solve((gsl_matrix const *)arg1,(struct gsl_permutation_struct const *)arg2,(gsl_vector const *)arg3,arg4);
3717 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3718
3719
3720
3721
3722 XSRETURN(argvi);
3723 fail:
3724
3725
3726
3727
3728 SWIG_croak_null();
3729 }
3730 }
3731
3732
XS(_wrap_gsl_linalg_LU_svx)3733 XS(_wrap_gsl_linalg_LU_svx) {
3734 {
3735 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
3736 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
3737 gsl_vector *arg3 = (gsl_vector *) 0 ;
3738 void *argp1 = 0 ;
3739 int res1 = 0 ;
3740 void *argp2 = 0 ;
3741 int res2 = 0 ;
3742 void *argp3 = 0 ;
3743 int res3 = 0 ;
3744 int argvi = 0;
3745 int result;
3746 dXSARGS;
3747
3748 if ((items < 3) || (items > 3)) {
3749 SWIG_croak("Usage: gsl_linalg_LU_svx(LU,p,x);");
3750 }
3751 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3752 if (!SWIG_IsOK(res1)) {
3753 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LU_svx" "', argument " "1"" of type '" "gsl_matrix const *""'");
3754 }
3755 arg1 = (gsl_matrix *)(argp1);
3756 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
3757 if (!SWIG_IsOK(res2)) {
3758 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_LU_svx" "', argument " "2"" of type '" "gsl_permutation const *""'");
3759 }
3760 arg2 = (gsl_permutation *)(argp2);
3761 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
3762 if (!SWIG_IsOK(res3)) {
3763 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_LU_svx" "', argument " "3"" of type '" "gsl_vector *""'");
3764 }
3765 arg3 = (gsl_vector *)(argp3);
3766 result = (int)gsl_linalg_LU_svx((gsl_matrix const *)arg1,(struct gsl_permutation_struct const *)arg2,arg3);
3767 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3768
3769
3770
3771 XSRETURN(argvi);
3772 fail:
3773
3774
3775
3776 SWIG_croak_null();
3777 }
3778 }
3779
3780
XS(_wrap_gsl_linalg_LU_refine)3781 XS(_wrap_gsl_linalg_LU_refine) {
3782 {
3783 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
3784 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
3785 gsl_permutation *arg3 = (gsl_permutation *) 0 ;
3786 gsl_vector *arg4 = (gsl_vector *) 0 ;
3787 gsl_vector *arg5 = (gsl_vector *) 0 ;
3788 gsl_vector *arg6 = (gsl_vector *) 0 ;
3789 void *argp1 = 0 ;
3790 int res1 = 0 ;
3791 void *argp2 = 0 ;
3792 int res2 = 0 ;
3793 void *argp3 = 0 ;
3794 int res3 = 0 ;
3795 void *argp4 = 0 ;
3796 int res4 = 0 ;
3797 void *argp5 = 0 ;
3798 int res5 = 0 ;
3799 void *argp6 = 0 ;
3800 int res6 = 0 ;
3801 int argvi = 0;
3802 int result;
3803 dXSARGS;
3804
3805 if ((items < 6) || (items > 6)) {
3806 SWIG_croak("Usage: gsl_linalg_LU_refine(A,LU,p,b,x,work);");
3807 }
3808 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3809 if (!SWIG_IsOK(res1)) {
3810 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LU_refine" "', argument " "1"" of type '" "gsl_matrix const *""'");
3811 }
3812 arg1 = (gsl_matrix *)(argp1);
3813 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3814 if (!SWIG_IsOK(res2)) {
3815 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_LU_refine" "', argument " "2"" of type '" "gsl_matrix const *""'");
3816 }
3817 arg2 = (gsl_matrix *)(argp2);
3818 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
3819 if (!SWIG_IsOK(res3)) {
3820 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_LU_refine" "', argument " "3"" of type '" "gsl_permutation const *""'");
3821 }
3822 arg3 = (gsl_permutation *)(argp3);
3823 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
3824 if (!SWIG_IsOK(res4)) {
3825 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_LU_refine" "', argument " "4"" of type '" "gsl_vector const *""'");
3826 }
3827 arg4 = (gsl_vector *)(argp4);
3828 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
3829 if (!SWIG_IsOK(res5)) {
3830 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_LU_refine" "', argument " "5"" of type '" "gsl_vector *""'");
3831 }
3832 arg5 = (gsl_vector *)(argp5);
3833 res6 = SWIG_ConvertPtr(ST(5), &argp6,SWIGTYPE_p_gsl_vector, 0 | 0 );
3834 if (!SWIG_IsOK(res6)) {
3835 SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_linalg_LU_refine" "', argument " "6"" of type '" "gsl_vector *""'");
3836 }
3837 arg6 = (gsl_vector *)(argp6);
3838 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);
3839 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3840
3841
3842
3843
3844
3845
3846 XSRETURN(argvi);
3847 fail:
3848
3849
3850
3851
3852
3853
3854 SWIG_croak_null();
3855 }
3856 }
3857
3858
XS(_wrap_gsl_linalg_LU_invert)3859 XS(_wrap_gsl_linalg_LU_invert) {
3860 {
3861 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
3862 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
3863 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
3864 void *argp1 = 0 ;
3865 int res1 = 0 ;
3866 void *argp2 = 0 ;
3867 int res2 = 0 ;
3868 void *argp3 = 0 ;
3869 int res3 = 0 ;
3870 int argvi = 0;
3871 int result;
3872 dXSARGS;
3873
3874 if ((items < 3) || (items > 3)) {
3875 SWIG_croak("Usage: gsl_linalg_LU_invert(LU,p,inverse);");
3876 }
3877 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3878 if (!SWIG_IsOK(res1)) {
3879 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LU_invert" "', argument " "1"" of type '" "gsl_matrix const *""'");
3880 }
3881 arg1 = (gsl_matrix *)(argp1);
3882 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
3883 if (!SWIG_IsOK(res2)) {
3884 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_LU_invert" "', argument " "2"" of type '" "gsl_permutation const *""'");
3885 }
3886 arg2 = (gsl_permutation *)(argp2);
3887 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3888 if (!SWIG_IsOK(res3)) {
3889 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_LU_invert" "', argument " "3"" of type '" "gsl_matrix *""'");
3890 }
3891 arg3 = (gsl_matrix *)(argp3);
3892 result = (int)gsl_linalg_LU_invert((gsl_matrix const *)arg1,(struct gsl_permutation_struct const *)arg2,arg3);
3893 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3894
3895
3896
3897 XSRETURN(argvi);
3898 fail:
3899
3900
3901
3902 SWIG_croak_null();
3903 }
3904 }
3905
3906
XS(_wrap_gsl_linalg_LU_det)3907 XS(_wrap_gsl_linalg_LU_det) {
3908 {
3909 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
3910 int arg2 ;
3911 void *argp1 = 0 ;
3912 int res1 = 0 ;
3913 int val2 ;
3914 int ecode2 = 0 ;
3915 int argvi = 0;
3916 double result;
3917 dXSARGS;
3918
3919 if ((items < 2) || (items > 2)) {
3920 SWIG_croak("Usage: gsl_linalg_LU_det(LU,signum);");
3921 }
3922 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3923 if (!SWIG_IsOK(res1)) {
3924 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LU_det" "', argument " "1"" of type '" "gsl_matrix *""'");
3925 }
3926 arg1 = (gsl_matrix *)(argp1);
3927 ecode2 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
3928 if (!SWIG_IsOK(ecode2)) {
3929 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_linalg_LU_det" "', argument " "2"" of type '" "int""'");
3930 }
3931 arg2 = (int)(val2);
3932 result = (double)gsl_linalg_LU_det(arg1,arg2);
3933 ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(result)); argvi++ ;
3934
3935
3936 XSRETURN(argvi);
3937 fail:
3938
3939
3940 SWIG_croak_null();
3941 }
3942 }
3943
3944
XS(_wrap_gsl_linalg_LU_lndet)3945 XS(_wrap_gsl_linalg_LU_lndet) {
3946 {
3947 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
3948 void *argp1 = 0 ;
3949 int res1 = 0 ;
3950 int argvi = 0;
3951 double result;
3952 dXSARGS;
3953
3954 if ((items < 1) || (items > 1)) {
3955 SWIG_croak("Usage: gsl_linalg_LU_lndet(LU);");
3956 }
3957 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3958 if (!SWIG_IsOK(res1)) {
3959 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LU_lndet" "', argument " "1"" of type '" "gsl_matrix *""'");
3960 }
3961 arg1 = (gsl_matrix *)(argp1);
3962 result = (double)gsl_linalg_LU_lndet(arg1);
3963 ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(result)); argvi++ ;
3964
3965 XSRETURN(argvi);
3966 fail:
3967
3968 SWIG_croak_null();
3969 }
3970 }
3971
3972
XS(_wrap_gsl_linalg_LU_sgndet)3973 XS(_wrap_gsl_linalg_LU_sgndet) {
3974 {
3975 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
3976 int arg2 ;
3977 void *argp1 = 0 ;
3978 int res1 = 0 ;
3979 int val2 ;
3980 int ecode2 = 0 ;
3981 int argvi = 0;
3982 int result;
3983 dXSARGS;
3984
3985 if ((items < 2) || (items > 2)) {
3986 SWIG_croak("Usage: gsl_linalg_LU_sgndet(lu,signum);");
3987 }
3988 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3989 if (!SWIG_IsOK(res1)) {
3990 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LU_sgndet" "', argument " "1"" of type '" "gsl_matrix *""'");
3991 }
3992 arg1 = (gsl_matrix *)(argp1);
3993 ecode2 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
3994 if (!SWIG_IsOK(ecode2)) {
3995 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_linalg_LU_sgndet" "', argument " "2"" of type '" "int""'");
3996 }
3997 arg2 = (int)(val2);
3998 result = (int)gsl_linalg_LU_sgndet(arg1,arg2);
3999 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4000
4001
4002 XSRETURN(argvi);
4003 fail:
4004
4005
4006 SWIG_croak_null();
4007 }
4008 }
4009
4010
XS(_wrap_gsl_linalg_complex_LU_decomp)4011 XS(_wrap_gsl_linalg_complex_LU_decomp) {
4012 {
4013 gsl_matrix_complex *arg1 = (gsl_matrix_complex *) 0 ;
4014 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
4015 int *arg3 = (int *) 0 ;
4016 void *argp1 = 0 ;
4017 int res1 = 0 ;
4018 void *argp2 = 0 ;
4019 int res2 = 0 ;
4020 int temp3 ;
4021 int res3 = SWIG_TMPOBJ ;
4022 int argvi = 0;
4023 int result;
4024 dXSARGS;
4025
4026 arg3 = &temp3;
4027 if ((items < 2) || (items > 2)) {
4028 SWIG_croak("Usage: gsl_linalg_complex_LU_decomp(A,p);");
4029 }
4030 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
4031 if (!SWIG_IsOK(res1)) {
4032 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_complex_LU_decomp" "', argument " "1"" of type '" "gsl_matrix_complex *""'");
4033 }
4034 arg1 = (gsl_matrix_complex *)(argp1);
4035 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
4036 if (!SWIG_IsOK(res2)) {
4037 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_complex_LU_decomp" "', argument " "2"" of type '" "gsl_permutation *""'");
4038 }
4039 arg2 = (gsl_permutation *)(argp2);
4040 result = (int)gsl_linalg_complex_LU_decomp(arg1,arg2,arg3);
4041 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4042 if (SWIG_IsTmpObj(res3)) {
4043 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((*arg3)); argvi++ ;
4044 } else {
4045 int new_flags = SWIG_IsNewObj(res3) ? (SWIG_POINTER_OWN | 0) : 0;
4046 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg3), SWIGTYPE_p_int, new_flags); argvi++ ;
4047 }
4048
4049
4050
4051 XSRETURN(argvi);
4052 fail:
4053
4054
4055
4056 SWIG_croak_null();
4057 }
4058 }
4059
4060
XS(_wrap_gsl_linalg_complex_LU_solve)4061 XS(_wrap_gsl_linalg_complex_LU_solve) {
4062 {
4063 gsl_matrix_complex *arg1 = (gsl_matrix_complex *) 0 ;
4064 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
4065 gsl_vector_complex *arg3 = (gsl_vector_complex *) 0 ;
4066 gsl_vector_complex *arg4 = (gsl_vector_complex *) 0 ;
4067 void *argp1 = 0 ;
4068 int res1 = 0 ;
4069 void *argp2 = 0 ;
4070 int res2 = 0 ;
4071 void *argp3 = 0 ;
4072 int res3 = 0 ;
4073 void *argp4 = 0 ;
4074 int res4 = 0 ;
4075 int argvi = 0;
4076 int result;
4077 dXSARGS;
4078
4079 if ((items < 4) || (items > 4)) {
4080 SWIG_croak("Usage: gsl_linalg_complex_LU_solve(LU,p,b,x);");
4081 }
4082 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
4083 if (!SWIG_IsOK(res1)) {
4084 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_complex_LU_solve" "', argument " "1"" of type '" "gsl_matrix_complex const *""'");
4085 }
4086 arg1 = (gsl_matrix_complex *)(argp1);
4087 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
4088 if (!SWIG_IsOK(res2)) {
4089 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_complex_LU_solve" "', argument " "2"" of type '" "gsl_permutation const *""'");
4090 }
4091 arg2 = (gsl_permutation *)(argp2);
4092 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
4093 if (!SWIG_IsOK(res3)) {
4094 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_complex_LU_solve" "', argument " "3"" of type '" "gsl_vector_complex const *""'");
4095 }
4096 arg3 = (gsl_vector_complex *)(argp3);
4097 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
4098 if (!SWIG_IsOK(res4)) {
4099 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_complex_LU_solve" "', argument " "4"" of type '" "gsl_vector_complex *""'");
4100 }
4101 arg4 = (gsl_vector_complex *)(argp4);
4102 result = (int)gsl_linalg_complex_LU_solve((gsl_matrix_complex const *)arg1,(struct gsl_permutation_struct const *)arg2,(gsl_vector_complex const *)arg3,arg4);
4103 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4104
4105
4106
4107
4108 XSRETURN(argvi);
4109 fail:
4110
4111
4112
4113
4114 SWIG_croak_null();
4115 }
4116 }
4117
4118
XS(_wrap_gsl_linalg_complex_LU_svx)4119 XS(_wrap_gsl_linalg_complex_LU_svx) {
4120 {
4121 gsl_matrix_complex *arg1 = (gsl_matrix_complex *) 0 ;
4122 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
4123 gsl_vector_complex *arg3 = (gsl_vector_complex *) 0 ;
4124 void *argp1 = 0 ;
4125 int res1 = 0 ;
4126 void *argp2 = 0 ;
4127 int res2 = 0 ;
4128 void *argp3 = 0 ;
4129 int res3 = 0 ;
4130 int argvi = 0;
4131 int result;
4132 dXSARGS;
4133
4134 if ((items < 3) || (items > 3)) {
4135 SWIG_croak("Usage: gsl_linalg_complex_LU_svx(LU,p,x);");
4136 }
4137 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
4138 if (!SWIG_IsOK(res1)) {
4139 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_complex_LU_svx" "', argument " "1"" of type '" "gsl_matrix_complex const *""'");
4140 }
4141 arg1 = (gsl_matrix_complex *)(argp1);
4142 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
4143 if (!SWIG_IsOK(res2)) {
4144 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_complex_LU_svx" "', argument " "2"" of type '" "gsl_permutation const *""'");
4145 }
4146 arg2 = (gsl_permutation *)(argp2);
4147 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
4148 if (!SWIG_IsOK(res3)) {
4149 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_complex_LU_svx" "', argument " "3"" of type '" "gsl_vector_complex *""'");
4150 }
4151 arg3 = (gsl_vector_complex *)(argp3);
4152 result = (int)gsl_linalg_complex_LU_svx((gsl_matrix_complex const *)arg1,(struct gsl_permutation_struct const *)arg2,arg3);
4153 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4154
4155
4156
4157 XSRETURN(argvi);
4158 fail:
4159
4160
4161
4162 SWIG_croak_null();
4163 }
4164 }
4165
4166
XS(_wrap_gsl_linalg_complex_LU_refine)4167 XS(_wrap_gsl_linalg_complex_LU_refine) {
4168 {
4169 gsl_matrix_complex *arg1 = (gsl_matrix_complex *) 0 ;
4170 gsl_matrix_complex *arg2 = (gsl_matrix_complex *) 0 ;
4171 gsl_permutation *arg3 = (gsl_permutation *) 0 ;
4172 gsl_vector_complex *arg4 = (gsl_vector_complex *) 0 ;
4173 gsl_vector_complex *arg5 = (gsl_vector_complex *) 0 ;
4174 gsl_vector_complex *arg6 = (gsl_vector_complex *) 0 ;
4175 void *argp1 = 0 ;
4176 int res1 = 0 ;
4177 void *argp2 = 0 ;
4178 int res2 = 0 ;
4179 void *argp3 = 0 ;
4180 int res3 = 0 ;
4181 void *argp4 = 0 ;
4182 int res4 = 0 ;
4183 void *argp5 = 0 ;
4184 int res5 = 0 ;
4185 void *argp6 = 0 ;
4186 int res6 = 0 ;
4187 int argvi = 0;
4188 int result;
4189 dXSARGS;
4190
4191 if ((items < 6) || (items > 6)) {
4192 SWIG_croak("Usage: gsl_linalg_complex_LU_refine(A,LU,p,b,x,work);");
4193 }
4194 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
4195 if (!SWIG_IsOK(res1)) {
4196 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_complex_LU_refine" "', argument " "1"" of type '" "gsl_matrix_complex const *""'");
4197 }
4198 arg1 = (gsl_matrix_complex *)(argp1);
4199 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
4200 if (!SWIG_IsOK(res2)) {
4201 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_complex_LU_refine" "', argument " "2"" of type '" "gsl_matrix_complex const *""'");
4202 }
4203 arg2 = (gsl_matrix_complex *)(argp2);
4204 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
4205 if (!SWIG_IsOK(res3)) {
4206 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_complex_LU_refine" "', argument " "3"" of type '" "gsl_permutation const *""'");
4207 }
4208 arg3 = (gsl_permutation *)(argp3);
4209 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
4210 if (!SWIG_IsOK(res4)) {
4211 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_complex_LU_refine" "', argument " "4"" of type '" "gsl_vector_complex const *""'");
4212 }
4213 arg4 = (gsl_vector_complex *)(argp4);
4214 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
4215 if (!SWIG_IsOK(res5)) {
4216 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_complex_LU_refine" "', argument " "5"" of type '" "gsl_vector_complex *""'");
4217 }
4218 arg5 = (gsl_vector_complex *)(argp5);
4219 res6 = SWIG_ConvertPtr(ST(5), &argp6,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
4220 if (!SWIG_IsOK(res6)) {
4221 SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_linalg_complex_LU_refine" "', argument " "6"" of type '" "gsl_vector_complex *""'");
4222 }
4223 arg6 = (gsl_vector_complex *)(argp6);
4224 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);
4225 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4226
4227
4228
4229
4230
4231
4232 XSRETURN(argvi);
4233 fail:
4234
4235
4236
4237
4238
4239
4240 SWIG_croak_null();
4241 }
4242 }
4243
4244
XS(_wrap_gsl_linalg_complex_LU_invert)4245 XS(_wrap_gsl_linalg_complex_LU_invert) {
4246 {
4247 gsl_matrix_complex *arg1 = (gsl_matrix_complex *) 0 ;
4248 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
4249 gsl_matrix_complex *arg3 = (gsl_matrix_complex *) 0 ;
4250 void *argp1 = 0 ;
4251 int res1 = 0 ;
4252 void *argp2 = 0 ;
4253 int res2 = 0 ;
4254 void *argp3 = 0 ;
4255 int res3 = 0 ;
4256 int argvi = 0;
4257 int result;
4258 dXSARGS;
4259
4260 if ((items < 3) || (items > 3)) {
4261 SWIG_croak("Usage: gsl_linalg_complex_LU_invert(LU,p,inverse);");
4262 }
4263 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
4264 if (!SWIG_IsOK(res1)) {
4265 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_complex_LU_invert" "', argument " "1"" of type '" "gsl_matrix_complex const *""'");
4266 }
4267 arg1 = (gsl_matrix_complex *)(argp1);
4268 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
4269 if (!SWIG_IsOK(res2)) {
4270 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_complex_LU_invert" "', argument " "2"" of type '" "gsl_permutation const *""'");
4271 }
4272 arg2 = (gsl_permutation *)(argp2);
4273 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
4274 if (!SWIG_IsOK(res3)) {
4275 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_complex_LU_invert" "', argument " "3"" of type '" "gsl_matrix_complex *""'");
4276 }
4277 arg3 = (gsl_matrix_complex *)(argp3);
4278 result = (int)gsl_linalg_complex_LU_invert((gsl_matrix_complex const *)arg1,(struct gsl_permutation_struct const *)arg2,arg3);
4279 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4280
4281
4282
4283 XSRETURN(argvi);
4284 fail:
4285
4286
4287
4288 SWIG_croak_null();
4289 }
4290 }
4291
4292
XS(_wrap_gsl_linalg_complex_LU_det)4293 XS(_wrap_gsl_linalg_complex_LU_det) {
4294 {
4295 gsl_matrix_complex *arg1 = (gsl_matrix_complex *) 0 ;
4296 int arg2 ;
4297 void *argp1 = 0 ;
4298 int res1 = 0 ;
4299 int val2 ;
4300 int ecode2 = 0 ;
4301 int argvi = 0;
4302 gsl_complex result;
4303 dXSARGS;
4304
4305 if ((items < 2) || (items > 2)) {
4306 SWIG_croak("Usage: gsl_linalg_complex_LU_det(LU,signum);");
4307 }
4308 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
4309 if (!SWIG_IsOK(res1)) {
4310 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_complex_LU_det" "', argument " "1"" of type '" "gsl_matrix_complex *""'");
4311 }
4312 arg1 = (gsl_matrix_complex *)(argp1);
4313 ecode2 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
4314 if (!SWIG_IsOK(ecode2)) {
4315 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_linalg_complex_LU_det" "', argument " "2"" of type '" "int""'");
4316 }
4317 arg2 = (int)(val2);
4318 result = gsl_linalg_complex_LU_det(arg1,arg2);
4319 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
4320
4321
4322 XSRETURN(argvi);
4323 fail:
4324
4325
4326 SWIG_croak_null();
4327 }
4328 }
4329
4330
XS(_wrap_gsl_linalg_complex_LU_lndet)4331 XS(_wrap_gsl_linalg_complex_LU_lndet) {
4332 {
4333 gsl_matrix_complex *arg1 = (gsl_matrix_complex *) 0 ;
4334 void *argp1 = 0 ;
4335 int res1 = 0 ;
4336 int argvi = 0;
4337 double result;
4338 dXSARGS;
4339
4340 if ((items < 1) || (items > 1)) {
4341 SWIG_croak("Usage: gsl_linalg_complex_LU_lndet(LU);");
4342 }
4343 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
4344 if (!SWIG_IsOK(res1)) {
4345 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_complex_LU_lndet" "', argument " "1"" of type '" "gsl_matrix_complex *""'");
4346 }
4347 arg1 = (gsl_matrix_complex *)(argp1);
4348 result = (double)gsl_linalg_complex_LU_lndet(arg1);
4349 ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(result)); argvi++ ;
4350
4351 XSRETURN(argvi);
4352 fail:
4353
4354 SWIG_croak_null();
4355 }
4356 }
4357
4358
XS(_wrap_gsl_linalg_complex_LU_sgndet)4359 XS(_wrap_gsl_linalg_complex_LU_sgndet) {
4360 {
4361 gsl_matrix_complex *arg1 = (gsl_matrix_complex *) 0 ;
4362 int arg2 ;
4363 void *argp1 = 0 ;
4364 int res1 = 0 ;
4365 int val2 ;
4366 int ecode2 = 0 ;
4367 int argvi = 0;
4368 gsl_complex result;
4369 dXSARGS;
4370
4371 if ((items < 2) || (items > 2)) {
4372 SWIG_croak("Usage: gsl_linalg_complex_LU_sgndet(LU,signum);");
4373 }
4374 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
4375 if (!SWIG_IsOK(res1)) {
4376 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_complex_LU_sgndet" "', argument " "1"" of type '" "gsl_matrix_complex *""'");
4377 }
4378 arg1 = (gsl_matrix_complex *)(argp1);
4379 ecode2 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
4380 if (!SWIG_IsOK(ecode2)) {
4381 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_linalg_complex_LU_sgndet" "', argument " "2"" of type '" "int""'");
4382 }
4383 arg2 = (int)(val2);
4384 result = gsl_linalg_complex_LU_sgndet(arg1,arg2);
4385 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
4386
4387
4388 XSRETURN(argvi);
4389 fail:
4390
4391
4392 SWIG_croak_null();
4393 }
4394 }
4395
4396
XS(_wrap_gsl_linalg_QR_decomp)4397 XS(_wrap_gsl_linalg_QR_decomp) {
4398 {
4399 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
4400 gsl_vector *arg2 = (gsl_vector *) 0 ;
4401 void *argp1 = 0 ;
4402 int res1 = 0 ;
4403 void *argp2 = 0 ;
4404 int res2 = 0 ;
4405 int argvi = 0;
4406 int result;
4407 dXSARGS;
4408
4409 if ((items < 2) || (items > 2)) {
4410 SWIG_croak("Usage: gsl_linalg_QR_decomp(A,tau);");
4411 }
4412 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
4413 if (!SWIG_IsOK(res1)) {
4414 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QR_decomp" "', argument " "1"" of type '" "gsl_matrix *""'");
4415 }
4416 arg1 = (gsl_matrix *)(argp1);
4417 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
4418 if (!SWIG_IsOK(res2)) {
4419 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QR_decomp" "', argument " "2"" of type '" "gsl_vector *""'");
4420 }
4421 arg2 = (gsl_vector *)(argp2);
4422 result = (int)gsl_linalg_QR_decomp(arg1,arg2);
4423 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4424
4425
4426 XSRETURN(argvi);
4427 fail:
4428
4429
4430 SWIG_croak_null();
4431 }
4432 }
4433
4434
XS(_wrap_gsl_linalg_QR_solve)4435 XS(_wrap_gsl_linalg_QR_solve) {
4436 {
4437 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
4438 gsl_vector *arg2 = (gsl_vector *) 0 ;
4439 gsl_vector *arg3 = (gsl_vector *) 0 ;
4440 gsl_vector *arg4 = (gsl_vector *) 0 ;
4441 void *argp1 = 0 ;
4442 int res1 = 0 ;
4443 void *argp2 = 0 ;
4444 int res2 = 0 ;
4445 void *argp3 = 0 ;
4446 int res3 = 0 ;
4447 void *argp4 = 0 ;
4448 int res4 = 0 ;
4449 int argvi = 0;
4450 int result;
4451 dXSARGS;
4452
4453 if ((items < 4) || (items > 4)) {
4454 SWIG_croak("Usage: gsl_linalg_QR_solve(QR,tau,b,x);");
4455 }
4456 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
4457 if (!SWIG_IsOK(res1)) {
4458 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QR_solve" "', argument " "1"" of type '" "gsl_matrix const *""'");
4459 }
4460 arg1 = (gsl_matrix *)(argp1);
4461 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
4462 if (!SWIG_IsOK(res2)) {
4463 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QR_solve" "', argument " "2"" of type '" "gsl_vector const *""'");
4464 }
4465 arg2 = (gsl_vector *)(argp2);
4466 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
4467 if (!SWIG_IsOK(res3)) {
4468 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QR_solve" "', argument " "3"" of type '" "gsl_vector const *""'");
4469 }
4470 arg3 = (gsl_vector *)(argp3);
4471 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
4472 if (!SWIG_IsOK(res4)) {
4473 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_QR_solve" "', argument " "4"" of type '" "gsl_vector *""'");
4474 }
4475 arg4 = (gsl_vector *)(argp4);
4476 result = (int)gsl_linalg_QR_solve((gsl_matrix const *)arg1,(gsl_vector const *)arg2,(gsl_vector const *)arg3,arg4);
4477 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4478
4479
4480
4481
4482 XSRETURN(argvi);
4483 fail:
4484
4485
4486
4487
4488 SWIG_croak_null();
4489 }
4490 }
4491
4492
XS(_wrap_gsl_linalg_QR_svx)4493 XS(_wrap_gsl_linalg_QR_svx) {
4494 {
4495 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
4496 gsl_vector *arg2 = (gsl_vector *) 0 ;
4497 gsl_vector *arg3 = (gsl_vector *) 0 ;
4498 void *argp1 = 0 ;
4499 int res1 = 0 ;
4500 void *argp2 = 0 ;
4501 int res2 = 0 ;
4502 void *argp3 = 0 ;
4503 int res3 = 0 ;
4504 int argvi = 0;
4505 int result;
4506 dXSARGS;
4507
4508 if ((items < 3) || (items > 3)) {
4509 SWIG_croak("Usage: gsl_linalg_QR_svx(QR,tau,x);");
4510 }
4511 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
4512 if (!SWIG_IsOK(res1)) {
4513 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QR_svx" "', argument " "1"" of type '" "gsl_matrix const *""'");
4514 }
4515 arg1 = (gsl_matrix *)(argp1);
4516 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
4517 if (!SWIG_IsOK(res2)) {
4518 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QR_svx" "', argument " "2"" of type '" "gsl_vector const *""'");
4519 }
4520 arg2 = (gsl_vector *)(argp2);
4521 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
4522 if (!SWIG_IsOK(res3)) {
4523 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QR_svx" "', argument " "3"" of type '" "gsl_vector *""'");
4524 }
4525 arg3 = (gsl_vector *)(argp3);
4526 result = (int)gsl_linalg_QR_svx((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3);
4527 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4528
4529
4530
4531 XSRETURN(argvi);
4532 fail:
4533
4534
4535
4536 SWIG_croak_null();
4537 }
4538 }
4539
4540
XS(_wrap_gsl_linalg_QR_lssolve)4541 XS(_wrap_gsl_linalg_QR_lssolve) {
4542 {
4543 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
4544 gsl_vector *arg2 = (gsl_vector *) 0 ;
4545 gsl_vector *arg3 = (gsl_vector *) 0 ;
4546 gsl_vector *arg4 = (gsl_vector *) 0 ;
4547 gsl_vector *arg5 = (gsl_vector *) 0 ;
4548 void *argp1 = 0 ;
4549 int res1 = 0 ;
4550 void *argp2 = 0 ;
4551 int res2 = 0 ;
4552 void *argp3 = 0 ;
4553 int res3 = 0 ;
4554 void *argp4 = 0 ;
4555 int res4 = 0 ;
4556 void *argp5 = 0 ;
4557 int res5 = 0 ;
4558 int argvi = 0;
4559 int result;
4560 dXSARGS;
4561
4562 if ((items < 5) || (items > 5)) {
4563 SWIG_croak("Usage: gsl_linalg_QR_lssolve(QR,tau,b,x,residual);");
4564 }
4565 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
4566 if (!SWIG_IsOK(res1)) {
4567 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QR_lssolve" "', argument " "1"" of type '" "gsl_matrix const *""'");
4568 }
4569 arg1 = (gsl_matrix *)(argp1);
4570 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
4571 if (!SWIG_IsOK(res2)) {
4572 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QR_lssolve" "', argument " "2"" of type '" "gsl_vector const *""'");
4573 }
4574 arg2 = (gsl_vector *)(argp2);
4575 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
4576 if (!SWIG_IsOK(res3)) {
4577 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QR_lssolve" "', argument " "3"" of type '" "gsl_vector const *""'");
4578 }
4579 arg3 = (gsl_vector *)(argp3);
4580 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
4581 if (!SWIG_IsOK(res4)) {
4582 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_QR_lssolve" "', argument " "4"" of type '" "gsl_vector *""'");
4583 }
4584 arg4 = (gsl_vector *)(argp4);
4585 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
4586 if (!SWIG_IsOK(res5)) {
4587 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_QR_lssolve" "', argument " "5"" of type '" "gsl_vector *""'");
4588 }
4589 arg5 = (gsl_vector *)(argp5);
4590 result = (int)gsl_linalg_QR_lssolve((gsl_matrix const *)arg1,(gsl_vector const *)arg2,(gsl_vector const *)arg3,arg4,arg5);
4591 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4592
4593
4594
4595
4596
4597 XSRETURN(argvi);
4598 fail:
4599
4600
4601
4602
4603
4604 SWIG_croak_null();
4605 }
4606 }
4607
4608
XS(_wrap_gsl_linalg_QR_QRsolve)4609 XS(_wrap_gsl_linalg_QR_QRsolve) {
4610 {
4611 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
4612 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
4613 gsl_vector *arg3 = (gsl_vector *) 0 ;
4614 gsl_vector *arg4 = (gsl_vector *) 0 ;
4615 void *argp1 = 0 ;
4616 int res1 = 0 ;
4617 void *argp2 = 0 ;
4618 int res2 = 0 ;
4619 void *argp3 = 0 ;
4620 int res3 = 0 ;
4621 void *argp4 = 0 ;
4622 int res4 = 0 ;
4623 int argvi = 0;
4624 int result;
4625 dXSARGS;
4626
4627 if ((items < 4) || (items > 4)) {
4628 SWIG_croak("Usage: gsl_linalg_QR_QRsolve(Q,R,b,x);");
4629 }
4630 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
4631 if (!SWIG_IsOK(res1)) {
4632 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QR_QRsolve" "', argument " "1"" of type '" "gsl_matrix *""'");
4633 }
4634 arg1 = (gsl_matrix *)(argp1);
4635 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
4636 if (!SWIG_IsOK(res2)) {
4637 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QR_QRsolve" "', argument " "2"" of type '" "gsl_matrix *""'");
4638 }
4639 arg2 = (gsl_matrix *)(argp2);
4640 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
4641 if (!SWIG_IsOK(res3)) {
4642 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QR_QRsolve" "', argument " "3"" of type '" "gsl_vector const *""'");
4643 }
4644 arg3 = (gsl_vector *)(argp3);
4645 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
4646 if (!SWIG_IsOK(res4)) {
4647 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_QR_QRsolve" "', argument " "4"" of type '" "gsl_vector *""'");
4648 }
4649 arg4 = (gsl_vector *)(argp4);
4650 result = (int)gsl_linalg_QR_QRsolve(arg1,arg2,(gsl_vector const *)arg3,arg4);
4651 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4652
4653
4654
4655
4656 XSRETURN(argvi);
4657 fail:
4658
4659
4660
4661
4662 SWIG_croak_null();
4663 }
4664 }
4665
4666
XS(_wrap_gsl_linalg_QR_Rsolve)4667 XS(_wrap_gsl_linalg_QR_Rsolve) {
4668 {
4669 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
4670 gsl_vector *arg2 = (gsl_vector *) 0 ;
4671 gsl_vector *arg3 = (gsl_vector *) 0 ;
4672 void *argp1 = 0 ;
4673 int res1 = 0 ;
4674 void *argp2 = 0 ;
4675 int res2 = 0 ;
4676 void *argp3 = 0 ;
4677 int res3 = 0 ;
4678 int argvi = 0;
4679 int result;
4680 dXSARGS;
4681
4682 if ((items < 3) || (items > 3)) {
4683 SWIG_croak("Usage: gsl_linalg_QR_Rsolve(QR,b,x);");
4684 }
4685 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
4686 if (!SWIG_IsOK(res1)) {
4687 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QR_Rsolve" "', argument " "1"" of type '" "gsl_matrix const *""'");
4688 }
4689 arg1 = (gsl_matrix *)(argp1);
4690 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
4691 if (!SWIG_IsOK(res2)) {
4692 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QR_Rsolve" "', argument " "2"" of type '" "gsl_vector const *""'");
4693 }
4694 arg2 = (gsl_vector *)(argp2);
4695 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
4696 if (!SWIG_IsOK(res3)) {
4697 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QR_Rsolve" "', argument " "3"" of type '" "gsl_vector *""'");
4698 }
4699 arg3 = (gsl_vector *)(argp3);
4700 result = (int)gsl_linalg_QR_Rsolve((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3);
4701 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4702
4703
4704
4705 XSRETURN(argvi);
4706 fail:
4707
4708
4709
4710 SWIG_croak_null();
4711 }
4712 }
4713
4714
XS(_wrap_gsl_linalg_QR_Rsvx)4715 XS(_wrap_gsl_linalg_QR_Rsvx) {
4716 {
4717 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
4718 gsl_vector *arg2 = (gsl_vector *) 0 ;
4719 void *argp1 = 0 ;
4720 int res1 = 0 ;
4721 void *argp2 = 0 ;
4722 int res2 = 0 ;
4723 int argvi = 0;
4724 int result;
4725 dXSARGS;
4726
4727 if ((items < 2) || (items > 2)) {
4728 SWIG_croak("Usage: gsl_linalg_QR_Rsvx(QR,x);");
4729 }
4730 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
4731 if (!SWIG_IsOK(res1)) {
4732 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QR_Rsvx" "', argument " "1"" of type '" "gsl_matrix const *""'");
4733 }
4734 arg1 = (gsl_matrix *)(argp1);
4735 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
4736 if (!SWIG_IsOK(res2)) {
4737 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QR_Rsvx" "', argument " "2"" of type '" "gsl_vector *""'");
4738 }
4739 arg2 = (gsl_vector *)(argp2);
4740 result = (int)gsl_linalg_QR_Rsvx((gsl_matrix const *)arg1,arg2);
4741 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4742
4743
4744 XSRETURN(argvi);
4745 fail:
4746
4747
4748 SWIG_croak_null();
4749 }
4750 }
4751
4752
XS(_wrap_gsl_linalg_QR_update)4753 XS(_wrap_gsl_linalg_QR_update) {
4754 {
4755 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
4756 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
4757 gsl_vector *arg3 = (gsl_vector *) 0 ;
4758 gsl_vector *arg4 = (gsl_vector *) 0 ;
4759 void *argp1 = 0 ;
4760 int res1 = 0 ;
4761 void *argp2 = 0 ;
4762 int res2 = 0 ;
4763 void *argp3 = 0 ;
4764 int res3 = 0 ;
4765 void *argp4 = 0 ;
4766 int res4 = 0 ;
4767 int argvi = 0;
4768 int result;
4769 dXSARGS;
4770
4771 if ((items < 4) || (items > 4)) {
4772 SWIG_croak("Usage: gsl_linalg_QR_update(Q,R,w,v);");
4773 }
4774 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
4775 if (!SWIG_IsOK(res1)) {
4776 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QR_update" "', argument " "1"" of type '" "gsl_matrix *""'");
4777 }
4778 arg1 = (gsl_matrix *)(argp1);
4779 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
4780 if (!SWIG_IsOK(res2)) {
4781 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QR_update" "', argument " "2"" of type '" "gsl_matrix *""'");
4782 }
4783 arg2 = (gsl_matrix *)(argp2);
4784 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
4785 if (!SWIG_IsOK(res3)) {
4786 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QR_update" "', argument " "3"" of type '" "gsl_vector *""'");
4787 }
4788 arg3 = (gsl_vector *)(argp3);
4789 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
4790 if (!SWIG_IsOK(res4)) {
4791 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_QR_update" "', argument " "4"" of type '" "gsl_vector const *""'");
4792 }
4793 arg4 = (gsl_vector *)(argp4);
4794 result = (int)gsl_linalg_QR_update(arg1,arg2,arg3,(gsl_vector const *)arg4);
4795 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4796
4797
4798
4799
4800 XSRETURN(argvi);
4801 fail:
4802
4803
4804
4805
4806 SWIG_croak_null();
4807 }
4808 }
4809
4810
XS(_wrap_gsl_linalg_QR_QTvec)4811 XS(_wrap_gsl_linalg_QR_QTvec) {
4812 {
4813 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
4814 gsl_vector *arg2 = (gsl_vector *) 0 ;
4815 gsl_vector *arg3 = (gsl_vector *) 0 ;
4816 void *argp1 = 0 ;
4817 int res1 = 0 ;
4818 void *argp2 = 0 ;
4819 int res2 = 0 ;
4820 void *argp3 = 0 ;
4821 int res3 = 0 ;
4822 int argvi = 0;
4823 int result;
4824 dXSARGS;
4825
4826 if ((items < 3) || (items > 3)) {
4827 SWIG_croak("Usage: gsl_linalg_QR_QTvec(QR,tau,v);");
4828 }
4829 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
4830 if (!SWIG_IsOK(res1)) {
4831 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QR_QTvec" "', argument " "1"" of type '" "gsl_matrix const *""'");
4832 }
4833 arg1 = (gsl_matrix *)(argp1);
4834 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
4835 if (!SWIG_IsOK(res2)) {
4836 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QR_QTvec" "', argument " "2"" of type '" "gsl_vector const *""'");
4837 }
4838 arg2 = (gsl_vector *)(argp2);
4839 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
4840 if (!SWIG_IsOK(res3)) {
4841 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QR_QTvec" "', argument " "3"" of type '" "gsl_vector *""'");
4842 }
4843 arg3 = (gsl_vector *)(argp3);
4844 result = (int)gsl_linalg_QR_QTvec((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3);
4845 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4846
4847
4848
4849 XSRETURN(argvi);
4850 fail:
4851
4852
4853
4854 SWIG_croak_null();
4855 }
4856 }
4857
4858
XS(_wrap_gsl_linalg_QR_Qvec)4859 XS(_wrap_gsl_linalg_QR_Qvec) {
4860 {
4861 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
4862 gsl_vector *arg2 = (gsl_vector *) 0 ;
4863 gsl_vector *arg3 = (gsl_vector *) 0 ;
4864 void *argp1 = 0 ;
4865 int res1 = 0 ;
4866 void *argp2 = 0 ;
4867 int res2 = 0 ;
4868 void *argp3 = 0 ;
4869 int res3 = 0 ;
4870 int argvi = 0;
4871 int result;
4872 dXSARGS;
4873
4874 if ((items < 3) || (items > 3)) {
4875 SWIG_croak("Usage: gsl_linalg_QR_Qvec(QR,tau,v);");
4876 }
4877 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
4878 if (!SWIG_IsOK(res1)) {
4879 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QR_Qvec" "', argument " "1"" of type '" "gsl_matrix const *""'");
4880 }
4881 arg1 = (gsl_matrix *)(argp1);
4882 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
4883 if (!SWIG_IsOK(res2)) {
4884 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QR_Qvec" "', argument " "2"" of type '" "gsl_vector const *""'");
4885 }
4886 arg2 = (gsl_vector *)(argp2);
4887 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
4888 if (!SWIG_IsOK(res3)) {
4889 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QR_Qvec" "', argument " "3"" of type '" "gsl_vector *""'");
4890 }
4891 arg3 = (gsl_vector *)(argp3);
4892 result = (int)gsl_linalg_QR_Qvec((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3);
4893 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4894
4895
4896
4897 XSRETURN(argvi);
4898 fail:
4899
4900
4901
4902 SWIG_croak_null();
4903 }
4904 }
4905
4906
XS(_wrap_gsl_linalg_QR_QTmat)4907 XS(_wrap_gsl_linalg_QR_QTmat) {
4908 {
4909 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
4910 gsl_vector *arg2 = (gsl_vector *) 0 ;
4911 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
4912 void *argp1 = 0 ;
4913 int res1 = 0 ;
4914 void *argp2 = 0 ;
4915 int res2 = 0 ;
4916 void *argp3 = 0 ;
4917 int res3 = 0 ;
4918 int argvi = 0;
4919 int result;
4920 dXSARGS;
4921
4922 if ((items < 3) || (items > 3)) {
4923 SWIG_croak("Usage: gsl_linalg_QR_QTmat(QR,tau,A);");
4924 }
4925 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
4926 if (!SWIG_IsOK(res1)) {
4927 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QR_QTmat" "', argument " "1"" of type '" "gsl_matrix const *""'");
4928 }
4929 arg1 = (gsl_matrix *)(argp1);
4930 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
4931 if (!SWIG_IsOK(res2)) {
4932 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QR_QTmat" "', argument " "2"" of type '" "gsl_vector const *""'");
4933 }
4934 arg2 = (gsl_vector *)(argp2);
4935 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
4936 if (!SWIG_IsOK(res3)) {
4937 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QR_QTmat" "', argument " "3"" of type '" "gsl_matrix *""'");
4938 }
4939 arg3 = (gsl_matrix *)(argp3);
4940 result = (int)gsl_linalg_QR_QTmat((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3);
4941 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4942
4943
4944
4945 XSRETURN(argvi);
4946 fail:
4947
4948
4949
4950 SWIG_croak_null();
4951 }
4952 }
4953
4954
XS(_wrap_gsl_linalg_QR_unpack)4955 XS(_wrap_gsl_linalg_QR_unpack) {
4956 {
4957 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
4958 gsl_vector *arg2 = (gsl_vector *) 0 ;
4959 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
4960 gsl_matrix *arg4 = (gsl_matrix *) 0 ;
4961 void *argp1 = 0 ;
4962 int res1 = 0 ;
4963 void *argp2 = 0 ;
4964 int res2 = 0 ;
4965 void *argp3 = 0 ;
4966 int res3 = 0 ;
4967 void *argp4 = 0 ;
4968 int res4 = 0 ;
4969 int argvi = 0;
4970 int result;
4971 dXSARGS;
4972
4973 if ((items < 4) || (items > 4)) {
4974 SWIG_croak("Usage: gsl_linalg_QR_unpack(QR,tau,Q,R);");
4975 }
4976 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
4977 if (!SWIG_IsOK(res1)) {
4978 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QR_unpack" "', argument " "1"" of type '" "gsl_matrix const *""'");
4979 }
4980 arg1 = (gsl_matrix *)(argp1);
4981 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
4982 if (!SWIG_IsOK(res2)) {
4983 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QR_unpack" "', argument " "2"" of type '" "gsl_vector const *""'");
4984 }
4985 arg2 = (gsl_vector *)(argp2);
4986 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
4987 if (!SWIG_IsOK(res3)) {
4988 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QR_unpack" "', argument " "3"" of type '" "gsl_matrix *""'");
4989 }
4990 arg3 = (gsl_matrix *)(argp3);
4991 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_matrix, 0 | 0 );
4992 if (!SWIG_IsOK(res4)) {
4993 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_QR_unpack" "', argument " "4"" of type '" "gsl_matrix *""'");
4994 }
4995 arg4 = (gsl_matrix *)(argp4);
4996 result = (int)gsl_linalg_QR_unpack((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3,arg4);
4997 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4998
4999
5000
5001
5002 XSRETURN(argvi);
5003 fail:
5004
5005
5006
5007
5008 SWIG_croak_null();
5009 }
5010 }
5011
5012
XS(_wrap_gsl_linalg_R_solve)5013 XS(_wrap_gsl_linalg_R_solve) {
5014 {
5015 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5016 gsl_vector *arg2 = (gsl_vector *) 0 ;
5017 gsl_vector *arg3 = (gsl_vector *) 0 ;
5018 void *argp1 = 0 ;
5019 int res1 = 0 ;
5020 void *argp2 = 0 ;
5021 int res2 = 0 ;
5022 void *argp3 = 0 ;
5023 int res3 = 0 ;
5024 int argvi = 0;
5025 int result;
5026 dXSARGS;
5027
5028 if ((items < 3) || (items > 3)) {
5029 SWIG_croak("Usage: gsl_linalg_R_solve(R,b,x);");
5030 }
5031 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5032 if (!SWIG_IsOK(res1)) {
5033 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_R_solve" "', argument " "1"" of type '" "gsl_matrix const *""'");
5034 }
5035 arg1 = (gsl_matrix *)(argp1);
5036 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
5037 if (!SWIG_IsOK(res2)) {
5038 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_R_solve" "', argument " "2"" of type '" "gsl_vector const *""'");
5039 }
5040 arg2 = (gsl_vector *)(argp2);
5041 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
5042 if (!SWIG_IsOK(res3)) {
5043 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_R_solve" "', argument " "3"" of type '" "gsl_vector *""'");
5044 }
5045 arg3 = (gsl_vector *)(argp3);
5046 result = (int)gsl_linalg_R_solve((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3);
5047 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5048
5049
5050
5051 XSRETURN(argvi);
5052 fail:
5053
5054
5055
5056 SWIG_croak_null();
5057 }
5058 }
5059
5060
XS(_wrap_gsl_linalg_R_svx)5061 XS(_wrap_gsl_linalg_R_svx) {
5062 {
5063 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5064 gsl_vector *arg2 = (gsl_vector *) 0 ;
5065 void *argp1 = 0 ;
5066 int res1 = 0 ;
5067 void *argp2 = 0 ;
5068 int res2 = 0 ;
5069 int argvi = 0;
5070 int result;
5071 dXSARGS;
5072
5073 if ((items < 2) || (items > 2)) {
5074 SWIG_croak("Usage: gsl_linalg_R_svx(R,x);");
5075 }
5076 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5077 if (!SWIG_IsOK(res1)) {
5078 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_R_svx" "', argument " "1"" of type '" "gsl_matrix const *""'");
5079 }
5080 arg1 = (gsl_matrix *)(argp1);
5081 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
5082 if (!SWIG_IsOK(res2)) {
5083 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_R_svx" "', argument " "2"" of type '" "gsl_vector *""'");
5084 }
5085 arg2 = (gsl_vector *)(argp2);
5086 result = (int)gsl_linalg_R_svx((gsl_matrix const *)arg1,arg2);
5087 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5088
5089
5090 XSRETURN(argvi);
5091 fail:
5092
5093
5094 SWIG_croak_null();
5095 }
5096 }
5097
5098
XS(_wrap_gsl_linalg_QRPT_decomp)5099 XS(_wrap_gsl_linalg_QRPT_decomp) {
5100 {
5101 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5102 gsl_vector *arg2 = (gsl_vector *) 0 ;
5103 gsl_permutation *arg3 = (gsl_permutation *) 0 ;
5104 int *arg4 = (int *) 0 ;
5105 gsl_vector *arg5 = (gsl_vector *) 0 ;
5106 void *argp1 = 0 ;
5107 int res1 = 0 ;
5108 void *argp2 = 0 ;
5109 int res2 = 0 ;
5110 void *argp3 = 0 ;
5111 int res3 = 0 ;
5112 int temp4 ;
5113 int res4 = SWIG_TMPOBJ ;
5114 void *argp5 = 0 ;
5115 int res5 = 0 ;
5116 int argvi = 0;
5117 int result;
5118 dXSARGS;
5119
5120 arg4 = &temp4;
5121 if ((items < 4) || (items > 4)) {
5122 SWIG_croak("Usage: gsl_linalg_QRPT_decomp(A,tau,p,norm);");
5123 }
5124 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5125 if (!SWIG_IsOK(res1)) {
5126 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QRPT_decomp" "', argument " "1"" of type '" "gsl_matrix *""'");
5127 }
5128 arg1 = (gsl_matrix *)(argp1);
5129 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
5130 if (!SWIG_IsOK(res2)) {
5131 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QRPT_decomp" "', argument " "2"" of type '" "gsl_vector *""'");
5132 }
5133 arg2 = (gsl_vector *)(argp2);
5134 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
5135 if (!SWIG_IsOK(res3)) {
5136 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QRPT_decomp" "', argument " "3"" of type '" "gsl_permutation *""'");
5137 }
5138 arg3 = (gsl_permutation *)(argp3);
5139 res5 = SWIG_ConvertPtr(ST(3), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
5140 if (!SWIG_IsOK(res5)) {
5141 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_QRPT_decomp" "', argument " "5"" of type '" "gsl_vector *""'");
5142 }
5143 arg5 = (gsl_vector *)(argp5);
5144 result = (int)gsl_linalg_QRPT_decomp(arg1,arg2,arg3,arg4,arg5);
5145 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5146 if (SWIG_IsTmpObj(res4)) {
5147 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((*arg4)); argvi++ ;
5148 } else {
5149 int new_flags = SWIG_IsNewObj(res4) ? (SWIG_POINTER_OWN | 0) : 0;
5150 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg4), SWIGTYPE_p_int, new_flags); argvi++ ;
5151 }
5152
5153
5154
5155
5156
5157 XSRETURN(argvi);
5158 fail:
5159
5160
5161
5162
5163
5164 SWIG_croak_null();
5165 }
5166 }
5167
5168
XS(_wrap_gsl_linalg_QRPT_decomp2)5169 XS(_wrap_gsl_linalg_QRPT_decomp2) {
5170 {
5171 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5172 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
5173 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
5174 gsl_vector *arg4 = (gsl_vector *) 0 ;
5175 gsl_permutation *arg5 = (gsl_permutation *) 0 ;
5176 int *arg6 = (int *) 0 ;
5177 gsl_vector *arg7 = (gsl_vector *) 0 ;
5178 void *argp1 = 0 ;
5179 int res1 = 0 ;
5180 void *argp2 = 0 ;
5181 int res2 = 0 ;
5182 void *argp3 = 0 ;
5183 int res3 = 0 ;
5184 void *argp4 = 0 ;
5185 int res4 = 0 ;
5186 void *argp5 = 0 ;
5187 int res5 = 0 ;
5188 int temp6 ;
5189 int res6 = SWIG_TMPOBJ ;
5190 void *argp7 = 0 ;
5191 int res7 = 0 ;
5192 int argvi = 0;
5193 int result;
5194 dXSARGS;
5195
5196 arg6 = &temp6;
5197 if ((items < 6) || (items > 6)) {
5198 SWIG_croak("Usage: gsl_linalg_QRPT_decomp2(A,q,r,tau,p,norm);");
5199 }
5200 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5201 if (!SWIG_IsOK(res1)) {
5202 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QRPT_decomp2" "', argument " "1"" of type '" "gsl_matrix const *""'");
5203 }
5204 arg1 = (gsl_matrix *)(argp1);
5205 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5206 if (!SWIG_IsOK(res2)) {
5207 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QRPT_decomp2" "', argument " "2"" of type '" "gsl_matrix *""'");
5208 }
5209 arg2 = (gsl_matrix *)(argp2);
5210 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5211 if (!SWIG_IsOK(res3)) {
5212 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QRPT_decomp2" "', argument " "3"" of type '" "gsl_matrix *""'");
5213 }
5214 arg3 = (gsl_matrix *)(argp3);
5215 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
5216 if (!SWIG_IsOK(res4)) {
5217 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_QRPT_decomp2" "', argument " "4"" of type '" "gsl_vector *""'");
5218 }
5219 arg4 = (gsl_vector *)(argp4);
5220 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
5221 if (!SWIG_IsOK(res5)) {
5222 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_QRPT_decomp2" "', argument " "5"" of type '" "gsl_permutation *""'");
5223 }
5224 arg5 = (gsl_permutation *)(argp5);
5225 res7 = SWIG_ConvertPtr(ST(5), &argp7,SWIGTYPE_p_gsl_vector, 0 | 0 );
5226 if (!SWIG_IsOK(res7)) {
5227 SWIG_exception_fail(SWIG_ArgError(res7), "in method '" "gsl_linalg_QRPT_decomp2" "', argument " "7"" of type '" "gsl_vector *""'");
5228 }
5229 arg7 = (gsl_vector *)(argp7);
5230 result = (int)gsl_linalg_QRPT_decomp2((gsl_matrix const *)arg1,arg2,arg3,arg4,arg5,arg6,arg7);
5231 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5232 if (SWIG_IsTmpObj(res6)) {
5233 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((*arg6)); argvi++ ;
5234 } else {
5235 int new_flags = SWIG_IsNewObj(res6) ? (SWIG_POINTER_OWN | 0) : 0;
5236 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg6), SWIGTYPE_p_int, new_flags); argvi++ ;
5237 }
5238
5239
5240
5241
5242
5243
5244
5245 XSRETURN(argvi);
5246 fail:
5247
5248
5249
5250
5251
5252
5253
5254 SWIG_croak_null();
5255 }
5256 }
5257
5258
XS(_wrap_gsl_linalg_QRPT_solve)5259 XS(_wrap_gsl_linalg_QRPT_solve) {
5260 {
5261 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5262 gsl_vector *arg2 = (gsl_vector *) 0 ;
5263 gsl_permutation *arg3 = (gsl_permutation *) 0 ;
5264 gsl_vector *arg4 = (gsl_vector *) 0 ;
5265 gsl_vector *arg5 = (gsl_vector *) 0 ;
5266 void *argp1 = 0 ;
5267 int res1 = 0 ;
5268 void *argp2 = 0 ;
5269 int res2 = 0 ;
5270 void *argp3 = 0 ;
5271 int res3 = 0 ;
5272 void *argp4 = 0 ;
5273 int res4 = 0 ;
5274 void *argp5 = 0 ;
5275 int res5 = 0 ;
5276 int argvi = 0;
5277 int result;
5278 dXSARGS;
5279
5280 if ((items < 5) || (items > 5)) {
5281 SWIG_croak("Usage: gsl_linalg_QRPT_solve(QR,tau,p,b,x);");
5282 }
5283 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5284 if (!SWIG_IsOK(res1)) {
5285 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QRPT_solve" "', argument " "1"" of type '" "gsl_matrix const *""'");
5286 }
5287 arg1 = (gsl_matrix *)(argp1);
5288 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
5289 if (!SWIG_IsOK(res2)) {
5290 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QRPT_solve" "', argument " "2"" of type '" "gsl_vector const *""'");
5291 }
5292 arg2 = (gsl_vector *)(argp2);
5293 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
5294 if (!SWIG_IsOK(res3)) {
5295 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QRPT_solve" "', argument " "3"" of type '" "gsl_permutation const *""'");
5296 }
5297 arg3 = (gsl_permutation *)(argp3);
5298 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
5299 if (!SWIG_IsOK(res4)) {
5300 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_QRPT_solve" "', argument " "4"" of type '" "gsl_vector const *""'");
5301 }
5302 arg4 = (gsl_vector *)(argp4);
5303 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
5304 if (!SWIG_IsOK(res5)) {
5305 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_QRPT_solve" "', argument " "5"" of type '" "gsl_vector *""'");
5306 }
5307 arg5 = (gsl_vector *)(argp5);
5308 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);
5309 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5310
5311
5312
5313
5314
5315 XSRETURN(argvi);
5316 fail:
5317
5318
5319
5320
5321
5322 SWIG_croak_null();
5323 }
5324 }
5325
5326
XS(_wrap_gsl_linalg_QRPT_svx)5327 XS(_wrap_gsl_linalg_QRPT_svx) {
5328 {
5329 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5330 gsl_vector *arg2 = (gsl_vector *) 0 ;
5331 gsl_permutation *arg3 = (gsl_permutation *) 0 ;
5332 gsl_vector *arg4 = (gsl_vector *) 0 ;
5333 void *argp1 = 0 ;
5334 int res1 = 0 ;
5335 void *argp2 = 0 ;
5336 int res2 = 0 ;
5337 void *argp3 = 0 ;
5338 int res3 = 0 ;
5339 void *argp4 = 0 ;
5340 int res4 = 0 ;
5341 int argvi = 0;
5342 int result;
5343 dXSARGS;
5344
5345 if ((items < 4) || (items > 4)) {
5346 SWIG_croak("Usage: gsl_linalg_QRPT_svx(QR,tau,p,x);");
5347 }
5348 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5349 if (!SWIG_IsOK(res1)) {
5350 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QRPT_svx" "', argument " "1"" of type '" "gsl_matrix const *""'");
5351 }
5352 arg1 = (gsl_matrix *)(argp1);
5353 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
5354 if (!SWIG_IsOK(res2)) {
5355 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QRPT_svx" "', argument " "2"" of type '" "gsl_vector const *""'");
5356 }
5357 arg2 = (gsl_vector *)(argp2);
5358 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
5359 if (!SWIG_IsOK(res3)) {
5360 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QRPT_svx" "', argument " "3"" of type '" "gsl_permutation const *""'");
5361 }
5362 arg3 = (gsl_permutation *)(argp3);
5363 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
5364 if (!SWIG_IsOK(res4)) {
5365 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_QRPT_svx" "', argument " "4"" of type '" "gsl_vector *""'");
5366 }
5367 arg4 = (gsl_vector *)(argp4);
5368 result = (int)gsl_linalg_QRPT_svx((gsl_matrix const *)arg1,(gsl_vector const *)arg2,(struct gsl_permutation_struct const *)arg3,arg4);
5369 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5370
5371
5372
5373
5374 XSRETURN(argvi);
5375 fail:
5376
5377
5378
5379
5380 SWIG_croak_null();
5381 }
5382 }
5383
5384
XS(_wrap_gsl_linalg_QRPT_QRsolve)5385 XS(_wrap_gsl_linalg_QRPT_QRsolve) {
5386 {
5387 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5388 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
5389 gsl_permutation *arg3 = (gsl_permutation *) 0 ;
5390 gsl_vector *arg4 = (gsl_vector *) 0 ;
5391 gsl_vector *arg5 = (gsl_vector *) 0 ;
5392 void *argp1 = 0 ;
5393 int res1 = 0 ;
5394 void *argp2 = 0 ;
5395 int res2 = 0 ;
5396 void *argp3 = 0 ;
5397 int res3 = 0 ;
5398 void *argp4 = 0 ;
5399 int res4 = 0 ;
5400 void *argp5 = 0 ;
5401 int res5 = 0 ;
5402 int argvi = 0;
5403 int result;
5404 dXSARGS;
5405
5406 if ((items < 5) || (items > 5)) {
5407 SWIG_croak("Usage: gsl_linalg_QRPT_QRsolve(Q,R,p,b,x);");
5408 }
5409 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5410 if (!SWIG_IsOK(res1)) {
5411 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QRPT_QRsolve" "', argument " "1"" of type '" "gsl_matrix const *""'");
5412 }
5413 arg1 = (gsl_matrix *)(argp1);
5414 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5415 if (!SWIG_IsOK(res2)) {
5416 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QRPT_QRsolve" "', argument " "2"" of type '" "gsl_matrix const *""'");
5417 }
5418 arg2 = (gsl_matrix *)(argp2);
5419 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
5420 if (!SWIG_IsOK(res3)) {
5421 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QRPT_QRsolve" "', argument " "3"" of type '" "gsl_permutation const *""'");
5422 }
5423 arg3 = (gsl_permutation *)(argp3);
5424 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
5425 if (!SWIG_IsOK(res4)) {
5426 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_QRPT_QRsolve" "', argument " "4"" of type '" "gsl_vector const *""'");
5427 }
5428 arg4 = (gsl_vector *)(argp4);
5429 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
5430 if (!SWIG_IsOK(res5)) {
5431 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_QRPT_QRsolve" "', argument " "5"" of type '" "gsl_vector *""'");
5432 }
5433 arg5 = (gsl_vector *)(argp5);
5434 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);
5435 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5436
5437
5438
5439
5440
5441 XSRETURN(argvi);
5442 fail:
5443
5444
5445
5446
5447
5448 SWIG_croak_null();
5449 }
5450 }
5451
5452
XS(_wrap_gsl_linalg_QRPT_Rsolve)5453 XS(_wrap_gsl_linalg_QRPT_Rsolve) {
5454 {
5455 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5456 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
5457 gsl_vector *arg3 = (gsl_vector *) 0 ;
5458 gsl_vector *arg4 = (gsl_vector *) 0 ;
5459 void *argp1 = 0 ;
5460 int res1 = 0 ;
5461 void *argp2 = 0 ;
5462 int res2 = 0 ;
5463 void *argp3 = 0 ;
5464 int res3 = 0 ;
5465 void *argp4 = 0 ;
5466 int res4 = 0 ;
5467 int argvi = 0;
5468 int result;
5469 dXSARGS;
5470
5471 if ((items < 4) || (items > 4)) {
5472 SWIG_croak("Usage: gsl_linalg_QRPT_Rsolve(QR,p,b,x);");
5473 }
5474 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5475 if (!SWIG_IsOK(res1)) {
5476 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QRPT_Rsolve" "', argument " "1"" of type '" "gsl_matrix const *""'");
5477 }
5478 arg1 = (gsl_matrix *)(argp1);
5479 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
5480 if (!SWIG_IsOK(res2)) {
5481 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QRPT_Rsolve" "', argument " "2"" of type '" "gsl_permutation const *""'");
5482 }
5483 arg2 = (gsl_permutation *)(argp2);
5484 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
5485 if (!SWIG_IsOK(res3)) {
5486 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QRPT_Rsolve" "', argument " "3"" of type '" "gsl_vector const *""'");
5487 }
5488 arg3 = (gsl_vector *)(argp3);
5489 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
5490 if (!SWIG_IsOK(res4)) {
5491 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_QRPT_Rsolve" "', argument " "4"" of type '" "gsl_vector *""'");
5492 }
5493 arg4 = (gsl_vector *)(argp4);
5494 result = (int)gsl_linalg_QRPT_Rsolve((gsl_matrix const *)arg1,(struct gsl_permutation_struct const *)arg2,(gsl_vector const *)arg3,arg4);
5495 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5496
5497
5498
5499
5500 XSRETURN(argvi);
5501 fail:
5502
5503
5504
5505
5506 SWIG_croak_null();
5507 }
5508 }
5509
5510
XS(_wrap_gsl_linalg_QRPT_Rsvx)5511 XS(_wrap_gsl_linalg_QRPT_Rsvx) {
5512 {
5513 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5514 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
5515 gsl_vector *arg3 = (gsl_vector *) 0 ;
5516 void *argp1 = 0 ;
5517 int res1 = 0 ;
5518 void *argp2 = 0 ;
5519 int res2 = 0 ;
5520 void *argp3 = 0 ;
5521 int res3 = 0 ;
5522 int argvi = 0;
5523 int result;
5524 dXSARGS;
5525
5526 if ((items < 3) || (items > 3)) {
5527 SWIG_croak("Usage: gsl_linalg_QRPT_Rsvx(QR,p,x);");
5528 }
5529 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5530 if (!SWIG_IsOK(res1)) {
5531 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QRPT_Rsvx" "', argument " "1"" of type '" "gsl_matrix const *""'");
5532 }
5533 arg1 = (gsl_matrix *)(argp1);
5534 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
5535 if (!SWIG_IsOK(res2)) {
5536 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QRPT_Rsvx" "', argument " "2"" of type '" "gsl_permutation const *""'");
5537 }
5538 arg2 = (gsl_permutation *)(argp2);
5539 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
5540 if (!SWIG_IsOK(res3)) {
5541 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QRPT_Rsvx" "', argument " "3"" of type '" "gsl_vector *""'");
5542 }
5543 arg3 = (gsl_vector *)(argp3);
5544 result = (int)gsl_linalg_QRPT_Rsvx((gsl_matrix const *)arg1,(struct gsl_permutation_struct const *)arg2,arg3);
5545 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5546
5547
5548
5549 XSRETURN(argvi);
5550 fail:
5551
5552
5553
5554 SWIG_croak_null();
5555 }
5556 }
5557
5558
XS(_wrap_gsl_linalg_QRPT_update)5559 XS(_wrap_gsl_linalg_QRPT_update) {
5560 {
5561 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5562 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
5563 gsl_permutation *arg3 = (gsl_permutation *) 0 ;
5564 gsl_vector *arg4 = (gsl_vector *) 0 ;
5565 gsl_vector *arg5 = (gsl_vector *) 0 ;
5566 void *argp1 = 0 ;
5567 int res1 = 0 ;
5568 void *argp2 = 0 ;
5569 int res2 = 0 ;
5570 void *argp3 = 0 ;
5571 int res3 = 0 ;
5572 void *argp4 = 0 ;
5573 int res4 = 0 ;
5574 void *argp5 = 0 ;
5575 int res5 = 0 ;
5576 int argvi = 0;
5577 int result;
5578 dXSARGS;
5579
5580 if ((items < 5) || (items > 5)) {
5581 SWIG_croak("Usage: gsl_linalg_QRPT_update(Q,R,p,u,v);");
5582 }
5583 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5584 if (!SWIG_IsOK(res1)) {
5585 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_QRPT_update" "', argument " "1"" of type '" "gsl_matrix *""'");
5586 }
5587 arg1 = (gsl_matrix *)(argp1);
5588 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5589 if (!SWIG_IsOK(res2)) {
5590 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_QRPT_update" "', argument " "2"" of type '" "gsl_matrix *""'");
5591 }
5592 arg2 = (gsl_matrix *)(argp2);
5593 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
5594 if (!SWIG_IsOK(res3)) {
5595 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_QRPT_update" "', argument " "3"" of type '" "gsl_permutation const *""'");
5596 }
5597 arg3 = (gsl_permutation *)(argp3);
5598 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
5599 if (!SWIG_IsOK(res4)) {
5600 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_QRPT_update" "', argument " "4"" of type '" "gsl_vector *""'");
5601 }
5602 arg4 = (gsl_vector *)(argp4);
5603 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
5604 if (!SWIG_IsOK(res5)) {
5605 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_QRPT_update" "', argument " "5"" of type '" "gsl_vector const *""'");
5606 }
5607 arg5 = (gsl_vector *)(argp5);
5608 result = (int)gsl_linalg_QRPT_update(arg1,arg2,(struct gsl_permutation_struct const *)arg3,arg4,(gsl_vector const *)arg5);
5609 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5610
5611
5612
5613
5614
5615 XSRETURN(argvi);
5616 fail:
5617
5618
5619
5620
5621
5622 SWIG_croak_null();
5623 }
5624 }
5625
5626
XS(_wrap_gsl_linalg_LQ_decomp)5627 XS(_wrap_gsl_linalg_LQ_decomp) {
5628 {
5629 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5630 gsl_vector *arg2 = (gsl_vector *) 0 ;
5631 void *argp1 = 0 ;
5632 int res1 = 0 ;
5633 void *argp2 = 0 ;
5634 int res2 = 0 ;
5635 int argvi = 0;
5636 int result;
5637 dXSARGS;
5638
5639 if ((items < 2) || (items > 2)) {
5640 SWIG_croak("Usage: gsl_linalg_LQ_decomp(A,tau);");
5641 }
5642 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5643 if (!SWIG_IsOK(res1)) {
5644 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LQ_decomp" "', argument " "1"" of type '" "gsl_matrix *""'");
5645 }
5646 arg1 = (gsl_matrix *)(argp1);
5647 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
5648 if (!SWIG_IsOK(res2)) {
5649 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_LQ_decomp" "', argument " "2"" of type '" "gsl_vector *""'");
5650 }
5651 arg2 = (gsl_vector *)(argp2);
5652 result = (int)gsl_linalg_LQ_decomp(arg1,arg2);
5653 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5654
5655
5656 XSRETURN(argvi);
5657 fail:
5658
5659
5660 SWIG_croak_null();
5661 }
5662 }
5663
5664
XS(_wrap_gsl_linalg_LQ_solve_T)5665 XS(_wrap_gsl_linalg_LQ_solve_T) {
5666 {
5667 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5668 gsl_vector *arg2 = (gsl_vector *) 0 ;
5669 gsl_vector *arg3 = (gsl_vector *) 0 ;
5670 gsl_vector *arg4 = (gsl_vector *) 0 ;
5671 void *argp1 = 0 ;
5672 int res1 = 0 ;
5673 void *argp2 = 0 ;
5674 int res2 = 0 ;
5675 void *argp3 = 0 ;
5676 int res3 = 0 ;
5677 void *argp4 = 0 ;
5678 int res4 = 0 ;
5679 int argvi = 0;
5680 int result;
5681 dXSARGS;
5682
5683 if ((items < 4) || (items > 4)) {
5684 SWIG_croak("Usage: gsl_linalg_LQ_solve_T(LQ,tau,b,x);");
5685 }
5686 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5687 if (!SWIG_IsOK(res1)) {
5688 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LQ_solve_T" "', argument " "1"" of type '" "gsl_matrix const *""'");
5689 }
5690 arg1 = (gsl_matrix *)(argp1);
5691 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
5692 if (!SWIG_IsOK(res2)) {
5693 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_LQ_solve_T" "', argument " "2"" of type '" "gsl_vector const *""'");
5694 }
5695 arg2 = (gsl_vector *)(argp2);
5696 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
5697 if (!SWIG_IsOK(res3)) {
5698 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_LQ_solve_T" "', argument " "3"" of type '" "gsl_vector const *""'");
5699 }
5700 arg3 = (gsl_vector *)(argp3);
5701 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
5702 if (!SWIG_IsOK(res4)) {
5703 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_LQ_solve_T" "', argument " "4"" of type '" "gsl_vector *""'");
5704 }
5705 arg4 = (gsl_vector *)(argp4);
5706 result = (int)gsl_linalg_LQ_solve_T((gsl_matrix const *)arg1,(gsl_vector const *)arg2,(gsl_vector const *)arg3,arg4);
5707 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5708
5709
5710
5711
5712 XSRETURN(argvi);
5713 fail:
5714
5715
5716
5717
5718 SWIG_croak_null();
5719 }
5720 }
5721
5722
XS(_wrap_gsl_linalg_LQ_svx_T)5723 XS(_wrap_gsl_linalg_LQ_svx_T) {
5724 {
5725 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5726 gsl_vector *arg2 = (gsl_vector *) 0 ;
5727 gsl_vector *arg3 = (gsl_vector *) 0 ;
5728 void *argp1 = 0 ;
5729 int res1 = 0 ;
5730 void *argp2 = 0 ;
5731 int res2 = 0 ;
5732 void *argp3 = 0 ;
5733 int res3 = 0 ;
5734 int argvi = 0;
5735 int result;
5736 dXSARGS;
5737
5738 if ((items < 3) || (items > 3)) {
5739 SWIG_croak("Usage: gsl_linalg_LQ_svx_T(LQ,tau,x);");
5740 }
5741 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5742 if (!SWIG_IsOK(res1)) {
5743 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LQ_svx_T" "', argument " "1"" of type '" "gsl_matrix const *""'");
5744 }
5745 arg1 = (gsl_matrix *)(argp1);
5746 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
5747 if (!SWIG_IsOK(res2)) {
5748 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_LQ_svx_T" "', argument " "2"" of type '" "gsl_vector const *""'");
5749 }
5750 arg2 = (gsl_vector *)(argp2);
5751 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
5752 if (!SWIG_IsOK(res3)) {
5753 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_LQ_svx_T" "', argument " "3"" of type '" "gsl_vector *""'");
5754 }
5755 arg3 = (gsl_vector *)(argp3);
5756 result = (int)gsl_linalg_LQ_svx_T((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3);
5757 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5758
5759
5760
5761 XSRETURN(argvi);
5762 fail:
5763
5764
5765
5766 SWIG_croak_null();
5767 }
5768 }
5769
5770
XS(_wrap_gsl_linalg_LQ_lssolve_T)5771 XS(_wrap_gsl_linalg_LQ_lssolve_T) {
5772 {
5773 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5774 gsl_vector *arg2 = (gsl_vector *) 0 ;
5775 gsl_vector *arg3 = (gsl_vector *) 0 ;
5776 gsl_vector *arg4 = (gsl_vector *) 0 ;
5777 gsl_vector *arg5 = (gsl_vector *) 0 ;
5778 void *argp1 = 0 ;
5779 int res1 = 0 ;
5780 void *argp2 = 0 ;
5781 int res2 = 0 ;
5782 void *argp3 = 0 ;
5783 int res3 = 0 ;
5784 void *argp4 = 0 ;
5785 int res4 = 0 ;
5786 void *argp5 = 0 ;
5787 int res5 = 0 ;
5788 int argvi = 0;
5789 int result;
5790 dXSARGS;
5791
5792 if ((items < 5) || (items > 5)) {
5793 SWIG_croak("Usage: gsl_linalg_LQ_lssolve_T(LQ,tau,b,x,residual);");
5794 }
5795 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5796 if (!SWIG_IsOK(res1)) {
5797 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LQ_lssolve_T" "', argument " "1"" of type '" "gsl_matrix const *""'");
5798 }
5799 arg1 = (gsl_matrix *)(argp1);
5800 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
5801 if (!SWIG_IsOK(res2)) {
5802 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_LQ_lssolve_T" "', argument " "2"" of type '" "gsl_vector const *""'");
5803 }
5804 arg2 = (gsl_vector *)(argp2);
5805 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
5806 if (!SWIG_IsOK(res3)) {
5807 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_LQ_lssolve_T" "', argument " "3"" of type '" "gsl_vector const *""'");
5808 }
5809 arg3 = (gsl_vector *)(argp3);
5810 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
5811 if (!SWIG_IsOK(res4)) {
5812 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_LQ_lssolve_T" "', argument " "4"" of type '" "gsl_vector *""'");
5813 }
5814 arg4 = (gsl_vector *)(argp4);
5815 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
5816 if (!SWIG_IsOK(res5)) {
5817 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_LQ_lssolve_T" "', argument " "5"" of type '" "gsl_vector *""'");
5818 }
5819 arg5 = (gsl_vector *)(argp5);
5820 result = (int)gsl_linalg_LQ_lssolve_T((gsl_matrix const *)arg1,(gsl_vector const *)arg2,(gsl_vector const *)arg3,arg4,arg5);
5821 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5822
5823
5824
5825
5826
5827 XSRETURN(argvi);
5828 fail:
5829
5830
5831
5832
5833
5834 SWIG_croak_null();
5835 }
5836 }
5837
5838
XS(_wrap_gsl_linalg_LQ_Lsolve_T)5839 XS(_wrap_gsl_linalg_LQ_Lsolve_T) {
5840 {
5841 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5842 gsl_vector *arg2 = (gsl_vector *) 0 ;
5843 gsl_vector *arg3 = (gsl_vector *) 0 ;
5844 void *argp1 = 0 ;
5845 int res1 = 0 ;
5846 void *argp2 = 0 ;
5847 int res2 = 0 ;
5848 void *argp3 = 0 ;
5849 int res3 = 0 ;
5850 int argvi = 0;
5851 int result;
5852 dXSARGS;
5853
5854 if ((items < 3) || (items > 3)) {
5855 SWIG_croak("Usage: gsl_linalg_LQ_Lsolve_T(LQ,b,x);");
5856 }
5857 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5858 if (!SWIG_IsOK(res1)) {
5859 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LQ_Lsolve_T" "', argument " "1"" of type '" "gsl_matrix const *""'");
5860 }
5861 arg1 = (gsl_matrix *)(argp1);
5862 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
5863 if (!SWIG_IsOK(res2)) {
5864 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_LQ_Lsolve_T" "', argument " "2"" of type '" "gsl_vector const *""'");
5865 }
5866 arg2 = (gsl_vector *)(argp2);
5867 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
5868 if (!SWIG_IsOK(res3)) {
5869 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_LQ_Lsolve_T" "', argument " "3"" of type '" "gsl_vector *""'");
5870 }
5871 arg3 = (gsl_vector *)(argp3);
5872 result = (int)gsl_linalg_LQ_Lsolve_T((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3);
5873 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5874
5875
5876
5877 XSRETURN(argvi);
5878 fail:
5879
5880
5881
5882 SWIG_croak_null();
5883 }
5884 }
5885
5886
XS(_wrap_gsl_linalg_LQ_Lsvx_T)5887 XS(_wrap_gsl_linalg_LQ_Lsvx_T) {
5888 {
5889 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5890 gsl_vector *arg2 = (gsl_vector *) 0 ;
5891 void *argp1 = 0 ;
5892 int res1 = 0 ;
5893 void *argp2 = 0 ;
5894 int res2 = 0 ;
5895 int argvi = 0;
5896 int result;
5897 dXSARGS;
5898
5899 if ((items < 2) || (items > 2)) {
5900 SWIG_croak("Usage: gsl_linalg_LQ_Lsvx_T(LQ,x);");
5901 }
5902 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5903 if (!SWIG_IsOK(res1)) {
5904 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LQ_Lsvx_T" "', argument " "1"" of type '" "gsl_matrix const *""'");
5905 }
5906 arg1 = (gsl_matrix *)(argp1);
5907 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
5908 if (!SWIG_IsOK(res2)) {
5909 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_LQ_Lsvx_T" "', argument " "2"" of type '" "gsl_vector *""'");
5910 }
5911 arg2 = (gsl_vector *)(argp2);
5912 result = (int)gsl_linalg_LQ_Lsvx_T((gsl_matrix const *)arg1,arg2);
5913 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5914
5915
5916 XSRETURN(argvi);
5917 fail:
5918
5919
5920 SWIG_croak_null();
5921 }
5922 }
5923
5924
XS(_wrap_gsl_linalg_L_solve_T)5925 XS(_wrap_gsl_linalg_L_solve_T) {
5926 {
5927 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5928 gsl_vector *arg2 = (gsl_vector *) 0 ;
5929 gsl_vector *arg3 = (gsl_vector *) 0 ;
5930 void *argp1 = 0 ;
5931 int res1 = 0 ;
5932 void *argp2 = 0 ;
5933 int res2 = 0 ;
5934 void *argp3 = 0 ;
5935 int res3 = 0 ;
5936 int argvi = 0;
5937 int result;
5938 dXSARGS;
5939
5940 if ((items < 3) || (items > 3)) {
5941 SWIG_croak("Usage: gsl_linalg_L_solve_T(L,b,x);");
5942 }
5943 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5944 if (!SWIG_IsOK(res1)) {
5945 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_L_solve_T" "', argument " "1"" of type '" "gsl_matrix const *""'");
5946 }
5947 arg1 = (gsl_matrix *)(argp1);
5948 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
5949 if (!SWIG_IsOK(res2)) {
5950 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_L_solve_T" "', argument " "2"" of type '" "gsl_vector const *""'");
5951 }
5952 arg2 = (gsl_vector *)(argp2);
5953 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
5954 if (!SWIG_IsOK(res3)) {
5955 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_L_solve_T" "', argument " "3"" of type '" "gsl_vector *""'");
5956 }
5957 arg3 = (gsl_vector *)(argp3);
5958 result = (int)gsl_linalg_L_solve_T((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3);
5959 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5960
5961
5962
5963 XSRETURN(argvi);
5964 fail:
5965
5966
5967
5968 SWIG_croak_null();
5969 }
5970 }
5971
5972
XS(_wrap_gsl_linalg_LQ_vecQ)5973 XS(_wrap_gsl_linalg_LQ_vecQ) {
5974 {
5975 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5976 gsl_vector *arg2 = (gsl_vector *) 0 ;
5977 gsl_vector *arg3 = (gsl_vector *) 0 ;
5978 void *argp1 = 0 ;
5979 int res1 = 0 ;
5980 void *argp2 = 0 ;
5981 int res2 = 0 ;
5982 void *argp3 = 0 ;
5983 int res3 = 0 ;
5984 int argvi = 0;
5985 int result;
5986 dXSARGS;
5987
5988 if ((items < 3) || (items > 3)) {
5989 SWIG_croak("Usage: gsl_linalg_LQ_vecQ(LQ,tau,v);");
5990 }
5991 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5992 if (!SWIG_IsOK(res1)) {
5993 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LQ_vecQ" "', argument " "1"" of type '" "gsl_matrix const *""'");
5994 }
5995 arg1 = (gsl_matrix *)(argp1);
5996 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
5997 if (!SWIG_IsOK(res2)) {
5998 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_LQ_vecQ" "', argument " "2"" of type '" "gsl_vector const *""'");
5999 }
6000 arg2 = (gsl_vector *)(argp2);
6001 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
6002 if (!SWIG_IsOK(res3)) {
6003 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_LQ_vecQ" "', argument " "3"" of type '" "gsl_vector *""'");
6004 }
6005 arg3 = (gsl_vector *)(argp3);
6006 result = (int)gsl_linalg_LQ_vecQ((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3);
6007 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6008
6009
6010
6011 XSRETURN(argvi);
6012 fail:
6013
6014
6015
6016 SWIG_croak_null();
6017 }
6018 }
6019
6020
XS(_wrap_gsl_linalg_LQ_vecQT)6021 XS(_wrap_gsl_linalg_LQ_vecQT) {
6022 {
6023 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
6024 gsl_vector *arg2 = (gsl_vector *) 0 ;
6025 gsl_vector *arg3 = (gsl_vector *) 0 ;
6026 void *argp1 = 0 ;
6027 int res1 = 0 ;
6028 void *argp2 = 0 ;
6029 int res2 = 0 ;
6030 void *argp3 = 0 ;
6031 int res3 = 0 ;
6032 int argvi = 0;
6033 int result;
6034 dXSARGS;
6035
6036 if ((items < 3) || (items > 3)) {
6037 SWIG_croak("Usage: gsl_linalg_LQ_vecQT(LQ,tau,v);");
6038 }
6039 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6040 if (!SWIG_IsOK(res1)) {
6041 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LQ_vecQT" "', argument " "1"" of type '" "gsl_matrix const *""'");
6042 }
6043 arg1 = (gsl_matrix *)(argp1);
6044 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
6045 if (!SWIG_IsOK(res2)) {
6046 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_LQ_vecQT" "', argument " "2"" of type '" "gsl_vector const *""'");
6047 }
6048 arg2 = (gsl_vector *)(argp2);
6049 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
6050 if (!SWIG_IsOK(res3)) {
6051 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_LQ_vecQT" "', argument " "3"" of type '" "gsl_vector *""'");
6052 }
6053 arg3 = (gsl_vector *)(argp3);
6054 result = (int)gsl_linalg_LQ_vecQT((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3);
6055 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6056
6057
6058
6059 XSRETURN(argvi);
6060 fail:
6061
6062
6063
6064 SWIG_croak_null();
6065 }
6066 }
6067
6068
XS(_wrap_gsl_linalg_LQ_unpack)6069 XS(_wrap_gsl_linalg_LQ_unpack) {
6070 {
6071 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
6072 gsl_vector *arg2 = (gsl_vector *) 0 ;
6073 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
6074 gsl_matrix *arg4 = (gsl_matrix *) 0 ;
6075 void *argp1 = 0 ;
6076 int res1 = 0 ;
6077 void *argp2 = 0 ;
6078 int res2 = 0 ;
6079 void *argp3 = 0 ;
6080 int res3 = 0 ;
6081 void *argp4 = 0 ;
6082 int res4 = 0 ;
6083 int argvi = 0;
6084 int result;
6085 dXSARGS;
6086
6087 if ((items < 4) || (items > 4)) {
6088 SWIG_croak("Usage: gsl_linalg_LQ_unpack(LQ,tau,Q,L);");
6089 }
6090 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6091 if (!SWIG_IsOK(res1)) {
6092 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LQ_unpack" "', argument " "1"" of type '" "gsl_matrix const *""'");
6093 }
6094 arg1 = (gsl_matrix *)(argp1);
6095 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
6096 if (!SWIG_IsOK(res2)) {
6097 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_LQ_unpack" "', argument " "2"" of type '" "gsl_vector const *""'");
6098 }
6099 arg2 = (gsl_vector *)(argp2);
6100 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6101 if (!SWIG_IsOK(res3)) {
6102 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_LQ_unpack" "', argument " "3"" of type '" "gsl_matrix *""'");
6103 }
6104 arg3 = (gsl_matrix *)(argp3);
6105 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6106 if (!SWIG_IsOK(res4)) {
6107 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_LQ_unpack" "', argument " "4"" of type '" "gsl_matrix *""'");
6108 }
6109 arg4 = (gsl_matrix *)(argp4);
6110 result = (int)gsl_linalg_LQ_unpack((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3,arg4);
6111 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6112
6113
6114
6115
6116 XSRETURN(argvi);
6117 fail:
6118
6119
6120
6121
6122 SWIG_croak_null();
6123 }
6124 }
6125
6126
XS(_wrap_gsl_linalg_LQ_update)6127 XS(_wrap_gsl_linalg_LQ_update) {
6128 {
6129 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
6130 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
6131 gsl_vector *arg3 = (gsl_vector *) 0 ;
6132 gsl_vector *arg4 = (gsl_vector *) 0 ;
6133 void *argp1 = 0 ;
6134 int res1 = 0 ;
6135 void *argp2 = 0 ;
6136 int res2 = 0 ;
6137 void *argp3 = 0 ;
6138 int res3 = 0 ;
6139 void *argp4 = 0 ;
6140 int res4 = 0 ;
6141 int argvi = 0;
6142 int result;
6143 dXSARGS;
6144
6145 if ((items < 4) || (items > 4)) {
6146 SWIG_croak("Usage: gsl_linalg_LQ_update(Q,R,v,w);");
6147 }
6148 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6149 if (!SWIG_IsOK(res1)) {
6150 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LQ_update" "', argument " "1"" of type '" "gsl_matrix *""'");
6151 }
6152 arg1 = (gsl_matrix *)(argp1);
6153 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6154 if (!SWIG_IsOK(res2)) {
6155 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_LQ_update" "', argument " "2"" of type '" "gsl_matrix *""'");
6156 }
6157 arg2 = (gsl_matrix *)(argp2);
6158 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
6159 if (!SWIG_IsOK(res3)) {
6160 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_LQ_update" "', argument " "3"" of type '" "gsl_vector const *""'");
6161 }
6162 arg3 = (gsl_vector *)(argp3);
6163 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
6164 if (!SWIG_IsOK(res4)) {
6165 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_LQ_update" "', argument " "4"" of type '" "gsl_vector *""'");
6166 }
6167 arg4 = (gsl_vector *)(argp4);
6168 result = (int)gsl_linalg_LQ_update(arg1,arg2,(gsl_vector const *)arg3,arg4);
6169 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6170
6171
6172
6173
6174 XSRETURN(argvi);
6175 fail:
6176
6177
6178
6179
6180 SWIG_croak_null();
6181 }
6182 }
6183
6184
XS(_wrap_gsl_linalg_LQ_LQsolve)6185 XS(_wrap_gsl_linalg_LQ_LQsolve) {
6186 {
6187 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
6188 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
6189 gsl_vector *arg3 = (gsl_vector *) 0 ;
6190 gsl_vector *arg4 = (gsl_vector *) 0 ;
6191 void *argp1 = 0 ;
6192 int res1 = 0 ;
6193 void *argp2 = 0 ;
6194 int res2 = 0 ;
6195 void *argp3 = 0 ;
6196 int res3 = 0 ;
6197 void *argp4 = 0 ;
6198 int res4 = 0 ;
6199 int argvi = 0;
6200 int result;
6201 dXSARGS;
6202
6203 if ((items < 4) || (items > 4)) {
6204 SWIG_croak("Usage: gsl_linalg_LQ_LQsolve(Q,L,b,x);");
6205 }
6206 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6207 if (!SWIG_IsOK(res1)) {
6208 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_LQ_LQsolve" "', argument " "1"" of type '" "gsl_matrix *""'");
6209 }
6210 arg1 = (gsl_matrix *)(argp1);
6211 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6212 if (!SWIG_IsOK(res2)) {
6213 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_LQ_LQsolve" "', argument " "2"" of type '" "gsl_matrix *""'");
6214 }
6215 arg2 = (gsl_matrix *)(argp2);
6216 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
6217 if (!SWIG_IsOK(res3)) {
6218 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_LQ_LQsolve" "', argument " "3"" of type '" "gsl_vector const *""'");
6219 }
6220 arg3 = (gsl_vector *)(argp3);
6221 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
6222 if (!SWIG_IsOK(res4)) {
6223 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_LQ_LQsolve" "', argument " "4"" of type '" "gsl_vector *""'");
6224 }
6225 arg4 = (gsl_vector *)(argp4);
6226 result = (int)gsl_linalg_LQ_LQsolve(arg1,arg2,(gsl_vector const *)arg3,arg4);
6227 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6228
6229
6230
6231
6232 XSRETURN(argvi);
6233 fail:
6234
6235
6236
6237
6238 SWIG_croak_null();
6239 }
6240 }
6241
6242
XS(_wrap_gsl_linalg_PTLQ_decomp)6243 XS(_wrap_gsl_linalg_PTLQ_decomp) {
6244 {
6245 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
6246 gsl_vector *arg2 = (gsl_vector *) 0 ;
6247 gsl_permutation *arg3 = (gsl_permutation *) 0 ;
6248 int *arg4 = (int *) 0 ;
6249 gsl_vector *arg5 = (gsl_vector *) 0 ;
6250 void *argp1 = 0 ;
6251 int res1 = 0 ;
6252 void *argp2 = 0 ;
6253 int res2 = 0 ;
6254 void *argp3 = 0 ;
6255 int res3 = 0 ;
6256 int temp4 ;
6257 int res4 = SWIG_TMPOBJ ;
6258 void *argp5 = 0 ;
6259 int res5 = 0 ;
6260 int argvi = 0;
6261 int result;
6262 dXSARGS;
6263
6264 arg4 = &temp4;
6265 if ((items < 4) || (items > 4)) {
6266 SWIG_croak("Usage: gsl_linalg_PTLQ_decomp(A,tau,p,norm);");
6267 }
6268 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6269 if (!SWIG_IsOK(res1)) {
6270 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_PTLQ_decomp" "', argument " "1"" of type '" "gsl_matrix *""'");
6271 }
6272 arg1 = (gsl_matrix *)(argp1);
6273 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
6274 if (!SWIG_IsOK(res2)) {
6275 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_PTLQ_decomp" "', argument " "2"" of type '" "gsl_vector *""'");
6276 }
6277 arg2 = (gsl_vector *)(argp2);
6278 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
6279 if (!SWIG_IsOK(res3)) {
6280 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_PTLQ_decomp" "', argument " "3"" of type '" "gsl_permutation *""'");
6281 }
6282 arg3 = (gsl_permutation *)(argp3);
6283 res5 = SWIG_ConvertPtr(ST(3), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
6284 if (!SWIG_IsOK(res5)) {
6285 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_PTLQ_decomp" "', argument " "5"" of type '" "gsl_vector *""'");
6286 }
6287 arg5 = (gsl_vector *)(argp5);
6288 result = (int)gsl_linalg_PTLQ_decomp(arg1,arg2,arg3,arg4,arg5);
6289 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6290 if (SWIG_IsTmpObj(res4)) {
6291 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((*arg4)); argvi++ ;
6292 } else {
6293 int new_flags = SWIG_IsNewObj(res4) ? (SWIG_POINTER_OWN | 0) : 0;
6294 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg4), SWIGTYPE_p_int, new_flags); argvi++ ;
6295 }
6296
6297
6298
6299
6300
6301 XSRETURN(argvi);
6302 fail:
6303
6304
6305
6306
6307
6308 SWIG_croak_null();
6309 }
6310 }
6311
6312
XS(_wrap_gsl_linalg_PTLQ_decomp2)6313 XS(_wrap_gsl_linalg_PTLQ_decomp2) {
6314 {
6315 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
6316 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
6317 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
6318 gsl_vector *arg4 = (gsl_vector *) 0 ;
6319 gsl_permutation *arg5 = (gsl_permutation *) 0 ;
6320 int *arg6 = (int *) 0 ;
6321 gsl_vector *arg7 = (gsl_vector *) 0 ;
6322 void *argp1 = 0 ;
6323 int res1 = 0 ;
6324 void *argp2 = 0 ;
6325 int res2 = 0 ;
6326 void *argp3 = 0 ;
6327 int res3 = 0 ;
6328 void *argp4 = 0 ;
6329 int res4 = 0 ;
6330 void *argp5 = 0 ;
6331 int res5 = 0 ;
6332 int temp6 ;
6333 int res6 = SWIG_TMPOBJ ;
6334 void *argp7 = 0 ;
6335 int res7 = 0 ;
6336 int argvi = 0;
6337 int result;
6338 dXSARGS;
6339
6340 arg6 = &temp6;
6341 if ((items < 6) || (items > 6)) {
6342 SWIG_croak("Usage: gsl_linalg_PTLQ_decomp2(A,q,r,tau,p,norm);");
6343 }
6344 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6345 if (!SWIG_IsOK(res1)) {
6346 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_PTLQ_decomp2" "', argument " "1"" of type '" "gsl_matrix const *""'");
6347 }
6348 arg1 = (gsl_matrix *)(argp1);
6349 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6350 if (!SWIG_IsOK(res2)) {
6351 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_PTLQ_decomp2" "', argument " "2"" of type '" "gsl_matrix *""'");
6352 }
6353 arg2 = (gsl_matrix *)(argp2);
6354 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6355 if (!SWIG_IsOK(res3)) {
6356 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_PTLQ_decomp2" "', argument " "3"" of type '" "gsl_matrix *""'");
6357 }
6358 arg3 = (gsl_matrix *)(argp3);
6359 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
6360 if (!SWIG_IsOK(res4)) {
6361 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_PTLQ_decomp2" "', argument " "4"" of type '" "gsl_vector *""'");
6362 }
6363 arg4 = (gsl_vector *)(argp4);
6364 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
6365 if (!SWIG_IsOK(res5)) {
6366 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_PTLQ_decomp2" "', argument " "5"" of type '" "gsl_permutation *""'");
6367 }
6368 arg5 = (gsl_permutation *)(argp5);
6369 res7 = SWIG_ConvertPtr(ST(5), &argp7,SWIGTYPE_p_gsl_vector, 0 | 0 );
6370 if (!SWIG_IsOK(res7)) {
6371 SWIG_exception_fail(SWIG_ArgError(res7), "in method '" "gsl_linalg_PTLQ_decomp2" "', argument " "7"" of type '" "gsl_vector *""'");
6372 }
6373 arg7 = (gsl_vector *)(argp7);
6374 result = (int)gsl_linalg_PTLQ_decomp2((gsl_matrix const *)arg1,arg2,arg3,arg4,arg5,arg6,arg7);
6375 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6376 if (SWIG_IsTmpObj(res6)) {
6377 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((*arg6)); argvi++ ;
6378 } else {
6379 int new_flags = SWIG_IsNewObj(res6) ? (SWIG_POINTER_OWN | 0) : 0;
6380 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg6), SWIGTYPE_p_int, new_flags); argvi++ ;
6381 }
6382
6383
6384
6385
6386
6387
6388
6389 XSRETURN(argvi);
6390 fail:
6391
6392
6393
6394
6395
6396
6397
6398 SWIG_croak_null();
6399 }
6400 }
6401
6402
XS(_wrap_gsl_linalg_PTLQ_solve_T)6403 XS(_wrap_gsl_linalg_PTLQ_solve_T) {
6404 {
6405 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
6406 gsl_vector *arg2 = (gsl_vector *) 0 ;
6407 gsl_permutation *arg3 = (gsl_permutation *) 0 ;
6408 gsl_vector *arg4 = (gsl_vector *) 0 ;
6409 gsl_vector *arg5 = (gsl_vector *) 0 ;
6410 void *argp1 = 0 ;
6411 int res1 = 0 ;
6412 void *argp2 = 0 ;
6413 int res2 = 0 ;
6414 void *argp3 = 0 ;
6415 int res3 = 0 ;
6416 void *argp4 = 0 ;
6417 int res4 = 0 ;
6418 void *argp5 = 0 ;
6419 int res5 = 0 ;
6420 int argvi = 0;
6421 int result;
6422 dXSARGS;
6423
6424 if ((items < 5) || (items > 5)) {
6425 SWIG_croak("Usage: gsl_linalg_PTLQ_solve_T(QR,tau,p,b,x);");
6426 }
6427 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6428 if (!SWIG_IsOK(res1)) {
6429 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_PTLQ_solve_T" "', argument " "1"" of type '" "gsl_matrix const *""'");
6430 }
6431 arg1 = (gsl_matrix *)(argp1);
6432 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
6433 if (!SWIG_IsOK(res2)) {
6434 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_PTLQ_solve_T" "', argument " "2"" of type '" "gsl_vector const *""'");
6435 }
6436 arg2 = (gsl_vector *)(argp2);
6437 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
6438 if (!SWIG_IsOK(res3)) {
6439 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_PTLQ_solve_T" "', argument " "3"" of type '" "gsl_permutation const *""'");
6440 }
6441 arg3 = (gsl_permutation *)(argp3);
6442 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
6443 if (!SWIG_IsOK(res4)) {
6444 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_PTLQ_solve_T" "', argument " "4"" of type '" "gsl_vector const *""'");
6445 }
6446 arg4 = (gsl_vector *)(argp4);
6447 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
6448 if (!SWIG_IsOK(res5)) {
6449 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_PTLQ_solve_T" "', argument " "5"" of type '" "gsl_vector *""'");
6450 }
6451 arg5 = (gsl_vector *)(argp5);
6452 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);
6453 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6454
6455
6456
6457
6458
6459 XSRETURN(argvi);
6460 fail:
6461
6462
6463
6464
6465
6466 SWIG_croak_null();
6467 }
6468 }
6469
6470
XS(_wrap_gsl_linalg_PTLQ_svx_T)6471 XS(_wrap_gsl_linalg_PTLQ_svx_T) {
6472 {
6473 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
6474 gsl_vector *arg2 = (gsl_vector *) 0 ;
6475 gsl_permutation *arg3 = (gsl_permutation *) 0 ;
6476 gsl_vector *arg4 = (gsl_vector *) 0 ;
6477 void *argp1 = 0 ;
6478 int res1 = 0 ;
6479 void *argp2 = 0 ;
6480 int res2 = 0 ;
6481 void *argp3 = 0 ;
6482 int res3 = 0 ;
6483 void *argp4 = 0 ;
6484 int res4 = 0 ;
6485 int argvi = 0;
6486 int result;
6487 dXSARGS;
6488
6489 if ((items < 4) || (items > 4)) {
6490 SWIG_croak("Usage: gsl_linalg_PTLQ_svx_T(LQ,tau,p,x);");
6491 }
6492 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6493 if (!SWIG_IsOK(res1)) {
6494 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_PTLQ_svx_T" "', argument " "1"" of type '" "gsl_matrix const *""'");
6495 }
6496 arg1 = (gsl_matrix *)(argp1);
6497 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
6498 if (!SWIG_IsOK(res2)) {
6499 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_PTLQ_svx_T" "', argument " "2"" of type '" "gsl_vector const *""'");
6500 }
6501 arg2 = (gsl_vector *)(argp2);
6502 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
6503 if (!SWIG_IsOK(res3)) {
6504 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_PTLQ_svx_T" "', argument " "3"" of type '" "gsl_permutation const *""'");
6505 }
6506 arg3 = (gsl_permutation *)(argp3);
6507 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
6508 if (!SWIG_IsOK(res4)) {
6509 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_PTLQ_svx_T" "', argument " "4"" of type '" "gsl_vector *""'");
6510 }
6511 arg4 = (gsl_vector *)(argp4);
6512 result = (int)gsl_linalg_PTLQ_svx_T((gsl_matrix const *)arg1,(gsl_vector const *)arg2,(struct gsl_permutation_struct const *)arg3,arg4);
6513 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6514
6515
6516
6517
6518 XSRETURN(argvi);
6519 fail:
6520
6521
6522
6523
6524 SWIG_croak_null();
6525 }
6526 }
6527
6528
XS(_wrap_gsl_linalg_PTLQ_LQsolve_T)6529 XS(_wrap_gsl_linalg_PTLQ_LQsolve_T) {
6530 {
6531 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
6532 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
6533 gsl_permutation *arg3 = (gsl_permutation *) 0 ;
6534 gsl_vector *arg4 = (gsl_vector *) 0 ;
6535 gsl_vector *arg5 = (gsl_vector *) 0 ;
6536 void *argp1 = 0 ;
6537 int res1 = 0 ;
6538 void *argp2 = 0 ;
6539 int res2 = 0 ;
6540 void *argp3 = 0 ;
6541 int res3 = 0 ;
6542 void *argp4 = 0 ;
6543 int res4 = 0 ;
6544 void *argp5 = 0 ;
6545 int res5 = 0 ;
6546 int argvi = 0;
6547 int result;
6548 dXSARGS;
6549
6550 if ((items < 5) || (items > 5)) {
6551 SWIG_croak("Usage: gsl_linalg_PTLQ_LQsolve_T(Q,L,p,b,x);");
6552 }
6553 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6554 if (!SWIG_IsOK(res1)) {
6555 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_PTLQ_LQsolve_T" "', argument " "1"" of type '" "gsl_matrix const *""'");
6556 }
6557 arg1 = (gsl_matrix *)(argp1);
6558 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6559 if (!SWIG_IsOK(res2)) {
6560 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_PTLQ_LQsolve_T" "', argument " "2"" of type '" "gsl_matrix const *""'");
6561 }
6562 arg2 = (gsl_matrix *)(argp2);
6563 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
6564 if (!SWIG_IsOK(res3)) {
6565 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_PTLQ_LQsolve_T" "', argument " "3"" of type '" "gsl_permutation const *""'");
6566 }
6567 arg3 = (gsl_permutation *)(argp3);
6568 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
6569 if (!SWIG_IsOK(res4)) {
6570 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_PTLQ_LQsolve_T" "', argument " "4"" of type '" "gsl_vector const *""'");
6571 }
6572 arg4 = (gsl_vector *)(argp4);
6573 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
6574 if (!SWIG_IsOK(res5)) {
6575 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_PTLQ_LQsolve_T" "', argument " "5"" of type '" "gsl_vector *""'");
6576 }
6577 arg5 = (gsl_vector *)(argp5);
6578 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);
6579 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6580
6581
6582
6583
6584
6585 XSRETURN(argvi);
6586 fail:
6587
6588
6589
6590
6591
6592 SWIG_croak_null();
6593 }
6594 }
6595
6596
XS(_wrap_gsl_linalg_PTLQ_Lsolve_T)6597 XS(_wrap_gsl_linalg_PTLQ_Lsolve_T) {
6598 {
6599 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
6600 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
6601 gsl_vector *arg3 = (gsl_vector *) 0 ;
6602 gsl_vector *arg4 = (gsl_vector *) 0 ;
6603 void *argp1 = 0 ;
6604 int res1 = 0 ;
6605 void *argp2 = 0 ;
6606 int res2 = 0 ;
6607 void *argp3 = 0 ;
6608 int res3 = 0 ;
6609 void *argp4 = 0 ;
6610 int res4 = 0 ;
6611 int argvi = 0;
6612 int result;
6613 dXSARGS;
6614
6615 if ((items < 4) || (items > 4)) {
6616 SWIG_croak("Usage: gsl_linalg_PTLQ_Lsolve_T(LQ,p,b,x);");
6617 }
6618 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6619 if (!SWIG_IsOK(res1)) {
6620 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_PTLQ_Lsolve_T" "', argument " "1"" of type '" "gsl_matrix const *""'");
6621 }
6622 arg1 = (gsl_matrix *)(argp1);
6623 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
6624 if (!SWIG_IsOK(res2)) {
6625 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_PTLQ_Lsolve_T" "', argument " "2"" of type '" "gsl_permutation const *""'");
6626 }
6627 arg2 = (gsl_permutation *)(argp2);
6628 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
6629 if (!SWIG_IsOK(res3)) {
6630 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_PTLQ_Lsolve_T" "', argument " "3"" of type '" "gsl_vector const *""'");
6631 }
6632 arg3 = (gsl_vector *)(argp3);
6633 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
6634 if (!SWIG_IsOK(res4)) {
6635 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_PTLQ_Lsolve_T" "', argument " "4"" of type '" "gsl_vector *""'");
6636 }
6637 arg4 = (gsl_vector *)(argp4);
6638 result = (int)gsl_linalg_PTLQ_Lsolve_T((gsl_matrix const *)arg1,(struct gsl_permutation_struct const *)arg2,(gsl_vector const *)arg3,arg4);
6639 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6640
6641
6642
6643
6644 XSRETURN(argvi);
6645 fail:
6646
6647
6648
6649
6650 SWIG_croak_null();
6651 }
6652 }
6653
6654
XS(_wrap_gsl_linalg_PTLQ_Lsvx_T)6655 XS(_wrap_gsl_linalg_PTLQ_Lsvx_T) {
6656 {
6657 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
6658 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
6659 gsl_vector *arg3 = (gsl_vector *) 0 ;
6660 void *argp1 = 0 ;
6661 int res1 = 0 ;
6662 void *argp2 = 0 ;
6663 int res2 = 0 ;
6664 void *argp3 = 0 ;
6665 int res3 = 0 ;
6666 int argvi = 0;
6667 int result;
6668 dXSARGS;
6669
6670 if ((items < 3) || (items > 3)) {
6671 SWIG_croak("Usage: gsl_linalg_PTLQ_Lsvx_T(LQ,p,x);");
6672 }
6673 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6674 if (!SWIG_IsOK(res1)) {
6675 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_PTLQ_Lsvx_T" "', argument " "1"" of type '" "gsl_matrix const *""'");
6676 }
6677 arg1 = (gsl_matrix *)(argp1);
6678 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
6679 if (!SWIG_IsOK(res2)) {
6680 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_PTLQ_Lsvx_T" "', argument " "2"" of type '" "gsl_permutation const *""'");
6681 }
6682 arg2 = (gsl_permutation *)(argp2);
6683 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
6684 if (!SWIG_IsOK(res3)) {
6685 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_PTLQ_Lsvx_T" "', argument " "3"" of type '" "gsl_vector *""'");
6686 }
6687 arg3 = (gsl_vector *)(argp3);
6688 result = (int)gsl_linalg_PTLQ_Lsvx_T((gsl_matrix const *)arg1,(struct gsl_permutation_struct const *)arg2,arg3);
6689 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6690
6691
6692
6693 XSRETURN(argvi);
6694 fail:
6695
6696
6697
6698 SWIG_croak_null();
6699 }
6700 }
6701
6702
XS(_wrap_gsl_linalg_PTLQ_update)6703 XS(_wrap_gsl_linalg_PTLQ_update) {
6704 {
6705 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
6706 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
6707 gsl_permutation *arg3 = (gsl_permutation *) 0 ;
6708 gsl_vector *arg4 = (gsl_vector *) 0 ;
6709 gsl_vector *arg5 = (gsl_vector *) 0 ;
6710 void *argp1 = 0 ;
6711 int res1 = 0 ;
6712 void *argp2 = 0 ;
6713 int res2 = 0 ;
6714 void *argp3 = 0 ;
6715 int res3 = 0 ;
6716 void *argp4 = 0 ;
6717 int res4 = 0 ;
6718 void *argp5 = 0 ;
6719 int res5 = 0 ;
6720 int argvi = 0;
6721 int result;
6722 dXSARGS;
6723
6724 if ((items < 5) || (items > 5)) {
6725 SWIG_croak("Usage: gsl_linalg_PTLQ_update(Q,L,p,v,w);");
6726 }
6727 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6728 if (!SWIG_IsOK(res1)) {
6729 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_PTLQ_update" "', argument " "1"" of type '" "gsl_matrix *""'");
6730 }
6731 arg1 = (gsl_matrix *)(argp1);
6732 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6733 if (!SWIG_IsOK(res2)) {
6734 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_PTLQ_update" "', argument " "2"" of type '" "gsl_matrix *""'");
6735 }
6736 arg2 = (gsl_matrix *)(argp2);
6737 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
6738 if (!SWIG_IsOK(res3)) {
6739 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_PTLQ_update" "', argument " "3"" of type '" "gsl_permutation const *""'");
6740 }
6741 arg3 = (gsl_permutation *)(argp3);
6742 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
6743 if (!SWIG_IsOK(res4)) {
6744 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_PTLQ_update" "', argument " "4"" of type '" "gsl_vector const *""'");
6745 }
6746 arg4 = (gsl_vector *)(argp4);
6747 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
6748 if (!SWIG_IsOK(res5)) {
6749 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_PTLQ_update" "', argument " "5"" of type '" "gsl_vector *""'");
6750 }
6751 arg5 = (gsl_vector *)(argp5);
6752 result = (int)gsl_linalg_PTLQ_update(arg1,arg2,(struct gsl_permutation_struct const *)arg3,(gsl_vector const *)arg4,arg5);
6753 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6754
6755
6756
6757
6758
6759 XSRETURN(argvi);
6760 fail:
6761
6762
6763
6764
6765
6766 SWIG_croak_null();
6767 }
6768 }
6769
6770
XS(_wrap_gsl_linalg_cholesky_decomp)6771 XS(_wrap_gsl_linalg_cholesky_decomp) {
6772 {
6773 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
6774 void *argp1 = 0 ;
6775 int res1 = 0 ;
6776 int argvi = 0;
6777 int result;
6778 dXSARGS;
6779
6780 if ((items < 1) || (items > 1)) {
6781 SWIG_croak("Usage: gsl_linalg_cholesky_decomp(A);");
6782 }
6783 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6784 if (!SWIG_IsOK(res1)) {
6785 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_cholesky_decomp" "', argument " "1"" of type '" "gsl_matrix *""'");
6786 }
6787 arg1 = (gsl_matrix *)(argp1);
6788 result = (int)gsl_linalg_cholesky_decomp(arg1);
6789 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6790
6791 XSRETURN(argvi);
6792 fail:
6793
6794 SWIG_croak_null();
6795 }
6796 }
6797
6798
XS(_wrap_gsl_linalg_cholesky_solve)6799 XS(_wrap_gsl_linalg_cholesky_solve) {
6800 {
6801 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
6802 gsl_vector *arg2 = (gsl_vector *) 0 ;
6803 gsl_vector *arg3 = (gsl_vector *) 0 ;
6804 void *argp1 = 0 ;
6805 int res1 = 0 ;
6806 void *argp2 = 0 ;
6807 int res2 = 0 ;
6808 void *argp3 = 0 ;
6809 int res3 = 0 ;
6810 int argvi = 0;
6811 int result;
6812 dXSARGS;
6813
6814 if ((items < 3) || (items > 3)) {
6815 SWIG_croak("Usage: gsl_linalg_cholesky_solve(cholesky,b,x);");
6816 }
6817 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6818 if (!SWIG_IsOK(res1)) {
6819 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_cholesky_solve" "', argument " "1"" of type '" "gsl_matrix const *""'");
6820 }
6821 arg1 = (gsl_matrix *)(argp1);
6822 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
6823 if (!SWIG_IsOK(res2)) {
6824 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_cholesky_solve" "', argument " "2"" of type '" "gsl_vector const *""'");
6825 }
6826 arg2 = (gsl_vector *)(argp2);
6827 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
6828 if (!SWIG_IsOK(res3)) {
6829 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_cholesky_solve" "', argument " "3"" of type '" "gsl_vector *""'");
6830 }
6831 arg3 = (gsl_vector *)(argp3);
6832 result = (int)gsl_linalg_cholesky_solve((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3);
6833 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6834
6835
6836
6837 XSRETURN(argvi);
6838 fail:
6839
6840
6841
6842 SWIG_croak_null();
6843 }
6844 }
6845
6846
XS(_wrap_gsl_linalg_cholesky_svx)6847 XS(_wrap_gsl_linalg_cholesky_svx) {
6848 {
6849 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
6850 gsl_vector *arg2 = (gsl_vector *) 0 ;
6851 void *argp1 = 0 ;
6852 int res1 = 0 ;
6853 void *argp2 = 0 ;
6854 int res2 = 0 ;
6855 int argvi = 0;
6856 int result;
6857 dXSARGS;
6858
6859 if ((items < 2) || (items > 2)) {
6860 SWIG_croak("Usage: gsl_linalg_cholesky_svx(cholesky,x);");
6861 }
6862 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6863 if (!SWIG_IsOK(res1)) {
6864 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_cholesky_svx" "', argument " "1"" of type '" "gsl_matrix const *""'");
6865 }
6866 arg1 = (gsl_matrix *)(argp1);
6867 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
6868 if (!SWIG_IsOK(res2)) {
6869 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_cholesky_svx" "', argument " "2"" of type '" "gsl_vector *""'");
6870 }
6871 arg2 = (gsl_vector *)(argp2);
6872 result = (int)gsl_linalg_cholesky_svx((gsl_matrix const *)arg1,arg2);
6873 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6874
6875
6876 XSRETURN(argvi);
6877 fail:
6878
6879
6880 SWIG_croak_null();
6881 }
6882 }
6883
6884
XS(_wrap_gsl_linalg_cholesky_invert)6885 XS(_wrap_gsl_linalg_cholesky_invert) {
6886 {
6887 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
6888 void *argp1 = 0 ;
6889 int res1 = 0 ;
6890 int argvi = 0;
6891 int result;
6892 dXSARGS;
6893
6894 if ((items < 1) || (items > 1)) {
6895 SWIG_croak("Usage: gsl_linalg_cholesky_invert(cholesky);");
6896 }
6897 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6898 if (!SWIG_IsOK(res1)) {
6899 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_cholesky_invert" "', argument " "1"" of type '" "gsl_matrix *""'");
6900 }
6901 arg1 = (gsl_matrix *)(argp1);
6902 result = (int)gsl_linalg_cholesky_invert(arg1);
6903 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6904
6905 XSRETURN(argvi);
6906 fail:
6907
6908 SWIG_croak_null();
6909 }
6910 }
6911
6912
XS(_wrap_gsl_linalg_cholesky_decomp_unit)6913 XS(_wrap_gsl_linalg_cholesky_decomp_unit) {
6914 {
6915 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
6916 gsl_vector *arg2 = (gsl_vector *) 0 ;
6917 void *argp1 = 0 ;
6918 int res1 = 0 ;
6919 void *argp2 = 0 ;
6920 int res2 = 0 ;
6921 int argvi = 0;
6922 int result;
6923 dXSARGS;
6924
6925 if ((items < 2) || (items > 2)) {
6926 SWIG_croak("Usage: gsl_linalg_cholesky_decomp_unit(A,D);");
6927 }
6928 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6929 if (!SWIG_IsOK(res1)) {
6930 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_cholesky_decomp_unit" "', argument " "1"" of type '" "gsl_matrix *""'");
6931 }
6932 arg1 = (gsl_matrix *)(argp1);
6933 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
6934 if (!SWIG_IsOK(res2)) {
6935 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_cholesky_decomp_unit" "', argument " "2"" of type '" "gsl_vector *""'");
6936 }
6937 arg2 = (gsl_vector *)(argp2);
6938 result = (int)gsl_linalg_cholesky_decomp_unit(arg1,arg2);
6939 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6940
6941
6942 XSRETURN(argvi);
6943 fail:
6944
6945
6946 SWIG_croak_null();
6947 }
6948 }
6949
6950
XS(_wrap_gsl_linalg_complex_cholesky_decomp)6951 XS(_wrap_gsl_linalg_complex_cholesky_decomp) {
6952 {
6953 gsl_matrix_complex *arg1 = (gsl_matrix_complex *) 0 ;
6954 void *argp1 = 0 ;
6955 int res1 = 0 ;
6956 int argvi = 0;
6957 int result;
6958 dXSARGS;
6959
6960 if ((items < 1) || (items > 1)) {
6961 SWIG_croak("Usage: gsl_linalg_complex_cholesky_decomp(A);");
6962 }
6963 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
6964 if (!SWIG_IsOK(res1)) {
6965 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_complex_cholesky_decomp" "', argument " "1"" of type '" "gsl_matrix_complex *""'");
6966 }
6967 arg1 = (gsl_matrix_complex *)(argp1);
6968 result = (int)gsl_linalg_complex_cholesky_decomp(arg1);
6969 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6970
6971 XSRETURN(argvi);
6972 fail:
6973
6974 SWIG_croak_null();
6975 }
6976 }
6977
6978
XS(_wrap_gsl_linalg_complex_cholesky_solve)6979 XS(_wrap_gsl_linalg_complex_cholesky_solve) {
6980 {
6981 gsl_matrix_complex *arg1 = (gsl_matrix_complex *) 0 ;
6982 gsl_vector_complex *arg2 = (gsl_vector_complex *) 0 ;
6983 gsl_vector_complex *arg3 = (gsl_vector_complex *) 0 ;
6984 void *argp1 = 0 ;
6985 int res1 = 0 ;
6986 void *argp2 = 0 ;
6987 int res2 = 0 ;
6988 void *argp3 = 0 ;
6989 int res3 = 0 ;
6990 int argvi = 0;
6991 int result;
6992 dXSARGS;
6993
6994 if ((items < 3) || (items > 3)) {
6995 SWIG_croak("Usage: gsl_linalg_complex_cholesky_solve(cholesky,b,x);");
6996 }
6997 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
6998 if (!SWIG_IsOK(res1)) {
6999 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_complex_cholesky_solve" "', argument " "1"" of type '" "gsl_matrix_complex const *""'");
7000 }
7001 arg1 = (gsl_matrix_complex *)(argp1);
7002 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
7003 if (!SWIG_IsOK(res2)) {
7004 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_complex_cholesky_solve" "', argument " "2"" of type '" "gsl_vector_complex const *""'");
7005 }
7006 arg2 = (gsl_vector_complex *)(argp2);
7007 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
7008 if (!SWIG_IsOK(res3)) {
7009 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_complex_cholesky_solve" "', argument " "3"" of type '" "gsl_vector_complex *""'");
7010 }
7011 arg3 = (gsl_vector_complex *)(argp3);
7012 result = (int)gsl_linalg_complex_cholesky_solve((gsl_matrix_complex const *)arg1,(gsl_vector_complex const *)arg2,arg3);
7013 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7014
7015
7016
7017 XSRETURN(argvi);
7018 fail:
7019
7020
7021
7022 SWIG_croak_null();
7023 }
7024 }
7025
7026
XS(_wrap_gsl_linalg_complex_cholesky_svx)7027 XS(_wrap_gsl_linalg_complex_cholesky_svx) {
7028 {
7029 gsl_matrix_complex *arg1 = (gsl_matrix_complex *) 0 ;
7030 gsl_vector_complex *arg2 = (gsl_vector_complex *) 0 ;
7031 void *argp1 = 0 ;
7032 int res1 = 0 ;
7033 void *argp2 = 0 ;
7034 int res2 = 0 ;
7035 int argvi = 0;
7036 int result;
7037 dXSARGS;
7038
7039 if ((items < 2) || (items > 2)) {
7040 SWIG_croak("Usage: gsl_linalg_complex_cholesky_svx(cholesky,x);");
7041 }
7042 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
7043 if (!SWIG_IsOK(res1)) {
7044 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_complex_cholesky_svx" "', argument " "1"" of type '" "gsl_matrix_complex const *""'");
7045 }
7046 arg1 = (gsl_matrix_complex *)(argp1);
7047 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
7048 if (!SWIG_IsOK(res2)) {
7049 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_complex_cholesky_svx" "', argument " "2"" of type '" "gsl_vector_complex *""'");
7050 }
7051 arg2 = (gsl_vector_complex *)(argp2);
7052 result = (int)gsl_linalg_complex_cholesky_svx((gsl_matrix_complex const *)arg1,arg2);
7053 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7054
7055
7056 XSRETURN(argvi);
7057 fail:
7058
7059
7060 SWIG_croak_null();
7061 }
7062 }
7063
7064
XS(_wrap_gsl_linalg_complex_cholesky_invert)7065 XS(_wrap_gsl_linalg_complex_cholesky_invert) {
7066 {
7067 gsl_matrix_complex *arg1 = (gsl_matrix_complex *) 0 ;
7068 void *argp1 = 0 ;
7069 int res1 = 0 ;
7070 int argvi = 0;
7071 int result;
7072 dXSARGS;
7073
7074 if ((items < 1) || (items > 1)) {
7075 SWIG_croak("Usage: gsl_linalg_complex_cholesky_invert(cholesky);");
7076 }
7077 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
7078 if (!SWIG_IsOK(res1)) {
7079 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_complex_cholesky_invert" "', argument " "1"" of type '" "gsl_matrix_complex *""'");
7080 }
7081 arg1 = (gsl_matrix_complex *)(argp1);
7082 result = (int)gsl_linalg_complex_cholesky_invert(arg1);
7083 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7084
7085 XSRETURN(argvi);
7086 fail:
7087
7088 SWIG_croak_null();
7089 }
7090 }
7091
7092
XS(_wrap_gsl_linalg_symmtd_decomp)7093 XS(_wrap_gsl_linalg_symmtd_decomp) {
7094 {
7095 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
7096 gsl_vector *arg2 = (gsl_vector *) 0 ;
7097 void *argp1 = 0 ;
7098 int res1 = 0 ;
7099 void *argp2 = 0 ;
7100 int res2 = 0 ;
7101 int argvi = 0;
7102 int result;
7103 dXSARGS;
7104
7105 if ((items < 2) || (items > 2)) {
7106 SWIG_croak("Usage: gsl_linalg_symmtd_decomp(A,tau);");
7107 }
7108 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7109 if (!SWIG_IsOK(res1)) {
7110 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_symmtd_decomp" "', argument " "1"" of type '" "gsl_matrix *""'");
7111 }
7112 arg1 = (gsl_matrix *)(argp1);
7113 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
7114 if (!SWIG_IsOK(res2)) {
7115 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_symmtd_decomp" "', argument " "2"" of type '" "gsl_vector *""'");
7116 }
7117 arg2 = (gsl_vector *)(argp2);
7118 result = (int)gsl_linalg_symmtd_decomp(arg1,arg2);
7119 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7120
7121
7122 XSRETURN(argvi);
7123 fail:
7124
7125
7126 SWIG_croak_null();
7127 }
7128 }
7129
7130
XS(_wrap_gsl_linalg_symmtd_unpack)7131 XS(_wrap_gsl_linalg_symmtd_unpack) {
7132 {
7133 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
7134 gsl_vector *arg2 = (gsl_vector *) 0 ;
7135 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
7136 gsl_vector *arg4 = (gsl_vector *) 0 ;
7137 gsl_vector *arg5 = (gsl_vector *) 0 ;
7138 void *argp1 = 0 ;
7139 int res1 = 0 ;
7140 void *argp2 = 0 ;
7141 int res2 = 0 ;
7142 void *argp3 = 0 ;
7143 int res3 = 0 ;
7144 void *argp4 = 0 ;
7145 int res4 = 0 ;
7146 void *argp5 = 0 ;
7147 int res5 = 0 ;
7148 int argvi = 0;
7149 int result;
7150 dXSARGS;
7151
7152 if ((items < 5) || (items > 5)) {
7153 SWIG_croak("Usage: gsl_linalg_symmtd_unpack(A,tau,Q,diag,subdiag);");
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_symmtd_unpack" "', argument " "1"" of type '" "gsl_matrix const *""'");
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_symmtd_unpack" "', argument " "2"" of type '" "gsl_vector const *""'");
7163 }
7164 arg2 = (gsl_vector *)(argp2);
7165 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7166 if (!SWIG_IsOK(res3)) {
7167 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_symmtd_unpack" "', argument " "3"" of type '" "gsl_matrix *""'");
7168 }
7169 arg3 = (gsl_matrix *)(argp3);
7170 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
7171 if (!SWIG_IsOK(res4)) {
7172 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_symmtd_unpack" "', argument " "4"" of type '" "gsl_vector *""'");
7173 }
7174 arg4 = (gsl_vector *)(argp4);
7175 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
7176 if (!SWIG_IsOK(res5)) {
7177 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_symmtd_unpack" "', argument " "5"" of type '" "gsl_vector *""'");
7178 }
7179 arg5 = (gsl_vector *)(argp5);
7180 result = (int)gsl_linalg_symmtd_unpack((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3,arg4,arg5);
7181 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7182
7183
7184
7185
7186
7187 XSRETURN(argvi);
7188 fail:
7189
7190
7191
7192
7193
7194 SWIG_croak_null();
7195 }
7196 }
7197
7198
XS(_wrap_gsl_linalg_symmtd_unpack_T)7199 XS(_wrap_gsl_linalg_symmtd_unpack_T) {
7200 {
7201 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
7202 gsl_vector *arg2 = (gsl_vector *) 0 ;
7203 gsl_vector *arg3 = (gsl_vector *) 0 ;
7204 void *argp1 = 0 ;
7205 int res1 = 0 ;
7206 void *argp2 = 0 ;
7207 int res2 = 0 ;
7208 void *argp3 = 0 ;
7209 int res3 = 0 ;
7210 int argvi = 0;
7211 int result;
7212 dXSARGS;
7213
7214 if ((items < 3) || (items > 3)) {
7215 SWIG_croak("Usage: gsl_linalg_symmtd_unpack_T(A,diag,subdiag);");
7216 }
7217 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7218 if (!SWIG_IsOK(res1)) {
7219 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_symmtd_unpack_T" "', argument " "1"" of type '" "gsl_matrix const *""'");
7220 }
7221 arg1 = (gsl_matrix *)(argp1);
7222 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
7223 if (!SWIG_IsOK(res2)) {
7224 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_symmtd_unpack_T" "', argument " "2"" of type '" "gsl_vector *""'");
7225 }
7226 arg2 = (gsl_vector *)(argp2);
7227 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
7228 if (!SWIG_IsOK(res3)) {
7229 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_symmtd_unpack_T" "', argument " "3"" of type '" "gsl_vector *""'");
7230 }
7231 arg3 = (gsl_vector *)(argp3);
7232 result = (int)gsl_linalg_symmtd_unpack_T((gsl_matrix const *)arg1,arg2,arg3);
7233 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7234
7235
7236
7237 XSRETURN(argvi);
7238 fail:
7239
7240
7241
7242 SWIG_croak_null();
7243 }
7244 }
7245
7246
XS(_wrap_gsl_linalg_hermtd_decomp)7247 XS(_wrap_gsl_linalg_hermtd_decomp) {
7248 {
7249 gsl_matrix_complex *arg1 = (gsl_matrix_complex *) 0 ;
7250 gsl_vector_complex *arg2 = (gsl_vector_complex *) 0 ;
7251 void *argp1 = 0 ;
7252 int res1 = 0 ;
7253 void *argp2 = 0 ;
7254 int res2 = 0 ;
7255 int argvi = 0;
7256 int result;
7257 dXSARGS;
7258
7259 if ((items < 2) || (items > 2)) {
7260 SWIG_croak("Usage: gsl_linalg_hermtd_decomp(A,tau);");
7261 }
7262 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
7263 if (!SWIG_IsOK(res1)) {
7264 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_hermtd_decomp" "', argument " "1"" of type '" "gsl_matrix_complex *""'");
7265 }
7266 arg1 = (gsl_matrix_complex *)(argp1);
7267 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
7268 if (!SWIG_IsOK(res2)) {
7269 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_hermtd_decomp" "', argument " "2"" of type '" "gsl_vector_complex *""'");
7270 }
7271 arg2 = (gsl_vector_complex *)(argp2);
7272 result = (int)gsl_linalg_hermtd_decomp(arg1,arg2);
7273 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7274
7275
7276 XSRETURN(argvi);
7277 fail:
7278
7279
7280 SWIG_croak_null();
7281 }
7282 }
7283
7284
XS(_wrap_gsl_linalg_hermtd_unpack)7285 XS(_wrap_gsl_linalg_hermtd_unpack) {
7286 {
7287 gsl_matrix_complex *arg1 = (gsl_matrix_complex *) 0 ;
7288 gsl_vector_complex *arg2 = (gsl_vector_complex *) 0 ;
7289 gsl_matrix_complex *arg3 = (gsl_matrix_complex *) 0 ;
7290 gsl_vector *arg4 = (gsl_vector *) 0 ;
7291 gsl_vector *arg5 = (gsl_vector *) 0 ;
7292 void *argp1 = 0 ;
7293 int res1 = 0 ;
7294 void *argp2 = 0 ;
7295 int res2 = 0 ;
7296 void *argp3 = 0 ;
7297 int res3 = 0 ;
7298 void *argp4 = 0 ;
7299 int res4 = 0 ;
7300 void *argp5 = 0 ;
7301 int res5 = 0 ;
7302 int argvi = 0;
7303 int result;
7304 dXSARGS;
7305
7306 if ((items < 5) || (items > 5)) {
7307 SWIG_croak("Usage: gsl_linalg_hermtd_unpack(A,tau,U,diag,sudiag);");
7308 }
7309 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
7310 if (!SWIG_IsOK(res1)) {
7311 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_hermtd_unpack" "', argument " "1"" of type '" "gsl_matrix_complex const *""'");
7312 }
7313 arg1 = (gsl_matrix_complex *)(argp1);
7314 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
7315 if (!SWIG_IsOK(res2)) {
7316 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_hermtd_unpack" "', argument " "2"" of type '" "gsl_vector_complex const *""'");
7317 }
7318 arg2 = (gsl_vector_complex *)(argp2);
7319 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
7320 if (!SWIG_IsOK(res3)) {
7321 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_hermtd_unpack" "', argument " "3"" of type '" "gsl_matrix_complex *""'");
7322 }
7323 arg3 = (gsl_matrix_complex *)(argp3);
7324 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
7325 if (!SWIG_IsOK(res4)) {
7326 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_hermtd_unpack" "', argument " "4"" of type '" "gsl_vector *""'");
7327 }
7328 arg4 = (gsl_vector *)(argp4);
7329 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
7330 if (!SWIG_IsOK(res5)) {
7331 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_hermtd_unpack" "', argument " "5"" of type '" "gsl_vector *""'");
7332 }
7333 arg5 = (gsl_vector *)(argp5);
7334 result = (int)gsl_linalg_hermtd_unpack((gsl_matrix_complex const *)arg1,(gsl_vector_complex const *)arg2,arg3,arg4,arg5);
7335 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7336
7337
7338
7339
7340
7341 XSRETURN(argvi);
7342 fail:
7343
7344
7345
7346
7347
7348 SWIG_croak_null();
7349 }
7350 }
7351
7352
XS(_wrap_gsl_linalg_hermtd_unpack_T)7353 XS(_wrap_gsl_linalg_hermtd_unpack_T) {
7354 {
7355 gsl_matrix_complex *arg1 = (gsl_matrix_complex *) 0 ;
7356 gsl_vector *arg2 = (gsl_vector *) 0 ;
7357 gsl_vector *arg3 = (gsl_vector *) 0 ;
7358 void *argp1 = 0 ;
7359 int res1 = 0 ;
7360 void *argp2 = 0 ;
7361 int res2 = 0 ;
7362 void *argp3 = 0 ;
7363 int res3 = 0 ;
7364 int argvi = 0;
7365 int result;
7366 dXSARGS;
7367
7368 if ((items < 3) || (items > 3)) {
7369 SWIG_croak("Usage: gsl_linalg_hermtd_unpack_T(A,diag,subdiag);");
7370 }
7371 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
7372 if (!SWIG_IsOK(res1)) {
7373 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_hermtd_unpack_T" "', argument " "1"" of type '" "gsl_matrix_complex const *""'");
7374 }
7375 arg1 = (gsl_matrix_complex *)(argp1);
7376 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
7377 if (!SWIG_IsOK(res2)) {
7378 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_hermtd_unpack_T" "', argument " "2"" of type '" "gsl_vector *""'");
7379 }
7380 arg2 = (gsl_vector *)(argp2);
7381 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
7382 if (!SWIG_IsOK(res3)) {
7383 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_hermtd_unpack_T" "', argument " "3"" of type '" "gsl_vector *""'");
7384 }
7385 arg3 = (gsl_vector *)(argp3);
7386 result = (int)gsl_linalg_hermtd_unpack_T((gsl_matrix_complex const *)arg1,arg2,arg3);
7387 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7388
7389
7390
7391 XSRETURN(argvi);
7392 fail:
7393
7394
7395
7396 SWIG_croak_null();
7397 }
7398 }
7399
7400
XS(_wrap_gsl_linalg_HH_solve)7401 XS(_wrap_gsl_linalg_HH_solve) {
7402 {
7403 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
7404 gsl_vector *arg2 = (gsl_vector *) 0 ;
7405 gsl_vector *arg3 = (gsl_vector *) 0 ;
7406 void *argp1 = 0 ;
7407 int res1 = 0 ;
7408 void *argp2 = 0 ;
7409 int res2 = 0 ;
7410 void *argp3 = 0 ;
7411 int res3 = 0 ;
7412 int argvi = 0;
7413 int result;
7414 dXSARGS;
7415
7416 if ((items < 3) || (items > 3)) {
7417 SWIG_croak("Usage: gsl_linalg_HH_solve(A,b,x);");
7418 }
7419 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7420 if (!SWIG_IsOK(res1)) {
7421 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_HH_solve" "', argument " "1"" of type '" "gsl_matrix *""'");
7422 }
7423 arg1 = (gsl_matrix *)(argp1);
7424 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
7425 if (!SWIG_IsOK(res2)) {
7426 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_HH_solve" "', argument " "2"" of type '" "gsl_vector const *""'");
7427 }
7428 arg2 = (gsl_vector *)(argp2);
7429 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
7430 if (!SWIG_IsOK(res3)) {
7431 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_HH_solve" "', argument " "3"" of type '" "gsl_vector *""'");
7432 }
7433 arg3 = (gsl_vector *)(argp3);
7434 result = (int)gsl_linalg_HH_solve(arg1,(gsl_vector const *)arg2,arg3);
7435 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7436
7437
7438
7439 XSRETURN(argvi);
7440 fail:
7441
7442
7443
7444 SWIG_croak_null();
7445 }
7446 }
7447
7448
XS(_wrap_gsl_linalg_HH_svx)7449 XS(_wrap_gsl_linalg_HH_svx) {
7450 {
7451 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
7452 gsl_vector *arg2 = (gsl_vector *) 0 ;
7453 void *argp1 = 0 ;
7454 int res1 = 0 ;
7455 void *argp2 = 0 ;
7456 int res2 = 0 ;
7457 int argvi = 0;
7458 int result;
7459 dXSARGS;
7460
7461 if ((items < 2) || (items > 2)) {
7462 SWIG_croak("Usage: gsl_linalg_HH_svx(A,x);");
7463 }
7464 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7465 if (!SWIG_IsOK(res1)) {
7466 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_HH_svx" "', argument " "1"" of type '" "gsl_matrix *""'");
7467 }
7468 arg1 = (gsl_matrix *)(argp1);
7469 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
7470 if (!SWIG_IsOK(res2)) {
7471 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_HH_svx" "', argument " "2"" of type '" "gsl_vector *""'");
7472 }
7473 arg2 = (gsl_vector *)(argp2);
7474 result = (int)gsl_linalg_HH_svx(arg1,arg2);
7475 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7476
7477
7478 XSRETURN(argvi);
7479 fail:
7480
7481
7482 SWIG_croak_null();
7483 }
7484 }
7485
7486
XS(_wrap_gsl_linalg_solve_symm_tridiag)7487 XS(_wrap_gsl_linalg_solve_symm_tridiag) {
7488 {
7489 gsl_vector *arg1 = (gsl_vector *) 0 ;
7490 gsl_vector *arg2 = (gsl_vector *) 0 ;
7491 gsl_vector *arg3 = (gsl_vector *) 0 ;
7492 gsl_vector *arg4 = (gsl_vector *) 0 ;
7493 void *argp1 = 0 ;
7494 int res1 = 0 ;
7495 void *argp2 = 0 ;
7496 int res2 = 0 ;
7497 void *argp3 = 0 ;
7498 int res3 = 0 ;
7499 void *argp4 = 0 ;
7500 int res4 = 0 ;
7501 int argvi = 0;
7502 int result;
7503 dXSARGS;
7504
7505 if ((items < 4) || (items > 4)) {
7506 SWIG_croak("Usage: gsl_linalg_solve_symm_tridiag(diag,offdiag,b,x);");
7507 }
7508 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
7509 if (!SWIG_IsOK(res1)) {
7510 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_solve_symm_tridiag" "', argument " "1"" of type '" "gsl_vector const *""'");
7511 }
7512 arg1 = (gsl_vector *)(argp1);
7513 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
7514 if (!SWIG_IsOK(res2)) {
7515 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_solve_symm_tridiag" "', argument " "2"" of type '" "gsl_vector const *""'");
7516 }
7517 arg2 = (gsl_vector *)(argp2);
7518 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
7519 if (!SWIG_IsOK(res3)) {
7520 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_solve_symm_tridiag" "', argument " "3"" of type '" "gsl_vector const *""'");
7521 }
7522 arg3 = (gsl_vector *)(argp3);
7523 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
7524 if (!SWIG_IsOK(res4)) {
7525 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_solve_symm_tridiag" "', argument " "4"" of type '" "gsl_vector *""'");
7526 }
7527 arg4 = (gsl_vector *)(argp4);
7528 result = (int)gsl_linalg_solve_symm_tridiag((gsl_vector const *)arg1,(gsl_vector const *)arg2,(gsl_vector const *)arg3,arg4);
7529 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7530
7531
7532
7533
7534 XSRETURN(argvi);
7535 fail:
7536
7537
7538
7539
7540 SWIG_croak_null();
7541 }
7542 }
7543
7544
XS(_wrap_gsl_linalg_solve_tridiag)7545 XS(_wrap_gsl_linalg_solve_tridiag) {
7546 {
7547 gsl_vector *arg1 = (gsl_vector *) 0 ;
7548 gsl_vector *arg2 = (gsl_vector *) 0 ;
7549 gsl_vector *arg3 = (gsl_vector *) 0 ;
7550 gsl_vector *arg4 = (gsl_vector *) 0 ;
7551 gsl_vector *arg5 = (gsl_vector *) 0 ;
7552 void *argp1 = 0 ;
7553 int res1 = 0 ;
7554 void *argp2 = 0 ;
7555 int res2 = 0 ;
7556 void *argp3 = 0 ;
7557 int res3 = 0 ;
7558 void *argp4 = 0 ;
7559 int res4 = 0 ;
7560 void *argp5 = 0 ;
7561 int res5 = 0 ;
7562 int argvi = 0;
7563 int result;
7564 dXSARGS;
7565
7566 if ((items < 5) || (items > 5)) {
7567 SWIG_croak("Usage: gsl_linalg_solve_tridiag(diag,abovediag,belowdiag,b,x);");
7568 }
7569 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
7570 if (!SWIG_IsOK(res1)) {
7571 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_solve_tridiag" "', argument " "1"" of type '" "gsl_vector const *""'");
7572 }
7573 arg1 = (gsl_vector *)(argp1);
7574 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
7575 if (!SWIG_IsOK(res2)) {
7576 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_solve_tridiag" "', argument " "2"" of type '" "gsl_vector const *""'");
7577 }
7578 arg2 = (gsl_vector *)(argp2);
7579 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
7580 if (!SWIG_IsOK(res3)) {
7581 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_solve_tridiag" "', argument " "3"" of type '" "gsl_vector const *""'");
7582 }
7583 arg3 = (gsl_vector *)(argp3);
7584 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
7585 if (!SWIG_IsOK(res4)) {
7586 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_solve_tridiag" "', argument " "4"" of type '" "gsl_vector const *""'");
7587 }
7588 arg4 = (gsl_vector *)(argp4);
7589 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
7590 if (!SWIG_IsOK(res5)) {
7591 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_solve_tridiag" "', argument " "5"" of type '" "gsl_vector *""'");
7592 }
7593 arg5 = (gsl_vector *)(argp5);
7594 result = (int)gsl_linalg_solve_tridiag((gsl_vector const *)arg1,(gsl_vector const *)arg2,(gsl_vector const *)arg3,(gsl_vector const *)arg4,arg5);
7595 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7596
7597
7598
7599
7600
7601 XSRETURN(argvi);
7602 fail:
7603
7604
7605
7606
7607
7608 SWIG_croak_null();
7609 }
7610 }
7611
7612
XS(_wrap_gsl_linalg_solve_symm_cyc_tridiag)7613 XS(_wrap_gsl_linalg_solve_symm_cyc_tridiag) {
7614 {
7615 gsl_vector *arg1 = (gsl_vector *) 0 ;
7616 gsl_vector *arg2 = (gsl_vector *) 0 ;
7617 gsl_vector *arg3 = (gsl_vector *) 0 ;
7618 gsl_vector *arg4 = (gsl_vector *) 0 ;
7619 void *argp1 = 0 ;
7620 int res1 = 0 ;
7621 void *argp2 = 0 ;
7622 int res2 = 0 ;
7623 void *argp3 = 0 ;
7624 int res3 = 0 ;
7625 void *argp4 = 0 ;
7626 int res4 = 0 ;
7627 int argvi = 0;
7628 int result;
7629 dXSARGS;
7630
7631 if ((items < 4) || (items > 4)) {
7632 SWIG_croak("Usage: gsl_linalg_solve_symm_cyc_tridiag(diag,offdiag,b,x);");
7633 }
7634 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
7635 if (!SWIG_IsOK(res1)) {
7636 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_solve_symm_cyc_tridiag" "', argument " "1"" of type '" "gsl_vector const *""'");
7637 }
7638 arg1 = (gsl_vector *)(argp1);
7639 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
7640 if (!SWIG_IsOK(res2)) {
7641 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_solve_symm_cyc_tridiag" "', argument " "2"" of type '" "gsl_vector const *""'");
7642 }
7643 arg2 = (gsl_vector *)(argp2);
7644 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
7645 if (!SWIG_IsOK(res3)) {
7646 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_solve_symm_cyc_tridiag" "', argument " "3"" of type '" "gsl_vector const *""'");
7647 }
7648 arg3 = (gsl_vector *)(argp3);
7649 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
7650 if (!SWIG_IsOK(res4)) {
7651 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_solve_symm_cyc_tridiag" "', argument " "4"" of type '" "gsl_vector *""'");
7652 }
7653 arg4 = (gsl_vector *)(argp4);
7654 result = (int)gsl_linalg_solve_symm_cyc_tridiag((gsl_vector const *)arg1,(gsl_vector const *)arg2,(gsl_vector const *)arg3,arg4);
7655 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7656
7657
7658
7659
7660 XSRETURN(argvi);
7661 fail:
7662
7663
7664
7665
7666 SWIG_croak_null();
7667 }
7668 }
7669
7670
XS(_wrap_gsl_linalg_solve_cyc_tridiag)7671 XS(_wrap_gsl_linalg_solve_cyc_tridiag) {
7672 {
7673 gsl_vector *arg1 = (gsl_vector *) 0 ;
7674 gsl_vector *arg2 = (gsl_vector *) 0 ;
7675 gsl_vector *arg3 = (gsl_vector *) 0 ;
7676 gsl_vector *arg4 = (gsl_vector *) 0 ;
7677 gsl_vector *arg5 = (gsl_vector *) 0 ;
7678 void *argp1 = 0 ;
7679 int res1 = 0 ;
7680 void *argp2 = 0 ;
7681 int res2 = 0 ;
7682 void *argp3 = 0 ;
7683 int res3 = 0 ;
7684 void *argp4 = 0 ;
7685 int res4 = 0 ;
7686 void *argp5 = 0 ;
7687 int res5 = 0 ;
7688 int argvi = 0;
7689 int result;
7690 dXSARGS;
7691
7692 if ((items < 5) || (items > 5)) {
7693 SWIG_croak("Usage: gsl_linalg_solve_cyc_tridiag(diag,abovediag,belowdiag,b,x);");
7694 }
7695 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
7696 if (!SWIG_IsOK(res1)) {
7697 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_solve_cyc_tridiag" "', argument " "1"" of type '" "gsl_vector const *""'");
7698 }
7699 arg1 = (gsl_vector *)(argp1);
7700 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
7701 if (!SWIG_IsOK(res2)) {
7702 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_solve_cyc_tridiag" "', argument " "2"" of type '" "gsl_vector const *""'");
7703 }
7704 arg2 = (gsl_vector *)(argp2);
7705 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
7706 if (!SWIG_IsOK(res3)) {
7707 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_solve_cyc_tridiag" "', argument " "3"" of type '" "gsl_vector const *""'");
7708 }
7709 arg3 = (gsl_vector *)(argp3);
7710 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
7711 if (!SWIG_IsOK(res4)) {
7712 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_solve_cyc_tridiag" "', argument " "4"" of type '" "gsl_vector const *""'");
7713 }
7714 arg4 = (gsl_vector *)(argp4);
7715 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
7716 if (!SWIG_IsOK(res5)) {
7717 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_solve_cyc_tridiag" "', argument " "5"" of type '" "gsl_vector *""'");
7718 }
7719 arg5 = (gsl_vector *)(argp5);
7720 result = (int)gsl_linalg_solve_cyc_tridiag((gsl_vector const *)arg1,(gsl_vector const *)arg2,(gsl_vector const *)arg3,(gsl_vector const *)arg4,arg5);
7721 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7722
7723
7724
7725
7726
7727 XSRETURN(argvi);
7728 fail:
7729
7730
7731
7732
7733
7734 SWIG_croak_null();
7735 }
7736 }
7737
7738
XS(_wrap_gsl_linalg_bidiag_decomp)7739 XS(_wrap_gsl_linalg_bidiag_decomp) {
7740 {
7741 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
7742 gsl_vector *arg2 = (gsl_vector *) 0 ;
7743 gsl_vector *arg3 = (gsl_vector *) 0 ;
7744 void *argp1 = 0 ;
7745 int res1 = 0 ;
7746 void *argp2 = 0 ;
7747 int res2 = 0 ;
7748 void *argp3 = 0 ;
7749 int res3 = 0 ;
7750 int argvi = 0;
7751 int result;
7752 dXSARGS;
7753
7754 if ((items < 3) || (items > 3)) {
7755 SWIG_croak("Usage: gsl_linalg_bidiag_decomp(A,tau_U,tau_V);");
7756 }
7757 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7758 if (!SWIG_IsOK(res1)) {
7759 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_bidiag_decomp" "', argument " "1"" of type '" "gsl_matrix *""'");
7760 }
7761 arg1 = (gsl_matrix *)(argp1);
7762 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
7763 if (!SWIG_IsOK(res2)) {
7764 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_bidiag_decomp" "', argument " "2"" of type '" "gsl_vector *""'");
7765 }
7766 arg2 = (gsl_vector *)(argp2);
7767 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
7768 if (!SWIG_IsOK(res3)) {
7769 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_bidiag_decomp" "', argument " "3"" of type '" "gsl_vector *""'");
7770 }
7771 arg3 = (gsl_vector *)(argp3);
7772 result = (int)gsl_linalg_bidiag_decomp(arg1,arg2,arg3);
7773 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7774
7775
7776
7777 XSRETURN(argvi);
7778 fail:
7779
7780
7781
7782 SWIG_croak_null();
7783 }
7784 }
7785
7786
XS(_wrap_gsl_linalg_bidiag_unpack)7787 XS(_wrap_gsl_linalg_bidiag_unpack) {
7788 {
7789 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
7790 gsl_vector *arg2 = (gsl_vector *) 0 ;
7791 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
7792 gsl_vector *arg4 = (gsl_vector *) 0 ;
7793 gsl_matrix *arg5 = (gsl_matrix *) 0 ;
7794 gsl_vector *arg6 = (gsl_vector *) 0 ;
7795 gsl_vector *arg7 = (gsl_vector *) 0 ;
7796 void *argp1 = 0 ;
7797 int res1 = 0 ;
7798 void *argp2 = 0 ;
7799 int res2 = 0 ;
7800 void *argp3 = 0 ;
7801 int res3 = 0 ;
7802 void *argp4 = 0 ;
7803 int res4 = 0 ;
7804 void *argp5 = 0 ;
7805 int res5 = 0 ;
7806 void *argp6 = 0 ;
7807 int res6 = 0 ;
7808 void *argp7 = 0 ;
7809 int res7 = 0 ;
7810 int argvi = 0;
7811 int result;
7812 dXSARGS;
7813
7814 if ((items < 7) || (items > 7)) {
7815 SWIG_croak("Usage: gsl_linalg_bidiag_unpack(A,tau_U,U,tau_V,V,diag,superdiag);");
7816 }
7817 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7818 if (!SWIG_IsOK(res1)) {
7819 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_bidiag_unpack" "', argument " "1"" of type '" "gsl_matrix const *""'");
7820 }
7821 arg1 = (gsl_matrix *)(argp1);
7822 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
7823 if (!SWIG_IsOK(res2)) {
7824 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_bidiag_unpack" "', argument " "2"" of type '" "gsl_vector const *""'");
7825 }
7826 arg2 = (gsl_vector *)(argp2);
7827 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7828 if (!SWIG_IsOK(res3)) {
7829 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_bidiag_unpack" "', argument " "3"" of type '" "gsl_matrix *""'");
7830 }
7831 arg3 = (gsl_matrix *)(argp3);
7832 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
7833 if (!SWIG_IsOK(res4)) {
7834 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_bidiag_unpack" "', argument " "4"" of type '" "gsl_vector const *""'");
7835 }
7836 arg4 = (gsl_vector *)(argp4);
7837 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7838 if (!SWIG_IsOK(res5)) {
7839 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_linalg_bidiag_unpack" "', argument " "5"" of type '" "gsl_matrix *""'");
7840 }
7841 arg5 = (gsl_matrix *)(argp5);
7842 res6 = SWIG_ConvertPtr(ST(5), &argp6,SWIGTYPE_p_gsl_vector, 0 | 0 );
7843 if (!SWIG_IsOK(res6)) {
7844 SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_linalg_bidiag_unpack" "', argument " "6"" of type '" "gsl_vector *""'");
7845 }
7846 arg6 = (gsl_vector *)(argp6);
7847 res7 = SWIG_ConvertPtr(ST(6), &argp7,SWIGTYPE_p_gsl_vector, 0 | 0 );
7848 if (!SWIG_IsOK(res7)) {
7849 SWIG_exception_fail(SWIG_ArgError(res7), "in method '" "gsl_linalg_bidiag_unpack" "', argument " "7"" of type '" "gsl_vector *""'");
7850 }
7851 arg7 = (gsl_vector *)(argp7);
7852 result = (int)gsl_linalg_bidiag_unpack((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3,(gsl_vector const *)arg4,arg5,arg6,arg7);
7853 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7854
7855
7856
7857
7858
7859
7860
7861 XSRETURN(argvi);
7862 fail:
7863
7864
7865
7866
7867
7868
7869
7870 SWIG_croak_null();
7871 }
7872 }
7873
7874
XS(_wrap_gsl_linalg_bidiag_unpack2)7875 XS(_wrap_gsl_linalg_bidiag_unpack2) {
7876 {
7877 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
7878 gsl_vector *arg2 = (gsl_vector *) 0 ;
7879 gsl_vector *arg3 = (gsl_vector *) 0 ;
7880 gsl_matrix *arg4 = (gsl_matrix *) 0 ;
7881 void *argp1 = 0 ;
7882 int res1 = 0 ;
7883 void *argp2 = 0 ;
7884 int res2 = 0 ;
7885 void *argp3 = 0 ;
7886 int res3 = 0 ;
7887 void *argp4 = 0 ;
7888 int res4 = 0 ;
7889 int argvi = 0;
7890 int result;
7891 dXSARGS;
7892
7893 if ((items < 4) || (items > 4)) {
7894 SWIG_croak("Usage: gsl_linalg_bidiag_unpack2(A,tau_U,tau_V,V);");
7895 }
7896 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7897 if (!SWIG_IsOK(res1)) {
7898 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_bidiag_unpack2" "', argument " "1"" of type '" "gsl_matrix *""'");
7899 }
7900 arg1 = (gsl_matrix *)(argp1);
7901 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
7902 if (!SWIG_IsOK(res2)) {
7903 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_bidiag_unpack2" "', argument " "2"" of type '" "gsl_vector *""'");
7904 }
7905 arg2 = (gsl_vector *)(argp2);
7906 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
7907 if (!SWIG_IsOK(res3)) {
7908 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_bidiag_unpack2" "', argument " "3"" of type '" "gsl_vector *""'");
7909 }
7910 arg3 = (gsl_vector *)(argp3);
7911 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7912 if (!SWIG_IsOK(res4)) {
7913 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_linalg_bidiag_unpack2" "', argument " "4"" of type '" "gsl_matrix *""'");
7914 }
7915 arg4 = (gsl_matrix *)(argp4);
7916 result = (int)gsl_linalg_bidiag_unpack2(arg1,arg2,arg3,arg4);
7917 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7918
7919
7920
7921
7922 XSRETURN(argvi);
7923 fail:
7924
7925
7926
7927
7928 SWIG_croak_null();
7929 }
7930 }
7931
7932
XS(_wrap_gsl_linalg_bidiag_unpack_B)7933 XS(_wrap_gsl_linalg_bidiag_unpack_B) {
7934 {
7935 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
7936 gsl_vector *arg2 = (gsl_vector *) 0 ;
7937 gsl_vector *arg3 = (gsl_vector *) 0 ;
7938 void *argp1 = 0 ;
7939 int res1 = 0 ;
7940 void *argp2 = 0 ;
7941 int res2 = 0 ;
7942 void *argp3 = 0 ;
7943 int res3 = 0 ;
7944 int argvi = 0;
7945 int result;
7946 dXSARGS;
7947
7948 if ((items < 3) || (items > 3)) {
7949 SWIG_croak("Usage: gsl_linalg_bidiag_unpack_B(A,diag,superdiag);");
7950 }
7951 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7952 if (!SWIG_IsOK(res1)) {
7953 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_bidiag_unpack_B" "', argument " "1"" of type '" "gsl_matrix const *""'");
7954 }
7955 arg1 = (gsl_matrix *)(argp1);
7956 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
7957 if (!SWIG_IsOK(res2)) {
7958 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_bidiag_unpack_B" "', argument " "2"" of type '" "gsl_vector *""'");
7959 }
7960 arg2 = (gsl_vector *)(argp2);
7961 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
7962 if (!SWIG_IsOK(res3)) {
7963 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_linalg_bidiag_unpack_B" "', argument " "3"" of type '" "gsl_vector *""'");
7964 }
7965 arg3 = (gsl_vector *)(argp3);
7966 result = (int)gsl_linalg_bidiag_unpack_B((gsl_matrix const *)arg1,arg2,arg3);
7967 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7968
7969
7970
7971 XSRETURN(argvi);
7972 fail:
7973
7974
7975
7976 SWIG_croak_null();
7977 }
7978 }
7979
7980
XS(_wrap_gsl_linalg_balance_matrix)7981 XS(_wrap_gsl_linalg_balance_matrix) {
7982 {
7983 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
7984 gsl_vector *arg2 = (gsl_vector *) 0 ;
7985 void *argp1 = 0 ;
7986 int res1 = 0 ;
7987 void *argp2 = 0 ;
7988 int res2 = 0 ;
7989 int argvi = 0;
7990 int result;
7991 dXSARGS;
7992
7993 if ((items < 2) || (items > 2)) {
7994 SWIG_croak("Usage: gsl_linalg_balance_matrix(A,D);");
7995 }
7996 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7997 if (!SWIG_IsOK(res1)) {
7998 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_balance_matrix" "', argument " "1"" of type '" "gsl_matrix *""'");
7999 }
8000 arg1 = (gsl_matrix *)(argp1);
8001 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
8002 if (!SWIG_IsOK(res2)) {
8003 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_balance_matrix" "', argument " "2"" of type '" "gsl_vector *""'");
8004 }
8005 arg2 = (gsl_vector *)(argp2);
8006 result = (int)gsl_linalg_balance_matrix(arg1,arg2);
8007 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8008
8009
8010 XSRETURN(argvi);
8011 fail:
8012
8013
8014 SWIG_croak_null();
8015 }
8016 }
8017
8018
XS(_wrap_gsl_linalg_balance_accum)8019 XS(_wrap_gsl_linalg_balance_accum) {
8020 {
8021 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
8022 gsl_vector *arg2 = (gsl_vector *) 0 ;
8023 void *argp1 = 0 ;
8024 int res1 = 0 ;
8025 void *argp2 = 0 ;
8026 int res2 = 0 ;
8027 int argvi = 0;
8028 int result;
8029 dXSARGS;
8030
8031 if ((items < 2) || (items > 2)) {
8032 SWIG_croak("Usage: gsl_linalg_balance_accum(A,D);");
8033 }
8034 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
8035 if (!SWIG_IsOK(res1)) {
8036 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_balance_accum" "', argument " "1"" of type '" "gsl_matrix *""'");
8037 }
8038 arg1 = (gsl_matrix *)(argp1);
8039 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
8040 if (!SWIG_IsOK(res2)) {
8041 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_balance_accum" "', argument " "2"" of type '" "gsl_vector *""'");
8042 }
8043 arg2 = (gsl_vector *)(argp2);
8044 result = (int)gsl_linalg_balance_accum(arg1,arg2);
8045 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8046
8047
8048 XSRETURN(argvi);
8049 fail:
8050
8051
8052 SWIG_croak_null();
8053 }
8054 }
8055
8056
XS(_wrap_gsl_linalg_balance_columns)8057 XS(_wrap_gsl_linalg_balance_columns) {
8058 {
8059 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
8060 gsl_vector *arg2 = (gsl_vector *) 0 ;
8061 void *argp1 = 0 ;
8062 int res1 = 0 ;
8063 void *argp2 = 0 ;
8064 int res2 = 0 ;
8065 int argvi = 0;
8066 int result;
8067 dXSARGS;
8068
8069 if ((items < 2) || (items > 2)) {
8070 SWIG_croak("Usage: gsl_linalg_balance_columns(A,D);");
8071 }
8072 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
8073 if (!SWIG_IsOK(res1)) {
8074 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_linalg_balance_columns" "', argument " "1"" of type '" "gsl_matrix *""'");
8075 }
8076 arg1 = (gsl_matrix *)(argp1);
8077 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
8078 if (!SWIG_IsOK(res2)) {
8079 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_linalg_balance_columns" "', argument " "2"" of type '" "gsl_vector *""'");
8080 }
8081 arg2 = (gsl_vector *)(argp2);
8082 result = (int)gsl_linalg_balance_columns(arg1,arg2);
8083 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8084
8085
8086 XSRETURN(argvi);
8087 fail:
8088
8089
8090 SWIG_croak_null();
8091 }
8092 }
8093
8094
XS(_wrap_gsl_permutation_struct_size_set)8095 XS(_wrap_gsl_permutation_struct_size_set) {
8096 {
8097 struct gsl_permutation_struct *arg1 = (struct gsl_permutation_struct *) 0 ;
8098 size_t arg2 ;
8099 void *argp1 = 0 ;
8100 int res1 = 0 ;
8101 size_t val2 ;
8102 int ecode2 = 0 ;
8103 int argvi = 0;
8104 dXSARGS;
8105
8106 if ((items < 2) || (items > 2)) {
8107 SWIG_croak("Usage: gsl_permutation_struct_size_set(self,size);");
8108 }
8109 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
8110 if (!SWIG_IsOK(res1)) {
8111 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_struct_size_set" "', argument " "1"" of type '" "struct gsl_permutation_struct *""'");
8112 }
8113 arg1 = (struct gsl_permutation_struct *)(argp1);
8114 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
8115 if (!SWIG_IsOK(ecode2)) {
8116 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_permutation_struct_size_set" "', argument " "2"" of type '" "size_t""'");
8117 }
8118 arg2 = (size_t)(val2);
8119 if (arg1) (arg1)->size = arg2;
8120 ST(argvi) = &PL_sv_undef;
8121
8122
8123 XSRETURN(argvi);
8124 fail:
8125
8126
8127 SWIG_croak_null();
8128 }
8129 }
8130
8131
XS(_wrap_gsl_permutation_struct_size_get)8132 XS(_wrap_gsl_permutation_struct_size_get) {
8133 {
8134 struct gsl_permutation_struct *arg1 = (struct gsl_permutation_struct *) 0 ;
8135 void *argp1 = 0 ;
8136 int res1 = 0 ;
8137 int argvi = 0;
8138 size_t result;
8139 dXSARGS;
8140
8141 if ((items < 1) || (items > 1)) {
8142 SWIG_croak("Usage: gsl_permutation_struct_size_get(self);");
8143 }
8144 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
8145 if (!SWIG_IsOK(res1)) {
8146 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_struct_size_get" "', argument " "1"" of type '" "struct gsl_permutation_struct *""'");
8147 }
8148 arg1 = (struct gsl_permutation_struct *)(argp1);
8149 result = ((arg1)->size);
8150 ST(argvi) = SWIG_From_size_t SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
8151
8152 XSRETURN(argvi);
8153 fail:
8154
8155 SWIG_croak_null();
8156 }
8157 }
8158
8159
XS(_wrap_gsl_permutation_struct_data_set)8160 XS(_wrap_gsl_permutation_struct_data_set) {
8161 {
8162 struct gsl_permutation_struct *arg1 = (struct gsl_permutation_struct *) 0 ;
8163 size_t *arg2 = (size_t *) 0 ;
8164 void *argp1 = 0 ;
8165 int res1 = 0 ;
8166 void *argp2 = 0 ;
8167 int res2 = 0 ;
8168 int argvi = 0;
8169 dXSARGS;
8170
8171 if ((items < 2) || (items > 2)) {
8172 SWIG_croak("Usage: gsl_permutation_struct_data_set(self,data);");
8173 }
8174 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
8175 if (!SWIG_IsOK(res1)) {
8176 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_struct_data_set" "', argument " "1"" of type '" "struct gsl_permutation_struct *""'");
8177 }
8178 arg1 = (struct gsl_permutation_struct *)(argp1);
8179 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_size_t, SWIG_POINTER_DISOWN | 0 );
8180 if (!SWIG_IsOK(res2)) {
8181 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_permutation_struct_data_set" "', argument " "2"" of type '" "size_t *""'");
8182 }
8183 arg2 = (size_t *)(argp2);
8184 if (arg1) (arg1)->data = arg2;
8185 ST(argvi) = &PL_sv_undef;
8186
8187
8188 XSRETURN(argvi);
8189 fail:
8190
8191
8192 SWIG_croak_null();
8193 }
8194 }
8195
8196
XS(_wrap_gsl_permutation_struct_data_get)8197 XS(_wrap_gsl_permutation_struct_data_get) {
8198 {
8199 struct gsl_permutation_struct *arg1 = (struct gsl_permutation_struct *) 0 ;
8200 void *argp1 = 0 ;
8201 int res1 = 0 ;
8202 int argvi = 0;
8203 size_t *result = 0 ;
8204 dXSARGS;
8205
8206 if ((items < 1) || (items > 1)) {
8207 SWIG_croak("Usage: gsl_permutation_struct_data_get(self);");
8208 }
8209 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
8210 if (!SWIG_IsOK(res1)) {
8211 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_struct_data_get" "', argument " "1"" of type '" "struct gsl_permutation_struct *""'");
8212 }
8213 arg1 = (struct gsl_permutation_struct *)(argp1);
8214 result = (size_t *) ((arg1)->data);
8215 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_size_t, 0 | 0); argvi++ ;
8216
8217 XSRETURN(argvi);
8218 fail:
8219
8220 SWIG_croak_null();
8221 }
8222 }
8223
8224
XS(_wrap_new_gsl_permutation_struct)8225 XS(_wrap_new_gsl_permutation_struct) {
8226 {
8227 int argvi = 0;
8228 struct gsl_permutation_struct *result = 0 ;
8229 dXSARGS;
8230
8231 if ((items < 0) || (items > 0)) {
8232 SWIG_croak("Usage: new_gsl_permutation_struct();");
8233 }
8234 result = (struct gsl_permutation_struct *)calloc(1, sizeof(struct gsl_permutation_struct));
8235 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_permutation_struct, SWIG_OWNER | SWIG_SHADOW); argvi++ ;
8236 XSRETURN(argvi);
8237 fail:
8238 SWIG_croak_null();
8239 }
8240 }
8241
8242
XS(_wrap_delete_gsl_permutation_struct)8243 XS(_wrap_delete_gsl_permutation_struct) {
8244 {
8245 struct gsl_permutation_struct *arg1 = (struct gsl_permutation_struct *) 0 ;
8246 void *argp1 = 0 ;
8247 int res1 = 0 ;
8248 int argvi = 0;
8249 dXSARGS;
8250
8251 if ((items < 1) || (items > 1)) {
8252 SWIG_croak("Usage: delete_gsl_permutation_struct(self);");
8253 }
8254 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, SWIG_POINTER_DISOWN | 0 );
8255 if (!SWIG_IsOK(res1)) {
8256 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "delete_gsl_permutation_struct" "', argument " "1"" of type '" "struct gsl_permutation_struct *""'");
8257 }
8258 arg1 = (struct gsl_permutation_struct *)(argp1);
8259 free((char *) arg1);
8260 ST(argvi) = &PL_sv_undef;
8261
8262 XSRETURN(argvi);
8263 fail:
8264
8265 SWIG_croak_null();
8266 }
8267 }
8268
8269
XS(_wrap_gsl_permutation_alloc)8270 XS(_wrap_gsl_permutation_alloc) {
8271 {
8272 size_t arg1 ;
8273 size_t val1 ;
8274 int ecode1 = 0 ;
8275 int argvi = 0;
8276 gsl_permutation *result = 0 ;
8277 dXSARGS;
8278
8279 if ((items < 1) || (items > 1)) {
8280 SWIG_croak("Usage: gsl_permutation_alloc(n);");
8281 }
8282 ecode1 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
8283 if (!SWIG_IsOK(ecode1)) {
8284 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_permutation_alloc" "', argument " "1"" of type '" "size_t""'");
8285 }
8286 arg1 = (size_t)(val1);
8287 result = (gsl_permutation *)gsl_permutation_alloc(arg1);
8288 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_permutation_struct, 0 | SWIG_SHADOW); argvi++ ;
8289
8290 XSRETURN(argvi);
8291 fail:
8292
8293 SWIG_croak_null();
8294 }
8295 }
8296
8297
XS(_wrap_gsl_permutation_calloc)8298 XS(_wrap_gsl_permutation_calloc) {
8299 {
8300 size_t arg1 ;
8301 size_t val1 ;
8302 int ecode1 = 0 ;
8303 int argvi = 0;
8304 gsl_permutation *result = 0 ;
8305 dXSARGS;
8306
8307 if ((items < 1) || (items > 1)) {
8308 SWIG_croak("Usage: gsl_permutation_calloc(n);");
8309 }
8310 ecode1 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
8311 if (!SWIG_IsOK(ecode1)) {
8312 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_permutation_calloc" "', argument " "1"" of type '" "size_t""'");
8313 }
8314 arg1 = (size_t)(val1);
8315 result = (gsl_permutation *)gsl_permutation_calloc(arg1);
8316 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_permutation_struct, 0 | SWIG_SHADOW); argvi++ ;
8317
8318 XSRETURN(argvi);
8319 fail:
8320
8321 SWIG_croak_null();
8322 }
8323 }
8324
8325
XS(_wrap_gsl_permutation_init)8326 XS(_wrap_gsl_permutation_init) {
8327 {
8328 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
8329 void *argp1 = 0 ;
8330 int res1 = 0 ;
8331 int argvi = 0;
8332 dXSARGS;
8333
8334 if ((items < 1) || (items > 1)) {
8335 SWIG_croak("Usage: gsl_permutation_init(p);");
8336 }
8337 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
8338 if (!SWIG_IsOK(res1)) {
8339 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_init" "', argument " "1"" of type '" "gsl_permutation *""'");
8340 }
8341 arg1 = (gsl_permutation *)(argp1);
8342 gsl_permutation_init(arg1);
8343 ST(argvi) = &PL_sv_undef;
8344
8345 XSRETURN(argvi);
8346 fail:
8347
8348 SWIG_croak_null();
8349 }
8350 }
8351
8352
XS(_wrap_gsl_permutation_free)8353 XS(_wrap_gsl_permutation_free) {
8354 {
8355 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
8356 void *argp1 = 0 ;
8357 int res1 = 0 ;
8358 int argvi = 0;
8359 dXSARGS;
8360
8361 if ((items < 1) || (items > 1)) {
8362 SWIG_croak("Usage: gsl_permutation_free(p);");
8363 }
8364 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
8365 if (!SWIG_IsOK(res1)) {
8366 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_free" "', argument " "1"" of type '" "gsl_permutation *""'");
8367 }
8368 arg1 = (gsl_permutation *)(argp1);
8369 gsl_permutation_free(arg1);
8370 ST(argvi) = &PL_sv_undef;
8371
8372 XSRETURN(argvi);
8373 fail:
8374
8375 SWIG_croak_null();
8376 }
8377 }
8378
8379
XS(_wrap_gsl_permutation_memcpy)8380 XS(_wrap_gsl_permutation_memcpy) {
8381 {
8382 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
8383 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
8384 void *argp1 = 0 ;
8385 int res1 = 0 ;
8386 void *argp2 = 0 ;
8387 int res2 = 0 ;
8388 int argvi = 0;
8389 int result;
8390 dXSARGS;
8391
8392 if ((items < 2) || (items > 2)) {
8393 SWIG_croak("Usage: gsl_permutation_memcpy(dest,src);");
8394 }
8395 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
8396 if (!SWIG_IsOK(res1)) {
8397 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_memcpy" "', argument " "1"" of type '" "gsl_permutation *""'");
8398 }
8399 arg1 = (gsl_permutation *)(argp1);
8400 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
8401 if (!SWIG_IsOK(res2)) {
8402 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_permutation_memcpy" "', argument " "2"" of type '" "gsl_permutation const *""'");
8403 }
8404 arg2 = (gsl_permutation *)(argp2);
8405 result = (int)gsl_permutation_memcpy(arg1,(struct gsl_permutation_struct const *)arg2);
8406 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8407
8408
8409 XSRETURN(argvi);
8410 fail:
8411
8412
8413 SWIG_croak_null();
8414 }
8415 }
8416
8417
XS(_wrap_gsl_permutation_fread)8418 XS(_wrap_gsl_permutation_fread) {
8419 {
8420 FILE *arg1 = (FILE *) 0 ;
8421 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
8422 void *argp1 = 0 ;
8423 int res1 = 0 ;
8424 void *argp2 = 0 ;
8425 int res2 = 0 ;
8426 int argvi = 0;
8427 int result;
8428 dXSARGS;
8429
8430 if ((items < 2) || (items > 2)) {
8431 SWIG_croak("Usage: gsl_permutation_fread(stream,p);");
8432 }
8433 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_FILE, 0 | 0 );
8434 if (!SWIG_IsOK(res1)) {
8435 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_fread" "', argument " "1"" of type '" "FILE *""'");
8436 }
8437 arg1 = (FILE *)(argp1);
8438 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
8439 if (!SWIG_IsOK(res2)) {
8440 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_permutation_fread" "', argument " "2"" of type '" "gsl_permutation *""'");
8441 }
8442 arg2 = (gsl_permutation *)(argp2);
8443 result = (int)gsl_permutation_fread(arg1,arg2);
8444 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8445
8446
8447 XSRETURN(argvi);
8448 fail:
8449
8450
8451 SWIG_croak_null();
8452 }
8453 }
8454
8455
XS(_wrap_gsl_permutation_fwrite)8456 XS(_wrap_gsl_permutation_fwrite) {
8457 {
8458 FILE *arg1 = (FILE *) 0 ;
8459 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
8460 void *argp1 = 0 ;
8461 int res1 = 0 ;
8462 void *argp2 = 0 ;
8463 int res2 = 0 ;
8464 int argvi = 0;
8465 int result;
8466 dXSARGS;
8467
8468 if ((items < 2) || (items > 2)) {
8469 SWIG_croak("Usage: gsl_permutation_fwrite(stream,p);");
8470 }
8471 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_FILE, 0 | 0 );
8472 if (!SWIG_IsOK(res1)) {
8473 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_fwrite" "', argument " "1"" of type '" "FILE *""'");
8474 }
8475 arg1 = (FILE *)(argp1);
8476 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
8477 if (!SWIG_IsOK(res2)) {
8478 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_permutation_fwrite" "', argument " "2"" of type '" "gsl_permutation const *""'");
8479 }
8480 arg2 = (gsl_permutation *)(argp2);
8481 result = (int)gsl_permutation_fwrite(arg1,(struct gsl_permutation_struct const *)arg2);
8482 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8483
8484
8485 XSRETURN(argvi);
8486 fail:
8487
8488
8489 SWIG_croak_null();
8490 }
8491 }
8492
8493
XS(_wrap_gsl_permutation_fscanf)8494 XS(_wrap_gsl_permutation_fscanf) {
8495 {
8496 FILE *arg1 = (FILE *) 0 ;
8497 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
8498 void *argp1 = 0 ;
8499 int res1 = 0 ;
8500 void *argp2 = 0 ;
8501 int res2 = 0 ;
8502 int argvi = 0;
8503 int result;
8504 dXSARGS;
8505
8506 if ((items < 2) || (items > 2)) {
8507 SWIG_croak("Usage: gsl_permutation_fscanf(stream,p);");
8508 }
8509 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_FILE, 0 | 0 );
8510 if (!SWIG_IsOK(res1)) {
8511 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_fscanf" "', argument " "1"" of type '" "FILE *""'");
8512 }
8513 arg1 = (FILE *)(argp1);
8514 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
8515 if (!SWIG_IsOK(res2)) {
8516 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_permutation_fscanf" "', argument " "2"" of type '" "gsl_permutation *""'");
8517 }
8518 arg2 = (gsl_permutation *)(argp2);
8519 result = (int)gsl_permutation_fscanf(arg1,arg2);
8520 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8521
8522
8523 XSRETURN(argvi);
8524 fail:
8525
8526
8527 SWIG_croak_null();
8528 }
8529 }
8530
8531
XS(_wrap_gsl_permutation_fprintf)8532 XS(_wrap_gsl_permutation_fprintf) {
8533 {
8534 FILE *arg1 = (FILE *) 0 ;
8535 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
8536 char *arg3 = (char *) 0 ;
8537 void *argp1 = 0 ;
8538 int res1 = 0 ;
8539 void *argp2 = 0 ;
8540 int res2 = 0 ;
8541 int res3 ;
8542 char *buf3 = 0 ;
8543 int alloc3 = 0 ;
8544 int argvi = 0;
8545 int result;
8546 dXSARGS;
8547
8548 if ((items < 3) || (items > 3)) {
8549 SWIG_croak("Usage: gsl_permutation_fprintf(stream,p,format);");
8550 }
8551 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_FILE, 0 | 0 );
8552 if (!SWIG_IsOK(res1)) {
8553 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_fprintf" "', argument " "1"" of type '" "FILE *""'");
8554 }
8555 arg1 = (FILE *)(argp1);
8556 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
8557 if (!SWIG_IsOK(res2)) {
8558 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_permutation_fprintf" "', argument " "2"" of type '" "gsl_permutation const *""'");
8559 }
8560 arg2 = (gsl_permutation *)(argp2);
8561 res3 = SWIG_AsCharPtrAndSize(ST(2), &buf3, NULL, &alloc3);
8562 if (!SWIG_IsOK(res3)) {
8563 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_permutation_fprintf" "', argument " "3"" of type '" "char const *""'");
8564 }
8565 arg3 = (char *)(buf3);
8566 result = (int)gsl_permutation_fprintf(arg1,(struct gsl_permutation_struct const *)arg2,(char const *)arg3);
8567 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8568
8569
8570 if (alloc3 == SWIG_NEWOBJ) free((char*)buf3);
8571 XSRETURN(argvi);
8572 fail:
8573
8574
8575 if (alloc3 == SWIG_NEWOBJ) free((char*)buf3);
8576 SWIG_croak_null();
8577 }
8578 }
8579
8580
XS(_wrap_gsl_permutation_size)8581 XS(_wrap_gsl_permutation_size) {
8582 {
8583 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
8584 void *argp1 = 0 ;
8585 int res1 = 0 ;
8586 int argvi = 0;
8587 size_t result;
8588 dXSARGS;
8589
8590 if ((items < 1) || (items > 1)) {
8591 SWIG_croak("Usage: gsl_permutation_size(p);");
8592 }
8593 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
8594 if (!SWIG_IsOK(res1)) {
8595 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_size" "', argument " "1"" of type '" "gsl_permutation const *""'");
8596 }
8597 arg1 = (gsl_permutation *)(argp1);
8598 result = gsl_permutation_size((struct gsl_permutation_struct const *)arg1);
8599 ST(argvi) = SWIG_From_size_t SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
8600
8601 XSRETURN(argvi);
8602 fail:
8603
8604 SWIG_croak_null();
8605 }
8606 }
8607
8608
XS(_wrap_gsl_permutation_data)8609 XS(_wrap_gsl_permutation_data) {
8610 {
8611 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
8612 void *argp1 = 0 ;
8613 int res1 = 0 ;
8614 int argvi = 0;
8615 size_t *result = 0 ;
8616 dXSARGS;
8617
8618 if ((items < 1) || (items > 1)) {
8619 SWIG_croak("Usage: gsl_permutation_data(p);");
8620 }
8621 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
8622 if (!SWIG_IsOK(res1)) {
8623 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_data" "', argument " "1"" of type '" "gsl_permutation const *""'");
8624 }
8625 arg1 = (gsl_permutation *)(argp1);
8626 result = (size_t *)gsl_permutation_data((struct gsl_permutation_struct const *)arg1);
8627 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_size_t, 0 | 0); argvi++ ;
8628
8629 XSRETURN(argvi);
8630 fail:
8631
8632 SWIG_croak_null();
8633 }
8634 }
8635
8636
XS(_wrap_gsl_permutation_swap)8637 XS(_wrap_gsl_permutation_swap) {
8638 {
8639 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
8640 size_t arg2 ;
8641 size_t arg3 ;
8642 void *argp1 = 0 ;
8643 int res1 = 0 ;
8644 size_t val2 ;
8645 int ecode2 = 0 ;
8646 size_t val3 ;
8647 int ecode3 = 0 ;
8648 int argvi = 0;
8649 int result;
8650 dXSARGS;
8651
8652 if ((items < 3) || (items > 3)) {
8653 SWIG_croak("Usage: gsl_permutation_swap(p,i,j);");
8654 }
8655 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
8656 if (!SWIG_IsOK(res1)) {
8657 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_swap" "', argument " "1"" of type '" "gsl_permutation *""'");
8658 }
8659 arg1 = (gsl_permutation *)(argp1);
8660 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
8661 if (!SWIG_IsOK(ecode2)) {
8662 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_permutation_swap" "', argument " "2"" of type '" "size_t""'");
8663 }
8664 arg2 = (size_t)(val2);
8665 ecode3 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
8666 if (!SWIG_IsOK(ecode3)) {
8667 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_permutation_swap" "', argument " "3"" of type '" "size_t""'");
8668 }
8669 arg3 = (size_t)(val3);
8670 result = (int)gsl_permutation_swap(arg1,arg2,arg3);
8671 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8672
8673
8674
8675 XSRETURN(argvi);
8676 fail:
8677
8678
8679
8680 SWIG_croak_null();
8681 }
8682 }
8683
8684
XS(_wrap_gsl_permutation_valid)8685 XS(_wrap_gsl_permutation_valid) {
8686 {
8687 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
8688 void *argp1 = 0 ;
8689 int res1 = 0 ;
8690 int argvi = 0;
8691 int result;
8692 dXSARGS;
8693
8694 if ((items < 1) || (items > 1)) {
8695 SWIG_croak("Usage: gsl_permutation_valid(p);");
8696 }
8697 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
8698 if (!SWIG_IsOK(res1)) {
8699 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_valid" "', argument " "1"" of type '" "gsl_permutation const *""'");
8700 }
8701 arg1 = (gsl_permutation *)(argp1);
8702 result = (int)gsl_permutation_valid((struct gsl_permutation_struct const *)arg1);
8703 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8704
8705 XSRETURN(argvi);
8706 fail:
8707
8708 SWIG_croak_null();
8709 }
8710 }
8711
8712
XS(_wrap_gsl_permutation_reverse)8713 XS(_wrap_gsl_permutation_reverse) {
8714 {
8715 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
8716 void *argp1 = 0 ;
8717 int res1 = 0 ;
8718 int argvi = 0;
8719 dXSARGS;
8720
8721 if ((items < 1) || (items > 1)) {
8722 SWIG_croak("Usage: gsl_permutation_reverse(p);");
8723 }
8724 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
8725 if (!SWIG_IsOK(res1)) {
8726 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_reverse" "', argument " "1"" of type '" "gsl_permutation *""'");
8727 }
8728 arg1 = (gsl_permutation *)(argp1);
8729 gsl_permutation_reverse(arg1);
8730 ST(argvi) = &PL_sv_undef;
8731
8732 XSRETURN(argvi);
8733 fail:
8734
8735 SWIG_croak_null();
8736 }
8737 }
8738
8739
XS(_wrap_gsl_permutation_inverse)8740 XS(_wrap_gsl_permutation_inverse) {
8741 {
8742 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
8743 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
8744 void *argp1 = 0 ;
8745 int res1 = 0 ;
8746 void *argp2 = 0 ;
8747 int res2 = 0 ;
8748 int argvi = 0;
8749 int result;
8750 dXSARGS;
8751
8752 if ((items < 2) || (items > 2)) {
8753 SWIG_croak("Usage: gsl_permutation_inverse(inv,p);");
8754 }
8755 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
8756 if (!SWIG_IsOK(res1)) {
8757 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_inverse" "', argument " "1"" of type '" "gsl_permutation *""'");
8758 }
8759 arg1 = (gsl_permutation *)(argp1);
8760 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
8761 if (!SWIG_IsOK(res2)) {
8762 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_permutation_inverse" "', argument " "2"" of type '" "gsl_permutation const *""'");
8763 }
8764 arg2 = (gsl_permutation *)(argp2);
8765 result = (int)gsl_permutation_inverse(arg1,(struct gsl_permutation_struct const *)arg2);
8766 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8767
8768
8769 XSRETURN(argvi);
8770 fail:
8771
8772
8773 SWIG_croak_null();
8774 }
8775 }
8776
8777
XS(_wrap_gsl_permutation_next)8778 XS(_wrap_gsl_permutation_next) {
8779 {
8780 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
8781 void *argp1 = 0 ;
8782 int res1 = 0 ;
8783 int argvi = 0;
8784 int result;
8785 dXSARGS;
8786
8787 if ((items < 1) || (items > 1)) {
8788 SWIG_croak("Usage: gsl_permutation_next(p);");
8789 }
8790 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
8791 if (!SWIG_IsOK(res1)) {
8792 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_next" "', argument " "1"" of type '" "gsl_permutation *""'");
8793 }
8794 arg1 = (gsl_permutation *)(argp1);
8795 result = (int)gsl_permutation_next(arg1);
8796 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8797
8798 XSRETURN(argvi);
8799 fail:
8800
8801 SWIG_croak_null();
8802 }
8803 }
8804
8805
XS(_wrap_gsl_permutation_prev)8806 XS(_wrap_gsl_permutation_prev) {
8807 {
8808 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
8809 void *argp1 = 0 ;
8810 int res1 = 0 ;
8811 int argvi = 0;
8812 int result;
8813 dXSARGS;
8814
8815 if ((items < 1) || (items > 1)) {
8816 SWIG_croak("Usage: gsl_permutation_prev(p);");
8817 }
8818 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
8819 if (!SWIG_IsOK(res1)) {
8820 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_prev" "', argument " "1"" of type '" "gsl_permutation *""'");
8821 }
8822 arg1 = (gsl_permutation *)(argp1);
8823 result = (int)gsl_permutation_prev(arg1);
8824 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8825
8826 XSRETURN(argvi);
8827 fail:
8828
8829 SWIG_croak_null();
8830 }
8831 }
8832
8833
XS(_wrap_gsl_permutation_mul)8834 XS(_wrap_gsl_permutation_mul) {
8835 {
8836 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
8837 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
8838 gsl_permutation *arg3 = (gsl_permutation *) 0 ;
8839 void *argp1 = 0 ;
8840 int res1 = 0 ;
8841 void *argp2 = 0 ;
8842 int res2 = 0 ;
8843 void *argp3 = 0 ;
8844 int res3 = 0 ;
8845 int argvi = 0;
8846 int result;
8847 dXSARGS;
8848
8849 if ((items < 3) || (items > 3)) {
8850 SWIG_croak("Usage: gsl_permutation_mul(p,pa,pb);");
8851 }
8852 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
8853 if (!SWIG_IsOK(res1)) {
8854 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_mul" "', argument " "1"" of type '" "gsl_permutation *""'");
8855 }
8856 arg1 = (gsl_permutation *)(argp1);
8857 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
8858 if (!SWIG_IsOK(res2)) {
8859 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_permutation_mul" "', argument " "2"" of type '" "gsl_permutation const *""'");
8860 }
8861 arg2 = (gsl_permutation *)(argp2);
8862 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
8863 if (!SWIG_IsOK(res3)) {
8864 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_permutation_mul" "', argument " "3"" of type '" "gsl_permutation const *""'");
8865 }
8866 arg3 = (gsl_permutation *)(argp3);
8867 result = (int)gsl_permutation_mul(arg1,(struct gsl_permutation_struct const *)arg2,(struct gsl_permutation_struct const *)arg3);
8868 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8869
8870
8871
8872 XSRETURN(argvi);
8873 fail:
8874
8875
8876
8877 SWIG_croak_null();
8878 }
8879 }
8880
8881
XS(_wrap_gsl_permutation_linear_to_canonical)8882 XS(_wrap_gsl_permutation_linear_to_canonical) {
8883 {
8884 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
8885 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
8886 void *argp1 = 0 ;
8887 int res1 = 0 ;
8888 void *argp2 = 0 ;
8889 int res2 = 0 ;
8890 int argvi = 0;
8891 int result;
8892 dXSARGS;
8893
8894 if ((items < 2) || (items > 2)) {
8895 SWIG_croak("Usage: gsl_permutation_linear_to_canonical(q,p);");
8896 }
8897 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
8898 if (!SWIG_IsOK(res1)) {
8899 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_linear_to_canonical" "', argument " "1"" of type '" "gsl_permutation *""'");
8900 }
8901 arg1 = (gsl_permutation *)(argp1);
8902 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
8903 if (!SWIG_IsOK(res2)) {
8904 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_permutation_linear_to_canonical" "', argument " "2"" of type '" "gsl_permutation const *""'");
8905 }
8906 arg2 = (gsl_permutation *)(argp2);
8907 result = (int)gsl_permutation_linear_to_canonical(arg1,(struct gsl_permutation_struct const *)arg2);
8908 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8909
8910
8911 XSRETURN(argvi);
8912 fail:
8913
8914
8915 SWIG_croak_null();
8916 }
8917 }
8918
8919
XS(_wrap_gsl_permutation_canonical_to_linear)8920 XS(_wrap_gsl_permutation_canonical_to_linear) {
8921 {
8922 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
8923 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
8924 void *argp1 = 0 ;
8925 int res1 = 0 ;
8926 void *argp2 = 0 ;
8927 int res2 = 0 ;
8928 int argvi = 0;
8929 int result;
8930 dXSARGS;
8931
8932 if ((items < 2) || (items > 2)) {
8933 SWIG_croak("Usage: gsl_permutation_canonical_to_linear(p,q);");
8934 }
8935 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
8936 if (!SWIG_IsOK(res1)) {
8937 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_canonical_to_linear" "', argument " "1"" of type '" "gsl_permutation *""'");
8938 }
8939 arg1 = (gsl_permutation *)(argp1);
8940 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
8941 if (!SWIG_IsOK(res2)) {
8942 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_permutation_canonical_to_linear" "', argument " "2"" of type '" "gsl_permutation const *""'");
8943 }
8944 arg2 = (gsl_permutation *)(argp2);
8945 result = (int)gsl_permutation_canonical_to_linear(arg1,(struct gsl_permutation_struct const *)arg2);
8946 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8947
8948
8949 XSRETURN(argvi);
8950 fail:
8951
8952
8953 SWIG_croak_null();
8954 }
8955 }
8956
8957
XS(_wrap_gsl_permutation_inversions)8958 XS(_wrap_gsl_permutation_inversions) {
8959 {
8960 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
8961 void *argp1 = 0 ;
8962 int res1 = 0 ;
8963 int argvi = 0;
8964 size_t result;
8965 dXSARGS;
8966
8967 if ((items < 1) || (items > 1)) {
8968 SWIG_croak("Usage: gsl_permutation_inversions(p);");
8969 }
8970 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
8971 if (!SWIG_IsOK(res1)) {
8972 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_inversions" "', argument " "1"" of type '" "gsl_permutation const *""'");
8973 }
8974 arg1 = (gsl_permutation *)(argp1);
8975 result = gsl_permutation_inversions((struct gsl_permutation_struct const *)arg1);
8976 ST(argvi) = SWIG_From_size_t SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
8977
8978 XSRETURN(argvi);
8979 fail:
8980
8981 SWIG_croak_null();
8982 }
8983 }
8984
8985
XS(_wrap_gsl_permutation_linear_cycles)8986 XS(_wrap_gsl_permutation_linear_cycles) {
8987 {
8988 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
8989 void *argp1 = 0 ;
8990 int res1 = 0 ;
8991 int argvi = 0;
8992 size_t result;
8993 dXSARGS;
8994
8995 if ((items < 1) || (items > 1)) {
8996 SWIG_croak("Usage: gsl_permutation_linear_cycles(p);");
8997 }
8998 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
8999 if (!SWIG_IsOK(res1)) {
9000 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_linear_cycles" "', argument " "1"" of type '" "gsl_permutation const *""'");
9001 }
9002 arg1 = (gsl_permutation *)(argp1);
9003 result = gsl_permutation_linear_cycles((struct gsl_permutation_struct const *)arg1);
9004 ST(argvi) = SWIG_From_size_t SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
9005
9006 XSRETURN(argvi);
9007 fail:
9008
9009 SWIG_croak_null();
9010 }
9011 }
9012
9013
XS(_wrap_gsl_permutation_canonical_cycles)9014 XS(_wrap_gsl_permutation_canonical_cycles) {
9015 {
9016 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
9017 void *argp1 = 0 ;
9018 int res1 = 0 ;
9019 int argvi = 0;
9020 size_t result;
9021 dXSARGS;
9022
9023 if ((items < 1) || (items > 1)) {
9024 SWIG_croak("Usage: gsl_permutation_canonical_cycles(q);");
9025 }
9026 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
9027 if (!SWIG_IsOK(res1)) {
9028 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_canonical_cycles" "', argument " "1"" of type '" "gsl_permutation const *""'");
9029 }
9030 arg1 = (gsl_permutation *)(argp1);
9031 result = gsl_permutation_canonical_cycles((struct gsl_permutation_struct const *)arg1);
9032 ST(argvi) = SWIG_From_size_t SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
9033
9034 XSRETURN(argvi);
9035 fail:
9036
9037 SWIG_croak_null();
9038 }
9039 }
9040
9041
XS(_wrap_gsl_permutation_get)9042 XS(_wrap_gsl_permutation_get) {
9043 {
9044 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
9045 size_t arg2 ;
9046 void *argp1 = 0 ;
9047 int res1 = 0 ;
9048 size_t val2 ;
9049 int ecode2 = 0 ;
9050 int argvi = 0;
9051 size_t result;
9052 dXSARGS;
9053
9054 if ((items < 2) || (items > 2)) {
9055 SWIG_croak("Usage: gsl_permutation_get(p,i);");
9056 }
9057 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
9058 if (!SWIG_IsOK(res1)) {
9059 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_get" "', argument " "1"" of type '" "gsl_permutation const *""'");
9060 }
9061 arg1 = (gsl_permutation *)(argp1);
9062 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
9063 if (!SWIG_IsOK(ecode2)) {
9064 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_permutation_get" "', argument " "2"" of type '" "size_t""'");
9065 }
9066 arg2 = (size_t)(val2);
9067 result = gsl_permutation_get((struct gsl_permutation_struct const *)arg1,arg2);
9068 ST(argvi) = SWIG_From_size_t SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
9069
9070
9071 XSRETURN(argvi);
9072 fail:
9073
9074
9075 SWIG_croak_null();
9076 }
9077 }
9078
9079
XS(_wrap_gsl_complex_dat_set)9080 XS(_wrap_gsl_complex_dat_set) {
9081 {
9082 gsl_complex *arg1 = (gsl_complex *) 0 ;
9083 double *arg2 ;
9084 void *argp1 = 0 ;
9085 int res1 = 0 ;
9086 void *argp2 = 0 ;
9087 int res2 = 0 ;
9088 int argvi = 0;
9089 dXSARGS;
9090
9091 if ((items < 2) || (items > 2)) {
9092 SWIG_croak("Usage: gsl_complex_dat_set(self,dat);");
9093 }
9094 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_complex, 0 | 0 );
9095 if (!SWIG_IsOK(res1)) {
9096 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_dat_set" "', argument " "1"" of type '" "gsl_complex *""'");
9097 }
9098 arg1 = (gsl_complex *)(argp1);
9099 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_double, 0 | 0 );
9100 if (!SWIG_IsOK(res2)) {
9101 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_complex_dat_set" "', argument " "2"" of type '" "double [2]""'");
9102 }
9103 arg2 = (double *)(argp2);
9104 {
9105 if (arg2) {
9106 size_t ii = 0;
9107 for (; ii < (size_t)2; ++ii) *(double *)&arg1->dat[ii] = *((double *)arg2 + ii);
9108 } else {
9109 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in variable '""dat""' of type '""double [2]""'");
9110 }
9111 }
9112 ST(argvi) = &PL_sv_undef;
9113
9114
9115 XSRETURN(argvi);
9116 fail:
9117
9118
9119 SWIG_croak_null();
9120 }
9121 }
9122
9123
XS(_wrap_gsl_complex_dat_get)9124 XS(_wrap_gsl_complex_dat_get) {
9125 {
9126 gsl_complex *arg1 = (gsl_complex *) 0 ;
9127 void *argp1 = 0 ;
9128 int res1 = 0 ;
9129 int argvi = 0;
9130 double *result = 0 ;
9131 dXSARGS;
9132
9133 if ((items < 1) || (items > 1)) {
9134 SWIG_croak("Usage: gsl_complex_dat_get(self);");
9135 }
9136 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_complex, 0 | 0 );
9137 if (!SWIG_IsOK(res1)) {
9138 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_dat_get" "', argument " "1"" of type '" "gsl_complex *""'");
9139 }
9140 arg1 = (gsl_complex *)(argp1);
9141 result = (double *)(double *) ((arg1)->dat);
9142 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_double, 0 | 0); argvi++ ;
9143
9144 XSRETURN(argvi);
9145 fail:
9146
9147 SWIG_croak_null();
9148 }
9149 }
9150
9151
XS(_wrap_new_gsl_complex)9152 XS(_wrap_new_gsl_complex) {
9153 {
9154 int argvi = 0;
9155 gsl_complex *result = 0 ;
9156 dXSARGS;
9157
9158 if ((items < 0) || (items > 0)) {
9159 SWIG_croak("Usage: new_gsl_complex();");
9160 }
9161 result = (gsl_complex *)calloc(1, sizeof(gsl_complex));
9162 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_complex, SWIG_OWNER | SWIG_SHADOW); argvi++ ;
9163 XSRETURN(argvi);
9164 fail:
9165 SWIG_croak_null();
9166 }
9167 }
9168
9169
XS(_wrap_delete_gsl_complex)9170 XS(_wrap_delete_gsl_complex) {
9171 {
9172 gsl_complex *arg1 = (gsl_complex *) 0 ;
9173 void *argp1 = 0 ;
9174 int res1 = 0 ;
9175 int argvi = 0;
9176 dXSARGS;
9177
9178 if ((items < 1) || (items > 1)) {
9179 SWIG_croak("Usage: delete_gsl_complex(self);");
9180 }
9181 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_complex, SWIG_POINTER_DISOWN | 0 );
9182 if (!SWIG_IsOK(res1)) {
9183 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "delete_gsl_complex" "', argument " "1"" of type '" "gsl_complex *""'");
9184 }
9185 arg1 = (gsl_complex *)(argp1);
9186 free((char *) arg1);
9187 ST(argvi) = &PL_sv_undef;
9188
9189 XSRETURN(argvi);
9190 fail:
9191
9192 SWIG_croak_null();
9193 }
9194 }
9195
9196
XS(_wrap_gsl_complex_long_double_dat_set)9197 XS(_wrap_gsl_complex_long_double_dat_set) {
9198 {
9199 gsl_complex_long_double *arg1 = (gsl_complex_long_double *) 0 ;
9200 long double *arg2 ;
9201 void *argp1 = 0 ;
9202 int res1 = 0 ;
9203 void *argp2 = 0 ;
9204 int res2 = 0 ;
9205 int argvi = 0;
9206 dXSARGS;
9207
9208 if ((items < 2) || (items > 2)) {
9209 SWIG_croak("Usage: gsl_complex_long_double_dat_set(self,dat);");
9210 }
9211 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_complex_long_double, 0 | 0 );
9212 if (!SWIG_IsOK(res1)) {
9213 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_long_double_dat_set" "', argument " "1"" of type '" "gsl_complex_long_double *""'");
9214 }
9215 arg1 = (gsl_complex_long_double *)(argp1);
9216 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_long_double, 0 | 0 );
9217 if (!SWIG_IsOK(res2)) {
9218 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_complex_long_double_dat_set" "', argument " "2"" of type '" "long double [2]""'");
9219 }
9220 arg2 = (long double *)(argp2);
9221 {
9222 if (arg2) {
9223 size_t ii = 0;
9224 for (; ii < (size_t)2; ++ii) *(long double *)&arg1->dat[ii] = *((long double *)arg2 + ii);
9225 } else {
9226 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in variable '""dat""' of type '""long double [2]""'");
9227 }
9228 }
9229 ST(argvi) = &PL_sv_undef;
9230
9231
9232 XSRETURN(argvi);
9233 fail:
9234
9235
9236 SWIG_croak_null();
9237 }
9238 }
9239
9240
XS(_wrap_gsl_complex_long_double_dat_get)9241 XS(_wrap_gsl_complex_long_double_dat_get) {
9242 {
9243 gsl_complex_long_double *arg1 = (gsl_complex_long_double *) 0 ;
9244 void *argp1 = 0 ;
9245 int res1 = 0 ;
9246 int argvi = 0;
9247 long double *result = 0 ;
9248 dXSARGS;
9249
9250 if ((items < 1) || (items > 1)) {
9251 SWIG_croak("Usage: gsl_complex_long_double_dat_get(self);");
9252 }
9253 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_complex_long_double, 0 | 0 );
9254 if (!SWIG_IsOK(res1)) {
9255 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_long_double_dat_get" "', argument " "1"" of type '" "gsl_complex_long_double *""'");
9256 }
9257 arg1 = (gsl_complex_long_double *)(argp1);
9258 result = (long double *)(long double *) ((arg1)->dat);
9259 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_long_double, 0 | 0); argvi++ ;
9260
9261 XSRETURN(argvi);
9262 fail:
9263
9264 SWIG_croak_null();
9265 }
9266 }
9267
9268
XS(_wrap_new_gsl_complex_long_double)9269 XS(_wrap_new_gsl_complex_long_double) {
9270 {
9271 int argvi = 0;
9272 gsl_complex_long_double *result = 0 ;
9273 dXSARGS;
9274
9275 if ((items < 0) || (items > 0)) {
9276 SWIG_croak("Usage: new_gsl_complex_long_double();");
9277 }
9278 result = (gsl_complex_long_double *)calloc(1, sizeof(gsl_complex_long_double));
9279 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_complex_long_double, SWIG_OWNER | SWIG_SHADOW); argvi++ ;
9280 XSRETURN(argvi);
9281 fail:
9282 SWIG_croak_null();
9283 }
9284 }
9285
9286
XS(_wrap_delete_gsl_complex_long_double)9287 XS(_wrap_delete_gsl_complex_long_double) {
9288 {
9289 gsl_complex_long_double *arg1 = (gsl_complex_long_double *) 0 ;
9290 void *argp1 = 0 ;
9291 int res1 = 0 ;
9292 int argvi = 0;
9293 dXSARGS;
9294
9295 if ((items < 1) || (items > 1)) {
9296 SWIG_croak("Usage: delete_gsl_complex_long_double(self);");
9297 }
9298 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_complex_long_double, SWIG_POINTER_DISOWN | 0 );
9299 if (!SWIG_IsOK(res1)) {
9300 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "delete_gsl_complex_long_double" "', argument " "1"" of type '" "gsl_complex_long_double *""'");
9301 }
9302 arg1 = (gsl_complex_long_double *)(argp1);
9303 free((char *) arg1);
9304 ST(argvi) = &PL_sv_undef;
9305
9306 XSRETURN(argvi);
9307 fail:
9308
9309 SWIG_croak_null();
9310 }
9311 }
9312
9313
XS(_wrap_gsl_complex_float_dat_set)9314 XS(_wrap_gsl_complex_float_dat_set) {
9315 {
9316 gsl_complex_float *arg1 = (gsl_complex_float *) 0 ;
9317 float *arg2 ;
9318 void *argp1 = 0 ;
9319 int res1 = 0 ;
9320 void *argp2 = 0 ;
9321 int res2 = 0 ;
9322 int argvi = 0;
9323 dXSARGS;
9324
9325 if ((items < 2) || (items > 2)) {
9326 SWIG_croak("Usage: gsl_complex_float_dat_set(self,dat);");
9327 }
9328 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_complex_float, 0 | 0 );
9329 if (!SWIG_IsOK(res1)) {
9330 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_float_dat_set" "', argument " "1"" of type '" "gsl_complex_float *""'");
9331 }
9332 arg1 = (gsl_complex_float *)(argp1);
9333 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_float, 0 | 0 );
9334 if (!SWIG_IsOK(res2)) {
9335 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_complex_float_dat_set" "', argument " "2"" of type '" "float [2]""'");
9336 }
9337 arg2 = (float *)(argp2);
9338 {
9339 if (arg2) {
9340 size_t ii = 0;
9341 for (; ii < (size_t)2; ++ii) *(float *)&arg1->dat[ii] = *((float *)arg2 + ii);
9342 } else {
9343 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in variable '""dat""' of type '""float [2]""'");
9344 }
9345 }
9346 ST(argvi) = &PL_sv_undef;
9347
9348
9349 XSRETURN(argvi);
9350 fail:
9351
9352
9353 SWIG_croak_null();
9354 }
9355 }
9356
9357
XS(_wrap_gsl_complex_float_dat_get)9358 XS(_wrap_gsl_complex_float_dat_get) {
9359 {
9360 gsl_complex_float *arg1 = (gsl_complex_float *) 0 ;
9361 void *argp1 = 0 ;
9362 int res1 = 0 ;
9363 int argvi = 0;
9364 float *result = 0 ;
9365 dXSARGS;
9366
9367 if ((items < 1) || (items > 1)) {
9368 SWIG_croak("Usage: gsl_complex_float_dat_get(self);");
9369 }
9370 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_complex_float, 0 | 0 );
9371 if (!SWIG_IsOK(res1)) {
9372 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_float_dat_get" "', argument " "1"" of type '" "gsl_complex_float *""'");
9373 }
9374 arg1 = (gsl_complex_float *)(argp1);
9375 result = (float *)(float *) ((arg1)->dat);
9376 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_float, 0 | 0); argvi++ ;
9377
9378 XSRETURN(argvi);
9379 fail:
9380
9381 SWIG_croak_null();
9382 }
9383 }
9384
9385
XS(_wrap_new_gsl_complex_float)9386 XS(_wrap_new_gsl_complex_float) {
9387 {
9388 int argvi = 0;
9389 gsl_complex_float *result = 0 ;
9390 dXSARGS;
9391
9392 if ((items < 0) || (items > 0)) {
9393 SWIG_croak("Usage: new_gsl_complex_float();");
9394 }
9395 result = (gsl_complex_float *)calloc(1, sizeof(gsl_complex_float));
9396 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_complex_float, SWIG_OWNER | SWIG_SHADOW); argvi++ ;
9397 XSRETURN(argvi);
9398 fail:
9399 SWIG_croak_null();
9400 }
9401 }
9402
9403
XS(_wrap_delete_gsl_complex_float)9404 XS(_wrap_delete_gsl_complex_float) {
9405 {
9406 gsl_complex_float *arg1 = (gsl_complex_float *) 0 ;
9407 void *argp1 = 0 ;
9408 int res1 = 0 ;
9409 int argvi = 0;
9410 dXSARGS;
9411
9412 if ((items < 1) || (items > 1)) {
9413 SWIG_croak("Usage: delete_gsl_complex_float(self);");
9414 }
9415 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_complex_float, SWIG_POINTER_DISOWN | 0 );
9416 if (!SWIG_IsOK(res1)) {
9417 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "delete_gsl_complex_float" "', argument " "1"" of type '" "gsl_complex_float *""'");
9418 }
9419 arg1 = (gsl_complex_float *)(argp1);
9420 free((char *) arg1);
9421 ST(argvi) = &PL_sv_undef;
9422
9423 XSRETURN(argvi);
9424 fail:
9425
9426 SWIG_croak_null();
9427 }
9428 }
9429
9430
XS(_wrap_gsl_complex_polar)9431 XS(_wrap_gsl_complex_polar) {
9432 {
9433 double arg1 ;
9434 double arg2 ;
9435 double val1 ;
9436 int ecode1 = 0 ;
9437 double val2 ;
9438 int ecode2 = 0 ;
9439 int argvi = 0;
9440 gsl_complex result;
9441 dXSARGS;
9442
9443 if ((items < 2) || (items > 2)) {
9444 SWIG_croak("Usage: gsl_complex_polar(r,theta);");
9445 }
9446 ecode1 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
9447 if (!SWIG_IsOK(ecode1)) {
9448 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_complex_polar" "', argument " "1"" of type '" "double""'");
9449 }
9450 arg1 = (double)(val1);
9451 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
9452 if (!SWIG_IsOK(ecode2)) {
9453 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_complex_polar" "', argument " "2"" of type '" "double""'");
9454 }
9455 arg2 = (double)(val2);
9456 result = gsl_complex_polar(arg1,arg2);
9457 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
9458
9459
9460 XSRETURN(argvi);
9461 fail:
9462
9463
9464 SWIG_croak_null();
9465 }
9466 }
9467
9468
XS(_wrap_gsl_complex_rect)9469 XS(_wrap_gsl_complex_rect) {
9470 {
9471 double arg1 ;
9472 double arg2 ;
9473 double val1 ;
9474 int ecode1 = 0 ;
9475 double val2 ;
9476 int ecode2 = 0 ;
9477 int argvi = 0;
9478 gsl_complex result;
9479 dXSARGS;
9480
9481 if ((items < 2) || (items > 2)) {
9482 SWIG_croak("Usage: gsl_complex_rect(x,y);");
9483 }
9484 ecode1 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
9485 if (!SWIG_IsOK(ecode1)) {
9486 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_complex_rect" "', argument " "1"" of type '" "double""'");
9487 }
9488 arg1 = (double)(val1);
9489 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
9490 if (!SWIG_IsOK(ecode2)) {
9491 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_complex_rect" "', argument " "2"" of type '" "double""'");
9492 }
9493 arg2 = (double)(val2);
9494 result = gsl_complex_rect(arg1,arg2);
9495 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
9496
9497
9498 XSRETURN(argvi);
9499 fail:
9500
9501
9502 SWIG_croak_null();
9503 }
9504 }
9505
9506
XS(_wrap_gsl_complex_arg)9507 XS(_wrap_gsl_complex_arg) {
9508 {
9509 gsl_complex arg1 ;
9510 void *argp1 ;
9511 int res1 = 0 ;
9512 int argvi = 0;
9513 double result;
9514 dXSARGS;
9515
9516 if ((items < 1) || (items > 1)) {
9517 SWIG_croak("Usage: gsl_complex_arg(z);");
9518 }
9519 {
9520 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
9521 if (!SWIG_IsOK(res1)) {
9522 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_arg" "', argument " "1"" of type '" "gsl_complex""'");
9523 }
9524 if (!argp1) {
9525 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_arg" "', argument " "1"" of type '" "gsl_complex""'");
9526 } else {
9527 arg1 = *((gsl_complex *)(argp1));
9528 }
9529 }
9530 result = (double)gsl_complex_arg(arg1);
9531 ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(result)); argvi++ ;
9532 XSRETURN(argvi);
9533 fail:
9534 SWIG_croak_null();
9535 }
9536 }
9537
9538
XS(_wrap_gsl_complex_abs)9539 XS(_wrap_gsl_complex_abs) {
9540 {
9541 gsl_complex arg1 ;
9542 void *argp1 ;
9543 int res1 = 0 ;
9544 int argvi = 0;
9545 double result;
9546 dXSARGS;
9547
9548 if ((items < 1) || (items > 1)) {
9549 SWIG_croak("Usage: gsl_complex_abs(z);");
9550 }
9551 {
9552 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
9553 if (!SWIG_IsOK(res1)) {
9554 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_abs" "', argument " "1"" of type '" "gsl_complex""'");
9555 }
9556 if (!argp1) {
9557 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_abs" "', argument " "1"" of type '" "gsl_complex""'");
9558 } else {
9559 arg1 = *((gsl_complex *)(argp1));
9560 }
9561 }
9562 result = (double)gsl_complex_abs(arg1);
9563 ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(result)); argvi++ ;
9564 XSRETURN(argvi);
9565 fail:
9566 SWIG_croak_null();
9567 }
9568 }
9569
9570
XS(_wrap_gsl_complex_abs2)9571 XS(_wrap_gsl_complex_abs2) {
9572 {
9573 gsl_complex arg1 ;
9574 void *argp1 ;
9575 int res1 = 0 ;
9576 int argvi = 0;
9577 double result;
9578 dXSARGS;
9579
9580 if ((items < 1) || (items > 1)) {
9581 SWIG_croak("Usage: gsl_complex_abs2(z);");
9582 }
9583 {
9584 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
9585 if (!SWIG_IsOK(res1)) {
9586 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_abs2" "', argument " "1"" of type '" "gsl_complex""'");
9587 }
9588 if (!argp1) {
9589 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_abs2" "', argument " "1"" of type '" "gsl_complex""'");
9590 } else {
9591 arg1 = *((gsl_complex *)(argp1));
9592 }
9593 }
9594 result = (double)gsl_complex_abs2(arg1);
9595 ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(result)); argvi++ ;
9596 XSRETURN(argvi);
9597 fail:
9598 SWIG_croak_null();
9599 }
9600 }
9601
9602
XS(_wrap_gsl_complex_logabs)9603 XS(_wrap_gsl_complex_logabs) {
9604 {
9605 gsl_complex arg1 ;
9606 void *argp1 ;
9607 int res1 = 0 ;
9608 int argvi = 0;
9609 double result;
9610 dXSARGS;
9611
9612 if ((items < 1) || (items > 1)) {
9613 SWIG_croak("Usage: gsl_complex_logabs(z);");
9614 }
9615 {
9616 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
9617 if (!SWIG_IsOK(res1)) {
9618 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_logabs" "', argument " "1"" of type '" "gsl_complex""'");
9619 }
9620 if (!argp1) {
9621 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_logabs" "', argument " "1"" of type '" "gsl_complex""'");
9622 } else {
9623 arg1 = *((gsl_complex *)(argp1));
9624 }
9625 }
9626 result = (double)gsl_complex_logabs(arg1);
9627 ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(result)); argvi++ ;
9628 XSRETURN(argvi);
9629 fail:
9630 SWIG_croak_null();
9631 }
9632 }
9633
9634
XS(_wrap_gsl_complex_add)9635 XS(_wrap_gsl_complex_add) {
9636 {
9637 gsl_complex arg1 ;
9638 gsl_complex arg2 ;
9639 void *argp1 ;
9640 int res1 = 0 ;
9641 void *argp2 ;
9642 int res2 = 0 ;
9643 int argvi = 0;
9644 gsl_complex result;
9645 dXSARGS;
9646
9647 if ((items < 2) || (items > 2)) {
9648 SWIG_croak("Usage: gsl_complex_add(a,b);");
9649 }
9650 {
9651 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
9652 if (!SWIG_IsOK(res1)) {
9653 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_add" "', argument " "1"" of type '" "gsl_complex""'");
9654 }
9655 if (!argp1) {
9656 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_add" "', argument " "1"" of type '" "gsl_complex""'");
9657 } else {
9658 arg1 = *((gsl_complex *)(argp1));
9659 }
9660 }
9661 {
9662 res2 = SWIG_ConvertPtr(ST(1), &argp2, SWIGTYPE_p_gsl_complex, 0 );
9663 if (!SWIG_IsOK(res2)) {
9664 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_complex_add" "', argument " "2"" of type '" "gsl_complex""'");
9665 }
9666 if (!argp2) {
9667 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_add" "', argument " "2"" of type '" "gsl_complex""'");
9668 } else {
9669 arg2 = *((gsl_complex *)(argp2));
9670 }
9671 }
9672 result = gsl_complex_add(arg1,arg2);
9673 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
9674 XSRETURN(argvi);
9675 fail:
9676 SWIG_croak_null();
9677 }
9678 }
9679
9680
XS(_wrap_gsl_complex_sub)9681 XS(_wrap_gsl_complex_sub) {
9682 {
9683 gsl_complex arg1 ;
9684 gsl_complex arg2 ;
9685 void *argp1 ;
9686 int res1 = 0 ;
9687 void *argp2 ;
9688 int res2 = 0 ;
9689 int argvi = 0;
9690 gsl_complex result;
9691 dXSARGS;
9692
9693 if ((items < 2) || (items > 2)) {
9694 SWIG_croak("Usage: gsl_complex_sub(a,b);");
9695 }
9696 {
9697 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
9698 if (!SWIG_IsOK(res1)) {
9699 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_sub" "', argument " "1"" of type '" "gsl_complex""'");
9700 }
9701 if (!argp1) {
9702 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_sub" "', argument " "1"" of type '" "gsl_complex""'");
9703 } else {
9704 arg1 = *((gsl_complex *)(argp1));
9705 }
9706 }
9707 {
9708 res2 = SWIG_ConvertPtr(ST(1), &argp2, SWIGTYPE_p_gsl_complex, 0 );
9709 if (!SWIG_IsOK(res2)) {
9710 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_complex_sub" "', argument " "2"" of type '" "gsl_complex""'");
9711 }
9712 if (!argp2) {
9713 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_sub" "', argument " "2"" of type '" "gsl_complex""'");
9714 } else {
9715 arg2 = *((gsl_complex *)(argp2));
9716 }
9717 }
9718 result = gsl_complex_sub(arg1,arg2);
9719 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
9720 XSRETURN(argvi);
9721 fail:
9722 SWIG_croak_null();
9723 }
9724 }
9725
9726
XS(_wrap_gsl_complex_mul)9727 XS(_wrap_gsl_complex_mul) {
9728 {
9729 gsl_complex arg1 ;
9730 gsl_complex arg2 ;
9731 void *argp1 ;
9732 int res1 = 0 ;
9733 void *argp2 ;
9734 int res2 = 0 ;
9735 int argvi = 0;
9736 gsl_complex result;
9737 dXSARGS;
9738
9739 if ((items < 2) || (items > 2)) {
9740 SWIG_croak("Usage: gsl_complex_mul(a,b);");
9741 }
9742 {
9743 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
9744 if (!SWIG_IsOK(res1)) {
9745 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_mul" "', argument " "1"" of type '" "gsl_complex""'");
9746 }
9747 if (!argp1) {
9748 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_mul" "', argument " "1"" of type '" "gsl_complex""'");
9749 } else {
9750 arg1 = *((gsl_complex *)(argp1));
9751 }
9752 }
9753 {
9754 res2 = SWIG_ConvertPtr(ST(1), &argp2, SWIGTYPE_p_gsl_complex, 0 );
9755 if (!SWIG_IsOK(res2)) {
9756 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_complex_mul" "', argument " "2"" of type '" "gsl_complex""'");
9757 }
9758 if (!argp2) {
9759 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_mul" "', argument " "2"" of type '" "gsl_complex""'");
9760 } else {
9761 arg2 = *((gsl_complex *)(argp2));
9762 }
9763 }
9764 result = gsl_complex_mul(arg1,arg2);
9765 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
9766 XSRETURN(argvi);
9767 fail:
9768 SWIG_croak_null();
9769 }
9770 }
9771
9772
XS(_wrap_gsl_complex_div)9773 XS(_wrap_gsl_complex_div) {
9774 {
9775 gsl_complex arg1 ;
9776 gsl_complex arg2 ;
9777 void *argp1 ;
9778 int res1 = 0 ;
9779 void *argp2 ;
9780 int res2 = 0 ;
9781 int argvi = 0;
9782 gsl_complex result;
9783 dXSARGS;
9784
9785 if ((items < 2) || (items > 2)) {
9786 SWIG_croak("Usage: gsl_complex_div(a,b);");
9787 }
9788 {
9789 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
9790 if (!SWIG_IsOK(res1)) {
9791 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_div" "', argument " "1"" of type '" "gsl_complex""'");
9792 }
9793 if (!argp1) {
9794 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_div" "', argument " "1"" of type '" "gsl_complex""'");
9795 } else {
9796 arg1 = *((gsl_complex *)(argp1));
9797 }
9798 }
9799 {
9800 res2 = SWIG_ConvertPtr(ST(1), &argp2, SWIGTYPE_p_gsl_complex, 0 );
9801 if (!SWIG_IsOK(res2)) {
9802 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_complex_div" "', argument " "2"" of type '" "gsl_complex""'");
9803 }
9804 if (!argp2) {
9805 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_div" "', argument " "2"" of type '" "gsl_complex""'");
9806 } else {
9807 arg2 = *((gsl_complex *)(argp2));
9808 }
9809 }
9810 result = gsl_complex_div(arg1,arg2);
9811 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
9812 XSRETURN(argvi);
9813 fail:
9814 SWIG_croak_null();
9815 }
9816 }
9817
9818
XS(_wrap_gsl_complex_add_real)9819 XS(_wrap_gsl_complex_add_real) {
9820 {
9821 gsl_complex arg1 ;
9822 double arg2 ;
9823 void *argp1 ;
9824 int res1 = 0 ;
9825 double val2 ;
9826 int ecode2 = 0 ;
9827 int argvi = 0;
9828 gsl_complex result;
9829 dXSARGS;
9830
9831 if ((items < 2) || (items > 2)) {
9832 SWIG_croak("Usage: gsl_complex_add_real(a,x);");
9833 }
9834 {
9835 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
9836 if (!SWIG_IsOK(res1)) {
9837 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_add_real" "', argument " "1"" of type '" "gsl_complex""'");
9838 }
9839 if (!argp1) {
9840 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_add_real" "', argument " "1"" of type '" "gsl_complex""'");
9841 } else {
9842 arg1 = *((gsl_complex *)(argp1));
9843 }
9844 }
9845 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
9846 if (!SWIG_IsOK(ecode2)) {
9847 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_complex_add_real" "', argument " "2"" of type '" "double""'");
9848 }
9849 arg2 = (double)(val2);
9850 result = gsl_complex_add_real(arg1,arg2);
9851 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
9852
9853 XSRETURN(argvi);
9854 fail:
9855
9856 SWIG_croak_null();
9857 }
9858 }
9859
9860
XS(_wrap_gsl_complex_sub_real)9861 XS(_wrap_gsl_complex_sub_real) {
9862 {
9863 gsl_complex arg1 ;
9864 double arg2 ;
9865 void *argp1 ;
9866 int res1 = 0 ;
9867 double val2 ;
9868 int ecode2 = 0 ;
9869 int argvi = 0;
9870 gsl_complex result;
9871 dXSARGS;
9872
9873 if ((items < 2) || (items > 2)) {
9874 SWIG_croak("Usage: gsl_complex_sub_real(a,x);");
9875 }
9876 {
9877 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
9878 if (!SWIG_IsOK(res1)) {
9879 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_sub_real" "', argument " "1"" of type '" "gsl_complex""'");
9880 }
9881 if (!argp1) {
9882 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_sub_real" "', argument " "1"" of type '" "gsl_complex""'");
9883 } else {
9884 arg1 = *((gsl_complex *)(argp1));
9885 }
9886 }
9887 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
9888 if (!SWIG_IsOK(ecode2)) {
9889 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_complex_sub_real" "', argument " "2"" of type '" "double""'");
9890 }
9891 arg2 = (double)(val2);
9892 result = gsl_complex_sub_real(arg1,arg2);
9893 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
9894
9895 XSRETURN(argvi);
9896 fail:
9897
9898 SWIG_croak_null();
9899 }
9900 }
9901
9902
XS(_wrap_gsl_complex_mul_real)9903 XS(_wrap_gsl_complex_mul_real) {
9904 {
9905 gsl_complex arg1 ;
9906 double arg2 ;
9907 void *argp1 ;
9908 int res1 = 0 ;
9909 double val2 ;
9910 int ecode2 = 0 ;
9911 int argvi = 0;
9912 gsl_complex result;
9913 dXSARGS;
9914
9915 if ((items < 2) || (items > 2)) {
9916 SWIG_croak("Usage: gsl_complex_mul_real(a,x);");
9917 }
9918 {
9919 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
9920 if (!SWIG_IsOK(res1)) {
9921 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_mul_real" "', argument " "1"" of type '" "gsl_complex""'");
9922 }
9923 if (!argp1) {
9924 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_mul_real" "', argument " "1"" of type '" "gsl_complex""'");
9925 } else {
9926 arg1 = *((gsl_complex *)(argp1));
9927 }
9928 }
9929 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
9930 if (!SWIG_IsOK(ecode2)) {
9931 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_complex_mul_real" "', argument " "2"" of type '" "double""'");
9932 }
9933 arg2 = (double)(val2);
9934 result = gsl_complex_mul_real(arg1,arg2);
9935 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
9936
9937 XSRETURN(argvi);
9938 fail:
9939
9940 SWIG_croak_null();
9941 }
9942 }
9943
9944
XS(_wrap_gsl_complex_div_real)9945 XS(_wrap_gsl_complex_div_real) {
9946 {
9947 gsl_complex arg1 ;
9948 double arg2 ;
9949 void *argp1 ;
9950 int res1 = 0 ;
9951 double val2 ;
9952 int ecode2 = 0 ;
9953 int argvi = 0;
9954 gsl_complex result;
9955 dXSARGS;
9956
9957 if ((items < 2) || (items > 2)) {
9958 SWIG_croak("Usage: gsl_complex_div_real(a,x);");
9959 }
9960 {
9961 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
9962 if (!SWIG_IsOK(res1)) {
9963 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_div_real" "', argument " "1"" of type '" "gsl_complex""'");
9964 }
9965 if (!argp1) {
9966 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_div_real" "', argument " "1"" of type '" "gsl_complex""'");
9967 } else {
9968 arg1 = *((gsl_complex *)(argp1));
9969 }
9970 }
9971 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
9972 if (!SWIG_IsOK(ecode2)) {
9973 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_complex_div_real" "', argument " "2"" of type '" "double""'");
9974 }
9975 arg2 = (double)(val2);
9976 result = gsl_complex_div_real(arg1,arg2);
9977 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
9978
9979 XSRETURN(argvi);
9980 fail:
9981
9982 SWIG_croak_null();
9983 }
9984 }
9985
9986
XS(_wrap_gsl_complex_add_imag)9987 XS(_wrap_gsl_complex_add_imag) {
9988 {
9989 gsl_complex arg1 ;
9990 double arg2 ;
9991 void *argp1 ;
9992 int res1 = 0 ;
9993 double val2 ;
9994 int ecode2 = 0 ;
9995 int argvi = 0;
9996 gsl_complex result;
9997 dXSARGS;
9998
9999 if ((items < 2) || (items > 2)) {
10000 SWIG_croak("Usage: gsl_complex_add_imag(a,y);");
10001 }
10002 {
10003 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
10004 if (!SWIG_IsOK(res1)) {
10005 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_add_imag" "', argument " "1"" of type '" "gsl_complex""'");
10006 }
10007 if (!argp1) {
10008 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_add_imag" "', argument " "1"" of type '" "gsl_complex""'");
10009 } else {
10010 arg1 = *((gsl_complex *)(argp1));
10011 }
10012 }
10013 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
10014 if (!SWIG_IsOK(ecode2)) {
10015 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_complex_add_imag" "', argument " "2"" of type '" "double""'");
10016 }
10017 arg2 = (double)(val2);
10018 result = gsl_complex_add_imag(arg1,arg2);
10019 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
10020
10021 XSRETURN(argvi);
10022 fail:
10023
10024 SWIG_croak_null();
10025 }
10026 }
10027
10028
XS(_wrap_gsl_complex_sub_imag)10029 XS(_wrap_gsl_complex_sub_imag) {
10030 {
10031 gsl_complex arg1 ;
10032 double arg2 ;
10033 void *argp1 ;
10034 int res1 = 0 ;
10035 double val2 ;
10036 int ecode2 = 0 ;
10037 int argvi = 0;
10038 gsl_complex result;
10039 dXSARGS;
10040
10041 if ((items < 2) || (items > 2)) {
10042 SWIG_croak("Usage: gsl_complex_sub_imag(a,y);");
10043 }
10044 {
10045 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
10046 if (!SWIG_IsOK(res1)) {
10047 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_sub_imag" "', argument " "1"" of type '" "gsl_complex""'");
10048 }
10049 if (!argp1) {
10050 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_sub_imag" "', argument " "1"" of type '" "gsl_complex""'");
10051 } else {
10052 arg1 = *((gsl_complex *)(argp1));
10053 }
10054 }
10055 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
10056 if (!SWIG_IsOK(ecode2)) {
10057 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_complex_sub_imag" "', argument " "2"" of type '" "double""'");
10058 }
10059 arg2 = (double)(val2);
10060 result = gsl_complex_sub_imag(arg1,arg2);
10061 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
10062
10063 XSRETURN(argvi);
10064 fail:
10065
10066 SWIG_croak_null();
10067 }
10068 }
10069
10070
XS(_wrap_gsl_complex_mul_imag)10071 XS(_wrap_gsl_complex_mul_imag) {
10072 {
10073 gsl_complex arg1 ;
10074 double arg2 ;
10075 void *argp1 ;
10076 int res1 = 0 ;
10077 double val2 ;
10078 int ecode2 = 0 ;
10079 int argvi = 0;
10080 gsl_complex result;
10081 dXSARGS;
10082
10083 if ((items < 2) || (items > 2)) {
10084 SWIG_croak("Usage: gsl_complex_mul_imag(a,y);");
10085 }
10086 {
10087 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
10088 if (!SWIG_IsOK(res1)) {
10089 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_mul_imag" "', argument " "1"" of type '" "gsl_complex""'");
10090 }
10091 if (!argp1) {
10092 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_mul_imag" "', argument " "1"" of type '" "gsl_complex""'");
10093 } else {
10094 arg1 = *((gsl_complex *)(argp1));
10095 }
10096 }
10097 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
10098 if (!SWIG_IsOK(ecode2)) {
10099 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_complex_mul_imag" "', argument " "2"" of type '" "double""'");
10100 }
10101 arg2 = (double)(val2);
10102 result = gsl_complex_mul_imag(arg1,arg2);
10103 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
10104
10105 XSRETURN(argvi);
10106 fail:
10107
10108 SWIG_croak_null();
10109 }
10110 }
10111
10112
XS(_wrap_gsl_complex_div_imag)10113 XS(_wrap_gsl_complex_div_imag) {
10114 {
10115 gsl_complex arg1 ;
10116 double arg2 ;
10117 void *argp1 ;
10118 int res1 = 0 ;
10119 double val2 ;
10120 int ecode2 = 0 ;
10121 int argvi = 0;
10122 gsl_complex result;
10123 dXSARGS;
10124
10125 if ((items < 2) || (items > 2)) {
10126 SWIG_croak("Usage: gsl_complex_div_imag(a,y);");
10127 }
10128 {
10129 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
10130 if (!SWIG_IsOK(res1)) {
10131 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_div_imag" "', argument " "1"" of type '" "gsl_complex""'");
10132 }
10133 if (!argp1) {
10134 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_div_imag" "', argument " "1"" of type '" "gsl_complex""'");
10135 } else {
10136 arg1 = *((gsl_complex *)(argp1));
10137 }
10138 }
10139 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
10140 if (!SWIG_IsOK(ecode2)) {
10141 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_complex_div_imag" "', argument " "2"" of type '" "double""'");
10142 }
10143 arg2 = (double)(val2);
10144 result = gsl_complex_div_imag(arg1,arg2);
10145 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
10146
10147 XSRETURN(argvi);
10148 fail:
10149
10150 SWIG_croak_null();
10151 }
10152 }
10153
10154
XS(_wrap_gsl_complex_conjugate)10155 XS(_wrap_gsl_complex_conjugate) {
10156 {
10157 gsl_complex arg1 ;
10158 void *argp1 ;
10159 int res1 = 0 ;
10160 int argvi = 0;
10161 gsl_complex result;
10162 dXSARGS;
10163
10164 if ((items < 1) || (items > 1)) {
10165 SWIG_croak("Usage: gsl_complex_conjugate(z);");
10166 }
10167 {
10168 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
10169 if (!SWIG_IsOK(res1)) {
10170 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_conjugate" "', argument " "1"" of type '" "gsl_complex""'");
10171 }
10172 if (!argp1) {
10173 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_conjugate" "', argument " "1"" of type '" "gsl_complex""'");
10174 } else {
10175 arg1 = *((gsl_complex *)(argp1));
10176 }
10177 }
10178 result = gsl_complex_conjugate(arg1);
10179 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
10180 XSRETURN(argvi);
10181 fail:
10182 SWIG_croak_null();
10183 }
10184 }
10185
10186
XS(_wrap_gsl_complex_inverse)10187 XS(_wrap_gsl_complex_inverse) {
10188 {
10189 gsl_complex arg1 ;
10190 void *argp1 ;
10191 int res1 = 0 ;
10192 int argvi = 0;
10193 gsl_complex result;
10194 dXSARGS;
10195
10196 if ((items < 1) || (items > 1)) {
10197 SWIG_croak("Usage: gsl_complex_inverse(a);");
10198 }
10199 {
10200 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
10201 if (!SWIG_IsOK(res1)) {
10202 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_inverse" "', argument " "1"" of type '" "gsl_complex""'");
10203 }
10204 if (!argp1) {
10205 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_inverse" "', argument " "1"" of type '" "gsl_complex""'");
10206 } else {
10207 arg1 = *((gsl_complex *)(argp1));
10208 }
10209 }
10210 result = gsl_complex_inverse(arg1);
10211 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
10212 XSRETURN(argvi);
10213 fail:
10214 SWIG_croak_null();
10215 }
10216 }
10217
10218
XS(_wrap_gsl_complex_negative)10219 XS(_wrap_gsl_complex_negative) {
10220 {
10221 gsl_complex arg1 ;
10222 void *argp1 ;
10223 int res1 = 0 ;
10224 int argvi = 0;
10225 gsl_complex result;
10226 dXSARGS;
10227
10228 if ((items < 1) || (items > 1)) {
10229 SWIG_croak("Usage: gsl_complex_negative(a);");
10230 }
10231 {
10232 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
10233 if (!SWIG_IsOK(res1)) {
10234 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_negative" "', argument " "1"" of type '" "gsl_complex""'");
10235 }
10236 if (!argp1) {
10237 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_negative" "', argument " "1"" of type '" "gsl_complex""'");
10238 } else {
10239 arg1 = *((gsl_complex *)(argp1));
10240 }
10241 }
10242 result = gsl_complex_negative(arg1);
10243 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
10244 XSRETURN(argvi);
10245 fail:
10246 SWIG_croak_null();
10247 }
10248 }
10249
10250
XS(_wrap_gsl_complex_sqrt)10251 XS(_wrap_gsl_complex_sqrt) {
10252 {
10253 gsl_complex arg1 ;
10254 void *argp1 ;
10255 int res1 = 0 ;
10256 int argvi = 0;
10257 gsl_complex result;
10258 dXSARGS;
10259
10260 if ((items < 1) || (items > 1)) {
10261 SWIG_croak("Usage: gsl_complex_sqrt(z);");
10262 }
10263 {
10264 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
10265 if (!SWIG_IsOK(res1)) {
10266 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_sqrt" "', argument " "1"" of type '" "gsl_complex""'");
10267 }
10268 if (!argp1) {
10269 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_sqrt" "', argument " "1"" of type '" "gsl_complex""'");
10270 } else {
10271 arg1 = *((gsl_complex *)(argp1));
10272 }
10273 }
10274 result = gsl_complex_sqrt(arg1);
10275 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
10276 XSRETURN(argvi);
10277 fail:
10278 SWIG_croak_null();
10279 }
10280 }
10281
10282
XS(_wrap_gsl_complex_sqrt_real)10283 XS(_wrap_gsl_complex_sqrt_real) {
10284 {
10285 double arg1 ;
10286 double val1 ;
10287 int ecode1 = 0 ;
10288 int argvi = 0;
10289 gsl_complex result;
10290 dXSARGS;
10291
10292 if ((items < 1) || (items > 1)) {
10293 SWIG_croak("Usage: gsl_complex_sqrt_real(x);");
10294 }
10295 ecode1 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
10296 if (!SWIG_IsOK(ecode1)) {
10297 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_complex_sqrt_real" "', argument " "1"" of type '" "double""'");
10298 }
10299 arg1 = (double)(val1);
10300 result = gsl_complex_sqrt_real(arg1);
10301 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
10302
10303 XSRETURN(argvi);
10304 fail:
10305
10306 SWIG_croak_null();
10307 }
10308 }
10309
10310
XS(_wrap_gsl_complex_pow)10311 XS(_wrap_gsl_complex_pow) {
10312 {
10313 gsl_complex arg1 ;
10314 gsl_complex arg2 ;
10315 void *argp1 ;
10316 int res1 = 0 ;
10317 void *argp2 ;
10318 int res2 = 0 ;
10319 int argvi = 0;
10320 gsl_complex result;
10321 dXSARGS;
10322
10323 if ((items < 2) || (items > 2)) {
10324 SWIG_croak("Usage: gsl_complex_pow(a,b);");
10325 }
10326 {
10327 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
10328 if (!SWIG_IsOK(res1)) {
10329 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_pow" "', argument " "1"" of type '" "gsl_complex""'");
10330 }
10331 if (!argp1) {
10332 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_pow" "', argument " "1"" of type '" "gsl_complex""'");
10333 } else {
10334 arg1 = *((gsl_complex *)(argp1));
10335 }
10336 }
10337 {
10338 res2 = SWIG_ConvertPtr(ST(1), &argp2, SWIGTYPE_p_gsl_complex, 0 );
10339 if (!SWIG_IsOK(res2)) {
10340 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_complex_pow" "', argument " "2"" of type '" "gsl_complex""'");
10341 }
10342 if (!argp2) {
10343 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_pow" "', argument " "2"" of type '" "gsl_complex""'");
10344 } else {
10345 arg2 = *((gsl_complex *)(argp2));
10346 }
10347 }
10348 result = gsl_complex_pow(arg1,arg2);
10349 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
10350 XSRETURN(argvi);
10351 fail:
10352 SWIG_croak_null();
10353 }
10354 }
10355
10356
XS(_wrap_gsl_complex_pow_real)10357 XS(_wrap_gsl_complex_pow_real) {
10358 {
10359 gsl_complex arg1 ;
10360 double arg2 ;
10361 void *argp1 ;
10362 int res1 = 0 ;
10363 double val2 ;
10364 int ecode2 = 0 ;
10365 int argvi = 0;
10366 gsl_complex result;
10367 dXSARGS;
10368
10369 if ((items < 2) || (items > 2)) {
10370 SWIG_croak("Usage: gsl_complex_pow_real(a,b);");
10371 }
10372 {
10373 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
10374 if (!SWIG_IsOK(res1)) {
10375 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_pow_real" "', argument " "1"" of type '" "gsl_complex""'");
10376 }
10377 if (!argp1) {
10378 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_pow_real" "', argument " "1"" of type '" "gsl_complex""'");
10379 } else {
10380 arg1 = *((gsl_complex *)(argp1));
10381 }
10382 }
10383 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
10384 if (!SWIG_IsOK(ecode2)) {
10385 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_complex_pow_real" "', argument " "2"" of type '" "double""'");
10386 }
10387 arg2 = (double)(val2);
10388 result = gsl_complex_pow_real(arg1,arg2);
10389 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
10390
10391 XSRETURN(argvi);
10392 fail:
10393
10394 SWIG_croak_null();
10395 }
10396 }
10397
10398
XS(_wrap_gsl_complex_exp)10399 XS(_wrap_gsl_complex_exp) {
10400 {
10401 gsl_complex arg1 ;
10402 void *argp1 ;
10403 int res1 = 0 ;
10404 int argvi = 0;
10405 gsl_complex result;
10406 dXSARGS;
10407
10408 if ((items < 1) || (items > 1)) {
10409 SWIG_croak("Usage: gsl_complex_exp(a);");
10410 }
10411 {
10412 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
10413 if (!SWIG_IsOK(res1)) {
10414 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_exp" "', argument " "1"" of type '" "gsl_complex""'");
10415 }
10416 if (!argp1) {
10417 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_exp" "', argument " "1"" of type '" "gsl_complex""'");
10418 } else {
10419 arg1 = *((gsl_complex *)(argp1));
10420 }
10421 }
10422 result = gsl_complex_exp(arg1);
10423 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
10424 XSRETURN(argvi);
10425 fail:
10426 SWIG_croak_null();
10427 }
10428 }
10429
10430
XS(_wrap_gsl_complex_log)10431 XS(_wrap_gsl_complex_log) {
10432 {
10433 gsl_complex arg1 ;
10434 void *argp1 ;
10435 int res1 = 0 ;
10436 int argvi = 0;
10437 gsl_complex result;
10438 dXSARGS;
10439
10440 if ((items < 1) || (items > 1)) {
10441 SWIG_croak("Usage: gsl_complex_log(a);");
10442 }
10443 {
10444 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
10445 if (!SWIG_IsOK(res1)) {
10446 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_log" "', argument " "1"" of type '" "gsl_complex""'");
10447 }
10448 if (!argp1) {
10449 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_log" "', argument " "1"" of type '" "gsl_complex""'");
10450 } else {
10451 arg1 = *((gsl_complex *)(argp1));
10452 }
10453 }
10454 result = gsl_complex_log(arg1);
10455 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
10456 XSRETURN(argvi);
10457 fail:
10458 SWIG_croak_null();
10459 }
10460 }
10461
10462
XS(_wrap_gsl_complex_log10)10463 XS(_wrap_gsl_complex_log10) {
10464 {
10465 gsl_complex arg1 ;
10466 void *argp1 ;
10467 int res1 = 0 ;
10468 int argvi = 0;
10469 gsl_complex result;
10470 dXSARGS;
10471
10472 if ((items < 1) || (items > 1)) {
10473 SWIG_croak("Usage: gsl_complex_log10(a);");
10474 }
10475 {
10476 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
10477 if (!SWIG_IsOK(res1)) {
10478 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_log10" "', argument " "1"" of type '" "gsl_complex""'");
10479 }
10480 if (!argp1) {
10481 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_log10" "', argument " "1"" of type '" "gsl_complex""'");
10482 } else {
10483 arg1 = *((gsl_complex *)(argp1));
10484 }
10485 }
10486 result = gsl_complex_log10(arg1);
10487 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
10488 XSRETURN(argvi);
10489 fail:
10490 SWIG_croak_null();
10491 }
10492 }
10493
10494
XS(_wrap_gsl_complex_log_b)10495 XS(_wrap_gsl_complex_log_b) {
10496 {
10497 gsl_complex arg1 ;
10498 gsl_complex arg2 ;
10499 void *argp1 ;
10500 int res1 = 0 ;
10501 void *argp2 ;
10502 int res2 = 0 ;
10503 int argvi = 0;
10504 gsl_complex result;
10505 dXSARGS;
10506
10507 if ((items < 2) || (items > 2)) {
10508 SWIG_croak("Usage: gsl_complex_log_b(a,b);");
10509 }
10510 {
10511 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
10512 if (!SWIG_IsOK(res1)) {
10513 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_log_b" "', argument " "1"" of type '" "gsl_complex""'");
10514 }
10515 if (!argp1) {
10516 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_log_b" "', argument " "1"" of type '" "gsl_complex""'");
10517 } else {
10518 arg1 = *((gsl_complex *)(argp1));
10519 }
10520 }
10521 {
10522 res2 = SWIG_ConvertPtr(ST(1), &argp2, SWIGTYPE_p_gsl_complex, 0 );
10523 if (!SWIG_IsOK(res2)) {
10524 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_complex_log_b" "', argument " "2"" of type '" "gsl_complex""'");
10525 }
10526 if (!argp2) {
10527 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_log_b" "', argument " "2"" of type '" "gsl_complex""'");
10528 } else {
10529 arg2 = *((gsl_complex *)(argp2));
10530 }
10531 }
10532 result = gsl_complex_log_b(arg1,arg2);
10533 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
10534 XSRETURN(argvi);
10535 fail:
10536 SWIG_croak_null();
10537 }
10538 }
10539
10540
XS(_wrap_gsl_complex_sin)10541 XS(_wrap_gsl_complex_sin) {
10542 {
10543 gsl_complex arg1 ;
10544 void *argp1 ;
10545 int res1 = 0 ;
10546 int argvi = 0;
10547 gsl_complex result;
10548 dXSARGS;
10549
10550 if ((items < 1) || (items > 1)) {
10551 SWIG_croak("Usage: gsl_complex_sin(a);");
10552 }
10553 {
10554 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
10555 if (!SWIG_IsOK(res1)) {
10556 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_sin" "', argument " "1"" of type '" "gsl_complex""'");
10557 }
10558 if (!argp1) {
10559 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_sin" "', argument " "1"" of type '" "gsl_complex""'");
10560 } else {
10561 arg1 = *((gsl_complex *)(argp1));
10562 }
10563 }
10564 result = gsl_complex_sin(arg1);
10565 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
10566 XSRETURN(argvi);
10567 fail:
10568 SWIG_croak_null();
10569 }
10570 }
10571
10572
XS(_wrap_gsl_complex_cos)10573 XS(_wrap_gsl_complex_cos) {
10574 {
10575 gsl_complex arg1 ;
10576 void *argp1 ;
10577 int res1 = 0 ;
10578 int argvi = 0;
10579 gsl_complex result;
10580 dXSARGS;
10581
10582 if ((items < 1) || (items > 1)) {
10583 SWIG_croak("Usage: gsl_complex_cos(a);");
10584 }
10585 {
10586 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
10587 if (!SWIG_IsOK(res1)) {
10588 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_cos" "', argument " "1"" of type '" "gsl_complex""'");
10589 }
10590 if (!argp1) {
10591 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_cos" "', argument " "1"" of type '" "gsl_complex""'");
10592 } else {
10593 arg1 = *((gsl_complex *)(argp1));
10594 }
10595 }
10596 result = gsl_complex_cos(arg1);
10597 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
10598 XSRETURN(argvi);
10599 fail:
10600 SWIG_croak_null();
10601 }
10602 }
10603
10604
XS(_wrap_gsl_complex_sec)10605 XS(_wrap_gsl_complex_sec) {
10606 {
10607 gsl_complex arg1 ;
10608 void *argp1 ;
10609 int res1 = 0 ;
10610 int argvi = 0;
10611 gsl_complex result;
10612 dXSARGS;
10613
10614 if ((items < 1) || (items > 1)) {
10615 SWIG_croak("Usage: gsl_complex_sec(a);");
10616 }
10617 {
10618 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
10619 if (!SWIG_IsOK(res1)) {
10620 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_sec" "', argument " "1"" of type '" "gsl_complex""'");
10621 }
10622 if (!argp1) {
10623 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_sec" "', argument " "1"" of type '" "gsl_complex""'");
10624 } else {
10625 arg1 = *((gsl_complex *)(argp1));
10626 }
10627 }
10628 result = gsl_complex_sec(arg1);
10629 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
10630 XSRETURN(argvi);
10631 fail:
10632 SWIG_croak_null();
10633 }
10634 }
10635
10636
XS(_wrap_gsl_complex_csc)10637 XS(_wrap_gsl_complex_csc) {
10638 {
10639 gsl_complex arg1 ;
10640 void *argp1 ;
10641 int res1 = 0 ;
10642 int argvi = 0;
10643 gsl_complex result;
10644 dXSARGS;
10645
10646 if ((items < 1) || (items > 1)) {
10647 SWIG_croak("Usage: gsl_complex_csc(a);");
10648 }
10649 {
10650 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
10651 if (!SWIG_IsOK(res1)) {
10652 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_csc" "', argument " "1"" of type '" "gsl_complex""'");
10653 }
10654 if (!argp1) {
10655 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_csc" "', argument " "1"" of type '" "gsl_complex""'");
10656 } else {
10657 arg1 = *((gsl_complex *)(argp1));
10658 }
10659 }
10660 result = gsl_complex_csc(arg1);
10661 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
10662 XSRETURN(argvi);
10663 fail:
10664 SWIG_croak_null();
10665 }
10666 }
10667
10668
XS(_wrap_gsl_complex_tan)10669 XS(_wrap_gsl_complex_tan) {
10670 {
10671 gsl_complex arg1 ;
10672 void *argp1 ;
10673 int res1 = 0 ;
10674 int argvi = 0;
10675 gsl_complex result;
10676 dXSARGS;
10677
10678 if ((items < 1) || (items > 1)) {
10679 SWIG_croak("Usage: gsl_complex_tan(a);");
10680 }
10681 {
10682 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
10683 if (!SWIG_IsOK(res1)) {
10684 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_tan" "', argument " "1"" of type '" "gsl_complex""'");
10685 }
10686 if (!argp1) {
10687 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_tan" "', argument " "1"" of type '" "gsl_complex""'");
10688 } else {
10689 arg1 = *((gsl_complex *)(argp1));
10690 }
10691 }
10692 result = gsl_complex_tan(arg1);
10693 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
10694 XSRETURN(argvi);
10695 fail:
10696 SWIG_croak_null();
10697 }
10698 }
10699
10700
XS(_wrap_gsl_complex_cot)10701 XS(_wrap_gsl_complex_cot) {
10702 {
10703 gsl_complex arg1 ;
10704 void *argp1 ;
10705 int res1 = 0 ;
10706 int argvi = 0;
10707 gsl_complex result;
10708 dXSARGS;
10709
10710 if ((items < 1) || (items > 1)) {
10711 SWIG_croak("Usage: gsl_complex_cot(a);");
10712 }
10713 {
10714 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
10715 if (!SWIG_IsOK(res1)) {
10716 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_cot" "', argument " "1"" of type '" "gsl_complex""'");
10717 }
10718 if (!argp1) {
10719 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_cot" "', argument " "1"" of type '" "gsl_complex""'");
10720 } else {
10721 arg1 = *((gsl_complex *)(argp1));
10722 }
10723 }
10724 result = gsl_complex_cot(arg1);
10725 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
10726 XSRETURN(argvi);
10727 fail:
10728 SWIG_croak_null();
10729 }
10730 }
10731
10732
XS(_wrap_gsl_complex_arcsin)10733 XS(_wrap_gsl_complex_arcsin) {
10734 {
10735 gsl_complex arg1 ;
10736 void *argp1 ;
10737 int res1 = 0 ;
10738 int argvi = 0;
10739 gsl_complex result;
10740 dXSARGS;
10741
10742 if ((items < 1) || (items > 1)) {
10743 SWIG_croak("Usage: gsl_complex_arcsin(a);");
10744 }
10745 {
10746 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
10747 if (!SWIG_IsOK(res1)) {
10748 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_arcsin" "', argument " "1"" of type '" "gsl_complex""'");
10749 }
10750 if (!argp1) {
10751 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_arcsin" "', argument " "1"" of type '" "gsl_complex""'");
10752 } else {
10753 arg1 = *((gsl_complex *)(argp1));
10754 }
10755 }
10756 result = gsl_complex_arcsin(arg1);
10757 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
10758 XSRETURN(argvi);
10759 fail:
10760 SWIG_croak_null();
10761 }
10762 }
10763
10764
XS(_wrap_gsl_complex_arcsin_real)10765 XS(_wrap_gsl_complex_arcsin_real) {
10766 {
10767 double arg1 ;
10768 double val1 ;
10769 int ecode1 = 0 ;
10770 int argvi = 0;
10771 gsl_complex result;
10772 dXSARGS;
10773
10774 if ((items < 1) || (items > 1)) {
10775 SWIG_croak("Usage: gsl_complex_arcsin_real(a);");
10776 }
10777 ecode1 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
10778 if (!SWIG_IsOK(ecode1)) {
10779 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_complex_arcsin_real" "', argument " "1"" of type '" "double""'");
10780 }
10781 arg1 = (double)(val1);
10782 result = gsl_complex_arcsin_real(arg1);
10783 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
10784
10785 XSRETURN(argvi);
10786 fail:
10787
10788 SWIG_croak_null();
10789 }
10790 }
10791
10792
XS(_wrap_gsl_complex_arccos)10793 XS(_wrap_gsl_complex_arccos) {
10794 {
10795 gsl_complex arg1 ;
10796 void *argp1 ;
10797 int res1 = 0 ;
10798 int argvi = 0;
10799 gsl_complex result;
10800 dXSARGS;
10801
10802 if ((items < 1) || (items > 1)) {
10803 SWIG_croak("Usage: gsl_complex_arccos(a);");
10804 }
10805 {
10806 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
10807 if (!SWIG_IsOK(res1)) {
10808 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_arccos" "', argument " "1"" of type '" "gsl_complex""'");
10809 }
10810 if (!argp1) {
10811 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_arccos" "', argument " "1"" of type '" "gsl_complex""'");
10812 } else {
10813 arg1 = *((gsl_complex *)(argp1));
10814 }
10815 }
10816 result = gsl_complex_arccos(arg1);
10817 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
10818 XSRETURN(argvi);
10819 fail:
10820 SWIG_croak_null();
10821 }
10822 }
10823
10824
XS(_wrap_gsl_complex_arccos_real)10825 XS(_wrap_gsl_complex_arccos_real) {
10826 {
10827 double arg1 ;
10828 double val1 ;
10829 int ecode1 = 0 ;
10830 int argvi = 0;
10831 gsl_complex result;
10832 dXSARGS;
10833
10834 if ((items < 1) || (items > 1)) {
10835 SWIG_croak("Usage: gsl_complex_arccos_real(a);");
10836 }
10837 ecode1 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
10838 if (!SWIG_IsOK(ecode1)) {
10839 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_complex_arccos_real" "', argument " "1"" of type '" "double""'");
10840 }
10841 arg1 = (double)(val1);
10842 result = gsl_complex_arccos_real(arg1);
10843 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
10844
10845 XSRETURN(argvi);
10846 fail:
10847
10848 SWIG_croak_null();
10849 }
10850 }
10851
10852
XS(_wrap_gsl_complex_arcsec)10853 XS(_wrap_gsl_complex_arcsec) {
10854 {
10855 gsl_complex arg1 ;
10856 void *argp1 ;
10857 int res1 = 0 ;
10858 int argvi = 0;
10859 gsl_complex result;
10860 dXSARGS;
10861
10862 if ((items < 1) || (items > 1)) {
10863 SWIG_croak("Usage: gsl_complex_arcsec(a);");
10864 }
10865 {
10866 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
10867 if (!SWIG_IsOK(res1)) {
10868 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_arcsec" "', argument " "1"" of type '" "gsl_complex""'");
10869 }
10870 if (!argp1) {
10871 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_arcsec" "', argument " "1"" of type '" "gsl_complex""'");
10872 } else {
10873 arg1 = *((gsl_complex *)(argp1));
10874 }
10875 }
10876 result = gsl_complex_arcsec(arg1);
10877 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
10878 XSRETURN(argvi);
10879 fail:
10880 SWIG_croak_null();
10881 }
10882 }
10883
10884
XS(_wrap_gsl_complex_arcsec_real)10885 XS(_wrap_gsl_complex_arcsec_real) {
10886 {
10887 double arg1 ;
10888 double val1 ;
10889 int ecode1 = 0 ;
10890 int argvi = 0;
10891 gsl_complex result;
10892 dXSARGS;
10893
10894 if ((items < 1) || (items > 1)) {
10895 SWIG_croak("Usage: gsl_complex_arcsec_real(a);");
10896 }
10897 ecode1 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
10898 if (!SWIG_IsOK(ecode1)) {
10899 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_complex_arcsec_real" "', argument " "1"" of type '" "double""'");
10900 }
10901 arg1 = (double)(val1);
10902 result = gsl_complex_arcsec_real(arg1);
10903 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
10904
10905 XSRETURN(argvi);
10906 fail:
10907
10908 SWIG_croak_null();
10909 }
10910 }
10911
10912
XS(_wrap_gsl_complex_arccsc)10913 XS(_wrap_gsl_complex_arccsc) {
10914 {
10915 gsl_complex arg1 ;
10916 void *argp1 ;
10917 int res1 = 0 ;
10918 int argvi = 0;
10919 gsl_complex result;
10920 dXSARGS;
10921
10922 if ((items < 1) || (items > 1)) {
10923 SWIG_croak("Usage: gsl_complex_arccsc(a);");
10924 }
10925 {
10926 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
10927 if (!SWIG_IsOK(res1)) {
10928 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_arccsc" "', argument " "1"" of type '" "gsl_complex""'");
10929 }
10930 if (!argp1) {
10931 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_arccsc" "', argument " "1"" of type '" "gsl_complex""'");
10932 } else {
10933 arg1 = *((gsl_complex *)(argp1));
10934 }
10935 }
10936 result = gsl_complex_arccsc(arg1);
10937 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
10938 XSRETURN(argvi);
10939 fail:
10940 SWIG_croak_null();
10941 }
10942 }
10943
10944
XS(_wrap_gsl_complex_arccsc_real)10945 XS(_wrap_gsl_complex_arccsc_real) {
10946 {
10947 double arg1 ;
10948 double val1 ;
10949 int ecode1 = 0 ;
10950 int argvi = 0;
10951 gsl_complex result;
10952 dXSARGS;
10953
10954 if ((items < 1) || (items > 1)) {
10955 SWIG_croak("Usage: gsl_complex_arccsc_real(a);");
10956 }
10957 ecode1 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
10958 if (!SWIG_IsOK(ecode1)) {
10959 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_complex_arccsc_real" "', argument " "1"" of type '" "double""'");
10960 }
10961 arg1 = (double)(val1);
10962 result = gsl_complex_arccsc_real(arg1);
10963 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
10964
10965 XSRETURN(argvi);
10966 fail:
10967
10968 SWIG_croak_null();
10969 }
10970 }
10971
10972
XS(_wrap_gsl_complex_arctan)10973 XS(_wrap_gsl_complex_arctan) {
10974 {
10975 gsl_complex arg1 ;
10976 void *argp1 ;
10977 int res1 = 0 ;
10978 int argvi = 0;
10979 gsl_complex result;
10980 dXSARGS;
10981
10982 if ((items < 1) || (items > 1)) {
10983 SWIG_croak("Usage: gsl_complex_arctan(a);");
10984 }
10985 {
10986 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
10987 if (!SWIG_IsOK(res1)) {
10988 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_arctan" "', argument " "1"" of type '" "gsl_complex""'");
10989 }
10990 if (!argp1) {
10991 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_arctan" "', argument " "1"" of type '" "gsl_complex""'");
10992 } else {
10993 arg1 = *((gsl_complex *)(argp1));
10994 }
10995 }
10996 result = gsl_complex_arctan(arg1);
10997 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
10998 XSRETURN(argvi);
10999 fail:
11000 SWIG_croak_null();
11001 }
11002 }
11003
11004
XS(_wrap_gsl_complex_arccot)11005 XS(_wrap_gsl_complex_arccot) {
11006 {
11007 gsl_complex arg1 ;
11008 void *argp1 ;
11009 int res1 = 0 ;
11010 int argvi = 0;
11011 gsl_complex result;
11012 dXSARGS;
11013
11014 if ((items < 1) || (items > 1)) {
11015 SWIG_croak("Usage: gsl_complex_arccot(a);");
11016 }
11017 {
11018 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
11019 if (!SWIG_IsOK(res1)) {
11020 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_arccot" "', argument " "1"" of type '" "gsl_complex""'");
11021 }
11022 if (!argp1) {
11023 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_arccot" "', argument " "1"" of type '" "gsl_complex""'");
11024 } else {
11025 arg1 = *((gsl_complex *)(argp1));
11026 }
11027 }
11028 result = gsl_complex_arccot(arg1);
11029 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
11030 XSRETURN(argvi);
11031 fail:
11032 SWIG_croak_null();
11033 }
11034 }
11035
11036
XS(_wrap_gsl_complex_sinh)11037 XS(_wrap_gsl_complex_sinh) {
11038 {
11039 gsl_complex arg1 ;
11040 void *argp1 ;
11041 int res1 = 0 ;
11042 int argvi = 0;
11043 gsl_complex result;
11044 dXSARGS;
11045
11046 if ((items < 1) || (items > 1)) {
11047 SWIG_croak("Usage: gsl_complex_sinh(a);");
11048 }
11049 {
11050 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
11051 if (!SWIG_IsOK(res1)) {
11052 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_sinh" "', argument " "1"" of type '" "gsl_complex""'");
11053 }
11054 if (!argp1) {
11055 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_sinh" "', argument " "1"" of type '" "gsl_complex""'");
11056 } else {
11057 arg1 = *((gsl_complex *)(argp1));
11058 }
11059 }
11060 result = gsl_complex_sinh(arg1);
11061 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
11062 XSRETURN(argvi);
11063 fail:
11064 SWIG_croak_null();
11065 }
11066 }
11067
11068
XS(_wrap_gsl_complex_cosh)11069 XS(_wrap_gsl_complex_cosh) {
11070 {
11071 gsl_complex arg1 ;
11072 void *argp1 ;
11073 int res1 = 0 ;
11074 int argvi = 0;
11075 gsl_complex result;
11076 dXSARGS;
11077
11078 if ((items < 1) || (items > 1)) {
11079 SWIG_croak("Usage: gsl_complex_cosh(a);");
11080 }
11081 {
11082 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
11083 if (!SWIG_IsOK(res1)) {
11084 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_cosh" "', argument " "1"" of type '" "gsl_complex""'");
11085 }
11086 if (!argp1) {
11087 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_cosh" "', argument " "1"" of type '" "gsl_complex""'");
11088 } else {
11089 arg1 = *((gsl_complex *)(argp1));
11090 }
11091 }
11092 result = gsl_complex_cosh(arg1);
11093 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
11094 XSRETURN(argvi);
11095 fail:
11096 SWIG_croak_null();
11097 }
11098 }
11099
11100
XS(_wrap_gsl_complex_sech)11101 XS(_wrap_gsl_complex_sech) {
11102 {
11103 gsl_complex arg1 ;
11104 void *argp1 ;
11105 int res1 = 0 ;
11106 int argvi = 0;
11107 gsl_complex result;
11108 dXSARGS;
11109
11110 if ((items < 1) || (items > 1)) {
11111 SWIG_croak("Usage: gsl_complex_sech(a);");
11112 }
11113 {
11114 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
11115 if (!SWIG_IsOK(res1)) {
11116 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_sech" "', argument " "1"" of type '" "gsl_complex""'");
11117 }
11118 if (!argp1) {
11119 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_sech" "', argument " "1"" of type '" "gsl_complex""'");
11120 } else {
11121 arg1 = *((gsl_complex *)(argp1));
11122 }
11123 }
11124 result = gsl_complex_sech(arg1);
11125 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
11126 XSRETURN(argvi);
11127 fail:
11128 SWIG_croak_null();
11129 }
11130 }
11131
11132
XS(_wrap_gsl_complex_csch)11133 XS(_wrap_gsl_complex_csch) {
11134 {
11135 gsl_complex arg1 ;
11136 void *argp1 ;
11137 int res1 = 0 ;
11138 int argvi = 0;
11139 gsl_complex result;
11140 dXSARGS;
11141
11142 if ((items < 1) || (items > 1)) {
11143 SWIG_croak("Usage: gsl_complex_csch(a);");
11144 }
11145 {
11146 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
11147 if (!SWIG_IsOK(res1)) {
11148 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_csch" "', argument " "1"" of type '" "gsl_complex""'");
11149 }
11150 if (!argp1) {
11151 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_csch" "', argument " "1"" of type '" "gsl_complex""'");
11152 } else {
11153 arg1 = *((gsl_complex *)(argp1));
11154 }
11155 }
11156 result = gsl_complex_csch(arg1);
11157 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
11158 XSRETURN(argvi);
11159 fail:
11160 SWIG_croak_null();
11161 }
11162 }
11163
11164
XS(_wrap_gsl_complex_tanh)11165 XS(_wrap_gsl_complex_tanh) {
11166 {
11167 gsl_complex arg1 ;
11168 void *argp1 ;
11169 int res1 = 0 ;
11170 int argvi = 0;
11171 gsl_complex result;
11172 dXSARGS;
11173
11174 if ((items < 1) || (items > 1)) {
11175 SWIG_croak("Usage: gsl_complex_tanh(a);");
11176 }
11177 {
11178 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
11179 if (!SWIG_IsOK(res1)) {
11180 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_tanh" "', argument " "1"" of type '" "gsl_complex""'");
11181 }
11182 if (!argp1) {
11183 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_tanh" "', argument " "1"" of type '" "gsl_complex""'");
11184 } else {
11185 arg1 = *((gsl_complex *)(argp1));
11186 }
11187 }
11188 result = gsl_complex_tanh(arg1);
11189 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
11190 XSRETURN(argvi);
11191 fail:
11192 SWIG_croak_null();
11193 }
11194 }
11195
11196
XS(_wrap_gsl_complex_coth)11197 XS(_wrap_gsl_complex_coth) {
11198 {
11199 gsl_complex arg1 ;
11200 void *argp1 ;
11201 int res1 = 0 ;
11202 int argvi = 0;
11203 gsl_complex result;
11204 dXSARGS;
11205
11206 if ((items < 1) || (items > 1)) {
11207 SWIG_croak("Usage: gsl_complex_coth(a);");
11208 }
11209 {
11210 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
11211 if (!SWIG_IsOK(res1)) {
11212 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_coth" "', argument " "1"" of type '" "gsl_complex""'");
11213 }
11214 if (!argp1) {
11215 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_coth" "', argument " "1"" of type '" "gsl_complex""'");
11216 } else {
11217 arg1 = *((gsl_complex *)(argp1));
11218 }
11219 }
11220 result = gsl_complex_coth(arg1);
11221 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
11222 XSRETURN(argvi);
11223 fail:
11224 SWIG_croak_null();
11225 }
11226 }
11227
11228
XS(_wrap_gsl_complex_arcsinh)11229 XS(_wrap_gsl_complex_arcsinh) {
11230 {
11231 gsl_complex arg1 ;
11232 void *argp1 ;
11233 int res1 = 0 ;
11234 int argvi = 0;
11235 gsl_complex result;
11236 dXSARGS;
11237
11238 if ((items < 1) || (items > 1)) {
11239 SWIG_croak("Usage: gsl_complex_arcsinh(a);");
11240 }
11241 {
11242 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
11243 if (!SWIG_IsOK(res1)) {
11244 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_arcsinh" "', argument " "1"" of type '" "gsl_complex""'");
11245 }
11246 if (!argp1) {
11247 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_arcsinh" "', argument " "1"" of type '" "gsl_complex""'");
11248 } else {
11249 arg1 = *((gsl_complex *)(argp1));
11250 }
11251 }
11252 result = gsl_complex_arcsinh(arg1);
11253 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
11254 XSRETURN(argvi);
11255 fail:
11256 SWIG_croak_null();
11257 }
11258 }
11259
11260
XS(_wrap_gsl_complex_arccosh)11261 XS(_wrap_gsl_complex_arccosh) {
11262 {
11263 gsl_complex arg1 ;
11264 void *argp1 ;
11265 int res1 = 0 ;
11266 int argvi = 0;
11267 gsl_complex result;
11268 dXSARGS;
11269
11270 if ((items < 1) || (items > 1)) {
11271 SWIG_croak("Usage: gsl_complex_arccosh(a);");
11272 }
11273 {
11274 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
11275 if (!SWIG_IsOK(res1)) {
11276 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_arccosh" "', argument " "1"" of type '" "gsl_complex""'");
11277 }
11278 if (!argp1) {
11279 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_arccosh" "', argument " "1"" of type '" "gsl_complex""'");
11280 } else {
11281 arg1 = *((gsl_complex *)(argp1));
11282 }
11283 }
11284 result = gsl_complex_arccosh(arg1);
11285 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
11286 XSRETURN(argvi);
11287 fail:
11288 SWIG_croak_null();
11289 }
11290 }
11291
11292
XS(_wrap_gsl_complex_arccosh_real)11293 XS(_wrap_gsl_complex_arccosh_real) {
11294 {
11295 double arg1 ;
11296 double val1 ;
11297 int ecode1 = 0 ;
11298 int argvi = 0;
11299 gsl_complex result;
11300 dXSARGS;
11301
11302 if ((items < 1) || (items > 1)) {
11303 SWIG_croak("Usage: gsl_complex_arccosh_real(a);");
11304 }
11305 ecode1 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
11306 if (!SWIG_IsOK(ecode1)) {
11307 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_complex_arccosh_real" "', argument " "1"" of type '" "double""'");
11308 }
11309 arg1 = (double)(val1);
11310 result = gsl_complex_arccosh_real(arg1);
11311 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
11312
11313 XSRETURN(argvi);
11314 fail:
11315
11316 SWIG_croak_null();
11317 }
11318 }
11319
11320
XS(_wrap_gsl_complex_arcsech)11321 XS(_wrap_gsl_complex_arcsech) {
11322 {
11323 gsl_complex arg1 ;
11324 void *argp1 ;
11325 int res1 = 0 ;
11326 int argvi = 0;
11327 gsl_complex result;
11328 dXSARGS;
11329
11330 if ((items < 1) || (items > 1)) {
11331 SWIG_croak("Usage: gsl_complex_arcsech(a);");
11332 }
11333 {
11334 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
11335 if (!SWIG_IsOK(res1)) {
11336 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_arcsech" "', argument " "1"" of type '" "gsl_complex""'");
11337 }
11338 if (!argp1) {
11339 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_arcsech" "', argument " "1"" of type '" "gsl_complex""'");
11340 } else {
11341 arg1 = *((gsl_complex *)(argp1));
11342 }
11343 }
11344 result = gsl_complex_arcsech(arg1);
11345 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
11346 XSRETURN(argvi);
11347 fail:
11348 SWIG_croak_null();
11349 }
11350 }
11351
11352
XS(_wrap_gsl_complex_arccsch)11353 XS(_wrap_gsl_complex_arccsch) {
11354 {
11355 gsl_complex arg1 ;
11356 void *argp1 ;
11357 int res1 = 0 ;
11358 int argvi = 0;
11359 gsl_complex result;
11360 dXSARGS;
11361
11362 if ((items < 1) || (items > 1)) {
11363 SWIG_croak("Usage: gsl_complex_arccsch(a);");
11364 }
11365 {
11366 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
11367 if (!SWIG_IsOK(res1)) {
11368 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_arccsch" "', argument " "1"" of type '" "gsl_complex""'");
11369 }
11370 if (!argp1) {
11371 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_arccsch" "', argument " "1"" of type '" "gsl_complex""'");
11372 } else {
11373 arg1 = *((gsl_complex *)(argp1));
11374 }
11375 }
11376 result = gsl_complex_arccsch(arg1);
11377 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
11378 XSRETURN(argvi);
11379 fail:
11380 SWIG_croak_null();
11381 }
11382 }
11383
11384
XS(_wrap_gsl_complex_arctanh)11385 XS(_wrap_gsl_complex_arctanh) {
11386 {
11387 gsl_complex arg1 ;
11388 void *argp1 ;
11389 int res1 = 0 ;
11390 int argvi = 0;
11391 gsl_complex result;
11392 dXSARGS;
11393
11394 if ((items < 1) || (items > 1)) {
11395 SWIG_croak("Usage: gsl_complex_arctanh(a);");
11396 }
11397 {
11398 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
11399 if (!SWIG_IsOK(res1)) {
11400 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_arctanh" "', argument " "1"" of type '" "gsl_complex""'");
11401 }
11402 if (!argp1) {
11403 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_arctanh" "', argument " "1"" of type '" "gsl_complex""'");
11404 } else {
11405 arg1 = *((gsl_complex *)(argp1));
11406 }
11407 }
11408 result = gsl_complex_arctanh(arg1);
11409 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
11410 XSRETURN(argvi);
11411 fail:
11412 SWIG_croak_null();
11413 }
11414 }
11415
11416
XS(_wrap_gsl_complex_arctanh_real)11417 XS(_wrap_gsl_complex_arctanh_real) {
11418 {
11419 double arg1 ;
11420 double val1 ;
11421 int ecode1 = 0 ;
11422 int argvi = 0;
11423 gsl_complex result;
11424 dXSARGS;
11425
11426 if ((items < 1) || (items > 1)) {
11427 SWIG_croak("Usage: gsl_complex_arctanh_real(a);");
11428 }
11429 ecode1 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
11430 if (!SWIG_IsOK(ecode1)) {
11431 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_complex_arctanh_real" "', argument " "1"" of type '" "double""'");
11432 }
11433 arg1 = (double)(val1);
11434 result = gsl_complex_arctanh_real(arg1);
11435 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
11436
11437 XSRETURN(argvi);
11438 fail:
11439
11440 SWIG_croak_null();
11441 }
11442 }
11443
11444
XS(_wrap_gsl_complex_arccoth)11445 XS(_wrap_gsl_complex_arccoth) {
11446 {
11447 gsl_complex arg1 ;
11448 void *argp1 ;
11449 int res1 = 0 ;
11450 int argvi = 0;
11451 gsl_complex result;
11452 dXSARGS;
11453
11454 if ((items < 1) || (items > 1)) {
11455 SWIG_croak("Usage: gsl_complex_arccoth(a);");
11456 }
11457 {
11458 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
11459 if (!SWIG_IsOK(res1)) {
11460 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_arccoth" "', argument " "1"" of type '" "gsl_complex""'");
11461 }
11462 if (!argp1) {
11463 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_complex_arccoth" "', argument " "1"" of type '" "gsl_complex""'");
11464 } else {
11465 arg1 = *((gsl_complex *)(argp1));
11466 }
11467 }
11468 result = gsl_complex_arccoth(arg1);
11469 ST(argvi) = SWIG_NewPointerObj((gsl_complex *)memcpy((gsl_complex *)calloc(1,sizeof(gsl_complex)),&result,sizeof(gsl_complex)), SWIGTYPE_p_gsl_complex, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
11470 XSRETURN(argvi);
11471 fail:
11472 SWIG_croak_null();
11473 }
11474 }
11475
11476
11477
11478 /* -------- TYPE CONVERSION AND EQUIVALENCE RULES (BEGIN) -------- */
11479
11480 static swig_type_info _swigt__p_FILE = {"_p_FILE", "FILE *", 0, 0, (void*)0, 0};
11481 static swig_type_info _swigt__p_char = {"_p_char", "char *", 0, 0, (void*)0, 0};
11482 static swig_type_info _swigt__p_double = {"_p_double", "double *", 0, 0, (void*)0, 0};
11483 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};
11484 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};
11485 static swig_type_info _swigt__p_float = {"_p_float", "float *", 0, 0, (void*)0, 0};
11486 static swig_type_info _swigt__p_gsl_complex = {"_p_gsl_complex", "gsl_complex *", 0, 0, (void*)"Math::GSL::Linalg::gsl_complex", 0};
11487 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};
11488 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};
11489 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};
11490 static swig_type_info _swigt__p_gsl_matrix = {"_p_gsl_matrix", "gsl_matrix *", 0, 0, (void*)0, 0};
11491 static swig_type_info _swigt__p_gsl_matrix_complex = {"_p_gsl_matrix_complex", "gsl_matrix_complex *", 0, 0, (void*)0, 0};
11492 static swig_type_info _swigt__p_gsl_mode_t = {"_p_gsl_mode_t", "gsl_mode_t *", 0, 0, (void*)0, 0};
11493 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};
11494 static swig_type_info _swigt__p_gsl_vector = {"_p_gsl_vector", "gsl_vector *", 0, 0, (void*)0, 0};
11495 static swig_type_info _swigt__p_gsl_vector_complex = {"_p_gsl_vector_complex", "gsl_vector_complex *", 0, 0, (void*)0, 0};
11496 static swig_type_info _swigt__p_int = {"_p_int", "int *", 0, 0, (void*)0, 0};
11497 static swig_type_info _swigt__p_long_double = {"_p_long_double", "long double *", 0, 0, (void*)0, 0};
11498 static swig_type_info _swigt__p_size_t = {"_p_size_t", "size_t *", 0, 0, (void*)0, 0};
11499
11500 static swig_type_info *swig_type_initial[] = {
11501 &_swigt__p_FILE,
11502 &_swigt__p_char,
11503 &_swigt__p_double,
11504 &_swigt__p_f_p_q_const__char_p_q_const__char_int_int__void,
11505 &_swigt__p_f_p_q_const__char_p_q_const__char_int_p_q_const__char__void,
11506 &_swigt__p_float,
11507 &_swigt__p_gsl_complex,
11508 &_swigt__p_gsl_complex_float,
11509 &_swigt__p_gsl_complex_long_double,
11510 &_swigt__p_gsl_linalg_matrix_mod_t,
11511 &_swigt__p_gsl_matrix,
11512 &_swigt__p_gsl_matrix_complex,
11513 &_swigt__p_gsl_mode_t,
11514 &_swigt__p_gsl_permutation_struct,
11515 &_swigt__p_gsl_vector,
11516 &_swigt__p_gsl_vector_complex,
11517 &_swigt__p_int,
11518 &_swigt__p_long_double,
11519 &_swigt__p_size_t,
11520 };
11521
11522 static swig_cast_info _swigc__p_FILE[] = { {&_swigt__p_FILE, 0, 0, 0},{0, 0, 0, 0}};
11523 static swig_cast_info _swigc__p_char[] = { {&_swigt__p_char, 0, 0, 0},{0, 0, 0, 0}};
11524 static swig_cast_info _swigc__p_double[] = { {&_swigt__p_double, 0, 0, 0},{0, 0, 0, 0}};
11525 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}};
11526 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}};
11527 static swig_cast_info _swigc__p_float[] = { {&_swigt__p_float, 0, 0, 0},{0, 0, 0, 0}};
11528 static swig_cast_info _swigc__p_gsl_complex[] = { {&_swigt__p_gsl_complex, 0, 0, 0},{0, 0, 0, 0}};
11529 static swig_cast_info _swigc__p_gsl_complex_float[] = { {&_swigt__p_gsl_complex_float, 0, 0, 0},{0, 0, 0, 0}};
11530 static swig_cast_info _swigc__p_gsl_complex_long_double[] = { {&_swigt__p_gsl_complex_long_double, 0, 0, 0},{0, 0, 0, 0}};
11531 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}};
11532 static swig_cast_info _swigc__p_gsl_matrix[] = { {&_swigt__p_gsl_matrix, 0, 0, 0},{0, 0, 0, 0}};
11533 static swig_cast_info _swigc__p_gsl_matrix_complex[] = { {&_swigt__p_gsl_matrix_complex, 0, 0, 0},{0, 0, 0, 0}};
11534 static swig_cast_info _swigc__p_gsl_mode_t[] = { {&_swigt__p_gsl_mode_t, 0, 0, 0},{0, 0, 0, 0}};
11535 static swig_cast_info _swigc__p_gsl_permutation_struct[] = { {&_swigt__p_gsl_permutation_struct, 0, 0, 0},{0, 0, 0, 0}};
11536 static swig_cast_info _swigc__p_gsl_vector[] = { {&_swigt__p_gsl_vector, 0, 0, 0},{0, 0, 0, 0}};
11537 static swig_cast_info _swigc__p_gsl_vector_complex[] = { {&_swigt__p_gsl_vector_complex, 0, 0, 0},{0, 0, 0, 0}};
11538 static swig_cast_info _swigc__p_int[] = { {&_swigt__p_int, 0, 0, 0},{0, 0, 0, 0}};
11539 static swig_cast_info _swigc__p_long_double[] = { {&_swigt__p_long_double, 0, 0, 0},{0, 0, 0, 0}};
11540 static swig_cast_info _swigc__p_size_t[] = { {&_swigt__p_size_t, 0, 0, 0},{0, 0, 0, 0}};
11541
11542 static swig_cast_info *swig_cast_initial[] = {
11543 _swigc__p_FILE,
11544 _swigc__p_char,
11545 _swigc__p_double,
11546 _swigc__p_f_p_q_const__char_p_q_const__char_int_int__void,
11547 _swigc__p_f_p_q_const__char_p_q_const__char_int_p_q_const__char__void,
11548 _swigc__p_float,
11549 _swigc__p_gsl_complex,
11550 _swigc__p_gsl_complex_float,
11551 _swigc__p_gsl_complex_long_double,
11552 _swigc__p_gsl_linalg_matrix_mod_t,
11553 _swigc__p_gsl_matrix,
11554 _swigc__p_gsl_matrix_complex,
11555 _swigc__p_gsl_mode_t,
11556 _swigc__p_gsl_permutation_struct,
11557 _swigc__p_gsl_vector,
11558 _swigc__p_gsl_vector_complex,
11559 _swigc__p_int,
11560 _swigc__p_long_double,
11561 _swigc__p_size_t,
11562 };
11563
11564
11565 /* -------- TYPE CONVERSION AND EQUIVALENCE RULES (END) -------- */
11566
11567 static swig_constant_info swig_constants[] = {
11568 {0,0,0,0,0,0}
11569 };
11570 #ifdef __cplusplus
11571 }
11572 #endif
11573 static swig_variable_info swig_variables[] = {
11574 {0,0,0,0}
11575 };
11576 static swig_command_info swig_commands[] = {
11577 {"Math::GSL::Linalgc::gsl_error", _wrap_gsl_error},
11578 {"Math::GSL::Linalgc::gsl_stream_printf", _wrap_gsl_stream_printf},
11579 {"Math::GSL::Linalgc::gsl_strerror", _wrap_gsl_strerror},
11580 {"Math::GSL::Linalgc::gsl_set_error_handler", _wrap_gsl_set_error_handler},
11581 {"Math::GSL::Linalgc::gsl_set_error_handler_off", _wrap_gsl_set_error_handler_off},
11582 {"Math::GSL::Linalgc::gsl_set_stream_handler", _wrap_gsl_set_stream_handler},
11583 {"Math::GSL::Linalgc::gsl_set_stream", _wrap_gsl_set_stream},
11584 {"Math::GSL::Linalgc::gsl_linalg_matmult", _wrap_gsl_linalg_matmult},
11585 {"Math::GSL::Linalgc::gsl_linalg_matmult_mod", _wrap_gsl_linalg_matmult_mod},
11586 {"Math::GSL::Linalgc::gsl_linalg_exponential_ss", _wrap_gsl_linalg_exponential_ss},
11587 {"Math::GSL::Linalgc::gsl_linalg_householder_transform", _wrap_gsl_linalg_householder_transform},
11588 {"Math::GSL::Linalgc::gsl_linalg_complex_householder_transform", _wrap_gsl_linalg_complex_householder_transform},
11589 {"Math::GSL::Linalgc::gsl_linalg_householder_hm", _wrap_gsl_linalg_householder_hm},
11590 {"Math::GSL::Linalgc::gsl_linalg_householder_mh", _wrap_gsl_linalg_householder_mh},
11591 {"Math::GSL::Linalgc::gsl_linalg_householder_hv", _wrap_gsl_linalg_householder_hv},
11592 {"Math::GSL::Linalgc::gsl_linalg_householder_hm1", _wrap_gsl_linalg_householder_hm1},
11593 {"Math::GSL::Linalgc::gsl_linalg_complex_householder_hm", _wrap_gsl_linalg_complex_householder_hm},
11594 {"Math::GSL::Linalgc::gsl_linalg_complex_householder_mh", _wrap_gsl_linalg_complex_householder_mh},
11595 {"Math::GSL::Linalgc::gsl_linalg_complex_householder_hv", _wrap_gsl_linalg_complex_householder_hv},
11596 {"Math::GSL::Linalgc::gsl_linalg_hessenberg_decomp", _wrap_gsl_linalg_hessenberg_decomp},
11597 {"Math::GSL::Linalgc::gsl_linalg_hessenberg_unpack", _wrap_gsl_linalg_hessenberg_unpack},
11598 {"Math::GSL::Linalgc::gsl_linalg_hessenberg_unpack_accum", _wrap_gsl_linalg_hessenberg_unpack_accum},
11599 {"Math::GSL::Linalgc::gsl_linalg_hessenberg_set_zero", _wrap_gsl_linalg_hessenberg_set_zero},
11600 {"Math::GSL::Linalgc::gsl_linalg_hessenberg_submatrix", _wrap_gsl_linalg_hessenberg_submatrix},
11601 {"Math::GSL::Linalgc::gsl_linalg_hesstri_decomp", _wrap_gsl_linalg_hesstri_decomp},
11602 {"Math::GSL::Linalgc::gsl_linalg_SV_decomp", _wrap_gsl_linalg_SV_decomp},
11603 {"Math::GSL::Linalgc::gsl_linalg_SV_decomp_mod", _wrap_gsl_linalg_SV_decomp_mod},
11604 {"Math::GSL::Linalgc::gsl_linalg_SV_decomp_jacobi", _wrap_gsl_linalg_SV_decomp_jacobi},
11605 {"Math::GSL::Linalgc::gsl_linalg_SV_solve", _wrap_gsl_linalg_SV_solve},
11606 {"Math::GSL::Linalgc::gsl_linalg_LU_decomp", _wrap_gsl_linalg_LU_decomp},
11607 {"Math::GSL::Linalgc::gsl_linalg_LU_solve", _wrap_gsl_linalg_LU_solve},
11608 {"Math::GSL::Linalgc::gsl_linalg_LU_svx", _wrap_gsl_linalg_LU_svx},
11609 {"Math::GSL::Linalgc::gsl_linalg_LU_refine", _wrap_gsl_linalg_LU_refine},
11610 {"Math::GSL::Linalgc::gsl_linalg_LU_invert", _wrap_gsl_linalg_LU_invert},
11611 {"Math::GSL::Linalgc::gsl_linalg_LU_det", _wrap_gsl_linalg_LU_det},
11612 {"Math::GSL::Linalgc::gsl_linalg_LU_lndet", _wrap_gsl_linalg_LU_lndet},
11613 {"Math::GSL::Linalgc::gsl_linalg_LU_sgndet", _wrap_gsl_linalg_LU_sgndet},
11614 {"Math::GSL::Linalgc::gsl_linalg_complex_LU_decomp", _wrap_gsl_linalg_complex_LU_decomp},
11615 {"Math::GSL::Linalgc::gsl_linalg_complex_LU_solve", _wrap_gsl_linalg_complex_LU_solve},
11616 {"Math::GSL::Linalgc::gsl_linalg_complex_LU_svx", _wrap_gsl_linalg_complex_LU_svx},
11617 {"Math::GSL::Linalgc::gsl_linalg_complex_LU_refine", _wrap_gsl_linalg_complex_LU_refine},
11618 {"Math::GSL::Linalgc::gsl_linalg_complex_LU_invert", _wrap_gsl_linalg_complex_LU_invert},
11619 {"Math::GSL::Linalgc::gsl_linalg_complex_LU_det", _wrap_gsl_linalg_complex_LU_det},
11620 {"Math::GSL::Linalgc::gsl_linalg_complex_LU_lndet", _wrap_gsl_linalg_complex_LU_lndet},
11621 {"Math::GSL::Linalgc::gsl_linalg_complex_LU_sgndet", _wrap_gsl_linalg_complex_LU_sgndet},
11622 {"Math::GSL::Linalgc::gsl_linalg_QR_decomp", _wrap_gsl_linalg_QR_decomp},
11623 {"Math::GSL::Linalgc::gsl_linalg_QR_solve", _wrap_gsl_linalg_QR_solve},
11624 {"Math::GSL::Linalgc::gsl_linalg_QR_svx", _wrap_gsl_linalg_QR_svx},
11625 {"Math::GSL::Linalgc::gsl_linalg_QR_lssolve", _wrap_gsl_linalg_QR_lssolve},
11626 {"Math::GSL::Linalgc::gsl_linalg_QR_QRsolve", _wrap_gsl_linalg_QR_QRsolve},
11627 {"Math::GSL::Linalgc::gsl_linalg_QR_Rsolve", _wrap_gsl_linalg_QR_Rsolve},
11628 {"Math::GSL::Linalgc::gsl_linalg_QR_Rsvx", _wrap_gsl_linalg_QR_Rsvx},
11629 {"Math::GSL::Linalgc::gsl_linalg_QR_update", _wrap_gsl_linalg_QR_update},
11630 {"Math::GSL::Linalgc::gsl_linalg_QR_QTvec", _wrap_gsl_linalg_QR_QTvec},
11631 {"Math::GSL::Linalgc::gsl_linalg_QR_Qvec", _wrap_gsl_linalg_QR_Qvec},
11632 {"Math::GSL::Linalgc::gsl_linalg_QR_QTmat", _wrap_gsl_linalg_QR_QTmat},
11633 {"Math::GSL::Linalgc::gsl_linalg_QR_unpack", _wrap_gsl_linalg_QR_unpack},
11634 {"Math::GSL::Linalgc::gsl_linalg_R_solve", _wrap_gsl_linalg_R_solve},
11635 {"Math::GSL::Linalgc::gsl_linalg_R_svx", _wrap_gsl_linalg_R_svx},
11636 {"Math::GSL::Linalgc::gsl_linalg_QRPT_decomp", _wrap_gsl_linalg_QRPT_decomp},
11637 {"Math::GSL::Linalgc::gsl_linalg_QRPT_decomp2", _wrap_gsl_linalg_QRPT_decomp2},
11638 {"Math::GSL::Linalgc::gsl_linalg_QRPT_solve", _wrap_gsl_linalg_QRPT_solve},
11639 {"Math::GSL::Linalgc::gsl_linalg_QRPT_svx", _wrap_gsl_linalg_QRPT_svx},
11640 {"Math::GSL::Linalgc::gsl_linalg_QRPT_QRsolve", _wrap_gsl_linalg_QRPT_QRsolve},
11641 {"Math::GSL::Linalgc::gsl_linalg_QRPT_Rsolve", _wrap_gsl_linalg_QRPT_Rsolve},
11642 {"Math::GSL::Linalgc::gsl_linalg_QRPT_Rsvx", _wrap_gsl_linalg_QRPT_Rsvx},
11643 {"Math::GSL::Linalgc::gsl_linalg_QRPT_update", _wrap_gsl_linalg_QRPT_update},
11644 {"Math::GSL::Linalgc::gsl_linalg_LQ_decomp", _wrap_gsl_linalg_LQ_decomp},
11645 {"Math::GSL::Linalgc::gsl_linalg_LQ_solve_T", _wrap_gsl_linalg_LQ_solve_T},
11646 {"Math::GSL::Linalgc::gsl_linalg_LQ_svx_T", _wrap_gsl_linalg_LQ_svx_T},
11647 {"Math::GSL::Linalgc::gsl_linalg_LQ_lssolve_T", _wrap_gsl_linalg_LQ_lssolve_T},
11648 {"Math::GSL::Linalgc::gsl_linalg_LQ_Lsolve_T", _wrap_gsl_linalg_LQ_Lsolve_T},
11649 {"Math::GSL::Linalgc::gsl_linalg_LQ_Lsvx_T", _wrap_gsl_linalg_LQ_Lsvx_T},
11650 {"Math::GSL::Linalgc::gsl_linalg_L_solve_T", _wrap_gsl_linalg_L_solve_T},
11651 {"Math::GSL::Linalgc::gsl_linalg_LQ_vecQ", _wrap_gsl_linalg_LQ_vecQ},
11652 {"Math::GSL::Linalgc::gsl_linalg_LQ_vecQT", _wrap_gsl_linalg_LQ_vecQT},
11653 {"Math::GSL::Linalgc::gsl_linalg_LQ_unpack", _wrap_gsl_linalg_LQ_unpack},
11654 {"Math::GSL::Linalgc::gsl_linalg_LQ_update", _wrap_gsl_linalg_LQ_update},
11655 {"Math::GSL::Linalgc::gsl_linalg_LQ_LQsolve", _wrap_gsl_linalg_LQ_LQsolve},
11656 {"Math::GSL::Linalgc::gsl_linalg_PTLQ_decomp", _wrap_gsl_linalg_PTLQ_decomp},
11657 {"Math::GSL::Linalgc::gsl_linalg_PTLQ_decomp2", _wrap_gsl_linalg_PTLQ_decomp2},
11658 {"Math::GSL::Linalgc::gsl_linalg_PTLQ_solve_T", _wrap_gsl_linalg_PTLQ_solve_T},
11659 {"Math::GSL::Linalgc::gsl_linalg_PTLQ_svx_T", _wrap_gsl_linalg_PTLQ_svx_T},
11660 {"Math::GSL::Linalgc::gsl_linalg_PTLQ_LQsolve_T", _wrap_gsl_linalg_PTLQ_LQsolve_T},
11661 {"Math::GSL::Linalgc::gsl_linalg_PTLQ_Lsolve_T", _wrap_gsl_linalg_PTLQ_Lsolve_T},
11662 {"Math::GSL::Linalgc::gsl_linalg_PTLQ_Lsvx_T", _wrap_gsl_linalg_PTLQ_Lsvx_T},
11663 {"Math::GSL::Linalgc::gsl_linalg_PTLQ_update", _wrap_gsl_linalg_PTLQ_update},
11664 {"Math::GSL::Linalgc::gsl_linalg_cholesky_decomp", _wrap_gsl_linalg_cholesky_decomp},
11665 {"Math::GSL::Linalgc::gsl_linalg_cholesky_solve", _wrap_gsl_linalg_cholesky_solve},
11666 {"Math::GSL::Linalgc::gsl_linalg_cholesky_svx", _wrap_gsl_linalg_cholesky_svx},
11667 {"Math::GSL::Linalgc::gsl_linalg_cholesky_invert", _wrap_gsl_linalg_cholesky_invert},
11668 {"Math::GSL::Linalgc::gsl_linalg_cholesky_decomp_unit", _wrap_gsl_linalg_cholesky_decomp_unit},
11669 {"Math::GSL::Linalgc::gsl_linalg_complex_cholesky_decomp", _wrap_gsl_linalg_complex_cholesky_decomp},
11670 {"Math::GSL::Linalgc::gsl_linalg_complex_cholesky_solve", _wrap_gsl_linalg_complex_cholesky_solve},
11671 {"Math::GSL::Linalgc::gsl_linalg_complex_cholesky_svx", _wrap_gsl_linalg_complex_cholesky_svx},
11672 {"Math::GSL::Linalgc::gsl_linalg_complex_cholesky_invert", _wrap_gsl_linalg_complex_cholesky_invert},
11673 {"Math::GSL::Linalgc::gsl_linalg_symmtd_decomp", _wrap_gsl_linalg_symmtd_decomp},
11674 {"Math::GSL::Linalgc::gsl_linalg_symmtd_unpack", _wrap_gsl_linalg_symmtd_unpack},
11675 {"Math::GSL::Linalgc::gsl_linalg_symmtd_unpack_T", _wrap_gsl_linalg_symmtd_unpack_T},
11676 {"Math::GSL::Linalgc::gsl_linalg_hermtd_decomp", _wrap_gsl_linalg_hermtd_decomp},
11677 {"Math::GSL::Linalgc::gsl_linalg_hermtd_unpack", _wrap_gsl_linalg_hermtd_unpack},
11678 {"Math::GSL::Linalgc::gsl_linalg_hermtd_unpack_T", _wrap_gsl_linalg_hermtd_unpack_T},
11679 {"Math::GSL::Linalgc::gsl_linalg_HH_solve", _wrap_gsl_linalg_HH_solve},
11680 {"Math::GSL::Linalgc::gsl_linalg_HH_svx", _wrap_gsl_linalg_HH_svx},
11681 {"Math::GSL::Linalgc::gsl_linalg_solve_symm_tridiag", _wrap_gsl_linalg_solve_symm_tridiag},
11682 {"Math::GSL::Linalgc::gsl_linalg_solve_tridiag", _wrap_gsl_linalg_solve_tridiag},
11683 {"Math::GSL::Linalgc::gsl_linalg_solve_symm_cyc_tridiag", _wrap_gsl_linalg_solve_symm_cyc_tridiag},
11684 {"Math::GSL::Linalgc::gsl_linalg_solve_cyc_tridiag", _wrap_gsl_linalg_solve_cyc_tridiag},
11685 {"Math::GSL::Linalgc::gsl_linalg_bidiag_decomp", _wrap_gsl_linalg_bidiag_decomp},
11686 {"Math::GSL::Linalgc::gsl_linalg_bidiag_unpack", _wrap_gsl_linalg_bidiag_unpack},
11687 {"Math::GSL::Linalgc::gsl_linalg_bidiag_unpack2", _wrap_gsl_linalg_bidiag_unpack2},
11688 {"Math::GSL::Linalgc::gsl_linalg_bidiag_unpack_B", _wrap_gsl_linalg_bidiag_unpack_B},
11689 {"Math::GSL::Linalgc::gsl_linalg_balance_matrix", _wrap_gsl_linalg_balance_matrix},
11690 {"Math::GSL::Linalgc::gsl_linalg_balance_accum", _wrap_gsl_linalg_balance_accum},
11691 {"Math::GSL::Linalgc::gsl_linalg_balance_columns", _wrap_gsl_linalg_balance_columns},
11692 {"Math::GSL::Linalgc::gsl_permutation_struct_size_set", _wrap_gsl_permutation_struct_size_set},
11693 {"Math::GSL::Linalgc::gsl_permutation_struct_size_get", _wrap_gsl_permutation_struct_size_get},
11694 {"Math::GSL::Linalgc::gsl_permutation_struct_data_set", _wrap_gsl_permutation_struct_data_set},
11695 {"Math::GSL::Linalgc::gsl_permutation_struct_data_get", _wrap_gsl_permutation_struct_data_get},
11696 {"Math::GSL::Linalgc::new_gsl_permutation_struct", _wrap_new_gsl_permutation_struct},
11697 {"Math::GSL::Linalgc::delete_gsl_permutation_struct", _wrap_delete_gsl_permutation_struct},
11698 {"Math::GSL::Linalgc::gsl_permutation_alloc", _wrap_gsl_permutation_alloc},
11699 {"Math::GSL::Linalgc::gsl_permutation_calloc", _wrap_gsl_permutation_calloc},
11700 {"Math::GSL::Linalgc::gsl_permutation_init", _wrap_gsl_permutation_init},
11701 {"Math::GSL::Linalgc::gsl_permutation_free", _wrap_gsl_permutation_free},
11702 {"Math::GSL::Linalgc::gsl_permutation_memcpy", _wrap_gsl_permutation_memcpy},
11703 {"Math::GSL::Linalgc::gsl_permutation_fread", _wrap_gsl_permutation_fread},
11704 {"Math::GSL::Linalgc::gsl_permutation_fwrite", _wrap_gsl_permutation_fwrite},
11705 {"Math::GSL::Linalgc::gsl_permutation_fscanf", _wrap_gsl_permutation_fscanf},
11706 {"Math::GSL::Linalgc::gsl_permutation_fprintf", _wrap_gsl_permutation_fprintf},
11707 {"Math::GSL::Linalgc::gsl_permutation_size", _wrap_gsl_permutation_size},
11708 {"Math::GSL::Linalgc::gsl_permutation_data", _wrap_gsl_permutation_data},
11709 {"Math::GSL::Linalgc::gsl_permutation_swap", _wrap_gsl_permutation_swap},
11710 {"Math::GSL::Linalgc::gsl_permutation_valid", _wrap_gsl_permutation_valid},
11711 {"Math::GSL::Linalgc::gsl_permutation_reverse", _wrap_gsl_permutation_reverse},
11712 {"Math::GSL::Linalgc::gsl_permutation_inverse", _wrap_gsl_permutation_inverse},
11713 {"Math::GSL::Linalgc::gsl_permutation_next", _wrap_gsl_permutation_next},
11714 {"Math::GSL::Linalgc::gsl_permutation_prev", _wrap_gsl_permutation_prev},
11715 {"Math::GSL::Linalgc::gsl_permutation_mul", _wrap_gsl_permutation_mul},
11716 {"Math::GSL::Linalgc::gsl_permutation_linear_to_canonical", _wrap_gsl_permutation_linear_to_canonical},
11717 {"Math::GSL::Linalgc::gsl_permutation_canonical_to_linear", _wrap_gsl_permutation_canonical_to_linear},
11718 {"Math::GSL::Linalgc::gsl_permutation_inversions", _wrap_gsl_permutation_inversions},
11719 {"Math::GSL::Linalgc::gsl_permutation_linear_cycles", _wrap_gsl_permutation_linear_cycles},
11720 {"Math::GSL::Linalgc::gsl_permutation_canonical_cycles", _wrap_gsl_permutation_canonical_cycles},
11721 {"Math::GSL::Linalgc::gsl_permutation_get", _wrap_gsl_permutation_get},
11722 {"Math::GSL::Linalgc::gsl_complex_dat_set", _wrap_gsl_complex_dat_set},
11723 {"Math::GSL::Linalgc::gsl_complex_dat_get", _wrap_gsl_complex_dat_get},
11724 {"Math::GSL::Linalgc::new_gsl_complex", _wrap_new_gsl_complex},
11725 {"Math::GSL::Linalgc::delete_gsl_complex", _wrap_delete_gsl_complex},
11726 {"Math::GSL::Linalgc::gsl_complex_long_double_dat_set", _wrap_gsl_complex_long_double_dat_set},
11727 {"Math::GSL::Linalgc::gsl_complex_long_double_dat_get", _wrap_gsl_complex_long_double_dat_get},
11728 {"Math::GSL::Linalgc::new_gsl_complex_long_double", _wrap_new_gsl_complex_long_double},
11729 {"Math::GSL::Linalgc::delete_gsl_complex_long_double", _wrap_delete_gsl_complex_long_double},
11730 {"Math::GSL::Linalgc::gsl_complex_float_dat_set", _wrap_gsl_complex_float_dat_set},
11731 {"Math::GSL::Linalgc::gsl_complex_float_dat_get", _wrap_gsl_complex_float_dat_get},
11732 {"Math::GSL::Linalgc::new_gsl_complex_float", _wrap_new_gsl_complex_float},
11733 {"Math::GSL::Linalgc::delete_gsl_complex_float", _wrap_delete_gsl_complex_float},
11734 {"Math::GSL::Linalgc::gsl_complex_polar", _wrap_gsl_complex_polar},
11735 {"Math::GSL::Linalgc::gsl_complex_rect", _wrap_gsl_complex_rect},
11736 {"Math::GSL::Linalgc::gsl_complex_arg", _wrap_gsl_complex_arg},
11737 {"Math::GSL::Linalgc::gsl_complex_abs", _wrap_gsl_complex_abs},
11738 {"Math::GSL::Linalgc::gsl_complex_abs2", _wrap_gsl_complex_abs2},
11739 {"Math::GSL::Linalgc::gsl_complex_logabs", _wrap_gsl_complex_logabs},
11740 {"Math::GSL::Linalgc::gsl_complex_add", _wrap_gsl_complex_add},
11741 {"Math::GSL::Linalgc::gsl_complex_sub", _wrap_gsl_complex_sub},
11742 {"Math::GSL::Linalgc::gsl_complex_mul", _wrap_gsl_complex_mul},
11743 {"Math::GSL::Linalgc::gsl_complex_div", _wrap_gsl_complex_div},
11744 {"Math::GSL::Linalgc::gsl_complex_add_real", _wrap_gsl_complex_add_real},
11745 {"Math::GSL::Linalgc::gsl_complex_sub_real", _wrap_gsl_complex_sub_real},
11746 {"Math::GSL::Linalgc::gsl_complex_mul_real", _wrap_gsl_complex_mul_real},
11747 {"Math::GSL::Linalgc::gsl_complex_div_real", _wrap_gsl_complex_div_real},
11748 {"Math::GSL::Linalgc::gsl_complex_add_imag", _wrap_gsl_complex_add_imag},
11749 {"Math::GSL::Linalgc::gsl_complex_sub_imag", _wrap_gsl_complex_sub_imag},
11750 {"Math::GSL::Linalgc::gsl_complex_mul_imag", _wrap_gsl_complex_mul_imag},
11751 {"Math::GSL::Linalgc::gsl_complex_div_imag", _wrap_gsl_complex_div_imag},
11752 {"Math::GSL::Linalgc::gsl_complex_conjugate", _wrap_gsl_complex_conjugate},
11753 {"Math::GSL::Linalgc::gsl_complex_inverse", _wrap_gsl_complex_inverse},
11754 {"Math::GSL::Linalgc::gsl_complex_negative", _wrap_gsl_complex_negative},
11755 {"Math::GSL::Linalgc::gsl_complex_sqrt", _wrap_gsl_complex_sqrt},
11756 {"Math::GSL::Linalgc::gsl_complex_sqrt_real", _wrap_gsl_complex_sqrt_real},
11757 {"Math::GSL::Linalgc::gsl_complex_pow", _wrap_gsl_complex_pow},
11758 {"Math::GSL::Linalgc::gsl_complex_pow_real", _wrap_gsl_complex_pow_real},
11759 {"Math::GSL::Linalgc::gsl_complex_exp", _wrap_gsl_complex_exp},
11760 {"Math::GSL::Linalgc::gsl_complex_log", _wrap_gsl_complex_log},
11761 {"Math::GSL::Linalgc::gsl_complex_log10", _wrap_gsl_complex_log10},
11762 {"Math::GSL::Linalgc::gsl_complex_log_b", _wrap_gsl_complex_log_b},
11763 {"Math::GSL::Linalgc::gsl_complex_sin", _wrap_gsl_complex_sin},
11764 {"Math::GSL::Linalgc::gsl_complex_cos", _wrap_gsl_complex_cos},
11765 {"Math::GSL::Linalgc::gsl_complex_sec", _wrap_gsl_complex_sec},
11766 {"Math::GSL::Linalgc::gsl_complex_csc", _wrap_gsl_complex_csc},
11767 {"Math::GSL::Linalgc::gsl_complex_tan", _wrap_gsl_complex_tan},
11768 {"Math::GSL::Linalgc::gsl_complex_cot", _wrap_gsl_complex_cot},
11769 {"Math::GSL::Linalgc::gsl_complex_arcsin", _wrap_gsl_complex_arcsin},
11770 {"Math::GSL::Linalgc::gsl_complex_arcsin_real", _wrap_gsl_complex_arcsin_real},
11771 {"Math::GSL::Linalgc::gsl_complex_arccos", _wrap_gsl_complex_arccos},
11772 {"Math::GSL::Linalgc::gsl_complex_arccos_real", _wrap_gsl_complex_arccos_real},
11773 {"Math::GSL::Linalgc::gsl_complex_arcsec", _wrap_gsl_complex_arcsec},
11774 {"Math::GSL::Linalgc::gsl_complex_arcsec_real", _wrap_gsl_complex_arcsec_real},
11775 {"Math::GSL::Linalgc::gsl_complex_arccsc", _wrap_gsl_complex_arccsc},
11776 {"Math::GSL::Linalgc::gsl_complex_arccsc_real", _wrap_gsl_complex_arccsc_real},
11777 {"Math::GSL::Linalgc::gsl_complex_arctan", _wrap_gsl_complex_arctan},
11778 {"Math::GSL::Linalgc::gsl_complex_arccot", _wrap_gsl_complex_arccot},
11779 {"Math::GSL::Linalgc::gsl_complex_sinh", _wrap_gsl_complex_sinh},
11780 {"Math::GSL::Linalgc::gsl_complex_cosh", _wrap_gsl_complex_cosh},
11781 {"Math::GSL::Linalgc::gsl_complex_sech", _wrap_gsl_complex_sech},
11782 {"Math::GSL::Linalgc::gsl_complex_csch", _wrap_gsl_complex_csch},
11783 {"Math::GSL::Linalgc::gsl_complex_tanh", _wrap_gsl_complex_tanh},
11784 {"Math::GSL::Linalgc::gsl_complex_coth", _wrap_gsl_complex_coth},
11785 {"Math::GSL::Linalgc::gsl_complex_arcsinh", _wrap_gsl_complex_arcsinh},
11786 {"Math::GSL::Linalgc::gsl_complex_arccosh", _wrap_gsl_complex_arccosh},
11787 {"Math::GSL::Linalgc::gsl_complex_arccosh_real", _wrap_gsl_complex_arccosh_real},
11788 {"Math::GSL::Linalgc::gsl_complex_arcsech", _wrap_gsl_complex_arcsech},
11789 {"Math::GSL::Linalgc::gsl_complex_arccsch", _wrap_gsl_complex_arccsch},
11790 {"Math::GSL::Linalgc::gsl_complex_arctanh", _wrap_gsl_complex_arctanh},
11791 {"Math::GSL::Linalgc::gsl_complex_arctanh_real", _wrap_gsl_complex_arctanh_real},
11792 {"Math::GSL::Linalgc::gsl_complex_arccoth", _wrap_gsl_complex_arccoth},
11793 {0,0}
11794 };
11795 /* -----------------------------------------------------------------------------
11796 * Type initialization:
11797 * This problem is tough by the requirement that no dynamic
11798 * memory is used. Also, since swig_type_info structures store pointers to
11799 * swig_cast_info structures and swig_cast_info structures store pointers back
11800 * to swig_type_info structures, we need some lookup code at initialization.
11801 * The idea is that swig generates all the structures that are needed.
11802 * The runtime then collects these partially filled structures.
11803 * The SWIG_InitializeModule function takes these initial arrays out of
11804 * swig_module, and does all the lookup, filling in the swig_module.types
11805 * array with the correct data and linking the correct swig_cast_info
11806 * structures together.
11807 *
11808 * The generated swig_type_info structures are assigned statically to an initial
11809 * array. We just loop through that array, and handle each type individually.
11810 * First we lookup if this type has been already loaded, and if so, use the
11811 * loaded structure instead of the generated one. Then we have to fill in the
11812 * cast linked list. The cast data is initially stored in something like a
11813 * two-dimensional array. Each row corresponds to a type (there are the same
11814 * number of rows as there are in the swig_type_initial array). Each entry in
11815 * a column is one of the swig_cast_info structures for that type.
11816 * The cast_initial array is actually an array of arrays, because each row has
11817 * a variable number of columns. So to actually build the cast linked list,
11818 * we find the array of casts associated with the type, and loop through it
11819 * adding the casts to the list. The one last trick we need to do is making
11820 * sure the type pointer in the swig_cast_info struct is correct.
11821 *
11822 * First off, we lookup the cast->type name to see if it is already loaded.
11823 * There are three cases to handle:
11824 * 1) If the cast->type has already been loaded AND the type we are adding
11825 * casting info to has not been loaded (it is in this module), THEN we
11826 * replace the cast->type pointer with the type pointer that has already
11827 * been loaded.
11828 * 2) If BOTH types (the one we are adding casting info to, and the
11829 * cast->type) are loaded, THEN the cast info has already been loaded by
11830 * the previous module so we just ignore it.
11831 * 3) Finally, if cast->type has not already been loaded, then we add that
11832 * swig_cast_info to the linked list (because the cast->type) pointer will
11833 * be correct.
11834 * ----------------------------------------------------------------------------- */
11835
11836 #ifdef __cplusplus
11837 extern "C" {
11838 #if 0
11839 } /* c-mode */
11840 #endif
11841 #endif
11842
11843 #if 0
11844 #define SWIGRUNTIME_DEBUG
11845 #endif
11846
11847
11848 SWIGRUNTIME void
SWIG_InitializeModule(void * clientdata)11849 SWIG_InitializeModule(void *clientdata) {
11850 size_t i;
11851 swig_module_info *module_head, *iter;
11852 int init;
11853
11854 /* check to see if the circular list has been setup, if not, set it up */
11855 if (swig_module.next==0) {
11856 /* Initialize the swig_module */
11857 swig_module.type_initial = swig_type_initial;
11858 swig_module.cast_initial = swig_cast_initial;
11859 swig_module.next = &swig_module;
11860 init = 1;
11861 } else {
11862 init = 0;
11863 }
11864
11865 /* Try and load any already created modules */
11866 module_head = SWIG_GetModule(clientdata);
11867 if (!module_head) {
11868 /* This is the first module loaded for this interpreter */
11869 /* so set the swig module into the interpreter */
11870 SWIG_SetModule(clientdata, &swig_module);
11871 } else {
11872 /* the interpreter has loaded a SWIG module, but has it loaded this one? */
11873 iter=module_head;
11874 do {
11875 if (iter==&swig_module) {
11876 /* Our module is already in the list, so there's nothing more to do. */
11877 return;
11878 }
11879 iter=iter->next;
11880 } while (iter!= module_head);
11881
11882 /* otherwise we must add our module into the list */
11883 swig_module.next = module_head->next;
11884 module_head->next = &swig_module;
11885 }
11886
11887 /* When multiple interpreters are used, a module could have already been initialized in
11888 a different interpreter, but not yet have a pointer in this interpreter.
11889 In this case, we do not want to continue adding types... everything should be
11890 set up already */
11891 if (init == 0) return;
11892
11893 /* Now work on filling in swig_module.types */
11894 #ifdef SWIGRUNTIME_DEBUG
11895 printf("SWIG_InitializeModule: size %lu\n", (unsigned long)swig_module.size);
11896 #endif
11897 for (i = 0; i < swig_module.size; ++i) {
11898 swig_type_info *type = 0;
11899 swig_type_info *ret;
11900 swig_cast_info *cast;
11901
11902 #ifdef SWIGRUNTIME_DEBUG
11903 printf("SWIG_InitializeModule: type %lu %s\n", (unsigned long)i, swig_module.type_initial[i]->name);
11904 #endif
11905
11906 /* if there is another module already loaded */
11907 if (swig_module.next != &swig_module) {
11908 type = SWIG_MangledTypeQueryModule(swig_module.next, &swig_module, swig_module.type_initial[i]->name);
11909 }
11910 if (type) {
11911 /* Overwrite clientdata field */
11912 #ifdef SWIGRUNTIME_DEBUG
11913 printf("SWIG_InitializeModule: found type %s\n", type->name);
11914 #endif
11915 if (swig_module.type_initial[i]->clientdata) {
11916 type->clientdata = swig_module.type_initial[i]->clientdata;
11917 #ifdef SWIGRUNTIME_DEBUG
11918 printf("SWIG_InitializeModule: found and overwrite type %s \n", type->name);
11919 #endif
11920 }
11921 } else {
11922 type = swig_module.type_initial[i];
11923 }
11924
11925 /* Insert casting types */
11926 cast = swig_module.cast_initial[i];
11927 while (cast->type) {
11928 /* Don't need to add information already in the list */
11929 ret = 0;
11930 #ifdef SWIGRUNTIME_DEBUG
11931 printf("SWIG_InitializeModule: look cast %s\n", cast->type->name);
11932 #endif
11933 if (swig_module.next != &swig_module) {
11934 ret = SWIG_MangledTypeQueryModule(swig_module.next, &swig_module, cast->type->name);
11935 #ifdef SWIGRUNTIME_DEBUG
11936 if (ret) printf("SWIG_InitializeModule: found cast %s\n", ret->name);
11937 #endif
11938 }
11939 if (ret) {
11940 if (type == swig_module.type_initial[i]) {
11941 #ifdef SWIGRUNTIME_DEBUG
11942 printf("SWIG_InitializeModule: skip old type %s\n", ret->name);
11943 #endif
11944 cast->type = ret;
11945 ret = 0;
11946 } else {
11947 /* Check for casting already in the list */
11948 swig_cast_info *ocast = SWIG_TypeCheck(ret->name, type);
11949 #ifdef SWIGRUNTIME_DEBUG
11950 if (ocast) printf("SWIG_InitializeModule: skip old cast %s\n", ret->name);
11951 #endif
11952 if (!ocast) ret = 0;
11953 }
11954 }
11955
11956 if (!ret) {
11957 #ifdef SWIGRUNTIME_DEBUG
11958 printf("SWIG_InitializeModule: adding cast %s\n", cast->type->name);
11959 #endif
11960 if (type->cast) {
11961 type->cast->prev = cast;
11962 cast->next = type->cast;
11963 }
11964 type->cast = cast;
11965 }
11966 cast++;
11967 }
11968 /* Set entry in modules->types array equal to the type */
11969 swig_module.types[i] = type;
11970 }
11971 swig_module.types[i] = 0;
11972
11973 #ifdef SWIGRUNTIME_DEBUG
11974 printf("**** SWIG_InitializeModule: Cast List ******\n");
11975 for (i = 0; i < swig_module.size; ++i) {
11976 int j = 0;
11977 swig_cast_info *cast = swig_module.cast_initial[i];
11978 printf("SWIG_InitializeModule: type %lu %s\n", (unsigned long)i, swig_module.type_initial[i]->name);
11979 while (cast->type) {
11980 printf("SWIG_InitializeModule: cast type %s\n", cast->type->name);
11981 cast++;
11982 ++j;
11983 }
11984 printf("---- Total casts: %d\n",j);
11985 }
11986 printf("**** SWIG_InitializeModule: Cast List ******\n");
11987 #endif
11988 }
11989
11990 /* This function will propagate the clientdata field of type to
11991 * any new swig_type_info structures that have been added into the list
11992 * of equivalent types. It is like calling
11993 * SWIG_TypeClientData(type, clientdata) a second time.
11994 */
11995 SWIGRUNTIME void
SWIG_PropagateClientData(void)11996 SWIG_PropagateClientData(void) {
11997 size_t i;
11998 swig_cast_info *equiv;
11999 static int init_run = 0;
12000
12001 if (init_run) return;
12002 init_run = 1;
12003
12004 for (i = 0; i < swig_module.size; i++) {
12005 if (swig_module.types[i]->clientdata) {
12006 equiv = swig_module.types[i]->cast;
12007 while (equiv) {
12008 if (!equiv->converter) {
12009 if (equiv->type && !equiv->type->clientdata)
12010 SWIG_TypeClientData(equiv->type, swig_module.types[i]->clientdata);
12011 }
12012 equiv = equiv->next;
12013 }
12014 }
12015 }
12016 }
12017
12018 #ifdef __cplusplus
12019 #if 0
12020 {
12021 /* c-mode */
12022 #endif
12023 }
12024 #endif
12025
12026
12027
12028 #if defined(__cplusplus) && ! defined(XSPROTO)
12029 extern "C"
12030 #endif
12031
XS(SWIG_init)12032 XS(SWIG_init) {
12033 dXSARGS;
12034 int i;
12035 (void)items;
12036
12037 SWIG_InitializeModule(0);
12038
12039 /* Install commands */
12040 for (i = 0; swig_commands[i].name; i++) {
12041 /* Casts only needed for Perl < 5.10. */
12042 #ifdef __cplusplus
12043 newXS(const_cast<char*>(swig_commands[i].name), swig_commands[i].wrapper, const_cast<char*>(__FILE__));
12044 #else
12045 newXS((char*)swig_commands[i].name, swig_commands[i].wrapper, (char*)__FILE__);
12046 #endif
12047 }
12048
12049 /* Install variables */
12050 for (i = 0; swig_variables[i].name; i++) {
12051 SV *sv;
12052 sv = get_sv(swig_variables[i].name, TRUE | 0x2 | GV_ADDMULTI);
12053 if (swig_variables[i].type) {
12054 SWIG_MakePtr(sv,(void *)1, *swig_variables[i].type,0);
12055 } else {
12056 sv_setiv(sv,(IV) 0);
12057 }
12058 swig_create_magic(sv, swig_variables[i].name, swig_variables[i].set, swig_variables[i].get);
12059 }
12060
12061 /* Install constant */
12062 for (i = 0; swig_constants[i].type; i++) {
12063 SV *sv;
12064 sv = get_sv(swig_constants[i].name, TRUE | 0x2 | GV_ADDMULTI);
12065 switch(swig_constants[i].type) {
12066 case SWIG_INT:
12067 sv_setiv(sv, (IV) swig_constants[i].lvalue);
12068 break;
12069 case SWIG_FLOAT:
12070 sv_setnv(sv, (double) swig_constants[i].dvalue);
12071 break;
12072 case SWIG_STRING:
12073 sv_setpv(sv, (const char *) swig_constants[i].pvalue);
12074 break;
12075 case SWIG_POINTER:
12076 SWIG_MakePtr(sv, swig_constants[i].pvalue, *(swig_constants[i].ptype),0);
12077 break;
12078 case SWIG_BINARY:
12079 SWIG_MakePackedObj(sv, swig_constants[i].pvalue, swig_constants[i].lvalue, *(swig_constants[i].ptype));
12080 break;
12081 default:
12082 break;
12083 }
12084 SvREADONLY_on(sv);
12085 }
12086
12087 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12088 SV *sv = get_sv((char*) SWIG_prefix "GSL_VERSION", TRUE | 0x2 | GV_ADDMULTI);
12089 sv_setsv(sv, SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(2.7)));
12090 SvREADONLY_on(sv);
12091 } while(0) /*@SWIG@*/;
12092 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12093 SV *sv = get_sv((char*) SWIG_prefix "GSL_MAJOR_VERSION", TRUE | 0x2 | GV_ADDMULTI);
12094 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(2)));
12095 SvREADONLY_on(sv);
12096 } while(0) /*@SWIG@*/;
12097 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12098 SV *sv = get_sv((char*) SWIG_prefix "GSL_MINOR_VERSION", TRUE | 0x2 | GV_ADDMULTI);
12099 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(7)));
12100 SvREADONLY_on(sv);
12101 } while(0) /*@SWIG@*/;
12102 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12103 SV *sv = get_sv((char*) SWIG_prefix "GSL_POSZERO", TRUE | 0x2 | GV_ADDMULTI);
12104 sv_setsv(sv, SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)((+0.0))));
12105 SvREADONLY_on(sv);
12106 } while(0) /*@SWIG@*/;
12107 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12108 SV *sv = get_sv((char*) SWIG_prefix "GSL_NEGZERO", TRUE | 0x2 | GV_ADDMULTI);
12109 sv_setsv(sv, SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)((-0.0))));
12110 SvREADONLY_on(sv);
12111 } while(0) /*@SWIG@*/;
12112 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12113 SV *sv = get_sv((char*) SWIG_prefix "GSL_SUCCESS", TRUE | 0x2 | GV_ADDMULTI);
12114 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_SUCCESS)));
12115 SvREADONLY_on(sv);
12116 } while(0) /*@SWIG@*/;
12117 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12118 SV *sv = get_sv((char*) SWIG_prefix "GSL_FAILURE", TRUE | 0x2 | GV_ADDMULTI);
12119 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_FAILURE)));
12120 SvREADONLY_on(sv);
12121 } while(0) /*@SWIG@*/;
12122 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12123 SV *sv = get_sv((char*) SWIG_prefix "GSL_CONTINUE", TRUE | 0x2 | GV_ADDMULTI);
12124 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_CONTINUE)));
12125 SvREADONLY_on(sv);
12126 } while(0) /*@SWIG@*/;
12127 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12128 SV *sv = get_sv((char*) SWIG_prefix "GSL_EDOM", TRUE | 0x2 | GV_ADDMULTI);
12129 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EDOM)));
12130 SvREADONLY_on(sv);
12131 } while(0) /*@SWIG@*/;
12132 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12133 SV *sv = get_sv((char*) SWIG_prefix "GSL_ERANGE", TRUE | 0x2 | GV_ADDMULTI);
12134 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ERANGE)));
12135 SvREADONLY_on(sv);
12136 } while(0) /*@SWIG@*/;
12137 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12138 SV *sv = get_sv((char*) SWIG_prefix "GSL_EFAULT", TRUE | 0x2 | GV_ADDMULTI);
12139 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EFAULT)));
12140 SvREADONLY_on(sv);
12141 } while(0) /*@SWIG@*/;
12142 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12143 SV *sv = get_sv((char*) SWIG_prefix "GSL_EINVAL", TRUE | 0x2 | GV_ADDMULTI);
12144 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EINVAL)));
12145 SvREADONLY_on(sv);
12146 } while(0) /*@SWIG@*/;
12147 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12148 SV *sv = get_sv((char*) SWIG_prefix "GSL_EFAILED", TRUE | 0x2 | GV_ADDMULTI);
12149 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EFAILED)));
12150 SvREADONLY_on(sv);
12151 } while(0) /*@SWIG@*/;
12152 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12153 SV *sv = get_sv((char*) SWIG_prefix "GSL_EFACTOR", TRUE | 0x2 | GV_ADDMULTI);
12154 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EFACTOR)));
12155 SvREADONLY_on(sv);
12156 } while(0) /*@SWIG@*/;
12157 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12158 SV *sv = get_sv((char*) SWIG_prefix "GSL_ESANITY", TRUE | 0x2 | GV_ADDMULTI);
12159 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ESANITY)));
12160 SvREADONLY_on(sv);
12161 } while(0) /*@SWIG@*/;
12162 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12163 SV *sv = get_sv((char*) SWIG_prefix "GSL_ENOMEM", TRUE | 0x2 | GV_ADDMULTI);
12164 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ENOMEM)));
12165 SvREADONLY_on(sv);
12166 } while(0) /*@SWIG@*/;
12167 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12168 SV *sv = get_sv((char*) SWIG_prefix "GSL_EBADFUNC", TRUE | 0x2 | GV_ADDMULTI);
12169 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EBADFUNC)));
12170 SvREADONLY_on(sv);
12171 } while(0) /*@SWIG@*/;
12172 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12173 SV *sv = get_sv((char*) SWIG_prefix "GSL_ERUNAWAY", TRUE | 0x2 | GV_ADDMULTI);
12174 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ERUNAWAY)));
12175 SvREADONLY_on(sv);
12176 } while(0) /*@SWIG@*/;
12177 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12178 SV *sv = get_sv((char*) SWIG_prefix "GSL_EMAXITER", TRUE | 0x2 | GV_ADDMULTI);
12179 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EMAXITER)));
12180 SvREADONLY_on(sv);
12181 } while(0) /*@SWIG@*/;
12182 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12183 SV *sv = get_sv((char*) SWIG_prefix "GSL_EZERODIV", TRUE | 0x2 | GV_ADDMULTI);
12184 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EZERODIV)));
12185 SvREADONLY_on(sv);
12186 } while(0) /*@SWIG@*/;
12187 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12188 SV *sv = get_sv((char*) SWIG_prefix "GSL_EBADTOL", TRUE | 0x2 | GV_ADDMULTI);
12189 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EBADTOL)));
12190 SvREADONLY_on(sv);
12191 } while(0) /*@SWIG@*/;
12192 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12193 SV *sv = get_sv((char*) SWIG_prefix "GSL_ETOL", TRUE | 0x2 | GV_ADDMULTI);
12194 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ETOL)));
12195 SvREADONLY_on(sv);
12196 } while(0) /*@SWIG@*/;
12197 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12198 SV *sv = get_sv((char*) SWIG_prefix "GSL_EUNDRFLW", TRUE | 0x2 | GV_ADDMULTI);
12199 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EUNDRFLW)));
12200 SvREADONLY_on(sv);
12201 } while(0) /*@SWIG@*/;
12202 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12203 SV *sv = get_sv((char*) SWIG_prefix "GSL_EOVRFLW", TRUE | 0x2 | GV_ADDMULTI);
12204 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EOVRFLW)));
12205 SvREADONLY_on(sv);
12206 } while(0) /*@SWIG@*/;
12207 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12208 SV *sv = get_sv((char*) SWIG_prefix "GSL_ELOSS", TRUE | 0x2 | GV_ADDMULTI);
12209 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ELOSS)));
12210 SvREADONLY_on(sv);
12211 } while(0) /*@SWIG@*/;
12212 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12213 SV *sv = get_sv((char*) SWIG_prefix "GSL_EROUND", TRUE | 0x2 | GV_ADDMULTI);
12214 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EROUND)));
12215 SvREADONLY_on(sv);
12216 } while(0) /*@SWIG@*/;
12217 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12218 SV *sv = get_sv((char*) SWIG_prefix "GSL_EBADLEN", TRUE | 0x2 | GV_ADDMULTI);
12219 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EBADLEN)));
12220 SvREADONLY_on(sv);
12221 } while(0) /*@SWIG@*/;
12222 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12223 SV *sv = get_sv((char*) SWIG_prefix "GSL_ENOTSQR", TRUE | 0x2 | GV_ADDMULTI);
12224 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ENOTSQR)));
12225 SvREADONLY_on(sv);
12226 } while(0) /*@SWIG@*/;
12227 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12228 SV *sv = get_sv((char*) SWIG_prefix "GSL_ESING", TRUE | 0x2 | GV_ADDMULTI);
12229 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ESING)));
12230 SvREADONLY_on(sv);
12231 } while(0) /*@SWIG@*/;
12232 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12233 SV *sv = get_sv((char*) SWIG_prefix "GSL_EDIVERGE", TRUE | 0x2 | GV_ADDMULTI);
12234 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EDIVERGE)));
12235 SvREADONLY_on(sv);
12236 } while(0) /*@SWIG@*/;
12237 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12238 SV *sv = get_sv((char*) SWIG_prefix "GSL_EUNSUP", TRUE | 0x2 | GV_ADDMULTI);
12239 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EUNSUP)));
12240 SvREADONLY_on(sv);
12241 } while(0) /*@SWIG@*/;
12242 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12243 SV *sv = get_sv((char*) SWIG_prefix "GSL_EUNIMPL", TRUE | 0x2 | GV_ADDMULTI);
12244 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EUNIMPL)));
12245 SvREADONLY_on(sv);
12246 } while(0) /*@SWIG@*/;
12247 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12248 SV *sv = get_sv((char*) SWIG_prefix "GSL_ECACHE", TRUE | 0x2 | GV_ADDMULTI);
12249 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ECACHE)));
12250 SvREADONLY_on(sv);
12251 } while(0) /*@SWIG@*/;
12252 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12253 SV *sv = get_sv((char*) SWIG_prefix "GSL_ETABLE", TRUE | 0x2 | GV_ADDMULTI);
12254 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ETABLE)));
12255 SvREADONLY_on(sv);
12256 } while(0) /*@SWIG@*/;
12257 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12258 SV *sv = get_sv((char*) SWIG_prefix "GSL_ENOPROG", TRUE | 0x2 | GV_ADDMULTI);
12259 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ENOPROG)));
12260 SvREADONLY_on(sv);
12261 } while(0) /*@SWIG@*/;
12262 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12263 SV *sv = get_sv((char*) SWIG_prefix "GSL_ENOPROGJ", TRUE | 0x2 | GV_ADDMULTI);
12264 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ENOPROGJ)));
12265 SvREADONLY_on(sv);
12266 } while(0) /*@SWIG@*/;
12267 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12268 SV *sv = get_sv((char*) SWIG_prefix "GSL_ETOLF", TRUE | 0x2 | GV_ADDMULTI);
12269 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ETOLF)));
12270 SvREADONLY_on(sv);
12271 } while(0) /*@SWIG@*/;
12272 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12273 SV *sv = get_sv((char*) SWIG_prefix "GSL_ETOLX", TRUE | 0x2 | GV_ADDMULTI);
12274 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ETOLX)));
12275 SvREADONLY_on(sv);
12276 } while(0) /*@SWIG@*/;
12277 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12278 SV *sv = get_sv((char*) SWIG_prefix "GSL_ETOLG", TRUE | 0x2 | GV_ADDMULTI);
12279 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ETOLG)));
12280 SvREADONLY_on(sv);
12281 } while(0) /*@SWIG@*/;
12282 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12283 SV *sv = get_sv((char*) SWIG_prefix "GSL_EOF", TRUE | 0x2 | GV_ADDMULTI);
12284 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EOF)));
12285 SvREADONLY_on(sv);
12286 } while(0) /*@SWIG@*/;
12287 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12288 SV *sv = get_sv((char*) SWIG_prefix "GSL_LINALG_MOD_NONE", TRUE | 0x2 | GV_ADDMULTI);
12289 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_LINALG_MOD_NONE)));
12290 SvREADONLY_on(sv);
12291 } while(0) /*@SWIG@*/;
12292 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12293 SV *sv = get_sv((char*) SWIG_prefix "GSL_LINALG_MOD_TRANSPOSE", TRUE | 0x2 | GV_ADDMULTI);
12294 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_LINALG_MOD_TRANSPOSE)));
12295 SvREADONLY_on(sv);
12296 } while(0) /*@SWIG@*/;
12297 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
12298 SV *sv = get_sv((char*) SWIG_prefix "GSL_LINALG_MOD_CONJUGATE", TRUE | 0x2 | GV_ADDMULTI);
12299 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_LINALG_MOD_CONJUGATE)));
12300 SvREADONLY_on(sv);
12301 } while(0) /*@SWIG@*/;
12302 SWIG_TypeClientData(SWIGTYPE_p_gsl_permutation_struct, (void*) "Math::GSL::Linalg::gsl_permutation_struct");
12303 SWIG_TypeClientData(SWIGTYPE_p_gsl_complex, (void*) "Math::GSL::Linalg::gsl_complex");
12304 SWIG_TypeClientData(SWIGTYPE_p_gsl_complex_long_double, (void*) "Math::GSL::Linalg::gsl_complex_long_double");
12305 SWIG_TypeClientData(SWIGTYPE_p_gsl_complex_float, (void*) "Math::GSL::Linalg::gsl_complex_float");
12306 ST(0) = &PL_sv_yes;
12307 XSRETURN(1);
12308 }
12309
12310