diff -r 26df454fcc1c cblas/Makefile.am
--- a/cblas/Makefile.am	Tue Sep 21 06:40:07 2010 +0000
+++ b/cblas/Makefile.am	Tue Oct 12 11:35:36 2010 +0200
@@ -12,7 +12,7 @@
 
 libgslcblas_la_SOURCES = sasum.c saxpy.c scasum.c scnrm2.c scopy.c sdot.c sdsdot.c sgbmv.c sgemm.c sgemv.c sger.c snrm2.c srot.c srotg.c srotm.c srotmg.c ssbmv.c sscal.c sspmv.c sspr.c sspr2.c sswap.c ssymm.c ssymv.c ssyr.c ssyr2.c ssyr2k.c ssyrk.c stbmv.c stbsv.c stpmv.c stpsv.c strmm.c strmv.c strsm.c strsv.c dasum.c daxpy.c dcopy.c ddot.c dgbmv.c dgemm.c dgemv.c dger.c dnrm2.c drot.c drotg.c drotm.c drotmg.c dsbmv.c dscal.c dsdot.c dspmv.c dspr.c dspr2.c dswap.c dsymm.c dsymv.c dsyr.c dsyr2.c dsyr2k.c dsyrk.c dtbmv.c dtbsv.c dtpmv.c dtpsv.c dtrmm.c dtrmv.c dtrsm.c dtrsv.c dzasum.c dznrm2.c caxpy.c ccopy.c cdotc_sub.c cdotu_sub.c cgbmv.c cgemm.c cgemv.c cgerc.c cgeru.c chbmv.c chemm.c chemv.c cher.c cher2.c cher2k.c cherk.c chpmv.c chpr.c chpr2.c cscal.c csscal.c cswap.c csymm.c csyr2k.c csyrk.c ctbmv.c ctbsv.c ctpmv.c ctpsv.c ctrmm.c ctrmv.c ctrsm.c ctrsv.c zaxpy.c zcopy.c zdotc_sub.c zdotu_sub.c zdscal.c zgbmv.c zgemm.c zgemv.c zgerc.c zgeru.c zhbmv.c zhemm.c zhemv.c zher.c zher2.c zher2k.c zherk.c zhpmv.c zhpr.c zhpr2.c zscal.c zswap.c zsymm.c zsyr2k.c zsyrk.c ztbmv.c ztbsv.c ztpmv.c ztpsv.c ztrmm.c ztrmv.c ztrsm.c ztrsv.c icamax.c idamax.c isamax.c izamax.c xerbla.c
 
-noinst_HEADERS = tests.c tests.h cblas.h source_asum_c.h source_asum_r.h source_axpy_c.h source_axpy_r.h source_copy_c.h source_copy_r.h source_dot_c.h source_dot_r.h source_gbmv_c.h source_gbmv_r.h source_gemm_c.h source_gemm_r.h source_gemv_c.h source_gemv_r.h source_ger.h source_gerc.h source_geru.h source_hbmv.h source_hemm.h source_hemv.h source_her.h source_her2.h source_her2k.h source_herk.h source_hpmv.h source_hpr.h source_hpr2.h source_iamax_c.h source_iamax_r.h source_nrm2_c.h source_nrm2_r.h source_rot.h source_rotg.h source_rotm.h source_rotmg.h source_sbmv.h source_scal_c.h source_scal_c_s.h source_scal_r.h source_spmv.h source_spr.h source_spr2.h source_swap_c.h source_swap_r.h source_symm_c.h source_symm_r.h source_symv.h source_syr.h source_syr2.h source_syr2k_c.h source_syr2k_r.h source_syrk_c.h source_syrk_r.h source_tbmv_c.h source_tbmv_r.h source_tbsv_c.h source_tbsv_r.h source_tpmv_c.h source_tpmv_r.h source_tpsv_c.h source_tpsv_r.h source_trmm_c.h source_trmm_r.h source_trmv_c.h source_trmv_r.h source_trsm_c.h source_trsm_r.h source_trsv_c.h source_trsv_r.h hypot.c
+noinst_HEADERS = tests.c tests.h error_cblas.h error_cblas_l2.h cblas.h source_asum_c.h source_asum_r.h source_axpy_c.h source_axpy_r.h source_copy_c.h source_copy_r.h source_dot_c.h source_dot_r.h source_gbmv_c.h source_gbmv_r.h source_gemm_c.h source_gemm_r.h source_gemv_c.h source_gemv_r.h source_ger.h source_gerc.h source_geru.h source_hbmv.h source_hemm.h source_hemv.h source_her.h source_her2.h source_her2k.h source_herk.h source_hpmv.h source_hpr.h source_hpr2.h source_iamax_c.h source_iamax_r.h source_nrm2_c.h source_nrm2_r.h source_rot.h source_rotg.h source_rotm.h source_rotmg.h source_sbmv.h source_scal_c.h source_scal_c_s.h source_scal_r.h source_spmv.h source_spr.h source_spr2.h source_swap_c.h source_swap_r.h source_symm_c.h source_symm_r.h source_symv.h source_syr.h source_syr2.h source_syr2k_c.h source_syr2k_r.h source_syrk_c.h source_syrk_r.h source_tbmv_c.h source_tbmv_r.h source_tbsv_c.h source_tbsv_r.h source_tpmv_c.h source_tpmv_r.h source_tpsv_c.h source_tpsv_r.h source_trmm_c.h source_trmm_r.h source_trmv_c.h source_trmv_r.h source_trsm_c.h source_trsm_r.h source_trsv_c.h source_trsv_r.h hypot.c
 
 check_PROGRAMS = test
 TESTS = $(check_PROGRAMS)
diff -r 26df454fcc1c cblas/cgbmv.c
--- a/cblas/cgbmv.c	Tue Sep 21 06:40:07 2010 +0000
+++ b/cblas/cgbmv.c	Tue Oct 12 11:35:36 2010 +0200
@@ -1,6 +1,7 @@
 #include <gsl/gsl_math.h>
 #include <gsl/gsl_cblas.h>
 #include "cblas.h"
