use blasint

ctest/c_sblas2.c

@@ -8,12 +8,12 @@
 #include "common.h"
 #include "cblas_test.h"
 
-void F77_sgemv(int *order, char *transp, int *m, int *n, float *alpha,
-	       float *a, int *lda, float *x, int *incx, float *beta,
-	       float *y, int *incy ) {
+void F77_sgemv(int *order, char *transp, blasint *m, blasint *n, float *alpha,
+	       float *a, blasint *lda, float *x, blasint *incx, float *beta,
+	       float *y, blasint *incy ) {
 
   float *A;
-  int i,j,LDA;
+  blasint i,j,LDA;
   enum CBLAS_TRANSPOSE trans;
 
   get_transpose_type(transp, &trans);
@@ -35,11 +35,11 @@ void F77_sgemv(int *order, char *transp, int *m, int *n, float *alpha,
 		  *m, *n, *alpha, a, *lda, x, *incx, *beta, y, *incy );
 }
 
-void F77_sger(int *order, int *m, int *n, float *alpha, float *x, int *incx,
-	     float *y, int *incy, float *a, int *lda ) {
+void F77_sger(int *order, blasint *m, blasint *n, float *alpha, float *x, blasint *incx,
+	     float *y, blasint *incy, float *a, blasint *lda ) {
 
   float *A;
-  int i,j,LDA;
+  blasint i,j,LDA;
 
   if (*order == TEST_ROW_MJR) {
      LDA = *n+1;
@@ -61,9 +61,9 @@ void F77_sger(int *order, int *m, int *n, float *alpha, float *x, int *incx,
 }
 
 void F77_strmv(int *order, char *uplow, char *transp, char *diagn,
-	      int *n, float *a, int *lda, float *x, int *incx) {
+	      blasint *n, float *a, blasint *lda, float *x, blasint *incx) {
   float *A;
-  int i,j,LDA;
+  blasint i,j,LDA;
   enum CBLAS_TRANSPOSE trans;
   enum CBLAS_UPLO uplo;
   enum CBLAS_DIAG diag;
@@ -89,9 +89,9 @@ void F77_strmv(int *order, char *uplow, char *transp, char *diagn,
 }
 
 void F77_strsv(int *order, char *uplow, char *transp, char *diagn,
-	       int *n, float *a, int *lda, float *x, int *incx ) {
+	       blasint *n, float *a, blasint *lda, float *x, blasint *incx ) {
   float *A;
-  int i,j,LDA;
+  blasint i,j,LDA;
   enum CBLAS_TRANSPOSE trans;
   enum CBLAS_UPLO uplo;
   enum CBLAS_DIAG diag;
@@ -112,11 +112,11 @@ void F77_strsv(int *order, char *uplow, char *transp, char *diagn,
    else
      cblas_strsv(CblasColMajor, uplo, trans, diag, *n, a, *lda, x, *incx );
 }
-void F77_ssymv(int *order, char *uplow, int *n, float *alpha, float *a,
-	      int *lda, float *x, int *incx, float *beta, float *y,
-	      int *incy) {
+void F77_ssymv(int *order, char *uplow, blasint *n, float *alpha, float *a,
+	      blasint *lda, float *x, blasint *incx, float *beta, float *y,
+	      blasint *incy) {
   float *A;
-  int i,j,LDA;
+  blasint i,j,LDA;
   enum CBLAS_UPLO uplo;
 
   get_uplo_type(uplow,&uplo);
@@ -136,10 +136,10 @@ void F77_ssymv(int *order, char *uplow, int *n, float *alpha, float *a,
 		 *beta, y, *incy );
 }
 
-void F77_ssyr(int *order, char *uplow, int *n, float *alpha, float *x,
-	     int *incx, float *a, int *lda) {
+void F77_ssyr(int *order, char *uplow, blasint *n, float *alpha, float *x,
+	     blasint *incx, float *a, blasint *lda) {
   float *A;
-  int i,j,LDA;
+  blasint i,j,LDA;
   enum CBLAS_UPLO uplo;
 
   get_uplo_type(uplow,&uplo);
@@ -160,10 +160,10 @@ void F77_ssyr(int *order, char *uplow, int *n, float *alpha, float *x,
      cblas_ssyr(CblasColMajor, uplo, *n, *alpha, x, *incx, a, *lda);
 }
 
-void F77_ssyr2(int *order, char *uplow, int *n, float *alpha, float *x,
-	     int *incx, float *y, int *incy, float *a, int *lda) {
+void F77_ssyr2(int *order, char *uplow, blasint *n, float *alpha, float *x,
+	     blasint *incx, float *y, blasint *incy, float *a, blasint *lda) {
   float *A;
-  int i,j,LDA;
+  blasint i,j,LDA;
   enum CBLAS_UPLO uplo;
 
   get_uplo_type(uplow,&uplo);
@@ -184,12 +184,12 @@ void F77_ssyr2(int *order, char *uplow, int *n, float *alpha, float *x,
      cblas_ssyr2(CblasColMajor, uplo, *n, *alpha, x, *incx, y, *incy, a, *lda);
 }
 
-void F77_sgbmv(int *order, char *transp, int *m, int *n, int *kl, int *ku,
-	       float *alpha, float *a, int *lda, float *x, int *incx,
-	       float *beta, float *y, int *incy ) {
+void F77_sgbmv(int *order, char *transp, blasint *m, blasint *n, blasint *kl, blasint *ku,
+	       float *alpha, float *a, blasint *lda, float *x, blasint *incx,
+	       float *beta, float *y, blasint *incy ) {
 
   float *A;
-  int i,irow,j,jcol,LDA;
+  blasint i,irow,j,jcol,LDA;
   enum CBLAS_TRANSPOSE trans;
 
   get_transpose_type(transp, &trans);
@@ -223,9 +223,9 @@ void F77_sgbmv(int *order, char *transp, int *m, int *n, int *kl, int *ku,
 }
 
 void F77_stbmv(int *order, char *uplow, char *transp, char *diagn,
-	      int *n, int *k, float *a, int *lda, float *x, int *incx) {
+	      blasint *n, blasint *k, float *a, blasint *lda, float *x, blasint *incx) {
   float *A;
-  int irow, jcol, i, j, LDA;
+  blasint irow, jcol, i, j, LDA;
   enum CBLAS_TRANSPOSE trans;
   enum CBLAS_UPLO uplo;
   enum CBLAS_DIAG diag;
@@ -269,9 +269,9 @@ void F77_stbmv(int *order, char *uplow, char *transp, char *diagn,
 }
 
 void F77_stbsv(int *order, char *uplow, char *transp, char *diagn,
-	      int *n, int *k, float *a, int *lda, float *x, int *incx) {
+	      blasint *n, blasint *k, float *a, blasint *lda, float *x, blasint *incx) {
   float *A;
-  int irow, jcol, i, j, LDA;
+  blasint irow, jcol, i, j, LDA;
   enum CBLAS_TRANSPOSE trans;
   enum CBLAS_UPLO uplo;
   enum CBLAS_DIAG diag;
@@ -314,11 +314,11 @@ void F77_stbsv(int *order, char *uplow, char *transp, char *diagn,
      cblas_stbsv(CblasColMajor, uplo, trans, diag, *n, *k, a, *lda, x, *incx);
 }
 
-void F77_ssbmv(int *order, char *uplow, int *n, int *k, float *alpha,
-	      float *a, int *lda, float *x, int *incx, float *beta,
-	      float *y, int *incy) {
+void F77_ssbmv(int *order, char *uplow, blasint *n, blasint *k, float *alpha,
+	      float *a, blasint *lda, float *x, blasint *incx, float *beta,
+	      float *y, blasint *incy) {
   float *A;
-  int i,j,irow,jcol,LDA;
+  blasint i,j,irow,jcol,LDA;
   enum CBLAS_UPLO uplo;
 
   get_uplo_type(uplow,&uplo);
@@ -359,10 +359,10 @@ void F77_ssbmv(int *order, char *uplow, int *n, int *k, float *alpha,
 		 *beta, y, *incy );
 }
 
-void F77_sspmv(int *order, char *uplow, int *n, float *alpha, float *ap,
-	      float *x, int *incx, float *beta, float *y, int *incy) {
+void F77_sspmv(int *order, char *uplow, blasint *n, float *alpha, float *ap,
+	      float *x, blasint *incx, float *beta, float *y, blasint *incy) {
   float *A,*AP;
-  int i,j,k,LDA;
+  blasint i,j,k,LDA;
   enum CBLAS_UPLO uplo;
 
   get_uplo_type(uplow,&uplo);
@@ -397,9 +397,9 @@ void F77_sspmv(int *order, char *uplow, int *n, float *alpha, float *ap,
 }
 
 void F77_stpmv(int *order, char *uplow, char *transp, char *diagn,
-	      int *n, float *ap, float *x, int *incx) {
+	      blasint *n, float *ap, float *x, blasint *incx) {
   float *A, *AP;
-  int i, j, k, LDA;
+  blasint i, j, k, LDA;
   enum CBLAS_TRANSPOSE trans;
   enum CBLAS_UPLO uplo;
   enum CBLAS_DIAG diag;
@@ -436,9 +436,9 @@ void F77_stpmv(int *order, char *uplow, char *transp, char *diagn,
 }
 
 void F77_stpsv(int *order, char *uplow, char *transp, char *diagn,
-	      int *n, float *ap, float *x, int *incx) {
+	      blasint *n, float *ap, float *x, blasint *incx) {
   float *A, *AP;
-  int i, j, k, LDA;
+  blasint i, j, k, LDA;
   enum CBLAS_TRANSPOSE trans;
   enum CBLAS_UPLO uplo;
   enum CBLAS_DIAG diag;
@@ -475,10 +475,10 @@ void F77_stpsv(int *order, char *uplow, char *transp, char *diagn,
      cblas_stpsv( CblasColMajor, uplo, trans, diag, *n, ap, x, *incx );
 }
 
-void F77_sspr(int *order, char *uplow, int *n, float *alpha, float *x,
-	     int *incx, float *ap ){
+void F77_sspr(int *order, char *uplow, blasint *n, float *alpha, float *x,
+	     blasint *incx, float *ap ){
   float *A, *AP;
-  int i,j,k,LDA;
+  blasint i,j,k,LDA;
   enum CBLAS_UPLO uplo;
 
   get_uplo_type(uplow,&uplo);
@@ -526,10 +526,10 @@ void F77_sspr(int *order, char *uplow, int *n, float *alpha, float *x,
      cblas_sspr( CblasColMajor, uplo, *n, *alpha, x, *incx, ap );
 }
 
-void F77_sspr2(int *order, char *uplow, int *n, float *alpha, float *x,
-	     int *incx, float *y, int *incy, float *ap ){
+void F77_sspr2(int *order, char *uplow, blasint *n, float *alpha, float *x,
+	     blasint *incx, float *y, blasint *incy, float *ap ){
   float *A, *AP;
-  int i,j,k,LDA;
+  blasint i,j,k,LDA;
   enum CBLAS_UPLO uplo;
 
   get_uplo_type(uplow,&uplo);