ruby-lapack 1.8.0 → 1.8.1

data/ext/dlascl2.c

@@ -5,6 +5,7 @@ extern VOID dlascl2_(integer* m, integer* n, doublereal* d, doublereal* x, integ
 
 static VALUE
 rblapack_dlascl2(int argc, VALUE *argv, VALUE self){
+#ifdef USEXBLAS
   VALUE rblapack_d;
   doublereal *d; 
   VALUE rblapack_x;
@@ -70,6 +71,9 @@ rblapack_dlascl2(int argc, VALUE *argv, VALUE self){
   dlascl2_(&m, &n, d, x, &ldx);
 
   return rblapack_x;
+#else
+  return Qnil;
+#endif
 }
 
 void

data/ext/dporfsx.c

@@ -5,6 +5,7 @@ extern VOID dporfsx_(char* uplo, char* equed, integer* n, integer* nrhs, doubler
 
 static VALUE
 rblapack_dporfsx(int argc, VALUE *argv, VALUE self){
+#ifdef USEXBLAS
   VALUE rblapack_uplo;
   char uplo; 
   VALUE rblapack_equed;
@@ -194,6 +195,9 @@ rblapack_dporfsx(int argc, VALUE *argv, VALUE self){
   rblapack_rcond = rb_float_new((double)rcond);
   rblapack_info = INT2NUM(info);
   return rb_ary_new3(8, rblapack_rcond, rblapack_berr, rblapack_err_bnds_norm, rblapack_err_bnds_comp, rblapack_info, rblapack_s, rblapack_x, rblapack_params);
+#else
+  return Qnil;
+#endif
 }
 
 void

data/ext/dposvxx.c

@@ -5,6 +5,7 @@ extern VOID dposvxx_(char* fact, char* uplo, integer* n, integer* nrhs, doublere
 
 static VALUE
 rblapack_dposvxx(int argc, VALUE *argv, VALUE self){
+#ifdef USEXBLAS
   VALUE rblapack_fact;
   char fact; 
   VALUE rblapack_uplo;
@@ -223,6 +224,9 @@ rblapack_dposvxx(int argc, VALUE *argv, VALUE self){
   rblapack_info = INT2NUM(info);
   rblapack_equed = rb_str_new(&equed,1);
   return rb_ary_new3(13, rblapack_x, rblapack_rcond, rblapack_rpvgrw, rblapack_berr, rblapack_err_bnds_norm, rblapack_err_bnds_comp, rblapack_info, rblapack_a, rblapack_af, rblapack_equed, rblapack_s, rblapack_b, rblapack_params);
+#else
+  return Qnil;
+#endif
 }
 
 void

data/ext/dsyrfsx.c

@@ -5,6 +5,7 @@ extern VOID dsyrfsx_(char* uplo, char* equed, integer* n, integer* nrhs, doubler
 
 static VALUE
 rblapack_dsyrfsx(int argc, VALUE *argv, VALUE self){
+#ifdef USEXBLAS
   VALUE rblapack_uplo;
   char uplo; 
   VALUE rblapack_equed;
@@ -206,6 +207,9 @@ rblapack_dsyrfsx(int argc, VALUE *argv, VALUE self){
   rblapack_rcond = rb_float_new((double)rcond);
   rblapack_info = INT2NUM(info);
   return rb_ary_new3(8, rblapack_rcond, rblapack_berr, rblapack_err_bnds_norm, rblapack_err_bnds_comp, rblapack_info, rblapack_s, rblapack_x, rblapack_params);
+#else
+  return Qnil;
+#endif
 }
 
 void

data/ext/dsysvxx.c

@@ -5,6 +5,7 @@ extern VOID dsysvxx_(char* fact, char* uplo, integer* n, integer* nrhs, doublere
 
 static VALUE
 rblapack_dsysvxx(int argc, VALUE *argv, VALUE self){
+#ifdef USEXBLAS
   VALUE rblapack_fact;
   char fact; 
   VALUE rblapack_uplo;
@@ -246,6 +247,9 @@ rblapack_dsysvxx(int argc, VALUE *argv, VALUE self){
   rblapack_info = INT2NUM(info);
   rblapack_equed = rb_str_new(&equed,1);
   return rb_ary_new3(14, rblapack_x, rblapack_rcond, rblapack_rpvgrw, rblapack_berr, rblapack_err_bnds_norm, rblapack_err_bnds_comp, rblapack_info, rblapack_a, rblapack_af, rblapack_ipiv, rblapack_equed, rblapack_s, rblapack_b, rblapack_params);
+#else
+  return Qnil;
+#endif
 }
 
 void