diff --git a/CBLAS/examples/cblas_example1.c b/CBLAS/examples/cblas_example1.c index d89aeadb06..65731ba15c 100644 --- a/CBLAS/examples/cblas_example1.c +++ b/CBLAS/examples/cblas_example1.c @@ -11,7 +11,7 @@ int main ( ) double *a, *x, *y; double alpha, beta; - CBLAS_INDEX m, n, lda, incx, incy, i; + CBLAS_INT m, n, lda, incx, incy, i; Layout = CblasColMajor; transa = CblasNoTrans; diff --git a/CBLAS/examples/cblas_example2.c b/CBLAS/examples/cblas_example2.c index e82ae518c4..8b6e6b4d4e 100644 --- a/CBLAS/examples/cblas_example2.c +++ b/CBLAS/examples/cblas_example2.c @@ -9,7 +9,7 @@ int main (int argc, char **argv ) { - CBLAS_INDEX rout=-1,info=0,m,n,k,lda,ldb,ldc; + CBLAS_INT rout=-1,info=0,m,n,k,lda,ldb,ldc; double A[2] = {0.0,0.0}, B[2] = {0.0,0.0}, C[2] = {0.0,0.0}, diff --git a/CBLAS/include/cblas.h b/CBLAS/include/cblas.h index 29c9f98b6a..8b1cd2a1c4 100644 --- a/CBLAS/include/cblas.h +++ b/CBLAS/include/cblas.h @@ -10,10 +10,15 @@ extern "C" { /* Assume C declarations for C++ */ /* * Enumerated and derived types */ +#define CBLAS_INDEX size_t /* this may vary between platforms */ + +/* + * Integer type + */ #ifdef WeirdNEC - #define CBLAS_INDEX long + #define CBLAS_INT long #else - #define CBLAS_INDEX int + #define CBLAS_INT int #endif typedef enum CBLAS_LAYOUT {CblasRowMajor=101, CblasColMajor=102} CBLAS_LAYOUT; @@ -35,52 +40,52 @@ typedef enum CBLAS_SIDE {CblasLeft=141, CblasRight=142} CBLAS_SIDE; double cblas_dcabs1(const void *z); float cblas_scabs1(const void *c); -float cblas_sdsdot(const CBLAS_INDEX N, const float alpha, const float *X, - const CBLAS_INDEX incX, const float *Y, const CBLAS_INDEX incY); -double cblas_dsdot(const CBLAS_INDEX N, const float *X, const CBLAS_INDEX incX, const float *Y, - const CBLAS_INDEX incY); -float cblas_sdot(const CBLAS_INDEX N, const float *X, const CBLAS_INDEX incX, - const float *Y, const CBLAS_INDEX incY); -double cblas_ddot(const CBLAS_INDEX N, const double *X, const CBLAS_INDEX incX, - const double *Y, const CBLAS_INDEX incY); +float cblas_sdsdot(const CBLAS_INT N, const float alpha, const float *X, + const CBLAS_INT incX, const float *Y, const CBLAS_INT incY); +double cblas_dsdot(const CBLAS_INT N, const float *X, const CBLAS_INT incX, const float *Y, + const CBLAS_INT incY); +float cblas_sdot(const CBLAS_INT N, const float *X, const CBLAS_INT incX, + const float *Y, const CBLAS_INT incY); +double cblas_ddot(const CBLAS_INT N, const double *X, const CBLAS_INT incX, + const double *Y, const CBLAS_INT incY); /* * Functions having prefixes Z and C only */ -void cblas_cdotu_sub(const CBLAS_INDEX N, const void *X, const CBLAS_INDEX incX, - const void *Y, const CBLAS_INDEX incY, void *dotu); -void cblas_cdotc_sub(const CBLAS_INDEX N, const void *X, const CBLAS_INDEX incX, - const void *Y, const CBLAS_INDEX incY, void *dotc); +void cblas_cdotu_sub(const CBLAS_INT N, const void *X, const CBLAS_INT incX, + const void *Y, const CBLAS_INT incY, void *dotu); +void cblas_cdotc_sub(const CBLAS_INT N, const void *X, const CBLAS_INT incX, + const void *Y, const CBLAS_INT incY, void *dotc); -void cblas_zdotu_sub(const CBLAS_INDEX N, const void *X, const CBLAS_INDEX incX, - const void *Y, const CBLAS_INDEX incY, void *dotu); -void cblas_zdotc_sub(const CBLAS_INDEX N, const void *X, const CBLAS_INDEX incX, - const void *Y, const CBLAS_INDEX incY, void *dotc); +void cblas_zdotu_sub(const CBLAS_INT N, const void *X, const CBLAS_INT incX, + const void *Y, const CBLAS_INT incY, void *dotu); +void cblas_zdotc_sub(const CBLAS_INT N, const void *X, const CBLAS_INT incX, + const void *Y, const CBLAS_INT incY, void *dotc); /* * Functions having prefixes S D SC DZ */ -float cblas_snrm2(const CBLAS_INDEX N, const float *X, const CBLAS_INDEX incX); -float cblas_sasum(const CBLAS_INDEX N, const float *X, const CBLAS_INDEX incX); +float cblas_snrm2(const CBLAS_INT N, const float *X, const CBLAS_INT incX); +float cblas_sasum(const CBLAS_INT N, const float *X, const CBLAS_INT incX); -double cblas_dnrm2(const CBLAS_INDEX N, const double *X, const CBLAS_INDEX incX); -double cblas_dasum(const CBLAS_INDEX N, const double *X, const CBLAS_INDEX incX); +double cblas_dnrm2(const CBLAS_INT N, const double *X, const CBLAS_INT incX); +double cblas_dasum(const CBLAS_INT N, const double *X, const CBLAS_INT incX); -float cblas_scnrm2(const CBLAS_INDEX N, const void *X, const CBLAS_INDEX incX); -float cblas_scasum(const CBLAS_INDEX N, const void *X, const CBLAS_INDEX incX); +float cblas_scnrm2(const CBLAS_INT N, const void *X, const CBLAS_INT incX); +float cblas_scasum(const CBLAS_INT N, const void *X, const CBLAS_INT incX); -double cblas_dznrm2(const CBLAS_INDEX N, const void *X, const CBLAS_INDEX incX); -double cblas_dzasum(const CBLAS_INDEX N, const void *X, const CBLAS_INDEX incX); +double cblas_dznrm2(const CBLAS_INT N, const void *X, const CBLAS_INT incX); +double cblas_dzasum(const CBLAS_INT N, const void *X, const CBLAS_INT incX); /* * Functions having standard 4 prefixes (S D C Z) */ -CBLAS_INDEX cblas_isamax(const CBLAS_INDEX N, const float *X, const CBLAS_INDEX incX); -CBLAS_INDEX cblas_idamax(const CBLAS_INDEX N, const double *X, const CBLAS_INDEX incX); -CBLAS_INDEX cblas_icamax(const CBLAS_INDEX N, const void *X, const CBLAS_INDEX incX); -CBLAS_INDEX cblas_izamax(const CBLAS_INDEX N, const void *X, const CBLAS_INDEX incX); +CBLAS_INDEX cblas_isamax(const CBLAS_INT N, const float *X, const CBLAS_INT incX); +CBLAS_INDEX cblas_idamax(const CBLAS_INT N, const double *X, const CBLAS_INT incX); +CBLAS_INDEX cblas_icamax(const CBLAS_INT N, const void *X, const CBLAS_INT incX); +CBLAS_INDEX cblas_izamax(const CBLAS_INT N, const void *X, const CBLAS_INT incX); /* * =========================================================================== @@ -91,33 +96,33 @@ CBLAS_INDEX cblas_izamax(const CBLAS_INDEX N, const void *X, const CBLAS_INDEX /* * Routines with standard 4 prefixes (s, d, c, z) */ -void cblas_sswap(const CBLAS_INDEX N, float *X, const CBLAS_INDEX incX, - float *Y, const CBLAS_INDEX incY); -void cblas_scopy(const CBLAS_INDEX N, const float *X, const CBLAS_INDEX incX, - float *Y, const CBLAS_INDEX incY); -void cblas_saxpy(const CBLAS_INDEX N, const float alpha, const float *X, - const CBLAS_INDEX incX, float *Y, const CBLAS_INDEX incY); - -void cblas_dswap(const CBLAS_INDEX N, double *X, const CBLAS_INDEX incX, - double *Y, const CBLAS_INDEX incY); -void cblas_dcopy(const CBLAS_INDEX N, const double *X, const CBLAS_INDEX incX, - double *Y, const CBLAS_INDEX incY); -void cblas_daxpy(const CBLAS_INDEX N, const double alpha, const double *X, - const CBLAS_INDEX incX, double *Y, const CBLAS_INDEX incY); - -void cblas_cswap(const CBLAS_INDEX N, void *X, const CBLAS_INDEX incX, - void *Y, const CBLAS_INDEX incY); -void cblas_ccopy(const CBLAS_INDEX N, const void *X, const CBLAS_INDEX incX, - void *Y, const CBLAS_INDEX incY); -void cblas_caxpy(const CBLAS_INDEX N, const void *alpha, const void *X, - const CBLAS_INDEX incX, void *Y, const CBLAS_INDEX incY); - -void cblas_zswap(const CBLAS_INDEX N, void *X, const CBLAS_INDEX incX, - void *Y, const CBLAS_INDEX incY); -void cblas_zcopy(const CBLAS_INDEX N, const void *X, const CBLAS_INDEX incX, - void *Y, const CBLAS_INDEX incY); -void cblas_zaxpy(const CBLAS_INDEX N, const void *alpha, const void *X, - const CBLAS_INDEX incX, void *Y, const CBLAS_INDEX incY); +void cblas_sswap(const CBLAS_INT N, float *X, const CBLAS_INT incX, + float *Y, const CBLAS_INT incY); +void cblas_scopy(const CBLAS_INT N, const float *X, const CBLAS_INT incX, + float *Y, const CBLAS_INT incY); +void cblas_saxpy(const CBLAS_INT N, const float alpha, const float *X, + const CBLAS_INT incX, float *Y, const CBLAS_INT incY); + +void cblas_dswap(const CBLAS_INT N, double *X, const CBLAS_INT incX, + double *Y, const CBLAS_INT incY); +void cblas_dcopy(const CBLAS_INT N, const double *X, const CBLAS_INT incX, + double *Y, const CBLAS_INT incY); +void cblas_daxpy(const CBLAS_INT N, const double alpha, const double *X, + const CBLAS_INT incX, double *Y, const CBLAS_INT incY); + +void cblas_cswap(const CBLAS_INT N, void *X, const CBLAS_INT incX, + void *Y, const CBLAS_INT incY); +void cblas_ccopy(const CBLAS_INT N, const void *X, const CBLAS_INT incX, + void *Y, const CBLAS_INT incY); +void cblas_caxpy(const CBLAS_INT N, const void *alpha, const void *X, + const CBLAS_INT incX, void *Y, const CBLAS_INT incY); + +void cblas_zswap(const CBLAS_INT N, void *X, const CBLAS_INT incX, + void *Y, const CBLAS_INT incY); +void cblas_zcopy(const CBLAS_INT N, const void *X, const CBLAS_INT incX, + void *Y, const CBLAS_INT incY); +void cblas_zaxpy(const CBLAS_INT N, const void *alpha, const void *X, + const CBLAS_INT incX, void *Y, const CBLAS_INT incY); /* @@ -125,28 +130,28 @@ void cblas_zaxpy(const CBLAS_INDEX N, const void *alpha, const void *X, */ void cblas_srotg(float *a, float *b, float *c, float *s); void cblas_srotmg(float *d1, float *d2, float *b1, const float b2, float *P); -void cblas_srot(const CBLAS_INDEX N, float *X, const CBLAS_INDEX incX, - float *Y, const CBLAS_INDEX incY, const float c, const float s); -void cblas_srotm(const CBLAS_INDEX N, float *X, const CBLAS_INDEX incX, - float *Y, const CBLAS_INDEX incY, const float *P); +void cblas_srot(const CBLAS_INT N, float *X, const CBLAS_INT incX, + float *Y, const CBLAS_INT incY, const float c, const float s); +void cblas_srotm(const CBLAS_INT N, float *X, const CBLAS_INT incX, + float *Y, const CBLAS_INT incY, const float *P); void cblas_drotg(double *a, double *b, double *c, double *s); void cblas_drotmg(double *d1, double *d2, double *b1, const double b2, double *P); -void cblas_drot(const CBLAS_INDEX N, double *X, const CBLAS_INDEX incX, - double *Y, const CBLAS_INDEX incY, const double c, const double s); -void cblas_drotm(const CBLAS_INDEX N, double *X, const CBLAS_INDEX incX, - double *Y, const CBLAS_INDEX incY, const double *P); +void cblas_drot(const CBLAS_INT N, double *X, const CBLAS_INT incX, + double *Y, const CBLAS_INT incY, const double c, const double s); +void cblas_drotm(const CBLAS_INT N, double *X, const CBLAS_INT incX, + double *Y, const CBLAS_INT incY, const double *P); /* * Routines with S D C Z CS and ZD prefixes */ -void cblas_sscal(const CBLAS_INDEX N, const float alpha, float *X, const CBLAS_INDEX incX); -void cblas_dscal(const CBLAS_INDEX N, const double alpha, double *X, const CBLAS_INDEX incX); -void cblas_cscal(const CBLAS_INDEX N, const void *alpha, void *X, const CBLAS_INDEX incX); -void cblas_zscal(const CBLAS_INDEX N, const void *alpha, void *X, const CBLAS_INDEX incX); -void cblas_csscal(const CBLAS_INDEX N, const float alpha, void *X, const CBLAS_INDEX incX); -void cblas_zdscal(const CBLAS_INDEX N, const double alpha, void *X, const CBLAS_INDEX incX); +void cblas_sscal(const CBLAS_INT N, const float alpha, float *X, const CBLAS_INT incX); +void cblas_dscal(const CBLAS_INT N, const double alpha, double *X, const CBLAS_INT incX); +void cblas_cscal(const CBLAS_INT N, const void *alpha, void *X, const CBLAS_INT incX); +void cblas_zscal(const CBLAS_INT N, const void *alpha, void *X, const CBLAS_INT incX); +void cblas_csscal(const CBLAS_INT N, const float alpha, void *X, const CBLAS_INT incX); +void cblas_zdscal(const CBLAS_INT N, const double alpha, void *X, const CBLAS_INT incX); /* * =========================================================================== @@ -158,264 +163,264 @@ void cblas_zdscal(const CBLAS_INDEX N, const double alpha, void *X, const CBLAS_ * Routines with standard 4 prefixes (S, D, C, Z) */ void cblas_sgemv(const CBLAS_LAYOUT layout, - const CBLAS_TRANSPOSE TransA, const CBLAS_INDEX M, const CBLAS_INDEX N, - const float alpha, const float *A, const CBLAS_INDEX lda, - const float *X, const CBLAS_INDEX incX, const float beta, - float *Y, const CBLAS_INDEX incY); + const CBLAS_TRANSPOSE TransA, const CBLAS_INT M, const CBLAS_INT N, + const float alpha, const float *A, const CBLAS_INT lda, + const float *X, const CBLAS_INT incX, const float beta, + float *Y, const CBLAS_INT incY); void cblas_sgbmv(CBLAS_LAYOUT layout, - CBLAS_TRANSPOSE TransA, const CBLAS_INDEX M, const CBLAS_INDEX N, - const CBLAS_INDEX KL, const CBLAS_INDEX KU, const float alpha, - const float *A, const CBLAS_INDEX lda, const float *X, - const CBLAS_INDEX incX, const float beta, float *Y, const CBLAS_INDEX incY); + CBLAS_TRANSPOSE TransA, const CBLAS_INT M, const CBLAS_INT N, + const CBLAS_INT KL, const CBLAS_INT KU, const float alpha, + const float *A, const CBLAS_INT lda, const float *X, + const CBLAS_INT incX, const float beta, float *Y, const CBLAS_INT incY); void cblas_strmv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag, - const CBLAS_INDEX N, const float *A, const CBLAS_INDEX lda, - float *X, const CBLAS_INDEX incX); + const CBLAS_INT N, const float *A, const CBLAS_INT lda, + float *X, const CBLAS_INT incX); void cblas_stbmv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag, - const CBLAS_INDEX N, const CBLAS_INDEX K, const float *A, const CBLAS_INDEX lda, - float *X, const CBLAS_INDEX incX); + const CBLAS_INT N, const CBLAS_INT K, const float *A, const CBLAS_INT lda, + float *X, const CBLAS_INT incX); void cblas_stpmv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag, - const CBLAS_INDEX N, const float *Ap, float *X, const CBLAS_INDEX incX); + const CBLAS_INT N, const float *Ap, float *X, const CBLAS_INT incX); void cblas_strsv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag, - const CBLAS_INDEX N, const float *A, const CBLAS_INDEX lda, float *X, - const CBLAS_INDEX incX); + const CBLAS_INT N, const float *A, const CBLAS_INT lda, float *X, + const CBLAS_INT incX); void cblas_stbsv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag, - const CBLAS_INDEX N, const CBLAS_INDEX K, const float *A, const CBLAS_INDEX lda, - float *X, const CBLAS_INDEX incX); + const CBLAS_INT N, const CBLAS_INT K, const float *A, const CBLAS_INT lda, + float *X, const CBLAS_INT incX); void cblas_stpsv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag, - const CBLAS_INDEX N, const float *Ap, float *X, const CBLAS_INDEX incX); + const CBLAS_INT N, const float *Ap, float *X, const CBLAS_INT incX); void cblas_dgemv(CBLAS_LAYOUT layout, - CBLAS_TRANSPOSE TransA, const CBLAS_INDEX M, const CBLAS_INDEX N, - const double alpha, const double *A, const CBLAS_INDEX lda, - const double *X, const CBLAS_INDEX incX, const double beta, - double *Y, const CBLAS_INDEX incY); + CBLAS_TRANSPOSE TransA, const CBLAS_INT M, const CBLAS_INT N, + const double alpha, const double *A, const CBLAS_INT lda, + const double *X, const CBLAS_INT incX, const double beta, + double *Y, const CBLAS_INT incY); void cblas_dgbmv(CBLAS_LAYOUT layout, - CBLAS_TRANSPOSE TransA, const CBLAS_INDEX M, const CBLAS_INDEX N, - const CBLAS_INDEX KL, const CBLAS_INDEX KU, const double alpha, - const double *A, const CBLAS_INDEX lda, const double *X, - const CBLAS_INDEX incX, const double beta, double *Y, const CBLAS_INDEX incY); + CBLAS_TRANSPOSE TransA, const CBLAS_INT M, const CBLAS_INT N, + const CBLAS_INT KL, const CBLAS_INT KU, const double alpha, + const double *A, const CBLAS_INT lda, const double *X, + const CBLAS_INT incX, const double beta, double *Y, const CBLAS_INT incY); void cblas_dtrmv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag, - const CBLAS_INDEX N, const double *A, const CBLAS_INDEX lda, - double *X, const CBLAS_INDEX incX); + const CBLAS_INT N, const double *A, const CBLAS_INT lda, + double *X, const CBLAS_INT incX); void cblas_dtbmv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag, - const CBLAS_INDEX N, const CBLAS_INDEX K, const double *A, const CBLAS_INDEX lda, - double *X, const CBLAS_INDEX incX); + const CBLAS_INT N, const CBLAS_INT K, const double *A, const CBLAS_INT lda, + double *X, const CBLAS_INT incX); void cblas_dtpmv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag, - const CBLAS_INDEX N, const double *Ap, double *X, const CBLAS_INDEX incX); + const CBLAS_INT N, const double *Ap, double *X, const CBLAS_INT incX); void cblas_dtrsv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag, - const CBLAS_INDEX N, const double *A, const CBLAS_INDEX lda, double *X, - const CBLAS_INDEX incX); + const CBLAS_INT N, const double *A, const CBLAS_INT lda, double *X, + const CBLAS_INT incX); void cblas_dtbsv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag, - const CBLAS_INDEX N, const CBLAS_INDEX K, const double *A, const CBLAS_INDEX lda, - double *X, const CBLAS_INDEX incX); + const CBLAS_INT N, const CBLAS_INT K, const double *A, const CBLAS_INT lda, + double *X, const CBLAS_INT incX); void cblas_dtpsv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag, - const CBLAS_INDEX N, const double *Ap, double *X, const CBLAS_INDEX incX); + const CBLAS_INT N, const double *Ap, double *X, const CBLAS_INT incX); void cblas_cgemv(CBLAS_LAYOUT layout, - CBLAS_TRANSPOSE TransA, const CBLAS_INDEX M, const CBLAS_INDEX N, - const void *alpha, const void *A, const CBLAS_INDEX lda, - const void *X, const CBLAS_INDEX incX, const void *beta, - void *Y, const CBLAS_INDEX incY); + CBLAS_TRANSPOSE TransA, const CBLAS_INT M, const CBLAS_INT N, + const void *alpha, const void *A, const CBLAS_INT lda, + const void *X, const CBLAS_INT incX, const void *beta, + void *Y, const CBLAS_INT incY); void cblas_cgbmv(CBLAS_LAYOUT layout, - CBLAS_TRANSPOSE TransA, const CBLAS_INDEX M, const CBLAS_INDEX N, - const CBLAS_INDEX KL, const CBLAS_INDEX KU, const void *alpha, - const void *A, const CBLAS_INDEX lda, const void *X, - const CBLAS_INDEX incX, const void *beta, void *Y, const CBLAS_INDEX incY); + CBLAS_TRANSPOSE TransA, const CBLAS_INT M, const CBLAS_INT N, + const CBLAS_INT KL, const CBLAS_INT KU, const void *alpha, + const void *A, const CBLAS_INT lda, const void *X, + const CBLAS_INT incX, const void *beta, void *Y, const CBLAS_INT incY); void cblas_ctrmv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag, - const CBLAS_INDEX N, const void *A, const CBLAS_INDEX lda, - void *X, const CBLAS_INDEX incX); + const CBLAS_INT N, const void *A, const CBLAS_INT lda, + void *X, const CBLAS_INT incX); void cblas_ctbmv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag, - const CBLAS_INDEX N, const CBLAS_INDEX K, const void *A, const CBLAS_INDEX lda, - void *X, const CBLAS_INDEX incX); + const CBLAS_INT N, const CBLAS_INT K, const void *A, const CBLAS_INT lda, + void *X, const CBLAS_INT incX); void cblas_ctpmv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag, - const CBLAS_INDEX N, const void *Ap, void *X, const CBLAS_INDEX incX); + const CBLAS_INT N, const void *Ap, void *X, const CBLAS_INT incX); void cblas_ctrsv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag, - const CBLAS_INDEX N, const void *A, const CBLAS_INDEX lda, void *X, - const CBLAS_INDEX incX); + const CBLAS_INT N, const void *A, const CBLAS_INT lda, void *X, + const CBLAS_INT incX); void cblas_ctbsv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag, - const CBLAS_INDEX N, const CBLAS_INDEX K, const void *A, const CBLAS_INDEX lda, - void *X, const CBLAS_INDEX incX); + const CBLAS_INT N, const CBLAS_INT K, const void *A, const CBLAS_INT lda, + void *X, const CBLAS_INT incX); void cblas_ctpsv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag, - const CBLAS_INDEX N, const void *Ap, void *X, const CBLAS_INDEX incX); + const CBLAS_INT N, const void *Ap, void *X, const CBLAS_INT incX); void cblas_zgemv(CBLAS_LAYOUT layout, - CBLAS_TRANSPOSE TransA, const CBLAS_INDEX M, const CBLAS_INDEX N, - const void *alpha, const void *A, const CBLAS_INDEX lda, - const void *X, const CBLAS_INDEX incX, const void *beta, - void *Y, const CBLAS_INDEX incY); + CBLAS_TRANSPOSE TransA, const CBLAS_INT M, const CBLAS_INT N, + const void *alpha, const void *A, const CBLAS_INT lda, + const void *X, const CBLAS_INT incX, const void *beta, + void *Y, const CBLAS_INT incY); void cblas_zgbmv(CBLAS_LAYOUT layout, - CBLAS_TRANSPOSE TransA, const CBLAS_INDEX M, const CBLAS_INDEX N, - const CBLAS_INDEX KL, const CBLAS_INDEX KU, const void *alpha, - const void *A, const CBLAS_INDEX lda, const void *X, - const CBLAS_INDEX incX, const void *beta, void *Y, const CBLAS_INDEX incY); + CBLAS_TRANSPOSE TransA, const CBLAS_INT M, const CBLAS_INT N, + const CBLAS_INT KL, const CBLAS_INT KU, const void *alpha, + const void *A, const CBLAS_INT lda, const void *X, + const CBLAS_INT incX, const void *beta, void *Y, const CBLAS_INT incY); void cblas_ztrmv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag, - const CBLAS_INDEX N, const void *A, const CBLAS_INDEX lda, - void *X, const CBLAS_INDEX incX); + const CBLAS_INT N, const void *A, const CBLAS_INT lda, + void *X, const CBLAS_INT incX); void cblas_ztbmv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag, - const CBLAS_INDEX N, const CBLAS_INDEX K, const void *A, const CBLAS_INDEX lda, - void *X, const CBLAS_INDEX incX); + const CBLAS_INT N, const CBLAS_INT K, const void *A, const CBLAS_INT lda, + void *X, const CBLAS_INT incX); void cblas_ztpmv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag, - const CBLAS_INDEX N, const void *Ap, void *X, const CBLAS_INDEX incX); + const CBLAS_INT N, const void *Ap, void *X, const CBLAS_INT incX); void cblas_ztrsv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag, - const CBLAS_INDEX N, const void *A, const CBLAS_INDEX lda, void *X, - const CBLAS_INDEX incX); + const CBLAS_INT N, const void *A, const CBLAS_INT lda, void *X, + const CBLAS_INT incX); void cblas_ztbsv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag, - const CBLAS_INDEX N, const CBLAS_INDEX K, const void *A, const CBLAS_INDEX lda, - void *X, const CBLAS_INDEX incX); + const CBLAS_INT N, const CBLAS_INT K, const void *A, const CBLAS_INT lda, + void *X, const CBLAS_INT incX); void cblas_ztpsv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag, - const CBLAS_INDEX N, const void *Ap, void *X, const CBLAS_INDEX incX); + const CBLAS_INT N, const void *Ap, void *X, const CBLAS_INT incX); /* * Routines with S and D prefixes only */ void cblas_ssymv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, - const CBLAS_INDEX N, const float alpha, const float *A, - const CBLAS_INDEX lda, const float *X, const CBLAS_INDEX incX, - const float beta, float *Y, const CBLAS_INDEX incY); + const CBLAS_INT N, const float alpha, const float *A, + const CBLAS_INT lda, const float *X, const CBLAS_INT incX, + const float beta, float *Y, const CBLAS_INT incY); void cblas_ssbmv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, - const CBLAS_INDEX N, const CBLAS_INDEX K, const float alpha, const float *A, - const CBLAS_INDEX lda, const float *X, const CBLAS_INDEX incX, - const float beta, float *Y, const CBLAS_INDEX incY); + const CBLAS_INT N, const CBLAS_INT K, const float alpha, const float *A, + const CBLAS_INT lda, const float *X, const CBLAS_INT incX, + const float beta, float *Y, const CBLAS_INT incY); void cblas_sspmv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, - const CBLAS_INDEX N, const float alpha, const float *Ap, - const float *X, const CBLAS_INDEX incX, - const float beta, float *Y, const CBLAS_INDEX incY); -void cblas_sger(CBLAS_LAYOUT layout, const CBLAS_INDEX M, const CBLAS_INDEX N, - const float alpha, const float *X, const CBLAS_INDEX incX, - const float *Y, const CBLAS_INDEX incY, float *A, const CBLAS_INDEX lda); + const CBLAS_INT N, const float alpha, const float *Ap, + const float *X, const CBLAS_INT incX, + const float beta, float *Y, const CBLAS_INT incY); +void cblas_sger(CBLAS_LAYOUT layout, const CBLAS_INT M, const CBLAS_INT N, + const float alpha, const float *X, const CBLAS_INT incX, + const float *Y, const CBLAS_INT incY, float *A, const CBLAS_INT lda); void cblas_ssyr(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, - const CBLAS_INDEX N, const float alpha, const float *X, - const CBLAS_INDEX incX, float *A, const CBLAS_INDEX lda); + const CBLAS_INT N, const float alpha, const float *X, + const CBLAS_INT incX, float *A, const CBLAS_INT lda); void cblas_sspr(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, - const CBLAS_INDEX N, const float alpha, const float *X, - const CBLAS_INDEX incX, float *Ap); + const CBLAS_INT N, const float alpha, const float *X, + const CBLAS_INT incX, float *Ap); void cblas_ssyr2(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, - const CBLAS_INDEX N, const float alpha, const float *X, - const CBLAS_INDEX incX, const float *Y, const CBLAS_INDEX incY, float *A, - const CBLAS_INDEX lda); + const CBLAS_INT N, const float alpha, const float *X, + const CBLAS_INT incX, const float *Y, const CBLAS_INT incY, float *A, + const CBLAS_INT lda); void cblas_sspr2(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, - const CBLAS_INDEX N, const float alpha, const float *X, - const CBLAS_INDEX incX, const float *Y, const CBLAS_INDEX incY, float *A); + const CBLAS_INT N, const float alpha, const float *X, + const CBLAS_INT incX, const float *Y, const CBLAS_INT incY, float *A); void cblas_dsymv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, - const CBLAS_INDEX N, const double alpha, const double *A, - const CBLAS_INDEX lda, const double *X, const CBLAS_INDEX incX, - const double beta, double *Y, const CBLAS_INDEX incY); + const CBLAS_INT N, const double alpha, const double *A, + const CBLAS_INT lda, const double *X, const CBLAS_INT incX, + const double beta, double *Y, const CBLAS_INT incY); void cblas_dsbmv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, - const CBLAS_INDEX N, const CBLAS_INDEX K, const double alpha, const double *A, - const CBLAS_INDEX lda, const double *X, const CBLAS_INDEX incX, - const double beta, double *Y, const CBLAS_INDEX incY); + const CBLAS_INT N, const CBLAS_INT K, const double alpha, const double *A, + const CBLAS_INT lda, const double *X, const CBLAS_INT incX, + const double beta, double *Y, const CBLAS_INT incY); void cblas_dspmv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, - const CBLAS_INDEX N, const double alpha, const double *Ap, - const double *X, const CBLAS_INDEX incX, - const double beta, double *Y, const CBLAS_INDEX incY); -void cblas_dger(CBLAS_LAYOUT layout, const CBLAS_INDEX M, const CBLAS_INDEX N, - const double alpha, const double *X, const CBLAS_INDEX incX, - const double *Y, const CBLAS_INDEX incY, double *A, const CBLAS_INDEX lda); + const CBLAS_INT N, const double alpha, const double *Ap, + const double *X, const CBLAS_INT incX, + const double beta, double *Y, const CBLAS_INT incY); +void cblas_dger(CBLAS_LAYOUT layout, const CBLAS_INT M, const CBLAS_INT N, + const double alpha, const double *X, const CBLAS_INT incX, + const double *Y, const CBLAS_INT incY, double *A, const CBLAS_INT lda); void cblas_dsyr(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, - const CBLAS_INDEX N, const double alpha, const double *X, - const CBLAS_INDEX incX, double *A, const CBLAS_INDEX lda); + const CBLAS_INT N, const double alpha, const double *X, + const CBLAS_INT incX, double *A, const CBLAS_INT lda); void cblas_dspr(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, - const CBLAS_INDEX N, const double alpha, const double *X, - const CBLAS_INDEX incX, double *Ap); + const CBLAS_INT N, const double alpha, const double *X, + const CBLAS_INT incX, double *Ap); void cblas_dsyr2(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, - const CBLAS_INDEX N, const double alpha, const double *X, - const CBLAS_INDEX incX, const double *Y, const CBLAS_INDEX incY, double *A, - const CBLAS_INDEX lda); + const CBLAS_INT N, const double alpha, const double *X, + const CBLAS_INT incX, const double *Y, const CBLAS_INT incY, double *A, + const CBLAS_INT lda); void cblas_dspr2(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, - const CBLAS_INDEX N, const double alpha, const double *X, - const CBLAS_INDEX incX, const double *Y, const CBLAS_INDEX incY, double *A); + const CBLAS_INT N, const double alpha, const double *X, + const CBLAS_INT incX, const double *Y, const CBLAS_INT incY, double *A); /* * Routines with C and Z prefixes only */ void cblas_chemv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, - const CBLAS_INDEX N, const void *alpha, const void *A, - const CBLAS_INDEX lda, const void *X, const CBLAS_INDEX incX, - const void *beta, void *Y, const CBLAS_INDEX incY); + const CBLAS_INT N, const void *alpha, const void *A, + const CBLAS_INT lda, const void *X, const CBLAS_INT incX, + const void *beta, void *Y, const CBLAS_INT incY); void cblas_chbmv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, - const CBLAS_INDEX N, const CBLAS_INDEX K, const void *alpha, const void *A, - const CBLAS_INDEX lda, const void *X, const CBLAS_INDEX incX, - const void *beta, void *Y, const CBLAS_INDEX incY); + const CBLAS_INT N, const CBLAS_INT K, const void *alpha, const void *A, + const CBLAS_INT lda, const void *X, const CBLAS_INT incX, + const void *beta, void *Y, const CBLAS_INT incY); void cblas_chpmv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, - const CBLAS_INDEX N, const void *alpha, const void *Ap, - const void *X, const CBLAS_INDEX incX, - const void *beta, void *Y, const CBLAS_INDEX incY); -void cblas_cgeru(CBLAS_LAYOUT layout, const CBLAS_INDEX M, const CBLAS_INDEX N, - const void *alpha, const void *X, const CBLAS_INDEX incX, - const void *Y, const CBLAS_INDEX incY, void *A, const CBLAS_INDEX lda); -void cblas_cgerc(CBLAS_LAYOUT layout, const CBLAS_INDEX M, const CBLAS_INDEX N, - const void *alpha, const void *X, const CBLAS_INDEX incX, - const void *Y, const CBLAS_INDEX incY, void *A, const CBLAS_INDEX lda); + const CBLAS_INT N, const void *alpha, const void *Ap, + const void *X, const CBLAS_INT incX, + const void *beta, void *Y, const CBLAS_INT incY); +void cblas_cgeru(CBLAS_LAYOUT layout, const CBLAS_INT M, const CBLAS_INT N, + const void *alpha, const void *X, const CBLAS_INT incX, + const void *Y, const CBLAS_INT incY, void *A, const CBLAS_INT lda); +void cblas_cgerc(CBLAS_LAYOUT layout, const CBLAS_INT M, const CBLAS_INT N, + const void *alpha, const void *X, const CBLAS_INT incX, + const void *Y, const CBLAS_INT incY, void *A, const CBLAS_INT lda); void cblas_cher(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, - const CBLAS_INDEX N, const float alpha, const void *X, const CBLAS_INDEX incX, - void *A, const CBLAS_INDEX lda); + const CBLAS_INT N, const float alpha, const void *X, const CBLAS_INT incX, + void *A, const CBLAS_INT lda); void cblas_chpr(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, - const CBLAS_INDEX N, const float alpha, const void *X, - const CBLAS_INDEX incX, void *A); -void cblas_cher2(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, const CBLAS_INDEX N, - const void *alpha, const void *X, const CBLAS_INDEX incX, - const void *Y, const CBLAS_INDEX incY, void *A, const CBLAS_INDEX lda); -void cblas_chpr2(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, const CBLAS_INDEX N, - const void *alpha, const void *X, const CBLAS_INDEX incX, - const void *Y, const CBLAS_INDEX incY, void *Ap); + const CBLAS_INT N, const float alpha, const void *X, + const CBLAS_INT incX, void *A); +void cblas_cher2(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, const CBLAS_INT N, + const void *alpha, const void *X, const CBLAS_INT incX, + const void *Y, const CBLAS_INT incY, void *A, const CBLAS_INT lda); +void cblas_chpr2(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, const CBLAS_INT N, + const void *alpha, const void *X, const CBLAS_INT incX, + const void *Y, const CBLAS_INT incY, void *Ap); void cblas_zhemv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, - const CBLAS_INDEX N, const void *alpha, const void *A, - const CBLAS_INDEX lda, const void *X, const CBLAS_INDEX incX, - const void *beta, void *Y, const CBLAS_INDEX incY); + const CBLAS_INT N, const void *alpha, const void *A, + const CBLAS_INT lda, const void *X, const CBLAS_INT incX, + const void *beta, void *Y, const CBLAS_INT incY); void cblas_zhbmv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, - const CBLAS_INDEX N, const CBLAS_INDEX K, const void *alpha, const void *A, - const CBLAS_INDEX lda, const void *X, const CBLAS_INDEX incX, - const void *beta, void *Y, const CBLAS_INDEX incY); + const CBLAS_INT N, const CBLAS_INT K, const void *alpha, const void *A, + const CBLAS_INT lda, const void *X, const CBLAS_INT incX, + const void *beta, void *Y, const CBLAS_INT incY); void cblas_zhpmv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, - const CBLAS_INDEX N, const void *alpha, const void *Ap, - const void *X, const CBLAS_INDEX incX, - const void *beta, void *Y, const CBLAS_INDEX incY); -void cblas_zgeru(CBLAS_LAYOUT layout, const CBLAS_INDEX M, const CBLAS_INDEX N, - const void *alpha, const void *X, const CBLAS_INDEX incX, - const void *Y, const CBLAS_INDEX incY, void *A, const CBLAS_INDEX lda); -void cblas_zgerc(CBLAS_LAYOUT layout, const CBLAS_INDEX M, const CBLAS_INDEX N, - const void *alpha, const void *X, const CBLAS_INDEX incX, - const void *Y, const CBLAS_INDEX incY, void *A, const CBLAS_INDEX lda); + const CBLAS_INT N, const void *alpha, const void *Ap, + const void *X, const CBLAS_INT incX, + const void *beta, void *Y, const CBLAS_INT incY); +void cblas_zgeru(CBLAS_LAYOUT layout, const CBLAS_INT M, const CBLAS_INT N, + const void *alpha, const void *X, const CBLAS_INT incX, + const void *Y, const CBLAS_INT incY, void *A, const CBLAS_INT lda); +void cblas_zgerc(CBLAS_LAYOUT layout, const CBLAS_INT M, const CBLAS_INT N, + const void *alpha, const void *X, const CBLAS_INT incX, + const void *Y, const CBLAS_INT incY, void *A, const CBLAS_INT lda); void cblas_zher(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, - const CBLAS_INDEX N, const double alpha, const void *X, const CBLAS_INDEX incX, - void *A, const CBLAS_INDEX lda); + const CBLAS_INT N, const double alpha, const void *X, const CBLAS_INT incX, + void *A, const CBLAS_INT lda); void cblas_zhpr(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, - const CBLAS_INDEX N, const double alpha, const void *X, - const CBLAS_INDEX incX, void *A); -void cblas_zher2(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, const CBLAS_INDEX N, - const void *alpha, const void *X, const CBLAS_INDEX incX, - const void *Y, const CBLAS_INDEX incY, void *A, const CBLAS_INDEX lda); -void cblas_zhpr2(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, const CBLAS_INDEX N, - const void *alpha, const void *X, const CBLAS_INDEX incX, - const void *Y, const CBLAS_INDEX incY, void *Ap); + const CBLAS_INT N, const double alpha, const void *X, + const CBLAS_INT incX, void *A); +void cblas_zher2(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, const CBLAS_INT N, + const void *alpha, const void *X, const CBLAS_INT incX, + const void *Y, const CBLAS_INT incY, void *A, const CBLAS_INT lda); +void cblas_zhpr2(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, const CBLAS_INT N, + const void *alpha, const void *X, const CBLAS_INT incX, + const void *Y, const CBLAS_INT incY, void *Ap); /* * =========================================================================== @@ -427,160 +432,160 @@ void cblas_zhpr2(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, const CBLAS_INDEX N, * Routines with standard 4 prefixes (S, D, C, Z) */ void cblas_sgemm(CBLAS_LAYOUT layout, CBLAS_TRANSPOSE TransA, - CBLAS_TRANSPOSE TransB, const CBLAS_INDEX M, const CBLAS_INDEX N, - const CBLAS_INDEX K, const float alpha, const float *A, - const CBLAS_INDEX lda, const float *B, const CBLAS_INDEX ldb, - const float beta, float *C, const CBLAS_INDEX ldc); + CBLAS_TRANSPOSE TransB, const CBLAS_INT M, const CBLAS_INT N, + const CBLAS_INT K, const float alpha, const float *A, + const CBLAS_INT lda, const float *B, const CBLAS_INT ldb, + const float beta, float *C, const CBLAS_INT ldc); void cblas_ssymm(CBLAS_LAYOUT layout, CBLAS_SIDE Side, - CBLAS_UPLO Uplo, const CBLAS_INDEX M, const CBLAS_INDEX N, - const float alpha, const float *A, const CBLAS_INDEX lda, - const float *B, const CBLAS_INDEX ldb, const float beta, - float *C, const CBLAS_INDEX ldc); + CBLAS_UPLO Uplo, const CBLAS_INT M, const CBLAS_INT N, + const float alpha, const float *A, const CBLAS_INT lda, + const float *B, const CBLAS_INT ldb, const float beta, + float *C, const CBLAS_INT ldc); void cblas_ssyrk(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, - CBLAS_TRANSPOSE Trans, const CBLAS_INDEX N, const CBLAS_INDEX K, - const float alpha, const float *A, const CBLAS_INDEX lda, - const float beta, float *C, const CBLAS_INDEX ldc); + CBLAS_TRANSPOSE Trans, const CBLAS_INT N, const CBLAS_INT K, + const float alpha, const float *A, const CBLAS_INT lda, + const float beta, float *C, const CBLAS_INT ldc); void cblas_ssyr2k(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, - CBLAS_TRANSPOSE Trans, const CBLAS_INDEX N, const CBLAS_INDEX K, - const float alpha, const float *A, const CBLAS_INDEX lda, - const float *B, const CBLAS_INDEX ldb, const float beta, - float *C, const CBLAS_INDEX ldc); + CBLAS_TRANSPOSE Trans, const CBLAS_INT N, const CBLAS_INT K, + const float alpha, const float *A, const CBLAS_INT lda, + const float *B, const CBLAS_INT ldb, const float beta, + float *C, const CBLAS_INT ldc); void cblas_strmm(CBLAS_LAYOUT layout, CBLAS_SIDE Side, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA, - CBLAS_DIAG Diag, const CBLAS_INDEX M, const CBLAS_INDEX N, - const float alpha, const float *A, const CBLAS_INDEX lda, - float *B, const CBLAS_INDEX ldb); + CBLAS_DIAG Diag, const CBLAS_INT M, const CBLAS_INT N, + const float alpha, const float *A, const CBLAS_INT lda, + float *B, const CBLAS_INT ldb); void cblas_strsm(CBLAS_LAYOUT layout, CBLAS_SIDE Side, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA, - CBLAS_DIAG Diag, const CBLAS_INDEX M, const CBLAS_INDEX N, - const float alpha, const float *A, const CBLAS_INDEX lda, - float *B, const CBLAS_INDEX ldb); + CBLAS_DIAG Diag, const CBLAS_INT M, const CBLAS_INT N, + const float alpha, const float *A, const CBLAS_INT lda, + float *B, const CBLAS_INT ldb); void cblas_dgemm(CBLAS_LAYOUT layout, CBLAS_TRANSPOSE TransA, - CBLAS_TRANSPOSE TransB, const CBLAS_INDEX M, const CBLAS_INDEX N, - const CBLAS_INDEX K, const double alpha, const double *A, - const CBLAS_INDEX lda, const double *B, const CBLAS_INDEX ldb, - const double beta, double *C, const CBLAS_INDEX ldc); + CBLAS_TRANSPOSE TransB, const CBLAS_INT M, const CBLAS_INT N, + const CBLAS_INT K, const double alpha, const double *A, + const CBLAS_INT lda, const double *B, const CBLAS_INT ldb, + const double beta, double *C, const CBLAS_INT ldc); void cblas_dsymm(CBLAS_LAYOUT layout, CBLAS_SIDE Side, - CBLAS_UPLO Uplo, const CBLAS_INDEX M, const CBLAS_INDEX N, - const double alpha, const double *A, const CBLAS_INDEX lda, - const double *B, const CBLAS_INDEX ldb, const double beta, - double *C, const CBLAS_INDEX ldc); + CBLAS_UPLO Uplo, const CBLAS_INT M, const CBLAS_INT N, + const double alpha, const double *A, const CBLAS_INT lda, + const double *B, const CBLAS_INT ldb, const double beta, + double *C, const CBLAS_INT ldc); void cblas_dsyrk(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, - CBLAS_TRANSPOSE Trans, const CBLAS_INDEX N, const CBLAS_INDEX K, - const double alpha, const double *A, const CBLAS_INDEX lda, - const double beta, double *C, const CBLAS_INDEX ldc); + CBLAS_TRANSPOSE Trans, const CBLAS_INT N, const CBLAS_INT K, + const double alpha, const double *A, const CBLAS_INT lda, + const double beta, double *C, const CBLAS_INT ldc); void cblas_dsyr2k(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, - CBLAS_TRANSPOSE Trans, const CBLAS_INDEX N, const CBLAS_INDEX K, - const double alpha, const double *A, const CBLAS_INDEX lda, - const double *B, const CBLAS_INDEX ldb, const double beta, - double *C, const CBLAS_INDEX ldc); + CBLAS_TRANSPOSE Trans, const CBLAS_INT N, const CBLAS_INT K, + const double alpha, const double *A, const CBLAS_INT lda, + const double *B, const CBLAS_INT ldb, const double beta, + double *C, const CBLAS_INT ldc); void cblas_dtrmm(CBLAS_LAYOUT layout, CBLAS_SIDE Side, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA, - CBLAS_DIAG Diag, const CBLAS_INDEX M, const CBLAS_INDEX N, - const double alpha, const double *A, const CBLAS_INDEX lda, - double *B, const CBLAS_INDEX ldb); + CBLAS_DIAG Diag, const CBLAS_INT M, const CBLAS_INT N, + const double alpha, const double *A, const CBLAS_INT lda, + double *B, const CBLAS_INT ldb); void cblas_dtrsm(CBLAS_LAYOUT layout, CBLAS_SIDE Side, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA, - CBLAS_DIAG Diag, const CBLAS_INDEX M, const CBLAS_INDEX N, - const double alpha, const double *A, const CBLAS_INDEX lda, - double *B, const CBLAS_INDEX ldb); + CBLAS_DIAG Diag, const CBLAS_INT M, const CBLAS_INT N, + const double alpha, const double *A, const CBLAS_INT lda, + double *B, const CBLAS_INT ldb); void cblas_cgemm(CBLAS_LAYOUT layout, CBLAS_TRANSPOSE TransA, - CBLAS_TRANSPOSE TransB, const CBLAS_INDEX M, const CBLAS_INDEX N, - const CBLAS_INDEX K, const void *alpha, const void *A, - const CBLAS_INDEX lda, const void *B, const CBLAS_INDEX ldb, - const void *beta, void *C, const CBLAS_INDEX ldc); + CBLAS_TRANSPOSE TransB, const CBLAS_INT M, const CBLAS_INT N, + const CBLAS_INT K, const void *alpha, const void *A, + const CBLAS_INT lda, const void *B, const CBLAS_INT ldb, + const void *beta, void *C, const CBLAS_INT ldc); void cblas_csymm(CBLAS_LAYOUT layout, CBLAS_SIDE Side, - CBLAS_UPLO Uplo, const CBLAS_INDEX M, const CBLAS_INDEX N, - const void *alpha, const void *A, const CBLAS_INDEX lda, - const void *B, const CBLAS_INDEX ldb, const void *beta, - void *C, const CBLAS_INDEX ldc); + CBLAS_UPLO Uplo, const CBLAS_INT M, const CBLAS_INT N, + const void *alpha, const void *A, const CBLAS_INT lda, + const void *B, const CBLAS_INT ldb, const void *beta, + void *C, const CBLAS_INT ldc); void cblas_csyrk(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, - CBLAS_TRANSPOSE Trans, const CBLAS_INDEX N, const CBLAS_INDEX K, - const void *alpha, const void *A, const CBLAS_INDEX lda, - const void *beta, void *C, const CBLAS_INDEX ldc); + CBLAS_TRANSPOSE Trans, const CBLAS_INT N, const CBLAS_INT K, + const void *alpha, const void *A, const CBLAS_INT lda, + const void *beta, void *C, const CBLAS_INT ldc); void cblas_csyr2k(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, - CBLAS_TRANSPOSE Trans, const CBLAS_INDEX N, const CBLAS_INDEX K, - const void *alpha, const void *A, const CBLAS_INDEX lda, - const void *B, const CBLAS_INDEX ldb, const void *beta, - void *C, const CBLAS_INDEX ldc); + CBLAS_TRANSPOSE Trans, const CBLAS_INT N, const CBLAS_INT K, + const void *alpha, const void *A, const CBLAS_INT lda, + const void *B, const CBLAS_INT ldb, const void *beta, + void *C, const CBLAS_INT ldc); void cblas_ctrmm(CBLAS_LAYOUT layout, CBLAS_SIDE Side, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA, - CBLAS_DIAG Diag, const CBLAS_INDEX M, const CBLAS_INDEX N, - const void *alpha, const void *A, const CBLAS_INDEX lda, - void *B, const CBLAS_INDEX ldb); + CBLAS_DIAG Diag, const CBLAS_INT M, const CBLAS_INT N, + const void *alpha, const void *A, const CBLAS_INT lda, + void *B, const CBLAS_INT ldb); void cblas_ctrsm(CBLAS_LAYOUT layout, CBLAS_SIDE Side, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA, - CBLAS_DIAG Diag, const CBLAS_INDEX M, const CBLAS_INDEX N, - const void *alpha, const void *A, const CBLAS_INDEX lda, - void *B, const CBLAS_INDEX ldb); + CBLAS_DIAG Diag, const CBLAS_INT M, const CBLAS_INT N, + const void *alpha, const void *A, const CBLAS_INT lda, + void *B, const CBLAS_INT ldb); void cblas_zgemm(CBLAS_LAYOUT layout, CBLAS_TRANSPOSE TransA, - CBLAS_TRANSPOSE TransB, const CBLAS_INDEX M, const CBLAS_INDEX N, - const CBLAS_INDEX K, const void *alpha, const void *A, - const CBLAS_INDEX lda, const void *B, const CBLAS_INDEX ldb, - const void *beta, void *C, const CBLAS_INDEX ldc); + CBLAS_TRANSPOSE TransB, const CBLAS_INT M, const CBLAS_INT N, + const CBLAS_INT K, const void *alpha, const void *A, + const CBLAS_INT lda, const void *B, const CBLAS_INT ldb, + const void *beta, void *C, const CBLAS_INT ldc); void cblas_zsymm(CBLAS_LAYOUT layout, CBLAS_SIDE Side, - CBLAS_UPLO Uplo, const CBLAS_INDEX M, const CBLAS_INDEX N, - const void *alpha, const void *A, const CBLAS_INDEX lda, - const void *B, const CBLAS_INDEX ldb, const void *beta, - void *C, const CBLAS_INDEX ldc); + CBLAS_UPLO Uplo, const CBLAS_INT M, const CBLAS_INT N, + const void *alpha, const void *A, const CBLAS_INT lda, + const void *B, const CBLAS_INT ldb, const void *beta, + void *C, const CBLAS_INT ldc); void cblas_zsyrk(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, - CBLAS_TRANSPOSE Trans, const CBLAS_INDEX N, const CBLAS_INDEX K, - const void *alpha, const void *A, const CBLAS_INDEX lda, - const void *beta, void *C, const CBLAS_INDEX ldc); + CBLAS_TRANSPOSE Trans, const CBLAS_INT N, const CBLAS_INT K, + const void *alpha, const void *A, const CBLAS_INT lda, + const void *beta, void *C, const CBLAS_INT ldc); void cblas_zsyr2k(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, - CBLAS_TRANSPOSE Trans, const CBLAS_INDEX N, const CBLAS_INDEX K, - const void *alpha, const void *A, const CBLAS_INDEX lda, - const void *B, const CBLAS_INDEX ldb, const void *beta, - void *C, const CBLAS_INDEX ldc); + CBLAS_TRANSPOSE Trans, const CBLAS_INT N, const CBLAS_INT K, + const void *alpha, const void *A, const CBLAS_INT lda, + const void *B, const CBLAS_INT ldb, const void *beta, + void *C, const CBLAS_INT ldc); void cblas_ztrmm(CBLAS_LAYOUT layout, CBLAS_SIDE Side, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA, - CBLAS_DIAG Diag, const CBLAS_INDEX M, const CBLAS_INDEX N, - const void *alpha, const void *A, const CBLAS_INDEX lda, - void *B, const CBLAS_INDEX ldb); + CBLAS_DIAG Diag, const CBLAS_INT M, const CBLAS_INT N, + const void *alpha, const void *A, const CBLAS_INT lda, + void *B, const CBLAS_INT ldb); void cblas_ztrsm(CBLAS_LAYOUT layout, CBLAS_SIDE Side, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA, - CBLAS_DIAG Diag, const CBLAS_INDEX M, const CBLAS_INDEX N, - const void *alpha, const void *A, const CBLAS_INDEX lda, - void *B, const CBLAS_INDEX ldb); + CBLAS_DIAG Diag, const CBLAS_INT M, const CBLAS_INT N, + const void *alpha, const void *A, const CBLAS_INT lda, + void *B, const CBLAS_INT ldb); /* * Routines with prefixes C and Z only */ void cblas_chemm(CBLAS_LAYOUT layout, CBLAS_SIDE Side, - CBLAS_UPLO Uplo, const CBLAS_INDEX M, const CBLAS_INDEX N, - const void *alpha, const void *A, const CBLAS_INDEX lda, - const void *B, const CBLAS_INDEX ldb, const void *beta, - void *C, const CBLAS_INDEX ldc); + CBLAS_UPLO Uplo, const CBLAS_INT M, const CBLAS_INT N, + const void *alpha, const void *A, const CBLAS_INT lda, + const void *B, const CBLAS_INT ldb, const void *beta, + void *C, const CBLAS_INT ldc); void cblas_cherk(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, - CBLAS_TRANSPOSE Trans, const CBLAS_INDEX N, const CBLAS_INDEX K, - const float alpha, const void *A, const CBLAS_INDEX lda, - const float beta, void *C, const CBLAS_INDEX ldc); + CBLAS_TRANSPOSE Trans, const CBLAS_INT N, const CBLAS_INT K, + const float alpha, const void *A, const CBLAS_INT lda, + const float beta, void *C, const CBLAS_INT ldc); void cblas_cher2k(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, - CBLAS_TRANSPOSE Trans, const CBLAS_INDEX N, const CBLAS_INDEX K, - const void *alpha, const void *A, const CBLAS_INDEX lda, - const void *B, const CBLAS_INDEX ldb, const float beta, - void *C, const CBLAS_INDEX ldc); + CBLAS_TRANSPOSE Trans, const CBLAS_INT N, const CBLAS_INT K, + const void *alpha, const void *A, const CBLAS_INT lda, + const void *B, const CBLAS_INT ldb, const float beta, + void *C, const CBLAS_INT ldc); void cblas_zhemm(CBLAS_LAYOUT layout, CBLAS_SIDE Side, - CBLAS_UPLO Uplo, const CBLAS_INDEX M, const CBLAS_INDEX N, - const void *alpha, const void *A, const CBLAS_INDEX lda, - const void *B, const CBLAS_INDEX ldb, const void *beta, - void *C, const CBLAS_INDEX ldc); + CBLAS_UPLO Uplo, const CBLAS_INT M, const CBLAS_INT N, + const void *alpha, const void *A, const CBLAS_INT lda, + const void *B, const CBLAS_INT ldb, const void *beta, + void *C, const CBLAS_INT ldc); void cblas_zherk(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, - CBLAS_TRANSPOSE Trans, const CBLAS_INDEX N, const CBLAS_INDEX K, - const double alpha, const void *A, const CBLAS_INDEX lda, - const double beta, void *C, const CBLAS_INDEX ldc); + CBLAS_TRANSPOSE Trans, const CBLAS_INT N, const CBLAS_INT K, + const double alpha, const void *A, const CBLAS_INT lda, + const double beta, void *C, const CBLAS_INT ldc); void cblas_zher2k(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, - CBLAS_TRANSPOSE Trans, const CBLAS_INDEX N, const CBLAS_INDEX K, - const void *alpha, const void *A, const CBLAS_INDEX lda, - const void *B, const CBLAS_INDEX ldb, const double beta, - void *C, const CBLAS_INDEX ldc); + CBLAS_TRANSPOSE Trans, const CBLAS_INT N, const CBLAS_INT K, + const void *alpha, const void *A, const CBLAS_INT lda, + const void *B, const CBLAS_INT ldb, const double beta, + void *C, const CBLAS_INT ldc); -void cblas_xerbla(CBLAS_INDEX p, const char *rout, const char *form, ...); +void cblas_xerbla(CBLAS_INT p, const char *rout, const char *form, ...); #ifdef __cplusplus } diff --git a/CBLAS/src/cblas_caxpy.c b/CBLAS/src/cblas_caxpy.c index 39ea3bb59d..d4288f7423 100644 --- a/CBLAS/src/cblas_caxpy.c +++ b/CBLAS/src/cblas_caxpy.c @@ -8,8 +8,8 @@ */ #include "cblas.h" #include "cblas_f77.h" -void cblas_caxpy( const CBLAS_INDEX N, const void *alpha, const void *X, - const CBLAS_INDEX incX, void *Y, const CBLAS_INDEX incY) +void cblas_caxpy( const CBLAS_INT N, const void *alpha, const void *X, + const CBLAS_INT incX, void *Y, const CBLAS_INT incY) { #ifdef F77_INT F77_INT F77_N=N, F77_incX=incX, F77_incY=incY; diff --git a/CBLAS/src/cblas_ccopy.c b/CBLAS/src/cblas_ccopy.c index 91fcbbb5ac..cae561ae3d 100644 --- a/CBLAS/src/cblas_ccopy.c +++ b/CBLAS/src/cblas_ccopy.c @@ -8,8 +8,8 @@ */ #include "cblas.h" #include "cblas_f77.h" -void cblas_ccopy( const CBLAS_INDEX N, const void *X, - const CBLAS_INDEX incX, void *Y, const CBLAS_INDEX incY) +void cblas_ccopy( const CBLAS_INT N, const void *X, + const CBLAS_INT incX, void *Y, const CBLAS_INT incY) { #ifdef F77_INT F77_INT F77_N=N, F77_incX=incX, F77_incY=incY; diff --git a/CBLAS/src/cblas_cdotc_sub.c b/CBLAS/src/cblas_cdotc_sub.c index 44efb71f88..81520ebd18 100644 --- a/CBLAS/src/cblas_cdotc_sub.c +++ b/CBLAS/src/cblas_cdotc_sub.c @@ -9,8 +9,8 @@ */ #include "cblas.h" #include "cblas_f77.h" -void cblas_cdotc_sub( const CBLAS_INDEX N, const void *X, const CBLAS_INDEX incX, - const void *Y, const CBLAS_INDEX incY, void *dotc) +void cblas_cdotc_sub( const CBLAS_INT N, const void *X, const CBLAS_INT incX, + const void *Y, const CBLAS_INT incY, void *dotc) { #ifdef F77_INT F77_INT F77_N=N, F77_incX=incX, F77_incY=incY; diff --git a/CBLAS/src/cblas_cdotu_sub.c b/CBLAS/src/cblas_cdotu_sub.c index efbbebf49d..0f7ded90b9 100644 --- a/CBLAS/src/cblas_cdotu_sub.c +++ b/CBLAS/src/cblas_cdotu_sub.c @@ -9,8 +9,8 @@ */ #include "cblas.h" #include "cblas_f77.h" -void cblas_cdotu_sub( const CBLAS_INDEX N, const void *X, const CBLAS_INDEX incX, - const void *Y, const CBLAS_INDEX incY, void *dotu) +void cblas_cdotu_sub( const CBLAS_INT N, const void *X, const CBLAS_INT incX, + const void *Y, const CBLAS_INT incY, void *dotu) { #ifdef F77_INT F77_INT F77_N=N, F77_incX=incX, F77_incY=incY; diff --git a/CBLAS/src/cblas_cgbmv.c b/CBLAS/src/cblas_cgbmv.c index 33a5edb42b..c2d9b212f7 100644 --- a/CBLAS/src/cblas_cgbmv.c +++ b/CBLAS/src/cblas_cgbmv.c @@ -10,11 +10,11 @@ #include "cblas.h" #include "cblas_f77.h" void cblas_cgbmv(const CBLAS_LAYOUT layout, - const CBLAS_TRANSPOSE TransA, const CBLAS_INDEX M, const CBLAS_INDEX N, - const CBLAS_INDEX KL, const CBLAS_INDEX KU, - const void *alpha, const void *A, const CBLAS_INDEX lda, - const void *X, const CBLAS_INDEX incX, const void *beta, - void *Y, const CBLAS_INDEX incY) + const CBLAS_TRANSPOSE TransA, const CBLAS_INT M, const CBLAS_INT N, + const CBLAS_INT KL, const CBLAS_INT KU, + const void *alpha, const void *A, const CBLAS_INT lda, + const void *X, const CBLAS_INT incX, const void *beta, + void *Y, const CBLAS_INT incY) { char TA; #ifdef F77_CHAR @@ -34,10 +34,10 @@ void cblas_cgbmv(const CBLAS_LAYOUT layout, #define F77_incX incx #define F77_incY incY #endif - CBLAS_INDEX n=0, i=0, incx=incX; + CBLAS_INT n=0, i=0, incx=incX; const float *xx= (float *)X, *alp= (float *)alpha, *bet = (float *)beta; float ALPHA[2],BETA[2]; - CBLAS_INDEX tincY, tincx; + CBLAS_INT tincY, tincx; float *x=(float *)X, *y=(float *)Y, *st=0, *tx=0; extern int CBLAS_CallFromC; extern int RowMajorStrg; diff --git a/CBLAS/src/cblas_cgemm.c b/CBLAS/src/cblas_cgemm.c index d0c748c464..0ad99267d2 100644 --- a/CBLAS/src/cblas_cgemm.c +++ b/CBLAS/src/cblas_cgemm.c @@ -10,10 +10,10 @@ #include "cblas.h" #include "cblas_f77.h" void cblas_cgemm(const CBLAS_LAYOUT layout, const CBLAS_TRANSPOSE TransA, - const CBLAS_TRANSPOSE TransB, const CBLAS_INDEX M, const CBLAS_INDEX N, - const CBLAS_INDEX K, const void *alpha, const void *A, - const CBLAS_INDEX lda, const void *B, const CBLAS_INDEX ldb, - const void *beta, void *C, const CBLAS_INDEX ldc) + const CBLAS_TRANSPOSE TransB, const CBLAS_INT M, const CBLAS_INT N, + const CBLAS_INT K, const void *alpha, const void *A, + const CBLAS_INT lda, const void *B, const CBLAS_INT ldb, + const void *beta, void *C, const CBLAS_INT ldc) { char TA, TB; #ifdef F77_CHAR diff --git a/CBLAS/src/cblas_cgemv.c b/CBLAS/src/cblas_cgemv.c index 812101f756..1147242707 100644 --- a/CBLAS/src/cblas_cgemv.c +++ b/CBLAS/src/cblas_cgemv.c @@ -10,10 +10,10 @@ #include "cblas.h" #include "cblas_f77.h" void cblas_cgemv(const CBLAS_LAYOUT layout, - const CBLAS_TRANSPOSE TransA, const CBLAS_INDEX M, const CBLAS_INDEX N, - const void *alpha, const void *A, const CBLAS_INDEX lda, - const void *X, const CBLAS_INDEX incX, const void *beta, - void *Y, const CBLAS_INDEX incY) + const CBLAS_TRANSPOSE TransA, const CBLAS_INT M, const CBLAS_INT N, + const void *alpha, const void *A, const CBLAS_INT lda, + const void *X, const CBLAS_INT incX, const void *beta, + void *Y, const CBLAS_INT incY) { char TA; #ifdef F77_CHAR @@ -31,10 +31,10 @@ void cblas_cgemv(const CBLAS_LAYOUT layout, #define F77_incY incY #endif - CBLAS_INDEX n=0, i=0, incx=incX; + CBLAS_INT n=0, i=0, incx=incX; const float *xx= (const float *)X; float ALPHA[2],BETA[2]; - CBLAS_INDEX tincY, tincx; + CBLAS_INT tincY, tincx; float *x=(float *)X, *y=(float *)Y, *st=0, *tx=0; const float *stx = x; extern int CBLAS_CallFromC; diff --git a/CBLAS/src/cblas_cgerc.c b/CBLAS/src/cblas_cgerc.c index 6d3cfab5a2..a558417e64 100644 --- a/CBLAS/src/cblas_cgerc.c +++ b/CBLAS/src/cblas_cgerc.c @@ -9,9 +9,9 @@ #include #include "cblas.h" #include "cblas_f77.h" -void cblas_cgerc(const CBLAS_LAYOUT layout, const CBLAS_INDEX M, const CBLAS_INDEX N, - const void *alpha, const void *X, const CBLAS_INDEX incX, - const void *Y, const CBLAS_INDEX incY, void *A, const CBLAS_INDEX lda) +void cblas_cgerc(const CBLAS_LAYOUT layout, const CBLAS_INT M, const CBLAS_INT N, + const void *alpha, const void *X, const CBLAS_INT incX, + const void *Y, const CBLAS_INT incY, void *A, const CBLAS_INT lda) { #ifdef F77_INT F77_INT F77_M=M, F77_N=N, F77_lda=lda, F77_incX=incX, F77_incY=incY; @@ -23,7 +23,7 @@ void cblas_cgerc(const CBLAS_LAYOUT layout, const CBLAS_INDEX M, const CBLAS_IND #define F77_lda lda #endif - CBLAS_INDEX n, i, tincy, incy=incY; + CBLAS_INT n, i, tincy, incy=incY; float *y=(float *)Y, *yy=(float *)Y, *ty, *st; extern int CBLAS_CallFromC; diff --git a/CBLAS/src/cblas_cgeru.c b/CBLAS/src/cblas_cgeru.c index 88a2ee95cd..6cca83e6fc 100644 --- a/CBLAS/src/cblas_cgeru.c +++ b/CBLAS/src/cblas_cgeru.c @@ -7,9 +7,9 @@ */ #include "cblas.h" #include "cblas_f77.h" -void cblas_cgeru(const CBLAS_LAYOUT layout, const CBLAS_INDEX M, const CBLAS_INDEX N, - const void *alpha, const void *X, const CBLAS_INDEX incX, - const void *Y, const CBLAS_INDEX incY, void *A, const CBLAS_INDEX lda) +void cblas_cgeru(const CBLAS_LAYOUT layout, const CBLAS_INT M, const CBLAS_INT N, + const void *alpha, const void *X, const CBLAS_INT incX, + const void *Y, const CBLAS_INT incY, void *A, const CBLAS_INT lda) { #ifdef F77_INT F77_INT F77_M=M, F77_N=N, F77_lda=lda, F77_incX=incX, F77_incY=incY; diff --git a/CBLAS/src/cblas_chbmv.c b/CBLAS/src/cblas_chbmv.c index 790197f775..13e3920ee7 100644 --- a/CBLAS/src/cblas_chbmv.c +++ b/CBLAS/src/cblas_chbmv.c @@ -10,10 +10,10 @@ #include #include void cblas_chbmv(const CBLAS_LAYOUT layout, - const CBLAS_UPLO Uplo,const CBLAS_INDEX N,const CBLAS_INDEX K, - const void *alpha, const void *A, const CBLAS_INDEX lda, - const void *X, const CBLAS_INDEX incX, const void *beta, - void *Y, const CBLAS_INDEX incY) + const CBLAS_UPLO Uplo,const CBLAS_INT N,const CBLAS_INT K, + const void *alpha, const void *A, const CBLAS_INT lda, + const void *X, const CBLAS_INT incX, const void *beta, + void *Y, const CBLAS_INT incY) { char UL; #ifdef F77_CHAR @@ -30,10 +30,10 @@ void cblas_chbmv(const CBLAS_LAYOUT layout, #define F77_incX incx #define F77_incY incY #endif - CBLAS_INDEX n, i=0, incx=incX; + CBLAS_INT n, i=0, incx=incX; const float *xx= (float *)X, *alp= (float *)alpha, *bet = (float *)beta; float ALPHA[2],BETA[2]; - CBLAS_INDEX tincY, tincx; + CBLAS_INT tincY, tincx; float *x=(float *)X, *y=(float *)Y, *st=0, *tx; extern int CBLAS_CallFromC; extern int RowMajorStrg; diff --git a/CBLAS/src/cblas_chemm.c b/CBLAS/src/cblas_chemm.c index 794eae335d..9ccb18a3af 100644 --- a/CBLAS/src/cblas_chemm.c +++ b/CBLAS/src/cblas_chemm.c @@ -10,10 +10,10 @@ #include "cblas.h" #include "cblas_f77.h" void cblas_chemm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, - const CBLAS_UPLO Uplo, const CBLAS_INDEX M, const CBLAS_INDEX N, - const void *alpha, const void *A, const CBLAS_INDEX lda, - const void *B, const CBLAS_INDEX ldb, const void *beta, - void *C, const CBLAS_INDEX ldc) + const CBLAS_UPLO Uplo, const CBLAS_INT M, const CBLAS_INT N, + const void *alpha, const void *A, const CBLAS_INT lda, + const void *B, const CBLAS_INT ldb, const void *beta, + void *C, const CBLAS_INT ldc) { char SD, UL; #ifdef F77_CHAR diff --git a/CBLAS/src/cblas_chemv.c b/CBLAS/src/cblas_chemv.c index d0ee61e488..8c4eadf101 100644 --- a/CBLAS/src/cblas_chemv.c +++ b/CBLAS/src/cblas_chemv.c @@ -10,10 +10,10 @@ #include "cblas.h" #include "cblas_f77.h" void cblas_chemv(const CBLAS_LAYOUT layout, - const CBLAS_UPLO Uplo, const CBLAS_INDEX N, - const void *alpha, const void *A, const CBLAS_INDEX lda, - const void *X, const CBLAS_INDEX incX, const void *beta, - void *Y, const CBLAS_INDEX incY) + const CBLAS_UPLO Uplo, const CBLAS_INT N, + const void *alpha, const void *A, const CBLAS_INT lda, + const void *X, const CBLAS_INT incX, const void *beta, + void *Y, const CBLAS_INT incY) { char UL; #ifdef F77_CHAR @@ -29,10 +29,10 @@ void cblas_chemv(const CBLAS_LAYOUT layout, #define F77_incX incx #define F77_incY incY #endif - CBLAS_INDEX n=0, i=0, incx=incX; + CBLAS_INT n=0, i=0, incx=incX; const float *xx= (float *)X, *alp= (float *)alpha, *bet = (float *)beta; float ALPHA[2],BETA[2]; - CBLAS_INDEX tincY, tincx; + CBLAS_INT tincY, tincx; float *x=(float *)X, *y=(float *)Y, *st=0, *tx; extern int CBLAS_CallFromC; extern int RowMajorStrg; diff --git a/CBLAS/src/cblas_cher.c b/CBLAS/src/cblas_cher.c index ec4a75f433..d1cb2068b7 100644 --- a/CBLAS/src/cblas_cher.c +++ b/CBLAS/src/cblas_cher.c @@ -10,8 +10,8 @@ #include "cblas.h" #include "cblas_f77.h" void cblas_cher(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, - const CBLAS_INDEX N, const float alpha, const void *X, const CBLAS_INDEX incX - ,void *A, const CBLAS_INDEX lda) + const CBLAS_INT N, const float alpha, const void *X, const CBLAS_INT incX + ,void *A, const CBLAS_INT lda) { char UL; #ifdef F77_CHAR @@ -27,7 +27,7 @@ void cblas_cher(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, #define F77_lda lda #define F77_incX incx #endif - CBLAS_INDEX n, i, tincx, incx=incX; + CBLAS_INT n, i, tincx, incx=incX; float *x=(float *)X, *xx=(float *)X, *tx, *st; extern int CBLAS_CallFromC; diff --git a/CBLAS/src/cblas_cher2.c b/CBLAS/src/cblas_cher2.c index aed02fd623..ff03216d74 100644 --- a/CBLAS/src/cblas_cher2.c +++ b/CBLAS/src/cblas_cher2.c @@ -10,8 +10,8 @@ #include "cblas.h" #include "cblas_f77.h" void cblas_cher2(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, - const CBLAS_INDEX N, const void *alpha, const void *X, const CBLAS_INDEX incX, - const void *Y, const CBLAS_INDEX incY, void *A, const CBLAS_INDEX lda) + const CBLAS_INT N, const void *alpha, const void *X, const CBLAS_INT incX, + const void *Y, const CBLAS_INT incY, void *A, const CBLAS_INT lda) { char UL; #ifdef F77_CHAR @@ -28,7 +28,7 @@ void cblas_cher2(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, #define F77_incX incx #define F77_incY incy #endif - CBLAS_INDEX n, i, j, tincx, tincy, incx=incX, incy=incY; + CBLAS_INT n, i, j, tincx, tincy, incx=incX, incy=incY; float *x=(float *)X, *xx=(float *)X, *y=(float *)Y, *yy=(float *)Y, *tx, *ty, *stx, *sty; diff --git a/CBLAS/src/cblas_cher2k.c b/CBLAS/src/cblas_cher2k.c index f53b117dc3..a1452a9efe 100644 --- a/CBLAS/src/cblas_cher2k.c +++ b/CBLAS/src/cblas_cher2k.c @@ -10,10 +10,10 @@ #include "cblas.h" #include "cblas_f77.h" void cblas_cher2k(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, - const CBLAS_TRANSPOSE Trans, const CBLAS_INDEX N, const CBLAS_INDEX K, - const void *alpha, const void *A, const CBLAS_INDEX lda, - const void *B, const CBLAS_INDEX ldb, const float beta, - void *C, const CBLAS_INDEX ldc) + const CBLAS_TRANSPOSE Trans, const CBLAS_INT N, const CBLAS_INT K, + const void *alpha, const void *A, const CBLAS_INT lda, + const void *B, const CBLAS_INT ldb, const float beta, + void *C, const CBLAS_INT ldc) { char UL, TR; #ifdef F77_CHAR diff --git a/CBLAS/src/cblas_cherk.c b/CBLAS/src/cblas_cherk.c index 73df02537f..0395408dc8 100644 --- a/CBLAS/src/cblas_cherk.c +++ b/CBLAS/src/cblas_cherk.c @@ -10,9 +10,9 @@ #include "cblas.h" #include "cblas_f77.h" void cblas_cherk(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, - const CBLAS_TRANSPOSE Trans, const CBLAS_INDEX N, const CBLAS_INDEX K, - const float alpha, const void *A, const CBLAS_INDEX lda, - const float beta, void *C, const CBLAS_INDEX ldc) + const CBLAS_TRANSPOSE Trans, const CBLAS_INT N, const CBLAS_INT K, + const float alpha, const void *A, const CBLAS_INT lda, + const float beta, void *C, const CBLAS_INT ldc) { char UL, TR; #ifdef F77_CHAR diff --git a/CBLAS/src/cblas_chpmv.c b/CBLAS/src/cblas_chpmv.c index c2a886e499..f30dafc1bf 100644 --- a/CBLAS/src/cblas_chpmv.c +++ b/CBLAS/src/cblas_chpmv.c @@ -10,10 +10,10 @@ #include "cblas.h" #include "cblas_f77.h" void cblas_chpmv(const CBLAS_LAYOUT layout, - const CBLAS_UPLO Uplo,const CBLAS_INDEX N, + const CBLAS_UPLO Uplo,const CBLAS_INT N, const void *alpha, const void *AP, - const void *X, const CBLAS_INDEX incX, const void *beta, - void *Y, const CBLAS_INDEX incY) + const void *X, const CBLAS_INT incX, const void *beta, + void *Y, const CBLAS_INT incY) { char UL; #ifdef F77_CHAR @@ -28,10 +28,10 @@ void cblas_chpmv(const CBLAS_LAYOUT layout, #define F77_incX incx #define F77_incY incY #endif - CBLAS_INDEX n, i=0, incx=incX; + CBLAS_INT n, i=0, incx=incX; const float *xx= (float *)X, *alp= (float *)alpha, *bet = (float *)beta; float ALPHA[2],BETA[2]; - CBLAS_INDEX tincY, tincx; + CBLAS_INT tincY, tincx; float *x=(float *)X, *y=(float *)Y, *st=0, *tx; extern int CBLAS_CallFromC; extern int RowMajorStrg; diff --git a/CBLAS/src/cblas_chpr.c b/CBLAS/src/cblas_chpr.c index 25f895fe3f..f2a410270a 100644 --- a/CBLAS/src/cblas_chpr.c +++ b/CBLAS/src/cblas_chpr.c @@ -10,8 +10,8 @@ #include "cblas.h" #include "cblas_f77.h" void cblas_chpr(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, - const CBLAS_INDEX N, const float alpha, const void *X, - const CBLAS_INDEX incX, void *A) + const CBLAS_INT N, const float alpha, const void *X, + const CBLAS_INT incX, void *A) { char UL; #ifdef F77_CHAR @@ -26,7 +26,7 @@ void cblas_chpr(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, #define F77_N N #define F77_incX incx #endif - CBLAS_INDEX n, i, tincx, incx=incX; + CBLAS_INT n, i, tincx, incx=incX; float *x=(float *)X, *xx=(float *)X, *tx, *st; extern int CBLAS_CallFromC; diff --git a/CBLAS/src/cblas_chpr2.c b/CBLAS/src/cblas_chpr2.c index 3ef9ecbf2d..4ed87677f4 100644 --- a/CBLAS/src/cblas_chpr2.c +++ b/CBLAS/src/cblas_chpr2.c @@ -10,8 +10,8 @@ #include "cblas.h" #include "cblas_f77.h" void cblas_chpr2(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, - const CBLAS_INDEX N,const void *alpha, const void *X, - const CBLAS_INDEX incX,const void *Y, const CBLAS_INDEX incY, void *Ap) + const CBLAS_INT N,const void *alpha, const void *X, + const CBLAS_INT incX,const void *Y, const CBLAS_INT incY, void *Ap) { char UL; @@ -28,7 +28,7 @@ void cblas_chpr2(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, #define F77_incX incx #define F77_incY incy #endif - CBLAS_INDEX n, i, j, tincx, tincy, incx=incX, incy=incY; + CBLAS_INT n, i, j, tincx, tincy, incx=incX, incy=incY; float *x=(float *)X, *xx=(float *)X, *y=(float *)Y, *yy=(float *)Y, *tx, *ty, *stx, *sty; diff --git a/CBLAS/src/cblas_cscal.c b/CBLAS/src/cblas_cscal.c index 2c63305152..63574ac97b 100644 --- a/CBLAS/src/cblas_cscal.c +++ b/CBLAS/src/cblas_cscal.c @@ -8,8 +8,8 @@ */ #include "cblas.h" #include "cblas_f77.h" -void cblas_cscal( const CBLAS_INDEX N, const void *alpha, void *X, - const CBLAS_INDEX incX) +void cblas_cscal( const CBLAS_INT N, const void *alpha, void *X, + const CBLAS_INT incX) { #ifdef F77_INT F77_INT F77_N=N, F77_incX=incX; diff --git a/CBLAS/src/cblas_csscal.c b/CBLAS/src/cblas_csscal.c index 18ad6b6378..19ba383fea 100644 --- a/CBLAS/src/cblas_csscal.c +++ b/CBLAS/src/cblas_csscal.c @@ -8,8 +8,8 @@ */ #include "cblas.h" #include "cblas_f77.h" -void cblas_csscal( const CBLAS_INDEX N, const float alpha, void *X, - const CBLAS_INDEX incX) +void cblas_csscal( const CBLAS_INT N, const float alpha, void *X, + const CBLAS_INT incX) { #ifdef F77_INT F77_INT F77_N=N, F77_incX=incX; diff --git a/CBLAS/src/cblas_cswap.c b/CBLAS/src/cblas_cswap.c index 1ade9e3d78..7f45e54b53 100644 --- a/CBLAS/src/cblas_cswap.c +++ b/CBLAS/src/cblas_cswap.c @@ -8,8 +8,8 @@ */ #include "cblas.h" #include "cblas_f77.h" -void cblas_cswap( const CBLAS_INDEX N, void *X, const CBLAS_INDEX incX, void *Y, - const CBLAS_INDEX incY) +void cblas_cswap( const CBLAS_INT N, void *X, const CBLAS_INT incX, void *Y, + const CBLAS_INT incY) { #ifdef F77_INT F77_INT F77_N=N, F77_incX=incX, F77_incY=incY; diff --git a/CBLAS/src/cblas_csymm.c b/CBLAS/src/cblas_csymm.c index 1582b3d876..c277e38f4c 100644 --- a/CBLAS/src/cblas_csymm.c +++ b/CBLAS/src/cblas_csymm.c @@ -10,10 +10,10 @@ #include "cblas.h" #include "cblas_f77.h" void cblas_csymm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, - const CBLAS_UPLO Uplo, const CBLAS_INDEX M, const CBLAS_INDEX N, - const void *alpha, const void *A, const CBLAS_INDEX lda, - const void *B, const CBLAS_INDEX ldb, const void *beta, - void *C, const CBLAS_INDEX ldc) + const CBLAS_UPLO Uplo, const CBLAS_INT M, const CBLAS_INT N, + const void *alpha, const void *A, const CBLAS_INT lda, + const void *B, const CBLAS_INT ldb, const void *beta, + void *C, const CBLAS_INT ldc) { char SD, UL; #ifdef F77_CHAR diff --git a/CBLAS/src/cblas_csyr2k.c b/CBLAS/src/cblas_csyr2k.c index f65df1daaa..ba960ea414 100644 --- a/CBLAS/src/cblas_csyr2k.c +++ b/CBLAS/src/cblas_csyr2k.c @@ -10,10 +10,10 @@ #include "cblas.h" #include "cblas_f77.h" void cblas_csyr2k(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, - const CBLAS_TRANSPOSE Trans, const CBLAS_INDEX N, const CBLAS_INDEX K, - const void *alpha, const void *A, const CBLAS_INDEX lda, - const void *B, const CBLAS_INDEX ldb, const void *beta, - void *C, const CBLAS_INDEX ldc) + const CBLAS_TRANSPOSE Trans, const CBLAS_INT N, const CBLAS_INT K, + const void *alpha, const void *A, const CBLAS_INT lda, + const void *B, const CBLAS_INT ldb, const void *beta, + void *C, const CBLAS_INT ldc) { char UL, TR; #ifdef F77_CHAR diff --git a/CBLAS/src/cblas_csyrk.c b/CBLAS/src/cblas_csyrk.c index f44c50171f..1e720f0827 100644 --- a/CBLAS/src/cblas_csyrk.c +++ b/CBLAS/src/cblas_csyrk.c @@ -10,9 +10,9 @@ #include "cblas.h" #include "cblas_f77.h" void cblas_csyrk(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, - const CBLAS_TRANSPOSE Trans, const CBLAS_INDEX N, const CBLAS_INDEX K, - const void *alpha, const void *A, const CBLAS_INDEX lda, - const void *beta, void *C, const CBLAS_INDEX ldc) + const CBLAS_TRANSPOSE Trans, const CBLAS_INT N, const CBLAS_INT K, + const void *alpha, const void *A, const CBLAS_INT lda, + const void *beta, void *C, const CBLAS_INT ldc) { char UL, TR; #ifdef F77_CHAR diff --git a/CBLAS/src/cblas_ctbmv.c b/CBLAS/src/cblas_ctbmv.c index 085bc70a33..5a0571b9bd 100644 --- a/CBLAS/src/cblas_ctbmv.c +++ b/CBLAS/src/cblas_ctbmv.c @@ -9,8 +9,8 @@ #include "cblas_f77.h" void cblas_ctbmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, const CBLAS_TRANSPOSE TransA, const CBLAS_DIAG Diag, - const CBLAS_INDEX N, const CBLAS_INDEX K, const void *A, const CBLAS_INDEX lda, - void *X, const CBLAS_INDEX incX) + const CBLAS_INT N, const CBLAS_INT K, const void *A, const CBLAS_INT lda, + void *X, const CBLAS_INT incX) { char TA; char UL; @@ -30,7 +30,7 @@ void cblas_ctbmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, #define F77_lda lda #define F77_incX incX #endif - CBLAS_INDEX n, i=0, tincX; + CBLAS_INT n, i=0, tincX; float *st=0, *x=(float *)X; extern int CBLAS_CallFromC; extern int RowMajorStrg; diff --git a/CBLAS/src/cblas_ctbsv.c b/CBLAS/src/cblas_ctbsv.c index b8dc84d54b..8faef87850 100644 --- a/CBLAS/src/cblas_ctbsv.c +++ b/CBLAS/src/cblas_ctbsv.c @@ -9,8 +9,8 @@ #include "cblas_f77.h" void cblas_ctbsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, const CBLAS_TRANSPOSE TransA, const CBLAS_DIAG Diag, - const CBLAS_INDEX N, const CBLAS_INDEX K, const void *A, const CBLAS_INDEX lda, - void *X, const CBLAS_INDEX incX) + const CBLAS_INT N, const CBLAS_INT K, const void *A, const CBLAS_INT lda, + void *X, const CBLAS_INT incX) { char TA; char UL; @@ -30,7 +30,7 @@ void cblas_ctbsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, #define F77_lda lda #define F77_incX incX #endif - CBLAS_INDEX n, i=0, tincX; + CBLAS_INT n, i=0, tincX; float *st=0,*x=(float *)X; extern int CBLAS_CallFromC; extern int RowMajorStrg; diff --git a/CBLAS/src/cblas_ctpmv.c b/CBLAS/src/cblas_ctpmv.c index 357d427e62..6e8d7cc8e7 100644 --- a/CBLAS/src/cblas_ctpmv.c +++ b/CBLAS/src/cblas_ctpmv.c @@ -9,7 +9,7 @@ #include "cblas_f77.h" void cblas_ctpmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, const CBLAS_TRANSPOSE TransA, const CBLAS_DIAG Diag, - const CBLAS_INDEX N, const void *Ap, void *X, const CBLAS_INDEX incX) + const CBLAS_INT N, const void *Ap, void *X, const CBLAS_INT incX) { char TA; char UL; @@ -27,7 +27,7 @@ void cblas_ctpmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, #define F77_N N #define F77_incX incX #endif - CBLAS_INDEX n, i=0, tincX; + CBLAS_INT n, i=0, tincX; float *st=0,*x=(float *)X; extern int CBLAS_CallFromC; extern int RowMajorStrg; diff --git a/CBLAS/src/cblas_ctpsv.c b/CBLAS/src/cblas_ctpsv.c index 6dbdf463d7..08091d255a 100644 --- a/CBLAS/src/cblas_ctpsv.c +++ b/CBLAS/src/cblas_ctpsv.c @@ -9,7 +9,7 @@ #include "cblas_f77.h" void cblas_ctpsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, const CBLAS_TRANSPOSE TransA, const CBLAS_DIAG Diag, - const CBLAS_INDEX N, const void *Ap, void *X, const CBLAS_INDEX incX) + const CBLAS_INT N, const void *Ap, void *X, const CBLAS_INT incX) { char TA; char UL; @@ -27,7 +27,7 @@ void cblas_ctpsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, #define F77_N N #define F77_incX incX #endif - CBLAS_INDEX n, i=0, tincX; + CBLAS_INT n, i=0, tincX; float *st=0, *x=(float*)X; extern int CBLAS_CallFromC; extern int RowMajorStrg; diff --git a/CBLAS/src/cblas_ctrmm.c b/CBLAS/src/cblas_ctrmm.c index bb77708b61..46a98bb845 100644 --- a/CBLAS/src/cblas_ctrmm.c +++ b/CBLAS/src/cblas_ctrmm.c @@ -11,9 +11,9 @@ #include "cblas_f77.h" void cblas_ctrmm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, const CBLAS_UPLO Uplo, const CBLAS_TRANSPOSE TransA, - const CBLAS_DIAG Diag, const CBLAS_INDEX M, const CBLAS_INDEX N, - const void *alpha, const void *A, const CBLAS_INDEX lda, - void *B, const CBLAS_INDEX ldb) + const CBLAS_DIAG Diag, const CBLAS_INT M, const CBLAS_INT N, + const void *alpha, const void *A, const CBLAS_INT lda, + void *B, const CBLAS_INT ldb) { char UL, TA, SD, DI; #ifdef F77_CHAR diff --git a/CBLAS/src/cblas_ctrmv.c b/CBLAS/src/cblas_ctrmv.c index d21a1239b4..8fcb79a3f1 100644 --- a/CBLAS/src/cblas_ctrmv.c +++ b/CBLAS/src/cblas_ctrmv.c @@ -9,8 +9,8 @@ #include "cblas_f77.h" void cblas_ctrmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, const CBLAS_TRANSPOSE TransA, const CBLAS_DIAG Diag, - const CBLAS_INDEX N, const void *A, const CBLAS_INDEX lda, - void *X, const CBLAS_INDEX incX) + const CBLAS_INT N, const void *A, const CBLAS_INT lda, + void *X, const CBLAS_INT incX) { char TA; @@ -30,7 +30,7 @@ void cblas_ctrmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, #define F77_lda lda #define F77_incX incX #endif - CBLAS_INDEX n, i=0, tincX; + CBLAS_INT n, i=0, tincX; float *st=0,*x=(float *)X; extern int CBLAS_CallFromC; extern int RowMajorStrg; diff --git a/CBLAS/src/cblas_ctrsm.c b/CBLAS/src/cblas_ctrsm.c index 4e9268cd5a..9e42f9aa00 100644 --- a/CBLAS/src/cblas_ctrsm.c +++ b/CBLAS/src/cblas_ctrsm.c @@ -11,9 +11,9 @@ #include "cblas_f77.h" void cblas_ctrsm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, const CBLAS_UPLO Uplo, const CBLAS_TRANSPOSE TransA, - const CBLAS_DIAG Diag, const CBLAS_INDEX M, const CBLAS_INDEX N, - const void *alpha, const void *A, const CBLAS_INDEX lda, - void *B, const CBLAS_INDEX ldb) + const CBLAS_DIAG Diag, const CBLAS_INT M, const CBLAS_INT N, + const void *alpha, const void *A, const CBLAS_INT lda, + void *B, const CBLAS_INT ldb) { char UL, TA, SD, DI; #ifdef F77_CHAR diff --git a/CBLAS/src/cblas_ctrsv.c b/CBLAS/src/cblas_ctrsv.c index 1eabf8b984..e0447d3009 100644 --- a/CBLAS/src/cblas_ctrsv.c +++ b/CBLAS/src/cblas_ctrsv.c @@ -9,8 +9,8 @@ #include "cblas_f77.h" void cblas_ctrsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, const CBLAS_TRANSPOSE TransA, const CBLAS_DIAG Diag, - const CBLAS_INDEX N, const void *A, const CBLAS_INDEX lda, void *X, - const CBLAS_INDEX incX) + const CBLAS_INT N, const void *A, const CBLAS_INT lda, void *X, + const CBLAS_INT incX) { char TA; char UL; @@ -29,7 +29,7 @@ void cblas_ctrsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, #define F77_lda lda #define F77_incX incX #endif - CBLAS_INDEX n, i=0, tincX; + CBLAS_INT n, i=0, tincX; float *st=0,*x=(float *)X; extern int CBLAS_CallFromC; extern int RowMajorStrg; diff --git a/CBLAS/src/cblas_dasum.c b/CBLAS/src/cblas_dasum.c index 740aa34dc4..67e257a7f2 100644 --- a/CBLAS/src/cblas_dasum.c +++ b/CBLAS/src/cblas_dasum.c @@ -9,7 +9,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -double cblas_dasum( const CBLAS_INDEX N, const double *X, const CBLAS_INDEX incX) +double cblas_dasum( const CBLAS_INT N, const double *X, const CBLAS_INT incX) { double asum; #ifdef F77_INT diff --git a/CBLAS/src/cblas_daxpy.c b/CBLAS/src/cblas_daxpy.c index 8707909c07..1b38e0a936 100644 --- a/CBLAS/src/cblas_daxpy.c +++ b/CBLAS/src/cblas_daxpy.c @@ -8,8 +8,8 @@ */ #include "cblas.h" #include "cblas_f77.h" -void cblas_daxpy( const CBLAS_INDEX N, const double alpha, const double *X, - const CBLAS_INDEX incX, double *Y, const CBLAS_INDEX incY) +void cblas_daxpy( const CBLAS_INT N, const double alpha, const double *X, + const CBLAS_INT incX, double *Y, const CBLAS_INT incY) { #ifdef F77_INT F77_INT F77_N=N, F77_incX=incX, F77_incY=incY; diff --git a/CBLAS/src/cblas_dcopy.c b/CBLAS/src/cblas_dcopy.c index d4a7656134..6eaed67ab1 100644 --- a/CBLAS/src/cblas_dcopy.c +++ b/CBLAS/src/cblas_dcopy.c @@ -8,8 +8,8 @@ */ #include "cblas.h" #include "cblas_f77.h" -void cblas_dcopy( const CBLAS_INDEX N, const double *X, - const CBLAS_INDEX incX, double *Y, const CBLAS_INDEX incY) +void cblas_dcopy( const CBLAS_INT N, const double *X, + const CBLAS_INT incX, double *Y, const CBLAS_INT incY) { #ifdef F77_INT F77_INT F77_N=N, F77_incX=incX, F77_incY=incY; diff --git a/CBLAS/src/cblas_ddot.c b/CBLAS/src/cblas_ddot.c index 67cf709854..c2035a0a7c 100644 --- a/CBLAS/src/cblas_ddot.c +++ b/CBLAS/src/cblas_ddot.c @@ -9,8 +9,8 @@ */ #include "cblas.h" #include "cblas_f77.h" -double cblas_ddot( const CBLAS_INDEX N, const double *X, - const CBLAS_INDEX incX, const double *Y, const CBLAS_INDEX incY) +double cblas_ddot( const CBLAS_INT N, const double *X, + const CBLAS_INT incX, const double *Y, const CBLAS_INT incY) { double dot; #ifdef F77_INT diff --git a/CBLAS/src/cblas_dgbmv.c b/CBLAS/src/cblas_dgbmv.c index 06397d90bd..ef2eeff18c 100644 --- a/CBLAS/src/cblas_dgbmv.c +++ b/CBLAS/src/cblas_dgbmv.c @@ -9,11 +9,11 @@ #include "cblas.h" #include "cblas_f77.h" void cblas_dgbmv(const CBLAS_LAYOUT layout, - const CBLAS_TRANSPOSE TransA, const CBLAS_INDEX M, const CBLAS_INDEX N, - const CBLAS_INDEX KL, const CBLAS_INDEX KU, - const double alpha, const double *A, const CBLAS_INDEX lda, - const double *X, const CBLAS_INDEX incX, const double beta, - double *Y, const CBLAS_INDEX incY) + const CBLAS_TRANSPOSE TransA, const CBLAS_INT M, const CBLAS_INT N, + const CBLAS_INT KL, const CBLAS_INT KU, + const double alpha, const double *A, const CBLAS_INT lda, + const double *X, const CBLAS_INT incX, const double beta, + double *Y, const CBLAS_INT incY) { char TA; #ifdef F77_CHAR diff --git a/CBLAS/src/cblas_dgemm.c b/CBLAS/src/cblas_dgemm.c index 86eacc0904..1dce9cf3e8 100644 --- a/CBLAS/src/cblas_dgemm.c +++ b/CBLAS/src/cblas_dgemm.c @@ -10,10 +10,10 @@ #include "cblas.h" #include "cblas_f77.h" void cblas_dgemm(const CBLAS_LAYOUT layout, const CBLAS_TRANSPOSE TransA, - const CBLAS_TRANSPOSE TransB, const CBLAS_INDEX M, const CBLAS_INDEX N, - const CBLAS_INDEX K, const double alpha, const double *A, - const CBLAS_INDEX lda, const double *B, const CBLAS_INDEX ldb, - const double beta, double *C, const CBLAS_INDEX ldc) + const CBLAS_TRANSPOSE TransB, const CBLAS_INT M, const CBLAS_INT N, + const CBLAS_INT K, const double alpha, const double *A, + const CBLAS_INT lda, const double *B, const CBLAS_INT ldb, + const double beta, double *C, const CBLAS_INT ldc) { char TA, TB; #ifdef F77_CHAR diff --git a/CBLAS/src/cblas_dgemv.c b/CBLAS/src/cblas_dgemv.c index f25e7b9c58..c5d10b791e 100644 --- a/CBLAS/src/cblas_dgemv.c +++ b/CBLAS/src/cblas_dgemv.c @@ -9,10 +9,10 @@ #include "cblas.h" #include "cblas_f77.h" void cblas_dgemv(const CBLAS_LAYOUT layout, - const CBLAS_TRANSPOSE TransA, const CBLAS_INDEX M, const CBLAS_INDEX N, - const double alpha, const double *A, const CBLAS_INDEX lda, - const double *X, const CBLAS_INDEX incX, const double beta, - double *Y, const CBLAS_INDEX incY) + const CBLAS_TRANSPOSE TransA, const CBLAS_INT M, const CBLAS_INT N, + const double alpha, const double *A, const CBLAS_INT lda, + const double *X, const CBLAS_INT incX, const double beta, + double *Y, const CBLAS_INT incY) { char TA; #ifdef F77_CHAR diff --git a/CBLAS/src/cblas_dger.c b/CBLAS/src/cblas_dger.c index 6085d0e0a5..fa69dcbb20 100644 --- a/CBLAS/src/cblas_dger.c +++ b/CBLAS/src/cblas_dger.c @@ -9,9 +9,9 @@ #include "cblas.h" #include "cblas_f77.h" -void cblas_dger(const CBLAS_LAYOUT layout, const CBLAS_INDEX M, const CBLAS_INDEX N, - const double alpha, const double *X, const CBLAS_INDEX incX, - const double *Y, const CBLAS_INDEX incY, double *A, const CBLAS_INDEX lda) +void cblas_dger(const CBLAS_LAYOUT layout, const CBLAS_INT M, const CBLAS_INT N, + const double alpha, const double *X, const CBLAS_INT incX, + const double *Y, const CBLAS_INT incY, double *A, const CBLAS_INT lda) { #ifdef F77_INT F77_INT F77_M=M, F77_N=N, F77_lda=lda, F77_incX=incX, F77_incY=incY; diff --git a/CBLAS/src/cblas_dnrm2.c b/CBLAS/src/cblas_dnrm2.c index c2ce9917a6..48bb1657dd 100644 --- a/CBLAS/src/cblas_dnrm2.c +++ b/CBLAS/src/cblas_dnrm2.c @@ -9,7 +9,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -double cblas_dnrm2( const CBLAS_INDEX N, const double *X, const CBLAS_INDEX incX) +double cblas_dnrm2( const CBLAS_INT N, const double *X, const CBLAS_INT incX) { double nrm2; #ifdef F77_INT diff --git a/CBLAS/src/cblas_drot.c b/CBLAS/src/cblas_drot.c index c648a94ff8..0ecdcb316c 100644 --- a/CBLAS/src/cblas_drot.c +++ b/CBLAS/src/cblas_drot.c @@ -8,8 +8,8 @@ */ #include "cblas.h" #include "cblas_f77.h" -void cblas_drot(const CBLAS_INDEX N, double *X, const CBLAS_INDEX incX, - double *Y, const CBLAS_INDEX incY, const double c, const double s) +void cblas_drot(const CBLAS_INT N, double *X, const CBLAS_INT incX, + double *Y, const CBLAS_INT incY, const double c, const double s) { #ifdef F77_INT F77_INT F77_N=N, F77_incX=incX, F77_incY=incY; diff --git a/CBLAS/src/cblas_drotm.c b/CBLAS/src/cblas_drotm.c index b636653999..70ac6c1cd9 100644 --- a/CBLAS/src/cblas_drotm.c +++ b/CBLAS/src/cblas_drotm.c @@ -1,7 +1,7 @@ #include "cblas.h" #include "cblas_f77.h" -void cblas_drotm( const CBLAS_INDEX N, double *X, const CBLAS_INDEX incX, double *Y, - const CBLAS_INDEX incY, const double *P) +void cblas_drotm( const CBLAS_INT N, double *X, const CBLAS_INT incX, double *Y, + const CBLAS_INT incY, const double *P) { #ifdef F77_INT F77_INT F77_N=N, F77_incX=incX, F77_incY=incY; diff --git a/CBLAS/src/cblas_dsbmv.c b/CBLAS/src/cblas_dsbmv.c index e378990fc5..1502142c11 100644 --- a/CBLAS/src/cblas_dsbmv.c +++ b/CBLAS/src/cblas_dsbmv.c @@ -10,10 +10,10 @@ #include "cblas.h" #include "cblas_f77.h" void cblas_dsbmv(const CBLAS_LAYOUT layout, - const CBLAS_UPLO Uplo, const CBLAS_INDEX N, const CBLAS_INDEX K, - const double alpha, const double *A, const CBLAS_INDEX lda, - const double *X, const CBLAS_INDEX incX, const double beta, - double *Y, const CBLAS_INDEX incY) + const CBLAS_UPLO Uplo, const CBLAS_INT N, const CBLAS_INT K, + const double alpha, const double *A, const CBLAS_INT lda, + const double *X, const CBLAS_INT incX, const double beta, + double *Y, const CBLAS_INT incY) { char UL; #ifdef F77_CHAR diff --git a/CBLAS/src/cblas_dscal.c b/CBLAS/src/cblas_dscal.c index 8c5b0090fe..b0ecfd4c2c 100644 --- a/CBLAS/src/cblas_dscal.c +++ b/CBLAS/src/cblas_dscal.c @@ -8,8 +8,8 @@ */ #include "cblas.h" #include "cblas_f77.h" -void cblas_dscal( const CBLAS_INDEX N, const double alpha, double *X, - const CBLAS_INDEX incX) +void cblas_dscal( const CBLAS_INT N, const double alpha, double *X, + const CBLAS_INT incX) { #ifdef F77_INT F77_INT F77_N=N, F77_incX=incX; diff --git a/CBLAS/src/cblas_dsdot.c b/CBLAS/src/cblas_dsdot.c index 1db66a4967..7141c6f729 100644 --- a/CBLAS/src/cblas_dsdot.c +++ b/CBLAS/src/cblas_dsdot.c @@ -9,8 +9,8 @@ */ #include "cblas.h" #include "cblas_f77.h" -double cblas_dsdot( const CBLAS_INDEX N, const float *X, - const CBLAS_INDEX incX, const float *Y, const CBLAS_INDEX incY) +double cblas_dsdot( const CBLAS_INT N, const float *X, + const CBLAS_INT incX, const float *Y, const CBLAS_INT incY) { double dot; #ifdef F77_INT diff --git a/CBLAS/src/cblas_dspmv.c b/CBLAS/src/cblas_dspmv.c index 55bed3cbb3..864a8883df 100644 --- a/CBLAS/src/cblas_dspmv.c +++ b/CBLAS/src/cblas_dspmv.c @@ -11,10 +11,10 @@ #include "cblas.h" #include "cblas_f77.h" void cblas_dspmv(const CBLAS_LAYOUT layout, - const CBLAS_UPLO Uplo, const CBLAS_INDEX N, + const CBLAS_UPLO Uplo, const CBLAS_INT N, const double alpha, const double *AP, - const double *X, const CBLAS_INDEX incX, const double beta, - double *Y, const CBLAS_INDEX incY) + const double *X, const CBLAS_INT incX, const double beta, + double *Y, const CBLAS_INT incY) { char UL; #ifdef F77_CHAR diff --git a/CBLAS/src/cblas_dspr.c b/CBLAS/src/cblas_dspr.c index f852af4a8b..5140bc0771 100644 --- a/CBLAS/src/cblas_dspr.c +++ b/CBLAS/src/cblas_dspr.c @@ -10,8 +10,8 @@ #include "cblas.h" #include "cblas_f77.h" void cblas_dspr(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, - const CBLAS_INDEX N, const double alpha, const double *X, - const CBLAS_INDEX incX, double *Ap) + const CBLAS_INT N, const double alpha, const double *X, + const CBLAS_INT incX, double *Ap) { char UL; #ifdef F77_CHAR diff --git a/CBLAS/src/cblas_dspr2.c b/CBLAS/src/cblas_dspr2.c index f4829a9af7..07cde29cfe 100644 --- a/CBLAS/src/cblas_dspr2.c +++ b/CBLAS/src/cblas_dspr2.c @@ -8,8 +8,8 @@ #include "cblas.h" #include "cblas_f77.h" void cblas_dspr2(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, - const CBLAS_INDEX N, const double alpha, const double *X, - const CBLAS_INDEX incX, const double *Y, const CBLAS_INDEX incY, double *A) + const CBLAS_INT N, const double alpha, const double *X, + const CBLAS_INT incX, const double *Y, const CBLAS_INT incY, double *A) { char UL; #ifdef F77_CHAR diff --git a/CBLAS/src/cblas_dswap.c b/CBLAS/src/cblas_dswap.c index fe90fb3b37..7a586f2f67 100644 --- a/CBLAS/src/cblas_dswap.c +++ b/CBLAS/src/cblas_dswap.c @@ -8,8 +8,8 @@ */ #include "cblas.h" #include "cblas_f77.h" -void cblas_dswap( const CBLAS_INDEX N, double *X, const CBLAS_INDEX incX, double *Y, - const CBLAS_INDEX incY) +void cblas_dswap( const CBLAS_INT N, double *X, const CBLAS_INT incX, double *Y, + const CBLAS_INT incY) { #ifdef F77_INT F77_INT F77_N=N, F77_incX=incX, F77_incY=incY; diff --git a/CBLAS/src/cblas_dsymm.c b/CBLAS/src/cblas_dsymm.c index 9feea64e99..54a549867a 100644 --- a/CBLAS/src/cblas_dsymm.c +++ b/CBLAS/src/cblas_dsymm.c @@ -10,10 +10,10 @@ #include "cblas.h" #include "cblas_f77.h" void cblas_dsymm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, - const CBLAS_UPLO Uplo, const CBLAS_INDEX M, const CBLAS_INDEX N, - const double alpha, const double *A, const CBLAS_INDEX lda, - const double *B, const CBLAS_INDEX ldb, const double beta, - double *C, const CBLAS_INDEX ldc) + const CBLAS_UPLO Uplo, const CBLAS_INT M, const CBLAS_INT N, + const double alpha, const double *A, const CBLAS_INT lda, + const double *B, const CBLAS_INT ldb, const double beta, + double *C, const CBLAS_INT ldc) { char SD, UL; #ifdef F77_CHAR diff --git a/CBLAS/src/cblas_dsymv.c b/CBLAS/src/cblas_dsymv.c index 339f73d711..327a02e6f8 100644 --- a/CBLAS/src/cblas_dsymv.c +++ b/CBLAS/src/cblas_dsymv.c @@ -10,10 +10,10 @@ #include "cblas.h" #include "cblas_f77.h" void cblas_dsymv(const CBLAS_LAYOUT layout, - const CBLAS_UPLO Uplo, const CBLAS_INDEX N, - const double alpha, const double *A, const CBLAS_INDEX lda, - const double *X, const CBLAS_INDEX incX, const double beta, - double *Y, const CBLAS_INDEX incY) + const CBLAS_UPLO Uplo, const CBLAS_INT N, + const double alpha, const double *A, const CBLAS_INT lda, + const double *X, const CBLAS_INT incX, const double beta, + double *Y, const CBLAS_INT incY) { char UL; #ifdef F77_CHAR diff --git a/CBLAS/src/cblas_dsyr.c b/CBLAS/src/cblas_dsyr.c index 9d907497f6..d58c301735 100644 --- a/CBLAS/src/cblas_dsyr.c +++ b/CBLAS/src/cblas_dsyr.c @@ -10,8 +10,8 @@ #include "cblas.h" #include "cblas_f77.h" void cblas_dsyr(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, - const CBLAS_INDEX N, const double alpha, const double *X, - const CBLAS_INDEX incX, double *A, const CBLAS_INDEX lda) + const CBLAS_INT N, const double alpha, const double *X, + const CBLAS_INT incX, double *A, const CBLAS_INT lda) { char UL; #ifdef F77_CHAR diff --git a/CBLAS/src/cblas_dsyr2.c b/CBLAS/src/cblas_dsyr2.c index b5b263357a..96ae1f80f0 100644 --- a/CBLAS/src/cblas_dsyr2.c +++ b/CBLAS/src/cblas_dsyr2.c @@ -10,9 +10,9 @@ #include "cblas.h" #include "cblas_f77.h" void cblas_dsyr2(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, - const CBLAS_INDEX N, const double alpha, const double *X, - const CBLAS_INDEX incX, const double *Y, const CBLAS_INDEX incY, double *A, - const CBLAS_INDEX lda) + const CBLAS_INT N, const double alpha, const double *X, + const CBLAS_INT incX, const double *Y, const CBLAS_INT incY, double *A, + const CBLAS_INT lda) { char UL; #ifdef F77_CHAR diff --git a/CBLAS/src/cblas_dsyr2k.c b/CBLAS/src/cblas_dsyr2k.c index a6300be083..3de741dd8e 100644 --- a/CBLAS/src/cblas_dsyr2k.c +++ b/CBLAS/src/cblas_dsyr2k.c @@ -10,10 +10,10 @@ #include "cblas.h" #include "cblas_f77.h" void cblas_dsyr2k(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, - const CBLAS_TRANSPOSE Trans, const CBLAS_INDEX N, const CBLAS_INDEX K, - const double alpha, const double *A, const CBLAS_INDEX lda, - const double *B, const CBLAS_INDEX ldb, const double beta, - double *C, const CBLAS_INDEX ldc) + const CBLAS_TRANSPOSE Trans, const CBLAS_INT N, const CBLAS_INT K, + const double alpha, const double *A, const CBLAS_INT lda, + const double *B, const CBLAS_INT ldb, const double beta, + double *C, const CBLAS_INT ldc) { char UL, TR; #ifdef F77_CHAR diff --git a/CBLAS/src/cblas_dsyrk.c b/CBLAS/src/cblas_dsyrk.c index 09af2b28fc..835b9eedb7 100644 --- a/CBLAS/src/cblas_dsyrk.c +++ b/CBLAS/src/cblas_dsyrk.c @@ -10,9 +10,9 @@ #include "cblas.h" #include "cblas_f77.h" void cblas_dsyrk(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, - const CBLAS_TRANSPOSE Trans, const CBLAS_INDEX N, const CBLAS_INDEX K, - const double alpha, const double *A, const CBLAS_INDEX lda, - const double beta, double *C, const CBLAS_INDEX ldc) + const CBLAS_TRANSPOSE Trans, const CBLAS_INT N, const CBLAS_INT K, + const double alpha, const double *A, const CBLAS_INT lda, + const double beta, double *C, const CBLAS_INT ldc) { char UL, TR; #ifdef F77_CHAR diff --git a/CBLAS/src/cblas_dtbmv.c b/CBLAS/src/cblas_dtbmv.c index 068f6ac9fa..badcc20189 100644 --- a/CBLAS/src/cblas_dtbmv.c +++ b/CBLAS/src/cblas_dtbmv.c @@ -9,8 +9,8 @@ #include "cblas_f77.h" void cblas_dtbmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, const CBLAS_TRANSPOSE TransA, const CBLAS_DIAG Diag, - const CBLAS_INDEX N, const CBLAS_INDEX K, const double *A, const CBLAS_INDEX lda, - double *X, const CBLAS_INDEX incX) + const CBLAS_INT N, const CBLAS_INT K, const double *A, const CBLAS_INT lda, + double *X, const CBLAS_INT incX) { char TA; char UL; diff --git a/CBLAS/src/cblas_dtbsv.c b/CBLAS/src/cblas_dtbsv.c index 4dce61794b..afead06808 100644 --- a/CBLAS/src/cblas_dtbsv.c +++ b/CBLAS/src/cblas_dtbsv.c @@ -9,8 +9,8 @@ #include "cblas_f77.h" void cblas_dtbsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, const CBLAS_TRANSPOSE TransA, const CBLAS_DIAG Diag, - const CBLAS_INDEX N, const CBLAS_INDEX K, const double *A, const CBLAS_INDEX lda, - double *X, const CBLAS_INDEX incX) + const CBLAS_INT N, const CBLAS_INT K, const double *A, const CBLAS_INT lda, + double *X, const CBLAS_INT incX) { char TA; char UL; diff --git a/CBLAS/src/cblas_dtpmv.c b/CBLAS/src/cblas_dtpmv.c index c380002059..94381aff4f 100644 --- a/CBLAS/src/cblas_dtpmv.c +++ b/CBLAS/src/cblas_dtpmv.c @@ -9,7 +9,7 @@ #include "cblas_f77.h" void cblas_dtpmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, const CBLAS_TRANSPOSE TransA, const CBLAS_DIAG Diag, - const CBLAS_INDEX N, const double *Ap, double *X, const CBLAS_INDEX incX) + const CBLAS_INT N, const double *Ap, double *X, const CBLAS_INT incX) { char TA; char UL; diff --git a/CBLAS/src/cblas_dtpsv.c b/CBLAS/src/cblas_dtpsv.c index 728d4cddc5..53181b253f 100644 --- a/CBLAS/src/cblas_dtpsv.c +++ b/CBLAS/src/cblas_dtpsv.c @@ -9,7 +9,7 @@ #include "cblas_f77.h" void cblas_dtpsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, const CBLAS_TRANSPOSE TransA, const CBLAS_DIAG Diag, - const CBLAS_INDEX N, const double *Ap, double *X, const CBLAS_INDEX incX) + const CBLAS_INT N, const double *Ap, double *X, const CBLAS_INT incX) { char TA; char UL; diff --git a/CBLAS/src/cblas_dtrmm.c b/CBLAS/src/cblas_dtrmm.c index 885b6d606f..c2ea08a5ba 100644 --- a/CBLAS/src/cblas_dtrmm.c +++ b/CBLAS/src/cblas_dtrmm.c @@ -11,9 +11,9 @@ #include "cblas_f77.h" void cblas_dtrmm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, const CBLAS_UPLO Uplo, const CBLAS_TRANSPOSE TransA, - const CBLAS_DIAG Diag, const CBLAS_INDEX M, const CBLAS_INDEX N, - const double alpha, const double *A, const CBLAS_INDEX lda, - double *B, const CBLAS_INDEX ldb) + const CBLAS_DIAG Diag, const CBLAS_INT M, const CBLAS_INT N, + const double alpha, const double *A, const CBLAS_INT lda, + double *B, const CBLAS_INT ldb) { char UL, TA, SD, DI; #ifdef F77_CHAR diff --git a/CBLAS/src/cblas_dtrmv.c b/CBLAS/src/cblas_dtrmv.c index 2ba9ac795f..f2ec535b75 100644 --- a/CBLAS/src/cblas_dtrmv.c +++ b/CBLAS/src/cblas_dtrmv.c @@ -11,8 +11,8 @@ #include "cblas_f77.h" void cblas_dtrmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, const CBLAS_TRANSPOSE TransA, const CBLAS_DIAG Diag, - const CBLAS_INDEX N, const double *A, const CBLAS_INDEX lda, - double *X, const CBLAS_INDEX incX) + const CBLAS_INT N, const double *A, const CBLAS_INT lda, + double *X, const CBLAS_INT incX) { char TA; diff --git a/CBLAS/src/cblas_dtrsm.c b/CBLAS/src/cblas_dtrsm.c index be1cc26904..5fe185d251 100644 --- a/CBLAS/src/cblas_dtrsm.c +++ b/CBLAS/src/cblas_dtrsm.c @@ -11,9 +11,9 @@ #include "cblas_f77.h" void cblas_dtrsm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, const CBLAS_UPLO Uplo, const CBLAS_TRANSPOSE TransA, - const CBLAS_DIAG Diag, const CBLAS_INDEX M, const CBLAS_INDEX N, - const double alpha, const double *A, const CBLAS_INDEX lda, - double *B, const CBLAS_INDEX ldb) + const CBLAS_DIAG Diag, const CBLAS_INT M, const CBLAS_INT N, + const double alpha, const double *A, const CBLAS_INT lda, + double *B, const CBLAS_INT ldb) { char UL, TA, SD, DI; diff --git a/CBLAS/src/cblas_dtrsv.c b/CBLAS/src/cblas_dtrsv.c index be872aa5f4..51b49da14d 100644 --- a/CBLAS/src/cblas_dtrsv.c +++ b/CBLAS/src/cblas_dtrsv.c @@ -9,8 +9,8 @@ #include "cblas_f77.h" void cblas_dtrsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, const CBLAS_TRANSPOSE TransA, const CBLAS_DIAG Diag, - const CBLAS_INDEX N, const double *A, const CBLAS_INDEX lda, double *X, - const CBLAS_INDEX incX) + const CBLAS_INT N, const double *A, const CBLAS_INT lda, double *X, + const CBLAS_INT incX) { char TA; diff --git a/CBLAS/src/cblas_dzasum.c b/CBLAS/src/cblas_dzasum.c index 384292f90c..b68879860b 100644 --- a/CBLAS/src/cblas_dzasum.c +++ b/CBLAS/src/cblas_dzasum.c @@ -9,7 +9,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -double cblas_dzasum( const CBLAS_INDEX N, const void *X, const CBLAS_INDEX incX) +double cblas_dzasum( const CBLAS_INT N, const void *X, const CBLAS_INT incX) { double asum; #ifdef F77_INT diff --git a/CBLAS/src/cblas_dznrm2.c b/CBLAS/src/cblas_dznrm2.c index 6f4a7fb44f..f815e15327 100644 --- a/CBLAS/src/cblas_dznrm2.c +++ b/CBLAS/src/cblas_dznrm2.c @@ -9,7 +9,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -double cblas_dznrm2( const CBLAS_INDEX N, const void *X, const CBLAS_INDEX incX) +double cblas_dznrm2( const CBLAS_INT N, const void *X, const CBLAS_INT incX) { double nrm2; #ifdef F77_INT diff --git a/CBLAS/src/cblas_icamax.c b/CBLAS/src/cblas_icamax.c index 6e2c1e05e7..66a12cdab8 100644 --- a/CBLAS/src/cblas_icamax.c +++ b/CBLAS/src/cblas_icamax.c @@ -9,15 +9,17 @@ */ #include "cblas.h" #include "cblas_f77.h" -CBLAS_INDEX cblas_icamax( const CBLAS_INDEX N, const void *X, const CBLAS_INDEX incX) +CBLAS_INDEX cblas_icamax( const CBLAS_INT N, const void *X, const CBLAS_INT incX) { - CBLAS_INDEX iamax; #ifdef F77_INT - F77_INT F77_N=N, F77_incX=incX; + F77_INT F77_N=N, F77_incX=incX, F77_iamax; #else #define F77_N N #define F77_incX incX + CBLAS_INT F77_iamax; #endif - F77_icamax_sub( &F77_N, X, &F77_incX, &iamax); - return iamax ? iamax-1 : 0; + F77_icamax_sub( &F77_N, X, &F77_incX, &F77_iamax ); + return ( F77_iamax > 0 ) + ? (CBLAS_INDEX)( F77_iamax-1 ) + : (CBLAS_INDEX) 0; } diff --git a/CBLAS/src/cblas_idamax.c b/CBLAS/src/cblas_idamax.c index 1f8c594bdb..db016c7cf7 100644 --- a/CBLAS/src/cblas_idamax.c +++ b/CBLAS/src/cblas_idamax.c @@ -9,15 +9,17 @@ */ #include "cblas.h" #include "cblas_f77.h" -CBLAS_INDEX cblas_idamax( const CBLAS_INDEX N, const double *X, const CBLAS_INDEX incX) +CBLAS_INDEX cblas_idamax( const CBLAS_INT N, const double *X, const CBLAS_INT incX) { - CBLAS_INDEX iamax; #ifdef F77_INT - F77_INT F77_N=N, F77_incX=incX; + F77_INT F77_N=N, F77_incX=incX, F77_iamax; #else #define F77_N N #define F77_incX incX + CBLAS_INT F77_iamax; #endif - F77_idamax_sub( &F77_N, X, &F77_incX, &iamax); - return iamax ? iamax-1 : 0; + F77_idamax_sub( &F77_N, X, &F77_incX, &F77_iamax ); + return ( F77_iamax > 0 ) + ? (CBLAS_INDEX)( F77_iamax-1 ) + : (CBLAS_INDEX) 0; } diff --git a/CBLAS/src/cblas_isamax.c b/CBLAS/src/cblas_isamax.c index 8655f00dfc..0898a82701 100644 --- a/CBLAS/src/cblas_isamax.c +++ b/CBLAS/src/cblas_isamax.c @@ -9,15 +9,17 @@ */ #include "cblas.h" #include "cblas_f77.h" -CBLAS_INDEX cblas_isamax( const CBLAS_INDEX N, const float *X, const CBLAS_INDEX incX) +CBLAS_INDEX cblas_isamax( const CBLAS_INT N, const float *X, const CBLAS_INT incX) { - CBLAS_INDEX iamax; #ifdef F77_INT - F77_INT F77_N=N, F77_incX=incX; + F77_INT F77_N=N, F77_incX=incX, F77_iamax; #else #define F77_N N #define F77_incX incX + CBLAS_INT F77_iamax; #endif - F77_isamax_sub( &F77_N, X, &F77_incX, &iamax); - return iamax ? iamax-1 : 0; + F77_isamax_sub( &F77_N, X, &F77_incX, &F77_iamax ); + return ( F77_iamax > 0 ) + ? (CBLAS_INDEX)( F77_iamax-1 ) + : (CBLAS_INDEX) 0; } diff --git a/CBLAS/src/cblas_izamax.c b/CBLAS/src/cblas_izamax.c index 05eb6d54c4..c173e9d44e 100644 --- a/CBLAS/src/cblas_izamax.c +++ b/CBLAS/src/cblas_izamax.c @@ -9,15 +9,17 @@ */ #include "cblas.h" #include "cblas_f77.h" -CBLAS_INDEX cblas_izamax( const CBLAS_INDEX N, const void *X, const CBLAS_INDEX incX) +CBLAS_INDEX cblas_izamax( const CBLAS_INT N, const void *X, const CBLAS_INT incX) { - CBLAS_INDEX iamax; #ifdef F77_INT - F77_INT F77_N=N, F77_incX=incX; + F77_INT F77_N=N, F77_incX=incX, F77_iamax; #else #define F77_N N #define F77_incX incX + CBLAS_INT F77_iamax; #endif - F77_izamax_sub( &F77_N, X, &F77_incX, &iamax); - return (iamax ? iamax-1 : 0); + F77_izamax_sub( &F77_N, X, &F77_incX, &F77_iamax ); + return ( F77_iamax > 0 ) + ? (CBLAS_INDEX)( F77_iamax-1 ) + : (CBLAS_INDEX) 0; } diff --git a/CBLAS/src/cblas_sasum.c b/CBLAS/src/cblas_sasum.c index 41edc36a3e..091561ed5e 100644 --- a/CBLAS/src/cblas_sasum.c +++ b/CBLAS/src/cblas_sasum.c @@ -9,7 +9,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -float cblas_sasum( const CBLAS_INDEX N, const float *X, const CBLAS_INDEX incX) +float cblas_sasum( const CBLAS_INT N, const float *X, const CBLAS_INT incX) { float asum; #ifdef F77_INT diff --git a/CBLAS/src/cblas_saxpy.c b/CBLAS/src/cblas_saxpy.c index f6e5db47d3..2c56f499d6 100644 --- a/CBLAS/src/cblas_saxpy.c +++ b/CBLAS/src/cblas_saxpy.c @@ -9,8 +9,8 @@ */ #include "cblas.h" #include "cblas_f77.h" -void cblas_saxpy( const CBLAS_INDEX N, const float alpha, const float *X, - const CBLAS_INDEX incX, float *Y, const CBLAS_INDEX incY) +void cblas_saxpy( const CBLAS_INT N, const float alpha, const float *X, + const CBLAS_INT incX, float *Y, const CBLAS_INT incY) { #ifdef F77_INT F77_INT F77_N=N, F77_incX=incX, F77_incY=incY; diff --git a/CBLAS/src/cblas_scasum.c b/CBLAS/src/cblas_scasum.c index 85b090adb9..1f84efefd0 100644 --- a/CBLAS/src/cblas_scasum.c +++ b/CBLAS/src/cblas_scasum.c @@ -9,7 +9,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -float cblas_scasum( const CBLAS_INDEX N, const void *X, const CBLAS_INDEX incX) +float cblas_scasum( const CBLAS_INT N, const void *X, const CBLAS_INT incX) { float asum; #ifdef F77_INT diff --git a/CBLAS/src/cblas_scnrm2.c b/CBLAS/src/cblas_scnrm2.c index 07a360d74d..fd66915371 100644 --- a/CBLAS/src/cblas_scnrm2.c +++ b/CBLAS/src/cblas_scnrm2.c @@ -9,7 +9,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -float cblas_scnrm2( const CBLAS_INDEX N, const void *X, const CBLAS_INDEX incX) +float cblas_scnrm2( const CBLAS_INT N, const void *X, const CBLAS_INT incX) { float nrm2; #ifdef F77_INT diff --git a/CBLAS/src/cblas_scopy.c b/CBLAS/src/cblas_scopy.c index 8604817e56..24d3bf5860 100644 --- a/CBLAS/src/cblas_scopy.c +++ b/CBLAS/src/cblas_scopy.c @@ -8,8 +8,8 @@ */ #include "cblas.h" #include "cblas_f77.h" -void cblas_scopy( const CBLAS_INDEX N, const float *X, - const CBLAS_INDEX incX, float *Y, const CBLAS_INDEX incY) +void cblas_scopy( const CBLAS_INT N, const float *X, + const CBLAS_INT incX, float *Y, const CBLAS_INT incY) { #ifdef F77_INT F77_INT F77_N=N, F77_incX=incX, F77_incY=incY; diff --git a/CBLAS/src/cblas_sdot.c b/CBLAS/src/cblas_sdot.c index 4057c83e19..a263ae3c42 100644 --- a/CBLAS/src/cblas_sdot.c +++ b/CBLAS/src/cblas_sdot.c @@ -9,8 +9,8 @@ */ #include "cblas.h" #include "cblas_f77.h" -float cblas_sdot( const CBLAS_INDEX N, const float *X, - const CBLAS_INDEX incX, const float *Y, const CBLAS_INDEX incY) +float cblas_sdot( const CBLAS_INT N, const float *X, + const CBLAS_INT incX, const float *Y, const CBLAS_INT incY) { float dot; #ifdef F77_INT diff --git a/CBLAS/src/cblas_sdsdot.c b/CBLAS/src/cblas_sdsdot.c index 4967514bbc..48694f921e 100644 --- a/CBLAS/src/cblas_sdsdot.c +++ b/CBLAS/src/cblas_sdsdot.c @@ -9,8 +9,8 @@ */ #include "cblas.h" #include "cblas_f77.h" -float cblas_sdsdot( const CBLAS_INDEX N, const float alpha, const float *X, - const CBLAS_INDEX incX, const float *Y, const CBLAS_INDEX incY) +float cblas_sdsdot( const CBLAS_INT N, const float alpha, const float *X, + const CBLAS_INT incX, const float *Y, const CBLAS_INT incY) { float dot; #ifdef F77_INT diff --git a/CBLAS/src/cblas_sgbmv.c b/CBLAS/src/cblas_sgbmv.c index 189396c7e9..3889e5f6d6 100644 --- a/CBLAS/src/cblas_sgbmv.c +++ b/CBLAS/src/cblas_sgbmv.c @@ -10,11 +10,11 @@ #include "cblas.h" #include "cblas_f77.h" void cblas_sgbmv(const CBLAS_LAYOUT layout, - const CBLAS_TRANSPOSE TransA, const CBLAS_INDEX M, const CBLAS_INDEX N, - const CBLAS_INDEX KL, const CBLAS_INDEX KU, - const float alpha, const float *A, const CBLAS_INDEX lda, - const float *X, const CBLAS_INDEX incX, const float beta, - float *Y, const CBLAS_INDEX incY) + const CBLAS_TRANSPOSE TransA, const CBLAS_INT M, const CBLAS_INT N, + const CBLAS_INT KL, const CBLAS_INT KU, + const float alpha, const float *A, const CBLAS_INT lda, + const float *X, const CBLAS_INT incX, const float beta, + float *Y, const CBLAS_INT incY) { char TA; #ifdef F77_CHAR diff --git a/CBLAS/src/cblas_sgemm.c b/CBLAS/src/cblas_sgemm.c index 05d2efb1b1..99708a7d7f 100644 --- a/CBLAS/src/cblas_sgemm.c +++ b/CBLAS/src/cblas_sgemm.c @@ -10,10 +10,10 @@ #include "cblas.h" #include "cblas_f77.h" void cblas_sgemm(const CBLAS_LAYOUT layout, const CBLAS_TRANSPOSE TransA, - const CBLAS_TRANSPOSE TransB, const CBLAS_INDEX M, const CBLAS_INDEX N, - const CBLAS_INDEX K, const float alpha, const float *A, - const CBLAS_INDEX lda, const float *B, const CBLAS_INDEX ldb, - const float beta, float *C, const CBLAS_INDEX ldc) + const CBLAS_TRANSPOSE TransB, const CBLAS_INT M, const CBLAS_INT N, + const CBLAS_INT K, const float alpha, const float *A, + const CBLAS_INT lda, const float *B, const CBLAS_INT ldb, + const float beta, float *C, const CBLAS_INT ldc) { char TA, TB; #ifdef F77_CHAR diff --git a/CBLAS/src/cblas_sgemv.c b/CBLAS/src/cblas_sgemv.c index 45a56bac66..14beeb3414 100644 --- a/CBLAS/src/cblas_sgemv.c +++ b/CBLAS/src/cblas_sgemv.c @@ -9,10 +9,10 @@ #include "cblas.h" #include "cblas_f77.h" void cblas_sgemv(const CBLAS_LAYOUT layout, - const CBLAS_TRANSPOSE TransA, const CBLAS_INDEX M, const CBLAS_INDEX N, - const float alpha, const float *A, const CBLAS_INDEX lda, - const float *X, const CBLAS_INDEX incX, const float beta, - float *Y, const CBLAS_INDEX incY) + const CBLAS_TRANSPOSE TransA, const CBLAS_INT M, const CBLAS_INT N, + const float alpha, const float *A, const CBLAS_INT lda, + const float *X, const CBLAS_INT incX, const float beta, + float *Y, const CBLAS_INT incY) { char TA; #ifdef F77_CHAR diff --git a/CBLAS/src/cblas_sger.c b/CBLAS/src/cblas_sger.c index 289b928460..ddcdb1d670 100644 --- a/CBLAS/src/cblas_sger.c +++ b/CBLAS/src/cblas_sger.c @@ -9,9 +9,9 @@ #include "cblas.h" #include "cblas_f77.h" -void cblas_sger(const CBLAS_LAYOUT layout, const CBLAS_INDEX M, const CBLAS_INDEX N, - const float alpha, const float *X, const CBLAS_INDEX incX, - const float *Y, const CBLAS_INDEX incY, float *A, const CBLAS_INDEX lda) +void cblas_sger(const CBLAS_LAYOUT layout, const CBLAS_INT M, const CBLAS_INT N, + const float alpha, const float *X, const CBLAS_INT incX, + const float *Y, const CBLAS_INT incY, float *A, const CBLAS_INT lda) { #ifdef F77_INT F77_INT F77_M=M, F77_N=N, F77_lda=lda, F77_incX=incX, F77_incY=incY; diff --git a/CBLAS/src/cblas_snrm2.c b/CBLAS/src/cblas_snrm2.c index af8d6d92aa..a2c482bf13 100644 --- a/CBLAS/src/cblas_snrm2.c +++ b/CBLAS/src/cblas_snrm2.c @@ -9,7 +9,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -float cblas_snrm2( const CBLAS_INDEX N, const float *X, const CBLAS_INDEX incX) +float cblas_snrm2( const CBLAS_INT N, const float *X, const CBLAS_INT incX) { float nrm2; #ifdef F77_INT diff --git a/CBLAS/src/cblas_srot.c b/CBLAS/src/cblas_srot.c index 159e04e8e0..57fd38bbf7 100644 --- a/CBLAS/src/cblas_srot.c +++ b/CBLAS/src/cblas_srot.c @@ -8,8 +8,8 @@ */ #include "cblas.h" #include "cblas_f77.h" -void cblas_srot( const CBLAS_INDEX N, float *X, const CBLAS_INDEX incX, float *Y, - const CBLAS_INDEX incY, const float c, const float s) +void cblas_srot( const CBLAS_INT N, float *X, const CBLAS_INT incX, float *Y, + const CBLAS_INT incY, const float c, const float s) { #ifdef F77_INT F77_INT F77_N=N, F77_incX=incX, F77_incY=incY; diff --git a/CBLAS/src/cblas_srotm.c b/CBLAS/src/cblas_srotm.c index 7b8957b3f8..7de0970ce0 100644 --- a/CBLAS/src/cblas_srotm.c +++ b/CBLAS/src/cblas_srotm.c @@ -8,8 +8,8 @@ */ #include "cblas.h" #include "cblas_f77.h" -void cblas_srotm( const CBLAS_INDEX N, float *X, const CBLAS_INDEX incX, float *Y, - const CBLAS_INDEX incY, const float *P) +void cblas_srotm( const CBLAS_INT N, float *X, const CBLAS_INT incX, float *Y, + const CBLAS_INT incY, const float *P) { #ifdef F77_INT F77_INT F77_N=N, F77_incX=incX, F77_incY=incY; diff --git a/CBLAS/src/cblas_ssbmv.c b/CBLAS/src/cblas_ssbmv.c index 2b1a01b89e..eab4f7bcd7 100644 --- a/CBLAS/src/cblas_ssbmv.c +++ b/CBLAS/src/cblas_ssbmv.c @@ -9,9 +9,9 @@ #include "cblas.h" #include "cblas_f77.h" void cblas_ssbmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, - const CBLAS_INDEX N, const CBLAS_INDEX K, const float alpha, const float *A, - const CBLAS_INDEX lda, const float *X, const CBLAS_INDEX incX, - const float beta, float *Y, const CBLAS_INDEX incY) + const CBLAS_INT N, const CBLAS_INT K, const float alpha, const float *A, + const CBLAS_INT lda, const float *X, const CBLAS_INT incX, + const float beta, float *Y, const CBLAS_INT incY) { char UL; #ifdef F77_CHAR diff --git a/CBLAS/src/cblas_sscal.c b/CBLAS/src/cblas_sscal.c index f1635d789e..ad5af245ef 100644 --- a/CBLAS/src/cblas_sscal.c +++ b/CBLAS/src/cblas_sscal.c @@ -8,8 +8,8 @@ */ #include "cblas.h" #include "cblas_f77.h" -void cblas_sscal( const CBLAS_INDEX N, const float alpha, float *X, - const CBLAS_INDEX incX) +void cblas_sscal( const CBLAS_INT N, const float alpha, float *X, + const CBLAS_INT incX) { #ifdef F77_INT F77_INT F77_N=N, F77_incX=incX; diff --git a/CBLAS/src/cblas_sspmv.c b/CBLAS/src/cblas_sspmv.c index d40ac27c08..bd9de77e23 100644 --- a/CBLAS/src/cblas_sspmv.c +++ b/CBLAS/src/cblas_sspmv.c @@ -9,10 +9,10 @@ #include "cblas.h" #include "cblas_f77.h" void cblas_sspmv(const CBLAS_LAYOUT layout, - const CBLAS_UPLO Uplo, const CBLAS_INDEX N, + const CBLAS_UPLO Uplo, const CBLAS_INT N, const float alpha, const float *AP, - const float *X, const CBLAS_INDEX incX, const float beta, - float *Y, const CBLAS_INDEX incY) + const float *X, const CBLAS_INT incX, const float beta, + float *Y, const CBLAS_INT incY) { char UL; #ifdef F77_CHAR diff --git a/CBLAS/src/cblas_sspr.c b/CBLAS/src/cblas_sspr.c index a1f2d4fdd2..c24501ed99 100644 --- a/CBLAS/src/cblas_sspr.c +++ b/CBLAS/src/cblas_sspr.c @@ -10,8 +10,8 @@ #include "cblas.h" #include "cblas_f77.h" void cblas_sspr(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, - const CBLAS_INDEX N, const float alpha, const float *X, - const CBLAS_INDEX incX, float *Ap) + const CBLAS_INT N, const float alpha, const float *X, + const CBLAS_INT incX, float *Ap) { char UL; #ifdef F77_CHAR diff --git a/CBLAS/src/cblas_sspr2.c b/CBLAS/src/cblas_sspr2.c index 2b6d12380d..88b3bbc705 100644 --- a/CBLAS/src/cblas_sspr2.c +++ b/CBLAS/src/cblas_sspr2.c @@ -10,8 +10,8 @@ #include "cblas.h" #include "cblas_f77.h" void cblas_sspr2(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, - const CBLAS_INDEX N, const float alpha, const float *X, - const CBLAS_INDEX incX, const float *Y, const CBLAS_INDEX incY, float *A) + const CBLAS_INT N, const float alpha, const float *X, + const CBLAS_INT incX, const float *Y, const CBLAS_INT incY, float *A) { char UL; #ifdef F77_CHAR diff --git a/CBLAS/src/cblas_sswap.c b/CBLAS/src/cblas_sswap.c index 939a81cc59..222993786d 100644 --- a/CBLAS/src/cblas_sswap.c +++ b/CBLAS/src/cblas_sswap.c @@ -8,8 +8,8 @@ */ #include "cblas.h" #include "cblas_f77.h" -void cblas_sswap( const CBLAS_INDEX N, float *X, const CBLAS_INDEX incX, float *Y, - const CBLAS_INDEX incY) +void cblas_sswap( const CBLAS_INT N, float *X, const CBLAS_INT incX, float *Y, + const CBLAS_INT incY) { #ifdef F77_INT F77_INT F77_N=N, F77_incX=incX, F77_incY=incY; diff --git a/CBLAS/src/cblas_ssymm.c b/CBLAS/src/cblas_ssymm.c index 2fa6cb5dce..b70c09c46b 100644 --- a/CBLAS/src/cblas_ssymm.c +++ b/CBLAS/src/cblas_ssymm.c @@ -10,10 +10,10 @@ #include "cblas.h" #include "cblas_f77.h" void cblas_ssymm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, - const CBLAS_UPLO Uplo, const CBLAS_INDEX M, const CBLAS_INDEX N, - const float alpha, const float *A, const CBLAS_INDEX lda, - const float *B, const CBLAS_INDEX ldb, const float beta, - float *C, const CBLAS_INDEX ldc) + const CBLAS_UPLO Uplo, const CBLAS_INT M, const CBLAS_INT N, + const float alpha, const float *A, const CBLAS_INT lda, + const float *B, const CBLAS_INT ldb, const float beta, + float *C, const CBLAS_INT ldc) { char SD, UL; #ifdef F77_CHAR diff --git a/CBLAS/src/cblas_ssymv.c b/CBLAS/src/cblas_ssymv.c index ae56065c28..6a005c5487 100644 --- a/CBLAS/src/cblas_ssymv.c +++ b/CBLAS/src/cblas_ssymv.c @@ -10,10 +10,10 @@ #include "cblas.h" #include "cblas_f77.h" void cblas_ssymv(const CBLAS_LAYOUT layout, - const CBLAS_UPLO Uplo, const CBLAS_INDEX N, - const float alpha, const float *A, const CBLAS_INDEX lda, - const float *X, const CBLAS_INDEX incX, const float beta, - float *Y, const CBLAS_INDEX incY) + const CBLAS_UPLO Uplo, const CBLAS_INT N, + const float alpha, const float *A, const CBLAS_INT lda, + const float *X, const CBLAS_INT incX, const float beta, + float *Y, const CBLAS_INT incY) { char UL; #ifdef F77_CHAR diff --git a/CBLAS/src/cblas_ssyr.c b/CBLAS/src/cblas_ssyr.c index bc0446caa7..8b960fa99f 100644 --- a/CBLAS/src/cblas_ssyr.c +++ b/CBLAS/src/cblas_ssyr.c @@ -9,8 +9,8 @@ #include "cblas.h" #include "cblas_f77.h" void cblas_ssyr(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, - const CBLAS_INDEX N, const float alpha, const float *X, - const CBLAS_INDEX incX, float *A, const CBLAS_INDEX lda) + const CBLAS_INT N, const float alpha, const float *X, + const CBLAS_INT incX, float *A, const CBLAS_INT lda) { char UL; #ifdef F77_CHAR diff --git a/CBLAS/src/cblas_ssyr2.c b/CBLAS/src/cblas_ssyr2.c index 3af0897c5d..09512808ae 100644 --- a/CBLAS/src/cblas_ssyr2.c +++ b/CBLAS/src/cblas_ssyr2.c @@ -10,9 +10,9 @@ #include "cblas.h" #include "cblas_f77.h" void cblas_ssyr2(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, - const CBLAS_INDEX N, const float alpha, const float *X, - const CBLAS_INDEX incX, const float *Y, const CBLAS_INDEX incY, float *A, - const CBLAS_INDEX lda) + const CBLAS_INT N, const float alpha, const float *X, + const CBLAS_INT incX, const float *Y, const CBLAS_INT incY, float *A, + const CBLAS_INT lda) { char UL; #ifdef F77_CHAR diff --git a/CBLAS/src/cblas_ssyr2k.c b/CBLAS/src/cblas_ssyr2k.c index a98c85a1d4..1a375e5df3 100644 --- a/CBLAS/src/cblas_ssyr2k.c +++ b/CBLAS/src/cblas_ssyr2k.c @@ -10,10 +10,10 @@ #include "cblas.h" #include "cblas_f77.h" void cblas_ssyr2k(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, - const CBLAS_TRANSPOSE Trans, const CBLAS_INDEX N, const CBLAS_INDEX K, - const float alpha, const float *A, const CBLAS_INDEX lda, - const float *B, const CBLAS_INDEX ldb, const float beta, - float *C, const CBLAS_INDEX ldc) + const CBLAS_TRANSPOSE Trans, const CBLAS_INT N, const CBLAS_INT K, + const float alpha, const float *A, const CBLAS_INT lda, + const float *B, const CBLAS_INT ldb, const float beta, + float *C, const CBLAS_INT ldc) { char UL, TR; #ifdef F77_CHAR diff --git a/CBLAS/src/cblas_ssyrk.c b/CBLAS/src/cblas_ssyrk.c index db3fe7b25e..3a2373dd6a 100644 --- a/CBLAS/src/cblas_ssyrk.c +++ b/CBLAS/src/cblas_ssyrk.c @@ -10,9 +10,9 @@ #include "cblas.h" #include "cblas_f77.h" void cblas_ssyrk(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, - const CBLAS_TRANSPOSE Trans, const CBLAS_INDEX N, const CBLAS_INDEX K, - const float alpha, const float *A, const CBLAS_INDEX lda, - const float beta, float *C, const CBLAS_INDEX ldc) + const CBLAS_TRANSPOSE Trans, const CBLAS_INT N, const CBLAS_INT K, + const float alpha, const float *A, const CBLAS_INT lda, + const float beta, float *C, const CBLAS_INT ldc) { char UL, TR; #ifdef F77_CHAR diff --git a/CBLAS/src/cblas_stbmv.c b/CBLAS/src/cblas_stbmv.c index 861ecc9a0f..d89dbdd43c 100644 --- a/CBLAS/src/cblas_stbmv.c +++ b/CBLAS/src/cblas_stbmv.c @@ -9,8 +9,8 @@ void cblas_stbmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, const CBLAS_TRANSPOSE TransA, const CBLAS_DIAG Diag, - const CBLAS_INDEX N, const CBLAS_INDEX K, const float *A, const CBLAS_INDEX lda, - float *X, const CBLAS_INDEX incX) + const CBLAS_INT N, const CBLAS_INT K, const float *A, const CBLAS_INT lda, + float *X, const CBLAS_INT incX) { char TA; char UL; diff --git a/CBLAS/src/cblas_stbsv.c b/CBLAS/src/cblas_stbsv.c index 797b5126fc..296db6f953 100644 --- a/CBLAS/src/cblas_stbsv.c +++ b/CBLAS/src/cblas_stbsv.c @@ -9,8 +9,8 @@ #include "cblas_f77.h" void cblas_stbsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, const CBLAS_TRANSPOSE TransA, const CBLAS_DIAG Diag, - const CBLAS_INDEX N, const CBLAS_INDEX K, const float *A, const CBLAS_INDEX lda, - float *X, const CBLAS_INDEX incX) + const CBLAS_INT N, const CBLAS_INT K, const float *A, const CBLAS_INT lda, + float *X, const CBLAS_INT incX) { char TA; char UL; diff --git a/CBLAS/src/cblas_stpmv.c b/CBLAS/src/cblas_stpmv.c index f0544cd15d..22f9f6b6fd 100644 --- a/CBLAS/src/cblas_stpmv.c +++ b/CBLAS/src/cblas_stpmv.c @@ -10,7 +10,7 @@ #include "cblas_f77.h" void cblas_stpmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, const CBLAS_TRANSPOSE TransA, const CBLAS_DIAG Diag, - const CBLAS_INDEX N, const float *Ap, float *X, const CBLAS_INDEX incX) + const CBLAS_INT N, const float *Ap, float *X, const CBLAS_INT incX) { char TA; char UL; diff --git a/CBLAS/src/cblas_stpsv.c b/CBLAS/src/cblas_stpsv.c index 0c4d181a0f..aa3cec9a3b 100644 --- a/CBLAS/src/cblas_stpsv.c +++ b/CBLAS/src/cblas_stpsv.c @@ -9,7 +9,7 @@ #include "cblas_f77.h" void cblas_stpsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, const CBLAS_TRANSPOSE TransA, const CBLAS_DIAG Diag, - const CBLAS_INDEX N, const float *Ap, float *X, const CBLAS_INDEX incX) + const CBLAS_INT N, const float *Ap, float *X, const CBLAS_INT incX) { char TA; char UL; diff --git a/CBLAS/src/cblas_strmm.c b/CBLAS/src/cblas_strmm.c index aee56f3f91..658e46f42f 100644 --- a/CBLAS/src/cblas_strmm.c +++ b/CBLAS/src/cblas_strmm.c @@ -11,9 +11,9 @@ #include "cblas_f77.h" void cblas_strmm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, const CBLAS_UPLO Uplo, const CBLAS_TRANSPOSE TransA, - const CBLAS_DIAG Diag, const CBLAS_INDEX M, const CBLAS_INDEX N, - const float alpha, const float *A, const CBLAS_INDEX lda, - float *B, const CBLAS_INDEX ldb) + const CBLAS_DIAG Diag, const CBLAS_INT M, const CBLAS_INT N, + const float alpha, const float *A, const CBLAS_INT lda, + float *B, const CBLAS_INT ldb) { char UL, TA, SD, DI; #ifdef F77_CHAR diff --git a/CBLAS/src/cblas_strmv.c b/CBLAS/src/cblas_strmv.c index 8a72edb244..57f1841b89 100644 --- a/CBLAS/src/cblas_strmv.c +++ b/CBLAS/src/cblas_strmv.c @@ -10,8 +10,8 @@ #include "cblas_f77.h" void cblas_strmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, const CBLAS_TRANSPOSE TransA, const CBLAS_DIAG Diag, - const CBLAS_INDEX N, const float *A, const CBLAS_INDEX lda, - float *X, const CBLAS_INDEX incX) + const CBLAS_INT N, const float *A, const CBLAS_INT lda, + float *X, const CBLAS_INT incX) { char TA; diff --git a/CBLAS/src/cblas_strsm.c b/CBLAS/src/cblas_strsm.c index 9994a5751c..b5811758c8 100644 --- a/CBLAS/src/cblas_strsm.c +++ b/CBLAS/src/cblas_strsm.c @@ -11,9 +11,9 @@ #include "cblas_f77.h" void cblas_strsm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, const CBLAS_UPLO Uplo, const CBLAS_TRANSPOSE TransA, - const CBLAS_DIAG Diag, const CBLAS_INDEX M, const CBLAS_INDEX N, - const float alpha, const float *A, const CBLAS_INDEX lda, - float *B, const CBLAS_INDEX ldb) + const CBLAS_DIAG Diag, const CBLAS_INT M, const CBLAS_INT N, + const float alpha, const float *A, const CBLAS_INT lda, + float *B, const CBLAS_INT ldb) { char UL, TA, SD, DI; diff --git a/CBLAS/src/cblas_strsv.c b/CBLAS/src/cblas_strsv.c index 59d42ed063..cb1b7cbf7c 100644 --- a/CBLAS/src/cblas_strsv.c +++ b/CBLAS/src/cblas_strsv.c @@ -9,8 +9,8 @@ #include "cblas_f77.h" void cblas_strsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, const CBLAS_TRANSPOSE TransA, const CBLAS_DIAG Diag, - const CBLAS_INDEX N, const float *A, const CBLAS_INDEX lda, float *X, - const CBLAS_INDEX incX) + const CBLAS_INT N, const float *A, const CBLAS_INT lda, float *X, + const CBLAS_INT incX) { char TA; diff --git a/CBLAS/src/cblas_xerbla.c b/CBLAS/src/cblas_xerbla.c index f3927436f9..6a24d2f77b 100644 --- a/CBLAS/src/cblas_xerbla.c +++ b/CBLAS/src/cblas_xerbla.c @@ -9,7 +9,7 @@ void #ifdef HAS_ATTRIBUTE_WEAK_SUPPORT __attribute__((weak)) #endif -cblas_xerbla(CBLAS_INDEX info, const char *rout, const char *form, ...) +cblas_xerbla(CBLAS_INT info, const char *rout, const char *form, ...) { extern int RowMajorStrg; char empty[1] = ""; diff --git a/CBLAS/src/cblas_zaxpy.c b/CBLAS/src/cblas_zaxpy.c index 76b0b820a3..5ea07904c7 100644 --- a/CBLAS/src/cblas_zaxpy.c +++ b/CBLAS/src/cblas_zaxpy.c @@ -8,8 +8,8 @@ */ #include "cblas.h" #include "cblas_f77.h" -void cblas_zaxpy( const CBLAS_INDEX N, const void *alpha, const void *X, - const CBLAS_INDEX incX, void *Y, const CBLAS_INDEX incY) +void cblas_zaxpy( const CBLAS_INT N, const void *alpha, const void *X, + const CBLAS_INT incX, void *Y, const CBLAS_INT incY) { #ifdef F77_INT F77_INT F77_N=N, F77_incX=incX, F77_incY=incY; diff --git a/CBLAS/src/cblas_zcopy.c b/CBLAS/src/cblas_zcopy.c index 4029daa09e..8524cbed8a 100644 --- a/CBLAS/src/cblas_zcopy.c +++ b/CBLAS/src/cblas_zcopy.c @@ -8,8 +8,8 @@ */ #include "cblas.h" #include "cblas_f77.h" -void cblas_zcopy( const CBLAS_INDEX N, const void *X, - const CBLAS_INDEX incX, void *Y, const CBLAS_INDEX incY) +void cblas_zcopy( const CBLAS_INT N, const void *X, + const CBLAS_INT incX, void *Y, const CBLAS_INT incY) { #ifdef F77_INT F77_INT F77_N=N, F77_incX=incX, F77_incY=incY; diff --git a/CBLAS/src/cblas_zdotc_sub.c b/CBLAS/src/cblas_zdotc_sub.c index 22e211a359..0e9f35dec4 100644 --- a/CBLAS/src/cblas_zdotc_sub.c +++ b/CBLAS/src/cblas_zdotc_sub.c @@ -9,8 +9,8 @@ */ #include "cblas.h" #include "cblas_f77.h" -void cblas_zdotc_sub( const CBLAS_INDEX N, const void *X, const CBLAS_INDEX incX, - const void *Y, const CBLAS_INDEX incY, void *dotc) +void cblas_zdotc_sub( const CBLAS_INT N, const void *X, const CBLAS_INT incX, + const void *Y, const CBLAS_INT incY, void *dotc) { #ifdef F77_INT F77_INT F77_N=N, F77_incX=incX, F77_incY=incY; diff --git a/CBLAS/src/cblas_zdotu_sub.c b/CBLAS/src/cblas_zdotu_sub.c index 575c0dd713..cf575bcd7c 100644 --- a/CBLAS/src/cblas_zdotu_sub.c +++ b/CBLAS/src/cblas_zdotu_sub.c @@ -9,8 +9,8 @@ */ #include "cblas.h" #include "cblas_f77.h" -void cblas_zdotu_sub( const CBLAS_INDEX N, const void *X, const CBLAS_INDEX incX, - const void *Y, const CBLAS_INDEX incY, void *dotu) +void cblas_zdotu_sub( const CBLAS_INT N, const void *X, const CBLAS_INT incX, + const void *Y, const CBLAS_INT incY, void *dotu) { #ifdef F77_INT F77_INT F77_N=N, F77_incX=incX, F77_incY=incY; diff --git a/CBLAS/src/cblas_zdscal.c b/CBLAS/src/cblas_zdscal.c index c1aca22f33..a365b02af0 100644 --- a/CBLAS/src/cblas_zdscal.c +++ b/CBLAS/src/cblas_zdscal.c @@ -8,8 +8,8 @@ */ #include "cblas.h" #include "cblas_f77.h" -void cblas_zdscal( const CBLAS_INDEX N, const double alpha, void *X, - const CBLAS_INDEX incX) +void cblas_zdscal( const CBLAS_INT N, const double alpha, void *X, + const CBLAS_INT incX) { #ifdef F77_INT F77_INT F77_N=N, F77_incX=incX; diff --git a/CBLAS/src/cblas_zgbmv.c b/CBLAS/src/cblas_zgbmv.c index b90945c5f5..0d0b3427f0 100644 --- a/CBLAS/src/cblas_zgbmv.c +++ b/CBLAS/src/cblas_zgbmv.c @@ -10,11 +10,11 @@ #include "cblas.h" #include "cblas_f77.h" void cblas_zgbmv(const CBLAS_LAYOUT layout, - const CBLAS_TRANSPOSE TransA, const CBLAS_INDEX M, const CBLAS_INDEX N, - const CBLAS_INDEX KL, const CBLAS_INDEX KU, - const void *alpha, const void *A, const CBLAS_INDEX lda, - const void *X, const CBLAS_INDEX incX, const void *beta, - void *Y, const CBLAS_INDEX incY) + const CBLAS_TRANSPOSE TransA, const CBLAS_INT M, const CBLAS_INT N, + const CBLAS_INT KL, const CBLAS_INT KU, + const void *alpha, const void *A, const CBLAS_INT lda, + const void *X, const CBLAS_INT incX, const void *beta, + void *Y, const CBLAS_INT incY) { char TA; #ifdef F77_CHAR @@ -34,10 +34,10 @@ void cblas_zgbmv(const CBLAS_LAYOUT layout, #define F77_incX incx #define F77_incY incY #endif - CBLAS_INDEX n, i=0, incx=incX; + CBLAS_INT n, i=0, incx=incX; const double *xx= (double *)X, *alp= (double *)alpha, *bet = (double *)beta; double ALPHA[2],BETA[2]; - CBLAS_INDEX tincY, tincx; + CBLAS_INT tincY, tincx; double *x=(double *)X, *y=(double *)Y, *st=0, *tx; extern int CBLAS_CallFromC; extern int RowMajorStrg; diff --git a/CBLAS/src/cblas_zgemm.c b/CBLAS/src/cblas_zgemm.c index d1f3905118..38c9cfb60f 100644 --- a/CBLAS/src/cblas_zgemm.c +++ b/CBLAS/src/cblas_zgemm.c @@ -10,10 +10,10 @@ #include "cblas.h" #include "cblas_f77.h" void cblas_zgemm(const CBLAS_LAYOUT layout, const CBLAS_TRANSPOSE TransA, - const CBLAS_TRANSPOSE TransB, const CBLAS_INDEX M, const CBLAS_INDEX N, - const CBLAS_INDEX K, const void *alpha, const void *A, - const CBLAS_INDEX lda, const void *B, const CBLAS_INDEX ldb, - const void *beta, void *C, const CBLAS_INDEX ldc) + const CBLAS_TRANSPOSE TransB, const CBLAS_INT M, const CBLAS_INT N, + const CBLAS_INT K, const void *alpha, const void *A, + const CBLAS_INT lda, const void *B, const CBLAS_INT ldb, + const void *beta, void *C, const CBLAS_INT ldc) { char TA, TB; #ifdef F77_CHAR diff --git a/CBLAS/src/cblas_zgemv.c b/CBLAS/src/cblas_zgemv.c index 52d839be4b..c3d8a9f5d0 100644 --- a/CBLAS/src/cblas_zgemv.c +++ b/CBLAS/src/cblas_zgemv.c @@ -10,10 +10,10 @@ #include "cblas.h" #include "cblas_f77.h" void cblas_zgemv(const CBLAS_LAYOUT layout, - const CBLAS_TRANSPOSE TransA, const CBLAS_INDEX M, const CBLAS_INDEX N, - const void *alpha, const void *A, const CBLAS_INDEX lda, - const void *X, const CBLAS_INDEX incX, const void *beta, - void *Y, const CBLAS_INDEX incY) + const CBLAS_TRANSPOSE TransA, const CBLAS_INT M, const CBLAS_INT N, + const void *alpha, const void *A, const CBLAS_INT lda, + const void *X, const CBLAS_INT incX, const void *beta, + void *Y, const CBLAS_INT incY) { char TA; #ifdef F77_CHAR @@ -31,10 +31,10 @@ void cblas_zgemv(const CBLAS_LAYOUT layout, #define F77_incY incY #endif - CBLAS_INDEX n, i=0, incx=incX; + CBLAS_INT n, i=0, incx=incX; const double *xx= (double *)X, *alp= (double *)alpha, *bet = (double *)beta; double ALPHA[2],BETA[2]; - CBLAS_INDEX tincY, tincx; + CBLAS_INT tincY, tincx; double *x=(double *)X, *y=(double *)Y, *st=0, *tx; extern int CBLAS_CallFromC; extern int RowMajorStrg; diff --git a/CBLAS/src/cblas_zgerc.c b/CBLAS/src/cblas_zgerc.c index 6a880a47a3..0e3f8afcb5 100644 --- a/CBLAS/src/cblas_zgerc.c +++ b/CBLAS/src/cblas_zgerc.c @@ -9,9 +9,9 @@ #include #include "cblas.h" #include "cblas_f77.h" -void cblas_zgerc(const CBLAS_LAYOUT layout, const CBLAS_INDEX M, const CBLAS_INDEX N, - const void *alpha, const void *X, const CBLAS_INDEX incX, - const void *Y, const CBLAS_INDEX incY, void *A, const CBLAS_INDEX lda) +void cblas_zgerc(const CBLAS_LAYOUT layout, const CBLAS_INT M, const CBLAS_INT N, + const void *alpha, const void *X, const CBLAS_INT incX, + const void *Y, const CBLAS_INT incY, void *A, const CBLAS_INT lda) { #ifdef F77_INT F77_INT F77_M=M, F77_N=N, F77_lda=lda, F77_incX=incX, F77_incY=incY; @@ -23,7 +23,7 @@ void cblas_zgerc(const CBLAS_LAYOUT layout, const CBLAS_INDEX M, const CBLAS_IND #define F77_lda lda #endif - CBLAS_INDEX n, i, tincy, incy=incY; + CBLAS_INT n, i, tincy, incy=incY; double *y=(double *)Y, *yy=(double *)Y, *ty, *st; extern int CBLAS_CallFromC; diff --git a/CBLAS/src/cblas_zgeru.c b/CBLAS/src/cblas_zgeru.c index c7aabb3829..424f1f3e70 100644 --- a/CBLAS/src/cblas_zgeru.c +++ b/CBLAS/src/cblas_zgeru.c @@ -7,9 +7,9 @@ */ #include "cblas.h" #include "cblas_f77.h" -void cblas_zgeru(const CBLAS_LAYOUT layout, const CBLAS_INDEX M, const CBLAS_INDEX N, - const void *alpha, const void *X, const CBLAS_INDEX incX, - const void *Y, const CBLAS_INDEX incY, void *A, const CBLAS_INDEX lda) +void cblas_zgeru(const CBLAS_LAYOUT layout, const CBLAS_INT M, const CBLAS_INT N, + const void *alpha, const void *X, const CBLAS_INT incX, + const void *Y, const CBLAS_INT incY, void *A, const CBLAS_INT lda) { #ifdef F77_INT F77_INT F77_M=M, F77_N=N, F77_lda=lda, F77_incX=incX, F77_incY=incY; diff --git a/CBLAS/src/cblas_zhbmv.c b/CBLAS/src/cblas_zhbmv.c index edb2133102..c97ae7cddd 100644 --- a/CBLAS/src/cblas_zhbmv.c +++ b/CBLAS/src/cblas_zhbmv.c @@ -10,10 +10,10 @@ #include #include void cblas_zhbmv(const CBLAS_LAYOUT layout, - const CBLAS_UPLO Uplo,const CBLAS_INDEX N,const CBLAS_INDEX K, - const void *alpha, const void *A, const CBLAS_INDEX lda, - const void *X, const CBLAS_INDEX incX, const void *beta, - void *Y, const CBLAS_INDEX incY) + const CBLAS_UPLO Uplo,const CBLAS_INT N,const CBLAS_INT K, + const void *alpha, const void *A, const CBLAS_INT lda, + const void *X, const CBLAS_INT incX, const void *beta, + void *Y, const CBLAS_INT incY) { char UL; #ifdef F77_CHAR @@ -30,10 +30,10 @@ void cblas_zhbmv(const CBLAS_LAYOUT layout, #define F77_incX incx #define F77_incY incY #endif - CBLAS_INDEX n, i=0, incx=incX; + CBLAS_INT n, i=0, incx=incX; const double *xx= (double *)X, *alp= (double *)alpha, *bet = (double *)beta; double ALPHA[2],BETA[2]; - CBLAS_INDEX tincY, tincx; + CBLAS_INT tincY, tincx; double *x=(double *)X, *y=(double *)Y, *st=0, *tx; extern int CBLAS_CallFromC; extern int RowMajorStrg; diff --git a/CBLAS/src/cblas_zhemm.c b/CBLAS/src/cblas_zhemm.c index 8888d3a04d..be41d471af 100644 --- a/CBLAS/src/cblas_zhemm.c +++ b/CBLAS/src/cblas_zhemm.c @@ -10,10 +10,10 @@ #include "cblas.h" #include "cblas_f77.h" void cblas_zhemm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, - const CBLAS_UPLO Uplo, const CBLAS_INDEX M, const CBLAS_INDEX N, - const void *alpha, const void *A, const CBLAS_INDEX lda, - const void *B, const CBLAS_INDEX ldb, const void *beta, - void *C, const CBLAS_INDEX ldc) + const CBLAS_UPLO Uplo, const CBLAS_INT M, const CBLAS_INT N, + const void *alpha, const void *A, const CBLAS_INT lda, + const void *B, const CBLAS_INT ldb, const void *beta, + void *C, const CBLAS_INT ldc) { char SD, UL; #ifdef F77_CHAR diff --git a/CBLAS/src/cblas_zhemv.c b/CBLAS/src/cblas_zhemv.c index aa52011804..c123ba25f3 100644 --- a/CBLAS/src/cblas_zhemv.c +++ b/CBLAS/src/cblas_zhemv.c @@ -10,10 +10,10 @@ #include "cblas.h" #include "cblas_f77.h" void cblas_zhemv(const CBLAS_LAYOUT layout, - const CBLAS_UPLO Uplo, const CBLAS_INDEX N, - const void *alpha, const void *A, const CBLAS_INDEX lda, - const void *X, const CBLAS_INDEX incX, const void *beta, - void *Y, const CBLAS_INDEX incY) + const CBLAS_UPLO Uplo, const CBLAS_INT N, + const void *alpha, const void *A, const CBLAS_INT lda, + const void *X, const CBLAS_INT incX, const void *beta, + void *Y, const CBLAS_INT incY) { char UL; #ifdef F77_CHAR @@ -29,10 +29,10 @@ void cblas_zhemv(const CBLAS_LAYOUT layout, #define F77_incX incx #define F77_incY incY #endif - CBLAS_INDEX n, i=0, incx=incX; + CBLAS_INT n, i=0, incx=incX; const double *xx= (double *)X, *alp= (double *)alpha, *bet = (double *)beta; double ALPHA[2],BETA[2]; - CBLAS_INDEX tincY, tincx; + CBLAS_INT tincY, tincx; double *x=(double *)X, *y=(double *)Y, *st=0, *tx; extern int CBLAS_CallFromC; extern int RowMajorStrg; diff --git a/CBLAS/src/cblas_zher.c b/CBLAS/src/cblas_zher.c index 6e4f63fde0..196d735fd5 100644 --- a/CBLAS/src/cblas_zher.c +++ b/CBLAS/src/cblas_zher.c @@ -10,8 +10,8 @@ #include "cblas.h" #include "cblas_f77.h" void cblas_zher(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, - const CBLAS_INDEX N, const double alpha, const void *X, const CBLAS_INDEX incX - ,void *A, const CBLAS_INDEX lda) + const CBLAS_INT N, const double alpha, const void *X, const CBLAS_INT incX + ,void *A, const CBLAS_INT lda) { char UL; #ifdef F77_CHAR @@ -27,7 +27,7 @@ void cblas_zher(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, #define F77_lda lda #define F77_incX incx #endif - CBLAS_INDEX n, i, tincx, incx=incX; + CBLAS_INT n, i, tincx, incx=incX; double *x=(double *)X, *xx=(double *)X, *tx, *st; extern int CBLAS_CallFromC; diff --git a/CBLAS/src/cblas_zher2.c b/CBLAS/src/cblas_zher2.c index 09551a418d..6cf2f7d776 100644 --- a/CBLAS/src/cblas_zher2.c +++ b/CBLAS/src/cblas_zher2.c @@ -10,8 +10,8 @@ #include "cblas.h" #include "cblas_f77.h" void cblas_zher2(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, - const CBLAS_INDEX N, const void *alpha, const void *X, const CBLAS_INDEX incX, - const void *Y, const CBLAS_INDEX incY, void *A, const CBLAS_INDEX lda) + const CBLAS_INT N, const void *alpha, const void *X, const CBLAS_INT incX, + const void *Y, const CBLAS_INT incY, void *A, const CBLAS_INT lda) { char UL; #ifdef F77_CHAR @@ -28,7 +28,7 @@ void cblas_zher2(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, #define F77_incX incx #define F77_incY incy #endif - CBLAS_INDEX n, i, j, tincx, tincy, incx=incX, incy=incY; + CBLAS_INT 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; diff --git a/CBLAS/src/cblas_zher2k.c b/CBLAS/src/cblas_zher2k.c index 6a14d74aa5..2c741ae07c 100644 --- a/CBLAS/src/cblas_zher2k.c +++ b/CBLAS/src/cblas_zher2k.c @@ -10,10 +10,10 @@ #include "cblas.h" #include "cblas_f77.h" void cblas_zher2k(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, - const CBLAS_TRANSPOSE Trans, const CBLAS_INDEX N, const CBLAS_INDEX K, - const void *alpha, const void *A, const CBLAS_INDEX lda, - const void *B, const CBLAS_INDEX ldb, const double beta, - void *C, const CBLAS_INDEX ldc) + const CBLAS_TRANSPOSE Trans, const CBLAS_INT N, const CBLAS_INT K, + const void *alpha, const void *A, const CBLAS_INT lda, + const void *B, const CBLAS_INT ldb, const double beta, + void *C, const CBLAS_INT ldc) { char UL, TR; #ifdef F77_CHAR diff --git a/CBLAS/src/cblas_zherk.c b/CBLAS/src/cblas_zherk.c index 67ed4c1931..52a7bc222f 100644 --- a/CBLAS/src/cblas_zherk.c +++ b/CBLAS/src/cblas_zherk.c @@ -10,9 +10,9 @@ #include "cblas.h" #include "cblas_f77.h" void cblas_zherk(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, - const CBLAS_TRANSPOSE Trans, const CBLAS_INDEX N, const CBLAS_INDEX K, - const double alpha, const void *A, const CBLAS_INDEX lda, - const double beta, void *C, const CBLAS_INDEX ldc) + const CBLAS_TRANSPOSE Trans, const CBLAS_INT N, const CBLAS_INT K, + const double alpha, const void *A, const CBLAS_INT lda, + const double beta, void *C, const CBLAS_INT ldc) { char UL, TR; #ifdef F77_CHAR diff --git a/CBLAS/src/cblas_zhpmv.c b/CBLAS/src/cblas_zhpmv.c index 048716eb0a..325e9fc8ad 100644 --- a/CBLAS/src/cblas_zhpmv.c +++ b/CBLAS/src/cblas_zhpmv.c @@ -10,10 +10,10 @@ #include "cblas.h" #include "cblas_f77.h" void cblas_zhpmv(const CBLAS_LAYOUT layout, - const CBLAS_UPLO Uplo,const CBLAS_INDEX N, + const CBLAS_UPLO Uplo,const CBLAS_INT N, const void *alpha, const void *AP, - const void *X, const CBLAS_INDEX incX, const void *beta, - void *Y, const CBLAS_INDEX incY) + const void *X, const CBLAS_INT incX, const void *beta, + void *Y, const CBLAS_INT incY) { char UL; #ifdef F77_CHAR @@ -28,10 +28,10 @@ void cblas_zhpmv(const CBLAS_LAYOUT layout, #define F77_incX incx #define F77_incY incY #endif - CBLAS_INDEX n, i=0, incx=incX; + CBLAS_INT n, i=0, incx=incX; const double *xx= (double *)X, *alp= (double *)alpha, *bet = (double *)beta; double ALPHA[2],BETA[2]; - CBLAS_INDEX tincY, tincx; + CBLAS_INT tincY, tincx; double *x=(double *)X, *y=(double *)Y, *st=0, *tx; extern int CBLAS_CallFromC; extern int RowMajorStrg; diff --git a/CBLAS/src/cblas_zhpr.c b/CBLAS/src/cblas_zhpr.c index 5aa962a5d4..a938df595d 100644 --- a/CBLAS/src/cblas_zhpr.c +++ b/CBLAS/src/cblas_zhpr.c @@ -10,8 +10,8 @@ #include "cblas.h" #include "cblas_f77.h" void cblas_zhpr(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, - const CBLAS_INDEX N, const double alpha, const void *X, - const CBLAS_INDEX incX, void *A) + const CBLAS_INT N, const double alpha, const void *X, + const CBLAS_INT incX, void *A) { char UL; #ifdef F77_CHAR @@ -26,7 +26,7 @@ void cblas_zhpr(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, #define F77_N N #define F77_incX incx #endif - CBLAS_INDEX n, i, tincx, incx=incX; + CBLAS_INT n, i, tincx, incx=incX; double *x=(double *)X, *xx=(double *)X, *tx, *st; extern int CBLAS_CallFromC; diff --git a/CBLAS/src/cblas_zhpr2.c b/CBLAS/src/cblas_zhpr2.c index 9fe104c604..c26d7d9253 100644 --- a/CBLAS/src/cblas_zhpr2.c +++ b/CBLAS/src/cblas_zhpr2.c @@ -10,8 +10,8 @@ #include "cblas.h" #include "cblas_f77.h" void cblas_zhpr2(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, - const CBLAS_INDEX N,const void *alpha, const void *X, - const CBLAS_INDEX incX,const void *Y, const CBLAS_INDEX incY, void *Ap) + const CBLAS_INT N,const void *alpha, const void *X, + const CBLAS_INT incX,const void *Y, const CBLAS_INT incY, void *Ap) { char UL; @@ -28,7 +28,7 @@ void cblas_zhpr2(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, #define F77_incX incx #define F77_incY incy #endif - CBLAS_INDEX n, i, j, incx=incX, incy=incY; + CBLAS_INT n, i, j, incx=incX, incy=incY; double *x=(double *)X, *xx=(double *)X, *y=(double *)Y, *yy=(double *)Y, *stx, *sty; diff --git a/CBLAS/src/cblas_zscal.c b/CBLAS/src/cblas_zscal.c index b5340b2a4c..b93886fcdf 100644 --- a/CBLAS/src/cblas_zscal.c +++ b/CBLAS/src/cblas_zscal.c @@ -8,8 +8,8 @@ */ #include "cblas.h" #include "cblas_f77.h" -void cblas_zscal( const CBLAS_INDEX N, const void *alpha, void *X, - const CBLAS_INDEX incX) +void cblas_zscal( const CBLAS_INT N, const void *alpha, void *X, + const CBLAS_INT incX) { #ifdef F77_INT F77_INT F77_N=N, F77_incX=incX; diff --git a/CBLAS/src/cblas_zswap.c b/CBLAS/src/cblas_zswap.c index 5154d22a48..9cf8691482 100644 --- a/CBLAS/src/cblas_zswap.c +++ b/CBLAS/src/cblas_zswap.c @@ -8,8 +8,8 @@ */ #include "cblas.h" #include "cblas_f77.h" -void cblas_zswap( const CBLAS_INDEX N, void *X, const CBLAS_INDEX incX, void *Y, - const CBLAS_INDEX incY) +void cblas_zswap( const CBLAS_INT N, void *X, const CBLAS_INT incX, void *Y, + const CBLAS_INT incY) { #ifdef F77_INT F77_INT F77_N=N, F77_incX=incX, F77_incY=incY; diff --git a/CBLAS/src/cblas_zsymm.c b/CBLAS/src/cblas_zsymm.c index 2519e72d35..f66e2470e4 100644 --- a/CBLAS/src/cblas_zsymm.c +++ b/CBLAS/src/cblas_zsymm.c @@ -10,10 +10,10 @@ #include "cblas.h" #include "cblas_f77.h" void cblas_zsymm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, - const CBLAS_UPLO Uplo, const CBLAS_INDEX M, const CBLAS_INDEX N, - const void *alpha, const void *A, const CBLAS_INDEX lda, - const void *B, const CBLAS_INDEX ldb, const void *beta, - void *C, const CBLAS_INDEX ldc) + const CBLAS_UPLO Uplo, const CBLAS_INT M, const CBLAS_INT N, + const void *alpha, const void *A, const CBLAS_INT lda, + const void *B, const CBLAS_INT ldb, const void *beta, + void *C, const CBLAS_INT ldc) { char SD, UL; #ifdef F77_CHAR diff --git a/CBLAS/src/cblas_zsyr2k.c b/CBLAS/src/cblas_zsyr2k.c index 691bea0c8d..3c490268d3 100644 --- a/CBLAS/src/cblas_zsyr2k.c +++ b/CBLAS/src/cblas_zsyr2k.c @@ -10,10 +10,10 @@ #include "cblas.h" #include "cblas_f77.h" void cblas_zsyr2k(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, - const CBLAS_TRANSPOSE Trans, const CBLAS_INDEX N, const CBLAS_INDEX K, - const void *alpha, const void *A, const CBLAS_INDEX lda, - const void *B, const CBLAS_INDEX ldb, const void *beta, - void *C, const CBLAS_INDEX ldc) + const CBLAS_TRANSPOSE Trans, const CBLAS_INT N, const CBLAS_INT K, + const void *alpha, const void *A, const CBLAS_INT lda, + const void *B, const CBLAS_INT ldb, const void *beta, + void *C, const CBLAS_INT ldc) { char UL, TR; #ifdef F77_CHAR diff --git a/CBLAS/src/cblas_zsyrk.c b/CBLAS/src/cblas_zsyrk.c index 0817c4fc80..2d5f3394bf 100644 --- a/CBLAS/src/cblas_zsyrk.c +++ b/CBLAS/src/cblas_zsyrk.c @@ -10,9 +10,9 @@ #include "cblas.h" #include "cblas_f77.h" void cblas_zsyrk(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, - const CBLAS_TRANSPOSE Trans, const CBLAS_INDEX N, const CBLAS_INDEX K, - const void *alpha, const void *A, const CBLAS_INDEX lda, - const void *beta, void *C, const CBLAS_INDEX ldc) + const CBLAS_TRANSPOSE Trans, const CBLAS_INT N, const CBLAS_INT K, + const void *alpha, const void *A, const CBLAS_INT lda, + const void *beta, void *C, const CBLAS_INT ldc) { char UL, TR; #ifdef F77_CHAR diff --git a/CBLAS/src/cblas_ztbmv.c b/CBLAS/src/cblas_ztbmv.c index db05507ffc..437f40c882 100644 --- a/CBLAS/src/cblas_ztbmv.c +++ b/CBLAS/src/cblas_ztbmv.c @@ -9,8 +9,8 @@ #include "cblas_f77.h" void cblas_ztbmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, const CBLAS_TRANSPOSE TransA, const CBLAS_DIAG Diag, - const CBLAS_INDEX N, const CBLAS_INDEX K, const void *A, const CBLAS_INDEX lda, - void *X, const CBLAS_INDEX incX) + const CBLAS_INT N, const CBLAS_INT K, const void *A, const CBLAS_INT lda, + void *X, const CBLAS_INT incX) { char TA; char UL; @@ -30,7 +30,7 @@ void cblas_ztbmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, #define F77_lda lda #define F77_incX incX #endif - CBLAS_INDEX n, i=0, tincX; + CBLAS_INT n, i=0, tincX; double *st=0, *x=(double *)X; extern int CBLAS_CallFromC; extern int RowMajorStrg; diff --git a/CBLAS/src/cblas_ztbsv.c b/CBLAS/src/cblas_ztbsv.c index 44214f92c5..1e286bf90d 100644 --- a/CBLAS/src/cblas_ztbsv.c +++ b/CBLAS/src/cblas_ztbsv.c @@ -9,8 +9,8 @@ #include "cblas_f77.h" void cblas_ztbsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, const CBLAS_TRANSPOSE TransA, const CBLAS_DIAG Diag, - const CBLAS_INDEX N, const CBLAS_INDEX K, const void *A, const CBLAS_INDEX lda, - void *X, const CBLAS_INDEX incX) + const CBLAS_INT N, const CBLAS_INT K, const void *A, const CBLAS_INT lda, + void *X, const CBLAS_INT incX) { char TA; char UL; @@ -30,7 +30,7 @@ void cblas_ztbsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, #define F77_lda lda #define F77_incX incX #endif - CBLAS_INDEX n, i=0, tincX; + CBLAS_INT n, i=0, tincX; double *st=0,*x=(double *)X; extern int CBLAS_CallFromC; extern int RowMajorStrg; diff --git a/CBLAS/src/cblas_ztpmv.c b/CBLAS/src/cblas_ztpmv.c index 59e6e5b782..7b65e3cd2f 100644 --- a/CBLAS/src/cblas_ztpmv.c +++ b/CBLAS/src/cblas_ztpmv.c @@ -9,7 +9,7 @@ #include "cblas_f77.h" void cblas_ztpmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, const CBLAS_TRANSPOSE TransA, const CBLAS_DIAG Diag, - const CBLAS_INDEX N, const void *Ap, void *X, const CBLAS_INDEX incX) + const CBLAS_INT N, const void *Ap, void *X, const CBLAS_INT incX) { char TA; char UL; @@ -27,7 +27,7 @@ void cblas_ztpmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, #define F77_N N #define F77_incX incX #endif - CBLAS_INDEX n, i=0, tincX; + CBLAS_INT n, i=0, tincX; double *st=0,*x=(double *)X; extern int CBLAS_CallFromC; extern int RowMajorStrg; diff --git a/CBLAS/src/cblas_ztpsv.c b/CBLAS/src/cblas_ztpsv.c index 2d5113458b..142f971a53 100644 --- a/CBLAS/src/cblas_ztpsv.c +++ b/CBLAS/src/cblas_ztpsv.c @@ -9,7 +9,7 @@ #include "cblas_f77.h" void cblas_ztpsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, const CBLAS_TRANSPOSE TransA, const CBLAS_DIAG Diag, - const CBLAS_INDEX N, const void *Ap, void *X, const CBLAS_INDEX incX) + const CBLAS_INT N, const void *Ap, void *X, const CBLAS_INT incX) { char TA; char UL; @@ -27,7 +27,7 @@ void cblas_ztpsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, #define F77_N N #define F77_incX incX #endif - CBLAS_INDEX n, i=0, tincX; + CBLAS_INT n, i=0, tincX; double *st=0, *x=(double*)X; extern int CBLAS_CallFromC; extern int RowMajorStrg; diff --git a/CBLAS/src/cblas_ztrmm.c b/CBLAS/src/cblas_ztrmm.c index 0e634d6866..a34e710675 100644 --- a/CBLAS/src/cblas_ztrmm.c +++ b/CBLAS/src/cblas_ztrmm.c @@ -11,9 +11,9 @@ #include "cblas_f77.h" void cblas_ztrmm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, const CBLAS_UPLO Uplo, const CBLAS_TRANSPOSE TransA, - const CBLAS_DIAG Diag, const CBLAS_INDEX M, const CBLAS_INDEX N, - const void *alpha, const void *A, const CBLAS_INDEX lda, - void *B, const CBLAS_INDEX ldb) + const CBLAS_DIAG Diag, const CBLAS_INT M, const CBLAS_INT N, + const void *alpha, const void *A, const CBLAS_INT lda, + void *B, const CBLAS_INT ldb) { char UL, TA, SD, DI; #ifdef F77_CHAR diff --git a/CBLAS/src/cblas_ztrmv.c b/CBLAS/src/cblas_ztrmv.c index 08a6d63f9d..fff888005e 100644 --- a/CBLAS/src/cblas_ztrmv.c +++ b/CBLAS/src/cblas_ztrmv.c @@ -9,8 +9,8 @@ #include "cblas_f77.h" void cblas_ztrmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, const CBLAS_TRANSPOSE TransA, const CBLAS_DIAG Diag, - const CBLAS_INDEX N, const void *A, const CBLAS_INDEX lda, - void *X, const CBLAS_INDEX incX) + const CBLAS_INT N, const void *A, const CBLAS_INT lda, + void *X, const CBLAS_INT incX) { char TA; @@ -30,7 +30,7 @@ void cblas_ztrmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, #define F77_lda lda #define F77_incX incX #endif - CBLAS_INDEX n, i=0, tincX; + CBLAS_INT n, i=0, tincX; double *st=0,*x=(double *)X; extern int CBLAS_CallFromC; extern int RowMajorStrg; diff --git a/CBLAS/src/cblas_ztrsm.c b/CBLAS/src/cblas_ztrsm.c index 218b062b55..f34b5631b6 100644 --- a/CBLAS/src/cblas_ztrsm.c +++ b/CBLAS/src/cblas_ztrsm.c @@ -11,9 +11,9 @@ #include "cblas_f77.h" void cblas_ztrsm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, const CBLAS_UPLO Uplo, const CBLAS_TRANSPOSE TransA, - const CBLAS_DIAG Diag, const CBLAS_INDEX M, const CBLAS_INDEX N, - const void *alpha, const void *A, const CBLAS_INDEX lda, - void *B, const CBLAS_INDEX ldb) + const CBLAS_DIAG Diag, const CBLAS_INT M, const CBLAS_INT N, + const void *alpha, const void *A, const CBLAS_INT lda, + void *B, const CBLAS_INT ldb) { char UL, TA, SD, DI; #ifdef F77_CHAR diff --git a/CBLAS/src/cblas_ztrsv.c b/CBLAS/src/cblas_ztrsv.c index 195b6e3c7c..1822bc8053 100644 --- a/CBLAS/src/cblas_ztrsv.c +++ b/CBLAS/src/cblas_ztrsv.c @@ -9,8 +9,8 @@ #include "cblas_f77.h" void cblas_ztrsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, const CBLAS_TRANSPOSE TransA, const CBLAS_DIAG Diag, - const CBLAS_INDEX N, const void *A, const CBLAS_INDEX lda, void *X, - const CBLAS_INDEX incX) + const CBLAS_INT N, const void *A, const CBLAS_INT lda, void *X, + const CBLAS_INT incX) { char TA; char UL; @@ -29,7 +29,7 @@ void cblas_ztrsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, #define F77_lda lda #define F77_incX incX #endif - CBLAS_INDEX n, i=0, tincX; + CBLAS_INT n, i=0, tincX; double *st=0,*x=(double *)X; extern int CBLAS_CallFromC; extern int RowMajorStrg; diff --git a/CBLAS/testing/c_xerbla.c b/CBLAS/testing/c_xerbla.c index 0898a60e98..8c6674e11b 100644 --- a/CBLAS/testing/c_xerbla.c +++ b/CBLAS/testing/c_xerbla.c @@ -5,7 +5,7 @@ #include "cblas.h" #include "cblas_test.h" -void cblas_xerbla(CBLAS_INDEX info, const char *rout, const char *form, ...) +void cblas_xerbla(CBLAS_INT info, const char *rout, const char *form, ...) { extern int cblas_lerr, cblas_info, cblas_ok; extern int link_xerbla;