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_eigen_francis_workspace swig_types[9]
1529 #define SWIGTYPE_p_gsl_eigen_gen_workspace swig_types[10]
1530 #define SWIGTYPE_p_gsl_eigen_genherm_workspace swig_types[11]
1531 #define SWIGTYPE_p_gsl_eigen_genhermv_workspace swig_types[12]
1532 #define SWIGTYPE_p_gsl_eigen_gensymm_workspace swig_types[13]
1533 #define SWIGTYPE_p_gsl_eigen_gensymmv_workspace swig_types[14]
1534 #define SWIGTYPE_p_gsl_eigen_genv_workspace swig_types[15]
1535 #define SWIGTYPE_p_gsl_eigen_herm_workspace swig_types[16]
1536 #define SWIGTYPE_p_gsl_eigen_hermv_workspace swig_types[17]
1537 #define SWIGTYPE_p_gsl_eigen_nonsymm_workspace swig_types[18]
1538 #define SWIGTYPE_p_gsl_eigen_nonsymmv_workspace swig_types[19]
1539 #define SWIGTYPE_p_gsl_eigen_sort_t swig_types[20]
1540 #define SWIGTYPE_p_gsl_eigen_symm_workspace swig_types[21]
1541 #define SWIGTYPE_p_gsl_eigen_symmv_workspace swig_types[22]
1542 #define SWIGTYPE_p_gsl_matrix swig_types[23]
1543 #define SWIGTYPE_p_gsl_matrix_complex swig_types[24]
1544 #define SWIGTYPE_p_gsl_vector swig_types[25]
1545 #define SWIGTYPE_p_gsl_vector_complex swig_types[26]
1546 #define SWIGTYPE_p_long_double swig_types[27]
1547 #define SWIGTYPE_p_unsigned_int swig_types[28]
1548 static swig_type_info *swig_types[30];
1549 static swig_module_info swig_module = {swig_types, 29, 0, 0, 0, 0};
1550 #define SWIG_TypeQuery(name) SWIG_TypeQueryModule(&swig_module, &swig_module, name)
1551 #define SWIG_MangledTypeQuery(name) SWIG_MangledTypeQueryModule(&swig_module, &swig_module, name)
1552
1553 /* -------- TYPES TABLE (END) -------- */
1554
1555 #define SWIG_init boot_Math__GSL__Eigen
1556
1557 #define SWIG_name "Math::GSL::Eigenc::boot_Math__GSL__Eigen"
1558 #define SWIG_prefix "Math::GSL::Eigenc::"
1559
1560 #define SWIGVERSION 0x040001
1561 #define SWIG_VERSION SWIGVERSION
1562
1563
1564 #define SWIG_as_voidptr(a) (void *)((const void *)(a))
1565 #define SWIG_as_voidptrptr(a) ((void)SWIG_as_voidptr(*a),(void**)(a))
1566
1567
1568 #ifdef __cplusplus
1569 extern "C"
1570 #endif
1571 #ifndef PERL_OBJECT
1572 #ifndef MULTIPLICITY
1573 SWIGEXPORT void SWIG_init (CV* cv);
1574 #else
1575 SWIGEXPORT void SWIG_init (pTHXo_ CV* cv);
1576 #endif
1577 #else
1578 SWIGEXPORT void SWIG_init (CV *cv, CPerlObj *);
1579 #endif
1580
1581
1582 SWIGINTERNINLINE SV *
SWIG_PERL_DECL_ARGS_1(double value)1583 SWIG_From_double SWIG_PERL_DECL_ARGS_1(double value)
1584 {
1585 return sv_2mortal(newSVnv(value));
1586 }
1587
1588
1589 SWIGINTERNINLINE SV *
SWIG_PERL_DECL_ARGS_1(long value)1590 SWIG_From_long SWIG_PERL_DECL_ARGS_1(long value)
1591 {
1592 SV *sv;
1593 if (IVSIZE >= sizeof(value) || (value >= IV_MIN && value <= IV_MAX))
1594 sv = newSViv(value);
1595 else
1596 sv = newSVpvf("%ld", value);
1597 return sv_2mortal(sv);
1598 }
1599
1600
1601 SWIGINTERNINLINE SV *
SWIG_PERL_DECL_ARGS_1(int value)1602 SWIG_From_int SWIG_PERL_DECL_ARGS_1(int value)
1603 {
1604 return SWIG_From_long SWIG_PERL_CALL_ARGS_1(value);
1605 }
1606
1607
1608 SWIGINTERN swig_type_info*
SWIG_pchar_descriptor(void)1609 SWIG_pchar_descriptor(void)
1610 {
1611 static int init = 0;
1612 static swig_type_info* info = 0;
1613 if (!init) {
1614 info = SWIG_TypeQuery("_p_char");
1615 init = 1;
1616 }
1617 return info;
1618 }
1619
1620
1621 SWIGINTERN int
SWIG_AsCharPtrAndSize(SV * obj,char ** cptr,size_t * psize,int * alloc)1622 SWIG_AsCharPtrAndSize(SV *obj, char** cptr, size_t* psize, int *alloc)
1623 {
1624 if (SvMAGICAL(obj)) {
1625 SV *tmp = sv_newmortal();
1626 SvSetSV(tmp, obj);
1627 obj = tmp;
1628 }
1629 if (SvPOK(obj)) {
1630 STRLEN len = 0;
1631 char *cstr = SvPV(obj, len);
1632 size_t size = len + 1;
1633 if (cptr) {
1634 if (alloc) {
1635 if (*alloc == SWIG_NEWOBJ) {
1636 *cptr = (char *)memcpy(malloc((size)*sizeof(char)), cstr, sizeof(char)*(size));
1637 } else {
1638 *cptr = cstr;
1639 *alloc = SWIG_OLDOBJ;
1640 }
1641 }
1642 }
1643 if (psize) *psize = size;
1644 return SWIG_OK;
1645 } else {
1646 swig_type_info* pchar_descriptor = SWIG_pchar_descriptor();
1647 if (pchar_descriptor) {
1648 char* vptr = 0;
1649 if (SWIG_ConvertPtr(obj, (void**)&vptr, pchar_descriptor, 0) == SWIG_OK) {
1650 if (cptr) *cptr = vptr;
1651 if (psize) *psize = vptr ? (strlen(vptr) + 1) : 0;
1652 if (alloc) *alloc = SWIG_OLDOBJ;
1653 return SWIG_OK;
1654 }
1655 }
1656 }
1657 return SWIG_TypeError;
1658 }
1659
1660
1661
1662
1663
1664 #include <limits.h>
1665 #if !defined(SWIG_NO_LLONG_MAX)
1666 # if !defined(LLONG_MAX) && defined(__GNUC__) && defined (__LONG_LONG_MAX__)
1667 # define LLONG_MAX __LONG_LONG_MAX__
1668 # define LLONG_MIN (-LLONG_MAX - 1LL)
1669 # define ULLONG_MAX (LLONG_MAX * 2ULL + 1ULL)
1670 # endif
1671 #endif
1672
1673
1674 #include <stdlib.h>
1675 #ifdef _MSC_VER
1676 # ifndef strtoull
1677 # define strtoull _strtoui64
1678 # endif
1679 # ifndef strtoll
1680 # define strtoll _strtoi64
1681 # endif
1682 #endif
1683
1684
1685 SWIGINTERN int
SWIG_PERL_DECL_ARGS_2(SV * obj,double * val)1686 SWIG_AsVal_double SWIG_PERL_DECL_ARGS_2(SV *obj, double *val)
1687 {
1688 if (SvNIOK(obj)) {
1689 if (val) *val = SvNV(obj);
1690 return SWIG_OK;
1691 } else if (SvIOK(obj)) {
1692 if (val) *val = (double) SvIV(obj);
1693 return SWIG_AddCast(SWIG_OK);
1694 } else {
1695 const char *nptr = SvPV_nolen(obj);
1696 if (nptr) {
1697 char *endptr;
1698 double v;
1699 errno = 0;
1700 v = strtod(nptr, &endptr);
1701 if (errno == ERANGE) {
1702 errno = 0;
1703 return SWIG_OverflowError;
1704 } else {
1705 if (*endptr == '\0') {
1706 if (val) *val = v;
1707 return SWIG_Str2NumCast(SWIG_OK);
1708 }
1709 }
1710 }
1711 }
1712 return SWIG_TypeError;
1713 }
1714
1715
1716 #include <float.h>
1717
1718
1719 #include <math.h>
1720
1721
1722 SWIGINTERNINLINE int
SWIG_CanCastAsInteger(double * d,double min,double max)1723 SWIG_CanCastAsInteger(double *d, double min, double max) {
1724 double x = *d;
1725 if ((min <= x && x <= max)) {
1726 double fx = floor(x);
1727 double cx = ceil(x);
1728 double rd = ((x - fx) < 0.5) ? fx : cx; /* simple rint */
1729 if ((errno == EDOM) || (errno == ERANGE)) {
1730 errno = 0;
1731 } else {
1732 double summ, reps, diff;
1733 if (rd < x) {
1734 diff = x - rd;
1735 } else if (rd > x) {
1736 diff = rd - x;
1737 } else {
1738 return 1;
1739 }
1740 summ = rd + x;
1741 reps = diff/summ;
1742 if (reps < 8*DBL_EPSILON) {
1743 *d = rd;
1744 return 1;
1745 }
1746 }
1747 }
1748 return 0;
1749 }
1750
1751
1752 SWIGINTERN int
SWIG_PERL_DECL_ARGS_2(SV * obj,long * val)1753 SWIG_AsVal_long SWIG_PERL_DECL_ARGS_2(SV *obj, long* val)
1754 {
1755 if (SvUOK(obj)) {
1756 UV v = SvUV(obj);
1757 if (UVSIZE < sizeof(*val) || v <= LONG_MAX) {
1758 if (val) *val = v;
1759 return SWIG_OK;
1760 }
1761 return SWIG_OverflowError;
1762 } else if (SvIOK(obj)) {
1763 IV v = SvIV(obj);
1764 if (IVSIZE <= sizeof(*val) || (v >= LONG_MIN && v <= LONG_MAX)) {
1765 if(val) *val = v;
1766 return SWIG_OK;
1767 }
1768 return SWIG_OverflowError;
1769 } else {
1770 int dispatch = 0;
1771 const char *nptr = SvPV_nolen(obj);
1772 if (nptr) {
1773 char *endptr;
1774 long v;
1775 errno = 0;
1776 v = strtol(nptr, &endptr,0);
1777 if (errno == ERANGE) {
1778 errno = 0;
1779 return SWIG_OverflowError;
1780 } else {
1781 if (*endptr == '\0') {
1782 if (val) *val = v;
1783 return SWIG_Str2NumCast(SWIG_OK);
1784 }
1785 }
1786 }
1787 if (!dispatch) {
1788 double d;
1789 int res = SWIG_AddCast(SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(obj,&d));
1790 if (SWIG_IsOK(res) && SWIG_CanCastAsInteger(&d, LONG_MIN, LONG_MAX)) {
1791 if (val) *val = (long)(d);
1792 return res;
1793 }
1794 }
1795 }
1796 return SWIG_TypeError;
1797 }
1798
1799
1800 SWIGINTERN int
SWIG_PERL_DECL_ARGS_2(SV * obj,int * val)1801 SWIG_AsVal_int SWIG_PERL_DECL_ARGS_2(SV * obj, int *val)
1802 {
1803 long v;
1804 int res = SWIG_AsVal_long SWIG_PERL_CALL_ARGS_2(obj, &v);
1805 if (SWIG_IsOK(res)) {
1806 if ((v < INT_MIN || v > INT_MAX)) {
1807 return SWIG_OverflowError;
1808 } else {
1809 if (val) *val = (int)(v);
1810 }
1811 }
1812 return res;
1813 }
1814
1815
1816 SWIGINTERNINLINE SV *
SWIG_FromCharPtrAndSize(const char * carray,size_t size)1817 SWIG_FromCharPtrAndSize(const char* carray, size_t size)
1818 {
1819 SV *obj = sv_newmortal();
1820 if (carray) {
1821 sv_setpvn(obj, carray, size);
1822 } else {
1823 sv_setsv(obj, &PL_sv_undef);
1824 }
1825 return obj;
1826 }
1827
1828
1829 SWIGINTERNINLINE SV *
SWIG_FromCharPtr(const char * cptr)1830 SWIG_FromCharPtr(const char *cptr)
1831 {
1832 return SWIG_FromCharPtrAndSize(cptr, (cptr ? strlen(cptr) : 0));
1833 }
1834
1835
1836 #include "gsl/gsl_nan.h"
1837 #include "gsl/gsl_errno.h"
1838 #include "gsl/gsl_math.h"
1839 #include "gsl/gsl_monte.h"
1840
1841
1842 struct perl_array {
1843 I32 len;
1844 AV *array;
1845 };
1846
1847
1848
1849 enum awType { awDouble, awFloat, awInt, awUnsigned };
1850
1851 typedef struct {
1852 I32 size;
1853 enum awType type;
1854 void * data;
1855 } array_wrapper;
1856
array_wrapper_alloc(int numelem,enum awType type)1857 array_wrapper * array_wrapper_alloc(int numelem, enum awType type){
1858 array_wrapper * rv = malloc(sizeof(array_wrapper));
1859
1860 if (rv == NULL)
1861 croak("array_wrapper_alloc: can't malloc wrapper\n");
1862
1863 switch (type){
1864 case awDouble:
1865 rv->data = malloc(sizeof(double) * numelem);
1866 break;
1867 case awFloat:
1868 rv->data = malloc(sizeof(float) * numelem);
1869 break;
1870 case awInt:
1871 rv->data = malloc(sizeof(int) * numelem);
1872 break;
1873 case awUnsigned:
1874 rv->data = malloc(sizeof(unsigned int) * numelem);
1875 break;
1876 default:
1877 croak("array_wrapper_alloc: type should be awDouble, awFloat, awInt, or awUnsigned");
1878 }
1879
1880 if (rv->data == NULL)
1881 croak("array_wrapper_alloc: can't malloc data");
1882
1883 rv->size = numelem;
1884 rv->type = type;
1885 return rv;
1886 }
1887
array_wrapper_free(array_wrapper * daw)1888 void array_wrapper_free(array_wrapper * daw){
1889 free(daw->data);
1890 free(daw);
1891 }
1892
1893
1894 /* structure to hold required information while the gsl function call
1895 for each callback
1896 */
1897 struct gsl_function_perl {
1898 gsl_function C_gsl_function;
1899 SV * function;
1900 SV * params;
1901 };
1902
1903 struct gsl_function_fdf_perl {
1904 gsl_function_fdf C_gsl_function_fdf;
1905 SV * f;
1906 SV * df;
1907 SV * fdf;
1908 SV * params;
1909 };
1910
1911 struct gsl_monte_function_perl {
1912 gsl_monte_function C_gsl_monte_function;
1913 SV * f;
1914 SV * dim;
1915 SV * params;
1916 };
1917
gsl_function_perl_free(struct gsl_function_perl * perl_f)1918 void gsl_function_perl_free(struct gsl_function_perl * perl_f){
1919 if (perl_f != NULL) {
1920 SvREFCNT_dec(perl_f->function);
1921 SvREFCNT_dec(perl_f->params);
1922 Safefree(perl_f);
1923 }
1924 }
1925
gsl_function_fdf_perl_free(struct gsl_function_fdf_perl * perl_fdf)1926 void gsl_function_fdf_perl_free(struct gsl_function_fdf_perl * perl_fdf){
1927 if (perl_fdf != NULL) {
1928 SvREFCNT_dec(perl_fdf->f);
1929 SvREFCNT_dec(perl_fdf->df);
1930 SvREFCNT_dec(perl_fdf->fdf);
1931 SvREFCNT_dec(perl_fdf->params);
1932 Safefree(perl_fdf);
1933 }
1934 }
1935
1936 /* These functions (C callbacks) calls the perl callbacks.
1937 Info for perl callback can be found using the 'void*params' parameter
1938 */
call_gsl_function_x_params(SV * function,double x,SV * params)1939 double call_gsl_function_x_params(SV* function, double x, SV *params){
1940 unsigned int count;
1941 double y;
1942 dSP;
1943
1944 //fprintf(stderr, "LOOKUP CALLBACK\n");
1945 ENTER;
1946 SAVETMPS;
1947
1948 PUSHMARK(SP);
1949 XPUSHs(sv_2mortal(newSVnv((double)x)));
1950 XPUSHs(params);
1951 PUTBACK; /* make local stack pointer global */
1952
1953 count = call_sv(function, G_SCALAR);
1954 SPAGAIN;
1955
1956 if (count != 1)
1957 croak("Expected to call subroutine in scalar context!");
1958
1959 y = POPn;
1960
1961 PUTBACK; /* make local stack pointer global */
1962 FREETMPS;
1963 LEAVE;
1964
1965 return y;
1966 }
1967
call_gsl_function(double x,void * params)1968 double call_gsl_function(double x , void *params){
1969 struct gsl_function_perl *F=(struct gsl_function_perl*)params;
1970 return call_gsl_function_x_params( F->function, x, F->params );
1971 }
1972
call_gsl_function_fdf_f(double x,void * params)1973 double call_gsl_function_fdf_f(double x , void *params){
1974 struct gsl_function_fdf_perl *F=(struct gsl_function_fdf_perl*)params;
1975 return call_gsl_function_x_params( F->f, x, F->params );
1976 }
1977
call_gsl_function_fdf_df(double x,void * params)1978 double call_gsl_function_fdf_df(double x , void *params){
1979 struct gsl_function_fdf_perl *F=(struct gsl_function_fdf_perl*)params;
1980 return call_gsl_function_x_params( F->df, x, F->params );
1981 }
1982
call_gsl_function_fdf_fdf(double x,void * params,double * f,double * df)1983 void call_gsl_function_fdf_fdf(double x , void *params, double *f, double *df ){
1984 struct gsl_function_fdf_perl *F=(struct gsl_function_fdf_perl*)params;
1985
1986 dSP;
1987
1988 ENTER;
1989 SAVETMPS;
1990
1991 PUSHMARK(SP);
1992 EXTEND(SP, 2);
1993 PUSHs(sv_2mortal(newSVnv((double)x)));
1994 PUSHs(F->params);
1995 PUTBACK; /* make local stack pointer global */
1996
1997 {
1998 unsigned int count = call_sv(F->fdf, G_ARRAY);
1999 SPAGAIN;
2000
2001 if (count != 2)
2002 croak( "Expected two return values, got %d", count );
2003 }
2004
2005 *df = POPn;
2006 *f = POPn;
2007
2008 PUTBACK; /* make local stack pointer global */
2009 FREETMPS;
2010 LEAVE;
2011 }
2012
call_gsl_monte_function(double * x_array,size_t dim,void * params)2013 double call_gsl_monte_function(double *x_array , size_t dim, void *params){
2014 struct gsl_monte_function_perl *F=(struct gsl_monte_function_perl*)params;
2015 unsigned int count;
2016 unsigned int i;
2017 AV* perl_array;
2018 double y;
2019 dSP;
2020
2021 //fprintf(stderr, "LOOKUP CALLBACK\n");
2022 ENTER;
2023 SAVETMPS;
2024
2025 PUSHMARK(SP);
2026 perl_array=newAV();
2027 sv_2mortal((SV*)perl_array);
2028 XPUSHs(sv_2mortal(newRV((SV *)perl_array)));
2029 for(i=0; i<dim; i++) {
2030 /* no mortal : it is referenced by the array */
2031 av_push(perl_array, newSVnv(x_array[i]));
2032 }
2033 XPUSHs(sv_2mortal(newSViv(dim)));
2034 XPUSHs(F->params);
2035 PUTBACK; /* make local stack pointer global */
2036
2037 count = call_sv(F->f, G_SCALAR);
2038 SPAGAIN;
2039
2040 if (count != 1)
2041 croak("Expected to call subroutine in scalar context!");
2042
2043 y = POPn;
2044
2045 PUTBACK; /* make local stack pointer global */
2046 FREETMPS;
2047 LEAVE;
2048
2049 return y;
2050 }
2051
2052
gsl_function_fdf_extract(char * param_name,HV * hash,SV * func[])2053 void gsl_function_fdf_extract( char* param_name, HV* hash, SV* func[] ) {
2054 static const char *keys[3] = { "f", "df", "fdf" };
2055
2056 int ikey;
2057
2058 for ( ikey = 0 ; ikey < 3 ; ++ikey ) {
2059 func[ikey] = 0;
2060 const char* key = keys[ikey];
2061 /* it just so happens that strlen(keys[ikey]) == ikey + 1 */
2062 SV** pp_sv = hv_fetch( hash, key, ikey+1, 0 );
2063 SV* function;
2064
2065 if ( !pp_sv )
2066 croak("Math::GSL : %s: missing key %s!", param_name, key);
2067
2068 function = *pp_sv;
2069
2070 if ( SvPOK(function) || ( SvROK( function ) && SvTYPE(SvRV(function)) == SVt_PVCV ) ) {
2071 /* hold on to SV after the enclosing hash goes away */
2072 SvREFCNT_inc( function );
2073 func[ikey] = function;
2074 }
2075 else {
2076 croak( "Math::GSL : %s: key %s is not a reference to code!", param_name, key);
2077 }
2078 }
2079 }
2080
2081
2082
2083 #include "gsl/gsl_eigen.h"
2084 #include "gsl/gsl_complex.h"
2085 #include "gsl/gsl_vector_complex.h"
2086
2087
2088 SWIGINTERN int
SWIG_PERL_DECL_ARGS_2(SV * obj,unsigned long * val)2089 SWIG_AsVal_unsigned_SS_long SWIG_PERL_DECL_ARGS_2(SV *obj, unsigned long *val)
2090 {
2091 if (SvUOK(obj)) {
2092 UV v = SvUV(obj);
2093 if (UVSIZE <= sizeof(*val) || v <= ULONG_MAX) {
2094 if (val) *val = v;
2095 return SWIG_OK;
2096 }
2097 return SWIG_OverflowError;
2098 } else if (SvIOK(obj)) {
2099 IV v = SvIV(obj);
2100 if (v >= 0 && (IVSIZE <= sizeof(*val) || v <= ULONG_MAX)) {
2101 if (val) *val = v;
2102 return SWIG_OK;
2103 }
2104 return SWIG_OverflowError;
2105 } else {
2106 int dispatch = 0;
2107 const char *nptr = SvPV_nolen(obj);
2108 if (nptr) {
2109 char *endptr;
2110 unsigned long v;
2111 errno = 0;
2112 v = strtoul(nptr, &endptr,0);
2113 if (errno == ERANGE) {
2114 errno = 0;
2115 return SWIG_OverflowError;
2116 } else {
2117 if (*endptr == '\0') {
2118 if (val) *val = v;
2119 return SWIG_Str2NumCast(SWIG_OK);
2120 }
2121 }
2122 }
2123 if (!dispatch) {
2124 double d;
2125 int res = SWIG_AddCast(SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(obj,&d));
2126 if (SWIG_IsOK(res) && SWIG_CanCastAsInteger(&d, 0, ULONG_MAX)) {
2127 if (val) *val = (unsigned long)(d);
2128 return res;
2129 }
2130 }
2131 }
2132 return SWIG_TypeError;
2133 }
2134
2135
2136 #if defined(LLONG_MAX) && !defined(SWIG_LONG_LONG_AVAILABLE)
2137 # define SWIG_LONG_LONG_AVAILABLE
2138 #endif
2139
2140
2141 #ifdef SWIG_LONG_LONG_AVAILABLE
2142 SWIGINTERN int
SWIG_PERL_DECL_ARGS_2(SV * obj,unsigned long long * val)2143 SWIG_AsVal_unsigned_SS_long_SS_long SWIG_PERL_DECL_ARGS_2(SV *obj, unsigned long long *val)
2144 {
2145 if (SvUOK(obj)) {
2146 /* pretty sure this should be conditional on
2147 * (UVSIZE <= sizeof(*val) || v <= ULLONG_MAX) */
2148 if (val) *val = SvUV(obj);
2149 return SWIG_OK;
2150 } else if (SvIOK(obj)) {
2151 IV v = SvIV(obj);
2152 if (v >= 0 && (IVSIZE <= sizeof(*val) || v <= ULLONG_MAX)) {
2153 if (val) *val = v;
2154 return SWIG_OK;
2155 } else {
2156 return SWIG_OverflowError;
2157 }
2158 } else {
2159 int dispatch = 0;
2160 const char *nptr = SvPV_nolen(obj);
2161 if (nptr) {
2162 char *endptr;
2163 unsigned long long v;
2164 errno = 0;
2165 v = strtoull(nptr, &endptr,0);
2166 if (errno == ERANGE) {
2167 errno = 0;
2168 return SWIG_OverflowError;
2169 } else {
2170 if (*endptr == '\0') {
2171 if (val) *val = v;
2172 return SWIG_Str2NumCast(SWIG_OK);
2173 }
2174 }
2175 }
2176 if (!dispatch) {
2177 const double mant_max = 1LL << DBL_MANT_DIG;
2178 double d;
2179 int res = SWIG_AddCast(SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(obj,&d));
2180 if (SWIG_IsOK(res) && SWIG_CanCastAsInteger(&d, 0, mant_max)) {
2181 if (val) *val = (unsigned long long)(d);
2182 return res;
2183 }
2184 }
2185 }
2186 return SWIG_TypeError;
2187 }
2188 #endif
2189
2190
2191 SWIGINTERNINLINE int
SWIG_PERL_DECL_ARGS_2(SV * obj,size_t * val)2192 SWIG_AsVal_size_t SWIG_PERL_DECL_ARGS_2(SV * obj, size_t *val)
2193 {
2194 int res = SWIG_TypeError;
2195 #ifdef SWIG_LONG_LONG_AVAILABLE
2196 if (sizeof(size_t) <= sizeof(unsigned long)) {
2197 #endif
2198 unsigned long v;
2199 res = SWIG_AsVal_unsigned_SS_long SWIG_PERL_CALL_ARGS_2(obj, val ? &v : 0);
2200 if (SWIG_IsOK(res) && val) *val = (size_t)(v);
2201 #ifdef SWIG_LONG_LONG_AVAILABLE
2202 } else if (sizeof(size_t) <= sizeof(unsigned long long)) {
2203 unsigned long long v;
2204 res = SWIG_AsVal_unsigned_SS_long_SS_long SWIG_PERL_CALL_ARGS_2(obj, val ? &v : 0);
2205 if (SWIG_IsOK(res) && val) *val = (size_t)(v);
2206 }
2207 #endif
2208 return res;
2209 }
2210
2211
2212 SWIGINTERNINLINE SV *
SWIG_PERL_DECL_ARGS_1(unsigned long value)2213 SWIG_From_unsigned_SS_long SWIG_PERL_DECL_ARGS_1(unsigned long value)
2214 {
2215 SV *sv;
2216 if (UVSIZE >= sizeof(value) || value <= UV_MAX)
2217 sv = newSVuv(value);
2218 else
2219 sv = newSVpvf("%lu", value);
2220 return sv_2mortal(sv);
2221 }
2222
2223
2224 #include <stdio.h>
2225 #if (defined(_MSC_VER) && (_MSC_VER < 1900)) || defined(__BORLANDC__) || defined(_WATCOM)
2226 # ifndef snprintf
2227 # define snprintf _snprintf
2228 # endif
2229 #endif
2230
2231
2232 #ifdef SWIG_LONG_LONG_AVAILABLE
2233 SWIGINTERNINLINE SV *
SWIG_PERL_DECL_ARGS_1(unsigned long long value)2234 SWIG_From_unsigned_SS_long_SS_long SWIG_PERL_DECL_ARGS_1(unsigned long long value)
2235 {
2236 SV *sv;
2237 if (UVSIZE >= sizeof(value) || value <= UV_MAX)
2238 sv = newSVuv((UV)(value));
2239 else {
2240 //sv = newSVpvf("%llu", value); doesn't work in non 64bit Perl
2241 char temp[256];
2242 sprintf(temp, "%llu", value);
2243 sv = newSVpv(temp, 0);
2244 }
2245 return sv_2mortal(sv);
2246 }
2247 #endif
2248
2249
2250 SWIGINTERNINLINE SV *
SWIG_PERL_DECL_ARGS_1(size_t value)2251 SWIG_From_size_t SWIG_PERL_DECL_ARGS_1(size_t value)
2252 {
2253 #ifdef SWIG_LONG_LONG_AVAILABLE
2254 if (sizeof(size_t) <= sizeof(unsigned long)) {
2255 #endif
2256 return SWIG_From_unsigned_SS_long SWIG_PERL_CALL_ARGS_1((unsigned long)(value));
2257 #ifdef SWIG_LONG_LONG_AVAILABLE
2258 } else {
2259 /* assume sizeof(size_t) <= sizeof(unsigned long long) */
2260 return SWIG_From_unsigned_SS_long_SS_long SWIG_PERL_CALL_ARGS_1((unsigned long long)(value));
2261 }
2262 #endif
2263 }
2264
2265
2266 SWIGINTERN int
SWIG_PERL_DECL_ARGS_2(SV * obj,unsigned int * val)2267 SWIG_AsVal_unsigned_SS_int SWIG_PERL_DECL_ARGS_2(SV * obj, unsigned int *val)
2268 {
2269 unsigned long v;
2270 int res = SWIG_AsVal_unsigned_SS_long SWIG_PERL_CALL_ARGS_2(obj, &v);
2271 if (SWIG_IsOK(res)) {
2272 if ((v > UINT_MAX)) {
2273 return SWIG_OverflowError;
2274 } else {
2275 if (val) *val = (unsigned int)(v);
2276 }
2277 }
2278 return res;
2279 }
2280
2281 #ifdef __cplusplus
2282 extern "C" {
2283 #endif
2284
2285 #ifdef PERL_OBJECT
2286 #define MAGIC_CLASS _wrap_Math__GSL__Eigen_var::
2287 class _wrap_Math__GSL__Eigen_var : public CPerlObj {
2288 public:
2289 #else
2290 #define MAGIC_CLASS
2291 #endif
swig_magic_readonly(pTHX_ SV * SWIGUNUSEDPARM (sv),MAGIC * SWIGUNUSEDPARM (mg))2292 SWIGCLASS_STATIC int swig_magic_readonly(pTHX_ SV *SWIGUNUSEDPARM(sv), MAGIC *SWIGUNUSEDPARM(mg)) {
2293 MAGIC_PPERL
2294 croak("Value is read-only.");
2295 return 0;
2296 }
2297
2298
2299 #ifdef PERL_OBJECT
2300 };
2301 #endif
2302
2303 #ifdef __cplusplus
2304 }
2305 #endif
2306
2307 #ifdef __cplusplus
2308 extern "C" {
2309 #endif
XS(_wrap_gsl_error)2310 XS(_wrap_gsl_error) {
2311 {
2312 char *arg1 = (char *) 0 ;
2313 char *arg2 = (char *) 0 ;
2314 int arg3 ;
2315 int arg4 ;
2316 int res1 ;
2317 char *buf1 = 0 ;
2318 int alloc1 = 0 ;
2319 int res2 ;
2320 char *buf2 = 0 ;
2321 int alloc2 = 0 ;
2322 int val3 ;
2323 int ecode3 = 0 ;
2324 int val4 ;
2325 int ecode4 = 0 ;
2326 int argvi = 0;
2327 dXSARGS;
2328
2329 if ((items < 4) || (items > 4)) {
2330 SWIG_croak("Usage: gsl_error(reason,file,line,gsl_errno);");
2331 }
2332 res1 = SWIG_AsCharPtrAndSize(ST(0), &buf1, NULL, &alloc1);
2333 if (!SWIG_IsOK(res1)) {
2334 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_error" "', argument " "1"" of type '" "char const *""'");
2335 }
2336 arg1 = (char *)(buf1);
2337 res2 = SWIG_AsCharPtrAndSize(ST(1), &buf2, NULL, &alloc2);
2338 if (!SWIG_IsOK(res2)) {
2339 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_error" "', argument " "2"" of type '" "char const *""'");
2340 }
2341 arg2 = (char *)(buf2);
2342 ecode3 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
2343 if (!SWIG_IsOK(ecode3)) {
2344 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_error" "', argument " "3"" of type '" "int""'");
2345 }
2346 arg3 = (int)(val3);
2347 ecode4 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(3), &val4);
2348 if (!SWIG_IsOK(ecode4)) {
2349 SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "gsl_error" "', argument " "4"" of type '" "int""'");
2350 }
2351 arg4 = (int)(val4);
2352 gsl_error((char const *)arg1,(char const *)arg2,arg3,arg4);
2353 ST(argvi) = &PL_sv_undef;
2354 if (alloc1 == SWIG_NEWOBJ) free((char*)buf1);
2355 if (alloc2 == SWIG_NEWOBJ) free((char*)buf2);
2356
2357
2358 XSRETURN(argvi);
2359 fail:
2360 if (alloc1 == SWIG_NEWOBJ) free((char*)buf1);
2361 if (alloc2 == SWIG_NEWOBJ) free((char*)buf2);
2362
2363
2364 SWIG_croak_null();
2365 }
2366 }
2367
2368
XS(_wrap_gsl_stream_printf)2369 XS(_wrap_gsl_stream_printf) {
2370 {
2371 char *arg1 = (char *) 0 ;
2372 char *arg2 = (char *) 0 ;
2373 int arg3 ;
2374 char *arg4 = (char *) 0 ;
2375 int res1 ;
2376 char *buf1 = 0 ;
2377 int alloc1 = 0 ;
2378 int res2 ;
2379 char *buf2 = 0 ;
2380 int alloc2 = 0 ;
2381 int val3 ;
2382 int ecode3 = 0 ;
2383 int res4 ;
2384 char *buf4 = 0 ;
2385 int alloc4 = 0 ;
2386 int argvi = 0;
2387 dXSARGS;
2388
2389 if ((items < 4) || (items > 4)) {
2390 SWIG_croak("Usage: gsl_stream_printf(label,file,line,reason);");
2391 }
2392 res1 = SWIG_AsCharPtrAndSize(ST(0), &buf1, NULL, &alloc1);
2393 if (!SWIG_IsOK(res1)) {
2394 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_stream_printf" "', argument " "1"" of type '" "char const *""'");
2395 }
2396 arg1 = (char *)(buf1);
2397 res2 = SWIG_AsCharPtrAndSize(ST(1), &buf2, NULL, &alloc2);
2398 if (!SWIG_IsOK(res2)) {
2399 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_stream_printf" "', argument " "2"" of type '" "char const *""'");
2400 }
2401 arg2 = (char *)(buf2);
2402 ecode3 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
2403 if (!SWIG_IsOK(ecode3)) {
2404 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_stream_printf" "', argument " "3"" of type '" "int""'");
2405 }
2406 arg3 = (int)(val3);
2407 res4 = SWIG_AsCharPtrAndSize(ST(3), &buf4, NULL, &alloc4);
2408 if (!SWIG_IsOK(res4)) {
2409 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_stream_printf" "', argument " "4"" of type '" "char const *""'");
2410 }
2411 arg4 = (char *)(buf4);
2412 gsl_stream_printf((char const *)arg1,(char const *)arg2,arg3,(char const *)arg4);
2413 ST(argvi) = &PL_sv_undef;
2414 if (alloc1 == SWIG_NEWOBJ) free((char*)buf1);
2415 if (alloc2 == SWIG_NEWOBJ) free((char*)buf2);
2416
2417 if (alloc4 == SWIG_NEWOBJ) free((char*)buf4);
2418 XSRETURN(argvi);
2419 fail:
2420 if (alloc1 == SWIG_NEWOBJ) free((char*)buf1);
2421 if (alloc2 == SWIG_NEWOBJ) free((char*)buf2);
2422
2423 if (alloc4 == SWIG_NEWOBJ) free((char*)buf4);
2424 SWIG_croak_null();
2425 }
2426 }
2427
2428
XS(_wrap_gsl_strerror)2429 XS(_wrap_gsl_strerror) {
2430 {
2431 int arg1 ;
2432 int val1 ;
2433 int ecode1 = 0 ;
2434 int argvi = 0;
2435 char *result = 0 ;
2436 dXSARGS;
2437
2438 if ((items < 1) || (items > 1)) {
2439 SWIG_croak("Usage: gsl_strerror(gsl_errno);");
2440 }
2441 ecode1 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
2442 if (!SWIG_IsOK(ecode1)) {
2443 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_strerror" "', argument " "1"" of type '" "int""'");
2444 }
2445 arg1 = (int)(val1);
2446 result = (char *)gsl_strerror(arg1);
2447 ST(argvi) = SWIG_FromCharPtr((const char *)result); argvi++ ;
2448
2449 XSRETURN(argvi);
2450 fail:
2451
2452 SWIG_croak_null();
2453 }
2454 }
2455
2456
XS(_wrap_gsl_set_error_handler)2457 XS(_wrap_gsl_set_error_handler) {
2458 {
2459 gsl_error_handler_t *arg1 = (gsl_error_handler_t *) 0 ;
2460 int argvi = 0;
2461 gsl_error_handler_t *result = 0 ;
2462 dXSARGS;
2463
2464 if ((items < 1) || (items > 1)) {
2465 SWIG_croak("Usage: gsl_set_error_handler(new_handler);");
2466 }
2467 {
2468 int res = SWIG_ConvertFunctionPtr(ST(0), (void**)(&arg1), SWIGTYPE_p_f_p_q_const__char_p_q_const__char_int_int__void);
2469 if (!SWIG_IsOK(res)) {
2470 SWIG_exception_fail(SWIG_ArgError(res), "in method '" "gsl_set_error_handler" "', argument " "1"" of type '" "gsl_error_handler_t *""'");
2471 }
2472 }
2473 result = (gsl_error_handler_t *)gsl_set_error_handler(arg1);
2474 ST(argvi) = SWIG_NewFunctionPtrObj((void *)(result), SWIGTYPE_p_f_p_q_const__char_p_q_const__char_int_int__void); argvi++ ;
2475
2476 XSRETURN(argvi);
2477 fail:
2478
2479 SWIG_croak_null();
2480 }
2481 }
2482
2483
XS(_wrap_gsl_set_error_handler_off)2484 XS(_wrap_gsl_set_error_handler_off) {
2485 {
2486 int argvi = 0;
2487 gsl_error_handler_t *result = 0 ;
2488 dXSARGS;
2489
2490 if ((items < 0) || (items > 0)) {
2491 SWIG_croak("Usage: gsl_set_error_handler_off();");
2492 }
2493 result = (gsl_error_handler_t *)gsl_set_error_handler_off();
2494 ST(argvi) = SWIG_NewFunctionPtrObj((void *)(result), SWIGTYPE_p_f_p_q_const__char_p_q_const__char_int_int__void); argvi++ ;
2495 XSRETURN(argvi);
2496 fail:
2497 SWIG_croak_null();
2498 }
2499 }
2500
2501
XS(_wrap_gsl_set_stream_handler)2502 XS(_wrap_gsl_set_stream_handler) {
2503 {
2504 gsl_stream_handler_t *arg1 = (gsl_stream_handler_t *) 0 ;
2505 int argvi = 0;
2506 gsl_stream_handler_t *result = 0 ;
2507 dXSARGS;
2508
2509 if ((items < 1) || (items > 1)) {
2510 SWIG_croak("Usage: gsl_set_stream_handler(new_handler);");
2511 }
2512 {
2513 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);
2514 if (!SWIG_IsOK(res)) {
2515 SWIG_exception_fail(SWIG_ArgError(res), "in method '" "gsl_set_stream_handler" "', argument " "1"" of type '" "gsl_stream_handler_t *""'");
2516 }
2517 }
2518 result = (gsl_stream_handler_t *)gsl_set_stream_handler(arg1);
2519 ST(argvi) = SWIG_NewFunctionPtrObj((void *)(result), SWIGTYPE_p_f_p_q_const__char_p_q_const__char_int_p_q_const__char__void); argvi++ ;
2520
2521 XSRETURN(argvi);
2522 fail:
2523
2524 SWIG_croak_null();
2525 }
2526 }
2527
2528
XS(_wrap_gsl_set_stream)2529 XS(_wrap_gsl_set_stream) {
2530 {
2531 FILE *arg1 = (FILE *) 0 ;
2532 void *argp1 = 0 ;
2533 int res1 = 0 ;
2534 int argvi = 0;
2535 FILE *result = 0 ;
2536 dXSARGS;
2537
2538 if ((items < 1) || (items > 1)) {
2539 SWIG_croak("Usage: gsl_set_stream(new_stream);");
2540 }
2541 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_FILE, 0 | 0 );
2542 if (!SWIG_IsOK(res1)) {
2543 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_set_stream" "', argument " "1"" of type '" "FILE *""'");
2544 }
2545 arg1 = (FILE *)(argp1);
2546 result = (FILE *)gsl_set_stream(arg1);
2547 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_FILE, 0 | 0); argvi++ ;
2548
2549 XSRETURN(argvi);
2550 fail:
2551
2552 SWIG_croak_null();
2553 }
2554 }
2555
2556
XS(_wrap_gsl_eigen_symm_workspace_size_set)2557 XS(_wrap_gsl_eigen_symm_workspace_size_set) {
2558 {
2559 gsl_eigen_symm_workspace *arg1 = (gsl_eigen_symm_workspace *) 0 ;
2560 size_t arg2 ;
2561 void *argp1 = 0 ;
2562 int res1 = 0 ;
2563 size_t val2 ;
2564 int ecode2 = 0 ;
2565 int argvi = 0;
2566 dXSARGS;
2567
2568 if ((items < 2) || (items > 2)) {
2569 SWIG_croak("Usage: gsl_eigen_symm_workspace_size_set(self,size);");
2570 }
2571 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_eigen_symm_workspace, 0 | 0 );
2572 if (!SWIG_IsOK(res1)) {
2573 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_symm_workspace_size_set" "', argument " "1"" of type '" "gsl_eigen_symm_workspace *""'");
2574 }
2575 arg1 = (gsl_eigen_symm_workspace *)(argp1);
2576 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
2577 if (!SWIG_IsOK(ecode2)) {
2578 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_eigen_symm_workspace_size_set" "', argument " "2"" of type '" "size_t""'");
2579 }
2580 arg2 = (size_t)(val2);
2581 if (arg1) (arg1)->size = arg2;
2582 ST(argvi) = &PL_sv_undef;
2583
2584
2585 XSRETURN(argvi);
2586 fail:
2587
2588
2589 SWIG_croak_null();
2590 }
2591 }
2592
2593
XS(_wrap_gsl_eigen_symm_workspace_size_get)2594 XS(_wrap_gsl_eigen_symm_workspace_size_get) {
2595 {
2596 gsl_eigen_symm_workspace *arg1 = (gsl_eigen_symm_workspace *) 0 ;
2597 void *argp1 = 0 ;
2598 int res1 = 0 ;
2599 int argvi = 0;
2600 size_t result;
2601 dXSARGS;
2602
2603 if ((items < 1) || (items > 1)) {
2604 SWIG_croak("Usage: gsl_eigen_symm_workspace_size_get(self);");
2605 }
2606 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_eigen_symm_workspace, 0 | 0 );
2607 if (!SWIG_IsOK(res1)) {
2608 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_symm_workspace_size_get" "', argument " "1"" of type '" "gsl_eigen_symm_workspace *""'");
2609 }
2610 arg1 = (gsl_eigen_symm_workspace *)(argp1);
2611 result = ((arg1)->size);
2612 ST(argvi) = SWIG_From_size_t SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
2613
2614 XSRETURN(argvi);
2615 fail:
2616
2617 SWIG_croak_null();
2618 }
2619 }
2620
2621
XS(_wrap_gsl_eigen_symm_workspace_d_set)2622 XS(_wrap_gsl_eigen_symm_workspace_d_set) {
2623 {
2624 gsl_eigen_symm_workspace *arg1 = (gsl_eigen_symm_workspace *) 0 ;
2625 double *arg2 = (double *) 0 ;
2626 void *argp1 = 0 ;
2627 int res1 = 0 ;
2628 void *argp2 = 0 ;
2629 int res2 = 0 ;
2630 int argvi = 0;
2631 dXSARGS;
2632
2633 if ((items < 2) || (items > 2)) {
2634 SWIG_croak("Usage: gsl_eigen_symm_workspace_d_set(self,d);");
2635 }
2636 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_eigen_symm_workspace, 0 | 0 );
2637 if (!SWIG_IsOK(res1)) {
2638 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_symm_workspace_d_set" "', argument " "1"" of type '" "gsl_eigen_symm_workspace *""'");
2639 }
2640 arg1 = (gsl_eigen_symm_workspace *)(argp1);
2641 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_double, SWIG_POINTER_DISOWN | 0 );
2642 if (!SWIG_IsOK(res2)) {
2643 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_eigen_symm_workspace_d_set" "', argument " "2"" of type '" "double *""'");
2644 }
2645 arg2 = (double *)(argp2);
2646 if (arg1) (arg1)->d = arg2;
2647 ST(argvi) = &PL_sv_undef;
2648
2649
2650 XSRETURN(argvi);
2651 fail:
2652
2653
2654 SWIG_croak_null();
2655 }
2656 }
2657
2658
XS(_wrap_gsl_eigen_symm_workspace_d_get)2659 XS(_wrap_gsl_eigen_symm_workspace_d_get) {
2660 {
2661 gsl_eigen_symm_workspace *arg1 = (gsl_eigen_symm_workspace *) 0 ;
2662 void *argp1 = 0 ;
2663 int res1 = 0 ;
2664 int argvi = 0;
2665 double *result = 0 ;
2666 dXSARGS;
2667
2668 if ((items < 1) || (items > 1)) {
2669 SWIG_croak("Usage: gsl_eigen_symm_workspace_d_get(self);");
2670 }
2671 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_eigen_symm_workspace, 0 | 0 );
2672 if (!SWIG_IsOK(res1)) {
2673 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_symm_workspace_d_get" "', argument " "1"" of type '" "gsl_eigen_symm_workspace *""'");
2674 }
2675 arg1 = (gsl_eigen_symm_workspace *)(argp1);
2676 result = (double *) ((arg1)->d);
2677 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_double, 0 | 0); argvi++ ;
2678
2679 XSRETURN(argvi);
2680 fail:
2681
2682 SWIG_croak_null();
2683 }
2684 }
2685
2686
XS(_wrap_gsl_eigen_symm_workspace_sd_set)2687 XS(_wrap_gsl_eigen_symm_workspace_sd_set) {
2688 {
2689 gsl_eigen_symm_workspace *arg1 = (gsl_eigen_symm_workspace *) 0 ;
2690 double *arg2 = (double *) 0 ;
2691 void *argp1 = 0 ;
2692 int res1 = 0 ;
2693 void *argp2 = 0 ;
2694 int res2 = 0 ;
2695 int argvi = 0;
2696 dXSARGS;
2697
2698 if ((items < 2) || (items > 2)) {
2699 SWIG_croak("Usage: gsl_eigen_symm_workspace_sd_set(self,sd);");
2700 }
2701 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_eigen_symm_workspace, 0 | 0 );
2702 if (!SWIG_IsOK(res1)) {
2703 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_symm_workspace_sd_set" "', argument " "1"" of type '" "gsl_eigen_symm_workspace *""'");
2704 }
2705 arg1 = (gsl_eigen_symm_workspace *)(argp1);
2706 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_double, SWIG_POINTER_DISOWN | 0 );
2707 if (!SWIG_IsOK(res2)) {
2708 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_eigen_symm_workspace_sd_set" "', argument " "2"" of type '" "double *""'");
2709 }
2710 arg2 = (double *)(argp2);
2711 if (arg1) (arg1)->sd = arg2;
2712 ST(argvi) = &PL_sv_undef;
2713
2714
2715 XSRETURN(argvi);
2716 fail:
2717
2718
2719 SWIG_croak_null();
2720 }
2721 }
2722
2723
XS(_wrap_gsl_eigen_symm_workspace_sd_get)2724 XS(_wrap_gsl_eigen_symm_workspace_sd_get) {
2725 {
2726 gsl_eigen_symm_workspace *arg1 = (gsl_eigen_symm_workspace *) 0 ;
2727 void *argp1 = 0 ;
2728 int res1 = 0 ;
2729 int argvi = 0;
2730 double *result = 0 ;
2731 dXSARGS;
2732
2733 if ((items < 1) || (items > 1)) {
2734 SWIG_croak("Usage: gsl_eigen_symm_workspace_sd_get(self);");
2735 }
2736 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_eigen_symm_workspace, 0 | 0 );
2737 if (!SWIG_IsOK(res1)) {
2738 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_symm_workspace_sd_get" "', argument " "1"" of type '" "gsl_eigen_symm_workspace *""'");
2739 }
2740 arg1 = (gsl_eigen_symm_workspace *)(argp1);
2741 result = (double *) ((arg1)->sd);
2742 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_double, 0 | 0); argvi++ ;
2743
2744 XSRETURN(argvi);
2745 fail:
2746
2747 SWIG_croak_null();
2748 }
2749 }
2750
2751
XS(_wrap_new_gsl_eigen_symm_workspace)2752 XS(_wrap_new_gsl_eigen_symm_workspace) {
2753 {
2754 int argvi = 0;
2755 gsl_eigen_symm_workspace *result = 0 ;
2756 dXSARGS;
2757
2758 if ((items < 0) || (items > 0)) {
2759 SWIG_croak("Usage: new_gsl_eigen_symm_workspace();");
2760 }
2761 result = (gsl_eigen_symm_workspace *)calloc(1, sizeof(gsl_eigen_symm_workspace));
2762 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_eigen_symm_workspace, SWIG_OWNER | SWIG_SHADOW); argvi++ ;
2763 XSRETURN(argvi);
2764 fail:
2765 SWIG_croak_null();
2766 }
2767 }
2768
2769
XS(_wrap_delete_gsl_eigen_symm_workspace)2770 XS(_wrap_delete_gsl_eigen_symm_workspace) {
2771 {
2772 gsl_eigen_symm_workspace *arg1 = (gsl_eigen_symm_workspace *) 0 ;
2773 void *argp1 = 0 ;
2774 int res1 = 0 ;
2775 int argvi = 0;
2776 dXSARGS;
2777
2778 if ((items < 1) || (items > 1)) {
2779 SWIG_croak("Usage: delete_gsl_eigen_symm_workspace(self);");
2780 }
2781 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_eigen_symm_workspace, SWIG_POINTER_DISOWN | 0 );
2782 if (!SWIG_IsOK(res1)) {
2783 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "delete_gsl_eigen_symm_workspace" "', argument " "1"" of type '" "gsl_eigen_symm_workspace *""'");
2784 }
2785 arg1 = (gsl_eigen_symm_workspace *)(argp1);
2786 free((char *) arg1);
2787 ST(argvi) = &PL_sv_undef;
2788
2789 XSRETURN(argvi);
2790 fail:
2791
2792 SWIG_croak_null();
2793 }
2794 }
2795
2796
XS(_wrap_gsl_eigen_symm_alloc)2797 XS(_wrap_gsl_eigen_symm_alloc) {
2798 {
2799 size_t arg1 ;
2800 size_t val1 ;
2801 int ecode1 = 0 ;
2802 int argvi = 0;
2803 gsl_eigen_symm_workspace *result = 0 ;
2804 dXSARGS;
2805
2806 if ((items < 1) || (items > 1)) {
2807 SWIG_croak("Usage: gsl_eigen_symm_alloc(n);");
2808 }
2809 ecode1 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
2810 if (!SWIG_IsOK(ecode1)) {
2811 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_eigen_symm_alloc" "', argument " "1"" of type '" "size_t""'");
2812 }
2813 arg1 = (size_t)(val1);
2814 result = (gsl_eigen_symm_workspace *)gsl_eigen_symm_alloc(arg1);
2815 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_eigen_symm_workspace, 0 | SWIG_SHADOW); argvi++ ;
2816
2817 XSRETURN(argvi);
2818 fail:
2819
2820 SWIG_croak_null();
2821 }
2822 }
2823
2824
XS(_wrap_gsl_eigen_symm_free)2825 XS(_wrap_gsl_eigen_symm_free) {
2826 {
2827 gsl_eigen_symm_workspace *arg1 = (gsl_eigen_symm_workspace *) 0 ;
2828 void *argp1 = 0 ;
2829 int res1 = 0 ;
2830 int argvi = 0;
2831 dXSARGS;
2832
2833 if ((items < 1) || (items > 1)) {
2834 SWIG_croak("Usage: gsl_eigen_symm_free(w);");
2835 }
2836 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_eigen_symm_workspace, 0 | 0 );
2837 if (!SWIG_IsOK(res1)) {
2838 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_symm_free" "', argument " "1"" of type '" "gsl_eigen_symm_workspace *""'");
2839 }
2840 arg1 = (gsl_eigen_symm_workspace *)(argp1);
2841 gsl_eigen_symm_free(arg1);
2842 ST(argvi) = &PL_sv_undef;
2843
2844 XSRETURN(argvi);
2845 fail:
2846
2847 SWIG_croak_null();
2848 }
2849 }
2850
2851
XS(_wrap_gsl_eigen_symm)2852 XS(_wrap_gsl_eigen_symm) {
2853 {
2854 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
2855 gsl_vector *arg2 = (gsl_vector *) 0 ;
2856 gsl_eigen_symm_workspace *arg3 = (gsl_eigen_symm_workspace *) 0 ;
2857 void *argp1 = 0 ;
2858 int res1 = 0 ;
2859 void *argp2 = 0 ;
2860 int res2 = 0 ;
2861 void *argp3 = 0 ;
2862 int res3 = 0 ;
2863 int argvi = 0;
2864 int result;
2865 dXSARGS;
2866
2867 if ((items < 3) || (items > 3)) {
2868 SWIG_croak("Usage: gsl_eigen_symm(A,eval,w);");
2869 }
2870 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
2871 if (!SWIG_IsOK(res1)) {
2872 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_symm" "', argument " "1"" of type '" "gsl_matrix *""'");
2873 }
2874 arg1 = (gsl_matrix *)(argp1);
2875 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
2876 if (!SWIG_IsOK(res2)) {
2877 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_eigen_symm" "', argument " "2"" of type '" "gsl_vector *""'");
2878 }
2879 arg2 = (gsl_vector *)(argp2);
2880 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_eigen_symm_workspace, 0 | 0 );
2881 if (!SWIG_IsOK(res3)) {
2882 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_eigen_symm" "', argument " "3"" of type '" "gsl_eigen_symm_workspace *""'");
2883 }
2884 arg3 = (gsl_eigen_symm_workspace *)(argp3);
2885 result = (int)gsl_eigen_symm(arg1,arg2,arg3);
2886 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
2887
2888
2889
2890 XSRETURN(argvi);
2891 fail:
2892
2893
2894
2895 SWIG_croak_null();
2896 }
2897 }
2898
2899
XS(_wrap_gsl_eigen_symmv_workspace_size_set)2900 XS(_wrap_gsl_eigen_symmv_workspace_size_set) {
2901 {
2902 gsl_eigen_symmv_workspace *arg1 = (gsl_eigen_symmv_workspace *) 0 ;
2903 size_t arg2 ;
2904 void *argp1 = 0 ;
2905 int res1 = 0 ;
2906 size_t val2 ;
2907 int ecode2 = 0 ;
2908 int argvi = 0;
2909 dXSARGS;
2910
2911 if ((items < 2) || (items > 2)) {
2912 SWIG_croak("Usage: gsl_eigen_symmv_workspace_size_set(self,size);");
2913 }
2914 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_eigen_symmv_workspace, 0 | 0 );
2915 if (!SWIG_IsOK(res1)) {
2916 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_symmv_workspace_size_set" "', argument " "1"" of type '" "gsl_eigen_symmv_workspace *""'");
2917 }
2918 arg1 = (gsl_eigen_symmv_workspace *)(argp1);
2919 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
2920 if (!SWIG_IsOK(ecode2)) {
2921 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_eigen_symmv_workspace_size_set" "', argument " "2"" of type '" "size_t""'");
2922 }
2923 arg2 = (size_t)(val2);
2924 if (arg1) (arg1)->size = arg2;
2925 ST(argvi) = &PL_sv_undef;
2926
2927
2928 XSRETURN(argvi);
2929 fail:
2930
2931
2932 SWIG_croak_null();
2933 }
2934 }
2935
2936
XS(_wrap_gsl_eigen_symmv_workspace_size_get)2937 XS(_wrap_gsl_eigen_symmv_workspace_size_get) {
2938 {
2939 gsl_eigen_symmv_workspace *arg1 = (gsl_eigen_symmv_workspace *) 0 ;
2940 void *argp1 = 0 ;
2941 int res1 = 0 ;
2942 int argvi = 0;
2943 size_t result;
2944 dXSARGS;
2945
2946 if ((items < 1) || (items > 1)) {
2947 SWIG_croak("Usage: gsl_eigen_symmv_workspace_size_get(self);");
2948 }
2949 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_eigen_symmv_workspace, 0 | 0 );
2950 if (!SWIG_IsOK(res1)) {
2951 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_symmv_workspace_size_get" "', argument " "1"" of type '" "gsl_eigen_symmv_workspace *""'");
2952 }
2953 arg1 = (gsl_eigen_symmv_workspace *)(argp1);
2954 result = ((arg1)->size);
2955 ST(argvi) = SWIG_From_size_t SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
2956
2957 XSRETURN(argvi);
2958 fail:
2959
2960 SWIG_croak_null();
2961 }
2962 }
2963
2964
XS(_wrap_gsl_eigen_symmv_workspace_d_set)2965 XS(_wrap_gsl_eigen_symmv_workspace_d_set) {
2966 {
2967 gsl_eigen_symmv_workspace *arg1 = (gsl_eigen_symmv_workspace *) 0 ;
2968 double *arg2 = (double *) 0 ;
2969 void *argp1 = 0 ;
2970 int res1 = 0 ;
2971 void *argp2 = 0 ;
2972 int res2 = 0 ;
2973 int argvi = 0;
2974 dXSARGS;
2975
2976 if ((items < 2) || (items > 2)) {
2977 SWIG_croak("Usage: gsl_eigen_symmv_workspace_d_set(self,d);");
2978 }
2979 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_eigen_symmv_workspace, 0 | 0 );
2980 if (!SWIG_IsOK(res1)) {
2981 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_symmv_workspace_d_set" "', argument " "1"" of type '" "gsl_eigen_symmv_workspace *""'");
2982 }
2983 arg1 = (gsl_eigen_symmv_workspace *)(argp1);
2984 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_double, SWIG_POINTER_DISOWN | 0 );
2985 if (!SWIG_IsOK(res2)) {
2986 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_eigen_symmv_workspace_d_set" "', argument " "2"" of type '" "double *""'");
2987 }
2988 arg2 = (double *)(argp2);
2989 if (arg1) (arg1)->d = arg2;
2990 ST(argvi) = &PL_sv_undef;
2991
2992
2993 XSRETURN(argvi);
2994 fail:
2995
2996
2997 SWIG_croak_null();
2998 }
2999 }
3000
3001
XS(_wrap_gsl_eigen_symmv_workspace_d_get)3002 XS(_wrap_gsl_eigen_symmv_workspace_d_get) {
3003 {
3004 gsl_eigen_symmv_workspace *arg1 = (gsl_eigen_symmv_workspace *) 0 ;
3005 void *argp1 = 0 ;
3006 int res1 = 0 ;
3007 int argvi = 0;
3008 double *result = 0 ;
3009 dXSARGS;
3010
3011 if ((items < 1) || (items > 1)) {
3012 SWIG_croak("Usage: gsl_eigen_symmv_workspace_d_get(self);");
3013 }
3014 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_eigen_symmv_workspace, 0 | 0 );
3015 if (!SWIG_IsOK(res1)) {
3016 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_symmv_workspace_d_get" "', argument " "1"" of type '" "gsl_eigen_symmv_workspace *""'");
3017 }
3018 arg1 = (gsl_eigen_symmv_workspace *)(argp1);
3019 result = (double *) ((arg1)->d);
3020 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_double, 0 | 0); argvi++ ;
3021
3022 XSRETURN(argvi);
3023 fail:
3024
3025 SWIG_croak_null();
3026 }
3027 }
3028
3029
XS(_wrap_gsl_eigen_symmv_workspace_sd_set)3030 XS(_wrap_gsl_eigen_symmv_workspace_sd_set) {
3031 {
3032 gsl_eigen_symmv_workspace *arg1 = (gsl_eigen_symmv_workspace *) 0 ;
3033 double *arg2 = (double *) 0 ;
3034 void *argp1 = 0 ;
3035 int res1 = 0 ;
3036 void *argp2 = 0 ;
3037 int res2 = 0 ;
3038 int argvi = 0;
3039 dXSARGS;
3040
3041 if ((items < 2) || (items > 2)) {
3042 SWIG_croak("Usage: gsl_eigen_symmv_workspace_sd_set(self,sd);");
3043 }
3044 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_eigen_symmv_workspace, 0 | 0 );
3045 if (!SWIG_IsOK(res1)) {
3046 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_symmv_workspace_sd_set" "', argument " "1"" of type '" "gsl_eigen_symmv_workspace *""'");
3047 }
3048 arg1 = (gsl_eigen_symmv_workspace *)(argp1);
3049 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_double, SWIG_POINTER_DISOWN | 0 );
3050 if (!SWIG_IsOK(res2)) {
3051 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_eigen_symmv_workspace_sd_set" "', argument " "2"" of type '" "double *""'");
3052 }
3053 arg2 = (double *)(argp2);
3054 if (arg1) (arg1)->sd = arg2;
3055 ST(argvi) = &PL_sv_undef;
3056
3057
3058 XSRETURN(argvi);
3059 fail:
3060
3061
3062 SWIG_croak_null();
3063 }
3064 }
3065
3066
XS(_wrap_gsl_eigen_symmv_workspace_sd_get)3067 XS(_wrap_gsl_eigen_symmv_workspace_sd_get) {
3068 {
3069 gsl_eigen_symmv_workspace *arg1 = (gsl_eigen_symmv_workspace *) 0 ;
3070 void *argp1 = 0 ;
3071 int res1 = 0 ;
3072 int argvi = 0;
3073 double *result = 0 ;
3074 dXSARGS;
3075
3076 if ((items < 1) || (items > 1)) {
3077 SWIG_croak("Usage: gsl_eigen_symmv_workspace_sd_get(self);");
3078 }
3079 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_eigen_symmv_workspace, 0 | 0 );
3080 if (!SWIG_IsOK(res1)) {
3081 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_symmv_workspace_sd_get" "', argument " "1"" of type '" "gsl_eigen_symmv_workspace *""'");
3082 }
3083 arg1 = (gsl_eigen_symmv_workspace *)(argp1);
3084 result = (double *) ((arg1)->sd);
3085 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_double, 0 | 0); argvi++ ;
3086
3087 XSRETURN(argvi);
3088 fail:
3089
3090 SWIG_croak_null();
3091 }
3092 }
3093
3094
XS(_wrap_gsl_eigen_symmv_workspace_gc_set)3095 XS(_wrap_gsl_eigen_symmv_workspace_gc_set) {
3096 {
3097 gsl_eigen_symmv_workspace *arg1 = (gsl_eigen_symmv_workspace *) 0 ;
3098 double *arg2 = (double *) 0 ;
3099 void *argp1 = 0 ;
3100 int res1 = 0 ;
3101 void *argp2 = 0 ;
3102 int res2 = 0 ;
3103 int argvi = 0;
3104 dXSARGS;
3105
3106 if ((items < 2) || (items > 2)) {
3107 SWIG_croak("Usage: gsl_eigen_symmv_workspace_gc_set(self,gc);");
3108 }
3109 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_eigen_symmv_workspace, 0 | 0 );
3110 if (!SWIG_IsOK(res1)) {
3111 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_symmv_workspace_gc_set" "', argument " "1"" of type '" "gsl_eigen_symmv_workspace *""'");
3112 }
3113 arg1 = (gsl_eigen_symmv_workspace *)(argp1);
3114 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_double, SWIG_POINTER_DISOWN | 0 );
3115 if (!SWIG_IsOK(res2)) {
3116 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_eigen_symmv_workspace_gc_set" "', argument " "2"" of type '" "double *""'");
3117 }
3118 arg2 = (double *)(argp2);
3119 if (arg1) (arg1)->gc = arg2;
3120 ST(argvi) = &PL_sv_undef;
3121
3122
3123 XSRETURN(argvi);
3124 fail:
3125
3126
3127 SWIG_croak_null();
3128 }
3129 }
3130
3131
XS(_wrap_gsl_eigen_symmv_workspace_gc_get)3132 XS(_wrap_gsl_eigen_symmv_workspace_gc_get) {
3133 {
3134 gsl_eigen_symmv_workspace *arg1 = (gsl_eigen_symmv_workspace *) 0 ;
3135 void *argp1 = 0 ;
3136 int res1 = 0 ;
3137 int argvi = 0;
3138 double *result = 0 ;
3139 dXSARGS;
3140
3141 if ((items < 1) || (items > 1)) {
3142 SWIG_croak("Usage: gsl_eigen_symmv_workspace_gc_get(self);");
3143 }
3144 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_eigen_symmv_workspace, 0 | 0 );
3145 if (!SWIG_IsOK(res1)) {
3146 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_symmv_workspace_gc_get" "', argument " "1"" of type '" "gsl_eigen_symmv_workspace *""'");
3147 }
3148 arg1 = (gsl_eigen_symmv_workspace *)(argp1);
3149 result = (double *) ((arg1)->gc);
3150 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_double, 0 | 0); argvi++ ;
3151
3152 XSRETURN(argvi);
3153 fail:
3154
3155 SWIG_croak_null();
3156 }
3157 }
3158
3159
XS(_wrap_gsl_eigen_symmv_workspace_gs_set)3160 XS(_wrap_gsl_eigen_symmv_workspace_gs_set) {
3161 {
3162 gsl_eigen_symmv_workspace *arg1 = (gsl_eigen_symmv_workspace *) 0 ;
3163 double *arg2 = (double *) 0 ;
3164 void *argp1 = 0 ;
3165 int res1 = 0 ;
3166 void *argp2 = 0 ;
3167 int res2 = 0 ;
3168 int argvi = 0;
3169 dXSARGS;
3170
3171 if ((items < 2) || (items > 2)) {
3172 SWIG_croak("Usage: gsl_eigen_symmv_workspace_gs_set(self,gs);");
3173 }
3174 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_eigen_symmv_workspace, 0 | 0 );
3175 if (!SWIG_IsOK(res1)) {
3176 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_symmv_workspace_gs_set" "', argument " "1"" of type '" "gsl_eigen_symmv_workspace *""'");
3177 }
3178 arg1 = (gsl_eigen_symmv_workspace *)(argp1);
3179 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_double, SWIG_POINTER_DISOWN | 0 );
3180 if (!SWIG_IsOK(res2)) {
3181 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_eigen_symmv_workspace_gs_set" "', argument " "2"" of type '" "double *""'");
3182 }
3183 arg2 = (double *)(argp2);
3184 if (arg1) (arg1)->gs = arg2;
3185 ST(argvi) = &PL_sv_undef;
3186
3187
3188 XSRETURN(argvi);
3189 fail:
3190
3191
3192 SWIG_croak_null();
3193 }
3194 }
3195
3196
XS(_wrap_gsl_eigen_symmv_workspace_gs_get)3197 XS(_wrap_gsl_eigen_symmv_workspace_gs_get) {
3198 {
3199 gsl_eigen_symmv_workspace *arg1 = (gsl_eigen_symmv_workspace *) 0 ;
3200 void *argp1 = 0 ;
3201 int res1 = 0 ;
3202 int argvi = 0;
3203 double *result = 0 ;
3204 dXSARGS;
3205
3206 if ((items < 1) || (items > 1)) {
3207 SWIG_croak("Usage: gsl_eigen_symmv_workspace_gs_get(self);");
3208 }
3209 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_eigen_symmv_workspace, 0 | 0 );
3210 if (!SWIG_IsOK(res1)) {
3211 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_symmv_workspace_gs_get" "', argument " "1"" of type '" "gsl_eigen_symmv_workspace *""'");
3212 }
3213 arg1 = (gsl_eigen_symmv_workspace *)(argp1);
3214 result = (double *) ((arg1)->gs);
3215 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_double, 0 | 0); argvi++ ;
3216
3217 XSRETURN(argvi);
3218 fail:
3219
3220 SWIG_croak_null();
3221 }
3222 }
3223
3224
XS(_wrap_new_gsl_eigen_symmv_workspace)3225 XS(_wrap_new_gsl_eigen_symmv_workspace) {
3226 {
3227 int argvi = 0;
3228 gsl_eigen_symmv_workspace *result = 0 ;
3229 dXSARGS;
3230
3231 if ((items < 0) || (items > 0)) {
3232 SWIG_croak("Usage: new_gsl_eigen_symmv_workspace();");
3233 }
3234 result = (gsl_eigen_symmv_workspace *)calloc(1, sizeof(gsl_eigen_symmv_workspace));
3235 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_eigen_symmv_workspace, SWIG_OWNER | SWIG_SHADOW); argvi++ ;
3236 XSRETURN(argvi);
3237 fail:
3238 SWIG_croak_null();
3239 }
3240 }
3241
3242
XS(_wrap_delete_gsl_eigen_symmv_workspace)3243 XS(_wrap_delete_gsl_eigen_symmv_workspace) {
3244 {
3245 gsl_eigen_symmv_workspace *arg1 = (gsl_eigen_symmv_workspace *) 0 ;
3246 void *argp1 = 0 ;
3247 int res1 = 0 ;
3248 int argvi = 0;
3249 dXSARGS;
3250
3251 if ((items < 1) || (items > 1)) {
3252 SWIG_croak("Usage: delete_gsl_eigen_symmv_workspace(self);");
3253 }
3254 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_eigen_symmv_workspace, SWIG_POINTER_DISOWN | 0 );
3255 if (!SWIG_IsOK(res1)) {
3256 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "delete_gsl_eigen_symmv_workspace" "', argument " "1"" of type '" "gsl_eigen_symmv_workspace *""'");
3257 }
3258 arg1 = (gsl_eigen_symmv_workspace *)(argp1);
3259 free((char *) arg1);
3260 ST(argvi) = &PL_sv_undef;
3261
3262 XSRETURN(argvi);
3263 fail:
3264
3265 SWIG_croak_null();
3266 }
3267 }
3268
3269
XS(_wrap_gsl_eigen_symmv_alloc)3270 XS(_wrap_gsl_eigen_symmv_alloc) {
3271 {
3272 size_t arg1 ;
3273 size_t val1 ;
3274 int ecode1 = 0 ;
3275 int argvi = 0;
3276 gsl_eigen_symmv_workspace *result = 0 ;
3277 dXSARGS;
3278
3279 if ((items < 1) || (items > 1)) {
3280 SWIG_croak("Usage: gsl_eigen_symmv_alloc(n);");
3281 }
3282 ecode1 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
3283 if (!SWIG_IsOK(ecode1)) {
3284 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_eigen_symmv_alloc" "', argument " "1"" of type '" "size_t""'");
3285 }
3286 arg1 = (size_t)(val1);
3287 result = (gsl_eigen_symmv_workspace *)gsl_eigen_symmv_alloc(arg1);
3288 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_eigen_symmv_workspace, 0 | SWIG_SHADOW); argvi++ ;
3289
3290 XSRETURN(argvi);
3291 fail:
3292
3293 SWIG_croak_null();
3294 }
3295 }
3296
3297
XS(_wrap_gsl_eigen_symmv_free)3298 XS(_wrap_gsl_eigen_symmv_free) {
3299 {
3300 gsl_eigen_symmv_workspace *arg1 = (gsl_eigen_symmv_workspace *) 0 ;
3301 void *argp1 = 0 ;
3302 int res1 = 0 ;
3303 int argvi = 0;
3304 dXSARGS;
3305
3306 if ((items < 1) || (items > 1)) {
3307 SWIG_croak("Usage: gsl_eigen_symmv_free(w);");
3308 }
3309 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_eigen_symmv_workspace, 0 | 0 );
3310 if (!SWIG_IsOK(res1)) {
3311 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_symmv_free" "', argument " "1"" of type '" "gsl_eigen_symmv_workspace *""'");
3312 }
3313 arg1 = (gsl_eigen_symmv_workspace *)(argp1);
3314 gsl_eigen_symmv_free(arg1);
3315 ST(argvi) = &PL_sv_undef;
3316
3317 XSRETURN(argvi);
3318 fail:
3319
3320 SWIG_croak_null();
3321 }
3322 }
3323
3324
XS(_wrap_gsl_eigen_symmv)3325 XS(_wrap_gsl_eigen_symmv) {
3326 {
3327 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
3328 gsl_vector *arg2 = (gsl_vector *) 0 ;
3329 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
3330 gsl_eigen_symmv_workspace *arg4 = (gsl_eigen_symmv_workspace *) 0 ;
3331 void *argp1 = 0 ;
3332 int res1 = 0 ;
3333 void *argp2 = 0 ;
3334 int res2 = 0 ;
3335 void *argp3 = 0 ;
3336 int res3 = 0 ;
3337 void *argp4 = 0 ;
3338 int res4 = 0 ;
3339 int argvi = 0;
3340 int result;
3341 dXSARGS;
3342
3343 if ((items < 4) || (items > 4)) {
3344 SWIG_croak("Usage: gsl_eigen_symmv(A,eval,evec,w);");
3345 }
3346 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3347 if (!SWIG_IsOK(res1)) {
3348 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_symmv" "', argument " "1"" of type '" "gsl_matrix *""'");
3349 }
3350 arg1 = (gsl_matrix *)(argp1);
3351 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
3352 if (!SWIG_IsOK(res2)) {
3353 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_eigen_symmv" "', argument " "2"" of type '" "gsl_vector *""'");
3354 }
3355 arg2 = (gsl_vector *)(argp2);
3356 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
3357 if (!SWIG_IsOK(res3)) {
3358 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_eigen_symmv" "', argument " "3"" of type '" "gsl_matrix *""'");
3359 }
3360 arg3 = (gsl_matrix *)(argp3);
3361 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_eigen_symmv_workspace, 0 | 0 );
3362 if (!SWIG_IsOK(res4)) {
3363 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_eigen_symmv" "', argument " "4"" of type '" "gsl_eigen_symmv_workspace *""'");
3364 }
3365 arg4 = (gsl_eigen_symmv_workspace *)(argp4);
3366 result = (int)gsl_eigen_symmv(arg1,arg2,arg3,arg4);
3367 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3368
3369
3370
3371
3372 XSRETURN(argvi);
3373 fail:
3374
3375
3376
3377
3378 SWIG_croak_null();
3379 }
3380 }
3381
3382
XS(_wrap_gsl_eigen_herm_workspace_size_set)3383 XS(_wrap_gsl_eigen_herm_workspace_size_set) {
3384 {
3385 gsl_eigen_herm_workspace *arg1 = (gsl_eigen_herm_workspace *) 0 ;
3386 size_t arg2 ;
3387 void *argp1 = 0 ;
3388 int res1 = 0 ;
3389 size_t val2 ;
3390 int ecode2 = 0 ;
3391 int argvi = 0;
3392 dXSARGS;
3393
3394 if ((items < 2) || (items > 2)) {
3395 SWIG_croak("Usage: gsl_eigen_herm_workspace_size_set(self,size);");
3396 }
3397 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_eigen_herm_workspace, 0 | 0 );
3398 if (!SWIG_IsOK(res1)) {
3399 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_herm_workspace_size_set" "', argument " "1"" of type '" "gsl_eigen_herm_workspace *""'");
3400 }
3401 arg1 = (gsl_eigen_herm_workspace *)(argp1);
3402 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
3403 if (!SWIG_IsOK(ecode2)) {
3404 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_eigen_herm_workspace_size_set" "', argument " "2"" of type '" "size_t""'");
3405 }
3406 arg2 = (size_t)(val2);
3407 if (arg1) (arg1)->size = arg2;
3408 ST(argvi) = &PL_sv_undef;
3409
3410
3411 XSRETURN(argvi);
3412 fail:
3413
3414
3415 SWIG_croak_null();
3416 }
3417 }
3418
3419
XS(_wrap_gsl_eigen_herm_workspace_size_get)3420 XS(_wrap_gsl_eigen_herm_workspace_size_get) {
3421 {
3422 gsl_eigen_herm_workspace *arg1 = (gsl_eigen_herm_workspace *) 0 ;
3423 void *argp1 = 0 ;
3424 int res1 = 0 ;
3425 int argvi = 0;
3426 size_t result;
3427 dXSARGS;
3428
3429 if ((items < 1) || (items > 1)) {
3430 SWIG_croak("Usage: gsl_eigen_herm_workspace_size_get(self);");
3431 }
3432 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_eigen_herm_workspace, 0 | 0 );
3433 if (!SWIG_IsOK(res1)) {
3434 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_herm_workspace_size_get" "', argument " "1"" of type '" "gsl_eigen_herm_workspace *""'");
3435 }
3436 arg1 = (gsl_eigen_herm_workspace *)(argp1);
3437 result = ((arg1)->size);
3438 ST(argvi) = SWIG_From_size_t SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
3439
3440 XSRETURN(argvi);
3441 fail:
3442
3443 SWIG_croak_null();
3444 }
3445 }
3446
3447
XS(_wrap_gsl_eigen_herm_workspace_d_set)3448 XS(_wrap_gsl_eigen_herm_workspace_d_set) {
3449 {
3450 gsl_eigen_herm_workspace *arg1 = (gsl_eigen_herm_workspace *) 0 ;
3451 double *arg2 = (double *) 0 ;
3452 void *argp1 = 0 ;
3453 int res1 = 0 ;
3454 void *argp2 = 0 ;
3455 int res2 = 0 ;
3456 int argvi = 0;
3457 dXSARGS;
3458
3459 if ((items < 2) || (items > 2)) {
3460 SWIG_croak("Usage: gsl_eigen_herm_workspace_d_set(self,d);");
3461 }
3462 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_eigen_herm_workspace, 0 | 0 );
3463 if (!SWIG_IsOK(res1)) {
3464 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_herm_workspace_d_set" "', argument " "1"" of type '" "gsl_eigen_herm_workspace *""'");
3465 }
3466 arg1 = (gsl_eigen_herm_workspace *)(argp1);
3467 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_double, SWIG_POINTER_DISOWN | 0 );
3468 if (!SWIG_IsOK(res2)) {
3469 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_eigen_herm_workspace_d_set" "', argument " "2"" of type '" "double *""'");
3470 }
3471 arg2 = (double *)(argp2);
3472 if (arg1) (arg1)->d = arg2;
3473 ST(argvi) = &PL_sv_undef;
3474
3475
3476 XSRETURN(argvi);
3477 fail:
3478
3479
3480 SWIG_croak_null();
3481 }
3482 }
3483
3484
XS(_wrap_gsl_eigen_herm_workspace_d_get)3485 XS(_wrap_gsl_eigen_herm_workspace_d_get) {
3486 {
3487 gsl_eigen_herm_workspace *arg1 = (gsl_eigen_herm_workspace *) 0 ;
3488 void *argp1 = 0 ;
3489 int res1 = 0 ;
3490 int argvi = 0;
3491 double *result = 0 ;
3492 dXSARGS;
3493
3494 if ((items < 1) || (items > 1)) {
3495 SWIG_croak("Usage: gsl_eigen_herm_workspace_d_get(self);");
3496 }
3497 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_eigen_herm_workspace, 0 | 0 );
3498 if (!SWIG_IsOK(res1)) {
3499 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_herm_workspace_d_get" "', argument " "1"" of type '" "gsl_eigen_herm_workspace *""'");
3500 }
3501 arg1 = (gsl_eigen_herm_workspace *)(argp1);
3502 result = (double *) ((arg1)->d);
3503 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_double, 0 | 0); argvi++ ;
3504
3505 XSRETURN(argvi);
3506 fail:
3507
3508 SWIG_croak_null();
3509 }
3510 }
3511
3512
XS(_wrap_gsl_eigen_herm_workspace_sd_set)3513 XS(_wrap_gsl_eigen_herm_workspace_sd_set) {
3514 {
3515 gsl_eigen_herm_workspace *arg1 = (gsl_eigen_herm_workspace *) 0 ;
3516 double *arg2 = (double *) 0 ;
3517 void *argp1 = 0 ;
3518 int res1 = 0 ;
3519 void *argp2 = 0 ;
3520 int res2 = 0 ;
3521 int argvi = 0;
3522 dXSARGS;
3523
3524 if ((items < 2) || (items > 2)) {
3525 SWIG_croak("Usage: gsl_eigen_herm_workspace_sd_set(self,sd);");
3526 }
3527 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_eigen_herm_workspace, 0 | 0 );
3528 if (!SWIG_IsOK(res1)) {
3529 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_herm_workspace_sd_set" "', argument " "1"" of type '" "gsl_eigen_herm_workspace *""'");
3530 }
3531 arg1 = (gsl_eigen_herm_workspace *)(argp1);
3532 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_double, SWIG_POINTER_DISOWN | 0 );
3533 if (!SWIG_IsOK(res2)) {
3534 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_eigen_herm_workspace_sd_set" "', argument " "2"" of type '" "double *""'");
3535 }
3536 arg2 = (double *)(argp2);
3537 if (arg1) (arg1)->sd = arg2;
3538 ST(argvi) = &PL_sv_undef;
3539
3540
3541 XSRETURN(argvi);
3542 fail:
3543
3544
3545 SWIG_croak_null();
3546 }
3547 }
3548
3549
XS(_wrap_gsl_eigen_herm_workspace_sd_get)3550 XS(_wrap_gsl_eigen_herm_workspace_sd_get) {
3551 {
3552 gsl_eigen_herm_workspace *arg1 = (gsl_eigen_herm_workspace *) 0 ;
3553 void *argp1 = 0 ;
3554 int res1 = 0 ;
3555 int argvi = 0;
3556 double *result = 0 ;
3557 dXSARGS;
3558
3559 if ((items < 1) || (items > 1)) {
3560 SWIG_croak("Usage: gsl_eigen_herm_workspace_sd_get(self);");
3561 }
3562 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_eigen_herm_workspace, 0 | 0 );
3563 if (!SWIG_IsOK(res1)) {
3564 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_herm_workspace_sd_get" "', argument " "1"" of type '" "gsl_eigen_herm_workspace *""'");
3565 }
3566 arg1 = (gsl_eigen_herm_workspace *)(argp1);
3567 result = (double *) ((arg1)->sd);
3568 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_double, 0 | 0); argvi++ ;
3569
3570 XSRETURN(argvi);
3571 fail:
3572
3573 SWIG_croak_null();
3574 }
3575 }
3576
3577
XS(_wrap_gsl_eigen_herm_workspace_tau_set)3578 XS(_wrap_gsl_eigen_herm_workspace_tau_set) {
3579 {
3580 gsl_eigen_herm_workspace *arg1 = (gsl_eigen_herm_workspace *) 0 ;
3581 double *arg2 = (double *) 0 ;
3582 void *argp1 = 0 ;
3583 int res1 = 0 ;
3584 void *argp2 = 0 ;
3585 int res2 = 0 ;
3586 int argvi = 0;
3587 dXSARGS;
3588
3589 if ((items < 2) || (items > 2)) {
3590 SWIG_croak("Usage: gsl_eigen_herm_workspace_tau_set(self,tau);");
3591 }
3592 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_eigen_herm_workspace, 0 | 0 );
3593 if (!SWIG_IsOK(res1)) {
3594 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_herm_workspace_tau_set" "', argument " "1"" of type '" "gsl_eigen_herm_workspace *""'");
3595 }
3596 arg1 = (gsl_eigen_herm_workspace *)(argp1);
3597 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_double, SWIG_POINTER_DISOWN | 0 );
3598 if (!SWIG_IsOK(res2)) {
3599 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_eigen_herm_workspace_tau_set" "', argument " "2"" of type '" "double *""'");
3600 }
3601 arg2 = (double *)(argp2);
3602 if (arg1) (arg1)->tau = arg2;
3603 ST(argvi) = &PL_sv_undef;
3604
3605
3606 XSRETURN(argvi);
3607 fail:
3608
3609
3610 SWIG_croak_null();
3611 }
3612 }
3613
3614
XS(_wrap_gsl_eigen_herm_workspace_tau_get)3615 XS(_wrap_gsl_eigen_herm_workspace_tau_get) {
3616 {
3617 gsl_eigen_herm_workspace *arg1 = (gsl_eigen_herm_workspace *) 0 ;
3618 void *argp1 = 0 ;
3619 int res1 = 0 ;
3620 int argvi = 0;
3621 double *result = 0 ;
3622 dXSARGS;
3623
3624 if ((items < 1) || (items > 1)) {
3625 SWIG_croak("Usage: gsl_eigen_herm_workspace_tau_get(self);");
3626 }
3627 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_eigen_herm_workspace, 0 | 0 );
3628 if (!SWIG_IsOK(res1)) {
3629 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_herm_workspace_tau_get" "', argument " "1"" of type '" "gsl_eigen_herm_workspace *""'");
3630 }
3631 arg1 = (gsl_eigen_herm_workspace *)(argp1);
3632 result = (double *) ((arg1)->tau);
3633 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_double, 0 | 0); argvi++ ;
3634
3635 XSRETURN(argvi);
3636 fail:
3637
3638 SWIG_croak_null();
3639 }
3640 }
3641
3642
XS(_wrap_new_gsl_eigen_herm_workspace)3643 XS(_wrap_new_gsl_eigen_herm_workspace) {
3644 {
3645 int argvi = 0;
3646 gsl_eigen_herm_workspace *result = 0 ;
3647 dXSARGS;
3648
3649 if ((items < 0) || (items > 0)) {
3650 SWIG_croak("Usage: new_gsl_eigen_herm_workspace();");
3651 }
3652 result = (gsl_eigen_herm_workspace *)calloc(1, sizeof(gsl_eigen_herm_workspace));
3653 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_eigen_herm_workspace, SWIG_OWNER | SWIG_SHADOW); argvi++ ;
3654 XSRETURN(argvi);
3655 fail:
3656 SWIG_croak_null();
3657 }
3658 }
3659
3660
XS(_wrap_delete_gsl_eigen_herm_workspace)3661 XS(_wrap_delete_gsl_eigen_herm_workspace) {
3662 {
3663 gsl_eigen_herm_workspace *arg1 = (gsl_eigen_herm_workspace *) 0 ;
3664 void *argp1 = 0 ;
3665 int res1 = 0 ;
3666 int argvi = 0;
3667 dXSARGS;
3668
3669 if ((items < 1) || (items > 1)) {
3670 SWIG_croak("Usage: delete_gsl_eigen_herm_workspace(self);");
3671 }
3672 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_eigen_herm_workspace, SWIG_POINTER_DISOWN | 0 );
3673 if (!SWIG_IsOK(res1)) {
3674 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "delete_gsl_eigen_herm_workspace" "', argument " "1"" of type '" "gsl_eigen_herm_workspace *""'");
3675 }
3676 arg1 = (gsl_eigen_herm_workspace *)(argp1);
3677 free((char *) arg1);
3678 ST(argvi) = &PL_sv_undef;
3679
3680 XSRETURN(argvi);
3681 fail:
3682
3683 SWIG_croak_null();
3684 }
3685 }
3686
3687
XS(_wrap_gsl_eigen_herm_alloc)3688 XS(_wrap_gsl_eigen_herm_alloc) {
3689 {
3690 size_t arg1 ;
3691 size_t val1 ;
3692 int ecode1 = 0 ;
3693 int argvi = 0;
3694 gsl_eigen_herm_workspace *result = 0 ;
3695 dXSARGS;
3696
3697 if ((items < 1) || (items > 1)) {
3698 SWIG_croak("Usage: gsl_eigen_herm_alloc(n);");
3699 }
3700 ecode1 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
3701 if (!SWIG_IsOK(ecode1)) {
3702 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_eigen_herm_alloc" "', argument " "1"" of type '" "size_t""'");
3703 }
3704 arg1 = (size_t)(val1);
3705 result = (gsl_eigen_herm_workspace *)gsl_eigen_herm_alloc(arg1);
3706 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_eigen_herm_workspace, 0 | SWIG_SHADOW); argvi++ ;
3707
3708 XSRETURN(argvi);
3709 fail:
3710
3711 SWIG_croak_null();
3712 }
3713 }
3714
3715
XS(_wrap_gsl_eigen_herm_free)3716 XS(_wrap_gsl_eigen_herm_free) {
3717 {
3718 gsl_eigen_herm_workspace *arg1 = (gsl_eigen_herm_workspace *) 0 ;
3719 void *argp1 = 0 ;
3720 int res1 = 0 ;
3721 int argvi = 0;
3722 dXSARGS;
3723
3724 if ((items < 1) || (items > 1)) {
3725 SWIG_croak("Usage: gsl_eigen_herm_free(w);");
3726 }
3727 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_eigen_herm_workspace, 0 | 0 );
3728 if (!SWIG_IsOK(res1)) {
3729 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_herm_free" "', argument " "1"" of type '" "gsl_eigen_herm_workspace *""'");
3730 }
3731 arg1 = (gsl_eigen_herm_workspace *)(argp1);
3732 gsl_eigen_herm_free(arg1);
3733 ST(argvi) = &PL_sv_undef;
3734
3735 XSRETURN(argvi);
3736 fail:
3737
3738 SWIG_croak_null();
3739 }
3740 }
3741
3742
XS(_wrap_gsl_eigen_herm)3743 XS(_wrap_gsl_eigen_herm) {
3744 {
3745 gsl_matrix_complex *arg1 = (gsl_matrix_complex *) 0 ;
3746 gsl_vector *arg2 = (gsl_vector *) 0 ;
3747 gsl_eigen_herm_workspace *arg3 = (gsl_eigen_herm_workspace *) 0 ;
3748 void *argp1 = 0 ;
3749 int res1 = 0 ;
3750 void *argp2 = 0 ;
3751 int res2 = 0 ;
3752 void *argp3 = 0 ;
3753 int res3 = 0 ;
3754 int argvi = 0;
3755 int result;
3756 dXSARGS;
3757
3758 if ((items < 3) || (items > 3)) {
3759 SWIG_croak("Usage: gsl_eigen_herm(A,eval,w);");
3760 }
3761 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
3762 if (!SWIG_IsOK(res1)) {
3763 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_herm" "', argument " "1"" of type '" "gsl_matrix_complex *""'");
3764 }
3765 arg1 = (gsl_matrix_complex *)(argp1);
3766 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
3767 if (!SWIG_IsOK(res2)) {
3768 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_eigen_herm" "', argument " "2"" of type '" "gsl_vector *""'");
3769 }
3770 arg2 = (gsl_vector *)(argp2);
3771 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_eigen_herm_workspace, 0 | 0 );
3772 if (!SWIG_IsOK(res3)) {
3773 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_eigen_herm" "', argument " "3"" of type '" "gsl_eigen_herm_workspace *""'");
3774 }
3775 arg3 = (gsl_eigen_herm_workspace *)(argp3);
3776 result = (int)gsl_eigen_herm(arg1,arg2,arg3);
3777 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3778
3779
3780
3781 XSRETURN(argvi);
3782 fail:
3783
3784
3785
3786 SWIG_croak_null();
3787 }
3788 }
3789
3790
XS(_wrap_gsl_eigen_hermv_workspace_size_set)3791 XS(_wrap_gsl_eigen_hermv_workspace_size_set) {
3792 {
3793 gsl_eigen_hermv_workspace *arg1 = (gsl_eigen_hermv_workspace *) 0 ;
3794 size_t arg2 ;
3795 void *argp1 = 0 ;
3796 int res1 = 0 ;
3797 size_t val2 ;
3798 int ecode2 = 0 ;
3799 int argvi = 0;
3800 dXSARGS;
3801
3802 if ((items < 2) || (items > 2)) {
3803 SWIG_croak("Usage: gsl_eigen_hermv_workspace_size_set(self,size);");
3804 }
3805 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_eigen_hermv_workspace, 0 | 0 );
3806 if (!SWIG_IsOK(res1)) {
3807 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_hermv_workspace_size_set" "', argument " "1"" of type '" "gsl_eigen_hermv_workspace *""'");
3808 }
3809 arg1 = (gsl_eigen_hermv_workspace *)(argp1);
3810 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
3811 if (!SWIG_IsOK(ecode2)) {
3812 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_eigen_hermv_workspace_size_set" "', argument " "2"" of type '" "size_t""'");
3813 }
3814 arg2 = (size_t)(val2);
3815 if (arg1) (arg1)->size = arg2;
3816 ST(argvi) = &PL_sv_undef;
3817
3818
3819 XSRETURN(argvi);
3820 fail:
3821
3822
3823 SWIG_croak_null();
3824 }
3825 }
3826
3827
XS(_wrap_gsl_eigen_hermv_workspace_size_get)3828 XS(_wrap_gsl_eigen_hermv_workspace_size_get) {
3829 {
3830 gsl_eigen_hermv_workspace *arg1 = (gsl_eigen_hermv_workspace *) 0 ;
3831 void *argp1 = 0 ;
3832 int res1 = 0 ;
3833 int argvi = 0;
3834 size_t result;
3835 dXSARGS;
3836
3837 if ((items < 1) || (items > 1)) {
3838 SWIG_croak("Usage: gsl_eigen_hermv_workspace_size_get(self);");
3839 }
3840 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_eigen_hermv_workspace, 0 | 0 );
3841 if (!SWIG_IsOK(res1)) {
3842 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_hermv_workspace_size_get" "', argument " "1"" of type '" "gsl_eigen_hermv_workspace *""'");
3843 }
3844 arg1 = (gsl_eigen_hermv_workspace *)(argp1);
3845 result = ((arg1)->size);
3846 ST(argvi) = SWIG_From_size_t SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
3847
3848 XSRETURN(argvi);
3849 fail:
3850
3851 SWIG_croak_null();
3852 }
3853 }
3854
3855
XS(_wrap_gsl_eigen_hermv_workspace_d_set)3856 XS(_wrap_gsl_eigen_hermv_workspace_d_set) {
3857 {
3858 gsl_eigen_hermv_workspace *arg1 = (gsl_eigen_hermv_workspace *) 0 ;
3859 double *arg2 = (double *) 0 ;
3860 void *argp1 = 0 ;
3861 int res1 = 0 ;
3862 void *argp2 = 0 ;
3863 int res2 = 0 ;
3864 int argvi = 0;
3865 dXSARGS;
3866
3867 if ((items < 2) || (items > 2)) {
3868 SWIG_croak("Usage: gsl_eigen_hermv_workspace_d_set(self,d);");
3869 }
3870 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_eigen_hermv_workspace, 0 | 0 );
3871 if (!SWIG_IsOK(res1)) {
3872 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_hermv_workspace_d_set" "', argument " "1"" of type '" "gsl_eigen_hermv_workspace *""'");
3873 }
3874 arg1 = (gsl_eigen_hermv_workspace *)(argp1);
3875 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_double, SWIG_POINTER_DISOWN | 0 );
3876 if (!SWIG_IsOK(res2)) {
3877 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_eigen_hermv_workspace_d_set" "', argument " "2"" of type '" "double *""'");
3878 }
3879 arg2 = (double *)(argp2);
3880 if (arg1) (arg1)->d = arg2;
3881 ST(argvi) = &PL_sv_undef;
3882
3883
3884 XSRETURN(argvi);
3885 fail:
3886
3887
3888 SWIG_croak_null();
3889 }
3890 }
3891
3892
XS(_wrap_gsl_eigen_hermv_workspace_d_get)3893 XS(_wrap_gsl_eigen_hermv_workspace_d_get) {
3894 {
3895 gsl_eigen_hermv_workspace *arg1 = (gsl_eigen_hermv_workspace *) 0 ;
3896 void *argp1 = 0 ;
3897 int res1 = 0 ;
3898 int argvi = 0;
3899 double *result = 0 ;
3900 dXSARGS;
3901
3902 if ((items < 1) || (items > 1)) {
3903 SWIG_croak("Usage: gsl_eigen_hermv_workspace_d_get(self);");
3904 }
3905 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_eigen_hermv_workspace, 0 | 0 );
3906 if (!SWIG_IsOK(res1)) {
3907 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_hermv_workspace_d_get" "', argument " "1"" of type '" "gsl_eigen_hermv_workspace *""'");
3908 }
3909 arg1 = (gsl_eigen_hermv_workspace *)(argp1);
3910 result = (double *) ((arg1)->d);
3911 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_double, 0 | 0); argvi++ ;
3912
3913 XSRETURN(argvi);
3914 fail:
3915
3916 SWIG_croak_null();
3917 }
3918 }
3919
3920
XS(_wrap_gsl_eigen_hermv_workspace_sd_set)3921 XS(_wrap_gsl_eigen_hermv_workspace_sd_set) {
3922 {
3923 gsl_eigen_hermv_workspace *arg1 = (gsl_eigen_hermv_workspace *) 0 ;
3924 double *arg2 = (double *) 0 ;
3925 void *argp1 = 0 ;
3926 int res1 = 0 ;
3927 void *argp2 = 0 ;
3928 int res2 = 0 ;
3929 int argvi = 0;
3930 dXSARGS;
3931
3932 if ((items < 2) || (items > 2)) {
3933 SWIG_croak("Usage: gsl_eigen_hermv_workspace_sd_set(self,sd);");
3934 }
3935 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_eigen_hermv_workspace, 0 | 0 );
3936 if (!SWIG_IsOK(res1)) {
3937 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_hermv_workspace_sd_set" "', argument " "1"" of type '" "gsl_eigen_hermv_workspace *""'");
3938 }
3939 arg1 = (gsl_eigen_hermv_workspace *)(argp1);
3940 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_double, SWIG_POINTER_DISOWN | 0 );
3941 if (!SWIG_IsOK(res2)) {
3942 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_eigen_hermv_workspace_sd_set" "', argument " "2"" of type '" "double *""'");
3943 }
3944 arg2 = (double *)(argp2);
3945 if (arg1) (arg1)->sd = arg2;
3946 ST(argvi) = &PL_sv_undef;
3947
3948
3949 XSRETURN(argvi);
3950 fail:
3951
3952
3953 SWIG_croak_null();
3954 }
3955 }
3956
3957
XS(_wrap_gsl_eigen_hermv_workspace_sd_get)3958 XS(_wrap_gsl_eigen_hermv_workspace_sd_get) {
3959 {
3960 gsl_eigen_hermv_workspace *arg1 = (gsl_eigen_hermv_workspace *) 0 ;
3961 void *argp1 = 0 ;
3962 int res1 = 0 ;
3963 int argvi = 0;
3964 double *result = 0 ;
3965 dXSARGS;
3966
3967 if ((items < 1) || (items > 1)) {
3968 SWIG_croak("Usage: gsl_eigen_hermv_workspace_sd_get(self);");
3969 }
3970 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_eigen_hermv_workspace, 0 | 0 );
3971 if (!SWIG_IsOK(res1)) {
3972 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_hermv_workspace_sd_get" "', argument " "1"" of type '" "gsl_eigen_hermv_workspace *""'");
3973 }
3974 arg1 = (gsl_eigen_hermv_workspace *)(argp1);
3975 result = (double *) ((arg1)->sd);
3976 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_double, 0 | 0); argvi++ ;
3977
3978 XSRETURN(argvi);
3979 fail:
3980
3981 SWIG_croak_null();
3982 }
3983 }
3984
3985
XS(_wrap_gsl_eigen_hermv_workspace_tau_set)3986 XS(_wrap_gsl_eigen_hermv_workspace_tau_set) {
3987 {
3988 gsl_eigen_hermv_workspace *arg1 = (gsl_eigen_hermv_workspace *) 0 ;
3989 double *arg2 = (double *) 0 ;
3990 void *argp1 = 0 ;
3991 int res1 = 0 ;
3992 void *argp2 = 0 ;
3993 int res2 = 0 ;
3994 int argvi = 0;
3995 dXSARGS;
3996
3997 if ((items < 2) || (items > 2)) {
3998 SWIG_croak("Usage: gsl_eigen_hermv_workspace_tau_set(self,tau);");
3999 }
4000 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_eigen_hermv_workspace, 0 | 0 );
4001 if (!SWIG_IsOK(res1)) {
4002 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_hermv_workspace_tau_set" "', argument " "1"" of type '" "gsl_eigen_hermv_workspace *""'");
4003 }
4004 arg1 = (gsl_eigen_hermv_workspace *)(argp1);
4005 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_double, SWIG_POINTER_DISOWN | 0 );
4006 if (!SWIG_IsOK(res2)) {
4007 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_eigen_hermv_workspace_tau_set" "', argument " "2"" of type '" "double *""'");
4008 }
4009 arg2 = (double *)(argp2);
4010 if (arg1) (arg1)->tau = arg2;
4011 ST(argvi) = &PL_sv_undef;
4012
4013
4014 XSRETURN(argvi);
4015 fail:
4016
4017
4018 SWIG_croak_null();
4019 }
4020 }
4021
4022
XS(_wrap_gsl_eigen_hermv_workspace_tau_get)4023 XS(_wrap_gsl_eigen_hermv_workspace_tau_get) {
4024 {
4025 gsl_eigen_hermv_workspace *arg1 = (gsl_eigen_hermv_workspace *) 0 ;
4026 void *argp1 = 0 ;
4027 int res1 = 0 ;
4028 int argvi = 0;
4029 double *result = 0 ;
4030 dXSARGS;
4031
4032 if ((items < 1) || (items > 1)) {
4033 SWIG_croak("Usage: gsl_eigen_hermv_workspace_tau_get(self);");
4034 }
4035 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_eigen_hermv_workspace, 0 | 0 );
4036 if (!SWIG_IsOK(res1)) {
4037 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_hermv_workspace_tau_get" "', argument " "1"" of type '" "gsl_eigen_hermv_workspace *""'");
4038 }
4039 arg1 = (gsl_eigen_hermv_workspace *)(argp1);
4040 result = (double *) ((arg1)->tau);
4041 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_double, 0 | 0); argvi++ ;
4042
4043 XSRETURN(argvi);
4044 fail:
4045
4046 SWIG_croak_null();
4047 }
4048 }
4049
4050
XS(_wrap_gsl_eigen_hermv_workspace_gc_set)4051 XS(_wrap_gsl_eigen_hermv_workspace_gc_set) {
4052 {
4053 gsl_eigen_hermv_workspace *arg1 = (gsl_eigen_hermv_workspace *) 0 ;
4054 double *arg2 = (double *) 0 ;
4055 void *argp1 = 0 ;
4056 int res1 = 0 ;
4057 void *argp2 = 0 ;
4058 int res2 = 0 ;
4059 int argvi = 0;
4060 dXSARGS;
4061
4062 if ((items < 2) || (items > 2)) {
4063 SWIG_croak("Usage: gsl_eigen_hermv_workspace_gc_set(self,gc);");
4064 }
4065 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_eigen_hermv_workspace, 0 | 0 );
4066 if (!SWIG_IsOK(res1)) {
4067 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_hermv_workspace_gc_set" "', argument " "1"" of type '" "gsl_eigen_hermv_workspace *""'");
4068 }
4069 arg1 = (gsl_eigen_hermv_workspace *)(argp1);
4070 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_double, SWIG_POINTER_DISOWN | 0 );
4071 if (!SWIG_IsOK(res2)) {
4072 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_eigen_hermv_workspace_gc_set" "', argument " "2"" of type '" "double *""'");
4073 }
4074 arg2 = (double *)(argp2);
4075 if (arg1) (arg1)->gc = arg2;
4076 ST(argvi) = &PL_sv_undef;
4077
4078
4079 XSRETURN(argvi);
4080 fail:
4081
4082
4083 SWIG_croak_null();
4084 }
4085 }
4086
4087
XS(_wrap_gsl_eigen_hermv_workspace_gc_get)4088 XS(_wrap_gsl_eigen_hermv_workspace_gc_get) {
4089 {
4090 gsl_eigen_hermv_workspace *arg1 = (gsl_eigen_hermv_workspace *) 0 ;
4091 void *argp1 = 0 ;
4092 int res1 = 0 ;
4093 int argvi = 0;
4094 double *result = 0 ;
4095 dXSARGS;
4096
4097 if ((items < 1) || (items > 1)) {
4098 SWIG_croak("Usage: gsl_eigen_hermv_workspace_gc_get(self);");
4099 }
4100 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_eigen_hermv_workspace, 0 | 0 );
4101 if (!SWIG_IsOK(res1)) {
4102 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_hermv_workspace_gc_get" "', argument " "1"" of type '" "gsl_eigen_hermv_workspace *""'");
4103 }
4104 arg1 = (gsl_eigen_hermv_workspace *)(argp1);
4105 result = (double *) ((arg1)->gc);
4106 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_double, 0 | 0); argvi++ ;
4107
4108 XSRETURN(argvi);
4109 fail:
4110
4111 SWIG_croak_null();
4112 }
4113 }
4114
4115
XS(_wrap_gsl_eigen_hermv_workspace_gs_set)4116 XS(_wrap_gsl_eigen_hermv_workspace_gs_set) {
4117 {
4118 gsl_eigen_hermv_workspace *arg1 = (gsl_eigen_hermv_workspace *) 0 ;
4119 double *arg2 = (double *) 0 ;
4120 void *argp1 = 0 ;
4121 int res1 = 0 ;
4122 void *argp2 = 0 ;
4123 int res2 = 0 ;
4124 int argvi = 0;
4125 dXSARGS;
4126
4127 if ((items < 2) || (items > 2)) {
4128 SWIG_croak("Usage: gsl_eigen_hermv_workspace_gs_set(self,gs);");
4129 }
4130 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_eigen_hermv_workspace, 0 | 0 );
4131 if (!SWIG_IsOK(res1)) {
4132 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_hermv_workspace_gs_set" "', argument " "1"" of type '" "gsl_eigen_hermv_workspace *""'");
4133 }
4134 arg1 = (gsl_eigen_hermv_workspace *)(argp1);
4135 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_double, SWIG_POINTER_DISOWN | 0 );
4136 if (!SWIG_IsOK(res2)) {
4137 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_eigen_hermv_workspace_gs_set" "', argument " "2"" of type '" "double *""'");
4138 }
4139 arg2 = (double *)(argp2);
4140 if (arg1) (arg1)->gs = arg2;
4141 ST(argvi) = &PL_sv_undef;
4142
4143
4144 XSRETURN(argvi);
4145 fail:
4146
4147
4148 SWIG_croak_null();
4149 }
4150 }
4151
4152
XS(_wrap_gsl_eigen_hermv_workspace_gs_get)4153 XS(_wrap_gsl_eigen_hermv_workspace_gs_get) {
4154 {
4155 gsl_eigen_hermv_workspace *arg1 = (gsl_eigen_hermv_workspace *) 0 ;
4156 void *argp1 = 0 ;
4157 int res1 = 0 ;
4158 int argvi = 0;
4159 double *result = 0 ;
4160 dXSARGS;
4161
4162 if ((items < 1) || (items > 1)) {
4163 SWIG_croak("Usage: gsl_eigen_hermv_workspace_gs_get(self);");
4164 }
4165 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_eigen_hermv_workspace, 0 | 0 );
4166 if (!SWIG_IsOK(res1)) {
4167 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_hermv_workspace_gs_get" "', argument " "1"" of type '" "gsl_eigen_hermv_workspace *""'");
4168 }
4169 arg1 = (gsl_eigen_hermv_workspace *)(argp1);
4170 result = (double *) ((arg1)->gs);
4171 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_double, 0 | 0); argvi++ ;
4172
4173 XSRETURN(argvi);
4174 fail:
4175
4176 SWIG_croak_null();
4177 }
4178 }
4179
4180
XS(_wrap_new_gsl_eigen_hermv_workspace)4181 XS(_wrap_new_gsl_eigen_hermv_workspace) {
4182 {
4183 int argvi = 0;
4184 gsl_eigen_hermv_workspace *result = 0 ;
4185 dXSARGS;
4186
4187 if ((items < 0) || (items > 0)) {
4188 SWIG_croak("Usage: new_gsl_eigen_hermv_workspace();");
4189 }
4190 result = (gsl_eigen_hermv_workspace *)calloc(1, sizeof(gsl_eigen_hermv_workspace));
4191 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_eigen_hermv_workspace, SWIG_OWNER | SWIG_SHADOW); argvi++ ;
4192 XSRETURN(argvi);
4193 fail:
4194 SWIG_croak_null();
4195 }
4196 }
4197
4198
XS(_wrap_delete_gsl_eigen_hermv_workspace)4199 XS(_wrap_delete_gsl_eigen_hermv_workspace) {
4200 {
4201 gsl_eigen_hermv_workspace *arg1 = (gsl_eigen_hermv_workspace *) 0 ;
4202 void *argp1 = 0 ;
4203 int res1 = 0 ;
4204 int argvi = 0;
4205 dXSARGS;
4206
4207 if ((items < 1) || (items > 1)) {
4208 SWIG_croak("Usage: delete_gsl_eigen_hermv_workspace(self);");
4209 }
4210 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_eigen_hermv_workspace, SWIG_POINTER_DISOWN | 0 );
4211 if (!SWIG_IsOK(res1)) {
4212 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "delete_gsl_eigen_hermv_workspace" "', argument " "1"" of type '" "gsl_eigen_hermv_workspace *""'");
4213 }
4214 arg1 = (gsl_eigen_hermv_workspace *)(argp1);
4215 free((char *) arg1);
4216 ST(argvi) = &PL_sv_undef;
4217
4218 XSRETURN(argvi);
4219 fail:
4220
4221 SWIG_croak_null();
4222 }
4223 }
4224
4225
XS(_wrap_gsl_eigen_hermv_alloc)4226 XS(_wrap_gsl_eigen_hermv_alloc) {
4227 {
4228 size_t arg1 ;
4229 size_t val1 ;
4230 int ecode1 = 0 ;
4231 int argvi = 0;
4232 gsl_eigen_hermv_workspace *result = 0 ;
4233 dXSARGS;
4234
4235 if ((items < 1) || (items > 1)) {
4236 SWIG_croak("Usage: gsl_eigen_hermv_alloc(n);");
4237 }
4238 ecode1 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
4239 if (!SWIG_IsOK(ecode1)) {
4240 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_eigen_hermv_alloc" "', argument " "1"" of type '" "size_t""'");
4241 }
4242 arg1 = (size_t)(val1);
4243 result = (gsl_eigen_hermv_workspace *)gsl_eigen_hermv_alloc(arg1);
4244 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_eigen_hermv_workspace, 0 | SWIG_SHADOW); argvi++ ;
4245
4246 XSRETURN(argvi);
4247 fail:
4248
4249 SWIG_croak_null();
4250 }
4251 }
4252
4253
XS(_wrap_gsl_eigen_hermv_free)4254 XS(_wrap_gsl_eigen_hermv_free) {
4255 {
4256 gsl_eigen_hermv_workspace *arg1 = (gsl_eigen_hermv_workspace *) 0 ;
4257 void *argp1 = 0 ;
4258 int res1 = 0 ;
4259 int argvi = 0;
4260 dXSARGS;
4261
4262 if ((items < 1) || (items > 1)) {
4263 SWIG_croak("Usage: gsl_eigen_hermv_free(w);");
4264 }
4265 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_eigen_hermv_workspace, 0 | 0 );
4266 if (!SWIG_IsOK(res1)) {
4267 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_hermv_free" "', argument " "1"" of type '" "gsl_eigen_hermv_workspace *""'");
4268 }
4269 arg1 = (gsl_eigen_hermv_workspace *)(argp1);
4270 gsl_eigen_hermv_free(arg1);
4271 ST(argvi) = &PL_sv_undef;
4272
4273 XSRETURN(argvi);
4274 fail:
4275
4276 SWIG_croak_null();
4277 }
4278 }
4279
4280
XS(_wrap_gsl_eigen_hermv)4281 XS(_wrap_gsl_eigen_hermv) {
4282 {
4283 gsl_matrix_complex *arg1 = (gsl_matrix_complex *) 0 ;
4284 gsl_vector *arg2 = (gsl_vector *) 0 ;
4285 gsl_matrix_complex *arg3 = (gsl_matrix_complex *) 0 ;
4286 gsl_eigen_hermv_workspace *arg4 = (gsl_eigen_hermv_workspace *) 0 ;
4287 void *argp1 = 0 ;
4288 int res1 = 0 ;
4289 void *argp2 = 0 ;
4290 int res2 = 0 ;
4291 void *argp3 = 0 ;
4292 int res3 = 0 ;
4293 void *argp4 = 0 ;
4294 int res4 = 0 ;
4295 int argvi = 0;
4296 int result;
4297 dXSARGS;
4298
4299 if ((items < 4) || (items > 4)) {
4300 SWIG_croak("Usage: gsl_eigen_hermv(A,eval,evec,w);");
4301 }
4302 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
4303 if (!SWIG_IsOK(res1)) {
4304 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_hermv" "', argument " "1"" of type '" "gsl_matrix_complex *""'");
4305 }
4306 arg1 = (gsl_matrix_complex *)(argp1);
4307 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
4308 if (!SWIG_IsOK(res2)) {
4309 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_eigen_hermv" "', argument " "2"" of type '" "gsl_vector *""'");
4310 }
4311 arg2 = (gsl_vector *)(argp2);
4312 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
4313 if (!SWIG_IsOK(res3)) {
4314 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_eigen_hermv" "', argument " "3"" of type '" "gsl_matrix_complex *""'");
4315 }
4316 arg3 = (gsl_matrix_complex *)(argp3);
4317 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_eigen_hermv_workspace, 0 | 0 );
4318 if (!SWIG_IsOK(res4)) {
4319 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_eigen_hermv" "', argument " "4"" of type '" "gsl_eigen_hermv_workspace *""'");
4320 }
4321 arg4 = (gsl_eigen_hermv_workspace *)(argp4);
4322 result = (int)gsl_eigen_hermv(arg1,arg2,arg3,arg4);
4323 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4324
4325
4326
4327
4328 XSRETURN(argvi);
4329 fail:
4330
4331
4332
4333
4334 SWIG_croak_null();
4335 }
4336 }
4337
4338
XS(_wrap_gsl_eigen_francis_workspace_size_set)4339 XS(_wrap_gsl_eigen_francis_workspace_size_set) {
4340 {
4341 gsl_eigen_francis_workspace *arg1 = (gsl_eigen_francis_workspace *) 0 ;
4342 size_t arg2 ;
4343 void *argp1 = 0 ;
4344 int res1 = 0 ;
4345 size_t val2 ;
4346 int ecode2 = 0 ;
4347 int argvi = 0;
4348 dXSARGS;
4349
4350 if ((items < 2) || (items > 2)) {
4351 SWIG_croak("Usage: gsl_eigen_francis_workspace_size_set(self,size);");
4352 }
4353 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_eigen_francis_workspace, 0 | 0 );
4354 if (!SWIG_IsOK(res1)) {
4355 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_francis_workspace_size_set" "', argument " "1"" of type '" "gsl_eigen_francis_workspace *""'");
4356 }
4357 arg1 = (gsl_eigen_francis_workspace *)(argp1);
4358 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
4359 if (!SWIG_IsOK(ecode2)) {
4360 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_eigen_francis_workspace_size_set" "', argument " "2"" of type '" "size_t""'");
4361 }
4362 arg2 = (size_t)(val2);
4363 if (arg1) (arg1)->size = arg2;
4364 ST(argvi) = &PL_sv_undef;
4365
4366
4367 XSRETURN(argvi);
4368 fail:
4369
4370
4371 SWIG_croak_null();
4372 }
4373 }
4374
4375
XS(_wrap_gsl_eigen_francis_workspace_size_get)4376 XS(_wrap_gsl_eigen_francis_workspace_size_get) {
4377 {
4378 gsl_eigen_francis_workspace *arg1 = (gsl_eigen_francis_workspace *) 0 ;
4379 void *argp1 = 0 ;
4380 int res1 = 0 ;
4381 int argvi = 0;
4382 size_t result;
4383 dXSARGS;
4384
4385 if ((items < 1) || (items > 1)) {
4386 SWIG_croak("Usage: gsl_eigen_francis_workspace_size_get(self);");
4387 }
4388 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_eigen_francis_workspace, 0 | 0 );
4389 if (!SWIG_IsOK(res1)) {
4390 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_francis_workspace_size_get" "', argument " "1"" of type '" "gsl_eigen_francis_workspace *""'");
4391 }
4392 arg1 = (gsl_eigen_francis_workspace *)(argp1);
4393 result = ((arg1)->size);
4394 ST(argvi) = SWIG_From_size_t SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
4395
4396 XSRETURN(argvi);
4397 fail:
4398
4399 SWIG_croak_null();
4400 }
4401 }
4402
4403
XS(_wrap_gsl_eigen_francis_workspace_max_iterations_set)4404 XS(_wrap_gsl_eigen_francis_workspace_max_iterations_set) {
4405 {
4406 gsl_eigen_francis_workspace *arg1 = (gsl_eigen_francis_workspace *) 0 ;
4407 size_t arg2 ;
4408 void *argp1 = 0 ;
4409 int res1 = 0 ;
4410 size_t val2 ;
4411 int ecode2 = 0 ;
4412 int argvi = 0;
4413 dXSARGS;
4414
4415 if ((items < 2) || (items > 2)) {
4416 SWIG_croak("Usage: gsl_eigen_francis_workspace_max_iterations_set(self,max_iterations);");
4417 }
4418 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_eigen_francis_workspace, 0 | 0 );
4419 if (!SWIG_IsOK(res1)) {
4420 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_francis_workspace_max_iterations_set" "', argument " "1"" of type '" "gsl_eigen_francis_workspace *""'");
4421 }
4422 arg1 = (gsl_eigen_francis_workspace *)(argp1);
4423 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
4424 if (!SWIG_IsOK(ecode2)) {
4425 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_eigen_francis_workspace_max_iterations_set" "', argument " "2"" of type '" "size_t""'");
4426 }
4427 arg2 = (size_t)(val2);
4428 if (arg1) (arg1)->max_iterations = arg2;
4429 ST(argvi) = &PL_sv_undef;
4430
4431
4432 XSRETURN(argvi);
4433 fail:
4434
4435
4436 SWIG_croak_null();
4437 }
4438 }
4439
4440
XS(_wrap_gsl_eigen_francis_workspace_max_iterations_get)4441 XS(_wrap_gsl_eigen_francis_workspace_max_iterations_get) {
4442 {
4443 gsl_eigen_francis_workspace *arg1 = (gsl_eigen_francis_workspace *) 0 ;
4444 void *argp1 = 0 ;
4445 int res1 = 0 ;
4446 int argvi = 0;
4447 size_t result;
4448 dXSARGS;
4449
4450 if ((items < 1) || (items > 1)) {
4451 SWIG_croak("Usage: gsl_eigen_francis_workspace_max_iterations_get(self);");
4452 }
4453 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_eigen_francis_workspace, 0 | 0 );
4454 if (!SWIG_IsOK(res1)) {
4455 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_francis_workspace_max_iterations_get" "', argument " "1"" of type '" "gsl_eigen_francis_workspace *""'");
4456 }
4457 arg1 = (gsl_eigen_francis_workspace *)(argp1);
4458 result = ((arg1)->max_iterations);
4459 ST(argvi) = SWIG_From_size_t SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
4460
4461 XSRETURN(argvi);
4462 fail:
4463
4464 SWIG_croak_null();
4465 }
4466 }
4467
4468
XS(_wrap_gsl_eigen_francis_workspace_n_iter_set)4469 XS(_wrap_gsl_eigen_francis_workspace_n_iter_set) {
4470 {
4471 gsl_eigen_francis_workspace *arg1 = (gsl_eigen_francis_workspace *) 0 ;
4472 size_t arg2 ;
4473 void *argp1 = 0 ;
4474 int res1 = 0 ;
4475 size_t val2 ;
4476 int ecode2 = 0 ;
4477 int argvi = 0;
4478 dXSARGS;
4479
4480 if ((items < 2) || (items > 2)) {
4481 SWIG_croak("Usage: gsl_eigen_francis_workspace_n_iter_set(self,n_iter);");
4482 }
4483 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_eigen_francis_workspace, 0 | 0 );
4484 if (!SWIG_IsOK(res1)) {
4485 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_francis_workspace_n_iter_set" "', argument " "1"" of type '" "gsl_eigen_francis_workspace *""'");
4486 }
4487 arg1 = (gsl_eigen_francis_workspace *)(argp1);
4488 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
4489 if (!SWIG_IsOK(ecode2)) {
4490 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_eigen_francis_workspace_n_iter_set" "', argument " "2"" of type '" "size_t""'");
4491 }
4492 arg2 = (size_t)(val2);
4493 if (arg1) (arg1)->n_iter = arg2;
4494 ST(argvi) = &PL_sv_undef;
4495
4496
4497 XSRETURN(argvi);
4498 fail:
4499
4500
4501 SWIG_croak_null();
4502 }
4503 }
4504
4505
XS(_wrap_gsl_eigen_francis_workspace_n_iter_get)4506 XS(_wrap_gsl_eigen_francis_workspace_n_iter_get) {
4507 {
4508 gsl_eigen_francis_workspace *arg1 = (gsl_eigen_francis_workspace *) 0 ;
4509 void *argp1 = 0 ;
4510 int res1 = 0 ;
4511 int argvi = 0;
4512 size_t result;
4513 dXSARGS;
4514
4515 if ((items < 1) || (items > 1)) {
4516 SWIG_croak("Usage: gsl_eigen_francis_workspace_n_iter_get(self);");
4517 }
4518 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_eigen_francis_workspace, 0 | 0 );
4519 if (!SWIG_IsOK(res1)) {
4520 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_francis_workspace_n_iter_get" "', argument " "1"" of type '" "gsl_eigen_francis_workspace *""'");
4521 }
4522 arg1 = (gsl_eigen_francis_workspace *)(argp1);
4523 result = ((arg1)->n_iter);
4524 ST(argvi) = SWIG_From_size_t SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
4525
4526 XSRETURN(argvi);
4527 fail:
4528
4529 SWIG_croak_null();
4530 }
4531 }
4532
4533
XS(_wrap_gsl_eigen_francis_workspace_n_evals_set)4534 XS(_wrap_gsl_eigen_francis_workspace_n_evals_set) {
4535 {
4536 gsl_eigen_francis_workspace *arg1 = (gsl_eigen_francis_workspace *) 0 ;
4537 size_t arg2 ;
4538 void *argp1 = 0 ;
4539 int res1 = 0 ;
4540 size_t val2 ;
4541 int ecode2 = 0 ;
4542 int argvi = 0;
4543 dXSARGS;
4544
4545 if ((items < 2) || (items > 2)) {
4546 SWIG_croak("Usage: gsl_eigen_francis_workspace_n_evals_set(self,n_evals);");
4547 }
4548 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_eigen_francis_workspace, 0 | 0 );
4549 if (!SWIG_IsOK(res1)) {
4550 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_francis_workspace_n_evals_set" "', argument " "1"" of type '" "gsl_eigen_francis_workspace *""'");
4551 }
4552 arg1 = (gsl_eigen_francis_workspace *)(argp1);
4553 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
4554 if (!SWIG_IsOK(ecode2)) {
4555 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_eigen_francis_workspace_n_evals_set" "', argument " "2"" of type '" "size_t""'");
4556 }
4557 arg2 = (size_t)(val2);
4558 if (arg1) (arg1)->n_evals = arg2;
4559 ST(argvi) = &PL_sv_undef;
4560
4561
4562 XSRETURN(argvi);
4563 fail:
4564
4565
4566 SWIG_croak_null();
4567 }
4568 }
4569
4570
XS(_wrap_gsl_eigen_francis_workspace_n_evals_get)4571 XS(_wrap_gsl_eigen_francis_workspace_n_evals_get) {
4572 {
4573 gsl_eigen_francis_workspace *arg1 = (gsl_eigen_francis_workspace *) 0 ;
4574 void *argp1 = 0 ;
4575 int res1 = 0 ;
4576 int argvi = 0;
4577 size_t result;
4578 dXSARGS;
4579
4580 if ((items < 1) || (items > 1)) {
4581 SWIG_croak("Usage: gsl_eigen_francis_workspace_n_evals_get(self);");
4582 }
4583 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_eigen_francis_workspace, 0 | 0 );
4584 if (!SWIG_IsOK(res1)) {
4585 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_francis_workspace_n_evals_get" "', argument " "1"" of type '" "gsl_eigen_francis_workspace *""'");
4586 }
4587 arg1 = (gsl_eigen_francis_workspace *)(argp1);
4588 result = ((arg1)->n_evals);
4589 ST(argvi) = SWIG_From_size_t SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
4590
4591 XSRETURN(argvi);
4592 fail:
4593
4594 SWIG_croak_null();
4595 }
4596 }
4597
4598
XS(_wrap_gsl_eigen_francis_workspace_compute_t_set)4599 XS(_wrap_gsl_eigen_francis_workspace_compute_t_set) {
4600 {
4601 gsl_eigen_francis_workspace *arg1 = (gsl_eigen_francis_workspace *) 0 ;
4602 int arg2 ;
4603 void *argp1 = 0 ;
4604 int res1 = 0 ;
4605 int val2 ;
4606 int ecode2 = 0 ;
4607 int argvi = 0;
4608 dXSARGS;
4609
4610 if ((items < 2) || (items > 2)) {
4611 SWIG_croak("Usage: gsl_eigen_francis_workspace_compute_t_set(self,compute_t);");
4612 }
4613 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_eigen_francis_workspace, 0 | 0 );
4614 if (!SWIG_IsOK(res1)) {
4615 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_francis_workspace_compute_t_set" "', argument " "1"" of type '" "gsl_eigen_francis_workspace *""'");
4616 }
4617 arg1 = (gsl_eigen_francis_workspace *)(argp1);
4618 ecode2 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
4619 if (!SWIG_IsOK(ecode2)) {
4620 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_eigen_francis_workspace_compute_t_set" "', argument " "2"" of type '" "int""'");
4621 }
4622 arg2 = (int)(val2);
4623 if (arg1) (arg1)->compute_t = arg2;
4624 ST(argvi) = &PL_sv_undef;
4625
4626
4627 XSRETURN(argvi);
4628 fail:
4629
4630
4631 SWIG_croak_null();
4632 }
4633 }
4634
4635
XS(_wrap_gsl_eigen_francis_workspace_compute_t_get)4636 XS(_wrap_gsl_eigen_francis_workspace_compute_t_get) {
4637 {
4638 gsl_eigen_francis_workspace *arg1 = (gsl_eigen_francis_workspace *) 0 ;
4639 void *argp1 = 0 ;
4640 int res1 = 0 ;
4641 int argvi = 0;
4642 int result;
4643 dXSARGS;
4644
4645 if ((items < 1) || (items > 1)) {
4646 SWIG_croak("Usage: gsl_eigen_francis_workspace_compute_t_get(self);");
4647 }
4648 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_eigen_francis_workspace, 0 | 0 );
4649 if (!SWIG_IsOK(res1)) {
4650 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_francis_workspace_compute_t_get" "', argument " "1"" of type '" "gsl_eigen_francis_workspace *""'");
4651 }
4652 arg1 = (gsl_eigen_francis_workspace *)(argp1);
4653 result = (int) ((arg1)->compute_t);
4654 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4655
4656 XSRETURN(argvi);
4657 fail:
4658
4659 SWIG_croak_null();
4660 }
4661 }
4662
4663
XS(_wrap_gsl_eigen_francis_workspace_H_set)4664 XS(_wrap_gsl_eigen_francis_workspace_H_set) {
4665 {
4666 gsl_eigen_francis_workspace *arg1 = (gsl_eigen_francis_workspace *) 0 ;
4667 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
4668 void *argp1 = 0 ;
4669 int res1 = 0 ;
4670 void *argp2 = 0 ;
4671 int res2 = 0 ;
4672 int argvi = 0;
4673 dXSARGS;
4674
4675 if ((items < 2) || (items > 2)) {
4676 SWIG_croak("Usage: gsl_eigen_francis_workspace_H_set(self,H);");
4677 }
4678 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_eigen_francis_workspace, 0 | 0 );
4679 if (!SWIG_IsOK(res1)) {
4680 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_francis_workspace_H_set" "', argument " "1"" of type '" "gsl_eigen_francis_workspace *""'");
4681 }
4682 arg1 = (gsl_eigen_francis_workspace *)(argp1);
4683 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, SWIG_POINTER_DISOWN | 0 );
4684 if (!SWIG_IsOK(res2)) {
4685 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_eigen_francis_workspace_H_set" "', argument " "2"" of type '" "gsl_matrix *""'");
4686 }
4687 arg2 = (gsl_matrix *)(argp2);
4688 if (arg1) (arg1)->H = arg2;
4689 ST(argvi) = &PL_sv_undef;
4690
4691
4692 XSRETURN(argvi);
4693 fail:
4694
4695
4696 SWIG_croak_null();
4697 }
4698 }
4699
4700
XS(_wrap_gsl_eigen_francis_workspace_H_get)4701 XS(_wrap_gsl_eigen_francis_workspace_H_get) {
4702 {
4703 gsl_eigen_francis_workspace *arg1 = (gsl_eigen_francis_workspace *) 0 ;
4704 void *argp1 = 0 ;
4705 int res1 = 0 ;
4706 int argvi = 0;
4707 gsl_matrix *result = 0 ;
4708 dXSARGS;
4709
4710 if ((items < 1) || (items > 1)) {
4711 SWIG_croak("Usage: gsl_eigen_francis_workspace_H_get(self);");
4712 }
4713 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_eigen_francis_workspace, 0 | 0 );
4714 if (!SWIG_IsOK(res1)) {
4715 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_francis_workspace_H_get" "', argument " "1"" of type '" "gsl_eigen_francis_workspace *""'");
4716 }
4717 arg1 = (gsl_eigen_francis_workspace *)(argp1);
4718 result = (gsl_matrix *) ((arg1)->H);
4719 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_matrix, 0 | 0); argvi++ ;
4720
4721 XSRETURN(argvi);
4722 fail:
4723
4724 SWIG_croak_null();
4725 }
4726 }
4727
4728
XS(_wrap_gsl_eigen_francis_workspace_Z_set)4729 XS(_wrap_gsl_eigen_francis_workspace_Z_set) {
4730 {
4731 gsl_eigen_francis_workspace *arg1 = (gsl_eigen_francis_workspace *) 0 ;
4732 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
4733 void *argp1 = 0 ;
4734 int res1 = 0 ;
4735 void *argp2 = 0 ;
4736 int res2 = 0 ;
4737 int argvi = 0;
4738 dXSARGS;
4739
4740 if ((items < 2) || (items > 2)) {
4741 SWIG_croak("Usage: gsl_eigen_francis_workspace_Z_set(self,Z);");
4742 }
4743 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_eigen_francis_workspace, 0 | 0 );
4744 if (!SWIG_IsOK(res1)) {
4745 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_francis_workspace_Z_set" "', argument " "1"" of type '" "gsl_eigen_francis_workspace *""'");
4746 }
4747 arg1 = (gsl_eigen_francis_workspace *)(argp1);
4748 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, SWIG_POINTER_DISOWN | 0 );
4749 if (!SWIG_IsOK(res2)) {
4750 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_eigen_francis_workspace_Z_set" "', argument " "2"" of type '" "gsl_matrix *""'");
4751 }
4752 arg2 = (gsl_matrix *)(argp2);
4753 if (arg1) (arg1)->Z = arg2;
4754 ST(argvi) = &PL_sv_undef;
4755
4756
4757 XSRETURN(argvi);
4758 fail:
4759
4760
4761 SWIG_croak_null();
4762 }
4763 }
4764
4765
XS(_wrap_gsl_eigen_francis_workspace_Z_get)4766 XS(_wrap_gsl_eigen_francis_workspace_Z_get) {
4767 {
4768 gsl_eigen_francis_workspace *arg1 = (gsl_eigen_francis_workspace *) 0 ;
4769 void *argp1 = 0 ;
4770 int res1 = 0 ;
4771 int argvi = 0;
4772 gsl_matrix *result = 0 ;
4773 dXSARGS;
4774
4775 if ((items < 1) || (items > 1)) {
4776 SWIG_croak("Usage: gsl_eigen_francis_workspace_Z_get(self);");
4777 }
4778 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_eigen_francis_workspace, 0 | 0 );
4779 if (!SWIG_IsOK(res1)) {
4780 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_francis_workspace_Z_get" "', argument " "1"" of type '" "gsl_eigen_francis_workspace *""'");
4781 }
4782 arg1 = (gsl_eigen_francis_workspace *)(argp1);
4783 result = (gsl_matrix *) ((arg1)->Z);
4784 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_matrix, 0 | 0); argvi++ ;
4785
4786 XSRETURN(argvi);
4787 fail:
4788
4789 SWIG_croak_null();
4790 }
4791 }
4792
4793
XS(_wrap_new_gsl_eigen_francis_workspace)4794 XS(_wrap_new_gsl_eigen_francis_workspace) {
4795 {
4796 int argvi = 0;
4797 gsl_eigen_francis_workspace *result = 0 ;
4798 dXSARGS;
4799
4800 if ((items < 0) || (items > 0)) {
4801 SWIG_croak("Usage: new_gsl_eigen_francis_workspace();");
4802 }
4803 result = (gsl_eigen_francis_workspace *)calloc(1, sizeof(gsl_eigen_francis_workspace));
4804 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_eigen_francis_workspace, SWIG_OWNER | SWIG_SHADOW); argvi++ ;
4805 XSRETURN(argvi);
4806 fail:
4807 SWIG_croak_null();
4808 }
4809 }
4810
4811
XS(_wrap_delete_gsl_eigen_francis_workspace)4812 XS(_wrap_delete_gsl_eigen_francis_workspace) {
4813 {
4814 gsl_eigen_francis_workspace *arg1 = (gsl_eigen_francis_workspace *) 0 ;
4815 void *argp1 = 0 ;
4816 int res1 = 0 ;
4817 int argvi = 0;
4818 dXSARGS;
4819
4820 if ((items < 1) || (items > 1)) {
4821 SWIG_croak("Usage: delete_gsl_eigen_francis_workspace(self);");
4822 }
4823 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_eigen_francis_workspace, SWIG_POINTER_DISOWN | 0 );
4824 if (!SWIG_IsOK(res1)) {
4825 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "delete_gsl_eigen_francis_workspace" "', argument " "1"" of type '" "gsl_eigen_francis_workspace *""'");
4826 }
4827 arg1 = (gsl_eigen_francis_workspace *)(argp1);
4828 free((char *) arg1);
4829 ST(argvi) = &PL_sv_undef;
4830
4831 XSRETURN(argvi);
4832 fail:
4833
4834 SWIG_croak_null();
4835 }
4836 }
4837
4838
XS(_wrap_gsl_eigen_francis_alloc)4839 XS(_wrap_gsl_eigen_francis_alloc) {
4840 {
4841 int argvi = 0;
4842 gsl_eigen_francis_workspace *result = 0 ;
4843 dXSARGS;
4844
4845 if ((items < 0) || (items > 0)) {
4846 SWIG_croak("Usage: gsl_eigen_francis_alloc();");
4847 }
4848 result = (gsl_eigen_francis_workspace *)gsl_eigen_francis_alloc();
4849 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_eigen_francis_workspace, 0 | SWIG_SHADOW); argvi++ ;
4850 XSRETURN(argvi);
4851 fail:
4852 SWIG_croak_null();
4853 }
4854 }
4855
4856
XS(_wrap_gsl_eigen_francis_free)4857 XS(_wrap_gsl_eigen_francis_free) {
4858 {
4859 gsl_eigen_francis_workspace *arg1 = (gsl_eigen_francis_workspace *) 0 ;
4860 void *argp1 = 0 ;
4861 int res1 = 0 ;
4862 int argvi = 0;
4863 dXSARGS;
4864
4865 if ((items < 1) || (items > 1)) {
4866 SWIG_croak("Usage: gsl_eigen_francis_free(w);");
4867 }
4868 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_eigen_francis_workspace, 0 | 0 );
4869 if (!SWIG_IsOK(res1)) {
4870 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_francis_free" "', argument " "1"" of type '" "gsl_eigen_francis_workspace *""'");
4871 }
4872 arg1 = (gsl_eigen_francis_workspace *)(argp1);
4873 gsl_eigen_francis_free(arg1);
4874 ST(argvi) = &PL_sv_undef;
4875
4876 XSRETURN(argvi);
4877 fail:
4878
4879 SWIG_croak_null();
4880 }
4881 }
4882
4883
XS(_wrap_gsl_eigen_francis_T)4884 XS(_wrap_gsl_eigen_francis_T) {
4885 {
4886 int arg1 ;
4887 gsl_eigen_francis_workspace *arg2 = (gsl_eigen_francis_workspace *) 0 ;
4888 int val1 ;
4889 int ecode1 = 0 ;
4890 void *argp2 = 0 ;
4891 int res2 = 0 ;
4892 int argvi = 0;
4893 dXSARGS;
4894
4895 if ((items < 2) || (items > 2)) {
4896 SWIG_croak("Usage: gsl_eigen_francis_T(compute_t,w);");
4897 }
4898 ecode1 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
4899 if (!SWIG_IsOK(ecode1)) {
4900 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_eigen_francis_T" "', argument " "1"" of type '" "int""'");
4901 }
4902 arg1 = (int)(val1);
4903 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_eigen_francis_workspace, 0 | 0 );
4904 if (!SWIG_IsOK(res2)) {
4905 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_eigen_francis_T" "', argument " "2"" of type '" "gsl_eigen_francis_workspace *""'");
4906 }
4907 arg2 = (gsl_eigen_francis_workspace *)(argp2);
4908 gsl_eigen_francis_T(arg1,arg2);
4909 ST(argvi) = &PL_sv_undef;
4910
4911
4912 XSRETURN(argvi);
4913 fail:
4914
4915
4916 SWIG_croak_null();
4917 }
4918 }
4919
4920
XS(_wrap_gsl_eigen_francis)4921 XS(_wrap_gsl_eigen_francis) {
4922 {
4923 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
4924 gsl_vector_complex *arg2 = (gsl_vector_complex *) 0 ;
4925 gsl_eigen_francis_workspace *arg3 = (gsl_eigen_francis_workspace *) 0 ;
4926 void *argp1 = 0 ;
4927 int res1 = 0 ;
4928 void *argp2 = 0 ;
4929 int res2 = 0 ;
4930 void *argp3 = 0 ;
4931 int res3 = 0 ;
4932 int argvi = 0;
4933 int result;
4934 dXSARGS;
4935
4936 if ((items < 3) || (items > 3)) {
4937 SWIG_croak("Usage: gsl_eigen_francis(H,eval,w);");
4938 }
4939 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
4940 if (!SWIG_IsOK(res1)) {
4941 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_francis" "', argument " "1"" of type '" "gsl_matrix *""'");
4942 }
4943 arg1 = (gsl_matrix *)(argp1);
4944 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
4945 if (!SWIG_IsOK(res2)) {
4946 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_eigen_francis" "', argument " "2"" of type '" "gsl_vector_complex *""'");
4947 }
4948 arg2 = (gsl_vector_complex *)(argp2);
4949 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_eigen_francis_workspace, 0 | 0 );
4950 if (!SWIG_IsOK(res3)) {
4951 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_eigen_francis" "', argument " "3"" of type '" "gsl_eigen_francis_workspace *""'");
4952 }
4953 arg3 = (gsl_eigen_francis_workspace *)(argp3);
4954 result = (int)gsl_eigen_francis(arg1,arg2,arg3);
4955 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4956
4957
4958
4959 XSRETURN(argvi);
4960 fail:
4961
4962
4963
4964 SWIG_croak_null();
4965 }
4966 }
4967
4968
XS(_wrap_gsl_eigen_francis_Z)4969 XS(_wrap_gsl_eigen_francis_Z) {
4970 {
4971 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
4972 gsl_vector_complex *arg2 = (gsl_vector_complex *) 0 ;
4973 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
4974 gsl_eigen_francis_workspace *arg4 = (gsl_eigen_francis_workspace *) 0 ;
4975 void *argp1 = 0 ;
4976 int res1 = 0 ;
4977 void *argp2 = 0 ;
4978 int res2 = 0 ;
4979 void *argp3 = 0 ;
4980 int res3 = 0 ;
4981 void *argp4 = 0 ;
4982 int res4 = 0 ;
4983 int argvi = 0;
4984 int result;
4985 dXSARGS;
4986
4987 if ((items < 4) || (items > 4)) {
4988 SWIG_croak("Usage: gsl_eigen_francis_Z(H,eval,Z,w);");
4989 }
4990 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
4991 if (!SWIG_IsOK(res1)) {
4992 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_francis_Z" "', argument " "1"" of type '" "gsl_matrix *""'");
4993 }
4994 arg1 = (gsl_matrix *)(argp1);
4995 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
4996 if (!SWIG_IsOK(res2)) {
4997 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_eigen_francis_Z" "', argument " "2"" of type '" "gsl_vector_complex *""'");
4998 }
4999 arg2 = (gsl_vector_complex *)(argp2);
5000 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5001 if (!SWIG_IsOK(res3)) {
5002 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_eigen_francis_Z" "', argument " "3"" of type '" "gsl_matrix *""'");
5003 }
5004 arg3 = (gsl_matrix *)(argp3);
5005 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_eigen_francis_workspace, 0 | 0 );
5006 if (!SWIG_IsOK(res4)) {
5007 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_eigen_francis_Z" "', argument " "4"" of type '" "gsl_eigen_francis_workspace *""'");
5008 }
5009 arg4 = (gsl_eigen_francis_workspace *)(argp4);
5010 result = (int)gsl_eigen_francis_Z(arg1,arg2,arg3,arg4);
5011 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5012
5013
5014
5015
5016 XSRETURN(argvi);
5017 fail:
5018
5019
5020
5021
5022 SWIG_croak_null();
5023 }
5024 }
5025
5026
XS(_wrap_gsl_eigen_nonsymm_workspace_size_set)5027 XS(_wrap_gsl_eigen_nonsymm_workspace_size_set) {
5028 {
5029 gsl_eigen_nonsymm_workspace *arg1 = (gsl_eigen_nonsymm_workspace *) 0 ;
5030 size_t arg2 ;
5031 void *argp1 = 0 ;
5032 int res1 = 0 ;
5033 size_t val2 ;
5034 int ecode2 = 0 ;
5035 int argvi = 0;
5036 dXSARGS;
5037
5038 if ((items < 2) || (items > 2)) {
5039 SWIG_croak("Usage: gsl_eigen_nonsymm_workspace_size_set(self,size);");
5040 }
5041 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_eigen_nonsymm_workspace, 0 | 0 );
5042 if (!SWIG_IsOK(res1)) {
5043 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_nonsymm_workspace_size_set" "', argument " "1"" of type '" "gsl_eigen_nonsymm_workspace *""'");
5044 }
5045 arg1 = (gsl_eigen_nonsymm_workspace *)(argp1);
5046 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
5047 if (!SWIG_IsOK(ecode2)) {
5048 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_eigen_nonsymm_workspace_size_set" "', argument " "2"" of type '" "size_t""'");
5049 }
5050 arg2 = (size_t)(val2);
5051 if (arg1) (arg1)->size = arg2;
5052 ST(argvi) = &PL_sv_undef;
5053
5054
5055 XSRETURN(argvi);
5056 fail:
5057
5058
5059 SWIG_croak_null();
5060 }
5061 }
5062
5063
XS(_wrap_gsl_eigen_nonsymm_workspace_size_get)5064 XS(_wrap_gsl_eigen_nonsymm_workspace_size_get) {
5065 {
5066 gsl_eigen_nonsymm_workspace *arg1 = (gsl_eigen_nonsymm_workspace *) 0 ;
5067 void *argp1 = 0 ;
5068 int res1 = 0 ;
5069 int argvi = 0;
5070 size_t result;
5071 dXSARGS;
5072
5073 if ((items < 1) || (items > 1)) {
5074 SWIG_croak("Usage: gsl_eigen_nonsymm_workspace_size_get(self);");
5075 }
5076 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_eigen_nonsymm_workspace, 0 | 0 );
5077 if (!SWIG_IsOK(res1)) {
5078 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_nonsymm_workspace_size_get" "', argument " "1"" of type '" "gsl_eigen_nonsymm_workspace *""'");
5079 }
5080 arg1 = (gsl_eigen_nonsymm_workspace *)(argp1);
5081 result = ((arg1)->size);
5082 ST(argvi) = SWIG_From_size_t SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
5083
5084 XSRETURN(argvi);
5085 fail:
5086
5087 SWIG_croak_null();
5088 }
5089 }
5090
5091
XS(_wrap_gsl_eigen_nonsymm_workspace_diag_set)5092 XS(_wrap_gsl_eigen_nonsymm_workspace_diag_set) {
5093 {
5094 gsl_eigen_nonsymm_workspace *arg1 = (gsl_eigen_nonsymm_workspace *) 0 ;
5095 gsl_vector *arg2 = (gsl_vector *) 0 ;
5096 void *argp1 = 0 ;
5097 int res1 = 0 ;
5098 void *argp2 = 0 ;
5099 int res2 = 0 ;
5100 int argvi = 0;
5101 dXSARGS;
5102
5103 if ((items < 2) || (items > 2)) {
5104 SWIG_croak("Usage: gsl_eigen_nonsymm_workspace_diag_set(self,diag);");
5105 }
5106 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_eigen_nonsymm_workspace, 0 | 0 );
5107 if (!SWIG_IsOK(res1)) {
5108 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_nonsymm_workspace_diag_set" "', argument " "1"" of type '" "gsl_eigen_nonsymm_workspace *""'");
5109 }
5110 arg1 = (gsl_eigen_nonsymm_workspace *)(argp1);
5111 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, SWIG_POINTER_DISOWN | 0 );
5112 if (!SWIG_IsOK(res2)) {
5113 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_eigen_nonsymm_workspace_diag_set" "', argument " "2"" of type '" "gsl_vector *""'");
5114 }
5115 arg2 = (gsl_vector *)(argp2);
5116 if (arg1) (arg1)->diag = arg2;
5117 ST(argvi) = &PL_sv_undef;
5118
5119
5120 XSRETURN(argvi);
5121 fail:
5122
5123
5124 SWIG_croak_null();
5125 }
5126 }
5127
5128
XS(_wrap_gsl_eigen_nonsymm_workspace_diag_get)5129 XS(_wrap_gsl_eigen_nonsymm_workspace_diag_get) {
5130 {
5131 gsl_eigen_nonsymm_workspace *arg1 = (gsl_eigen_nonsymm_workspace *) 0 ;
5132 void *argp1 = 0 ;
5133 int res1 = 0 ;
5134 int argvi = 0;
5135 gsl_vector *result = 0 ;
5136 dXSARGS;
5137
5138 if ((items < 1) || (items > 1)) {
5139 SWIG_croak("Usage: gsl_eigen_nonsymm_workspace_diag_get(self);");
5140 }
5141 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_eigen_nonsymm_workspace, 0 | 0 );
5142 if (!SWIG_IsOK(res1)) {
5143 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_nonsymm_workspace_diag_get" "', argument " "1"" of type '" "gsl_eigen_nonsymm_workspace *""'");
5144 }
5145 arg1 = (gsl_eigen_nonsymm_workspace *)(argp1);
5146 result = (gsl_vector *) ((arg1)->diag);
5147 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_vector, 0 | 0); argvi++ ;
5148
5149 XSRETURN(argvi);
5150 fail:
5151
5152 SWIG_croak_null();
5153 }
5154 }
5155
5156
XS(_wrap_gsl_eigen_nonsymm_workspace_tau_set)5157 XS(_wrap_gsl_eigen_nonsymm_workspace_tau_set) {
5158 {
5159 gsl_eigen_nonsymm_workspace *arg1 = (gsl_eigen_nonsymm_workspace *) 0 ;
5160 gsl_vector *arg2 = (gsl_vector *) 0 ;
5161 void *argp1 = 0 ;
5162 int res1 = 0 ;
5163 void *argp2 = 0 ;
5164 int res2 = 0 ;
5165 int argvi = 0;
5166 dXSARGS;
5167
5168 if ((items < 2) || (items > 2)) {
5169 SWIG_croak("Usage: gsl_eigen_nonsymm_workspace_tau_set(self,tau);");
5170 }
5171 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_eigen_nonsymm_workspace, 0 | 0 );
5172 if (!SWIG_IsOK(res1)) {
5173 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_nonsymm_workspace_tau_set" "', argument " "1"" of type '" "gsl_eigen_nonsymm_workspace *""'");
5174 }
5175 arg1 = (gsl_eigen_nonsymm_workspace *)(argp1);
5176 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, SWIG_POINTER_DISOWN | 0 );
5177 if (!SWIG_IsOK(res2)) {
5178 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_eigen_nonsymm_workspace_tau_set" "', argument " "2"" of type '" "gsl_vector *""'");
5179 }
5180 arg2 = (gsl_vector *)(argp2);
5181 if (arg1) (arg1)->tau = arg2;
5182 ST(argvi) = &PL_sv_undef;
5183
5184
5185 XSRETURN(argvi);
5186 fail:
5187
5188
5189 SWIG_croak_null();
5190 }
5191 }
5192
5193
XS(_wrap_gsl_eigen_nonsymm_workspace_tau_get)5194 XS(_wrap_gsl_eigen_nonsymm_workspace_tau_get) {
5195 {
5196 gsl_eigen_nonsymm_workspace *arg1 = (gsl_eigen_nonsymm_workspace *) 0 ;
5197 void *argp1 = 0 ;
5198 int res1 = 0 ;
5199 int argvi = 0;
5200 gsl_vector *result = 0 ;
5201 dXSARGS;
5202
5203 if ((items < 1) || (items > 1)) {
5204 SWIG_croak("Usage: gsl_eigen_nonsymm_workspace_tau_get(self);");
5205 }
5206 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_eigen_nonsymm_workspace, 0 | 0 );
5207 if (!SWIG_IsOK(res1)) {
5208 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_nonsymm_workspace_tau_get" "', argument " "1"" of type '" "gsl_eigen_nonsymm_workspace *""'");
5209 }
5210 arg1 = (gsl_eigen_nonsymm_workspace *)(argp1);
5211 result = (gsl_vector *) ((arg1)->tau);
5212 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_vector, 0 | 0); argvi++ ;
5213
5214 XSRETURN(argvi);
5215 fail:
5216
5217 SWIG_croak_null();
5218 }
5219 }
5220
5221
XS(_wrap_gsl_eigen_nonsymm_workspace_Z_set)5222 XS(_wrap_gsl_eigen_nonsymm_workspace_Z_set) {
5223 {
5224 gsl_eigen_nonsymm_workspace *arg1 = (gsl_eigen_nonsymm_workspace *) 0 ;
5225 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
5226 void *argp1 = 0 ;
5227 int res1 = 0 ;
5228 void *argp2 = 0 ;
5229 int res2 = 0 ;
5230 int argvi = 0;
5231 dXSARGS;
5232
5233 if ((items < 2) || (items > 2)) {
5234 SWIG_croak("Usage: gsl_eigen_nonsymm_workspace_Z_set(self,Z);");
5235 }
5236 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_eigen_nonsymm_workspace, 0 | 0 );
5237 if (!SWIG_IsOK(res1)) {
5238 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_nonsymm_workspace_Z_set" "', argument " "1"" of type '" "gsl_eigen_nonsymm_workspace *""'");
5239 }
5240 arg1 = (gsl_eigen_nonsymm_workspace *)(argp1);
5241 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, SWIG_POINTER_DISOWN | 0 );
5242 if (!SWIG_IsOK(res2)) {
5243 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_eigen_nonsymm_workspace_Z_set" "', argument " "2"" of type '" "gsl_matrix *""'");
5244 }
5245 arg2 = (gsl_matrix *)(argp2);
5246 if (arg1) (arg1)->Z = arg2;
5247 ST(argvi) = &PL_sv_undef;
5248
5249
5250 XSRETURN(argvi);
5251 fail:
5252
5253
5254 SWIG_croak_null();
5255 }
5256 }
5257
5258
XS(_wrap_gsl_eigen_nonsymm_workspace_Z_get)5259 XS(_wrap_gsl_eigen_nonsymm_workspace_Z_get) {
5260 {
5261 gsl_eigen_nonsymm_workspace *arg1 = (gsl_eigen_nonsymm_workspace *) 0 ;
5262 void *argp1 = 0 ;
5263 int res1 = 0 ;
5264 int argvi = 0;
5265 gsl_matrix *result = 0 ;
5266 dXSARGS;
5267
5268 if ((items < 1) || (items > 1)) {
5269 SWIG_croak("Usage: gsl_eigen_nonsymm_workspace_Z_get(self);");
5270 }
5271 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_eigen_nonsymm_workspace, 0 | 0 );
5272 if (!SWIG_IsOK(res1)) {
5273 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_nonsymm_workspace_Z_get" "', argument " "1"" of type '" "gsl_eigen_nonsymm_workspace *""'");
5274 }
5275 arg1 = (gsl_eigen_nonsymm_workspace *)(argp1);
5276 result = (gsl_matrix *) ((arg1)->Z);
5277 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_matrix, 0 | 0); argvi++ ;
5278
5279 XSRETURN(argvi);
5280 fail:
5281
5282 SWIG_croak_null();
5283 }
5284 }
5285
5286
XS(_wrap_gsl_eigen_nonsymm_workspace_do_balance_set)5287 XS(_wrap_gsl_eigen_nonsymm_workspace_do_balance_set) {
5288 {
5289 gsl_eigen_nonsymm_workspace *arg1 = (gsl_eigen_nonsymm_workspace *) 0 ;
5290 int arg2 ;
5291 void *argp1 = 0 ;
5292 int res1 = 0 ;
5293 int val2 ;
5294 int ecode2 = 0 ;
5295 int argvi = 0;
5296 dXSARGS;
5297
5298 if ((items < 2) || (items > 2)) {
5299 SWIG_croak("Usage: gsl_eigen_nonsymm_workspace_do_balance_set(self,do_balance);");
5300 }
5301 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_eigen_nonsymm_workspace, 0 | 0 );
5302 if (!SWIG_IsOK(res1)) {
5303 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_nonsymm_workspace_do_balance_set" "', argument " "1"" of type '" "gsl_eigen_nonsymm_workspace *""'");
5304 }
5305 arg1 = (gsl_eigen_nonsymm_workspace *)(argp1);
5306 ecode2 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
5307 if (!SWIG_IsOK(ecode2)) {
5308 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_eigen_nonsymm_workspace_do_balance_set" "', argument " "2"" of type '" "int""'");
5309 }
5310 arg2 = (int)(val2);
5311 if (arg1) (arg1)->do_balance = arg2;
5312 ST(argvi) = &PL_sv_undef;
5313
5314
5315 XSRETURN(argvi);
5316 fail:
5317
5318
5319 SWIG_croak_null();
5320 }
5321 }
5322
5323
XS(_wrap_gsl_eigen_nonsymm_workspace_do_balance_get)5324 XS(_wrap_gsl_eigen_nonsymm_workspace_do_balance_get) {
5325 {
5326 gsl_eigen_nonsymm_workspace *arg1 = (gsl_eigen_nonsymm_workspace *) 0 ;
5327 void *argp1 = 0 ;
5328 int res1 = 0 ;
5329 int argvi = 0;
5330 int result;
5331 dXSARGS;
5332
5333 if ((items < 1) || (items > 1)) {
5334 SWIG_croak("Usage: gsl_eigen_nonsymm_workspace_do_balance_get(self);");
5335 }
5336 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_eigen_nonsymm_workspace, 0 | 0 );
5337 if (!SWIG_IsOK(res1)) {
5338 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_nonsymm_workspace_do_balance_get" "', argument " "1"" of type '" "gsl_eigen_nonsymm_workspace *""'");
5339 }
5340 arg1 = (gsl_eigen_nonsymm_workspace *)(argp1);
5341 result = (int) ((arg1)->do_balance);
5342 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5343
5344 XSRETURN(argvi);
5345 fail:
5346
5347 SWIG_croak_null();
5348 }
5349 }
5350
5351
XS(_wrap_gsl_eigen_nonsymm_workspace_n_evals_set)5352 XS(_wrap_gsl_eigen_nonsymm_workspace_n_evals_set) {
5353 {
5354 gsl_eigen_nonsymm_workspace *arg1 = (gsl_eigen_nonsymm_workspace *) 0 ;
5355 size_t arg2 ;
5356 void *argp1 = 0 ;
5357 int res1 = 0 ;
5358 size_t val2 ;
5359 int ecode2 = 0 ;
5360 int argvi = 0;
5361 dXSARGS;
5362
5363 if ((items < 2) || (items > 2)) {
5364 SWIG_croak("Usage: gsl_eigen_nonsymm_workspace_n_evals_set(self,n_evals);");
5365 }
5366 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_eigen_nonsymm_workspace, 0 | 0 );
5367 if (!SWIG_IsOK(res1)) {
5368 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_nonsymm_workspace_n_evals_set" "', argument " "1"" of type '" "gsl_eigen_nonsymm_workspace *""'");
5369 }
5370 arg1 = (gsl_eigen_nonsymm_workspace *)(argp1);
5371 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
5372 if (!SWIG_IsOK(ecode2)) {
5373 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_eigen_nonsymm_workspace_n_evals_set" "', argument " "2"" of type '" "size_t""'");
5374 }
5375 arg2 = (size_t)(val2);
5376 if (arg1) (arg1)->n_evals = arg2;
5377 ST(argvi) = &PL_sv_undef;
5378
5379
5380 XSRETURN(argvi);
5381 fail:
5382
5383
5384 SWIG_croak_null();
5385 }
5386 }
5387
5388
XS(_wrap_gsl_eigen_nonsymm_workspace_n_evals_get)5389 XS(_wrap_gsl_eigen_nonsymm_workspace_n_evals_get) {
5390 {
5391 gsl_eigen_nonsymm_workspace *arg1 = (gsl_eigen_nonsymm_workspace *) 0 ;
5392 void *argp1 = 0 ;
5393 int res1 = 0 ;
5394 int argvi = 0;
5395 size_t result;
5396 dXSARGS;
5397
5398 if ((items < 1) || (items > 1)) {
5399 SWIG_croak("Usage: gsl_eigen_nonsymm_workspace_n_evals_get(self);");
5400 }
5401 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_eigen_nonsymm_workspace, 0 | 0 );
5402 if (!SWIG_IsOK(res1)) {
5403 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_nonsymm_workspace_n_evals_get" "', argument " "1"" of type '" "gsl_eigen_nonsymm_workspace *""'");
5404 }
5405 arg1 = (gsl_eigen_nonsymm_workspace *)(argp1);
5406 result = ((arg1)->n_evals);
5407 ST(argvi) = SWIG_From_size_t SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
5408
5409 XSRETURN(argvi);
5410 fail:
5411
5412 SWIG_croak_null();
5413 }
5414 }
5415
5416
XS(_wrap_gsl_eigen_nonsymm_workspace_francis_workspace_p_set)5417 XS(_wrap_gsl_eigen_nonsymm_workspace_francis_workspace_p_set) {
5418 {
5419 gsl_eigen_nonsymm_workspace *arg1 = (gsl_eigen_nonsymm_workspace *) 0 ;
5420 gsl_eigen_francis_workspace *arg2 = (gsl_eigen_francis_workspace *) 0 ;
5421 void *argp1 = 0 ;
5422 int res1 = 0 ;
5423 void *argp2 = 0 ;
5424 int res2 = 0 ;
5425 int argvi = 0;
5426 dXSARGS;
5427
5428 if ((items < 2) || (items > 2)) {
5429 SWIG_croak("Usage: gsl_eigen_nonsymm_workspace_francis_workspace_p_set(self,francis_workspace_p);");
5430 }
5431 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_eigen_nonsymm_workspace, 0 | 0 );
5432 if (!SWIG_IsOK(res1)) {
5433 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_nonsymm_workspace_francis_workspace_p_set" "', argument " "1"" of type '" "gsl_eigen_nonsymm_workspace *""'");
5434 }
5435 arg1 = (gsl_eigen_nonsymm_workspace *)(argp1);
5436 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_eigen_francis_workspace, SWIG_POINTER_DISOWN | 0 );
5437 if (!SWIG_IsOK(res2)) {
5438 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_eigen_nonsymm_workspace_francis_workspace_p_set" "', argument " "2"" of type '" "gsl_eigen_francis_workspace *""'");
5439 }
5440 arg2 = (gsl_eigen_francis_workspace *)(argp2);
5441 if (arg1) (arg1)->francis_workspace_p = arg2;
5442 ST(argvi) = &PL_sv_undef;
5443
5444
5445 XSRETURN(argvi);
5446 fail:
5447
5448
5449 SWIG_croak_null();
5450 }
5451 }
5452
5453
XS(_wrap_gsl_eigen_nonsymm_workspace_francis_workspace_p_get)5454 XS(_wrap_gsl_eigen_nonsymm_workspace_francis_workspace_p_get) {
5455 {
5456 gsl_eigen_nonsymm_workspace *arg1 = (gsl_eigen_nonsymm_workspace *) 0 ;
5457 void *argp1 = 0 ;
5458 int res1 = 0 ;
5459 int argvi = 0;
5460 gsl_eigen_francis_workspace *result = 0 ;
5461 dXSARGS;
5462
5463 if ((items < 1) || (items > 1)) {
5464 SWIG_croak("Usage: gsl_eigen_nonsymm_workspace_francis_workspace_p_get(self);");
5465 }
5466 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_eigen_nonsymm_workspace, 0 | 0 );
5467 if (!SWIG_IsOK(res1)) {
5468 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_nonsymm_workspace_francis_workspace_p_get" "', argument " "1"" of type '" "gsl_eigen_nonsymm_workspace *""'");
5469 }
5470 arg1 = (gsl_eigen_nonsymm_workspace *)(argp1);
5471 result = (gsl_eigen_francis_workspace *) ((arg1)->francis_workspace_p);
5472 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_eigen_francis_workspace, 0 | SWIG_SHADOW); argvi++ ;
5473
5474 XSRETURN(argvi);
5475 fail:
5476
5477 SWIG_croak_null();
5478 }
5479 }
5480
5481
XS(_wrap_new_gsl_eigen_nonsymm_workspace)5482 XS(_wrap_new_gsl_eigen_nonsymm_workspace) {
5483 {
5484 int argvi = 0;
5485 gsl_eigen_nonsymm_workspace *result = 0 ;
5486 dXSARGS;
5487
5488 if ((items < 0) || (items > 0)) {
5489 SWIG_croak("Usage: new_gsl_eigen_nonsymm_workspace();");
5490 }
5491 result = (gsl_eigen_nonsymm_workspace *)calloc(1, sizeof(gsl_eigen_nonsymm_workspace));
5492 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_eigen_nonsymm_workspace, SWIG_OWNER | SWIG_SHADOW); argvi++ ;
5493 XSRETURN(argvi);
5494 fail:
5495 SWIG_croak_null();
5496 }
5497 }
5498
5499
XS(_wrap_delete_gsl_eigen_nonsymm_workspace)5500 XS(_wrap_delete_gsl_eigen_nonsymm_workspace) {
5501 {
5502 gsl_eigen_nonsymm_workspace *arg1 = (gsl_eigen_nonsymm_workspace *) 0 ;
5503 void *argp1 = 0 ;
5504 int res1 = 0 ;
5505 int argvi = 0;
5506 dXSARGS;
5507
5508 if ((items < 1) || (items > 1)) {
5509 SWIG_croak("Usage: delete_gsl_eigen_nonsymm_workspace(self);");
5510 }
5511 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_eigen_nonsymm_workspace, SWIG_POINTER_DISOWN | 0 );
5512 if (!SWIG_IsOK(res1)) {
5513 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "delete_gsl_eigen_nonsymm_workspace" "', argument " "1"" of type '" "gsl_eigen_nonsymm_workspace *""'");
5514 }
5515 arg1 = (gsl_eigen_nonsymm_workspace *)(argp1);
5516 free((char *) arg1);
5517 ST(argvi) = &PL_sv_undef;
5518
5519 XSRETURN(argvi);
5520 fail:
5521
5522 SWIG_croak_null();
5523 }
5524 }
5525
5526
XS(_wrap_gsl_eigen_nonsymm_alloc)5527 XS(_wrap_gsl_eigen_nonsymm_alloc) {
5528 {
5529 size_t arg1 ;
5530 size_t val1 ;
5531 int ecode1 = 0 ;
5532 int argvi = 0;
5533 gsl_eigen_nonsymm_workspace *result = 0 ;
5534 dXSARGS;
5535
5536 if ((items < 1) || (items > 1)) {
5537 SWIG_croak("Usage: gsl_eigen_nonsymm_alloc(n);");
5538 }
5539 ecode1 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
5540 if (!SWIG_IsOK(ecode1)) {
5541 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_eigen_nonsymm_alloc" "', argument " "1"" of type '" "size_t""'");
5542 }
5543 arg1 = (size_t)(val1);
5544 result = (gsl_eigen_nonsymm_workspace *)gsl_eigen_nonsymm_alloc(arg1);
5545 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_eigen_nonsymm_workspace, 0 | SWIG_SHADOW); argvi++ ;
5546
5547 XSRETURN(argvi);
5548 fail:
5549
5550 SWIG_croak_null();
5551 }
5552 }
5553
5554
XS(_wrap_gsl_eigen_nonsymm_free)5555 XS(_wrap_gsl_eigen_nonsymm_free) {
5556 {
5557 gsl_eigen_nonsymm_workspace *arg1 = (gsl_eigen_nonsymm_workspace *) 0 ;
5558 void *argp1 = 0 ;
5559 int res1 = 0 ;
5560 int argvi = 0;
5561 dXSARGS;
5562
5563 if ((items < 1) || (items > 1)) {
5564 SWIG_croak("Usage: gsl_eigen_nonsymm_free(w);");
5565 }
5566 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_eigen_nonsymm_workspace, 0 | 0 );
5567 if (!SWIG_IsOK(res1)) {
5568 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_nonsymm_free" "', argument " "1"" of type '" "gsl_eigen_nonsymm_workspace *""'");
5569 }
5570 arg1 = (gsl_eigen_nonsymm_workspace *)(argp1);
5571 gsl_eigen_nonsymm_free(arg1);
5572 ST(argvi) = &PL_sv_undef;
5573
5574 XSRETURN(argvi);
5575 fail:
5576
5577 SWIG_croak_null();
5578 }
5579 }
5580
5581
XS(_wrap_gsl_eigen_nonsymm_params)5582 XS(_wrap_gsl_eigen_nonsymm_params) {
5583 {
5584 int arg1 ;
5585 int arg2 ;
5586 gsl_eigen_nonsymm_workspace *arg3 = (gsl_eigen_nonsymm_workspace *) 0 ;
5587 int val1 ;
5588 int ecode1 = 0 ;
5589 int val2 ;
5590 int ecode2 = 0 ;
5591 void *argp3 = 0 ;
5592 int res3 = 0 ;
5593 int argvi = 0;
5594 dXSARGS;
5595
5596 if ((items < 3) || (items > 3)) {
5597 SWIG_croak("Usage: gsl_eigen_nonsymm_params(compute_t,balance,w);");
5598 }
5599 ecode1 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
5600 if (!SWIG_IsOK(ecode1)) {
5601 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_eigen_nonsymm_params" "', argument " "1"" of type '" "int""'");
5602 }
5603 arg1 = (int)(val1);
5604 ecode2 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
5605 if (!SWIG_IsOK(ecode2)) {
5606 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_eigen_nonsymm_params" "', argument " "2"" of type '" "int""'");
5607 }
5608 arg2 = (int)(val2);
5609 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_eigen_nonsymm_workspace, 0 | 0 );
5610 if (!SWIG_IsOK(res3)) {
5611 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_eigen_nonsymm_params" "', argument " "3"" of type '" "gsl_eigen_nonsymm_workspace *""'");
5612 }
5613 arg3 = (gsl_eigen_nonsymm_workspace *)(argp3);
5614 gsl_eigen_nonsymm_params(arg1,arg2,arg3);
5615 ST(argvi) = &PL_sv_undef;
5616
5617
5618
5619 XSRETURN(argvi);
5620 fail:
5621
5622
5623
5624 SWIG_croak_null();
5625 }
5626 }
5627
5628
XS(_wrap_gsl_eigen_nonsymm)5629 XS(_wrap_gsl_eigen_nonsymm) {
5630 {
5631 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5632 gsl_vector_complex *arg2 = (gsl_vector_complex *) 0 ;
5633 gsl_eigen_nonsymm_workspace *arg3 = (gsl_eigen_nonsymm_workspace *) 0 ;
5634 void *argp1 = 0 ;
5635 int res1 = 0 ;
5636 void *argp2 = 0 ;
5637 int res2 = 0 ;
5638 void *argp3 = 0 ;
5639 int res3 = 0 ;
5640 int argvi = 0;
5641 int result;
5642 dXSARGS;
5643
5644 if ((items < 3) || (items > 3)) {
5645 SWIG_croak("Usage: gsl_eigen_nonsymm(A,eval,w);");
5646 }
5647 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5648 if (!SWIG_IsOK(res1)) {
5649 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_nonsymm" "', argument " "1"" of type '" "gsl_matrix *""'");
5650 }
5651 arg1 = (gsl_matrix *)(argp1);
5652 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
5653 if (!SWIG_IsOK(res2)) {
5654 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_eigen_nonsymm" "', argument " "2"" of type '" "gsl_vector_complex *""'");
5655 }
5656 arg2 = (gsl_vector_complex *)(argp2);
5657 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_eigen_nonsymm_workspace, 0 | 0 );
5658 if (!SWIG_IsOK(res3)) {
5659 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_eigen_nonsymm" "', argument " "3"" of type '" "gsl_eigen_nonsymm_workspace *""'");
5660 }
5661 arg3 = (gsl_eigen_nonsymm_workspace *)(argp3);
5662 result = (int)gsl_eigen_nonsymm(arg1,arg2,arg3);
5663 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5664
5665
5666
5667 XSRETURN(argvi);
5668 fail:
5669
5670
5671
5672 SWIG_croak_null();
5673 }
5674 }
5675
5676
XS(_wrap_gsl_eigen_nonsymm_Z)5677 XS(_wrap_gsl_eigen_nonsymm_Z) {
5678 {
5679 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5680 gsl_vector_complex *arg2 = (gsl_vector_complex *) 0 ;
5681 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
5682 gsl_eigen_nonsymm_workspace *arg4 = (gsl_eigen_nonsymm_workspace *) 0 ;
5683 void *argp1 = 0 ;
5684 int res1 = 0 ;
5685 void *argp2 = 0 ;
5686 int res2 = 0 ;
5687 void *argp3 = 0 ;
5688 int res3 = 0 ;
5689 void *argp4 = 0 ;
5690 int res4 = 0 ;
5691 int argvi = 0;
5692 int result;
5693 dXSARGS;
5694
5695 if ((items < 4) || (items > 4)) {
5696 SWIG_croak("Usage: gsl_eigen_nonsymm_Z(A,eval,Z,w);");
5697 }
5698 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5699 if (!SWIG_IsOK(res1)) {
5700 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_nonsymm_Z" "', argument " "1"" of type '" "gsl_matrix *""'");
5701 }
5702 arg1 = (gsl_matrix *)(argp1);
5703 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
5704 if (!SWIG_IsOK(res2)) {
5705 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_eigen_nonsymm_Z" "', argument " "2"" of type '" "gsl_vector_complex *""'");
5706 }
5707 arg2 = (gsl_vector_complex *)(argp2);
5708 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5709 if (!SWIG_IsOK(res3)) {
5710 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_eigen_nonsymm_Z" "', argument " "3"" of type '" "gsl_matrix *""'");
5711 }
5712 arg3 = (gsl_matrix *)(argp3);
5713 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_eigen_nonsymm_workspace, 0 | 0 );
5714 if (!SWIG_IsOK(res4)) {
5715 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_eigen_nonsymm_Z" "', argument " "4"" of type '" "gsl_eigen_nonsymm_workspace *""'");
5716 }
5717 arg4 = (gsl_eigen_nonsymm_workspace *)(argp4);
5718 result = (int)gsl_eigen_nonsymm_Z(arg1,arg2,arg3,arg4);
5719 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5720
5721
5722
5723
5724 XSRETURN(argvi);
5725 fail:
5726
5727
5728
5729
5730 SWIG_croak_null();
5731 }
5732 }
5733
5734
XS(_wrap_gsl_eigen_nonsymmv_workspace_size_set)5735 XS(_wrap_gsl_eigen_nonsymmv_workspace_size_set) {
5736 {
5737 gsl_eigen_nonsymmv_workspace *arg1 = (gsl_eigen_nonsymmv_workspace *) 0 ;
5738 size_t arg2 ;
5739 void *argp1 = 0 ;
5740 int res1 = 0 ;
5741 size_t val2 ;
5742 int ecode2 = 0 ;
5743 int argvi = 0;
5744 dXSARGS;
5745
5746 if ((items < 2) || (items > 2)) {
5747 SWIG_croak("Usage: gsl_eigen_nonsymmv_workspace_size_set(self,size);");
5748 }
5749 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_eigen_nonsymmv_workspace, 0 | 0 );
5750 if (!SWIG_IsOK(res1)) {
5751 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_nonsymmv_workspace_size_set" "', argument " "1"" of type '" "gsl_eigen_nonsymmv_workspace *""'");
5752 }
5753 arg1 = (gsl_eigen_nonsymmv_workspace *)(argp1);
5754 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
5755 if (!SWIG_IsOK(ecode2)) {
5756 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_eigen_nonsymmv_workspace_size_set" "', argument " "2"" of type '" "size_t""'");
5757 }
5758 arg2 = (size_t)(val2);
5759 if (arg1) (arg1)->size = arg2;
5760 ST(argvi) = &PL_sv_undef;
5761
5762
5763 XSRETURN(argvi);
5764 fail:
5765
5766
5767 SWIG_croak_null();
5768 }
5769 }
5770
5771
XS(_wrap_gsl_eigen_nonsymmv_workspace_size_get)5772 XS(_wrap_gsl_eigen_nonsymmv_workspace_size_get) {
5773 {
5774 gsl_eigen_nonsymmv_workspace *arg1 = (gsl_eigen_nonsymmv_workspace *) 0 ;
5775 void *argp1 = 0 ;
5776 int res1 = 0 ;
5777 int argvi = 0;
5778 size_t result;
5779 dXSARGS;
5780
5781 if ((items < 1) || (items > 1)) {
5782 SWIG_croak("Usage: gsl_eigen_nonsymmv_workspace_size_get(self);");
5783 }
5784 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_eigen_nonsymmv_workspace, 0 | 0 );
5785 if (!SWIG_IsOK(res1)) {
5786 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_nonsymmv_workspace_size_get" "', argument " "1"" of type '" "gsl_eigen_nonsymmv_workspace *""'");
5787 }
5788 arg1 = (gsl_eigen_nonsymmv_workspace *)(argp1);
5789 result = ((arg1)->size);
5790 ST(argvi) = SWIG_From_size_t SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
5791
5792 XSRETURN(argvi);
5793 fail:
5794
5795 SWIG_croak_null();
5796 }
5797 }
5798
5799
XS(_wrap_gsl_eigen_nonsymmv_workspace_work_set)5800 XS(_wrap_gsl_eigen_nonsymmv_workspace_work_set) {
5801 {
5802 gsl_eigen_nonsymmv_workspace *arg1 = (gsl_eigen_nonsymmv_workspace *) 0 ;
5803 gsl_vector *arg2 = (gsl_vector *) 0 ;
5804 void *argp1 = 0 ;
5805 int res1 = 0 ;
5806 void *argp2 = 0 ;
5807 int res2 = 0 ;
5808 int argvi = 0;
5809 dXSARGS;
5810
5811 if ((items < 2) || (items > 2)) {
5812 SWIG_croak("Usage: gsl_eigen_nonsymmv_workspace_work_set(self,work);");
5813 }
5814 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_eigen_nonsymmv_workspace, 0 | 0 );
5815 if (!SWIG_IsOK(res1)) {
5816 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_nonsymmv_workspace_work_set" "', argument " "1"" of type '" "gsl_eigen_nonsymmv_workspace *""'");
5817 }
5818 arg1 = (gsl_eigen_nonsymmv_workspace *)(argp1);
5819 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, SWIG_POINTER_DISOWN | 0 );
5820 if (!SWIG_IsOK(res2)) {
5821 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_eigen_nonsymmv_workspace_work_set" "', argument " "2"" of type '" "gsl_vector *""'");
5822 }
5823 arg2 = (gsl_vector *)(argp2);
5824 if (arg1) (arg1)->work = arg2;
5825 ST(argvi) = &PL_sv_undef;
5826
5827
5828 XSRETURN(argvi);
5829 fail:
5830
5831
5832 SWIG_croak_null();
5833 }
5834 }
5835
5836
XS(_wrap_gsl_eigen_nonsymmv_workspace_work_get)5837 XS(_wrap_gsl_eigen_nonsymmv_workspace_work_get) {
5838 {
5839 gsl_eigen_nonsymmv_workspace *arg1 = (gsl_eigen_nonsymmv_workspace *) 0 ;
5840 void *argp1 = 0 ;
5841 int res1 = 0 ;
5842 int argvi = 0;
5843 gsl_vector *result = 0 ;
5844 dXSARGS;
5845
5846 if ((items < 1) || (items > 1)) {
5847 SWIG_croak("Usage: gsl_eigen_nonsymmv_workspace_work_get(self);");
5848 }
5849 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_eigen_nonsymmv_workspace, 0 | 0 );
5850 if (!SWIG_IsOK(res1)) {
5851 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_nonsymmv_workspace_work_get" "', argument " "1"" of type '" "gsl_eigen_nonsymmv_workspace *""'");
5852 }
5853 arg1 = (gsl_eigen_nonsymmv_workspace *)(argp1);
5854 result = (gsl_vector *) ((arg1)->work);
5855 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_vector, 0 | 0); argvi++ ;
5856
5857 XSRETURN(argvi);
5858 fail:
5859
5860 SWIG_croak_null();
5861 }
5862 }
5863
5864
XS(_wrap_gsl_eigen_nonsymmv_workspace_work2_set)5865 XS(_wrap_gsl_eigen_nonsymmv_workspace_work2_set) {
5866 {
5867 gsl_eigen_nonsymmv_workspace *arg1 = (gsl_eigen_nonsymmv_workspace *) 0 ;
5868 gsl_vector *arg2 = (gsl_vector *) 0 ;
5869 void *argp1 = 0 ;
5870 int res1 = 0 ;
5871 void *argp2 = 0 ;
5872 int res2 = 0 ;
5873 int argvi = 0;
5874 dXSARGS;
5875
5876 if ((items < 2) || (items > 2)) {
5877 SWIG_croak("Usage: gsl_eigen_nonsymmv_workspace_work2_set(self,work2);");
5878 }
5879 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_eigen_nonsymmv_workspace, 0 | 0 );
5880 if (!SWIG_IsOK(res1)) {
5881 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_nonsymmv_workspace_work2_set" "', argument " "1"" of type '" "gsl_eigen_nonsymmv_workspace *""'");
5882 }
5883 arg1 = (gsl_eigen_nonsymmv_workspace *)(argp1);
5884 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, SWIG_POINTER_DISOWN | 0 );
5885 if (!SWIG_IsOK(res2)) {
5886 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_eigen_nonsymmv_workspace_work2_set" "', argument " "2"" of type '" "gsl_vector *""'");
5887 }
5888 arg2 = (gsl_vector *)(argp2);
5889 if (arg1) (arg1)->work2 = arg2;
5890 ST(argvi) = &PL_sv_undef;
5891
5892
5893 XSRETURN(argvi);
5894 fail:
5895
5896
5897 SWIG_croak_null();
5898 }
5899 }
5900
5901
XS(_wrap_gsl_eigen_nonsymmv_workspace_work2_get)5902 XS(_wrap_gsl_eigen_nonsymmv_workspace_work2_get) {
5903 {
5904 gsl_eigen_nonsymmv_workspace *arg1 = (gsl_eigen_nonsymmv_workspace *) 0 ;
5905 void *argp1 = 0 ;
5906 int res1 = 0 ;
5907 int argvi = 0;
5908 gsl_vector *result = 0 ;
5909 dXSARGS;
5910
5911 if ((items < 1) || (items > 1)) {
5912 SWIG_croak("Usage: gsl_eigen_nonsymmv_workspace_work2_get(self);");
5913 }
5914 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_eigen_nonsymmv_workspace, 0 | 0 );
5915 if (!SWIG_IsOK(res1)) {
5916 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_nonsymmv_workspace_work2_get" "', argument " "1"" of type '" "gsl_eigen_nonsymmv_workspace *""'");
5917 }
5918 arg1 = (gsl_eigen_nonsymmv_workspace *)(argp1);
5919 result = (gsl_vector *) ((arg1)->work2);
5920 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_vector, 0 | 0); argvi++ ;
5921
5922 XSRETURN(argvi);
5923 fail:
5924
5925 SWIG_croak_null();
5926 }
5927 }
5928
5929
XS(_wrap_gsl_eigen_nonsymmv_workspace_work3_set)5930 XS(_wrap_gsl_eigen_nonsymmv_workspace_work3_set) {
5931 {
5932 gsl_eigen_nonsymmv_workspace *arg1 = (gsl_eigen_nonsymmv_workspace *) 0 ;
5933 gsl_vector *arg2 = (gsl_vector *) 0 ;
5934 void *argp1 = 0 ;
5935 int res1 = 0 ;
5936 void *argp2 = 0 ;
5937 int res2 = 0 ;
5938 int argvi = 0;
5939 dXSARGS;
5940
5941 if ((items < 2) || (items > 2)) {
5942 SWIG_croak("Usage: gsl_eigen_nonsymmv_workspace_work3_set(self,work3);");
5943 }
5944 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_eigen_nonsymmv_workspace, 0 | 0 );
5945 if (!SWIG_IsOK(res1)) {
5946 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_nonsymmv_workspace_work3_set" "', argument " "1"" of type '" "gsl_eigen_nonsymmv_workspace *""'");
5947 }
5948 arg1 = (gsl_eigen_nonsymmv_workspace *)(argp1);
5949 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, SWIG_POINTER_DISOWN | 0 );
5950 if (!SWIG_IsOK(res2)) {
5951 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_eigen_nonsymmv_workspace_work3_set" "', argument " "2"" of type '" "gsl_vector *""'");
5952 }
5953 arg2 = (gsl_vector *)(argp2);
5954 if (arg1) (arg1)->work3 = arg2;
5955 ST(argvi) = &PL_sv_undef;
5956
5957
5958 XSRETURN(argvi);
5959 fail:
5960
5961
5962 SWIG_croak_null();
5963 }
5964 }
5965
5966
XS(_wrap_gsl_eigen_nonsymmv_workspace_work3_get)5967 XS(_wrap_gsl_eigen_nonsymmv_workspace_work3_get) {
5968 {
5969 gsl_eigen_nonsymmv_workspace *arg1 = (gsl_eigen_nonsymmv_workspace *) 0 ;
5970 void *argp1 = 0 ;
5971 int res1 = 0 ;
5972 int argvi = 0;
5973 gsl_vector *result = 0 ;
5974 dXSARGS;
5975
5976 if ((items < 1) || (items > 1)) {
5977 SWIG_croak("Usage: gsl_eigen_nonsymmv_workspace_work3_get(self);");
5978 }
5979 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_eigen_nonsymmv_workspace, 0 | 0 );
5980 if (!SWIG_IsOK(res1)) {
5981 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_nonsymmv_workspace_work3_get" "', argument " "1"" of type '" "gsl_eigen_nonsymmv_workspace *""'");
5982 }
5983 arg1 = (gsl_eigen_nonsymmv_workspace *)(argp1);
5984 result = (gsl_vector *) ((arg1)->work3);
5985 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_vector, 0 | 0); argvi++ ;
5986
5987 XSRETURN(argvi);
5988 fail:
5989
5990 SWIG_croak_null();
5991 }
5992 }
5993
5994
XS(_wrap_gsl_eigen_nonsymmv_workspace_Z_set)5995 XS(_wrap_gsl_eigen_nonsymmv_workspace_Z_set) {
5996 {
5997 gsl_eigen_nonsymmv_workspace *arg1 = (gsl_eigen_nonsymmv_workspace *) 0 ;
5998 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
5999 void *argp1 = 0 ;
6000 int res1 = 0 ;
6001 void *argp2 = 0 ;
6002 int res2 = 0 ;
6003 int argvi = 0;
6004 dXSARGS;
6005
6006 if ((items < 2) || (items > 2)) {
6007 SWIG_croak("Usage: gsl_eigen_nonsymmv_workspace_Z_set(self,Z);");
6008 }
6009 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_eigen_nonsymmv_workspace, 0 | 0 );
6010 if (!SWIG_IsOK(res1)) {
6011 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_nonsymmv_workspace_Z_set" "', argument " "1"" of type '" "gsl_eigen_nonsymmv_workspace *""'");
6012 }
6013 arg1 = (gsl_eigen_nonsymmv_workspace *)(argp1);
6014 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, SWIG_POINTER_DISOWN | 0 );
6015 if (!SWIG_IsOK(res2)) {
6016 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_eigen_nonsymmv_workspace_Z_set" "', argument " "2"" of type '" "gsl_matrix *""'");
6017 }
6018 arg2 = (gsl_matrix *)(argp2);
6019 if (arg1) (arg1)->Z = arg2;
6020 ST(argvi) = &PL_sv_undef;
6021
6022
6023 XSRETURN(argvi);
6024 fail:
6025
6026
6027 SWIG_croak_null();
6028 }
6029 }
6030
6031
XS(_wrap_gsl_eigen_nonsymmv_workspace_Z_get)6032 XS(_wrap_gsl_eigen_nonsymmv_workspace_Z_get) {
6033 {
6034 gsl_eigen_nonsymmv_workspace *arg1 = (gsl_eigen_nonsymmv_workspace *) 0 ;
6035 void *argp1 = 0 ;
6036 int res1 = 0 ;
6037 int argvi = 0;
6038 gsl_matrix *result = 0 ;
6039 dXSARGS;
6040
6041 if ((items < 1) || (items > 1)) {
6042 SWIG_croak("Usage: gsl_eigen_nonsymmv_workspace_Z_get(self);");
6043 }
6044 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_eigen_nonsymmv_workspace, 0 | 0 );
6045 if (!SWIG_IsOK(res1)) {
6046 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_nonsymmv_workspace_Z_get" "', argument " "1"" of type '" "gsl_eigen_nonsymmv_workspace *""'");
6047 }
6048 arg1 = (gsl_eigen_nonsymmv_workspace *)(argp1);
6049 result = (gsl_matrix *) ((arg1)->Z);
6050 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_matrix, 0 | 0); argvi++ ;
6051
6052 XSRETURN(argvi);
6053 fail:
6054
6055 SWIG_croak_null();
6056 }
6057 }
6058
6059
XS(_wrap_gsl_eigen_nonsymmv_workspace_nonsymm_workspace_p_set)6060 XS(_wrap_gsl_eigen_nonsymmv_workspace_nonsymm_workspace_p_set) {
6061 {
6062 gsl_eigen_nonsymmv_workspace *arg1 = (gsl_eigen_nonsymmv_workspace *) 0 ;
6063 gsl_eigen_nonsymm_workspace *arg2 = (gsl_eigen_nonsymm_workspace *) 0 ;
6064 void *argp1 = 0 ;
6065 int res1 = 0 ;
6066 void *argp2 = 0 ;
6067 int res2 = 0 ;
6068 int argvi = 0;
6069 dXSARGS;
6070
6071 if ((items < 2) || (items > 2)) {
6072 SWIG_croak("Usage: gsl_eigen_nonsymmv_workspace_nonsymm_workspace_p_set(self,nonsymm_workspace_p);");
6073 }
6074 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_eigen_nonsymmv_workspace, 0 | 0 );
6075 if (!SWIG_IsOK(res1)) {
6076 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_nonsymmv_workspace_nonsymm_workspace_p_set" "', argument " "1"" of type '" "gsl_eigen_nonsymmv_workspace *""'");
6077 }
6078 arg1 = (gsl_eigen_nonsymmv_workspace *)(argp1);
6079 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_eigen_nonsymm_workspace, SWIG_POINTER_DISOWN | 0 );
6080 if (!SWIG_IsOK(res2)) {
6081 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_eigen_nonsymmv_workspace_nonsymm_workspace_p_set" "', argument " "2"" of type '" "gsl_eigen_nonsymm_workspace *""'");
6082 }
6083 arg2 = (gsl_eigen_nonsymm_workspace *)(argp2);
6084 if (arg1) (arg1)->nonsymm_workspace_p = arg2;
6085 ST(argvi) = &PL_sv_undef;
6086
6087
6088 XSRETURN(argvi);
6089 fail:
6090
6091
6092 SWIG_croak_null();
6093 }
6094 }
6095
6096
XS(_wrap_gsl_eigen_nonsymmv_workspace_nonsymm_workspace_p_get)6097 XS(_wrap_gsl_eigen_nonsymmv_workspace_nonsymm_workspace_p_get) {
6098 {
6099 gsl_eigen_nonsymmv_workspace *arg1 = (gsl_eigen_nonsymmv_workspace *) 0 ;
6100 void *argp1 = 0 ;
6101 int res1 = 0 ;
6102 int argvi = 0;
6103 gsl_eigen_nonsymm_workspace *result = 0 ;
6104 dXSARGS;
6105
6106 if ((items < 1) || (items > 1)) {
6107 SWIG_croak("Usage: gsl_eigen_nonsymmv_workspace_nonsymm_workspace_p_get(self);");
6108 }
6109 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_eigen_nonsymmv_workspace, 0 | 0 );
6110 if (!SWIG_IsOK(res1)) {
6111 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_nonsymmv_workspace_nonsymm_workspace_p_get" "', argument " "1"" of type '" "gsl_eigen_nonsymmv_workspace *""'");
6112 }
6113 arg1 = (gsl_eigen_nonsymmv_workspace *)(argp1);
6114 result = (gsl_eigen_nonsymm_workspace *) ((arg1)->nonsymm_workspace_p);
6115 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_eigen_nonsymm_workspace, 0 | SWIG_SHADOW); argvi++ ;
6116
6117 XSRETURN(argvi);
6118 fail:
6119
6120 SWIG_croak_null();
6121 }
6122 }
6123
6124
XS(_wrap_new_gsl_eigen_nonsymmv_workspace)6125 XS(_wrap_new_gsl_eigen_nonsymmv_workspace) {
6126 {
6127 int argvi = 0;
6128 gsl_eigen_nonsymmv_workspace *result = 0 ;
6129 dXSARGS;
6130
6131 if ((items < 0) || (items > 0)) {
6132 SWIG_croak("Usage: new_gsl_eigen_nonsymmv_workspace();");
6133 }
6134 result = (gsl_eigen_nonsymmv_workspace *)calloc(1, sizeof(gsl_eigen_nonsymmv_workspace));
6135 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_eigen_nonsymmv_workspace, SWIG_OWNER | SWIG_SHADOW); argvi++ ;
6136 XSRETURN(argvi);
6137 fail:
6138 SWIG_croak_null();
6139 }
6140 }
6141
6142
XS(_wrap_delete_gsl_eigen_nonsymmv_workspace)6143 XS(_wrap_delete_gsl_eigen_nonsymmv_workspace) {
6144 {
6145 gsl_eigen_nonsymmv_workspace *arg1 = (gsl_eigen_nonsymmv_workspace *) 0 ;
6146 void *argp1 = 0 ;
6147 int res1 = 0 ;
6148 int argvi = 0;
6149 dXSARGS;
6150
6151 if ((items < 1) || (items > 1)) {
6152 SWIG_croak("Usage: delete_gsl_eigen_nonsymmv_workspace(self);");
6153 }
6154 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_eigen_nonsymmv_workspace, SWIG_POINTER_DISOWN | 0 );
6155 if (!SWIG_IsOK(res1)) {
6156 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "delete_gsl_eigen_nonsymmv_workspace" "', argument " "1"" of type '" "gsl_eigen_nonsymmv_workspace *""'");
6157 }
6158 arg1 = (gsl_eigen_nonsymmv_workspace *)(argp1);
6159 free((char *) arg1);
6160 ST(argvi) = &PL_sv_undef;
6161
6162 XSRETURN(argvi);
6163 fail:
6164
6165 SWIG_croak_null();
6166 }
6167 }
6168
6169
XS(_wrap_gsl_eigen_nonsymmv_alloc)6170 XS(_wrap_gsl_eigen_nonsymmv_alloc) {
6171 {
6172 size_t arg1 ;
6173 size_t val1 ;
6174 int ecode1 = 0 ;
6175 int argvi = 0;
6176 gsl_eigen_nonsymmv_workspace *result = 0 ;
6177 dXSARGS;
6178
6179 if ((items < 1) || (items > 1)) {
6180 SWIG_croak("Usage: gsl_eigen_nonsymmv_alloc(n);");
6181 }
6182 ecode1 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
6183 if (!SWIG_IsOK(ecode1)) {
6184 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_eigen_nonsymmv_alloc" "', argument " "1"" of type '" "size_t""'");
6185 }
6186 arg1 = (size_t)(val1);
6187 result = (gsl_eigen_nonsymmv_workspace *)gsl_eigen_nonsymmv_alloc(arg1);
6188 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_eigen_nonsymmv_workspace, 0 | SWIG_SHADOW); argvi++ ;
6189
6190 XSRETURN(argvi);
6191 fail:
6192
6193 SWIG_croak_null();
6194 }
6195 }
6196
6197
XS(_wrap_gsl_eigen_nonsymmv_free)6198 XS(_wrap_gsl_eigen_nonsymmv_free) {
6199 {
6200 gsl_eigen_nonsymmv_workspace *arg1 = (gsl_eigen_nonsymmv_workspace *) 0 ;
6201 void *argp1 = 0 ;
6202 int res1 = 0 ;
6203 int argvi = 0;
6204 dXSARGS;
6205
6206 if ((items < 1) || (items > 1)) {
6207 SWIG_croak("Usage: gsl_eigen_nonsymmv_free(w);");
6208 }
6209 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_eigen_nonsymmv_workspace, 0 | 0 );
6210 if (!SWIG_IsOK(res1)) {
6211 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_nonsymmv_free" "', argument " "1"" of type '" "gsl_eigen_nonsymmv_workspace *""'");
6212 }
6213 arg1 = (gsl_eigen_nonsymmv_workspace *)(argp1);
6214 gsl_eigen_nonsymmv_free(arg1);
6215 ST(argvi) = &PL_sv_undef;
6216
6217 XSRETURN(argvi);
6218 fail:
6219
6220 SWIG_croak_null();
6221 }
6222 }
6223
6224
XS(_wrap_gsl_eigen_nonsymmv_params)6225 XS(_wrap_gsl_eigen_nonsymmv_params) {
6226 {
6227 int arg1 ;
6228 gsl_eigen_nonsymmv_workspace *arg2 = (gsl_eigen_nonsymmv_workspace *) 0 ;
6229 int val1 ;
6230 int ecode1 = 0 ;
6231 void *argp2 = 0 ;
6232 int res2 = 0 ;
6233 int argvi = 0;
6234 dXSARGS;
6235
6236 if ((items < 2) || (items > 2)) {
6237 SWIG_croak("Usage: gsl_eigen_nonsymmv_params(balance,w);");
6238 }
6239 ecode1 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
6240 if (!SWIG_IsOK(ecode1)) {
6241 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_eigen_nonsymmv_params" "', argument " "1"" of type '" "int""'");
6242 }
6243 arg1 = (int)(val1);
6244 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_eigen_nonsymmv_workspace, 0 | 0 );
6245 if (!SWIG_IsOK(res2)) {
6246 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_eigen_nonsymmv_params" "', argument " "2"" of type '" "gsl_eigen_nonsymmv_workspace *""'");
6247 }
6248 arg2 = (gsl_eigen_nonsymmv_workspace *)(argp2);
6249 gsl_eigen_nonsymmv_params(arg1,arg2);
6250 ST(argvi) = &PL_sv_undef;
6251
6252
6253 XSRETURN(argvi);
6254 fail:
6255
6256
6257 SWIG_croak_null();
6258 }
6259 }
6260
6261
XS(_wrap_gsl_eigen_nonsymmv)6262 XS(_wrap_gsl_eigen_nonsymmv) {
6263 {
6264 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
6265 gsl_vector_complex *arg2 = (gsl_vector_complex *) 0 ;
6266 gsl_matrix_complex *arg3 = (gsl_matrix_complex *) 0 ;
6267 gsl_eigen_nonsymmv_workspace *arg4 = (gsl_eigen_nonsymmv_workspace *) 0 ;
6268 void *argp1 = 0 ;
6269 int res1 = 0 ;
6270 void *argp2 = 0 ;
6271 int res2 = 0 ;
6272 void *argp3 = 0 ;
6273 int res3 = 0 ;
6274 void *argp4 = 0 ;
6275 int res4 = 0 ;
6276 int argvi = 0;
6277 int result;
6278 dXSARGS;
6279
6280 if ((items < 4) || (items > 4)) {
6281 SWIG_croak("Usage: gsl_eigen_nonsymmv(A,eval,evec,w);");
6282 }
6283 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6284 if (!SWIG_IsOK(res1)) {
6285 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_nonsymmv" "', argument " "1"" of type '" "gsl_matrix *""'");
6286 }
6287 arg1 = (gsl_matrix *)(argp1);
6288 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
6289 if (!SWIG_IsOK(res2)) {
6290 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_eigen_nonsymmv" "', argument " "2"" of type '" "gsl_vector_complex *""'");
6291 }
6292 arg2 = (gsl_vector_complex *)(argp2);
6293 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
6294 if (!SWIG_IsOK(res3)) {
6295 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_eigen_nonsymmv" "', argument " "3"" of type '" "gsl_matrix_complex *""'");
6296 }
6297 arg3 = (gsl_matrix_complex *)(argp3);
6298 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_eigen_nonsymmv_workspace, 0 | 0 );
6299 if (!SWIG_IsOK(res4)) {
6300 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_eigen_nonsymmv" "', argument " "4"" of type '" "gsl_eigen_nonsymmv_workspace *""'");
6301 }
6302 arg4 = (gsl_eigen_nonsymmv_workspace *)(argp4);
6303 result = (int)gsl_eigen_nonsymmv(arg1,arg2,arg3,arg4);
6304 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6305
6306
6307
6308
6309 XSRETURN(argvi);
6310 fail:
6311
6312
6313
6314
6315 SWIG_croak_null();
6316 }
6317 }
6318
6319
XS(_wrap_gsl_eigen_nonsymmv_Z)6320 XS(_wrap_gsl_eigen_nonsymmv_Z) {
6321 {
6322 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
6323 gsl_vector_complex *arg2 = (gsl_vector_complex *) 0 ;
6324 gsl_matrix_complex *arg3 = (gsl_matrix_complex *) 0 ;
6325 gsl_matrix *arg4 = (gsl_matrix *) 0 ;
6326 gsl_eigen_nonsymmv_workspace *arg5 = (gsl_eigen_nonsymmv_workspace *) 0 ;
6327 void *argp1 = 0 ;
6328 int res1 = 0 ;
6329 void *argp2 = 0 ;
6330 int res2 = 0 ;
6331 void *argp3 = 0 ;
6332 int res3 = 0 ;
6333 void *argp4 = 0 ;
6334 int res4 = 0 ;
6335 void *argp5 = 0 ;
6336 int res5 = 0 ;
6337 int argvi = 0;
6338 int result;
6339 dXSARGS;
6340
6341 if ((items < 5) || (items > 5)) {
6342 SWIG_croak("Usage: gsl_eigen_nonsymmv_Z(A,eval,evec,Z,w);");
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_eigen_nonsymmv_Z" "', argument " "1"" of type '" "gsl_matrix *""'");
6347 }
6348 arg1 = (gsl_matrix *)(argp1);
6349 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
6350 if (!SWIG_IsOK(res2)) {
6351 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_eigen_nonsymmv_Z" "', argument " "2"" of type '" "gsl_vector_complex *""'");
6352 }
6353 arg2 = (gsl_vector_complex *)(argp2);
6354 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
6355 if (!SWIG_IsOK(res3)) {
6356 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_eigen_nonsymmv_Z" "', argument " "3"" of type '" "gsl_matrix_complex *""'");
6357 }
6358 arg3 = (gsl_matrix_complex *)(argp3);
6359 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6360 if (!SWIG_IsOK(res4)) {
6361 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_eigen_nonsymmv_Z" "', argument " "4"" of type '" "gsl_matrix *""'");
6362 }
6363 arg4 = (gsl_matrix *)(argp4);
6364 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_eigen_nonsymmv_workspace, 0 | 0 );
6365 if (!SWIG_IsOK(res5)) {
6366 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_eigen_nonsymmv_Z" "', argument " "5"" of type '" "gsl_eigen_nonsymmv_workspace *""'");
6367 }
6368 arg5 = (gsl_eigen_nonsymmv_workspace *)(argp5);
6369 result = (int)gsl_eigen_nonsymmv_Z(arg1,arg2,arg3,arg4,arg5);
6370 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6371
6372
6373
6374
6375
6376 XSRETURN(argvi);
6377 fail:
6378
6379
6380
6381
6382
6383 SWIG_croak_null();
6384 }
6385 }
6386
6387
XS(_wrap_gsl_eigen_gensymm_workspace_size_set)6388 XS(_wrap_gsl_eigen_gensymm_workspace_size_set) {
6389 {
6390 gsl_eigen_gensymm_workspace *arg1 = (gsl_eigen_gensymm_workspace *) 0 ;
6391 size_t arg2 ;
6392 void *argp1 = 0 ;
6393 int res1 = 0 ;
6394 size_t val2 ;
6395 int ecode2 = 0 ;
6396 int argvi = 0;
6397 dXSARGS;
6398
6399 if ((items < 2) || (items > 2)) {
6400 SWIG_croak("Usage: gsl_eigen_gensymm_workspace_size_set(self,size);");
6401 }
6402 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_eigen_gensymm_workspace, 0 | 0 );
6403 if (!SWIG_IsOK(res1)) {
6404 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_gensymm_workspace_size_set" "', argument " "1"" of type '" "gsl_eigen_gensymm_workspace *""'");
6405 }
6406 arg1 = (gsl_eigen_gensymm_workspace *)(argp1);
6407 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
6408 if (!SWIG_IsOK(ecode2)) {
6409 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_eigen_gensymm_workspace_size_set" "', argument " "2"" of type '" "size_t""'");
6410 }
6411 arg2 = (size_t)(val2);
6412 if (arg1) (arg1)->size = arg2;
6413 ST(argvi) = &PL_sv_undef;
6414
6415
6416 XSRETURN(argvi);
6417 fail:
6418
6419
6420 SWIG_croak_null();
6421 }
6422 }
6423
6424
XS(_wrap_gsl_eigen_gensymm_workspace_size_get)6425 XS(_wrap_gsl_eigen_gensymm_workspace_size_get) {
6426 {
6427 gsl_eigen_gensymm_workspace *arg1 = (gsl_eigen_gensymm_workspace *) 0 ;
6428 void *argp1 = 0 ;
6429 int res1 = 0 ;
6430 int argvi = 0;
6431 size_t result;
6432 dXSARGS;
6433
6434 if ((items < 1) || (items > 1)) {
6435 SWIG_croak("Usage: gsl_eigen_gensymm_workspace_size_get(self);");
6436 }
6437 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_eigen_gensymm_workspace, 0 | 0 );
6438 if (!SWIG_IsOK(res1)) {
6439 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_gensymm_workspace_size_get" "', argument " "1"" of type '" "gsl_eigen_gensymm_workspace *""'");
6440 }
6441 arg1 = (gsl_eigen_gensymm_workspace *)(argp1);
6442 result = ((arg1)->size);
6443 ST(argvi) = SWIG_From_size_t SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
6444
6445 XSRETURN(argvi);
6446 fail:
6447
6448 SWIG_croak_null();
6449 }
6450 }
6451
6452
XS(_wrap_gsl_eigen_gensymm_workspace_symm_workspace_p_set)6453 XS(_wrap_gsl_eigen_gensymm_workspace_symm_workspace_p_set) {
6454 {
6455 gsl_eigen_gensymm_workspace *arg1 = (gsl_eigen_gensymm_workspace *) 0 ;
6456 gsl_eigen_symm_workspace *arg2 = (gsl_eigen_symm_workspace *) 0 ;
6457 void *argp1 = 0 ;
6458 int res1 = 0 ;
6459 void *argp2 = 0 ;
6460 int res2 = 0 ;
6461 int argvi = 0;
6462 dXSARGS;
6463
6464 if ((items < 2) || (items > 2)) {
6465 SWIG_croak("Usage: gsl_eigen_gensymm_workspace_symm_workspace_p_set(self,symm_workspace_p);");
6466 }
6467 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_eigen_gensymm_workspace, 0 | 0 );
6468 if (!SWIG_IsOK(res1)) {
6469 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_gensymm_workspace_symm_workspace_p_set" "', argument " "1"" of type '" "gsl_eigen_gensymm_workspace *""'");
6470 }
6471 arg1 = (gsl_eigen_gensymm_workspace *)(argp1);
6472 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_eigen_symm_workspace, SWIG_POINTER_DISOWN | 0 );
6473 if (!SWIG_IsOK(res2)) {
6474 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_eigen_gensymm_workspace_symm_workspace_p_set" "', argument " "2"" of type '" "gsl_eigen_symm_workspace *""'");
6475 }
6476 arg2 = (gsl_eigen_symm_workspace *)(argp2);
6477 if (arg1) (arg1)->symm_workspace_p = arg2;
6478 ST(argvi) = &PL_sv_undef;
6479
6480
6481 XSRETURN(argvi);
6482 fail:
6483
6484
6485 SWIG_croak_null();
6486 }
6487 }
6488
6489
XS(_wrap_gsl_eigen_gensymm_workspace_symm_workspace_p_get)6490 XS(_wrap_gsl_eigen_gensymm_workspace_symm_workspace_p_get) {
6491 {
6492 gsl_eigen_gensymm_workspace *arg1 = (gsl_eigen_gensymm_workspace *) 0 ;
6493 void *argp1 = 0 ;
6494 int res1 = 0 ;
6495 int argvi = 0;
6496 gsl_eigen_symm_workspace *result = 0 ;
6497 dXSARGS;
6498
6499 if ((items < 1) || (items > 1)) {
6500 SWIG_croak("Usage: gsl_eigen_gensymm_workspace_symm_workspace_p_get(self);");
6501 }
6502 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_eigen_gensymm_workspace, 0 | 0 );
6503 if (!SWIG_IsOK(res1)) {
6504 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_gensymm_workspace_symm_workspace_p_get" "', argument " "1"" of type '" "gsl_eigen_gensymm_workspace *""'");
6505 }
6506 arg1 = (gsl_eigen_gensymm_workspace *)(argp1);
6507 result = (gsl_eigen_symm_workspace *) ((arg1)->symm_workspace_p);
6508 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_eigen_symm_workspace, 0 | SWIG_SHADOW); argvi++ ;
6509
6510 XSRETURN(argvi);
6511 fail:
6512
6513 SWIG_croak_null();
6514 }
6515 }
6516
6517
XS(_wrap_new_gsl_eigen_gensymm_workspace)6518 XS(_wrap_new_gsl_eigen_gensymm_workspace) {
6519 {
6520 int argvi = 0;
6521 gsl_eigen_gensymm_workspace *result = 0 ;
6522 dXSARGS;
6523
6524 if ((items < 0) || (items > 0)) {
6525 SWIG_croak("Usage: new_gsl_eigen_gensymm_workspace();");
6526 }
6527 result = (gsl_eigen_gensymm_workspace *)calloc(1, sizeof(gsl_eigen_gensymm_workspace));
6528 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_eigen_gensymm_workspace, SWIG_OWNER | SWIG_SHADOW); argvi++ ;
6529 XSRETURN(argvi);
6530 fail:
6531 SWIG_croak_null();
6532 }
6533 }
6534
6535
XS(_wrap_delete_gsl_eigen_gensymm_workspace)6536 XS(_wrap_delete_gsl_eigen_gensymm_workspace) {
6537 {
6538 gsl_eigen_gensymm_workspace *arg1 = (gsl_eigen_gensymm_workspace *) 0 ;
6539 void *argp1 = 0 ;
6540 int res1 = 0 ;
6541 int argvi = 0;
6542 dXSARGS;
6543
6544 if ((items < 1) || (items > 1)) {
6545 SWIG_croak("Usage: delete_gsl_eigen_gensymm_workspace(self);");
6546 }
6547 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_eigen_gensymm_workspace, SWIG_POINTER_DISOWN | 0 );
6548 if (!SWIG_IsOK(res1)) {
6549 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "delete_gsl_eigen_gensymm_workspace" "', argument " "1"" of type '" "gsl_eigen_gensymm_workspace *""'");
6550 }
6551 arg1 = (gsl_eigen_gensymm_workspace *)(argp1);
6552 free((char *) arg1);
6553 ST(argvi) = &PL_sv_undef;
6554
6555 XSRETURN(argvi);
6556 fail:
6557
6558 SWIG_croak_null();
6559 }
6560 }
6561
6562
XS(_wrap_gsl_eigen_gensymm_alloc)6563 XS(_wrap_gsl_eigen_gensymm_alloc) {
6564 {
6565 size_t arg1 ;
6566 size_t val1 ;
6567 int ecode1 = 0 ;
6568 int argvi = 0;
6569 gsl_eigen_gensymm_workspace *result = 0 ;
6570 dXSARGS;
6571
6572 if ((items < 1) || (items > 1)) {
6573 SWIG_croak("Usage: gsl_eigen_gensymm_alloc(n);");
6574 }
6575 ecode1 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
6576 if (!SWIG_IsOK(ecode1)) {
6577 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_eigen_gensymm_alloc" "', argument " "1"" of type '" "size_t""'");
6578 }
6579 arg1 = (size_t)(val1);
6580 result = (gsl_eigen_gensymm_workspace *)gsl_eigen_gensymm_alloc(arg1);
6581 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_eigen_gensymm_workspace, 0 | SWIG_SHADOW); argvi++ ;
6582
6583 XSRETURN(argvi);
6584 fail:
6585
6586 SWIG_croak_null();
6587 }
6588 }
6589
6590
XS(_wrap_gsl_eigen_gensymm_free)6591 XS(_wrap_gsl_eigen_gensymm_free) {
6592 {
6593 gsl_eigen_gensymm_workspace *arg1 = (gsl_eigen_gensymm_workspace *) 0 ;
6594 void *argp1 = 0 ;
6595 int res1 = 0 ;
6596 int argvi = 0;
6597 dXSARGS;
6598
6599 if ((items < 1) || (items > 1)) {
6600 SWIG_croak("Usage: gsl_eigen_gensymm_free(w);");
6601 }
6602 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_eigen_gensymm_workspace, 0 | 0 );
6603 if (!SWIG_IsOK(res1)) {
6604 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_gensymm_free" "', argument " "1"" of type '" "gsl_eigen_gensymm_workspace *""'");
6605 }
6606 arg1 = (gsl_eigen_gensymm_workspace *)(argp1);
6607 gsl_eigen_gensymm_free(arg1);
6608 ST(argvi) = &PL_sv_undef;
6609
6610 XSRETURN(argvi);
6611 fail:
6612
6613 SWIG_croak_null();
6614 }
6615 }
6616
6617
XS(_wrap_gsl_eigen_gensymm)6618 XS(_wrap_gsl_eigen_gensymm) {
6619 {
6620 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
6621 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
6622 gsl_vector *arg3 = (gsl_vector *) 0 ;
6623 gsl_eigen_gensymm_workspace *arg4 = (gsl_eigen_gensymm_workspace *) 0 ;
6624 void *argp1 = 0 ;
6625 int res1 = 0 ;
6626 void *argp2 = 0 ;
6627 int res2 = 0 ;
6628 void *argp3 = 0 ;
6629 int res3 = 0 ;
6630 void *argp4 = 0 ;
6631 int res4 = 0 ;
6632 int argvi = 0;
6633 int result;
6634 dXSARGS;
6635
6636 if ((items < 4) || (items > 4)) {
6637 SWIG_croak("Usage: gsl_eigen_gensymm(A,B,eval,w);");
6638 }
6639 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6640 if (!SWIG_IsOK(res1)) {
6641 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_gensymm" "', argument " "1"" of type '" "gsl_matrix *""'");
6642 }
6643 arg1 = (gsl_matrix *)(argp1);
6644 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6645 if (!SWIG_IsOK(res2)) {
6646 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_eigen_gensymm" "', argument " "2"" of type '" "gsl_matrix *""'");
6647 }
6648 arg2 = (gsl_matrix *)(argp2);
6649 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
6650 if (!SWIG_IsOK(res3)) {
6651 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_eigen_gensymm" "', argument " "3"" of type '" "gsl_vector *""'");
6652 }
6653 arg3 = (gsl_vector *)(argp3);
6654 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_eigen_gensymm_workspace, 0 | 0 );
6655 if (!SWIG_IsOK(res4)) {
6656 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_eigen_gensymm" "', argument " "4"" of type '" "gsl_eigen_gensymm_workspace *""'");
6657 }
6658 arg4 = (gsl_eigen_gensymm_workspace *)(argp4);
6659 result = (int)gsl_eigen_gensymm(arg1,arg2,arg3,arg4);
6660 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6661
6662
6663
6664
6665 XSRETURN(argvi);
6666 fail:
6667
6668
6669
6670
6671 SWIG_croak_null();
6672 }
6673 }
6674
6675
XS(_wrap_gsl_eigen_gensymm_standardize)6676 XS(_wrap_gsl_eigen_gensymm_standardize) {
6677 {
6678 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
6679 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
6680 void *argp1 = 0 ;
6681 int res1 = 0 ;
6682 void *argp2 = 0 ;
6683 int res2 = 0 ;
6684 int argvi = 0;
6685 int result;
6686 dXSARGS;
6687
6688 if ((items < 2) || (items > 2)) {
6689 SWIG_croak("Usage: gsl_eigen_gensymm_standardize(A,B);");
6690 }
6691 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6692 if (!SWIG_IsOK(res1)) {
6693 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_gensymm_standardize" "', argument " "1"" of type '" "gsl_matrix *""'");
6694 }
6695 arg1 = (gsl_matrix *)(argp1);
6696 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6697 if (!SWIG_IsOK(res2)) {
6698 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_eigen_gensymm_standardize" "', argument " "2"" of type '" "gsl_matrix const *""'");
6699 }
6700 arg2 = (gsl_matrix *)(argp2);
6701 result = (int)gsl_eigen_gensymm_standardize(arg1,(gsl_matrix const *)arg2);
6702 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6703
6704
6705 XSRETURN(argvi);
6706 fail:
6707
6708
6709 SWIG_croak_null();
6710 }
6711 }
6712
6713
XS(_wrap_gsl_eigen_gensymmv_workspace_size_set)6714 XS(_wrap_gsl_eigen_gensymmv_workspace_size_set) {
6715 {
6716 gsl_eigen_gensymmv_workspace *arg1 = (gsl_eigen_gensymmv_workspace *) 0 ;
6717 size_t arg2 ;
6718 void *argp1 = 0 ;
6719 int res1 = 0 ;
6720 size_t val2 ;
6721 int ecode2 = 0 ;
6722 int argvi = 0;
6723 dXSARGS;
6724
6725 if ((items < 2) || (items > 2)) {
6726 SWIG_croak("Usage: gsl_eigen_gensymmv_workspace_size_set(self,size);");
6727 }
6728 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_eigen_gensymmv_workspace, 0 | 0 );
6729 if (!SWIG_IsOK(res1)) {
6730 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_gensymmv_workspace_size_set" "', argument " "1"" of type '" "gsl_eigen_gensymmv_workspace *""'");
6731 }
6732 arg1 = (gsl_eigen_gensymmv_workspace *)(argp1);
6733 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
6734 if (!SWIG_IsOK(ecode2)) {
6735 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_eigen_gensymmv_workspace_size_set" "', argument " "2"" of type '" "size_t""'");
6736 }
6737 arg2 = (size_t)(val2);
6738 if (arg1) (arg1)->size = arg2;
6739 ST(argvi) = &PL_sv_undef;
6740
6741
6742 XSRETURN(argvi);
6743 fail:
6744
6745
6746 SWIG_croak_null();
6747 }
6748 }
6749
6750
XS(_wrap_gsl_eigen_gensymmv_workspace_size_get)6751 XS(_wrap_gsl_eigen_gensymmv_workspace_size_get) {
6752 {
6753 gsl_eigen_gensymmv_workspace *arg1 = (gsl_eigen_gensymmv_workspace *) 0 ;
6754 void *argp1 = 0 ;
6755 int res1 = 0 ;
6756 int argvi = 0;
6757 size_t result;
6758 dXSARGS;
6759
6760 if ((items < 1) || (items > 1)) {
6761 SWIG_croak("Usage: gsl_eigen_gensymmv_workspace_size_get(self);");
6762 }
6763 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_eigen_gensymmv_workspace, 0 | 0 );
6764 if (!SWIG_IsOK(res1)) {
6765 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_gensymmv_workspace_size_get" "', argument " "1"" of type '" "gsl_eigen_gensymmv_workspace *""'");
6766 }
6767 arg1 = (gsl_eigen_gensymmv_workspace *)(argp1);
6768 result = ((arg1)->size);
6769 ST(argvi) = SWIG_From_size_t SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
6770
6771 XSRETURN(argvi);
6772 fail:
6773
6774 SWIG_croak_null();
6775 }
6776 }
6777
6778
XS(_wrap_gsl_eigen_gensymmv_workspace_symmv_workspace_p_set)6779 XS(_wrap_gsl_eigen_gensymmv_workspace_symmv_workspace_p_set) {
6780 {
6781 gsl_eigen_gensymmv_workspace *arg1 = (gsl_eigen_gensymmv_workspace *) 0 ;
6782 gsl_eigen_symmv_workspace *arg2 = (gsl_eigen_symmv_workspace *) 0 ;
6783 void *argp1 = 0 ;
6784 int res1 = 0 ;
6785 void *argp2 = 0 ;
6786 int res2 = 0 ;
6787 int argvi = 0;
6788 dXSARGS;
6789
6790 if ((items < 2) || (items > 2)) {
6791 SWIG_croak("Usage: gsl_eigen_gensymmv_workspace_symmv_workspace_p_set(self,symmv_workspace_p);");
6792 }
6793 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_eigen_gensymmv_workspace, 0 | 0 );
6794 if (!SWIG_IsOK(res1)) {
6795 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_gensymmv_workspace_symmv_workspace_p_set" "', argument " "1"" of type '" "gsl_eigen_gensymmv_workspace *""'");
6796 }
6797 arg1 = (gsl_eigen_gensymmv_workspace *)(argp1);
6798 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_eigen_symmv_workspace, SWIG_POINTER_DISOWN | 0 );
6799 if (!SWIG_IsOK(res2)) {
6800 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_eigen_gensymmv_workspace_symmv_workspace_p_set" "', argument " "2"" of type '" "gsl_eigen_symmv_workspace *""'");
6801 }
6802 arg2 = (gsl_eigen_symmv_workspace *)(argp2);
6803 if (arg1) (arg1)->symmv_workspace_p = arg2;
6804 ST(argvi) = &PL_sv_undef;
6805
6806
6807 XSRETURN(argvi);
6808 fail:
6809
6810
6811 SWIG_croak_null();
6812 }
6813 }
6814
6815
XS(_wrap_gsl_eigen_gensymmv_workspace_symmv_workspace_p_get)6816 XS(_wrap_gsl_eigen_gensymmv_workspace_symmv_workspace_p_get) {
6817 {
6818 gsl_eigen_gensymmv_workspace *arg1 = (gsl_eigen_gensymmv_workspace *) 0 ;
6819 void *argp1 = 0 ;
6820 int res1 = 0 ;
6821 int argvi = 0;
6822 gsl_eigen_symmv_workspace *result = 0 ;
6823 dXSARGS;
6824
6825 if ((items < 1) || (items > 1)) {
6826 SWIG_croak("Usage: gsl_eigen_gensymmv_workspace_symmv_workspace_p_get(self);");
6827 }
6828 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_eigen_gensymmv_workspace, 0 | 0 );
6829 if (!SWIG_IsOK(res1)) {
6830 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_gensymmv_workspace_symmv_workspace_p_get" "', argument " "1"" of type '" "gsl_eigen_gensymmv_workspace *""'");
6831 }
6832 arg1 = (gsl_eigen_gensymmv_workspace *)(argp1);
6833 result = (gsl_eigen_symmv_workspace *) ((arg1)->symmv_workspace_p);
6834 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_eigen_symmv_workspace, 0 | SWIG_SHADOW); argvi++ ;
6835
6836 XSRETURN(argvi);
6837 fail:
6838
6839 SWIG_croak_null();
6840 }
6841 }
6842
6843
XS(_wrap_new_gsl_eigen_gensymmv_workspace)6844 XS(_wrap_new_gsl_eigen_gensymmv_workspace) {
6845 {
6846 int argvi = 0;
6847 gsl_eigen_gensymmv_workspace *result = 0 ;
6848 dXSARGS;
6849
6850 if ((items < 0) || (items > 0)) {
6851 SWIG_croak("Usage: new_gsl_eigen_gensymmv_workspace();");
6852 }
6853 result = (gsl_eigen_gensymmv_workspace *)calloc(1, sizeof(gsl_eigen_gensymmv_workspace));
6854 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_eigen_gensymmv_workspace, SWIG_OWNER | SWIG_SHADOW); argvi++ ;
6855 XSRETURN(argvi);
6856 fail:
6857 SWIG_croak_null();
6858 }
6859 }
6860
6861
XS(_wrap_delete_gsl_eigen_gensymmv_workspace)6862 XS(_wrap_delete_gsl_eigen_gensymmv_workspace) {
6863 {
6864 gsl_eigen_gensymmv_workspace *arg1 = (gsl_eigen_gensymmv_workspace *) 0 ;
6865 void *argp1 = 0 ;
6866 int res1 = 0 ;
6867 int argvi = 0;
6868 dXSARGS;
6869
6870 if ((items < 1) || (items > 1)) {
6871 SWIG_croak("Usage: delete_gsl_eigen_gensymmv_workspace(self);");
6872 }
6873 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_eigen_gensymmv_workspace, SWIG_POINTER_DISOWN | 0 );
6874 if (!SWIG_IsOK(res1)) {
6875 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "delete_gsl_eigen_gensymmv_workspace" "', argument " "1"" of type '" "gsl_eigen_gensymmv_workspace *""'");
6876 }
6877 arg1 = (gsl_eigen_gensymmv_workspace *)(argp1);
6878 free((char *) arg1);
6879 ST(argvi) = &PL_sv_undef;
6880
6881 XSRETURN(argvi);
6882 fail:
6883
6884 SWIG_croak_null();
6885 }
6886 }
6887
6888
XS(_wrap_gsl_eigen_gensymmv_alloc)6889 XS(_wrap_gsl_eigen_gensymmv_alloc) {
6890 {
6891 size_t arg1 ;
6892 size_t val1 ;
6893 int ecode1 = 0 ;
6894 int argvi = 0;
6895 gsl_eigen_gensymmv_workspace *result = 0 ;
6896 dXSARGS;
6897
6898 if ((items < 1) || (items > 1)) {
6899 SWIG_croak("Usage: gsl_eigen_gensymmv_alloc(n);");
6900 }
6901 ecode1 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
6902 if (!SWIG_IsOK(ecode1)) {
6903 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_eigen_gensymmv_alloc" "', argument " "1"" of type '" "size_t""'");
6904 }
6905 arg1 = (size_t)(val1);
6906 result = (gsl_eigen_gensymmv_workspace *)gsl_eigen_gensymmv_alloc(arg1);
6907 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_eigen_gensymmv_workspace, 0 | SWIG_SHADOW); argvi++ ;
6908
6909 XSRETURN(argvi);
6910 fail:
6911
6912 SWIG_croak_null();
6913 }
6914 }
6915
6916
XS(_wrap_gsl_eigen_gensymmv_free)6917 XS(_wrap_gsl_eigen_gensymmv_free) {
6918 {
6919 gsl_eigen_gensymmv_workspace *arg1 = (gsl_eigen_gensymmv_workspace *) 0 ;
6920 void *argp1 = 0 ;
6921 int res1 = 0 ;
6922 int argvi = 0;
6923 dXSARGS;
6924
6925 if ((items < 1) || (items > 1)) {
6926 SWIG_croak("Usage: gsl_eigen_gensymmv_free(w);");
6927 }
6928 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_eigen_gensymmv_workspace, 0 | 0 );
6929 if (!SWIG_IsOK(res1)) {
6930 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_gensymmv_free" "', argument " "1"" of type '" "gsl_eigen_gensymmv_workspace *""'");
6931 }
6932 arg1 = (gsl_eigen_gensymmv_workspace *)(argp1);
6933 gsl_eigen_gensymmv_free(arg1);
6934 ST(argvi) = &PL_sv_undef;
6935
6936 XSRETURN(argvi);
6937 fail:
6938
6939 SWIG_croak_null();
6940 }
6941 }
6942
6943
XS(_wrap_gsl_eigen_gensymmv)6944 XS(_wrap_gsl_eigen_gensymmv) {
6945 {
6946 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
6947 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
6948 gsl_vector *arg3 = (gsl_vector *) 0 ;
6949 gsl_matrix *arg4 = (gsl_matrix *) 0 ;
6950 gsl_eigen_gensymmv_workspace *arg5 = (gsl_eigen_gensymmv_workspace *) 0 ;
6951 void *argp1 = 0 ;
6952 int res1 = 0 ;
6953 void *argp2 = 0 ;
6954 int res2 = 0 ;
6955 void *argp3 = 0 ;
6956 int res3 = 0 ;
6957 void *argp4 = 0 ;
6958 int res4 = 0 ;
6959 void *argp5 = 0 ;
6960 int res5 = 0 ;
6961 int argvi = 0;
6962 int result;
6963 dXSARGS;
6964
6965 if ((items < 5) || (items > 5)) {
6966 SWIG_croak("Usage: gsl_eigen_gensymmv(A,B,eval,evec,w);");
6967 }
6968 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6969 if (!SWIG_IsOK(res1)) {
6970 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_gensymmv" "', argument " "1"" of type '" "gsl_matrix *""'");
6971 }
6972 arg1 = (gsl_matrix *)(argp1);
6973 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6974 if (!SWIG_IsOK(res2)) {
6975 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_eigen_gensymmv" "', argument " "2"" of type '" "gsl_matrix *""'");
6976 }
6977 arg2 = (gsl_matrix *)(argp2);
6978 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
6979 if (!SWIG_IsOK(res3)) {
6980 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_eigen_gensymmv" "', argument " "3"" of type '" "gsl_vector *""'");
6981 }
6982 arg3 = (gsl_vector *)(argp3);
6983 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6984 if (!SWIG_IsOK(res4)) {
6985 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_eigen_gensymmv" "', argument " "4"" of type '" "gsl_matrix *""'");
6986 }
6987 arg4 = (gsl_matrix *)(argp4);
6988 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_eigen_gensymmv_workspace, 0 | 0 );
6989 if (!SWIG_IsOK(res5)) {
6990 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_eigen_gensymmv" "', argument " "5"" of type '" "gsl_eigen_gensymmv_workspace *""'");
6991 }
6992 arg5 = (gsl_eigen_gensymmv_workspace *)(argp5);
6993 result = (int)gsl_eigen_gensymmv(arg1,arg2,arg3,arg4,arg5);
6994 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6995
6996
6997
6998
6999
7000 XSRETURN(argvi);
7001 fail:
7002
7003
7004
7005
7006
7007 SWIG_croak_null();
7008 }
7009 }
7010
7011
XS(_wrap_gsl_eigen_genherm_workspace_size_set)7012 XS(_wrap_gsl_eigen_genherm_workspace_size_set) {
7013 {
7014 gsl_eigen_genherm_workspace *arg1 = (gsl_eigen_genherm_workspace *) 0 ;
7015 size_t arg2 ;
7016 void *argp1 = 0 ;
7017 int res1 = 0 ;
7018 size_t val2 ;
7019 int ecode2 = 0 ;
7020 int argvi = 0;
7021 dXSARGS;
7022
7023 if ((items < 2) || (items > 2)) {
7024 SWIG_croak("Usage: gsl_eigen_genherm_workspace_size_set(self,size);");
7025 }
7026 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_eigen_genherm_workspace, 0 | 0 );
7027 if (!SWIG_IsOK(res1)) {
7028 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_genherm_workspace_size_set" "', argument " "1"" of type '" "gsl_eigen_genherm_workspace *""'");
7029 }
7030 arg1 = (gsl_eigen_genherm_workspace *)(argp1);
7031 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
7032 if (!SWIG_IsOK(ecode2)) {
7033 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_eigen_genherm_workspace_size_set" "', argument " "2"" of type '" "size_t""'");
7034 }
7035 arg2 = (size_t)(val2);
7036 if (arg1) (arg1)->size = arg2;
7037 ST(argvi) = &PL_sv_undef;
7038
7039
7040 XSRETURN(argvi);
7041 fail:
7042
7043
7044 SWIG_croak_null();
7045 }
7046 }
7047
7048
XS(_wrap_gsl_eigen_genherm_workspace_size_get)7049 XS(_wrap_gsl_eigen_genherm_workspace_size_get) {
7050 {
7051 gsl_eigen_genherm_workspace *arg1 = (gsl_eigen_genherm_workspace *) 0 ;
7052 void *argp1 = 0 ;
7053 int res1 = 0 ;
7054 int argvi = 0;
7055 size_t result;
7056 dXSARGS;
7057
7058 if ((items < 1) || (items > 1)) {
7059 SWIG_croak("Usage: gsl_eigen_genherm_workspace_size_get(self);");
7060 }
7061 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_eigen_genherm_workspace, 0 | 0 );
7062 if (!SWIG_IsOK(res1)) {
7063 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_genherm_workspace_size_get" "', argument " "1"" of type '" "gsl_eigen_genherm_workspace *""'");
7064 }
7065 arg1 = (gsl_eigen_genherm_workspace *)(argp1);
7066 result = ((arg1)->size);
7067 ST(argvi) = SWIG_From_size_t SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
7068
7069 XSRETURN(argvi);
7070 fail:
7071
7072 SWIG_croak_null();
7073 }
7074 }
7075
7076
XS(_wrap_gsl_eigen_genherm_workspace_herm_workspace_p_set)7077 XS(_wrap_gsl_eigen_genherm_workspace_herm_workspace_p_set) {
7078 {
7079 gsl_eigen_genherm_workspace *arg1 = (gsl_eigen_genherm_workspace *) 0 ;
7080 gsl_eigen_herm_workspace *arg2 = (gsl_eigen_herm_workspace *) 0 ;
7081 void *argp1 = 0 ;
7082 int res1 = 0 ;
7083 void *argp2 = 0 ;
7084 int res2 = 0 ;
7085 int argvi = 0;
7086 dXSARGS;
7087
7088 if ((items < 2) || (items > 2)) {
7089 SWIG_croak("Usage: gsl_eigen_genherm_workspace_herm_workspace_p_set(self,herm_workspace_p);");
7090 }
7091 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_eigen_genherm_workspace, 0 | 0 );
7092 if (!SWIG_IsOK(res1)) {
7093 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_genherm_workspace_herm_workspace_p_set" "', argument " "1"" of type '" "gsl_eigen_genherm_workspace *""'");
7094 }
7095 arg1 = (gsl_eigen_genherm_workspace *)(argp1);
7096 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_eigen_herm_workspace, SWIG_POINTER_DISOWN | 0 );
7097 if (!SWIG_IsOK(res2)) {
7098 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_eigen_genherm_workspace_herm_workspace_p_set" "', argument " "2"" of type '" "gsl_eigen_herm_workspace *""'");
7099 }
7100 arg2 = (gsl_eigen_herm_workspace *)(argp2);
7101 if (arg1) (arg1)->herm_workspace_p = arg2;
7102 ST(argvi) = &PL_sv_undef;
7103
7104
7105 XSRETURN(argvi);
7106 fail:
7107
7108
7109 SWIG_croak_null();
7110 }
7111 }
7112
7113
XS(_wrap_gsl_eigen_genherm_workspace_herm_workspace_p_get)7114 XS(_wrap_gsl_eigen_genherm_workspace_herm_workspace_p_get) {
7115 {
7116 gsl_eigen_genherm_workspace *arg1 = (gsl_eigen_genherm_workspace *) 0 ;
7117 void *argp1 = 0 ;
7118 int res1 = 0 ;
7119 int argvi = 0;
7120 gsl_eigen_herm_workspace *result = 0 ;
7121 dXSARGS;
7122
7123 if ((items < 1) || (items > 1)) {
7124 SWIG_croak("Usage: gsl_eigen_genherm_workspace_herm_workspace_p_get(self);");
7125 }
7126 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_eigen_genherm_workspace, 0 | 0 );
7127 if (!SWIG_IsOK(res1)) {
7128 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_genherm_workspace_herm_workspace_p_get" "', argument " "1"" of type '" "gsl_eigen_genherm_workspace *""'");
7129 }
7130 arg1 = (gsl_eigen_genherm_workspace *)(argp1);
7131 result = (gsl_eigen_herm_workspace *) ((arg1)->herm_workspace_p);
7132 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_eigen_herm_workspace, 0 | SWIG_SHADOW); argvi++ ;
7133
7134 XSRETURN(argvi);
7135 fail:
7136
7137 SWIG_croak_null();
7138 }
7139 }
7140
7141
XS(_wrap_new_gsl_eigen_genherm_workspace)7142 XS(_wrap_new_gsl_eigen_genherm_workspace) {
7143 {
7144 int argvi = 0;
7145 gsl_eigen_genherm_workspace *result = 0 ;
7146 dXSARGS;
7147
7148 if ((items < 0) || (items > 0)) {
7149 SWIG_croak("Usage: new_gsl_eigen_genherm_workspace();");
7150 }
7151 result = (gsl_eigen_genherm_workspace *)calloc(1, sizeof(gsl_eigen_genherm_workspace));
7152 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_eigen_genherm_workspace, SWIG_OWNER | SWIG_SHADOW); argvi++ ;
7153 XSRETURN(argvi);
7154 fail:
7155 SWIG_croak_null();
7156 }
7157 }
7158
7159
XS(_wrap_delete_gsl_eigen_genherm_workspace)7160 XS(_wrap_delete_gsl_eigen_genherm_workspace) {
7161 {
7162 gsl_eigen_genherm_workspace *arg1 = (gsl_eigen_genherm_workspace *) 0 ;
7163 void *argp1 = 0 ;
7164 int res1 = 0 ;
7165 int argvi = 0;
7166 dXSARGS;
7167
7168 if ((items < 1) || (items > 1)) {
7169 SWIG_croak("Usage: delete_gsl_eigen_genherm_workspace(self);");
7170 }
7171 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_eigen_genherm_workspace, SWIG_POINTER_DISOWN | 0 );
7172 if (!SWIG_IsOK(res1)) {
7173 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "delete_gsl_eigen_genherm_workspace" "', argument " "1"" of type '" "gsl_eigen_genherm_workspace *""'");
7174 }
7175 arg1 = (gsl_eigen_genherm_workspace *)(argp1);
7176 free((char *) arg1);
7177 ST(argvi) = &PL_sv_undef;
7178
7179 XSRETURN(argvi);
7180 fail:
7181
7182 SWIG_croak_null();
7183 }
7184 }
7185
7186
XS(_wrap_gsl_eigen_genherm_alloc)7187 XS(_wrap_gsl_eigen_genherm_alloc) {
7188 {
7189 size_t arg1 ;
7190 size_t val1 ;
7191 int ecode1 = 0 ;
7192 int argvi = 0;
7193 gsl_eigen_genherm_workspace *result = 0 ;
7194 dXSARGS;
7195
7196 if ((items < 1) || (items > 1)) {
7197 SWIG_croak("Usage: gsl_eigen_genherm_alloc(n);");
7198 }
7199 ecode1 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
7200 if (!SWIG_IsOK(ecode1)) {
7201 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_eigen_genherm_alloc" "', argument " "1"" of type '" "size_t""'");
7202 }
7203 arg1 = (size_t)(val1);
7204 result = (gsl_eigen_genherm_workspace *)gsl_eigen_genherm_alloc(arg1);
7205 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_eigen_genherm_workspace, 0 | SWIG_SHADOW); argvi++ ;
7206
7207 XSRETURN(argvi);
7208 fail:
7209
7210 SWIG_croak_null();
7211 }
7212 }
7213
7214
XS(_wrap_gsl_eigen_genherm_free)7215 XS(_wrap_gsl_eigen_genherm_free) {
7216 {
7217 gsl_eigen_genherm_workspace *arg1 = (gsl_eigen_genherm_workspace *) 0 ;
7218 void *argp1 = 0 ;
7219 int res1 = 0 ;
7220 int argvi = 0;
7221 dXSARGS;
7222
7223 if ((items < 1) || (items > 1)) {
7224 SWIG_croak("Usage: gsl_eigen_genherm_free(w);");
7225 }
7226 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_eigen_genherm_workspace, 0 | 0 );
7227 if (!SWIG_IsOK(res1)) {
7228 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_genherm_free" "', argument " "1"" of type '" "gsl_eigen_genherm_workspace *""'");
7229 }
7230 arg1 = (gsl_eigen_genherm_workspace *)(argp1);
7231 gsl_eigen_genherm_free(arg1);
7232 ST(argvi) = &PL_sv_undef;
7233
7234 XSRETURN(argvi);
7235 fail:
7236
7237 SWIG_croak_null();
7238 }
7239 }
7240
7241
XS(_wrap_gsl_eigen_genherm)7242 XS(_wrap_gsl_eigen_genherm) {
7243 {
7244 gsl_matrix_complex *arg1 = (gsl_matrix_complex *) 0 ;
7245 gsl_matrix_complex *arg2 = (gsl_matrix_complex *) 0 ;
7246 gsl_vector *arg3 = (gsl_vector *) 0 ;
7247 gsl_eigen_genherm_workspace *arg4 = (gsl_eigen_genherm_workspace *) 0 ;
7248 void *argp1 = 0 ;
7249 int res1 = 0 ;
7250 void *argp2 = 0 ;
7251 int res2 = 0 ;
7252 void *argp3 = 0 ;
7253 int res3 = 0 ;
7254 void *argp4 = 0 ;
7255 int res4 = 0 ;
7256 int argvi = 0;
7257 int result;
7258 dXSARGS;
7259
7260 if ((items < 4) || (items > 4)) {
7261 SWIG_croak("Usage: gsl_eigen_genherm(A,B,eval,w);");
7262 }
7263 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
7264 if (!SWIG_IsOK(res1)) {
7265 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_genherm" "', argument " "1"" of type '" "gsl_matrix_complex *""'");
7266 }
7267 arg1 = (gsl_matrix_complex *)(argp1);
7268 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
7269 if (!SWIG_IsOK(res2)) {
7270 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_eigen_genherm" "', argument " "2"" of type '" "gsl_matrix_complex *""'");
7271 }
7272 arg2 = (gsl_matrix_complex *)(argp2);
7273 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
7274 if (!SWIG_IsOK(res3)) {
7275 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_eigen_genherm" "', argument " "3"" of type '" "gsl_vector *""'");
7276 }
7277 arg3 = (gsl_vector *)(argp3);
7278 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_eigen_genherm_workspace, 0 | 0 );
7279 if (!SWIG_IsOK(res4)) {
7280 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_eigen_genherm" "', argument " "4"" of type '" "gsl_eigen_genherm_workspace *""'");
7281 }
7282 arg4 = (gsl_eigen_genherm_workspace *)(argp4);
7283 result = (int)gsl_eigen_genherm(arg1,arg2,arg3,arg4);
7284 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7285
7286
7287
7288
7289 XSRETURN(argvi);
7290 fail:
7291
7292
7293
7294
7295 SWIG_croak_null();
7296 }
7297 }
7298
7299
XS(_wrap_gsl_eigen_genherm_standardize)7300 XS(_wrap_gsl_eigen_genherm_standardize) {
7301 {
7302 gsl_matrix_complex *arg1 = (gsl_matrix_complex *) 0 ;
7303 gsl_matrix_complex *arg2 = (gsl_matrix_complex *) 0 ;
7304 void *argp1 = 0 ;
7305 int res1 = 0 ;
7306 void *argp2 = 0 ;
7307 int res2 = 0 ;
7308 int argvi = 0;
7309 int result;
7310 dXSARGS;
7311
7312 if ((items < 2) || (items > 2)) {
7313 SWIG_croak("Usage: gsl_eigen_genherm_standardize(A,B);");
7314 }
7315 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
7316 if (!SWIG_IsOK(res1)) {
7317 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_genherm_standardize" "', argument " "1"" of type '" "gsl_matrix_complex *""'");
7318 }
7319 arg1 = (gsl_matrix_complex *)(argp1);
7320 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
7321 if (!SWIG_IsOK(res2)) {
7322 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_eigen_genherm_standardize" "', argument " "2"" of type '" "gsl_matrix_complex const *""'");
7323 }
7324 arg2 = (gsl_matrix_complex *)(argp2);
7325 result = (int)gsl_eigen_genherm_standardize(arg1,(gsl_matrix_complex const *)arg2);
7326 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7327
7328
7329 XSRETURN(argvi);
7330 fail:
7331
7332
7333 SWIG_croak_null();
7334 }
7335 }
7336
7337
XS(_wrap_gsl_eigen_genhermv_workspace_size_set)7338 XS(_wrap_gsl_eigen_genhermv_workspace_size_set) {
7339 {
7340 gsl_eigen_genhermv_workspace *arg1 = (gsl_eigen_genhermv_workspace *) 0 ;
7341 size_t arg2 ;
7342 void *argp1 = 0 ;
7343 int res1 = 0 ;
7344 size_t val2 ;
7345 int ecode2 = 0 ;
7346 int argvi = 0;
7347 dXSARGS;
7348
7349 if ((items < 2) || (items > 2)) {
7350 SWIG_croak("Usage: gsl_eigen_genhermv_workspace_size_set(self,size);");
7351 }
7352 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_eigen_genhermv_workspace, 0 | 0 );
7353 if (!SWIG_IsOK(res1)) {
7354 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_genhermv_workspace_size_set" "', argument " "1"" of type '" "gsl_eigen_genhermv_workspace *""'");
7355 }
7356 arg1 = (gsl_eigen_genhermv_workspace *)(argp1);
7357 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
7358 if (!SWIG_IsOK(ecode2)) {
7359 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_eigen_genhermv_workspace_size_set" "', argument " "2"" of type '" "size_t""'");
7360 }
7361 arg2 = (size_t)(val2);
7362 if (arg1) (arg1)->size = arg2;
7363 ST(argvi) = &PL_sv_undef;
7364
7365
7366 XSRETURN(argvi);
7367 fail:
7368
7369
7370 SWIG_croak_null();
7371 }
7372 }
7373
7374
XS(_wrap_gsl_eigen_genhermv_workspace_size_get)7375 XS(_wrap_gsl_eigen_genhermv_workspace_size_get) {
7376 {
7377 gsl_eigen_genhermv_workspace *arg1 = (gsl_eigen_genhermv_workspace *) 0 ;
7378 void *argp1 = 0 ;
7379 int res1 = 0 ;
7380 int argvi = 0;
7381 size_t result;
7382 dXSARGS;
7383
7384 if ((items < 1) || (items > 1)) {
7385 SWIG_croak("Usage: gsl_eigen_genhermv_workspace_size_get(self);");
7386 }
7387 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_eigen_genhermv_workspace, 0 | 0 );
7388 if (!SWIG_IsOK(res1)) {
7389 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_genhermv_workspace_size_get" "', argument " "1"" of type '" "gsl_eigen_genhermv_workspace *""'");
7390 }
7391 arg1 = (gsl_eigen_genhermv_workspace *)(argp1);
7392 result = ((arg1)->size);
7393 ST(argvi) = SWIG_From_size_t SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
7394
7395 XSRETURN(argvi);
7396 fail:
7397
7398 SWIG_croak_null();
7399 }
7400 }
7401
7402
XS(_wrap_gsl_eigen_genhermv_workspace_hermv_workspace_p_set)7403 XS(_wrap_gsl_eigen_genhermv_workspace_hermv_workspace_p_set) {
7404 {
7405 gsl_eigen_genhermv_workspace *arg1 = (gsl_eigen_genhermv_workspace *) 0 ;
7406 gsl_eigen_hermv_workspace *arg2 = (gsl_eigen_hermv_workspace *) 0 ;
7407 void *argp1 = 0 ;
7408 int res1 = 0 ;
7409 void *argp2 = 0 ;
7410 int res2 = 0 ;
7411 int argvi = 0;
7412 dXSARGS;
7413
7414 if ((items < 2) || (items > 2)) {
7415 SWIG_croak("Usage: gsl_eigen_genhermv_workspace_hermv_workspace_p_set(self,hermv_workspace_p);");
7416 }
7417 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_eigen_genhermv_workspace, 0 | 0 );
7418 if (!SWIG_IsOK(res1)) {
7419 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_genhermv_workspace_hermv_workspace_p_set" "', argument " "1"" of type '" "gsl_eigen_genhermv_workspace *""'");
7420 }
7421 arg1 = (gsl_eigen_genhermv_workspace *)(argp1);
7422 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_eigen_hermv_workspace, SWIG_POINTER_DISOWN | 0 );
7423 if (!SWIG_IsOK(res2)) {
7424 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_eigen_genhermv_workspace_hermv_workspace_p_set" "', argument " "2"" of type '" "gsl_eigen_hermv_workspace *""'");
7425 }
7426 arg2 = (gsl_eigen_hermv_workspace *)(argp2);
7427 if (arg1) (arg1)->hermv_workspace_p = arg2;
7428 ST(argvi) = &PL_sv_undef;
7429
7430
7431 XSRETURN(argvi);
7432 fail:
7433
7434
7435 SWIG_croak_null();
7436 }
7437 }
7438
7439
XS(_wrap_gsl_eigen_genhermv_workspace_hermv_workspace_p_get)7440 XS(_wrap_gsl_eigen_genhermv_workspace_hermv_workspace_p_get) {
7441 {
7442 gsl_eigen_genhermv_workspace *arg1 = (gsl_eigen_genhermv_workspace *) 0 ;
7443 void *argp1 = 0 ;
7444 int res1 = 0 ;
7445 int argvi = 0;
7446 gsl_eigen_hermv_workspace *result = 0 ;
7447 dXSARGS;
7448
7449 if ((items < 1) || (items > 1)) {
7450 SWIG_croak("Usage: gsl_eigen_genhermv_workspace_hermv_workspace_p_get(self);");
7451 }
7452 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_eigen_genhermv_workspace, 0 | 0 );
7453 if (!SWIG_IsOK(res1)) {
7454 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_genhermv_workspace_hermv_workspace_p_get" "', argument " "1"" of type '" "gsl_eigen_genhermv_workspace *""'");
7455 }
7456 arg1 = (gsl_eigen_genhermv_workspace *)(argp1);
7457 result = (gsl_eigen_hermv_workspace *) ((arg1)->hermv_workspace_p);
7458 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_eigen_hermv_workspace, 0 | SWIG_SHADOW); argvi++ ;
7459
7460 XSRETURN(argvi);
7461 fail:
7462
7463 SWIG_croak_null();
7464 }
7465 }
7466
7467
XS(_wrap_new_gsl_eigen_genhermv_workspace)7468 XS(_wrap_new_gsl_eigen_genhermv_workspace) {
7469 {
7470 int argvi = 0;
7471 gsl_eigen_genhermv_workspace *result = 0 ;
7472 dXSARGS;
7473
7474 if ((items < 0) || (items > 0)) {
7475 SWIG_croak("Usage: new_gsl_eigen_genhermv_workspace();");
7476 }
7477 result = (gsl_eigen_genhermv_workspace *)calloc(1, sizeof(gsl_eigen_genhermv_workspace));
7478 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_eigen_genhermv_workspace, SWIG_OWNER | SWIG_SHADOW); argvi++ ;
7479 XSRETURN(argvi);
7480 fail:
7481 SWIG_croak_null();
7482 }
7483 }
7484
7485
XS(_wrap_delete_gsl_eigen_genhermv_workspace)7486 XS(_wrap_delete_gsl_eigen_genhermv_workspace) {
7487 {
7488 gsl_eigen_genhermv_workspace *arg1 = (gsl_eigen_genhermv_workspace *) 0 ;
7489 void *argp1 = 0 ;
7490 int res1 = 0 ;
7491 int argvi = 0;
7492 dXSARGS;
7493
7494 if ((items < 1) || (items > 1)) {
7495 SWIG_croak("Usage: delete_gsl_eigen_genhermv_workspace(self);");
7496 }
7497 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_eigen_genhermv_workspace, SWIG_POINTER_DISOWN | 0 );
7498 if (!SWIG_IsOK(res1)) {
7499 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "delete_gsl_eigen_genhermv_workspace" "', argument " "1"" of type '" "gsl_eigen_genhermv_workspace *""'");
7500 }
7501 arg1 = (gsl_eigen_genhermv_workspace *)(argp1);
7502 free((char *) arg1);
7503 ST(argvi) = &PL_sv_undef;
7504
7505 XSRETURN(argvi);
7506 fail:
7507
7508 SWIG_croak_null();
7509 }
7510 }
7511
7512
XS(_wrap_gsl_eigen_genhermv_alloc)7513 XS(_wrap_gsl_eigen_genhermv_alloc) {
7514 {
7515 size_t arg1 ;
7516 size_t val1 ;
7517 int ecode1 = 0 ;
7518 int argvi = 0;
7519 gsl_eigen_genhermv_workspace *result = 0 ;
7520 dXSARGS;
7521
7522 if ((items < 1) || (items > 1)) {
7523 SWIG_croak("Usage: gsl_eigen_genhermv_alloc(n);");
7524 }
7525 ecode1 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
7526 if (!SWIG_IsOK(ecode1)) {
7527 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_eigen_genhermv_alloc" "', argument " "1"" of type '" "size_t""'");
7528 }
7529 arg1 = (size_t)(val1);
7530 result = (gsl_eigen_genhermv_workspace *)gsl_eigen_genhermv_alloc(arg1);
7531 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_eigen_genhermv_workspace, 0 | SWIG_SHADOW); argvi++ ;
7532
7533 XSRETURN(argvi);
7534 fail:
7535
7536 SWIG_croak_null();
7537 }
7538 }
7539
7540
XS(_wrap_gsl_eigen_genhermv_free)7541 XS(_wrap_gsl_eigen_genhermv_free) {
7542 {
7543 gsl_eigen_genhermv_workspace *arg1 = (gsl_eigen_genhermv_workspace *) 0 ;
7544 void *argp1 = 0 ;
7545 int res1 = 0 ;
7546 int argvi = 0;
7547 dXSARGS;
7548
7549 if ((items < 1) || (items > 1)) {
7550 SWIG_croak("Usage: gsl_eigen_genhermv_free(w);");
7551 }
7552 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_eigen_genhermv_workspace, 0 | 0 );
7553 if (!SWIG_IsOK(res1)) {
7554 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_genhermv_free" "', argument " "1"" of type '" "gsl_eigen_genhermv_workspace *""'");
7555 }
7556 arg1 = (gsl_eigen_genhermv_workspace *)(argp1);
7557 gsl_eigen_genhermv_free(arg1);
7558 ST(argvi) = &PL_sv_undef;
7559
7560 XSRETURN(argvi);
7561 fail:
7562
7563 SWIG_croak_null();
7564 }
7565 }
7566
7567
XS(_wrap_gsl_eigen_genhermv)7568 XS(_wrap_gsl_eigen_genhermv) {
7569 {
7570 gsl_matrix_complex *arg1 = (gsl_matrix_complex *) 0 ;
7571 gsl_matrix_complex *arg2 = (gsl_matrix_complex *) 0 ;
7572 gsl_vector *arg3 = (gsl_vector *) 0 ;
7573 gsl_matrix_complex *arg4 = (gsl_matrix_complex *) 0 ;
7574 gsl_eigen_genhermv_workspace *arg5 = (gsl_eigen_genhermv_workspace *) 0 ;
7575 void *argp1 = 0 ;
7576 int res1 = 0 ;
7577 void *argp2 = 0 ;
7578 int res2 = 0 ;
7579 void *argp3 = 0 ;
7580 int res3 = 0 ;
7581 void *argp4 = 0 ;
7582 int res4 = 0 ;
7583 void *argp5 = 0 ;
7584 int res5 = 0 ;
7585 int argvi = 0;
7586 int result;
7587 dXSARGS;
7588
7589 if ((items < 5) || (items > 5)) {
7590 SWIG_croak("Usage: gsl_eigen_genhermv(A,B,eval,evec,w);");
7591 }
7592 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
7593 if (!SWIG_IsOK(res1)) {
7594 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_genhermv" "', argument " "1"" of type '" "gsl_matrix_complex *""'");
7595 }
7596 arg1 = (gsl_matrix_complex *)(argp1);
7597 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
7598 if (!SWIG_IsOK(res2)) {
7599 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_eigen_genhermv" "', argument " "2"" of type '" "gsl_matrix_complex *""'");
7600 }
7601 arg2 = (gsl_matrix_complex *)(argp2);
7602 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
7603 if (!SWIG_IsOK(res3)) {
7604 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_eigen_genhermv" "', argument " "3"" of type '" "gsl_vector *""'");
7605 }
7606 arg3 = (gsl_vector *)(argp3);
7607 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
7608 if (!SWIG_IsOK(res4)) {
7609 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_eigen_genhermv" "', argument " "4"" of type '" "gsl_matrix_complex *""'");
7610 }
7611 arg4 = (gsl_matrix_complex *)(argp4);
7612 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_eigen_genhermv_workspace, 0 | 0 );
7613 if (!SWIG_IsOK(res5)) {
7614 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_eigen_genhermv" "', argument " "5"" of type '" "gsl_eigen_genhermv_workspace *""'");
7615 }
7616 arg5 = (gsl_eigen_genhermv_workspace *)(argp5);
7617 result = (int)gsl_eigen_genhermv(arg1,arg2,arg3,arg4,arg5);
7618 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7619
7620
7621
7622
7623
7624 XSRETURN(argvi);
7625 fail:
7626
7627
7628
7629
7630
7631 SWIG_croak_null();
7632 }
7633 }
7634
7635
XS(_wrap_gsl_eigen_gen_workspace_size_set)7636 XS(_wrap_gsl_eigen_gen_workspace_size_set) {
7637 {
7638 gsl_eigen_gen_workspace *arg1 = (gsl_eigen_gen_workspace *) 0 ;
7639 size_t arg2 ;
7640 void *argp1 = 0 ;
7641 int res1 = 0 ;
7642 size_t val2 ;
7643 int ecode2 = 0 ;
7644 int argvi = 0;
7645 dXSARGS;
7646
7647 if ((items < 2) || (items > 2)) {
7648 SWIG_croak("Usage: gsl_eigen_gen_workspace_size_set(self,size);");
7649 }
7650 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_eigen_gen_workspace, 0 | 0 );
7651 if (!SWIG_IsOK(res1)) {
7652 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_gen_workspace_size_set" "', argument " "1"" of type '" "gsl_eigen_gen_workspace *""'");
7653 }
7654 arg1 = (gsl_eigen_gen_workspace *)(argp1);
7655 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
7656 if (!SWIG_IsOK(ecode2)) {
7657 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_eigen_gen_workspace_size_set" "', argument " "2"" of type '" "size_t""'");
7658 }
7659 arg2 = (size_t)(val2);
7660 if (arg1) (arg1)->size = arg2;
7661 ST(argvi) = &PL_sv_undef;
7662
7663
7664 XSRETURN(argvi);
7665 fail:
7666
7667
7668 SWIG_croak_null();
7669 }
7670 }
7671
7672
XS(_wrap_gsl_eigen_gen_workspace_size_get)7673 XS(_wrap_gsl_eigen_gen_workspace_size_get) {
7674 {
7675 gsl_eigen_gen_workspace *arg1 = (gsl_eigen_gen_workspace *) 0 ;
7676 void *argp1 = 0 ;
7677 int res1 = 0 ;
7678 int argvi = 0;
7679 size_t result;
7680 dXSARGS;
7681
7682 if ((items < 1) || (items > 1)) {
7683 SWIG_croak("Usage: gsl_eigen_gen_workspace_size_get(self);");
7684 }
7685 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_eigen_gen_workspace, 0 | 0 );
7686 if (!SWIG_IsOK(res1)) {
7687 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_gen_workspace_size_get" "', argument " "1"" of type '" "gsl_eigen_gen_workspace *""'");
7688 }
7689 arg1 = (gsl_eigen_gen_workspace *)(argp1);
7690 result = ((arg1)->size);
7691 ST(argvi) = SWIG_From_size_t SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
7692
7693 XSRETURN(argvi);
7694 fail:
7695
7696 SWIG_croak_null();
7697 }
7698 }
7699
7700
XS(_wrap_gsl_eigen_gen_workspace_work_set)7701 XS(_wrap_gsl_eigen_gen_workspace_work_set) {
7702 {
7703 gsl_eigen_gen_workspace *arg1 = (gsl_eigen_gen_workspace *) 0 ;
7704 gsl_vector *arg2 = (gsl_vector *) 0 ;
7705 void *argp1 = 0 ;
7706 int res1 = 0 ;
7707 void *argp2 = 0 ;
7708 int res2 = 0 ;
7709 int argvi = 0;
7710 dXSARGS;
7711
7712 if ((items < 2) || (items > 2)) {
7713 SWIG_croak("Usage: gsl_eigen_gen_workspace_work_set(self,work);");
7714 }
7715 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_eigen_gen_workspace, 0 | 0 );
7716 if (!SWIG_IsOK(res1)) {
7717 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_gen_workspace_work_set" "', argument " "1"" of type '" "gsl_eigen_gen_workspace *""'");
7718 }
7719 arg1 = (gsl_eigen_gen_workspace *)(argp1);
7720 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, SWIG_POINTER_DISOWN | 0 );
7721 if (!SWIG_IsOK(res2)) {
7722 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_eigen_gen_workspace_work_set" "', argument " "2"" of type '" "gsl_vector *""'");
7723 }
7724 arg2 = (gsl_vector *)(argp2);
7725 if (arg1) (arg1)->work = arg2;
7726 ST(argvi) = &PL_sv_undef;
7727
7728
7729 XSRETURN(argvi);
7730 fail:
7731
7732
7733 SWIG_croak_null();
7734 }
7735 }
7736
7737
XS(_wrap_gsl_eigen_gen_workspace_work_get)7738 XS(_wrap_gsl_eigen_gen_workspace_work_get) {
7739 {
7740 gsl_eigen_gen_workspace *arg1 = (gsl_eigen_gen_workspace *) 0 ;
7741 void *argp1 = 0 ;
7742 int res1 = 0 ;
7743 int argvi = 0;
7744 gsl_vector *result = 0 ;
7745 dXSARGS;
7746
7747 if ((items < 1) || (items > 1)) {
7748 SWIG_croak("Usage: gsl_eigen_gen_workspace_work_get(self);");
7749 }
7750 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_eigen_gen_workspace, 0 | 0 );
7751 if (!SWIG_IsOK(res1)) {
7752 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_gen_workspace_work_get" "', argument " "1"" of type '" "gsl_eigen_gen_workspace *""'");
7753 }
7754 arg1 = (gsl_eigen_gen_workspace *)(argp1);
7755 result = (gsl_vector *) ((arg1)->work);
7756 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_vector, 0 | 0); argvi++ ;
7757
7758 XSRETURN(argvi);
7759 fail:
7760
7761 SWIG_croak_null();
7762 }
7763 }
7764
7765
XS(_wrap_gsl_eigen_gen_workspace_n_evals_set)7766 XS(_wrap_gsl_eigen_gen_workspace_n_evals_set) {
7767 {
7768 gsl_eigen_gen_workspace *arg1 = (gsl_eigen_gen_workspace *) 0 ;
7769 size_t arg2 ;
7770 void *argp1 = 0 ;
7771 int res1 = 0 ;
7772 size_t val2 ;
7773 int ecode2 = 0 ;
7774 int argvi = 0;
7775 dXSARGS;
7776
7777 if ((items < 2) || (items > 2)) {
7778 SWIG_croak("Usage: gsl_eigen_gen_workspace_n_evals_set(self,n_evals);");
7779 }
7780 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_eigen_gen_workspace, 0 | 0 );
7781 if (!SWIG_IsOK(res1)) {
7782 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_gen_workspace_n_evals_set" "', argument " "1"" of type '" "gsl_eigen_gen_workspace *""'");
7783 }
7784 arg1 = (gsl_eigen_gen_workspace *)(argp1);
7785 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
7786 if (!SWIG_IsOK(ecode2)) {
7787 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_eigen_gen_workspace_n_evals_set" "', argument " "2"" of type '" "size_t""'");
7788 }
7789 arg2 = (size_t)(val2);
7790 if (arg1) (arg1)->n_evals = arg2;
7791 ST(argvi) = &PL_sv_undef;
7792
7793
7794 XSRETURN(argvi);
7795 fail:
7796
7797
7798 SWIG_croak_null();
7799 }
7800 }
7801
7802
XS(_wrap_gsl_eigen_gen_workspace_n_evals_get)7803 XS(_wrap_gsl_eigen_gen_workspace_n_evals_get) {
7804 {
7805 gsl_eigen_gen_workspace *arg1 = (gsl_eigen_gen_workspace *) 0 ;
7806 void *argp1 = 0 ;
7807 int res1 = 0 ;
7808 int argvi = 0;
7809 size_t result;
7810 dXSARGS;
7811
7812 if ((items < 1) || (items > 1)) {
7813 SWIG_croak("Usage: gsl_eigen_gen_workspace_n_evals_get(self);");
7814 }
7815 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_eigen_gen_workspace, 0 | 0 );
7816 if (!SWIG_IsOK(res1)) {
7817 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_gen_workspace_n_evals_get" "', argument " "1"" of type '" "gsl_eigen_gen_workspace *""'");
7818 }
7819 arg1 = (gsl_eigen_gen_workspace *)(argp1);
7820 result = ((arg1)->n_evals);
7821 ST(argvi) = SWIG_From_size_t SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
7822
7823 XSRETURN(argvi);
7824 fail:
7825
7826 SWIG_croak_null();
7827 }
7828 }
7829
7830
XS(_wrap_gsl_eigen_gen_workspace_max_iterations_set)7831 XS(_wrap_gsl_eigen_gen_workspace_max_iterations_set) {
7832 {
7833 gsl_eigen_gen_workspace *arg1 = (gsl_eigen_gen_workspace *) 0 ;
7834 size_t arg2 ;
7835 void *argp1 = 0 ;
7836 int res1 = 0 ;
7837 size_t val2 ;
7838 int ecode2 = 0 ;
7839 int argvi = 0;
7840 dXSARGS;
7841
7842 if ((items < 2) || (items > 2)) {
7843 SWIG_croak("Usage: gsl_eigen_gen_workspace_max_iterations_set(self,max_iterations);");
7844 }
7845 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_eigen_gen_workspace, 0 | 0 );
7846 if (!SWIG_IsOK(res1)) {
7847 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_gen_workspace_max_iterations_set" "', argument " "1"" of type '" "gsl_eigen_gen_workspace *""'");
7848 }
7849 arg1 = (gsl_eigen_gen_workspace *)(argp1);
7850 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
7851 if (!SWIG_IsOK(ecode2)) {
7852 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_eigen_gen_workspace_max_iterations_set" "', argument " "2"" of type '" "size_t""'");
7853 }
7854 arg2 = (size_t)(val2);
7855 if (arg1) (arg1)->max_iterations = arg2;
7856 ST(argvi) = &PL_sv_undef;
7857
7858
7859 XSRETURN(argvi);
7860 fail:
7861
7862
7863 SWIG_croak_null();
7864 }
7865 }
7866
7867
XS(_wrap_gsl_eigen_gen_workspace_max_iterations_get)7868 XS(_wrap_gsl_eigen_gen_workspace_max_iterations_get) {
7869 {
7870 gsl_eigen_gen_workspace *arg1 = (gsl_eigen_gen_workspace *) 0 ;
7871 void *argp1 = 0 ;
7872 int res1 = 0 ;
7873 int argvi = 0;
7874 size_t result;
7875 dXSARGS;
7876
7877 if ((items < 1) || (items > 1)) {
7878 SWIG_croak("Usage: gsl_eigen_gen_workspace_max_iterations_get(self);");
7879 }
7880 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_eigen_gen_workspace, 0 | 0 );
7881 if (!SWIG_IsOK(res1)) {
7882 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_gen_workspace_max_iterations_get" "', argument " "1"" of type '" "gsl_eigen_gen_workspace *""'");
7883 }
7884 arg1 = (gsl_eigen_gen_workspace *)(argp1);
7885 result = ((arg1)->max_iterations);
7886 ST(argvi) = SWIG_From_size_t SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
7887
7888 XSRETURN(argvi);
7889 fail:
7890
7891 SWIG_croak_null();
7892 }
7893 }
7894
7895
XS(_wrap_gsl_eigen_gen_workspace_n_iter_set)7896 XS(_wrap_gsl_eigen_gen_workspace_n_iter_set) {
7897 {
7898 gsl_eigen_gen_workspace *arg1 = (gsl_eigen_gen_workspace *) 0 ;
7899 size_t arg2 ;
7900 void *argp1 = 0 ;
7901 int res1 = 0 ;
7902 size_t val2 ;
7903 int ecode2 = 0 ;
7904 int argvi = 0;
7905 dXSARGS;
7906
7907 if ((items < 2) || (items > 2)) {
7908 SWIG_croak("Usage: gsl_eigen_gen_workspace_n_iter_set(self,n_iter);");
7909 }
7910 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_eigen_gen_workspace, 0 | 0 );
7911 if (!SWIG_IsOK(res1)) {
7912 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_gen_workspace_n_iter_set" "', argument " "1"" of type '" "gsl_eigen_gen_workspace *""'");
7913 }
7914 arg1 = (gsl_eigen_gen_workspace *)(argp1);
7915 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
7916 if (!SWIG_IsOK(ecode2)) {
7917 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_eigen_gen_workspace_n_iter_set" "', argument " "2"" of type '" "size_t""'");
7918 }
7919 arg2 = (size_t)(val2);
7920 if (arg1) (arg1)->n_iter = arg2;
7921 ST(argvi) = &PL_sv_undef;
7922
7923
7924 XSRETURN(argvi);
7925 fail:
7926
7927
7928 SWIG_croak_null();
7929 }
7930 }
7931
7932
XS(_wrap_gsl_eigen_gen_workspace_n_iter_get)7933 XS(_wrap_gsl_eigen_gen_workspace_n_iter_get) {
7934 {
7935 gsl_eigen_gen_workspace *arg1 = (gsl_eigen_gen_workspace *) 0 ;
7936 void *argp1 = 0 ;
7937 int res1 = 0 ;
7938 int argvi = 0;
7939 size_t result;
7940 dXSARGS;
7941
7942 if ((items < 1) || (items > 1)) {
7943 SWIG_croak("Usage: gsl_eigen_gen_workspace_n_iter_get(self);");
7944 }
7945 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_eigen_gen_workspace, 0 | 0 );
7946 if (!SWIG_IsOK(res1)) {
7947 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_gen_workspace_n_iter_get" "', argument " "1"" of type '" "gsl_eigen_gen_workspace *""'");
7948 }
7949 arg1 = (gsl_eigen_gen_workspace *)(argp1);
7950 result = ((arg1)->n_iter);
7951 ST(argvi) = SWIG_From_size_t SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
7952
7953 XSRETURN(argvi);
7954 fail:
7955
7956 SWIG_croak_null();
7957 }
7958 }
7959
7960
XS(_wrap_gsl_eigen_gen_workspace_eshift_set)7961 XS(_wrap_gsl_eigen_gen_workspace_eshift_set) {
7962 {
7963 gsl_eigen_gen_workspace *arg1 = (gsl_eigen_gen_workspace *) 0 ;
7964 double arg2 ;
7965 void *argp1 = 0 ;
7966 int res1 = 0 ;
7967 double val2 ;
7968 int ecode2 = 0 ;
7969 int argvi = 0;
7970 dXSARGS;
7971
7972 if ((items < 2) || (items > 2)) {
7973 SWIG_croak("Usage: gsl_eigen_gen_workspace_eshift_set(self,eshift);");
7974 }
7975 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_eigen_gen_workspace, 0 | 0 );
7976 if (!SWIG_IsOK(res1)) {
7977 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_gen_workspace_eshift_set" "', argument " "1"" of type '" "gsl_eigen_gen_workspace *""'");
7978 }
7979 arg1 = (gsl_eigen_gen_workspace *)(argp1);
7980 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
7981 if (!SWIG_IsOK(ecode2)) {
7982 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_eigen_gen_workspace_eshift_set" "', argument " "2"" of type '" "double""'");
7983 }
7984 arg2 = (double)(val2);
7985 if (arg1) (arg1)->eshift = arg2;
7986 ST(argvi) = &PL_sv_undef;
7987
7988
7989 XSRETURN(argvi);
7990 fail:
7991
7992
7993 SWIG_croak_null();
7994 }
7995 }
7996
7997
XS(_wrap_gsl_eigen_gen_workspace_eshift_get)7998 XS(_wrap_gsl_eigen_gen_workspace_eshift_get) {
7999 {
8000 gsl_eigen_gen_workspace *arg1 = (gsl_eigen_gen_workspace *) 0 ;
8001 void *argp1 = 0 ;
8002 int res1 = 0 ;
8003 int argvi = 0;
8004 double result;
8005 dXSARGS;
8006
8007 if ((items < 1) || (items > 1)) {
8008 SWIG_croak("Usage: gsl_eigen_gen_workspace_eshift_get(self);");
8009 }
8010 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_eigen_gen_workspace, 0 | 0 );
8011 if (!SWIG_IsOK(res1)) {
8012 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_gen_workspace_eshift_get" "', argument " "1"" of type '" "gsl_eigen_gen_workspace *""'");
8013 }
8014 arg1 = (gsl_eigen_gen_workspace *)(argp1);
8015 result = (double) ((arg1)->eshift);
8016 ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(result)); argvi++ ;
8017
8018 XSRETURN(argvi);
8019 fail:
8020
8021 SWIG_croak_null();
8022 }
8023 }
8024
8025
XS(_wrap_gsl_eigen_gen_workspace_needtop_set)8026 XS(_wrap_gsl_eigen_gen_workspace_needtop_set) {
8027 {
8028 gsl_eigen_gen_workspace *arg1 = (gsl_eigen_gen_workspace *) 0 ;
8029 int arg2 ;
8030 void *argp1 = 0 ;
8031 int res1 = 0 ;
8032 int val2 ;
8033 int ecode2 = 0 ;
8034 int argvi = 0;
8035 dXSARGS;
8036
8037 if ((items < 2) || (items > 2)) {
8038 SWIG_croak("Usage: gsl_eigen_gen_workspace_needtop_set(self,needtop);");
8039 }
8040 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_eigen_gen_workspace, 0 | 0 );
8041 if (!SWIG_IsOK(res1)) {
8042 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_gen_workspace_needtop_set" "', argument " "1"" of type '" "gsl_eigen_gen_workspace *""'");
8043 }
8044 arg1 = (gsl_eigen_gen_workspace *)(argp1);
8045 ecode2 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
8046 if (!SWIG_IsOK(ecode2)) {
8047 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_eigen_gen_workspace_needtop_set" "', argument " "2"" of type '" "int""'");
8048 }
8049 arg2 = (int)(val2);
8050 if (arg1) (arg1)->needtop = arg2;
8051 ST(argvi) = &PL_sv_undef;
8052
8053
8054 XSRETURN(argvi);
8055 fail:
8056
8057
8058 SWIG_croak_null();
8059 }
8060 }
8061
8062
XS(_wrap_gsl_eigen_gen_workspace_needtop_get)8063 XS(_wrap_gsl_eigen_gen_workspace_needtop_get) {
8064 {
8065 gsl_eigen_gen_workspace *arg1 = (gsl_eigen_gen_workspace *) 0 ;
8066 void *argp1 = 0 ;
8067 int res1 = 0 ;
8068 int argvi = 0;
8069 int result;
8070 dXSARGS;
8071
8072 if ((items < 1) || (items > 1)) {
8073 SWIG_croak("Usage: gsl_eigen_gen_workspace_needtop_get(self);");
8074 }
8075 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_eigen_gen_workspace, 0 | 0 );
8076 if (!SWIG_IsOK(res1)) {
8077 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_gen_workspace_needtop_get" "', argument " "1"" of type '" "gsl_eigen_gen_workspace *""'");
8078 }
8079 arg1 = (gsl_eigen_gen_workspace *)(argp1);
8080 result = (int) ((arg1)->needtop);
8081 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8082
8083 XSRETURN(argvi);
8084 fail:
8085
8086 SWIG_croak_null();
8087 }
8088 }
8089
8090
XS(_wrap_gsl_eigen_gen_workspace_atol_set)8091 XS(_wrap_gsl_eigen_gen_workspace_atol_set) {
8092 {
8093 gsl_eigen_gen_workspace *arg1 = (gsl_eigen_gen_workspace *) 0 ;
8094 double arg2 ;
8095 void *argp1 = 0 ;
8096 int res1 = 0 ;
8097 double val2 ;
8098 int ecode2 = 0 ;
8099 int argvi = 0;
8100 dXSARGS;
8101
8102 if ((items < 2) || (items > 2)) {
8103 SWIG_croak("Usage: gsl_eigen_gen_workspace_atol_set(self,atol);");
8104 }
8105 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_eigen_gen_workspace, 0 | 0 );
8106 if (!SWIG_IsOK(res1)) {
8107 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_gen_workspace_atol_set" "', argument " "1"" of type '" "gsl_eigen_gen_workspace *""'");
8108 }
8109 arg1 = (gsl_eigen_gen_workspace *)(argp1);
8110 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
8111 if (!SWIG_IsOK(ecode2)) {
8112 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_eigen_gen_workspace_atol_set" "', argument " "2"" of type '" "double""'");
8113 }
8114 arg2 = (double)(val2);
8115 if (arg1) (arg1)->atol = arg2;
8116 ST(argvi) = &PL_sv_undef;
8117
8118
8119 XSRETURN(argvi);
8120 fail:
8121
8122
8123 SWIG_croak_null();
8124 }
8125 }
8126
8127
XS(_wrap_gsl_eigen_gen_workspace_atol_get)8128 XS(_wrap_gsl_eigen_gen_workspace_atol_get) {
8129 {
8130 gsl_eigen_gen_workspace *arg1 = (gsl_eigen_gen_workspace *) 0 ;
8131 void *argp1 = 0 ;
8132 int res1 = 0 ;
8133 int argvi = 0;
8134 double result;
8135 dXSARGS;
8136
8137 if ((items < 1) || (items > 1)) {
8138 SWIG_croak("Usage: gsl_eigen_gen_workspace_atol_get(self);");
8139 }
8140 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_eigen_gen_workspace, 0 | 0 );
8141 if (!SWIG_IsOK(res1)) {
8142 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_gen_workspace_atol_get" "', argument " "1"" of type '" "gsl_eigen_gen_workspace *""'");
8143 }
8144 arg1 = (gsl_eigen_gen_workspace *)(argp1);
8145 result = (double) ((arg1)->atol);
8146 ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(result)); argvi++ ;
8147
8148 XSRETURN(argvi);
8149 fail:
8150
8151 SWIG_croak_null();
8152 }
8153 }
8154
8155
XS(_wrap_gsl_eigen_gen_workspace_btol_set)8156 XS(_wrap_gsl_eigen_gen_workspace_btol_set) {
8157 {
8158 gsl_eigen_gen_workspace *arg1 = (gsl_eigen_gen_workspace *) 0 ;
8159 double arg2 ;
8160 void *argp1 = 0 ;
8161 int res1 = 0 ;
8162 double val2 ;
8163 int ecode2 = 0 ;
8164 int argvi = 0;
8165 dXSARGS;
8166
8167 if ((items < 2) || (items > 2)) {
8168 SWIG_croak("Usage: gsl_eigen_gen_workspace_btol_set(self,btol);");
8169 }
8170 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_eigen_gen_workspace, 0 | 0 );
8171 if (!SWIG_IsOK(res1)) {
8172 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_gen_workspace_btol_set" "', argument " "1"" of type '" "gsl_eigen_gen_workspace *""'");
8173 }
8174 arg1 = (gsl_eigen_gen_workspace *)(argp1);
8175 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
8176 if (!SWIG_IsOK(ecode2)) {
8177 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_eigen_gen_workspace_btol_set" "', argument " "2"" of type '" "double""'");
8178 }
8179 arg2 = (double)(val2);
8180 if (arg1) (arg1)->btol = arg2;
8181 ST(argvi) = &PL_sv_undef;
8182
8183
8184 XSRETURN(argvi);
8185 fail:
8186
8187
8188 SWIG_croak_null();
8189 }
8190 }
8191
8192
XS(_wrap_gsl_eigen_gen_workspace_btol_get)8193 XS(_wrap_gsl_eigen_gen_workspace_btol_get) {
8194 {
8195 gsl_eigen_gen_workspace *arg1 = (gsl_eigen_gen_workspace *) 0 ;
8196 void *argp1 = 0 ;
8197 int res1 = 0 ;
8198 int argvi = 0;
8199 double result;
8200 dXSARGS;
8201
8202 if ((items < 1) || (items > 1)) {
8203 SWIG_croak("Usage: gsl_eigen_gen_workspace_btol_get(self);");
8204 }
8205 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_eigen_gen_workspace, 0 | 0 );
8206 if (!SWIG_IsOK(res1)) {
8207 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_gen_workspace_btol_get" "', argument " "1"" of type '" "gsl_eigen_gen_workspace *""'");
8208 }
8209 arg1 = (gsl_eigen_gen_workspace *)(argp1);
8210 result = (double) ((arg1)->btol);
8211 ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(result)); argvi++ ;
8212
8213 XSRETURN(argvi);
8214 fail:
8215
8216 SWIG_croak_null();
8217 }
8218 }
8219
8220
XS(_wrap_gsl_eigen_gen_workspace_ascale_set)8221 XS(_wrap_gsl_eigen_gen_workspace_ascale_set) {
8222 {
8223 gsl_eigen_gen_workspace *arg1 = (gsl_eigen_gen_workspace *) 0 ;
8224 double arg2 ;
8225 void *argp1 = 0 ;
8226 int res1 = 0 ;
8227 double val2 ;
8228 int ecode2 = 0 ;
8229 int argvi = 0;
8230 dXSARGS;
8231
8232 if ((items < 2) || (items > 2)) {
8233 SWIG_croak("Usage: gsl_eigen_gen_workspace_ascale_set(self,ascale);");
8234 }
8235 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_eigen_gen_workspace, 0 | 0 );
8236 if (!SWIG_IsOK(res1)) {
8237 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_gen_workspace_ascale_set" "', argument " "1"" of type '" "gsl_eigen_gen_workspace *""'");
8238 }
8239 arg1 = (gsl_eigen_gen_workspace *)(argp1);
8240 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
8241 if (!SWIG_IsOK(ecode2)) {
8242 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_eigen_gen_workspace_ascale_set" "', argument " "2"" of type '" "double""'");
8243 }
8244 arg2 = (double)(val2);
8245 if (arg1) (arg1)->ascale = arg2;
8246 ST(argvi) = &PL_sv_undef;
8247
8248
8249 XSRETURN(argvi);
8250 fail:
8251
8252
8253 SWIG_croak_null();
8254 }
8255 }
8256
8257
XS(_wrap_gsl_eigen_gen_workspace_ascale_get)8258 XS(_wrap_gsl_eigen_gen_workspace_ascale_get) {
8259 {
8260 gsl_eigen_gen_workspace *arg1 = (gsl_eigen_gen_workspace *) 0 ;
8261 void *argp1 = 0 ;
8262 int res1 = 0 ;
8263 int argvi = 0;
8264 double result;
8265 dXSARGS;
8266
8267 if ((items < 1) || (items > 1)) {
8268 SWIG_croak("Usage: gsl_eigen_gen_workspace_ascale_get(self);");
8269 }
8270 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_eigen_gen_workspace, 0 | 0 );
8271 if (!SWIG_IsOK(res1)) {
8272 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_gen_workspace_ascale_get" "', argument " "1"" of type '" "gsl_eigen_gen_workspace *""'");
8273 }
8274 arg1 = (gsl_eigen_gen_workspace *)(argp1);
8275 result = (double) ((arg1)->ascale);
8276 ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(result)); argvi++ ;
8277
8278 XSRETURN(argvi);
8279 fail:
8280
8281 SWIG_croak_null();
8282 }
8283 }
8284
8285
XS(_wrap_gsl_eigen_gen_workspace_bscale_set)8286 XS(_wrap_gsl_eigen_gen_workspace_bscale_set) {
8287 {
8288 gsl_eigen_gen_workspace *arg1 = (gsl_eigen_gen_workspace *) 0 ;
8289 double arg2 ;
8290 void *argp1 = 0 ;
8291 int res1 = 0 ;
8292 double val2 ;
8293 int ecode2 = 0 ;
8294 int argvi = 0;
8295 dXSARGS;
8296
8297 if ((items < 2) || (items > 2)) {
8298 SWIG_croak("Usage: gsl_eigen_gen_workspace_bscale_set(self,bscale);");
8299 }
8300 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_eigen_gen_workspace, 0 | 0 );
8301 if (!SWIG_IsOK(res1)) {
8302 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_gen_workspace_bscale_set" "', argument " "1"" of type '" "gsl_eigen_gen_workspace *""'");
8303 }
8304 arg1 = (gsl_eigen_gen_workspace *)(argp1);
8305 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
8306 if (!SWIG_IsOK(ecode2)) {
8307 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_eigen_gen_workspace_bscale_set" "', argument " "2"" of type '" "double""'");
8308 }
8309 arg2 = (double)(val2);
8310 if (arg1) (arg1)->bscale = arg2;
8311 ST(argvi) = &PL_sv_undef;
8312
8313
8314 XSRETURN(argvi);
8315 fail:
8316
8317
8318 SWIG_croak_null();
8319 }
8320 }
8321
8322
XS(_wrap_gsl_eigen_gen_workspace_bscale_get)8323 XS(_wrap_gsl_eigen_gen_workspace_bscale_get) {
8324 {
8325 gsl_eigen_gen_workspace *arg1 = (gsl_eigen_gen_workspace *) 0 ;
8326 void *argp1 = 0 ;
8327 int res1 = 0 ;
8328 int argvi = 0;
8329 double result;
8330 dXSARGS;
8331
8332 if ((items < 1) || (items > 1)) {
8333 SWIG_croak("Usage: gsl_eigen_gen_workspace_bscale_get(self);");
8334 }
8335 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_eigen_gen_workspace, 0 | 0 );
8336 if (!SWIG_IsOK(res1)) {
8337 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_gen_workspace_bscale_get" "', argument " "1"" of type '" "gsl_eigen_gen_workspace *""'");
8338 }
8339 arg1 = (gsl_eigen_gen_workspace *)(argp1);
8340 result = (double) ((arg1)->bscale);
8341 ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(result)); argvi++ ;
8342
8343 XSRETURN(argvi);
8344 fail:
8345
8346 SWIG_croak_null();
8347 }
8348 }
8349
8350
XS(_wrap_gsl_eigen_gen_workspace_H_set)8351 XS(_wrap_gsl_eigen_gen_workspace_H_set) {
8352 {
8353 gsl_eigen_gen_workspace *arg1 = (gsl_eigen_gen_workspace *) 0 ;
8354 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
8355 void *argp1 = 0 ;
8356 int res1 = 0 ;
8357 void *argp2 = 0 ;
8358 int res2 = 0 ;
8359 int argvi = 0;
8360 dXSARGS;
8361
8362 if ((items < 2) || (items > 2)) {
8363 SWIG_croak("Usage: gsl_eigen_gen_workspace_H_set(self,H);");
8364 }
8365 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_eigen_gen_workspace, 0 | 0 );
8366 if (!SWIG_IsOK(res1)) {
8367 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_gen_workspace_H_set" "', argument " "1"" of type '" "gsl_eigen_gen_workspace *""'");
8368 }
8369 arg1 = (gsl_eigen_gen_workspace *)(argp1);
8370 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, SWIG_POINTER_DISOWN | 0 );
8371 if (!SWIG_IsOK(res2)) {
8372 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_eigen_gen_workspace_H_set" "', argument " "2"" of type '" "gsl_matrix *""'");
8373 }
8374 arg2 = (gsl_matrix *)(argp2);
8375 if (arg1) (arg1)->H = arg2;
8376 ST(argvi) = &PL_sv_undef;
8377
8378
8379 XSRETURN(argvi);
8380 fail:
8381
8382
8383 SWIG_croak_null();
8384 }
8385 }
8386
8387
XS(_wrap_gsl_eigen_gen_workspace_H_get)8388 XS(_wrap_gsl_eigen_gen_workspace_H_get) {
8389 {
8390 gsl_eigen_gen_workspace *arg1 = (gsl_eigen_gen_workspace *) 0 ;
8391 void *argp1 = 0 ;
8392 int res1 = 0 ;
8393 int argvi = 0;
8394 gsl_matrix *result = 0 ;
8395 dXSARGS;
8396
8397 if ((items < 1) || (items > 1)) {
8398 SWIG_croak("Usage: gsl_eigen_gen_workspace_H_get(self);");
8399 }
8400 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_eigen_gen_workspace, 0 | 0 );
8401 if (!SWIG_IsOK(res1)) {
8402 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_gen_workspace_H_get" "', argument " "1"" of type '" "gsl_eigen_gen_workspace *""'");
8403 }
8404 arg1 = (gsl_eigen_gen_workspace *)(argp1);
8405 result = (gsl_matrix *) ((arg1)->H);
8406 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_matrix, 0 | 0); argvi++ ;
8407
8408 XSRETURN(argvi);
8409 fail:
8410
8411 SWIG_croak_null();
8412 }
8413 }
8414
8415
XS(_wrap_gsl_eigen_gen_workspace_R_set)8416 XS(_wrap_gsl_eigen_gen_workspace_R_set) {
8417 {
8418 gsl_eigen_gen_workspace *arg1 = (gsl_eigen_gen_workspace *) 0 ;
8419 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
8420 void *argp1 = 0 ;
8421 int res1 = 0 ;
8422 void *argp2 = 0 ;
8423 int res2 = 0 ;
8424 int argvi = 0;
8425 dXSARGS;
8426
8427 if ((items < 2) || (items > 2)) {
8428 SWIG_croak("Usage: gsl_eigen_gen_workspace_R_set(self,R);");
8429 }
8430 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_eigen_gen_workspace, 0 | 0 );
8431 if (!SWIG_IsOK(res1)) {
8432 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_gen_workspace_R_set" "', argument " "1"" of type '" "gsl_eigen_gen_workspace *""'");
8433 }
8434 arg1 = (gsl_eigen_gen_workspace *)(argp1);
8435 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, SWIG_POINTER_DISOWN | 0 );
8436 if (!SWIG_IsOK(res2)) {
8437 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_eigen_gen_workspace_R_set" "', argument " "2"" of type '" "gsl_matrix *""'");
8438 }
8439 arg2 = (gsl_matrix *)(argp2);
8440 if (arg1) (arg1)->R = arg2;
8441 ST(argvi) = &PL_sv_undef;
8442
8443
8444 XSRETURN(argvi);
8445 fail:
8446
8447
8448 SWIG_croak_null();
8449 }
8450 }
8451
8452
XS(_wrap_gsl_eigen_gen_workspace_R_get)8453 XS(_wrap_gsl_eigen_gen_workspace_R_get) {
8454 {
8455 gsl_eigen_gen_workspace *arg1 = (gsl_eigen_gen_workspace *) 0 ;
8456 void *argp1 = 0 ;
8457 int res1 = 0 ;
8458 int argvi = 0;
8459 gsl_matrix *result = 0 ;
8460 dXSARGS;
8461
8462 if ((items < 1) || (items > 1)) {
8463 SWIG_croak("Usage: gsl_eigen_gen_workspace_R_get(self);");
8464 }
8465 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_eigen_gen_workspace, 0 | 0 );
8466 if (!SWIG_IsOK(res1)) {
8467 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_gen_workspace_R_get" "', argument " "1"" of type '" "gsl_eigen_gen_workspace *""'");
8468 }
8469 arg1 = (gsl_eigen_gen_workspace *)(argp1);
8470 result = (gsl_matrix *) ((arg1)->R);
8471 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_matrix, 0 | 0); argvi++ ;
8472
8473 XSRETURN(argvi);
8474 fail:
8475
8476 SWIG_croak_null();
8477 }
8478 }
8479
8480
XS(_wrap_gsl_eigen_gen_workspace_compute_s_set)8481 XS(_wrap_gsl_eigen_gen_workspace_compute_s_set) {
8482 {
8483 gsl_eigen_gen_workspace *arg1 = (gsl_eigen_gen_workspace *) 0 ;
8484 int arg2 ;
8485 void *argp1 = 0 ;
8486 int res1 = 0 ;
8487 int val2 ;
8488 int ecode2 = 0 ;
8489 int argvi = 0;
8490 dXSARGS;
8491
8492 if ((items < 2) || (items > 2)) {
8493 SWIG_croak("Usage: gsl_eigen_gen_workspace_compute_s_set(self,compute_s);");
8494 }
8495 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_eigen_gen_workspace, 0 | 0 );
8496 if (!SWIG_IsOK(res1)) {
8497 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_gen_workspace_compute_s_set" "', argument " "1"" of type '" "gsl_eigen_gen_workspace *""'");
8498 }
8499 arg1 = (gsl_eigen_gen_workspace *)(argp1);
8500 ecode2 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
8501 if (!SWIG_IsOK(ecode2)) {
8502 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_eigen_gen_workspace_compute_s_set" "', argument " "2"" of type '" "int""'");
8503 }
8504 arg2 = (int)(val2);
8505 if (arg1) (arg1)->compute_s = arg2;
8506 ST(argvi) = &PL_sv_undef;
8507
8508
8509 XSRETURN(argvi);
8510 fail:
8511
8512
8513 SWIG_croak_null();
8514 }
8515 }
8516
8517
XS(_wrap_gsl_eigen_gen_workspace_compute_s_get)8518 XS(_wrap_gsl_eigen_gen_workspace_compute_s_get) {
8519 {
8520 gsl_eigen_gen_workspace *arg1 = (gsl_eigen_gen_workspace *) 0 ;
8521 void *argp1 = 0 ;
8522 int res1 = 0 ;
8523 int argvi = 0;
8524 int result;
8525 dXSARGS;
8526
8527 if ((items < 1) || (items > 1)) {
8528 SWIG_croak("Usage: gsl_eigen_gen_workspace_compute_s_get(self);");
8529 }
8530 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_eigen_gen_workspace, 0 | 0 );
8531 if (!SWIG_IsOK(res1)) {
8532 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_gen_workspace_compute_s_get" "', argument " "1"" of type '" "gsl_eigen_gen_workspace *""'");
8533 }
8534 arg1 = (gsl_eigen_gen_workspace *)(argp1);
8535 result = (int) ((arg1)->compute_s);
8536 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8537
8538 XSRETURN(argvi);
8539 fail:
8540
8541 SWIG_croak_null();
8542 }
8543 }
8544
8545
XS(_wrap_gsl_eigen_gen_workspace_compute_t_set)8546 XS(_wrap_gsl_eigen_gen_workspace_compute_t_set) {
8547 {
8548 gsl_eigen_gen_workspace *arg1 = (gsl_eigen_gen_workspace *) 0 ;
8549 int arg2 ;
8550 void *argp1 = 0 ;
8551 int res1 = 0 ;
8552 int val2 ;
8553 int ecode2 = 0 ;
8554 int argvi = 0;
8555 dXSARGS;
8556
8557 if ((items < 2) || (items > 2)) {
8558 SWIG_croak("Usage: gsl_eigen_gen_workspace_compute_t_set(self,compute_t);");
8559 }
8560 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_eigen_gen_workspace, 0 | 0 );
8561 if (!SWIG_IsOK(res1)) {
8562 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_gen_workspace_compute_t_set" "', argument " "1"" of type '" "gsl_eigen_gen_workspace *""'");
8563 }
8564 arg1 = (gsl_eigen_gen_workspace *)(argp1);
8565 ecode2 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
8566 if (!SWIG_IsOK(ecode2)) {
8567 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_eigen_gen_workspace_compute_t_set" "', argument " "2"" of type '" "int""'");
8568 }
8569 arg2 = (int)(val2);
8570 if (arg1) (arg1)->compute_t = arg2;
8571 ST(argvi) = &PL_sv_undef;
8572
8573
8574 XSRETURN(argvi);
8575 fail:
8576
8577
8578 SWIG_croak_null();
8579 }
8580 }
8581
8582
XS(_wrap_gsl_eigen_gen_workspace_compute_t_get)8583 XS(_wrap_gsl_eigen_gen_workspace_compute_t_get) {
8584 {
8585 gsl_eigen_gen_workspace *arg1 = (gsl_eigen_gen_workspace *) 0 ;
8586 void *argp1 = 0 ;
8587 int res1 = 0 ;
8588 int argvi = 0;
8589 int result;
8590 dXSARGS;
8591
8592 if ((items < 1) || (items > 1)) {
8593 SWIG_croak("Usage: gsl_eigen_gen_workspace_compute_t_get(self);");
8594 }
8595 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_eigen_gen_workspace, 0 | 0 );
8596 if (!SWIG_IsOK(res1)) {
8597 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_gen_workspace_compute_t_get" "', argument " "1"" of type '" "gsl_eigen_gen_workspace *""'");
8598 }
8599 arg1 = (gsl_eigen_gen_workspace *)(argp1);
8600 result = (int) ((arg1)->compute_t);
8601 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8602
8603 XSRETURN(argvi);
8604 fail:
8605
8606 SWIG_croak_null();
8607 }
8608 }
8609
8610
XS(_wrap_gsl_eigen_gen_workspace_Q_set)8611 XS(_wrap_gsl_eigen_gen_workspace_Q_set) {
8612 {
8613 gsl_eigen_gen_workspace *arg1 = (gsl_eigen_gen_workspace *) 0 ;
8614 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
8615 void *argp1 = 0 ;
8616 int res1 = 0 ;
8617 void *argp2 = 0 ;
8618 int res2 = 0 ;
8619 int argvi = 0;
8620 dXSARGS;
8621
8622 if ((items < 2) || (items > 2)) {
8623 SWIG_croak("Usage: gsl_eigen_gen_workspace_Q_set(self,Q);");
8624 }
8625 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_eigen_gen_workspace, 0 | 0 );
8626 if (!SWIG_IsOK(res1)) {
8627 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_gen_workspace_Q_set" "', argument " "1"" of type '" "gsl_eigen_gen_workspace *""'");
8628 }
8629 arg1 = (gsl_eigen_gen_workspace *)(argp1);
8630 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, SWIG_POINTER_DISOWN | 0 );
8631 if (!SWIG_IsOK(res2)) {
8632 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_eigen_gen_workspace_Q_set" "', argument " "2"" of type '" "gsl_matrix *""'");
8633 }
8634 arg2 = (gsl_matrix *)(argp2);
8635 if (arg1) (arg1)->Q = arg2;
8636 ST(argvi) = &PL_sv_undef;
8637
8638
8639 XSRETURN(argvi);
8640 fail:
8641
8642
8643 SWIG_croak_null();
8644 }
8645 }
8646
8647
XS(_wrap_gsl_eigen_gen_workspace_Q_get)8648 XS(_wrap_gsl_eigen_gen_workspace_Q_get) {
8649 {
8650 gsl_eigen_gen_workspace *arg1 = (gsl_eigen_gen_workspace *) 0 ;
8651 void *argp1 = 0 ;
8652 int res1 = 0 ;
8653 int argvi = 0;
8654 gsl_matrix *result = 0 ;
8655 dXSARGS;
8656
8657 if ((items < 1) || (items > 1)) {
8658 SWIG_croak("Usage: gsl_eigen_gen_workspace_Q_get(self);");
8659 }
8660 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_eigen_gen_workspace, 0 | 0 );
8661 if (!SWIG_IsOK(res1)) {
8662 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_gen_workspace_Q_get" "', argument " "1"" of type '" "gsl_eigen_gen_workspace *""'");
8663 }
8664 arg1 = (gsl_eigen_gen_workspace *)(argp1);
8665 result = (gsl_matrix *) ((arg1)->Q);
8666 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_matrix, 0 | 0); argvi++ ;
8667
8668 XSRETURN(argvi);
8669 fail:
8670
8671 SWIG_croak_null();
8672 }
8673 }
8674
8675
XS(_wrap_gsl_eigen_gen_workspace_Z_set)8676 XS(_wrap_gsl_eigen_gen_workspace_Z_set) {
8677 {
8678 gsl_eigen_gen_workspace *arg1 = (gsl_eigen_gen_workspace *) 0 ;
8679 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
8680 void *argp1 = 0 ;
8681 int res1 = 0 ;
8682 void *argp2 = 0 ;
8683 int res2 = 0 ;
8684 int argvi = 0;
8685 dXSARGS;
8686
8687 if ((items < 2) || (items > 2)) {
8688 SWIG_croak("Usage: gsl_eigen_gen_workspace_Z_set(self,Z);");
8689 }
8690 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_eigen_gen_workspace, 0 | 0 );
8691 if (!SWIG_IsOK(res1)) {
8692 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_gen_workspace_Z_set" "', argument " "1"" of type '" "gsl_eigen_gen_workspace *""'");
8693 }
8694 arg1 = (gsl_eigen_gen_workspace *)(argp1);
8695 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, SWIG_POINTER_DISOWN | 0 );
8696 if (!SWIG_IsOK(res2)) {
8697 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_eigen_gen_workspace_Z_set" "', argument " "2"" of type '" "gsl_matrix *""'");
8698 }
8699 arg2 = (gsl_matrix *)(argp2);
8700 if (arg1) (arg1)->Z = arg2;
8701 ST(argvi) = &PL_sv_undef;
8702
8703
8704 XSRETURN(argvi);
8705 fail:
8706
8707
8708 SWIG_croak_null();
8709 }
8710 }
8711
8712
XS(_wrap_gsl_eigen_gen_workspace_Z_get)8713 XS(_wrap_gsl_eigen_gen_workspace_Z_get) {
8714 {
8715 gsl_eigen_gen_workspace *arg1 = (gsl_eigen_gen_workspace *) 0 ;
8716 void *argp1 = 0 ;
8717 int res1 = 0 ;
8718 int argvi = 0;
8719 gsl_matrix *result = 0 ;
8720 dXSARGS;
8721
8722 if ((items < 1) || (items > 1)) {
8723 SWIG_croak("Usage: gsl_eigen_gen_workspace_Z_get(self);");
8724 }
8725 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_eigen_gen_workspace, 0 | 0 );
8726 if (!SWIG_IsOK(res1)) {
8727 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_gen_workspace_Z_get" "', argument " "1"" of type '" "gsl_eigen_gen_workspace *""'");
8728 }
8729 arg1 = (gsl_eigen_gen_workspace *)(argp1);
8730 result = (gsl_matrix *) ((arg1)->Z);
8731 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_matrix, 0 | 0); argvi++ ;
8732
8733 XSRETURN(argvi);
8734 fail:
8735
8736 SWIG_croak_null();
8737 }
8738 }
8739
8740
XS(_wrap_new_gsl_eigen_gen_workspace)8741 XS(_wrap_new_gsl_eigen_gen_workspace) {
8742 {
8743 int argvi = 0;
8744 gsl_eigen_gen_workspace *result = 0 ;
8745 dXSARGS;
8746
8747 if ((items < 0) || (items > 0)) {
8748 SWIG_croak("Usage: new_gsl_eigen_gen_workspace();");
8749 }
8750 result = (gsl_eigen_gen_workspace *)calloc(1, sizeof(gsl_eigen_gen_workspace));
8751 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_eigen_gen_workspace, SWIG_OWNER | SWIG_SHADOW); argvi++ ;
8752 XSRETURN(argvi);
8753 fail:
8754 SWIG_croak_null();
8755 }
8756 }
8757
8758
XS(_wrap_delete_gsl_eigen_gen_workspace)8759 XS(_wrap_delete_gsl_eigen_gen_workspace) {
8760 {
8761 gsl_eigen_gen_workspace *arg1 = (gsl_eigen_gen_workspace *) 0 ;
8762 void *argp1 = 0 ;
8763 int res1 = 0 ;
8764 int argvi = 0;
8765 dXSARGS;
8766
8767 if ((items < 1) || (items > 1)) {
8768 SWIG_croak("Usage: delete_gsl_eigen_gen_workspace(self);");
8769 }
8770 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_eigen_gen_workspace, SWIG_POINTER_DISOWN | 0 );
8771 if (!SWIG_IsOK(res1)) {
8772 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "delete_gsl_eigen_gen_workspace" "', argument " "1"" of type '" "gsl_eigen_gen_workspace *""'");
8773 }
8774 arg1 = (gsl_eigen_gen_workspace *)(argp1);
8775 free((char *) arg1);
8776 ST(argvi) = &PL_sv_undef;
8777
8778 XSRETURN(argvi);
8779 fail:
8780
8781 SWIG_croak_null();
8782 }
8783 }
8784
8785
XS(_wrap_gsl_eigen_gen_alloc)8786 XS(_wrap_gsl_eigen_gen_alloc) {
8787 {
8788 size_t arg1 ;
8789 size_t val1 ;
8790 int ecode1 = 0 ;
8791 int argvi = 0;
8792 gsl_eigen_gen_workspace *result = 0 ;
8793 dXSARGS;
8794
8795 if ((items < 1) || (items > 1)) {
8796 SWIG_croak("Usage: gsl_eigen_gen_alloc(n);");
8797 }
8798 ecode1 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
8799 if (!SWIG_IsOK(ecode1)) {
8800 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_eigen_gen_alloc" "', argument " "1"" of type '" "size_t""'");
8801 }
8802 arg1 = (size_t)(val1);
8803 result = (gsl_eigen_gen_workspace *)gsl_eigen_gen_alloc(arg1);
8804 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_eigen_gen_workspace, 0 | SWIG_SHADOW); argvi++ ;
8805
8806 XSRETURN(argvi);
8807 fail:
8808
8809 SWIG_croak_null();
8810 }
8811 }
8812
8813
XS(_wrap_gsl_eigen_gen_free)8814 XS(_wrap_gsl_eigen_gen_free) {
8815 {
8816 gsl_eigen_gen_workspace *arg1 = (gsl_eigen_gen_workspace *) 0 ;
8817 void *argp1 = 0 ;
8818 int res1 = 0 ;
8819 int argvi = 0;
8820 dXSARGS;
8821
8822 if ((items < 1) || (items > 1)) {
8823 SWIG_croak("Usage: gsl_eigen_gen_free(w);");
8824 }
8825 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_eigen_gen_workspace, 0 | 0 );
8826 if (!SWIG_IsOK(res1)) {
8827 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_gen_free" "', argument " "1"" of type '" "gsl_eigen_gen_workspace *""'");
8828 }
8829 arg1 = (gsl_eigen_gen_workspace *)(argp1);
8830 gsl_eigen_gen_free(arg1);
8831 ST(argvi) = &PL_sv_undef;
8832
8833 XSRETURN(argvi);
8834 fail:
8835
8836 SWIG_croak_null();
8837 }
8838 }
8839
8840
XS(_wrap_gsl_eigen_gen_params)8841 XS(_wrap_gsl_eigen_gen_params) {
8842 {
8843 int arg1 ;
8844 int arg2 ;
8845 int arg3 ;
8846 gsl_eigen_gen_workspace *arg4 = (gsl_eigen_gen_workspace *) 0 ;
8847 int val1 ;
8848 int ecode1 = 0 ;
8849 int val2 ;
8850 int ecode2 = 0 ;
8851 int val3 ;
8852 int ecode3 = 0 ;
8853 void *argp4 = 0 ;
8854 int res4 = 0 ;
8855 int argvi = 0;
8856 dXSARGS;
8857
8858 if ((items < 4) || (items > 4)) {
8859 SWIG_croak("Usage: gsl_eigen_gen_params(compute_s,compute_t,balance,w);");
8860 }
8861 ecode1 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
8862 if (!SWIG_IsOK(ecode1)) {
8863 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_eigen_gen_params" "', argument " "1"" of type '" "int""'");
8864 }
8865 arg1 = (int)(val1);
8866 ecode2 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
8867 if (!SWIG_IsOK(ecode2)) {
8868 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_eigen_gen_params" "', argument " "2"" of type '" "int""'");
8869 }
8870 arg2 = (int)(val2);
8871 ecode3 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
8872 if (!SWIG_IsOK(ecode3)) {
8873 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_eigen_gen_params" "', argument " "3"" of type '" "int""'");
8874 }
8875 arg3 = (int)(val3);
8876 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_eigen_gen_workspace, 0 | 0 );
8877 if (!SWIG_IsOK(res4)) {
8878 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_eigen_gen_params" "', argument " "4"" of type '" "gsl_eigen_gen_workspace *""'");
8879 }
8880 arg4 = (gsl_eigen_gen_workspace *)(argp4);
8881 gsl_eigen_gen_params(arg1,arg2,arg3,arg4);
8882 ST(argvi) = &PL_sv_undef;
8883
8884
8885
8886
8887 XSRETURN(argvi);
8888 fail:
8889
8890
8891
8892
8893 SWIG_croak_null();
8894 }
8895 }
8896
8897
XS(_wrap_gsl_eigen_gen)8898 XS(_wrap_gsl_eigen_gen) {
8899 {
8900 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
8901 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
8902 gsl_vector_complex *arg3 = (gsl_vector_complex *) 0 ;
8903 gsl_vector *arg4 = (gsl_vector *) 0 ;
8904 gsl_eigen_gen_workspace *arg5 = (gsl_eigen_gen_workspace *) 0 ;
8905 void *argp1 = 0 ;
8906 int res1 = 0 ;
8907 void *argp2 = 0 ;
8908 int res2 = 0 ;
8909 void *argp3 = 0 ;
8910 int res3 = 0 ;
8911 void *argp4 = 0 ;
8912 int res4 = 0 ;
8913 void *argp5 = 0 ;
8914 int res5 = 0 ;
8915 int argvi = 0;
8916 int result;
8917 dXSARGS;
8918
8919 if ((items < 5) || (items > 5)) {
8920 SWIG_croak("Usage: gsl_eigen_gen(A,B,alpha,beta,w);");
8921 }
8922 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
8923 if (!SWIG_IsOK(res1)) {
8924 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_gen" "', argument " "1"" of type '" "gsl_matrix *""'");
8925 }
8926 arg1 = (gsl_matrix *)(argp1);
8927 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
8928 if (!SWIG_IsOK(res2)) {
8929 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_eigen_gen" "', argument " "2"" of type '" "gsl_matrix *""'");
8930 }
8931 arg2 = (gsl_matrix *)(argp2);
8932 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
8933 if (!SWIG_IsOK(res3)) {
8934 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_eigen_gen" "', argument " "3"" of type '" "gsl_vector_complex *""'");
8935 }
8936 arg3 = (gsl_vector_complex *)(argp3);
8937 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
8938 if (!SWIG_IsOK(res4)) {
8939 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_eigen_gen" "', argument " "4"" of type '" "gsl_vector *""'");
8940 }
8941 arg4 = (gsl_vector *)(argp4);
8942 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_eigen_gen_workspace, 0 | 0 );
8943 if (!SWIG_IsOK(res5)) {
8944 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_eigen_gen" "', argument " "5"" of type '" "gsl_eigen_gen_workspace *""'");
8945 }
8946 arg5 = (gsl_eigen_gen_workspace *)(argp5);
8947 result = (int)gsl_eigen_gen(arg1,arg2,arg3,arg4,arg5);
8948 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8949
8950
8951
8952
8953
8954 XSRETURN(argvi);
8955 fail:
8956
8957
8958
8959
8960
8961 SWIG_croak_null();
8962 }
8963 }
8964
8965
XS(_wrap_gsl_eigen_gen_QZ)8966 XS(_wrap_gsl_eigen_gen_QZ) {
8967 {
8968 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
8969 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
8970 gsl_vector_complex *arg3 = (gsl_vector_complex *) 0 ;
8971 gsl_vector *arg4 = (gsl_vector *) 0 ;
8972 gsl_matrix *arg5 = (gsl_matrix *) 0 ;
8973 gsl_matrix *arg6 = (gsl_matrix *) 0 ;
8974 gsl_eigen_gen_workspace *arg7 = (gsl_eigen_gen_workspace *) 0 ;
8975 void *argp1 = 0 ;
8976 int res1 = 0 ;
8977 void *argp2 = 0 ;
8978 int res2 = 0 ;
8979 void *argp3 = 0 ;
8980 int res3 = 0 ;
8981 void *argp4 = 0 ;
8982 int res4 = 0 ;
8983 void *argp5 = 0 ;
8984 int res5 = 0 ;
8985 void *argp6 = 0 ;
8986 int res6 = 0 ;
8987 void *argp7 = 0 ;
8988 int res7 = 0 ;
8989 int argvi = 0;
8990 int result;
8991 dXSARGS;
8992
8993 if ((items < 7) || (items > 7)) {
8994 SWIG_croak("Usage: gsl_eigen_gen_QZ(A,B,alpha,beta,Q,Z,w);");
8995 }
8996 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
8997 if (!SWIG_IsOK(res1)) {
8998 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_gen_QZ" "', argument " "1"" of type '" "gsl_matrix *""'");
8999 }
9000 arg1 = (gsl_matrix *)(argp1);
9001 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
9002 if (!SWIG_IsOK(res2)) {
9003 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_eigen_gen_QZ" "', argument " "2"" of type '" "gsl_matrix *""'");
9004 }
9005 arg2 = (gsl_matrix *)(argp2);
9006 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
9007 if (!SWIG_IsOK(res3)) {
9008 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_eigen_gen_QZ" "', argument " "3"" of type '" "gsl_vector_complex *""'");
9009 }
9010 arg3 = (gsl_vector_complex *)(argp3);
9011 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
9012 if (!SWIG_IsOK(res4)) {
9013 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_eigen_gen_QZ" "', argument " "4"" of type '" "gsl_vector *""'");
9014 }
9015 arg4 = (gsl_vector *)(argp4);
9016 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_matrix, 0 | 0 );
9017 if (!SWIG_IsOK(res5)) {
9018 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_eigen_gen_QZ" "', argument " "5"" of type '" "gsl_matrix *""'");
9019 }
9020 arg5 = (gsl_matrix *)(argp5);
9021 res6 = SWIG_ConvertPtr(ST(5), &argp6,SWIGTYPE_p_gsl_matrix, 0 | 0 );
9022 if (!SWIG_IsOK(res6)) {
9023 SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_eigen_gen_QZ" "', argument " "6"" of type '" "gsl_matrix *""'");
9024 }
9025 arg6 = (gsl_matrix *)(argp6);
9026 res7 = SWIG_ConvertPtr(ST(6), &argp7,SWIGTYPE_p_gsl_eigen_gen_workspace, 0 | 0 );
9027 if (!SWIG_IsOK(res7)) {
9028 SWIG_exception_fail(SWIG_ArgError(res7), "in method '" "gsl_eigen_gen_QZ" "', argument " "7"" of type '" "gsl_eigen_gen_workspace *""'");
9029 }
9030 arg7 = (gsl_eigen_gen_workspace *)(argp7);
9031 result = (int)gsl_eigen_gen_QZ(arg1,arg2,arg3,arg4,arg5,arg6,arg7);
9032 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
9033
9034
9035
9036
9037
9038
9039
9040 XSRETURN(argvi);
9041 fail:
9042
9043
9044
9045
9046
9047
9048
9049 SWIG_croak_null();
9050 }
9051 }
9052
9053
XS(_wrap_gsl_eigen_genv_workspace_size_set)9054 XS(_wrap_gsl_eigen_genv_workspace_size_set) {
9055 {
9056 gsl_eigen_genv_workspace *arg1 = (gsl_eigen_genv_workspace *) 0 ;
9057 size_t arg2 ;
9058 void *argp1 = 0 ;
9059 int res1 = 0 ;
9060 size_t val2 ;
9061 int ecode2 = 0 ;
9062 int argvi = 0;
9063 dXSARGS;
9064
9065 if ((items < 2) || (items > 2)) {
9066 SWIG_croak("Usage: gsl_eigen_genv_workspace_size_set(self,size);");
9067 }
9068 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_eigen_genv_workspace, 0 | 0 );
9069 if (!SWIG_IsOK(res1)) {
9070 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_genv_workspace_size_set" "', argument " "1"" of type '" "gsl_eigen_genv_workspace *""'");
9071 }
9072 arg1 = (gsl_eigen_genv_workspace *)(argp1);
9073 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
9074 if (!SWIG_IsOK(ecode2)) {
9075 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_eigen_genv_workspace_size_set" "', argument " "2"" of type '" "size_t""'");
9076 }
9077 arg2 = (size_t)(val2);
9078 if (arg1) (arg1)->size = arg2;
9079 ST(argvi) = &PL_sv_undef;
9080
9081
9082 XSRETURN(argvi);
9083 fail:
9084
9085
9086 SWIG_croak_null();
9087 }
9088 }
9089
9090
XS(_wrap_gsl_eigen_genv_workspace_size_get)9091 XS(_wrap_gsl_eigen_genv_workspace_size_get) {
9092 {
9093 gsl_eigen_genv_workspace *arg1 = (gsl_eigen_genv_workspace *) 0 ;
9094 void *argp1 = 0 ;
9095 int res1 = 0 ;
9096 int argvi = 0;
9097 size_t result;
9098 dXSARGS;
9099
9100 if ((items < 1) || (items > 1)) {
9101 SWIG_croak("Usage: gsl_eigen_genv_workspace_size_get(self);");
9102 }
9103 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_eigen_genv_workspace, 0 | 0 );
9104 if (!SWIG_IsOK(res1)) {
9105 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_genv_workspace_size_get" "', argument " "1"" of type '" "gsl_eigen_genv_workspace *""'");
9106 }
9107 arg1 = (gsl_eigen_genv_workspace *)(argp1);
9108 result = ((arg1)->size);
9109 ST(argvi) = SWIG_From_size_t SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
9110
9111 XSRETURN(argvi);
9112 fail:
9113
9114 SWIG_croak_null();
9115 }
9116 }
9117
9118
XS(_wrap_gsl_eigen_genv_workspace_work1_set)9119 XS(_wrap_gsl_eigen_genv_workspace_work1_set) {
9120 {
9121 gsl_eigen_genv_workspace *arg1 = (gsl_eigen_genv_workspace *) 0 ;
9122 gsl_vector *arg2 = (gsl_vector *) 0 ;
9123 void *argp1 = 0 ;
9124 int res1 = 0 ;
9125 void *argp2 = 0 ;
9126 int res2 = 0 ;
9127 int argvi = 0;
9128 dXSARGS;
9129
9130 if ((items < 2) || (items > 2)) {
9131 SWIG_croak("Usage: gsl_eigen_genv_workspace_work1_set(self,work1);");
9132 }
9133 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_eigen_genv_workspace, 0 | 0 );
9134 if (!SWIG_IsOK(res1)) {
9135 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_genv_workspace_work1_set" "', argument " "1"" of type '" "gsl_eigen_genv_workspace *""'");
9136 }
9137 arg1 = (gsl_eigen_genv_workspace *)(argp1);
9138 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, SWIG_POINTER_DISOWN | 0 );
9139 if (!SWIG_IsOK(res2)) {
9140 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_eigen_genv_workspace_work1_set" "', argument " "2"" of type '" "gsl_vector *""'");
9141 }
9142 arg2 = (gsl_vector *)(argp2);
9143 if (arg1) (arg1)->work1 = arg2;
9144 ST(argvi) = &PL_sv_undef;
9145
9146
9147 XSRETURN(argvi);
9148 fail:
9149
9150
9151 SWIG_croak_null();
9152 }
9153 }
9154
9155
XS(_wrap_gsl_eigen_genv_workspace_work1_get)9156 XS(_wrap_gsl_eigen_genv_workspace_work1_get) {
9157 {
9158 gsl_eigen_genv_workspace *arg1 = (gsl_eigen_genv_workspace *) 0 ;
9159 void *argp1 = 0 ;
9160 int res1 = 0 ;
9161 int argvi = 0;
9162 gsl_vector *result = 0 ;
9163 dXSARGS;
9164
9165 if ((items < 1) || (items > 1)) {
9166 SWIG_croak("Usage: gsl_eigen_genv_workspace_work1_get(self);");
9167 }
9168 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_eigen_genv_workspace, 0 | 0 );
9169 if (!SWIG_IsOK(res1)) {
9170 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_genv_workspace_work1_get" "', argument " "1"" of type '" "gsl_eigen_genv_workspace *""'");
9171 }
9172 arg1 = (gsl_eigen_genv_workspace *)(argp1);
9173 result = (gsl_vector *) ((arg1)->work1);
9174 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_vector, 0 | 0); argvi++ ;
9175
9176 XSRETURN(argvi);
9177 fail:
9178
9179 SWIG_croak_null();
9180 }
9181 }
9182
9183
XS(_wrap_gsl_eigen_genv_workspace_work2_set)9184 XS(_wrap_gsl_eigen_genv_workspace_work2_set) {
9185 {
9186 gsl_eigen_genv_workspace *arg1 = (gsl_eigen_genv_workspace *) 0 ;
9187 gsl_vector *arg2 = (gsl_vector *) 0 ;
9188 void *argp1 = 0 ;
9189 int res1 = 0 ;
9190 void *argp2 = 0 ;
9191 int res2 = 0 ;
9192 int argvi = 0;
9193 dXSARGS;
9194
9195 if ((items < 2) || (items > 2)) {
9196 SWIG_croak("Usage: gsl_eigen_genv_workspace_work2_set(self,work2);");
9197 }
9198 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_eigen_genv_workspace, 0 | 0 );
9199 if (!SWIG_IsOK(res1)) {
9200 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_genv_workspace_work2_set" "', argument " "1"" of type '" "gsl_eigen_genv_workspace *""'");
9201 }
9202 arg1 = (gsl_eigen_genv_workspace *)(argp1);
9203 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, SWIG_POINTER_DISOWN | 0 );
9204 if (!SWIG_IsOK(res2)) {
9205 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_eigen_genv_workspace_work2_set" "', argument " "2"" of type '" "gsl_vector *""'");
9206 }
9207 arg2 = (gsl_vector *)(argp2);
9208 if (arg1) (arg1)->work2 = arg2;
9209 ST(argvi) = &PL_sv_undef;
9210
9211
9212 XSRETURN(argvi);
9213 fail:
9214
9215
9216 SWIG_croak_null();
9217 }
9218 }
9219
9220
XS(_wrap_gsl_eigen_genv_workspace_work2_get)9221 XS(_wrap_gsl_eigen_genv_workspace_work2_get) {
9222 {
9223 gsl_eigen_genv_workspace *arg1 = (gsl_eigen_genv_workspace *) 0 ;
9224 void *argp1 = 0 ;
9225 int res1 = 0 ;
9226 int argvi = 0;
9227 gsl_vector *result = 0 ;
9228 dXSARGS;
9229
9230 if ((items < 1) || (items > 1)) {
9231 SWIG_croak("Usage: gsl_eigen_genv_workspace_work2_get(self);");
9232 }
9233 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_eigen_genv_workspace, 0 | 0 );
9234 if (!SWIG_IsOK(res1)) {
9235 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_genv_workspace_work2_get" "', argument " "1"" of type '" "gsl_eigen_genv_workspace *""'");
9236 }
9237 arg1 = (gsl_eigen_genv_workspace *)(argp1);
9238 result = (gsl_vector *) ((arg1)->work2);
9239 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_vector, 0 | 0); argvi++ ;
9240
9241 XSRETURN(argvi);
9242 fail:
9243
9244 SWIG_croak_null();
9245 }
9246 }
9247
9248
XS(_wrap_gsl_eigen_genv_workspace_work3_set)9249 XS(_wrap_gsl_eigen_genv_workspace_work3_set) {
9250 {
9251 gsl_eigen_genv_workspace *arg1 = (gsl_eigen_genv_workspace *) 0 ;
9252 gsl_vector *arg2 = (gsl_vector *) 0 ;
9253 void *argp1 = 0 ;
9254 int res1 = 0 ;
9255 void *argp2 = 0 ;
9256 int res2 = 0 ;
9257 int argvi = 0;
9258 dXSARGS;
9259
9260 if ((items < 2) || (items > 2)) {
9261 SWIG_croak("Usage: gsl_eigen_genv_workspace_work3_set(self,work3);");
9262 }
9263 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_eigen_genv_workspace, 0 | 0 );
9264 if (!SWIG_IsOK(res1)) {
9265 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_genv_workspace_work3_set" "', argument " "1"" of type '" "gsl_eigen_genv_workspace *""'");
9266 }
9267 arg1 = (gsl_eigen_genv_workspace *)(argp1);
9268 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, SWIG_POINTER_DISOWN | 0 );
9269 if (!SWIG_IsOK(res2)) {
9270 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_eigen_genv_workspace_work3_set" "', argument " "2"" of type '" "gsl_vector *""'");
9271 }
9272 arg2 = (gsl_vector *)(argp2);
9273 if (arg1) (arg1)->work3 = arg2;
9274 ST(argvi) = &PL_sv_undef;
9275
9276
9277 XSRETURN(argvi);
9278 fail:
9279
9280
9281 SWIG_croak_null();
9282 }
9283 }
9284
9285
XS(_wrap_gsl_eigen_genv_workspace_work3_get)9286 XS(_wrap_gsl_eigen_genv_workspace_work3_get) {
9287 {
9288 gsl_eigen_genv_workspace *arg1 = (gsl_eigen_genv_workspace *) 0 ;
9289 void *argp1 = 0 ;
9290 int res1 = 0 ;
9291 int argvi = 0;
9292 gsl_vector *result = 0 ;
9293 dXSARGS;
9294
9295 if ((items < 1) || (items > 1)) {
9296 SWIG_croak("Usage: gsl_eigen_genv_workspace_work3_get(self);");
9297 }
9298 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_eigen_genv_workspace, 0 | 0 );
9299 if (!SWIG_IsOK(res1)) {
9300 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_genv_workspace_work3_get" "', argument " "1"" of type '" "gsl_eigen_genv_workspace *""'");
9301 }
9302 arg1 = (gsl_eigen_genv_workspace *)(argp1);
9303 result = (gsl_vector *) ((arg1)->work3);
9304 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_vector, 0 | 0); argvi++ ;
9305
9306 XSRETURN(argvi);
9307 fail:
9308
9309 SWIG_croak_null();
9310 }
9311 }
9312
9313
XS(_wrap_gsl_eigen_genv_workspace_work4_set)9314 XS(_wrap_gsl_eigen_genv_workspace_work4_set) {
9315 {
9316 gsl_eigen_genv_workspace *arg1 = (gsl_eigen_genv_workspace *) 0 ;
9317 gsl_vector *arg2 = (gsl_vector *) 0 ;
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_eigen_genv_workspace_work4_set(self,work4);");
9327 }
9328 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_eigen_genv_workspace, 0 | 0 );
9329 if (!SWIG_IsOK(res1)) {
9330 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_genv_workspace_work4_set" "', argument " "1"" of type '" "gsl_eigen_genv_workspace *""'");
9331 }
9332 arg1 = (gsl_eigen_genv_workspace *)(argp1);
9333 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, SWIG_POINTER_DISOWN | 0 );
9334 if (!SWIG_IsOK(res2)) {
9335 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_eigen_genv_workspace_work4_set" "', argument " "2"" of type '" "gsl_vector *""'");
9336 }
9337 arg2 = (gsl_vector *)(argp2);
9338 if (arg1) (arg1)->work4 = arg2;
9339 ST(argvi) = &PL_sv_undef;
9340
9341
9342 XSRETURN(argvi);
9343 fail:
9344
9345
9346 SWIG_croak_null();
9347 }
9348 }
9349
9350
XS(_wrap_gsl_eigen_genv_workspace_work4_get)9351 XS(_wrap_gsl_eigen_genv_workspace_work4_get) {
9352 {
9353 gsl_eigen_genv_workspace *arg1 = (gsl_eigen_genv_workspace *) 0 ;
9354 void *argp1 = 0 ;
9355 int res1 = 0 ;
9356 int argvi = 0;
9357 gsl_vector *result = 0 ;
9358 dXSARGS;
9359
9360 if ((items < 1) || (items > 1)) {
9361 SWIG_croak("Usage: gsl_eigen_genv_workspace_work4_get(self);");
9362 }
9363 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_eigen_genv_workspace, 0 | 0 );
9364 if (!SWIG_IsOK(res1)) {
9365 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_genv_workspace_work4_get" "', argument " "1"" of type '" "gsl_eigen_genv_workspace *""'");
9366 }
9367 arg1 = (gsl_eigen_genv_workspace *)(argp1);
9368 result = (gsl_vector *) ((arg1)->work4);
9369 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_vector, 0 | 0); argvi++ ;
9370
9371 XSRETURN(argvi);
9372 fail:
9373
9374 SWIG_croak_null();
9375 }
9376 }
9377
9378
XS(_wrap_gsl_eigen_genv_workspace_work5_set)9379 XS(_wrap_gsl_eigen_genv_workspace_work5_set) {
9380 {
9381 gsl_eigen_genv_workspace *arg1 = (gsl_eigen_genv_workspace *) 0 ;
9382 gsl_vector *arg2 = (gsl_vector *) 0 ;
9383 void *argp1 = 0 ;
9384 int res1 = 0 ;
9385 void *argp2 = 0 ;
9386 int res2 = 0 ;
9387 int argvi = 0;
9388 dXSARGS;
9389
9390 if ((items < 2) || (items > 2)) {
9391 SWIG_croak("Usage: gsl_eigen_genv_workspace_work5_set(self,work5);");
9392 }
9393 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_eigen_genv_workspace, 0 | 0 );
9394 if (!SWIG_IsOK(res1)) {
9395 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_genv_workspace_work5_set" "', argument " "1"" of type '" "gsl_eigen_genv_workspace *""'");
9396 }
9397 arg1 = (gsl_eigen_genv_workspace *)(argp1);
9398 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, SWIG_POINTER_DISOWN | 0 );
9399 if (!SWIG_IsOK(res2)) {
9400 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_eigen_genv_workspace_work5_set" "', argument " "2"" of type '" "gsl_vector *""'");
9401 }
9402 arg2 = (gsl_vector *)(argp2);
9403 if (arg1) (arg1)->work5 = arg2;
9404 ST(argvi) = &PL_sv_undef;
9405
9406
9407 XSRETURN(argvi);
9408 fail:
9409
9410
9411 SWIG_croak_null();
9412 }
9413 }
9414
9415
XS(_wrap_gsl_eigen_genv_workspace_work5_get)9416 XS(_wrap_gsl_eigen_genv_workspace_work5_get) {
9417 {
9418 gsl_eigen_genv_workspace *arg1 = (gsl_eigen_genv_workspace *) 0 ;
9419 void *argp1 = 0 ;
9420 int res1 = 0 ;
9421 int argvi = 0;
9422 gsl_vector *result = 0 ;
9423 dXSARGS;
9424
9425 if ((items < 1) || (items > 1)) {
9426 SWIG_croak("Usage: gsl_eigen_genv_workspace_work5_get(self);");
9427 }
9428 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_eigen_genv_workspace, 0 | 0 );
9429 if (!SWIG_IsOK(res1)) {
9430 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_genv_workspace_work5_get" "', argument " "1"" of type '" "gsl_eigen_genv_workspace *""'");
9431 }
9432 arg1 = (gsl_eigen_genv_workspace *)(argp1);
9433 result = (gsl_vector *) ((arg1)->work5);
9434 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_vector, 0 | 0); argvi++ ;
9435
9436 XSRETURN(argvi);
9437 fail:
9438
9439 SWIG_croak_null();
9440 }
9441 }
9442
9443
XS(_wrap_gsl_eigen_genv_workspace_work6_set)9444 XS(_wrap_gsl_eigen_genv_workspace_work6_set) {
9445 {
9446 gsl_eigen_genv_workspace *arg1 = (gsl_eigen_genv_workspace *) 0 ;
9447 gsl_vector *arg2 = (gsl_vector *) 0 ;
9448 void *argp1 = 0 ;
9449 int res1 = 0 ;
9450 void *argp2 = 0 ;
9451 int res2 = 0 ;
9452 int argvi = 0;
9453 dXSARGS;
9454
9455 if ((items < 2) || (items > 2)) {
9456 SWIG_croak("Usage: gsl_eigen_genv_workspace_work6_set(self,work6);");
9457 }
9458 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_eigen_genv_workspace, 0 | 0 );
9459 if (!SWIG_IsOK(res1)) {
9460 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_genv_workspace_work6_set" "', argument " "1"" of type '" "gsl_eigen_genv_workspace *""'");
9461 }
9462 arg1 = (gsl_eigen_genv_workspace *)(argp1);
9463 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, SWIG_POINTER_DISOWN | 0 );
9464 if (!SWIG_IsOK(res2)) {
9465 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_eigen_genv_workspace_work6_set" "', argument " "2"" of type '" "gsl_vector *""'");
9466 }
9467 arg2 = (gsl_vector *)(argp2);
9468 if (arg1) (arg1)->work6 = arg2;
9469 ST(argvi) = &PL_sv_undef;
9470
9471
9472 XSRETURN(argvi);
9473 fail:
9474
9475
9476 SWIG_croak_null();
9477 }
9478 }
9479
9480
XS(_wrap_gsl_eigen_genv_workspace_work6_get)9481 XS(_wrap_gsl_eigen_genv_workspace_work6_get) {
9482 {
9483 gsl_eigen_genv_workspace *arg1 = (gsl_eigen_genv_workspace *) 0 ;
9484 void *argp1 = 0 ;
9485 int res1 = 0 ;
9486 int argvi = 0;
9487 gsl_vector *result = 0 ;
9488 dXSARGS;
9489
9490 if ((items < 1) || (items > 1)) {
9491 SWIG_croak("Usage: gsl_eigen_genv_workspace_work6_get(self);");
9492 }
9493 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_eigen_genv_workspace, 0 | 0 );
9494 if (!SWIG_IsOK(res1)) {
9495 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_genv_workspace_work6_get" "', argument " "1"" of type '" "gsl_eigen_genv_workspace *""'");
9496 }
9497 arg1 = (gsl_eigen_genv_workspace *)(argp1);
9498 result = (gsl_vector *) ((arg1)->work6);
9499 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_vector, 0 | 0); argvi++ ;
9500
9501 XSRETURN(argvi);
9502 fail:
9503
9504 SWIG_croak_null();
9505 }
9506 }
9507
9508
XS(_wrap_gsl_eigen_genv_workspace_Q_set)9509 XS(_wrap_gsl_eigen_genv_workspace_Q_set) {
9510 {
9511 gsl_eigen_genv_workspace *arg1 = (gsl_eigen_genv_workspace *) 0 ;
9512 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
9513 void *argp1 = 0 ;
9514 int res1 = 0 ;
9515 void *argp2 = 0 ;
9516 int res2 = 0 ;
9517 int argvi = 0;
9518 dXSARGS;
9519
9520 if ((items < 2) || (items > 2)) {
9521 SWIG_croak("Usage: gsl_eigen_genv_workspace_Q_set(self,Q);");
9522 }
9523 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_eigen_genv_workspace, 0 | 0 );
9524 if (!SWIG_IsOK(res1)) {
9525 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_genv_workspace_Q_set" "', argument " "1"" of type '" "gsl_eigen_genv_workspace *""'");
9526 }
9527 arg1 = (gsl_eigen_genv_workspace *)(argp1);
9528 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, SWIG_POINTER_DISOWN | 0 );
9529 if (!SWIG_IsOK(res2)) {
9530 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_eigen_genv_workspace_Q_set" "', argument " "2"" of type '" "gsl_matrix *""'");
9531 }
9532 arg2 = (gsl_matrix *)(argp2);
9533 if (arg1) (arg1)->Q = arg2;
9534 ST(argvi) = &PL_sv_undef;
9535
9536
9537 XSRETURN(argvi);
9538 fail:
9539
9540
9541 SWIG_croak_null();
9542 }
9543 }
9544
9545
XS(_wrap_gsl_eigen_genv_workspace_Q_get)9546 XS(_wrap_gsl_eigen_genv_workspace_Q_get) {
9547 {
9548 gsl_eigen_genv_workspace *arg1 = (gsl_eigen_genv_workspace *) 0 ;
9549 void *argp1 = 0 ;
9550 int res1 = 0 ;
9551 int argvi = 0;
9552 gsl_matrix *result = 0 ;
9553 dXSARGS;
9554
9555 if ((items < 1) || (items > 1)) {
9556 SWIG_croak("Usage: gsl_eigen_genv_workspace_Q_get(self);");
9557 }
9558 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_eigen_genv_workspace, 0 | 0 );
9559 if (!SWIG_IsOK(res1)) {
9560 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_genv_workspace_Q_get" "', argument " "1"" of type '" "gsl_eigen_genv_workspace *""'");
9561 }
9562 arg1 = (gsl_eigen_genv_workspace *)(argp1);
9563 result = (gsl_matrix *) ((arg1)->Q);
9564 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_matrix, 0 | 0); argvi++ ;
9565
9566 XSRETURN(argvi);
9567 fail:
9568
9569 SWIG_croak_null();
9570 }
9571 }
9572
9573
XS(_wrap_gsl_eigen_genv_workspace_Z_set)9574 XS(_wrap_gsl_eigen_genv_workspace_Z_set) {
9575 {
9576 gsl_eigen_genv_workspace *arg1 = (gsl_eigen_genv_workspace *) 0 ;
9577 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
9578 void *argp1 = 0 ;
9579 int res1 = 0 ;
9580 void *argp2 = 0 ;
9581 int res2 = 0 ;
9582 int argvi = 0;
9583 dXSARGS;
9584
9585 if ((items < 2) || (items > 2)) {
9586 SWIG_croak("Usage: gsl_eigen_genv_workspace_Z_set(self,Z);");
9587 }
9588 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_eigen_genv_workspace, 0 | 0 );
9589 if (!SWIG_IsOK(res1)) {
9590 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_genv_workspace_Z_set" "', argument " "1"" of type '" "gsl_eigen_genv_workspace *""'");
9591 }
9592 arg1 = (gsl_eigen_genv_workspace *)(argp1);
9593 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, SWIG_POINTER_DISOWN | 0 );
9594 if (!SWIG_IsOK(res2)) {
9595 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_eigen_genv_workspace_Z_set" "', argument " "2"" of type '" "gsl_matrix *""'");
9596 }
9597 arg2 = (gsl_matrix *)(argp2);
9598 if (arg1) (arg1)->Z = arg2;
9599 ST(argvi) = &PL_sv_undef;
9600
9601
9602 XSRETURN(argvi);
9603 fail:
9604
9605
9606 SWIG_croak_null();
9607 }
9608 }
9609
9610
XS(_wrap_gsl_eigen_genv_workspace_Z_get)9611 XS(_wrap_gsl_eigen_genv_workspace_Z_get) {
9612 {
9613 gsl_eigen_genv_workspace *arg1 = (gsl_eigen_genv_workspace *) 0 ;
9614 void *argp1 = 0 ;
9615 int res1 = 0 ;
9616 int argvi = 0;
9617 gsl_matrix *result = 0 ;
9618 dXSARGS;
9619
9620 if ((items < 1) || (items > 1)) {
9621 SWIG_croak("Usage: gsl_eigen_genv_workspace_Z_get(self);");
9622 }
9623 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_eigen_genv_workspace, 0 | 0 );
9624 if (!SWIG_IsOK(res1)) {
9625 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_genv_workspace_Z_get" "', argument " "1"" of type '" "gsl_eigen_genv_workspace *""'");
9626 }
9627 arg1 = (gsl_eigen_genv_workspace *)(argp1);
9628 result = (gsl_matrix *) ((arg1)->Z);
9629 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_matrix, 0 | 0); argvi++ ;
9630
9631 XSRETURN(argvi);
9632 fail:
9633
9634 SWIG_croak_null();
9635 }
9636 }
9637
9638
XS(_wrap_gsl_eigen_genv_workspace_gen_workspace_p_set)9639 XS(_wrap_gsl_eigen_genv_workspace_gen_workspace_p_set) {
9640 {
9641 gsl_eigen_genv_workspace *arg1 = (gsl_eigen_genv_workspace *) 0 ;
9642 gsl_eigen_gen_workspace *arg2 = (gsl_eigen_gen_workspace *) 0 ;
9643 void *argp1 = 0 ;
9644 int res1 = 0 ;
9645 void *argp2 = 0 ;
9646 int res2 = 0 ;
9647 int argvi = 0;
9648 dXSARGS;
9649
9650 if ((items < 2) || (items > 2)) {
9651 SWIG_croak("Usage: gsl_eigen_genv_workspace_gen_workspace_p_set(self,gen_workspace_p);");
9652 }
9653 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_eigen_genv_workspace, 0 | 0 );
9654 if (!SWIG_IsOK(res1)) {
9655 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_genv_workspace_gen_workspace_p_set" "', argument " "1"" of type '" "gsl_eigen_genv_workspace *""'");
9656 }
9657 arg1 = (gsl_eigen_genv_workspace *)(argp1);
9658 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_eigen_gen_workspace, SWIG_POINTER_DISOWN | 0 );
9659 if (!SWIG_IsOK(res2)) {
9660 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_eigen_genv_workspace_gen_workspace_p_set" "', argument " "2"" of type '" "gsl_eigen_gen_workspace *""'");
9661 }
9662 arg2 = (gsl_eigen_gen_workspace *)(argp2);
9663 if (arg1) (arg1)->gen_workspace_p = arg2;
9664 ST(argvi) = &PL_sv_undef;
9665
9666
9667 XSRETURN(argvi);
9668 fail:
9669
9670
9671 SWIG_croak_null();
9672 }
9673 }
9674
9675
XS(_wrap_gsl_eigen_genv_workspace_gen_workspace_p_get)9676 XS(_wrap_gsl_eigen_genv_workspace_gen_workspace_p_get) {
9677 {
9678 gsl_eigen_genv_workspace *arg1 = (gsl_eigen_genv_workspace *) 0 ;
9679 void *argp1 = 0 ;
9680 int res1 = 0 ;
9681 int argvi = 0;
9682 gsl_eigen_gen_workspace *result = 0 ;
9683 dXSARGS;
9684
9685 if ((items < 1) || (items > 1)) {
9686 SWIG_croak("Usage: gsl_eigen_genv_workspace_gen_workspace_p_get(self);");
9687 }
9688 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_eigen_genv_workspace, 0 | 0 );
9689 if (!SWIG_IsOK(res1)) {
9690 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_genv_workspace_gen_workspace_p_get" "', argument " "1"" of type '" "gsl_eigen_genv_workspace *""'");
9691 }
9692 arg1 = (gsl_eigen_genv_workspace *)(argp1);
9693 result = (gsl_eigen_gen_workspace *) ((arg1)->gen_workspace_p);
9694 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_eigen_gen_workspace, 0 | SWIG_SHADOW); argvi++ ;
9695
9696 XSRETURN(argvi);
9697 fail:
9698
9699 SWIG_croak_null();
9700 }
9701 }
9702
9703
XS(_wrap_new_gsl_eigen_genv_workspace)9704 XS(_wrap_new_gsl_eigen_genv_workspace) {
9705 {
9706 int argvi = 0;
9707 gsl_eigen_genv_workspace *result = 0 ;
9708 dXSARGS;
9709
9710 if ((items < 0) || (items > 0)) {
9711 SWIG_croak("Usage: new_gsl_eigen_genv_workspace();");
9712 }
9713 result = (gsl_eigen_genv_workspace *)calloc(1, sizeof(gsl_eigen_genv_workspace));
9714 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_eigen_genv_workspace, SWIG_OWNER | SWIG_SHADOW); argvi++ ;
9715 XSRETURN(argvi);
9716 fail:
9717 SWIG_croak_null();
9718 }
9719 }
9720
9721
XS(_wrap_delete_gsl_eigen_genv_workspace)9722 XS(_wrap_delete_gsl_eigen_genv_workspace) {
9723 {
9724 gsl_eigen_genv_workspace *arg1 = (gsl_eigen_genv_workspace *) 0 ;
9725 void *argp1 = 0 ;
9726 int res1 = 0 ;
9727 int argvi = 0;
9728 dXSARGS;
9729
9730 if ((items < 1) || (items > 1)) {
9731 SWIG_croak("Usage: delete_gsl_eigen_genv_workspace(self);");
9732 }
9733 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_eigen_genv_workspace, SWIG_POINTER_DISOWN | 0 );
9734 if (!SWIG_IsOK(res1)) {
9735 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "delete_gsl_eigen_genv_workspace" "', argument " "1"" of type '" "gsl_eigen_genv_workspace *""'");
9736 }
9737 arg1 = (gsl_eigen_genv_workspace *)(argp1);
9738 free((char *) arg1);
9739 ST(argvi) = &PL_sv_undef;
9740
9741 XSRETURN(argvi);
9742 fail:
9743
9744 SWIG_croak_null();
9745 }
9746 }
9747
9748
XS(_wrap_gsl_eigen_genv_alloc)9749 XS(_wrap_gsl_eigen_genv_alloc) {
9750 {
9751 size_t arg1 ;
9752 size_t val1 ;
9753 int ecode1 = 0 ;
9754 int argvi = 0;
9755 gsl_eigen_genv_workspace *result = 0 ;
9756 dXSARGS;
9757
9758 if ((items < 1) || (items > 1)) {
9759 SWIG_croak("Usage: gsl_eigen_genv_alloc(n);");
9760 }
9761 ecode1 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
9762 if (!SWIG_IsOK(ecode1)) {
9763 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_eigen_genv_alloc" "', argument " "1"" of type '" "size_t""'");
9764 }
9765 arg1 = (size_t)(val1);
9766 result = (gsl_eigen_genv_workspace *)gsl_eigen_genv_alloc(arg1);
9767 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_eigen_genv_workspace, 0 | SWIG_SHADOW); argvi++ ;
9768
9769 XSRETURN(argvi);
9770 fail:
9771
9772 SWIG_croak_null();
9773 }
9774 }
9775
9776
XS(_wrap_gsl_eigen_genv_free)9777 XS(_wrap_gsl_eigen_genv_free) {
9778 {
9779 gsl_eigen_genv_workspace *arg1 = (gsl_eigen_genv_workspace *) 0 ;
9780 void *argp1 = 0 ;
9781 int res1 = 0 ;
9782 int argvi = 0;
9783 dXSARGS;
9784
9785 if ((items < 1) || (items > 1)) {
9786 SWIG_croak("Usage: gsl_eigen_genv_free(w);");
9787 }
9788 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_eigen_genv_workspace, 0 | 0 );
9789 if (!SWIG_IsOK(res1)) {
9790 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_genv_free" "', argument " "1"" of type '" "gsl_eigen_genv_workspace *""'");
9791 }
9792 arg1 = (gsl_eigen_genv_workspace *)(argp1);
9793 gsl_eigen_genv_free(arg1);
9794 ST(argvi) = &PL_sv_undef;
9795
9796 XSRETURN(argvi);
9797 fail:
9798
9799 SWIG_croak_null();
9800 }
9801 }
9802
9803
XS(_wrap_gsl_eigen_genv)9804 XS(_wrap_gsl_eigen_genv) {
9805 {
9806 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
9807 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
9808 gsl_vector_complex *arg3 = (gsl_vector_complex *) 0 ;
9809 gsl_vector *arg4 = (gsl_vector *) 0 ;
9810 gsl_matrix_complex *arg5 = (gsl_matrix_complex *) 0 ;
9811 gsl_eigen_genv_workspace *arg6 = (gsl_eigen_genv_workspace *) 0 ;
9812 void *argp1 = 0 ;
9813 int res1 = 0 ;
9814 void *argp2 = 0 ;
9815 int res2 = 0 ;
9816 void *argp3 = 0 ;
9817 int res3 = 0 ;
9818 void *argp4 = 0 ;
9819 int res4 = 0 ;
9820 void *argp5 = 0 ;
9821 int res5 = 0 ;
9822 void *argp6 = 0 ;
9823 int res6 = 0 ;
9824 int argvi = 0;
9825 int result;
9826 dXSARGS;
9827
9828 if ((items < 6) || (items > 6)) {
9829 SWIG_croak("Usage: gsl_eigen_genv(A,B,alpha,beta,evec,w);");
9830 }
9831 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
9832 if (!SWIG_IsOK(res1)) {
9833 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_genv" "', argument " "1"" of type '" "gsl_matrix *""'");
9834 }
9835 arg1 = (gsl_matrix *)(argp1);
9836 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
9837 if (!SWIG_IsOK(res2)) {
9838 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_eigen_genv" "', argument " "2"" of type '" "gsl_matrix *""'");
9839 }
9840 arg2 = (gsl_matrix *)(argp2);
9841 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
9842 if (!SWIG_IsOK(res3)) {
9843 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_eigen_genv" "', argument " "3"" of type '" "gsl_vector_complex *""'");
9844 }
9845 arg3 = (gsl_vector_complex *)(argp3);
9846 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
9847 if (!SWIG_IsOK(res4)) {
9848 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_eigen_genv" "', argument " "4"" of type '" "gsl_vector *""'");
9849 }
9850 arg4 = (gsl_vector *)(argp4);
9851 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
9852 if (!SWIG_IsOK(res5)) {
9853 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_eigen_genv" "', argument " "5"" of type '" "gsl_matrix_complex *""'");
9854 }
9855 arg5 = (gsl_matrix_complex *)(argp5);
9856 res6 = SWIG_ConvertPtr(ST(5), &argp6,SWIGTYPE_p_gsl_eigen_genv_workspace, 0 | 0 );
9857 if (!SWIG_IsOK(res6)) {
9858 SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_eigen_genv" "', argument " "6"" of type '" "gsl_eigen_genv_workspace *""'");
9859 }
9860 arg6 = (gsl_eigen_genv_workspace *)(argp6);
9861 result = (int)gsl_eigen_genv(arg1,arg2,arg3,arg4,arg5,arg6);
9862 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
9863
9864
9865
9866
9867
9868
9869 XSRETURN(argvi);
9870 fail:
9871
9872
9873
9874
9875
9876
9877 SWIG_croak_null();
9878 }
9879 }
9880
9881
XS(_wrap_gsl_eigen_genv_QZ)9882 XS(_wrap_gsl_eigen_genv_QZ) {
9883 {
9884 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
9885 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
9886 gsl_vector_complex *arg3 = (gsl_vector_complex *) 0 ;
9887 gsl_vector *arg4 = (gsl_vector *) 0 ;
9888 gsl_matrix_complex *arg5 = (gsl_matrix_complex *) 0 ;
9889 gsl_matrix *arg6 = (gsl_matrix *) 0 ;
9890 gsl_matrix *arg7 = (gsl_matrix *) 0 ;
9891 gsl_eigen_genv_workspace *arg8 = (gsl_eigen_genv_workspace *) 0 ;
9892 void *argp1 = 0 ;
9893 int res1 = 0 ;
9894 void *argp2 = 0 ;
9895 int res2 = 0 ;
9896 void *argp3 = 0 ;
9897 int res3 = 0 ;
9898 void *argp4 = 0 ;
9899 int res4 = 0 ;
9900 void *argp5 = 0 ;
9901 int res5 = 0 ;
9902 void *argp6 = 0 ;
9903 int res6 = 0 ;
9904 void *argp7 = 0 ;
9905 int res7 = 0 ;
9906 void *argp8 = 0 ;
9907 int res8 = 0 ;
9908 int argvi = 0;
9909 int result;
9910 dXSARGS;
9911
9912 if ((items < 8) || (items > 8)) {
9913 SWIG_croak("Usage: gsl_eigen_genv_QZ(A,B,alpha,beta,evec,Q,Z,w);");
9914 }
9915 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
9916 if (!SWIG_IsOK(res1)) {
9917 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_genv_QZ" "', argument " "1"" of type '" "gsl_matrix *""'");
9918 }
9919 arg1 = (gsl_matrix *)(argp1);
9920 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
9921 if (!SWIG_IsOK(res2)) {
9922 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_eigen_genv_QZ" "', argument " "2"" of type '" "gsl_matrix *""'");
9923 }
9924 arg2 = (gsl_matrix *)(argp2);
9925 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
9926 if (!SWIG_IsOK(res3)) {
9927 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_eigen_genv_QZ" "', argument " "3"" of type '" "gsl_vector_complex *""'");
9928 }
9929 arg3 = (gsl_vector_complex *)(argp3);
9930 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
9931 if (!SWIG_IsOK(res4)) {
9932 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_eigen_genv_QZ" "', argument " "4"" of type '" "gsl_vector *""'");
9933 }
9934 arg4 = (gsl_vector *)(argp4);
9935 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
9936 if (!SWIG_IsOK(res5)) {
9937 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_eigen_genv_QZ" "', argument " "5"" of type '" "gsl_matrix_complex *""'");
9938 }
9939 arg5 = (gsl_matrix_complex *)(argp5);
9940 res6 = SWIG_ConvertPtr(ST(5), &argp6,SWIGTYPE_p_gsl_matrix, 0 | 0 );
9941 if (!SWIG_IsOK(res6)) {
9942 SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_eigen_genv_QZ" "', argument " "6"" of type '" "gsl_matrix *""'");
9943 }
9944 arg6 = (gsl_matrix *)(argp6);
9945 res7 = SWIG_ConvertPtr(ST(6), &argp7,SWIGTYPE_p_gsl_matrix, 0 | 0 );
9946 if (!SWIG_IsOK(res7)) {
9947 SWIG_exception_fail(SWIG_ArgError(res7), "in method '" "gsl_eigen_genv_QZ" "', argument " "7"" of type '" "gsl_matrix *""'");
9948 }
9949 arg7 = (gsl_matrix *)(argp7);
9950 res8 = SWIG_ConvertPtr(ST(7), &argp8,SWIGTYPE_p_gsl_eigen_genv_workspace, 0 | 0 );
9951 if (!SWIG_IsOK(res8)) {
9952 SWIG_exception_fail(SWIG_ArgError(res8), "in method '" "gsl_eigen_genv_QZ" "', argument " "8"" of type '" "gsl_eigen_genv_workspace *""'");
9953 }
9954 arg8 = (gsl_eigen_genv_workspace *)(argp8);
9955 result = (int)gsl_eigen_genv_QZ(arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8);
9956 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
9957
9958
9959
9960
9961
9962
9963
9964
9965 XSRETURN(argvi);
9966 fail:
9967
9968
9969
9970
9971
9972
9973
9974
9975 SWIG_croak_null();
9976 }
9977 }
9978
9979
XS(_wrap_gsl_eigen_symmv_sort)9980 XS(_wrap_gsl_eigen_symmv_sort) {
9981 {
9982 gsl_vector *arg1 = (gsl_vector *) 0 ;
9983 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
9984 gsl_eigen_sort_t arg3 ;
9985 void *argp1 = 0 ;
9986 int res1 = 0 ;
9987 void *argp2 = 0 ;
9988 int res2 = 0 ;
9989 int val3 ;
9990 int ecode3 = 0 ;
9991 int argvi = 0;
9992 int result;
9993 dXSARGS;
9994
9995 if ((items < 3) || (items > 3)) {
9996 SWIG_croak("Usage: gsl_eigen_symmv_sort(eval,evec,sort_type);");
9997 }
9998 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
9999 if (!SWIG_IsOK(res1)) {
10000 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_symmv_sort" "', argument " "1"" of type '" "gsl_vector *""'");
10001 }
10002 arg1 = (gsl_vector *)(argp1);
10003 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
10004 if (!SWIG_IsOK(res2)) {
10005 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_eigen_symmv_sort" "', argument " "2"" of type '" "gsl_matrix *""'");
10006 }
10007 arg2 = (gsl_matrix *)(argp2);
10008 ecode3 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
10009 if (!SWIG_IsOK(ecode3)) {
10010 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_eigen_symmv_sort" "', argument " "3"" of type '" "gsl_eigen_sort_t""'");
10011 }
10012 arg3 = (gsl_eigen_sort_t)(val3);
10013 result = (int)gsl_eigen_symmv_sort(arg1,arg2,arg3);
10014 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
10015
10016
10017
10018 XSRETURN(argvi);
10019 fail:
10020
10021
10022
10023 SWIG_croak_null();
10024 }
10025 }
10026
10027
XS(_wrap_gsl_eigen_hermv_sort)10028 XS(_wrap_gsl_eigen_hermv_sort) {
10029 {
10030 gsl_vector *arg1 = (gsl_vector *) 0 ;
10031 gsl_matrix_complex *arg2 = (gsl_matrix_complex *) 0 ;
10032 gsl_eigen_sort_t arg3 ;
10033 void *argp1 = 0 ;
10034 int res1 = 0 ;
10035 void *argp2 = 0 ;
10036 int res2 = 0 ;
10037 int val3 ;
10038 int ecode3 = 0 ;
10039 int argvi = 0;
10040 int result;
10041 dXSARGS;
10042
10043 if ((items < 3) || (items > 3)) {
10044 SWIG_croak("Usage: gsl_eigen_hermv_sort(eval,evec,sort_type);");
10045 }
10046 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
10047 if (!SWIG_IsOK(res1)) {
10048 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_hermv_sort" "', argument " "1"" of type '" "gsl_vector *""'");
10049 }
10050 arg1 = (gsl_vector *)(argp1);
10051 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
10052 if (!SWIG_IsOK(res2)) {
10053 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_eigen_hermv_sort" "', argument " "2"" of type '" "gsl_matrix_complex *""'");
10054 }
10055 arg2 = (gsl_matrix_complex *)(argp2);
10056 ecode3 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
10057 if (!SWIG_IsOK(ecode3)) {
10058 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_eigen_hermv_sort" "', argument " "3"" of type '" "gsl_eigen_sort_t""'");
10059 }
10060 arg3 = (gsl_eigen_sort_t)(val3);
10061 result = (int)gsl_eigen_hermv_sort(arg1,arg2,arg3);
10062 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
10063
10064
10065
10066 XSRETURN(argvi);
10067 fail:
10068
10069
10070
10071 SWIG_croak_null();
10072 }
10073 }
10074
10075
XS(_wrap_gsl_eigen_nonsymmv_sort)10076 XS(_wrap_gsl_eigen_nonsymmv_sort) {
10077 {
10078 gsl_vector_complex *arg1 = (gsl_vector_complex *) 0 ;
10079 gsl_matrix_complex *arg2 = (gsl_matrix_complex *) 0 ;
10080 gsl_eigen_sort_t arg3 ;
10081 void *argp1 = 0 ;
10082 int res1 = 0 ;
10083 void *argp2 = 0 ;
10084 int res2 = 0 ;
10085 int val3 ;
10086 int ecode3 = 0 ;
10087 int argvi = 0;
10088 int result;
10089 dXSARGS;
10090
10091 if ((items < 3) || (items > 3)) {
10092 SWIG_croak("Usage: gsl_eigen_nonsymmv_sort(eval,evec,sort_type);");
10093 }
10094 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
10095 if (!SWIG_IsOK(res1)) {
10096 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_nonsymmv_sort" "', argument " "1"" of type '" "gsl_vector_complex *""'");
10097 }
10098 arg1 = (gsl_vector_complex *)(argp1);
10099 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
10100 if (!SWIG_IsOK(res2)) {
10101 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_eigen_nonsymmv_sort" "', argument " "2"" of type '" "gsl_matrix_complex *""'");
10102 }
10103 arg2 = (gsl_matrix_complex *)(argp2);
10104 ecode3 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
10105 if (!SWIG_IsOK(ecode3)) {
10106 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_eigen_nonsymmv_sort" "', argument " "3"" of type '" "gsl_eigen_sort_t""'");
10107 }
10108 arg3 = (gsl_eigen_sort_t)(val3);
10109 result = (int)gsl_eigen_nonsymmv_sort(arg1,arg2,arg3);
10110 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
10111
10112
10113
10114 XSRETURN(argvi);
10115 fail:
10116
10117
10118
10119 SWIG_croak_null();
10120 }
10121 }
10122
10123
XS(_wrap_gsl_eigen_gensymmv_sort)10124 XS(_wrap_gsl_eigen_gensymmv_sort) {
10125 {
10126 gsl_vector *arg1 = (gsl_vector *) 0 ;
10127 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
10128 gsl_eigen_sort_t arg3 ;
10129 void *argp1 = 0 ;
10130 int res1 = 0 ;
10131 void *argp2 = 0 ;
10132 int res2 = 0 ;
10133 int val3 ;
10134 int ecode3 = 0 ;
10135 int argvi = 0;
10136 int result;
10137 dXSARGS;
10138
10139 if ((items < 3) || (items > 3)) {
10140 SWIG_croak("Usage: gsl_eigen_gensymmv_sort(eval,evec,sort_type);");
10141 }
10142 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
10143 if (!SWIG_IsOK(res1)) {
10144 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_gensymmv_sort" "', argument " "1"" of type '" "gsl_vector *""'");
10145 }
10146 arg1 = (gsl_vector *)(argp1);
10147 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
10148 if (!SWIG_IsOK(res2)) {
10149 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_eigen_gensymmv_sort" "', argument " "2"" of type '" "gsl_matrix *""'");
10150 }
10151 arg2 = (gsl_matrix *)(argp2);
10152 ecode3 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
10153 if (!SWIG_IsOK(ecode3)) {
10154 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_eigen_gensymmv_sort" "', argument " "3"" of type '" "gsl_eigen_sort_t""'");
10155 }
10156 arg3 = (gsl_eigen_sort_t)(val3);
10157 result = (int)gsl_eigen_gensymmv_sort(arg1,arg2,arg3);
10158 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
10159
10160
10161
10162 XSRETURN(argvi);
10163 fail:
10164
10165
10166
10167 SWIG_croak_null();
10168 }
10169 }
10170
10171
XS(_wrap_gsl_eigen_genhermv_sort)10172 XS(_wrap_gsl_eigen_genhermv_sort) {
10173 {
10174 gsl_vector *arg1 = (gsl_vector *) 0 ;
10175 gsl_matrix_complex *arg2 = (gsl_matrix_complex *) 0 ;
10176 gsl_eigen_sort_t arg3 ;
10177 void *argp1 = 0 ;
10178 int res1 = 0 ;
10179 void *argp2 = 0 ;
10180 int res2 = 0 ;
10181 int val3 ;
10182 int ecode3 = 0 ;
10183 int argvi = 0;
10184 int result;
10185 dXSARGS;
10186
10187 if ((items < 3) || (items > 3)) {
10188 SWIG_croak("Usage: gsl_eigen_genhermv_sort(eval,evec,sort_type);");
10189 }
10190 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
10191 if (!SWIG_IsOK(res1)) {
10192 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_genhermv_sort" "', argument " "1"" of type '" "gsl_vector *""'");
10193 }
10194 arg1 = (gsl_vector *)(argp1);
10195 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
10196 if (!SWIG_IsOK(res2)) {
10197 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_eigen_genhermv_sort" "', argument " "2"" of type '" "gsl_matrix_complex *""'");
10198 }
10199 arg2 = (gsl_matrix_complex *)(argp2);
10200 ecode3 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
10201 if (!SWIG_IsOK(ecode3)) {
10202 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_eigen_genhermv_sort" "', argument " "3"" of type '" "gsl_eigen_sort_t""'");
10203 }
10204 arg3 = (gsl_eigen_sort_t)(val3);
10205 result = (int)gsl_eigen_genhermv_sort(arg1,arg2,arg3);
10206 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
10207
10208
10209
10210 XSRETURN(argvi);
10211 fail:
10212
10213
10214
10215 SWIG_croak_null();
10216 }
10217 }
10218
10219
XS(_wrap_gsl_eigen_genv_sort)10220 XS(_wrap_gsl_eigen_genv_sort) {
10221 {
10222 gsl_vector_complex *arg1 = (gsl_vector_complex *) 0 ;
10223 gsl_vector *arg2 = (gsl_vector *) 0 ;
10224 gsl_matrix_complex *arg3 = (gsl_matrix_complex *) 0 ;
10225 gsl_eigen_sort_t arg4 ;
10226 void *argp1 = 0 ;
10227 int res1 = 0 ;
10228 void *argp2 = 0 ;
10229 int res2 = 0 ;
10230 void *argp3 = 0 ;
10231 int res3 = 0 ;
10232 int val4 ;
10233 int ecode4 = 0 ;
10234 int argvi = 0;
10235 int result;
10236 dXSARGS;
10237
10238 if ((items < 4) || (items > 4)) {
10239 SWIG_croak("Usage: gsl_eigen_genv_sort(alpha,beta,evec,sort_type);");
10240 }
10241 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
10242 if (!SWIG_IsOK(res1)) {
10243 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_genv_sort" "', argument " "1"" of type '" "gsl_vector_complex *""'");
10244 }
10245 arg1 = (gsl_vector_complex *)(argp1);
10246 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
10247 if (!SWIG_IsOK(res2)) {
10248 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_eigen_genv_sort" "', argument " "2"" of type '" "gsl_vector *""'");
10249 }
10250 arg2 = (gsl_vector *)(argp2);
10251 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
10252 if (!SWIG_IsOK(res3)) {
10253 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_eigen_genv_sort" "', argument " "3"" of type '" "gsl_matrix_complex *""'");
10254 }
10255 arg3 = (gsl_matrix_complex *)(argp3);
10256 ecode4 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(3), &val4);
10257 if (!SWIG_IsOK(ecode4)) {
10258 SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "gsl_eigen_genv_sort" "', argument " "4"" of type '" "gsl_eigen_sort_t""'");
10259 }
10260 arg4 = (gsl_eigen_sort_t)(val4);
10261 result = (int)gsl_eigen_genv_sort(arg1,arg2,arg3,arg4);
10262 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
10263
10264
10265
10266
10267 XSRETURN(argvi);
10268 fail:
10269
10270
10271
10272
10273 SWIG_croak_null();
10274 }
10275 }
10276
10277
XS(_wrap_gsl_schur_gen_eigvals)10278 XS(_wrap_gsl_schur_gen_eigvals) {
10279 {
10280 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
10281 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
10282 double *arg3 = (double *) 0 ;
10283 double *arg4 = (double *) 0 ;
10284 double *arg5 = (double *) 0 ;
10285 double *arg6 = (double *) 0 ;
10286 double *arg7 = (double *) 0 ;
10287 void *argp1 = 0 ;
10288 int res1 = 0 ;
10289 void *argp2 = 0 ;
10290 int res2 = 0 ;
10291 void *argp3 = 0 ;
10292 int res3 = 0 ;
10293 void *argp4 = 0 ;
10294 int res4 = 0 ;
10295 void *argp5 = 0 ;
10296 int res5 = 0 ;
10297 void *argp6 = 0 ;
10298 int res6 = 0 ;
10299 void *argp7 = 0 ;
10300 int res7 = 0 ;
10301 int argvi = 0;
10302 int result;
10303 dXSARGS;
10304
10305 if ((items < 7) || (items > 7)) {
10306 SWIG_croak("Usage: gsl_schur_gen_eigvals(A,B,wr1,wr2,wi,scale1,scale2);");
10307 }
10308 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
10309 if (!SWIG_IsOK(res1)) {
10310 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_schur_gen_eigvals" "', argument " "1"" of type '" "gsl_matrix const *""'");
10311 }
10312 arg1 = (gsl_matrix *)(argp1);
10313 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
10314 if (!SWIG_IsOK(res2)) {
10315 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_schur_gen_eigvals" "', argument " "2"" of type '" "gsl_matrix const *""'");
10316 }
10317 arg2 = (gsl_matrix *)(argp2);
10318 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_double, 0 | 0 );
10319 if (!SWIG_IsOK(res3)) {
10320 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_schur_gen_eigvals" "', argument " "3"" of type '" "double *""'");
10321 }
10322 arg3 = (double *)(argp3);
10323 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_double, 0 | 0 );
10324 if (!SWIG_IsOK(res4)) {
10325 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_schur_gen_eigvals" "', argument " "4"" of type '" "double *""'");
10326 }
10327 arg4 = (double *)(argp4);
10328 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_double, 0 | 0 );
10329 if (!SWIG_IsOK(res5)) {
10330 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_schur_gen_eigvals" "', argument " "5"" of type '" "double *""'");
10331 }
10332 arg5 = (double *)(argp5);
10333 res6 = SWIG_ConvertPtr(ST(5), &argp6,SWIGTYPE_p_double, 0 | 0 );
10334 if (!SWIG_IsOK(res6)) {
10335 SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_schur_gen_eigvals" "', argument " "6"" of type '" "double *""'");
10336 }
10337 arg6 = (double *)(argp6);
10338 res7 = SWIG_ConvertPtr(ST(6), &argp7,SWIGTYPE_p_double, 0 | 0 );
10339 if (!SWIG_IsOK(res7)) {
10340 SWIG_exception_fail(SWIG_ArgError(res7), "in method '" "gsl_schur_gen_eigvals" "', argument " "7"" of type '" "double *""'");
10341 }
10342 arg7 = (double *)(argp7);
10343 result = (int)gsl_schur_gen_eigvals((gsl_matrix const *)arg1,(gsl_matrix const *)arg2,arg3,arg4,arg5,arg6,arg7);
10344 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
10345
10346
10347
10348
10349
10350
10351
10352 XSRETURN(argvi);
10353 fail:
10354
10355
10356
10357
10358
10359
10360
10361 SWIG_croak_null();
10362 }
10363 }
10364
10365
XS(_wrap_gsl_schur_solve_equation)10366 XS(_wrap_gsl_schur_solve_equation) {
10367 {
10368 double arg1 ;
10369 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
10370 double arg3 ;
10371 double arg4 ;
10372 double arg5 ;
10373 gsl_vector *arg6 = (gsl_vector *) 0 ;
10374 gsl_vector *arg7 = (gsl_vector *) 0 ;
10375 double *arg8 = (double *) 0 ;
10376 double *arg9 = (double *) 0 ;
10377 double arg10 ;
10378 double val1 ;
10379 int ecode1 = 0 ;
10380 void *argp2 = 0 ;
10381 int res2 = 0 ;
10382 double val3 ;
10383 int ecode3 = 0 ;
10384 double val4 ;
10385 int ecode4 = 0 ;
10386 double val5 ;
10387 int ecode5 = 0 ;
10388 void *argp6 = 0 ;
10389 int res6 = 0 ;
10390 void *argp7 = 0 ;
10391 int res7 = 0 ;
10392 void *argp8 = 0 ;
10393 int res8 = 0 ;
10394 void *argp9 = 0 ;
10395 int res9 = 0 ;
10396 double val10 ;
10397 int ecode10 = 0 ;
10398 int argvi = 0;
10399 int result;
10400 dXSARGS;
10401
10402 if ((items < 10) || (items > 10)) {
10403 SWIG_croak("Usage: gsl_schur_solve_equation(ca,A,z,d1,d2,b,x,s,xnorm,smin);");
10404 }
10405 ecode1 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
10406 if (!SWIG_IsOK(ecode1)) {
10407 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_schur_solve_equation" "', argument " "1"" of type '" "double""'");
10408 }
10409 arg1 = (double)(val1);
10410 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
10411 if (!SWIG_IsOK(res2)) {
10412 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_schur_solve_equation" "', argument " "2"" of type '" "gsl_matrix const *""'");
10413 }
10414 arg2 = (gsl_matrix *)(argp2);
10415 ecode3 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
10416 if (!SWIG_IsOK(ecode3)) {
10417 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_schur_solve_equation" "', argument " "3"" of type '" "double""'");
10418 }
10419 arg3 = (double)(val3);
10420 ecode4 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(3), &val4);
10421 if (!SWIG_IsOK(ecode4)) {
10422 SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "gsl_schur_solve_equation" "', argument " "4"" of type '" "double""'");
10423 }
10424 arg4 = (double)(val4);
10425 ecode5 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(4), &val5);
10426 if (!SWIG_IsOK(ecode5)) {
10427 SWIG_exception_fail(SWIG_ArgError(ecode5), "in method '" "gsl_schur_solve_equation" "', argument " "5"" of type '" "double""'");
10428 }
10429 arg5 = (double)(val5);
10430 res6 = SWIG_ConvertPtr(ST(5), &argp6,SWIGTYPE_p_gsl_vector, 0 | 0 );
10431 if (!SWIG_IsOK(res6)) {
10432 SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_schur_solve_equation" "', argument " "6"" of type '" "gsl_vector const *""'");
10433 }
10434 arg6 = (gsl_vector *)(argp6);
10435 res7 = SWIG_ConvertPtr(ST(6), &argp7,SWIGTYPE_p_gsl_vector, 0 | 0 );
10436 if (!SWIG_IsOK(res7)) {
10437 SWIG_exception_fail(SWIG_ArgError(res7), "in method '" "gsl_schur_solve_equation" "', argument " "7"" of type '" "gsl_vector *""'");
10438 }
10439 arg7 = (gsl_vector *)(argp7);
10440 res8 = SWIG_ConvertPtr(ST(7), &argp8,SWIGTYPE_p_double, 0 | 0 );
10441 if (!SWIG_IsOK(res8)) {
10442 SWIG_exception_fail(SWIG_ArgError(res8), "in method '" "gsl_schur_solve_equation" "', argument " "8"" of type '" "double *""'");
10443 }
10444 arg8 = (double *)(argp8);
10445 res9 = SWIG_ConvertPtr(ST(8), &argp9,SWIGTYPE_p_double, 0 | 0 );
10446 if (!SWIG_IsOK(res9)) {
10447 SWIG_exception_fail(SWIG_ArgError(res9), "in method '" "gsl_schur_solve_equation" "', argument " "9"" of type '" "double *""'");
10448 }
10449 arg9 = (double *)(argp9);
10450 ecode10 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(9), &val10);
10451 if (!SWIG_IsOK(ecode10)) {
10452 SWIG_exception_fail(SWIG_ArgError(ecode10), "in method '" "gsl_schur_solve_equation" "', argument " "10"" of type '" "double""'");
10453 }
10454 arg10 = (double)(val10);
10455 result = (int)gsl_schur_solve_equation(arg1,(gsl_matrix const *)arg2,arg3,arg4,arg5,(gsl_vector const *)arg6,arg7,arg8,arg9,arg10);
10456 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
10457
10458
10459
10460
10461
10462
10463
10464
10465
10466
10467 XSRETURN(argvi);
10468 fail:
10469
10470
10471
10472
10473
10474
10475
10476
10477
10478
10479 SWIG_croak_null();
10480 }
10481 }
10482
10483
XS(_wrap_gsl_schur_solve_equation_z)10484 XS(_wrap_gsl_schur_solve_equation_z) {
10485 {
10486 double arg1 ;
10487 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
10488 gsl_complex *arg3 = (gsl_complex *) 0 ;
10489 double arg4 ;
10490 double arg5 ;
10491 gsl_vector_complex *arg6 = (gsl_vector_complex *) 0 ;
10492 gsl_vector_complex *arg7 = (gsl_vector_complex *) 0 ;
10493 double *arg8 = (double *) 0 ;
10494 double *arg9 = (double *) 0 ;
10495 double arg10 ;
10496 double val1 ;
10497 int ecode1 = 0 ;
10498 void *argp2 = 0 ;
10499 int res2 = 0 ;
10500 void *argp3 = 0 ;
10501 int res3 = 0 ;
10502 double val4 ;
10503 int ecode4 = 0 ;
10504 double val5 ;
10505 int ecode5 = 0 ;
10506 void *argp6 = 0 ;
10507 int res6 = 0 ;
10508 void *argp7 = 0 ;
10509 int res7 = 0 ;
10510 void *argp8 = 0 ;
10511 int res8 = 0 ;
10512 void *argp9 = 0 ;
10513 int res9 = 0 ;
10514 double val10 ;
10515 int ecode10 = 0 ;
10516 int argvi = 0;
10517 int result;
10518 dXSARGS;
10519
10520 if ((items < 10) || (items > 10)) {
10521 SWIG_croak("Usage: gsl_schur_solve_equation_z(ca,A,z,d1,d2,b,x,s,xnorm,smin);");
10522 }
10523 ecode1 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
10524 if (!SWIG_IsOK(ecode1)) {
10525 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_schur_solve_equation_z" "', argument " "1"" of type '" "double""'");
10526 }
10527 arg1 = (double)(val1);
10528 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
10529 if (!SWIG_IsOK(res2)) {
10530 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_schur_solve_equation_z" "', argument " "2"" of type '" "gsl_matrix const *""'");
10531 }
10532 arg2 = (gsl_matrix *)(argp2);
10533 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_complex, 0 | 0 );
10534 if (!SWIG_IsOK(res3)) {
10535 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_schur_solve_equation_z" "', argument " "3"" of type '" "gsl_complex *""'");
10536 }
10537 arg3 = (gsl_complex *)(argp3);
10538 ecode4 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(3), &val4);
10539 if (!SWIG_IsOK(ecode4)) {
10540 SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "gsl_schur_solve_equation_z" "', argument " "4"" of type '" "double""'");
10541 }
10542 arg4 = (double)(val4);
10543 ecode5 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(4), &val5);
10544 if (!SWIG_IsOK(ecode5)) {
10545 SWIG_exception_fail(SWIG_ArgError(ecode5), "in method '" "gsl_schur_solve_equation_z" "', argument " "5"" of type '" "double""'");
10546 }
10547 arg5 = (double)(val5);
10548 res6 = SWIG_ConvertPtr(ST(5), &argp6,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
10549 if (!SWIG_IsOK(res6)) {
10550 SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_schur_solve_equation_z" "', argument " "6"" of type '" "gsl_vector_complex const *""'");
10551 }
10552 arg6 = (gsl_vector_complex *)(argp6);
10553 res7 = SWIG_ConvertPtr(ST(6), &argp7,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
10554 if (!SWIG_IsOK(res7)) {
10555 SWIG_exception_fail(SWIG_ArgError(res7), "in method '" "gsl_schur_solve_equation_z" "', argument " "7"" of type '" "gsl_vector_complex *""'");
10556 }
10557 arg7 = (gsl_vector_complex *)(argp7);
10558 res8 = SWIG_ConvertPtr(ST(7), &argp8,SWIGTYPE_p_double, 0 | 0 );
10559 if (!SWIG_IsOK(res8)) {
10560 SWIG_exception_fail(SWIG_ArgError(res8), "in method '" "gsl_schur_solve_equation_z" "', argument " "8"" of type '" "double *""'");
10561 }
10562 arg8 = (double *)(argp8);
10563 res9 = SWIG_ConvertPtr(ST(8), &argp9,SWIGTYPE_p_double, 0 | 0 );
10564 if (!SWIG_IsOK(res9)) {
10565 SWIG_exception_fail(SWIG_ArgError(res9), "in method '" "gsl_schur_solve_equation_z" "', argument " "9"" of type '" "double *""'");
10566 }
10567 arg9 = (double *)(argp9);
10568 ecode10 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(9), &val10);
10569 if (!SWIG_IsOK(ecode10)) {
10570 SWIG_exception_fail(SWIG_ArgError(ecode10), "in method '" "gsl_schur_solve_equation_z" "', argument " "10"" of type '" "double""'");
10571 }
10572 arg10 = (double)(val10);
10573 result = (int)gsl_schur_solve_equation_z(arg1,(gsl_matrix const *)arg2,arg3,arg4,arg5,(gsl_vector_complex const *)arg6,arg7,arg8,arg9,arg10);
10574 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
10575
10576
10577
10578
10579
10580
10581
10582
10583
10584
10585 XSRETURN(argvi);
10586 fail:
10587
10588
10589
10590
10591
10592
10593
10594
10595
10596
10597 SWIG_croak_null();
10598 }
10599 }
10600
10601
XS(_wrap_gsl_eigen_jacobi)10602 XS(_wrap_gsl_eigen_jacobi) {
10603 {
10604 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
10605 gsl_vector *arg2 = (gsl_vector *) 0 ;
10606 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
10607 unsigned int arg4 ;
10608 unsigned int *arg5 = (unsigned int *) 0 ;
10609 void *argp1 = 0 ;
10610 int res1 = 0 ;
10611 void *argp2 = 0 ;
10612 int res2 = 0 ;
10613 void *argp3 = 0 ;
10614 int res3 = 0 ;
10615 unsigned int val4 ;
10616 int ecode4 = 0 ;
10617 void *argp5 = 0 ;
10618 int res5 = 0 ;
10619 int argvi = 0;
10620 int result;
10621 dXSARGS;
10622
10623 if ((items < 5) || (items > 5)) {
10624 SWIG_croak("Usage: gsl_eigen_jacobi(matrix,eval,evec,max_rot,nrot);");
10625 }
10626 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
10627 if (!SWIG_IsOK(res1)) {
10628 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_jacobi" "', argument " "1"" of type '" "gsl_matrix *""'");
10629 }
10630 arg1 = (gsl_matrix *)(argp1);
10631 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
10632 if (!SWIG_IsOK(res2)) {
10633 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_eigen_jacobi" "', argument " "2"" of type '" "gsl_vector *""'");
10634 }
10635 arg2 = (gsl_vector *)(argp2);
10636 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
10637 if (!SWIG_IsOK(res3)) {
10638 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_eigen_jacobi" "', argument " "3"" of type '" "gsl_matrix *""'");
10639 }
10640 arg3 = (gsl_matrix *)(argp3);
10641 ecode4 = SWIG_AsVal_unsigned_SS_int SWIG_PERL_CALL_ARGS_2(ST(3), &val4);
10642 if (!SWIG_IsOK(ecode4)) {
10643 SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "gsl_eigen_jacobi" "', argument " "4"" of type '" "unsigned int""'");
10644 }
10645 arg4 = (unsigned int)(val4);
10646 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_unsigned_int, 0 | 0 );
10647 if (!SWIG_IsOK(res5)) {
10648 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_eigen_jacobi" "', argument " "5"" of type '" "unsigned int *""'");
10649 }
10650 arg5 = (unsigned int *)(argp5);
10651 result = (int)gsl_eigen_jacobi(arg1,arg2,arg3,arg4,arg5);
10652 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
10653
10654
10655
10656
10657
10658 XSRETURN(argvi);
10659 fail:
10660
10661
10662
10663
10664
10665 SWIG_croak_null();
10666 }
10667 }
10668
10669
XS(_wrap_gsl_eigen_invert_jacobi)10670 XS(_wrap_gsl_eigen_invert_jacobi) {
10671 {
10672 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
10673 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
10674 unsigned int arg3 ;
10675 void *argp1 = 0 ;
10676 int res1 = 0 ;
10677 void *argp2 = 0 ;
10678 int res2 = 0 ;
10679 unsigned int val3 ;
10680 int ecode3 = 0 ;
10681 int argvi = 0;
10682 int result;
10683 dXSARGS;
10684
10685 if ((items < 3) || (items > 3)) {
10686 SWIG_croak("Usage: gsl_eigen_invert_jacobi(matrix,ainv,max_rot);");
10687 }
10688 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
10689 if (!SWIG_IsOK(res1)) {
10690 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_eigen_invert_jacobi" "', argument " "1"" of type '" "gsl_matrix const *""'");
10691 }
10692 arg1 = (gsl_matrix *)(argp1);
10693 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
10694 if (!SWIG_IsOK(res2)) {
10695 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_eigen_invert_jacobi" "', argument " "2"" of type '" "gsl_matrix *""'");
10696 }
10697 arg2 = (gsl_matrix *)(argp2);
10698 ecode3 = SWIG_AsVal_unsigned_SS_int SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
10699 if (!SWIG_IsOK(ecode3)) {
10700 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_eigen_invert_jacobi" "', argument " "3"" of type '" "unsigned int""'");
10701 }
10702 arg3 = (unsigned int)(val3);
10703 result = (int)gsl_eigen_invert_jacobi((gsl_matrix const *)arg1,arg2,arg3);
10704 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
10705
10706
10707
10708 XSRETURN(argvi);
10709 fail:
10710
10711
10712
10713 SWIG_croak_null();
10714 }
10715 }
10716
10717
XS(_wrap_gsl_complex_dat_set)10718 XS(_wrap_gsl_complex_dat_set) {
10719 {
10720 gsl_complex *arg1 = (gsl_complex *) 0 ;
10721 double *arg2 ;
10722 void *argp1 = 0 ;
10723 int res1 = 0 ;
10724 void *argp2 = 0 ;
10725 int res2 = 0 ;
10726 int argvi = 0;
10727 dXSARGS;
10728
10729 if ((items < 2) || (items > 2)) {
10730 SWIG_croak("Usage: gsl_complex_dat_set(self,dat);");
10731 }
10732 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_complex, 0 | 0 );
10733 if (!SWIG_IsOK(res1)) {
10734 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_dat_set" "', argument " "1"" of type '" "gsl_complex *""'");
10735 }
10736 arg1 = (gsl_complex *)(argp1);
10737 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_double, 0 | 0 );
10738 if (!SWIG_IsOK(res2)) {
10739 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_complex_dat_set" "', argument " "2"" of type '" "double [2]""'");
10740 }
10741 arg2 = (double *)(argp2);
10742 {
10743 if (arg2) {
10744 size_t ii = 0;
10745 for (; ii < (size_t)2; ++ii) *(double *)&arg1->dat[ii] = *((double *)arg2 + ii);
10746 } else {
10747 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in variable '""dat""' of type '""double [2]""'");
10748 }
10749 }
10750 ST(argvi) = &PL_sv_undef;
10751
10752
10753 XSRETURN(argvi);
10754 fail:
10755
10756
10757 SWIG_croak_null();
10758 }
10759 }
10760
10761
XS(_wrap_gsl_complex_dat_get)10762 XS(_wrap_gsl_complex_dat_get) {
10763 {
10764 gsl_complex *arg1 = (gsl_complex *) 0 ;
10765 void *argp1 = 0 ;
10766 int res1 = 0 ;
10767 int argvi = 0;
10768 double *result = 0 ;
10769 dXSARGS;
10770
10771 if ((items < 1) || (items > 1)) {
10772 SWIG_croak("Usage: gsl_complex_dat_get(self);");
10773 }
10774 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_complex, 0 | 0 );
10775 if (!SWIG_IsOK(res1)) {
10776 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_dat_get" "', argument " "1"" of type '" "gsl_complex *""'");
10777 }
10778 arg1 = (gsl_complex *)(argp1);
10779 result = (double *)(double *) ((arg1)->dat);
10780 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_double, 0 | 0); argvi++ ;
10781
10782 XSRETURN(argvi);
10783 fail:
10784
10785 SWIG_croak_null();
10786 }
10787 }
10788
10789
XS(_wrap_new_gsl_complex)10790 XS(_wrap_new_gsl_complex) {
10791 {
10792 int argvi = 0;
10793 gsl_complex *result = 0 ;
10794 dXSARGS;
10795
10796 if ((items < 0) || (items > 0)) {
10797 SWIG_croak("Usage: new_gsl_complex();");
10798 }
10799 result = (gsl_complex *)calloc(1, sizeof(gsl_complex));
10800 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_complex, SWIG_OWNER | SWIG_SHADOW); argvi++ ;
10801 XSRETURN(argvi);
10802 fail:
10803 SWIG_croak_null();
10804 }
10805 }
10806
10807
XS(_wrap_delete_gsl_complex)10808 XS(_wrap_delete_gsl_complex) {
10809 {
10810 gsl_complex *arg1 = (gsl_complex *) 0 ;
10811 void *argp1 = 0 ;
10812 int res1 = 0 ;
10813 int argvi = 0;
10814 dXSARGS;
10815
10816 if ((items < 1) || (items > 1)) {
10817 SWIG_croak("Usage: delete_gsl_complex(self);");
10818 }
10819 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_complex, SWIG_POINTER_DISOWN | 0 );
10820 if (!SWIG_IsOK(res1)) {
10821 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "delete_gsl_complex" "', argument " "1"" of type '" "gsl_complex *""'");
10822 }
10823 arg1 = (gsl_complex *)(argp1);
10824 free((char *) arg1);
10825 ST(argvi) = &PL_sv_undef;
10826
10827 XSRETURN(argvi);
10828 fail:
10829
10830 SWIG_croak_null();
10831 }
10832 }
10833
10834
XS(_wrap_gsl_complex_long_double_dat_set)10835 XS(_wrap_gsl_complex_long_double_dat_set) {
10836 {
10837 gsl_complex_long_double *arg1 = (gsl_complex_long_double *) 0 ;
10838 long double *arg2 ;
10839 void *argp1 = 0 ;
10840 int res1 = 0 ;
10841 void *argp2 = 0 ;
10842 int res2 = 0 ;
10843 int argvi = 0;
10844 dXSARGS;
10845
10846 if ((items < 2) || (items > 2)) {
10847 SWIG_croak("Usage: gsl_complex_long_double_dat_set(self,dat);");
10848 }
10849 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_complex_long_double, 0 | 0 );
10850 if (!SWIG_IsOK(res1)) {
10851 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_long_double_dat_set" "', argument " "1"" of type '" "gsl_complex_long_double *""'");
10852 }
10853 arg1 = (gsl_complex_long_double *)(argp1);
10854 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_long_double, 0 | 0 );
10855 if (!SWIG_IsOK(res2)) {
10856 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_complex_long_double_dat_set" "', argument " "2"" of type '" "long double [2]""'");
10857 }
10858 arg2 = (long double *)(argp2);
10859 {
10860 if (arg2) {
10861 size_t ii = 0;
10862 for (; ii < (size_t)2; ++ii) *(long double *)&arg1->dat[ii] = *((long double *)arg2 + ii);
10863 } else {
10864 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in variable '""dat""' of type '""long double [2]""'");
10865 }
10866 }
10867 ST(argvi) = &PL_sv_undef;
10868
10869
10870 XSRETURN(argvi);
10871 fail:
10872
10873
10874 SWIG_croak_null();
10875 }
10876 }
10877
10878
XS(_wrap_gsl_complex_long_double_dat_get)10879 XS(_wrap_gsl_complex_long_double_dat_get) {
10880 {
10881 gsl_complex_long_double *arg1 = (gsl_complex_long_double *) 0 ;
10882 void *argp1 = 0 ;
10883 int res1 = 0 ;
10884 int argvi = 0;
10885 long double *result = 0 ;
10886 dXSARGS;
10887
10888 if ((items < 1) || (items > 1)) {
10889 SWIG_croak("Usage: gsl_complex_long_double_dat_get(self);");
10890 }
10891 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_complex_long_double, 0 | 0 );
10892 if (!SWIG_IsOK(res1)) {
10893 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_long_double_dat_get" "', argument " "1"" of type '" "gsl_complex_long_double *""'");
10894 }
10895 arg1 = (gsl_complex_long_double *)(argp1);
10896 result = (long double *)(long double *) ((arg1)->dat);
10897 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_long_double, 0 | 0); argvi++ ;
10898
10899 XSRETURN(argvi);
10900 fail:
10901
10902 SWIG_croak_null();
10903 }
10904 }
10905
10906
XS(_wrap_new_gsl_complex_long_double)10907 XS(_wrap_new_gsl_complex_long_double) {
10908 {
10909 int argvi = 0;
10910 gsl_complex_long_double *result = 0 ;
10911 dXSARGS;
10912
10913 if ((items < 0) || (items > 0)) {
10914 SWIG_croak("Usage: new_gsl_complex_long_double();");
10915 }
10916 result = (gsl_complex_long_double *)calloc(1, sizeof(gsl_complex_long_double));
10917 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_complex_long_double, SWIG_OWNER | SWIG_SHADOW); argvi++ ;
10918 XSRETURN(argvi);
10919 fail:
10920 SWIG_croak_null();
10921 }
10922 }
10923
10924
XS(_wrap_delete_gsl_complex_long_double)10925 XS(_wrap_delete_gsl_complex_long_double) {
10926 {
10927 gsl_complex_long_double *arg1 = (gsl_complex_long_double *) 0 ;
10928 void *argp1 = 0 ;
10929 int res1 = 0 ;
10930 int argvi = 0;
10931 dXSARGS;
10932
10933 if ((items < 1) || (items > 1)) {
10934 SWIG_croak("Usage: delete_gsl_complex_long_double(self);");
10935 }
10936 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_complex_long_double, SWIG_POINTER_DISOWN | 0 );
10937 if (!SWIG_IsOK(res1)) {
10938 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "delete_gsl_complex_long_double" "', argument " "1"" of type '" "gsl_complex_long_double *""'");
10939 }
10940 arg1 = (gsl_complex_long_double *)(argp1);
10941 free((char *) arg1);
10942 ST(argvi) = &PL_sv_undef;
10943
10944 XSRETURN(argvi);
10945 fail:
10946
10947 SWIG_croak_null();
10948 }
10949 }
10950
10951
XS(_wrap_gsl_complex_float_dat_set)10952 XS(_wrap_gsl_complex_float_dat_set) {
10953 {
10954 gsl_complex_float *arg1 = (gsl_complex_float *) 0 ;
10955 float *arg2 ;
10956 void *argp1 = 0 ;
10957 int res1 = 0 ;
10958 void *argp2 = 0 ;
10959 int res2 = 0 ;
10960 int argvi = 0;
10961 dXSARGS;
10962
10963 if ((items < 2) || (items > 2)) {
10964 SWIG_croak("Usage: gsl_complex_float_dat_set(self,dat);");
10965 }
10966 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_complex_float, 0 | 0 );
10967 if (!SWIG_IsOK(res1)) {
10968 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_float_dat_set" "', argument " "1"" of type '" "gsl_complex_float *""'");
10969 }
10970 arg1 = (gsl_complex_float *)(argp1);
10971 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_float, 0 | 0 );
10972 if (!SWIG_IsOK(res2)) {
10973 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_complex_float_dat_set" "', argument " "2"" of type '" "float [2]""'");
10974 }
10975 arg2 = (float *)(argp2);
10976 {
10977 if (arg2) {
10978 size_t ii = 0;
10979 for (; ii < (size_t)2; ++ii) *(float *)&arg1->dat[ii] = *((float *)arg2 + ii);
10980 } else {
10981 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in variable '""dat""' of type '""float [2]""'");
10982 }
10983 }
10984 ST(argvi) = &PL_sv_undef;
10985
10986
10987 XSRETURN(argvi);
10988 fail:
10989
10990
10991 SWIG_croak_null();
10992 }
10993 }
10994
10995
XS(_wrap_gsl_complex_float_dat_get)10996 XS(_wrap_gsl_complex_float_dat_get) {
10997 {
10998 gsl_complex_float *arg1 = (gsl_complex_float *) 0 ;
10999 void *argp1 = 0 ;
11000 int res1 = 0 ;
11001 int argvi = 0;
11002 float *result = 0 ;
11003 dXSARGS;
11004
11005 if ((items < 1) || (items > 1)) {
11006 SWIG_croak("Usage: gsl_complex_float_dat_get(self);");
11007 }
11008 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_complex_float, 0 | 0 );
11009 if (!SWIG_IsOK(res1)) {
11010 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_complex_float_dat_get" "', argument " "1"" of type '" "gsl_complex_float *""'");
11011 }
11012 arg1 = (gsl_complex_float *)(argp1);
11013 result = (float *)(float *) ((arg1)->dat);
11014 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_float, 0 | 0); argvi++ ;
11015
11016 XSRETURN(argvi);
11017 fail:
11018
11019 SWIG_croak_null();
11020 }
11021 }
11022
11023
XS(_wrap_new_gsl_complex_float)11024 XS(_wrap_new_gsl_complex_float) {
11025 {
11026 int argvi = 0;
11027 gsl_complex_float *result = 0 ;
11028 dXSARGS;
11029
11030 if ((items < 0) || (items > 0)) {
11031 SWIG_croak("Usage: new_gsl_complex_float();");
11032 }
11033 result = (gsl_complex_float *)calloc(1, sizeof(gsl_complex_float));
11034 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_complex_float, SWIG_OWNER | SWIG_SHADOW); argvi++ ;
11035 XSRETURN(argvi);
11036 fail:
11037 SWIG_croak_null();
11038 }
11039 }
11040
11041
XS(_wrap_delete_gsl_complex_float)11042 XS(_wrap_delete_gsl_complex_float) {
11043 {
11044 gsl_complex_float *arg1 = (gsl_complex_float *) 0 ;
11045 void *argp1 = 0 ;
11046 int res1 = 0 ;
11047 int argvi = 0;
11048 dXSARGS;
11049
11050 if ((items < 1) || (items > 1)) {
11051 SWIG_croak("Usage: delete_gsl_complex_float(self);");
11052 }
11053 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_complex_float, SWIG_POINTER_DISOWN | 0 );
11054 if (!SWIG_IsOK(res1)) {
11055 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "delete_gsl_complex_float" "', argument " "1"" of type '" "gsl_complex_float *""'");
11056 }
11057 arg1 = (gsl_complex_float *)(argp1);
11058 free((char *) arg1);
11059 ST(argvi) = &PL_sv_undef;
11060
11061 XSRETURN(argvi);
11062 fail:
11063
11064 SWIG_croak_null();
11065 }
11066 }
11067
11068
11069
11070 /* -------- TYPE CONVERSION AND EQUIVALENCE RULES (BEGIN) -------- */
11071
11072 static swig_type_info _swigt__p_FILE = {"_p_FILE", "FILE *", 0, 0, (void*)0, 0};
11073 static swig_type_info _swigt__p_char = {"_p_char", "char *", 0, 0, (void*)0, 0};
11074 static swig_type_info _swigt__p_double = {"_p_double", "double *", 0, 0, (void*)0, 0};
11075 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};
11076 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};
11077 static swig_type_info _swigt__p_float = {"_p_float", "float *", 0, 0, (void*)0, 0};
11078 static swig_type_info _swigt__p_gsl_complex = {"_p_gsl_complex", "gsl_complex *", 0, 0, (void*)"Math::GSL::Eigen::gsl_complex", 0};
11079 static swig_type_info _swigt__p_gsl_complex_float = {"_p_gsl_complex_float", "gsl_complex_float *", 0, 0, (void*)"Math::GSL::Eigen::gsl_complex_float", 0};
11080 static swig_type_info _swigt__p_gsl_complex_long_double = {"_p_gsl_complex_long_double", "gsl_complex_long_double *", 0, 0, (void*)"Math::GSL::Eigen::gsl_complex_long_double", 0};
11081 static swig_type_info _swigt__p_gsl_eigen_francis_workspace = {"_p_gsl_eigen_francis_workspace", "gsl_eigen_francis_workspace *", 0, 0, (void*)"Math::GSL::Eigen::gsl_eigen_francis_workspace", 0};
11082 static swig_type_info _swigt__p_gsl_eigen_gen_workspace = {"_p_gsl_eigen_gen_workspace", "gsl_eigen_gen_workspace *", 0, 0, (void*)"Math::GSL::Eigen::gsl_eigen_gen_workspace", 0};
11083 static swig_type_info _swigt__p_gsl_eigen_genherm_workspace = {"_p_gsl_eigen_genherm_workspace", "gsl_eigen_genherm_workspace *", 0, 0, (void*)"Math::GSL::Eigen::gsl_eigen_genherm_workspace", 0};
11084 static swig_type_info _swigt__p_gsl_eigen_genhermv_workspace = {"_p_gsl_eigen_genhermv_workspace", "gsl_eigen_genhermv_workspace *", 0, 0, (void*)"Math::GSL::Eigen::gsl_eigen_genhermv_workspace", 0};
11085 static swig_type_info _swigt__p_gsl_eigen_gensymm_workspace = {"_p_gsl_eigen_gensymm_workspace", "gsl_eigen_gensymm_workspace *", 0, 0, (void*)"Math::GSL::Eigen::gsl_eigen_gensymm_workspace", 0};
11086 static swig_type_info _swigt__p_gsl_eigen_gensymmv_workspace = {"_p_gsl_eigen_gensymmv_workspace", "gsl_eigen_gensymmv_workspace *", 0, 0, (void*)"Math::GSL::Eigen::gsl_eigen_gensymmv_workspace", 0};
11087 static swig_type_info _swigt__p_gsl_eigen_genv_workspace = {"_p_gsl_eigen_genv_workspace", "gsl_eigen_genv_workspace *", 0, 0, (void*)"Math::GSL::Eigen::gsl_eigen_genv_workspace", 0};
11088 static swig_type_info _swigt__p_gsl_eigen_herm_workspace = {"_p_gsl_eigen_herm_workspace", "gsl_eigen_herm_workspace *", 0, 0, (void*)"Math::GSL::Eigen::gsl_eigen_herm_workspace", 0};
11089 static swig_type_info _swigt__p_gsl_eigen_hermv_workspace = {"_p_gsl_eigen_hermv_workspace", "gsl_eigen_hermv_workspace *", 0, 0, (void*)"Math::GSL::Eigen::gsl_eigen_hermv_workspace", 0};
11090 static swig_type_info _swigt__p_gsl_eigen_nonsymm_workspace = {"_p_gsl_eigen_nonsymm_workspace", "gsl_eigen_nonsymm_workspace *", 0, 0, (void*)"Math::GSL::Eigen::gsl_eigen_nonsymm_workspace", 0};
11091 static swig_type_info _swigt__p_gsl_eigen_nonsymmv_workspace = {"_p_gsl_eigen_nonsymmv_workspace", "gsl_eigen_nonsymmv_workspace *", 0, 0, (void*)"Math::GSL::Eigen::gsl_eigen_nonsymmv_workspace", 0};
11092 static swig_type_info _swigt__p_gsl_eigen_sort_t = {"_p_gsl_eigen_sort_t", "enum gsl_eigen_sort_t *|gsl_eigen_sort_t *", 0, 0, (void*)0, 0};
11093 static swig_type_info _swigt__p_gsl_eigen_symm_workspace = {"_p_gsl_eigen_symm_workspace", "gsl_eigen_symm_workspace *", 0, 0, (void*)"Math::GSL::Eigen::gsl_eigen_symm_workspace", 0};
11094 static swig_type_info _swigt__p_gsl_eigen_symmv_workspace = {"_p_gsl_eigen_symmv_workspace", "gsl_eigen_symmv_workspace *", 0, 0, (void*)"Math::GSL::Eigen::gsl_eigen_symmv_workspace", 0};
11095 static swig_type_info _swigt__p_gsl_matrix = {"_p_gsl_matrix", "gsl_matrix *", 0, 0, (void*)0, 0};
11096 static swig_type_info _swigt__p_gsl_matrix_complex = {"_p_gsl_matrix_complex", "gsl_matrix_complex *", 0, 0, (void*)0, 0};
11097 static swig_type_info _swigt__p_gsl_vector = {"_p_gsl_vector", "gsl_vector *", 0, 0, (void*)0, 0};
11098 static swig_type_info _swigt__p_gsl_vector_complex = {"_p_gsl_vector_complex", "gsl_vector_complex *", 0, 0, (void*)0, 0};
11099 static swig_type_info _swigt__p_long_double = {"_p_long_double", "long double *", 0, 0, (void*)0, 0};
11100 static swig_type_info _swigt__p_unsigned_int = {"_p_unsigned_int", "unsigned int *", 0, 0, (void*)0, 0};
11101
11102 static swig_type_info *swig_type_initial[] = {
11103 &_swigt__p_FILE,
11104 &_swigt__p_char,
11105 &_swigt__p_double,
11106 &_swigt__p_f_p_q_const__char_p_q_const__char_int_int__void,
11107 &_swigt__p_f_p_q_const__char_p_q_const__char_int_p_q_const__char__void,
11108 &_swigt__p_float,
11109 &_swigt__p_gsl_complex,
11110 &_swigt__p_gsl_complex_float,
11111 &_swigt__p_gsl_complex_long_double,
11112 &_swigt__p_gsl_eigen_francis_workspace,
11113 &_swigt__p_gsl_eigen_gen_workspace,
11114 &_swigt__p_gsl_eigen_genherm_workspace,
11115 &_swigt__p_gsl_eigen_genhermv_workspace,
11116 &_swigt__p_gsl_eigen_gensymm_workspace,
11117 &_swigt__p_gsl_eigen_gensymmv_workspace,
11118 &_swigt__p_gsl_eigen_genv_workspace,
11119 &_swigt__p_gsl_eigen_herm_workspace,
11120 &_swigt__p_gsl_eigen_hermv_workspace,
11121 &_swigt__p_gsl_eigen_nonsymm_workspace,
11122 &_swigt__p_gsl_eigen_nonsymmv_workspace,
11123 &_swigt__p_gsl_eigen_sort_t,
11124 &_swigt__p_gsl_eigen_symm_workspace,
11125 &_swigt__p_gsl_eigen_symmv_workspace,
11126 &_swigt__p_gsl_matrix,
11127 &_swigt__p_gsl_matrix_complex,
11128 &_swigt__p_gsl_vector,
11129 &_swigt__p_gsl_vector_complex,
11130 &_swigt__p_long_double,
11131 &_swigt__p_unsigned_int,
11132 };
11133
11134 static swig_cast_info _swigc__p_FILE[] = { {&_swigt__p_FILE, 0, 0, 0},{0, 0, 0, 0}};
11135 static swig_cast_info _swigc__p_char[] = { {&_swigt__p_char, 0, 0, 0},{0, 0, 0, 0}};
11136 static swig_cast_info _swigc__p_double[] = { {&_swigt__p_double, 0, 0, 0},{0, 0, 0, 0}};
11137 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}};
11138 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}};
11139 static swig_cast_info _swigc__p_float[] = { {&_swigt__p_float, 0, 0, 0},{0, 0, 0, 0}};
11140 static swig_cast_info _swigc__p_gsl_complex[] = { {&_swigt__p_gsl_complex, 0, 0, 0},{0, 0, 0, 0}};
11141 static swig_cast_info _swigc__p_gsl_complex_float[] = { {&_swigt__p_gsl_complex_float, 0, 0, 0},{0, 0, 0, 0}};
11142 static swig_cast_info _swigc__p_gsl_complex_long_double[] = { {&_swigt__p_gsl_complex_long_double, 0, 0, 0},{0, 0, 0, 0}};
11143 static swig_cast_info _swigc__p_gsl_eigen_francis_workspace[] = { {&_swigt__p_gsl_eigen_francis_workspace, 0, 0, 0},{0, 0, 0, 0}};
11144 static swig_cast_info _swigc__p_gsl_eigen_gen_workspace[] = { {&_swigt__p_gsl_eigen_gen_workspace, 0, 0, 0},{0, 0, 0, 0}};
11145 static swig_cast_info _swigc__p_gsl_eigen_genherm_workspace[] = { {&_swigt__p_gsl_eigen_genherm_workspace, 0, 0, 0},{0, 0, 0, 0}};
11146 static swig_cast_info _swigc__p_gsl_eigen_genhermv_workspace[] = { {&_swigt__p_gsl_eigen_genhermv_workspace, 0, 0, 0},{0, 0, 0, 0}};
11147 static swig_cast_info _swigc__p_gsl_eigen_gensymm_workspace[] = { {&_swigt__p_gsl_eigen_gensymm_workspace, 0, 0, 0},{0, 0, 0, 0}};
11148 static swig_cast_info _swigc__p_gsl_eigen_gensymmv_workspace[] = { {&_swigt__p_gsl_eigen_gensymmv_workspace, 0, 0, 0},{0, 0, 0, 0}};
11149 static swig_cast_info _swigc__p_gsl_eigen_genv_workspace[] = { {&_swigt__p_gsl_eigen_genv_workspace, 0, 0, 0},{0, 0, 0, 0}};
11150 static swig_cast_info _swigc__p_gsl_eigen_herm_workspace[] = { {&_swigt__p_gsl_eigen_herm_workspace, 0, 0, 0},{0, 0, 0, 0}};
11151 static swig_cast_info _swigc__p_gsl_eigen_hermv_workspace[] = { {&_swigt__p_gsl_eigen_hermv_workspace, 0, 0, 0},{0, 0, 0, 0}};
11152 static swig_cast_info _swigc__p_gsl_eigen_nonsymm_workspace[] = { {&_swigt__p_gsl_eigen_nonsymm_workspace, 0, 0, 0},{0, 0, 0, 0}};
11153 static swig_cast_info _swigc__p_gsl_eigen_nonsymmv_workspace[] = { {&_swigt__p_gsl_eigen_nonsymmv_workspace, 0, 0, 0},{0, 0, 0, 0}};
11154 static swig_cast_info _swigc__p_gsl_eigen_sort_t[] = { {&_swigt__p_gsl_eigen_sort_t, 0, 0, 0},{0, 0, 0, 0}};
11155 static swig_cast_info _swigc__p_gsl_eigen_symm_workspace[] = { {&_swigt__p_gsl_eigen_symm_workspace, 0, 0, 0},{0, 0, 0, 0}};
11156 static swig_cast_info _swigc__p_gsl_eigen_symmv_workspace[] = { {&_swigt__p_gsl_eigen_symmv_workspace, 0, 0, 0},{0, 0, 0, 0}};
11157 static swig_cast_info _swigc__p_gsl_matrix[] = { {&_swigt__p_gsl_matrix, 0, 0, 0},{0, 0, 0, 0}};
11158 static swig_cast_info _swigc__p_gsl_matrix_complex[] = { {&_swigt__p_gsl_matrix_complex, 0, 0, 0},{0, 0, 0, 0}};
11159 static swig_cast_info _swigc__p_gsl_vector[] = { {&_swigt__p_gsl_vector, 0, 0, 0},{0, 0, 0, 0}};
11160 static swig_cast_info _swigc__p_gsl_vector_complex[] = { {&_swigt__p_gsl_vector_complex, 0, 0, 0},{0, 0, 0, 0}};
11161 static swig_cast_info _swigc__p_long_double[] = { {&_swigt__p_long_double, 0, 0, 0},{0, 0, 0, 0}};
11162 static swig_cast_info _swigc__p_unsigned_int[] = { {&_swigt__p_unsigned_int, 0, 0, 0},{0, 0, 0, 0}};
11163
11164 static swig_cast_info *swig_cast_initial[] = {
11165 _swigc__p_FILE,
11166 _swigc__p_char,
11167 _swigc__p_double,
11168 _swigc__p_f_p_q_const__char_p_q_const__char_int_int__void,
11169 _swigc__p_f_p_q_const__char_p_q_const__char_int_p_q_const__char__void,
11170 _swigc__p_float,
11171 _swigc__p_gsl_complex,
11172 _swigc__p_gsl_complex_float,
11173 _swigc__p_gsl_complex_long_double,
11174 _swigc__p_gsl_eigen_francis_workspace,
11175 _swigc__p_gsl_eigen_gen_workspace,
11176 _swigc__p_gsl_eigen_genherm_workspace,
11177 _swigc__p_gsl_eigen_genhermv_workspace,
11178 _swigc__p_gsl_eigen_gensymm_workspace,
11179 _swigc__p_gsl_eigen_gensymmv_workspace,
11180 _swigc__p_gsl_eigen_genv_workspace,
11181 _swigc__p_gsl_eigen_herm_workspace,
11182 _swigc__p_gsl_eigen_hermv_workspace,
11183 _swigc__p_gsl_eigen_nonsymm_workspace,
11184 _swigc__p_gsl_eigen_nonsymmv_workspace,
11185 _swigc__p_gsl_eigen_sort_t,
11186 _swigc__p_gsl_eigen_symm_workspace,
11187 _swigc__p_gsl_eigen_symmv_workspace,
11188 _swigc__p_gsl_matrix,
11189 _swigc__p_gsl_matrix_complex,
11190 _swigc__p_gsl_vector,
11191 _swigc__p_gsl_vector_complex,
11192 _swigc__p_long_double,
11193 _swigc__p_unsigned_int,
11194 };
11195
11196
11197 /* -------- TYPE CONVERSION AND EQUIVALENCE RULES (END) -------- */
11198
11199 static swig_constant_info swig_constants[] = {
11200 {0,0,0,0,0,0}
11201 };
11202 #ifdef __cplusplus
11203 }
11204 #endif
11205 static swig_variable_info swig_variables[] = {
11206 {0,0,0,0}
11207 };
11208 static swig_command_info swig_commands[] = {
11209 {"Math::GSL::Eigenc::gsl_error", _wrap_gsl_error},
11210 {"Math::GSL::Eigenc::gsl_stream_printf", _wrap_gsl_stream_printf},
11211 {"Math::GSL::Eigenc::gsl_strerror", _wrap_gsl_strerror},
11212 {"Math::GSL::Eigenc::gsl_set_error_handler", _wrap_gsl_set_error_handler},
11213 {"Math::GSL::Eigenc::gsl_set_error_handler_off", _wrap_gsl_set_error_handler_off},
11214 {"Math::GSL::Eigenc::gsl_set_stream_handler", _wrap_gsl_set_stream_handler},
11215 {"Math::GSL::Eigenc::gsl_set_stream", _wrap_gsl_set_stream},
11216 {"Math::GSL::Eigenc::gsl_eigen_symm_workspace_size_set", _wrap_gsl_eigen_symm_workspace_size_set},
11217 {"Math::GSL::Eigenc::gsl_eigen_symm_workspace_size_get", _wrap_gsl_eigen_symm_workspace_size_get},
11218 {"Math::GSL::Eigenc::gsl_eigen_symm_workspace_d_set", _wrap_gsl_eigen_symm_workspace_d_set},
11219 {"Math::GSL::Eigenc::gsl_eigen_symm_workspace_d_get", _wrap_gsl_eigen_symm_workspace_d_get},
11220 {"Math::GSL::Eigenc::gsl_eigen_symm_workspace_sd_set", _wrap_gsl_eigen_symm_workspace_sd_set},
11221 {"Math::GSL::Eigenc::gsl_eigen_symm_workspace_sd_get", _wrap_gsl_eigen_symm_workspace_sd_get},
11222 {"Math::GSL::Eigenc::new_gsl_eigen_symm_workspace", _wrap_new_gsl_eigen_symm_workspace},
11223 {"Math::GSL::Eigenc::delete_gsl_eigen_symm_workspace", _wrap_delete_gsl_eigen_symm_workspace},
11224 {"Math::GSL::Eigenc::gsl_eigen_symm_alloc", _wrap_gsl_eigen_symm_alloc},
11225 {"Math::GSL::Eigenc::gsl_eigen_symm_free", _wrap_gsl_eigen_symm_free},
11226 {"Math::GSL::Eigenc::gsl_eigen_symm", _wrap_gsl_eigen_symm},
11227 {"Math::GSL::Eigenc::gsl_eigen_symmv_workspace_size_set", _wrap_gsl_eigen_symmv_workspace_size_set},
11228 {"Math::GSL::Eigenc::gsl_eigen_symmv_workspace_size_get", _wrap_gsl_eigen_symmv_workspace_size_get},
11229 {"Math::GSL::Eigenc::gsl_eigen_symmv_workspace_d_set", _wrap_gsl_eigen_symmv_workspace_d_set},
11230 {"Math::GSL::Eigenc::gsl_eigen_symmv_workspace_d_get", _wrap_gsl_eigen_symmv_workspace_d_get},
11231 {"Math::GSL::Eigenc::gsl_eigen_symmv_workspace_sd_set", _wrap_gsl_eigen_symmv_workspace_sd_set},
11232 {"Math::GSL::Eigenc::gsl_eigen_symmv_workspace_sd_get", _wrap_gsl_eigen_symmv_workspace_sd_get},
11233 {"Math::GSL::Eigenc::gsl_eigen_symmv_workspace_gc_set", _wrap_gsl_eigen_symmv_workspace_gc_set},
11234 {"Math::GSL::Eigenc::gsl_eigen_symmv_workspace_gc_get", _wrap_gsl_eigen_symmv_workspace_gc_get},
11235 {"Math::GSL::Eigenc::gsl_eigen_symmv_workspace_gs_set", _wrap_gsl_eigen_symmv_workspace_gs_set},
11236 {"Math::GSL::Eigenc::gsl_eigen_symmv_workspace_gs_get", _wrap_gsl_eigen_symmv_workspace_gs_get},
11237 {"Math::GSL::Eigenc::new_gsl_eigen_symmv_workspace", _wrap_new_gsl_eigen_symmv_workspace},
11238 {"Math::GSL::Eigenc::delete_gsl_eigen_symmv_workspace", _wrap_delete_gsl_eigen_symmv_workspace},
11239 {"Math::GSL::Eigenc::gsl_eigen_symmv_alloc", _wrap_gsl_eigen_symmv_alloc},
11240 {"Math::GSL::Eigenc::gsl_eigen_symmv_free", _wrap_gsl_eigen_symmv_free},
11241 {"Math::GSL::Eigenc::gsl_eigen_symmv", _wrap_gsl_eigen_symmv},
11242 {"Math::GSL::Eigenc::gsl_eigen_herm_workspace_size_set", _wrap_gsl_eigen_herm_workspace_size_set},
11243 {"Math::GSL::Eigenc::gsl_eigen_herm_workspace_size_get", _wrap_gsl_eigen_herm_workspace_size_get},
11244 {"Math::GSL::Eigenc::gsl_eigen_herm_workspace_d_set", _wrap_gsl_eigen_herm_workspace_d_set},
11245 {"Math::GSL::Eigenc::gsl_eigen_herm_workspace_d_get", _wrap_gsl_eigen_herm_workspace_d_get},
11246 {"Math::GSL::Eigenc::gsl_eigen_herm_workspace_sd_set", _wrap_gsl_eigen_herm_workspace_sd_set},
11247 {"Math::GSL::Eigenc::gsl_eigen_herm_workspace_sd_get", _wrap_gsl_eigen_herm_workspace_sd_get},
11248 {"Math::GSL::Eigenc::gsl_eigen_herm_workspace_tau_set", _wrap_gsl_eigen_herm_workspace_tau_set},
11249 {"Math::GSL::Eigenc::gsl_eigen_herm_workspace_tau_get", _wrap_gsl_eigen_herm_workspace_tau_get},
11250 {"Math::GSL::Eigenc::new_gsl_eigen_herm_workspace", _wrap_new_gsl_eigen_herm_workspace},
11251 {"Math::GSL::Eigenc::delete_gsl_eigen_herm_workspace", _wrap_delete_gsl_eigen_herm_workspace},
11252 {"Math::GSL::Eigenc::gsl_eigen_herm_alloc", _wrap_gsl_eigen_herm_alloc},
11253 {"Math::GSL::Eigenc::gsl_eigen_herm_free", _wrap_gsl_eigen_herm_free},
11254 {"Math::GSL::Eigenc::gsl_eigen_herm", _wrap_gsl_eigen_herm},
11255 {"Math::GSL::Eigenc::gsl_eigen_hermv_workspace_size_set", _wrap_gsl_eigen_hermv_workspace_size_set},
11256 {"Math::GSL::Eigenc::gsl_eigen_hermv_workspace_size_get", _wrap_gsl_eigen_hermv_workspace_size_get},
11257 {"Math::GSL::Eigenc::gsl_eigen_hermv_workspace_d_set", _wrap_gsl_eigen_hermv_workspace_d_set},
11258 {"Math::GSL::Eigenc::gsl_eigen_hermv_workspace_d_get", _wrap_gsl_eigen_hermv_workspace_d_get},
11259 {"Math::GSL::Eigenc::gsl_eigen_hermv_workspace_sd_set", _wrap_gsl_eigen_hermv_workspace_sd_set},
11260 {"Math::GSL::Eigenc::gsl_eigen_hermv_workspace_sd_get", _wrap_gsl_eigen_hermv_workspace_sd_get},
11261 {"Math::GSL::Eigenc::gsl_eigen_hermv_workspace_tau_set", _wrap_gsl_eigen_hermv_workspace_tau_set},
11262 {"Math::GSL::Eigenc::gsl_eigen_hermv_workspace_tau_get", _wrap_gsl_eigen_hermv_workspace_tau_get},
11263 {"Math::GSL::Eigenc::gsl_eigen_hermv_workspace_gc_set", _wrap_gsl_eigen_hermv_workspace_gc_set},
11264 {"Math::GSL::Eigenc::gsl_eigen_hermv_workspace_gc_get", _wrap_gsl_eigen_hermv_workspace_gc_get},
11265 {"Math::GSL::Eigenc::gsl_eigen_hermv_workspace_gs_set", _wrap_gsl_eigen_hermv_workspace_gs_set},
11266 {"Math::GSL::Eigenc::gsl_eigen_hermv_workspace_gs_get", _wrap_gsl_eigen_hermv_workspace_gs_get},
11267 {"Math::GSL::Eigenc::new_gsl_eigen_hermv_workspace", _wrap_new_gsl_eigen_hermv_workspace},
11268 {"Math::GSL::Eigenc::delete_gsl_eigen_hermv_workspace", _wrap_delete_gsl_eigen_hermv_workspace},
11269 {"Math::GSL::Eigenc::gsl_eigen_hermv_alloc", _wrap_gsl_eigen_hermv_alloc},
11270 {"Math::GSL::Eigenc::gsl_eigen_hermv_free", _wrap_gsl_eigen_hermv_free},
11271 {"Math::GSL::Eigenc::gsl_eigen_hermv", _wrap_gsl_eigen_hermv},
11272 {"Math::GSL::Eigenc::gsl_eigen_francis_workspace_size_set", _wrap_gsl_eigen_francis_workspace_size_set},
11273 {"Math::GSL::Eigenc::gsl_eigen_francis_workspace_size_get", _wrap_gsl_eigen_francis_workspace_size_get},
11274 {"Math::GSL::Eigenc::gsl_eigen_francis_workspace_max_iterations_set", _wrap_gsl_eigen_francis_workspace_max_iterations_set},
11275 {"Math::GSL::Eigenc::gsl_eigen_francis_workspace_max_iterations_get", _wrap_gsl_eigen_francis_workspace_max_iterations_get},
11276 {"Math::GSL::Eigenc::gsl_eigen_francis_workspace_n_iter_set", _wrap_gsl_eigen_francis_workspace_n_iter_set},
11277 {"Math::GSL::Eigenc::gsl_eigen_francis_workspace_n_iter_get", _wrap_gsl_eigen_francis_workspace_n_iter_get},
11278 {"Math::GSL::Eigenc::gsl_eigen_francis_workspace_n_evals_set", _wrap_gsl_eigen_francis_workspace_n_evals_set},
11279 {"Math::GSL::Eigenc::gsl_eigen_francis_workspace_n_evals_get", _wrap_gsl_eigen_francis_workspace_n_evals_get},
11280 {"Math::GSL::Eigenc::gsl_eigen_francis_workspace_compute_t_set", _wrap_gsl_eigen_francis_workspace_compute_t_set},
11281 {"Math::GSL::Eigenc::gsl_eigen_francis_workspace_compute_t_get", _wrap_gsl_eigen_francis_workspace_compute_t_get},
11282 {"Math::GSL::Eigenc::gsl_eigen_francis_workspace_H_set", _wrap_gsl_eigen_francis_workspace_H_set},
11283 {"Math::GSL::Eigenc::gsl_eigen_francis_workspace_H_get", _wrap_gsl_eigen_francis_workspace_H_get},
11284 {"Math::GSL::Eigenc::gsl_eigen_francis_workspace_Z_set", _wrap_gsl_eigen_francis_workspace_Z_set},
11285 {"Math::GSL::Eigenc::gsl_eigen_francis_workspace_Z_get", _wrap_gsl_eigen_francis_workspace_Z_get},
11286 {"Math::GSL::Eigenc::new_gsl_eigen_francis_workspace", _wrap_new_gsl_eigen_francis_workspace},
11287 {"Math::GSL::Eigenc::delete_gsl_eigen_francis_workspace", _wrap_delete_gsl_eigen_francis_workspace},
11288 {"Math::GSL::Eigenc::gsl_eigen_francis_alloc", _wrap_gsl_eigen_francis_alloc},
11289 {"Math::GSL::Eigenc::gsl_eigen_francis_free", _wrap_gsl_eigen_francis_free},
11290 {"Math::GSL::Eigenc::gsl_eigen_francis_T", _wrap_gsl_eigen_francis_T},
11291 {"Math::GSL::Eigenc::gsl_eigen_francis", _wrap_gsl_eigen_francis},
11292 {"Math::GSL::Eigenc::gsl_eigen_francis_Z", _wrap_gsl_eigen_francis_Z},
11293 {"Math::GSL::Eigenc::gsl_eigen_nonsymm_workspace_size_set", _wrap_gsl_eigen_nonsymm_workspace_size_set},
11294 {"Math::GSL::Eigenc::gsl_eigen_nonsymm_workspace_size_get", _wrap_gsl_eigen_nonsymm_workspace_size_get},
11295 {"Math::GSL::Eigenc::gsl_eigen_nonsymm_workspace_diag_set", _wrap_gsl_eigen_nonsymm_workspace_diag_set},
11296 {"Math::GSL::Eigenc::gsl_eigen_nonsymm_workspace_diag_get", _wrap_gsl_eigen_nonsymm_workspace_diag_get},
11297 {"Math::GSL::Eigenc::gsl_eigen_nonsymm_workspace_tau_set", _wrap_gsl_eigen_nonsymm_workspace_tau_set},
11298 {"Math::GSL::Eigenc::gsl_eigen_nonsymm_workspace_tau_get", _wrap_gsl_eigen_nonsymm_workspace_tau_get},
11299 {"Math::GSL::Eigenc::gsl_eigen_nonsymm_workspace_Z_set", _wrap_gsl_eigen_nonsymm_workspace_Z_set},
11300 {"Math::GSL::Eigenc::gsl_eigen_nonsymm_workspace_Z_get", _wrap_gsl_eigen_nonsymm_workspace_Z_get},
11301 {"Math::GSL::Eigenc::gsl_eigen_nonsymm_workspace_do_balance_set", _wrap_gsl_eigen_nonsymm_workspace_do_balance_set},
11302 {"Math::GSL::Eigenc::gsl_eigen_nonsymm_workspace_do_balance_get", _wrap_gsl_eigen_nonsymm_workspace_do_balance_get},
11303 {"Math::GSL::Eigenc::gsl_eigen_nonsymm_workspace_n_evals_set", _wrap_gsl_eigen_nonsymm_workspace_n_evals_set},
11304 {"Math::GSL::Eigenc::gsl_eigen_nonsymm_workspace_n_evals_get", _wrap_gsl_eigen_nonsymm_workspace_n_evals_get},
11305 {"Math::GSL::Eigenc::gsl_eigen_nonsymm_workspace_francis_workspace_p_set", _wrap_gsl_eigen_nonsymm_workspace_francis_workspace_p_set},
11306 {"Math::GSL::Eigenc::gsl_eigen_nonsymm_workspace_francis_workspace_p_get", _wrap_gsl_eigen_nonsymm_workspace_francis_workspace_p_get},
11307 {"Math::GSL::Eigenc::new_gsl_eigen_nonsymm_workspace", _wrap_new_gsl_eigen_nonsymm_workspace},
11308 {"Math::GSL::Eigenc::delete_gsl_eigen_nonsymm_workspace", _wrap_delete_gsl_eigen_nonsymm_workspace},
11309 {"Math::GSL::Eigenc::gsl_eigen_nonsymm_alloc", _wrap_gsl_eigen_nonsymm_alloc},
11310 {"Math::GSL::Eigenc::gsl_eigen_nonsymm_free", _wrap_gsl_eigen_nonsymm_free},
11311 {"Math::GSL::Eigenc::gsl_eigen_nonsymm_params", _wrap_gsl_eigen_nonsymm_params},
11312 {"Math::GSL::Eigenc::gsl_eigen_nonsymm", _wrap_gsl_eigen_nonsymm},
11313 {"Math::GSL::Eigenc::gsl_eigen_nonsymm_Z", _wrap_gsl_eigen_nonsymm_Z},
11314 {"Math::GSL::Eigenc::gsl_eigen_nonsymmv_workspace_size_set", _wrap_gsl_eigen_nonsymmv_workspace_size_set},
11315 {"Math::GSL::Eigenc::gsl_eigen_nonsymmv_workspace_size_get", _wrap_gsl_eigen_nonsymmv_workspace_size_get},
11316 {"Math::GSL::Eigenc::gsl_eigen_nonsymmv_workspace_work_set", _wrap_gsl_eigen_nonsymmv_workspace_work_set},
11317 {"Math::GSL::Eigenc::gsl_eigen_nonsymmv_workspace_work_get", _wrap_gsl_eigen_nonsymmv_workspace_work_get},
11318 {"Math::GSL::Eigenc::gsl_eigen_nonsymmv_workspace_work2_set", _wrap_gsl_eigen_nonsymmv_workspace_work2_set},
11319 {"Math::GSL::Eigenc::gsl_eigen_nonsymmv_workspace_work2_get", _wrap_gsl_eigen_nonsymmv_workspace_work2_get},
11320 {"Math::GSL::Eigenc::gsl_eigen_nonsymmv_workspace_work3_set", _wrap_gsl_eigen_nonsymmv_workspace_work3_set},
11321 {"Math::GSL::Eigenc::gsl_eigen_nonsymmv_workspace_work3_get", _wrap_gsl_eigen_nonsymmv_workspace_work3_get},
11322 {"Math::GSL::Eigenc::gsl_eigen_nonsymmv_workspace_Z_set", _wrap_gsl_eigen_nonsymmv_workspace_Z_set},
11323 {"Math::GSL::Eigenc::gsl_eigen_nonsymmv_workspace_Z_get", _wrap_gsl_eigen_nonsymmv_workspace_Z_get},
11324 {"Math::GSL::Eigenc::gsl_eigen_nonsymmv_workspace_nonsymm_workspace_p_set", _wrap_gsl_eigen_nonsymmv_workspace_nonsymm_workspace_p_set},
11325 {"Math::GSL::Eigenc::gsl_eigen_nonsymmv_workspace_nonsymm_workspace_p_get", _wrap_gsl_eigen_nonsymmv_workspace_nonsymm_workspace_p_get},
11326 {"Math::GSL::Eigenc::new_gsl_eigen_nonsymmv_workspace", _wrap_new_gsl_eigen_nonsymmv_workspace},
11327 {"Math::GSL::Eigenc::delete_gsl_eigen_nonsymmv_workspace", _wrap_delete_gsl_eigen_nonsymmv_workspace},
11328 {"Math::GSL::Eigenc::gsl_eigen_nonsymmv_alloc", _wrap_gsl_eigen_nonsymmv_alloc},
11329 {"Math::GSL::Eigenc::gsl_eigen_nonsymmv_free", _wrap_gsl_eigen_nonsymmv_free},
11330 {"Math::GSL::Eigenc::gsl_eigen_nonsymmv_params", _wrap_gsl_eigen_nonsymmv_params},
11331 {"Math::GSL::Eigenc::gsl_eigen_nonsymmv", _wrap_gsl_eigen_nonsymmv},
11332 {"Math::GSL::Eigenc::gsl_eigen_nonsymmv_Z", _wrap_gsl_eigen_nonsymmv_Z},
11333 {"Math::GSL::Eigenc::gsl_eigen_gensymm_workspace_size_set", _wrap_gsl_eigen_gensymm_workspace_size_set},
11334 {"Math::GSL::Eigenc::gsl_eigen_gensymm_workspace_size_get", _wrap_gsl_eigen_gensymm_workspace_size_get},
11335 {"Math::GSL::Eigenc::gsl_eigen_gensymm_workspace_symm_workspace_p_set", _wrap_gsl_eigen_gensymm_workspace_symm_workspace_p_set},
11336 {"Math::GSL::Eigenc::gsl_eigen_gensymm_workspace_symm_workspace_p_get", _wrap_gsl_eigen_gensymm_workspace_symm_workspace_p_get},
11337 {"Math::GSL::Eigenc::new_gsl_eigen_gensymm_workspace", _wrap_new_gsl_eigen_gensymm_workspace},
11338 {"Math::GSL::Eigenc::delete_gsl_eigen_gensymm_workspace", _wrap_delete_gsl_eigen_gensymm_workspace},
11339 {"Math::GSL::Eigenc::gsl_eigen_gensymm_alloc", _wrap_gsl_eigen_gensymm_alloc},
11340 {"Math::GSL::Eigenc::gsl_eigen_gensymm_free", _wrap_gsl_eigen_gensymm_free},
11341 {"Math::GSL::Eigenc::gsl_eigen_gensymm", _wrap_gsl_eigen_gensymm},
11342 {"Math::GSL::Eigenc::gsl_eigen_gensymm_standardize", _wrap_gsl_eigen_gensymm_standardize},
11343 {"Math::GSL::Eigenc::gsl_eigen_gensymmv_workspace_size_set", _wrap_gsl_eigen_gensymmv_workspace_size_set},
11344 {"Math::GSL::Eigenc::gsl_eigen_gensymmv_workspace_size_get", _wrap_gsl_eigen_gensymmv_workspace_size_get},
11345 {"Math::GSL::Eigenc::gsl_eigen_gensymmv_workspace_symmv_workspace_p_set", _wrap_gsl_eigen_gensymmv_workspace_symmv_workspace_p_set},
11346 {"Math::GSL::Eigenc::gsl_eigen_gensymmv_workspace_symmv_workspace_p_get", _wrap_gsl_eigen_gensymmv_workspace_symmv_workspace_p_get},
11347 {"Math::GSL::Eigenc::new_gsl_eigen_gensymmv_workspace", _wrap_new_gsl_eigen_gensymmv_workspace},
11348 {"Math::GSL::Eigenc::delete_gsl_eigen_gensymmv_workspace", _wrap_delete_gsl_eigen_gensymmv_workspace},
11349 {"Math::GSL::Eigenc::gsl_eigen_gensymmv_alloc", _wrap_gsl_eigen_gensymmv_alloc},
11350 {"Math::GSL::Eigenc::gsl_eigen_gensymmv_free", _wrap_gsl_eigen_gensymmv_free},
11351 {"Math::GSL::Eigenc::gsl_eigen_gensymmv", _wrap_gsl_eigen_gensymmv},
11352 {"Math::GSL::Eigenc::gsl_eigen_genherm_workspace_size_set", _wrap_gsl_eigen_genherm_workspace_size_set},
11353 {"Math::GSL::Eigenc::gsl_eigen_genherm_workspace_size_get", _wrap_gsl_eigen_genherm_workspace_size_get},
11354 {"Math::GSL::Eigenc::gsl_eigen_genherm_workspace_herm_workspace_p_set", _wrap_gsl_eigen_genherm_workspace_herm_workspace_p_set},
11355 {"Math::GSL::Eigenc::gsl_eigen_genherm_workspace_herm_workspace_p_get", _wrap_gsl_eigen_genherm_workspace_herm_workspace_p_get},
11356 {"Math::GSL::Eigenc::new_gsl_eigen_genherm_workspace", _wrap_new_gsl_eigen_genherm_workspace},
11357 {"Math::GSL::Eigenc::delete_gsl_eigen_genherm_workspace", _wrap_delete_gsl_eigen_genherm_workspace},
11358 {"Math::GSL::Eigenc::gsl_eigen_genherm_alloc", _wrap_gsl_eigen_genherm_alloc},
11359 {"Math::GSL::Eigenc::gsl_eigen_genherm_free", _wrap_gsl_eigen_genherm_free},
11360 {"Math::GSL::Eigenc::gsl_eigen_genherm", _wrap_gsl_eigen_genherm},
11361 {"Math::GSL::Eigenc::gsl_eigen_genherm_standardize", _wrap_gsl_eigen_genherm_standardize},
11362 {"Math::GSL::Eigenc::gsl_eigen_genhermv_workspace_size_set", _wrap_gsl_eigen_genhermv_workspace_size_set},
11363 {"Math::GSL::Eigenc::gsl_eigen_genhermv_workspace_size_get", _wrap_gsl_eigen_genhermv_workspace_size_get},
11364 {"Math::GSL::Eigenc::gsl_eigen_genhermv_workspace_hermv_workspace_p_set", _wrap_gsl_eigen_genhermv_workspace_hermv_workspace_p_set},
11365 {"Math::GSL::Eigenc::gsl_eigen_genhermv_workspace_hermv_workspace_p_get", _wrap_gsl_eigen_genhermv_workspace_hermv_workspace_p_get},
11366 {"Math::GSL::Eigenc::new_gsl_eigen_genhermv_workspace", _wrap_new_gsl_eigen_genhermv_workspace},
11367 {"Math::GSL::Eigenc::delete_gsl_eigen_genhermv_workspace", _wrap_delete_gsl_eigen_genhermv_workspace},
11368 {"Math::GSL::Eigenc::gsl_eigen_genhermv_alloc", _wrap_gsl_eigen_genhermv_alloc},
11369 {"Math::GSL::Eigenc::gsl_eigen_genhermv_free", _wrap_gsl_eigen_genhermv_free},
11370 {"Math::GSL::Eigenc::gsl_eigen_genhermv", _wrap_gsl_eigen_genhermv},
11371 {"Math::GSL::Eigenc::gsl_eigen_gen_workspace_size_set", _wrap_gsl_eigen_gen_workspace_size_set},
11372 {"Math::GSL::Eigenc::gsl_eigen_gen_workspace_size_get", _wrap_gsl_eigen_gen_workspace_size_get},
11373 {"Math::GSL::Eigenc::gsl_eigen_gen_workspace_work_set", _wrap_gsl_eigen_gen_workspace_work_set},
11374 {"Math::GSL::Eigenc::gsl_eigen_gen_workspace_work_get", _wrap_gsl_eigen_gen_workspace_work_get},
11375 {"Math::GSL::Eigenc::gsl_eigen_gen_workspace_n_evals_set", _wrap_gsl_eigen_gen_workspace_n_evals_set},
11376 {"Math::GSL::Eigenc::gsl_eigen_gen_workspace_n_evals_get", _wrap_gsl_eigen_gen_workspace_n_evals_get},
11377 {"Math::GSL::Eigenc::gsl_eigen_gen_workspace_max_iterations_set", _wrap_gsl_eigen_gen_workspace_max_iterations_set},
11378 {"Math::GSL::Eigenc::gsl_eigen_gen_workspace_max_iterations_get", _wrap_gsl_eigen_gen_workspace_max_iterations_get},
11379 {"Math::GSL::Eigenc::gsl_eigen_gen_workspace_n_iter_set", _wrap_gsl_eigen_gen_workspace_n_iter_set},
11380 {"Math::GSL::Eigenc::gsl_eigen_gen_workspace_n_iter_get", _wrap_gsl_eigen_gen_workspace_n_iter_get},
11381 {"Math::GSL::Eigenc::gsl_eigen_gen_workspace_eshift_set", _wrap_gsl_eigen_gen_workspace_eshift_set},
11382 {"Math::GSL::Eigenc::gsl_eigen_gen_workspace_eshift_get", _wrap_gsl_eigen_gen_workspace_eshift_get},
11383 {"Math::GSL::Eigenc::gsl_eigen_gen_workspace_needtop_set", _wrap_gsl_eigen_gen_workspace_needtop_set},
11384 {"Math::GSL::Eigenc::gsl_eigen_gen_workspace_needtop_get", _wrap_gsl_eigen_gen_workspace_needtop_get},
11385 {"Math::GSL::Eigenc::gsl_eigen_gen_workspace_atol_set", _wrap_gsl_eigen_gen_workspace_atol_set},
11386 {"Math::GSL::Eigenc::gsl_eigen_gen_workspace_atol_get", _wrap_gsl_eigen_gen_workspace_atol_get},
11387 {"Math::GSL::Eigenc::gsl_eigen_gen_workspace_btol_set", _wrap_gsl_eigen_gen_workspace_btol_set},
11388 {"Math::GSL::Eigenc::gsl_eigen_gen_workspace_btol_get", _wrap_gsl_eigen_gen_workspace_btol_get},
11389 {"Math::GSL::Eigenc::gsl_eigen_gen_workspace_ascale_set", _wrap_gsl_eigen_gen_workspace_ascale_set},
11390 {"Math::GSL::Eigenc::gsl_eigen_gen_workspace_ascale_get", _wrap_gsl_eigen_gen_workspace_ascale_get},
11391 {"Math::GSL::Eigenc::gsl_eigen_gen_workspace_bscale_set", _wrap_gsl_eigen_gen_workspace_bscale_set},
11392 {"Math::GSL::Eigenc::gsl_eigen_gen_workspace_bscale_get", _wrap_gsl_eigen_gen_workspace_bscale_get},
11393 {"Math::GSL::Eigenc::gsl_eigen_gen_workspace_H_set", _wrap_gsl_eigen_gen_workspace_H_set},
11394 {"Math::GSL::Eigenc::gsl_eigen_gen_workspace_H_get", _wrap_gsl_eigen_gen_workspace_H_get},
11395 {"Math::GSL::Eigenc::gsl_eigen_gen_workspace_R_set", _wrap_gsl_eigen_gen_workspace_R_set},
11396 {"Math::GSL::Eigenc::gsl_eigen_gen_workspace_R_get", _wrap_gsl_eigen_gen_workspace_R_get},
11397 {"Math::GSL::Eigenc::gsl_eigen_gen_workspace_compute_s_set", _wrap_gsl_eigen_gen_workspace_compute_s_set},
11398 {"Math::GSL::Eigenc::gsl_eigen_gen_workspace_compute_s_get", _wrap_gsl_eigen_gen_workspace_compute_s_get},
11399 {"Math::GSL::Eigenc::gsl_eigen_gen_workspace_compute_t_set", _wrap_gsl_eigen_gen_workspace_compute_t_set},
11400 {"Math::GSL::Eigenc::gsl_eigen_gen_workspace_compute_t_get", _wrap_gsl_eigen_gen_workspace_compute_t_get},
11401 {"Math::GSL::Eigenc::gsl_eigen_gen_workspace_Q_set", _wrap_gsl_eigen_gen_workspace_Q_set},
11402 {"Math::GSL::Eigenc::gsl_eigen_gen_workspace_Q_get", _wrap_gsl_eigen_gen_workspace_Q_get},
11403 {"Math::GSL::Eigenc::gsl_eigen_gen_workspace_Z_set", _wrap_gsl_eigen_gen_workspace_Z_set},
11404 {"Math::GSL::Eigenc::gsl_eigen_gen_workspace_Z_get", _wrap_gsl_eigen_gen_workspace_Z_get},
11405 {"Math::GSL::Eigenc::new_gsl_eigen_gen_workspace", _wrap_new_gsl_eigen_gen_workspace},
11406 {"Math::GSL::Eigenc::delete_gsl_eigen_gen_workspace", _wrap_delete_gsl_eigen_gen_workspace},
11407 {"Math::GSL::Eigenc::gsl_eigen_gen_alloc", _wrap_gsl_eigen_gen_alloc},
11408 {"Math::GSL::Eigenc::gsl_eigen_gen_free", _wrap_gsl_eigen_gen_free},
11409 {"Math::GSL::Eigenc::gsl_eigen_gen_params", _wrap_gsl_eigen_gen_params},
11410 {"Math::GSL::Eigenc::gsl_eigen_gen", _wrap_gsl_eigen_gen},
11411 {"Math::GSL::Eigenc::gsl_eigen_gen_QZ", _wrap_gsl_eigen_gen_QZ},
11412 {"Math::GSL::Eigenc::gsl_eigen_genv_workspace_size_set", _wrap_gsl_eigen_genv_workspace_size_set},
11413 {"Math::GSL::Eigenc::gsl_eigen_genv_workspace_size_get", _wrap_gsl_eigen_genv_workspace_size_get},
11414 {"Math::GSL::Eigenc::gsl_eigen_genv_workspace_work1_set", _wrap_gsl_eigen_genv_workspace_work1_set},
11415 {"Math::GSL::Eigenc::gsl_eigen_genv_workspace_work1_get", _wrap_gsl_eigen_genv_workspace_work1_get},
11416 {"Math::GSL::Eigenc::gsl_eigen_genv_workspace_work2_set", _wrap_gsl_eigen_genv_workspace_work2_set},
11417 {"Math::GSL::Eigenc::gsl_eigen_genv_workspace_work2_get", _wrap_gsl_eigen_genv_workspace_work2_get},
11418 {"Math::GSL::Eigenc::gsl_eigen_genv_workspace_work3_set", _wrap_gsl_eigen_genv_workspace_work3_set},
11419 {"Math::GSL::Eigenc::gsl_eigen_genv_workspace_work3_get", _wrap_gsl_eigen_genv_workspace_work3_get},
11420 {"Math::GSL::Eigenc::gsl_eigen_genv_workspace_work4_set", _wrap_gsl_eigen_genv_workspace_work4_set},
11421 {"Math::GSL::Eigenc::gsl_eigen_genv_workspace_work4_get", _wrap_gsl_eigen_genv_workspace_work4_get},
11422 {"Math::GSL::Eigenc::gsl_eigen_genv_workspace_work5_set", _wrap_gsl_eigen_genv_workspace_work5_set},
11423 {"Math::GSL::Eigenc::gsl_eigen_genv_workspace_work5_get", _wrap_gsl_eigen_genv_workspace_work5_get},
11424 {"Math::GSL::Eigenc::gsl_eigen_genv_workspace_work6_set", _wrap_gsl_eigen_genv_workspace_work6_set},
11425 {"Math::GSL::Eigenc::gsl_eigen_genv_workspace_work6_get", _wrap_gsl_eigen_genv_workspace_work6_get},
11426 {"Math::GSL::Eigenc::gsl_eigen_genv_workspace_Q_set", _wrap_gsl_eigen_genv_workspace_Q_set},
11427 {"Math::GSL::Eigenc::gsl_eigen_genv_workspace_Q_get", _wrap_gsl_eigen_genv_workspace_Q_get},
11428 {"Math::GSL::Eigenc::gsl_eigen_genv_workspace_Z_set", _wrap_gsl_eigen_genv_workspace_Z_set},
11429 {"Math::GSL::Eigenc::gsl_eigen_genv_workspace_Z_get", _wrap_gsl_eigen_genv_workspace_Z_get},
11430 {"Math::GSL::Eigenc::gsl_eigen_genv_workspace_gen_workspace_p_set", _wrap_gsl_eigen_genv_workspace_gen_workspace_p_set},
11431 {"Math::GSL::Eigenc::gsl_eigen_genv_workspace_gen_workspace_p_get", _wrap_gsl_eigen_genv_workspace_gen_workspace_p_get},
11432 {"Math::GSL::Eigenc::new_gsl_eigen_genv_workspace", _wrap_new_gsl_eigen_genv_workspace},
11433 {"Math::GSL::Eigenc::delete_gsl_eigen_genv_workspace", _wrap_delete_gsl_eigen_genv_workspace},
11434 {"Math::GSL::Eigenc::gsl_eigen_genv_alloc", _wrap_gsl_eigen_genv_alloc},
11435 {"Math::GSL::Eigenc::gsl_eigen_genv_free", _wrap_gsl_eigen_genv_free},
11436 {"Math::GSL::Eigenc::gsl_eigen_genv", _wrap_gsl_eigen_genv},
11437 {"Math::GSL::Eigenc::gsl_eigen_genv_QZ", _wrap_gsl_eigen_genv_QZ},
11438 {"Math::GSL::Eigenc::gsl_eigen_symmv_sort", _wrap_gsl_eigen_symmv_sort},
11439 {"Math::GSL::Eigenc::gsl_eigen_hermv_sort", _wrap_gsl_eigen_hermv_sort},
11440 {"Math::GSL::Eigenc::gsl_eigen_nonsymmv_sort", _wrap_gsl_eigen_nonsymmv_sort},
11441 {"Math::GSL::Eigenc::gsl_eigen_gensymmv_sort", _wrap_gsl_eigen_gensymmv_sort},
11442 {"Math::GSL::Eigenc::gsl_eigen_genhermv_sort", _wrap_gsl_eigen_genhermv_sort},
11443 {"Math::GSL::Eigenc::gsl_eigen_genv_sort", _wrap_gsl_eigen_genv_sort},
11444 {"Math::GSL::Eigenc::gsl_schur_gen_eigvals", _wrap_gsl_schur_gen_eigvals},
11445 {"Math::GSL::Eigenc::gsl_schur_solve_equation", _wrap_gsl_schur_solve_equation},
11446 {"Math::GSL::Eigenc::gsl_schur_solve_equation_z", _wrap_gsl_schur_solve_equation_z},
11447 {"Math::GSL::Eigenc::gsl_eigen_jacobi", _wrap_gsl_eigen_jacobi},
11448 {"Math::GSL::Eigenc::gsl_eigen_invert_jacobi", _wrap_gsl_eigen_invert_jacobi},
11449 {"Math::GSL::Eigenc::gsl_complex_dat_set", _wrap_gsl_complex_dat_set},
11450 {"Math::GSL::Eigenc::gsl_complex_dat_get", _wrap_gsl_complex_dat_get},
11451 {"Math::GSL::Eigenc::new_gsl_complex", _wrap_new_gsl_complex},
11452 {"Math::GSL::Eigenc::delete_gsl_complex", _wrap_delete_gsl_complex},
11453 {"Math::GSL::Eigenc::gsl_complex_long_double_dat_set", _wrap_gsl_complex_long_double_dat_set},
11454 {"Math::GSL::Eigenc::gsl_complex_long_double_dat_get", _wrap_gsl_complex_long_double_dat_get},
11455 {"Math::GSL::Eigenc::new_gsl_complex_long_double", _wrap_new_gsl_complex_long_double},
11456 {"Math::GSL::Eigenc::delete_gsl_complex_long_double", _wrap_delete_gsl_complex_long_double},
11457 {"Math::GSL::Eigenc::gsl_complex_float_dat_set", _wrap_gsl_complex_float_dat_set},
11458 {"Math::GSL::Eigenc::gsl_complex_float_dat_get", _wrap_gsl_complex_float_dat_get},
11459 {"Math::GSL::Eigenc::new_gsl_complex_float", _wrap_new_gsl_complex_float},
11460 {"Math::GSL::Eigenc::delete_gsl_complex_float", _wrap_delete_gsl_complex_float},
11461 {0,0}
11462 };
11463 /* -----------------------------------------------------------------------------
11464 * Type initialization:
11465 * This problem is tough by the requirement that no dynamic
11466 * memory is used. Also, since swig_type_info structures store pointers to
11467 * swig_cast_info structures and swig_cast_info structures store pointers back
11468 * to swig_type_info structures, we need some lookup code at initialization.
11469 * The idea is that swig generates all the structures that are needed.
11470 * The runtime then collects these partially filled structures.
11471 * The SWIG_InitializeModule function takes these initial arrays out of
11472 * swig_module, and does all the lookup, filling in the swig_module.types
11473 * array with the correct data and linking the correct swig_cast_info
11474 * structures together.
11475 *
11476 * The generated swig_type_info structures are assigned statically to an initial
11477 * array. We just loop through that array, and handle each type individually.
11478 * First we lookup if this type has been already loaded, and if so, use the
11479 * loaded structure instead of the generated one. Then we have to fill in the
11480 * cast linked list. The cast data is initially stored in something like a
11481 * two-dimensional array. Each row corresponds to a type (there are the same
11482 * number of rows as there are in the swig_type_initial array). Each entry in
11483 * a column is one of the swig_cast_info structures for that type.
11484 * The cast_initial array is actually an array of arrays, because each row has
11485 * a variable number of columns. So to actually build the cast linked list,
11486 * we find the array of casts associated with the type, and loop through it
11487 * adding the casts to the list. The one last trick we need to do is making
11488 * sure the type pointer in the swig_cast_info struct is correct.
11489 *
11490 * First off, we lookup the cast->type name to see if it is already loaded.
11491 * There are three cases to handle:
11492 * 1) If the cast->type has already been loaded AND the type we are adding
11493 * casting info to has not been loaded (it is in this module), THEN we
11494 * replace the cast->type pointer with the type pointer that has already
11495 * been loaded.
11496 * 2) If BOTH types (the one we are adding casting info to, and the
11497 * cast->type) are loaded, THEN the cast info has already been loaded by
11498 * the previous module so we just ignore it.
11499 * 3) Finally, if cast->type has not already been loaded, then we add that
11500 * swig_cast_info to the linked list (because the cast->type) pointer will
11501 * be correct.
11502 * ----------------------------------------------------------------------------- */
11503
11504 #ifdef __cplusplus
11505 extern "C" {
11506 #if 0
11507 } /* c-mode */
11508 #endif
11509 #endif
11510
11511 #if 0
11512 #define SWIGRUNTIME_DEBUG
11513 #endif
11514
11515
11516 SWIGRUNTIME void
SWIG_InitializeModule(void * clientdata)11517 SWIG_InitializeModule(void *clientdata) {
11518 size_t i;
11519 swig_module_info *module_head, *iter;
11520 int init;
11521
11522 /* check to see if the circular list has been setup, if not, set it up */
11523 if (swig_module.next==0) {
11524 /* Initialize the swig_module */
11525 swig_module.type_initial = swig_type_initial;
11526 swig_module.cast_initial = swig_cast_initial;
11527 swig_module.next = &swig_module;
11528 init = 1;
11529 } else {
11530 init = 0;
11531 }
11532
11533 /* Try and load any already created modules */
11534 module_head = SWIG_GetModule(clientdata);
11535 if (!module_head) {
11536 /* This is the first module loaded for this interpreter */
11537 /* so set the swig module into the interpreter */
11538 SWIG_SetModule(clientdata, &swig_module);
11539 } else {
11540 /* the interpreter has loaded a SWIG module, but has it loaded this one? */
11541 iter=module_head;
11542 do {
11543 if (iter==&swig_module) {
11544 /* Our module is already in the list, so there's nothing more to do. */
11545 return;
11546 }
11547 iter=iter->next;
11548 } while (iter!= module_head);
11549
11550 /* otherwise we must add our module into the list */
11551 swig_module.next = module_head->next;
11552 module_head->next = &swig_module;
11553 }
11554
11555 /* When multiple interpreters are used, a module could have already been initialized in
11556 a different interpreter, but not yet have a pointer in this interpreter.
11557 In this case, we do not want to continue adding types... everything should be
11558 set up already */
11559 if (init == 0) return;
11560
11561 /* Now work on filling in swig_module.types */
11562 #ifdef SWIGRUNTIME_DEBUG
11563 printf("SWIG_InitializeModule: size %lu\n", (unsigned long)swig_module.size);
11564 #endif
11565 for (i = 0; i < swig_module.size; ++i) {
11566 swig_type_info *type = 0;
11567 swig_type_info *ret;
11568 swig_cast_info *cast;
11569
11570 #ifdef SWIGRUNTIME_DEBUG
11571 printf("SWIG_InitializeModule: type %lu %s\n", (unsigned long)i, swig_module.type_initial[i]->name);
11572 #endif
11573
11574 /* if there is another module already loaded */
11575 if (swig_module.next != &swig_module) {
11576 type = SWIG_MangledTypeQueryModule(swig_module.next, &swig_module, swig_module.type_initial[i]->name);
11577 }
11578 if (type) {
11579 /* Overwrite clientdata field */
11580 #ifdef SWIGRUNTIME_DEBUG
11581 printf("SWIG_InitializeModule: found type %s\n", type->name);
11582 #endif
11583 if (swig_module.type_initial[i]->clientdata) {
11584 type->clientdata = swig_module.type_initial[i]->clientdata;
11585 #ifdef SWIGRUNTIME_DEBUG
11586 printf("SWIG_InitializeModule: found and overwrite type %s \n", type->name);
11587 #endif
11588 }
11589 } else {
11590 type = swig_module.type_initial[i];
11591 }
11592
11593 /* Insert casting types */
11594 cast = swig_module.cast_initial[i];
11595 while (cast->type) {
11596 /* Don't need to add information already in the list */
11597 ret = 0;
11598 #ifdef SWIGRUNTIME_DEBUG
11599 printf("SWIG_InitializeModule: look cast %s\n", cast->type->name);
11600 #endif
11601 if (swig_module.next != &swig_module) {
11602 ret = SWIG_MangledTypeQueryModule(swig_module.next, &swig_module, cast->type->name);
11603 #ifdef SWIGRUNTIME_DEBUG
11604 if (ret) printf("SWIG_InitializeModule: found cast %s\n", ret->name);
11605 #endif
11606 }
11607 if (ret) {
11608 if (type == swig_module.type_initial[i]) {
11609 #ifdef SWIGRUNTIME_DEBUG
11610 printf("SWIG_InitializeModule: skip old type %s\n", ret->name);
11611 #endif
11612 cast->type = ret;
11613 ret = 0;
11614 } else {
11615 /* Check for casting already in the list */
11616 swig_cast_info *ocast = SWIG_TypeCheck(ret->name, type);
11617 #ifdef SWIGRUNTIME_DEBUG
11618 if (ocast) printf("SWIG_InitializeModule: skip old cast %s\n", ret->name);
11619 #endif
11620 if (!ocast) ret = 0;
11621 }
11622 }
11623
11624 if (!ret) {
11625 #ifdef SWIGRUNTIME_DEBUG
11626 printf("SWIG_InitializeModule: adding cast %s\n", cast->type->name);
11627 #endif
11628 if (type->cast) {
11629 type->cast->prev = cast;
11630 cast->next = type->cast;
11631 }
11632 type->cast = cast;
11633 }
11634 cast++;
11635 }
11636 /* Set entry in modules->types array equal to the type */
11637 swig_module.types[i] = type;
11638 }
11639 swig_module.types[i] = 0;
11640
11641 #ifdef SWIGRUNTIME_DEBUG
11642 printf("**** SWIG_InitializeModule: Cast List ******\n");
11643 for (i = 0; i < swig_module.size; ++i) {
11644 int j = 0;
11645 swig_cast_info *cast = swig_module.cast_initial[i];
11646 printf("SWIG_InitializeModule: type %lu %s\n", (unsigned long)i, swig_module.type_initial[i]->name);
11647 while (cast->type) {
11648 printf("SWIG_InitializeModule: cast type %s\n", cast->type->name);
11649 cast++;
11650 ++j;
11651 }
11652 printf("---- Total casts: %d\n",j);
11653 }
11654 printf("**** SWIG_InitializeModule: Cast List ******\n");
11655 #endif
11656 }
11657
11658 /* This function will propagate the clientdata field of type to
11659 * any new swig_type_info structures that have been added into the list
11660 * of equivalent types. It is like calling
11661 * SWIG_TypeClientData(type, clientdata) a second time.
11662 */
11663 SWIGRUNTIME void
SWIG_PropagateClientData(void)11664 SWIG_PropagateClientData(void) {
11665 size_t i;
11666 swig_cast_info *equiv;
11667 static int init_run = 0;
11668
11669 if (init_run) return;
11670 init_run = 1;
11671
11672 for (i = 0; i < swig_module.size; i++) {
11673 if (swig_module.types[i]->clientdata) {
11674 equiv = swig_module.types[i]->cast;
11675 while (equiv) {
11676 if (!equiv->converter) {
11677 if (equiv->type && !equiv->type->clientdata)
11678 SWIG_TypeClientData(equiv->type, swig_module.types[i]->clientdata);
11679 }
11680 equiv = equiv->next;
11681 }
11682 }
11683 }
11684 }
11685
11686 #ifdef __cplusplus
11687 #if 0
11688 {
11689 /* c-mode */
11690 #endif
11691 }
11692 #endif
11693
11694
11695
11696 #if defined(__cplusplus) && ! defined(XSPROTO)
11697 extern "C"
11698 #endif
11699
XS(SWIG_init)11700 XS(SWIG_init) {
11701 dXSARGS;
11702 int i;
11703 (void)items;
11704
11705 SWIG_InitializeModule(0);
11706
11707 /* Install commands */
11708 for (i = 0; swig_commands[i].name; i++) {
11709 /* Casts only needed for Perl < 5.10. */
11710 #ifdef __cplusplus
11711 newXS(const_cast<char*>(swig_commands[i].name), swig_commands[i].wrapper, const_cast<char*>(__FILE__));
11712 #else
11713 newXS((char*)swig_commands[i].name, swig_commands[i].wrapper, (char*)__FILE__);
11714 #endif
11715 }
11716
11717 /* Install variables */
11718 for (i = 0; swig_variables[i].name; i++) {
11719 SV *sv;
11720 sv = get_sv(swig_variables[i].name, TRUE | 0x2 | GV_ADDMULTI);
11721 if (swig_variables[i].type) {
11722 SWIG_MakePtr(sv,(void *)1, *swig_variables[i].type,0);
11723 } else {
11724 sv_setiv(sv,(IV) 0);
11725 }
11726 swig_create_magic(sv, swig_variables[i].name, swig_variables[i].set, swig_variables[i].get);
11727 }
11728
11729 /* Install constant */
11730 for (i = 0; swig_constants[i].type; i++) {
11731 SV *sv;
11732 sv = get_sv(swig_constants[i].name, TRUE | 0x2 | GV_ADDMULTI);
11733 switch(swig_constants[i].type) {
11734 case SWIG_INT:
11735 sv_setiv(sv, (IV) swig_constants[i].lvalue);
11736 break;
11737 case SWIG_FLOAT:
11738 sv_setnv(sv, (double) swig_constants[i].dvalue);
11739 break;
11740 case SWIG_STRING:
11741 sv_setpv(sv, (const char *) swig_constants[i].pvalue);
11742 break;
11743 case SWIG_POINTER:
11744 SWIG_MakePtr(sv, swig_constants[i].pvalue, *(swig_constants[i].ptype),0);
11745 break;
11746 case SWIG_BINARY:
11747 SWIG_MakePackedObj(sv, swig_constants[i].pvalue, swig_constants[i].lvalue, *(swig_constants[i].ptype));
11748 break;
11749 default:
11750 break;
11751 }
11752 SvREADONLY_on(sv);
11753 }
11754
11755 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
11756 SV *sv = get_sv((char*) SWIG_prefix "GSL_VERSION", TRUE | 0x2 | GV_ADDMULTI);
11757 sv_setsv(sv, SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(2.7)));
11758 SvREADONLY_on(sv);
11759 } while(0) /*@SWIG@*/;
11760 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
11761 SV *sv = get_sv((char*) SWIG_prefix "GSL_MAJOR_VERSION", TRUE | 0x2 | GV_ADDMULTI);
11762 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(2)));
11763 SvREADONLY_on(sv);
11764 } while(0) /*@SWIG@*/;
11765 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
11766 SV *sv = get_sv((char*) SWIG_prefix "GSL_MINOR_VERSION", TRUE | 0x2 | GV_ADDMULTI);
11767 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(7)));
11768 SvREADONLY_on(sv);
11769 } while(0) /*@SWIG@*/;
11770 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
11771 SV *sv = get_sv((char*) SWIG_prefix "GSL_POSZERO", TRUE | 0x2 | GV_ADDMULTI);
11772 sv_setsv(sv, SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)((+0.0))));
11773 SvREADONLY_on(sv);
11774 } while(0) /*@SWIG@*/;
11775 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
11776 SV *sv = get_sv((char*) SWIG_prefix "GSL_NEGZERO", TRUE | 0x2 | GV_ADDMULTI);
11777 sv_setsv(sv, SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)((-0.0))));
11778 SvREADONLY_on(sv);
11779 } while(0) /*@SWIG@*/;
11780 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
11781 SV *sv = get_sv((char*) SWIG_prefix "GSL_SUCCESS", TRUE | 0x2 | GV_ADDMULTI);
11782 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_SUCCESS)));
11783 SvREADONLY_on(sv);
11784 } while(0) /*@SWIG@*/;
11785 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
11786 SV *sv = get_sv((char*) SWIG_prefix "GSL_FAILURE", TRUE | 0x2 | GV_ADDMULTI);
11787 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_FAILURE)));
11788 SvREADONLY_on(sv);
11789 } while(0) /*@SWIG@*/;
11790 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
11791 SV *sv = get_sv((char*) SWIG_prefix "GSL_CONTINUE", TRUE | 0x2 | GV_ADDMULTI);
11792 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_CONTINUE)));
11793 SvREADONLY_on(sv);
11794 } while(0) /*@SWIG@*/;
11795 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
11796 SV *sv = get_sv((char*) SWIG_prefix "GSL_EDOM", TRUE | 0x2 | GV_ADDMULTI);
11797 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EDOM)));
11798 SvREADONLY_on(sv);
11799 } while(0) /*@SWIG@*/;
11800 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
11801 SV *sv = get_sv((char*) SWIG_prefix "GSL_ERANGE", TRUE | 0x2 | GV_ADDMULTI);
11802 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ERANGE)));
11803 SvREADONLY_on(sv);
11804 } while(0) /*@SWIG@*/;
11805 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
11806 SV *sv = get_sv((char*) SWIG_prefix "GSL_EFAULT", TRUE | 0x2 | GV_ADDMULTI);
11807 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EFAULT)));
11808 SvREADONLY_on(sv);
11809 } while(0) /*@SWIG@*/;
11810 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
11811 SV *sv = get_sv((char*) SWIG_prefix "GSL_EINVAL", TRUE | 0x2 | GV_ADDMULTI);
11812 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EINVAL)));
11813 SvREADONLY_on(sv);
11814 } while(0) /*@SWIG@*/;
11815 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
11816 SV *sv = get_sv((char*) SWIG_prefix "GSL_EFAILED", TRUE | 0x2 | GV_ADDMULTI);
11817 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EFAILED)));
11818 SvREADONLY_on(sv);
11819 } while(0) /*@SWIG@*/;
11820 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
11821 SV *sv = get_sv((char*) SWIG_prefix "GSL_EFACTOR", TRUE | 0x2 | GV_ADDMULTI);
11822 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EFACTOR)));
11823 SvREADONLY_on(sv);
11824 } while(0) /*@SWIG@*/;
11825 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
11826 SV *sv = get_sv((char*) SWIG_prefix "GSL_ESANITY", TRUE | 0x2 | GV_ADDMULTI);
11827 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ESANITY)));
11828 SvREADONLY_on(sv);
11829 } while(0) /*@SWIG@*/;
11830 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
11831 SV *sv = get_sv((char*) SWIG_prefix "GSL_ENOMEM", TRUE | 0x2 | GV_ADDMULTI);
11832 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ENOMEM)));
11833 SvREADONLY_on(sv);
11834 } while(0) /*@SWIG@*/;
11835 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
11836 SV *sv = get_sv((char*) SWIG_prefix "GSL_EBADFUNC", TRUE | 0x2 | GV_ADDMULTI);
11837 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EBADFUNC)));
11838 SvREADONLY_on(sv);
11839 } while(0) /*@SWIG@*/;
11840 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
11841 SV *sv = get_sv((char*) SWIG_prefix "GSL_ERUNAWAY", TRUE | 0x2 | GV_ADDMULTI);
11842 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ERUNAWAY)));
11843 SvREADONLY_on(sv);
11844 } while(0) /*@SWIG@*/;
11845 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
11846 SV *sv = get_sv((char*) SWIG_prefix "GSL_EMAXITER", TRUE | 0x2 | GV_ADDMULTI);
11847 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EMAXITER)));
11848 SvREADONLY_on(sv);
11849 } while(0) /*@SWIG@*/;
11850 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
11851 SV *sv = get_sv((char*) SWIG_prefix "GSL_EZERODIV", TRUE | 0x2 | GV_ADDMULTI);
11852 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EZERODIV)));
11853 SvREADONLY_on(sv);
11854 } while(0) /*@SWIG@*/;
11855 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
11856 SV *sv = get_sv((char*) SWIG_prefix "GSL_EBADTOL", TRUE | 0x2 | GV_ADDMULTI);
11857 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EBADTOL)));
11858 SvREADONLY_on(sv);
11859 } while(0) /*@SWIG@*/;
11860 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
11861 SV *sv = get_sv((char*) SWIG_prefix "GSL_ETOL", TRUE | 0x2 | GV_ADDMULTI);
11862 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ETOL)));
11863 SvREADONLY_on(sv);
11864 } while(0) /*@SWIG@*/;
11865 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
11866 SV *sv = get_sv((char*) SWIG_prefix "GSL_EUNDRFLW", TRUE | 0x2 | GV_ADDMULTI);
11867 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EUNDRFLW)));
11868 SvREADONLY_on(sv);
11869 } while(0) /*@SWIG@*/;
11870 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
11871 SV *sv = get_sv((char*) SWIG_prefix "GSL_EOVRFLW", TRUE | 0x2 | GV_ADDMULTI);
11872 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EOVRFLW)));
11873 SvREADONLY_on(sv);
11874 } while(0) /*@SWIG@*/;
11875 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
11876 SV *sv = get_sv((char*) SWIG_prefix "GSL_ELOSS", TRUE | 0x2 | GV_ADDMULTI);
11877 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ELOSS)));
11878 SvREADONLY_on(sv);
11879 } while(0) /*@SWIG@*/;
11880 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
11881 SV *sv = get_sv((char*) SWIG_prefix "GSL_EROUND", TRUE | 0x2 | GV_ADDMULTI);
11882 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EROUND)));
11883 SvREADONLY_on(sv);
11884 } while(0) /*@SWIG@*/;
11885 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
11886 SV *sv = get_sv((char*) SWIG_prefix "GSL_EBADLEN", TRUE | 0x2 | GV_ADDMULTI);
11887 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EBADLEN)));
11888 SvREADONLY_on(sv);
11889 } while(0) /*@SWIG@*/;
11890 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
11891 SV *sv = get_sv((char*) SWIG_prefix "GSL_ENOTSQR", TRUE | 0x2 | GV_ADDMULTI);
11892 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ENOTSQR)));
11893 SvREADONLY_on(sv);
11894 } while(0) /*@SWIG@*/;
11895 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
11896 SV *sv = get_sv((char*) SWIG_prefix "GSL_ESING", TRUE | 0x2 | GV_ADDMULTI);
11897 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ESING)));
11898 SvREADONLY_on(sv);
11899 } while(0) /*@SWIG@*/;
11900 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
11901 SV *sv = get_sv((char*) SWIG_prefix "GSL_EDIVERGE", TRUE | 0x2 | GV_ADDMULTI);
11902 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EDIVERGE)));
11903 SvREADONLY_on(sv);
11904 } while(0) /*@SWIG@*/;
11905 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
11906 SV *sv = get_sv((char*) SWIG_prefix "GSL_EUNSUP", TRUE | 0x2 | GV_ADDMULTI);
11907 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EUNSUP)));
11908 SvREADONLY_on(sv);
11909 } while(0) /*@SWIG@*/;
11910 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
11911 SV *sv = get_sv((char*) SWIG_prefix "GSL_EUNIMPL", TRUE | 0x2 | GV_ADDMULTI);
11912 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EUNIMPL)));
11913 SvREADONLY_on(sv);
11914 } while(0) /*@SWIG@*/;
11915 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
11916 SV *sv = get_sv((char*) SWIG_prefix "GSL_ECACHE", TRUE | 0x2 | GV_ADDMULTI);
11917 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ECACHE)));
11918 SvREADONLY_on(sv);
11919 } while(0) /*@SWIG@*/;
11920 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
11921 SV *sv = get_sv((char*) SWIG_prefix "GSL_ETABLE", TRUE | 0x2 | GV_ADDMULTI);
11922 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ETABLE)));
11923 SvREADONLY_on(sv);
11924 } while(0) /*@SWIG@*/;
11925 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
11926 SV *sv = get_sv((char*) SWIG_prefix "GSL_ENOPROG", TRUE | 0x2 | GV_ADDMULTI);
11927 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ENOPROG)));
11928 SvREADONLY_on(sv);
11929 } while(0) /*@SWIG@*/;
11930 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
11931 SV *sv = get_sv((char*) SWIG_prefix "GSL_ENOPROGJ", TRUE | 0x2 | GV_ADDMULTI);
11932 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ENOPROGJ)));
11933 SvREADONLY_on(sv);
11934 } while(0) /*@SWIG@*/;
11935 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
11936 SV *sv = get_sv((char*) SWIG_prefix "GSL_ETOLF", TRUE | 0x2 | GV_ADDMULTI);
11937 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ETOLF)));
11938 SvREADONLY_on(sv);
11939 } while(0) /*@SWIG@*/;
11940 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
11941 SV *sv = get_sv((char*) SWIG_prefix "GSL_ETOLX", TRUE | 0x2 | GV_ADDMULTI);
11942 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ETOLX)));
11943 SvREADONLY_on(sv);
11944 } while(0) /*@SWIG@*/;
11945 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
11946 SV *sv = get_sv((char*) SWIG_prefix "GSL_ETOLG", TRUE | 0x2 | GV_ADDMULTI);
11947 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ETOLG)));
11948 SvREADONLY_on(sv);
11949 } while(0) /*@SWIG@*/;
11950 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
11951 SV *sv = get_sv((char*) SWIG_prefix "GSL_EOF", TRUE | 0x2 | GV_ADDMULTI);
11952 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EOF)));
11953 SvREADONLY_on(sv);
11954 } while(0) /*@SWIG@*/;
11955 SWIG_TypeClientData(SWIGTYPE_p_gsl_eigen_symm_workspace, (void*) "Math::GSL::Eigen::gsl_eigen_symm_workspace");
11956 SWIG_TypeClientData(SWIGTYPE_p_gsl_eigen_symmv_workspace, (void*) "Math::GSL::Eigen::gsl_eigen_symmv_workspace");
11957 SWIG_TypeClientData(SWIGTYPE_p_gsl_eigen_herm_workspace, (void*) "Math::GSL::Eigen::gsl_eigen_herm_workspace");
11958 SWIG_TypeClientData(SWIGTYPE_p_gsl_eigen_hermv_workspace, (void*) "Math::GSL::Eigen::gsl_eigen_hermv_workspace");
11959 SWIG_TypeClientData(SWIGTYPE_p_gsl_eigen_francis_workspace, (void*) "Math::GSL::Eigen::gsl_eigen_francis_workspace");
11960 SWIG_TypeClientData(SWIGTYPE_p_gsl_eigen_nonsymm_workspace, (void*) "Math::GSL::Eigen::gsl_eigen_nonsymm_workspace");
11961 SWIG_TypeClientData(SWIGTYPE_p_gsl_eigen_nonsymmv_workspace, (void*) "Math::GSL::Eigen::gsl_eigen_nonsymmv_workspace");
11962 SWIG_TypeClientData(SWIGTYPE_p_gsl_eigen_gensymm_workspace, (void*) "Math::GSL::Eigen::gsl_eigen_gensymm_workspace");
11963 SWIG_TypeClientData(SWIGTYPE_p_gsl_eigen_gensymmv_workspace, (void*) "Math::GSL::Eigen::gsl_eigen_gensymmv_workspace");
11964 SWIG_TypeClientData(SWIGTYPE_p_gsl_eigen_genherm_workspace, (void*) "Math::GSL::Eigen::gsl_eigen_genherm_workspace");
11965 SWIG_TypeClientData(SWIGTYPE_p_gsl_eigen_genhermv_workspace, (void*) "Math::GSL::Eigen::gsl_eigen_genhermv_workspace");
11966 SWIG_TypeClientData(SWIGTYPE_p_gsl_eigen_gen_workspace, (void*) "Math::GSL::Eigen::gsl_eigen_gen_workspace");
11967 SWIG_TypeClientData(SWIGTYPE_p_gsl_eigen_genv_workspace, (void*) "Math::GSL::Eigen::gsl_eigen_genv_workspace");
11968 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
11969 SV *sv = get_sv((char*) SWIG_prefix "GSL_EIGEN_SORT_VAL_ASC", TRUE | 0x2 | GV_ADDMULTI);
11970 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EIGEN_SORT_VAL_ASC)));
11971 SvREADONLY_on(sv);
11972 } while(0) /*@SWIG@*/;
11973 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
11974 SV *sv = get_sv((char*) SWIG_prefix "GSL_EIGEN_SORT_VAL_DESC", TRUE | 0x2 | GV_ADDMULTI);
11975 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EIGEN_SORT_VAL_DESC)));
11976 SvREADONLY_on(sv);
11977 } while(0) /*@SWIG@*/;
11978 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
11979 SV *sv = get_sv((char*) SWIG_prefix "GSL_EIGEN_SORT_ABS_ASC", TRUE | 0x2 | GV_ADDMULTI);
11980 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EIGEN_SORT_ABS_ASC)));
11981 SvREADONLY_on(sv);
11982 } while(0) /*@SWIG@*/;
11983 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
11984 SV *sv = get_sv((char*) SWIG_prefix "GSL_EIGEN_SORT_ABS_DESC", TRUE | 0x2 | GV_ADDMULTI);
11985 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EIGEN_SORT_ABS_DESC)));
11986 SvREADONLY_on(sv);
11987 } while(0) /*@SWIG@*/;
11988 SWIG_TypeClientData(SWIGTYPE_p_gsl_complex, (void*) "Math::GSL::Eigen::gsl_complex");
11989 SWIG_TypeClientData(SWIGTYPE_p_gsl_complex_long_double, (void*) "Math::GSL::Eigen::gsl_complex_long_double");
11990 SWIG_TypeClientData(SWIGTYPE_p_gsl_complex_float, (void*) "Math::GSL::Eigen::gsl_complex_float");
11991 ST(0) = &PL_sv_yes;
11992 XSRETURN(1);
11993 }
11994
11995