Added a CBLAS_INT_TYPE macro to control the int type used by cblas.

dlib/external/cblas/cblas_zher.c

@@ -10,8 +10,8 @@
 #include "cblas.h"
 #include "cblas_f77.h"
 void cblas_zher(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
-                const int N, const double alpha, const void *X, const int incX
-                ,void *A, const int lda)
+                const CBLAS_INT_TYPE N, const double alpha, const void *X, const CBLAS_INT_TYPE incX
+                ,void *A, const CBLAS_INT_TYPE lda)
 {
    char UL;
 #ifdef F77_CHAR
@@ -27,7 +27,7 @@ void cblas_zher(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
    #define F77_lda lda
    #define F77_incX incx
 #endif
-   int n, i, tincx, incx=incX;
+   CBLAS_INT_TYPE n, i, tincx, incx=incX;
    double *x=(double *)X, *xx=(double *)X, *tx, *st;
 
  

dlib/external/cblas/cblas_zher2.c

@@ -10,8 +10,8 @@
 #include "cblas.h"
 #include "cblas_f77.h"
 void cblas_zher2(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
-                 const int N, const void *alpha, const void *X, const int incX,
-                 const void *Y, const int incY, void *A, const int lda)
+                 const CBLAS_INT_TYPE N, const void *alpha, const void *X, const CBLAS_INT_TYPE incX,
+                 const void *Y, const CBLAS_INT_TYPE incY, void *A, const CBLAS_INT_TYPE lda)
 {
    char UL;
 #ifdef F77_CHAR
@@ -28,7 +28,7 @@ void cblas_zher2(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
    #define F77_incX incx
    #define F77_incY incy
 #endif
-   int n, i, j, tincx, tincy, incx=incX, incy=incY;
+   CBLAS_INT_TYPE n, i, j, tincx, tincy, incx=incX, incy=incY;
    double *x=(double *)X, *xx=(double *)X, *y=(double *)Y, 
          *yy=(double *)Y, *tx, *ty, *stx, *sty;
 

dlib/external/cblas/cblas_zher2k.c

@@ -10,10 +10,10 @@
 #include "cblas.h"
 #include "cblas_f77.h"
 void cblas_zher2k(const enum CBLAS_ORDER Order, const enum CBLAS_UPLO Uplo,
-                  const enum CBLAS_TRANSPOSE Trans, const int N, const int K,
-                  const void *alpha, const void *A, const int lda,
-                  const void *B, const int ldb, const double beta,
-                  void *C, const int ldc)
+                  const enum CBLAS_TRANSPOSE Trans, const CBLAS_INT_TYPE N, const CBLAS_INT_TYPE K,
+                  const void *alpha, const void *A, const CBLAS_INT_TYPE lda,
+                  const void *B, const CBLAS_INT_TYPE ldb, const double beta,
+                  void *C, const CBLAS_INT_TYPE ldc)
 {
    char UL, TR;   
 #ifdef F77_CHAR

dlib/external/cblas/cblas_zherk.c

@@ -10,9 +10,9 @@
 #include "cblas.h"
 #include "cblas_f77.h"
 void cblas_zherk(const enum CBLAS_ORDER Order, const enum CBLAS_UPLO Uplo,
-                 const enum CBLAS_TRANSPOSE Trans, const int N, const int K,
-                 const double alpha, const void *A, const int lda,
-                 const double beta, void *C, const int ldc)
+                 const enum CBLAS_TRANSPOSE Trans, const CBLAS_INT_TYPE N, const CBLAS_INT_TYPE K,
+                 const double alpha, const void *A, const CBLAS_INT_TYPE lda,
+                 const double beta, void *C, const CBLAS_INT_TYPE ldc)
 {
    char UL, TR;   
 #ifdef F77_CHAR

dlib/external/cblas/cblas_zhpmv.c

@@ -10,10 +10,10 @@
 #include "cblas.h"
 #include "cblas_f77.h"
 void cblas_zhpmv(const enum CBLAS_ORDER order,
-                 const enum CBLAS_UPLO Uplo,const int N,
+                 const enum CBLAS_UPLO Uplo,const CBLAS_INT_TYPE N,
                  const void *alpha, const void  *AP,
-                 const void  *X, const int incX, const void *beta,
-                 void  *Y, const int incY)
+                 const void  *X, const CBLAS_INT_TYPE incX, const void *beta,
+                 void  *Y, const CBLAS_INT_TYPE incY)
 {
    char UL;
 #ifdef F77_CHAR
@@ -28,10 +28,10 @@ void cblas_zhpmv(const enum CBLAS_ORDER order,
    #define F77_incX incx
    #define F77_incY incY
 #endif
-   int n, i=0, incx=incX;
+   CBLAS_INT_TYPE n, i=0, incx=incX;
    const double *xx= (double *)X, *alp= (double *)alpha, *bet = (double *)beta;
    double ALPHA[2],BETA[2];
-   int tincY, tincx;
+   CBLAS_INT_TYPE tincY, tincx;
    double *x=(double *)X, *y=(double *)Y, *st=0, *tx;
 
    if (order == CblasColMajor)

dlib/external/cblas/cblas_zhpr.c

@@ -10,8 +10,8 @@
 #include "cblas.h"
 #include "cblas_f77.h"
 void cblas_zhpr(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
-                const int N, const double alpha, const void *X,
-                const int incX, void *A)
+                const CBLAS_INT_TYPE N, const double alpha, const void *X,
+                const CBLAS_INT_TYPE incX, void *A)
 {
    char UL;
 #ifdef F77_CHAR
@@ -26,7 +26,7 @@ void cblas_zhpr(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
    #define F77_N N
    #define F77_incX incx
 #endif
-   int n, i, tincx, incx=incX;
+   CBLAS_INT_TYPE n, i, tincx, incx=incX;
    double *x=(double *)X, *xx=(double *)X, *tx, *st;
 
  

dlib/external/cblas/cblas_zhpr2.c

@@ -10,8 +10,8 @@
 #include "cblas.h"
 #include "cblas_f77.h"
 void cblas_zhpr2(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
-                      const int N,const void *alpha, const void *X, 
-                      const int incX,const void *Y, const int incY, void *Ap)
+                      const CBLAS_INT_TYPE N,const void *alpha, const void *X, 
+                      const CBLAS_INT_TYPE incX,const void *Y, const CBLAS_INT_TYPE incY, void *Ap)
 
 {
    char UL;
@@ -28,7 +28,7 @@ void cblas_zhpr2(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
    #define F77_incX incx
    #define F77_incY incy
 #endif
-   int n, i, j, incx=incX, incy=incY;
+   CBLAS_INT_TYPE n, i, j, incx=incX, incy=incY;
    double *x=(double *)X, *xx=(double *)X, *y=(double *)Y,
          *yy=(double *)Y, *stx, *sty;
 

dlib/external/cblas/cblas_zscal.c

@@ -8,8 +8,8 @@
  */
 #include "cblas.h"
 #include "cblas_f77.h"
-void cblas_zscal( const int N, const void *alpha, void *X, 
-                       const int incX)
+void cblas_zscal( const CBLAS_INT_TYPE N, const void *alpha, void *X, 
+                       const CBLAS_INT_TYPE incX)
 {
 #ifdef F77_INT
    F77_INT F77_N=N, F77_incX=incX;

dlib/external/cblas/cblas_zswap.c

@@ -8,8 +8,8 @@
  */
 #include "cblas.h"
 #include "cblas_f77.h"
-void cblas_zswap( const int N, void  *X, const int incX, void  *Y,
-                       const int incY)
+void cblas_zswap( const CBLAS_INT_TYPE N, void  *X, const CBLAS_INT_TYPE incX, void  *Y,
+                       const CBLAS_INT_TYPE incY)
 {
 #ifdef F77_INT
    F77_INT F77_N=N, F77_incX=incX, F77_incY=incY;

dlib/external/cblas/cblas_zsymm.c

@@ -10,10 +10,10 @@
 #include "cblas.h"
 #include "cblas_f77.h"
 void cblas_zsymm(const enum CBLAS_ORDER Order, const enum CBLAS_SIDE Side,
-                 const enum CBLAS_UPLO Uplo, const int M, const int N,
-                 const void *alpha, const void  *A, const int lda,
-                 const void  *B, const int ldb, const void *beta,
-                 void  *C, const int ldc)
+                 const enum CBLAS_UPLO Uplo, const CBLAS_INT_TYPE M, const CBLAS_INT_TYPE N,
+                 const void *alpha, const void  *A, const CBLAS_INT_TYPE lda,
+                 const void  *B, const CBLAS_INT_TYPE ldb, const void *beta,
+                 void  *C, const CBLAS_INT_TYPE ldc)
 {
    char SD, UL;   
 #ifdef F77_CHAR

dlib/external/cblas/cblas_zsyr2k.c

@@ -10,10 +10,10 @@
 #include "cblas.h"
 #include "cblas_f77.h"
 void cblas_zsyr2k(const enum CBLAS_ORDER Order, const enum CBLAS_UPLO Uplo,
-                  const enum CBLAS_TRANSPOSE Trans, const int N, const int K,
-                  const void *alpha, const void  *A, const int lda,
-                  const void  *B, const int ldb, const void *beta,
-                  void  *C, const int ldc)
+                  const enum CBLAS_TRANSPOSE Trans, const CBLAS_INT_TYPE N, const CBLAS_INT_TYPE K,
+                  const void *alpha, const void  *A, const CBLAS_INT_TYPE lda,
+                  const void  *B, const CBLAS_INT_TYPE ldb, const void *beta,
+                  void  *C, const CBLAS_INT_TYPE ldc)
 {
    char UL, TR;   
 #ifdef F77_CHAR

dlib/external/cblas/cblas_zsyrk.c

@@ -10,9 +10,9 @@
 #include "cblas.h"
 #include "cblas_f77.h"
 void cblas_zsyrk(const enum CBLAS_ORDER Order, const enum CBLAS_UPLO Uplo,
-                 const enum CBLAS_TRANSPOSE Trans, const int N, const int K,
-                 const void *alpha, const void  *A, const int lda,
-                 const void *beta, void  *C, const int ldc)
+                 const enum CBLAS_TRANSPOSE Trans, const CBLAS_INT_TYPE N, const CBLAS_INT_TYPE K,
+                 const void *alpha, const void  *A, const CBLAS_INT_TYPE lda,
+                 const void *beta, void  *C, const CBLAS_INT_TYPE ldc)
 {
    char UL, TR;   
 #ifdef F77_CHAR

dlib/external/cblas/cblas_ztbmv.c

@@ -9,8 +9,8 @@
 #include "cblas_f77.h"
 void cblas_ztbmv(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
                  const enum CBLAS_TRANSPOSE TransA, const enum CBLAS_DIAG Diag,
-                 const int N, const int K, const void  *A, const int lda,
-                 void  *X, const int incX)
+                 const CBLAS_INT_TYPE N, const CBLAS_INT_TYPE K, const void  *A, const CBLAS_INT_TYPE lda,
+                 void  *X, const CBLAS_INT_TYPE incX)
 {
    char TA;
    char UL;
@@ -30,7 +30,7 @@ void cblas_ztbmv(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
    #define F77_lda lda
    #define F77_incX incX
 #endif
-   int n, i=0, tincX; 
+   CBLAS_INT_TYPE n, i=0, tincX; 
    double *st=0, *x=(double *)X;
 
    if (order == CblasColMajor)

dlib/external/cblas/cblas_ztbsv.c

@@ -9,8 +9,8 @@
 #include "cblas_f77.h"
 void cblas_ztbsv(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
                  const enum CBLAS_TRANSPOSE TransA, const enum CBLAS_DIAG Diag,
-                 const int N, const int K, const void  *A, const int lda,
-                 void  *X, const int incX)
+                 const CBLAS_INT_TYPE N, const CBLAS_INT_TYPE K, const void  *A, const CBLAS_INT_TYPE lda,
+                 void  *X, const CBLAS_INT_TYPE incX)
 {
    char TA;
    char UL;
@@ -30,7 +30,7 @@ void cblas_ztbsv(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
    #define F77_lda lda
    #define F77_incX incX
 #endif
-   int n, i=0, tincX; 
+   CBLAS_INT_TYPE n, i=0, tincX; 
    double *st=0,*x=(double *)X;
 
    if (order == CblasColMajor)

dlib/external/cblas/cblas_ztpmv.c

@@ -9,7 +9,7 @@
 #include "cblas_f77.h"
 void cblas_ztpmv(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
                  const enum CBLAS_TRANSPOSE TransA, const enum CBLAS_DIAG Diag,
-                 const int N, const void  *Ap, void  *X, const int incX)
+                 const CBLAS_INT_TYPE N, const void  *Ap, void  *X, const CBLAS_INT_TYPE incX)
 {
    char TA;
    char UL;
@@ -27,7 +27,7 @@ void cblas_ztpmv(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
    #define F77_N N
    #define F77_incX incX
 #endif
-   int n, i=0, tincX; 
+   CBLAS_INT_TYPE n, i=0, tincX; 
    double *st=0,*x=(double *)X;
 
    if (order == CblasColMajor)

dlib/external/cblas/cblas_ztpsv.c

@@ -9,7 +9,7 @@
 #include "cblas_f77.h"
 void cblas_ztpsv(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
                  const enum CBLAS_TRANSPOSE TransA, const enum CBLAS_DIAG Diag,
-                 const int N, const void  *Ap, void  *X, const int incX)
+                 const CBLAS_INT_TYPE N, const void  *Ap, void  *X, const CBLAS_INT_TYPE incX)
 {
    char TA;
    char UL;
@@ -27,7 +27,7 @@ void cblas_ztpsv(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
    #define F77_N N
    #define F77_incX incX
 #endif
-   int n, i=0, tincX; 
+   CBLAS_INT_TYPE n, i=0, tincX; 
    double *st=0, *x=(double*)X;
 
    if (order == CblasColMajor)

dlib/external/cblas/cblas_ztrmm.c

@@ -11,9 +11,9 @@
 #include "cblas_f77.h"
 void cblas_ztrmm(const enum CBLAS_ORDER Order, const enum CBLAS_SIDE Side,
                  const enum CBLAS_UPLO Uplo, const  enum CBLAS_TRANSPOSE TransA,
-                 const enum CBLAS_DIAG Diag, const int M, const int N,
-                 const void *alpha, const void  *A, const int lda,
-                 void  *B, const int ldb)
+                 const enum CBLAS_DIAG Diag, const CBLAS_INT_TYPE M, const CBLAS_INT_TYPE N,
+                 const void *alpha, const void  *A, const CBLAS_INT_TYPE lda,
+                 void  *B, const CBLAS_INT_TYPE ldb)
 {
    char UL, TA, SD, DI;   
 #ifdef F77_CHAR

dlib/external/cblas/cblas_ztrmv.c

@@ -9,8 +9,8 @@
 #include "cblas_f77.h"
 void cblas_ztrmv(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
                  const enum CBLAS_TRANSPOSE TransA, const enum CBLAS_DIAG Diag,
-                 const int N, const void  *A, const int lda,
-                 void  *X, const int incX)
+                 const CBLAS_INT_TYPE N, const void  *A, const CBLAS_INT_TYPE lda,
+                 void  *X, const CBLAS_INT_TYPE incX)
 
 {
    char TA;
@@ -30,7 +30,7 @@ void cblas_ztrmv(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
    #define F77_lda lda
    #define F77_incX incX
 #endif
-   int n, i=0, tincX; 
+   CBLAS_INT_TYPE n, i=0, tincX; 
    double *st=0,*x=(double *)X;
 
    if (order == CblasColMajor)

dlib/external/cblas/cblas_ztrsm.c

@@ -11,9 +11,9 @@
 #include "cblas_f77.h"
 void cblas_ztrsm(const enum CBLAS_ORDER Order, const enum CBLAS_SIDE Side,
                  const enum CBLAS_UPLO Uplo, const enum CBLAS_TRANSPOSE TransA,
-                 const enum CBLAS_DIAG Diag, const int M, const int N,
-                 const void *alpha, const void  *A, const int lda,
-                 void  *B, const int ldb)
+                 const enum CBLAS_DIAG Diag, const CBLAS_INT_TYPE M, const CBLAS_INT_TYPE N,
+                 const void *alpha, const void  *A, const CBLAS_INT_TYPE lda,
+                 void  *B, const CBLAS_INT_TYPE ldb)
 {
    char UL, TA, SD, DI;
 #ifdef F77_CHAR

dlib/external/cblas/cblas_ztrsv.c

@@ -9,8 +9,8 @@
 #include "cblas_f77.h"
 void cblas_ztrsv(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
                  const enum CBLAS_TRANSPOSE TransA, const enum CBLAS_DIAG Diag,
-                 const int N, const void  *A, const int lda, void  *X,
-                 const int incX)
+                 const CBLAS_INT_TYPE N, const void  *A, const CBLAS_INT_TYPE lda, void  *X,
+                 const CBLAS_INT_TYPE incX)
 {
    char TA;
    char UL;
@@ -29,7 +29,7 @@ void cblas_ztrsv(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
    #define F77_lda lda
    #define F77_incX incX
 #endif
-   int n, i=0, tincX; 
+   CBLAS_INT_TYPE n, i=0, tincX; 
    double *st=0,*x=(double *)X;
 
    if (order == CblasColMajor)