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

dlib/external/cblas/cblas_cscal.c

@@ -8,8 +8,8 @@
  */
 #include "cblas.h"
 #include "cblas_f77.h"
-void cblas_cscal( const int N, const void *alpha, void *X, 
-                       const int incX)
+void cblas_cscal( 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_csscal.c

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

dlib/external/cblas/cblas_cswap.c

@@ -8,8 +8,8 @@
  */
 #include "cblas.h"
 #include "cblas_f77.h"
-void cblas_cswap( const int N, void *X, const int incX, void *Y,
-                       const int incY)
+void cblas_cswap( 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_csymm.c

@@ -10,10 +10,10 @@
 #include "cblas.h"
 #include "cblas_f77.h"
 void cblas_csymm(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_csyr2k.c

@@ -10,10 +10,10 @@
 #include "cblas.h"
 #include "cblas_f77.h"
 void cblas_csyr2k(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_csyrk.c

@@ -10,9 +10,9 @@
 #include "cblas.h"
 #include "cblas_f77.h"
 void cblas_csyrk(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_ctbmv.c

@@ -9,8 +9,8 @@
 #include "cblas_f77.h"
 void cblas_ctbmv(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_ctbmv(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; 
    float *st=0, *x=(float *)X;
 
    if (order == CblasColMajor)

dlib/external/cblas/cblas_ctbsv.c

@@ -9,8 +9,8 @@
 #include "cblas_f77.h"
 void cblas_ctbsv(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_ctbsv(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; 
    float *st=0,*x=(float *)X;
 
    if (order == CblasColMajor)

dlib/external/cblas/cblas_ctpmv.c

@@ -9,7 +9,7 @@
 #include "cblas_f77.h"
 void cblas_ctpmv(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_ctpmv(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; 
    float *st=0,*x=(float *)X;
 
    if (order == CblasColMajor)

dlib/external/cblas/cblas_ctpsv.c

@@ -9,7 +9,7 @@
 #include "cblas_f77.h"
 void cblas_ctpsv(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_ctpsv(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; 
    float *st=0, *x=(float*)X;
 
    if (order == CblasColMajor)

dlib/external/cblas/cblas_ctrmm.c

@@ -11,9 +11,9 @@
 #include "cblas_f77.h"
 void cblas_ctrmm(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_ctrmv.c

@@ -9,8 +9,8 @@
 #include "cblas_f77.h"
 void cblas_ctrmv(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_ctrmv(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; 
    float *st=0,*x=(float *)X;
 
    if (order == CblasColMajor)

dlib/external/cblas/cblas_ctrsm.c

@@ -11,9 +11,9 @@
 #include "cblas_f77.h"
 void cblas_ctrsm(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_ctrsv.c

@@ -9,8 +9,8 @@
 #include "cblas_f77.h"
 void cblas_ctrsv(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_ctrsv(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; 
    float *st=0,*x=(float *)X;
 
    if (order == CblasColMajor)

dlib/external/cblas/cblas_dasum.c

@@ -9,7 +9,7 @@
  */
 #include "cblas.h"
 #include "cblas_f77.h"
-double cblas_dasum( const int N, const double *X, const int incX) 
+double cblas_dasum( const CBLAS_INT_TYPE N, const double *X, const CBLAS_INT_TYPE incX) 
 {
    double asum;
 #ifdef F77_INT

dlib/external/cblas/cblas_daxpy.c

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

dlib/external/cblas/cblas_dcopy.c

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

dlib/external/cblas/cblas_ddot.c

@@ -9,8 +9,8 @@
  */
 #include "cblas.h"
 #include "cblas_f77.h"
-double cblas_ddot( const int N, const double *X,
-                      const int incX, const double *Y, const int incY)
+double cblas_ddot( const CBLAS_INT_TYPE N, const double *X,
+                      const CBLAS_INT_TYPE incX, const double *Y, const CBLAS_INT_TYPE incY)
 {
    double dot;
 #ifdef F77_INT

dlib/external/cblas/cblas_dgbmv.c

@@ -9,11 +9,11 @@
 #include "cblas.h"
 #include "cblas_f77.h"
 void cblas_dgbmv(const enum CBLAS_ORDER order,
-                 const enum CBLAS_TRANSPOSE TransA, const int M, const int N,
-                 const int KL, const int KU,
-                 const double alpha, const double  *A, const int lda,
-                 const double  *X, const int incX, const double beta,
-                 double  *Y, const int incY)
+                 const enum CBLAS_TRANSPOSE TransA, const CBLAS_INT_TYPE M, const CBLAS_INT_TYPE N,
+                 const CBLAS_INT_TYPE KL, const CBLAS_INT_TYPE KU,
+                 const double alpha, const double  *A, const CBLAS_INT_TYPE lda,
+                 const double  *X, const CBLAS_INT_TYPE incX, const double beta,
+                 double  *Y, const CBLAS_INT_TYPE incY)
 {
    char TA;
 #ifdef F77_CHAR

dlib/external/cblas/cblas_dgemm.c

@@ -10,10 +10,10 @@
 #include "cblas.h"
 #include "cblas_f77.h"
 void cblas_dgemm(const enum CBLAS_ORDER Order, const enum CBLAS_TRANSPOSE TransA,
-                 const enum CBLAS_TRANSPOSE TransB, const int M, const int N,
-                 const int K, const double alpha, const double  *A,
-                 const int lda, const double  *B, const int ldb,
-                 const double beta, double  *C, const int ldc)
+                 const enum CBLAS_TRANSPOSE TransB, const CBLAS_INT_TYPE M, const CBLAS_INT_TYPE N,
+                 const CBLAS_INT_TYPE K, const double alpha, const double  *A,
+                 const CBLAS_INT_TYPE lda, const double  *B, const CBLAS_INT_TYPE ldb,
+                 const double beta, double  *C, const CBLAS_INT_TYPE ldc)
 {
    char TA, TB;   
 #ifdef F77_CHAR