Reference-LAPACK
diff --git a/‎CBLAS/testing/c_c2chke.c
Lines changed: 5 additions & 5 deletions b/‎CBLAS/testing/c_c2chke.c
Lines changed: 5 additions & 5 deletions
diff --git a/‎CBLAS/testing/c_c3chke.c
Lines changed: 5 additions & 5 deletions b/‎CBLAS/testing/c_c3chke.c
Lines changed: 5 additions & 5 deletions
diff --git a/‎CBLAS/testing/c_cblas1.c
Lines changed: 17 additions & 17 deletions b/‎CBLAS/testing/c_cblas1.c
Lines changed: 17 additions & 17 deletions
@@ -3,8 +3,8 @@
 #include "cblas.h"
 #include "cblas_test.h"
 
-int cblas_ok, cblas_lerr, cblas_info;
-int link_xerbla=TRUE;
+CBLAS_INT cblas_ok, cblas_lerr, cblas_info;
+CBLAS_INT link_xerbla=TRUE;
 char *cblas_rout;
 
 #ifdef F77_Char
@@ -14,8 +14,8 @@ void F77_xerbla(char *srname, void *vinfo);
 #endif
 
 void chkxer(void) {
-   extern int cblas_ok, cblas_lerr, cblas_info;
-   extern int link_xerbla;
+   extern CBLAS_INT cblas_ok, cblas_lerr, cblas_info;
+   extern CBLAS_INT link_xerbla;
    extern char *cblas_rout;
    if (cblas_lerr == 1 ) {
       printf("***** ILLEGAL VALUE OF PARAMETER NUMBER %d NOT DETECTED BY %s *****\n", cblas_info, cblas_rout);
@@ -32,7 +32,7 @@ void F77_c2chke(char *rout) {
           ALPHA[2] = {0.0,0.0},
           BETA[2]  = {0.0,0.0},
           RALPHA = 0.0;
-   extern int cblas_info, cblas_lerr, cblas_ok;
+   extern CBLAS_INT cblas_info, cblas_lerr, cblas_ok;
    extern int RowMajorStrg;
    extern char *cblas_rout;
 
 
@@ -3,8 +3,8 @@
 #include "cblas.h"
 #include "cblas_test.h"
 
-int cblas_ok, cblas_lerr, cblas_info;
-int link_xerbla=TRUE;
+CBLAS_INT cblas_ok, cblas_lerr, cblas_info;
+CBLAS_INT link_xerbla=TRUE;
 char *cblas_rout;
 
 #ifdef F77_Char
@@ -14,8 +14,8 @@ void F77_xerbla(char *srname, void *vinfo);
 #endif
 
 void chkxer(void) {
-   extern int cblas_ok, cblas_lerr, cblas_info;
-   extern int link_xerbla;
+   extern CBLAS_INT cblas_ok, cblas_lerr, cblas_info;
+   extern CBLAS_INT link_xerbla;
    extern char *cblas_rout;
    if (cblas_lerr == 1 ) {
       printf("***** ILLEGAL VALUE OF PARAMETER NUMBER %d NOT DETECTED BY %s *****\n", cblas_info, cblas_rout);
@@ -32,7 +32,7 @@ void  F77_c3chke(char *  rout) {
            ALPHA[2] = {0.0,0.0},
            BETA[2]  = {0.0,0.0},
            RALPHA   = 0.0, RBETA = 0.0;
-   extern int cblas_info, cblas_lerr, cblas_ok;
+   extern CBLAS_INT cblas_info, cblas_lerr, cblas_ok;
    extern int RowMajorStrg;
    extern char *cblas_rout;
 
 
@@ -8,67 +8,67 @@
  */
 #include "cblas_test.h"
 #include "cblas.h"
-void F77_caxpy(const int *N, const void *alpha, void *X,
-                    const int *incX, void *Y, const int *incY)
+void F77_caxpy(const CBLAS_INT *N, const void *alpha, void *X,
+                    const CBLAS_INT *incX, void *Y, const CBLAS_INT *incY)
 {
    cblas_caxpy(*N, alpha, X, *incX, Y, *incY);
    return;
 }
 
-void F77_ccopy(const int *N, void *X, const int *incX,
-                    void *Y, const int *incY)
+void F77_ccopy(const CBLAS_INT *N, void *X, const CBLAS_INT *incX,
+                    void *Y, const CBLAS_INT *incY)
 {
    cblas_ccopy(*N, X, *incX, Y, *incY);
    return;
 }
 
-void F77_cdotc(const int *N, void *X, const int *incX,
-                        void *Y, const int *incY, void *dotc)
+void F77_cdotc(const CBLAS_INT *N, void *X, const CBLAS_INT *incX,
+                        void *Y, const CBLAS_INT *incY, void *dotc)
 {
    cblas_cdotc_sub(*N, X, *incX, Y, *incY, dotc);
    return;
 }
 
-void F77_cdotu(const int *N, void *X, const int *incX,
-                        void *Y, const int *incY,void *dotu)
+void F77_cdotu(const CBLAS_INT *N, void *X, const CBLAS_INT *incX,
+                        void *Y, const CBLAS_INT *incY,void *dotu)
 {
    cblas_cdotu_sub(*N, X, *incX, Y, *incY, dotu);
    return;
 }
 
-void F77_cscal(const int *N, const void * *alpha, void *X,
-                         const int *incX)
+void F77_cscal(const CBLAS_INT *N, const void * *alpha, void *X,
+                         const CBLAS_INT *incX)
 {
    cblas_cscal(*N, alpha, X, *incX);
    return;
 }
 
-void F77_csscal(const int *N, const float *alpha, void *X,
-                         const int *incX)
+void F77_csscal(const CBLAS_INT *N, const float *alpha, void *X,
+                         const CBLAS_INT *incX)
 {
    cblas_csscal(*N, *alpha, X, *incX);
    return;
 }
 
-void F77_cswap( const int *N, void *X, const int *incX,
-                          void *Y, const int *incY)
+void F77_cswap( const CBLAS_INT *N, void *X, const CBLAS_INT *incX,
+                          void *Y, const CBLAS_INT *incY)
 {
    cblas_cswap(*N,X,*incX,Y,*incY);
    return;
 }
 
-int F77_icamax(const int *N, const void *X, const int *incX)
+CBLAS_INT F77_icamax(const CBLAS_INT *N, const void *X, const CBLAS_INT *incX)
 {
    if (*N < 1 || *incX < 1) return(0);
    return (cblas_icamax(*N, X, *incX)+1);
 }
 
-float F77_scnrm2(const int *N, const void *X, const int *incX)
+float F77_scnrm2(const CBLAS_INT *N, const void *X, const CBLAS_INT *incX)
 {
    return cblas_scnrm2(*N, X, *incX);
 }
 
-float F77_scasum(const int *N, void *X, const int *incX)
+float F77_scasum(const CBLAS_INT *N, void *X, const CBLAS_INT *incX)
 {
    return cblas_scasum(*N, X, *incX);
 }
Original file line number	Diff line number	Diff line change
`@@ -8,67 +8,67 @@`
`8`	`8`	`*/`
`9`	`9`	`#include "cblas_test.h"`
`10`	`10`	`#include "cblas.h"`
`11`		`-void F77_caxpy(const int N, const void alpha, void *X,`
`12`		`- const int incX, void Y, const int *incY)`
	`11`	`+void F77_caxpy(const CBLAS_INT N, const void alpha, void *X,`
	`12`	`+ const CBLAS_INT incX, void Y, const CBLAS_INT *incY)`
`13`	`13`	`{`
`14`	`14`	`cblas_caxpy(N, alpha, X, incX, Y, *incY);`
`15`	`15`	`return;`
`16`	`16`	`}`
`17`	`17`
`18`		`-void F77_ccopy(const int N, void X, const int *incX,`
`19`		`- void Y, const int incY)`
	`18`	`+void F77_ccopy(const CBLAS_INT N, void X, const CBLAS_INT *incX,`
	`19`	`+ void Y, const CBLAS_INT incY)`
`20`	`20`	`{`
`21`	`21`	`cblas_ccopy(N, X, incX, Y, *incY);`
`22`	`22`	`return;`
`23`	`23`	`}`
`24`	`24`
`25`		`-void F77_cdotc(const int N, void X, const int *incX,`
`26`		`- void Y, const int incY, void *dotc)`
	`25`	`+void F77_cdotc(const CBLAS_INT N, void X, const CBLAS_INT *incX,`
	`26`	`+ void Y, const CBLAS_INT incY, void *dotc)`
`27`	`27`	`{`
`28`	`28`	`cblas_cdotc_sub(N, X, incX, Y, *incY, dotc);`
`29`	`29`	`return;`
`30`	`30`	`}`
`31`	`31`
`32`		`-void F77_cdotu(const int N, void X, const int *incX,`
`33`		`- void Y, const int incY,void *dotu)`
	`32`	`+void F77_cdotu(const CBLAS_INT N, void X, const CBLAS_INT *incX,`
	`33`	`+ void Y, const CBLAS_INT incY,void *dotu)`
`34`	`34`	`{`
`35`	`35`	`cblas_cdotu_sub(N, X, incX, Y, *incY, dotu);`
`36`	`36`	`return;`
`37`	`37`	`}`
`38`	`38`
`39`		`-void F77_cscal(const int N, const void alpha, void X,`
`40`		`- const int *incX)`
	`39`	`+void F77_cscal(const CBLAS_INT N, const void alpha, void X,`
	`40`	`+ const CBLAS_INT *incX)`
`41`	`41`	`{`
`42`	`42`	`cblas_cscal(N, alpha, X, incX);`
`43`	`43`	`return;`
`44`	`44`	`}`
`45`	`45`
`46`		`-void F77_csscal(const int N, const float alpha, void *X,`
`47`		`- const int *incX)`
	`46`	`+void F77_csscal(const CBLAS_INT N, const float alpha, void *X,`
	`47`	`+ const CBLAS_INT *incX)`
`48`	`48`	`{`
`49`	`49`	`cblas_csscal(N, alpha, X, *incX);`
`50`	`50`	`return;`
`51`	`51`	`}`
`52`	`52`
`53`		`-void F77_cswap( const int N, void X, const int *incX,`
`54`		`- void Y, const int incY)`
	`53`	`+void F77_cswap( const CBLAS_INT N, void X, const CBLAS_INT *incX,`
	`54`	`+ void Y, const CBLAS_INT incY)`
`55`	`55`	`{`
`56`	`56`	`cblas_cswap(N,X,incX,Y,*incY);`
`57`	`57`	`return;`
`58`	`58`	`}`
`59`	`59`
`60`		`-int F77_icamax(const int N, const void X, const int *incX)`
	`60`	`+CBLAS_INT F77_icamax(const CBLAS_INT N, const void X, const CBLAS_INT *incX)`
`61`	`61`	`{`
`62`	`62`	`if (N < 1 \|\| incX < 1) return(0);`
`63`	`63`	`return (cblas_icamax(N, X, incX)+1);`
`64`	`64`	`}`
`65`	`65`
`66`		`-float F77_scnrm2(const int N, const void X, const int *incX)`
	`66`	`+float F77_scnrm2(const CBLAS_INT N, const void X, const CBLAS_INT *incX)`
`67`	`67`	`{`
`68`	`68`	`return cblas_scnrm2(N, X, incX);`
`69`	`69`	`}`
`70`	`70`
`71`		`-float F77_scasum(const int N, void X, const int *incX)`
	`71`	`+float F77_scasum(const CBLAS_INT N, void X, const CBLAS_INT *incX)`
`72`	`72`	`{`
`73`	`73`	`return cblas_scasum(N, X, incX);`
`74`	`74`	`}`