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_CBLAS_DIAG swig_types[0]
1520 #define SWIGTYPE_p_CBLAS_INDEX swig_types[1]
1521 #define SWIGTYPE_p_CBLAS_ORDER swig_types[2]
1522 #define SWIGTYPE_p_CBLAS_SIDE swig_types[3]
1523 #define SWIGTYPE_p_CBLAS_TRANSPOSE swig_types[4]
1524 #define SWIGTYPE_p_CBLAS_UPLO swig_types[5]
1525 #define SWIGTYPE_p_FILE swig_types[6]
1526 #define SWIGTYPE_p_char swig_types[7]
1527 #define SWIGTYPE_p_double swig_types[8]
1528 #define SWIGTYPE_p_f_p_q_const__char_p_q_const__char_int_int__void swig_types[9]
1529 #define SWIGTYPE_p_f_p_q_const__char_p_q_const__char_int_p_q_const__char__void swig_types[10]
1530 #define SWIGTYPE_p_float swig_types[11]
1531 #define SWIGTYPE_p_gsl_complex swig_types[12]
1532 #define SWIGTYPE_p_gsl_complex_float swig_types[13]
1533 #define SWIGTYPE_p_gsl_matrix swig_types[14]
1534 #define SWIGTYPE_p_gsl_matrix_complex swig_types[15]
1535 #define SWIGTYPE_p_gsl_matrix_complex_float swig_types[16]
1536 #define SWIGTYPE_p_gsl_matrix_float swig_types[17]
1537 #define SWIGTYPE_p_gsl_vector swig_types[18]
1538 #define SWIGTYPE_p_gsl_vector_complex swig_types[19]
1539 #define SWIGTYPE_p_gsl_vector_complex_float swig_types[20]
1540 #define SWIGTYPE_p_gsl_vector_float swig_types[21]
1541 static swig_type_info *swig_types[23];
1542 static swig_module_info swig_module = {swig_types, 22, 0, 0, 0, 0};
1543 #define SWIG_TypeQuery(name) SWIG_TypeQueryModule(&swig_module, &swig_module, name)
1544 #define SWIG_MangledTypeQuery(name) SWIG_MangledTypeQueryModule(&swig_module, &swig_module, name)
1545
1546 /* -------- TYPES TABLE (END) -------- */
1547
1548 #define SWIG_init boot_Math__GSL__BLAS
1549
1550 #define SWIG_name "Math::GSL::BLASc::boot_Math__GSL__BLAS"
1551 #define SWIG_prefix "Math::GSL::BLASc::"
1552
1553 #define SWIGVERSION 0x040001
1554 #define SWIG_VERSION SWIGVERSION
1555
1556
1557 #define SWIG_as_voidptr(a) (void *)((const void *)(a))
1558 #define SWIG_as_voidptrptr(a) ((void)SWIG_as_voidptr(*a),(void**)(a))
1559
1560
1561 #ifdef __cplusplus
1562 extern "C"
1563 #endif
1564 #ifndef PERL_OBJECT
1565 #ifndef MULTIPLICITY
1566 SWIGEXPORT void SWIG_init (CV* cv);
1567 #else
1568 SWIGEXPORT void SWIG_init (pTHXo_ CV* cv);
1569 #endif
1570 #else
1571 SWIGEXPORT void SWIG_init (CV *cv, CPerlObj *);
1572 #endif
1573
1574
1575 SWIGINTERNINLINE SV *
SWIG_PERL_DECL_ARGS_1(double value)1576 SWIG_From_double SWIG_PERL_DECL_ARGS_1(double value)
1577 {
1578 return sv_2mortal(newSVnv(value));
1579 }
1580
1581
1582 SWIGINTERNINLINE SV *
SWIG_PERL_DECL_ARGS_1(long value)1583 SWIG_From_long SWIG_PERL_DECL_ARGS_1(long value)
1584 {
1585 SV *sv;
1586 if (IVSIZE >= sizeof(value) || (value >= IV_MIN && value <= IV_MAX))
1587 sv = newSViv(value);
1588 else
1589 sv = newSVpvf("%ld", value);
1590 return sv_2mortal(sv);
1591 }
1592
1593
1594 SWIGINTERNINLINE SV *
SWIG_PERL_DECL_ARGS_1(int value)1595 SWIG_From_int SWIG_PERL_DECL_ARGS_1(int value)
1596 {
1597 return SWIG_From_long SWIG_PERL_CALL_ARGS_1(value);
1598 }
1599
1600
1601 SWIGINTERN swig_type_info*
SWIG_pchar_descriptor(void)1602 SWIG_pchar_descriptor(void)
1603 {
1604 static int init = 0;
1605 static swig_type_info* info = 0;
1606 if (!init) {
1607 info = SWIG_TypeQuery("_p_char");
1608 init = 1;
1609 }
1610 return info;
1611 }
1612
1613
1614 SWIGINTERN int
SWIG_AsCharPtrAndSize(SV * obj,char ** cptr,size_t * psize,int * alloc)1615 SWIG_AsCharPtrAndSize(SV *obj, char** cptr, size_t* psize, int *alloc)
1616 {
1617 if (SvMAGICAL(obj)) {
1618 SV *tmp = sv_newmortal();
1619 SvSetSV(tmp, obj);
1620 obj = tmp;
1621 }
1622 if (SvPOK(obj)) {
1623 STRLEN len = 0;
1624 char *cstr = SvPV(obj, len);
1625 size_t size = len + 1;
1626 if (cptr) {
1627 if (alloc) {
1628 if (*alloc == SWIG_NEWOBJ) {
1629 *cptr = (char *)memcpy(malloc((size)*sizeof(char)), cstr, sizeof(char)*(size));
1630 } else {
1631 *cptr = cstr;
1632 *alloc = SWIG_OLDOBJ;
1633 }
1634 }
1635 }
1636 if (psize) *psize = size;
1637 return SWIG_OK;
1638 } else {
1639 swig_type_info* pchar_descriptor = SWIG_pchar_descriptor();
1640 if (pchar_descriptor) {
1641 char* vptr = 0;
1642 if (SWIG_ConvertPtr(obj, (void**)&vptr, pchar_descriptor, 0) == SWIG_OK) {
1643 if (cptr) *cptr = vptr;
1644 if (psize) *psize = vptr ? (strlen(vptr) + 1) : 0;
1645 if (alloc) *alloc = SWIG_OLDOBJ;
1646 return SWIG_OK;
1647 }
1648 }
1649 }
1650 return SWIG_TypeError;
1651 }
1652
1653
1654
1655
1656
1657 #include <limits.h>
1658 #if !defined(SWIG_NO_LLONG_MAX)
1659 # if !defined(LLONG_MAX) && defined(__GNUC__) && defined (__LONG_LONG_MAX__)
1660 # define LLONG_MAX __LONG_LONG_MAX__
1661 # define LLONG_MIN (-LLONG_MAX - 1LL)
1662 # define ULLONG_MAX (LLONG_MAX * 2ULL + 1ULL)
1663 # endif
1664 #endif
1665
1666
1667 #include <stdlib.h>
1668 #ifdef _MSC_VER
1669 # ifndef strtoull
1670 # define strtoull _strtoui64
1671 # endif
1672 # ifndef strtoll
1673 # define strtoll _strtoi64
1674 # endif
1675 #endif
1676
1677
1678 SWIGINTERN int
SWIG_PERL_DECL_ARGS_2(SV * obj,double * val)1679 SWIG_AsVal_double SWIG_PERL_DECL_ARGS_2(SV *obj, double *val)
1680 {
1681 if (SvNIOK(obj)) {
1682 if (val) *val = SvNV(obj);
1683 return SWIG_OK;
1684 } else if (SvIOK(obj)) {
1685 if (val) *val = (double) SvIV(obj);
1686 return SWIG_AddCast(SWIG_OK);
1687 } else {
1688 const char *nptr = SvPV_nolen(obj);
1689 if (nptr) {
1690 char *endptr;
1691 double v;
1692 errno = 0;
1693 v = strtod(nptr, &endptr);
1694 if (errno == ERANGE) {
1695 errno = 0;
1696 return SWIG_OverflowError;
1697 } else {
1698 if (*endptr == '\0') {
1699 if (val) *val = v;
1700 return SWIG_Str2NumCast(SWIG_OK);
1701 }
1702 }
1703 }
1704 }
1705 return SWIG_TypeError;
1706 }
1707
1708
1709 #include <float.h>
1710
1711
1712 #include <math.h>
1713
1714
1715 SWIGINTERNINLINE int
SWIG_CanCastAsInteger(double * d,double min,double max)1716 SWIG_CanCastAsInteger(double *d, double min, double max) {
1717 double x = *d;
1718 if ((min <= x && x <= max)) {
1719 double fx = floor(x);
1720 double cx = ceil(x);
1721 double rd = ((x - fx) < 0.5) ? fx : cx; /* simple rint */
1722 if ((errno == EDOM) || (errno == ERANGE)) {
1723 errno = 0;
1724 } else {
1725 double summ, reps, diff;
1726 if (rd < x) {
1727 diff = x - rd;
1728 } else if (rd > x) {
1729 diff = rd - x;
1730 } else {
1731 return 1;
1732 }
1733 summ = rd + x;
1734 reps = diff/summ;
1735 if (reps < 8*DBL_EPSILON) {
1736 *d = rd;
1737 return 1;
1738 }
1739 }
1740 }
1741 return 0;
1742 }
1743
1744
1745 SWIGINTERN int
SWIG_PERL_DECL_ARGS_2(SV * obj,long * val)1746 SWIG_AsVal_long SWIG_PERL_DECL_ARGS_2(SV *obj, long* val)
1747 {
1748 if (SvUOK(obj)) {
1749 UV v = SvUV(obj);
1750 if (UVSIZE < sizeof(*val) || v <= LONG_MAX) {
1751 if (val) *val = v;
1752 return SWIG_OK;
1753 }
1754 return SWIG_OverflowError;
1755 } else if (SvIOK(obj)) {
1756 IV v = SvIV(obj);
1757 if (IVSIZE <= sizeof(*val) || (v >= LONG_MIN && v <= LONG_MAX)) {
1758 if(val) *val = v;
1759 return SWIG_OK;
1760 }
1761 return SWIG_OverflowError;
1762 } else {
1763 int dispatch = 0;
1764 const char *nptr = SvPV_nolen(obj);
1765 if (nptr) {
1766 char *endptr;
1767 long v;
1768 errno = 0;
1769 v = strtol(nptr, &endptr,0);
1770 if (errno == ERANGE) {
1771 errno = 0;
1772 return SWIG_OverflowError;
1773 } else {
1774 if (*endptr == '\0') {
1775 if (val) *val = v;
1776 return SWIG_Str2NumCast(SWIG_OK);
1777 }
1778 }
1779 }
1780 if (!dispatch) {
1781 double d;
1782 int res = SWIG_AddCast(SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(obj,&d));
1783 if (SWIG_IsOK(res) && SWIG_CanCastAsInteger(&d, LONG_MIN, LONG_MAX)) {
1784 if (val) *val = (long)(d);
1785 return res;
1786 }
1787 }
1788 }
1789 return SWIG_TypeError;
1790 }
1791
1792
1793 SWIGINTERN int
SWIG_PERL_DECL_ARGS_2(SV * obj,int * val)1794 SWIG_AsVal_int SWIG_PERL_DECL_ARGS_2(SV * obj, int *val)
1795 {
1796 long v;
1797 int res = SWIG_AsVal_long SWIG_PERL_CALL_ARGS_2(obj, &v);
1798 if (SWIG_IsOK(res)) {
1799 if ((v < INT_MIN || v > INT_MAX)) {
1800 return SWIG_OverflowError;
1801 } else {
1802 if (val) *val = (int)(v);
1803 }
1804 }
1805 return res;
1806 }
1807
1808
1809 SWIGINTERNINLINE SV *
SWIG_FromCharPtrAndSize(const char * carray,size_t size)1810 SWIG_FromCharPtrAndSize(const char* carray, size_t size)
1811 {
1812 SV *obj = sv_newmortal();
1813 if (carray) {
1814 sv_setpvn(obj, carray, size);
1815 } else {
1816 sv_setsv(obj, &PL_sv_undef);
1817 }
1818 return obj;
1819 }
1820
1821
1822 SWIGINTERNINLINE SV *
SWIG_FromCharPtr(const char * cptr)1823 SWIG_FromCharPtr(const char *cptr)
1824 {
1825 return SWIG_FromCharPtrAndSize(cptr, (cptr ? strlen(cptr) : 0));
1826 }
1827
1828
1829 #include "gsl/gsl_nan.h"
1830 #include "gsl/gsl_errno.h"
1831 #include "gsl/gsl_math.h"
1832 #include "gsl/gsl_monte.h"
1833
1834
1835 struct perl_array {
1836 I32 len;
1837 AV *array;
1838 };
1839
1840
1841
1842 enum awType { awDouble, awFloat, awInt, awUnsigned };
1843
1844 typedef struct {
1845 I32 size;
1846 enum awType type;
1847 void * data;
1848 } array_wrapper;
1849
array_wrapper_alloc(int numelem,enum awType type)1850 array_wrapper * array_wrapper_alloc(int numelem, enum awType type){
1851 array_wrapper * rv = malloc(sizeof(array_wrapper));
1852
1853 if (rv == NULL)
1854 croak("array_wrapper_alloc: can't malloc wrapper\n");
1855
1856 switch (type){
1857 case awDouble:
1858 rv->data = malloc(sizeof(double) * numelem);
1859 break;
1860 case awFloat:
1861 rv->data = malloc(sizeof(float) * numelem);
1862 break;
1863 case awInt:
1864 rv->data = malloc(sizeof(int) * numelem);
1865 break;
1866 case awUnsigned:
1867 rv->data = malloc(sizeof(unsigned int) * numelem);
1868 break;
1869 default:
1870 croak("array_wrapper_alloc: type should be awDouble, awFloat, awInt, or awUnsigned");
1871 }
1872
1873 if (rv->data == NULL)
1874 croak("array_wrapper_alloc: can't malloc data");
1875
1876 rv->size = numelem;
1877 rv->type = type;
1878 return rv;
1879 }
1880
array_wrapper_free(array_wrapper * daw)1881 void array_wrapper_free(array_wrapper * daw){
1882 free(daw->data);
1883 free(daw);
1884 }
1885
1886
1887 /* structure to hold required information while the gsl function call
1888 for each callback
1889 */
1890 struct gsl_function_perl {
1891 gsl_function C_gsl_function;
1892 SV * function;
1893 SV * params;
1894 };
1895
1896 struct gsl_function_fdf_perl {
1897 gsl_function_fdf C_gsl_function_fdf;
1898 SV * f;
1899 SV * df;
1900 SV * fdf;
1901 SV * params;
1902 };
1903
1904 struct gsl_monte_function_perl {
1905 gsl_monte_function C_gsl_monte_function;
1906 SV * f;
1907 SV * dim;
1908 SV * params;
1909 };
1910
gsl_function_perl_free(struct gsl_function_perl * perl_f)1911 void gsl_function_perl_free(struct gsl_function_perl * perl_f){
1912 if (perl_f != NULL) {
1913 SvREFCNT_dec(perl_f->function);
1914 SvREFCNT_dec(perl_f->params);
1915 Safefree(perl_f);
1916 }
1917 }
1918
gsl_function_fdf_perl_free(struct gsl_function_fdf_perl * perl_fdf)1919 void gsl_function_fdf_perl_free(struct gsl_function_fdf_perl * perl_fdf){
1920 if (perl_fdf != NULL) {
1921 SvREFCNT_dec(perl_fdf->f);
1922 SvREFCNT_dec(perl_fdf->df);
1923 SvREFCNT_dec(perl_fdf->fdf);
1924 SvREFCNT_dec(perl_fdf->params);
1925 Safefree(perl_fdf);
1926 }
1927 }
1928
1929 /* These functions (C callbacks) calls the perl callbacks.
1930 Info for perl callback can be found using the 'void*params' parameter
1931 */
call_gsl_function_x_params(SV * function,double x,SV * params)1932 double call_gsl_function_x_params(SV* function, double x, SV *params){
1933 unsigned int count;
1934 double y;
1935 dSP;
1936
1937 //fprintf(stderr, "LOOKUP CALLBACK\n");
1938 ENTER;
1939 SAVETMPS;
1940
1941 PUSHMARK(SP);
1942 XPUSHs(sv_2mortal(newSVnv((double)x)));
1943 XPUSHs(params);
1944 PUTBACK; /* make local stack pointer global */
1945
1946 count = call_sv(function, G_SCALAR);
1947 SPAGAIN;
1948
1949 if (count != 1)
1950 croak("Expected to call subroutine in scalar context!");
1951
1952 y = POPn;
1953
1954 PUTBACK; /* make local stack pointer global */
1955 FREETMPS;
1956 LEAVE;
1957
1958 return y;
1959 }
1960
call_gsl_function(double x,void * params)1961 double call_gsl_function(double x , void *params){
1962 struct gsl_function_perl *F=(struct gsl_function_perl*)params;
1963 return call_gsl_function_x_params( F->function, x, F->params );
1964 }
1965
call_gsl_function_fdf_f(double x,void * params)1966 double call_gsl_function_fdf_f(double x , void *params){
1967 struct gsl_function_fdf_perl *F=(struct gsl_function_fdf_perl*)params;
1968 return call_gsl_function_x_params( F->f, x, F->params );
1969 }
1970
call_gsl_function_fdf_df(double x,void * params)1971 double call_gsl_function_fdf_df(double x , void *params){
1972 struct gsl_function_fdf_perl *F=(struct gsl_function_fdf_perl*)params;
1973 return call_gsl_function_x_params( F->df, x, F->params );
1974 }
1975
call_gsl_function_fdf_fdf(double x,void * params,double * f,double * df)1976 void call_gsl_function_fdf_fdf(double x , void *params, double *f, double *df ){
1977 struct gsl_function_fdf_perl *F=(struct gsl_function_fdf_perl*)params;
1978
1979 dSP;
1980
1981 ENTER;
1982 SAVETMPS;
1983
1984 PUSHMARK(SP);
1985 EXTEND(SP, 2);
1986 PUSHs(sv_2mortal(newSVnv((double)x)));
1987 PUSHs(F->params);
1988 PUTBACK; /* make local stack pointer global */
1989
1990 {
1991 unsigned int count = call_sv(F->fdf, G_ARRAY);
1992 SPAGAIN;
1993
1994 if (count != 2)
1995 croak( "Expected two return values, got %d", count );
1996 }
1997
1998 *df = POPn;
1999 *f = POPn;
2000
2001 PUTBACK; /* make local stack pointer global */
2002 FREETMPS;
2003 LEAVE;
2004 }
2005
call_gsl_monte_function(double * x_array,size_t dim,void * params)2006 double call_gsl_monte_function(double *x_array , size_t dim, void *params){
2007 struct gsl_monte_function_perl *F=(struct gsl_monte_function_perl*)params;
2008 unsigned int count;
2009 unsigned int i;
2010 AV* perl_array;
2011 double y;
2012 dSP;
2013
2014 //fprintf(stderr, "LOOKUP CALLBACK\n");
2015 ENTER;
2016 SAVETMPS;
2017
2018 PUSHMARK(SP);
2019 perl_array=newAV();
2020 sv_2mortal((SV*)perl_array);
2021 XPUSHs(sv_2mortal(newRV((SV *)perl_array)));
2022 for(i=0; i<dim; i++) {
2023 /* no mortal : it is referenced by the array */
2024 av_push(perl_array, newSVnv(x_array[i]));
2025 }
2026 XPUSHs(sv_2mortal(newSViv(dim)));
2027 XPUSHs(F->params);
2028 PUTBACK; /* make local stack pointer global */
2029
2030 count = call_sv(F->f, G_SCALAR);
2031 SPAGAIN;
2032
2033 if (count != 1)
2034 croak("Expected to call subroutine in scalar context!");
2035
2036 y = POPn;
2037
2038 PUTBACK; /* make local stack pointer global */
2039 FREETMPS;
2040 LEAVE;
2041
2042 return y;
2043 }
2044
2045
gsl_function_fdf_extract(char * param_name,HV * hash,SV * func[])2046 void gsl_function_fdf_extract( char* param_name, HV* hash, SV* func[] ) {
2047 static const char *keys[3] = { "f", "df", "fdf" };
2048
2049 int ikey;
2050
2051 for ( ikey = 0 ; ikey < 3 ; ++ikey ) {
2052 func[ikey] = 0;
2053 const char* key = keys[ikey];
2054 /* it just so happens that strlen(keys[ikey]) == ikey + 1 */
2055 SV** pp_sv = hv_fetch( hash, key, ikey+1, 0 );
2056 SV* function;
2057
2058 if ( !pp_sv )
2059 croak("Math::GSL : %s: missing key %s!", param_name, key);
2060
2061 function = *pp_sv;
2062
2063 if ( SvPOK(function) || ( SvROK( function ) && SvTYPE(SvRV(function)) == SVt_PVCV ) ) {
2064 /* hold on to SV after the enclosing hash goes away */
2065 SvREFCNT_inc( function );
2066 func[ikey] = function;
2067 }
2068 else {
2069 croak( "Math::GSL : %s: key %s is not a reference to code!", param_name, key);
2070 }
2071 }
2072 }
2073
2074
2075
2076 /* Getting isfinite working pre C99 across multiple platforms is non-trivial. Users can provide SWIG_isfinite on older platforms. */
2077 #ifndef SWIG_isfinite
2078 /* isfinite() is a macro for C99 */
2079 # if defined(isfinite)
2080 # define SWIG_isfinite(X) (isfinite(X))
2081 # elif defined(__cplusplus) && __cplusplus >= 201103L
2082 /* Use a template so that this works whether isfinite() is std::isfinite() or
2083 * in the global namespace. The reality seems to vary between compiler
2084 * versions.
2085 *
2086 * Make sure namespace std exists to avoid compiler warnings.
2087 *
2088 * extern "C++" is required as this fragment can end up inside an extern "C" { } block
2089 */
2090 namespace std { }
2091 extern "C++" template<typename T>
SWIG_isfinite_func(T x)2092 inline int SWIG_isfinite_func(T x) {
2093 using namespace std;
2094 return isfinite(x);
2095 }
2096 # define SWIG_isfinite(X) (SWIG_isfinite_func(X))
2097 # elif defined(__GNUC__) && (__GNUC__ > 4 || (__GNUC__ == 4 && __GNUC_MINOR__ >= 2))
2098 # define SWIG_isfinite(X) (__builtin_isfinite(X))
2099 # elif defined(__clang__) && defined(__has_builtin)
2100 # if __has_builtin(__builtin_isfinite)
2101 # define SWIG_isfinite(X) (__builtin_isfinite(X))
2102 # endif
2103 # elif defined(_MSC_VER)
2104 # define SWIG_isfinite(X) (_finite(X))
2105 # elif defined(__sun) && defined(__SVR4)
2106 # include <ieeefp.h>
2107 # define SWIG_isfinite(X) (finite(X))
2108 # endif
2109 #endif
2110
2111
2112 /* Accept infinite as a valid float value unless we are unable to check if a value is finite */
2113 #ifdef SWIG_isfinite
2114 # define SWIG_Float_Overflow_Check(X) ((X < -FLT_MAX || X > FLT_MAX) && SWIG_isfinite(X))
2115 #else
2116 # define SWIG_Float_Overflow_Check(X) ((X < -FLT_MAX || X > FLT_MAX))
2117 #endif
2118
2119
2120 SWIGINTERN int
SWIG_PERL_DECL_ARGS_2(SV * obj,float * val)2121 SWIG_AsVal_float SWIG_PERL_DECL_ARGS_2(SV * obj, float *val)
2122 {
2123 double v;
2124 int res = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(obj, &v);
2125 if (SWIG_IsOK(res)) {
2126 if (SWIG_Float_Overflow_Check(v)) {
2127 return SWIG_OverflowError;
2128 } else {
2129 if (val) *val = (float)(v);
2130 }
2131 }
2132 return res;
2133 }
2134
2135
2136 SWIGINTERNINLINE SV *
SWIG_PERL_DECL_ARGS_1(float value)2137 SWIG_From_float SWIG_PERL_DECL_ARGS_1(float value)
2138 {
2139 return SWIG_From_double SWIG_PERL_CALL_ARGS_1(value);
2140 }
2141
2142
2143 #include "gsl/gsl_blas.h"
2144 #include "gsl/gsl_blas_types.h"
2145
2146 #ifdef __cplusplus
2147 extern "C" {
2148 #endif
2149
2150 #ifdef PERL_OBJECT
2151 #define MAGIC_CLASS _wrap_Math__GSL__BLAS_var::
2152 class _wrap_Math__GSL__BLAS_var : public CPerlObj {
2153 public:
2154 #else
2155 #define MAGIC_CLASS
2156 #endif
swig_magic_readonly(pTHX_ SV * SWIGUNUSEDPARM (sv),MAGIC * SWIGUNUSEDPARM (mg))2157 SWIGCLASS_STATIC int swig_magic_readonly(pTHX_ SV *SWIGUNUSEDPARM(sv), MAGIC *SWIGUNUSEDPARM(mg)) {
2158 MAGIC_PPERL
2159 croak("Value is read-only.");
2160 return 0;
2161 }
2162
2163
2164 #ifdef PERL_OBJECT
2165 };
2166 #endif
2167
2168 #ifdef __cplusplus
2169 }
2170 #endif
2171
2172 #ifdef __cplusplus
2173 extern "C" {
2174 #endif
XS(_wrap_gsl_error)2175 XS(_wrap_gsl_error) {
2176 {
2177 char *arg1 = (char *) 0 ;
2178 char *arg2 = (char *) 0 ;
2179 int arg3 ;
2180 int arg4 ;
2181 int res1 ;
2182 char *buf1 = 0 ;
2183 int alloc1 = 0 ;
2184 int res2 ;
2185 char *buf2 = 0 ;
2186 int alloc2 = 0 ;
2187 int val3 ;
2188 int ecode3 = 0 ;
2189 int val4 ;
2190 int ecode4 = 0 ;
2191 int argvi = 0;
2192 dXSARGS;
2193
2194 if ((items < 4) || (items > 4)) {
2195 SWIG_croak("Usage: gsl_error(reason,file,line,gsl_errno);");
2196 }
2197 res1 = SWIG_AsCharPtrAndSize(ST(0), &buf1, NULL, &alloc1);
2198 if (!SWIG_IsOK(res1)) {
2199 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_error" "', argument " "1"" of type '" "char const *""'");
2200 }
2201 arg1 = (char *)(buf1);
2202 res2 = SWIG_AsCharPtrAndSize(ST(1), &buf2, NULL, &alloc2);
2203 if (!SWIG_IsOK(res2)) {
2204 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_error" "', argument " "2"" of type '" "char const *""'");
2205 }
2206 arg2 = (char *)(buf2);
2207 ecode3 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
2208 if (!SWIG_IsOK(ecode3)) {
2209 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_error" "', argument " "3"" of type '" "int""'");
2210 }
2211 arg3 = (int)(val3);
2212 ecode4 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(3), &val4);
2213 if (!SWIG_IsOK(ecode4)) {
2214 SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "gsl_error" "', argument " "4"" of type '" "int""'");
2215 }
2216 arg4 = (int)(val4);
2217 gsl_error((char const *)arg1,(char const *)arg2,arg3,arg4);
2218 ST(argvi) = &PL_sv_undef;
2219 if (alloc1 == SWIG_NEWOBJ) free((char*)buf1);
2220 if (alloc2 == SWIG_NEWOBJ) free((char*)buf2);
2221
2222
2223 XSRETURN(argvi);
2224 fail:
2225 if (alloc1 == SWIG_NEWOBJ) free((char*)buf1);
2226 if (alloc2 == SWIG_NEWOBJ) free((char*)buf2);
2227
2228
2229 SWIG_croak_null();
2230 }
2231 }
2232
2233
XS(_wrap_gsl_stream_printf)2234 XS(_wrap_gsl_stream_printf) {
2235 {
2236 char *arg1 = (char *) 0 ;
2237 char *arg2 = (char *) 0 ;
2238 int arg3 ;
2239 char *arg4 = (char *) 0 ;
2240 int res1 ;
2241 char *buf1 = 0 ;
2242 int alloc1 = 0 ;
2243 int res2 ;
2244 char *buf2 = 0 ;
2245 int alloc2 = 0 ;
2246 int val3 ;
2247 int ecode3 = 0 ;
2248 int res4 ;
2249 char *buf4 = 0 ;
2250 int alloc4 = 0 ;
2251 int argvi = 0;
2252 dXSARGS;
2253
2254 if ((items < 4) || (items > 4)) {
2255 SWIG_croak("Usage: gsl_stream_printf(label,file,line,reason);");
2256 }
2257 res1 = SWIG_AsCharPtrAndSize(ST(0), &buf1, NULL, &alloc1);
2258 if (!SWIG_IsOK(res1)) {
2259 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_stream_printf" "', argument " "1"" of type '" "char const *""'");
2260 }
2261 arg1 = (char *)(buf1);
2262 res2 = SWIG_AsCharPtrAndSize(ST(1), &buf2, NULL, &alloc2);
2263 if (!SWIG_IsOK(res2)) {
2264 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_stream_printf" "', argument " "2"" of type '" "char const *""'");
2265 }
2266 arg2 = (char *)(buf2);
2267 ecode3 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
2268 if (!SWIG_IsOK(ecode3)) {
2269 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_stream_printf" "', argument " "3"" of type '" "int""'");
2270 }
2271 arg3 = (int)(val3);
2272 res4 = SWIG_AsCharPtrAndSize(ST(3), &buf4, NULL, &alloc4);
2273 if (!SWIG_IsOK(res4)) {
2274 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_stream_printf" "', argument " "4"" of type '" "char const *""'");
2275 }
2276 arg4 = (char *)(buf4);
2277 gsl_stream_printf((char const *)arg1,(char const *)arg2,arg3,(char const *)arg4);
2278 ST(argvi) = &PL_sv_undef;
2279 if (alloc1 == SWIG_NEWOBJ) free((char*)buf1);
2280 if (alloc2 == SWIG_NEWOBJ) free((char*)buf2);
2281
2282 if (alloc4 == SWIG_NEWOBJ) free((char*)buf4);
2283 XSRETURN(argvi);
2284 fail:
2285 if (alloc1 == SWIG_NEWOBJ) free((char*)buf1);
2286 if (alloc2 == SWIG_NEWOBJ) free((char*)buf2);
2287
2288 if (alloc4 == SWIG_NEWOBJ) free((char*)buf4);
2289 SWIG_croak_null();
2290 }
2291 }
2292
2293
XS(_wrap_gsl_strerror)2294 XS(_wrap_gsl_strerror) {
2295 {
2296 int arg1 ;
2297 int val1 ;
2298 int ecode1 = 0 ;
2299 int argvi = 0;
2300 char *result = 0 ;
2301 dXSARGS;
2302
2303 if ((items < 1) || (items > 1)) {
2304 SWIG_croak("Usage: gsl_strerror(gsl_errno);");
2305 }
2306 ecode1 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
2307 if (!SWIG_IsOK(ecode1)) {
2308 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_strerror" "', argument " "1"" of type '" "int""'");
2309 }
2310 arg1 = (int)(val1);
2311 result = (char *)gsl_strerror(arg1);
2312 ST(argvi) = SWIG_FromCharPtr((const char *)result); argvi++ ;
2313
2314 XSRETURN(argvi);
2315 fail:
2316
2317 SWIG_croak_null();
2318 }
2319 }
2320
2321
XS(_wrap_gsl_set_error_handler)2322 XS(_wrap_gsl_set_error_handler) {
2323 {
2324 gsl_error_handler_t *arg1 = (gsl_error_handler_t *) 0 ;
2325 int argvi = 0;
2326 gsl_error_handler_t *result = 0 ;
2327 dXSARGS;
2328
2329 if ((items < 1) || (items > 1)) {
2330 SWIG_croak("Usage: gsl_set_error_handler(new_handler);");
2331 }
2332 {
2333 int res = SWIG_ConvertFunctionPtr(ST(0), (void**)(&arg1), SWIGTYPE_p_f_p_q_const__char_p_q_const__char_int_int__void);
2334 if (!SWIG_IsOK(res)) {
2335 SWIG_exception_fail(SWIG_ArgError(res), "in method '" "gsl_set_error_handler" "', argument " "1"" of type '" "gsl_error_handler_t *""'");
2336 }
2337 }
2338 result = (gsl_error_handler_t *)gsl_set_error_handler(arg1);
2339 ST(argvi) = SWIG_NewFunctionPtrObj((void *)(result), SWIGTYPE_p_f_p_q_const__char_p_q_const__char_int_int__void); argvi++ ;
2340
2341 XSRETURN(argvi);
2342 fail:
2343
2344 SWIG_croak_null();
2345 }
2346 }
2347
2348
XS(_wrap_gsl_set_error_handler_off)2349 XS(_wrap_gsl_set_error_handler_off) {
2350 {
2351 int argvi = 0;
2352 gsl_error_handler_t *result = 0 ;
2353 dXSARGS;
2354
2355 if ((items < 0) || (items > 0)) {
2356 SWIG_croak("Usage: gsl_set_error_handler_off();");
2357 }
2358 result = (gsl_error_handler_t *)gsl_set_error_handler_off();
2359 ST(argvi) = SWIG_NewFunctionPtrObj((void *)(result), SWIGTYPE_p_f_p_q_const__char_p_q_const__char_int_int__void); argvi++ ;
2360 XSRETURN(argvi);
2361 fail:
2362 SWIG_croak_null();
2363 }
2364 }
2365
2366
XS(_wrap_gsl_set_stream_handler)2367 XS(_wrap_gsl_set_stream_handler) {
2368 {
2369 gsl_stream_handler_t *arg1 = (gsl_stream_handler_t *) 0 ;
2370 int argvi = 0;
2371 gsl_stream_handler_t *result = 0 ;
2372 dXSARGS;
2373
2374 if ((items < 1) || (items > 1)) {
2375 SWIG_croak("Usage: gsl_set_stream_handler(new_handler);");
2376 }
2377 {
2378 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);
2379 if (!SWIG_IsOK(res)) {
2380 SWIG_exception_fail(SWIG_ArgError(res), "in method '" "gsl_set_stream_handler" "', argument " "1"" of type '" "gsl_stream_handler_t *""'");
2381 }
2382 }
2383 result = (gsl_stream_handler_t *)gsl_set_stream_handler(arg1);
2384 ST(argvi) = SWIG_NewFunctionPtrObj((void *)(result), SWIGTYPE_p_f_p_q_const__char_p_q_const__char_int_p_q_const__char__void); argvi++ ;
2385
2386 XSRETURN(argvi);
2387 fail:
2388
2389 SWIG_croak_null();
2390 }
2391 }
2392
2393
XS(_wrap_gsl_set_stream)2394 XS(_wrap_gsl_set_stream) {
2395 {
2396 FILE *arg1 = (FILE *) 0 ;
2397 void *argp1 = 0 ;
2398 int res1 = 0 ;
2399 int argvi = 0;
2400 FILE *result = 0 ;
2401 dXSARGS;
2402
2403 if ((items < 1) || (items > 1)) {
2404 SWIG_croak("Usage: gsl_set_stream(new_stream);");
2405 }
2406 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_FILE, 0 | 0 );
2407 if (!SWIG_IsOK(res1)) {
2408 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_set_stream" "', argument " "1"" of type '" "FILE *""'");
2409 }
2410 arg1 = (FILE *)(argp1);
2411 result = (FILE *)gsl_set_stream(arg1);
2412 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_FILE, 0 | 0); argvi++ ;
2413
2414 XSRETURN(argvi);
2415 fail:
2416
2417 SWIG_croak_null();
2418 }
2419 }
2420
2421
XS(_wrap_gsl_blas_sdsdot)2422 XS(_wrap_gsl_blas_sdsdot) {
2423 {
2424 float arg1 ;
2425 gsl_vector_float *arg2 = (gsl_vector_float *) 0 ;
2426 gsl_vector_float *arg3 = (gsl_vector_float *) 0 ;
2427 float *arg4 = (float *) 0 ;
2428 float val1 ;
2429 int ecode1 = 0 ;
2430 void *argp2 = 0 ;
2431 int res2 = 0 ;
2432 void *argp3 = 0 ;
2433 int res3 = 0 ;
2434 float temp4 ;
2435 int res4 = SWIG_TMPOBJ ;
2436 int argvi = 0;
2437 int result;
2438 dXSARGS;
2439
2440 arg4 = &temp4;
2441 if ((items < 3) || (items > 3)) {
2442 SWIG_croak("Usage: gsl_blas_sdsdot(alpha,X,Y);");
2443 }
2444 ecode1 = SWIG_AsVal_float SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
2445 if (!SWIG_IsOK(ecode1)) {
2446 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_blas_sdsdot" "', argument " "1"" of type '" "float""'");
2447 }
2448 arg1 = (float)(val1);
2449 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_float, 0 | 0 );
2450 if (!SWIG_IsOK(res2)) {
2451 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_blas_sdsdot" "', argument " "2"" of type '" "gsl_vector_float const *""'");
2452 }
2453 arg2 = (gsl_vector_float *)(argp2);
2454 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector_float, 0 | 0 );
2455 if (!SWIG_IsOK(res3)) {
2456 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_blas_sdsdot" "', argument " "3"" of type '" "gsl_vector_float const *""'");
2457 }
2458 arg3 = (gsl_vector_float *)(argp3);
2459 result = (int)gsl_blas_sdsdot(arg1,(gsl_vector_float const *)arg2,(gsl_vector_float const *)arg3,arg4);
2460 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
2461 if (SWIG_IsTmpObj(res4)) {
2462 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_float SWIG_PERL_CALL_ARGS_1((*arg4)); argvi++ ;
2463 } else {
2464 int new_flags = SWIG_IsNewObj(res4) ? (SWIG_POINTER_OWN | 0) : 0;
2465 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg4), SWIGTYPE_p_float, new_flags); argvi++ ;
2466 }
2467
2468
2469
2470
2471 XSRETURN(argvi);
2472 fail:
2473
2474
2475
2476
2477 SWIG_croak_null();
2478 }
2479 }
2480
2481
XS(_wrap_gsl_blas_dsdot)2482 XS(_wrap_gsl_blas_dsdot) {
2483 {
2484 gsl_vector_float *arg1 = (gsl_vector_float *) 0 ;
2485 gsl_vector_float *arg2 = (gsl_vector_float *) 0 ;
2486 double *arg3 = (double *) 0 ;
2487 void *argp1 = 0 ;
2488 int res1 = 0 ;
2489 void *argp2 = 0 ;
2490 int res2 = 0 ;
2491 double temp3 ;
2492 int res3 = SWIG_TMPOBJ ;
2493 int argvi = 0;
2494 int result;
2495 dXSARGS;
2496
2497 arg3 = &temp3;
2498 if ((items < 2) || (items > 2)) {
2499 SWIG_croak("Usage: gsl_blas_dsdot(X,Y);");
2500 }
2501 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_float, 0 | 0 );
2502 if (!SWIG_IsOK(res1)) {
2503 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_blas_dsdot" "', argument " "1"" of type '" "gsl_vector_float const *""'");
2504 }
2505 arg1 = (gsl_vector_float *)(argp1);
2506 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_float, 0 | 0 );
2507 if (!SWIG_IsOK(res2)) {
2508 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_blas_dsdot" "', argument " "2"" of type '" "gsl_vector_float const *""'");
2509 }
2510 arg2 = (gsl_vector_float *)(argp2);
2511 result = (int)gsl_blas_dsdot((gsl_vector_float const *)arg1,(gsl_vector_float const *)arg2,arg3);
2512 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
2513 if (SWIG_IsTmpObj(res3)) {
2514 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((*arg3)); argvi++ ;
2515 } else {
2516 int new_flags = SWIG_IsNewObj(res3) ? (SWIG_POINTER_OWN | 0) : 0;
2517 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg3), SWIGTYPE_p_double, new_flags); argvi++ ;
2518 }
2519
2520
2521
2522 XSRETURN(argvi);
2523 fail:
2524
2525
2526
2527 SWIG_croak_null();
2528 }
2529 }
2530
2531
XS(_wrap_gsl_blas_sdot)2532 XS(_wrap_gsl_blas_sdot) {
2533 {
2534 gsl_vector_float *arg1 = (gsl_vector_float *) 0 ;
2535 gsl_vector_float *arg2 = (gsl_vector_float *) 0 ;
2536 float *arg3 = (float *) 0 ;
2537 void *argp1 = 0 ;
2538 int res1 = 0 ;
2539 void *argp2 = 0 ;
2540 int res2 = 0 ;
2541 float temp3 ;
2542 int res3 = SWIG_TMPOBJ ;
2543 int argvi = 0;
2544 int result;
2545 dXSARGS;
2546
2547 arg3 = &temp3;
2548 if ((items < 2) || (items > 2)) {
2549 SWIG_croak("Usage: gsl_blas_sdot(X,Y);");
2550 }
2551 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_float, 0 | 0 );
2552 if (!SWIG_IsOK(res1)) {
2553 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_blas_sdot" "', argument " "1"" of type '" "gsl_vector_float const *""'");
2554 }
2555 arg1 = (gsl_vector_float *)(argp1);
2556 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_float, 0 | 0 );
2557 if (!SWIG_IsOK(res2)) {
2558 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_blas_sdot" "', argument " "2"" of type '" "gsl_vector_float const *""'");
2559 }
2560 arg2 = (gsl_vector_float *)(argp2);
2561 result = (int)gsl_blas_sdot((gsl_vector_float const *)arg1,(gsl_vector_float const *)arg2,arg3);
2562 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
2563 if (SWIG_IsTmpObj(res3)) {
2564 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_float SWIG_PERL_CALL_ARGS_1((*arg3)); argvi++ ;
2565 } else {
2566 int new_flags = SWIG_IsNewObj(res3) ? (SWIG_POINTER_OWN | 0) : 0;
2567 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg3), SWIGTYPE_p_float, new_flags); argvi++ ;
2568 }
2569
2570
2571
2572 XSRETURN(argvi);
2573 fail:
2574
2575
2576
2577 SWIG_croak_null();
2578 }
2579 }
2580
2581
XS(_wrap_gsl_blas_ddot)2582 XS(_wrap_gsl_blas_ddot) {
2583 {
2584 gsl_vector *arg1 = (gsl_vector *) 0 ;
2585 gsl_vector *arg2 = (gsl_vector *) 0 ;
2586 double *arg3 = (double *) 0 ;
2587 void *argp1 = 0 ;
2588 int res1 = 0 ;
2589 void *argp2 = 0 ;
2590 int res2 = 0 ;
2591 double temp3 ;
2592 int res3 = SWIG_TMPOBJ ;
2593 int argvi = 0;
2594 int result;
2595 dXSARGS;
2596
2597 arg3 = &temp3;
2598 if ((items < 2) || (items > 2)) {
2599 SWIG_croak("Usage: gsl_blas_ddot(X,Y);");
2600 }
2601 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
2602 if (!SWIG_IsOK(res1)) {
2603 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_blas_ddot" "', argument " "1"" of type '" "gsl_vector const *""'");
2604 }
2605 arg1 = (gsl_vector *)(argp1);
2606 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
2607 if (!SWIG_IsOK(res2)) {
2608 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_blas_ddot" "', argument " "2"" of type '" "gsl_vector const *""'");
2609 }
2610 arg2 = (gsl_vector *)(argp2);
2611 result = (int)gsl_blas_ddot((gsl_vector const *)arg1,(gsl_vector const *)arg2,arg3);
2612 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
2613 if (SWIG_IsTmpObj(res3)) {
2614 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((*arg3)); argvi++ ;
2615 } else {
2616 int new_flags = SWIG_IsNewObj(res3) ? (SWIG_POINTER_OWN | 0) : 0;
2617 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg3), SWIGTYPE_p_double, new_flags); argvi++ ;
2618 }
2619
2620
2621
2622 XSRETURN(argvi);
2623 fail:
2624
2625
2626
2627 SWIG_croak_null();
2628 }
2629 }
2630
2631
XS(_wrap_gsl_blas_cdotu)2632 XS(_wrap_gsl_blas_cdotu) {
2633 {
2634 gsl_vector_complex_float *arg1 = (gsl_vector_complex_float *) 0 ;
2635 gsl_vector_complex_float *arg2 = (gsl_vector_complex_float *) 0 ;
2636 gsl_complex_float *arg3 = (gsl_complex_float *) 0 ;
2637 void *argp1 = 0 ;
2638 int res1 = 0 ;
2639 void *argp2 = 0 ;
2640 int res2 = 0 ;
2641 void *argp3 = 0 ;
2642 int res3 = 0 ;
2643 int argvi = 0;
2644 int result;
2645 dXSARGS;
2646
2647 if ((items < 3) || (items > 3)) {
2648 SWIG_croak("Usage: gsl_blas_cdotu(X,Y,dotu);");
2649 }
2650 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_complex_float, 0 | 0 );
2651 if (!SWIG_IsOK(res1)) {
2652 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_blas_cdotu" "', argument " "1"" of type '" "gsl_vector_complex_float const *""'");
2653 }
2654 arg1 = (gsl_vector_complex_float *)(argp1);
2655 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_complex_float, 0 | 0 );
2656 if (!SWIG_IsOK(res2)) {
2657 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_blas_cdotu" "', argument " "2"" of type '" "gsl_vector_complex_float const *""'");
2658 }
2659 arg2 = (gsl_vector_complex_float *)(argp2);
2660 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_complex_float, 0 | 0 );
2661 if (!SWIG_IsOK(res3)) {
2662 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_blas_cdotu" "', argument " "3"" of type '" "gsl_complex_float *""'");
2663 }
2664 arg3 = (gsl_complex_float *)(argp3);
2665 result = (int)gsl_blas_cdotu((gsl_vector_complex_float const *)arg1,(gsl_vector_complex_float const *)arg2,arg3);
2666 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
2667
2668
2669
2670 XSRETURN(argvi);
2671 fail:
2672
2673
2674
2675 SWIG_croak_null();
2676 }
2677 }
2678
2679
XS(_wrap_gsl_blas_cdotc)2680 XS(_wrap_gsl_blas_cdotc) {
2681 {
2682 gsl_vector_complex_float *arg1 = (gsl_vector_complex_float *) 0 ;
2683 gsl_vector_complex_float *arg2 = (gsl_vector_complex_float *) 0 ;
2684 gsl_complex_float *arg3 = (gsl_complex_float *) 0 ;
2685 void *argp1 = 0 ;
2686 int res1 = 0 ;
2687 void *argp2 = 0 ;
2688 int res2 = 0 ;
2689 void *argp3 = 0 ;
2690 int res3 = 0 ;
2691 int argvi = 0;
2692 int result;
2693 dXSARGS;
2694
2695 if ((items < 3) || (items > 3)) {
2696 SWIG_croak("Usage: gsl_blas_cdotc(X,Y,dotc);");
2697 }
2698 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_complex_float, 0 | 0 );
2699 if (!SWIG_IsOK(res1)) {
2700 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_blas_cdotc" "', argument " "1"" of type '" "gsl_vector_complex_float const *""'");
2701 }
2702 arg1 = (gsl_vector_complex_float *)(argp1);
2703 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_complex_float, 0 | 0 );
2704 if (!SWIG_IsOK(res2)) {
2705 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_blas_cdotc" "', argument " "2"" of type '" "gsl_vector_complex_float const *""'");
2706 }
2707 arg2 = (gsl_vector_complex_float *)(argp2);
2708 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_complex_float, 0 | 0 );
2709 if (!SWIG_IsOK(res3)) {
2710 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_blas_cdotc" "', argument " "3"" of type '" "gsl_complex_float *""'");
2711 }
2712 arg3 = (gsl_complex_float *)(argp3);
2713 result = (int)gsl_blas_cdotc((gsl_vector_complex_float const *)arg1,(gsl_vector_complex_float const *)arg2,arg3);
2714 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
2715
2716
2717
2718 XSRETURN(argvi);
2719 fail:
2720
2721
2722
2723 SWIG_croak_null();
2724 }
2725 }
2726
2727
XS(_wrap_gsl_blas_zdotu)2728 XS(_wrap_gsl_blas_zdotu) {
2729 {
2730 gsl_vector_complex *arg1 = (gsl_vector_complex *) 0 ;
2731 gsl_vector_complex *arg2 = (gsl_vector_complex *) 0 ;
2732 gsl_complex *arg3 = (gsl_complex *) 0 ;
2733 void *argp1 = 0 ;
2734 int res1 = 0 ;
2735 void *argp2 = 0 ;
2736 int res2 = 0 ;
2737 void *argp3 = 0 ;
2738 int res3 = 0 ;
2739 int argvi = 0;
2740 int result;
2741 dXSARGS;
2742
2743 if ((items < 3) || (items > 3)) {
2744 SWIG_croak("Usage: gsl_blas_zdotu(X,Y,dotu);");
2745 }
2746 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
2747 if (!SWIG_IsOK(res1)) {
2748 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_blas_zdotu" "', argument " "1"" of type '" "gsl_vector_complex const *""'");
2749 }
2750 arg1 = (gsl_vector_complex *)(argp1);
2751 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
2752 if (!SWIG_IsOK(res2)) {
2753 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_blas_zdotu" "', argument " "2"" of type '" "gsl_vector_complex const *""'");
2754 }
2755 arg2 = (gsl_vector_complex *)(argp2);
2756 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_complex, 0 | 0 );
2757 if (!SWIG_IsOK(res3)) {
2758 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_blas_zdotu" "', argument " "3"" of type '" "gsl_complex *""'");
2759 }
2760 arg3 = (gsl_complex *)(argp3);
2761 result = (int)gsl_blas_zdotu((gsl_vector_complex const *)arg1,(gsl_vector_complex const *)arg2,arg3);
2762 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
2763
2764
2765
2766 XSRETURN(argvi);
2767 fail:
2768
2769
2770
2771 SWIG_croak_null();
2772 }
2773 }
2774
2775
XS(_wrap_gsl_blas_zdotc)2776 XS(_wrap_gsl_blas_zdotc) {
2777 {
2778 gsl_vector_complex *arg1 = (gsl_vector_complex *) 0 ;
2779 gsl_vector_complex *arg2 = (gsl_vector_complex *) 0 ;
2780 gsl_complex *arg3 = (gsl_complex *) 0 ;
2781 void *argp1 = 0 ;
2782 int res1 = 0 ;
2783 void *argp2 = 0 ;
2784 int res2 = 0 ;
2785 void *argp3 = 0 ;
2786 int res3 = 0 ;
2787 int argvi = 0;
2788 int result;
2789 dXSARGS;
2790
2791 if ((items < 3) || (items > 3)) {
2792 SWIG_croak("Usage: gsl_blas_zdotc(X,Y,dotc);");
2793 }
2794 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
2795 if (!SWIG_IsOK(res1)) {
2796 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_blas_zdotc" "', argument " "1"" of type '" "gsl_vector_complex const *""'");
2797 }
2798 arg1 = (gsl_vector_complex *)(argp1);
2799 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
2800 if (!SWIG_IsOK(res2)) {
2801 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_blas_zdotc" "', argument " "2"" of type '" "gsl_vector_complex const *""'");
2802 }
2803 arg2 = (gsl_vector_complex *)(argp2);
2804 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_complex, 0 | 0 );
2805 if (!SWIG_IsOK(res3)) {
2806 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_blas_zdotc" "', argument " "3"" of type '" "gsl_complex *""'");
2807 }
2808 arg3 = (gsl_complex *)(argp3);
2809 result = (int)gsl_blas_zdotc((gsl_vector_complex const *)arg1,(gsl_vector_complex const *)arg2,arg3);
2810 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
2811
2812
2813
2814 XSRETURN(argvi);
2815 fail:
2816
2817
2818
2819 SWIG_croak_null();
2820 }
2821 }
2822
2823
XS(_wrap_gsl_blas_snrm2)2824 XS(_wrap_gsl_blas_snrm2) {
2825 {
2826 gsl_vector_float *arg1 = (gsl_vector_float *) 0 ;
2827 void *argp1 = 0 ;
2828 int res1 = 0 ;
2829 int argvi = 0;
2830 float result;
2831 dXSARGS;
2832
2833 if ((items < 1) || (items > 1)) {
2834 SWIG_croak("Usage: gsl_blas_snrm2(X);");
2835 }
2836 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_float, 0 | 0 );
2837 if (!SWIG_IsOK(res1)) {
2838 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_blas_snrm2" "', argument " "1"" of type '" "gsl_vector_float const *""'");
2839 }
2840 arg1 = (gsl_vector_float *)(argp1);
2841 result = (float)gsl_blas_snrm2((gsl_vector_float const *)arg1);
2842 ST(argvi) = SWIG_From_float SWIG_PERL_CALL_ARGS_1((float)(result)); argvi++ ;
2843
2844 XSRETURN(argvi);
2845 fail:
2846
2847 SWIG_croak_null();
2848 }
2849 }
2850
2851
XS(_wrap_gsl_blas_sasum)2852 XS(_wrap_gsl_blas_sasum) {
2853 {
2854 gsl_vector_float *arg1 = (gsl_vector_float *) 0 ;
2855 void *argp1 = 0 ;
2856 int res1 = 0 ;
2857 int argvi = 0;
2858 float result;
2859 dXSARGS;
2860
2861 if ((items < 1) || (items > 1)) {
2862 SWIG_croak("Usage: gsl_blas_sasum(X);");
2863 }
2864 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_float, 0 | 0 );
2865 if (!SWIG_IsOK(res1)) {
2866 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_blas_sasum" "', argument " "1"" of type '" "gsl_vector_float const *""'");
2867 }
2868 arg1 = (gsl_vector_float *)(argp1);
2869 result = (float)gsl_blas_sasum((gsl_vector_float const *)arg1);
2870 ST(argvi) = SWIG_From_float SWIG_PERL_CALL_ARGS_1((float)(result)); argvi++ ;
2871
2872 XSRETURN(argvi);
2873 fail:
2874
2875 SWIG_croak_null();
2876 }
2877 }
2878
2879
XS(_wrap_gsl_blas_dnrm2)2880 XS(_wrap_gsl_blas_dnrm2) {
2881 {
2882 gsl_vector *arg1 = (gsl_vector *) 0 ;
2883 void *argp1 = 0 ;
2884 int res1 = 0 ;
2885 int argvi = 0;
2886 double result;
2887 dXSARGS;
2888
2889 if ((items < 1) || (items > 1)) {
2890 SWIG_croak("Usage: gsl_blas_dnrm2(X);");
2891 }
2892 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
2893 if (!SWIG_IsOK(res1)) {
2894 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_blas_dnrm2" "', argument " "1"" of type '" "gsl_vector const *""'");
2895 }
2896 arg1 = (gsl_vector *)(argp1);
2897 result = (double)gsl_blas_dnrm2((gsl_vector const *)arg1);
2898 ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(result)); argvi++ ;
2899
2900 XSRETURN(argvi);
2901 fail:
2902
2903 SWIG_croak_null();
2904 }
2905 }
2906
2907
XS(_wrap_gsl_blas_dasum)2908 XS(_wrap_gsl_blas_dasum) {
2909 {
2910 gsl_vector *arg1 = (gsl_vector *) 0 ;
2911 void *argp1 = 0 ;
2912 int res1 = 0 ;
2913 int argvi = 0;
2914 double result;
2915 dXSARGS;
2916
2917 if ((items < 1) || (items > 1)) {
2918 SWIG_croak("Usage: gsl_blas_dasum(X);");
2919 }
2920 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
2921 if (!SWIG_IsOK(res1)) {
2922 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_blas_dasum" "', argument " "1"" of type '" "gsl_vector const *""'");
2923 }
2924 arg1 = (gsl_vector *)(argp1);
2925 result = (double)gsl_blas_dasum((gsl_vector const *)arg1);
2926 ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(result)); argvi++ ;
2927
2928 XSRETURN(argvi);
2929 fail:
2930
2931 SWIG_croak_null();
2932 }
2933 }
2934
2935
XS(_wrap_gsl_blas_scnrm2)2936 XS(_wrap_gsl_blas_scnrm2) {
2937 {
2938 gsl_vector_complex_float *arg1 = (gsl_vector_complex_float *) 0 ;
2939 void *argp1 = 0 ;
2940 int res1 = 0 ;
2941 int argvi = 0;
2942 float result;
2943 dXSARGS;
2944
2945 if ((items < 1) || (items > 1)) {
2946 SWIG_croak("Usage: gsl_blas_scnrm2(X);");
2947 }
2948 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_complex_float, 0 | 0 );
2949 if (!SWIG_IsOK(res1)) {
2950 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_blas_scnrm2" "', argument " "1"" of type '" "gsl_vector_complex_float const *""'");
2951 }
2952 arg1 = (gsl_vector_complex_float *)(argp1);
2953 result = (float)gsl_blas_scnrm2((gsl_vector_complex_float const *)arg1);
2954 ST(argvi) = SWIG_From_float SWIG_PERL_CALL_ARGS_1((float)(result)); argvi++ ;
2955
2956 XSRETURN(argvi);
2957 fail:
2958
2959 SWIG_croak_null();
2960 }
2961 }
2962
2963
XS(_wrap_gsl_blas_scasum)2964 XS(_wrap_gsl_blas_scasum) {
2965 {
2966 gsl_vector_complex_float *arg1 = (gsl_vector_complex_float *) 0 ;
2967 void *argp1 = 0 ;
2968 int res1 = 0 ;
2969 int argvi = 0;
2970 float result;
2971 dXSARGS;
2972
2973 if ((items < 1) || (items > 1)) {
2974 SWIG_croak("Usage: gsl_blas_scasum(X);");
2975 }
2976 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_complex_float, 0 | 0 );
2977 if (!SWIG_IsOK(res1)) {
2978 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_blas_scasum" "', argument " "1"" of type '" "gsl_vector_complex_float const *""'");
2979 }
2980 arg1 = (gsl_vector_complex_float *)(argp1);
2981 result = (float)gsl_blas_scasum((gsl_vector_complex_float const *)arg1);
2982 ST(argvi) = SWIG_From_float SWIG_PERL_CALL_ARGS_1((float)(result)); argvi++ ;
2983
2984 XSRETURN(argvi);
2985 fail:
2986
2987 SWIG_croak_null();
2988 }
2989 }
2990
2991
XS(_wrap_gsl_blas_dznrm2)2992 XS(_wrap_gsl_blas_dznrm2) {
2993 {
2994 gsl_vector_complex *arg1 = (gsl_vector_complex *) 0 ;
2995 void *argp1 = 0 ;
2996 int res1 = 0 ;
2997 int argvi = 0;
2998 double result;
2999 dXSARGS;
3000
3001 if ((items < 1) || (items > 1)) {
3002 SWIG_croak("Usage: gsl_blas_dznrm2(X);");
3003 }
3004 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
3005 if (!SWIG_IsOK(res1)) {
3006 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_blas_dznrm2" "', argument " "1"" of type '" "gsl_vector_complex const *""'");
3007 }
3008 arg1 = (gsl_vector_complex *)(argp1);
3009 result = (double)gsl_blas_dznrm2((gsl_vector_complex const *)arg1);
3010 ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(result)); argvi++ ;
3011
3012 XSRETURN(argvi);
3013 fail:
3014
3015 SWIG_croak_null();
3016 }
3017 }
3018
3019
XS(_wrap_gsl_blas_dzasum)3020 XS(_wrap_gsl_blas_dzasum) {
3021 {
3022 gsl_vector_complex *arg1 = (gsl_vector_complex *) 0 ;
3023 void *argp1 = 0 ;
3024 int res1 = 0 ;
3025 int argvi = 0;
3026 double result;
3027 dXSARGS;
3028
3029 if ((items < 1) || (items > 1)) {
3030 SWIG_croak("Usage: gsl_blas_dzasum(X);");
3031 }
3032 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
3033 if (!SWIG_IsOK(res1)) {
3034 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_blas_dzasum" "', argument " "1"" of type '" "gsl_vector_complex const *""'");
3035 }
3036 arg1 = (gsl_vector_complex *)(argp1);
3037 result = (double)gsl_blas_dzasum((gsl_vector_complex const *)arg1);
3038 ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(result)); argvi++ ;
3039
3040 XSRETURN(argvi);
3041 fail:
3042
3043 SWIG_croak_null();
3044 }
3045 }
3046
3047
XS(_wrap_gsl_blas_isamax)3048 XS(_wrap_gsl_blas_isamax) {
3049 {
3050 gsl_vector_float *arg1 = (gsl_vector_float *) 0 ;
3051 void *argp1 = 0 ;
3052 int res1 = 0 ;
3053 int argvi = 0;
3054 CBLAS_INDEX_t result;
3055 dXSARGS;
3056
3057 if ((items < 1) || (items > 1)) {
3058 SWIG_croak("Usage: gsl_blas_isamax(X);");
3059 }
3060 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_float, 0 | 0 );
3061 if (!SWIG_IsOK(res1)) {
3062 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_blas_isamax" "', argument " "1"" of type '" "gsl_vector_float const *""'");
3063 }
3064 arg1 = (gsl_vector_float *)(argp1);
3065 result = gsl_blas_isamax((gsl_vector_float const *)arg1);
3066 ST(argvi) = SWIG_NewPointerObj((CBLAS_INDEX_t *)memcpy((CBLAS_INDEX_t *)calloc(1,sizeof(CBLAS_INDEX_t)),&result,sizeof(CBLAS_INDEX_t)), SWIGTYPE_p_CBLAS_INDEX, SWIG_POINTER_OWN | 0); argvi++ ;
3067
3068 XSRETURN(argvi);
3069 fail:
3070
3071 SWIG_croak_null();
3072 }
3073 }
3074
3075
XS(_wrap_gsl_blas_idamax)3076 XS(_wrap_gsl_blas_idamax) {
3077 {
3078 gsl_vector *arg1 = (gsl_vector *) 0 ;
3079 void *argp1 = 0 ;
3080 int res1 = 0 ;
3081 int argvi = 0;
3082 CBLAS_INDEX_t result;
3083 dXSARGS;
3084
3085 if ((items < 1) || (items > 1)) {
3086 SWIG_croak("Usage: gsl_blas_idamax(X);");
3087 }
3088 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
3089 if (!SWIG_IsOK(res1)) {
3090 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_blas_idamax" "', argument " "1"" of type '" "gsl_vector const *""'");
3091 }
3092 arg1 = (gsl_vector *)(argp1);
3093 result = gsl_blas_idamax((gsl_vector const *)arg1);
3094 ST(argvi) = SWIG_NewPointerObj((CBLAS_INDEX_t *)memcpy((CBLAS_INDEX_t *)calloc(1,sizeof(CBLAS_INDEX_t)),&result,sizeof(CBLAS_INDEX_t)), SWIGTYPE_p_CBLAS_INDEX, SWIG_POINTER_OWN | 0); argvi++ ;
3095
3096 XSRETURN(argvi);
3097 fail:
3098
3099 SWIG_croak_null();
3100 }
3101 }
3102
3103
XS(_wrap_gsl_blas_icamax)3104 XS(_wrap_gsl_blas_icamax) {
3105 {
3106 gsl_vector_complex_float *arg1 = (gsl_vector_complex_float *) 0 ;
3107 void *argp1 = 0 ;
3108 int res1 = 0 ;
3109 int argvi = 0;
3110 CBLAS_INDEX_t result;
3111 dXSARGS;
3112
3113 if ((items < 1) || (items > 1)) {
3114 SWIG_croak("Usage: gsl_blas_icamax(X);");
3115 }
3116 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_complex_float, 0 | 0 );
3117 if (!SWIG_IsOK(res1)) {
3118 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_blas_icamax" "', argument " "1"" of type '" "gsl_vector_complex_float const *""'");
3119 }
3120 arg1 = (gsl_vector_complex_float *)(argp1);
3121 result = gsl_blas_icamax((gsl_vector_complex_float const *)arg1);
3122 ST(argvi) = SWIG_NewPointerObj((CBLAS_INDEX_t *)memcpy((CBLAS_INDEX_t *)calloc(1,sizeof(CBLAS_INDEX_t)),&result,sizeof(CBLAS_INDEX_t)), SWIGTYPE_p_CBLAS_INDEX, SWIG_POINTER_OWN | 0); argvi++ ;
3123
3124 XSRETURN(argvi);
3125 fail:
3126
3127 SWIG_croak_null();
3128 }
3129 }
3130
3131
XS(_wrap_gsl_blas_izamax)3132 XS(_wrap_gsl_blas_izamax) {
3133 {
3134 gsl_vector_complex *arg1 = (gsl_vector_complex *) 0 ;
3135 void *argp1 = 0 ;
3136 int res1 = 0 ;
3137 int argvi = 0;
3138 CBLAS_INDEX_t result;
3139 dXSARGS;
3140
3141 if ((items < 1) || (items > 1)) {
3142 SWIG_croak("Usage: gsl_blas_izamax(X);");
3143 }
3144 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
3145 if (!SWIG_IsOK(res1)) {
3146 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_blas_izamax" "', argument " "1"" of type '" "gsl_vector_complex const *""'");
3147 }
3148 arg1 = (gsl_vector_complex *)(argp1);
3149 result = gsl_blas_izamax((gsl_vector_complex const *)arg1);
3150 ST(argvi) = SWIG_NewPointerObj((CBLAS_INDEX_t *)memcpy((CBLAS_INDEX_t *)calloc(1,sizeof(CBLAS_INDEX_t)),&result,sizeof(CBLAS_INDEX_t)), SWIGTYPE_p_CBLAS_INDEX, SWIG_POINTER_OWN | 0); argvi++ ;
3151
3152 XSRETURN(argvi);
3153 fail:
3154
3155 SWIG_croak_null();
3156 }
3157 }
3158
3159
XS(_wrap_gsl_blas_sswap)3160 XS(_wrap_gsl_blas_sswap) {
3161 {
3162 gsl_vector_float *arg1 = (gsl_vector_float *) 0 ;
3163 gsl_vector_float *arg2 = (gsl_vector_float *) 0 ;
3164 void *argp1 = 0 ;
3165 int res1 = 0 ;
3166 void *argp2 = 0 ;
3167 int res2 = 0 ;
3168 int argvi = 0;
3169 int result;
3170 dXSARGS;
3171
3172 if ((items < 2) || (items > 2)) {
3173 SWIG_croak("Usage: gsl_blas_sswap(X,Y);");
3174 }
3175 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_float, 0 | 0 );
3176 if (!SWIG_IsOK(res1)) {
3177 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_blas_sswap" "', argument " "1"" of type '" "gsl_vector_float *""'");
3178 }
3179 arg1 = (gsl_vector_float *)(argp1);
3180 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_float, 0 | 0 );
3181 if (!SWIG_IsOK(res2)) {
3182 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_blas_sswap" "', argument " "2"" of type '" "gsl_vector_float *""'");
3183 }
3184 arg2 = (gsl_vector_float *)(argp2);
3185 result = (int)gsl_blas_sswap(arg1,arg2);
3186 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3187
3188
3189 XSRETURN(argvi);
3190 fail:
3191
3192
3193 SWIG_croak_null();
3194 }
3195 }
3196
3197
XS(_wrap_gsl_blas_scopy)3198 XS(_wrap_gsl_blas_scopy) {
3199 {
3200 gsl_vector_float *arg1 = (gsl_vector_float *) 0 ;
3201 gsl_vector_float *arg2 = (gsl_vector_float *) 0 ;
3202 void *argp1 = 0 ;
3203 int res1 = 0 ;
3204 void *argp2 = 0 ;
3205 int res2 = 0 ;
3206 int argvi = 0;
3207 int result;
3208 dXSARGS;
3209
3210 if ((items < 2) || (items > 2)) {
3211 SWIG_croak("Usage: gsl_blas_scopy(X,Y);");
3212 }
3213 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_float, 0 | 0 );
3214 if (!SWIG_IsOK(res1)) {
3215 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_blas_scopy" "', argument " "1"" of type '" "gsl_vector_float const *""'");
3216 }
3217 arg1 = (gsl_vector_float *)(argp1);
3218 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_float, 0 | 0 );
3219 if (!SWIG_IsOK(res2)) {
3220 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_blas_scopy" "', argument " "2"" of type '" "gsl_vector_float *""'");
3221 }
3222 arg2 = (gsl_vector_float *)(argp2);
3223 result = (int)gsl_blas_scopy((gsl_vector_float const *)arg1,arg2);
3224 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3225
3226
3227 XSRETURN(argvi);
3228 fail:
3229
3230
3231 SWIG_croak_null();
3232 }
3233 }
3234
3235
XS(_wrap_gsl_blas_saxpy)3236 XS(_wrap_gsl_blas_saxpy) {
3237 {
3238 float arg1 ;
3239 gsl_vector_float *arg2 = (gsl_vector_float *) 0 ;
3240 gsl_vector_float *arg3 = (gsl_vector_float *) 0 ;
3241 float val1 ;
3242 int ecode1 = 0 ;
3243 void *argp2 = 0 ;
3244 int res2 = 0 ;
3245 void *argp3 = 0 ;
3246 int res3 = 0 ;
3247 int argvi = 0;
3248 int result;
3249 dXSARGS;
3250
3251 if ((items < 3) || (items > 3)) {
3252 SWIG_croak("Usage: gsl_blas_saxpy(alpha,X,Y);");
3253 }
3254 ecode1 = SWIG_AsVal_float SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
3255 if (!SWIG_IsOK(ecode1)) {
3256 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_blas_saxpy" "', argument " "1"" of type '" "float""'");
3257 }
3258 arg1 = (float)(val1);
3259 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_float, 0 | 0 );
3260 if (!SWIG_IsOK(res2)) {
3261 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_blas_saxpy" "', argument " "2"" of type '" "gsl_vector_float const *""'");
3262 }
3263 arg2 = (gsl_vector_float *)(argp2);
3264 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector_float, 0 | 0 );
3265 if (!SWIG_IsOK(res3)) {
3266 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_blas_saxpy" "', argument " "3"" of type '" "gsl_vector_float *""'");
3267 }
3268 arg3 = (gsl_vector_float *)(argp3);
3269 result = (int)gsl_blas_saxpy(arg1,(gsl_vector_float const *)arg2,arg3);
3270 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3271
3272
3273
3274 XSRETURN(argvi);
3275 fail:
3276
3277
3278
3279 SWIG_croak_null();
3280 }
3281 }
3282
3283
XS(_wrap_gsl_blas_dswap)3284 XS(_wrap_gsl_blas_dswap) {
3285 {
3286 gsl_vector *arg1 = (gsl_vector *) 0 ;
3287 gsl_vector *arg2 = (gsl_vector *) 0 ;
3288 void *argp1 = 0 ;
3289 int res1 = 0 ;
3290 void *argp2 = 0 ;
3291 int res2 = 0 ;
3292 int argvi = 0;
3293 int result;
3294 dXSARGS;
3295
3296 if ((items < 2) || (items > 2)) {
3297 SWIG_croak("Usage: gsl_blas_dswap(X,Y);");
3298 }
3299 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
3300 if (!SWIG_IsOK(res1)) {
3301 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_blas_dswap" "', argument " "1"" of type '" "gsl_vector *""'");
3302 }
3303 arg1 = (gsl_vector *)(argp1);
3304 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
3305 if (!SWIG_IsOK(res2)) {
3306 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_blas_dswap" "', argument " "2"" of type '" "gsl_vector *""'");
3307 }
3308 arg2 = (gsl_vector *)(argp2);
3309 result = (int)gsl_blas_dswap(arg1,arg2);
3310 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3311
3312
3313 XSRETURN(argvi);
3314 fail:
3315
3316
3317 SWIG_croak_null();
3318 }
3319 }
3320
3321
XS(_wrap_gsl_blas_dcopy)3322 XS(_wrap_gsl_blas_dcopy) {
3323 {
3324 gsl_vector *arg1 = (gsl_vector *) 0 ;
3325 gsl_vector *arg2 = (gsl_vector *) 0 ;
3326 void *argp1 = 0 ;
3327 int res1 = 0 ;
3328 void *argp2 = 0 ;
3329 int res2 = 0 ;
3330 int argvi = 0;
3331 int result;
3332 dXSARGS;
3333
3334 if ((items < 2) || (items > 2)) {
3335 SWIG_croak("Usage: gsl_blas_dcopy(X,Y);");
3336 }
3337 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
3338 if (!SWIG_IsOK(res1)) {
3339 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_blas_dcopy" "', argument " "1"" of type '" "gsl_vector const *""'");
3340 }
3341 arg1 = (gsl_vector *)(argp1);
3342 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
3343 if (!SWIG_IsOK(res2)) {
3344 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_blas_dcopy" "', argument " "2"" of type '" "gsl_vector *""'");
3345 }
3346 arg2 = (gsl_vector *)(argp2);
3347 result = (int)gsl_blas_dcopy((gsl_vector const *)arg1,arg2);
3348 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3349
3350
3351 XSRETURN(argvi);
3352 fail:
3353
3354
3355 SWIG_croak_null();
3356 }
3357 }
3358
3359
XS(_wrap_gsl_blas_daxpy)3360 XS(_wrap_gsl_blas_daxpy) {
3361 {
3362 double arg1 ;
3363 gsl_vector *arg2 = (gsl_vector *) 0 ;
3364 gsl_vector *arg3 = (gsl_vector *) 0 ;
3365 double val1 ;
3366 int ecode1 = 0 ;
3367 void *argp2 = 0 ;
3368 int res2 = 0 ;
3369 void *argp3 = 0 ;
3370 int res3 = 0 ;
3371 int argvi = 0;
3372 int result;
3373 dXSARGS;
3374
3375 if ((items < 3) || (items > 3)) {
3376 SWIG_croak("Usage: gsl_blas_daxpy(alpha,X,Y);");
3377 }
3378 ecode1 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
3379 if (!SWIG_IsOK(ecode1)) {
3380 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_blas_daxpy" "', argument " "1"" of type '" "double""'");
3381 }
3382 arg1 = (double)(val1);
3383 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
3384 if (!SWIG_IsOK(res2)) {
3385 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_blas_daxpy" "', argument " "2"" of type '" "gsl_vector const *""'");
3386 }
3387 arg2 = (gsl_vector *)(argp2);
3388 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
3389 if (!SWIG_IsOK(res3)) {
3390 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_blas_daxpy" "', argument " "3"" of type '" "gsl_vector *""'");
3391 }
3392 arg3 = (gsl_vector *)(argp3);
3393 result = (int)gsl_blas_daxpy(arg1,(gsl_vector const *)arg2,arg3);
3394 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3395
3396
3397
3398 XSRETURN(argvi);
3399 fail:
3400
3401
3402
3403 SWIG_croak_null();
3404 }
3405 }
3406
3407
XS(_wrap_gsl_blas_cswap)3408 XS(_wrap_gsl_blas_cswap) {
3409 {
3410 gsl_vector_complex_float *arg1 = (gsl_vector_complex_float *) 0 ;
3411 gsl_vector_complex_float *arg2 = (gsl_vector_complex_float *) 0 ;
3412 void *argp1 = 0 ;
3413 int res1 = 0 ;
3414 void *argp2 = 0 ;
3415 int res2 = 0 ;
3416 int argvi = 0;
3417 int result;
3418 dXSARGS;
3419
3420 if ((items < 2) || (items > 2)) {
3421 SWIG_croak("Usage: gsl_blas_cswap(X,Y);");
3422 }
3423 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_complex_float, 0 | 0 );
3424 if (!SWIG_IsOK(res1)) {
3425 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_blas_cswap" "', argument " "1"" of type '" "gsl_vector_complex_float *""'");
3426 }
3427 arg1 = (gsl_vector_complex_float *)(argp1);
3428 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_complex_float, 0 | 0 );
3429 if (!SWIG_IsOK(res2)) {
3430 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_blas_cswap" "', argument " "2"" of type '" "gsl_vector_complex_float *""'");
3431 }
3432 arg2 = (gsl_vector_complex_float *)(argp2);
3433 result = (int)gsl_blas_cswap(arg1,arg2);
3434 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3435
3436
3437 XSRETURN(argvi);
3438 fail:
3439
3440
3441 SWIG_croak_null();
3442 }
3443 }
3444
3445
XS(_wrap_gsl_blas_ccopy)3446 XS(_wrap_gsl_blas_ccopy) {
3447 {
3448 gsl_vector_complex_float *arg1 = (gsl_vector_complex_float *) 0 ;
3449 gsl_vector_complex_float *arg2 = (gsl_vector_complex_float *) 0 ;
3450 void *argp1 = 0 ;
3451 int res1 = 0 ;
3452 void *argp2 = 0 ;
3453 int res2 = 0 ;
3454 int argvi = 0;
3455 int result;
3456 dXSARGS;
3457
3458 if ((items < 2) || (items > 2)) {
3459 SWIG_croak("Usage: gsl_blas_ccopy(X,Y);");
3460 }
3461 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_complex_float, 0 | 0 );
3462 if (!SWIG_IsOK(res1)) {
3463 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_blas_ccopy" "', argument " "1"" of type '" "gsl_vector_complex_float const *""'");
3464 }
3465 arg1 = (gsl_vector_complex_float *)(argp1);
3466 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_complex_float, 0 | 0 );
3467 if (!SWIG_IsOK(res2)) {
3468 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_blas_ccopy" "', argument " "2"" of type '" "gsl_vector_complex_float *""'");
3469 }
3470 arg2 = (gsl_vector_complex_float *)(argp2);
3471 result = (int)gsl_blas_ccopy((gsl_vector_complex_float const *)arg1,arg2);
3472 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3473
3474
3475 XSRETURN(argvi);
3476 fail:
3477
3478
3479 SWIG_croak_null();
3480 }
3481 }
3482
3483
XS(_wrap_gsl_blas_caxpy)3484 XS(_wrap_gsl_blas_caxpy) {
3485 {
3486 gsl_complex_float arg1 ;
3487 gsl_vector_complex_float *arg2 = (gsl_vector_complex_float *) 0 ;
3488 gsl_vector_complex_float *arg3 = (gsl_vector_complex_float *) 0 ;
3489 void *argp1 ;
3490 int res1 = 0 ;
3491 void *argp2 = 0 ;
3492 int res2 = 0 ;
3493 void *argp3 = 0 ;
3494 int res3 = 0 ;
3495 int argvi = 0;
3496 int result;
3497 dXSARGS;
3498
3499 if ((items < 3) || (items > 3)) {
3500 SWIG_croak("Usage: gsl_blas_caxpy(alpha,X,Y);");
3501 }
3502 {
3503 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex_float, 0 );
3504 if (!SWIG_IsOK(res1)) {
3505 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_blas_caxpy" "', argument " "1"" of type '" "gsl_complex_float const""'");
3506 }
3507 if (!argp1) {
3508 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_blas_caxpy" "', argument " "1"" of type '" "gsl_complex_float const""'");
3509 } else {
3510 arg1 = *((gsl_complex_float *)(argp1));
3511 }
3512 }
3513 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_complex_float, 0 | 0 );
3514 if (!SWIG_IsOK(res2)) {
3515 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_blas_caxpy" "', argument " "2"" of type '" "gsl_vector_complex_float const *""'");
3516 }
3517 arg2 = (gsl_vector_complex_float *)(argp2);
3518 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector_complex_float, 0 | 0 );
3519 if (!SWIG_IsOK(res3)) {
3520 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_blas_caxpy" "', argument " "3"" of type '" "gsl_vector_complex_float *""'");
3521 }
3522 arg3 = (gsl_vector_complex_float *)(argp3);
3523 result = (int)gsl_blas_caxpy(arg1,(gsl_vector_complex_float const *)arg2,arg3);
3524 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3525
3526
3527 XSRETURN(argvi);
3528 fail:
3529
3530
3531 SWIG_croak_null();
3532 }
3533 }
3534
3535
XS(_wrap_gsl_blas_zswap)3536 XS(_wrap_gsl_blas_zswap) {
3537 {
3538 gsl_vector_complex *arg1 = (gsl_vector_complex *) 0 ;
3539 gsl_vector_complex *arg2 = (gsl_vector_complex *) 0 ;
3540 void *argp1 = 0 ;
3541 int res1 = 0 ;
3542 void *argp2 = 0 ;
3543 int res2 = 0 ;
3544 int argvi = 0;
3545 int result;
3546 dXSARGS;
3547
3548 if ((items < 2) || (items > 2)) {
3549 SWIG_croak("Usage: gsl_blas_zswap(X,Y);");
3550 }
3551 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
3552 if (!SWIG_IsOK(res1)) {
3553 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_blas_zswap" "', argument " "1"" of type '" "gsl_vector_complex *""'");
3554 }
3555 arg1 = (gsl_vector_complex *)(argp1);
3556 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
3557 if (!SWIG_IsOK(res2)) {
3558 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_blas_zswap" "', argument " "2"" of type '" "gsl_vector_complex *""'");
3559 }
3560 arg2 = (gsl_vector_complex *)(argp2);
3561 result = (int)gsl_blas_zswap(arg1,arg2);
3562 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3563
3564
3565 XSRETURN(argvi);
3566 fail:
3567
3568
3569 SWIG_croak_null();
3570 }
3571 }
3572
3573
XS(_wrap_gsl_blas_zcopy)3574 XS(_wrap_gsl_blas_zcopy) {
3575 {
3576 gsl_vector_complex *arg1 = (gsl_vector_complex *) 0 ;
3577 gsl_vector_complex *arg2 = (gsl_vector_complex *) 0 ;
3578 void *argp1 = 0 ;
3579 int res1 = 0 ;
3580 void *argp2 = 0 ;
3581 int res2 = 0 ;
3582 int argvi = 0;
3583 int result;
3584 dXSARGS;
3585
3586 if ((items < 2) || (items > 2)) {
3587 SWIG_croak("Usage: gsl_blas_zcopy(X,Y);");
3588 }
3589 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
3590 if (!SWIG_IsOK(res1)) {
3591 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_blas_zcopy" "', argument " "1"" of type '" "gsl_vector_complex const *""'");
3592 }
3593 arg1 = (gsl_vector_complex *)(argp1);
3594 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
3595 if (!SWIG_IsOK(res2)) {
3596 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_blas_zcopy" "', argument " "2"" of type '" "gsl_vector_complex *""'");
3597 }
3598 arg2 = (gsl_vector_complex *)(argp2);
3599 result = (int)gsl_blas_zcopy((gsl_vector_complex const *)arg1,arg2);
3600 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3601
3602
3603 XSRETURN(argvi);
3604 fail:
3605
3606
3607 SWIG_croak_null();
3608 }
3609 }
3610
3611
XS(_wrap_gsl_blas_zaxpy)3612 XS(_wrap_gsl_blas_zaxpy) {
3613 {
3614 gsl_complex arg1 ;
3615 gsl_vector_complex *arg2 = (gsl_vector_complex *) 0 ;
3616 gsl_vector_complex *arg3 = (gsl_vector_complex *) 0 ;
3617 void *argp1 ;
3618 int res1 = 0 ;
3619 void *argp2 = 0 ;
3620 int res2 = 0 ;
3621 void *argp3 = 0 ;
3622 int res3 = 0 ;
3623 int argvi = 0;
3624 int result;
3625 dXSARGS;
3626
3627 if ((items < 3) || (items > 3)) {
3628 SWIG_croak("Usage: gsl_blas_zaxpy(alpha,X,Y);");
3629 }
3630 {
3631 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
3632 if (!SWIG_IsOK(res1)) {
3633 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_blas_zaxpy" "', argument " "1"" of type '" "gsl_complex const""'");
3634 }
3635 if (!argp1) {
3636 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_blas_zaxpy" "', argument " "1"" of type '" "gsl_complex const""'");
3637 } else {
3638 arg1 = *((gsl_complex *)(argp1));
3639 }
3640 }
3641 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
3642 if (!SWIG_IsOK(res2)) {
3643 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_blas_zaxpy" "', argument " "2"" of type '" "gsl_vector_complex const *""'");
3644 }
3645 arg2 = (gsl_vector_complex *)(argp2);
3646 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
3647 if (!SWIG_IsOK(res3)) {
3648 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_blas_zaxpy" "', argument " "3"" of type '" "gsl_vector_complex *""'");
3649 }
3650 arg3 = (gsl_vector_complex *)(argp3);
3651 result = (int)gsl_blas_zaxpy(arg1,(gsl_vector_complex const *)arg2,arg3);
3652 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3653
3654
3655 XSRETURN(argvi);
3656 fail:
3657
3658
3659 SWIG_croak_null();
3660 }
3661 }
3662
3663
XS(_wrap_gsl_blas_srotg)3664 XS(_wrap_gsl_blas_srotg) {
3665 {
3666 float *arg1 ;
3667 float *arg2 ;
3668 float *arg3 ;
3669 float *arg4 ;
3670 int argvi = 0;
3671 SV * _saved[4] ;
3672 int result;
3673 dXSARGS;
3674
3675 if ((items < 4) || (items > 4)) {
3676 SWIG_croak("Usage: gsl_blas_srotg(a,b,c,s);");
3677 }
3678 {
3679 struct perl_array * p_array = 0;
3680 I32 len;
3681 AV *array;
3682 int i;
3683 SV **tv;
3684 if (!SvROK(ST(0)))
3685 croak("Math::GSL : $a is not a reference!");
3686 if (SvTYPE(SvRV(ST(0))) != SVt_PVAV)
3687 croak("Math::GSL : $a is not an array ref!");
3688
3689 array = (AV*)SvRV(ST(0));
3690 len = av_len(array);
3691 p_array = (struct perl_array *) malloc((len+1)*sizeof(float)+sizeof(struct perl_array));
3692 p_array->len=len;
3693 p_array->array=array;
3694 arg1 = (float *)&p_array[1];
3695 for (i = 0; i <= len; i++) {
3696 tv = av_fetch(array, i, 0);
3697 arg1[i] = (float)(double) SvNV(*tv);
3698 }
3699 }
3700 {
3701 struct perl_array * p_array = 0;
3702 I32 len;
3703 AV *array;
3704 int i;
3705 SV **tv;
3706 if (!SvROK(ST(1)))
3707 croak("Math::GSL : $b is not a reference!");
3708 if (SvTYPE(SvRV(ST(1))) != SVt_PVAV)
3709 croak("Math::GSL : $b is not an array ref!");
3710
3711 array = (AV*)SvRV(ST(1));
3712 len = av_len(array);
3713 p_array = (struct perl_array *) malloc((len+1)*sizeof(float)+sizeof(struct perl_array));
3714 p_array->len=len;
3715 p_array->array=array;
3716 arg2 = (float *)&p_array[1];
3717 for (i = 0; i <= len; i++) {
3718 tv = av_fetch(array, i, 0);
3719 arg2[i] = (float)(double) SvNV(*tv);
3720 }
3721 }
3722 {
3723 struct perl_array * p_array = 0;
3724 I32 len;
3725 AV *array;
3726 int i;
3727 SV **tv;
3728 if (!SvROK(ST(2)))
3729 croak("Math::GSL : $c is not a reference!");
3730 if (SvTYPE(SvRV(ST(2))) != SVt_PVAV)
3731 croak("Math::GSL : $c is not an array ref!");
3732
3733 array = (AV*)SvRV(ST(2));
3734 len = av_len(array);
3735 p_array = (struct perl_array *) malloc((len+1)*sizeof(float)+sizeof(struct perl_array));
3736 p_array->len=len;
3737 p_array->array=array;
3738 arg3 = (float *)&p_array[1];
3739 for (i = 0; i <= len; i++) {
3740 tv = av_fetch(array, i, 0);
3741 arg3[i] = (float)(double) SvNV(*tv);
3742 }
3743 }
3744 {
3745 struct perl_array * p_array = 0;
3746 I32 len;
3747 AV *array;
3748 int i;
3749 SV **tv;
3750 if (!SvROK(ST(3)))
3751 croak("Math::GSL : $s is not a reference!");
3752 if (SvTYPE(SvRV(ST(3))) != SVt_PVAV)
3753 croak("Math::GSL : $s is not an array ref!");
3754
3755 array = (AV*)SvRV(ST(3));
3756 len = av_len(array);
3757 p_array = (struct perl_array *) malloc((len+1)*sizeof(float)+sizeof(struct perl_array));
3758 p_array->len=len;
3759 p_array->array=array;
3760 arg4 = (float *)&p_array[1];
3761 for (i = 0; i <= len; i++) {
3762 tv = av_fetch(array, i, 0);
3763 arg4[i] = (float)(double) SvNV(*tv);
3764 }
3765 }
3766 _saved[0] = ST(0);
3767 _saved[1] = ST(1);
3768 _saved[2] = ST(2);
3769 _saved[3] = ST(3);
3770 result = (int)gsl_blas_srotg(arg1,arg2,arg3,arg4);
3771 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3772 {
3773 struct perl_array * p_array = 0;
3774 int i;
3775 SV **tv;
3776 p_array=(struct perl_array *)(((char*)arg1)-sizeof(struct perl_array));
3777 for (i = 0; i <= p_array->len; i++) {
3778 double val=(double)(float)(arg1[i]);
3779 tv = av_fetch(p_array->array, i, 0);
3780 sv_setnv(*tv, val);
3781 if (argvi >= items) {
3782 EXTEND(sp,1); /* Extend the stack by 1 object */
3783 }
3784 ST(argvi) = sv_newmortal();
3785 sv_setnv(ST(argvi), val);
3786 argvi++;
3787 }
3788 }
3789 {
3790 struct perl_array * p_array = 0;
3791 int i;
3792 SV **tv;
3793 p_array=(struct perl_array *)(((char*)arg2)-sizeof(struct perl_array));
3794 for (i = 0; i <= p_array->len; i++) {
3795 double val=(double)(float)(arg2[i]);
3796 tv = av_fetch(p_array->array, i, 0);
3797 sv_setnv(*tv, val);
3798 if (argvi >= items) {
3799 EXTEND(sp,1); /* Extend the stack by 1 object */
3800 }
3801 ST(argvi) = sv_newmortal();
3802 sv_setnv(ST(argvi), val);
3803 argvi++;
3804 }
3805 }
3806 {
3807 struct perl_array * p_array = 0;
3808 int i;
3809 SV **tv;
3810 p_array=(struct perl_array *)(((char*)arg3)-sizeof(struct perl_array));
3811 for (i = 0; i <= p_array->len; i++) {
3812 double val=(double)(float)(arg3[i]);
3813 tv = av_fetch(p_array->array, i, 0);
3814 sv_setnv(*tv, val);
3815 if (argvi >= items) {
3816 EXTEND(sp,1); /* Extend the stack by 1 object */
3817 }
3818 ST(argvi) = sv_newmortal();
3819 sv_setnv(ST(argvi), val);
3820 argvi++;
3821 }
3822 }
3823 {
3824 struct perl_array * p_array = 0;
3825 int i;
3826 SV **tv;
3827 p_array=(struct perl_array *)(((char*)arg4)-sizeof(struct perl_array));
3828 for (i = 0; i <= p_array->len; i++) {
3829 double val=(double)(float)(arg4[i]);
3830 tv = av_fetch(p_array->array, i, 0);
3831 sv_setnv(*tv, val);
3832 if (argvi >= items) {
3833 EXTEND(sp,1); /* Extend the stack by 1 object */
3834 }
3835 ST(argvi) = sv_newmortal();
3836 sv_setnv(ST(argvi), val);
3837 argvi++;
3838 }
3839 }
3840 {
3841 // if (arg1) free(((char*)arg1)-sizeof(struct perl_array));
3842 }
3843 {
3844 // if (arg2) free(((char*)arg2)-sizeof(struct perl_array));
3845 }
3846 {
3847 // if (arg3) free(((char*)arg3)-sizeof(struct perl_array));
3848 }
3849 {
3850 // if (arg4) free(((char*)arg4)-sizeof(struct perl_array));
3851 }
3852 XSRETURN(argvi);
3853 fail:
3854 {
3855 // if (arg1) free(((char*)arg1)-sizeof(struct perl_array));
3856 }
3857 {
3858 // if (arg2) free(((char*)arg2)-sizeof(struct perl_array));
3859 }
3860 {
3861 // if (arg3) free(((char*)arg3)-sizeof(struct perl_array));
3862 }
3863 {
3864 // if (arg4) free(((char*)arg4)-sizeof(struct perl_array));
3865 }
3866 SWIG_croak_null();
3867 }
3868 }
3869
3870
XS(_wrap_gsl_blas_srotmg)3871 XS(_wrap_gsl_blas_srotmg) {
3872 {
3873 float *arg1 ;
3874 float *arg2 ;
3875 float *arg3 ;
3876 float arg4 ;
3877 float *arg5 ;
3878 float val4 ;
3879 int ecode4 = 0 ;
3880 int argvi = 0;
3881 SV * _saved[4] ;
3882 int result;
3883 dXSARGS;
3884
3885 if ((items < 5) || (items > 5)) {
3886 SWIG_croak("Usage: gsl_blas_srotmg(d1,d2,b1,b2,P);");
3887 }
3888 {
3889 struct perl_array * p_array = 0;
3890 I32 len;
3891 AV *array;
3892 int i;
3893 SV **tv;
3894 if (!SvROK(ST(0)))
3895 croak("Math::GSL : $d1 is not a reference!");
3896 if (SvTYPE(SvRV(ST(0))) != SVt_PVAV)
3897 croak("Math::GSL : $d1 is not an array ref!");
3898
3899 array = (AV*)SvRV(ST(0));
3900 len = av_len(array);
3901 p_array = (struct perl_array *) malloc((len+1)*sizeof(float)+sizeof(struct perl_array));
3902 p_array->len=len;
3903 p_array->array=array;
3904 arg1 = (float *)&p_array[1];
3905 for (i = 0; i <= len; i++) {
3906 tv = av_fetch(array, i, 0);
3907 arg1[i] = (float)(double) SvNV(*tv);
3908 }
3909 }
3910 {
3911 struct perl_array * p_array = 0;
3912 I32 len;
3913 AV *array;
3914 int i;
3915 SV **tv;
3916 if (!SvROK(ST(1)))
3917 croak("Math::GSL : $d2 is not a reference!");
3918 if (SvTYPE(SvRV(ST(1))) != SVt_PVAV)
3919 croak("Math::GSL : $d2 is not an array ref!");
3920
3921 array = (AV*)SvRV(ST(1));
3922 len = av_len(array);
3923 p_array = (struct perl_array *) malloc((len+1)*sizeof(float)+sizeof(struct perl_array));
3924 p_array->len=len;
3925 p_array->array=array;
3926 arg2 = (float *)&p_array[1];
3927 for (i = 0; i <= len; i++) {
3928 tv = av_fetch(array, i, 0);
3929 arg2[i] = (float)(double) SvNV(*tv);
3930 }
3931 }
3932 {
3933 struct perl_array * p_array = 0;
3934 I32 len;
3935 AV *array;
3936 int i;
3937 SV **tv;
3938 if (!SvROK(ST(2)))
3939 croak("Math::GSL : $b1 is not a reference!");
3940 if (SvTYPE(SvRV(ST(2))) != SVt_PVAV)
3941 croak("Math::GSL : $b1 is not an array ref!");
3942
3943 array = (AV*)SvRV(ST(2));
3944 len = av_len(array);
3945 p_array = (struct perl_array *) malloc((len+1)*sizeof(float)+sizeof(struct perl_array));
3946 p_array->len=len;
3947 p_array->array=array;
3948 arg3 = (float *)&p_array[1];
3949 for (i = 0; i <= len; i++) {
3950 tv = av_fetch(array, i, 0);
3951 arg3[i] = (float)(double) SvNV(*tv);
3952 }
3953 }
3954 ecode4 = SWIG_AsVal_float SWIG_PERL_CALL_ARGS_2(ST(3), &val4);
3955 if (!SWIG_IsOK(ecode4)) {
3956 SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "gsl_blas_srotmg" "', argument " "4"" of type '" "float""'");
3957 }
3958 arg4 = (float)(val4);
3959 {
3960 struct perl_array * p_array = 0;
3961 I32 len;
3962 AV *array;
3963 int i;
3964 SV **tv;
3965 if (!SvROK(ST(4)))
3966 croak("Math::GSL : $P is not a reference!");
3967 if (SvTYPE(SvRV(ST(4))) != SVt_PVAV)
3968 croak("Math::GSL : $P is not an array ref!");
3969
3970 array = (AV*)SvRV(ST(4));
3971 len = av_len(array);
3972 p_array = (struct perl_array *) malloc((len+1)*sizeof(float)+sizeof(struct perl_array));
3973 p_array->len=len;
3974 p_array->array=array;
3975 arg5 = (float *)&p_array[1];
3976 for (i = 0; i <= len; i++) {
3977 tv = av_fetch(array, i, 0);
3978 arg5[i] = (float)(double) SvNV(*tv);
3979 }
3980 }
3981 _saved[0] = ST(0);
3982 _saved[1] = ST(1);
3983 _saved[2] = ST(2);
3984 _saved[3] = ST(4);
3985 result = (int)gsl_blas_srotmg(arg1,arg2,arg3,arg4,arg5);
3986 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3987 {
3988 struct perl_array * p_array = 0;
3989 int i;
3990 SV **tv;
3991 p_array=(struct perl_array *)(((char*)arg1)-sizeof(struct perl_array));
3992 for (i = 0; i <= p_array->len; i++) {
3993 double val=(double)(float)(arg1[i]);
3994 tv = av_fetch(p_array->array, i, 0);
3995 sv_setnv(*tv, val);
3996 if (argvi >= items) {
3997 EXTEND(sp,1); /* Extend the stack by 1 object */
3998 }
3999 ST(argvi) = sv_newmortal();
4000 sv_setnv(ST(argvi), val);
4001 argvi++;
4002 }
4003 }
4004 {
4005 struct perl_array * p_array = 0;
4006 int i;
4007 SV **tv;
4008 p_array=(struct perl_array *)(((char*)arg2)-sizeof(struct perl_array));
4009 for (i = 0; i <= p_array->len; i++) {
4010 double val=(double)(float)(arg2[i]);
4011 tv = av_fetch(p_array->array, i, 0);
4012 sv_setnv(*tv, val);
4013 if (argvi >= items) {
4014 EXTEND(sp,1); /* Extend the stack by 1 object */
4015 }
4016 ST(argvi) = sv_newmortal();
4017 sv_setnv(ST(argvi), val);
4018 argvi++;
4019 }
4020 }
4021 {
4022 struct perl_array * p_array = 0;
4023 int i;
4024 SV **tv;
4025 p_array=(struct perl_array *)(((char*)arg3)-sizeof(struct perl_array));
4026 for (i = 0; i <= p_array->len; i++) {
4027 double val=(double)(float)(arg3[i]);
4028 tv = av_fetch(p_array->array, i, 0);
4029 sv_setnv(*tv, val);
4030 if (argvi >= items) {
4031 EXTEND(sp,1); /* Extend the stack by 1 object */
4032 }
4033 ST(argvi) = sv_newmortal();
4034 sv_setnv(ST(argvi), val);
4035 argvi++;
4036 }
4037 }
4038 {
4039 struct perl_array * p_array = 0;
4040 int i;
4041 SV **tv;
4042 p_array=(struct perl_array *)(((char*)arg5)-sizeof(struct perl_array));
4043 for (i = 0; i <= p_array->len; i++) {
4044 double val=(double)(float)(arg5[i]);
4045 tv = av_fetch(p_array->array, i, 0);
4046 sv_setnv(*tv, val);
4047 if (argvi >= items) {
4048 EXTEND(sp,1); /* Extend the stack by 1 object */
4049 }
4050 ST(argvi) = sv_newmortal();
4051 sv_setnv(ST(argvi), val);
4052 argvi++;
4053 }
4054 }
4055 {
4056 // if (arg1) free(((char*)arg1)-sizeof(struct perl_array));
4057 }
4058 {
4059 // if (arg2) free(((char*)arg2)-sizeof(struct perl_array));
4060 }
4061 {
4062 // if (arg3) free(((char*)arg3)-sizeof(struct perl_array));
4063 }
4064
4065 {
4066 // if (arg5) free(((char*)arg5)-sizeof(struct perl_array));
4067 }
4068 XSRETURN(argvi);
4069 fail:
4070 {
4071 // if (arg1) free(((char*)arg1)-sizeof(struct perl_array));
4072 }
4073 {
4074 // if (arg2) free(((char*)arg2)-sizeof(struct perl_array));
4075 }
4076 {
4077 // if (arg3) free(((char*)arg3)-sizeof(struct perl_array));
4078 }
4079
4080 {
4081 // if (arg5) free(((char*)arg5)-sizeof(struct perl_array));
4082 }
4083 SWIG_croak_null();
4084 }
4085 }
4086
4087
XS(_wrap_gsl_blas_srot)4088 XS(_wrap_gsl_blas_srot) {
4089 {
4090 gsl_vector_float *arg1 = (gsl_vector_float *) 0 ;
4091 gsl_vector_float *arg2 = (gsl_vector_float *) 0 ;
4092 float arg3 ;
4093 float arg4 ;
4094 void *argp1 = 0 ;
4095 int res1 = 0 ;
4096 void *argp2 = 0 ;
4097 int res2 = 0 ;
4098 float val3 ;
4099 int ecode3 = 0 ;
4100 float val4 ;
4101 int ecode4 = 0 ;
4102 int argvi = 0;
4103 int result;
4104 dXSARGS;
4105
4106 if ((items < 4) || (items > 4)) {
4107 SWIG_croak("Usage: gsl_blas_srot(X,Y,c,s);");
4108 }
4109 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_float, 0 | 0 );
4110 if (!SWIG_IsOK(res1)) {
4111 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_blas_srot" "', argument " "1"" of type '" "gsl_vector_float *""'");
4112 }
4113 arg1 = (gsl_vector_float *)(argp1);
4114 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_float, 0 | 0 );
4115 if (!SWIG_IsOK(res2)) {
4116 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_blas_srot" "', argument " "2"" of type '" "gsl_vector_float *""'");
4117 }
4118 arg2 = (gsl_vector_float *)(argp2);
4119 ecode3 = SWIG_AsVal_float SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
4120 if (!SWIG_IsOK(ecode3)) {
4121 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_blas_srot" "', argument " "3"" of type '" "float""'");
4122 }
4123 arg3 = (float)(val3);
4124 ecode4 = SWIG_AsVal_float SWIG_PERL_CALL_ARGS_2(ST(3), &val4);
4125 if (!SWIG_IsOK(ecode4)) {
4126 SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "gsl_blas_srot" "', argument " "4"" of type '" "float""'");
4127 }
4128 arg4 = (float)(val4);
4129 result = (int)gsl_blas_srot(arg1,arg2,arg3,arg4);
4130 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4131
4132
4133
4134
4135 XSRETURN(argvi);
4136 fail:
4137
4138
4139
4140
4141 SWIG_croak_null();
4142 }
4143 }
4144
4145
XS(_wrap_gsl_blas_srotm)4146 XS(_wrap_gsl_blas_srotm) {
4147 {
4148 gsl_vector_float *arg1 = (gsl_vector_float *) 0 ;
4149 gsl_vector_float *arg2 = (gsl_vector_float *) 0 ;
4150 float *arg3 ;
4151 void *argp1 = 0 ;
4152 int res1 = 0 ;
4153 void *argp2 = 0 ;
4154 int res2 = 0 ;
4155 int argvi = 0;
4156 SV * _saved[1] ;
4157 int result;
4158 dXSARGS;
4159
4160 if ((items < 3) || (items > 3)) {
4161 SWIG_croak("Usage: gsl_blas_srotm(X,Y,P);");
4162 }
4163 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector_float, 0 | 0 );
4164 if (!SWIG_IsOK(res1)) {
4165 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_blas_srotm" "', argument " "1"" of type '" "gsl_vector_float *""'");
4166 }
4167 arg1 = (gsl_vector_float *)(argp1);
4168 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_float, 0 | 0 );
4169 if (!SWIG_IsOK(res2)) {
4170 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_blas_srotm" "', argument " "2"" of type '" "gsl_vector_float *""'");
4171 }
4172 arg2 = (gsl_vector_float *)(argp2);
4173 {
4174 AV *tempav;
4175 I32 len;
4176 int i;
4177 SV **tv;
4178 if (!SvROK(ST(2)))
4179 croak("Math::GSL : $P is not a reference!");
4180 if (SvTYPE(SvRV(ST(2))) != SVt_PVAV)
4181 croak("Math::GSL : $P is not an array ref!");
4182
4183 tempav = (AV*)SvRV(ST(2));
4184 len = av_len(tempav);
4185 arg3 = (float *) malloc((len+2)*sizeof(float));
4186 for (i = 0; i <= len; i++) {
4187 tv = av_fetch(tempav, i, 0);
4188 arg3[i] = (float)(double) SvNV(*tv);
4189 }
4190 }
4191 _saved[0] = ST(2);
4192 result = (int)gsl_blas_srotm(arg1,arg2,(float const (*))arg3);
4193 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4194 {
4195 struct perl_array * p_array = 0;
4196 int i;
4197 SV **tv;
4198 p_array=(struct perl_array *)(((char*)arg3)-sizeof(struct perl_array));
4199 for (i = 0; i <= p_array->len; i++) {
4200 double val=(double)(float)(arg3[i]);
4201 tv = av_fetch(p_array->array, i, 0);
4202 sv_setnv(*tv, val);
4203 if (argvi >= items) {
4204 EXTEND(sp,1); /* Extend the stack by 1 object */
4205 }
4206 ST(argvi) = sv_newmortal();
4207 sv_setnv(ST(argvi), val);
4208 argvi++;
4209 }
4210 }
4211
4212
4213 {
4214 //if (arg3) free(arg3);
4215 }
4216 XSRETURN(argvi);
4217 fail:
4218
4219
4220 {
4221 //if (arg3) free(arg3);
4222 }
4223 SWIG_croak_null();
4224 }
4225 }
4226
4227
XS(_wrap_gsl_blas_drotg)4228 XS(_wrap_gsl_blas_drotg) {
4229 {
4230 double *arg1 ;
4231 double *arg2 ;
4232 double *arg3 ;
4233 double *arg4 ;
4234 double temp3 ;
4235 int res3 = SWIG_TMPOBJ ;
4236 double temp4 ;
4237 int res4 = SWIG_TMPOBJ ;
4238 int argvi = 0;
4239 int result;
4240 dXSARGS;
4241
4242 arg3 = &temp3;
4243 arg4 = &temp4;
4244 if ((items < 2) || (items > 2)) {
4245 SWIG_croak("Usage: gsl_blas_drotg(a,b);");
4246 }
4247 {
4248 AV *tempav;
4249 I32 len;
4250 int i;
4251 SV **tv;
4252 if (!SvROK(ST(0)))
4253 croak("Math::GSL : $a is not a reference!");
4254 if (SvTYPE(SvRV(ST(0))) != SVt_PVAV)
4255 croak("Math::GSL : $a is not an array ref!");
4256
4257 tempav = (AV*)SvRV(ST(0));
4258 len = av_len(tempav);
4259 arg1 = (double *) malloc((len+2)*sizeof(double));
4260 for (i = 0; i <= len; i++) {
4261 tv = av_fetch(tempav, i, 0);
4262 arg1[i] = (double) SvNV(*tv);
4263 }
4264 }
4265 {
4266 AV *tempav;
4267 I32 len;
4268 int i;
4269 SV **tv;
4270 if (!SvROK(ST(1)))
4271 croak("Math::GSL : $b is not a reference!");
4272 if (SvTYPE(SvRV(ST(1))) != SVt_PVAV)
4273 croak("Math::GSL : $b is not an array ref!");
4274
4275 tempav = (AV*)SvRV(ST(1));
4276 len = av_len(tempav);
4277 arg2 = (double *) malloc((len+2)*sizeof(double));
4278 for (i = 0; i <= len; i++) {
4279 tv = av_fetch(tempav, i, 0);
4280 arg2[i] = (double) SvNV(*tv);
4281 }
4282 }
4283 result = (int)gsl_blas_drotg(arg1,arg2,arg3,arg4);
4284 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4285 if (SWIG_IsTmpObj(res3)) {
4286 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((*arg3)); argvi++ ;
4287 } else {
4288 int new_flags = SWIG_IsNewObj(res3) ? (SWIG_POINTER_OWN | 0) : 0;
4289 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg3), SWIGTYPE_p_double, new_flags); argvi++ ;
4290 }
4291 if (SWIG_IsTmpObj(res4)) {
4292 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((*arg4)); argvi++ ;
4293 } else {
4294 int new_flags = SWIG_IsNewObj(res4) ? (SWIG_POINTER_OWN | 0) : 0;
4295 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg4), SWIGTYPE_p_double, new_flags); argvi++ ;
4296 }
4297 {
4298 if (arg1) free(arg1);
4299 }
4300 {
4301 if (arg2) free(arg2);
4302 }
4303
4304
4305 XSRETURN(argvi);
4306 fail:
4307 {
4308 if (arg1) free(arg1);
4309 }
4310 {
4311 if (arg2) free(arg2);
4312 }
4313
4314
4315 SWIG_croak_null();
4316 }
4317 }
4318
4319
XS(_wrap_gsl_blas_drotmg)4320 XS(_wrap_gsl_blas_drotmg) {
4321 {
4322 double *arg1 ;
4323 double *arg2 ;
4324 double *arg3 ;
4325 double arg4 ;
4326 double *arg5 ;
4327 void *argp1 = 0 ;
4328 int res1 = 0 ;
4329 void *argp2 = 0 ;
4330 int res2 = 0 ;
4331 void *argp3 = 0 ;
4332 int res3 = 0 ;
4333 double val4 ;
4334 int ecode4 = 0 ;
4335 void *argp5 = 0 ;
4336 int res5 = 0 ;
4337 int argvi = 0;
4338 int result;
4339 dXSARGS;
4340
4341 if ((items < 5) || (items > 5)) {
4342 SWIG_croak("Usage: gsl_blas_drotmg(d1,d2,b1,b2,P);");
4343 }
4344 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_double, 0 | 0 );
4345 if (!SWIG_IsOK(res1)) {
4346 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_blas_drotmg" "', argument " "1"" of type '" "double []""'");
4347 }
4348 arg1 = (double *)(argp1);
4349 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_double, 0 | 0 );
4350 if (!SWIG_IsOK(res2)) {
4351 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_blas_drotmg" "', argument " "2"" of type '" "double []""'");
4352 }
4353 arg2 = (double *)(argp2);
4354 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_double, 0 | 0 );
4355 if (!SWIG_IsOK(res3)) {
4356 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_blas_drotmg" "', argument " "3"" of type '" "double []""'");
4357 }
4358 arg3 = (double *)(argp3);
4359 ecode4 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(3), &val4);
4360 if (!SWIG_IsOK(ecode4)) {
4361 SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "gsl_blas_drotmg" "', argument " "4"" of type '" "double""'");
4362 }
4363 arg4 = (double)(val4);
4364 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_double, 0 | 0 );
4365 if (!SWIG_IsOK(res5)) {
4366 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_blas_drotmg" "', argument " "5"" of type '" "double []""'");
4367 }
4368 arg5 = (double *)(argp5);
4369 result = (int)gsl_blas_drotmg(arg1,arg2,arg3,arg4,arg5);
4370 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4371
4372
4373
4374
4375
4376 XSRETURN(argvi);
4377 fail:
4378
4379
4380
4381
4382
4383 SWIG_croak_null();
4384 }
4385 }
4386
4387
XS(_wrap_gsl_blas_drot)4388 XS(_wrap_gsl_blas_drot) {
4389 {
4390 gsl_vector *arg1 = (gsl_vector *) 0 ;
4391 gsl_vector *arg2 = (gsl_vector *) 0 ;
4392 double arg3 ;
4393 double arg4 ;
4394 void *argp1 = 0 ;
4395 int res1 = 0 ;
4396 void *argp2 = 0 ;
4397 int res2 = 0 ;
4398 double val3 ;
4399 int ecode3 = 0 ;
4400 double val4 ;
4401 int ecode4 = 0 ;
4402 int argvi = 0;
4403 int result;
4404 dXSARGS;
4405
4406 if ((items < 4) || (items > 4)) {
4407 SWIG_croak("Usage: gsl_blas_drot(X,Y,c,s);");
4408 }
4409 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
4410 if (!SWIG_IsOK(res1)) {
4411 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_blas_drot" "', argument " "1"" of type '" "gsl_vector *""'");
4412 }
4413 arg1 = (gsl_vector *)(argp1);
4414 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
4415 if (!SWIG_IsOK(res2)) {
4416 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_blas_drot" "', argument " "2"" of type '" "gsl_vector *""'");
4417 }
4418 arg2 = (gsl_vector *)(argp2);
4419 ecode3 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
4420 if (!SWIG_IsOK(ecode3)) {
4421 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_blas_drot" "', argument " "3"" of type '" "double""'");
4422 }
4423 arg3 = (double)(val3);
4424 ecode4 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(3), &val4);
4425 if (!SWIG_IsOK(ecode4)) {
4426 SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "gsl_blas_drot" "', argument " "4"" of type '" "double""'");
4427 }
4428 arg4 = (double)(val4);
4429 result = (int)gsl_blas_drot(arg1,arg2,arg3,arg4);
4430 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4431
4432
4433
4434
4435 XSRETURN(argvi);
4436 fail:
4437
4438
4439
4440
4441 SWIG_croak_null();
4442 }
4443 }
4444
4445
XS(_wrap_gsl_blas_drotm)4446 XS(_wrap_gsl_blas_drotm) {
4447 {
4448 gsl_vector *arg1 = (gsl_vector *) 0 ;
4449 gsl_vector *arg2 = (gsl_vector *) 0 ;
4450 double *arg3 ;
4451 void *argp1 = 0 ;
4452 int res1 = 0 ;
4453 void *argp2 = 0 ;
4454 int res2 = 0 ;
4455 int argvi = 0;
4456 int result;
4457 dXSARGS;
4458
4459 if ((items < 3) || (items > 3)) {
4460 SWIG_croak("Usage: gsl_blas_drotm(X,Y,P);");
4461 }
4462 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
4463 if (!SWIG_IsOK(res1)) {
4464 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_blas_drotm" "', argument " "1"" of type '" "gsl_vector *""'");
4465 }
4466 arg1 = (gsl_vector *)(argp1);
4467 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
4468 if (!SWIG_IsOK(res2)) {
4469 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_blas_drotm" "', argument " "2"" of type '" "gsl_vector *""'");
4470 }
4471 arg2 = (gsl_vector *)(argp2);
4472 {
4473 AV *tempav;
4474 I32 len;
4475 int i;
4476 SV **tv;
4477 if (!SvROK(ST(2)))
4478 croak("Math::GSL : $P is not a reference!");
4479 if (SvTYPE(SvRV(ST(2))) != SVt_PVAV)
4480 croak("Math::GSL : $P is not an array ref!");
4481
4482 tempav = (AV*)SvRV(ST(2));
4483 len = av_len(tempav);
4484 arg3 = (double *) malloc((len+2)*sizeof(double));
4485 for (i = 0; i <= len; i++) {
4486 tv = av_fetch(tempav, i, 0);
4487 arg3[i] = (double) SvNV(*tv);
4488 }
4489 }
4490 result = (int)gsl_blas_drotm(arg1,arg2,(double const (*))arg3);
4491 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4492
4493
4494 {
4495 if (arg3) free(arg3);
4496 }
4497 XSRETURN(argvi);
4498 fail:
4499
4500
4501 {
4502 if (arg3) free(arg3);
4503 }
4504 SWIG_croak_null();
4505 }
4506 }
4507
4508
XS(_wrap_gsl_blas_sscal)4509 XS(_wrap_gsl_blas_sscal) {
4510 {
4511 float arg1 ;
4512 gsl_vector_float *arg2 = (gsl_vector_float *) 0 ;
4513 float val1 ;
4514 int ecode1 = 0 ;
4515 void *argp2 = 0 ;
4516 int res2 = 0 ;
4517 int argvi = 0;
4518 dXSARGS;
4519
4520 if ((items < 2) || (items > 2)) {
4521 SWIG_croak("Usage: gsl_blas_sscal(alpha,X);");
4522 }
4523 ecode1 = SWIG_AsVal_float SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
4524 if (!SWIG_IsOK(ecode1)) {
4525 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_blas_sscal" "', argument " "1"" of type '" "float""'");
4526 }
4527 arg1 = (float)(val1);
4528 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_float, 0 | 0 );
4529 if (!SWIG_IsOK(res2)) {
4530 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_blas_sscal" "', argument " "2"" of type '" "gsl_vector_float *""'");
4531 }
4532 arg2 = (gsl_vector_float *)(argp2);
4533 gsl_blas_sscal(arg1,arg2);
4534 ST(argvi) = &PL_sv_undef;
4535
4536
4537 XSRETURN(argvi);
4538 fail:
4539
4540
4541 SWIG_croak_null();
4542 }
4543 }
4544
4545
XS(_wrap_gsl_blas_dscal)4546 XS(_wrap_gsl_blas_dscal) {
4547 {
4548 double arg1 ;
4549 gsl_vector *arg2 = (gsl_vector *) 0 ;
4550 double val1 ;
4551 int ecode1 = 0 ;
4552 void *argp2 = 0 ;
4553 int res2 = 0 ;
4554 int argvi = 0;
4555 dXSARGS;
4556
4557 if ((items < 2) || (items > 2)) {
4558 SWIG_croak("Usage: gsl_blas_dscal(alpha,X);");
4559 }
4560 ecode1 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
4561 if (!SWIG_IsOK(ecode1)) {
4562 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_blas_dscal" "', argument " "1"" of type '" "double""'");
4563 }
4564 arg1 = (double)(val1);
4565 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
4566 if (!SWIG_IsOK(res2)) {
4567 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_blas_dscal" "', argument " "2"" of type '" "gsl_vector *""'");
4568 }
4569 arg2 = (gsl_vector *)(argp2);
4570 gsl_blas_dscal(arg1,arg2);
4571 ST(argvi) = &PL_sv_undef;
4572
4573
4574 XSRETURN(argvi);
4575 fail:
4576
4577
4578 SWIG_croak_null();
4579 }
4580 }
4581
4582
XS(_wrap_gsl_blas_cscal)4583 XS(_wrap_gsl_blas_cscal) {
4584 {
4585 gsl_complex_float arg1 ;
4586 gsl_vector_complex_float *arg2 = (gsl_vector_complex_float *) 0 ;
4587 void *argp1 ;
4588 int res1 = 0 ;
4589 void *argp2 = 0 ;
4590 int res2 = 0 ;
4591 int argvi = 0;
4592 dXSARGS;
4593
4594 if ((items < 2) || (items > 2)) {
4595 SWIG_croak("Usage: gsl_blas_cscal(alpha,X);");
4596 }
4597 {
4598 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex_float, 0 );
4599 if (!SWIG_IsOK(res1)) {
4600 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_blas_cscal" "', argument " "1"" of type '" "gsl_complex_float const""'");
4601 }
4602 if (!argp1) {
4603 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_blas_cscal" "', argument " "1"" of type '" "gsl_complex_float const""'");
4604 } else {
4605 arg1 = *((gsl_complex_float *)(argp1));
4606 }
4607 }
4608 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_complex_float, 0 | 0 );
4609 if (!SWIG_IsOK(res2)) {
4610 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_blas_cscal" "', argument " "2"" of type '" "gsl_vector_complex_float *""'");
4611 }
4612 arg2 = (gsl_vector_complex_float *)(argp2);
4613 gsl_blas_cscal(arg1,arg2);
4614 ST(argvi) = &PL_sv_undef;
4615
4616 XSRETURN(argvi);
4617 fail:
4618
4619 SWIG_croak_null();
4620 }
4621 }
4622
4623
XS(_wrap_gsl_blas_zscal)4624 XS(_wrap_gsl_blas_zscal) {
4625 {
4626 gsl_complex arg1 ;
4627 gsl_vector_complex *arg2 = (gsl_vector_complex *) 0 ;
4628 void *argp1 ;
4629 int res1 = 0 ;
4630 void *argp2 = 0 ;
4631 int res2 = 0 ;
4632 int argvi = 0;
4633 dXSARGS;
4634
4635 if ((items < 2) || (items > 2)) {
4636 SWIG_croak("Usage: gsl_blas_zscal(alpha,X);");
4637 }
4638 {
4639 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
4640 if (!SWIG_IsOK(res1)) {
4641 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_blas_zscal" "', argument " "1"" of type '" "gsl_complex const""'");
4642 }
4643 if (!argp1) {
4644 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_blas_zscal" "', argument " "1"" of type '" "gsl_complex const""'");
4645 } else {
4646 arg1 = *((gsl_complex *)(argp1));
4647 }
4648 }
4649 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
4650 if (!SWIG_IsOK(res2)) {
4651 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_blas_zscal" "', argument " "2"" of type '" "gsl_vector_complex *""'");
4652 }
4653 arg2 = (gsl_vector_complex *)(argp2);
4654 gsl_blas_zscal(arg1,arg2);
4655 ST(argvi) = &PL_sv_undef;
4656
4657 XSRETURN(argvi);
4658 fail:
4659
4660 SWIG_croak_null();
4661 }
4662 }
4663
4664
XS(_wrap_gsl_blas_csscal)4665 XS(_wrap_gsl_blas_csscal) {
4666 {
4667 float arg1 ;
4668 gsl_vector_complex_float *arg2 = (gsl_vector_complex_float *) 0 ;
4669 float val1 ;
4670 int ecode1 = 0 ;
4671 void *argp2 = 0 ;
4672 int res2 = 0 ;
4673 int argvi = 0;
4674 dXSARGS;
4675
4676 if ((items < 2) || (items > 2)) {
4677 SWIG_croak("Usage: gsl_blas_csscal(alpha,X);");
4678 }
4679 ecode1 = SWIG_AsVal_float SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
4680 if (!SWIG_IsOK(ecode1)) {
4681 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_blas_csscal" "', argument " "1"" of type '" "float""'");
4682 }
4683 arg1 = (float)(val1);
4684 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_complex_float, 0 | 0 );
4685 if (!SWIG_IsOK(res2)) {
4686 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_blas_csscal" "', argument " "2"" of type '" "gsl_vector_complex_float *""'");
4687 }
4688 arg2 = (gsl_vector_complex_float *)(argp2);
4689 gsl_blas_csscal(arg1,arg2);
4690 ST(argvi) = &PL_sv_undef;
4691
4692
4693 XSRETURN(argvi);
4694 fail:
4695
4696
4697 SWIG_croak_null();
4698 }
4699 }
4700
4701
XS(_wrap_gsl_blas_zdscal)4702 XS(_wrap_gsl_blas_zdscal) {
4703 {
4704 double arg1 ;
4705 gsl_vector_complex *arg2 = (gsl_vector_complex *) 0 ;
4706 double val1 ;
4707 int ecode1 = 0 ;
4708 void *argp2 = 0 ;
4709 int res2 = 0 ;
4710 int argvi = 0;
4711 dXSARGS;
4712
4713 if ((items < 2) || (items > 2)) {
4714 SWIG_croak("Usage: gsl_blas_zdscal(alpha,X);");
4715 }
4716 ecode1 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
4717 if (!SWIG_IsOK(ecode1)) {
4718 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_blas_zdscal" "', argument " "1"" of type '" "double""'");
4719 }
4720 arg1 = (double)(val1);
4721 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
4722 if (!SWIG_IsOK(res2)) {
4723 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_blas_zdscal" "', argument " "2"" of type '" "gsl_vector_complex *""'");
4724 }
4725 arg2 = (gsl_vector_complex *)(argp2);
4726 gsl_blas_zdscal(arg1,arg2);
4727 ST(argvi) = &PL_sv_undef;
4728
4729
4730 XSRETURN(argvi);
4731 fail:
4732
4733
4734 SWIG_croak_null();
4735 }
4736 }
4737
4738
XS(_wrap_gsl_blas_sgemv)4739 XS(_wrap_gsl_blas_sgemv) {
4740 {
4741 CBLAS_TRANSPOSE_t arg1 ;
4742 float arg2 ;
4743 gsl_matrix_float *arg3 = (gsl_matrix_float *) 0 ;
4744 gsl_vector_float *arg4 = (gsl_vector_float *) 0 ;
4745 float arg5 ;
4746 gsl_vector_float *arg6 = (gsl_vector_float *) 0 ;
4747 int val1 ;
4748 int ecode1 = 0 ;
4749 float val2 ;
4750 int ecode2 = 0 ;
4751 void *argp3 = 0 ;
4752 int res3 = 0 ;
4753 void *argp4 = 0 ;
4754 int res4 = 0 ;
4755 float val5 ;
4756 int ecode5 = 0 ;
4757 void *argp6 = 0 ;
4758 int res6 = 0 ;
4759 int argvi = 0;
4760 int result;
4761 dXSARGS;
4762
4763 if ((items < 6) || (items > 6)) {
4764 SWIG_croak("Usage: gsl_blas_sgemv(TransA,alpha,A,X,beta,Y);");
4765 }
4766 ecode1 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
4767 if (!SWIG_IsOK(ecode1)) {
4768 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_blas_sgemv" "', argument " "1"" of type '" "CBLAS_TRANSPOSE_t""'");
4769 }
4770 arg1 = (CBLAS_TRANSPOSE_t)(val1);
4771 ecode2 = SWIG_AsVal_float SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
4772 if (!SWIG_IsOK(ecode2)) {
4773 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_blas_sgemv" "', argument " "2"" of type '" "float""'");
4774 }
4775 arg2 = (float)(val2);
4776 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix_float, 0 | 0 );
4777 if (!SWIG_IsOK(res3)) {
4778 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_blas_sgemv" "', argument " "3"" of type '" "gsl_matrix_float const *""'");
4779 }
4780 arg3 = (gsl_matrix_float *)(argp3);
4781 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector_float, 0 | 0 );
4782 if (!SWIG_IsOK(res4)) {
4783 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_blas_sgemv" "', argument " "4"" of type '" "gsl_vector_float const *""'");
4784 }
4785 arg4 = (gsl_vector_float *)(argp4);
4786 ecode5 = SWIG_AsVal_float SWIG_PERL_CALL_ARGS_2(ST(4), &val5);
4787 if (!SWIG_IsOK(ecode5)) {
4788 SWIG_exception_fail(SWIG_ArgError(ecode5), "in method '" "gsl_blas_sgemv" "', argument " "5"" of type '" "float""'");
4789 }
4790 arg5 = (float)(val5);
4791 res6 = SWIG_ConvertPtr(ST(5), &argp6,SWIGTYPE_p_gsl_vector_float, 0 | 0 );
4792 if (!SWIG_IsOK(res6)) {
4793 SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_blas_sgemv" "', argument " "6"" of type '" "gsl_vector_float *""'");
4794 }
4795 arg6 = (gsl_vector_float *)(argp6);
4796 result = (int)gsl_blas_sgemv(arg1,arg2,(gsl_matrix_float const *)arg3,(gsl_vector_float const *)arg4,arg5,arg6);
4797 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4798
4799
4800
4801
4802
4803
4804 XSRETURN(argvi);
4805 fail:
4806
4807
4808
4809
4810
4811
4812 SWIG_croak_null();
4813 }
4814 }
4815
4816
XS(_wrap_gsl_blas_strmv)4817 XS(_wrap_gsl_blas_strmv) {
4818 {
4819 CBLAS_UPLO_t arg1 ;
4820 CBLAS_TRANSPOSE_t arg2 ;
4821 CBLAS_DIAG_t arg3 ;
4822 gsl_matrix_float *arg4 = (gsl_matrix_float *) 0 ;
4823 gsl_vector_float *arg5 = (gsl_vector_float *) 0 ;
4824 int val1 ;
4825 int ecode1 = 0 ;
4826 int val2 ;
4827 int ecode2 = 0 ;
4828 int val3 ;
4829 int ecode3 = 0 ;
4830 void *argp4 = 0 ;
4831 int res4 = 0 ;
4832 void *argp5 = 0 ;
4833 int res5 = 0 ;
4834 int argvi = 0;
4835 int result;
4836 dXSARGS;
4837
4838 if ((items < 5) || (items > 5)) {
4839 SWIG_croak("Usage: gsl_blas_strmv(Uplo,TransA,Diag,A,X);");
4840 }
4841 ecode1 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
4842 if (!SWIG_IsOK(ecode1)) {
4843 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_blas_strmv" "', argument " "1"" of type '" "CBLAS_UPLO_t""'");
4844 }
4845 arg1 = (CBLAS_UPLO_t)(val1);
4846 ecode2 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
4847 if (!SWIG_IsOK(ecode2)) {
4848 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_blas_strmv" "', argument " "2"" of type '" "CBLAS_TRANSPOSE_t""'");
4849 }
4850 arg2 = (CBLAS_TRANSPOSE_t)(val2);
4851 ecode3 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
4852 if (!SWIG_IsOK(ecode3)) {
4853 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_blas_strmv" "', argument " "3"" of type '" "CBLAS_DIAG_t""'");
4854 }
4855 arg3 = (CBLAS_DIAG_t)(val3);
4856 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_matrix_float, 0 | 0 );
4857 if (!SWIG_IsOK(res4)) {
4858 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_blas_strmv" "', argument " "4"" of type '" "gsl_matrix_float const *""'");
4859 }
4860 arg4 = (gsl_matrix_float *)(argp4);
4861 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector_float, 0 | 0 );
4862 if (!SWIG_IsOK(res5)) {
4863 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_blas_strmv" "', argument " "5"" of type '" "gsl_vector_float *""'");
4864 }
4865 arg5 = (gsl_vector_float *)(argp5);
4866 result = (int)gsl_blas_strmv(arg1,arg2,arg3,(gsl_matrix_float const *)arg4,arg5);
4867 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4868
4869
4870
4871
4872
4873 XSRETURN(argvi);
4874 fail:
4875
4876
4877
4878
4879
4880 SWIG_croak_null();
4881 }
4882 }
4883
4884
XS(_wrap_gsl_blas_strsv)4885 XS(_wrap_gsl_blas_strsv) {
4886 {
4887 CBLAS_UPLO_t arg1 ;
4888 CBLAS_TRANSPOSE_t arg2 ;
4889 CBLAS_DIAG_t arg3 ;
4890 gsl_matrix_float *arg4 = (gsl_matrix_float *) 0 ;
4891 gsl_vector_float *arg5 = (gsl_vector_float *) 0 ;
4892 int val1 ;
4893 int ecode1 = 0 ;
4894 int val2 ;
4895 int ecode2 = 0 ;
4896 int val3 ;
4897 int ecode3 = 0 ;
4898 void *argp4 = 0 ;
4899 int res4 = 0 ;
4900 void *argp5 = 0 ;
4901 int res5 = 0 ;
4902 int argvi = 0;
4903 int result;
4904 dXSARGS;
4905
4906 if ((items < 5) || (items > 5)) {
4907 SWIG_croak("Usage: gsl_blas_strsv(Uplo,TransA,Diag,A,X);");
4908 }
4909 ecode1 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
4910 if (!SWIG_IsOK(ecode1)) {
4911 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_blas_strsv" "', argument " "1"" of type '" "CBLAS_UPLO_t""'");
4912 }
4913 arg1 = (CBLAS_UPLO_t)(val1);
4914 ecode2 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
4915 if (!SWIG_IsOK(ecode2)) {
4916 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_blas_strsv" "', argument " "2"" of type '" "CBLAS_TRANSPOSE_t""'");
4917 }
4918 arg2 = (CBLAS_TRANSPOSE_t)(val2);
4919 ecode3 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
4920 if (!SWIG_IsOK(ecode3)) {
4921 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_blas_strsv" "', argument " "3"" of type '" "CBLAS_DIAG_t""'");
4922 }
4923 arg3 = (CBLAS_DIAG_t)(val3);
4924 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_matrix_float, 0 | 0 );
4925 if (!SWIG_IsOK(res4)) {
4926 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_blas_strsv" "', argument " "4"" of type '" "gsl_matrix_float const *""'");
4927 }
4928 arg4 = (gsl_matrix_float *)(argp4);
4929 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector_float, 0 | 0 );
4930 if (!SWIG_IsOK(res5)) {
4931 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_blas_strsv" "', argument " "5"" of type '" "gsl_vector_float *""'");
4932 }
4933 arg5 = (gsl_vector_float *)(argp5);
4934 result = (int)gsl_blas_strsv(arg1,arg2,arg3,(gsl_matrix_float const *)arg4,arg5);
4935 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4936
4937
4938
4939
4940
4941 XSRETURN(argvi);
4942 fail:
4943
4944
4945
4946
4947
4948 SWIG_croak_null();
4949 }
4950 }
4951
4952
XS(_wrap_gsl_blas_dgemv)4953 XS(_wrap_gsl_blas_dgemv) {
4954 {
4955 CBLAS_TRANSPOSE_t arg1 ;
4956 double arg2 ;
4957 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
4958 gsl_vector *arg4 = (gsl_vector *) 0 ;
4959 double arg5 ;
4960 gsl_vector *arg6 = (gsl_vector *) 0 ;
4961 int val1 ;
4962 int ecode1 = 0 ;
4963 double val2 ;
4964 int ecode2 = 0 ;
4965 void *argp3 = 0 ;
4966 int res3 = 0 ;
4967 void *argp4 = 0 ;
4968 int res4 = 0 ;
4969 double val5 ;
4970 int ecode5 = 0 ;
4971 void *argp6 = 0 ;
4972 int res6 = 0 ;
4973 int argvi = 0;
4974 int result;
4975 dXSARGS;
4976
4977 if ((items < 6) || (items > 6)) {
4978 SWIG_croak("Usage: gsl_blas_dgemv(TransA,alpha,A,X,beta,Y);");
4979 }
4980 ecode1 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
4981 if (!SWIG_IsOK(ecode1)) {
4982 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_blas_dgemv" "', argument " "1"" of type '" "CBLAS_TRANSPOSE_t""'");
4983 }
4984 arg1 = (CBLAS_TRANSPOSE_t)(val1);
4985 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
4986 if (!SWIG_IsOK(ecode2)) {
4987 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_blas_dgemv" "', argument " "2"" of type '" "double""'");
4988 }
4989 arg2 = (double)(val2);
4990 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
4991 if (!SWIG_IsOK(res3)) {
4992 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_blas_dgemv" "', argument " "3"" of type '" "gsl_matrix const *""'");
4993 }
4994 arg3 = (gsl_matrix *)(argp3);
4995 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
4996 if (!SWIG_IsOK(res4)) {
4997 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_blas_dgemv" "', argument " "4"" of type '" "gsl_vector const *""'");
4998 }
4999 arg4 = (gsl_vector *)(argp4);
5000 ecode5 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(4), &val5);
5001 if (!SWIG_IsOK(ecode5)) {
5002 SWIG_exception_fail(SWIG_ArgError(ecode5), "in method '" "gsl_blas_dgemv" "', argument " "5"" of type '" "double""'");
5003 }
5004 arg5 = (double)(val5);
5005 res6 = SWIG_ConvertPtr(ST(5), &argp6,SWIGTYPE_p_gsl_vector, 0 | 0 );
5006 if (!SWIG_IsOK(res6)) {
5007 SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_blas_dgemv" "', argument " "6"" of type '" "gsl_vector *""'");
5008 }
5009 arg6 = (gsl_vector *)(argp6);
5010 result = (int)gsl_blas_dgemv(arg1,arg2,(gsl_matrix const *)arg3,(gsl_vector const *)arg4,arg5,arg6);
5011 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5012
5013
5014
5015
5016
5017
5018 XSRETURN(argvi);
5019 fail:
5020
5021
5022
5023
5024
5025
5026 SWIG_croak_null();
5027 }
5028 }
5029
5030
XS(_wrap_gsl_blas_dtrmv)5031 XS(_wrap_gsl_blas_dtrmv) {
5032 {
5033 CBLAS_UPLO_t arg1 ;
5034 CBLAS_TRANSPOSE_t arg2 ;
5035 CBLAS_DIAG_t arg3 ;
5036 gsl_matrix *arg4 = (gsl_matrix *) 0 ;
5037 gsl_vector *arg5 = (gsl_vector *) 0 ;
5038 int val1 ;
5039 int ecode1 = 0 ;
5040 int val2 ;
5041 int ecode2 = 0 ;
5042 int val3 ;
5043 int ecode3 = 0 ;
5044 void *argp4 = 0 ;
5045 int res4 = 0 ;
5046 void *argp5 = 0 ;
5047 int res5 = 0 ;
5048 int argvi = 0;
5049 int result;
5050 dXSARGS;
5051
5052 if ((items < 5) || (items > 5)) {
5053 SWIG_croak("Usage: gsl_blas_dtrmv(Uplo,TransA,Diag,A,X);");
5054 }
5055 ecode1 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
5056 if (!SWIG_IsOK(ecode1)) {
5057 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_blas_dtrmv" "', argument " "1"" of type '" "CBLAS_UPLO_t""'");
5058 }
5059 arg1 = (CBLAS_UPLO_t)(val1);
5060 ecode2 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
5061 if (!SWIG_IsOK(ecode2)) {
5062 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_blas_dtrmv" "', argument " "2"" of type '" "CBLAS_TRANSPOSE_t""'");
5063 }
5064 arg2 = (CBLAS_TRANSPOSE_t)(val2);
5065 ecode3 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
5066 if (!SWIG_IsOK(ecode3)) {
5067 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_blas_dtrmv" "', argument " "3"" of type '" "CBLAS_DIAG_t""'");
5068 }
5069 arg3 = (CBLAS_DIAG_t)(val3);
5070 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5071 if (!SWIG_IsOK(res4)) {
5072 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_blas_dtrmv" "', argument " "4"" of type '" "gsl_matrix const *""'");
5073 }
5074 arg4 = (gsl_matrix *)(argp4);
5075 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
5076 if (!SWIG_IsOK(res5)) {
5077 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_blas_dtrmv" "', argument " "5"" of type '" "gsl_vector *""'");
5078 }
5079 arg5 = (gsl_vector *)(argp5);
5080 result = (int)gsl_blas_dtrmv(arg1,arg2,arg3,(gsl_matrix const *)arg4,arg5);
5081 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5082
5083
5084
5085
5086
5087 XSRETURN(argvi);
5088 fail:
5089
5090
5091
5092
5093
5094 SWIG_croak_null();
5095 }
5096 }
5097
5098
XS(_wrap_gsl_blas_dtrsv)5099 XS(_wrap_gsl_blas_dtrsv) {
5100 {
5101 CBLAS_UPLO_t arg1 ;
5102 CBLAS_TRANSPOSE_t arg2 ;
5103 CBLAS_DIAG_t arg3 ;
5104 gsl_matrix *arg4 = (gsl_matrix *) 0 ;
5105 gsl_vector *arg5 = (gsl_vector *) 0 ;
5106 int val1 ;
5107 int ecode1 = 0 ;
5108 int val2 ;
5109 int ecode2 = 0 ;
5110 int val3 ;
5111 int ecode3 = 0 ;
5112 void *argp4 = 0 ;
5113 int res4 = 0 ;
5114 void *argp5 = 0 ;
5115 int res5 = 0 ;
5116 int argvi = 0;
5117 int result;
5118 dXSARGS;
5119
5120 if ((items < 5) || (items > 5)) {
5121 SWIG_croak("Usage: gsl_blas_dtrsv(Uplo,TransA,Diag,A,X);");
5122 }
5123 ecode1 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
5124 if (!SWIG_IsOK(ecode1)) {
5125 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_blas_dtrsv" "', argument " "1"" of type '" "CBLAS_UPLO_t""'");
5126 }
5127 arg1 = (CBLAS_UPLO_t)(val1);
5128 ecode2 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
5129 if (!SWIG_IsOK(ecode2)) {
5130 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_blas_dtrsv" "', argument " "2"" of type '" "CBLAS_TRANSPOSE_t""'");
5131 }
5132 arg2 = (CBLAS_TRANSPOSE_t)(val2);
5133 ecode3 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
5134 if (!SWIG_IsOK(ecode3)) {
5135 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_blas_dtrsv" "', argument " "3"" of type '" "CBLAS_DIAG_t""'");
5136 }
5137 arg3 = (CBLAS_DIAG_t)(val3);
5138 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5139 if (!SWIG_IsOK(res4)) {
5140 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_blas_dtrsv" "', argument " "4"" of type '" "gsl_matrix const *""'");
5141 }
5142 arg4 = (gsl_matrix *)(argp4);
5143 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
5144 if (!SWIG_IsOK(res5)) {
5145 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_blas_dtrsv" "', argument " "5"" of type '" "gsl_vector *""'");
5146 }
5147 arg5 = (gsl_vector *)(argp5);
5148 result = (int)gsl_blas_dtrsv(arg1,arg2,arg3,(gsl_matrix const *)arg4,arg5);
5149 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5150
5151
5152
5153
5154
5155 XSRETURN(argvi);
5156 fail:
5157
5158
5159
5160
5161
5162 SWIG_croak_null();
5163 }
5164 }
5165
5166
XS(_wrap_gsl_blas_cgemv)5167 XS(_wrap_gsl_blas_cgemv) {
5168 {
5169 CBLAS_TRANSPOSE_t arg1 ;
5170 gsl_complex_float arg2 ;
5171 gsl_matrix_complex_float *arg3 = (gsl_matrix_complex_float *) 0 ;
5172 gsl_vector_complex_float *arg4 = (gsl_vector_complex_float *) 0 ;
5173 gsl_complex_float arg5 ;
5174 gsl_vector_complex_float *arg6 = (gsl_vector_complex_float *) 0 ;
5175 int val1 ;
5176 int ecode1 = 0 ;
5177 void *argp2 ;
5178 int res2 = 0 ;
5179 void *argp3 = 0 ;
5180 int res3 = 0 ;
5181 void *argp4 = 0 ;
5182 int res4 = 0 ;
5183 void *argp5 ;
5184 int res5 = 0 ;
5185 void *argp6 = 0 ;
5186 int res6 = 0 ;
5187 int argvi = 0;
5188 int result;
5189 dXSARGS;
5190
5191 if ((items < 6) || (items > 6)) {
5192 SWIG_croak("Usage: gsl_blas_cgemv(TransA,alpha,A,X,beta,Y);");
5193 }
5194 ecode1 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
5195 if (!SWIG_IsOK(ecode1)) {
5196 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_blas_cgemv" "', argument " "1"" of type '" "CBLAS_TRANSPOSE_t""'");
5197 }
5198 arg1 = (CBLAS_TRANSPOSE_t)(val1);
5199 {
5200 res2 = SWIG_ConvertPtr(ST(1), &argp2, SWIGTYPE_p_gsl_complex_float, 0 );
5201 if (!SWIG_IsOK(res2)) {
5202 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_blas_cgemv" "', argument " "2"" of type '" "gsl_complex_float const""'");
5203 }
5204 if (!argp2) {
5205 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_blas_cgemv" "', argument " "2"" of type '" "gsl_complex_float const""'");
5206 } else {
5207 arg2 = *((gsl_complex_float *)(argp2));
5208 }
5209 }
5210 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix_complex_float, 0 | 0 );
5211 if (!SWIG_IsOK(res3)) {
5212 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_blas_cgemv" "', argument " "3"" of type '" "gsl_matrix_complex_float const *""'");
5213 }
5214 arg3 = (gsl_matrix_complex_float *)(argp3);
5215 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector_complex_float, 0 | 0 );
5216 if (!SWIG_IsOK(res4)) {
5217 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_blas_cgemv" "', argument " "4"" of type '" "gsl_vector_complex_float const *""'");
5218 }
5219 arg4 = (gsl_vector_complex_float *)(argp4);
5220 {
5221 res5 = SWIG_ConvertPtr(ST(4), &argp5, SWIGTYPE_p_gsl_complex_float, 0 );
5222 if (!SWIG_IsOK(res5)) {
5223 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_blas_cgemv" "', argument " "5"" of type '" "gsl_complex_float const""'");
5224 }
5225 if (!argp5) {
5226 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_blas_cgemv" "', argument " "5"" of type '" "gsl_complex_float const""'");
5227 } else {
5228 arg5 = *((gsl_complex_float *)(argp5));
5229 }
5230 }
5231 res6 = SWIG_ConvertPtr(ST(5), &argp6,SWIGTYPE_p_gsl_vector_complex_float, 0 | 0 );
5232 if (!SWIG_IsOK(res6)) {
5233 SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_blas_cgemv" "', argument " "6"" of type '" "gsl_vector_complex_float *""'");
5234 }
5235 arg6 = (gsl_vector_complex_float *)(argp6);
5236 result = (int)gsl_blas_cgemv(arg1,arg2,(gsl_matrix_complex_float const *)arg3,(gsl_vector_complex_float const *)arg4,arg5,arg6);
5237 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5238
5239
5240
5241
5242 XSRETURN(argvi);
5243 fail:
5244
5245
5246
5247
5248 SWIG_croak_null();
5249 }
5250 }
5251
5252
XS(_wrap_gsl_blas_ctrmv)5253 XS(_wrap_gsl_blas_ctrmv) {
5254 {
5255 CBLAS_UPLO_t arg1 ;
5256 CBLAS_TRANSPOSE_t arg2 ;
5257 CBLAS_DIAG_t arg3 ;
5258 gsl_matrix_complex_float *arg4 = (gsl_matrix_complex_float *) 0 ;
5259 gsl_vector_complex_float *arg5 = (gsl_vector_complex_float *) 0 ;
5260 int val1 ;
5261 int ecode1 = 0 ;
5262 int val2 ;
5263 int ecode2 = 0 ;
5264 int val3 ;
5265 int ecode3 = 0 ;
5266 void *argp4 = 0 ;
5267 int res4 = 0 ;
5268 void *argp5 = 0 ;
5269 int res5 = 0 ;
5270 int argvi = 0;
5271 int result;
5272 dXSARGS;
5273
5274 if ((items < 5) || (items > 5)) {
5275 SWIG_croak("Usage: gsl_blas_ctrmv(Uplo,TransA,Diag,A,X);");
5276 }
5277 ecode1 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
5278 if (!SWIG_IsOK(ecode1)) {
5279 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_blas_ctrmv" "', argument " "1"" of type '" "CBLAS_UPLO_t""'");
5280 }
5281 arg1 = (CBLAS_UPLO_t)(val1);
5282 ecode2 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
5283 if (!SWIG_IsOK(ecode2)) {
5284 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_blas_ctrmv" "', argument " "2"" of type '" "CBLAS_TRANSPOSE_t""'");
5285 }
5286 arg2 = (CBLAS_TRANSPOSE_t)(val2);
5287 ecode3 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
5288 if (!SWIG_IsOK(ecode3)) {
5289 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_blas_ctrmv" "', argument " "3"" of type '" "CBLAS_DIAG_t""'");
5290 }
5291 arg3 = (CBLAS_DIAG_t)(val3);
5292 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_matrix_complex_float, 0 | 0 );
5293 if (!SWIG_IsOK(res4)) {
5294 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_blas_ctrmv" "', argument " "4"" of type '" "gsl_matrix_complex_float const *""'");
5295 }
5296 arg4 = (gsl_matrix_complex_float *)(argp4);
5297 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector_complex_float, 0 | 0 );
5298 if (!SWIG_IsOK(res5)) {
5299 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_blas_ctrmv" "', argument " "5"" of type '" "gsl_vector_complex_float *""'");
5300 }
5301 arg5 = (gsl_vector_complex_float *)(argp5);
5302 result = (int)gsl_blas_ctrmv(arg1,arg2,arg3,(gsl_matrix_complex_float const *)arg4,arg5);
5303 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5304
5305
5306
5307
5308
5309 XSRETURN(argvi);
5310 fail:
5311
5312
5313
5314
5315
5316 SWIG_croak_null();
5317 }
5318 }
5319
5320
XS(_wrap_gsl_blas_ctrsv)5321 XS(_wrap_gsl_blas_ctrsv) {
5322 {
5323 CBLAS_UPLO_t arg1 ;
5324 CBLAS_TRANSPOSE_t arg2 ;
5325 CBLAS_DIAG_t arg3 ;
5326 gsl_matrix_complex_float *arg4 = (gsl_matrix_complex_float *) 0 ;
5327 gsl_vector_complex_float *arg5 = (gsl_vector_complex_float *) 0 ;
5328 int val1 ;
5329 int ecode1 = 0 ;
5330 int val2 ;
5331 int ecode2 = 0 ;
5332 int val3 ;
5333 int ecode3 = 0 ;
5334 void *argp4 = 0 ;
5335 int res4 = 0 ;
5336 void *argp5 = 0 ;
5337 int res5 = 0 ;
5338 int argvi = 0;
5339 int result;
5340 dXSARGS;
5341
5342 if ((items < 5) || (items > 5)) {
5343 SWIG_croak("Usage: gsl_blas_ctrsv(Uplo,TransA,Diag,A,X);");
5344 }
5345 ecode1 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
5346 if (!SWIG_IsOK(ecode1)) {
5347 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_blas_ctrsv" "', argument " "1"" of type '" "CBLAS_UPLO_t""'");
5348 }
5349 arg1 = (CBLAS_UPLO_t)(val1);
5350 ecode2 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
5351 if (!SWIG_IsOK(ecode2)) {
5352 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_blas_ctrsv" "', argument " "2"" of type '" "CBLAS_TRANSPOSE_t""'");
5353 }
5354 arg2 = (CBLAS_TRANSPOSE_t)(val2);
5355 ecode3 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
5356 if (!SWIG_IsOK(ecode3)) {
5357 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_blas_ctrsv" "', argument " "3"" of type '" "CBLAS_DIAG_t""'");
5358 }
5359 arg3 = (CBLAS_DIAG_t)(val3);
5360 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_matrix_complex_float, 0 | 0 );
5361 if (!SWIG_IsOK(res4)) {
5362 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_blas_ctrsv" "', argument " "4"" of type '" "gsl_matrix_complex_float const *""'");
5363 }
5364 arg4 = (gsl_matrix_complex_float *)(argp4);
5365 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector_complex_float, 0 | 0 );
5366 if (!SWIG_IsOK(res5)) {
5367 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_blas_ctrsv" "', argument " "5"" of type '" "gsl_vector_complex_float *""'");
5368 }
5369 arg5 = (gsl_vector_complex_float *)(argp5);
5370 result = (int)gsl_blas_ctrsv(arg1,arg2,arg3,(gsl_matrix_complex_float const *)arg4,arg5);
5371 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5372
5373
5374
5375
5376
5377 XSRETURN(argvi);
5378 fail:
5379
5380
5381
5382
5383
5384 SWIG_croak_null();
5385 }
5386 }
5387
5388
XS(_wrap_gsl_blas_zgemv)5389 XS(_wrap_gsl_blas_zgemv) {
5390 {
5391 CBLAS_TRANSPOSE_t arg1 ;
5392 gsl_complex arg2 ;
5393 gsl_matrix_complex *arg3 = (gsl_matrix_complex *) 0 ;
5394 gsl_vector_complex *arg4 = (gsl_vector_complex *) 0 ;
5395 gsl_complex arg5 ;
5396 gsl_vector_complex *arg6 = (gsl_vector_complex *) 0 ;
5397 int val1 ;
5398 int ecode1 = 0 ;
5399 void *argp2 ;
5400 int res2 = 0 ;
5401 void *argp3 = 0 ;
5402 int res3 = 0 ;
5403 void *argp4 = 0 ;
5404 int res4 = 0 ;
5405 void *argp5 ;
5406 int res5 = 0 ;
5407 void *argp6 = 0 ;
5408 int res6 = 0 ;
5409 int argvi = 0;
5410 int result;
5411 dXSARGS;
5412
5413 if ((items < 6) || (items > 6)) {
5414 SWIG_croak("Usage: gsl_blas_zgemv(TransA,alpha,A,X,beta,Y);");
5415 }
5416 ecode1 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
5417 if (!SWIG_IsOK(ecode1)) {
5418 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_blas_zgemv" "', argument " "1"" of type '" "CBLAS_TRANSPOSE_t""'");
5419 }
5420 arg1 = (CBLAS_TRANSPOSE_t)(val1);
5421 {
5422 res2 = SWIG_ConvertPtr(ST(1), &argp2, SWIGTYPE_p_gsl_complex, 0 );
5423 if (!SWIG_IsOK(res2)) {
5424 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_blas_zgemv" "', argument " "2"" of type '" "gsl_complex const""'");
5425 }
5426 if (!argp2) {
5427 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_blas_zgemv" "', argument " "2"" of type '" "gsl_complex const""'");
5428 } else {
5429 arg2 = *((gsl_complex *)(argp2));
5430 }
5431 }
5432 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
5433 if (!SWIG_IsOK(res3)) {
5434 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_blas_zgemv" "', argument " "3"" of type '" "gsl_matrix_complex const *""'");
5435 }
5436 arg3 = (gsl_matrix_complex *)(argp3);
5437 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
5438 if (!SWIG_IsOK(res4)) {
5439 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_blas_zgemv" "', argument " "4"" of type '" "gsl_vector_complex const *""'");
5440 }
5441 arg4 = (gsl_vector_complex *)(argp4);
5442 {
5443 res5 = SWIG_ConvertPtr(ST(4), &argp5, SWIGTYPE_p_gsl_complex, 0 );
5444 if (!SWIG_IsOK(res5)) {
5445 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_blas_zgemv" "', argument " "5"" of type '" "gsl_complex const""'");
5446 }
5447 if (!argp5) {
5448 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_blas_zgemv" "', argument " "5"" of type '" "gsl_complex const""'");
5449 } else {
5450 arg5 = *((gsl_complex *)(argp5));
5451 }
5452 }
5453 res6 = SWIG_ConvertPtr(ST(5), &argp6,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
5454 if (!SWIG_IsOK(res6)) {
5455 SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_blas_zgemv" "', argument " "6"" of type '" "gsl_vector_complex *""'");
5456 }
5457 arg6 = (gsl_vector_complex *)(argp6);
5458 result = (int)gsl_blas_zgemv(arg1,arg2,(gsl_matrix_complex const *)arg3,(gsl_vector_complex const *)arg4,arg5,arg6);
5459 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5460
5461
5462
5463
5464 XSRETURN(argvi);
5465 fail:
5466
5467
5468
5469
5470 SWIG_croak_null();
5471 }
5472 }
5473
5474
XS(_wrap_gsl_blas_ztrmv)5475 XS(_wrap_gsl_blas_ztrmv) {
5476 {
5477 CBLAS_UPLO_t arg1 ;
5478 CBLAS_TRANSPOSE_t arg2 ;
5479 CBLAS_DIAG_t arg3 ;
5480 gsl_matrix_complex *arg4 = (gsl_matrix_complex *) 0 ;
5481 gsl_vector_complex *arg5 = (gsl_vector_complex *) 0 ;
5482 int val1 ;
5483 int ecode1 = 0 ;
5484 int val2 ;
5485 int ecode2 = 0 ;
5486 int val3 ;
5487 int ecode3 = 0 ;
5488 void *argp4 = 0 ;
5489 int res4 = 0 ;
5490 void *argp5 = 0 ;
5491 int res5 = 0 ;
5492 int argvi = 0;
5493 int result;
5494 dXSARGS;
5495
5496 if ((items < 5) || (items > 5)) {
5497 SWIG_croak("Usage: gsl_blas_ztrmv(Uplo,TransA,Diag,A,X);");
5498 }
5499 ecode1 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
5500 if (!SWIG_IsOK(ecode1)) {
5501 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_blas_ztrmv" "', argument " "1"" of type '" "CBLAS_UPLO_t""'");
5502 }
5503 arg1 = (CBLAS_UPLO_t)(val1);
5504 ecode2 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
5505 if (!SWIG_IsOK(ecode2)) {
5506 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_blas_ztrmv" "', argument " "2"" of type '" "CBLAS_TRANSPOSE_t""'");
5507 }
5508 arg2 = (CBLAS_TRANSPOSE_t)(val2);
5509 ecode3 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
5510 if (!SWIG_IsOK(ecode3)) {
5511 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_blas_ztrmv" "', argument " "3"" of type '" "CBLAS_DIAG_t""'");
5512 }
5513 arg3 = (CBLAS_DIAG_t)(val3);
5514 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
5515 if (!SWIG_IsOK(res4)) {
5516 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_blas_ztrmv" "', argument " "4"" of type '" "gsl_matrix_complex const *""'");
5517 }
5518 arg4 = (gsl_matrix_complex *)(argp4);
5519 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
5520 if (!SWIG_IsOK(res5)) {
5521 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_blas_ztrmv" "', argument " "5"" of type '" "gsl_vector_complex *""'");
5522 }
5523 arg5 = (gsl_vector_complex *)(argp5);
5524 result = (int)gsl_blas_ztrmv(arg1,arg2,arg3,(gsl_matrix_complex const *)arg4,arg5);
5525 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5526
5527
5528
5529
5530
5531 XSRETURN(argvi);
5532 fail:
5533
5534
5535
5536
5537
5538 SWIG_croak_null();
5539 }
5540 }
5541
5542
XS(_wrap_gsl_blas_ztrsv)5543 XS(_wrap_gsl_blas_ztrsv) {
5544 {
5545 CBLAS_UPLO_t arg1 ;
5546 CBLAS_TRANSPOSE_t arg2 ;
5547 CBLAS_DIAG_t arg3 ;
5548 gsl_matrix_complex *arg4 = (gsl_matrix_complex *) 0 ;
5549 gsl_vector_complex *arg5 = (gsl_vector_complex *) 0 ;
5550 int val1 ;
5551 int ecode1 = 0 ;
5552 int val2 ;
5553 int ecode2 = 0 ;
5554 int val3 ;
5555 int ecode3 = 0 ;
5556 void *argp4 = 0 ;
5557 int res4 = 0 ;
5558 void *argp5 = 0 ;
5559 int res5 = 0 ;
5560 int argvi = 0;
5561 int result;
5562 dXSARGS;
5563
5564 if ((items < 5) || (items > 5)) {
5565 SWIG_croak("Usage: gsl_blas_ztrsv(Uplo,TransA,Diag,A,X);");
5566 }
5567 ecode1 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
5568 if (!SWIG_IsOK(ecode1)) {
5569 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_blas_ztrsv" "', argument " "1"" of type '" "CBLAS_UPLO_t""'");
5570 }
5571 arg1 = (CBLAS_UPLO_t)(val1);
5572 ecode2 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
5573 if (!SWIG_IsOK(ecode2)) {
5574 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_blas_ztrsv" "', argument " "2"" of type '" "CBLAS_TRANSPOSE_t""'");
5575 }
5576 arg2 = (CBLAS_TRANSPOSE_t)(val2);
5577 ecode3 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
5578 if (!SWIG_IsOK(ecode3)) {
5579 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_blas_ztrsv" "', argument " "3"" of type '" "CBLAS_DIAG_t""'");
5580 }
5581 arg3 = (CBLAS_DIAG_t)(val3);
5582 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
5583 if (!SWIG_IsOK(res4)) {
5584 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_blas_ztrsv" "', argument " "4"" of type '" "gsl_matrix_complex const *""'");
5585 }
5586 arg4 = (gsl_matrix_complex *)(argp4);
5587 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
5588 if (!SWIG_IsOK(res5)) {
5589 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_blas_ztrsv" "', argument " "5"" of type '" "gsl_vector_complex *""'");
5590 }
5591 arg5 = (gsl_vector_complex *)(argp5);
5592 result = (int)gsl_blas_ztrsv(arg1,arg2,arg3,(gsl_matrix_complex const *)arg4,arg5);
5593 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5594
5595
5596
5597
5598
5599 XSRETURN(argvi);
5600 fail:
5601
5602
5603
5604
5605
5606 SWIG_croak_null();
5607 }
5608 }
5609
5610
XS(_wrap_gsl_blas_ssymv)5611 XS(_wrap_gsl_blas_ssymv) {
5612 {
5613 CBLAS_UPLO_t arg1 ;
5614 float arg2 ;
5615 gsl_matrix_float *arg3 = (gsl_matrix_float *) 0 ;
5616 gsl_vector_float *arg4 = (gsl_vector_float *) 0 ;
5617 float arg5 ;
5618 gsl_vector_float *arg6 = (gsl_vector_float *) 0 ;
5619 int val1 ;
5620 int ecode1 = 0 ;
5621 float val2 ;
5622 int ecode2 = 0 ;
5623 void *argp3 = 0 ;
5624 int res3 = 0 ;
5625 void *argp4 = 0 ;
5626 int res4 = 0 ;
5627 float val5 ;
5628 int ecode5 = 0 ;
5629 void *argp6 = 0 ;
5630 int res6 = 0 ;
5631 int argvi = 0;
5632 int result;
5633 dXSARGS;
5634
5635 if ((items < 6) || (items > 6)) {
5636 SWIG_croak("Usage: gsl_blas_ssymv(Uplo,alpha,A,X,beta,Y);");
5637 }
5638 ecode1 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
5639 if (!SWIG_IsOK(ecode1)) {
5640 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_blas_ssymv" "', argument " "1"" of type '" "CBLAS_UPLO_t""'");
5641 }
5642 arg1 = (CBLAS_UPLO_t)(val1);
5643 ecode2 = SWIG_AsVal_float SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
5644 if (!SWIG_IsOK(ecode2)) {
5645 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_blas_ssymv" "', argument " "2"" of type '" "float""'");
5646 }
5647 arg2 = (float)(val2);
5648 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix_float, 0 | 0 );
5649 if (!SWIG_IsOK(res3)) {
5650 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_blas_ssymv" "', argument " "3"" of type '" "gsl_matrix_float const *""'");
5651 }
5652 arg3 = (gsl_matrix_float *)(argp3);
5653 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector_float, 0 | 0 );
5654 if (!SWIG_IsOK(res4)) {
5655 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_blas_ssymv" "', argument " "4"" of type '" "gsl_vector_float const *""'");
5656 }
5657 arg4 = (gsl_vector_float *)(argp4);
5658 ecode5 = SWIG_AsVal_float SWIG_PERL_CALL_ARGS_2(ST(4), &val5);
5659 if (!SWIG_IsOK(ecode5)) {
5660 SWIG_exception_fail(SWIG_ArgError(ecode5), "in method '" "gsl_blas_ssymv" "', argument " "5"" of type '" "float""'");
5661 }
5662 arg5 = (float)(val5);
5663 res6 = SWIG_ConvertPtr(ST(5), &argp6,SWIGTYPE_p_gsl_vector_float, 0 | 0 );
5664 if (!SWIG_IsOK(res6)) {
5665 SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_blas_ssymv" "', argument " "6"" of type '" "gsl_vector_float *""'");
5666 }
5667 arg6 = (gsl_vector_float *)(argp6);
5668 result = (int)gsl_blas_ssymv(arg1,arg2,(gsl_matrix_float const *)arg3,(gsl_vector_float const *)arg4,arg5,arg6);
5669 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5670
5671
5672
5673
5674
5675
5676 XSRETURN(argvi);
5677 fail:
5678
5679
5680
5681
5682
5683
5684 SWIG_croak_null();
5685 }
5686 }
5687
5688
XS(_wrap_gsl_blas_sger)5689 XS(_wrap_gsl_blas_sger) {
5690 {
5691 float arg1 ;
5692 gsl_vector_float *arg2 = (gsl_vector_float *) 0 ;
5693 gsl_vector_float *arg3 = (gsl_vector_float *) 0 ;
5694 gsl_matrix_float *arg4 = (gsl_matrix_float *) 0 ;
5695 float val1 ;
5696 int ecode1 = 0 ;
5697 void *argp2 = 0 ;
5698 int res2 = 0 ;
5699 void *argp3 = 0 ;
5700 int res3 = 0 ;
5701 void *argp4 = 0 ;
5702 int res4 = 0 ;
5703 int argvi = 0;
5704 int result;
5705 dXSARGS;
5706
5707 if ((items < 4) || (items > 4)) {
5708 SWIG_croak("Usage: gsl_blas_sger(alpha,X,Y,A);");
5709 }
5710 ecode1 = SWIG_AsVal_float SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
5711 if (!SWIG_IsOK(ecode1)) {
5712 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_blas_sger" "', argument " "1"" of type '" "float""'");
5713 }
5714 arg1 = (float)(val1);
5715 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_float, 0 | 0 );
5716 if (!SWIG_IsOK(res2)) {
5717 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_blas_sger" "', argument " "2"" of type '" "gsl_vector_float const *""'");
5718 }
5719 arg2 = (gsl_vector_float *)(argp2);
5720 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector_float, 0 | 0 );
5721 if (!SWIG_IsOK(res3)) {
5722 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_blas_sger" "', argument " "3"" of type '" "gsl_vector_float const *""'");
5723 }
5724 arg3 = (gsl_vector_float *)(argp3);
5725 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_matrix_float, 0 | 0 );
5726 if (!SWIG_IsOK(res4)) {
5727 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_blas_sger" "', argument " "4"" of type '" "gsl_matrix_float *""'");
5728 }
5729 arg4 = (gsl_matrix_float *)(argp4);
5730 result = (int)gsl_blas_sger(arg1,(gsl_vector_float const *)arg2,(gsl_vector_float const *)arg3,arg4);
5731 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5732
5733
5734
5735
5736 XSRETURN(argvi);
5737 fail:
5738
5739
5740
5741
5742 SWIG_croak_null();
5743 }
5744 }
5745
5746
XS(_wrap_gsl_blas_ssyr)5747 XS(_wrap_gsl_blas_ssyr) {
5748 {
5749 CBLAS_UPLO_t arg1 ;
5750 float arg2 ;
5751 gsl_vector_float *arg3 = (gsl_vector_float *) 0 ;
5752 gsl_matrix_float *arg4 = (gsl_matrix_float *) 0 ;
5753 int val1 ;
5754 int ecode1 = 0 ;
5755 float val2 ;
5756 int ecode2 = 0 ;
5757 void *argp3 = 0 ;
5758 int res3 = 0 ;
5759 void *argp4 = 0 ;
5760 int res4 = 0 ;
5761 int argvi = 0;
5762 int result;
5763 dXSARGS;
5764
5765 if ((items < 4) || (items > 4)) {
5766 SWIG_croak("Usage: gsl_blas_ssyr(Uplo,alpha,X,A);");
5767 }
5768 ecode1 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
5769 if (!SWIG_IsOK(ecode1)) {
5770 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_blas_ssyr" "', argument " "1"" of type '" "CBLAS_UPLO_t""'");
5771 }
5772 arg1 = (CBLAS_UPLO_t)(val1);
5773 ecode2 = SWIG_AsVal_float SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
5774 if (!SWIG_IsOK(ecode2)) {
5775 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_blas_ssyr" "', argument " "2"" of type '" "float""'");
5776 }
5777 arg2 = (float)(val2);
5778 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector_float, 0 | 0 );
5779 if (!SWIG_IsOK(res3)) {
5780 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_blas_ssyr" "', argument " "3"" of type '" "gsl_vector_float const *""'");
5781 }
5782 arg3 = (gsl_vector_float *)(argp3);
5783 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_matrix_float, 0 | 0 );
5784 if (!SWIG_IsOK(res4)) {
5785 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_blas_ssyr" "', argument " "4"" of type '" "gsl_matrix_float *""'");
5786 }
5787 arg4 = (gsl_matrix_float *)(argp4);
5788 result = (int)gsl_blas_ssyr(arg1,arg2,(gsl_vector_float const *)arg3,arg4);
5789 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5790
5791
5792
5793
5794 XSRETURN(argvi);
5795 fail:
5796
5797
5798
5799
5800 SWIG_croak_null();
5801 }
5802 }
5803
5804
XS(_wrap_gsl_blas_ssyr2)5805 XS(_wrap_gsl_blas_ssyr2) {
5806 {
5807 CBLAS_UPLO_t arg1 ;
5808 float arg2 ;
5809 gsl_vector_float *arg3 = (gsl_vector_float *) 0 ;
5810 gsl_vector_float *arg4 = (gsl_vector_float *) 0 ;
5811 gsl_matrix_float *arg5 = (gsl_matrix_float *) 0 ;
5812 int val1 ;
5813 int ecode1 = 0 ;
5814 float val2 ;
5815 int ecode2 = 0 ;
5816 void *argp3 = 0 ;
5817 int res3 = 0 ;
5818 void *argp4 = 0 ;
5819 int res4 = 0 ;
5820 void *argp5 = 0 ;
5821 int res5 = 0 ;
5822 int argvi = 0;
5823 int result;
5824 dXSARGS;
5825
5826 if ((items < 5) || (items > 5)) {
5827 SWIG_croak("Usage: gsl_blas_ssyr2(Uplo,alpha,X,Y,A);");
5828 }
5829 ecode1 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
5830 if (!SWIG_IsOK(ecode1)) {
5831 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_blas_ssyr2" "', argument " "1"" of type '" "CBLAS_UPLO_t""'");
5832 }
5833 arg1 = (CBLAS_UPLO_t)(val1);
5834 ecode2 = SWIG_AsVal_float SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
5835 if (!SWIG_IsOK(ecode2)) {
5836 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_blas_ssyr2" "', argument " "2"" of type '" "float""'");
5837 }
5838 arg2 = (float)(val2);
5839 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector_float, 0 | 0 );
5840 if (!SWIG_IsOK(res3)) {
5841 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_blas_ssyr2" "', argument " "3"" of type '" "gsl_vector_float const *""'");
5842 }
5843 arg3 = (gsl_vector_float *)(argp3);
5844 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector_float, 0 | 0 );
5845 if (!SWIG_IsOK(res4)) {
5846 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_blas_ssyr2" "', argument " "4"" of type '" "gsl_vector_float const *""'");
5847 }
5848 arg4 = (gsl_vector_float *)(argp4);
5849 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_matrix_float, 0 | 0 );
5850 if (!SWIG_IsOK(res5)) {
5851 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_blas_ssyr2" "', argument " "5"" of type '" "gsl_matrix_float *""'");
5852 }
5853 arg5 = (gsl_matrix_float *)(argp5);
5854 result = (int)gsl_blas_ssyr2(arg1,arg2,(gsl_vector_float const *)arg3,(gsl_vector_float const *)arg4,arg5);
5855 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5856
5857
5858
5859
5860
5861 XSRETURN(argvi);
5862 fail:
5863
5864
5865
5866
5867
5868 SWIG_croak_null();
5869 }
5870 }
5871
5872
XS(_wrap_gsl_blas_dsymv)5873 XS(_wrap_gsl_blas_dsymv) {
5874 {
5875 CBLAS_UPLO_t arg1 ;
5876 double arg2 ;
5877 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
5878 gsl_vector *arg4 = (gsl_vector *) 0 ;
5879 double arg5 ;
5880 gsl_vector *arg6 = (gsl_vector *) 0 ;
5881 int val1 ;
5882 int ecode1 = 0 ;
5883 double val2 ;
5884 int ecode2 = 0 ;
5885 void *argp3 = 0 ;
5886 int res3 = 0 ;
5887 void *argp4 = 0 ;
5888 int res4 = 0 ;
5889 double val5 ;
5890 int ecode5 = 0 ;
5891 void *argp6 = 0 ;
5892 int res6 = 0 ;
5893 int argvi = 0;
5894 int result;
5895 dXSARGS;
5896
5897 if ((items < 6) || (items > 6)) {
5898 SWIG_croak("Usage: gsl_blas_dsymv(Uplo,alpha,A,X,beta,Y);");
5899 }
5900 ecode1 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
5901 if (!SWIG_IsOK(ecode1)) {
5902 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_blas_dsymv" "', argument " "1"" of type '" "CBLAS_UPLO_t""'");
5903 }
5904 arg1 = (CBLAS_UPLO_t)(val1);
5905 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
5906 if (!SWIG_IsOK(ecode2)) {
5907 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_blas_dsymv" "', argument " "2"" of type '" "double""'");
5908 }
5909 arg2 = (double)(val2);
5910 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5911 if (!SWIG_IsOK(res3)) {
5912 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_blas_dsymv" "', argument " "3"" of type '" "gsl_matrix const *""'");
5913 }
5914 arg3 = (gsl_matrix *)(argp3);
5915 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
5916 if (!SWIG_IsOK(res4)) {
5917 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_blas_dsymv" "', argument " "4"" of type '" "gsl_vector const *""'");
5918 }
5919 arg4 = (gsl_vector *)(argp4);
5920 ecode5 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(4), &val5);
5921 if (!SWIG_IsOK(ecode5)) {
5922 SWIG_exception_fail(SWIG_ArgError(ecode5), "in method '" "gsl_blas_dsymv" "', argument " "5"" of type '" "double""'");
5923 }
5924 arg5 = (double)(val5);
5925 res6 = SWIG_ConvertPtr(ST(5), &argp6,SWIGTYPE_p_gsl_vector, 0 | 0 );
5926 if (!SWIG_IsOK(res6)) {
5927 SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_blas_dsymv" "', argument " "6"" of type '" "gsl_vector *""'");
5928 }
5929 arg6 = (gsl_vector *)(argp6);
5930 result = (int)gsl_blas_dsymv(arg1,arg2,(gsl_matrix const *)arg3,(gsl_vector const *)arg4,arg5,arg6);
5931 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5932
5933
5934
5935
5936
5937
5938 XSRETURN(argvi);
5939 fail:
5940
5941
5942
5943
5944
5945
5946 SWIG_croak_null();
5947 }
5948 }
5949
5950
XS(_wrap_gsl_blas_dger)5951 XS(_wrap_gsl_blas_dger) {
5952 {
5953 double arg1 ;
5954 gsl_vector *arg2 = (gsl_vector *) 0 ;
5955 gsl_vector *arg3 = (gsl_vector *) 0 ;
5956 gsl_matrix *arg4 = (gsl_matrix *) 0 ;
5957 double val1 ;
5958 int ecode1 = 0 ;
5959 void *argp2 = 0 ;
5960 int res2 = 0 ;
5961 void *argp3 = 0 ;
5962 int res3 = 0 ;
5963 void *argp4 = 0 ;
5964 int res4 = 0 ;
5965 int argvi = 0;
5966 int result;
5967 dXSARGS;
5968
5969 if ((items < 4) || (items > 4)) {
5970 SWIG_croak("Usage: gsl_blas_dger(alpha,X,Y,A);");
5971 }
5972 ecode1 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
5973 if (!SWIG_IsOK(ecode1)) {
5974 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_blas_dger" "', argument " "1"" of type '" "double""'");
5975 }
5976 arg1 = (double)(val1);
5977 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
5978 if (!SWIG_IsOK(res2)) {
5979 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_blas_dger" "', argument " "2"" of type '" "gsl_vector const *""'");
5980 }
5981 arg2 = (gsl_vector *)(argp2);
5982 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
5983 if (!SWIG_IsOK(res3)) {
5984 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_blas_dger" "', argument " "3"" of type '" "gsl_vector const *""'");
5985 }
5986 arg3 = (gsl_vector *)(argp3);
5987 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5988 if (!SWIG_IsOK(res4)) {
5989 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_blas_dger" "', argument " "4"" of type '" "gsl_matrix *""'");
5990 }
5991 arg4 = (gsl_matrix *)(argp4);
5992 result = (int)gsl_blas_dger(arg1,(gsl_vector const *)arg2,(gsl_vector const *)arg3,arg4);
5993 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5994
5995
5996
5997
5998 XSRETURN(argvi);
5999 fail:
6000
6001
6002
6003
6004 SWIG_croak_null();
6005 }
6006 }
6007
6008
XS(_wrap_gsl_blas_dsyr)6009 XS(_wrap_gsl_blas_dsyr) {
6010 {
6011 CBLAS_UPLO_t arg1 ;
6012 double arg2 ;
6013 gsl_vector *arg3 = (gsl_vector *) 0 ;
6014 gsl_matrix *arg4 = (gsl_matrix *) 0 ;
6015 int val1 ;
6016 int ecode1 = 0 ;
6017 double val2 ;
6018 int ecode2 = 0 ;
6019 void *argp3 = 0 ;
6020 int res3 = 0 ;
6021 void *argp4 = 0 ;
6022 int res4 = 0 ;
6023 int argvi = 0;
6024 int result;
6025 dXSARGS;
6026
6027 if ((items < 4) || (items > 4)) {
6028 SWIG_croak("Usage: gsl_blas_dsyr(Uplo,alpha,X,A);");
6029 }
6030 ecode1 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
6031 if (!SWIG_IsOK(ecode1)) {
6032 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_blas_dsyr" "', argument " "1"" of type '" "CBLAS_UPLO_t""'");
6033 }
6034 arg1 = (CBLAS_UPLO_t)(val1);
6035 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
6036 if (!SWIG_IsOK(ecode2)) {
6037 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_blas_dsyr" "', argument " "2"" of type '" "double""'");
6038 }
6039 arg2 = (double)(val2);
6040 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
6041 if (!SWIG_IsOK(res3)) {
6042 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_blas_dsyr" "', argument " "3"" of type '" "gsl_vector const *""'");
6043 }
6044 arg3 = (gsl_vector *)(argp3);
6045 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6046 if (!SWIG_IsOK(res4)) {
6047 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_blas_dsyr" "', argument " "4"" of type '" "gsl_matrix *""'");
6048 }
6049 arg4 = (gsl_matrix *)(argp4);
6050 result = (int)gsl_blas_dsyr(arg1,arg2,(gsl_vector const *)arg3,arg4);
6051 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6052
6053
6054
6055
6056 XSRETURN(argvi);
6057 fail:
6058
6059
6060
6061
6062 SWIG_croak_null();
6063 }
6064 }
6065
6066
XS(_wrap_gsl_blas_dsyr2)6067 XS(_wrap_gsl_blas_dsyr2) {
6068 {
6069 CBLAS_UPLO_t arg1 ;
6070 double arg2 ;
6071 gsl_vector *arg3 = (gsl_vector *) 0 ;
6072 gsl_vector *arg4 = (gsl_vector *) 0 ;
6073 gsl_matrix *arg5 = (gsl_matrix *) 0 ;
6074 int val1 ;
6075 int ecode1 = 0 ;
6076 double val2 ;
6077 int ecode2 = 0 ;
6078 void *argp3 = 0 ;
6079 int res3 = 0 ;
6080 void *argp4 = 0 ;
6081 int res4 = 0 ;
6082 void *argp5 = 0 ;
6083 int res5 = 0 ;
6084 int argvi = 0;
6085 int result;
6086 dXSARGS;
6087
6088 if ((items < 5) || (items > 5)) {
6089 SWIG_croak("Usage: gsl_blas_dsyr2(Uplo,alpha,X,Y,A);");
6090 }
6091 ecode1 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
6092 if (!SWIG_IsOK(ecode1)) {
6093 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_blas_dsyr2" "', argument " "1"" of type '" "CBLAS_UPLO_t""'");
6094 }
6095 arg1 = (CBLAS_UPLO_t)(val1);
6096 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
6097 if (!SWIG_IsOK(ecode2)) {
6098 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_blas_dsyr2" "', argument " "2"" of type '" "double""'");
6099 }
6100 arg2 = (double)(val2);
6101 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
6102 if (!SWIG_IsOK(res3)) {
6103 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_blas_dsyr2" "', argument " "3"" of type '" "gsl_vector const *""'");
6104 }
6105 arg3 = (gsl_vector *)(argp3);
6106 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
6107 if (!SWIG_IsOK(res4)) {
6108 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_blas_dsyr2" "', argument " "4"" of type '" "gsl_vector const *""'");
6109 }
6110 arg4 = (gsl_vector *)(argp4);
6111 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6112 if (!SWIG_IsOK(res5)) {
6113 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_blas_dsyr2" "', argument " "5"" of type '" "gsl_matrix *""'");
6114 }
6115 arg5 = (gsl_matrix *)(argp5);
6116 result = (int)gsl_blas_dsyr2(arg1,arg2,(gsl_vector const *)arg3,(gsl_vector const *)arg4,arg5);
6117 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6118
6119
6120
6121
6122
6123 XSRETURN(argvi);
6124 fail:
6125
6126
6127
6128
6129
6130 SWIG_croak_null();
6131 }
6132 }
6133
6134
XS(_wrap_gsl_blas_chemv)6135 XS(_wrap_gsl_blas_chemv) {
6136 {
6137 CBLAS_UPLO_t arg1 ;
6138 gsl_complex_float arg2 ;
6139 gsl_matrix_complex_float *arg3 = (gsl_matrix_complex_float *) 0 ;
6140 gsl_vector_complex_float *arg4 = (gsl_vector_complex_float *) 0 ;
6141 gsl_complex_float arg5 ;
6142 gsl_vector_complex_float *arg6 = (gsl_vector_complex_float *) 0 ;
6143 int val1 ;
6144 int ecode1 = 0 ;
6145 void *argp2 ;
6146 int res2 = 0 ;
6147 void *argp3 = 0 ;
6148 int res3 = 0 ;
6149 void *argp4 = 0 ;
6150 int res4 = 0 ;
6151 void *argp5 ;
6152 int res5 = 0 ;
6153 void *argp6 = 0 ;
6154 int res6 = 0 ;
6155 int argvi = 0;
6156 int result;
6157 dXSARGS;
6158
6159 if ((items < 6) || (items > 6)) {
6160 SWIG_croak("Usage: gsl_blas_chemv(Uplo,alpha,A,X,beta,Y);");
6161 }
6162 ecode1 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
6163 if (!SWIG_IsOK(ecode1)) {
6164 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_blas_chemv" "', argument " "1"" of type '" "CBLAS_UPLO_t""'");
6165 }
6166 arg1 = (CBLAS_UPLO_t)(val1);
6167 {
6168 res2 = SWIG_ConvertPtr(ST(1), &argp2, SWIGTYPE_p_gsl_complex_float, 0 );
6169 if (!SWIG_IsOK(res2)) {
6170 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_blas_chemv" "', argument " "2"" of type '" "gsl_complex_float const""'");
6171 }
6172 if (!argp2) {
6173 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_blas_chemv" "', argument " "2"" of type '" "gsl_complex_float const""'");
6174 } else {
6175 arg2 = *((gsl_complex_float *)(argp2));
6176 }
6177 }
6178 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix_complex_float, 0 | 0 );
6179 if (!SWIG_IsOK(res3)) {
6180 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_blas_chemv" "', argument " "3"" of type '" "gsl_matrix_complex_float const *""'");
6181 }
6182 arg3 = (gsl_matrix_complex_float *)(argp3);
6183 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector_complex_float, 0 | 0 );
6184 if (!SWIG_IsOK(res4)) {
6185 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_blas_chemv" "', argument " "4"" of type '" "gsl_vector_complex_float const *""'");
6186 }
6187 arg4 = (gsl_vector_complex_float *)(argp4);
6188 {
6189 res5 = SWIG_ConvertPtr(ST(4), &argp5, SWIGTYPE_p_gsl_complex_float, 0 );
6190 if (!SWIG_IsOK(res5)) {
6191 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_blas_chemv" "', argument " "5"" of type '" "gsl_complex_float const""'");
6192 }
6193 if (!argp5) {
6194 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_blas_chemv" "', argument " "5"" of type '" "gsl_complex_float const""'");
6195 } else {
6196 arg5 = *((gsl_complex_float *)(argp5));
6197 }
6198 }
6199 res6 = SWIG_ConvertPtr(ST(5), &argp6,SWIGTYPE_p_gsl_vector_complex_float, 0 | 0 );
6200 if (!SWIG_IsOK(res6)) {
6201 SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_blas_chemv" "', argument " "6"" of type '" "gsl_vector_complex_float *""'");
6202 }
6203 arg6 = (gsl_vector_complex_float *)(argp6);
6204 result = (int)gsl_blas_chemv(arg1,arg2,(gsl_matrix_complex_float const *)arg3,(gsl_vector_complex_float const *)arg4,arg5,arg6);
6205 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6206
6207
6208
6209
6210 XSRETURN(argvi);
6211 fail:
6212
6213
6214
6215
6216 SWIG_croak_null();
6217 }
6218 }
6219
6220
XS(_wrap_gsl_blas_cgeru)6221 XS(_wrap_gsl_blas_cgeru) {
6222 {
6223 gsl_complex_float arg1 ;
6224 gsl_vector_complex_float *arg2 = (gsl_vector_complex_float *) 0 ;
6225 gsl_vector_complex_float *arg3 = (gsl_vector_complex_float *) 0 ;
6226 gsl_matrix_complex_float *arg4 = (gsl_matrix_complex_float *) 0 ;
6227 void *argp1 ;
6228 int res1 = 0 ;
6229 void *argp2 = 0 ;
6230 int res2 = 0 ;
6231 void *argp3 = 0 ;
6232 int res3 = 0 ;
6233 void *argp4 = 0 ;
6234 int res4 = 0 ;
6235 int argvi = 0;
6236 int result;
6237 dXSARGS;
6238
6239 if ((items < 4) || (items > 4)) {
6240 SWIG_croak("Usage: gsl_blas_cgeru(alpha,X,Y,A);");
6241 }
6242 {
6243 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex_float, 0 );
6244 if (!SWIG_IsOK(res1)) {
6245 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_blas_cgeru" "', argument " "1"" of type '" "gsl_complex_float const""'");
6246 }
6247 if (!argp1) {
6248 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_blas_cgeru" "', argument " "1"" of type '" "gsl_complex_float const""'");
6249 } else {
6250 arg1 = *((gsl_complex_float *)(argp1));
6251 }
6252 }
6253 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_complex_float, 0 | 0 );
6254 if (!SWIG_IsOK(res2)) {
6255 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_blas_cgeru" "', argument " "2"" of type '" "gsl_vector_complex_float const *""'");
6256 }
6257 arg2 = (gsl_vector_complex_float *)(argp2);
6258 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector_complex_float, 0 | 0 );
6259 if (!SWIG_IsOK(res3)) {
6260 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_blas_cgeru" "', argument " "3"" of type '" "gsl_vector_complex_float const *""'");
6261 }
6262 arg3 = (gsl_vector_complex_float *)(argp3);
6263 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_matrix_complex_float, 0 | 0 );
6264 if (!SWIG_IsOK(res4)) {
6265 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_blas_cgeru" "', argument " "4"" of type '" "gsl_matrix_complex_float *""'");
6266 }
6267 arg4 = (gsl_matrix_complex_float *)(argp4);
6268 result = (int)gsl_blas_cgeru(arg1,(gsl_vector_complex_float const *)arg2,(gsl_vector_complex_float const *)arg3,arg4);
6269 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6270
6271
6272
6273 XSRETURN(argvi);
6274 fail:
6275
6276
6277
6278 SWIG_croak_null();
6279 }
6280 }
6281
6282
XS(_wrap_gsl_blas_cgerc)6283 XS(_wrap_gsl_blas_cgerc) {
6284 {
6285 gsl_complex_float arg1 ;
6286 gsl_vector_complex_float *arg2 = (gsl_vector_complex_float *) 0 ;
6287 gsl_vector_complex_float *arg3 = (gsl_vector_complex_float *) 0 ;
6288 gsl_matrix_complex_float *arg4 = (gsl_matrix_complex_float *) 0 ;
6289 void *argp1 ;
6290 int res1 = 0 ;
6291 void *argp2 = 0 ;
6292 int res2 = 0 ;
6293 void *argp3 = 0 ;
6294 int res3 = 0 ;
6295 void *argp4 = 0 ;
6296 int res4 = 0 ;
6297 int argvi = 0;
6298 int result;
6299 dXSARGS;
6300
6301 if ((items < 4) || (items > 4)) {
6302 SWIG_croak("Usage: gsl_blas_cgerc(alpha,X,Y,A);");
6303 }
6304 {
6305 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex_float, 0 );
6306 if (!SWIG_IsOK(res1)) {
6307 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_blas_cgerc" "', argument " "1"" of type '" "gsl_complex_float const""'");
6308 }
6309 if (!argp1) {
6310 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_blas_cgerc" "', argument " "1"" of type '" "gsl_complex_float const""'");
6311 } else {
6312 arg1 = *((gsl_complex_float *)(argp1));
6313 }
6314 }
6315 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_complex_float, 0 | 0 );
6316 if (!SWIG_IsOK(res2)) {
6317 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_blas_cgerc" "', argument " "2"" of type '" "gsl_vector_complex_float const *""'");
6318 }
6319 arg2 = (gsl_vector_complex_float *)(argp2);
6320 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector_complex_float, 0 | 0 );
6321 if (!SWIG_IsOK(res3)) {
6322 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_blas_cgerc" "', argument " "3"" of type '" "gsl_vector_complex_float const *""'");
6323 }
6324 arg3 = (gsl_vector_complex_float *)(argp3);
6325 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_matrix_complex_float, 0 | 0 );
6326 if (!SWIG_IsOK(res4)) {
6327 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_blas_cgerc" "', argument " "4"" of type '" "gsl_matrix_complex_float *""'");
6328 }
6329 arg4 = (gsl_matrix_complex_float *)(argp4);
6330 result = (int)gsl_blas_cgerc(arg1,(gsl_vector_complex_float const *)arg2,(gsl_vector_complex_float const *)arg3,arg4);
6331 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6332
6333
6334
6335 XSRETURN(argvi);
6336 fail:
6337
6338
6339
6340 SWIG_croak_null();
6341 }
6342 }
6343
6344
XS(_wrap_gsl_blas_cher)6345 XS(_wrap_gsl_blas_cher) {
6346 {
6347 CBLAS_UPLO_t arg1 ;
6348 float arg2 ;
6349 gsl_vector_complex_float *arg3 = (gsl_vector_complex_float *) 0 ;
6350 gsl_matrix_complex_float *arg4 = (gsl_matrix_complex_float *) 0 ;
6351 int val1 ;
6352 int ecode1 = 0 ;
6353 float val2 ;
6354 int ecode2 = 0 ;
6355 void *argp3 = 0 ;
6356 int res3 = 0 ;
6357 void *argp4 = 0 ;
6358 int res4 = 0 ;
6359 int argvi = 0;
6360 int result;
6361 dXSARGS;
6362
6363 if ((items < 4) || (items > 4)) {
6364 SWIG_croak("Usage: gsl_blas_cher(Uplo,alpha,X,A);");
6365 }
6366 ecode1 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
6367 if (!SWIG_IsOK(ecode1)) {
6368 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_blas_cher" "', argument " "1"" of type '" "CBLAS_UPLO_t""'");
6369 }
6370 arg1 = (CBLAS_UPLO_t)(val1);
6371 ecode2 = SWIG_AsVal_float SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
6372 if (!SWIG_IsOK(ecode2)) {
6373 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_blas_cher" "', argument " "2"" of type '" "float""'");
6374 }
6375 arg2 = (float)(val2);
6376 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector_complex_float, 0 | 0 );
6377 if (!SWIG_IsOK(res3)) {
6378 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_blas_cher" "', argument " "3"" of type '" "gsl_vector_complex_float const *""'");
6379 }
6380 arg3 = (gsl_vector_complex_float *)(argp3);
6381 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_matrix_complex_float, 0 | 0 );
6382 if (!SWIG_IsOK(res4)) {
6383 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_blas_cher" "', argument " "4"" of type '" "gsl_matrix_complex_float *""'");
6384 }
6385 arg4 = (gsl_matrix_complex_float *)(argp4);
6386 result = (int)gsl_blas_cher(arg1,arg2,(gsl_vector_complex_float const *)arg3,arg4);
6387 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6388
6389
6390
6391
6392 XSRETURN(argvi);
6393 fail:
6394
6395
6396
6397
6398 SWIG_croak_null();
6399 }
6400 }
6401
6402
XS(_wrap_gsl_blas_cher2)6403 XS(_wrap_gsl_blas_cher2) {
6404 {
6405 CBLAS_UPLO_t arg1 ;
6406 gsl_complex_float arg2 ;
6407 gsl_vector_complex_float *arg3 = (gsl_vector_complex_float *) 0 ;
6408 gsl_vector_complex_float *arg4 = (gsl_vector_complex_float *) 0 ;
6409 gsl_matrix_complex_float *arg5 = (gsl_matrix_complex_float *) 0 ;
6410 int val1 ;
6411 int ecode1 = 0 ;
6412 void *argp2 ;
6413 int res2 = 0 ;
6414 void *argp3 = 0 ;
6415 int res3 = 0 ;
6416 void *argp4 = 0 ;
6417 int res4 = 0 ;
6418 void *argp5 = 0 ;
6419 int res5 = 0 ;
6420 int argvi = 0;
6421 int result;
6422 dXSARGS;
6423
6424 if ((items < 5) || (items > 5)) {
6425 SWIG_croak("Usage: gsl_blas_cher2(Uplo,alpha,X,Y,A);");
6426 }
6427 ecode1 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
6428 if (!SWIG_IsOK(ecode1)) {
6429 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_blas_cher2" "', argument " "1"" of type '" "CBLAS_UPLO_t""'");
6430 }
6431 arg1 = (CBLAS_UPLO_t)(val1);
6432 {
6433 res2 = SWIG_ConvertPtr(ST(1), &argp2, SWIGTYPE_p_gsl_complex_float, 0 );
6434 if (!SWIG_IsOK(res2)) {
6435 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_blas_cher2" "', argument " "2"" of type '" "gsl_complex_float const""'");
6436 }
6437 if (!argp2) {
6438 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_blas_cher2" "', argument " "2"" of type '" "gsl_complex_float const""'");
6439 } else {
6440 arg2 = *((gsl_complex_float *)(argp2));
6441 }
6442 }
6443 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector_complex_float, 0 | 0 );
6444 if (!SWIG_IsOK(res3)) {
6445 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_blas_cher2" "', argument " "3"" of type '" "gsl_vector_complex_float const *""'");
6446 }
6447 arg3 = (gsl_vector_complex_float *)(argp3);
6448 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector_complex_float, 0 | 0 );
6449 if (!SWIG_IsOK(res4)) {
6450 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_blas_cher2" "', argument " "4"" of type '" "gsl_vector_complex_float const *""'");
6451 }
6452 arg4 = (gsl_vector_complex_float *)(argp4);
6453 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_matrix_complex_float, 0 | 0 );
6454 if (!SWIG_IsOK(res5)) {
6455 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_blas_cher2" "', argument " "5"" of type '" "gsl_matrix_complex_float *""'");
6456 }
6457 arg5 = (gsl_matrix_complex_float *)(argp5);
6458 result = (int)gsl_blas_cher2(arg1,arg2,(gsl_vector_complex_float const *)arg3,(gsl_vector_complex_float const *)arg4,arg5);
6459 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6460
6461
6462
6463
6464 XSRETURN(argvi);
6465 fail:
6466
6467
6468
6469
6470 SWIG_croak_null();
6471 }
6472 }
6473
6474
XS(_wrap_gsl_blas_zhemv)6475 XS(_wrap_gsl_blas_zhemv) {
6476 {
6477 CBLAS_UPLO_t arg1 ;
6478 gsl_complex arg2 ;
6479 gsl_matrix_complex *arg3 = (gsl_matrix_complex *) 0 ;
6480 gsl_vector_complex *arg4 = (gsl_vector_complex *) 0 ;
6481 gsl_complex arg5 ;
6482 gsl_vector_complex *arg6 = (gsl_vector_complex *) 0 ;
6483 int val1 ;
6484 int ecode1 = 0 ;
6485 void *argp2 ;
6486 int res2 = 0 ;
6487 void *argp3 = 0 ;
6488 int res3 = 0 ;
6489 void *argp4 = 0 ;
6490 int res4 = 0 ;
6491 void *argp5 ;
6492 int res5 = 0 ;
6493 void *argp6 = 0 ;
6494 int res6 = 0 ;
6495 int argvi = 0;
6496 int result;
6497 dXSARGS;
6498
6499 if ((items < 6) || (items > 6)) {
6500 SWIG_croak("Usage: gsl_blas_zhemv(Uplo,alpha,A,X,beta,Y);");
6501 }
6502 ecode1 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
6503 if (!SWIG_IsOK(ecode1)) {
6504 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_blas_zhemv" "', argument " "1"" of type '" "CBLAS_UPLO_t""'");
6505 }
6506 arg1 = (CBLAS_UPLO_t)(val1);
6507 {
6508 res2 = SWIG_ConvertPtr(ST(1), &argp2, SWIGTYPE_p_gsl_complex, 0 );
6509 if (!SWIG_IsOK(res2)) {
6510 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_blas_zhemv" "', argument " "2"" of type '" "gsl_complex const""'");
6511 }
6512 if (!argp2) {
6513 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_blas_zhemv" "', argument " "2"" of type '" "gsl_complex const""'");
6514 } else {
6515 arg2 = *((gsl_complex *)(argp2));
6516 }
6517 }
6518 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
6519 if (!SWIG_IsOK(res3)) {
6520 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_blas_zhemv" "', argument " "3"" of type '" "gsl_matrix_complex const *""'");
6521 }
6522 arg3 = (gsl_matrix_complex *)(argp3);
6523 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
6524 if (!SWIG_IsOK(res4)) {
6525 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_blas_zhemv" "', argument " "4"" of type '" "gsl_vector_complex const *""'");
6526 }
6527 arg4 = (gsl_vector_complex *)(argp4);
6528 {
6529 res5 = SWIG_ConvertPtr(ST(4), &argp5, SWIGTYPE_p_gsl_complex, 0 );
6530 if (!SWIG_IsOK(res5)) {
6531 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_blas_zhemv" "', argument " "5"" of type '" "gsl_complex const""'");
6532 }
6533 if (!argp5) {
6534 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_blas_zhemv" "', argument " "5"" of type '" "gsl_complex const""'");
6535 } else {
6536 arg5 = *((gsl_complex *)(argp5));
6537 }
6538 }
6539 res6 = SWIG_ConvertPtr(ST(5), &argp6,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
6540 if (!SWIG_IsOK(res6)) {
6541 SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_blas_zhemv" "', argument " "6"" of type '" "gsl_vector_complex *""'");
6542 }
6543 arg6 = (gsl_vector_complex *)(argp6);
6544 result = (int)gsl_blas_zhemv(arg1,arg2,(gsl_matrix_complex const *)arg3,(gsl_vector_complex const *)arg4,arg5,arg6);
6545 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6546
6547
6548
6549
6550 XSRETURN(argvi);
6551 fail:
6552
6553
6554
6555
6556 SWIG_croak_null();
6557 }
6558 }
6559
6560
XS(_wrap_gsl_blas_zgeru)6561 XS(_wrap_gsl_blas_zgeru) {
6562 {
6563 gsl_complex arg1 ;
6564 gsl_vector_complex *arg2 = (gsl_vector_complex *) 0 ;
6565 gsl_vector_complex *arg3 = (gsl_vector_complex *) 0 ;
6566 gsl_matrix_complex *arg4 = (gsl_matrix_complex *) 0 ;
6567 void *argp1 ;
6568 int res1 = 0 ;
6569 void *argp2 = 0 ;
6570 int res2 = 0 ;
6571 void *argp3 = 0 ;
6572 int res3 = 0 ;
6573 void *argp4 = 0 ;
6574 int res4 = 0 ;
6575 int argvi = 0;
6576 int result;
6577 dXSARGS;
6578
6579 if ((items < 4) || (items > 4)) {
6580 SWIG_croak("Usage: gsl_blas_zgeru(alpha,X,Y,A);");
6581 }
6582 {
6583 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
6584 if (!SWIG_IsOK(res1)) {
6585 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_blas_zgeru" "', argument " "1"" of type '" "gsl_complex const""'");
6586 }
6587 if (!argp1) {
6588 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_blas_zgeru" "', argument " "1"" of type '" "gsl_complex const""'");
6589 } else {
6590 arg1 = *((gsl_complex *)(argp1));
6591 }
6592 }
6593 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
6594 if (!SWIG_IsOK(res2)) {
6595 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_blas_zgeru" "', argument " "2"" of type '" "gsl_vector_complex const *""'");
6596 }
6597 arg2 = (gsl_vector_complex *)(argp2);
6598 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
6599 if (!SWIG_IsOK(res3)) {
6600 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_blas_zgeru" "', argument " "3"" of type '" "gsl_vector_complex const *""'");
6601 }
6602 arg3 = (gsl_vector_complex *)(argp3);
6603 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
6604 if (!SWIG_IsOK(res4)) {
6605 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_blas_zgeru" "', argument " "4"" of type '" "gsl_matrix_complex *""'");
6606 }
6607 arg4 = (gsl_matrix_complex *)(argp4);
6608 result = (int)gsl_blas_zgeru(arg1,(gsl_vector_complex const *)arg2,(gsl_vector_complex const *)arg3,arg4);
6609 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6610
6611
6612
6613 XSRETURN(argvi);
6614 fail:
6615
6616
6617
6618 SWIG_croak_null();
6619 }
6620 }
6621
6622
XS(_wrap_gsl_blas_zgerc)6623 XS(_wrap_gsl_blas_zgerc) {
6624 {
6625 gsl_complex arg1 ;
6626 gsl_vector_complex *arg2 = (gsl_vector_complex *) 0 ;
6627 gsl_vector_complex *arg3 = (gsl_vector_complex *) 0 ;
6628 gsl_matrix_complex *arg4 = (gsl_matrix_complex *) 0 ;
6629 void *argp1 ;
6630 int res1 = 0 ;
6631 void *argp2 = 0 ;
6632 int res2 = 0 ;
6633 void *argp3 = 0 ;
6634 int res3 = 0 ;
6635 void *argp4 = 0 ;
6636 int res4 = 0 ;
6637 int argvi = 0;
6638 int result;
6639 dXSARGS;
6640
6641 if ((items < 4) || (items > 4)) {
6642 SWIG_croak("Usage: gsl_blas_zgerc(alpha,X,Y,A);");
6643 }
6644 {
6645 res1 = SWIG_ConvertPtr(ST(0), &argp1, SWIGTYPE_p_gsl_complex, 0 );
6646 if (!SWIG_IsOK(res1)) {
6647 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_blas_zgerc" "', argument " "1"" of type '" "gsl_complex const""'");
6648 }
6649 if (!argp1) {
6650 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_blas_zgerc" "', argument " "1"" of type '" "gsl_complex const""'");
6651 } else {
6652 arg1 = *((gsl_complex *)(argp1));
6653 }
6654 }
6655 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
6656 if (!SWIG_IsOK(res2)) {
6657 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_blas_zgerc" "', argument " "2"" of type '" "gsl_vector_complex const *""'");
6658 }
6659 arg2 = (gsl_vector_complex *)(argp2);
6660 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
6661 if (!SWIG_IsOK(res3)) {
6662 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_blas_zgerc" "', argument " "3"" of type '" "gsl_vector_complex const *""'");
6663 }
6664 arg3 = (gsl_vector_complex *)(argp3);
6665 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
6666 if (!SWIG_IsOK(res4)) {
6667 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_blas_zgerc" "', argument " "4"" of type '" "gsl_matrix_complex *""'");
6668 }
6669 arg4 = (gsl_matrix_complex *)(argp4);
6670 result = (int)gsl_blas_zgerc(arg1,(gsl_vector_complex const *)arg2,(gsl_vector_complex const *)arg3,arg4);
6671 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6672
6673
6674
6675 XSRETURN(argvi);
6676 fail:
6677
6678
6679
6680 SWIG_croak_null();
6681 }
6682 }
6683
6684
XS(_wrap_gsl_blas_zher)6685 XS(_wrap_gsl_blas_zher) {
6686 {
6687 CBLAS_UPLO_t arg1 ;
6688 double arg2 ;
6689 gsl_vector_complex *arg3 = (gsl_vector_complex *) 0 ;
6690 gsl_matrix_complex *arg4 = (gsl_matrix_complex *) 0 ;
6691 int val1 ;
6692 int ecode1 = 0 ;
6693 double val2 ;
6694 int ecode2 = 0 ;
6695 void *argp3 = 0 ;
6696 int res3 = 0 ;
6697 void *argp4 = 0 ;
6698 int res4 = 0 ;
6699 int argvi = 0;
6700 int result;
6701 dXSARGS;
6702
6703 if ((items < 4) || (items > 4)) {
6704 SWIG_croak("Usage: gsl_blas_zher(Uplo,alpha,X,A);");
6705 }
6706 ecode1 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
6707 if (!SWIG_IsOK(ecode1)) {
6708 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_blas_zher" "', argument " "1"" of type '" "CBLAS_UPLO_t""'");
6709 }
6710 arg1 = (CBLAS_UPLO_t)(val1);
6711 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
6712 if (!SWIG_IsOK(ecode2)) {
6713 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_blas_zher" "', argument " "2"" of type '" "double""'");
6714 }
6715 arg2 = (double)(val2);
6716 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
6717 if (!SWIG_IsOK(res3)) {
6718 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_blas_zher" "', argument " "3"" of type '" "gsl_vector_complex const *""'");
6719 }
6720 arg3 = (gsl_vector_complex *)(argp3);
6721 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
6722 if (!SWIG_IsOK(res4)) {
6723 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_blas_zher" "', argument " "4"" of type '" "gsl_matrix_complex *""'");
6724 }
6725 arg4 = (gsl_matrix_complex *)(argp4);
6726 result = (int)gsl_blas_zher(arg1,arg2,(gsl_vector_complex const *)arg3,arg4);
6727 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6728
6729
6730
6731
6732 XSRETURN(argvi);
6733 fail:
6734
6735
6736
6737
6738 SWIG_croak_null();
6739 }
6740 }
6741
6742
XS(_wrap_gsl_blas_zher2)6743 XS(_wrap_gsl_blas_zher2) {
6744 {
6745 CBLAS_UPLO_t arg1 ;
6746 gsl_complex arg2 ;
6747 gsl_vector_complex *arg3 = (gsl_vector_complex *) 0 ;
6748 gsl_vector_complex *arg4 = (gsl_vector_complex *) 0 ;
6749 gsl_matrix_complex *arg5 = (gsl_matrix_complex *) 0 ;
6750 int val1 ;
6751 int ecode1 = 0 ;
6752 void *argp2 ;
6753 int res2 = 0 ;
6754 void *argp3 = 0 ;
6755 int res3 = 0 ;
6756 void *argp4 = 0 ;
6757 int res4 = 0 ;
6758 void *argp5 = 0 ;
6759 int res5 = 0 ;
6760 int argvi = 0;
6761 int result;
6762 dXSARGS;
6763
6764 if ((items < 5) || (items > 5)) {
6765 SWIG_croak("Usage: gsl_blas_zher2(Uplo,alpha,X,Y,A);");
6766 }
6767 ecode1 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
6768 if (!SWIG_IsOK(ecode1)) {
6769 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_blas_zher2" "', argument " "1"" of type '" "CBLAS_UPLO_t""'");
6770 }
6771 arg1 = (CBLAS_UPLO_t)(val1);
6772 {
6773 res2 = SWIG_ConvertPtr(ST(1), &argp2, SWIGTYPE_p_gsl_complex, 0 );
6774 if (!SWIG_IsOK(res2)) {
6775 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_blas_zher2" "', argument " "2"" of type '" "gsl_complex const""'");
6776 }
6777 if (!argp2) {
6778 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_blas_zher2" "', argument " "2"" of type '" "gsl_complex const""'");
6779 } else {
6780 arg2 = *((gsl_complex *)(argp2));
6781 }
6782 }
6783 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
6784 if (!SWIG_IsOK(res3)) {
6785 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_blas_zher2" "', argument " "3"" of type '" "gsl_vector_complex const *""'");
6786 }
6787 arg3 = (gsl_vector_complex *)(argp3);
6788 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector_complex, 0 | 0 );
6789 if (!SWIG_IsOK(res4)) {
6790 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_blas_zher2" "', argument " "4"" of type '" "gsl_vector_complex const *""'");
6791 }
6792 arg4 = (gsl_vector_complex *)(argp4);
6793 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
6794 if (!SWIG_IsOK(res5)) {
6795 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_blas_zher2" "', argument " "5"" of type '" "gsl_matrix_complex *""'");
6796 }
6797 arg5 = (gsl_matrix_complex *)(argp5);
6798 result = (int)gsl_blas_zher2(arg1,arg2,(gsl_vector_complex const *)arg3,(gsl_vector_complex const *)arg4,arg5);
6799 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6800
6801
6802
6803
6804 XSRETURN(argvi);
6805 fail:
6806
6807
6808
6809
6810 SWIG_croak_null();
6811 }
6812 }
6813
6814
XS(_wrap_gsl_blas_sgemm)6815 XS(_wrap_gsl_blas_sgemm) {
6816 {
6817 CBLAS_TRANSPOSE_t arg1 ;
6818 CBLAS_TRANSPOSE_t arg2 ;
6819 float arg3 ;
6820 gsl_matrix_float *arg4 = (gsl_matrix_float *) 0 ;
6821 gsl_matrix_float *arg5 = (gsl_matrix_float *) 0 ;
6822 float arg6 ;
6823 gsl_matrix_float *arg7 = (gsl_matrix_float *) 0 ;
6824 int val1 ;
6825 int ecode1 = 0 ;
6826 int val2 ;
6827 int ecode2 = 0 ;
6828 float val3 ;
6829 int ecode3 = 0 ;
6830 void *argp4 = 0 ;
6831 int res4 = 0 ;
6832 void *argp5 = 0 ;
6833 int res5 = 0 ;
6834 float val6 ;
6835 int ecode6 = 0 ;
6836 void *argp7 = 0 ;
6837 int res7 = 0 ;
6838 int argvi = 0;
6839 int result;
6840 dXSARGS;
6841
6842 if ((items < 7) || (items > 7)) {
6843 SWIG_croak("Usage: gsl_blas_sgemm(TransA,TransB,alpha,A,B,beta,C);");
6844 }
6845 ecode1 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
6846 if (!SWIG_IsOK(ecode1)) {
6847 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_blas_sgemm" "', argument " "1"" of type '" "CBLAS_TRANSPOSE_t""'");
6848 }
6849 arg1 = (CBLAS_TRANSPOSE_t)(val1);
6850 ecode2 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
6851 if (!SWIG_IsOK(ecode2)) {
6852 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_blas_sgemm" "', argument " "2"" of type '" "CBLAS_TRANSPOSE_t""'");
6853 }
6854 arg2 = (CBLAS_TRANSPOSE_t)(val2);
6855 ecode3 = SWIG_AsVal_float SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
6856 if (!SWIG_IsOK(ecode3)) {
6857 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_blas_sgemm" "', argument " "3"" of type '" "float""'");
6858 }
6859 arg3 = (float)(val3);
6860 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_matrix_float, 0 | 0 );
6861 if (!SWIG_IsOK(res4)) {
6862 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_blas_sgemm" "', argument " "4"" of type '" "gsl_matrix_float const *""'");
6863 }
6864 arg4 = (gsl_matrix_float *)(argp4);
6865 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_matrix_float, 0 | 0 );
6866 if (!SWIG_IsOK(res5)) {
6867 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_blas_sgemm" "', argument " "5"" of type '" "gsl_matrix_float const *""'");
6868 }
6869 arg5 = (gsl_matrix_float *)(argp5);
6870 ecode6 = SWIG_AsVal_float SWIG_PERL_CALL_ARGS_2(ST(5), &val6);
6871 if (!SWIG_IsOK(ecode6)) {
6872 SWIG_exception_fail(SWIG_ArgError(ecode6), "in method '" "gsl_blas_sgemm" "', argument " "6"" of type '" "float""'");
6873 }
6874 arg6 = (float)(val6);
6875 res7 = SWIG_ConvertPtr(ST(6), &argp7,SWIGTYPE_p_gsl_matrix_float, 0 | 0 );
6876 if (!SWIG_IsOK(res7)) {
6877 SWIG_exception_fail(SWIG_ArgError(res7), "in method '" "gsl_blas_sgemm" "', argument " "7"" of type '" "gsl_matrix_float *""'");
6878 }
6879 arg7 = (gsl_matrix_float *)(argp7);
6880 result = (int)gsl_blas_sgemm(arg1,arg2,arg3,(gsl_matrix_float const *)arg4,(gsl_matrix_float const *)arg5,arg6,arg7);
6881 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6882
6883
6884
6885
6886
6887
6888
6889 XSRETURN(argvi);
6890 fail:
6891
6892
6893
6894
6895
6896
6897
6898 SWIG_croak_null();
6899 }
6900 }
6901
6902
XS(_wrap_gsl_blas_ssymm)6903 XS(_wrap_gsl_blas_ssymm) {
6904 {
6905 CBLAS_SIDE_t arg1 ;
6906 CBLAS_UPLO_t arg2 ;
6907 float arg3 ;
6908 gsl_matrix_float *arg4 = (gsl_matrix_float *) 0 ;
6909 gsl_matrix_float *arg5 = (gsl_matrix_float *) 0 ;
6910 float arg6 ;
6911 gsl_matrix_float *arg7 = (gsl_matrix_float *) 0 ;
6912 int val1 ;
6913 int ecode1 = 0 ;
6914 int val2 ;
6915 int ecode2 = 0 ;
6916 float val3 ;
6917 int ecode3 = 0 ;
6918 void *argp4 = 0 ;
6919 int res4 = 0 ;
6920 void *argp5 = 0 ;
6921 int res5 = 0 ;
6922 float val6 ;
6923 int ecode6 = 0 ;
6924 void *argp7 = 0 ;
6925 int res7 = 0 ;
6926 int argvi = 0;
6927 int result;
6928 dXSARGS;
6929
6930 if ((items < 7) || (items > 7)) {
6931 SWIG_croak("Usage: gsl_blas_ssymm(Side,Uplo,alpha,A,B,beta,C);");
6932 }
6933 ecode1 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
6934 if (!SWIG_IsOK(ecode1)) {
6935 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_blas_ssymm" "', argument " "1"" of type '" "CBLAS_SIDE_t""'");
6936 }
6937 arg1 = (CBLAS_SIDE_t)(val1);
6938 ecode2 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
6939 if (!SWIG_IsOK(ecode2)) {
6940 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_blas_ssymm" "', argument " "2"" of type '" "CBLAS_UPLO_t""'");
6941 }
6942 arg2 = (CBLAS_UPLO_t)(val2);
6943 ecode3 = SWIG_AsVal_float SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
6944 if (!SWIG_IsOK(ecode3)) {
6945 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_blas_ssymm" "', argument " "3"" of type '" "float""'");
6946 }
6947 arg3 = (float)(val3);
6948 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_matrix_float, 0 | 0 );
6949 if (!SWIG_IsOK(res4)) {
6950 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_blas_ssymm" "', argument " "4"" of type '" "gsl_matrix_float const *""'");
6951 }
6952 arg4 = (gsl_matrix_float *)(argp4);
6953 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_matrix_float, 0 | 0 );
6954 if (!SWIG_IsOK(res5)) {
6955 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_blas_ssymm" "', argument " "5"" of type '" "gsl_matrix_float const *""'");
6956 }
6957 arg5 = (gsl_matrix_float *)(argp5);
6958 ecode6 = SWIG_AsVal_float SWIG_PERL_CALL_ARGS_2(ST(5), &val6);
6959 if (!SWIG_IsOK(ecode6)) {
6960 SWIG_exception_fail(SWIG_ArgError(ecode6), "in method '" "gsl_blas_ssymm" "', argument " "6"" of type '" "float""'");
6961 }
6962 arg6 = (float)(val6);
6963 res7 = SWIG_ConvertPtr(ST(6), &argp7,SWIGTYPE_p_gsl_matrix_float, 0 | 0 );
6964 if (!SWIG_IsOK(res7)) {
6965 SWIG_exception_fail(SWIG_ArgError(res7), "in method '" "gsl_blas_ssymm" "', argument " "7"" of type '" "gsl_matrix_float *""'");
6966 }
6967 arg7 = (gsl_matrix_float *)(argp7);
6968 result = (int)gsl_blas_ssymm(arg1,arg2,arg3,(gsl_matrix_float const *)arg4,(gsl_matrix_float const *)arg5,arg6,arg7);
6969 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6970
6971
6972
6973
6974
6975
6976
6977 XSRETURN(argvi);
6978 fail:
6979
6980
6981
6982
6983
6984
6985
6986 SWIG_croak_null();
6987 }
6988 }
6989
6990
XS(_wrap_gsl_blas_ssyrk)6991 XS(_wrap_gsl_blas_ssyrk) {
6992 {
6993 CBLAS_UPLO_t arg1 ;
6994 CBLAS_TRANSPOSE_t arg2 ;
6995 float arg3 ;
6996 gsl_matrix_float *arg4 = (gsl_matrix_float *) 0 ;
6997 float arg5 ;
6998 gsl_matrix_float *arg6 = (gsl_matrix_float *) 0 ;
6999 int val1 ;
7000 int ecode1 = 0 ;
7001 int val2 ;
7002 int ecode2 = 0 ;
7003 float val3 ;
7004 int ecode3 = 0 ;
7005 void *argp4 = 0 ;
7006 int res4 = 0 ;
7007 float val5 ;
7008 int ecode5 = 0 ;
7009 void *argp6 = 0 ;
7010 int res6 = 0 ;
7011 int argvi = 0;
7012 int result;
7013 dXSARGS;
7014
7015 if ((items < 6) || (items > 6)) {
7016 SWIG_croak("Usage: gsl_blas_ssyrk(Uplo,Trans,alpha,A,beta,C);");
7017 }
7018 ecode1 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
7019 if (!SWIG_IsOK(ecode1)) {
7020 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_blas_ssyrk" "', argument " "1"" of type '" "CBLAS_UPLO_t""'");
7021 }
7022 arg1 = (CBLAS_UPLO_t)(val1);
7023 ecode2 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
7024 if (!SWIG_IsOK(ecode2)) {
7025 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_blas_ssyrk" "', argument " "2"" of type '" "CBLAS_TRANSPOSE_t""'");
7026 }
7027 arg2 = (CBLAS_TRANSPOSE_t)(val2);
7028 ecode3 = SWIG_AsVal_float SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
7029 if (!SWIG_IsOK(ecode3)) {
7030 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_blas_ssyrk" "', argument " "3"" of type '" "float""'");
7031 }
7032 arg3 = (float)(val3);
7033 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_matrix_float, 0 | 0 );
7034 if (!SWIG_IsOK(res4)) {
7035 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_blas_ssyrk" "', argument " "4"" of type '" "gsl_matrix_float const *""'");
7036 }
7037 arg4 = (gsl_matrix_float *)(argp4);
7038 ecode5 = SWIG_AsVal_float SWIG_PERL_CALL_ARGS_2(ST(4), &val5);
7039 if (!SWIG_IsOK(ecode5)) {
7040 SWIG_exception_fail(SWIG_ArgError(ecode5), "in method '" "gsl_blas_ssyrk" "', argument " "5"" of type '" "float""'");
7041 }
7042 arg5 = (float)(val5);
7043 res6 = SWIG_ConvertPtr(ST(5), &argp6,SWIGTYPE_p_gsl_matrix_float, 0 | 0 );
7044 if (!SWIG_IsOK(res6)) {
7045 SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_blas_ssyrk" "', argument " "6"" of type '" "gsl_matrix_float *""'");
7046 }
7047 arg6 = (gsl_matrix_float *)(argp6);
7048 result = (int)gsl_blas_ssyrk(arg1,arg2,arg3,(gsl_matrix_float const *)arg4,arg5,arg6);
7049 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7050
7051
7052
7053
7054
7055
7056 XSRETURN(argvi);
7057 fail:
7058
7059
7060
7061
7062
7063
7064 SWIG_croak_null();
7065 }
7066 }
7067
7068
XS(_wrap_gsl_blas_ssyr2k)7069 XS(_wrap_gsl_blas_ssyr2k) {
7070 {
7071 CBLAS_UPLO_t arg1 ;
7072 CBLAS_TRANSPOSE_t arg2 ;
7073 float arg3 ;
7074 gsl_matrix_float *arg4 = (gsl_matrix_float *) 0 ;
7075 gsl_matrix_float *arg5 = (gsl_matrix_float *) 0 ;
7076 float arg6 ;
7077 gsl_matrix_float *arg7 = (gsl_matrix_float *) 0 ;
7078 int val1 ;
7079 int ecode1 = 0 ;
7080 int val2 ;
7081 int ecode2 = 0 ;
7082 float val3 ;
7083 int ecode3 = 0 ;
7084 void *argp4 = 0 ;
7085 int res4 = 0 ;
7086 void *argp5 = 0 ;
7087 int res5 = 0 ;
7088 float val6 ;
7089 int ecode6 = 0 ;
7090 void *argp7 = 0 ;
7091 int res7 = 0 ;
7092 int argvi = 0;
7093 int result;
7094 dXSARGS;
7095
7096 if ((items < 7) || (items > 7)) {
7097 SWIG_croak("Usage: gsl_blas_ssyr2k(Uplo,Trans,alpha,A,B,beta,C);");
7098 }
7099 ecode1 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
7100 if (!SWIG_IsOK(ecode1)) {
7101 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_blas_ssyr2k" "', argument " "1"" of type '" "CBLAS_UPLO_t""'");
7102 }
7103 arg1 = (CBLAS_UPLO_t)(val1);
7104 ecode2 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
7105 if (!SWIG_IsOK(ecode2)) {
7106 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_blas_ssyr2k" "', argument " "2"" of type '" "CBLAS_TRANSPOSE_t""'");
7107 }
7108 arg2 = (CBLAS_TRANSPOSE_t)(val2);
7109 ecode3 = SWIG_AsVal_float SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
7110 if (!SWIG_IsOK(ecode3)) {
7111 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_blas_ssyr2k" "', argument " "3"" of type '" "float""'");
7112 }
7113 arg3 = (float)(val3);
7114 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_matrix_float, 0 | 0 );
7115 if (!SWIG_IsOK(res4)) {
7116 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_blas_ssyr2k" "', argument " "4"" of type '" "gsl_matrix_float const *""'");
7117 }
7118 arg4 = (gsl_matrix_float *)(argp4);
7119 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_matrix_float, 0 | 0 );
7120 if (!SWIG_IsOK(res5)) {
7121 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_blas_ssyr2k" "', argument " "5"" of type '" "gsl_matrix_float const *""'");
7122 }
7123 arg5 = (gsl_matrix_float *)(argp5);
7124 ecode6 = SWIG_AsVal_float SWIG_PERL_CALL_ARGS_2(ST(5), &val6);
7125 if (!SWIG_IsOK(ecode6)) {
7126 SWIG_exception_fail(SWIG_ArgError(ecode6), "in method '" "gsl_blas_ssyr2k" "', argument " "6"" of type '" "float""'");
7127 }
7128 arg6 = (float)(val6);
7129 res7 = SWIG_ConvertPtr(ST(6), &argp7,SWIGTYPE_p_gsl_matrix_float, 0 | 0 );
7130 if (!SWIG_IsOK(res7)) {
7131 SWIG_exception_fail(SWIG_ArgError(res7), "in method '" "gsl_blas_ssyr2k" "', argument " "7"" of type '" "gsl_matrix_float *""'");
7132 }
7133 arg7 = (gsl_matrix_float *)(argp7);
7134 result = (int)gsl_blas_ssyr2k(arg1,arg2,arg3,(gsl_matrix_float const *)arg4,(gsl_matrix_float const *)arg5,arg6,arg7);
7135 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7136
7137
7138
7139
7140
7141
7142
7143 XSRETURN(argvi);
7144 fail:
7145
7146
7147
7148
7149
7150
7151
7152 SWIG_croak_null();
7153 }
7154 }
7155
7156
XS(_wrap_gsl_blas_strmm)7157 XS(_wrap_gsl_blas_strmm) {
7158 {
7159 CBLAS_SIDE_t arg1 ;
7160 CBLAS_UPLO_t arg2 ;
7161 CBLAS_TRANSPOSE_t arg3 ;
7162 CBLAS_DIAG_t arg4 ;
7163 float arg5 ;
7164 gsl_matrix_float *arg6 = (gsl_matrix_float *) 0 ;
7165 gsl_matrix_float *arg7 = (gsl_matrix_float *) 0 ;
7166 int val1 ;
7167 int ecode1 = 0 ;
7168 int val2 ;
7169 int ecode2 = 0 ;
7170 int val3 ;
7171 int ecode3 = 0 ;
7172 int val4 ;
7173 int ecode4 = 0 ;
7174 float val5 ;
7175 int ecode5 = 0 ;
7176 void *argp6 = 0 ;
7177 int res6 = 0 ;
7178 void *argp7 = 0 ;
7179 int res7 = 0 ;
7180 int argvi = 0;
7181 int result;
7182 dXSARGS;
7183
7184 if ((items < 7) || (items > 7)) {
7185 SWIG_croak("Usage: gsl_blas_strmm(Side,Uplo,TransA,Diag,alpha,A,B);");
7186 }
7187 ecode1 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
7188 if (!SWIG_IsOK(ecode1)) {
7189 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_blas_strmm" "', argument " "1"" of type '" "CBLAS_SIDE_t""'");
7190 }
7191 arg1 = (CBLAS_SIDE_t)(val1);
7192 ecode2 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
7193 if (!SWIG_IsOK(ecode2)) {
7194 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_blas_strmm" "', argument " "2"" of type '" "CBLAS_UPLO_t""'");
7195 }
7196 arg2 = (CBLAS_UPLO_t)(val2);
7197 ecode3 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
7198 if (!SWIG_IsOK(ecode3)) {
7199 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_blas_strmm" "', argument " "3"" of type '" "CBLAS_TRANSPOSE_t""'");
7200 }
7201 arg3 = (CBLAS_TRANSPOSE_t)(val3);
7202 ecode4 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(3), &val4);
7203 if (!SWIG_IsOK(ecode4)) {
7204 SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "gsl_blas_strmm" "', argument " "4"" of type '" "CBLAS_DIAG_t""'");
7205 }
7206 arg4 = (CBLAS_DIAG_t)(val4);
7207 ecode5 = SWIG_AsVal_float SWIG_PERL_CALL_ARGS_2(ST(4), &val5);
7208 if (!SWIG_IsOK(ecode5)) {
7209 SWIG_exception_fail(SWIG_ArgError(ecode5), "in method '" "gsl_blas_strmm" "', argument " "5"" of type '" "float""'");
7210 }
7211 arg5 = (float)(val5);
7212 res6 = SWIG_ConvertPtr(ST(5), &argp6,SWIGTYPE_p_gsl_matrix_float, 0 | 0 );
7213 if (!SWIG_IsOK(res6)) {
7214 SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_blas_strmm" "', argument " "6"" of type '" "gsl_matrix_float const *""'");
7215 }
7216 arg6 = (gsl_matrix_float *)(argp6);
7217 res7 = SWIG_ConvertPtr(ST(6), &argp7,SWIGTYPE_p_gsl_matrix_float, 0 | 0 );
7218 if (!SWIG_IsOK(res7)) {
7219 SWIG_exception_fail(SWIG_ArgError(res7), "in method '" "gsl_blas_strmm" "', argument " "7"" of type '" "gsl_matrix_float *""'");
7220 }
7221 arg7 = (gsl_matrix_float *)(argp7);
7222 result = (int)gsl_blas_strmm(arg1,arg2,arg3,arg4,arg5,(gsl_matrix_float const *)arg6,arg7);
7223 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7224
7225
7226
7227
7228
7229
7230
7231 XSRETURN(argvi);
7232 fail:
7233
7234
7235
7236
7237
7238
7239
7240 SWIG_croak_null();
7241 }
7242 }
7243
7244
XS(_wrap_gsl_blas_strsm)7245 XS(_wrap_gsl_blas_strsm) {
7246 {
7247 CBLAS_SIDE_t arg1 ;
7248 CBLAS_UPLO_t arg2 ;
7249 CBLAS_TRANSPOSE_t arg3 ;
7250 CBLAS_DIAG_t arg4 ;
7251 float arg5 ;
7252 gsl_matrix_float *arg6 = (gsl_matrix_float *) 0 ;
7253 gsl_matrix_float *arg7 = (gsl_matrix_float *) 0 ;
7254 int val1 ;
7255 int ecode1 = 0 ;
7256 int val2 ;
7257 int ecode2 = 0 ;
7258 int val3 ;
7259 int ecode3 = 0 ;
7260 int val4 ;
7261 int ecode4 = 0 ;
7262 float val5 ;
7263 int ecode5 = 0 ;
7264 void *argp6 = 0 ;
7265 int res6 = 0 ;
7266 void *argp7 = 0 ;
7267 int res7 = 0 ;
7268 int argvi = 0;
7269 int result;
7270 dXSARGS;
7271
7272 if ((items < 7) || (items > 7)) {
7273 SWIG_croak("Usage: gsl_blas_strsm(Side,Uplo,TransA,Diag,alpha,A,B);");
7274 }
7275 ecode1 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
7276 if (!SWIG_IsOK(ecode1)) {
7277 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_blas_strsm" "', argument " "1"" of type '" "CBLAS_SIDE_t""'");
7278 }
7279 arg1 = (CBLAS_SIDE_t)(val1);
7280 ecode2 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
7281 if (!SWIG_IsOK(ecode2)) {
7282 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_blas_strsm" "', argument " "2"" of type '" "CBLAS_UPLO_t""'");
7283 }
7284 arg2 = (CBLAS_UPLO_t)(val2);
7285 ecode3 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
7286 if (!SWIG_IsOK(ecode3)) {
7287 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_blas_strsm" "', argument " "3"" of type '" "CBLAS_TRANSPOSE_t""'");
7288 }
7289 arg3 = (CBLAS_TRANSPOSE_t)(val3);
7290 ecode4 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(3), &val4);
7291 if (!SWIG_IsOK(ecode4)) {
7292 SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "gsl_blas_strsm" "', argument " "4"" of type '" "CBLAS_DIAG_t""'");
7293 }
7294 arg4 = (CBLAS_DIAG_t)(val4);
7295 ecode5 = SWIG_AsVal_float SWIG_PERL_CALL_ARGS_2(ST(4), &val5);
7296 if (!SWIG_IsOK(ecode5)) {
7297 SWIG_exception_fail(SWIG_ArgError(ecode5), "in method '" "gsl_blas_strsm" "', argument " "5"" of type '" "float""'");
7298 }
7299 arg5 = (float)(val5);
7300 res6 = SWIG_ConvertPtr(ST(5), &argp6,SWIGTYPE_p_gsl_matrix_float, 0 | 0 );
7301 if (!SWIG_IsOK(res6)) {
7302 SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_blas_strsm" "', argument " "6"" of type '" "gsl_matrix_float const *""'");
7303 }
7304 arg6 = (gsl_matrix_float *)(argp6);
7305 res7 = SWIG_ConvertPtr(ST(6), &argp7,SWIGTYPE_p_gsl_matrix_float, 0 | 0 );
7306 if (!SWIG_IsOK(res7)) {
7307 SWIG_exception_fail(SWIG_ArgError(res7), "in method '" "gsl_blas_strsm" "', argument " "7"" of type '" "gsl_matrix_float *""'");
7308 }
7309 arg7 = (gsl_matrix_float *)(argp7);
7310 result = (int)gsl_blas_strsm(arg1,arg2,arg3,arg4,arg5,(gsl_matrix_float const *)arg6,arg7);
7311 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7312
7313
7314
7315
7316
7317
7318
7319 XSRETURN(argvi);
7320 fail:
7321
7322
7323
7324
7325
7326
7327
7328 SWIG_croak_null();
7329 }
7330 }
7331
7332
XS(_wrap_gsl_blas_dgemm)7333 XS(_wrap_gsl_blas_dgemm) {
7334 {
7335 CBLAS_TRANSPOSE_t arg1 ;
7336 CBLAS_TRANSPOSE_t arg2 ;
7337 double arg3 ;
7338 gsl_matrix *arg4 = (gsl_matrix *) 0 ;
7339 gsl_matrix *arg5 = (gsl_matrix *) 0 ;
7340 double arg6 ;
7341 gsl_matrix *arg7 = (gsl_matrix *) 0 ;
7342 int val1 ;
7343 int ecode1 = 0 ;
7344 int val2 ;
7345 int ecode2 = 0 ;
7346 double val3 ;
7347 int ecode3 = 0 ;
7348 void *argp4 = 0 ;
7349 int res4 = 0 ;
7350 void *argp5 = 0 ;
7351 int res5 = 0 ;
7352 double val6 ;
7353 int ecode6 = 0 ;
7354 void *argp7 = 0 ;
7355 int res7 = 0 ;
7356 int argvi = 0;
7357 int result;
7358 dXSARGS;
7359
7360 if ((items < 7) || (items > 7)) {
7361 SWIG_croak("Usage: gsl_blas_dgemm(TransA,TransB,alpha,A,B,beta,C);");
7362 }
7363 ecode1 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
7364 if (!SWIG_IsOK(ecode1)) {
7365 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_blas_dgemm" "', argument " "1"" of type '" "CBLAS_TRANSPOSE_t""'");
7366 }
7367 arg1 = (CBLAS_TRANSPOSE_t)(val1);
7368 ecode2 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
7369 if (!SWIG_IsOK(ecode2)) {
7370 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_blas_dgemm" "', argument " "2"" of type '" "CBLAS_TRANSPOSE_t""'");
7371 }
7372 arg2 = (CBLAS_TRANSPOSE_t)(val2);
7373 ecode3 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
7374 if (!SWIG_IsOK(ecode3)) {
7375 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_blas_dgemm" "', argument " "3"" of type '" "double""'");
7376 }
7377 arg3 = (double)(val3);
7378 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7379 if (!SWIG_IsOK(res4)) {
7380 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_blas_dgemm" "', argument " "4"" of type '" "gsl_matrix const *""'");
7381 }
7382 arg4 = (gsl_matrix *)(argp4);
7383 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7384 if (!SWIG_IsOK(res5)) {
7385 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_blas_dgemm" "', argument " "5"" of type '" "gsl_matrix const *""'");
7386 }
7387 arg5 = (gsl_matrix *)(argp5);
7388 ecode6 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(5), &val6);
7389 if (!SWIG_IsOK(ecode6)) {
7390 SWIG_exception_fail(SWIG_ArgError(ecode6), "in method '" "gsl_blas_dgemm" "', argument " "6"" of type '" "double""'");
7391 }
7392 arg6 = (double)(val6);
7393 res7 = SWIG_ConvertPtr(ST(6), &argp7,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7394 if (!SWIG_IsOK(res7)) {
7395 SWIG_exception_fail(SWIG_ArgError(res7), "in method '" "gsl_blas_dgemm" "', argument " "7"" of type '" "gsl_matrix *""'");
7396 }
7397 arg7 = (gsl_matrix *)(argp7);
7398 result = (int)gsl_blas_dgemm(arg1,arg2,arg3,(gsl_matrix const *)arg4,(gsl_matrix const *)arg5,arg6,arg7);
7399 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7400
7401
7402
7403
7404
7405
7406
7407 XSRETURN(argvi);
7408 fail:
7409
7410
7411
7412
7413
7414
7415
7416 SWIG_croak_null();
7417 }
7418 }
7419
7420
XS(_wrap_gsl_blas_dsymm)7421 XS(_wrap_gsl_blas_dsymm) {
7422 {
7423 CBLAS_SIDE_t arg1 ;
7424 CBLAS_UPLO_t arg2 ;
7425 double arg3 ;
7426 gsl_matrix *arg4 = (gsl_matrix *) 0 ;
7427 gsl_matrix *arg5 = (gsl_matrix *) 0 ;
7428 double arg6 ;
7429 gsl_matrix *arg7 = (gsl_matrix *) 0 ;
7430 int val1 ;
7431 int ecode1 = 0 ;
7432 int val2 ;
7433 int ecode2 = 0 ;
7434 double val3 ;
7435 int ecode3 = 0 ;
7436 void *argp4 = 0 ;
7437 int res4 = 0 ;
7438 void *argp5 = 0 ;
7439 int res5 = 0 ;
7440 double val6 ;
7441 int ecode6 = 0 ;
7442 void *argp7 = 0 ;
7443 int res7 = 0 ;
7444 int argvi = 0;
7445 int result;
7446 dXSARGS;
7447
7448 if ((items < 7) || (items > 7)) {
7449 SWIG_croak("Usage: gsl_blas_dsymm(Side,Uplo,alpha,A,B,beta,C);");
7450 }
7451 ecode1 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
7452 if (!SWIG_IsOK(ecode1)) {
7453 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_blas_dsymm" "', argument " "1"" of type '" "CBLAS_SIDE_t""'");
7454 }
7455 arg1 = (CBLAS_SIDE_t)(val1);
7456 ecode2 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
7457 if (!SWIG_IsOK(ecode2)) {
7458 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_blas_dsymm" "', argument " "2"" of type '" "CBLAS_UPLO_t""'");
7459 }
7460 arg2 = (CBLAS_UPLO_t)(val2);
7461 ecode3 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
7462 if (!SWIG_IsOK(ecode3)) {
7463 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_blas_dsymm" "', argument " "3"" of type '" "double""'");
7464 }
7465 arg3 = (double)(val3);
7466 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7467 if (!SWIG_IsOK(res4)) {
7468 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_blas_dsymm" "', argument " "4"" of type '" "gsl_matrix const *""'");
7469 }
7470 arg4 = (gsl_matrix *)(argp4);
7471 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7472 if (!SWIG_IsOK(res5)) {
7473 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_blas_dsymm" "', argument " "5"" of type '" "gsl_matrix const *""'");
7474 }
7475 arg5 = (gsl_matrix *)(argp5);
7476 ecode6 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(5), &val6);
7477 if (!SWIG_IsOK(ecode6)) {
7478 SWIG_exception_fail(SWIG_ArgError(ecode6), "in method '" "gsl_blas_dsymm" "', argument " "6"" of type '" "double""'");
7479 }
7480 arg6 = (double)(val6);
7481 res7 = SWIG_ConvertPtr(ST(6), &argp7,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7482 if (!SWIG_IsOK(res7)) {
7483 SWIG_exception_fail(SWIG_ArgError(res7), "in method '" "gsl_blas_dsymm" "', argument " "7"" of type '" "gsl_matrix *""'");
7484 }
7485 arg7 = (gsl_matrix *)(argp7);
7486 result = (int)gsl_blas_dsymm(arg1,arg2,arg3,(gsl_matrix const *)arg4,(gsl_matrix const *)arg5,arg6,arg7);
7487 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7488
7489
7490
7491
7492
7493
7494
7495 XSRETURN(argvi);
7496 fail:
7497
7498
7499
7500
7501
7502
7503
7504 SWIG_croak_null();
7505 }
7506 }
7507
7508
XS(_wrap_gsl_blas_dsyrk)7509 XS(_wrap_gsl_blas_dsyrk) {
7510 {
7511 CBLAS_UPLO_t arg1 ;
7512 CBLAS_TRANSPOSE_t arg2 ;
7513 double arg3 ;
7514 gsl_matrix *arg4 = (gsl_matrix *) 0 ;
7515 double arg5 ;
7516 gsl_matrix *arg6 = (gsl_matrix *) 0 ;
7517 int val1 ;
7518 int ecode1 = 0 ;
7519 int val2 ;
7520 int ecode2 = 0 ;
7521 double val3 ;
7522 int ecode3 = 0 ;
7523 void *argp4 = 0 ;
7524 int res4 = 0 ;
7525 double val5 ;
7526 int ecode5 = 0 ;
7527 void *argp6 = 0 ;
7528 int res6 = 0 ;
7529 int argvi = 0;
7530 int result;
7531 dXSARGS;
7532
7533 if ((items < 6) || (items > 6)) {
7534 SWIG_croak("Usage: gsl_blas_dsyrk(Uplo,Trans,alpha,A,beta,C);");
7535 }
7536 ecode1 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
7537 if (!SWIG_IsOK(ecode1)) {
7538 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_blas_dsyrk" "', argument " "1"" of type '" "CBLAS_UPLO_t""'");
7539 }
7540 arg1 = (CBLAS_UPLO_t)(val1);
7541 ecode2 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
7542 if (!SWIG_IsOK(ecode2)) {
7543 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_blas_dsyrk" "', argument " "2"" of type '" "CBLAS_TRANSPOSE_t""'");
7544 }
7545 arg2 = (CBLAS_TRANSPOSE_t)(val2);
7546 ecode3 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
7547 if (!SWIG_IsOK(ecode3)) {
7548 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_blas_dsyrk" "', argument " "3"" of type '" "double""'");
7549 }
7550 arg3 = (double)(val3);
7551 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7552 if (!SWIG_IsOK(res4)) {
7553 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_blas_dsyrk" "', argument " "4"" of type '" "gsl_matrix const *""'");
7554 }
7555 arg4 = (gsl_matrix *)(argp4);
7556 ecode5 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(4), &val5);
7557 if (!SWIG_IsOK(ecode5)) {
7558 SWIG_exception_fail(SWIG_ArgError(ecode5), "in method '" "gsl_blas_dsyrk" "', argument " "5"" of type '" "double""'");
7559 }
7560 arg5 = (double)(val5);
7561 res6 = SWIG_ConvertPtr(ST(5), &argp6,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7562 if (!SWIG_IsOK(res6)) {
7563 SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_blas_dsyrk" "', argument " "6"" of type '" "gsl_matrix *""'");
7564 }
7565 arg6 = (gsl_matrix *)(argp6);
7566 result = (int)gsl_blas_dsyrk(arg1,arg2,arg3,(gsl_matrix const *)arg4,arg5,arg6);
7567 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7568
7569
7570
7571
7572
7573
7574 XSRETURN(argvi);
7575 fail:
7576
7577
7578
7579
7580
7581
7582 SWIG_croak_null();
7583 }
7584 }
7585
7586
XS(_wrap_gsl_blas_dsyr2k)7587 XS(_wrap_gsl_blas_dsyr2k) {
7588 {
7589 CBLAS_UPLO_t arg1 ;
7590 CBLAS_TRANSPOSE_t arg2 ;
7591 double arg3 ;
7592 gsl_matrix *arg4 = (gsl_matrix *) 0 ;
7593 gsl_matrix *arg5 = (gsl_matrix *) 0 ;
7594 double arg6 ;
7595 gsl_matrix *arg7 = (gsl_matrix *) 0 ;
7596 int val1 ;
7597 int ecode1 = 0 ;
7598 int val2 ;
7599 int ecode2 = 0 ;
7600 double val3 ;
7601 int ecode3 = 0 ;
7602 void *argp4 = 0 ;
7603 int res4 = 0 ;
7604 void *argp5 = 0 ;
7605 int res5 = 0 ;
7606 double val6 ;
7607 int ecode6 = 0 ;
7608 void *argp7 = 0 ;
7609 int res7 = 0 ;
7610 int argvi = 0;
7611 int result;
7612 dXSARGS;
7613
7614 if ((items < 7) || (items > 7)) {
7615 SWIG_croak("Usage: gsl_blas_dsyr2k(Uplo,Trans,alpha,A,B,beta,C);");
7616 }
7617 ecode1 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
7618 if (!SWIG_IsOK(ecode1)) {
7619 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_blas_dsyr2k" "', argument " "1"" of type '" "CBLAS_UPLO_t""'");
7620 }
7621 arg1 = (CBLAS_UPLO_t)(val1);
7622 ecode2 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
7623 if (!SWIG_IsOK(ecode2)) {
7624 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_blas_dsyr2k" "', argument " "2"" of type '" "CBLAS_TRANSPOSE_t""'");
7625 }
7626 arg2 = (CBLAS_TRANSPOSE_t)(val2);
7627 ecode3 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
7628 if (!SWIG_IsOK(ecode3)) {
7629 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_blas_dsyr2k" "', argument " "3"" of type '" "double""'");
7630 }
7631 arg3 = (double)(val3);
7632 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7633 if (!SWIG_IsOK(res4)) {
7634 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_blas_dsyr2k" "', argument " "4"" of type '" "gsl_matrix const *""'");
7635 }
7636 arg4 = (gsl_matrix *)(argp4);
7637 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7638 if (!SWIG_IsOK(res5)) {
7639 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_blas_dsyr2k" "', argument " "5"" of type '" "gsl_matrix const *""'");
7640 }
7641 arg5 = (gsl_matrix *)(argp5);
7642 ecode6 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(5), &val6);
7643 if (!SWIG_IsOK(ecode6)) {
7644 SWIG_exception_fail(SWIG_ArgError(ecode6), "in method '" "gsl_blas_dsyr2k" "', argument " "6"" of type '" "double""'");
7645 }
7646 arg6 = (double)(val6);
7647 res7 = SWIG_ConvertPtr(ST(6), &argp7,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7648 if (!SWIG_IsOK(res7)) {
7649 SWIG_exception_fail(SWIG_ArgError(res7), "in method '" "gsl_blas_dsyr2k" "', argument " "7"" of type '" "gsl_matrix *""'");
7650 }
7651 arg7 = (gsl_matrix *)(argp7);
7652 result = (int)gsl_blas_dsyr2k(arg1,arg2,arg3,(gsl_matrix const *)arg4,(gsl_matrix const *)arg5,arg6,arg7);
7653 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7654
7655
7656
7657
7658
7659
7660
7661 XSRETURN(argvi);
7662 fail:
7663
7664
7665
7666
7667
7668
7669
7670 SWIG_croak_null();
7671 }
7672 }
7673
7674
XS(_wrap_gsl_blas_dtrmm)7675 XS(_wrap_gsl_blas_dtrmm) {
7676 {
7677 CBLAS_SIDE_t arg1 ;
7678 CBLAS_UPLO_t arg2 ;
7679 CBLAS_TRANSPOSE_t arg3 ;
7680 CBLAS_DIAG_t arg4 ;
7681 double arg5 ;
7682 gsl_matrix *arg6 = (gsl_matrix *) 0 ;
7683 gsl_matrix *arg7 = (gsl_matrix *) 0 ;
7684 int val1 ;
7685 int ecode1 = 0 ;
7686 int val2 ;
7687 int ecode2 = 0 ;
7688 int val3 ;
7689 int ecode3 = 0 ;
7690 int val4 ;
7691 int ecode4 = 0 ;
7692 double val5 ;
7693 int ecode5 = 0 ;
7694 void *argp6 = 0 ;
7695 int res6 = 0 ;
7696 void *argp7 = 0 ;
7697 int res7 = 0 ;
7698 int argvi = 0;
7699 int result;
7700 dXSARGS;
7701
7702 if ((items < 7) || (items > 7)) {
7703 SWIG_croak("Usage: gsl_blas_dtrmm(Side,Uplo,TransA,Diag,alpha,A,B);");
7704 }
7705 ecode1 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
7706 if (!SWIG_IsOK(ecode1)) {
7707 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_blas_dtrmm" "', argument " "1"" of type '" "CBLAS_SIDE_t""'");
7708 }
7709 arg1 = (CBLAS_SIDE_t)(val1);
7710 ecode2 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
7711 if (!SWIG_IsOK(ecode2)) {
7712 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_blas_dtrmm" "', argument " "2"" of type '" "CBLAS_UPLO_t""'");
7713 }
7714 arg2 = (CBLAS_UPLO_t)(val2);
7715 ecode3 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
7716 if (!SWIG_IsOK(ecode3)) {
7717 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_blas_dtrmm" "', argument " "3"" of type '" "CBLAS_TRANSPOSE_t""'");
7718 }
7719 arg3 = (CBLAS_TRANSPOSE_t)(val3);
7720 ecode4 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(3), &val4);
7721 if (!SWIG_IsOK(ecode4)) {
7722 SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "gsl_blas_dtrmm" "', argument " "4"" of type '" "CBLAS_DIAG_t""'");
7723 }
7724 arg4 = (CBLAS_DIAG_t)(val4);
7725 ecode5 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(4), &val5);
7726 if (!SWIG_IsOK(ecode5)) {
7727 SWIG_exception_fail(SWIG_ArgError(ecode5), "in method '" "gsl_blas_dtrmm" "', argument " "5"" of type '" "double""'");
7728 }
7729 arg5 = (double)(val5);
7730 res6 = SWIG_ConvertPtr(ST(5), &argp6,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7731 if (!SWIG_IsOK(res6)) {
7732 SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_blas_dtrmm" "', argument " "6"" of type '" "gsl_matrix const *""'");
7733 }
7734 arg6 = (gsl_matrix *)(argp6);
7735 res7 = SWIG_ConvertPtr(ST(6), &argp7,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7736 if (!SWIG_IsOK(res7)) {
7737 SWIG_exception_fail(SWIG_ArgError(res7), "in method '" "gsl_blas_dtrmm" "', argument " "7"" of type '" "gsl_matrix *""'");
7738 }
7739 arg7 = (gsl_matrix *)(argp7);
7740 result = (int)gsl_blas_dtrmm(arg1,arg2,arg3,arg4,arg5,(gsl_matrix const *)arg6,arg7);
7741 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7742
7743
7744
7745
7746
7747
7748
7749 XSRETURN(argvi);
7750 fail:
7751
7752
7753
7754
7755
7756
7757
7758 SWIG_croak_null();
7759 }
7760 }
7761
7762
XS(_wrap_gsl_blas_dtrsm)7763 XS(_wrap_gsl_blas_dtrsm) {
7764 {
7765 CBLAS_SIDE_t arg1 ;
7766 CBLAS_UPLO_t arg2 ;
7767 CBLAS_TRANSPOSE_t arg3 ;
7768 CBLAS_DIAG_t arg4 ;
7769 double arg5 ;
7770 gsl_matrix *arg6 = (gsl_matrix *) 0 ;
7771 gsl_matrix *arg7 = (gsl_matrix *) 0 ;
7772 int val1 ;
7773 int ecode1 = 0 ;
7774 int val2 ;
7775 int ecode2 = 0 ;
7776 int val3 ;
7777 int ecode3 = 0 ;
7778 int val4 ;
7779 int ecode4 = 0 ;
7780 double val5 ;
7781 int ecode5 = 0 ;
7782 void *argp6 = 0 ;
7783 int res6 = 0 ;
7784 void *argp7 = 0 ;
7785 int res7 = 0 ;
7786 int argvi = 0;
7787 int result;
7788 dXSARGS;
7789
7790 if ((items < 7) || (items > 7)) {
7791 SWIG_croak("Usage: gsl_blas_dtrsm(Side,Uplo,TransA,Diag,alpha,A,B);");
7792 }
7793 ecode1 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
7794 if (!SWIG_IsOK(ecode1)) {
7795 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_blas_dtrsm" "', argument " "1"" of type '" "CBLAS_SIDE_t""'");
7796 }
7797 arg1 = (CBLAS_SIDE_t)(val1);
7798 ecode2 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
7799 if (!SWIG_IsOK(ecode2)) {
7800 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_blas_dtrsm" "', argument " "2"" of type '" "CBLAS_UPLO_t""'");
7801 }
7802 arg2 = (CBLAS_UPLO_t)(val2);
7803 ecode3 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
7804 if (!SWIG_IsOK(ecode3)) {
7805 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_blas_dtrsm" "', argument " "3"" of type '" "CBLAS_TRANSPOSE_t""'");
7806 }
7807 arg3 = (CBLAS_TRANSPOSE_t)(val3);
7808 ecode4 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(3), &val4);
7809 if (!SWIG_IsOK(ecode4)) {
7810 SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "gsl_blas_dtrsm" "', argument " "4"" of type '" "CBLAS_DIAG_t""'");
7811 }
7812 arg4 = (CBLAS_DIAG_t)(val4);
7813 ecode5 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(4), &val5);
7814 if (!SWIG_IsOK(ecode5)) {
7815 SWIG_exception_fail(SWIG_ArgError(ecode5), "in method '" "gsl_blas_dtrsm" "', argument " "5"" of type '" "double""'");
7816 }
7817 arg5 = (double)(val5);
7818 res6 = SWIG_ConvertPtr(ST(5), &argp6,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7819 if (!SWIG_IsOK(res6)) {
7820 SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_blas_dtrsm" "', argument " "6"" of type '" "gsl_matrix const *""'");
7821 }
7822 arg6 = (gsl_matrix *)(argp6);
7823 res7 = SWIG_ConvertPtr(ST(6), &argp7,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7824 if (!SWIG_IsOK(res7)) {
7825 SWIG_exception_fail(SWIG_ArgError(res7), "in method '" "gsl_blas_dtrsm" "', argument " "7"" of type '" "gsl_matrix *""'");
7826 }
7827 arg7 = (gsl_matrix *)(argp7);
7828 result = (int)gsl_blas_dtrsm(arg1,arg2,arg3,arg4,arg5,(gsl_matrix const *)arg6,arg7);
7829 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7830
7831
7832
7833
7834
7835
7836
7837 XSRETURN(argvi);
7838 fail:
7839
7840
7841
7842
7843
7844
7845
7846 SWIG_croak_null();
7847 }
7848 }
7849
7850
XS(_wrap_gsl_blas_cgemm)7851 XS(_wrap_gsl_blas_cgemm) {
7852 {
7853 CBLAS_TRANSPOSE_t arg1 ;
7854 CBLAS_TRANSPOSE_t arg2 ;
7855 gsl_complex_float arg3 ;
7856 gsl_matrix_complex_float *arg4 = (gsl_matrix_complex_float *) 0 ;
7857 gsl_matrix_complex_float *arg5 = (gsl_matrix_complex_float *) 0 ;
7858 gsl_complex_float arg6 ;
7859 gsl_matrix_complex_float *arg7 = (gsl_matrix_complex_float *) 0 ;
7860 int val1 ;
7861 int ecode1 = 0 ;
7862 int val2 ;
7863 int ecode2 = 0 ;
7864 void *argp3 ;
7865 int res3 = 0 ;
7866 void *argp4 = 0 ;
7867 int res4 = 0 ;
7868 void *argp5 = 0 ;
7869 int res5 = 0 ;
7870 void *argp6 ;
7871 int res6 = 0 ;
7872 void *argp7 = 0 ;
7873 int res7 = 0 ;
7874 int argvi = 0;
7875 int result;
7876 dXSARGS;
7877
7878 if ((items < 7) || (items > 7)) {
7879 SWIG_croak("Usage: gsl_blas_cgemm(TransA,TransB,alpha,A,B,beta,C);");
7880 }
7881 ecode1 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
7882 if (!SWIG_IsOK(ecode1)) {
7883 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_blas_cgemm" "', argument " "1"" of type '" "CBLAS_TRANSPOSE_t""'");
7884 }
7885 arg1 = (CBLAS_TRANSPOSE_t)(val1);
7886 ecode2 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
7887 if (!SWIG_IsOK(ecode2)) {
7888 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_blas_cgemm" "', argument " "2"" of type '" "CBLAS_TRANSPOSE_t""'");
7889 }
7890 arg2 = (CBLAS_TRANSPOSE_t)(val2);
7891 {
7892 res3 = SWIG_ConvertPtr(ST(2), &argp3, SWIGTYPE_p_gsl_complex_float, 0 );
7893 if (!SWIG_IsOK(res3)) {
7894 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_blas_cgemm" "', argument " "3"" of type '" "gsl_complex_float const""'");
7895 }
7896 if (!argp3) {
7897 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_blas_cgemm" "', argument " "3"" of type '" "gsl_complex_float const""'");
7898 } else {
7899 arg3 = *((gsl_complex_float *)(argp3));
7900 }
7901 }
7902 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_matrix_complex_float, 0 | 0 );
7903 if (!SWIG_IsOK(res4)) {
7904 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_blas_cgemm" "', argument " "4"" of type '" "gsl_matrix_complex_float const *""'");
7905 }
7906 arg4 = (gsl_matrix_complex_float *)(argp4);
7907 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_matrix_complex_float, 0 | 0 );
7908 if (!SWIG_IsOK(res5)) {
7909 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_blas_cgemm" "', argument " "5"" of type '" "gsl_matrix_complex_float const *""'");
7910 }
7911 arg5 = (gsl_matrix_complex_float *)(argp5);
7912 {
7913 res6 = SWIG_ConvertPtr(ST(5), &argp6, SWIGTYPE_p_gsl_complex_float, 0 );
7914 if (!SWIG_IsOK(res6)) {
7915 SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_blas_cgemm" "', argument " "6"" of type '" "gsl_complex_float const""'");
7916 }
7917 if (!argp6) {
7918 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_blas_cgemm" "', argument " "6"" of type '" "gsl_complex_float const""'");
7919 } else {
7920 arg6 = *((gsl_complex_float *)(argp6));
7921 }
7922 }
7923 res7 = SWIG_ConvertPtr(ST(6), &argp7,SWIGTYPE_p_gsl_matrix_complex_float, 0 | 0 );
7924 if (!SWIG_IsOK(res7)) {
7925 SWIG_exception_fail(SWIG_ArgError(res7), "in method '" "gsl_blas_cgemm" "', argument " "7"" of type '" "gsl_matrix_complex_float *""'");
7926 }
7927 arg7 = (gsl_matrix_complex_float *)(argp7);
7928 result = (int)gsl_blas_cgemm(arg1,arg2,arg3,(gsl_matrix_complex_float const *)arg4,(gsl_matrix_complex_float const *)arg5,arg6,arg7);
7929 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7930
7931
7932
7933
7934
7935 XSRETURN(argvi);
7936 fail:
7937
7938
7939
7940
7941
7942 SWIG_croak_null();
7943 }
7944 }
7945
7946
XS(_wrap_gsl_blas_csymm)7947 XS(_wrap_gsl_blas_csymm) {
7948 {
7949 CBLAS_SIDE_t arg1 ;
7950 CBLAS_UPLO_t arg2 ;
7951 gsl_complex_float arg3 ;
7952 gsl_matrix_complex_float *arg4 = (gsl_matrix_complex_float *) 0 ;
7953 gsl_matrix_complex_float *arg5 = (gsl_matrix_complex_float *) 0 ;
7954 gsl_complex_float arg6 ;
7955 gsl_matrix_complex_float *arg7 = (gsl_matrix_complex_float *) 0 ;
7956 int val1 ;
7957 int ecode1 = 0 ;
7958 int val2 ;
7959 int ecode2 = 0 ;
7960 void *argp3 ;
7961 int res3 = 0 ;
7962 void *argp4 = 0 ;
7963 int res4 = 0 ;
7964 void *argp5 = 0 ;
7965 int res5 = 0 ;
7966 void *argp6 ;
7967 int res6 = 0 ;
7968 void *argp7 = 0 ;
7969 int res7 = 0 ;
7970 int argvi = 0;
7971 int result;
7972 dXSARGS;
7973
7974 if ((items < 7) || (items > 7)) {
7975 SWIG_croak("Usage: gsl_blas_csymm(Side,Uplo,alpha,A,B,beta,C);");
7976 }
7977 ecode1 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
7978 if (!SWIG_IsOK(ecode1)) {
7979 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_blas_csymm" "', argument " "1"" of type '" "CBLAS_SIDE_t""'");
7980 }
7981 arg1 = (CBLAS_SIDE_t)(val1);
7982 ecode2 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
7983 if (!SWIG_IsOK(ecode2)) {
7984 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_blas_csymm" "', argument " "2"" of type '" "CBLAS_UPLO_t""'");
7985 }
7986 arg2 = (CBLAS_UPLO_t)(val2);
7987 {
7988 res3 = SWIG_ConvertPtr(ST(2), &argp3, SWIGTYPE_p_gsl_complex_float, 0 );
7989 if (!SWIG_IsOK(res3)) {
7990 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_blas_csymm" "', argument " "3"" of type '" "gsl_complex_float const""'");
7991 }
7992 if (!argp3) {
7993 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_blas_csymm" "', argument " "3"" of type '" "gsl_complex_float const""'");
7994 } else {
7995 arg3 = *((gsl_complex_float *)(argp3));
7996 }
7997 }
7998 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_matrix_complex_float, 0 | 0 );
7999 if (!SWIG_IsOK(res4)) {
8000 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_blas_csymm" "', argument " "4"" of type '" "gsl_matrix_complex_float const *""'");
8001 }
8002 arg4 = (gsl_matrix_complex_float *)(argp4);
8003 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_matrix_complex_float, 0 | 0 );
8004 if (!SWIG_IsOK(res5)) {
8005 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_blas_csymm" "', argument " "5"" of type '" "gsl_matrix_complex_float const *""'");
8006 }
8007 arg5 = (gsl_matrix_complex_float *)(argp5);
8008 {
8009 res6 = SWIG_ConvertPtr(ST(5), &argp6, SWIGTYPE_p_gsl_complex_float, 0 );
8010 if (!SWIG_IsOK(res6)) {
8011 SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_blas_csymm" "', argument " "6"" of type '" "gsl_complex_float const""'");
8012 }
8013 if (!argp6) {
8014 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_blas_csymm" "', argument " "6"" of type '" "gsl_complex_float const""'");
8015 } else {
8016 arg6 = *((gsl_complex_float *)(argp6));
8017 }
8018 }
8019 res7 = SWIG_ConvertPtr(ST(6), &argp7,SWIGTYPE_p_gsl_matrix_complex_float, 0 | 0 );
8020 if (!SWIG_IsOK(res7)) {
8021 SWIG_exception_fail(SWIG_ArgError(res7), "in method '" "gsl_blas_csymm" "', argument " "7"" of type '" "gsl_matrix_complex_float *""'");
8022 }
8023 arg7 = (gsl_matrix_complex_float *)(argp7);
8024 result = (int)gsl_blas_csymm(arg1,arg2,arg3,(gsl_matrix_complex_float const *)arg4,(gsl_matrix_complex_float const *)arg5,arg6,arg7);
8025 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8026
8027
8028
8029
8030
8031 XSRETURN(argvi);
8032 fail:
8033
8034
8035
8036
8037
8038 SWIG_croak_null();
8039 }
8040 }
8041
8042
XS(_wrap_gsl_blas_csyrk)8043 XS(_wrap_gsl_blas_csyrk) {
8044 {
8045 CBLAS_UPLO_t arg1 ;
8046 CBLAS_TRANSPOSE_t arg2 ;
8047 gsl_complex_float arg3 ;
8048 gsl_matrix_complex_float *arg4 = (gsl_matrix_complex_float *) 0 ;
8049 gsl_complex_float arg5 ;
8050 gsl_matrix_complex_float *arg6 = (gsl_matrix_complex_float *) 0 ;
8051 int val1 ;
8052 int ecode1 = 0 ;
8053 int val2 ;
8054 int ecode2 = 0 ;
8055 void *argp3 ;
8056 int res3 = 0 ;
8057 void *argp4 = 0 ;
8058 int res4 = 0 ;
8059 void *argp5 ;
8060 int res5 = 0 ;
8061 void *argp6 = 0 ;
8062 int res6 = 0 ;
8063 int argvi = 0;
8064 int result;
8065 dXSARGS;
8066
8067 if ((items < 6) || (items > 6)) {
8068 SWIG_croak("Usage: gsl_blas_csyrk(Uplo,Trans,alpha,A,beta,C);");
8069 }
8070 ecode1 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
8071 if (!SWIG_IsOK(ecode1)) {
8072 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_blas_csyrk" "', argument " "1"" of type '" "CBLAS_UPLO_t""'");
8073 }
8074 arg1 = (CBLAS_UPLO_t)(val1);
8075 ecode2 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
8076 if (!SWIG_IsOK(ecode2)) {
8077 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_blas_csyrk" "', argument " "2"" of type '" "CBLAS_TRANSPOSE_t""'");
8078 }
8079 arg2 = (CBLAS_TRANSPOSE_t)(val2);
8080 {
8081 res3 = SWIG_ConvertPtr(ST(2), &argp3, SWIGTYPE_p_gsl_complex_float, 0 );
8082 if (!SWIG_IsOK(res3)) {
8083 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_blas_csyrk" "', argument " "3"" of type '" "gsl_complex_float const""'");
8084 }
8085 if (!argp3) {
8086 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_blas_csyrk" "', argument " "3"" of type '" "gsl_complex_float const""'");
8087 } else {
8088 arg3 = *((gsl_complex_float *)(argp3));
8089 }
8090 }
8091 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_matrix_complex_float, 0 | 0 );
8092 if (!SWIG_IsOK(res4)) {
8093 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_blas_csyrk" "', argument " "4"" of type '" "gsl_matrix_complex_float const *""'");
8094 }
8095 arg4 = (gsl_matrix_complex_float *)(argp4);
8096 {
8097 res5 = SWIG_ConvertPtr(ST(4), &argp5, SWIGTYPE_p_gsl_complex_float, 0 );
8098 if (!SWIG_IsOK(res5)) {
8099 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_blas_csyrk" "', argument " "5"" of type '" "gsl_complex_float const""'");
8100 }
8101 if (!argp5) {
8102 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_blas_csyrk" "', argument " "5"" of type '" "gsl_complex_float const""'");
8103 } else {
8104 arg5 = *((gsl_complex_float *)(argp5));
8105 }
8106 }
8107 res6 = SWIG_ConvertPtr(ST(5), &argp6,SWIGTYPE_p_gsl_matrix_complex_float, 0 | 0 );
8108 if (!SWIG_IsOK(res6)) {
8109 SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_blas_csyrk" "', argument " "6"" of type '" "gsl_matrix_complex_float *""'");
8110 }
8111 arg6 = (gsl_matrix_complex_float *)(argp6);
8112 result = (int)gsl_blas_csyrk(arg1,arg2,arg3,(gsl_matrix_complex_float const *)arg4,arg5,arg6);
8113 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8114
8115
8116
8117
8118 XSRETURN(argvi);
8119 fail:
8120
8121
8122
8123
8124 SWIG_croak_null();
8125 }
8126 }
8127
8128
XS(_wrap_gsl_blas_csyr2k)8129 XS(_wrap_gsl_blas_csyr2k) {
8130 {
8131 CBLAS_UPLO_t arg1 ;
8132 CBLAS_TRANSPOSE_t arg2 ;
8133 gsl_complex_float arg3 ;
8134 gsl_matrix_complex_float *arg4 = (gsl_matrix_complex_float *) 0 ;
8135 gsl_matrix_complex_float *arg5 = (gsl_matrix_complex_float *) 0 ;
8136 gsl_complex_float arg6 ;
8137 gsl_matrix_complex_float *arg7 = (gsl_matrix_complex_float *) 0 ;
8138 int val1 ;
8139 int ecode1 = 0 ;
8140 int val2 ;
8141 int ecode2 = 0 ;
8142 void *argp3 ;
8143 int res3 = 0 ;
8144 void *argp4 = 0 ;
8145 int res4 = 0 ;
8146 void *argp5 = 0 ;
8147 int res5 = 0 ;
8148 void *argp6 ;
8149 int res6 = 0 ;
8150 void *argp7 = 0 ;
8151 int res7 = 0 ;
8152 int argvi = 0;
8153 int result;
8154 dXSARGS;
8155
8156 if ((items < 7) || (items > 7)) {
8157 SWIG_croak("Usage: gsl_blas_csyr2k(Uplo,Trans,alpha,A,B,beta,C);");
8158 }
8159 ecode1 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
8160 if (!SWIG_IsOK(ecode1)) {
8161 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_blas_csyr2k" "', argument " "1"" of type '" "CBLAS_UPLO_t""'");
8162 }
8163 arg1 = (CBLAS_UPLO_t)(val1);
8164 ecode2 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
8165 if (!SWIG_IsOK(ecode2)) {
8166 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_blas_csyr2k" "', argument " "2"" of type '" "CBLAS_TRANSPOSE_t""'");
8167 }
8168 arg2 = (CBLAS_TRANSPOSE_t)(val2);
8169 {
8170 res3 = SWIG_ConvertPtr(ST(2), &argp3, SWIGTYPE_p_gsl_complex_float, 0 );
8171 if (!SWIG_IsOK(res3)) {
8172 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_blas_csyr2k" "', argument " "3"" of type '" "gsl_complex_float const""'");
8173 }
8174 if (!argp3) {
8175 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_blas_csyr2k" "', argument " "3"" of type '" "gsl_complex_float const""'");
8176 } else {
8177 arg3 = *((gsl_complex_float *)(argp3));
8178 }
8179 }
8180 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_matrix_complex_float, 0 | 0 );
8181 if (!SWIG_IsOK(res4)) {
8182 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_blas_csyr2k" "', argument " "4"" of type '" "gsl_matrix_complex_float const *""'");
8183 }
8184 arg4 = (gsl_matrix_complex_float *)(argp4);
8185 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_matrix_complex_float, 0 | 0 );
8186 if (!SWIG_IsOK(res5)) {
8187 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_blas_csyr2k" "', argument " "5"" of type '" "gsl_matrix_complex_float const *""'");
8188 }
8189 arg5 = (gsl_matrix_complex_float *)(argp5);
8190 {
8191 res6 = SWIG_ConvertPtr(ST(5), &argp6, SWIGTYPE_p_gsl_complex_float, 0 );
8192 if (!SWIG_IsOK(res6)) {
8193 SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_blas_csyr2k" "', argument " "6"" of type '" "gsl_complex_float const""'");
8194 }
8195 if (!argp6) {
8196 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_blas_csyr2k" "', argument " "6"" of type '" "gsl_complex_float const""'");
8197 } else {
8198 arg6 = *((gsl_complex_float *)(argp6));
8199 }
8200 }
8201 res7 = SWIG_ConvertPtr(ST(6), &argp7,SWIGTYPE_p_gsl_matrix_complex_float, 0 | 0 );
8202 if (!SWIG_IsOK(res7)) {
8203 SWIG_exception_fail(SWIG_ArgError(res7), "in method '" "gsl_blas_csyr2k" "', argument " "7"" of type '" "gsl_matrix_complex_float *""'");
8204 }
8205 arg7 = (gsl_matrix_complex_float *)(argp7);
8206 result = (int)gsl_blas_csyr2k(arg1,arg2,arg3,(gsl_matrix_complex_float const *)arg4,(gsl_matrix_complex_float const *)arg5,arg6,arg7);
8207 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8208
8209
8210
8211
8212
8213 XSRETURN(argvi);
8214 fail:
8215
8216
8217
8218
8219
8220 SWIG_croak_null();
8221 }
8222 }
8223
8224
XS(_wrap_gsl_blas_ctrmm)8225 XS(_wrap_gsl_blas_ctrmm) {
8226 {
8227 CBLAS_SIDE_t arg1 ;
8228 CBLAS_UPLO_t arg2 ;
8229 CBLAS_TRANSPOSE_t arg3 ;
8230 CBLAS_DIAG_t arg4 ;
8231 gsl_complex_float arg5 ;
8232 gsl_matrix_complex_float *arg6 = (gsl_matrix_complex_float *) 0 ;
8233 gsl_matrix_complex_float *arg7 = (gsl_matrix_complex_float *) 0 ;
8234 int val1 ;
8235 int ecode1 = 0 ;
8236 int val2 ;
8237 int ecode2 = 0 ;
8238 int val3 ;
8239 int ecode3 = 0 ;
8240 int val4 ;
8241 int ecode4 = 0 ;
8242 void *argp5 ;
8243 int res5 = 0 ;
8244 void *argp6 = 0 ;
8245 int res6 = 0 ;
8246 void *argp7 = 0 ;
8247 int res7 = 0 ;
8248 int argvi = 0;
8249 int result;
8250 dXSARGS;
8251
8252 if ((items < 7) || (items > 7)) {
8253 SWIG_croak("Usage: gsl_blas_ctrmm(Side,Uplo,TransA,Diag,alpha,A,B);");
8254 }
8255 ecode1 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
8256 if (!SWIG_IsOK(ecode1)) {
8257 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_blas_ctrmm" "', argument " "1"" of type '" "CBLAS_SIDE_t""'");
8258 }
8259 arg1 = (CBLAS_SIDE_t)(val1);
8260 ecode2 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
8261 if (!SWIG_IsOK(ecode2)) {
8262 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_blas_ctrmm" "', argument " "2"" of type '" "CBLAS_UPLO_t""'");
8263 }
8264 arg2 = (CBLAS_UPLO_t)(val2);
8265 ecode3 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
8266 if (!SWIG_IsOK(ecode3)) {
8267 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_blas_ctrmm" "', argument " "3"" of type '" "CBLAS_TRANSPOSE_t""'");
8268 }
8269 arg3 = (CBLAS_TRANSPOSE_t)(val3);
8270 ecode4 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(3), &val4);
8271 if (!SWIG_IsOK(ecode4)) {
8272 SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "gsl_blas_ctrmm" "', argument " "4"" of type '" "CBLAS_DIAG_t""'");
8273 }
8274 arg4 = (CBLAS_DIAG_t)(val4);
8275 {
8276 res5 = SWIG_ConvertPtr(ST(4), &argp5, SWIGTYPE_p_gsl_complex_float, 0 );
8277 if (!SWIG_IsOK(res5)) {
8278 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_blas_ctrmm" "', argument " "5"" of type '" "gsl_complex_float const""'");
8279 }
8280 if (!argp5) {
8281 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_blas_ctrmm" "', argument " "5"" of type '" "gsl_complex_float const""'");
8282 } else {
8283 arg5 = *((gsl_complex_float *)(argp5));
8284 }
8285 }
8286 res6 = SWIG_ConvertPtr(ST(5), &argp6,SWIGTYPE_p_gsl_matrix_complex_float, 0 | 0 );
8287 if (!SWIG_IsOK(res6)) {
8288 SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_blas_ctrmm" "', argument " "6"" of type '" "gsl_matrix_complex_float const *""'");
8289 }
8290 arg6 = (gsl_matrix_complex_float *)(argp6);
8291 res7 = SWIG_ConvertPtr(ST(6), &argp7,SWIGTYPE_p_gsl_matrix_complex_float, 0 | 0 );
8292 if (!SWIG_IsOK(res7)) {
8293 SWIG_exception_fail(SWIG_ArgError(res7), "in method '" "gsl_blas_ctrmm" "', argument " "7"" of type '" "gsl_matrix_complex_float *""'");
8294 }
8295 arg7 = (gsl_matrix_complex_float *)(argp7);
8296 result = (int)gsl_blas_ctrmm(arg1,arg2,arg3,arg4,arg5,(gsl_matrix_complex_float const *)arg6,arg7);
8297 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8298
8299
8300
8301
8302
8303
8304 XSRETURN(argvi);
8305 fail:
8306
8307
8308
8309
8310
8311
8312 SWIG_croak_null();
8313 }
8314 }
8315
8316
XS(_wrap_gsl_blas_ctrsm)8317 XS(_wrap_gsl_blas_ctrsm) {
8318 {
8319 CBLAS_SIDE_t arg1 ;
8320 CBLAS_UPLO_t arg2 ;
8321 CBLAS_TRANSPOSE_t arg3 ;
8322 CBLAS_DIAG_t arg4 ;
8323 gsl_complex_float arg5 ;
8324 gsl_matrix_complex_float *arg6 = (gsl_matrix_complex_float *) 0 ;
8325 gsl_matrix_complex_float *arg7 = (gsl_matrix_complex_float *) 0 ;
8326 int val1 ;
8327 int ecode1 = 0 ;
8328 int val2 ;
8329 int ecode2 = 0 ;
8330 int val3 ;
8331 int ecode3 = 0 ;
8332 int val4 ;
8333 int ecode4 = 0 ;
8334 void *argp5 ;
8335 int res5 = 0 ;
8336 void *argp6 = 0 ;
8337 int res6 = 0 ;
8338 void *argp7 = 0 ;
8339 int res7 = 0 ;
8340 int argvi = 0;
8341 int result;
8342 dXSARGS;
8343
8344 if ((items < 7) || (items > 7)) {
8345 SWIG_croak("Usage: gsl_blas_ctrsm(Side,Uplo,TransA,Diag,alpha,A,B);");
8346 }
8347 ecode1 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
8348 if (!SWIG_IsOK(ecode1)) {
8349 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_blas_ctrsm" "', argument " "1"" of type '" "CBLAS_SIDE_t""'");
8350 }
8351 arg1 = (CBLAS_SIDE_t)(val1);
8352 ecode2 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
8353 if (!SWIG_IsOK(ecode2)) {
8354 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_blas_ctrsm" "', argument " "2"" of type '" "CBLAS_UPLO_t""'");
8355 }
8356 arg2 = (CBLAS_UPLO_t)(val2);
8357 ecode3 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
8358 if (!SWIG_IsOK(ecode3)) {
8359 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_blas_ctrsm" "', argument " "3"" of type '" "CBLAS_TRANSPOSE_t""'");
8360 }
8361 arg3 = (CBLAS_TRANSPOSE_t)(val3);
8362 ecode4 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(3), &val4);
8363 if (!SWIG_IsOK(ecode4)) {
8364 SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "gsl_blas_ctrsm" "', argument " "4"" of type '" "CBLAS_DIAG_t""'");
8365 }
8366 arg4 = (CBLAS_DIAG_t)(val4);
8367 {
8368 res5 = SWIG_ConvertPtr(ST(4), &argp5, SWIGTYPE_p_gsl_complex_float, 0 );
8369 if (!SWIG_IsOK(res5)) {
8370 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_blas_ctrsm" "', argument " "5"" of type '" "gsl_complex_float const""'");
8371 }
8372 if (!argp5) {
8373 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_blas_ctrsm" "', argument " "5"" of type '" "gsl_complex_float const""'");
8374 } else {
8375 arg5 = *((gsl_complex_float *)(argp5));
8376 }
8377 }
8378 res6 = SWIG_ConvertPtr(ST(5), &argp6,SWIGTYPE_p_gsl_matrix_complex_float, 0 | 0 );
8379 if (!SWIG_IsOK(res6)) {
8380 SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_blas_ctrsm" "', argument " "6"" of type '" "gsl_matrix_complex_float const *""'");
8381 }
8382 arg6 = (gsl_matrix_complex_float *)(argp6);
8383 res7 = SWIG_ConvertPtr(ST(6), &argp7,SWIGTYPE_p_gsl_matrix_complex_float, 0 | 0 );
8384 if (!SWIG_IsOK(res7)) {
8385 SWIG_exception_fail(SWIG_ArgError(res7), "in method '" "gsl_blas_ctrsm" "', argument " "7"" of type '" "gsl_matrix_complex_float *""'");
8386 }
8387 arg7 = (gsl_matrix_complex_float *)(argp7);
8388 result = (int)gsl_blas_ctrsm(arg1,arg2,arg3,arg4,arg5,(gsl_matrix_complex_float const *)arg6,arg7);
8389 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8390
8391
8392
8393
8394
8395
8396 XSRETURN(argvi);
8397 fail:
8398
8399
8400
8401
8402
8403
8404 SWIG_croak_null();
8405 }
8406 }
8407
8408
XS(_wrap_gsl_blas_zgemm)8409 XS(_wrap_gsl_blas_zgemm) {
8410 {
8411 CBLAS_TRANSPOSE_t arg1 ;
8412 CBLAS_TRANSPOSE_t arg2 ;
8413 gsl_complex arg3 ;
8414 gsl_matrix_complex *arg4 = (gsl_matrix_complex *) 0 ;
8415 gsl_matrix_complex *arg5 = (gsl_matrix_complex *) 0 ;
8416 gsl_complex arg6 ;
8417 gsl_matrix_complex *arg7 = (gsl_matrix_complex *) 0 ;
8418 int val1 ;
8419 int ecode1 = 0 ;
8420 int val2 ;
8421 int ecode2 = 0 ;
8422 void *argp3 ;
8423 int res3 = 0 ;
8424 void *argp4 = 0 ;
8425 int res4 = 0 ;
8426 void *argp5 = 0 ;
8427 int res5 = 0 ;
8428 void *argp6 ;
8429 int res6 = 0 ;
8430 void *argp7 = 0 ;
8431 int res7 = 0 ;
8432 int argvi = 0;
8433 int result;
8434 dXSARGS;
8435
8436 if ((items < 7) || (items > 7)) {
8437 SWIG_croak("Usage: gsl_blas_zgemm(TransA,TransB,alpha,A,B,beta,C);");
8438 }
8439 ecode1 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
8440 if (!SWIG_IsOK(ecode1)) {
8441 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_blas_zgemm" "', argument " "1"" of type '" "CBLAS_TRANSPOSE_t""'");
8442 }
8443 arg1 = (CBLAS_TRANSPOSE_t)(val1);
8444 ecode2 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
8445 if (!SWIG_IsOK(ecode2)) {
8446 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_blas_zgemm" "', argument " "2"" of type '" "CBLAS_TRANSPOSE_t""'");
8447 }
8448 arg2 = (CBLAS_TRANSPOSE_t)(val2);
8449 {
8450 res3 = SWIG_ConvertPtr(ST(2), &argp3, SWIGTYPE_p_gsl_complex, 0 );
8451 if (!SWIG_IsOK(res3)) {
8452 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_blas_zgemm" "', argument " "3"" of type '" "gsl_complex const""'");
8453 }
8454 if (!argp3) {
8455 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_blas_zgemm" "', argument " "3"" of type '" "gsl_complex const""'");
8456 } else {
8457 arg3 = *((gsl_complex *)(argp3));
8458 }
8459 }
8460 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
8461 if (!SWIG_IsOK(res4)) {
8462 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_blas_zgemm" "', argument " "4"" of type '" "gsl_matrix_complex const *""'");
8463 }
8464 arg4 = (gsl_matrix_complex *)(argp4);
8465 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
8466 if (!SWIG_IsOK(res5)) {
8467 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_blas_zgemm" "', argument " "5"" of type '" "gsl_matrix_complex const *""'");
8468 }
8469 arg5 = (gsl_matrix_complex *)(argp5);
8470 {
8471 res6 = SWIG_ConvertPtr(ST(5), &argp6, SWIGTYPE_p_gsl_complex, 0 );
8472 if (!SWIG_IsOK(res6)) {
8473 SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_blas_zgemm" "', argument " "6"" of type '" "gsl_complex const""'");
8474 }
8475 if (!argp6) {
8476 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_blas_zgemm" "', argument " "6"" of type '" "gsl_complex const""'");
8477 } else {
8478 arg6 = *((gsl_complex *)(argp6));
8479 }
8480 }
8481 res7 = SWIG_ConvertPtr(ST(6), &argp7,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
8482 if (!SWIG_IsOK(res7)) {
8483 SWIG_exception_fail(SWIG_ArgError(res7), "in method '" "gsl_blas_zgemm" "', argument " "7"" of type '" "gsl_matrix_complex *""'");
8484 }
8485 arg7 = (gsl_matrix_complex *)(argp7);
8486 result = (int)gsl_blas_zgemm(arg1,arg2,arg3,(gsl_matrix_complex const *)arg4,(gsl_matrix_complex const *)arg5,arg6,arg7);
8487 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8488
8489
8490
8491
8492
8493 XSRETURN(argvi);
8494 fail:
8495
8496
8497
8498
8499
8500 SWIG_croak_null();
8501 }
8502 }
8503
8504
XS(_wrap_gsl_blas_zsymm)8505 XS(_wrap_gsl_blas_zsymm) {
8506 {
8507 CBLAS_SIDE_t arg1 ;
8508 CBLAS_UPLO_t arg2 ;
8509 gsl_complex arg3 ;
8510 gsl_matrix_complex *arg4 = (gsl_matrix_complex *) 0 ;
8511 gsl_matrix_complex *arg5 = (gsl_matrix_complex *) 0 ;
8512 gsl_complex arg6 ;
8513 gsl_matrix_complex *arg7 = (gsl_matrix_complex *) 0 ;
8514 int val1 ;
8515 int ecode1 = 0 ;
8516 int val2 ;
8517 int ecode2 = 0 ;
8518 void *argp3 ;
8519 int res3 = 0 ;
8520 void *argp4 = 0 ;
8521 int res4 = 0 ;
8522 void *argp5 = 0 ;
8523 int res5 = 0 ;
8524 void *argp6 ;
8525 int res6 = 0 ;
8526 void *argp7 = 0 ;
8527 int res7 = 0 ;
8528 int argvi = 0;
8529 int result;
8530 dXSARGS;
8531
8532 if ((items < 7) || (items > 7)) {
8533 SWIG_croak("Usage: gsl_blas_zsymm(Side,Uplo,alpha,A,B,beta,C);");
8534 }
8535 ecode1 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
8536 if (!SWIG_IsOK(ecode1)) {
8537 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_blas_zsymm" "', argument " "1"" of type '" "CBLAS_SIDE_t""'");
8538 }
8539 arg1 = (CBLAS_SIDE_t)(val1);
8540 ecode2 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
8541 if (!SWIG_IsOK(ecode2)) {
8542 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_blas_zsymm" "', argument " "2"" of type '" "CBLAS_UPLO_t""'");
8543 }
8544 arg2 = (CBLAS_UPLO_t)(val2);
8545 {
8546 res3 = SWIG_ConvertPtr(ST(2), &argp3, SWIGTYPE_p_gsl_complex, 0 );
8547 if (!SWIG_IsOK(res3)) {
8548 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_blas_zsymm" "', argument " "3"" of type '" "gsl_complex const""'");
8549 }
8550 if (!argp3) {
8551 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_blas_zsymm" "', argument " "3"" of type '" "gsl_complex const""'");
8552 } else {
8553 arg3 = *((gsl_complex *)(argp3));
8554 }
8555 }
8556 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
8557 if (!SWIG_IsOK(res4)) {
8558 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_blas_zsymm" "', argument " "4"" of type '" "gsl_matrix_complex const *""'");
8559 }
8560 arg4 = (gsl_matrix_complex *)(argp4);
8561 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
8562 if (!SWIG_IsOK(res5)) {
8563 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_blas_zsymm" "', argument " "5"" of type '" "gsl_matrix_complex const *""'");
8564 }
8565 arg5 = (gsl_matrix_complex *)(argp5);
8566 {
8567 res6 = SWIG_ConvertPtr(ST(5), &argp6, SWIGTYPE_p_gsl_complex, 0 );
8568 if (!SWIG_IsOK(res6)) {
8569 SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_blas_zsymm" "', argument " "6"" of type '" "gsl_complex const""'");
8570 }
8571 if (!argp6) {
8572 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_blas_zsymm" "', argument " "6"" of type '" "gsl_complex const""'");
8573 } else {
8574 arg6 = *((gsl_complex *)(argp6));
8575 }
8576 }
8577 res7 = SWIG_ConvertPtr(ST(6), &argp7,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
8578 if (!SWIG_IsOK(res7)) {
8579 SWIG_exception_fail(SWIG_ArgError(res7), "in method '" "gsl_blas_zsymm" "', argument " "7"" of type '" "gsl_matrix_complex *""'");
8580 }
8581 arg7 = (gsl_matrix_complex *)(argp7);
8582 result = (int)gsl_blas_zsymm(arg1,arg2,arg3,(gsl_matrix_complex const *)arg4,(gsl_matrix_complex const *)arg5,arg6,arg7);
8583 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8584
8585
8586
8587
8588
8589 XSRETURN(argvi);
8590 fail:
8591
8592
8593
8594
8595
8596 SWIG_croak_null();
8597 }
8598 }
8599
8600
XS(_wrap_gsl_blas_zsyrk)8601 XS(_wrap_gsl_blas_zsyrk) {
8602 {
8603 CBLAS_UPLO_t arg1 ;
8604 CBLAS_TRANSPOSE_t arg2 ;
8605 gsl_complex arg3 ;
8606 gsl_matrix_complex *arg4 = (gsl_matrix_complex *) 0 ;
8607 gsl_complex arg5 ;
8608 gsl_matrix_complex *arg6 = (gsl_matrix_complex *) 0 ;
8609 int val1 ;
8610 int ecode1 = 0 ;
8611 int val2 ;
8612 int ecode2 = 0 ;
8613 void *argp3 ;
8614 int res3 = 0 ;
8615 void *argp4 = 0 ;
8616 int res4 = 0 ;
8617 void *argp5 ;
8618 int res5 = 0 ;
8619 void *argp6 = 0 ;
8620 int res6 = 0 ;
8621 int argvi = 0;
8622 int result;
8623 dXSARGS;
8624
8625 if ((items < 6) || (items > 6)) {
8626 SWIG_croak("Usage: gsl_blas_zsyrk(Uplo,Trans,alpha,A,beta,C);");
8627 }
8628 ecode1 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
8629 if (!SWIG_IsOK(ecode1)) {
8630 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_blas_zsyrk" "', argument " "1"" of type '" "CBLAS_UPLO_t""'");
8631 }
8632 arg1 = (CBLAS_UPLO_t)(val1);
8633 ecode2 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
8634 if (!SWIG_IsOK(ecode2)) {
8635 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_blas_zsyrk" "', argument " "2"" of type '" "CBLAS_TRANSPOSE_t""'");
8636 }
8637 arg2 = (CBLAS_TRANSPOSE_t)(val2);
8638 {
8639 res3 = SWIG_ConvertPtr(ST(2), &argp3, SWIGTYPE_p_gsl_complex, 0 );
8640 if (!SWIG_IsOK(res3)) {
8641 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_blas_zsyrk" "', argument " "3"" of type '" "gsl_complex const""'");
8642 }
8643 if (!argp3) {
8644 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_blas_zsyrk" "', argument " "3"" of type '" "gsl_complex const""'");
8645 } else {
8646 arg3 = *((gsl_complex *)(argp3));
8647 }
8648 }
8649 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
8650 if (!SWIG_IsOK(res4)) {
8651 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_blas_zsyrk" "', argument " "4"" of type '" "gsl_matrix_complex const *""'");
8652 }
8653 arg4 = (gsl_matrix_complex *)(argp4);
8654 {
8655 res5 = SWIG_ConvertPtr(ST(4), &argp5, SWIGTYPE_p_gsl_complex, 0 );
8656 if (!SWIG_IsOK(res5)) {
8657 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_blas_zsyrk" "', argument " "5"" of type '" "gsl_complex const""'");
8658 }
8659 if (!argp5) {
8660 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_blas_zsyrk" "', argument " "5"" of type '" "gsl_complex const""'");
8661 } else {
8662 arg5 = *((gsl_complex *)(argp5));
8663 }
8664 }
8665 res6 = SWIG_ConvertPtr(ST(5), &argp6,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
8666 if (!SWIG_IsOK(res6)) {
8667 SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_blas_zsyrk" "', argument " "6"" of type '" "gsl_matrix_complex *""'");
8668 }
8669 arg6 = (gsl_matrix_complex *)(argp6);
8670 result = (int)gsl_blas_zsyrk(arg1,arg2,arg3,(gsl_matrix_complex const *)arg4,arg5,arg6);
8671 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8672
8673
8674
8675
8676 XSRETURN(argvi);
8677 fail:
8678
8679
8680
8681
8682 SWIG_croak_null();
8683 }
8684 }
8685
8686
XS(_wrap_gsl_blas_zsyr2k)8687 XS(_wrap_gsl_blas_zsyr2k) {
8688 {
8689 CBLAS_UPLO_t arg1 ;
8690 CBLAS_TRANSPOSE_t arg2 ;
8691 gsl_complex arg3 ;
8692 gsl_matrix_complex *arg4 = (gsl_matrix_complex *) 0 ;
8693 gsl_matrix_complex *arg5 = (gsl_matrix_complex *) 0 ;
8694 gsl_complex arg6 ;
8695 gsl_matrix_complex *arg7 = (gsl_matrix_complex *) 0 ;
8696 int val1 ;
8697 int ecode1 = 0 ;
8698 int val2 ;
8699 int ecode2 = 0 ;
8700 void *argp3 ;
8701 int res3 = 0 ;
8702 void *argp4 = 0 ;
8703 int res4 = 0 ;
8704 void *argp5 = 0 ;
8705 int res5 = 0 ;
8706 void *argp6 ;
8707 int res6 = 0 ;
8708 void *argp7 = 0 ;
8709 int res7 = 0 ;
8710 int argvi = 0;
8711 int result;
8712 dXSARGS;
8713
8714 if ((items < 7) || (items > 7)) {
8715 SWIG_croak("Usage: gsl_blas_zsyr2k(Uplo,Trans,alpha,A,B,beta,C);");
8716 }
8717 ecode1 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
8718 if (!SWIG_IsOK(ecode1)) {
8719 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_blas_zsyr2k" "', argument " "1"" of type '" "CBLAS_UPLO_t""'");
8720 }
8721 arg1 = (CBLAS_UPLO_t)(val1);
8722 ecode2 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
8723 if (!SWIG_IsOK(ecode2)) {
8724 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_blas_zsyr2k" "', argument " "2"" of type '" "CBLAS_TRANSPOSE_t""'");
8725 }
8726 arg2 = (CBLAS_TRANSPOSE_t)(val2);
8727 {
8728 res3 = SWIG_ConvertPtr(ST(2), &argp3, SWIGTYPE_p_gsl_complex, 0 );
8729 if (!SWIG_IsOK(res3)) {
8730 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_blas_zsyr2k" "', argument " "3"" of type '" "gsl_complex const""'");
8731 }
8732 if (!argp3) {
8733 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_blas_zsyr2k" "', argument " "3"" of type '" "gsl_complex const""'");
8734 } else {
8735 arg3 = *((gsl_complex *)(argp3));
8736 }
8737 }
8738 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
8739 if (!SWIG_IsOK(res4)) {
8740 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_blas_zsyr2k" "', argument " "4"" of type '" "gsl_matrix_complex const *""'");
8741 }
8742 arg4 = (gsl_matrix_complex *)(argp4);
8743 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
8744 if (!SWIG_IsOK(res5)) {
8745 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_blas_zsyr2k" "', argument " "5"" of type '" "gsl_matrix_complex const *""'");
8746 }
8747 arg5 = (gsl_matrix_complex *)(argp5);
8748 {
8749 res6 = SWIG_ConvertPtr(ST(5), &argp6, SWIGTYPE_p_gsl_complex, 0 );
8750 if (!SWIG_IsOK(res6)) {
8751 SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_blas_zsyr2k" "', argument " "6"" of type '" "gsl_complex const""'");
8752 }
8753 if (!argp6) {
8754 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_blas_zsyr2k" "', argument " "6"" of type '" "gsl_complex const""'");
8755 } else {
8756 arg6 = *((gsl_complex *)(argp6));
8757 }
8758 }
8759 res7 = SWIG_ConvertPtr(ST(6), &argp7,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
8760 if (!SWIG_IsOK(res7)) {
8761 SWIG_exception_fail(SWIG_ArgError(res7), "in method '" "gsl_blas_zsyr2k" "', argument " "7"" of type '" "gsl_matrix_complex *""'");
8762 }
8763 arg7 = (gsl_matrix_complex *)(argp7);
8764 result = (int)gsl_blas_zsyr2k(arg1,arg2,arg3,(gsl_matrix_complex const *)arg4,(gsl_matrix_complex const *)arg5,arg6,arg7);
8765 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8766
8767
8768
8769
8770
8771 XSRETURN(argvi);
8772 fail:
8773
8774
8775
8776
8777
8778 SWIG_croak_null();
8779 }
8780 }
8781
8782
XS(_wrap_gsl_blas_ztrmm)8783 XS(_wrap_gsl_blas_ztrmm) {
8784 {
8785 CBLAS_SIDE_t arg1 ;
8786 CBLAS_UPLO_t arg2 ;
8787 CBLAS_TRANSPOSE_t arg3 ;
8788 CBLAS_DIAG_t arg4 ;
8789 gsl_complex arg5 ;
8790 gsl_matrix_complex *arg6 = (gsl_matrix_complex *) 0 ;
8791 gsl_matrix_complex *arg7 = (gsl_matrix_complex *) 0 ;
8792 int val1 ;
8793 int ecode1 = 0 ;
8794 int val2 ;
8795 int ecode2 = 0 ;
8796 int val3 ;
8797 int ecode3 = 0 ;
8798 int val4 ;
8799 int ecode4 = 0 ;
8800 void *argp5 ;
8801 int res5 = 0 ;
8802 void *argp6 = 0 ;
8803 int res6 = 0 ;
8804 void *argp7 = 0 ;
8805 int res7 = 0 ;
8806 int argvi = 0;
8807 int result;
8808 dXSARGS;
8809
8810 if ((items < 7) || (items > 7)) {
8811 SWIG_croak("Usage: gsl_blas_ztrmm(Side,Uplo,TransA,Diag,alpha,A,B);");
8812 }
8813 ecode1 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
8814 if (!SWIG_IsOK(ecode1)) {
8815 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_blas_ztrmm" "', argument " "1"" of type '" "CBLAS_SIDE_t""'");
8816 }
8817 arg1 = (CBLAS_SIDE_t)(val1);
8818 ecode2 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
8819 if (!SWIG_IsOK(ecode2)) {
8820 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_blas_ztrmm" "', argument " "2"" of type '" "CBLAS_UPLO_t""'");
8821 }
8822 arg2 = (CBLAS_UPLO_t)(val2);
8823 ecode3 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
8824 if (!SWIG_IsOK(ecode3)) {
8825 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_blas_ztrmm" "', argument " "3"" of type '" "CBLAS_TRANSPOSE_t""'");
8826 }
8827 arg3 = (CBLAS_TRANSPOSE_t)(val3);
8828 ecode4 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(3), &val4);
8829 if (!SWIG_IsOK(ecode4)) {
8830 SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "gsl_blas_ztrmm" "', argument " "4"" of type '" "CBLAS_DIAG_t""'");
8831 }
8832 arg4 = (CBLAS_DIAG_t)(val4);
8833 {
8834 res5 = SWIG_ConvertPtr(ST(4), &argp5, SWIGTYPE_p_gsl_complex, 0 );
8835 if (!SWIG_IsOK(res5)) {
8836 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_blas_ztrmm" "', argument " "5"" of type '" "gsl_complex const""'");
8837 }
8838 if (!argp5) {
8839 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_blas_ztrmm" "', argument " "5"" of type '" "gsl_complex const""'");
8840 } else {
8841 arg5 = *((gsl_complex *)(argp5));
8842 }
8843 }
8844 res6 = SWIG_ConvertPtr(ST(5), &argp6,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
8845 if (!SWIG_IsOK(res6)) {
8846 SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_blas_ztrmm" "', argument " "6"" of type '" "gsl_matrix_complex const *""'");
8847 }
8848 arg6 = (gsl_matrix_complex *)(argp6);
8849 res7 = SWIG_ConvertPtr(ST(6), &argp7,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
8850 if (!SWIG_IsOK(res7)) {
8851 SWIG_exception_fail(SWIG_ArgError(res7), "in method '" "gsl_blas_ztrmm" "', argument " "7"" of type '" "gsl_matrix_complex *""'");
8852 }
8853 arg7 = (gsl_matrix_complex *)(argp7);
8854 result = (int)gsl_blas_ztrmm(arg1,arg2,arg3,arg4,arg5,(gsl_matrix_complex const *)arg6,arg7);
8855 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8856
8857
8858
8859
8860
8861
8862 XSRETURN(argvi);
8863 fail:
8864
8865
8866
8867
8868
8869
8870 SWIG_croak_null();
8871 }
8872 }
8873
8874
XS(_wrap_gsl_blas_ztrsm)8875 XS(_wrap_gsl_blas_ztrsm) {
8876 {
8877 CBLAS_SIDE_t arg1 ;
8878 CBLAS_UPLO_t arg2 ;
8879 CBLAS_TRANSPOSE_t arg3 ;
8880 CBLAS_DIAG_t arg4 ;
8881 gsl_complex arg5 ;
8882 gsl_matrix_complex *arg6 = (gsl_matrix_complex *) 0 ;
8883 gsl_matrix_complex *arg7 = (gsl_matrix_complex *) 0 ;
8884 int val1 ;
8885 int ecode1 = 0 ;
8886 int val2 ;
8887 int ecode2 = 0 ;
8888 int val3 ;
8889 int ecode3 = 0 ;
8890 int val4 ;
8891 int ecode4 = 0 ;
8892 void *argp5 ;
8893 int res5 = 0 ;
8894 void *argp6 = 0 ;
8895 int res6 = 0 ;
8896 void *argp7 = 0 ;
8897 int res7 = 0 ;
8898 int argvi = 0;
8899 int result;
8900 dXSARGS;
8901
8902 if ((items < 7) || (items > 7)) {
8903 SWIG_croak("Usage: gsl_blas_ztrsm(Side,Uplo,TransA,Diag,alpha,A,B);");
8904 }
8905 ecode1 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
8906 if (!SWIG_IsOK(ecode1)) {
8907 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_blas_ztrsm" "', argument " "1"" of type '" "CBLAS_SIDE_t""'");
8908 }
8909 arg1 = (CBLAS_SIDE_t)(val1);
8910 ecode2 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
8911 if (!SWIG_IsOK(ecode2)) {
8912 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_blas_ztrsm" "', argument " "2"" of type '" "CBLAS_UPLO_t""'");
8913 }
8914 arg2 = (CBLAS_UPLO_t)(val2);
8915 ecode3 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
8916 if (!SWIG_IsOK(ecode3)) {
8917 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_blas_ztrsm" "', argument " "3"" of type '" "CBLAS_TRANSPOSE_t""'");
8918 }
8919 arg3 = (CBLAS_TRANSPOSE_t)(val3);
8920 ecode4 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(3), &val4);
8921 if (!SWIG_IsOK(ecode4)) {
8922 SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "gsl_blas_ztrsm" "', argument " "4"" of type '" "CBLAS_DIAG_t""'");
8923 }
8924 arg4 = (CBLAS_DIAG_t)(val4);
8925 {
8926 res5 = SWIG_ConvertPtr(ST(4), &argp5, SWIGTYPE_p_gsl_complex, 0 );
8927 if (!SWIG_IsOK(res5)) {
8928 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_blas_ztrsm" "', argument " "5"" of type '" "gsl_complex const""'");
8929 }
8930 if (!argp5) {
8931 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_blas_ztrsm" "', argument " "5"" of type '" "gsl_complex const""'");
8932 } else {
8933 arg5 = *((gsl_complex *)(argp5));
8934 }
8935 }
8936 res6 = SWIG_ConvertPtr(ST(5), &argp6,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
8937 if (!SWIG_IsOK(res6)) {
8938 SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_blas_ztrsm" "', argument " "6"" of type '" "gsl_matrix_complex const *""'");
8939 }
8940 arg6 = (gsl_matrix_complex *)(argp6);
8941 res7 = SWIG_ConvertPtr(ST(6), &argp7,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
8942 if (!SWIG_IsOK(res7)) {
8943 SWIG_exception_fail(SWIG_ArgError(res7), "in method '" "gsl_blas_ztrsm" "', argument " "7"" of type '" "gsl_matrix_complex *""'");
8944 }
8945 arg7 = (gsl_matrix_complex *)(argp7);
8946 result = (int)gsl_blas_ztrsm(arg1,arg2,arg3,arg4,arg5,(gsl_matrix_complex const *)arg6,arg7);
8947 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
8948
8949
8950
8951
8952
8953
8954 XSRETURN(argvi);
8955 fail:
8956
8957
8958
8959
8960
8961
8962 SWIG_croak_null();
8963 }
8964 }
8965
8966
XS(_wrap_gsl_blas_chemm)8967 XS(_wrap_gsl_blas_chemm) {
8968 {
8969 CBLAS_SIDE_t arg1 ;
8970 CBLAS_UPLO_t arg2 ;
8971 gsl_complex_float arg3 ;
8972 gsl_matrix_complex_float *arg4 = (gsl_matrix_complex_float *) 0 ;
8973 gsl_matrix_complex_float *arg5 = (gsl_matrix_complex_float *) 0 ;
8974 gsl_complex_float arg6 ;
8975 gsl_matrix_complex_float *arg7 = (gsl_matrix_complex_float *) 0 ;
8976 int val1 ;
8977 int ecode1 = 0 ;
8978 int val2 ;
8979 int ecode2 = 0 ;
8980 void *argp3 ;
8981 int res3 = 0 ;
8982 void *argp4 = 0 ;
8983 int res4 = 0 ;
8984 void *argp5 = 0 ;
8985 int res5 = 0 ;
8986 void *argp6 ;
8987 int res6 = 0 ;
8988 void *argp7 = 0 ;
8989 int res7 = 0 ;
8990 int argvi = 0;
8991 int result;
8992 dXSARGS;
8993
8994 if ((items < 7) || (items > 7)) {
8995 SWIG_croak("Usage: gsl_blas_chemm(Side,Uplo,alpha,A,B,beta,C);");
8996 }
8997 ecode1 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
8998 if (!SWIG_IsOK(ecode1)) {
8999 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_blas_chemm" "', argument " "1"" of type '" "CBLAS_SIDE_t""'");
9000 }
9001 arg1 = (CBLAS_SIDE_t)(val1);
9002 ecode2 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
9003 if (!SWIG_IsOK(ecode2)) {
9004 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_blas_chemm" "', argument " "2"" of type '" "CBLAS_UPLO_t""'");
9005 }
9006 arg2 = (CBLAS_UPLO_t)(val2);
9007 {
9008 res3 = SWIG_ConvertPtr(ST(2), &argp3, SWIGTYPE_p_gsl_complex_float, 0 );
9009 if (!SWIG_IsOK(res3)) {
9010 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_blas_chemm" "', argument " "3"" of type '" "gsl_complex_float const""'");
9011 }
9012 if (!argp3) {
9013 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_blas_chemm" "', argument " "3"" of type '" "gsl_complex_float const""'");
9014 } else {
9015 arg3 = *((gsl_complex_float *)(argp3));
9016 }
9017 }
9018 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_matrix_complex_float, 0 | 0 );
9019 if (!SWIG_IsOK(res4)) {
9020 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_blas_chemm" "', argument " "4"" of type '" "gsl_matrix_complex_float const *""'");
9021 }
9022 arg4 = (gsl_matrix_complex_float *)(argp4);
9023 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_matrix_complex_float, 0 | 0 );
9024 if (!SWIG_IsOK(res5)) {
9025 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_blas_chemm" "', argument " "5"" of type '" "gsl_matrix_complex_float const *""'");
9026 }
9027 arg5 = (gsl_matrix_complex_float *)(argp5);
9028 {
9029 res6 = SWIG_ConvertPtr(ST(5), &argp6, SWIGTYPE_p_gsl_complex_float, 0 );
9030 if (!SWIG_IsOK(res6)) {
9031 SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_blas_chemm" "', argument " "6"" of type '" "gsl_complex_float const""'");
9032 }
9033 if (!argp6) {
9034 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_blas_chemm" "', argument " "6"" of type '" "gsl_complex_float const""'");
9035 } else {
9036 arg6 = *((gsl_complex_float *)(argp6));
9037 }
9038 }
9039 res7 = SWIG_ConvertPtr(ST(6), &argp7,SWIGTYPE_p_gsl_matrix_complex_float, 0 | 0 );
9040 if (!SWIG_IsOK(res7)) {
9041 SWIG_exception_fail(SWIG_ArgError(res7), "in method '" "gsl_blas_chemm" "', argument " "7"" of type '" "gsl_matrix_complex_float *""'");
9042 }
9043 arg7 = (gsl_matrix_complex_float *)(argp7);
9044 result = (int)gsl_blas_chemm(arg1,arg2,arg3,(gsl_matrix_complex_float const *)arg4,(gsl_matrix_complex_float const *)arg5,arg6,arg7);
9045 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
9046
9047
9048
9049
9050
9051 XSRETURN(argvi);
9052 fail:
9053
9054
9055
9056
9057
9058 SWIG_croak_null();
9059 }
9060 }
9061
9062
XS(_wrap_gsl_blas_cherk)9063 XS(_wrap_gsl_blas_cherk) {
9064 {
9065 CBLAS_UPLO_t arg1 ;
9066 CBLAS_TRANSPOSE_t arg2 ;
9067 float arg3 ;
9068 gsl_matrix_complex_float *arg4 = (gsl_matrix_complex_float *) 0 ;
9069 float arg5 ;
9070 gsl_matrix_complex_float *arg6 = (gsl_matrix_complex_float *) 0 ;
9071 int val1 ;
9072 int ecode1 = 0 ;
9073 int val2 ;
9074 int ecode2 = 0 ;
9075 float val3 ;
9076 int ecode3 = 0 ;
9077 void *argp4 = 0 ;
9078 int res4 = 0 ;
9079 float val5 ;
9080 int ecode5 = 0 ;
9081 void *argp6 = 0 ;
9082 int res6 = 0 ;
9083 int argvi = 0;
9084 int result;
9085 dXSARGS;
9086
9087 if ((items < 6) || (items > 6)) {
9088 SWIG_croak("Usage: gsl_blas_cherk(Uplo,Trans,alpha,A,beta,C);");
9089 }
9090 ecode1 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
9091 if (!SWIG_IsOK(ecode1)) {
9092 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_blas_cherk" "', argument " "1"" of type '" "CBLAS_UPLO_t""'");
9093 }
9094 arg1 = (CBLAS_UPLO_t)(val1);
9095 ecode2 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
9096 if (!SWIG_IsOK(ecode2)) {
9097 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_blas_cherk" "', argument " "2"" of type '" "CBLAS_TRANSPOSE_t""'");
9098 }
9099 arg2 = (CBLAS_TRANSPOSE_t)(val2);
9100 ecode3 = SWIG_AsVal_float SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
9101 if (!SWIG_IsOK(ecode3)) {
9102 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_blas_cherk" "', argument " "3"" of type '" "float""'");
9103 }
9104 arg3 = (float)(val3);
9105 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_matrix_complex_float, 0 | 0 );
9106 if (!SWIG_IsOK(res4)) {
9107 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_blas_cherk" "', argument " "4"" of type '" "gsl_matrix_complex_float const *""'");
9108 }
9109 arg4 = (gsl_matrix_complex_float *)(argp4);
9110 ecode5 = SWIG_AsVal_float SWIG_PERL_CALL_ARGS_2(ST(4), &val5);
9111 if (!SWIG_IsOK(ecode5)) {
9112 SWIG_exception_fail(SWIG_ArgError(ecode5), "in method '" "gsl_blas_cherk" "', argument " "5"" of type '" "float""'");
9113 }
9114 arg5 = (float)(val5);
9115 res6 = SWIG_ConvertPtr(ST(5), &argp6,SWIGTYPE_p_gsl_matrix_complex_float, 0 | 0 );
9116 if (!SWIG_IsOK(res6)) {
9117 SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_blas_cherk" "', argument " "6"" of type '" "gsl_matrix_complex_float *""'");
9118 }
9119 arg6 = (gsl_matrix_complex_float *)(argp6);
9120 result = (int)gsl_blas_cherk(arg1,arg2,arg3,(gsl_matrix_complex_float const *)arg4,arg5,arg6);
9121 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
9122
9123
9124
9125
9126
9127
9128 XSRETURN(argvi);
9129 fail:
9130
9131
9132
9133
9134
9135
9136 SWIG_croak_null();
9137 }
9138 }
9139
9140
XS(_wrap_gsl_blas_cher2k)9141 XS(_wrap_gsl_blas_cher2k) {
9142 {
9143 CBLAS_UPLO_t arg1 ;
9144 CBLAS_TRANSPOSE_t arg2 ;
9145 gsl_complex_float arg3 ;
9146 gsl_matrix_complex_float *arg4 = (gsl_matrix_complex_float *) 0 ;
9147 gsl_matrix_complex_float *arg5 = (gsl_matrix_complex_float *) 0 ;
9148 float arg6 ;
9149 gsl_matrix_complex_float *arg7 = (gsl_matrix_complex_float *) 0 ;
9150 int val1 ;
9151 int ecode1 = 0 ;
9152 int val2 ;
9153 int ecode2 = 0 ;
9154 void *argp3 ;
9155 int res3 = 0 ;
9156 void *argp4 = 0 ;
9157 int res4 = 0 ;
9158 void *argp5 = 0 ;
9159 int res5 = 0 ;
9160 float val6 ;
9161 int ecode6 = 0 ;
9162 void *argp7 = 0 ;
9163 int res7 = 0 ;
9164 int argvi = 0;
9165 int result;
9166 dXSARGS;
9167
9168 if ((items < 7) || (items > 7)) {
9169 SWIG_croak("Usage: gsl_blas_cher2k(Uplo,Trans,alpha,A,B,beta,C);");
9170 }
9171 ecode1 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
9172 if (!SWIG_IsOK(ecode1)) {
9173 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_blas_cher2k" "', argument " "1"" of type '" "CBLAS_UPLO_t""'");
9174 }
9175 arg1 = (CBLAS_UPLO_t)(val1);
9176 ecode2 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
9177 if (!SWIG_IsOK(ecode2)) {
9178 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_blas_cher2k" "', argument " "2"" of type '" "CBLAS_TRANSPOSE_t""'");
9179 }
9180 arg2 = (CBLAS_TRANSPOSE_t)(val2);
9181 {
9182 res3 = SWIG_ConvertPtr(ST(2), &argp3, SWIGTYPE_p_gsl_complex_float, 0 );
9183 if (!SWIG_IsOK(res3)) {
9184 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_blas_cher2k" "', argument " "3"" of type '" "gsl_complex_float const""'");
9185 }
9186 if (!argp3) {
9187 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_blas_cher2k" "', argument " "3"" of type '" "gsl_complex_float const""'");
9188 } else {
9189 arg3 = *((gsl_complex_float *)(argp3));
9190 }
9191 }
9192 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_matrix_complex_float, 0 | 0 );
9193 if (!SWIG_IsOK(res4)) {
9194 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_blas_cher2k" "', argument " "4"" of type '" "gsl_matrix_complex_float const *""'");
9195 }
9196 arg4 = (gsl_matrix_complex_float *)(argp4);
9197 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_matrix_complex_float, 0 | 0 );
9198 if (!SWIG_IsOK(res5)) {
9199 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_blas_cher2k" "', argument " "5"" of type '" "gsl_matrix_complex_float const *""'");
9200 }
9201 arg5 = (gsl_matrix_complex_float *)(argp5);
9202 ecode6 = SWIG_AsVal_float SWIG_PERL_CALL_ARGS_2(ST(5), &val6);
9203 if (!SWIG_IsOK(ecode6)) {
9204 SWIG_exception_fail(SWIG_ArgError(ecode6), "in method '" "gsl_blas_cher2k" "', argument " "6"" of type '" "float""'");
9205 }
9206 arg6 = (float)(val6);
9207 res7 = SWIG_ConvertPtr(ST(6), &argp7,SWIGTYPE_p_gsl_matrix_complex_float, 0 | 0 );
9208 if (!SWIG_IsOK(res7)) {
9209 SWIG_exception_fail(SWIG_ArgError(res7), "in method '" "gsl_blas_cher2k" "', argument " "7"" of type '" "gsl_matrix_complex_float *""'");
9210 }
9211 arg7 = (gsl_matrix_complex_float *)(argp7);
9212 result = (int)gsl_blas_cher2k(arg1,arg2,arg3,(gsl_matrix_complex_float const *)arg4,(gsl_matrix_complex_float const *)arg5,arg6,arg7);
9213 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
9214
9215
9216
9217
9218
9219
9220 XSRETURN(argvi);
9221 fail:
9222
9223
9224
9225
9226
9227
9228 SWIG_croak_null();
9229 }
9230 }
9231
9232
XS(_wrap_gsl_blas_zhemm)9233 XS(_wrap_gsl_blas_zhemm) {
9234 {
9235 CBLAS_SIDE_t arg1 ;
9236 CBLAS_UPLO_t arg2 ;
9237 gsl_complex arg3 ;
9238 gsl_matrix_complex *arg4 = (gsl_matrix_complex *) 0 ;
9239 gsl_matrix_complex *arg5 = (gsl_matrix_complex *) 0 ;
9240 gsl_complex arg6 ;
9241 gsl_matrix_complex *arg7 = (gsl_matrix_complex *) 0 ;
9242 int val1 ;
9243 int ecode1 = 0 ;
9244 int val2 ;
9245 int ecode2 = 0 ;
9246 void *argp3 ;
9247 int res3 = 0 ;
9248 void *argp4 = 0 ;
9249 int res4 = 0 ;
9250 void *argp5 = 0 ;
9251 int res5 = 0 ;
9252 void *argp6 ;
9253 int res6 = 0 ;
9254 void *argp7 = 0 ;
9255 int res7 = 0 ;
9256 int argvi = 0;
9257 int result;
9258 dXSARGS;
9259
9260 if ((items < 7) || (items > 7)) {
9261 SWIG_croak("Usage: gsl_blas_zhemm(Side,Uplo,alpha,A,B,beta,C);");
9262 }
9263 ecode1 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
9264 if (!SWIG_IsOK(ecode1)) {
9265 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_blas_zhemm" "', argument " "1"" of type '" "CBLAS_SIDE_t""'");
9266 }
9267 arg1 = (CBLAS_SIDE_t)(val1);
9268 ecode2 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
9269 if (!SWIG_IsOK(ecode2)) {
9270 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_blas_zhemm" "', argument " "2"" of type '" "CBLAS_UPLO_t""'");
9271 }
9272 arg2 = (CBLAS_UPLO_t)(val2);
9273 {
9274 res3 = SWIG_ConvertPtr(ST(2), &argp3, SWIGTYPE_p_gsl_complex, 0 );
9275 if (!SWIG_IsOK(res3)) {
9276 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_blas_zhemm" "', argument " "3"" of type '" "gsl_complex const""'");
9277 }
9278 if (!argp3) {
9279 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_blas_zhemm" "', argument " "3"" of type '" "gsl_complex const""'");
9280 } else {
9281 arg3 = *((gsl_complex *)(argp3));
9282 }
9283 }
9284 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
9285 if (!SWIG_IsOK(res4)) {
9286 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_blas_zhemm" "', argument " "4"" of type '" "gsl_matrix_complex const *""'");
9287 }
9288 arg4 = (gsl_matrix_complex *)(argp4);
9289 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
9290 if (!SWIG_IsOK(res5)) {
9291 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_blas_zhemm" "', argument " "5"" of type '" "gsl_matrix_complex const *""'");
9292 }
9293 arg5 = (gsl_matrix_complex *)(argp5);
9294 {
9295 res6 = SWIG_ConvertPtr(ST(5), &argp6, SWIGTYPE_p_gsl_complex, 0 );
9296 if (!SWIG_IsOK(res6)) {
9297 SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_blas_zhemm" "', argument " "6"" of type '" "gsl_complex const""'");
9298 }
9299 if (!argp6) {
9300 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_blas_zhemm" "', argument " "6"" of type '" "gsl_complex const""'");
9301 } else {
9302 arg6 = *((gsl_complex *)(argp6));
9303 }
9304 }
9305 res7 = SWIG_ConvertPtr(ST(6), &argp7,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
9306 if (!SWIG_IsOK(res7)) {
9307 SWIG_exception_fail(SWIG_ArgError(res7), "in method '" "gsl_blas_zhemm" "', argument " "7"" of type '" "gsl_matrix_complex *""'");
9308 }
9309 arg7 = (gsl_matrix_complex *)(argp7);
9310 result = (int)gsl_blas_zhemm(arg1,arg2,arg3,(gsl_matrix_complex const *)arg4,(gsl_matrix_complex const *)arg5,arg6,arg7);
9311 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
9312
9313
9314
9315
9316
9317 XSRETURN(argvi);
9318 fail:
9319
9320
9321
9322
9323
9324 SWIG_croak_null();
9325 }
9326 }
9327
9328
XS(_wrap_gsl_blas_zherk)9329 XS(_wrap_gsl_blas_zherk) {
9330 {
9331 CBLAS_UPLO_t arg1 ;
9332 CBLAS_TRANSPOSE_t arg2 ;
9333 double arg3 ;
9334 gsl_matrix_complex *arg4 = (gsl_matrix_complex *) 0 ;
9335 double arg5 ;
9336 gsl_matrix_complex *arg6 = (gsl_matrix_complex *) 0 ;
9337 int val1 ;
9338 int ecode1 = 0 ;
9339 int val2 ;
9340 int ecode2 = 0 ;
9341 double val3 ;
9342 int ecode3 = 0 ;
9343 void *argp4 = 0 ;
9344 int res4 = 0 ;
9345 double val5 ;
9346 int ecode5 = 0 ;
9347 void *argp6 = 0 ;
9348 int res6 = 0 ;
9349 int argvi = 0;
9350 int result;
9351 dXSARGS;
9352
9353 if ((items < 6) || (items > 6)) {
9354 SWIG_croak("Usage: gsl_blas_zherk(Uplo,Trans,alpha,A,beta,C);");
9355 }
9356 ecode1 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
9357 if (!SWIG_IsOK(ecode1)) {
9358 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_blas_zherk" "', argument " "1"" of type '" "CBLAS_UPLO_t""'");
9359 }
9360 arg1 = (CBLAS_UPLO_t)(val1);
9361 ecode2 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
9362 if (!SWIG_IsOK(ecode2)) {
9363 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_blas_zherk" "', argument " "2"" of type '" "CBLAS_TRANSPOSE_t""'");
9364 }
9365 arg2 = (CBLAS_TRANSPOSE_t)(val2);
9366 ecode3 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
9367 if (!SWIG_IsOK(ecode3)) {
9368 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_blas_zherk" "', argument " "3"" of type '" "double""'");
9369 }
9370 arg3 = (double)(val3);
9371 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
9372 if (!SWIG_IsOK(res4)) {
9373 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_blas_zherk" "', argument " "4"" of type '" "gsl_matrix_complex const *""'");
9374 }
9375 arg4 = (gsl_matrix_complex *)(argp4);
9376 ecode5 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(4), &val5);
9377 if (!SWIG_IsOK(ecode5)) {
9378 SWIG_exception_fail(SWIG_ArgError(ecode5), "in method '" "gsl_blas_zherk" "', argument " "5"" of type '" "double""'");
9379 }
9380 arg5 = (double)(val5);
9381 res6 = SWIG_ConvertPtr(ST(5), &argp6,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
9382 if (!SWIG_IsOK(res6)) {
9383 SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_blas_zherk" "', argument " "6"" of type '" "gsl_matrix_complex *""'");
9384 }
9385 arg6 = (gsl_matrix_complex *)(argp6);
9386 result = (int)gsl_blas_zherk(arg1,arg2,arg3,(gsl_matrix_complex const *)arg4,arg5,arg6);
9387 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
9388
9389
9390
9391
9392
9393
9394 XSRETURN(argvi);
9395 fail:
9396
9397
9398
9399
9400
9401
9402 SWIG_croak_null();
9403 }
9404 }
9405
9406
XS(_wrap_gsl_blas_zher2k)9407 XS(_wrap_gsl_blas_zher2k) {
9408 {
9409 CBLAS_UPLO_t arg1 ;
9410 CBLAS_TRANSPOSE_t arg2 ;
9411 gsl_complex arg3 ;
9412 gsl_matrix_complex *arg4 = (gsl_matrix_complex *) 0 ;
9413 gsl_matrix_complex *arg5 = (gsl_matrix_complex *) 0 ;
9414 double arg6 ;
9415 gsl_matrix_complex *arg7 = (gsl_matrix_complex *) 0 ;
9416 int val1 ;
9417 int ecode1 = 0 ;
9418 int val2 ;
9419 int ecode2 = 0 ;
9420 void *argp3 ;
9421 int res3 = 0 ;
9422 void *argp4 = 0 ;
9423 int res4 = 0 ;
9424 void *argp5 = 0 ;
9425 int res5 = 0 ;
9426 double val6 ;
9427 int ecode6 = 0 ;
9428 void *argp7 = 0 ;
9429 int res7 = 0 ;
9430 int argvi = 0;
9431 int result;
9432 dXSARGS;
9433
9434 if ((items < 7) || (items > 7)) {
9435 SWIG_croak("Usage: gsl_blas_zher2k(Uplo,Trans,alpha,A,B,beta,C);");
9436 }
9437 ecode1 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
9438 if (!SWIG_IsOK(ecode1)) {
9439 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_blas_zher2k" "', argument " "1"" of type '" "CBLAS_UPLO_t""'");
9440 }
9441 arg1 = (CBLAS_UPLO_t)(val1);
9442 ecode2 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
9443 if (!SWIG_IsOK(ecode2)) {
9444 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_blas_zher2k" "', argument " "2"" of type '" "CBLAS_TRANSPOSE_t""'");
9445 }
9446 arg2 = (CBLAS_TRANSPOSE_t)(val2);
9447 {
9448 res3 = SWIG_ConvertPtr(ST(2), &argp3, SWIGTYPE_p_gsl_complex, 0 );
9449 if (!SWIG_IsOK(res3)) {
9450 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_blas_zher2k" "', argument " "3"" of type '" "gsl_complex const""'");
9451 }
9452 if (!argp3) {
9453 SWIG_exception_fail(SWIG_ValueError, "invalid null reference " "in method '" "gsl_blas_zher2k" "', argument " "3"" of type '" "gsl_complex const""'");
9454 } else {
9455 arg3 = *((gsl_complex *)(argp3));
9456 }
9457 }
9458 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
9459 if (!SWIG_IsOK(res4)) {
9460 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_blas_zher2k" "', argument " "4"" of type '" "gsl_matrix_complex const *""'");
9461 }
9462 arg4 = (gsl_matrix_complex *)(argp4);
9463 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
9464 if (!SWIG_IsOK(res5)) {
9465 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_blas_zher2k" "', argument " "5"" of type '" "gsl_matrix_complex const *""'");
9466 }
9467 arg5 = (gsl_matrix_complex *)(argp5);
9468 ecode6 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(5), &val6);
9469 if (!SWIG_IsOK(ecode6)) {
9470 SWIG_exception_fail(SWIG_ArgError(ecode6), "in method '" "gsl_blas_zher2k" "', argument " "6"" of type '" "double""'");
9471 }
9472 arg6 = (double)(val6);
9473 res7 = SWIG_ConvertPtr(ST(6), &argp7,SWIGTYPE_p_gsl_matrix_complex, 0 | 0 );
9474 if (!SWIG_IsOK(res7)) {
9475 SWIG_exception_fail(SWIG_ArgError(res7), "in method '" "gsl_blas_zher2k" "', argument " "7"" of type '" "gsl_matrix_complex *""'");
9476 }
9477 arg7 = (gsl_matrix_complex *)(argp7);
9478 result = (int)gsl_blas_zher2k(arg1,arg2,arg3,(gsl_matrix_complex const *)arg4,(gsl_matrix_complex const *)arg5,arg6,arg7);
9479 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
9480
9481
9482
9483
9484
9485
9486 XSRETURN(argvi);
9487 fail:
9488
9489
9490
9491
9492
9493
9494 SWIG_croak_null();
9495 }
9496 }
9497
9498
9499
9500 /* -------- TYPE CONVERSION AND EQUIVALENCE RULES (BEGIN) -------- */
9501
9502 static swig_type_info _swigt__p_CBLAS_DIAG = {"_p_CBLAS_DIAG", "CBLAS_DIAG_t *|enum CBLAS_DIAG *", 0, 0, (void*)0, 0};
9503 static swig_type_info _swigt__p_CBLAS_INDEX = {"_p_CBLAS_INDEX", "CBLAS_INDEX *|CBLAS_INDEX_t *", 0, 0, (void*)0, 0};
9504 static swig_type_info _swigt__p_CBLAS_ORDER = {"_p_CBLAS_ORDER", "CBLAS_ORDER_t *|enum CBLAS_ORDER *", 0, 0, (void*)0, 0};
9505 static swig_type_info _swigt__p_CBLAS_SIDE = {"_p_CBLAS_SIDE", "enum CBLAS_SIDE *|CBLAS_SIDE_t *", 0, 0, (void*)0, 0};
9506 static swig_type_info _swigt__p_CBLAS_TRANSPOSE = {"_p_CBLAS_TRANSPOSE", "CBLAS_TRANSPOSE_t *|enum CBLAS_TRANSPOSE *", 0, 0, (void*)0, 0};
9507 static swig_type_info _swigt__p_CBLAS_UPLO = {"_p_CBLAS_UPLO", "enum CBLAS_UPLO *|CBLAS_UPLO_t *", 0, 0, (void*)0, 0};
9508 static swig_type_info _swigt__p_FILE = {"_p_FILE", "FILE *", 0, 0, (void*)0, 0};
9509 static swig_type_info _swigt__p_char = {"_p_char", "char *", 0, 0, (void*)0, 0};
9510 static swig_type_info _swigt__p_double = {"_p_double", "double *", 0, 0, (void*)0, 0};
9511 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};
9512 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};
9513 static swig_type_info _swigt__p_float = {"_p_float", "float *", 0, 0, (void*)0, 0};
9514 static swig_type_info _swigt__p_gsl_complex = {"_p_gsl_complex", "gsl_complex *", 0, 0, (void*)0, 0};
9515 static swig_type_info _swigt__p_gsl_complex_float = {"_p_gsl_complex_float", "gsl_complex_float *", 0, 0, (void*)0, 0};
9516 static swig_type_info _swigt__p_gsl_matrix = {"_p_gsl_matrix", "gsl_matrix *", 0, 0, (void*)0, 0};
9517 static swig_type_info _swigt__p_gsl_matrix_complex = {"_p_gsl_matrix_complex", "gsl_matrix_complex *", 0, 0, (void*)0, 0};
9518 static swig_type_info _swigt__p_gsl_matrix_complex_float = {"_p_gsl_matrix_complex_float", "gsl_matrix_complex_float *", 0, 0, (void*)0, 0};
9519 static swig_type_info _swigt__p_gsl_matrix_float = {"_p_gsl_matrix_float", "gsl_matrix_float *", 0, 0, (void*)0, 0};
9520 static swig_type_info _swigt__p_gsl_vector = {"_p_gsl_vector", "gsl_vector *", 0, 0, (void*)0, 0};
9521 static swig_type_info _swigt__p_gsl_vector_complex = {"_p_gsl_vector_complex", "gsl_vector_complex *", 0, 0, (void*)0, 0};
9522 static swig_type_info _swigt__p_gsl_vector_complex_float = {"_p_gsl_vector_complex_float", "gsl_vector_complex_float *", 0, 0, (void*)0, 0};
9523 static swig_type_info _swigt__p_gsl_vector_float = {"_p_gsl_vector_float", "gsl_vector_float *", 0, 0, (void*)0, 0};
9524
9525 static swig_type_info *swig_type_initial[] = {
9526 &_swigt__p_CBLAS_DIAG,
9527 &_swigt__p_CBLAS_INDEX,
9528 &_swigt__p_CBLAS_ORDER,
9529 &_swigt__p_CBLAS_SIDE,
9530 &_swigt__p_CBLAS_TRANSPOSE,
9531 &_swigt__p_CBLAS_UPLO,
9532 &_swigt__p_FILE,
9533 &_swigt__p_char,
9534 &_swigt__p_double,
9535 &_swigt__p_f_p_q_const__char_p_q_const__char_int_int__void,
9536 &_swigt__p_f_p_q_const__char_p_q_const__char_int_p_q_const__char__void,
9537 &_swigt__p_float,
9538 &_swigt__p_gsl_complex,
9539 &_swigt__p_gsl_complex_float,
9540 &_swigt__p_gsl_matrix,
9541 &_swigt__p_gsl_matrix_complex,
9542 &_swigt__p_gsl_matrix_complex_float,
9543 &_swigt__p_gsl_matrix_float,
9544 &_swigt__p_gsl_vector,
9545 &_swigt__p_gsl_vector_complex,
9546 &_swigt__p_gsl_vector_complex_float,
9547 &_swigt__p_gsl_vector_float,
9548 };
9549
9550 static swig_cast_info _swigc__p_CBLAS_DIAG[] = { {&_swigt__p_CBLAS_DIAG, 0, 0, 0},{0, 0, 0, 0}};
9551 static swig_cast_info _swigc__p_CBLAS_INDEX[] = { {&_swigt__p_CBLAS_INDEX, 0, 0, 0},{0, 0, 0, 0}};
9552 static swig_cast_info _swigc__p_CBLAS_ORDER[] = { {&_swigt__p_CBLAS_ORDER, 0, 0, 0},{0, 0, 0, 0}};
9553 static swig_cast_info _swigc__p_CBLAS_SIDE[] = { {&_swigt__p_CBLAS_SIDE, 0, 0, 0},{0, 0, 0, 0}};
9554 static swig_cast_info _swigc__p_CBLAS_TRANSPOSE[] = { {&_swigt__p_CBLAS_TRANSPOSE, 0, 0, 0},{0, 0, 0, 0}};
9555 static swig_cast_info _swigc__p_CBLAS_UPLO[] = { {&_swigt__p_CBLAS_UPLO, 0, 0, 0},{0, 0, 0, 0}};
9556 static swig_cast_info _swigc__p_FILE[] = { {&_swigt__p_FILE, 0, 0, 0},{0, 0, 0, 0}};
9557 static swig_cast_info _swigc__p_char[] = { {&_swigt__p_char, 0, 0, 0},{0, 0, 0, 0}};
9558 static swig_cast_info _swigc__p_double[] = { {&_swigt__p_double, 0, 0, 0},{0, 0, 0, 0}};
9559 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}};
9560 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}};
9561 static swig_cast_info _swigc__p_float[] = { {&_swigt__p_float, 0, 0, 0},{0, 0, 0, 0}};
9562 static swig_cast_info _swigc__p_gsl_complex[] = { {&_swigt__p_gsl_complex, 0, 0, 0},{0, 0, 0, 0}};
9563 static swig_cast_info _swigc__p_gsl_complex_float[] = { {&_swigt__p_gsl_complex_float, 0, 0, 0},{0, 0, 0, 0}};
9564 static swig_cast_info _swigc__p_gsl_matrix[] = { {&_swigt__p_gsl_matrix, 0, 0, 0},{0, 0, 0, 0}};
9565 static swig_cast_info _swigc__p_gsl_matrix_complex[] = { {&_swigt__p_gsl_matrix_complex, 0, 0, 0},{0, 0, 0, 0}};
9566 static swig_cast_info _swigc__p_gsl_matrix_complex_float[] = { {&_swigt__p_gsl_matrix_complex_float, 0, 0, 0},{0, 0, 0, 0}};
9567 static swig_cast_info _swigc__p_gsl_matrix_float[] = { {&_swigt__p_gsl_matrix_float, 0, 0, 0},{0, 0, 0, 0}};
9568 static swig_cast_info _swigc__p_gsl_vector[] = { {&_swigt__p_gsl_vector, 0, 0, 0},{0, 0, 0, 0}};
9569 static swig_cast_info _swigc__p_gsl_vector_complex[] = { {&_swigt__p_gsl_vector_complex, 0, 0, 0},{0, 0, 0, 0}};
9570 static swig_cast_info _swigc__p_gsl_vector_complex_float[] = { {&_swigt__p_gsl_vector_complex_float, 0, 0, 0},{0, 0, 0, 0}};
9571 static swig_cast_info _swigc__p_gsl_vector_float[] = { {&_swigt__p_gsl_vector_float, 0, 0, 0},{0, 0, 0, 0}};
9572
9573 static swig_cast_info *swig_cast_initial[] = {
9574 _swigc__p_CBLAS_DIAG,
9575 _swigc__p_CBLAS_INDEX,
9576 _swigc__p_CBLAS_ORDER,
9577 _swigc__p_CBLAS_SIDE,
9578 _swigc__p_CBLAS_TRANSPOSE,
9579 _swigc__p_CBLAS_UPLO,
9580 _swigc__p_FILE,
9581 _swigc__p_char,
9582 _swigc__p_double,
9583 _swigc__p_f_p_q_const__char_p_q_const__char_int_int__void,
9584 _swigc__p_f_p_q_const__char_p_q_const__char_int_p_q_const__char__void,
9585 _swigc__p_float,
9586 _swigc__p_gsl_complex,
9587 _swigc__p_gsl_complex_float,
9588 _swigc__p_gsl_matrix,
9589 _swigc__p_gsl_matrix_complex,
9590 _swigc__p_gsl_matrix_complex_float,
9591 _swigc__p_gsl_matrix_float,
9592 _swigc__p_gsl_vector,
9593 _swigc__p_gsl_vector_complex,
9594 _swigc__p_gsl_vector_complex_float,
9595 _swigc__p_gsl_vector_float,
9596 };
9597
9598
9599 /* -------- TYPE CONVERSION AND EQUIVALENCE RULES (END) -------- */
9600
9601 static swig_constant_info swig_constants[] = {
9602 {0,0,0,0,0,0}
9603 };
9604 #ifdef __cplusplus
9605 }
9606 #endif
9607 static swig_variable_info swig_variables[] = {
9608 {0,0,0,0}
9609 };
9610 static swig_command_info swig_commands[] = {
9611 {"Math::GSL::BLASc::gsl_error", _wrap_gsl_error},
9612 {"Math::GSL::BLASc::gsl_stream_printf", _wrap_gsl_stream_printf},
9613 {"Math::GSL::BLASc::gsl_strerror", _wrap_gsl_strerror},
9614 {"Math::GSL::BLASc::gsl_set_error_handler", _wrap_gsl_set_error_handler},
9615 {"Math::GSL::BLASc::gsl_set_error_handler_off", _wrap_gsl_set_error_handler_off},
9616 {"Math::GSL::BLASc::gsl_set_stream_handler", _wrap_gsl_set_stream_handler},
9617 {"Math::GSL::BLASc::gsl_set_stream", _wrap_gsl_set_stream},
9618 {"Math::GSL::BLASc::gsl_blas_sdsdot", _wrap_gsl_blas_sdsdot},
9619 {"Math::GSL::BLASc::gsl_blas_dsdot", _wrap_gsl_blas_dsdot},
9620 {"Math::GSL::BLASc::gsl_blas_sdot", _wrap_gsl_blas_sdot},
9621 {"Math::GSL::BLASc::gsl_blas_ddot", _wrap_gsl_blas_ddot},
9622 {"Math::GSL::BLASc::gsl_blas_cdotu", _wrap_gsl_blas_cdotu},
9623 {"Math::GSL::BLASc::gsl_blas_cdotc", _wrap_gsl_blas_cdotc},
9624 {"Math::GSL::BLASc::gsl_blas_zdotu", _wrap_gsl_blas_zdotu},
9625 {"Math::GSL::BLASc::gsl_blas_zdotc", _wrap_gsl_blas_zdotc},
9626 {"Math::GSL::BLASc::gsl_blas_snrm2", _wrap_gsl_blas_snrm2},
9627 {"Math::GSL::BLASc::gsl_blas_sasum", _wrap_gsl_blas_sasum},
9628 {"Math::GSL::BLASc::gsl_blas_dnrm2", _wrap_gsl_blas_dnrm2},
9629 {"Math::GSL::BLASc::gsl_blas_dasum", _wrap_gsl_blas_dasum},
9630 {"Math::GSL::BLASc::gsl_blas_scnrm2", _wrap_gsl_blas_scnrm2},
9631 {"Math::GSL::BLASc::gsl_blas_scasum", _wrap_gsl_blas_scasum},
9632 {"Math::GSL::BLASc::gsl_blas_dznrm2", _wrap_gsl_blas_dznrm2},
9633 {"Math::GSL::BLASc::gsl_blas_dzasum", _wrap_gsl_blas_dzasum},
9634 {"Math::GSL::BLASc::gsl_blas_isamax", _wrap_gsl_blas_isamax},
9635 {"Math::GSL::BLASc::gsl_blas_idamax", _wrap_gsl_blas_idamax},
9636 {"Math::GSL::BLASc::gsl_blas_icamax", _wrap_gsl_blas_icamax},
9637 {"Math::GSL::BLASc::gsl_blas_izamax", _wrap_gsl_blas_izamax},
9638 {"Math::GSL::BLASc::gsl_blas_sswap", _wrap_gsl_blas_sswap},
9639 {"Math::GSL::BLASc::gsl_blas_scopy", _wrap_gsl_blas_scopy},
9640 {"Math::GSL::BLASc::gsl_blas_saxpy", _wrap_gsl_blas_saxpy},
9641 {"Math::GSL::BLASc::gsl_blas_dswap", _wrap_gsl_blas_dswap},
9642 {"Math::GSL::BLASc::gsl_blas_dcopy", _wrap_gsl_blas_dcopy},
9643 {"Math::GSL::BLASc::gsl_blas_daxpy", _wrap_gsl_blas_daxpy},
9644 {"Math::GSL::BLASc::gsl_blas_cswap", _wrap_gsl_blas_cswap},
9645 {"Math::GSL::BLASc::gsl_blas_ccopy", _wrap_gsl_blas_ccopy},
9646 {"Math::GSL::BLASc::gsl_blas_caxpy", _wrap_gsl_blas_caxpy},
9647 {"Math::GSL::BLASc::gsl_blas_zswap", _wrap_gsl_blas_zswap},
9648 {"Math::GSL::BLASc::gsl_blas_zcopy", _wrap_gsl_blas_zcopy},
9649 {"Math::GSL::BLASc::gsl_blas_zaxpy", _wrap_gsl_blas_zaxpy},
9650 {"Math::GSL::BLASc::gsl_blas_srotg", _wrap_gsl_blas_srotg},
9651 {"Math::GSL::BLASc::gsl_blas_srotmg", _wrap_gsl_blas_srotmg},
9652 {"Math::GSL::BLASc::gsl_blas_srot", _wrap_gsl_blas_srot},
9653 {"Math::GSL::BLASc::gsl_blas_srotm", _wrap_gsl_blas_srotm},
9654 {"Math::GSL::BLASc::gsl_blas_drotg", _wrap_gsl_blas_drotg},
9655 {"Math::GSL::BLASc::gsl_blas_drotmg", _wrap_gsl_blas_drotmg},
9656 {"Math::GSL::BLASc::gsl_blas_drot", _wrap_gsl_blas_drot},
9657 {"Math::GSL::BLASc::gsl_blas_drotm", _wrap_gsl_blas_drotm},
9658 {"Math::GSL::BLASc::gsl_blas_sscal", _wrap_gsl_blas_sscal},
9659 {"Math::GSL::BLASc::gsl_blas_dscal", _wrap_gsl_blas_dscal},
9660 {"Math::GSL::BLASc::gsl_blas_cscal", _wrap_gsl_blas_cscal},
9661 {"Math::GSL::BLASc::gsl_blas_zscal", _wrap_gsl_blas_zscal},
9662 {"Math::GSL::BLASc::gsl_blas_csscal", _wrap_gsl_blas_csscal},
9663 {"Math::GSL::BLASc::gsl_blas_zdscal", _wrap_gsl_blas_zdscal},
9664 {"Math::GSL::BLASc::gsl_blas_sgemv", _wrap_gsl_blas_sgemv},
9665 {"Math::GSL::BLASc::gsl_blas_strmv", _wrap_gsl_blas_strmv},
9666 {"Math::GSL::BLASc::gsl_blas_strsv", _wrap_gsl_blas_strsv},
9667 {"Math::GSL::BLASc::gsl_blas_dgemv", _wrap_gsl_blas_dgemv},
9668 {"Math::GSL::BLASc::gsl_blas_dtrmv", _wrap_gsl_blas_dtrmv},
9669 {"Math::GSL::BLASc::gsl_blas_dtrsv", _wrap_gsl_blas_dtrsv},
9670 {"Math::GSL::BLASc::gsl_blas_cgemv", _wrap_gsl_blas_cgemv},
9671 {"Math::GSL::BLASc::gsl_blas_ctrmv", _wrap_gsl_blas_ctrmv},
9672 {"Math::GSL::BLASc::gsl_blas_ctrsv", _wrap_gsl_blas_ctrsv},
9673 {"Math::GSL::BLASc::gsl_blas_zgemv", _wrap_gsl_blas_zgemv},
9674 {"Math::GSL::BLASc::gsl_blas_ztrmv", _wrap_gsl_blas_ztrmv},
9675 {"Math::GSL::BLASc::gsl_blas_ztrsv", _wrap_gsl_blas_ztrsv},
9676 {"Math::GSL::BLASc::gsl_blas_ssymv", _wrap_gsl_blas_ssymv},
9677 {"Math::GSL::BLASc::gsl_blas_sger", _wrap_gsl_blas_sger},
9678 {"Math::GSL::BLASc::gsl_blas_ssyr", _wrap_gsl_blas_ssyr},
9679 {"Math::GSL::BLASc::gsl_blas_ssyr2", _wrap_gsl_blas_ssyr2},
9680 {"Math::GSL::BLASc::gsl_blas_dsymv", _wrap_gsl_blas_dsymv},
9681 {"Math::GSL::BLASc::gsl_blas_dger", _wrap_gsl_blas_dger},
9682 {"Math::GSL::BLASc::gsl_blas_dsyr", _wrap_gsl_blas_dsyr},
9683 {"Math::GSL::BLASc::gsl_blas_dsyr2", _wrap_gsl_blas_dsyr2},
9684 {"Math::GSL::BLASc::gsl_blas_chemv", _wrap_gsl_blas_chemv},
9685 {"Math::GSL::BLASc::gsl_blas_cgeru", _wrap_gsl_blas_cgeru},
9686 {"Math::GSL::BLASc::gsl_blas_cgerc", _wrap_gsl_blas_cgerc},
9687 {"Math::GSL::BLASc::gsl_blas_cher", _wrap_gsl_blas_cher},
9688 {"Math::GSL::BLASc::gsl_blas_cher2", _wrap_gsl_blas_cher2},
9689 {"Math::GSL::BLASc::gsl_blas_zhemv", _wrap_gsl_blas_zhemv},
9690 {"Math::GSL::BLASc::gsl_blas_zgeru", _wrap_gsl_blas_zgeru},
9691 {"Math::GSL::BLASc::gsl_blas_zgerc", _wrap_gsl_blas_zgerc},
9692 {"Math::GSL::BLASc::gsl_blas_zher", _wrap_gsl_blas_zher},
9693 {"Math::GSL::BLASc::gsl_blas_zher2", _wrap_gsl_blas_zher2},
9694 {"Math::GSL::BLASc::gsl_blas_sgemm", _wrap_gsl_blas_sgemm},
9695 {"Math::GSL::BLASc::gsl_blas_ssymm", _wrap_gsl_blas_ssymm},
9696 {"Math::GSL::BLASc::gsl_blas_ssyrk", _wrap_gsl_blas_ssyrk},
9697 {"Math::GSL::BLASc::gsl_blas_ssyr2k", _wrap_gsl_blas_ssyr2k},
9698 {"Math::GSL::BLASc::gsl_blas_strmm", _wrap_gsl_blas_strmm},
9699 {"Math::GSL::BLASc::gsl_blas_strsm", _wrap_gsl_blas_strsm},
9700 {"Math::GSL::BLASc::gsl_blas_dgemm", _wrap_gsl_blas_dgemm},
9701 {"Math::GSL::BLASc::gsl_blas_dsymm", _wrap_gsl_blas_dsymm},
9702 {"Math::GSL::BLASc::gsl_blas_dsyrk", _wrap_gsl_blas_dsyrk},
9703 {"Math::GSL::BLASc::gsl_blas_dsyr2k", _wrap_gsl_blas_dsyr2k},
9704 {"Math::GSL::BLASc::gsl_blas_dtrmm", _wrap_gsl_blas_dtrmm},
9705 {"Math::GSL::BLASc::gsl_blas_dtrsm", _wrap_gsl_blas_dtrsm},
9706 {"Math::GSL::BLASc::gsl_blas_cgemm", _wrap_gsl_blas_cgemm},
9707 {"Math::GSL::BLASc::gsl_blas_csymm", _wrap_gsl_blas_csymm},
9708 {"Math::GSL::BLASc::gsl_blas_csyrk", _wrap_gsl_blas_csyrk},
9709 {"Math::GSL::BLASc::gsl_blas_csyr2k", _wrap_gsl_blas_csyr2k},
9710 {"Math::GSL::BLASc::gsl_blas_ctrmm", _wrap_gsl_blas_ctrmm},
9711 {"Math::GSL::BLASc::gsl_blas_ctrsm", _wrap_gsl_blas_ctrsm},
9712 {"Math::GSL::BLASc::gsl_blas_zgemm", _wrap_gsl_blas_zgemm},
9713 {"Math::GSL::BLASc::gsl_blas_zsymm", _wrap_gsl_blas_zsymm},
9714 {"Math::GSL::BLASc::gsl_blas_zsyrk", _wrap_gsl_blas_zsyrk},
9715 {"Math::GSL::BLASc::gsl_blas_zsyr2k", _wrap_gsl_blas_zsyr2k},
9716 {"Math::GSL::BLASc::gsl_blas_ztrmm", _wrap_gsl_blas_ztrmm},
9717 {"Math::GSL::BLASc::gsl_blas_ztrsm", _wrap_gsl_blas_ztrsm},
9718 {"Math::GSL::BLASc::gsl_blas_chemm", _wrap_gsl_blas_chemm},
9719 {"Math::GSL::BLASc::gsl_blas_cherk", _wrap_gsl_blas_cherk},
9720 {"Math::GSL::BLASc::gsl_blas_cher2k", _wrap_gsl_blas_cher2k},
9721 {"Math::GSL::BLASc::gsl_blas_zhemm", _wrap_gsl_blas_zhemm},
9722 {"Math::GSL::BLASc::gsl_blas_zherk", _wrap_gsl_blas_zherk},
9723 {"Math::GSL::BLASc::gsl_blas_zher2k", _wrap_gsl_blas_zher2k},
9724 {0,0}
9725 };
9726 /* -----------------------------------------------------------------------------
9727 * Type initialization:
9728 * This problem is tough by the requirement that no dynamic
9729 * memory is used. Also, since swig_type_info structures store pointers to
9730 * swig_cast_info structures and swig_cast_info structures store pointers back
9731 * to swig_type_info structures, we need some lookup code at initialization.
9732 * The idea is that swig generates all the structures that are needed.
9733 * The runtime then collects these partially filled structures.
9734 * The SWIG_InitializeModule function takes these initial arrays out of
9735 * swig_module, and does all the lookup, filling in the swig_module.types
9736 * array with the correct data and linking the correct swig_cast_info
9737 * structures together.
9738 *
9739 * The generated swig_type_info structures are assigned statically to an initial
9740 * array. We just loop through that array, and handle each type individually.
9741 * First we lookup if this type has been already loaded, and if so, use the
9742 * loaded structure instead of the generated one. Then we have to fill in the
9743 * cast linked list. The cast data is initially stored in something like a
9744 * two-dimensional array. Each row corresponds to a type (there are the same
9745 * number of rows as there are in the swig_type_initial array). Each entry in
9746 * a column is one of the swig_cast_info structures for that type.
9747 * The cast_initial array is actually an array of arrays, because each row has
9748 * a variable number of columns. So to actually build the cast linked list,
9749 * we find the array of casts associated with the type, and loop through it
9750 * adding the casts to the list. The one last trick we need to do is making
9751 * sure the type pointer in the swig_cast_info struct is correct.
9752 *
9753 * First off, we lookup the cast->type name to see if it is already loaded.
9754 * There are three cases to handle:
9755 * 1) If the cast->type has already been loaded AND the type we are adding
9756 * casting info to has not been loaded (it is in this module), THEN we
9757 * replace the cast->type pointer with the type pointer that has already
9758 * been loaded.
9759 * 2) If BOTH types (the one we are adding casting info to, and the
9760 * cast->type) are loaded, THEN the cast info has already been loaded by
9761 * the previous module so we just ignore it.
9762 * 3) Finally, if cast->type has not already been loaded, then we add that
9763 * swig_cast_info to the linked list (because the cast->type) pointer will
9764 * be correct.
9765 * ----------------------------------------------------------------------------- */
9766
9767 #ifdef __cplusplus
9768 extern "C" {
9769 #if 0
9770 } /* c-mode */
9771 #endif
9772 #endif
9773
9774 #if 0
9775 #define SWIGRUNTIME_DEBUG
9776 #endif
9777
9778
9779 SWIGRUNTIME void
SWIG_InitializeModule(void * clientdata)9780 SWIG_InitializeModule(void *clientdata) {
9781 size_t i;
9782 swig_module_info *module_head, *iter;
9783 int init;
9784
9785 /* check to see if the circular list has been setup, if not, set it up */
9786 if (swig_module.next==0) {
9787 /* Initialize the swig_module */
9788 swig_module.type_initial = swig_type_initial;
9789 swig_module.cast_initial = swig_cast_initial;
9790 swig_module.next = &swig_module;
9791 init = 1;
9792 } else {
9793 init = 0;
9794 }
9795
9796 /* Try and load any already created modules */
9797 module_head = SWIG_GetModule(clientdata);
9798 if (!module_head) {
9799 /* This is the first module loaded for this interpreter */
9800 /* so set the swig module into the interpreter */
9801 SWIG_SetModule(clientdata, &swig_module);
9802 } else {
9803 /* the interpreter has loaded a SWIG module, but has it loaded this one? */
9804 iter=module_head;
9805 do {
9806 if (iter==&swig_module) {
9807 /* Our module is already in the list, so there's nothing more to do. */
9808 return;
9809 }
9810 iter=iter->next;
9811 } while (iter!= module_head);
9812
9813 /* otherwise we must add our module into the list */
9814 swig_module.next = module_head->next;
9815 module_head->next = &swig_module;
9816 }
9817
9818 /* When multiple interpreters are used, a module could have already been initialized in
9819 a different interpreter, but not yet have a pointer in this interpreter.
9820 In this case, we do not want to continue adding types... everything should be
9821 set up already */
9822 if (init == 0) return;
9823
9824 /* Now work on filling in swig_module.types */
9825 #ifdef SWIGRUNTIME_DEBUG
9826 printf("SWIG_InitializeModule: size %lu\n", (unsigned long)swig_module.size);
9827 #endif
9828 for (i = 0; i < swig_module.size; ++i) {
9829 swig_type_info *type = 0;
9830 swig_type_info *ret;
9831 swig_cast_info *cast;
9832
9833 #ifdef SWIGRUNTIME_DEBUG
9834 printf("SWIG_InitializeModule: type %lu %s\n", (unsigned long)i, swig_module.type_initial[i]->name);
9835 #endif
9836
9837 /* if there is another module already loaded */
9838 if (swig_module.next != &swig_module) {
9839 type = SWIG_MangledTypeQueryModule(swig_module.next, &swig_module, swig_module.type_initial[i]->name);
9840 }
9841 if (type) {
9842 /* Overwrite clientdata field */
9843 #ifdef SWIGRUNTIME_DEBUG
9844 printf("SWIG_InitializeModule: found type %s\n", type->name);
9845 #endif
9846 if (swig_module.type_initial[i]->clientdata) {
9847 type->clientdata = swig_module.type_initial[i]->clientdata;
9848 #ifdef SWIGRUNTIME_DEBUG
9849 printf("SWIG_InitializeModule: found and overwrite type %s \n", type->name);
9850 #endif
9851 }
9852 } else {
9853 type = swig_module.type_initial[i];
9854 }
9855
9856 /* Insert casting types */
9857 cast = swig_module.cast_initial[i];
9858 while (cast->type) {
9859 /* Don't need to add information already in the list */
9860 ret = 0;
9861 #ifdef SWIGRUNTIME_DEBUG
9862 printf("SWIG_InitializeModule: look cast %s\n", cast->type->name);
9863 #endif
9864 if (swig_module.next != &swig_module) {
9865 ret = SWIG_MangledTypeQueryModule(swig_module.next, &swig_module, cast->type->name);
9866 #ifdef SWIGRUNTIME_DEBUG
9867 if (ret) printf("SWIG_InitializeModule: found cast %s\n", ret->name);
9868 #endif
9869 }
9870 if (ret) {
9871 if (type == swig_module.type_initial[i]) {
9872 #ifdef SWIGRUNTIME_DEBUG
9873 printf("SWIG_InitializeModule: skip old type %s\n", ret->name);
9874 #endif
9875 cast->type = ret;
9876 ret = 0;
9877 } else {
9878 /* Check for casting already in the list */
9879 swig_cast_info *ocast = SWIG_TypeCheck(ret->name, type);
9880 #ifdef SWIGRUNTIME_DEBUG
9881 if (ocast) printf("SWIG_InitializeModule: skip old cast %s\n", ret->name);
9882 #endif
9883 if (!ocast) ret = 0;
9884 }
9885 }
9886
9887 if (!ret) {
9888 #ifdef SWIGRUNTIME_DEBUG
9889 printf("SWIG_InitializeModule: adding cast %s\n", cast->type->name);
9890 #endif
9891 if (type->cast) {
9892 type->cast->prev = cast;
9893 cast->next = type->cast;
9894 }
9895 type->cast = cast;
9896 }
9897 cast++;
9898 }
9899 /* Set entry in modules->types array equal to the type */
9900 swig_module.types[i] = type;
9901 }
9902 swig_module.types[i] = 0;
9903
9904 #ifdef SWIGRUNTIME_DEBUG
9905 printf("**** SWIG_InitializeModule: Cast List ******\n");
9906 for (i = 0; i < swig_module.size; ++i) {
9907 int j = 0;
9908 swig_cast_info *cast = swig_module.cast_initial[i];
9909 printf("SWIG_InitializeModule: type %lu %s\n", (unsigned long)i, swig_module.type_initial[i]->name);
9910 while (cast->type) {
9911 printf("SWIG_InitializeModule: cast type %s\n", cast->type->name);
9912 cast++;
9913 ++j;
9914 }
9915 printf("---- Total casts: %d\n",j);
9916 }
9917 printf("**** SWIG_InitializeModule: Cast List ******\n");
9918 #endif
9919 }
9920
9921 /* This function will propagate the clientdata field of type to
9922 * any new swig_type_info structures that have been added into the list
9923 * of equivalent types. It is like calling
9924 * SWIG_TypeClientData(type, clientdata) a second time.
9925 */
9926 SWIGRUNTIME void
SWIG_PropagateClientData(void)9927 SWIG_PropagateClientData(void) {
9928 size_t i;
9929 swig_cast_info *equiv;
9930 static int init_run = 0;
9931
9932 if (init_run) return;
9933 init_run = 1;
9934
9935 for (i = 0; i < swig_module.size; i++) {
9936 if (swig_module.types[i]->clientdata) {
9937 equiv = swig_module.types[i]->cast;
9938 while (equiv) {
9939 if (!equiv->converter) {
9940 if (equiv->type && !equiv->type->clientdata)
9941 SWIG_TypeClientData(equiv->type, swig_module.types[i]->clientdata);
9942 }
9943 equiv = equiv->next;
9944 }
9945 }
9946 }
9947 }
9948
9949 #ifdef __cplusplus
9950 #if 0
9951 {
9952 /* c-mode */
9953 #endif
9954 }
9955 #endif
9956
9957
9958
9959 #if defined(__cplusplus) && ! defined(XSPROTO)
9960 extern "C"
9961 #endif
9962
XS(SWIG_init)9963 XS(SWIG_init) {
9964 dXSARGS;
9965 int i;
9966 (void)items;
9967
9968 SWIG_InitializeModule(0);
9969
9970 /* Install commands */
9971 for (i = 0; swig_commands[i].name; i++) {
9972 /* Casts only needed for Perl < 5.10. */
9973 #ifdef __cplusplus
9974 newXS(const_cast<char*>(swig_commands[i].name), swig_commands[i].wrapper, const_cast<char*>(__FILE__));
9975 #else
9976 newXS((char*)swig_commands[i].name, swig_commands[i].wrapper, (char*)__FILE__);
9977 #endif
9978 }
9979
9980 /* Install variables */
9981 for (i = 0; swig_variables[i].name; i++) {
9982 SV *sv;
9983 sv = get_sv(swig_variables[i].name, TRUE | 0x2 | GV_ADDMULTI);
9984 if (swig_variables[i].type) {
9985 SWIG_MakePtr(sv,(void *)1, *swig_variables[i].type,0);
9986 } else {
9987 sv_setiv(sv,(IV) 0);
9988 }
9989 swig_create_magic(sv, swig_variables[i].name, swig_variables[i].set, swig_variables[i].get);
9990 }
9991
9992 /* Install constant */
9993 for (i = 0; swig_constants[i].type; i++) {
9994 SV *sv;
9995 sv = get_sv(swig_constants[i].name, TRUE | 0x2 | GV_ADDMULTI);
9996 switch(swig_constants[i].type) {
9997 case SWIG_INT:
9998 sv_setiv(sv, (IV) swig_constants[i].lvalue);
9999 break;
10000 case SWIG_FLOAT:
10001 sv_setnv(sv, (double) swig_constants[i].dvalue);
10002 break;
10003 case SWIG_STRING:
10004 sv_setpv(sv, (const char *) swig_constants[i].pvalue);
10005 break;
10006 case SWIG_POINTER:
10007 SWIG_MakePtr(sv, swig_constants[i].pvalue, *(swig_constants[i].ptype),0);
10008 break;
10009 case SWIG_BINARY:
10010 SWIG_MakePackedObj(sv, swig_constants[i].pvalue, swig_constants[i].lvalue, *(swig_constants[i].ptype));
10011 break;
10012 default:
10013 break;
10014 }
10015 SvREADONLY_on(sv);
10016 }
10017
10018 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
10019 SV *sv = get_sv((char*) SWIG_prefix "GSL_VERSION", TRUE | 0x2 | GV_ADDMULTI);
10020 sv_setsv(sv, SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(2.7)));
10021 SvREADONLY_on(sv);
10022 } while(0) /*@SWIG@*/;
10023 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
10024 SV *sv = get_sv((char*) SWIG_prefix "GSL_MAJOR_VERSION", TRUE | 0x2 | GV_ADDMULTI);
10025 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(2)));
10026 SvREADONLY_on(sv);
10027 } while(0) /*@SWIG@*/;
10028 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
10029 SV *sv = get_sv((char*) SWIG_prefix "GSL_MINOR_VERSION", TRUE | 0x2 | GV_ADDMULTI);
10030 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(7)));
10031 SvREADONLY_on(sv);
10032 } while(0) /*@SWIG@*/;
10033 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
10034 SV *sv = get_sv((char*) SWIG_prefix "GSL_POSZERO", TRUE | 0x2 | GV_ADDMULTI);
10035 sv_setsv(sv, SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)((+0.0))));
10036 SvREADONLY_on(sv);
10037 } while(0) /*@SWIG@*/;
10038 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
10039 SV *sv = get_sv((char*) SWIG_prefix "GSL_NEGZERO", TRUE | 0x2 | GV_ADDMULTI);
10040 sv_setsv(sv, SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)((-0.0))));
10041 SvREADONLY_on(sv);
10042 } while(0) /*@SWIG@*/;
10043 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
10044 SV *sv = get_sv((char*) SWIG_prefix "GSL_SUCCESS", TRUE | 0x2 | GV_ADDMULTI);
10045 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_SUCCESS)));
10046 SvREADONLY_on(sv);
10047 } while(0) /*@SWIG@*/;
10048 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
10049 SV *sv = get_sv((char*) SWIG_prefix "GSL_FAILURE", TRUE | 0x2 | GV_ADDMULTI);
10050 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_FAILURE)));
10051 SvREADONLY_on(sv);
10052 } while(0) /*@SWIG@*/;
10053 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
10054 SV *sv = get_sv((char*) SWIG_prefix "GSL_CONTINUE", TRUE | 0x2 | GV_ADDMULTI);
10055 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_CONTINUE)));
10056 SvREADONLY_on(sv);
10057 } while(0) /*@SWIG@*/;
10058 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
10059 SV *sv = get_sv((char*) SWIG_prefix "GSL_EDOM", TRUE | 0x2 | GV_ADDMULTI);
10060 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EDOM)));
10061 SvREADONLY_on(sv);
10062 } while(0) /*@SWIG@*/;
10063 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
10064 SV *sv = get_sv((char*) SWIG_prefix "GSL_ERANGE", TRUE | 0x2 | GV_ADDMULTI);
10065 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ERANGE)));
10066 SvREADONLY_on(sv);
10067 } while(0) /*@SWIG@*/;
10068 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
10069 SV *sv = get_sv((char*) SWIG_prefix "GSL_EFAULT", TRUE | 0x2 | GV_ADDMULTI);
10070 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EFAULT)));
10071 SvREADONLY_on(sv);
10072 } while(0) /*@SWIG@*/;
10073 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
10074 SV *sv = get_sv((char*) SWIG_prefix "GSL_EINVAL", TRUE | 0x2 | GV_ADDMULTI);
10075 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EINVAL)));
10076 SvREADONLY_on(sv);
10077 } while(0) /*@SWIG@*/;
10078 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
10079 SV *sv = get_sv((char*) SWIG_prefix "GSL_EFAILED", TRUE | 0x2 | GV_ADDMULTI);
10080 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EFAILED)));
10081 SvREADONLY_on(sv);
10082 } while(0) /*@SWIG@*/;
10083 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
10084 SV *sv = get_sv((char*) SWIG_prefix "GSL_EFACTOR", TRUE | 0x2 | GV_ADDMULTI);
10085 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EFACTOR)));
10086 SvREADONLY_on(sv);
10087 } while(0) /*@SWIG@*/;
10088 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
10089 SV *sv = get_sv((char*) SWIG_prefix "GSL_ESANITY", TRUE | 0x2 | GV_ADDMULTI);
10090 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ESANITY)));
10091 SvREADONLY_on(sv);
10092 } while(0) /*@SWIG@*/;
10093 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
10094 SV *sv = get_sv((char*) SWIG_prefix "GSL_ENOMEM", TRUE | 0x2 | GV_ADDMULTI);
10095 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ENOMEM)));
10096 SvREADONLY_on(sv);
10097 } while(0) /*@SWIG@*/;
10098 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
10099 SV *sv = get_sv((char*) SWIG_prefix "GSL_EBADFUNC", TRUE | 0x2 | GV_ADDMULTI);
10100 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EBADFUNC)));
10101 SvREADONLY_on(sv);
10102 } while(0) /*@SWIG@*/;
10103 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
10104 SV *sv = get_sv((char*) SWIG_prefix "GSL_ERUNAWAY", TRUE | 0x2 | GV_ADDMULTI);
10105 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ERUNAWAY)));
10106 SvREADONLY_on(sv);
10107 } while(0) /*@SWIG@*/;
10108 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
10109 SV *sv = get_sv((char*) SWIG_prefix "GSL_EMAXITER", TRUE | 0x2 | GV_ADDMULTI);
10110 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EMAXITER)));
10111 SvREADONLY_on(sv);
10112 } while(0) /*@SWIG@*/;
10113 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
10114 SV *sv = get_sv((char*) SWIG_prefix "GSL_EZERODIV", TRUE | 0x2 | GV_ADDMULTI);
10115 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EZERODIV)));
10116 SvREADONLY_on(sv);
10117 } while(0) /*@SWIG@*/;
10118 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
10119 SV *sv = get_sv((char*) SWIG_prefix "GSL_EBADTOL", TRUE | 0x2 | GV_ADDMULTI);
10120 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EBADTOL)));
10121 SvREADONLY_on(sv);
10122 } while(0) /*@SWIG@*/;
10123 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
10124 SV *sv = get_sv((char*) SWIG_prefix "GSL_ETOL", TRUE | 0x2 | GV_ADDMULTI);
10125 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ETOL)));
10126 SvREADONLY_on(sv);
10127 } while(0) /*@SWIG@*/;
10128 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
10129 SV *sv = get_sv((char*) SWIG_prefix "GSL_EUNDRFLW", TRUE | 0x2 | GV_ADDMULTI);
10130 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EUNDRFLW)));
10131 SvREADONLY_on(sv);
10132 } while(0) /*@SWIG@*/;
10133 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
10134 SV *sv = get_sv((char*) SWIG_prefix "GSL_EOVRFLW", TRUE | 0x2 | GV_ADDMULTI);
10135 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EOVRFLW)));
10136 SvREADONLY_on(sv);
10137 } while(0) /*@SWIG@*/;
10138 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
10139 SV *sv = get_sv((char*) SWIG_prefix "GSL_ELOSS", TRUE | 0x2 | GV_ADDMULTI);
10140 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ELOSS)));
10141 SvREADONLY_on(sv);
10142 } while(0) /*@SWIG@*/;
10143 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
10144 SV *sv = get_sv((char*) SWIG_prefix "GSL_EROUND", TRUE | 0x2 | GV_ADDMULTI);
10145 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EROUND)));
10146 SvREADONLY_on(sv);
10147 } while(0) /*@SWIG@*/;
10148 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
10149 SV *sv = get_sv((char*) SWIG_prefix "GSL_EBADLEN", TRUE | 0x2 | GV_ADDMULTI);
10150 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EBADLEN)));
10151 SvREADONLY_on(sv);
10152 } while(0) /*@SWIG@*/;
10153 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
10154 SV *sv = get_sv((char*) SWIG_prefix "GSL_ENOTSQR", TRUE | 0x2 | GV_ADDMULTI);
10155 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ENOTSQR)));
10156 SvREADONLY_on(sv);
10157 } while(0) /*@SWIG@*/;
10158 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
10159 SV *sv = get_sv((char*) SWIG_prefix "GSL_ESING", TRUE | 0x2 | GV_ADDMULTI);
10160 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ESING)));
10161 SvREADONLY_on(sv);
10162 } while(0) /*@SWIG@*/;
10163 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
10164 SV *sv = get_sv((char*) SWIG_prefix "GSL_EDIVERGE", TRUE | 0x2 | GV_ADDMULTI);
10165 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EDIVERGE)));
10166 SvREADONLY_on(sv);
10167 } while(0) /*@SWIG@*/;
10168 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
10169 SV *sv = get_sv((char*) SWIG_prefix "GSL_EUNSUP", TRUE | 0x2 | GV_ADDMULTI);
10170 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EUNSUP)));
10171 SvREADONLY_on(sv);
10172 } while(0) /*@SWIG@*/;
10173 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
10174 SV *sv = get_sv((char*) SWIG_prefix "GSL_EUNIMPL", TRUE | 0x2 | GV_ADDMULTI);
10175 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EUNIMPL)));
10176 SvREADONLY_on(sv);
10177 } while(0) /*@SWIG@*/;
10178 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
10179 SV *sv = get_sv((char*) SWIG_prefix "GSL_ECACHE", TRUE | 0x2 | GV_ADDMULTI);
10180 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ECACHE)));
10181 SvREADONLY_on(sv);
10182 } while(0) /*@SWIG@*/;
10183 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
10184 SV *sv = get_sv((char*) SWIG_prefix "GSL_ETABLE", TRUE | 0x2 | GV_ADDMULTI);
10185 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ETABLE)));
10186 SvREADONLY_on(sv);
10187 } while(0) /*@SWIG@*/;
10188 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
10189 SV *sv = get_sv((char*) SWIG_prefix "GSL_ENOPROG", TRUE | 0x2 | GV_ADDMULTI);
10190 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ENOPROG)));
10191 SvREADONLY_on(sv);
10192 } while(0) /*@SWIG@*/;
10193 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
10194 SV *sv = get_sv((char*) SWIG_prefix "GSL_ENOPROGJ", TRUE | 0x2 | GV_ADDMULTI);
10195 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ENOPROGJ)));
10196 SvREADONLY_on(sv);
10197 } while(0) /*@SWIG@*/;
10198 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
10199 SV *sv = get_sv((char*) SWIG_prefix "GSL_ETOLF", TRUE | 0x2 | GV_ADDMULTI);
10200 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ETOLF)));
10201 SvREADONLY_on(sv);
10202 } while(0) /*@SWIG@*/;
10203 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
10204 SV *sv = get_sv((char*) SWIG_prefix "GSL_ETOLX", TRUE | 0x2 | GV_ADDMULTI);
10205 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ETOLX)));
10206 SvREADONLY_on(sv);
10207 } while(0) /*@SWIG@*/;
10208 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
10209 SV *sv = get_sv((char*) SWIG_prefix "GSL_ETOLG", TRUE | 0x2 | GV_ADDMULTI);
10210 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ETOLG)));
10211 SvREADONLY_on(sv);
10212 } while(0) /*@SWIG@*/;
10213 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
10214 SV *sv = get_sv((char*) SWIG_prefix "GSL_EOF", TRUE | 0x2 | GV_ADDMULTI);
10215 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EOF)));
10216 SvREADONLY_on(sv);
10217 } while(0) /*@SWIG@*/;
10218 ST(0) = &PL_sv_yes;
10219 XSRETURN(1);
10220 }
10221
10222