XBLAS: Make argument error return codes more specific in gbmv.

Should return -k if the k-th argument is in error, instead of just 0.

diff --git a/XBLAS/src/gbmv/BLAS_cgbmv_c_s.c b/XBLAS/src/gbmv/BLAS_cgbmv_c_s.c
index d5ff3d9fa6c70dddc04bc16e21cf0153aa9ccb22..a0949744df629977a0c94f8b16ee0fbb0830373c 100644 (file)
--- a/XBLAS/src/gbmv/BLAS_cgbmv_c_s.c
+++ b/XBLAS/src/gbmv/BLAS_cgbmv_c_s.c
@@ -115,15 +115,26 @@ void BLAS_cgbmv_c_s(enum blas_order_type order, enum blas_trans_type trans,
   float y_elem[2];
 
 
-  if (((trans != blas_no_trans) &&
-       (trans != blas_trans) &&
-       (trans != blas_conj_trans)) ||
-      (m < 0) || (n < 0) ||
-      (kl < 0) || (kl >= m) ||
-      (ku < 0) || (ku >= n) ||
-      (lda < (kl + ku + 1)) || (incx == 0) || (incy == 0)) {
-    BLAS_error(routine_name, 0, 0, NULL);
+  if (order != blas_colmajor && order != blas_rowmajor)
+    BLAS_error(routine_name, -1, order, NULL);
+  if (trans != blas_no_trans &&
+      trans != blas_trans && trans != blas_conj_trans) {
+    BLAS_error(routine_name, -2, trans, NULL);
   }
+  if (m < 0)
+    BLAS_error(routine_name, -3, m, NULL);
+  if (n < 0)
+    BLAS_error(routine_name, -4, n, NULL);
+  if (kl < 0 || kl >= m)
+    BLAS_error(routine_name, -5, kl, NULL);
+  if (ku < 0 || ku >= n)
+    BLAS_error(routine_name, -6, ku, NULL);
+  if (lda < kl + ku + 1)
+    BLAS_error(routine_name, -9, lda, NULL);
+  if (incx == 0)
+    BLAS_error(routine_name, -11, incx, NULL);
+  if (incy == 0)
+    BLAS_error(routine_name, -14, incy, NULL);
 
   if ((m == 0) || (n == 0) ||
       (((alpha_i[0] == 0.0 && alpha_i[1] == 0.0)

diff --git a/XBLAS/src/gbmv/BLAS_cgbmv_c_s_x.c b/XBLAS/src/gbmv/BLAS_cgbmv_c_s_x.c
index a6cc0c10ebe9034c313d729268e4a94cc5eda3b2..37584bbd7d77a51fc336606748d0f271fd308c1b 100644 (file)
--- a/XBLAS/src/gbmv/BLAS_cgbmv_c_s_x.c
+++ b/XBLAS/src/gbmv/BLAS_cgbmv_c_s_x.c
@@ -127,15 +127,26 @@ void BLAS_cgbmv_c_s_x(enum blas_order_type order, enum blas_trans_type trans,
       float y_elem[2];
 
 
-      if (((trans != blas_no_trans) &&
-          (trans != blas_trans) &&
-          (trans != blas_conj_trans)) ||
-         (m < 0) || (n < 0) ||
-         (kl < 0) || (kl >= m) ||
-         (ku < 0) || (ku >= n) ||
-         (lda < (kl + ku + 1)) || (incx == 0) || (incy == 0)) {
-       BLAS_error(routine_name, 0, 0, NULL);
+      if (order != blas_colmajor && order != blas_rowmajor)
+       BLAS_error(routine_name, -1, order, NULL);
+      if (trans != blas_no_trans &&
+         trans != blas_trans && trans != blas_conj_trans) {
+       BLAS_error(routine_name, -2, trans, NULL);
       }
+      if (m < 0)
+       BLAS_error(routine_name, -3, m, NULL);
+      if (n < 0)
+       BLAS_error(routine_name, -4, n, NULL);
+      if (kl < 0 || kl >= m)
+       BLAS_error(routine_name, -5, kl, NULL);
+      if (ku < 0 || ku >= n)
+       BLAS_error(routine_name, -6, ku, NULL);
+      if (lda < kl + ku + 1)
+       BLAS_error(routine_name, -9, lda, NULL);
+      if (incx == 0)
+       BLAS_error(routine_name, -11, incx, NULL);
+      if (incy == 0)
+       BLAS_error(routine_name, -14, incy, NULL);
 
       if ((m == 0) || (n == 0) ||
          (((alpha_i[0] == 0.0 && alpha_i[1] == 0.0)
@@ -299,15 +310,26 @@ void BLAS_cgbmv_c_s_x(enum blas_order_type order, enum blas_trans_type trans,
       float y_elem[2];
 
 
-      if (((trans != blas_no_trans) &&
-          (trans != blas_trans) &&
-          (trans != blas_conj_trans)) ||
-         (m < 0) || (n < 0) ||
-         (kl < 0) || (kl >= m) ||
-         (ku < 0) || (ku >= n) ||
-         (lda < (kl + ku + 1)) || (incx == 0) || (incy == 0)) {
-       BLAS_error(routine_name, 0, 0, NULL);
+      if (order != blas_colmajor && order != blas_rowmajor)
+       BLAS_error(routine_name, -1, order, NULL);
+      if (trans != blas_no_trans &&
+         trans != blas_trans && trans != blas_conj_trans) {
+       BLAS_error(routine_name, -2, trans, NULL);
       }
+      if (m < 0)
+       BLAS_error(routine_name, -3, m, NULL);
+      if (n < 0)
+       BLAS_error(routine_name, -4, n, NULL);
+      if (kl < 0 || kl >= m)
+       BLAS_error(routine_name, -5, kl, NULL);
+      if (ku < 0 || ku >= n)
+       BLAS_error(routine_name, -6, ku, NULL);
+      if (lda < kl + ku + 1)
+       BLAS_error(routine_name, -9, lda, NULL);
+      if (incx == 0)
+       BLAS_error(routine_name, -11, incx, NULL);
+      if (incy == 0)
+       BLAS_error(routine_name, -14, incy, NULL);
 
       if ((m == 0) || (n == 0) ||
          (((alpha_i[0] == 0.0 && alpha_i[1] == 0.0)
@@ -471,15 +493,26 @@ void BLAS_cgbmv_c_s_x(enum blas_order_type order, enum blas_trans_type trans,
       float y_elem[2];
       FPU_FIX_DECL;
 
-      if (((trans != blas_no_trans) &&
-          (trans != blas_trans) &&
-          (trans != blas_conj_trans)) ||
-         (m < 0) || (n < 0) ||
-         (kl < 0) || (kl >= m) ||
-         (ku < 0) || (ku >= n) ||
-         (lda < (kl + ku + 1)) || (incx == 0) || (incy == 0)) {
-       BLAS_error(routine_name, 0, 0, NULL);
+      if (order != blas_colmajor && order != blas_rowmajor)
+       BLAS_error(routine_name, -1, order, NULL);
+      if (trans != blas_no_trans &&
+         trans != blas_trans && trans != blas_conj_trans) {
+       BLAS_error(routine_name, -2, trans, NULL);
       }
+      if (m < 0)
+       BLAS_error(routine_name, -3, m, NULL);
+      if (n < 0)
+       BLAS_error(routine_name, -4, n, NULL);
+      if (kl < 0 || kl >= m)
+       BLAS_error(routine_name, -5, kl, NULL);
+      if (ku < 0 || ku >= n)
+       BLAS_error(routine_name, -6, ku, NULL);
+      if (lda < kl + ku + 1)
+       BLAS_error(routine_name, -9, lda, NULL);
+      if (incx == 0)
+       BLAS_error(routine_name, -11, incx, NULL);
+      if (incy == 0)
+       BLAS_error(routine_name, -14, incy, NULL);
 
       if ((m == 0) || (n == 0) ||
          (((alpha_i[0] == 0.0 && alpha_i[1] == 0.0)

diff --git a/XBLAS/src/gbmv/BLAS_cgbmv_s_c.c b/XBLAS/src/gbmv/BLAS_cgbmv_s_c.c
index aa1e3f8f38eb26fafc29b72d7d5d3a4447178c74..5057f432b3db5d32ec8d284fe965566c915b98a0 100644 (file)
--- a/XBLAS/src/gbmv/BLAS_cgbmv_s_c.c
+++ b/XBLAS/src/gbmv/BLAS_cgbmv_s_c.c
@@ -115,15 +115,26 @@ void BLAS_cgbmv_s_c(enum blas_order_type order, enum blas_trans_type trans,
   float y_elem[2];
 
 
-  if (((trans != blas_no_trans) &&
-       (trans != blas_trans) &&
-       (trans != blas_conj_trans)) ||
-      (m < 0) || (n < 0) ||
-      (kl < 0) || (kl >= m) ||
-      (ku < 0) || (ku >= n) ||
-      (lda < (kl + ku + 1)) || (incx == 0) || (incy == 0)) {
-    BLAS_error(routine_name, 0, 0, NULL);
+  if (order != blas_colmajor && order != blas_rowmajor)
+    BLAS_error(routine_name, -1, order, NULL);
+  if (trans != blas_no_trans &&
+      trans != blas_trans && trans != blas_conj_trans) {
+    BLAS_error(routine_name, -2, trans, NULL);
   }
+  if (m < 0)
+    BLAS_error(routine_name, -3, m, NULL);
+  if (n < 0)
+    BLAS_error(routine_name, -4, n, NULL);
+  if (kl < 0 || kl >= m)
+    BLAS_error(routine_name, -5, kl, NULL);
+  if (ku < 0 || ku >= n)
+    BLAS_error(routine_name, -6, ku, NULL);
+  if (lda < kl + ku + 1)
+    BLAS_error(routine_name, -9, lda, NULL);
+  if (incx == 0)
+    BLAS_error(routine_name, -11, incx, NULL);
+  if (incy == 0)
+    BLAS_error(routine_name, -14, incy, NULL);
 
   if ((m == 0) || (n == 0) ||
       (((alpha_i[0] == 0.0 && alpha_i[1] == 0.0)

diff --git a/XBLAS/src/gbmv/BLAS_cgbmv_s_c_x.c b/XBLAS/src/gbmv/BLAS_cgbmv_s_c_x.c
index 43e2838be5bf5d6d8cd0762524b93a0779d64546..3759f3edb69a290c08a21248a6da64d7cc3b4710 100644 (file)
--- a/XBLAS/src/gbmv/BLAS_cgbmv_s_c_x.c
+++ b/XBLAS/src/gbmv/BLAS_cgbmv_s_c_x.c
@@ -127,15 +127,26 @@ void BLAS_cgbmv_s_c_x(enum blas_order_type order, enum blas_trans_type trans,
       float y_elem[2];
 
 
-      if (((trans != blas_no_trans) &&
-          (trans != blas_trans) &&
-          (trans != blas_conj_trans)) ||
-         (m < 0) || (n < 0) ||
-         (kl < 0) || (kl >= m) ||
-         (ku < 0) || (ku >= n) ||
-         (lda < (kl + ku + 1)) || (incx == 0) || (incy == 0)) {
-       BLAS_error(routine_name, 0, 0, NULL);
+      if (order != blas_colmajor && order != blas_rowmajor)
+       BLAS_error(routine_name, -1, order, NULL);
+      if (trans != blas_no_trans &&
+         trans != blas_trans && trans != blas_conj_trans) {
+       BLAS_error(routine_name, -2, trans, NULL);
       }
+      if (m < 0)
+       BLAS_error(routine_name, -3, m, NULL);
+      if (n < 0)
+       BLAS_error(routine_name, -4, n, NULL);
+      if (kl < 0 || kl >= m)
+       BLAS_error(routine_name, -5, kl, NULL);
+      if (ku < 0 || ku >= n)
+       BLAS_error(routine_name, -6, ku, NULL);
+      if (lda < kl + ku + 1)
+       BLAS_error(routine_name, -9, lda, NULL);
+      if (incx == 0)
+       BLAS_error(routine_name, -11, incx, NULL);
+      if (incy == 0)
+       BLAS_error(routine_name, -14, incy, NULL);
 
       if ((m == 0) || (n == 0) ||
          (((alpha_i[0] == 0.0 && alpha_i[1] == 0.0)
@@ -283,15 +294,26 @@ void BLAS_cgbmv_s_c_x(enum blas_order_type order, enum blas_trans_type trans,
       float y_elem[2];
 
 
-      if (((trans != blas_no_trans) &&
-          (trans != blas_trans) &&
-          (trans != blas_conj_trans)) ||
-         (m < 0) || (n < 0) ||
-         (kl < 0) || (kl >= m) ||
-         (ku < 0) || (ku >= n) ||
-         (lda < (kl + ku + 1)) || (incx == 0) || (incy == 0)) {
-       BLAS_error(routine_name, 0, 0, NULL);
+      if (order != blas_colmajor && order != blas_rowmajor)
+       BLAS_error(routine_name, -1, order, NULL);
+      if (trans != blas_no_trans &&
+         trans != blas_trans && trans != blas_conj_trans) {
+       BLAS_error(routine_name, -2, trans, NULL);
       }
+      if (m < 0)
+       BLAS_error(routine_name, -3, m, NULL);
+      if (n < 0)
+       BLAS_error(routine_name, -4, n, NULL);
+      if (kl < 0 || kl >= m)
+       BLAS_error(routine_name, -5, kl, NULL);
+      if (ku < 0 || ku >= n)
+       BLAS_error(routine_name, -6, ku, NULL);
+      if (lda < kl + ku + 1)
+       BLAS_error(routine_name, -9, lda, NULL);
+      if (incx == 0)
+       BLAS_error(routine_name, -11, incx, NULL);
+      if (incy == 0)
+       BLAS_error(routine_name, -14, incy, NULL);
 
       if ((m == 0) || (n == 0) ||
          (((alpha_i[0] == 0.0 && alpha_i[1] == 0.0)
@@ -439,15 +461,26 @@ void BLAS_cgbmv_s_c_x(enum blas_order_type order, enum blas_trans_type trans,
       float y_elem[2];
       FPU_FIX_DECL;
 
-      if (((trans != blas_no_trans) &&
-          (trans != blas_trans) &&
-          (trans != blas_conj_trans)) ||
-         (m < 0) || (n < 0) ||
-         (kl < 0) || (kl >= m) ||
-         (ku < 0) || (ku >= n) ||
-         (lda < (kl + ku + 1)) || (incx == 0) || (incy == 0)) {
-       BLAS_error(routine_name, 0, 0, NULL);
+      if (order != blas_colmajor && order != blas_rowmajor)
+       BLAS_error(routine_name, -1, order, NULL);
+      if (trans != blas_no_trans &&
+         trans != blas_trans && trans != blas_conj_trans) {
+       BLAS_error(routine_name, -2, trans, NULL);
       }
+      if (m < 0)
+       BLAS_error(routine_name, -3, m, NULL);
+      if (n < 0)
+       BLAS_error(routine_name, -4, n, NULL);
+      if (kl < 0 || kl >= m)
+       BLAS_error(routine_name, -5, kl, NULL);
+      if (ku < 0 || ku >= n)
+       BLAS_error(routine_name, -6, ku, NULL);
+      if (lda < kl + ku + 1)
+       BLAS_error(routine_name, -9, lda, NULL);
+      if (incx == 0)
+       BLAS_error(routine_name, -11, incx, NULL);
+      if (incy == 0)
+       BLAS_error(routine_name, -14, incy, NULL);
 
       if ((m == 0) || (n == 0) ||
          (((alpha_i[0] == 0.0 && alpha_i[1] == 0.0)

diff --git a/XBLAS/src/gbmv/BLAS_cgbmv_s_s.c b/XBLAS/src/gbmv/BLAS_cgbmv_s_s.c
index 7e92614f2a8c145efe39e0d209002ecd77128fa1..c67810608fc0144b7e3d95f87c50c241eba24226 100644 (file)
--- a/XBLAS/src/gbmv/BLAS_cgbmv_s_s.c
+++ b/XBLAS/src/gbmv/BLAS_cgbmv_s_s.c
@@ -115,15 +115,26 @@ void BLAS_cgbmv_s_s(enum blas_order_type order, enum blas_trans_type trans,
   float y_elem[2];
 
 
-  if (((trans != blas_no_trans) &&
-       (trans != blas_trans) &&
-       (trans != blas_conj_trans)) ||
-      (m < 0) || (n < 0) ||
-      (kl < 0) || (kl >= m) ||
-      (ku < 0) || (ku >= n) ||
-      (lda < (kl + ku + 1)) || (incx == 0) || (incy == 0)) {
-    BLAS_error(routine_name, 0, 0, NULL);
+  if (order != blas_colmajor && order != blas_rowmajor)
+    BLAS_error(routine_name, -1, order, NULL);
+  if (trans != blas_no_trans &&
+      trans != blas_trans && trans != blas_conj_trans) {
+    BLAS_error(routine_name, -2, trans, NULL);
   }
+  if (m < 0)
+    BLAS_error(routine_name, -3, m, NULL);
+  if (n < 0)
+    BLAS_error(routine_name, -4, n, NULL);
+  if (kl < 0 || kl >= m)
+    BLAS_error(routine_name, -5, kl, NULL);
+  if (ku < 0 || ku >= n)
+    BLAS_error(routine_name, -6, ku, NULL);
+  if (lda < kl + ku + 1)
+    BLAS_error(routine_name, -9, lda, NULL);
+  if (incx == 0)
+    BLAS_error(routine_name, -11, incx, NULL);
+  if (incy == 0)
+    BLAS_error(routine_name, -14, incy, NULL);
 
   if ((m == 0) || (n == 0) ||
       (((alpha_i[0] == 0.0 && alpha_i[1] == 0.0)

diff --git a/XBLAS/src/gbmv/BLAS_cgbmv_s_s_x.c b/XBLAS/src/gbmv/BLAS_cgbmv_s_s_x.c
index d2303a5747139b5c36a972c183dfe01620ee8046..56ef195c2ffa282e3a9b2aa090edea6fd2eefa5b 100644 (file)
--- a/XBLAS/src/gbmv/BLAS_cgbmv_s_s_x.c
+++ b/XBLAS/src/gbmv/BLAS_cgbmv_s_s_x.c
@@ -127,15 +127,26 @@ void BLAS_cgbmv_s_s_x(enum blas_order_type order, enum blas_trans_type trans,
       float y_elem[2];
 
 
-      if (((trans != blas_no_trans) &&
-          (trans != blas_trans) &&
-          (trans != blas_conj_trans)) ||
-         (m < 0) || (n < 0) ||
-         (kl < 0) || (kl >= m) ||
-         (ku < 0) || (ku >= n) ||
-         (lda < (kl + ku + 1)) || (incx == 0) || (incy == 0)) {
-       BLAS_error(routine_name, 0, 0, NULL);
+      if (order != blas_colmajor && order != blas_rowmajor)
+       BLAS_error(routine_name, -1, order, NULL);
+      if (trans != blas_no_trans &&
+         trans != blas_trans && trans != blas_conj_trans) {
+       BLAS_error(routine_name, -2, trans, NULL);
       }
+      if (m < 0)
+       BLAS_error(routine_name, -3, m, NULL);
+      if (n < 0)
+       BLAS_error(routine_name, -4, n, NULL);
+      if (kl < 0 || kl >= m)
+       BLAS_error(routine_name, -5, kl, NULL);
+      if (ku < 0 || ku >= n)
+       BLAS_error(routine_name, -6, ku, NULL);
+      if (lda < kl + ku + 1)
+       BLAS_error(routine_name, -9, lda, NULL);
+      if (incx == 0)
+       BLAS_error(routine_name, -11, incx, NULL);
+      if (incy == 0)
+       BLAS_error(routine_name, -14, incy, NULL);
 
       if ((m == 0) || (n == 0) ||
          (((alpha_i[0] == 0.0 && alpha_i[1] == 0.0)
@@ -277,15 +288,26 @@ void BLAS_cgbmv_s_s_x(enum blas_order_type order, enum blas_trans_type trans,
       float y_elem[2];
 
 
-      if (((trans != blas_no_trans) &&
-          (trans != blas_trans) &&
-          (trans != blas_conj_trans)) ||
-         (m < 0) || (n < 0) ||
-         (kl < 0) || (kl >= m) ||
-         (ku < 0) || (ku >= n) ||
-         (lda < (kl + ku + 1)) || (incx == 0) || (incy == 0)) {
-       BLAS_error(routine_name, 0, 0, NULL);
+      if (order != blas_colmajor && order != blas_rowmajor)
+       BLAS_error(routine_name, -1, order, NULL);
+      if (trans != blas_no_trans &&
+         trans != blas_trans && trans != blas_conj_trans) {
+       BLAS_error(routine_name, -2, trans, NULL);
       }
+      if (m < 0)
+       BLAS_error(routine_name, -3, m, NULL);
+      if (n < 0)
+       BLAS_error(routine_name, -4, n, NULL);
+      if (kl < 0 || kl >= m)
+       BLAS_error(routine_name, -5, kl, NULL);
+      if (ku < 0 || ku >= n)
+       BLAS_error(routine_name, -6, ku, NULL);
+      if (lda < kl + ku + 1)
+       BLAS_error(routine_name, -9, lda, NULL);
+      if (incx == 0)
+       BLAS_error(routine_name, -11, incx, NULL);
+      if (incy == 0)
+       BLAS_error(routine_name, -14, incy, NULL);
 
       if ((m == 0) || (n == 0) ||
          (((alpha_i[0] == 0.0 && alpha_i[1] == 0.0)
@@ -426,15 +448,26 @@ void BLAS_cgbmv_s_s_x(enum blas_order_type order, enum blas_trans_type trans,
       float y_elem[2];
       FPU_FIX_DECL;
 
-      if (((trans != blas_no_trans) &&
-          (trans != blas_trans) &&
-          (trans != blas_conj_trans)) ||
-         (m < 0) || (n < 0) ||
-         (kl < 0) || (kl >= m) ||
-         (ku < 0) || (ku >= n) ||
-         (lda < (kl + ku + 1)) || (incx == 0) || (incy == 0)) {
-       BLAS_error(routine_name, 0, 0, NULL);
+      if (order != blas_colmajor && order != blas_rowmajor)
+       BLAS_error(routine_name, -1, order, NULL);
+      if (trans != blas_no_trans &&
+         trans != blas_trans && trans != blas_conj_trans) {
+       BLAS_error(routine_name, -2, trans, NULL);
       }
+      if (m < 0)
+       BLAS_error(routine_name, -3, m, NULL);
+      if (n < 0)
+       BLAS_error(routine_name, -4, n, NULL);
+      if (kl < 0 || kl >= m)
+       BLAS_error(routine_name, -5, kl, NULL);
+      if (ku < 0 || ku >= n)
+       BLAS_error(routine_name, -6, ku, NULL);
+      if (lda < kl + ku + 1)
+       BLAS_error(routine_name, -9, lda, NULL);
+      if (incx == 0)
+       BLAS_error(routine_name, -11, incx, NULL);
+      if (incy == 0)
+       BLAS_error(routine_name, -14, incy, NULL);
 
       if ((m == 0) || (n == 0) ||
          (((alpha_i[0] == 0.0 && alpha_i[1] == 0.0)

diff --git a/XBLAS/src/gbmv/BLAS_cgbmv_x.c b/XBLAS/src/gbmv/BLAS_cgbmv_x.c
index cb6bb91dd4286a9744f6187c31066c800884bf2d..2a7d2dd1111884399c301be15839633f46f604a6 100644 (file)
--- a/XBLAS/src/gbmv/BLAS_cgbmv_x.c
+++ b/XBLAS/src/gbmv/BLAS_cgbmv_x.c
@@ -127,15 +127,26 @@ void BLAS_cgbmv_x(enum blas_order_type order, enum blas_trans_type trans,
       float y_elem[2];
 
 
-      if (((trans != blas_no_trans) &&
-          (trans != blas_trans) &&
-          (trans != blas_conj_trans)) ||
-         (m < 0) || (n < 0) ||
-         (kl < 0) || (kl >= m) ||
-         (ku < 0) || (ku >= n) ||
-         (lda < (kl + ku + 1)) || (incx == 0) || (incy == 0)) {
-       BLAS_error(routine_name, 0, 0, NULL);
+      if (order != blas_colmajor && order != blas_rowmajor)
+       BLAS_error(routine_name, -1, order, NULL);
+      if (trans != blas_no_trans &&
+         trans != blas_trans && trans != blas_conj_trans) {
+       BLAS_error(routine_name, -2, trans, NULL);
       }
+      if (m < 0)
+       BLAS_error(routine_name, -3, m, NULL);
+      if (n < 0)
+       BLAS_error(routine_name, -4, n, NULL);
+      if (kl < 0 || kl >= m)
+       BLAS_error(routine_name, -5, kl, NULL);
+      if (ku < 0 || ku >= n)
+       BLAS_error(routine_name, -6, ku, NULL);
+      if (lda < kl + ku + 1)
+       BLAS_error(routine_name, -9, lda, NULL);
+      if (incx == 0)
+       BLAS_error(routine_name, -11, incx, NULL);
+      if (incy == 0)
+       BLAS_error(routine_name, -14, incy, NULL);
 
       if ((m == 0) || (n == 0) ||
          (((alpha_i[0] == 0.0 && alpha_i[1] == 0.0)
@@ -303,15 +314,26 @@ void BLAS_cgbmv_x(enum blas_order_type order, enum blas_trans_type trans,
       float y_elem[2];
 
 
-      if (((trans != blas_no_trans) &&
-          (trans != blas_trans) &&
-          (trans != blas_conj_trans)) ||
-         (m < 0) || (n < 0) ||
-         (kl < 0) || (kl >= m) ||
-         (ku < 0) || (ku >= n) ||
-         (lda < (kl + ku + 1)) || (incx == 0) || (incy == 0)) {
-       BLAS_error(routine_name, 0, 0, NULL);
+      if (order != blas_colmajor && order != blas_rowmajor)
+       BLAS_error(routine_name, -1, order, NULL);
+      if (trans != blas_no_trans &&
+         trans != blas_trans && trans != blas_conj_trans) {
+       BLAS_error(routine_name, -2, trans, NULL);
       }
+      if (m < 0)
+       BLAS_error(routine_name, -3, m, NULL);
+      if (n < 0)
+       BLAS_error(routine_name, -4, n, NULL);
+      if (kl < 0 || kl >= m)
+       BLAS_error(routine_name, -5, kl, NULL);
+      if (ku < 0 || ku >= n)
+       BLAS_error(routine_name, -6, ku, NULL);
+      if (lda < kl + ku + 1)
+       BLAS_error(routine_name, -9, lda, NULL);
+      if (incx == 0)
+       BLAS_error(routine_name, -11, incx, NULL);
+      if (incy == 0)
+       BLAS_error(routine_name, -14, incy, NULL);
 
       if ((m == 0) || (n == 0) ||
          (((alpha_i[0] == 0.0 && alpha_i[1] == 0.0)
@@ -485,15 +507,26 @@ void BLAS_cgbmv_x(enum blas_order_type order, enum blas_trans_type trans,
       float y_elem[2];
       FPU_FIX_DECL;
 
-      if (((trans != blas_no_trans) &&
-          (trans != blas_trans) &&
-          (trans != blas_conj_trans)) ||
-         (m < 0) || (n < 0) ||
-         (kl < 0) || (kl >= m) ||
-         (ku < 0) || (ku >= n) ||
-         (lda < (kl + ku + 1)) || (incx == 0) || (incy == 0)) {
-       BLAS_error(routine_name, 0, 0, NULL);
+      if (order != blas_colmajor && order != blas_rowmajor)
+       BLAS_error(routine_name, -1, order, NULL);
+      if (trans != blas_no_trans &&
+         trans != blas_trans && trans != blas_conj_trans) {
+       BLAS_error(routine_name, -2, trans, NULL);
       }
+      if (m < 0)
+       BLAS_error(routine_name, -3, m, NULL);
+      if (n < 0)
+       BLAS_error(routine_name, -4, n, NULL);
+      if (kl < 0 || kl >= m)
+       BLAS_error(routine_name, -5, kl, NULL);
+      if (ku < 0 || ku >= n)
+       BLAS_error(routine_name, -6, ku, NULL);
+      if (lda < kl + ku + 1)
+       BLAS_error(routine_name, -9, lda, NULL);
+      if (incx == 0)
+       BLAS_error(routine_name, -11, incx, NULL);
+      if (incy == 0)
+       BLAS_error(routine_name, -14, incy, NULL);
 
       if ((m == 0) || (n == 0) ||
          (((alpha_i[0] == 0.0 && alpha_i[1] == 0.0)

diff --git a/XBLAS/src/gbmv/BLAS_dgbmv_d_s.c b/XBLAS/src/gbmv/BLAS_dgbmv_d_s.c
index eda9b1d30eaac319cb33e267057f30afca993b7d..dc389d27b908130b4454942ce1360d3685c317c7 100644 (file)
--- a/XBLAS/src/gbmv/BLAS_dgbmv_d_s.c
+++ b/XBLAS/src/gbmv/BLAS_dgbmv_d_s.c
@@ -115,15 +115,26 @@ void BLAS_dgbmv_d_s(enum blas_order_type order, enum blas_trans_type trans,
   double y_elem;
 
 
-  if (((trans != blas_no_trans) &&
-       (trans != blas_trans) &&
-       (trans != blas_conj_trans)) ||
-      (m < 0) || (n < 0) ||
-      (kl < 0) || (kl >= m) ||
-      (ku < 0) || (ku >= n) ||
-      (lda < (kl + ku + 1)) || (incx == 0) || (incy == 0)) {
-    BLAS_error(routine_name, 0, 0, NULL);
+  if (order != blas_colmajor && order != blas_rowmajor)
+    BLAS_error(routine_name, -1, order, NULL);
+  if (trans != blas_no_trans &&
+      trans != blas_trans && trans != blas_conj_trans) {
+    BLAS_error(routine_name, -2, trans, NULL);
   }
+  if (m < 0)
+    BLAS_error(routine_name, -3, m, NULL);
+  if (n < 0)
+    BLAS_error(routine_name, -4, n, NULL);
+  if (kl < 0 || kl >= m)
+    BLAS_error(routine_name, -5, kl, NULL);
+  if (ku < 0 || ku >= n)
+    BLAS_error(routine_name, -6, ku, NULL);
+  if (lda < kl + ku + 1)
+    BLAS_error(routine_name, -9, lda, NULL);
+  if (incx == 0)
+    BLAS_error(routine_name, -11, incx, NULL);
+  if (incy == 0)
+    BLAS_error(routine_name, -14, incy, NULL);
 
   if ((m == 0) || (n == 0) || (((alpha_i == 0.0) && (beta_i == 1.0))))
     return;

diff --git a/XBLAS/src/gbmv/BLAS_dgbmv_d_s_x.c b/XBLAS/src/gbmv/BLAS_dgbmv_d_s_x.c
index face39131d2d67be2cfcbb68c2ca490872c0f7c9..6adb16ed5371ffcf6bb26b48a430f628d718dc9c 100644 (file)
--- a/XBLAS/src/gbmv/BLAS_dgbmv_d_s_x.c
+++ b/XBLAS/src/gbmv/BLAS_dgbmv_d_s_x.c
@@ -129,15 +129,26 @@ void BLAS_dgbmv_d_s_x(enum blas_order_type order, enum blas_trans_type trans,
       double y_elem;
 
 
-      if (((trans != blas_no_trans) &&
-          (trans != blas_trans) &&
-          (trans != blas_conj_trans)) ||
-         (m < 0) || (n < 0) ||
-         (kl < 0) || (kl >= m) ||
-         (ku < 0) || (ku >= n) ||
-         (lda < (kl + ku + 1)) || (incx == 0) || (incy == 0)) {
-       BLAS_error(routine_name, 0, 0, NULL);
+      if (order != blas_colmajor && order != blas_rowmajor)
+       BLAS_error(routine_name, -1, order, NULL);
+      if (trans != blas_no_trans &&
+         trans != blas_trans && trans != blas_conj_trans) {
+       BLAS_error(routine_name, -2, trans, NULL);
       }
+      if (m < 0)
+       BLAS_error(routine_name, -3, m, NULL);
+      if (n < 0)
+       BLAS_error(routine_name, -4, n, NULL);
+      if (kl < 0 || kl >= m)
+       BLAS_error(routine_name, -5, kl, NULL);
+      if (ku < 0 || ku >= n)
+       BLAS_error(routine_name, -6, ku, NULL);
+      if (lda < kl + ku + 1)
+       BLAS_error(routine_name, -9, lda, NULL);
+      if (incx == 0)
+       BLAS_error(routine_name, -11, incx, NULL);
+      if (incy == 0)
+       BLAS_error(routine_name, -14, incy, NULL);
 
       if ((m == 0) || (n == 0) || (((alpha_i == 0.0) && (beta_i == 1.0))))
        return;
@@ -265,15 +276,26 @@ void BLAS_dgbmv_d_s_x(enum blas_order_type order, enum blas_trans_type trans,
       double y_elem;
       FPU_FIX_DECL;
 
-      if (((trans != blas_no_trans) &&
-          (trans != blas_trans) &&
-          (trans != blas_conj_trans)) ||
-         (m < 0) || (n < 0) ||
-         (kl < 0) || (kl >= m) ||
-         (ku < 0) || (ku >= n) ||
-         (lda < (kl + ku + 1)) || (incx == 0) || (incy == 0)) {
-       BLAS_error(routine_name, 0, 0, NULL);
+      if (order != blas_colmajor && order != blas_rowmajor)
+       BLAS_error(routine_name, -1, order, NULL);
+      if (trans != blas_no_trans &&
+         trans != blas_trans && trans != blas_conj_trans) {
+       BLAS_error(routine_name, -2, trans, NULL);
       }
+      if (m < 0)
+       BLAS_error(routine_name, -3, m, NULL);
+      if (n < 0)
+       BLAS_error(routine_name, -4, n, NULL);
+      if (kl < 0 || kl >= m)
+       BLAS_error(routine_name, -5, kl, NULL);
+      if (ku < 0 || ku >= n)
+       BLAS_error(routine_name, -6, ku, NULL);
+      if (lda < kl + ku + 1)
+       BLAS_error(routine_name, -9, lda, NULL);
+      if (incx == 0)
+       BLAS_error(routine_name, -11, incx, NULL);
+      if (incy == 0)
+       BLAS_error(routine_name, -14, incy, NULL);
 
       if ((m == 0) || (n == 0) || (((alpha_i == 0.0) && (beta_i == 1.0))))
        return;

diff --git a/XBLAS/src/gbmv/BLAS_dgbmv_s_d.c b/XBLAS/src/gbmv/BLAS_dgbmv_s_d.c
index a3148b355df48df6faaf54eb0cbe741b9b425cde..c742c04b0537b5e89dc731d429a9e7ece054ca78 100644 (file)
--- a/XBLAS/src/gbmv/BLAS_dgbmv_s_d.c
+++ b/XBLAS/src/gbmv/BLAS_dgbmv_s_d.c
@@ -115,15 +115,26 @@ void BLAS_dgbmv_s_d(enum blas_order_type order, enum blas_trans_type trans,
   double y_elem;
 
 
-  if (((trans != blas_no_trans) &&
-       (trans != blas_trans) &&
-       (trans != blas_conj_trans)) ||
-      (m < 0) || (n < 0) ||
-      (kl < 0) || (kl >= m) ||
-      (ku < 0) || (ku >= n) ||
-      (lda < (kl + ku + 1)) || (incx == 0) || (incy == 0)) {
-    BLAS_error(routine_name, 0, 0, NULL);
+  if (order != blas_colmajor && order != blas_rowmajor)
+    BLAS_error(routine_name, -1, order, NULL);
+  if (trans != blas_no_trans &&
+      trans != blas_trans && trans != blas_conj_trans) {
+    BLAS_error(routine_name, -2, trans, NULL);
   }
+  if (m < 0)
+    BLAS_error(routine_name, -3, m, NULL);
+  if (n < 0)
+    BLAS_error(routine_name, -4, n, NULL);
+  if (kl < 0 || kl >= m)
+    BLAS_error(routine_name, -5, kl, NULL);
+  if (ku < 0 || ku >= n)
+    BLAS_error(routine_name, -6, ku, NULL);
+  if (lda < kl + ku + 1)
+    BLAS_error(routine_name, -9, lda, NULL);
+  if (incx == 0)
+    BLAS_error(routine_name, -11, incx, NULL);
+  if (incy == 0)
+    BLAS_error(routine_name, -14, incy, NULL);
 
   if ((m == 0) || (n == 0) || (((alpha_i == 0.0) && (beta_i == 1.0))))
     return;

diff --git a/XBLAS/src/gbmv/BLAS_dgbmv_s_d_x.c b/XBLAS/src/gbmv/BLAS_dgbmv_s_d_x.c
index e5aadf24f8803d902438c2b528277bdfeb731031..d6cdf0a03558476e82ae897a3929f605661fac3a 100644 (file)
--- a/XBLAS/src/gbmv/BLAS_dgbmv_s_d_x.c
+++ b/XBLAS/src/gbmv/BLAS_dgbmv_s_d_x.c
@@ -129,15 +129,26 @@ void BLAS_dgbmv_s_d_x(enum blas_order_type order, enum blas_trans_type trans,
       double y_elem;
 
 
-      if (((trans != blas_no_trans) &&
-          (trans != blas_trans) &&
-          (trans != blas_conj_trans)) ||
-         (m < 0) || (n < 0) ||
-         (kl < 0) || (kl >= m) ||
-         (ku < 0) || (ku >= n) ||
-         (lda < (kl + ku + 1)) || (incx == 0) || (incy == 0)) {
-       BLAS_error(routine_name, 0, 0, NULL);
+      if (order != blas_colmajor && order != blas_rowmajor)
+       BLAS_error(routine_name, -1, order, NULL);
+      if (trans != blas_no_trans &&
+         trans != blas_trans && trans != blas_conj_trans) {
+       BLAS_error(routine_name, -2, trans, NULL);
       }
+      if (m < 0)
+       BLAS_error(routine_name, -3, m, NULL);
+      if (n < 0)
+       BLAS_error(routine_name, -4, n, NULL);
+      if (kl < 0 || kl >= m)
+       BLAS_error(routine_name, -5, kl, NULL);
+      if (ku < 0 || ku >= n)
+       BLAS_error(routine_name, -6, ku, NULL);
+      if (lda < kl + ku + 1)
+       BLAS_error(routine_name, -9, lda, NULL);
+      if (incx == 0)
+       BLAS_error(routine_name, -11, incx, NULL);
+      if (incy == 0)
+       BLAS_error(routine_name, -14, incy, NULL);
 
       if ((m == 0) || (n == 0) || (((alpha_i == 0.0) && (beta_i == 1.0))))
        return;
@@ -265,15 +276,26 @@ void BLAS_dgbmv_s_d_x(enum blas_order_type order, enum blas_trans_type trans,
       double y_elem;
       FPU_FIX_DECL;
 
-      if (((trans != blas_no_trans) &&
-          (trans != blas_trans) &&
-          (trans != blas_conj_trans)) ||
-         (m < 0) || (n < 0) ||
-         (kl < 0) || (kl >= m) ||
-         (ku < 0) || (ku >= n) ||
-         (lda < (kl + ku + 1)) || (incx == 0) || (incy == 0)) {
-       BLAS_error(routine_name, 0, 0, NULL);
+      if (order != blas_colmajor && order != blas_rowmajor)
+       BLAS_error(routine_name, -1, order, NULL);
+      if (trans != blas_no_trans &&
+         trans != blas_trans && trans != blas_conj_trans) {
+       BLAS_error(routine_name, -2, trans, NULL);
       }
+      if (m < 0)
+       BLAS_error(routine_name, -3, m, NULL);
+      if (n < 0)
+       BLAS_error(routine_name, -4, n, NULL);
+      if (kl < 0 || kl >= m)
+       BLAS_error(routine_name, -5, kl, NULL);
+      if (ku < 0 || ku >= n)
+       BLAS_error(routine_name, -6, ku, NULL);
+      if (lda < kl + ku + 1)
+       BLAS_error(routine_name, -9, lda, NULL);
+      if (incx == 0)
+       BLAS_error(routine_name, -11, incx, NULL);
+      if (incy == 0)
+       BLAS_error(routine_name, -14, incy, NULL);
 
       if ((m == 0) || (n == 0) || (((alpha_i == 0.0) && (beta_i == 1.0))))
        return;

diff --git a/XBLAS/src/gbmv/BLAS_dgbmv_s_s.c b/XBLAS/src/gbmv/BLAS_dgbmv_s_s.c
index d1a5e3704aacb2aa7afa2c4b11df60312f41d42e..0af1b61fdfac7ac7a6f39a67a579b7d85848bdb7 100644 (file)
--- a/XBLAS/src/gbmv/BLAS_dgbmv_s_s.c
+++ b/XBLAS/src/gbmv/BLAS_dgbmv_s_s.c
@@ -115,15 +115,26 @@ void BLAS_dgbmv_s_s(enum blas_order_type order, enum blas_trans_type trans,
   double y_elem;
 
 
-  if (((trans != blas_no_trans) &&
-       (trans != blas_trans) &&
-       (trans != blas_conj_trans)) ||
-      (m < 0) || (n < 0) ||
-      (kl < 0) || (kl >= m) ||
-      (ku < 0) || (ku >= n) ||
-      (lda < (kl + ku + 1)) || (incx == 0) || (incy == 0)) {
-    BLAS_error(routine_name, 0, 0, NULL);
+  if (order != blas_colmajor && order != blas_rowmajor)
+    BLAS_error(routine_name, -1, order, NULL);
+  if (trans != blas_no_trans &&
+      trans != blas_trans && trans != blas_conj_trans) {
+    BLAS_error(routine_name, -2, trans, NULL);
   }
+  if (m < 0)
+    BLAS_error(routine_name, -3, m, NULL);
+  if (n < 0)
+    BLAS_error(routine_name, -4, n, NULL);
+  if (kl < 0 || kl >= m)
+    BLAS_error(routine_name, -5, kl, NULL);
+  if (ku < 0 || ku >= n)
+    BLAS_error(routine_name, -6, ku, NULL);
+  if (lda < kl + ku + 1)
+    BLAS_error(routine_name, -9, lda, NULL);
+  if (incx == 0)
+    BLAS_error(routine_name, -11, incx, NULL);
+  if (incy == 0)
+    BLAS_error(routine_name, -14, incy, NULL);
 
   if ((m == 0) || (n == 0) || (((alpha_i == 0.0) && (beta_i == 1.0))))
     return;

diff --git a/XBLAS/src/gbmv/BLAS_dgbmv_s_s_x.c b/XBLAS/src/gbmv/BLAS_dgbmv_s_s_x.c
index 4dd4662b62c61f3caec06c701dfc3573c756bd1f..3b90d491a80ecbab441e89c542794712dac596ff 100644 (file)
--- a/XBLAS/src/gbmv/BLAS_dgbmv_s_s_x.c
+++ b/XBLAS/src/gbmv/BLAS_dgbmv_s_s_x.c
@@ -129,15 +129,26 @@ void BLAS_dgbmv_s_s_x(enum blas_order_type order, enum blas_trans_type trans,
       double y_elem;
 
 
-      if (((trans != blas_no_trans) &&
-          (trans != blas_trans) &&
-          (trans != blas_conj_trans)) ||
-         (m < 0) || (n < 0) ||
-         (kl < 0) || (kl >= m) ||
-         (ku < 0) || (ku >= n) ||
-         (lda < (kl + ku + 1)) || (incx == 0) || (incy == 0)) {
-       BLAS_error(routine_name, 0, 0, NULL);
+      if (order != blas_colmajor && order != blas_rowmajor)
+       BLAS_error(routine_name, -1, order, NULL);
+      if (trans != blas_no_trans &&
+         trans != blas_trans && trans != blas_conj_trans) {
+       BLAS_error(routine_name, -2, trans, NULL);
       }
+      if (m < 0)
+       BLAS_error(routine_name, -3, m, NULL);
+      if (n < 0)
+       BLAS_error(routine_name, -4, n, NULL);
+      if (kl < 0 || kl >= m)
+       BLAS_error(routine_name, -5, kl, NULL);
+      if (ku < 0 || ku >= n)
+       BLAS_error(routine_name, -6, ku, NULL);
+      if (lda < kl + ku + 1)
+       BLAS_error(routine_name, -9, lda, NULL);
+      if (incx == 0)
+       BLAS_error(routine_name, -11, incx, NULL);
+      if (incy == 0)
+       BLAS_error(routine_name, -14, incy, NULL);
 
       if ((m == 0) || (n == 0) || (((alpha_i == 0.0) && (beta_i == 1.0))))
        return;
@@ -265,15 +276,26 @@ void BLAS_dgbmv_s_s_x(enum blas_order_type order, enum blas_trans_type trans,
       double y_elem;
       FPU_FIX_DECL;
 
-      if (((trans != blas_no_trans) &&
-          (trans != blas_trans) &&
-          (trans != blas_conj_trans)) ||
-         (m < 0) || (n < 0) ||
-         (kl < 0) || (kl >= m) ||
-         (ku < 0) || (ku >= n) ||
-         (lda < (kl + ku + 1)) || (incx == 0) || (incy == 0)) {
-       BLAS_error(routine_name, 0, 0, NULL);
+      if (order != blas_colmajor && order != blas_rowmajor)
+       BLAS_error(routine_name, -1, order, NULL);
+      if (trans != blas_no_trans &&
+         trans != blas_trans && trans != blas_conj_trans) {
+       BLAS_error(routine_name, -2, trans, NULL);
       }
+      if (m < 0)
+       BLAS_error(routine_name, -3, m, NULL);
+      if (n < 0)
+       BLAS_error(routine_name, -4, n, NULL);
+      if (kl < 0 || kl >= m)
+       BLAS_error(routine_name, -5, kl, NULL);
+      if (ku < 0 || ku >= n)
+       BLAS_error(routine_name, -6, ku, NULL);
+      if (lda < kl + ku + 1)
+       BLAS_error(routine_name, -9, lda, NULL);
+      if (incx == 0)
+       BLAS_error(routine_name, -11, incx, NULL);
+      if (incy == 0)
+       BLAS_error(routine_name, -14, incy, NULL);
 
       if ((m == 0) || (n == 0) || (((alpha_i == 0.0) && (beta_i == 1.0))))
        return;

diff --git a/XBLAS/src/gbmv/BLAS_dgbmv_x.c b/XBLAS/src/gbmv/BLAS_dgbmv_x.c
index 1c584346cda83ff518f3bd83926321f505ec2bab..896735b83ccbe3a8c9cf433908a39674d3f591d8 100644 (file)
--- a/XBLAS/src/gbmv/BLAS_dgbmv_x.c
+++ b/XBLAS/src/gbmv/BLAS_dgbmv_x.c
@@ -128,15 +128,26 @@ void BLAS_dgbmv_x(enum blas_order_type order, enum blas_trans_type trans,
       double y_elem;
 
 
-      if (((trans != blas_no_trans) &&
-          (trans != blas_trans) &&
-          (trans != blas_conj_trans)) ||
-         (m < 0) || (n < 0) ||
-         (kl < 0) || (kl >= m) ||
-         (ku < 0) || (ku >= n) ||
-         (lda < (kl + ku + 1)) || (incx == 0) || (incy == 0)) {
-       BLAS_error(routine_name, 0, 0, NULL);
+      if (order != blas_colmajor && order != blas_rowmajor)
+       BLAS_error(routine_name, -1, order, NULL);
+      if (trans != blas_no_trans &&
+         trans != blas_trans && trans != blas_conj_trans) {
+       BLAS_error(routine_name, -2, trans, NULL);
       }
+      if (m < 0)
+       BLAS_error(routine_name, -3, m, NULL);
+      if (n < 0)
+       BLAS_error(routine_name, -4, n, NULL);
+      if (kl < 0 || kl >= m)
+       BLAS_error(routine_name, -5, kl, NULL);
+      if (ku < 0 || ku >= n)
+       BLAS_error(routine_name, -6, ku, NULL);
+      if (lda < kl + ku + 1)
+       BLAS_error(routine_name, -9, lda, NULL);
+      if (incx == 0)
+       BLAS_error(routine_name, -11, incx, NULL);
+      if (incy == 0)
+       BLAS_error(routine_name, -14, incy, NULL);
 
       if ((m == 0) || (n == 0) || (((alpha_i == 0.0) && (beta_i == 1.0))))
        return;
@@ -264,15 +275,26 @@ void BLAS_dgbmv_x(enum blas_order_type order, enum blas_trans_type trans,
       double y_elem;
       FPU_FIX_DECL;
 
-      if (((trans != blas_no_trans) &&
-          (trans != blas_trans) &&
-          (trans != blas_conj_trans)) ||
-         (m < 0) || (n < 0) ||
-         (kl < 0) || (kl >= m) ||
-         (ku < 0) || (ku >= n) ||
-         (lda < (kl + ku + 1)) || (incx == 0) || (incy == 0)) {
-       BLAS_error(routine_name, 0, 0, NULL);
+      if (order != blas_colmajor && order != blas_rowmajor)
+       BLAS_error(routine_name, -1, order, NULL);
+      if (trans != blas_no_trans &&
+         trans != blas_trans && trans != blas_conj_trans) {
+       BLAS_error(routine_name, -2, trans, NULL);
       }
+      if (m < 0)
+       BLAS_error(routine_name, -3, m, NULL);
+      if (n < 0)
+       BLAS_error(routine_name, -4, n, NULL);
+      if (kl < 0 || kl >= m)
+       BLAS_error(routine_name, -5, kl, NULL);
+      if (ku < 0 || ku >= n)
+       BLAS_error(routine_name, -6, ku, NULL);
+      if (lda < kl + ku + 1)
+       BLAS_error(routine_name, -9, lda, NULL);
+      if (incx == 0)
+       BLAS_error(routine_name, -11, incx, NULL);
+      if (incy == 0)
+       BLAS_error(routine_name, -14, incy, NULL);
 
       if ((m == 0) || (n == 0) || (((alpha_i == 0.0) && (beta_i == 1.0))))
        return;

diff --git a/XBLAS/src/gbmv/BLAS_sgbmv_x.c b/XBLAS/src/gbmv/BLAS_sgbmv_x.c
index ab162d4d187c06ca8fcecb1e845f0ba964db82cb..c28b1a5111f25bb9f45694868a2cd479ee514932 100644 (file)
--- a/XBLAS/src/gbmv/BLAS_sgbmv_x.c
+++ b/XBLAS/src/gbmv/BLAS_sgbmv_x.c
@@ -126,15 +126,26 @@ void BLAS_sgbmv_x(enum blas_order_type order, enum blas_trans_type trans,
       float y_elem;
 
 
-      if (((trans != blas_no_trans) &&
-          (trans != blas_trans) &&
-          (trans != blas_conj_trans)) ||
-         (m < 0) || (n < 0) ||
-         (kl < 0) || (kl >= m) ||
-         (ku < 0) || (ku >= n) ||
-         (lda < (kl + ku + 1)) || (incx == 0) || (incy == 0)) {
-       BLAS_error(routine_name, 0, 0, NULL);
+      if (order != blas_colmajor && order != blas_rowmajor)
+       BLAS_error(routine_name, -1, order, NULL);
+      if (trans != blas_no_trans &&
+         trans != blas_trans && trans != blas_conj_trans) {
+       BLAS_error(routine_name, -2, trans, NULL);
       }
+      if (m < 0)
+       BLAS_error(routine_name, -3, m, NULL);
+      if (n < 0)
+       BLAS_error(routine_name, -4, n, NULL);
+      if (kl < 0 || kl >= m)
+       BLAS_error(routine_name, -5, kl, NULL);
+      if (ku < 0 || ku >= n)
+       BLAS_error(routine_name, -6, ku, NULL);
+      if (lda < kl + ku + 1)
+       BLAS_error(routine_name, -9, lda, NULL);
+      if (incx == 0)
+       BLAS_error(routine_name, -11, incx, NULL);
+      if (incy == 0)
+       BLAS_error(routine_name, -14, incy, NULL);
 
       if ((m == 0) || (n == 0) || (((alpha_i == 0.0) && (beta_i == 1.0))))
        return;
@@ -264,15 +275,26 @@ void BLAS_sgbmv_x(enum blas_order_type order, enum blas_trans_type trans,
       float y_elem;
 
 
-      if (((trans != blas_no_trans) &&
-          (trans != blas_trans) &&
-          (trans != blas_conj_trans)) ||
-         (m < 0) || (n < 0) ||
-         (kl < 0) || (kl >= m) ||
-         (ku < 0) || (ku >= n) ||
-         (lda < (kl + ku + 1)) || (incx == 0) || (incy == 0)) {
-       BLAS_error(routine_name, 0, 0, NULL);
+      if (order != blas_colmajor && order != blas_rowmajor)
+       BLAS_error(routine_name, -1, order, NULL);
+      if (trans != blas_no_trans &&
+         trans != blas_trans && trans != blas_conj_trans) {
+       BLAS_error(routine_name, -2, trans, NULL);
       }
+      if (m < 0)
+       BLAS_error(routine_name, -3, m, NULL);
+      if (n < 0)
+       BLAS_error(routine_name, -4, n, NULL);
+      if (kl < 0 || kl >= m)
+       BLAS_error(routine_name, -5, kl, NULL);
+      if (ku < 0 || ku >= n)
+       BLAS_error(routine_name, -6, ku, NULL);
+      if (lda < kl + ku + 1)
+       BLAS_error(routine_name, -9, lda, NULL);
+      if (incx == 0)
+       BLAS_error(routine_name, -11, incx, NULL);
+      if (incy == 0)
+       BLAS_error(routine_name, -14, incy, NULL);
 
       if ((m == 0) || (n == 0) || (((alpha_i == 0.0) && (beta_i == 1.0))))
        return;
@@ -400,15 +422,26 @@ void BLAS_sgbmv_x(enum blas_order_type order, enum blas_trans_type trans,
       float y_elem;
       FPU_FIX_DECL;
 
-      if (((trans != blas_no_trans) &&
-          (trans != blas_trans) &&
-          (trans != blas_conj_trans)) ||
-         (m < 0) || (n < 0) ||
-         (kl < 0) || (kl >= m) ||
-         (ku < 0) || (ku >= n) ||
-         (lda < (kl + ku + 1)) || (incx == 0) || (incy == 0)) {
-       BLAS_error(routine_name, 0, 0, NULL);
+      if (order != blas_colmajor && order != blas_rowmajor)
+       BLAS_error(routine_name, -1, order, NULL);
+      if (trans != blas_no_trans &&
+         trans != blas_trans && trans != blas_conj_trans) {
+       BLAS_error(routine_name, -2, trans, NULL);
       }
+      if (m < 0)
+       BLAS_error(routine_name, -3, m, NULL);
+      if (n < 0)
+       BLAS_error(routine_name, -4, n, NULL);
+      if (kl < 0 || kl >= m)
+       BLAS_error(routine_name, -5, kl, NULL);
+      if (ku < 0 || ku >= n)
+       BLAS_error(routine_name, -6, ku, NULL);
+      if (lda < kl + ku + 1)
+       BLAS_error(routine_name, -9, lda, NULL);
+      if (incx == 0)
+       BLAS_error(routine_name, -11, incx, NULL);
+      if (incy == 0)
+       BLAS_error(routine_name, -14, incy, NULL);
 
       if ((m == 0) || (n == 0) || (((alpha_i == 0.0) && (beta_i == 1.0))))
        return;

diff --git a/XBLAS/src/gbmv/BLAS_zgbmv_c_c.c b/XBLAS/src/gbmv/BLAS_zgbmv_c_c.c
index 3ac33fffaab24a65c847a5975663744bc7fbe9d5..20683a40d74aad5c84ac919f70e5d1999e6f6fe2 100644 (file)
--- a/XBLAS/src/gbmv/BLAS_zgbmv_c_c.c
+++ b/XBLAS/src/gbmv/BLAS_zgbmv_c_c.c
@@ -115,15 +115,26 @@ void BLAS_zgbmv_c_c(enum blas_order_type order, enum blas_trans_type trans,
   double y_elem[2];
 
 
-  if (((trans != blas_no_trans) &&
-       (trans != blas_trans) &&
-       (trans != blas_conj_trans)) ||
-      (m < 0) || (n < 0) ||
-      (kl < 0) || (kl >= m) ||
-      (ku < 0) || (ku >= n) ||
-      (lda < (kl + ku + 1)) || (incx == 0) || (incy == 0)) {
-    BLAS_error(routine_name, 0, 0, NULL);
+  if (order != blas_colmajor && order != blas_rowmajor)
+    BLAS_error(routine_name, -1, order, NULL);
+  if (trans != blas_no_trans &&
+      trans != blas_trans && trans != blas_conj_trans) {
+    BLAS_error(routine_name, -2, trans, NULL);
   }
+  if (m < 0)
+    BLAS_error(routine_name, -3, m, NULL);
+  if (n < 0)
+    BLAS_error(routine_name, -4, n, NULL);
+  if (kl < 0 || kl >= m)
+    BLAS_error(routine_name, -5, kl, NULL);
+  if (ku < 0 || ku >= n)
+    BLAS_error(routine_name, -6, ku, NULL);
+  if (lda < kl + ku + 1)
+    BLAS_error(routine_name, -9, lda, NULL);
+  if (incx == 0)
+    BLAS_error(routine_name, -11, incx, NULL);
+  if (incy == 0)
+    BLAS_error(routine_name, -14, incy, NULL);
 
   if ((m == 0) || (n == 0) ||
       (((alpha_i[0] == 0.0 && alpha_i[1] == 0.0)

diff --git a/XBLAS/src/gbmv/BLAS_zgbmv_c_c_x.c b/XBLAS/src/gbmv/BLAS_zgbmv_c_c_x.c
index 7cd65d951e5153aaab6f718c8db982c4c6aeb78e..10a7285c1f707a09924470aaf70d090b99ead559 100644 (file)
--- a/XBLAS/src/gbmv/BLAS_zgbmv_c_c_x.c
+++ b/XBLAS/src/gbmv/BLAS_zgbmv_c_c_x.c
@@ -129,15 +129,26 @@ void BLAS_zgbmv_c_c_x(enum blas_order_type order, enum blas_trans_type trans,
       double y_elem[2];
 
 
-      if (((trans != blas_no_trans) &&
-          (trans != blas_trans) &&
-          (trans != blas_conj_trans)) ||
-         (m < 0) || (n < 0) ||
-         (kl < 0) || (kl >= m) ||
-         (ku < 0) || (ku >= n) ||
-         (lda < (kl + ku + 1)) || (incx == 0) || (incy == 0)) {
-       BLAS_error(routine_name, 0, 0, NULL);
+      if (order != blas_colmajor && order != blas_rowmajor)
+       BLAS_error(routine_name, -1, order, NULL);
+      if (trans != blas_no_trans &&
+         trans != blas_trans && trans != blas_conj_trans) {
+       BLAS_error(routine_name, -2, trans, NULL);
       }
+      if (m < 0)
+       BLAS_error(routine_name, -3, m, NULL);
+      if (n < 0)
+       BLAS_error(routine_name, -4, n, NULL);
+      if (kl < 0 || kl >= m)
+       BLAS_error(routine_name, -5, kl, NULL);
+      if (ku < 0 || ku >= n)
+       BLAS_error(routine_name, -6, ku, NULL);
+      if (lda < kl + ku + 1)
+       BLAS_error(routine_name, -9, lda, NULL);
+      if (incx == 0)
+       BLAS_error(routine_name, -11, incx, NULL);
+      if (incy == 0)
+       BLAS_error(routine_name, -14, incy, NULL);
 
       if ((m == 0) || (n == 0) ||
          (((alpha_i[0] == 0.0 && alpha_i[1] == 0.0)
@@ -311,15 +322,26 @@ void BLAS_zgbmv_c_c_x(enum blas_order_type order, enum blas_trans_type trans,
       double y_elem[2];
       FPU_FIX_DECL;
 
-      if (((trans != blas_no_trans) &&
-          (trans != blas_trans) &&
-          (trans != blas_conj_trans)) ||
-         (m < 0) || (n < 0) ||
-         (kl < 0) || (kl >= m) ||
-         (ku < 0) || (ku >= n) ||
-         (lda < (kl + ku + 1)) || (incx == 0) || (incy == 0)) {
-       BLAS_error(routine_name, 0, 0, NULL);
+      if (order != blas_colmajor && order != blas_rowmajor)
+       BLAS_error(routine_name, -1, order, NULL);
+      if (trans != blas_no_trans &&
+         trans != blas_trans && trans != blas_conj_trans) {
+       BLAS_error(routine_name, -2, trans, NULL);
       }
+      if (m < 0)
+       BLAS_error(routine_name, -3, m, NULL);
+      if (n < 0)
+       BLAS_error(routine_name, -4, n, NULL);
+      if (kl < 0 || kl >= m)
+       BLAS_error(routine_name, -5, kl, NULL);
+      if (ku < 0 || ku >= n)
+       BLAS_error(routine_name, -6, ku, NULL);
+      if (lda < kl + ku + 1)
+       BLAS_error(routine_name, -9, lda, NULL);
+      if (incx == 0)
+       BLAS_error(routine_name, -11, incx, NULL);
+      if (incy == 0)
+       BLAS_error(routine_name, -14, incy, NULL);
 
       if ((m == 0) || (n == 0) ||
          (((alpha_i[0] == 0.0 && alpha_i[1] == 0.0)

diff --git a/XBLAS/src/gbmv/BLAS_zgbmv_c_z.c b/XBLAS/src/gbmv/BLAS_zgbmv_c_z.c
index 15ef35eb616c11673763764caa6e647e60f91aff..e4a770e6fca89c89e553b0ea31f1520764badbaf 100644 (file)
--- a/XBLAS/src/gbmv/BLAS_zgbmv_c_z.c
+++ b/XBLAS/src/gbmv/BLAS_zgbmv_c_z.c
@@ -115,15 +115,26 @@ void BLAS_zgbmv_c_z(enum blas_order_type order, enum blas_trans_type trans,
   double y_elem[2];
 
 
-  if (((trans != blas_no_trans) &&
-       (trans != blas_trans) &&
-       (trans != blas_conj_trans)) ||
-      (m < 0) || (n < 0) ||
-      (kl < 0) || (kl >= m) ||
-      (ku < 0) || (ku >= n) ||
-      (lda < (kl + ku + 1)) || (incx == 0) || (incy == 0)) {
-    BLAS_error(routine_name, 0, 0, NULL);
+  if (order != blas_colmajor && order != blas_rowmajor)
+    BLAS_error(routine_name, -1, order, NULL);
+  if (trans != blas_no_trans &&
+      trans != blas_trans && trans != blas_conj_trans) {
+    BLAS_error(routine_name, -2, trans, NULL);
   }
+  if (m < 0)
+    BLAS_error(routine_name, -3, m, NULL);
+  if (n < 0)
+    BLAS_error(routine_name, -4, n, NULL);
+  if (kl < 0 || kl >= m)
+    BLAS_error(routine_name, -5, kl, NULL);
+  if (ku < 0 || ku >= n)
+    BLAS_error(routine_name, -6, ku, NULL);
+  if (lda < kl + ku + 1)
+    BLAS_error(routine_name, -9, lda, NULL);
+  if (incx == 0)
+    BLAS_error(routine_name, -11, incx, NULL);
+  if (incy == 0)
+    BLAS_error(routine_name, -14, incy, NULL);
 
   if ((m == 0) || (n == 0) ||
       (((alpha_i[0] == 0.0 && alpha_i[1] == 0.0)

diff --git a/XBLAS/src/gbmv/BLAS_zgbmv_c_z_x.c b/XBLAS/src/gbmv/BLAS_zgbmv_c_z_x.c
index ec27f674bc16e07ab16324dc4c80ad95452daa6a..0c95dae64ba1b1f6868a9b6fec92c11b496d470b 100644 (file)
--- a/XBLAS/src/gbmv/BLAS_zgbmv_c_z_x.c
+++ b/XBLAS/src/gbmv/BLAS_zgbmv_c_z_x.c
@@ -129,15 +129,26 @@ void BLAS_zgbmv_c_z_x(enum blas_order_type order, enum blas_trans_type trans,
       double y_elem[2];
 
 
-      if (((trans != blas_no_trans) &&
-          (trans != blas_trans) &&
-          (trans != blas_conj_trans)) ||
-         (m < 0) || (n < 0) ||
-         (kl < 0) || (kl >= m) ||
-         (ku < 0) || (ku >= n) ||
-         (lda < (kl + ku + 1)) || (incx == 0) || (incy == 0)) {
-       BLAS_error(routine_name, 0, 0, NULL);
+      if (order != blas_colmajor && order != blas_rowmajor)
+       BLAS_error(routine_name, -1, order, NULL);
+      if (trans != blas_no_trans &&
+         trans != blas_trans && trans != blas_conj_trans) {
+       BLAS_error(routine_name, -2, trans, NULL);
       }
+      if (m < 0)
+       BLAS_error(routine_name, -3, m, NULL);
+      if (n < 0)
+       BLAS_error(routine_name, -4, n, NULL);
+      if (kl < 0 || kl >= m)
+       BLAS_error(routine_name, -5, kl, NULL);
+      if (ku < 0 || ku >= n)
+       BLAS_error(routine_name, -6, ku, NULL);
+      if (lda < kl + ku + 1)
+       BLAS_error(routine_name, -9, lda, NULL);
+      if (incx == 0)
+       BLAS_error(routine_name, -11, incx, NULL);
+      if (incy == 0)
+       BLAS_error(routine_name, -14, incy, NULL);
 
       if ((m == 0) || (n == 0) ||
          (((alpha_i[0] == 0.0 && alpha_i[1] == 0.0)
@@ -311,15 +322,26 @@ void BLAS_zgbmv_c_z_x(enum blas_order_type order, enum blas_trans_type trans,
       double y_elem[2];
       FPU_FIX_DECL;
 
-      if (((trans != blas_no_trans) &&
-          (trans != blas_trans) &&
-          (trans != blas_conj_trans)) ||
-         (m < 0) || (n < 0) ||
-         (kl < 0) || (kl >= m) ||
-         (ku < 0) || (ku >= n) ||
-         (lda < (kl + ku + 1)) || (incx == 0) || (incy == 0)) {
-       BLAS_error(routine_name, 0, 0, NULL);
+      if (order != blas_colmajor && order != blas_rowmajor)
+       BLAS_error(routine_name, -1, order, NULL);
+      if (trans != blas_no_trans &&
+         trans != blas_trans && trans != blas_conj_trans) {
+       BLAS_error(routine_name, -2, trans, NULL);
       }
+      if (m < 0)
+       BLAS_error(routine_name, -3, m, NULL);
+      if (n < 0)
+       BLAS_error(routine_name, -4, n, NULL);
+      if (kl < 0 || kl >= m)
+       BLAS_error(routine_name, -5, kl, NULL);
+      if (ku < 0 || ku >= n)
+       BLAS_error(routine_name, -6, ku, NULL);
+      if (lda < kl + ku + 1)
+       BLAS_error(routine_name, -9, lda, NULL);
+      if (incx == 0)
+       BLAS_error(routine_name, -11, incx, NULL);
+      if (incy == 0)
+       BLAS_error(routine_name, -14, incy, NULL);
 
       if ((m == 0) || (n == 0) ||
          (((alpha_i[0] == 0.0 && alpha_i[1] == 0.0)

diff --git a/XBLAS/src/gbmv/BLAS_zgbmv_d_d.c b/XBLAS/src/gbmv/BLAS_zgbmv_d_d.c
index cc147f5e96a0bd5612933bff8d87750ba9db17dc..3cdba847e7c392d5773d6d93a092dc5c08e78896 100644 (file)
--- a/XBLAS/src/gbmv/BLAS_zgbmv_d_d.c
+++ b/XBLAS/src/gbmv/BLAS_zgbmv_d_d.c
@@ -115,15 +115,26 @@ void BLAS_zgbmv_d_d(enum blas_order_type order, enum blas_trans_type trans,
   double y_elem[2];
 
 
-  if (((trans != blas_no_trans) &&
-       (trans != blas_trans) &&
-       (trans != blas_conj_trans)) ||
-      (m < 0) || (n < 0) ||
-      (kl < 0) || (kl >= m) ||
-      (ku < 0) || (ku >= n) ||
-      (lda < (kl + ku + 1)) || (incx == 0) || (incy == 0)) {
-    BLAS_error(routine_name, 0, 0, NULL);
+  if (order != blas_colmajor && order != blas_rowmajor)
+    BLAS_error(routine_name, -1, order, NULL);
+  if (trans != blas_no_trans &&
+      trans != blas_trans && trans != blas_conj_trans) {
+    BLAS_error(routine_name, -2, trans, NULL);
   }
+  if (m < 0)
+    BLAS_error(routine_name, -3, m, NULL);
+  if (n < 0)
+    BLAS_error(routine_name, -4, n, NULL);
+  if (kl < 0 || kl >= m)
+    BLAS_error(routine_name, -5, kl, NULL);
+  if (ku < 0 || ku >= n)
+    BLAS_error(routine_name, -6, ku, NULL);
+  if (lda < kl + ku + 1)
+    BLAS_error(routine_name, -9, lda, NULL);
+  if (incx == 0)
+    BLAS_error(routine_name, -11, incx, NULL);
+  if (incy == 0)
+    BLAS_error(routine_name, -14, incy, NULL);
 
   if ((m == 0) || (n == 0) ||
       (((alpha_i[0] == 0.0 && alpha_i[1] == 0.0)

diff --git a/XBLAS/src/gbmv/BLAS_zgbmv_d_d_x.c b/XBLAS/src/gbmv/BLAS_zgbmv_d_d_x.c
index 1d753054693b909fd8a66a9b949590142df795fc..b9ebc77a95824ccf1522065183716867cfba9856 100644 (file)
--- a/XBLAS/src/gbmv/BLAS_zgbmv_d_d_x.c
+++ b/XBLAS/src/gbmv/BLAS_zgbmv_d_d_x.c
@@ -129,15 +129,26 @@ void BLAS_zgbmv_d_d_x(enum blas_order_type order, enum blas_trans_type trans,
       double y_elem[2];
 
 
-      if (((trans != blas_no_trans) &&
-          (trans != blas_trans) &&
-          (trans != blas_conj_trans)) ||
-         (m < 0) || (n < 0) ||
-         (kl < 0) || (kl >= m) ||
-         (ku < 0) || (ku >= n) ||
-         (lda < (kl + ku + 1)) || (incx == 0) || (incy == 0)) {
-       BLAS_error(routine_name, 0, 0, NULL);
+      if (order != blas_colmajor && order != blas_rowmajor)
+       BLAS_error(routine_name, -1, order, NULL);
+      if (trans != blas_no_trans &&
+         trans != blas_trans && trans != blas_conj_trans) {
+       BLAS_error(routine_name, -2, trans, NULL);
       }
+      if (m < 0)
+       BLAS_error(routine_name, -3, m, NULL);
+      if (n < 0)
+       BLAS_error(routine_name, -4, n, NULL);
+      if (kl < 0 || kl >= m)
+       BLAS_error(routine_name, -5, kl, NULL);
+      if (ku < 0 || ku >= n)
+       BLAS_error(routine_name, -6, ku, NULL);
+      if (lda < kl + ku + 1)
+       BLAS_error(routine_name, -9, lda, NULL);
+      if (incx == 0)
+       BLAS_error(routine_name, -11, incx, NULL);
+      if (incy == 0)
+       BLAS_error(routine_name, -14, incy, NULL);
 
       if ((m == 0) || (n == 0) ||
          (((alpha_i[0] == 0.0 && alpha_i[1] == 0.0)
@@ -278,15 +289,26 @@ void BLAS_zgbmv_d_d_x(enum blas_order_type order, enum blas_trans_type trans,
       double y_elem[2];
       FPU_FIX_DECL;
 
-      if (((trans != blas_no_trans) &&
-          (trans != blas_trans) &&
-          (trans != blas_conj_trans)) ||
-         (m < 0) || (n < 0) ||
-         (kl < 0) || (kl >= m) ||
-         (ku < 0) || (ku >= n) ||
-         (lda < (kl + ku + 1)) || (incx == 0) || (incy == 0)) {
-       BLAS_error(routine_name, 0, 0, NULL);
+      if (order != blas_colmajor && order != blas_rowmajor)
+       BLAS_error(routine_name, -1, order, NULL);
+      if (trans != blas_no_trans &&
+         trans != blas_trans && trans != blas_conj_trans) {
+       BLAS_error(routine_name, -2, trans, NULL);
       }
+      if (m < 0)
+       BLAS_error(routine_name, -3, m, NULL);
+      if (n < 0)
+       BLAS_error(routine_name, -4, n, NULL);
+      if (kl < 0 || kl >= m)
+       BLAS_error(routine_name, -5, kl, NULL);
+      if (ku < 0 || ku >= n)
+       BLAS_error(routine_name, -6, ku, NULL);
+      if (lda < kl + ku + 1)
+       BLAS_error(routine_name, -9, lda, NULL);
+      if (incx == 0)
+       BLAS_error(routine_name, -11, incx, NULL);
+      if (incy == 0)
+       BLAS_error(routine_name, -14, incy, NULL);
 
       if ((m == 0) || (n == 0) ||
          (((alpha_i[0] == 0.0 && alpha_i[1] == 0.0)

diff --git a/XBLAS/src/gbmv/BLAS_zgbmv_d_z.c b/XBLAS/src/gbmv/BLAS_zgbmv_d_z.c
index 677f80b37f38ceff1cd55011e20e5816fcec5961..5c4faf6ee2ebb7a05e45735a49ce17d9d01c65cd 100644 (file)
--- a/XBLAS/src/gbmv/BLAS_zgbmv_d_z.c
+++ b/XBLAS/src/gbmv/BLAS_zgbmv_d_z.c
@@ -115,15 +115,26 @@ void BLAS_zgbmv_d_z(enum blas_order_type order, enum blas_trans_type trans,
   double y_elem[2];
 
 
-  if (((trans != blas_no_trans) &&
-       (trans != blas_trans) &&
-       (trans != blas_conj_trans)) ||
-      (m < 0) || (n < 0) ||
-      (kl < 0) || (kl >= m) ||
-      (ku < 0) || (ku >= n) ||
-      (lda < (kl + ku + 1)) || (incx == 0) || (incy == 0)) {
-    BLAS_error(routine_name, 0, 0, NULL);
+  if (order != blas_colmajor && order != blas_rowmajor)
+    BLAS_error(routine_name, -1, order, NULL);
+  if (trans != blas_no_trans &&
+      trans != blas_trans && trans != blas_conj_trans) {
+    BLAS_error(routine_name, -2, trans, NULL);
   }
+  if (m < 0)
+    BLAS_error(routine_name, -3, m, NULL);
+  if (n < 0)
+    BLAS_error(routine_name, -4, n, NULL);
+  if (kl < 0 || kl >= m)
+    BLAS_error(routine_name, -5, kl, NULL);
+  if (ku < 0 || ku >= n)
+    BLAS_error(routine_name, -6, ku, NULL);
+  if (lda < kl + ku + 1)
+    BLAS_error(routine_name, -9, lda, NULL);
+  if (incx == 0)
+    BLAS_error(routine_name, -11, incx, NULL);
+  if (incy == 0)
+    BLAS_error(routine_name, -14, incy, NULL);
 
   if ((m == 0) || (n == 0) ||
       (((alpha_i[0] == 0.0 && alpha_i[1] == 0.0)

diff --git a/XBLAS/src/gbmv/BLAS_zgbmv_d_z_x.c b/XBLAS/src/gbmv/BLAS_zgbmv_d_z_x.c
index 52c16fee3ab7711fe5accc54046d2e064610a30d..69f80c36c2e930eb3258fb082f14d587d56e9b2f 100644 (file)
--- a/XBLAS/src/gbmv/BLAS_zgbmv_d_z_x.c
+++ b/XBLAS/src/gbmv/BLAS_zgbmv_d_z_x.c
@@ -129,15 +129,26 @@ void BLAS_zgbmv_d_z_x(enum blas_order_type order, enum blas_trans_type trans,
       double y_elem[2];
 
 
-      if (((trans != blas_no_trans) &&
-          (trans != blas_trans) &&
-          (trans != blas_conj_trans)) ||
-         (m < 0) || (n < 0) ||
-         (kl < 0) || (kl >= m) ||
-         (ku < 0) || (ku >= n) ||
-         (lda < (kl + ku + 1)) || (incx == 0) || (incy == 0)) {
-       BLAS_error(routine_name, 0, 0, NULL);
+      if (order != blas_colmajor && order != blas_rowmajor)
+       BLAS_error(routine_name, -1, order, NULL);
+      if (trans != blas_no_trans &&
+         trans != blas_trans && trans != blas_conj_trans) {
+       BLAS_error(routine_name, -2, trans, NULL);
       }
+      if (m < 0)
+       BLAS_error(routine_name, -3, m, NULL);
+      if (n < 0)
+       BLAS_error(routine_name, -4, n, NULL);
+      if (kl < 0 || kl >= m)
+       BLAS_error(routine_name, -5, kl, NULL);
+      if (ku < 0 || ku >= n)
+       BLAS_error(routine_name, -6, ku, NULL);
+      if (lda < kl + ku + 1)
+       BLAS_error(routine_name, -9, lda, NULL);
+      if (incx == 0)
+       BLAS_error(routine_name, -11, incx, NULL);
+      if (incy == 0)
+       BLAS_error(routine_name, -14, incy, NULL);
 
       if ((m == 0) || (n == 0) ||
          (((alpha_i[0] == 0.0 && alpha_i[1] == 0.0)
@@ -285,15 +296,26 @@ void BLAS_zgbmv_d_z_x(enum blas_order_type order, enum blas_trans_type trans,
       double y_elem[2];
       FPU_FIX_DECL;
 
-      if (((trans != blas_no_trans) &&
-          (trans != blas_trans) &&
-          (trans != blas_conj_trans)) ||
-         (m < 0) || (n < 0) ||
-         (kl < 0) || (kl >= m) ||
-         (ku < 0) || (ku >= n) ||
-         (lda < (kl + ku + 1)) || (incx == 0) || (incy == 0)) {
-       BLAS_error(routine_name, 0, 0, NULL);
+      if (order != blas_colmajor && order != blas_rowmajor)
+       BLAS_error(routine_name, -1, order, NULL);
+      if (trans != blas_no_trans &&
+         trans != blas_trans && trans != blas_conj_trans) {
+       BLAS_error(routine_name, -2, trans, NULL);
       }
+      if (m < 0)
+       BLAS_error(routine_name, -3, m, NULL);
+      if (n < 0)
+       BLAS_error(routine_name, -4, n, NULL);
+      if (kl < 0 || kl >= m)
+       BLAS_error(routine_name, -5, kl, NULL);
+      if (ku < 0 || ku >= n)
+       BLAS_error(routine_name, -6, ku, NULL);
+      if (lda < kl + ku + 1)
+       BLAS_error(routine_name, -9, lda, NULL);
+      if (incx == 0)
+       BLAS_error(routine_name, -11, incx, NULL);
+      if (incy == 0)
+       BLAS_error(routine_name, -14, incy, NULL);
 
       if ((m == 0) || (n == 0) ||
          (((alpha_i[0] == 0.0 && alpha_i[1] == 0.0)

diff --git a/XBLAS/src/gbmv/BLAS_zgbmv_x.c b/XBLAS/src/gbmv/BLAS_zgbmv_x.c
index d4b63c3db8fd1a67c774418abc603afc1e5efc85..7e3aaa7f237c0cf218e226fc0a74da6b28e1681a 100644 (file)
--- a/XBLAS/src/gbmv/BLAS_zgbmv_x.c
+++ b/XBLAS/src/gbmv/BLAS_zgbmv_x.c
@@ -129,15 +129,26 @@ void BLAS_zgbmv_x(enum blas_order_type order, enum blas_trans_type trans,
       double y_elem[2];
 
 
-      if (((trans != blas_no_trans) &&
-          (trans != blas_trans) &&
-          (trans != blas_conj_trans)) ||
-         (m < 0) || (n < 0) ||
-         (kl < 0) || (kl >= m) ||
-         (ku < 0) || (ku >= n) ||
-         (lda < (kl + ku + 1)) || (incx == 0) || (incy == 0)) {
-       BLAS_error(routine_name, 0, 0, NULL);
+      if (order != blas_colmajor && order != blas_rowmajor)
+       BLAS_error(routine_name, -1, order, NULL);
+      if (trans != blas_no_trans &&
+         trans != blas_trans && trans != blas_conj_trans) {
+       BLAS_error(routine_name, -2, trans, NULL);
       }
+      if (m < 0)
+       BLAS_error(routine_name, -3, m, NULL);
+      if (n < 0)
+       BLAS_error(routine_name, -4, n, NULL);
+      if (kl < 0 || kl >= m)
+       BLAS_error(routine_name, -5, kl, NULL);
+      if (ku < 0 || ku >= n)
+       BLAS_error(routine_name, -6, ku, NULL);
+      if (lda < kl + ku + 1)
+       BLAS_error(routine_name, -9, lda, NULL);
+      if (incx == 0)
+       BLAS_error(routine_name, -11, incx, NULL);
+      if (incy == 0)
+       BLAS_error(routine_name, -14, incy, NULL);
 
       if ((m == 0) || (n == 0) ||
          (((alpha_i[0] == 0.0 && alpha_i[1] == 0.0)
@@ -311,15 +322,26 @@ void BLAS_zgbmv_x(enum blas_order_type order, enum blas_trans_type trans,
       double y_elem[2];
       FPU_FIX_DECL;
 
-      if (((trans != blas_no_trans) &&
-          (trans != blas_trans) &&
-          (trans != blas_conj_trans)) ||
-         (m < 0) || (n < 0) ||
-         (kl < 0) || (kl >= m) ||
-         (ku < 0) || (ku >= n) ||
-         (lda < (kl + ku + 1)) || (incx == 0) || (incy == 0)) {
-       BLAS_error(routine_name, 0, 0, NULL);
+      if (order != blas_colmajor && order != blas_rowmajor)
+       BLAS_error(routine_name, -1, order, NULL);
+      if (trans != blas_no_trans &&
+         trans != blas_trans && trans != blas_conj_trans) {
+       BLAS_error(routine_name, -2, trans, NULL);
       }
+      if (m < 0)
+       BLAS_error(routine_name, -3, m, NULL);
+      if (n < 0)
+       BLAS_error(routine_name, -4, n, NULL);
+      if (kl < 0 || kl >= m)
+       BLAS_error(routine_name, -5, kl, NULL);
+      if (ku < 0 || ku >= n)
+       BLAS_error(routine_name, -6, ku, NULL);
+      if (lda < kl + ku + 1)
+       BLAS_error(routine_name, -9, lda, NULL);
+      if (incx == 0)
+       BLAS_error(routine_name, -11, incx, NULL);
+      if (incy == 0)
+       BLAS_error(routine_name, -14, incy, NULL);
 
       if ((m == 0) || (n == 0) ||
          (((alpha_i[0] == 0.0 && alpha_i[1] == 0.0)

diff --git a/XBLAS/src/gbmv/BLAS_zgbmv_z_c.c b/XBLAS/src/gbmv/BLAS_zgbmv_z_c.c
index 4d6a383316bba9c2d0bf449f849e74b1737c9b67..507ca8482dd2bf11a74cdadef1609932d205bf40 100644 (file)
--- a/XBLAS/src/gbmv/BLAS_zgbmv_z_c.c
+++ b/XBLAS/src/gbmv/BLAS_zgbmv_z_c.c
@@ -115,15 +115,26 @@ void BLAS_zgbmv_z_c(enum blas_order_type order, enum blas_trans_type trans,
   double y_elem[2];
 
 
-  if (((trans != blas_no_trans) &&
-       (trans != blas_trans) &&
-       (trans != blas_conj_trans)) ||
-      (m < 0) || (n < 0) ||
-      (kl < 0) || (kl >= m) ||
-      (ku < 0) || (ku >= n) ||
-      (lda < (kl + ku + 1)) || (incx == 0) || (incy == 0)) {
-    BLAS_error(routine_name, 0, 0, NULL);
+  if (order != blas_colmajor && order != blas_rowmajor)
+    BLAS_error(routine_name, -1, order, NULL);
+  if (trans != blas_no_trans &&
+      trans != blas_trans && trans != blas_conj_trans) {
+    BLAS_error(routine_name, -2, trans, NULL);
   }
+  if (m < 0)
+    BLAS_error(routine_name, -3, m, NULL);
+  if (n < 0)
+    BLAS_error(routine_name, -4, n, NULL);
+  if (kl < 0 || kl >= m)
+    BLAS_error(routine_name, -5, kl, NULL);
+  if (ku < 0 || ku >= n)
+    BLAS_error(routine_name, -6, ku, NULL);
+  if (lda < kl + ku + 1)
+    BLAS_error(routine_name, -9, lda, NULL);
+  if (incx == 0)
+    BLAS_error(routine_name, -11, incx, NULL);
+  if (incy == 0)
+    BLAS_error(routine_name, -14, incy, NULL);
 
   if ((m == 0) || (n == 0) ||
       (((alpha_i[0] == 0.0 && alpha_i[1] == 0.0)

diff --git a/XBLAS/src/gbmv/BLAS_zgbmv_z_c_x.c b/XBLAS/src/gbmv/BLAS_zgbmv_z_c_x.c
index d6700829c962d0dfc023dabb79928d7c8d30c91c..1e24ceabe5f3fe1c4b37892aebe1e4cdf806282e 100644 (file)
--- a/XBLAS/src/gbmv/BLAS_zgbmv_z_c_x.c
+++ b/XBLAS/src/gbmv/BLAS_zgbmv_z_c_x.c
@@ -129,15 +129,26 @@ void BLAS_zgbmv_z_c_x(enum blas_order_type order, enum blas_trans_type trans,
       double y_elem[2];
 
 
-      if (((trans != blas_no_trans) &&
-          (trans != blas_trans) &&
-          (trans != blas_conj_trans)) ||
-         (m < 0) || (n < 0) ||
-         (kl < 0) || (kl >= m) ||
-         (ku < 0) || (ku >= n) ||
-         (lda < (kl + ku + 1)) || (incx == 0) || (incy == 0)) {
-       BLAS_error(routine_name, 0, 0, NULL);
+      if (order != blas_colmajor && order != blas_rowmajor)
+       BLAS_error(routine_name, -1, order, NULL);
+      if (trans != blas_no_trans &&
+         trans != blas_trans && trans != blas_conj_trans) {
+       BLAS_error(routine_name, -2, trans, NULL);
       }
+      if (m < 0)
+       BLAS_error(routine_name, -3, m, NULL);
+      if (n < 0)
+       BLAS_error(routine_name, -4, n, NULL);
+      if (kl < 0 || kl >= m)
+       BLAS_error(routine_name, -5, kl, NULL);
+      if (ku < 0 || ku >= n)
+       BLAS_error(routine_name, -6, ku, NULL);
+      if (lda < kl + ku + 1)
+       BLAS_error(routine_name, -9, lda, NULL);
+      if (incx == 0)
+       BLAS_error(routine_name, -11, incx, NULL);
+      if (incy == 0)
+       BLAS_error(routine_name, -14, incy, NULL);
 
       if ((m == 0) || (n == 0) ||
          (((alpha_i[0] == 0.0 && alpha_i[1] == 0.0)
@@ -311,15 +322,26 @@ void BLAS_zgbmv_z_c_x(enum blas_order_type order, enum blas_trans_type trans,
       double y_elem[2];
       FPU_FIX_DECL;
 
-      if (((trans != blas_no_trans) &&
-          (trans != blas_trans) &&
-          (trans != blas_conj_trans)) ||
-         (m < 0) || (n < 0) ||
-         (kl < 0) || (kl >= m) ||
-         (ku < 0) || (ku >= n) ||
-         (lda < (kl + ku + 1)) || (incx == 0) || (incy == 0)) {
-       BLAS_error(routine_name, 0, 0, NULL);
+      if (order != blas_colmajor && order != blas_rowmajor)
+       BLAS_error(routine_name, -1, order, NULL);
+      if (trans != blas_no_trans &&
+         trans != blas_trans && trans != blas_conj_trans) {
+       BLAS_error(routine_name, -2, trans, NULL);
       }
+      if (m < 0)
+       BLAS_error(routine_name, -3, m, NULL);
+      if (n < 0)
+       BLAS_error(routine_name, -4, n, NULL);
+      if (kl < 0 || kl >= m)
+       BLAS_error(routine_name, -5, kl, NULL);
+      if (ku < 0 || ku >= n)
+       BLAS_error(routine_name, -6, ku, NULL);
+      if (lda < kl + ku + 1)
+       BLAS_error(routine_name, -9, lda, NULL);
+      if (incx == 0)
+       BLAS_error(routine_name, -11, incx, NULL);
+      if (incy == 0)
+       BLAS_error(routine_name, -14, incy, NULL);
 
       if ((m == 0) || (n == 0) ||
          (((alpha_i[0] == 0.0 && alpha_i[1] == 0.0)

diff --git a/XBLAS/src/gbmv/BLAS_zgbmv_z_d.c b/XBLAS/src/gbmv/BLAS_zgbmv_z_d.c
index b7093f4728f23c0d92cf5fde6d2bb85c17d2a402..2e0b9ed1ed6469277dd63ead7f34ce5e5c182c66 100644 (file)
--- a/XBLAS/src/gbmv/BLAS_zgbmv_z_d.c
+++ b/XBLAS/src/gbmv/BLAS_zgbmv_z_d.c
@@ -115,15 +115,26 @@ void BLAS_zgbmv_z_d(enum blas_order_type order, enum blas_trans_type trans,
   double y_elem[2];
 
 
-  if (((trans != blas_no_trans) &&
-       (trans != blas_trans) &&
-       (trans != blas_conj_trans)) ||
-      (m < 0) || (n < 0) ||
-      (kl < 0) || (kl >= m) ||
-      (ku < 0) || (ku >= n) ||
-      (lda < (kl + ku + 1)) || (incx == 0) || (incy == 0)) {
-    BLAS_error(routine_name, 0, 0, NULL);
+  if (order != blas_colmajor && order != blas_rowmajor)
+    BLAS_error(routine_name, -1, order, NULL);
+  if (trans != blas_no_trans &&
+      trans != blas_trans && trans != blas_conj_trans) {
+    BLAS_error(routine_name, -2, trans, NULL);
   }
+  if (m < 0)
+    BLAS_error(routine_name, -3, m, NULL);
+  if (n < 0)
+    BLAS_error(routine_name, -4, n, NULL);
+  if (kl < 0 || kl >= m)
+    BLAS_error(routine_name, -5, kl, NULL);
+  if (ku < 0 || ku >= n)
+    BLAS_error(routine_name, -6, ku, NULL);
+  if (lda < kl + ku + 1)
+    BLAS_error(routine_name, -9, lda, NULL);
+  if (incx == 0)
+    BLAS_error(routine_name, -11, incx, NULL);
+  if (incy == 0)
+    BLAS_error(routine_name, -14, incy, NULL);
 
   if ((m == 0) || (n == 0) ||
       (((alpha_i[0] == 0.0 && alpha_i[1] == 0.0)

diff --git a/XBLAS/src/gbmv/BLAS_zgbmv_z_d_x.c b/XBLAS/src/gbmv/BLAS_zgbmv_z_d_x.c
index 7eb39c812855a2a8d62e781dd7e766ca990a5260..61c5b81ca22f8cc04c728d40a6909fe3f04fd30a 100644 (file)
--- a/XBLAS/src/gbmv/BLAS_zgbmv_z_d_x.c
+++ b/XBLAS/src/gbmv/BLAS_zgbmv_z_d_x.c
@@ -129,15 +129,26 @@ void BLAS_zgbmv_z_d_x(enum blas_order_type order, enum blas_trans_type trans,
       double y_elem[2];
 
 
-      if (((trans != blas_no_trans) &&
-          (trans != blas_trans) &&
-          (trans != blas_conj_trans)) ||
-         (m < 0) || (n < 0) ||
-         (kl < 0) || (kl >= m) ||
-         (ku < 0) || (ku >= n) ||
-         (lda < (kl + ku + 1)) || (incx == 0) || (incy == 0)) {
-       BLAS_error(routine_name, 0, 0, NULL);
+      if (order != blas_colmajor && order != blas_rowmajor)
+       BLAS_error(routine_name, -1, order, NULL);
+      if (trans != blas_no_trans &&
+         trans != blas_trans && trans != blas_conj_trans) {
+       BLAS_error(routine_name, -2, trans, NULL);
       }
+      if (m < 0)
+       BLAS_error(routine_name, -3, m, NULL);
+      if (n < 0)
+       BLAS_error(routine_name, -4, n, NULL);
+      if (kl < 0 || kl >= m)
+       BLAS_error(routine_name, -5, kl, NULL);
+      if (ku < 0 || ku >= n)
+       BLAS_error(routine_name, -6, ku, NULL);
+      if (lda < kl + ku + 1)
+       BLAS_error(routine_name, -9, lda, NULL);
+      if (incx == 0)
+       BLAS_error(routine_name, -11, incx, NULL);
+      if (incy == 0)
+       BLAS_error(routine_name, -14, incy, NULL);
 
       if ((m == 0) || (n == 0) ||
          (((alpha_i[0] == 0.0 && alpha_i[1] == 0.0)
@@ -301,15 +312,26 @@ void BLAS_zgbmv_z_d_x(enum blas_order_type order, enum blas_trans_type trans,
       double y_elem[2];
       FPU_FIX_DECL;
 
-      if (((trans != blas_no_trans) &&
-          (trans != blas_trans) &&
-          (trans != blas_conj_trans)) ||
-         (m < 0) || (n < 0) ||
-         (kl < 0) || (kl >= m) ||
-         (ku < 0) || (ku >= n) ||
-         (lda < (kl + ku + 1)) || (incx == 0) || (incy == 0)) {
-       BLAS_error(routine_name, 0, 0, NULL);
+      if (order != blas_colmajor && order != blas_rowmajor)
+       BLAS_error(routine_name, -1, order, NULL);
+      if (trans != blas_no_trans &&
+         trans != blas_trans && trans != blas_conj_trans) {
+       BLAS_error(routine_name, -2, trans, NULL);
       }
+      if (m < 0)
+       BLAS_error(routine_name, -3, m, NULL);
+      if (n < 0)
+       BLAS_error(routine_name, -4, n, NULL);
+      if (kl < 0 || kl >= m)
+       BLAS_error(routine_name, -5, kl, NULL);
+      if (ku < 0 || ku >= n)
+       BLAS_error(routine_name, -6, ku, NULL);
+      if (lda < kl + ku + 1)
+       BLAS_error(routine_name, -9, lda, NULL);
+      if (incx == 0)
+       BLAS_error(routine_name, -11, incx, NULL);
+      if (incy == 0)
+       BLAS_error(routine_name, -14, incy, NULL);
 
       if ((m == 0) || (n == 0) ||
          (((alpha_i[0] == 0.0 && alpha_i[1] == 0.0)