+#include "error_cblas_l2.h"
 
 void
 cblas_cgbmv (const enum CBLAS_ORDER order, const enum CBLAS_TRANSPOSE TransA,
diff -r 26df454fcc1c cblas/cgemv.c
--- a/cblas/cgemv.c	Tue Sep 21 06:40:07 2010 +0000
+++ b/cblas/cgemv.c	Tue Oct 12 11:35:36 2010 +0200
@@ -1,6 +1,7 @@
 #include <gsl/gsl_math.h>
 #include <gsl/gsl_cblas.h>
 #include "cblas.h"
+#include "error_cblas_l2.h"
 
 void
 cblas_cgemv (const enum CBLAS_ORDER order, const enum CBLAS_TRANSPOSE TransA,
diff -r 26df454fcc1c cblas/cgerc.c
--- a/cblas/cgerc.c	Tue Sep 21 06:40:07 2010 +0000
+++ b/cblas/cgerc.c	Tue Oct 12 11:35:36 2010 +0200
@@ -1,6 +1,7 @@
 #include <gsl/gsl_math.h>
 #include <gsl/gsl_cblas.h>
 #include "cblas.h"
+#include "error_cblas_l2.h"
 
 void
 cblas_cgerc (const enum CBLAS_ORDER order, const int M, const int N,
diff -r 26df454fcc1c cblas/cgeru.c
--- a/cblas/cgeru.c	Tue Sep 21 06:40:07 2010 +0000
+++ b/cblas/cgeru.c	Tue Oct 12 11:35:36 2010 +0200
@@ -1,6 +1,7 @@
 #include <gsl/gsl_math.h>
 #include <gsl/gsl_cblas.h>
 #include "cblas.h"
+#include "error_cblas_l2.h"
 
 void
 cblas_cgeru (const enum CBLAS_ORDER order, const int M, const int N,
diff -r 26df454fcc1c cblas/chbmv.c
--- a/cblas/chbmv.c	Tue Sep 21 06:40:07 2010 +0000
+++ b/cblas/chbmv.c	Tue Oct 12 11:35:36 2010 +0200
@@ -1,6 +1,7 @@
 #include <gsl/gsl_math.h>
 #include <gsl/gsl_cblas.h>
 #include "cblas.h"
+#include "error_cblas_l2.h"
 
 void
 cblas_chbmv (const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
diff -r 26df454fcc1c cblas/chemv.c
--- a/cblas/chemv.c	Tue Sep 21 06:40:07 2010 +0000
+++ b/cblas/chemv.c	Tue Oct 12 11:35:36 2010 +0200
@@ -1,6 +1,7 @@
 #include <gsl/gsl_math.h>
 #include <gsl/gsl_cblas.h>
 #include "cblas.h"
+#include "error_cblas_l2.h"
 
 void
 cblas_chemv (const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
diff -r 26df454fcc1c cblas/cher.c
--- a/cblas/cher.c	Tue Sep 21 06:40:07 2010 +0000
+++ b/cblas/cher.c	Tue Oct 12 11:35:36 2010 +0200
@@ -1,6 +1,7 @@
 #include <gsl/gsl_math.h>
 #include <gsl/gsl_cblas.h>
 #include "cblas.h"
+#include "error_cblas_l2.h"
 
 void
 cblas_cher (const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
diff -r 26df454fcc1c cblas/cher2.c
--- a/cblas/cher2.c	Tue Sep 21 06:40:07 2010 +0000
+++ b/cblas/cher2.c	Tue Oct 12 11:35:36 2010 +0200
@@ -1,6 +1,7 @@
 #include <gsl/gsl_math.h>
 #include <gsl/gsl_cblas.h>
 #include "cblas.h"
+#include "error_cblas_l2.h"
 
 void
 cblas_cher2 (const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
diff -r 26df454fcc1c cblas/chpmv.c
--- a/cblas/chpmv.c	Tue Sep 21 06:40:07 2010 +0000
+++ b/cblas/chpmv.c	Tue Oct 12 11:35:36 2010 +0200
@@ -1,6 +1,7 @@
 #include <gsl/gsl_math.h>
 #include <gsl/gsl_cblas.h>
 #include "cblas.h"
+#include "error_cblas_l2.h"
 
 void
 cblas_chpmv (const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
diff -r 26df454fcc1c cblas/chpr.c
--- a/cblas/chpr.c	Tue Sep 21 06:40:07 2010 +0000
+++ b/cblas/chpr.c	Tue Oct 12 11:35:36 2010 +0200
@@ -1,6 +1,7 @@
 #include <gsl/gsl_math.h>
 #include <gsl/gsl_cblas.h>
 #include "cblas.h"
+#include "error_cblas_l2.h"
 
 void
 cblas_chpr (const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
diff -r 26df454fcc1c cblas/chpr2.c
--- a/cblas/chpr2.c	Tue Sep 21 06:40:07 2010 +0000
+++ b/cblas/chpr2.c	Tue Oct 12 11:35:36 2010 +0200
@@ -1,6 +1,7 @@
 #include <gsl/gsl_math.h>
 #include <gsl/gsl_cblas.h>
 #include "cblas.h"
+#include "error_cblas_l2.h"
 
 void
 cblas_chpr2 (const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
diff -r 26df454fcc1c cblas/ctbmv.c
--- a/cblas/ctbmv.c	Tue Sep 21 06:40:07 2010 +0000
+++ b/cblas/ctbmv.c	Tue Oct 12 11:35:36 2010 +0200
@@ -1,6 +1,7 @@
 #include <gsl/gsl_math.h>
 #include <gsl/gsl_cblas.h>
 #include "cblas.h"
+#include "error_cblas_l2.h"
 
 void
 cblas_ctbmv (const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
diff -r 26df454fcc1c cblas/ctbsv.c
--- a/cblas/ctbsv.c	Tue Sep 21 06:40:07 2010 +0000
+++ b/cblas/ctbsv.c	Tue Oct 12 11:35:36 2010 +0200
@@ -1,6 +1,7 @@
 #include <gsl/gsl_math.h>
 #include <gsl/gsl_cblas.h>
 #include "cblas.h"
+#include "error_cblas_l2.h"
 
 #include "hypot.c"
 
diff -r 26df454fcc1c cblas/ctpmv.c
--- a/cblas/ctpmv.c	Tue Sep 21 06:40:07 2010 +0000
+++ b/cblas/ctpmv.c	Tue Oct 12 11:35:36 2010 +0200
@@ -1,6 +1,7 @@
 #include <gsl/gsl_math.h>
 #include <gsl/gsl_cblas.h>
 #include "cblas.h"
+#include "error_cblas_l2.h"
 
 void
 cblas_ctpmv (const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
diff -r 26df454fcc1c cblas/ctpsv.c
--- a/cblas/ctpsv.c	Tue Sep 21 06:40:07 2010 +0000
+++ b/cblas/ctpsv.c	Tue Oct 12 11:35:36 2010 +0200
@@ -1,6 +1,7 @@
 #include <gsl/gsl_math.h>
 #include <gsl/gsl_cblas.h>
 #include "cblas.h"
+#include "error_cblas_l2.h"
 
 #include "hypot.c"
 
diff -r 26df454fcc1c cblas/ctrmv.c
--- a/cblas/ctrmv.c	Tue Sep 21 06:40:07 2010 +0000
+++ b/cblas/ctrmv.c	Tue Oct 12 11:35:36 2010 +0200
@@ -1,6 +1,7 @@
 #include <gsl/gsl_math.h>
 #include <gsl/gsl_cblas.h>
 #include "cblas.h"
+#include "error_cblas_l2.h"
 
 void
 cblas_ctrmv (const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
diff -r 26df454fcc1c cblas/ctrsv.c
--- a/cblas/ctrsv.c	Tue Sep 21 06:40:07 2010 +0000
+++ b/cblas/ctrsv.c	Tue Oct 12 11:35:36 2010 +0200
@@ -1,6 +1,7 @@
 #include <gsl/gsl_math.h>
 #include <gsl/gsl_cblas.h>
 #include "cblas.h"
+#include "error_cblas_l2.h"
 
 #include "hypot.c"
 
diff -r 26df454fcc1c cblas/dgbmv.c
--- a/cblas/dgbmv.c	Tue Sep 21 06:40:07 2010 +0000
+++ b/cblas/dgbmv.c	Tue Oct 12 11:35:36 2010 +0200
@@ -1,6 +1,7 @@
 #include <gsl/gsl_math.h>
 #include <gsl/gsl_cblas.h>
 #include "cblas.h"
+#include "error_cblas_l2.h"
 
 void
 cblas_dgbmv (const enum CBLAS_ORDER order, const enum CBLAS_TRANSPOSE TransA,
diff -r 26df454fcc1c cblas/dgemv.c
--- a/cblas/dgemv.c	Tue Sep 21 06:40:07 2010 +0000
+++ b/cblas/dgemv.c	Tue Oct 12 11:35:36 2010 +0200
@@ -1,6 +1,7 @@
 #include <gsl/gsl_math.h>
 #include <gsl/gsl_cblas.h>
 #include "cblas.h"
+#include "error_cblas_l2.h"
 
 void
 cblas_dgemv (const enum CBLAS_ORDER order, const enum CBLAS_TRANSPOSE TransA,
diff -r 26df454fcc1c cblas/dger.c
--- a/cblas/dger.c	Tue Sep 21 06:40:07 2010 +0000
+++ b/cblas/dger.c	Tue Oct 12 11:35:36 2010 +0200
@@ -1,6 +1,7 @@
 #include <gsl/gsl_math.h>
 #include <gsl/gsl_cblas.h>
 #include "cblas.h"
+#include "error_cblas_l2.h"
 
 void
 cblas_dger (const enum CBLAS_ORDER order, const int M, const int N,
diff -r 26df454fcc1c cblas/dsbmv.c
--- a/cblas/dsbmv.c	Tue Sep 21 06:40:07 2010 +0000
+++ b/cblas/dsbmv.c	Tue Oct 12 11:35:36 2010 +0200
@@ -1,6 +1,7 @@
 #include <gsl/gsl_math.h>
 #include <gsl/gsl_cblas.h>
 #include "cblas.h"
+#include "error_cblas_l2.h"
 
 void
 cblas_dsbmv (const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
diff -r 26df454fcc1c cblas/dspmv.c
--- a/cblas/dspmv.c	Tue Sep 21 06:40:07 2010 +0000
+++ b/cblas/dspmv.c	Tue Oct 12 11:35:36 2010 +0200
@@ -1,6 +1,7 @@
 #include <gsl/gsl_math.h>
 #include <gsl/gsl_cblas.h>
 #include "cblas.h"
+#include "error_cblas_l2.h"
 
 void
 cblas_dspmv (const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
diff -r 26df454fcc1c cblas/dspr.c
--- a/cblas/dspr.c	Tue Sep 21 06:40:07 2010 +0000
+++ b/cblas/dspr.c	Tue Oct 12 11:35:36 2010 +0200
@@ -1,6 +1,7 @@
 #include <gsl/gsl_math.h>
 #include <gsl/gsl_cblas.h>
 #include "cblas.h"
+#include "error_cblas_l2.h"
 
 void
 cblas_dspr (const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
diff -r 26df454fcc1c cblas/dspr2.c
--- a/cblas/dspr2.c	Tue Sep 21 06:40:07 2010 +0000
+++ b/cblas/dspr2.c	Tue Oct 12 11:35:36 2010 +0200
@@ -1,6 +1,7 @@
 #include <gsl/gsl_math.h>
 #include <gsl/gsl_cblas.h>
 #include "cblas.h"
+#include "error_cblas_l2.h"
 
 void
 cblas_dspr2 (const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
diff -r 26df454fcc1c cblas/dsymv.c
--- a/cblas/dsymv.c	Tue Sep 21 06:40:07 2010 +0000
+++ b/cblas/dsymv.c	Tue Oct 12 11:35:36 2010 +0200
@@ -1,6 +1,7 @@
 #include <gsl/gsl_math.h>
 #include <gsl/gsl_cblas.h>
 #include "cblas.h"
+#include "error_cblas_l2.h"
 
 void
 cblas_dsymv (const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
diff -r 26df454fcc1c cblas/dsyr.c
--- a/cblas/dsyr.c	Tue Sep 21 06:40:07 2010 +0000
+++ b/cblas/dsyr.c	Tue Oct 12 11:35:36 2010 +0200
@@ -1,6 +1,7 @@
 #include <gsl/gsl_math.h>
 #include <gsl/gsl_cblas.h>
 #include "cblas.h"
+#include "error_cblas_l2.h"
 
 void
 cblas_dsyr (const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
diff -r 26df454fcc1c cblas/dsyr2.c
--- a/cblas/dsyr2.c	Tue Sep 21 06:40:07 2010 +0000
+++ b/cblas/dsyr2.c	Tue Oct 12 11:35:36 2010 +0200
@@ -1,6 +1,7 @@
 #include <gsl/gsl_math.h>
 #include <gsl/gsl_cblas.h>
 #include "cblas.h"
+#include "error_cblas_l2.h"
 
 void
 cblas_dsyr2 (const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
diff -r 26df454fcc1c cblas/dtbmv.c
--- a/cblas/dtbmv.c	Tue Sep 21 06:40:07 2010 +0000
+++ b/cblas/dtbmv.c	Tue Oct 12 11:35:36 2010 +0200
@@ -1,6 +1,7 @@
 #include <gsl/gsl_math.h>
 #include <gsl/gsl_cblas.h>
 #include "cblas.h"
+#include "error_cblas_l2.h"
 
 void
 cblas_dtbmv (const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
diff -r 26df454fcc1c cblas/dtbsv.c
--- a/cblas/dtbsv.c	Tue Sep 21 06:40:07 2010 +0000
+++ b/cblas/dtbsv.c	Tue Oct 12 11:35:36 2010 +0200
@@ -1,6 +1,7 @@
 #include <gsl/gsl_math.h>
 #include <gsl/gsl_cblas.h>
 #include "cblas.h"
+#include "error_cblas_l2.h"
 
 void
 cblas_dtbsv (const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
diff -r 26df454fcc1c cblas/dtpmv.c
--- a/cblas/dtpmv.c	Tue Sep 21 06:40:07 2010 +0000
+++ b/cblas/dtpmv.c	Tue Oct 12 11:35:36 2010 +0200
@@ -1,6 +1,7 @@
 #include <gsl/gsl_math.h>
 #include <gsl/gsl_cblas.h>
 #include "cblas.h"
+#include "error_cblas_l2.h"
 
 void
 cblas_dtpmv (const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
diff -r 26df454fcc1c cblas/dtpsv.c
--- a/cblas/dtpsv.c	Tue Sep 21 06:40:07 2010 +0000
+++ b/cblas/dtpsv.c	Tue Oct 12 11:35:36 2010 +0200
@@ -1,6 +1,7 @@
 #include <gsl/gsl_math.h>
 #include <gsl/gsl_cblas.h>
 #include "cblas.h"
+#include "error_cblas_l2.h"
 
 void
 cblas_dtpsv (const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
diff -r 26df454fcc1c cblas/dtrmv.c
--- a/cblas/dtrmv.c	Tue Sep 21 06:40:07 2010 +0000
+++ b/cblas/dtrmv.c	Tue Oct 12 11:35:36 2010 +0200
@@ -1,6 +1,7 @@
 #include <gsl/gsl_math.h>
 #include <gsl/gsl_cblas.h>
 #include "cblas.h"
+#include "error_cblas_l2.h"
 
 void
 cblas_dtrmv (const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
diff -r 26df454fcc1c cblas/dtrsv.c
--- a/cblas/dtrsv.c	Tue Sep 21 06:40:07 2010 +0000
+++ b/cblas/dtrsv.c	Tue Oct 12 11:35:36 2010 +0200
@@ -1,6 +1,7 @@
 #include <gsl/gsl_math.h>
 #include <gsl/gsl_cblas.h>
 #include "cblas.h"
+#include "error_cblas_l2.h"
 
 void
 cblas_dtrsv (const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
diff -r 26df454fcc1c cblas/error_cblas.h
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/cblas/error_cblas.h	Tue Oct 12 11:35:36 2010 +0200
@@ -0,0 +1,73 @@
+/* cblas/error_cblas.h
+ *
+ * Copyright (C) 2010 José Luis García Pallero
+ *
+ * This program is free software; you can redistribute it and/or modify
+ * it under the terms of the GNU General Public License as published by
+ * the Free Software Foundation; either version 3 of the License, or (at
+ * your option) any later version.
+ *
+ * This program is distributed in the hope that it will be useful, but
+ * WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+ * General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with this program; if not, write to the Free Software
+ * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
+ */
+
+#ifndef __ERROR_CBLAS_H__
+#define __ERROR_CBLAS_H__
+#include <gsl/gsl_math.h>
+
+#undef __BEGIN_DECLS
+#undef __END_DECLS
+#ifdef __cplusplus
+#define __BEGIN_DECLS extern "C" {
+#define __END_DECLS }
+#else
+#define __BEGIN_DECLS           /* empty */
+#define __END_DECLS             /* empty */
+#endif
+
+__BEGIN_DECLS
+
+/* check if CBLAS_ORDER is correct */
+#define CHECK_ORDER(pos,posIfError,order) \
+if(((order)!=CblasRowMajor)&&((order)!=CblasColMajor)) \
+     pos = posIfError;
+
+/* check if CBLAS_TRANSPOSE is correct */
+#define CHECK_TRANSPOSE(pos,posIfError,Trans) \
+if(((Trans)!=CblasNoTrans)&&((Trans)!=CblasTrans)&&((Trans)!=CblasConjTrans)) \
+    pos = posIfError;
+
+/* check if CBLAS_UPLO is correct */
+#define CHECK_UPLO(pos,posIfError,Uplo) \
+if(((Uplo)!=CblasUpper)&&((Uplo)!=CblasLower)) \
+    pos = posIfError;
+
+/* check if CBLAS_DIAG is correct */
+#define CHECK_DIAG(pos,posIfError,Diag) \
+if(((Diag)!=CblasNonUnit)&&((Diag)!=CblasUnit)) \
+    pos = posIfError;
+
+/* check if CBLAS_SIDE is correct */
+#define CHECK_SIDE(pos,posIfError,Side) \
+if(((Side)!=CblasLeft)&&((Side)!=CblasRight)) \
+    pos = posIfError;
+
+/* check if a dimension argument is correct */
+#define CHECK_DIM(pos,posIfError,dim) \
+if((dim)<0) \
+    pos = posIfError;
+
+/* check if a stride argument is correct */
+#define CHECK_STRIDE(pos,posIfError,stride) \
+if((stride)==0) \
+    pos = posIfError;
+
+__END_DECLS
+
+#endif /* __ERROR_CBLAS_H__ */
diff -r 26df454fcc1c cblas/error_cblas_l2.h
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/cblas/error_cblas_l2.h	Tue Oct 12 11:35:36 2010 +0200
@@ -0,0 +1,254 @@
+/* cblas/error_cblas_l2.h
+ *
+ * Copyright (C) 2010 José Luis García Pallero
+ *
+ * This program is free software; you can redistribute it and/or modify
+ * it under the terms of the GNU General Public License as published by
+ * the Free Software Foundation; either version 3 of the License, or (at
+ * your option) any later version.
+ *
+ * This program is distributed in the hope that it will be useful, but
+ * WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+ * General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with this program; if not, write to the Free Software
+ * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
+ */
+
+#ifndef __ERROR_CBLAS_L2_H__
+#define __ERROR_CBLAS_L2_H__
+#include <gsl/gsl_math.h>
+#include "error_cblas.h"
+
+#undef __BEGIN_DECLS
+#undef __END_DECLS
+#ifdef __cplusplus
+#define __BEGIN_DECLS extern "C" {
+#define __END_DECLS }
+#else
+#define __BEGIN_DECLS           /* empty */
+#define __END_DECLS             /* empty */
+#endif
+
+__BEGIN_DECLS
+
+/*
+ * =============================================================================
+ * Prototypes for level 2 BLAS
+ * =============================================================================
+ */
+
+/*
+ * Routines with standard 4 prefixes (S, D, C, Z)
+ */
+
+/* cblas_xgemv() */
+#define CBLAS_ERROR_GEMV(pos,order,TransA,M,N,alpha,A,lda,X,incX,beta,Y,incY) \
+CHECK_ORDER(pos,1,order); \
+CHECK_TRANSPOSE(pos,2,TransA); \
+CHECK_DIM(pos,3,M); \
+CHECK_DIM(pos,4,N); \
+if((order)==CblasRowMajor) { \
+    if((lda)<GSL_MAX(1,N)) { \
+        pos = 7; \
+    } \
+} else if((order)==CblasColMajor) { \
+    if((lda)<GSL_MAX(1,M)) { \
+        pos = 7; \
+    } \
+} \
+CHECK_STRIDE(pos,9,incX); \
+CHECK_STRIDE(pos,12,incY);
+
+/* cblas_xgbmv() */
+#define CBLAS_ERROR_GBMV(pos,order,TransA,M,N,KL,KU,alpha,A,lda,X,incX,beta,Y,incY) \
+CHECK_ORDER(pos,1,order); \
+CHECK_TRANSPOSE(pos,2,TransA); \
+CHECK_DIM(pos,3,M); \
+CHECK_DIM(pos,4,N); \
+CHECK_DIM(pos,5,KL); \
+CHECK_DIM(pos,6,KU); \
+if((lda)<GSL_MAX(1,(KL+KU+1))) { \
+    pos = 9; \
+} \
+CHECK_STRIDE(pos,11,incX); \
+CHECK_STRIDE(pos,14,incY);
+
+/* cblas_xtrmv() */
+#define CBLAS_ERROR_TRMV(pos,order,Uplo,TransA,Diag,N,A,lda,X,incX) \
+CHECK_ORDER(pos,1,order); \
+CHECK_UPLO(pos,2,Uplo); \
+CHECK_TRANSPOSE(pos,3,TransA); \
+CHECK_DIAG(pos,4,Diag); \
+CHECK_DIM(pos,5,N); \
+if((lda)<GSL_MAX(1,N)) \
+    pos = 7; \
+CHECK_STRIDE(pos,9,incX);
+
+/* cblas_xtbmv() */
+#define CBLAS_ERROR_TBMV(pos,order,Uplo,TransA,Diag,N,K,A,lda,X,incX) \
+CHECK_ORDER(pos,1,order); \
+CHECK_UPLO(pos,2,Uplo); \
+CHECK_TRANSPOSE(pos,3,TransA); \
+CHECK_DIAG(pos,4,Diag); \
+CHECK_DIM(pos,5,N); \
+CHECK_DIM(pos,6,K); \
+if((lda)<GSL_MAX(1,(K+1))) { \
+    pos = 8; \
+} \
+CHECK_STRIDE(pos,10,incX);
+
+/* cblas_xtpmv() */
+#define CBLAS_ERROR_TPMV(pos,order,Uplo,TransA,Diag,N,Ap,X,incX) \
+CHECK_ORDER(pos,1,order); \
+CHECK_UPLO(pos,2,Uplo); \
+CHECK_TRANSPOSE(pos,3,TransA); \
+CHECK_DIAG(pos,4,Diag); \
+CHECK_DIM(pos,5,N); \
+CHECK_STRIDE(pos,8,incX);
+
+/* cblas_xtrsv() */
+#define CBLAS_ERROR_TRSV(pos,order,Uplo,TransA,Diag,N,A,lda,X,incX) \
+CBLAS_ERROR_TRMV(pos,order,Uplo,TransA,Diag,N,A,lda,X,incX)
+
+/* cblas_xtbsv() */
+#define CBLAS_ERROR_TBSV(pos,order,Uplo,TransA,Diag,N,K,A,lda,X,incX) \
+CBLAS_ERROR_TBMV(pos,order,Uplo,TransA,Diag,N,K,A,lda,X,incX)
+
+/* cblas_xtpsv() */
+#define CBLAS_ERROR_TPSV(pos,order,Uplo,TransA,Diag,N,Ap,X,incX) \
+CBLAS_ERROR_TPMV(pos,order,Uplo,TransA,Diag,N,Ap,X,incX)
+
+/*
+ * Routines with S and D prefixes only
+ */
+
+/* cblas_xsymv() */
+#define CBLAS_ERROR_SD_SYMV(pos,order,Uplo,N,alpha,A,lda,X,incX,beta,Y,incY) \
+CHECK_ORDER(pos,1,order); \
+CHECK_UPLO(pos,2,Uplo); \
+CHECK_DIM(pos,3,N); \
+if((lda)<GSL_MAX(1,N)) { \
+    pos = 6; \
+} \
+CHECK_STRIDE(pos,8,incX); \
+CHECK_STRIDE(pos,11,incY);
+
+/* cblas_xsbmv() */
+#define CBLAS_ERROR_SD_SBMV(pos,order,Uplo,N,K,alpha,A,lda,X,incX,beta,Y,incY) \
+CHECK_ORDER(pos,1,order); \
+CHECK_UPLO(pos,2,Uplo); \
+CHECK_DIM(pos,3,N); \
+CHECK_DIM(pos,4,K); \
+if((lda)<GSL_MAX(1,K+1)) { \
+    pos = 7; \
+} \
+CHECK_STRIDE(pos,9,incX); \
+CHECK_STRIDE(pos,12,incY);
+
+/* cblas_xspmv() */
+#define CBLAS_ERROR_SD_SPMV(pos,order,Uplo,N,alpha,Ap,X,incX,beta,Y,incY) \
+CHECK_ORDER(pos,1,order); \
+CHECK_UPLO(pos,2,Uplo); \
+CHECK_DIM(pos,3,N); \
+CHECK_STRIDE(pos,7,incX); \
+CHECK_STRIDE(pos,10,incY);
+
+/* cblas_xger() */
+#define CBLAS_ERROR_SD_GER(pos,order,M,N,alpha,X,incX,Y,incY,A,lda) \
+CHECK_ORDER(pos,1,order); \
+CHECK_DIM(pos,2,M); \
+CHECK_DIM(pos,3,N); \
+CHECK_STRIDE(pos,6,incX); \
+CHECK_STRIDE(pos,8,incY); \
+if((order)==CblasRowMajor) { \
+    if((lda)<GSL_MAX(1,N)) { \
+        pos = 10; \
+    } \
+} else if((order)==CblasColMajor) { \
+    if((lda)<GSL_MAX(1,M)) { \
+        pos = 10; \
+    } \
+}
+
+/* cblas_xsyr() */
+#define CBLAS_ERROR_SD_SYR(pos,order,Uplo,N,alpha,X,incX,A,lda) \
+CHECK_ORDER(pos,1,order); \
+CHECK_UPLO(pos,2,Uplo); \
+CHECK_DIM(pos,3,N); \
+CHECK_STRIDE(pos,6,incX); \
+if((lda)<GSL_MAX(1,N)) { \
+    pos = 8; \
+}
+
+/* cblas_xspr() */
+#define CBLAS_ERROR_SD_SPR(pos,order,Uplo,N,alpha,X,incX,Ap) \
+CHECK_ORDER(pos,1,order); \
+CHECK_UPLO(pos,2,Uplo); \
+CHECK_DIM(pos,3,N); \
+CHECK_STRIDE(pos,6,incX);
+
+/* cblas_xsyr2() */
+#define CBLAS_ERROR_SD_SYR2(pos,order,Uplo,N,alpha,X,incX,Y,incY,A,lda) \
+CHECK_ORDER(pos,1,order); \
+CHECK_UPLO(pos,2,Uplo); \
+CHECK_DIM(pos,3,N); \
+CHECK_STRIDE(pos,6,incX); \
+CHECK_STRIDE(pos,8,incY); \
+if((lda)<GSL_MAX(1,N)) { \
+    pos = 10; \
+}
+
+/* cblas_xspr2() */
+#define CBLAS_ERROR_SD_SPR2(pos,order,Uplo,N,alpha,X,incX,Y,incY,A) \
+CHECK_ORDER(pos,1,order); \
+CHECK_UPLO(pos,2,Uplo); \
+CHECK_DIM(pos,3,N); \
+CHECK_STRIDE(pos,6,incX); \
+CHECK_STRIDE(pos,8,incY);
+
+/*
+ * Routines with C and Z prefixes only
+ */
+
+/* cblas_xhemv() */
+#define CBLAS_ERROR_CZ_HEMV(pos,order,Uplo,N,alpha,A,lda,X,incX,beta,Y,incY) \
+CBLAS_ERROR_SD_SYMV(pos,order,Uplo,N,alpha,A,lda,X,incX,beta,Y,incY)
+
+/* cblas_xhbmv() */
+#define CBLAS_ERROR_CZ_HBMV(pos,order,Uplo,N,K,alpha,A,lda,X,incX,beta,Y,incY) \
+CBLAS_ERROR_SD_SBMV(pos,order,Uplo,N,K,alpha,A,lda,X,incX,beta,Y,incY)
+
+/* cblas_xhpmv() */
+#define CBLAS_ERROR_CZ_HPMV(pos,order,Uplo,N,alpha,Ap,X,incX,beta,Y,incY) \
+CBLAS_ERROR_SD_SPMV(pos,order,Uplo,N,alpha,Ap,X,incX,beta,Y,incY)
+
+/* cblas_xgeru() */
+#define CBLAS_ERROR_CZ_GERU(pos,order,M,N,alpha,X,incX,Y,incY,A,lda) \
+CBLAS_ERROR_SD_GER(pos,order,M,N,alpha,X,incX,Y,incY,A,lda)
+
+/* cblas_xgerc() */
+#define CBLAS_ERROR_CZ_GERC(pos,order,M,N,alpha,X,incX,Y,incY,A,lda) \
+CBLAS_ERROR_SD_GER(pos,order,M,N,alpha,X,incX,Y,incY,A,lda)
+
+/* cblas_xher() */
+#define CBLAS_ERROR_CZ_HER(pos,order,Uplo,N,alpha,X,incX,A,lda) \
+CBLAS_ERROR_SD_SYR(pos,order,Uplo,N,alpha,X,incX,A,lda)
+
+/* cblas_xhpr() */
+#define CBLAS_ERROR_CZ_HPR(pos,order,Uplo,N,alpha,X,incX,A) \
+CBLAS_ERROR_SD_SPR(pos,order,Uplo,N,alpha,X,incX,A)
+
+/* cblas_xher2() */
+#define CBLAS_ERROR_CZ_HER2(pos,order,Uplo,N,alpha,X,incX,Y,incY,A,lda) \
+CBLAS_ERROR_SD_SYR2(pos,order,Uplo,N,alpha,X,incX,Y,incY,A,lda)
+
+/* cblas_xhpr2() */
+#define CBLAS_ERROR_CZ_HPR2(pos,order,Uplo,N,alpha,X,incX,Y,incY,Ap) \
+CBLAS_ERROR_SD_SPR2(pos,order,Uplo,N,alpha,X,incX,Y,incY,Ap)
+
+__END_DECLS
+
+#endif /* __ERROR_CBLAS_L2_H__ */
diff -r 26df454fcc1c cblas/sgbmv.c
--- a/cblas/sgbmv.c	Tue Sep 21 06:40:07 2010 +0000
+++ b/cblas/sgbmv.c	Tue Oct 12 11:35:36 2010 +0200
@@ -1,6 +1,7 @@
 #include <gsl/gsl_math.h>
 #include <gsl/gsl_cblas.h>
 #include "cblas.h"
+#include "error_cblas_l2.h"
 
 void
 cblas_sgbmv (const enum CBLAS_ORDER order, const enum CBLAS_TRANSPOSE TransA,
diff -r 26df454fcc1c cblas/sgemv.c
--- a/cblas/sgemv.c	Tue Sep 21 06:40:07 2010 +0000
+++ b/cblas/sgemv.c	Tue Oct 12 11:35:36 2010 +0200
@@ -1,6 +1,7 @@
 #include <gsl/gsl_math.h>
 #include <gsl/gsl_cblas.h>
 #include "cblas.h"
+#include "error_cblas_l2.h"
 
 void
 cblas_sgemv (const enum CBLAS_ORDER order, const enum CBLAS_TRANSPOSE TransA,
diff -r 26df454fcc1c cblas/sger.c
--- a/cblas/sger.c	Tue Sep 21 06:40:07 2010 +0000
+++ b/cblas/sger.c	Tue Oct 12 11:35:36 2010 +0200
@@ -1,6 +1,7 @@
 #include <gsl/gsl_math.h>
 #include <gsl/gsl_cblas.h>
 #include "cblas.h"
+#include "error_cblas_l2.h"
 
 void
 cblas_sger (const enum CBLAS_ORDER order, const int M, const int N,
diff -r 26df454fcc1c cblas/source_gbmv_c.h
--- a/cblas/source_gbmv_c.h	Tue Sep 21 06:40:07 2010 +0000
+++ b/cblas/source_gbmv_c.h	Tue Oct 12 11:35:36 2010 +0200
@@ -1,17 +1,17 @@
 /* blas/source_gbmv_c.h
- * 
+ *
  * Copyright (C) 1996, 1997, 1998, 1999, 2000 Gerard Jungman
- * 
+ *
  * This program is free software; you can redistribute it and/or modify
  * it under the terms of the GNU General Public License as published by
  * the Free Software Foundation; either version 3 of the License, or (at
  * your option) any later version.
- * 
+ *
  * This program is distributed in the hope that it will be useful, but
  * WITHOUT ANY WARRANTY; without even the implied warranty of
  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  * General Public License for more details.
- * 
+ *
  * You should have received a copy of the GNU General Public License
  * along with this program; if not, write to the Free Software
  * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
@@ -27,6 +27,11 @@
   const BASE beta_real = CONST_REAL0(beta);
   const BASE beta_imag = CONST_IMAG0(beta);
 
+  int pos=0;
+  CBLAS_ERROR_GBMV(pos,order,TransA,M,N,KL,KU,alpha,A,lda,X,incX,beta,Y,incY);
+  if(pos)
+    cblas_xerbla(pos,__FILE__,"");
+
   if (M == 0 || N == 0)
     return;
 
diff -r 26df454fcc1c cblas/source_gbmv_r.h
--- a/cblas/source_gbmv_r.h	Tue Sep 21 06:40:07 2010 +0000
+++ b/cblas/source_gbmv_r.h	Tue Oct 12 11:35:36 2010 +0200
@@ -1,17 +1,17 @@
 /* blas/source_gbmv_r.h
- * 
+ *
  * Copyright (C) 1996, 1997, 1998, 1999, 2000 Gerard Jungman
- * 
+ *
  * This program is free software; you can redistribute it and/or modify
  * it under the terms of the GNU General Public License as published by
  * the Free Software Foundation; either version 3 of the License, or (at
  * your option) any later version.
- * 
+ *
  * This program is distributed in the hope that it will be useful, but
  * WITHOUT ANY WARRANTY; without even the implied warranty of
  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  * General Public License for more details.
- * 
+ *
  * You should have received a copy of the GNU General Public License
  * along with this program; if not, write to the Free Software
  * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
@@ -21,6 +21,11 @@
   INDEX i, j;
   INDEX lenX, lenY, L, U;
 
+  int pos=0;
+  CBLAS_ERROR_GBMV(pos,order,TransA,M,N,KL,KU,alpha,A,lda,X,incX,beta,Y,incY);
+  if(pos)
+    cblas_xerbla(pos,__FILE__,"");
+
   const int Trans = (TransA != CblasConjTrans) ? TransA : CblasTrans;
 
   if (M == 0 || N == 0)
diff -r 26df454fcc1c cblas/source_gemv_c.h
--- a/cblas/source_gemv_c.h	Tue Sep 21 06:40:07 2010 +0000
+++ b/cblas/source_gemv_c.h	Tue Oct 12 11:35:36 2010 +0200
@@ -1,17 +1,17 @@
 /* blas/source_gemv_c.h
- * 
+ *
  * Copyright (C) 1996, 1997, 1998, 1999, 2000 Gerard Jungman
- * 
+ *
  * This program is free software; you can redistribute it and/or modify
  * it under the terms of the GNU General Public License as published by
  * the Free Software Foundation; either version 3 of the License, or (at
  * your option) any later version.
- * 
+ *
  * This program is distributed in the hope that it will be useful, but
  * WITHOUT ANY WARRANTY; without even the implied warranty of
  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  * General Public License for more details.
- * 
+ *
  * You should have received a copy of the GNU General Public License
  * along with this program; if not, write to the Free Software
  * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
@@ -27,6 +27,11 @@
   const BASE beta_real = CONST_REAL0(beta);
   const BASE beta_imag = CONST_IMAG0(beta);
 
+  int pos=0;
+  CBLAS_ERROR_GEMV(pos,order,TransA,M,N,alpha,A,lda,X,incX,beta,Y,incY);
+  if(pos)
+    cblas_xerbla(pos,__FILE__,"");
+
   if (M == 0 || N == 0)
     return;
 
diff -r 26df454fcc1c cblas/source_gemv_r.h
--- a/cblas/source_gemv_r.h	Tue Sep 21 06:40:07 2010 +0000
+++ b/cblas/source_gemv_r.h	Tue Oct 12 11:35:36 2010 +0200
@@ -1,17 +1,17 @@
 /* blas/source_gemv_r.h
- * 
+ *
  * Copyright (C) 1996, 1997, 1998, 1999, 2000 Gerard Jungman
- * 
+ *
  * This program is free software; you can redistribute it and/or modify
  * it under the terms of the GNU General Public License as published by
  * the Free Software Foundation; either version 3 of the License, or (at
  * your option) any later version.
- * 
+ *
  * This program is distributed in the hope that it will be useful, but
  * WITHOUT ANY WARRANTY; without even the implied warranty of
  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  * General Public License for more details.
- * 
+ *
  * You should have received a copy of the GNU General Public License
  * along with this program; if not, write to the Free Software
  * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
@@ -21,6 +21,11 @@
   INDEX i, j;
   INDEX lenX, lenY;
 
+  int pos=0;
+  CBLAS_ERROR_GEMV(pos,order,TransA,M,N,alpha,A,lda,X,incX,beta,Y,incY);
+  if(pos)
+    cblas_xerbla(pos,__FILE__,"");
+
   const int Trans = (TransA != CblasConjTrans) ? TransA : CblasTrans;
 
   if (M == 0 || N == 0)
diff -r 26df454fcc1c cblas/source_ger.h
--- a/cblas/source_ger.h	Tue Sep 21 06:40:07 2010 +0000
+++ b/cblas/source_ger.h	Tue Oct 12 11:35:36 2010 +0200
@@ -1,17 +1,17 @@
 /* blas/source_ger.h
- * 
+ *
  * Copyright (C) 1996, 1997, 1998, 1999, 2000 Gerard Jungman
- * 
+ *
  * This program is free software; you can redistribute it and/or modify
  * it under the terms of the GNU General Public License as published by
  * the Free Software Foundation; either version 3 of the License, or (at
  * your option) any later version.
- * 
+ *
  * This program is distributed in the hope that it will be useful, but
  * WITHOUT ANY WARRANTY; without even the implied warranty of
  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  * General Public License for more details.
- * 
+ *
  * You should have received a copy of the GNU General Public License
  * along with this program; if not, write to the Free Software
  * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
@@ -20,6 +20,11 @@
 {
   INDEX i, j;
 
+  int pos=0;
+  CBLAS_ERROR_SD_GER(pos,order,M,N,alpha,X,incX,Y,incY,A,lda);
+  if(pos)
+    cblas_xerbla(pos,__FILE__,"");
+
   if (order == CblasRowMajor) {
     INDEX ix = OFFSET(M, incX);
     for (i = 0; i < M; i++) {
diff -r 26df454fcc1c cblas/source_gerc.h
--- a/cblas/source_gerc.h	Tue Sep 21 06:40:07 2010 +0000
+++ b/cblas/source_gerc.h	Tue Oct 12 11:35:36 2010 +0200
@@ -1,17 +1,17 @@
 /* blas/source_gerc.h
- * 
+ *
  * Copyright (C) 1996, 1997, 1998, 1999, 2000 Gerard Jungman
- * 
+ *
  * This program is free software; you can redistribute it and/or modify
  * it under the terms of the GNU General Public License as published by
  * the Free Software Foundation; either version 3 of the License, or (at
  * your option) any later version.
- * 
+ *
  * This program is distributed in the hope that it will be useful, but
  * WITHOUT ANY WARRANTY; without even the implied warranty of
  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  * General Public License for more details.
- * 
+ *
  * You should have received a copy of the GNU General Public License
  * along with this program; if not, write to the Free Software
  * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
@@ -20,6 +20,11 @@
 {
   INDEX i, j;
 
+  int pos=0;
+  CBLAS_ERROR_CZ_GERC(pos,order,M,N,alpha,X,incX,Y,incY,A,lda);
+  if(pos)
+    cblas_xerbla(pos,__FILE__,"");
+
   const BASE alpha_real = CONST_REAL0(alpha);
   const BASE alpha_imag = CONST_IMAG0(alpha);
 
diff -r 26df454fcc1c cblas/source_geru.h
--- a/cblas/source_geru.h	Tue Sep 21 06:40:07 2010 +0000
+++ b/cblas/source_geru.h	Tue Oct 12 11:35:36 2010 +0200
@@ -1,17 +1,17 @@
 /* blas/source_geru.h
- * 
+ *
  * Copyright (C) 1996, 1997, 1998, 1999, 2000 Gerard Jungman
- * 
+ *
  * This program is free software; you can redistribute it and/or modify
  * it under the terms of the GNU General Public License as published by
  * the Free Software Foundation; either version 3 of the License, or (at
  * your option) any later version.
- * 
+ *
  * This program is distributed in the hope that it will be useful, but
  * WITHOUT ANY WARRANTY; without even the implied warranty of
  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  * General Public License for more details.
- * 
+ *
  * You should have received a copy of the GNU General Public License
  * along with this program; if not, write to the Free Software
  * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
@@ -19,6 +19,12 @@
 
 {
   INDEX i, j;
+
+  int pos=0;
+  CBLAS_ERROR_CZ_GERU(pos,order,M,N,alpha,X,incX,Y,incY,A,lda);
+  if(pos)
+    cblas_xerbla(pos,__FILE__,"");
+
   const BASE alpha_real = CONST_REAL0(alpha);
   const BASE alpha_imag = CONST_IMAG0(alpha);
 
diff -r 26df454fcc1c cblas/source_hbmv.h
--- a/cblas/source_hbmv.h	Tue Sep 21 06:40:07 2010 +0000
+++ b/cblas/source_hbmv.h	Tue Oct 12 11:35:36 2010 +0200
@@ -1,17 +1,17 @@
 /* blas/source_hbmv.h
- * 
+ *
  * Copyright (C) 1996, 1997, 1998, 1999, 2000 Gerard Jungman
- * 
+ *
  * This program is free software; you can redistribute it and/or modify
  * it under the terms of the GNU General Public License as published by
  * the Free Software Foundation; either version 3 of the License, or (at
  * your option) any later version.
- * 
+ *
  * This program is distributed in the hope that it will be useful, but
  * WITHOUT ANY WARRANTY; without even the implied warranty of
  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  * General Public License for more details.
- * 
+ *
  * You should have received a copy of the GNU General Public License
  * along with this program; if not, write to the Free Software
  * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
@@ -19,6 +19,12 @@
 
 {
   INDEX i, j;
+
+  int pos=0;
+  CBLAS_ERROR_CZ_HBMV(pos,order,Uplo,N,K,alpha,A,lda,X,incX,beta,Y,incY);
+  if(pos)
+    cblas_xerbla(pos,__FILE__,"");
+
   const int conj = (order == CblasColMajor) ? -1 : 1;
 
   const BASE alpha_real = CONST_REAL0(alpha);
diff -r 26df454fcc1c cblas/source_hemv.h
--- a/cblas/source_hemv.h	Tue Sep 21 06:40:07 2010 +0000
+++ b/cblas/source_hemv.h	Tue Oct 12 11:35:36 2010 +0200
@@ -1,23 +1,28 @@
 /* blas/source_hemv.h
- * 
+ *
  * Copyright (C) 2001, 2007 Brian Gough
- * 
+ *
  * This program is free software; you can redistribute it and/or modify
  * it under the terms of the GNU General Public License as published by
  * the Free Software Foundation; either version 3 of the License, or (at
  * your option) any later version.
- * 
+ *
  * This program is distributed in the hope that it will be useful, but
  * WITHOUT ANY WARRANTY; without even the implied warranty of
  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  * General Public License for more details.
- * 
+ *
  * You should have received a copy of the GNU General Public License
  * along with this program; if not, write to the Free Software
  * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
  */
 
 {
+  int pos=0;
+  CBLAS_ERROR_CZ_HEMV(pos,order,Uplo,N,alpha,A,lda,X,incX,beta,Y,incY);
+  if(pos)
+    cblas_xerbla(pos,__FILE__,"");
+
   const int conj = (order == CblasColMajor) ? -1 : 1;
   INDEX i, j;
 
diff -r 26df454fcc1c cblas/source_her.h
--- a/cblas/source_her.h	Tue Sep 21 06:40:07 2010 +0000
+++ b/cblas/source_her.h	Tue Oct 12 11:35:36 2010 +0200
@@ -1,23 +1,28 @@
 /* blas/source_her.h
- * 
+ *
  * Copyright (C) 1996, 1997, 1998, 1999, 2000 Gerard Jungman
- * 
+ *
  * This program is free software; you can redistribute it and/or modify
  * it under the terms of the GNU General Public License as published by
  * the Free Software Foundation; either version 3 of the License, or (at
  * your option) any later version.
- * 
+ *
  * This program is distributed in the hope that it will be useful, but
  * WITHOUT ANY WARRANTY; without even the implied warranty of
  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  * General Public License for more details.
- * 
+ *
  * You should have received a copy of the GNU General Public License
  * along with this program; if not, write to the Free Software
  * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
  */
 
 {
+  int pos=0;
+  CBLAS_ERROR_CZ_HER(pos,order,Uplo,N,alpha,X,incX,A,lda);
+  if(pos)
+    cblas_xerbla(pos,__FILE__,"");
+
   const int conj = (order == CblasColMajor) ? -1 : 1;
   INDEX i, j;
 
diff -r 26df454fcc1c cblas/source_her2.h
--- a/cblas/source_her2.h	Tue Sep 21 06:40:07 2010 +0000
+++ b/cblas/source_her2.h	Tue Oct 12 11:35:36 2010 +0200
@@ -1,23 +1,28 @@
 /* blas/source_her2.h
- * 
+ *
  * Copyright (C) 1996, 1997, 1998, 1999, 2000 Gerard Jungman
- * 
+ *
  * This program is free software; you can redistribute it and/or modify
  * it under the terms of the GNU General Public License as published by
  * the Free Software Foundation; either version 3 of the License, or (at
  * your option) any later version.
- * 
+ *
  * This program is distributed in the hope that it will be useful, but
  * WITHOUT ANY WARRANTY; without even the implied warranty of
  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  * General Public License for more details.
- * 
+ *
  * You should have received a copy of the GNU General Public License
  * along with this program; if not, write to the Free Software
  * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
  */
 
 {
+  int pos=0;
+  CBLAS_ERROR_CZ_HER2(pos,order,Uplo,N,alpha,X,incX,Y,incY,A,lda);
+  if(pos)
+    cblas_xerbla(pos,__FILE__,"");
+
   const int conj = (order == CblasColMajor) ? -1 : 1;
   INDEX i, j;
 
diff -r 26df454fcc1c cblas/source_hpmv.h
--- a/cblas/source_hpmv.h	Tue Sep 21 06:40:07 2010 +0000
+++ b/cblas/source_hpmv.h	Tue Oct 12 11:35:36 2010 +0200
@@ -1,23 +1,28 @@
 /* blas/source_hpmv.h
- * 
+ *
  * Copyright (C) 1996, 1997, 1998, 1999, 2000 Gerard Jungman
- * 
+ *
  * This program is free software; you can redistribute it and/or modify
  * it under the terms of the GNU General Public License as published by
  * the Free Software Foundation; either version 3 of the License, or (at
  * your option) any later version.
- * 
+ *
  * This program is distributed in the hope that it will be useful, but
  * WITHOUT ANY WARRANTY; without even the implied warranty of
  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  * General Public License for more details.
- * 
+ *
  * You should have received a copy of the GNU General Public License
  * along with this program; if not, write to the Free Software
  * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
  */
 
 {
+  int pos=0;
+  CBLAS_ERROR_CZ_HPMV(pos,order,Uplo,N,alpha,Ap,X,incX,beta,Y,incY);
+  if(pos)
+    cblas_xerbla(pos,__FILE__,"");
+
   const int conj = (order == CblasColMajor) ? -1 : 1;
   INDEX i, j;
 
diff -r 26df454fcc1c cblas/source_hpr.h
--- a/cblas/source_hpr.h	Tue Sep 21 06:40:07 2010 +0000
+++ b/cblas/source_hpr.h	Tue Oct 12 11:35:36 2010 +0200
@@ -1,23 +1,28 @@
 /* blas/source_hpr.h
- * 
+ *
  * Copyright (C) 1996, 1997, 1998, 1999, 2000 Gerard Jungman
- * 
+ *
  * This program is free software; you can redistribute it and/or modify
  * it under the terms of the GNU General Public License as published by
  * the Free Software Foundation; either version 3 of the License, or (at
  * your option) any later version.
- * 
+ *
  * This program is distributed in the hope that it will be useful, but
  * WITHOUT ANY WARRANTY; without even the implied warranty of
  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  * General Public License for more details.
- * 
+ *
  * You should have received a copy of the GNU General Public License
  * along with this program; if not, write to the Free Software
  * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
  */
 
 {
+  int pos=0;
+  CBLAS_ERROR_CZ_HPR(pos,order,Uplo,N,alpha,X,incX,A);
+  if(pos)
+    cblas_xerbla(pos,__FILE__,"");
+
   const int conj = (order == CblasColMajor) ? -1 : 1;
   INDEX i, j;
 
diff -r 26df454fcc1c cblas/source_hpr2.h
--- a/cblas/source_hpr2.h	Tue Sep 21 06:40:07 2010 +0000
+++ b/cblas/source_hpr2.h	Tue Oct 12 11:35:36 2010 +0200
@@ -1,23 +1,28 @@
 /* blas/source_hpr2.h
- * 
+ *
  * Copyright (C) 1996, 1997, 1998, 1999, 2000 Gerard Jungman
- * 
+ *
  * This program is free software; you can redistribute it and/or modify
  * it under the terms of the GNU General Public License as published by
  * the Free Software Foundation; either version 3 of the License, or (at
  * your option) any later version.
- * 
+ *
  * This program is distributed in the hope that it will be useful, but
  * WITHOUT ANY WARRANTY; without even the implied warranty of
  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  * General Public License for more details.
- * 
+ *
  * You should have received a copy of the GNU General Public License
  * along with this program; if not, write to the Free Software
  * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
  */
 
 {
+  int pos=0;
+  CBLAS_ERROR_CZ_HPR2(pos,order,Uplo,N,alpha,X,incX,Y,incY,Ap);
+  if(pos)
+    cblas_xerbla(pos,__FILE__,"");
+
   const int conj = (order == CblasColMajor) ? -1 : 1;
   INDEX i, j;
 
diff -r 26df454fcc1c cblas/source_sbmv.h
--- a/cblas/source_sbmv.h	Tue Sep 21 06:40:07 2010 +0000
+++ b/cblas/source_sbmv.h	Tue Oct 12 11:35:36 2010 +0200
@@ -1,17 +1,17 @@
 /* blas/source_sbmv.h
- * 
+ *
  * Copyright (C) 1996, 1997, 1998, 1999, 2000 Gerard Jungman
- * 
+ *
  * This program is free software; you can redistribute it and/or modify
  * it under the terms of the GNU General Public License as published by
  * the Free Software Foundation; either version 3 of the License, or (at
  * your option) any later version.
- * 
+ *
  * This program is distributed in the hope that it will be useful, but
  * WITHOUT ANY WARRANTY; without even the implied warranty of
  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  * General Public License for more details.
- * 
+ *
  * You should have received a copy of the GNU General Public License
  * along with this program; if not, write to the Free Software
  * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
@@ -20,6 +20,11 @@
 {
   INDEX i, j;
 
+  int pos=0;
+  CBLAS_ERROR_SD_SBMV(pos,order,Uplo,N,K,alpha,A,lda,X,incX,beta,Y,incY);
+  if(pos)
+    cblas_xerbla(pos,__FILE__,"");
+
   if (N == 0)
     return;
 
diff -r 26df454fcc1c cblas/source_spmv.h
--- a/cblas/source_spmv.h	Tue Sep 21 06:40:07 2010 +0000
+++ b/cblas/source_spmv.h	Tue Oct 12 11:35:36 2010 +0200
@@ -1,17 +1,17 @@
 /* blas/source_spmv.h
- * 
+ *
  * Copyright (C) 1996, 1997, 1998, 1999, 2000 Gerard Jungman
- * 
+ *
  * This program is free software; you can redistribute it and/or modify
  * it under the terms of the GNU General Public License as published by
  * the Free Software Foundation; either version 3 of the License, or (at
  * your option) any later version.
- * 
+ *
  * This program is distributed in the hope that it will be useful, but
  * WITHOUT ANY WARRANTY; without even the implied warranty of
  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  * General Public License for more details.
- * 
+ *
  * You should have received a copy of the GNU General Public License
  * along with this program; if not, write to the Free Software
  * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
@@ -20,6 +20,10 @@
 {
   INDEX i, j;
 
+  int pos=0;
+  CBLAS_ERROR_SD_SPMV(pos,order,Uplo,N,alpha,Ap,X,incX,beta,Y,incY);
+  if(pos)
+    cblas_xerbla(pos,__FILE__,"");
 
   if (alpha == 0.0 && beta == 1.0)
     return;
diff -r 26df454fcc1c cblas/source_spr.h
--- a/cblas/source_spr.h	Tue Sep 21 06:40:07 2010 +0000
+++ b/cblas/source_spr.h	Tue Oct 12 11:35:36 2010 +0200
@@ -1,17 +1,17 @@
 /* blas/source_spr.h
- * 
+ *
  * Copyright (C) 1996, 1997, 1998, 1999, 2000 Gerard Jungman
- * 
+ *
  * This program is free software; you can redistribute it and/or modify
  * it under the terms of the GNU General Public License as published by
  * the Free Software Foundation; either version 3 of the License, or (at
  * your option) any later version.
- * 
+ *
  * This program is distributed in the hope that it will be useful, but
  * WITHOUT ANY WARRANTY; without even the implied warranty of
  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  * General Public License for more details.
- * 
+ *
  * You should have received a copy of the GNU General Public License
  * along with this program; if not, write to the Free Software
  * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
@@ -20,6 +20,11 @@
 {
   INDEX i, j;
 
+  int pos=0;
+  CBLAS_ERROR_SD_SPR(pos,order,Uplo,N,alpha,X,incX,Ap);
+  if(pos)
+    cblas_xerbla(pos,__FILE__,"");
+
   if (N == 0)
     return;
 
diff -r 26df454fcc1c cblas/source_spr2.h
--- a/cblas/source_spr2.h	Tue Sep 21 06:40:07 2010 +0000
+++ b/cblas/source_spr2.h	Tue Oct 12 11:35:36 2010 +0200
@@ -1,17 +1,17 @@
 /* blas/source_spr2.h
- * 
+ *
  * Copyright (C) 1996, 1997, 1998, 1999, 2000 Gerard Jungman
- * 
+ *
  * This program is free software; you can redistribute it and/or modify
  * it under the terms of the GNU General Public License as published by
  * the Free Software Foundation; either version 3 of the License, or (at
  * your option) any later version.
- * 
+ *
  * This program is distributed in the hope that it will be useful, but
  * WITHOUT ANY WARRANTY; without even the implied warranty of
  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  * General Public License for more details.
- * 
+ *
  * You should have received a copy of the GNU General Public License
  * along with this program; if not, write to the Free Software
  * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
@@ -20,6 +20,11 @@
 {
   INDEX i, j;
 
+  int pos=0;
+  CBLAS_ERROR_SD_SPR2(pos,order,Uplo,N,alpha,X,incX,Y,incY,A);
+  if(pos)
+    cblas_xerbla(pos,__FILE__,"");
+
   if (N == 0)
     return;
 
diff -r 26df454fcc1c cblas/source_symv.h
--- a/cblas/source_symv.h	Tue Sep 21 06:40:07 2010 +0000
+++ b/cblas/source_symv.h	Tue Oct 12 11:35:36 2010 +0200
@@ -1,17 +1,17 @@
 /* blas/source_symv.h
- * 
+ *
  * Copyright (C) 1996, 1997, 1998, 1999, 2000 Gerard Jungman
- * 
+ *
  * This program is free software; you can redistribute it and/or modify
  * it under the terms of the GNU General Public License as published by
  * the Free Software Foundation; either version 3 of the License, or (at
  * your option) any later version.
- * 
+ *
  * This program is distributed in the hope that it will be useful, but
  * WITHOUT ANY WARRANTY; without even the implied warranty of
  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  * General Public License for more details.
- * 
+ *
  * You should have received a copy of the GNU General Public License
  * along with this program; if not, write to the Free Software
  * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
@@ -20,6 +20,11 @@
 {
   INDEX i, j;
 
+  int pos=0;
+  CBLAS_ERROR_SD_SYMV(pos,order,Uplo,N,alpha,A,lda,X,incX,beta,Y,incY);
+  if(pos)
+    cblas_xerbla(pos,__FILE__,"");
+
   if (alpha == 0.0 && beta == 1.0)
     return;
 
diff -r 26df454fcc1c cblas/source_syr.h
--- a/cblas/source_syr.h	Tue Sep 21 06:40:07 2010 +0000
+++ b/cblas/source_syr.h	Tue Oct 12 11:35:36 2010 +0200
@@ -1,17 +1,17 @@
 /* blas/source_syr.h
- * 
+ *
  * Copyright (C) 1996, 1997, 1998, 1999, 2000 Gerard Jungman
- * 
+ *
  * This program is free software; you can redistribute it and/or modify
  * it under the terms of the GNU General Public License as published by
  * the Free Software Foundation; either version 3 of the License, or (at
  * your option) any later version.
- * 
+ *
  * This program is distributed in the hope that it will be useful, but
  * WITHOUT ANY WARRANTY; without even the implied warranty of
  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  * General Public License for more details.
- * 
+ *
  * You should have received a copy of the GNU General Public License
  * along with this program; if not, write to the Free Software
  * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
@@ -20,6 +20,11 @@
 {
   INDEX i, j;
 
+  int pos=0;
+  CBLAS_ERROR_SD_SYR(pos,order,Uplo,N,alpha,X,incX,A,lda);
+  if(pos)
+    cblas_xerbla(pos,__FILE__,"");
+
   if (N == 0)
     return;
 
diff -r 26df454fcc1c cblas/source_syr2.h
--- a/cblas/source_syr2.h	Tue Sep 21 06:40:07 2010 +0000
+++ b/cblas/source_syr2.h	Tue Oct 12 11:35:36 2010 +0200
@@ -1,17 +1,17 @@
 /* blas/source_syr2.h
- * 
+ *
  * Copyright (C) 1996, 1997, 1998, 1999, 2000 Gerard Jungman
- * 
+ *
  * This program is free software; you can redistribute it and/or modify
  * it under the terms of the GNU General Public License as published by
  * the Free Software Foundation; either version 3 of the License, or (at
  * your option) any later version.
- * 
+ *
  * This program is distributed in the hope that it will be useful, but
  * WITHOUT ANY WARRANTY; without even the implied warranty of
  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  * General Public License for more details.
- * 
+ *
  * You should have received a copy of the GNU General Public License
  * along with this program; if not, write to the Free Software
  * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
@@ -20,6 +20,11 @@
 {
   INDEX i, j;
 
+  int pos=0;
+  CBLAS_ERROR_SD_SYR2(pos,order,Uplo,N,alpha,X,incX,Y,incY,A,lda);
+  if(pos)
+    cblas_xerbla(pos,__FILE__,"");
+
   if (N == 0)
     return;
 
diff -r 26df454fcc1c cblas/source_tbmv_c.h
--- a/cblas/source_tbmv_c.h	Tue Sep 21 06:40:07 2010 +0000
+++ b/cblas/source_tbmv_c.h	Tue Oct 12 11:35:36 2010 +0200
@@ -1,23 +1,28 @@
 /* blas/source_tbmv_c.h
- * 
+ *
  * Copyright (C) 1996, 1997, 1998, 1999, 2000 Gerard Jungman
- * 
+ *
  * This program is free software; you can redistribute it and/or modify
  * it under the terms of the GNU General Public License as published by
  * the Free Software Foundation; either version 3 of the License, or (at
  * your option) any later version.
- * 
+ *
  * This program is distributed in the hope that it will be useful, but
  * WITHOUT ANY WARRANTY; without even the implied warranty of
  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  * General Public License for more details.
- * 
+ *
  * You should have received a copy of the GNU General Public License
  * along with this program; if not, write to the Free Software
  * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
  */
 
 {
+  int pos=0;
+  CBLAS_ERROR_TBMV(pos,order,Uplo,TransA,Diag,N,K,A,lda,X,incX);
+  if(pos)
+    cblas_xerbla(pos,__FILE__,"");
+
   const int conj = (TransA == CblasConjTrans) ? -1 : 1;
   const int Trans = (TransA != CblasConjTrans) ? TransA : CblasTrans;
   const int nonunit = (Diag == CblasNonUnit);
diff -r 26df454fcc1c cblas/source_tbmv_r.h
--- a/cblas/source_tbmv_r.h	Tue Sep 21 06:40:07 2010 +0000
+++ b/cblas/source_tbmv_r.h	Tue Oct 12 11:35:36 2010 +0200
@@ -1,17 +1,17 @@
 /* blas/source_tbmv_r.h
- * 
+ *
  * Copyright (C) 1996, 1997, 1998, 1999, 2000 Gerard Jungman
- * 
+ *
  * This program is free software; you can redistribute it and/or modify
  * it under the terms of the GNU General Public License as published by
  * the Free Software Foundation; either version 3 of the License, or (at
  * your option) any later version.
- * 
+ *
  * This program is distributed in the hope that it will be useful, but
  * WITHOUT ANY WARRANTY; without even the implied warranty of
  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  * General Public License for more details.
- * 
+ *
  * You should have received a copy of the GNU General Public License
  * along with this program; if not, write to the Free Software
  * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
@@ -19,6 +19,12 @@
 
 {
   INDEX i, j;
+
+  int pos=0;
+  CBLAS_ERROR_TBMV(pos,order,Uplo,TransA,Diag,N,K,A,lda,X,incX);
+  if(pos)
+    cblas_xerbla(pos,__FILE__,"");
+
   const int nonunit = (Diag == CblasNonUnit);
   const int Trans = (TransA != CblasConjTrans) ? TransA : CblasTrans;
 
diff -r 26df454fcc1c cblas/source_tbsv_c.h
--- a/cblas/source_tbsv_c.h	Tue Sep 21 06:40:07 2010 +0000
+++ b/cblas/source_tbsv_c.h	Tue Oct 12 11:35:36 2010 +0200
@@ -1,23 +1,28 @@
 /* blas/source_tbsv_c.h
- * 
+ *
  * Copyright (C) 1996, 1997, 1998, 1999, 2000 Gerard Jungman
- * 
+ *
  * This program is free software; you can redistribute it and/or modify
  * it under the terms of the GNU General Public License as published by
  * the Free Software Foundation; either version 3 of the License, or (at
  * your option) any later version.
- * 
+ *
  * This program is distributed in the hope that it will be useful, but
  * WITHOUT ANY WARRANTY; without even the implied warranty of
  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  * General Public License for more details.
- * 
+ *
  * You should have received a copy of the GNU General Public License
  * along with this program; if not, write to the Free Software
  * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
  */
 
 {
+  int pos=0;
+  CBLAS_ERROR_TBSV(pos,order,Uplo,TransA,Diag,N,K,A,lda,X,incX);
+  if(pos)
+    cblas_xerbla(pos,__FILE__,"");
+
   const int conj = (TransA == CblasConjTrans) ? -1 : 1;
   const int Trans = (TransA != CblasConjTrans) ? TransA : CblasTrans;
   const int nonunit = (Diag == CblasNonUnit);
diff -r 26df454fcc1c cblas/source_tbsv_r.h
--- a/cblas/source_tbsv_r.h	Tue Sep 21 06:40:07 2010 +0000
+++ b/cblas/source_tbsv_r.h	Tue Oct 12 11:35:36 2010 +0200
@@ -1,23 +1,28 @@
 /* blas/source_tbsv_r.h
- * 
+ *
  * Copyright (C) 1996, 1997, 1998, 1999, 2000 Gerard Jungman
- * 
+ *
  * This program is free software; you can redistribute it and/or modify
  * it under the terms of the GNU General Public License as published by
  * the Free Software Foundation; either version 3 of the License, or (at
  * your option) any later version.
- * 
+ *
  * This program is distributed in the hope that it will be useful, but
  * WITHOUT ANY WARRANTY; without even the implied warranty of
  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  * General Public License for more details.
- * 
+ *
  * You should have received a copy of the GNU General Public License
  * along with this program; if not, write to the Free Software
  * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
  */
 
 {
+  int pos=0;
+  CBLAS_ERROR_TBSV(pos,order,Uplo,TransA,Diag,N,K,A,lda,X,incX);
+  if(pos)
+    cblas_xerbla(pos,__FILE__,"");
+
   const int nonunit = (Diag == CblasNonUnit);
   INDEX i, j;
   const int Trans = (TransA != CblasConjTrans) ? TransA : CblasTrans;
diff -r 26df454fcc1c cblas/source_tpmv_c.h
--- a/cblas/source_tpmv_c.h	Tue Sep 21 06:40:07 2010 +0000
+++ b/cblas/source_tpmv_c.h	Tue Oct 12 11:35:36 2010 +0200
@@ -1,17 +1,17 @@
 /* blas/source_tpmv_c.h
- * 
+ *
  * Copyright (C) 1996, 1997, 1998, 1999, 2000 Gerard Jungman
- * 
+ *
  * This program is free software; you can redistribute it and/or modify
  * it under the terms of the GNU General Public License as published by
  * the Free Software Foundation; either version 3 of the License, or (at
  * your option) any later version.
- * 
+ *
  * This program is distributed in the hope that it will be useful, but
  * WITHOUT ANY WARRANTY; without even the implied warranty of
  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  * General Public License for more details.
- * 
+ *
  * You should have received a copy of the GNU General Public License
  * along with this program; if not, write to the Free Software
  * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
@@ -20,6 +20,11 @@
 {
   INDEX i, j;
 
+  int pos=0;
+  CBLAS_ERROR_TPMV(pos,order,Uplo,TransA,Diag,N,Ap,X,incX)
+  if(pos)
+    cblas_xerbla(pos,__FILE__,"");
+
   const int conj = (TransA == CblasConjTrans) ? -1 : 1;
   const int Trans = (TransA != CblasConjTrans) ? TransA : CblasTrans;
   const int nonunit = (Diag == CblasNonUnit);
diff -r 26df454fcc1c cblas/source_tpmv_r.h
--- a/cblas/source_tpmv_r.h	Tue Sep 21 06:40:07 2010 +0000
+++ b/cblas/source_tpmv_r.h	Tue Oct 12 11:35:36 2010 +0200
@@ -1,17 +1,17 @@
 /* blas/source_tpmv_r.h
- * 
+ *
  * Copyright (C) 1996, 1997, 1998, 1999, 2000 Gerard Jungman
- * 
+ *
  * This program is free software; you can redistribute it and/or modify
  * it under the terms of the GNU General Public License as published by
  * the Free Software Foundation; either version 3 of the License, or (at
  * your option) any later version.
- * 
+ *
  * This program is distributed in the hope that it will be useful, but
  * WITHOUT ANY WARRANTY; without even the implied warranty of
  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  * General Public License for more details.
- * 
+ *
  * You should have received a copy of the GNU General Public License
  * along with this program; if not, write to the Free Software
  * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
@@ -19,6 +19,12 @@
 
 {
   INDEX i, j;
+
+  int pos=0;
+  CBLAS_ERROR_TPMV(pos,order,Uplo,TransA,Diag,N,Ap,X,incX)
+  if(pos)
+    cblas_xerbla(pos,__FILE__,"");
+
   const int nonunit = (Diag == CblasNonUnit);
   const int Trans = (TransA != CblasConjTrans) ? TransA : CblasTrans;
 
diff -r 26df454fcc1c cblas/source_tpsv_c.h
--- a/cblas/source_tpsv_c.h	Tue Sep 21 06:40:07 2010 +0000
+++ b/cblas/source_tpsv_c.h	Tue Oct 12 11:35:36 2010 +0200
@@ -1,23 +1,28 @@
 /* blas/source_tpsv_c.h
- * 
+ *
  * Copyright (C) 1996, 1997, 1998, 1999, 2000 Gerard Jungman
- * 
+ *
  * This program is free software; you can redistribute it and/or modify
  * it under the terms of the GNU General Public License as published by
  * the Free Software Foundation; either version 3 of the License, or (at
  * your option) any later version.
- * 
+ *
  * This program is distributed in the hope that it will be useful, but
  * WITHOUT ANY WARRANTY; without even the implied warranty of
  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  * General Public License for more details.
- * 
+ *
  * You should have received a copy of the GNU General Public License
  * along with this program; if not, write to the Free Software
  * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
  */
 
 {
+  int pos=0;
+  CBLAS_ERROR_TPSV(pos,order,Uplo,TransA,Diag,N,Ap,X,incX);
+  if(pos)
+    cblas_xerbla(pos,__FILE__,"");
+
   const int conj = (TransA == CblasConjTrans) ? -1 : 1;
   const int Trans = (TransA != CblasConjTrans) ? TransA : CblasTrans;
   const int nonunit = (Diag == CblasNonUnit);
diff -r 26df454fcc1c cblas/source_tpsv_r.h
--- a/cblas/source_tpsv_r.h	Tue Sep 21 06:40:07 2010 +0000
+++ b/cblas/source_tpsv_r.h	Tue Oct 12 11:35:36 2010 +0200
@@ -1,17 +1,17 @@
 /* blas/source_tpsv_r.h
- * 
+ *
  * Copyright (C) 1996, 1997, 1998, 1999, 2000 Gerard Jungman
- * 
+ *
  * This program is free software; you can redistribute it and/or modify
  * it under the terms of the GNU General Public License as published by
  * the Free Software Foundation; either version 3 of the License, or (at
  * your option) any later version.
- * 
+ *
  * This program is distributed in the hope that it will be useful, but
  * WITHOUT ANY WARRANTY; without even the implied warranty of
  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  * General Public License for more details.
- * 
+ *
  * You should have received a copy of the GNU General Public License
  * along with this program; if not, write to the Free Software
  * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
@@ -19,6 +19,12 @@
 
 {
   INDEX i, j;
+
+  int pos=0;
+  CBLAS_ERROR_TPSV(pos,order,Uplo,TransA,Diag,N,Ap,X,incX);
+  if(pos)
+    cblas_xerbla(pos,__FILE__,"");
+
   const int nonunit = (Diag == CblasNonUnit);
   const int Trans = (TransA != CblasConjTrans) ? TransA : CblasTrans;
 
diff -r 26df454fcc1c cblas/source_trmv_c.h
--- a/cblas/source_trmv_c.h	Tue Sep 21 06:40:07 2010 +0000
+++ b/cblas/source_trmv_c.h	Tue Oct 12 11:35:36 2010 +0200
@@ -1,23 +1,28 @@
 /* blas/source_trmv_c.h
- * 
+ *
  * Copyright (C) 1996, 1997, 1998, 1999, 2000 Gerard Jungman
- * 
+ *
  * This program is free software; you can redistribute it and/or modify
  * it under the terms of the GNU General Public License as published by
  * the Free Software Foundation; either version 3 of the License, or (at
  * your option) any later version.
- * 
+ *
  * This program is distributed in the hope that it will be useful, but
  * WITHOUT ANY WARRANTY; without even the implied warranty of
  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  * General Public License for more details.
- * 
+ *
  * You should have received a copy of the GNU General Public License
  * along with this program; if not, write to the Free Software
  * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
  */
 
 {
+  int pos=0;
+  CBLAS_ERROR_TRMV(pos,order,Uplo,TransA,Diag,N,A,lda,X,incX);
+  if(pos)
+    cblas_xerbla(pos,__FILE__,"");
+
   const int conj = (TransA == CblasConjTrans) ? -1 : 1;
   const int Trans = (TransA != CblasConjTrans) ? TransA : CblasTrans;
   const int nonunit = (Diag == CblasNonUnit);
diff -r 26df454fcc1c cblas/source_trmv_r.h
--- a/cblas/source_trmv_r.h	Tue Sep 21 06:40:07 2010 +0000
+++ b/cblas/source_trmv_r.h	Tue Oct 12 11:35:36 2010 +0200
@@ -1,17 +1,17 @@
 /* blas/source_trmv_r.h
- * 
+ *
  * Copyright (C) 1996, 1997, 1998, 1999, 2000 Gerard Jungman
- * 
+ *
  * This program is free software; you can redistribute it and/or modify
  * it under the terms of the GNU General Public License as published by
  * the Free Software Foundation; either version 3 of the License, or (at
  * your option) any later version.
- * 
+ *
  * This program is distributed in the hope that it will be useful, but
  * WITHOUT ANY WARRANTY; without even the implied warranty of
  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  * General Public License for more details.
- * 
+ *
  * You should have received a copy of the GNU General Public License
  * along with this program; if not, write to the Free Software
  * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
@@ -19,6 +19,12 @@
 
 {
   INDEX i, j;
+
+  int pos=0;
+  CBLAS_ERROR_TRMV(pos,order,Uplo,TransA,Diag,N,A,lda,X,incX);
+  if(pos)
+    cblas_xerbla(pos,__FILE__,"");
+
   const int nonunit = (Diag == CblasNonUnit);
   const int Trans = (TransA != CblasConjTrans) ? TransA : CblasTrans;
 
diff -r 26df454fcc1c cblas/source_trsv_c.h
--- a/cblas/source_trsv_c.h	Tue Sep 21 06:40:07 2010 +0000
+++ b/cblas/source_trsv_c.h	Tue Oct 12 11:35:36 2010 +0200
@@ -1,23 +1,28 @@
 /* blas/source_trsv_c.h
- * 
+ *
  * Copyright (C) 1996, 1997, 1998, 1999, 2000 Gerard Jungman
- * 
+ *
  * This program is free software; you can redistribute it and/or modify
  * it under the terms of the GNU General Public License as published by
  * the Free Software Foundation; either version 3 of the License, or (at
  * your option) any later version.
- * 
+ *
  * This program is distributed in the hope that it will be useful, but
  * WITHOUT ANY WARRANTY; without even the implied warranty of
  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  * General Public License for more details.
- * 
+ *
  * You should have received a copy of the GNU General Public License
  * along with this program; if not, write to the Free Software
  * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
  */
 
 {
+  int pos=0;
+  CBLAS_ERROR_TRSV(pos,order,Uplo,TransA,Diag,N,A,lda,X,incX);
+  if(pos)
+    cblas_xerbla(pos,__FILE__,"");
+
   const int conj = (TransA == CblasConjTrans) ? -1 : 1;
   const int Trans = (TransA != CblasConjTrans) ? TransA : CblasTrans;
   const int nonunit = (Diag == CblasNonUnit);
diff -r 26df454fcc1c cblas/source_trsv_r.h
--- a/cblas/source_trsv_r.h	Tue Sep 21 06:40:07 2010 +0000
+++ b/cblas/source_trsv_r.h	Tue Oct 12 11:35:36 2010 +0200
@@ -1,23 +1,28 @@
 /* blas/source_trsv_r.h
- * 
+ *
  * Copyright (C) 1996, 1997, 1998, 1999, 2000 Gerard Jungman
- * 
+ *
  * This program is free software; you can redistribute it and/or modify
  * it under the terms of the GNU General Public License as published by
  * the Free Software Foundation; either version 3 of the License, or (at
  * your option) any later version.
- * 
+ *
  * This program is distributed in the hope that it will be useful, but
  * WITHOUT ANY WARRANTY; without even the implied warranty of
  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  * General Public License for more details.
- * 
+ *
  * You should have received a copy of the GNU General Public License
  * along with this program; if not, write to the Free Software
  * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
  */
 
 {
+  int pos=0;
+  CBLAS_ERROR_TRSV(pos,order,Uplo,TransA,Diag,N,A,lda,X,incX);
+  if(pos)
+    cblas_xerbla(pos,__FILE__,"");
+
   const int nonunit = (Diag == CblasNonUnit);
   INDEX ix, jx;
   INDEX i, j;
diff -r 26df454fcc1c cblas/ssbmv.c
--- a/cblas/ssbmv.c	Tue Sep 21 06:40:07 2010 +0000
+++ b/cblas/ssbmv.c	Tue Oct 12 11:35:36 2010 +0200
@@ -1,6 +1,7 @@
 #include <gsl/gsl_math.h>
 #include <gsl/gsl_cblas.h>
 #include "cblas.h"
+#include "error_cblas_l2.h"
 
 void
 cblas_ssbmv (const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
diff -r 26df454fcc1c cblas/sspmv.c
--- a/cblas/sspmv.c	Tue Sep 21 06:40:07 2010 +0000
+++ b/cblas/sspmv.c	Tue Oct 12 11:35:36 2010 +0200
@@ -1,6 +1,7 @@
 #include <gsl/gsl_math.h>
 #include <gsl/gsl_cblas.h>
 #include "cblas.h"
+#include "error_cblas_l2.h"
 
 void
 cblas_sspmv (const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
diff -r 26df454fcc1c cblas/sspr.c
--- a/cblas/sspr.c	Tue Sep 21 06:40:07 2010 +0000
+++ b/cblas/sspr.c	Tue Oct 12 11:35:36 2010 +0200
@@ -1,6 +1,7 @@
 #include <gsl/gsl_math.h>
 #include <gsl/gsl_cblas.h>
 #include "cblas.h"
+#include "error_cblas_l2.h"
 
 void
 cblas_sspr (const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
diff -r 26df454fcc1c cblas/sspr2.c
--- a/cblas/sspr2.c	Tue Sep 21 06:40:07 2010 +0000
+++ b/cblas/sspr2.c	Tue Oct 12 11:35:36 2010 +0200
@@ -1,6 +1,7 @@
 #include <gsl/gsl_math.h>
 #include <gsl/gsl_cblas.h>
 #include "cblas.h"
+#include "error_cblas_l2.h"
 
 void
 cblas_sspr2 (const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
diff -r 26df454fcc1c cblas/ssymv.c
--- a/cblas/ssymv.c	Tue Sep 21 06:40:07 2010 +0000
+++ b/cblas/ssymv.c	Tue Oct 12 11:35:36 2010 +0200
@@ -1,6 +1,7 @@
 #include <gsl/gsl_math.h>
 #include <gsl/gsl_cblas.h>
 #include "cblas.h"
+#include "error_cblas_l2.h"
 
 void
 cblas_ssymv (const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
diff -r 26df454fcc1c cblas/ssyr.c
--- a/cblas/ssyr.c	Tue Sep 21 06:40:07 2010 +0000
+++ b/cblas/ssyr.c	Tue Oct 12 11:35:36 2010 +0200
@@ -1,6 +1,7 @@
 #include <gsl/gsl_math.h>
 #include <gsl/gsl_cblas.h>
 #include "cblas.h"
+#include "error_cblas_l2.h"
 
 void
 cblas_ssyr (const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
diff -r 26df454fcc1c cblas/ssyr2.c
--- a/cblas/ssyr2.c	Tue Sep 21 06:40:07 2010 +0000
+++ b/cblas/ssyr2.c	Tue Oct 12 11:35:36 2010 +0200
@@ -1,6 +1,7 @@
 #include <gsl/gsl_math.h>
 #include <gsl/gsl_cblas.h>
 #include "cblas.h"
+#include "error_cblas_l2.h"
 
 void
 cblas_ssyr2 (const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
diff -r 26df454fcc1c cblas/stbmv.c
--- a/cblas/stbmv.c	Tue Sep 21 06:40:07 2010 +0000
+++ b/cblas/stbmv.c	Tue Oct 12 11:35:36 2010 +0200
@@ -1,6 +1,7 @@
 #include <gsl/gsl_math.h>
 #include <gsl/gsl_cblas.h>
 #include "cblas.h"
+#include "error_cblas_l2.h"
 
 void
 cblas_stbmv (const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
diff -r 26df454fcc1c cblas/stbsv.c
--- a/cblas/stbsv.c	Tue Sep 21 06:40:07 2010 +0000
+++ b/cblas/stbsv.c	Tue Oct 12 11:35:36 2010 +0200
@@ -1,6 +1,7 @@
 #include <gsl/gsl_math.h>
 #include <gsl/gsl_cblas.h>
 #include "cblas.h"
+#include "error_cblas_l2.h"
 
 void
 cblas_stbsv (const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
diff -r 26df454fcc1c cblas/stpmv.c
--- a/cblas/stpmv.c	Tue Sep 21 06:40:07 2010 +0000
+++ b/cblas/stpmv.c	Tue Oct 12 11:35:36 2010 +0200
@@ -1,6 +1,7 @@
 #include <gsl/gsl_math.h>
 #include <gsl/gsl_cblas.h>
 #include "cblas.h"
+#include "error_cblas_l2.h"
 
 void
 cblas_stpmv (const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
diff -r 26df454fcc1c cblas/stpsv.c
--- a/cblas/stpsv.c	Tue Sep 21 06:40:07 2010 +0000
+++ b/cblas/stpsv.c	Tue Oct 12 11:35:36 2010 +0200
@@ -1,6 +1,7 @@
 #include <gsl/gsl_math.h>
 #include <gsl/gsl_cblas.h>
 #include "cblas.h"
+#include "error_cblas_l2.h"
 
 void
 cblas_stpsv (const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
diff -r 26df454fcc1c cblas/strmv.c
--- a/cblas/strmv.c	Tue Sep 21 06:40:07 2010 +0000
+++ b/cblas/strmv.c	Tue Oct 12 11:35:36 2010 +0200
@@ -1,6 +1,7 @@
 #include <gsl/gsl_math.h>
 #include <gsl/gsl_cblas.h>
 #include "cblas.h"
+#include "error_cblas_l2.h"
 
 void
 cblas_strmv (const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
diff -r 26df454fcc1c cblas/strsv.c
--- a/cblas/strsv.c	Tue Sep 21 06:40:07 2010 +0000
+++ b/cblas/strsv.c	Tue Oct 12 11:35:36 2010 +0200
@@ -1,6 +1,7 @@
 #include <gsl/gsl_math.h>
 #include <gsl/gsl_cblas.h>
 #include "cblas.h"
+#include "error_cblas_l2.h"
 
 void
 cblas_strsv (const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
diff -r 26df454fcc1c cblas/zgbmv.c
--- a/cblas/zgbmv.c	Tue Sep 21 06:40:07 2010 +0000
+++ b/cblas/zgbmv.c	Tue Oct 12 11:35:36 2010 +0200
@@ -1,6 +1,7 @@
 #include <gsl/gsl_math.h>
 #include <gsl/gsl_cblas.h>
 #include "cblas.h"
+#include "error_cblas_l2.h"
 
 void
 cblas_zgbmv (const enum CBLAS_ORDER order, const enum CBLAS_TRANSPOSE TransA,
diff -r 26df454fcc1c cblas/zgemv.c
--- a/cblas/zgemv.c	Tue Sep 21 06:40:07 2010 +0000
+++ b/cblas/zgemv.c	Tue Oct 12 11:35:36 2010 +0200
@@ -1,6 +1,7 @@
 #include <gsl/gsl_math.h>
 #include <gsl/gsl_cblas.h>
 #include "cblas.h"
+#include "error_cblas_l2.h"
 
 void
 cblas_zgemv (const enum CBLAS_ORDER order, const enum CBLAS_TRANSPOSE TransA,
diff -r 26df454fcc1c cblas/zgerc.c
--- a/cblas/zgerc.c	Tue Sep 21 06:40:07 2010 +0000
+++ b/cblas/zgerc.c	Tue Oct 12 11:35:36 2010 +0200
@@ -1,6 +1,7 @@
 #include <gsl/gsl_math.h>
 #include <gsl/gsl_cblas.h>
 #include "cblas.h"
+#include "error_cblas_l2.h"
 
 void
 cblas_zgerc (const enum CBLAS_ORDER order, const int M, const int N,
diff -r 26df454fcc1c cblas/zgeru.c
--- a/cblas/zgeru.c	Tue Sep 21 06:40:07 2010 +0000
+++ b/cblas/zgeru.c	Tue Oct 12 11:35:36 2010 +0200
@@ -1,6 +1,7 @@
 #include <gsl/gsl_math.h>
 #include <gsl/gsl_cblas.h>
 #include "cblas.h"
+#include "error_cblas_l2.h"
 
 void
 cblas_zgeru (const enum CBLAS_ORDER order, const int M, const int N,
diff -r 26df454fcc1c cblas/zhbmv.c
--- a/cblas/zhbmv.c	Tue Sep 21 06:40:07 2010 +0000
+++ b/cblas/zhbmv.c	Tue Oct 12 11:35:36 2010 +0200
@@ -1,6 +1,7 @@
 #include <gsl/gsl_math.h>
 #include <gsl/gsl_cblas.h>
 #include "cblas.h"
+#include "error_cblas_l2.h"
 
 void
 cblas_zhbmv (const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
diff -r 26df454fcc1c cblas/zhemv.c
--- a/cblas/zhemv.c	Tue Sep 21 06:40:07 2010 +0000
+++ b/cblas/zhemv.c	Tue Oct 12 11:35:36 2010 +0200
@@ -1,6 +1,7 @@
 #include <gsl/gsl_math.h>
 #include <gsl/gsl_cblas.h>
 #include "cblas.h"
+#include "error_cblas_l2.h"
 
 void
 cblas_zhemv (const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
diff -r 26df454fcc1c cblas/zher.c
--- a/cblas/zher.c	Tue Sep 21 06:40:07 2010 +0000
+++ b/cblas/zher.c	Tue Oct 12 11:35:36 2010 +0200
@@ -1,6 +1,7 @@
 #include <gsl/gsl_math.h>
 #include <gsl/gsl_cblas.h>
 #include "cblas.h"
+#include "error_cblas_l2.h"
 
 void
 cblas_zher (const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
diff -r 26df454fcc1c cblas/zher2.c
--- a/cblas/zher2.c	Tue Sep 21 06:40:07 2010 +0000
+++ b/cblas/zher2.c	Tue Oct 12 11:35:36 2010 +0200
@@ -1,6 +1,7 @@
 #include <gsl/gsl_math.h>
 #include <gsl/gsl_cblas.h>
 #include "cblas.h"
+#include "error_cblas_l2.h"
 
 void
 cblas_zher2 (const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
diff -r 26df454fcc1c cblas/zhpmv.c
--- a/cblas/zhpmv.c	Tue Sep 21 06:40:07 2010 +0000
+++ b/cblas/zhpmv.c	Tue Oct 12 11:35:36 2010 +0200
@@ -1,6 +1,7 @@
 #include <gsl/gsl_math.h>
 #include <gsl/gsl_cblas.h>
 #include "cblas.h"
+#include "error_cblas_l2.h"
 
 void
 cblas_zhpmv (const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
diff -r 26df454fcc1c cblas/zhpr.c
--- a/cblas/zhpr.c	Tue Sep 21 06:40:07 2010 +0000
+++ b/cblas/zhpr.c	Tue Oct 12 11:35:36 2010 +0200
@@ -1,6 +1,7 @@
 #include <gsl/gsl_math.h>
 #include <gsl/gsl_cblas.h>
 #include "cblas.h"
+#include "error_cblas_l2.h"
 
 void
 cblas_zhpr (const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
diff -r 26df454fcc1c cblas/zhpr2.c
--- a/cblas/zhpr2.c	Tue Sep 21 06:40:07 2010 +0000
+++ b/cblas/zhpr2.c	Tue Oct 12 11:35:36 2010 +0200
@@ -1,6 +1,7 @@
 #include <gsl/gsl_math.h>
 #include <gsl/gsl_cblas.h>
 #include "cblas.h"
+#include "error_cblas_l2.h"
 
 void
 cblas_zhpr2 (const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
diff -r 26df454fcc1c cblas/ztbmv.c
--- a/cblas/ztbmv.c	Tue Sep 21 06:40:07 2010 +0000
+++ b/cblas/ztbmv.c	Tue Oct 12 11:35:36 2010 +0200
@@ -1,6 +1,7 @@
 #include <gsl/gsl_math.h>
 #include <gsl/gsl_cblas.h>
 #include "cblas.h"
+#include "error_cblas_l2.h"
 
 void
 cblas_ztbmv (const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
diff -r 26df454fcc1c cblas/ztbsv.c
--- a/cblas/ztbsv.c	Tue Sep 21 06:40:07 2010 +0000
+++ b/cblas/ztbsv.c	Tue Oct 12 11:35:36 2010 +0200
@@ -1,6 +1,7 @@
 #include <gsl/gsl_math.h>
 #include <gsl/gsl_cblas.h>
 #include "cblas.h"
+#include "error_cblas_l2.h"
 
 #include "hypot.c"
 
diff -r 26df454fcc1c cblas/ztpmv.c
--- a/cblas/ztpmv.c	Tue Sep 21 06:40:07 2010 +0000
+++ b/cblas/ztpmv.c	Tue Oct 12 11:35:36 2010 +0200
@@ -1,6 +1,7 @@
 #include <gsl/gsl_math.h>
 #include <gsl/gsl_cblas.h>
 #include "cblas.h"
+#include "error_cblas_l2.h"
 
 void
 cblas_ztpmv (const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
diff -r 26df454fcc1c cblas/ztpsv.c
--- a/cblas/ztpsv.c	Tue Sep 21 06:40:07 2010 +0000
+++ b/cblas/ztpsv.c	Tue Oct 12 11:35:36 2010 +0200
@@ -1,6 +1,7 @@
 #include <gsl/gsl_math.h>
 #include <gsl/gsl_cblas.h>
 #include "cblas.h"
+#include "error_cblas_l2.h"
 
 #include "hypot.c"
 
diff -r 26df454fcc1c cblas/ztrmv.c
--- a/cblas/ztrmv.c	Tue Sep 21 06:40:07 2010 +0000
+++ b/cblas/ztrmv.c	Tue Oct 12 11:35:36 2010 +0200
@@ -1,6 +1,7 @@
 #include <gsl/gsl_math.h>
 #include <gsl/gsl_cblas.h>
 #include "cblas.h"
+#include "error_cblas_l2.h"
 
 void
 cblas_ztrmv (const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
diff -r 26df454fcc1c cblas/ztrsv.c
--- a/cblas/ztrsv.c	Tue Sep 21 06:40:07 2010 +0000
+++ b/cblas/ztrsv.c	Tue Oct 12 11:35:36 2010 +0200
@@ -1,6 +1,7 @@
 #include <gsl/gsl_math.h>
 #include <gsl/gsl_cblas.h>
 #include "cblas.h"
+#include "error_cblas_l2.h"
 
 #include "hypot.c"