Skip to content

Commit 29c946d

Browse files
weslleyspereiraweslleyspereira
committed
First attempt in getting (back) CBLAS_INDEX and CBLAS_INT integer types
1 parent c19aa54 commit 29c946d

File tree

143 files changed

+766
-753
lines changed

Some content is hidden

Large Commits have some content hidden by default. Use the searchbox below for content that may be hidden.

143 files changed

+766
-753
lines changed

‎CBLAS/examples/cblas_example1.c

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -11,7 +11,7 @@ int main ( )
1111

1212
double *a, *x, *y;
1313
double alpha, beta;
14-
CBLAS_INDEX m, n, lda, incx, incy, i;
14+
CBLAS_INT m, n, lda, incx, incy, i;
1515

1616
Layout = CblasColMajor;
1717
transa = CblasNoTrans;

‎CBLAS/examples/cblas_example2.c

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -9,7 +9,7 @@
99

1010
int main (int argc, char **argv )
1111
{
12-
CBLAS_INDEX rout=-1,info=0,m,n,k,lda,ldb,ldc;
12+
CBLAS_INT rout=-1,info=0,m,n,k,lda,ldb,ldc;
1313
double A[2] = {0.0,0.0},
1414
B[2] = {0.0,0.0},
1515
C[2] = {0.0,0.0},

‎CBLAS/include/cblas.h

Lines changed: 347 additions & 342 deletions
Large diffs are not rendered by default.

‎CBLAS/src/cblas_caxpy.c

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -8,8 +8,8 @@
88
*/
99
#include "cblas.h"
1010
#include "cblas_f77.h"
11-
void cblas_caxpy( const CBLAS_INDEX N, const void *alpha, const void *X,
12-
const CBLAS_INDEX incX, void *Y, const CBLAS_INDEX incY)
11+
void cblas_caxpy( const CBLAS_INT N, const void *alpha, const void *X,
12+
const CBLAS_INT incX, void *Y, const CBLAS_INT incY)
1313
{
1414
#ifdef F77_INT
1515
F77_INT F77_N=N, F77_incX=incX, F77_incY=incY;

‎CBLAS/src/cblas_ccopy.c

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -8,8 +8,8 @@
88
*/
99
#include "cblas.h"
1010
#include "cblas_f77.h"
11-
void cblas_ccopy( const CBLAS_INDEX N, const void *X,
12-
const CBLAS_INDEX incX, void *Y, const CBLAS_INDEX incY)
11+
void cblas_ccopy( const CBLAS_INT N, const void *X,
12+
const CBLAS_INT incX, void *Y, const CBLAS_INT incY)
1313
{
1414
#ifdef F77_INT
1515
F77_INT F77_N=N, F77_incX=incX, F77_incY=incY;

‎CBLAS/src/cblas_cdotc_sub.c

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -9,8 +9,8 @@
99
*/
1010
#include "cblas.h"
1111
#include "cblas_f77.h"
12-
void cblas_cdotc_sub( const CBLAS_INDEX N, const void *X, const CBLAS_INDEX incX,
13-
const void *Y, const CBLAS_INDEX incY, void *dotc)
12+
void cblas_cdotc_sub( const CBLAS_INT N, const void *X, const CBLAS_INT incX,
13+
const void *Y, const CBLAS_INT incY, void *dotc)
1414
{
1515
#ifdef F77_INT
1616
F77_INT F77_N=N, F77_incX=incX, F77_incY=incY;

‎CBLAS/src/cblas_cdotu_sub.c

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -9,8 +9,8 @@
99
*/
1010
#include "cblas.h"
1111
#include "cblas_f77.h"
12-
void cblas_cdotu_sub( const CBLAS_INDEX N, const void *X, const CBLAS_INDEX incX,
13-
const void *Y, const CBLAS_INDEX incY, void *dotu)
12+
void cblas_cdotu_sub( const CBLAS_INT N, const void *X, const CBLAS_INT incX,
13+
const void *Y, const CBLAS_INT incY, void *dotu)
1414
{
1515
#ifdef F77_INT
1616
F77_INT F77_N=N, F77_incX=incX, F77_incY=incY;

‎CBLAS/src/cblas_cgbmv.c

Lines changed: 7 additions & 7 deletions
Original file line numberDiff line numberDiff line change
@@ -10,11 +10,11 @@
1010
#include "cblas.h"
1111
#include "cblas_f77.h"
1212
void cblas_cgbmv(const CBLAS_LAYOUT layout,
13-
const CBLAS_TRANSPOSE TransA, const CBLAS_INDEX M, const CBLAS_INDEX N,
14-
const CBLAS_INDEX KL, const CBLAS_INDEX KU,
15-
const void *alpha, const void *A, const CBLAS_INDEX lda,
16-
const void *X, const CBLAS_INDEX incX, const void *beta,
17-
void *Y, const CBLAS_INDEX incY)
13+
const CBLAS_TRANSPOSE TransA, const CBLAS_INT M, const CBLAS_INT N,
14+
const CBLAS_INT KL, const CBLAS_INT KU,
15+
const void *alpha, const void *A, const CBLAS_INT lda,
16+
const void *X, const CBLAS_INT incX, const void *beta,
17+
void *Y, const CBLAS_INT incY)
1818
{
1919
char TA;
2020
#ifdef F77_CHAR
@@ -34,10 +34,10 @@ void cblas_cgbmv(const CBLAS_LAYOUT layout,
3434
#define F77_incX incx
3535
#define F77_incY incY
3636
#endif
37-
CBLAS_INDEX n=0, i=0, incx=incX;
37+
CBLAS_INT n=0, i=0, incx=incX;
3838
const float *xx= (float *)X, *alp= (float *)alpha, *bet = (float *)beta;
3939
float ALPHA[2],BETA[2];
40-
CBLAS_INDEX tincY, tincx;
40+
CBLAS_INT tincY, tincx;
4141
float *x=(float *)X, *y=(float *)Y, *st=0, *tx=0;
4242
extern int CBLAS_CallFromC;
4343
extern int RowMajorStrg;

‎CBLAS/src/cblas_cgemm.c

Lines changed: 4 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -10,10 +10,10 @@
1010
#include "cblas.h"
1111
#include "cblas_f77.h"
1212
void cblas_cgemm(const CBLAS_LAYOUT layout, const CBLAS_TRANSPOSE TransA,
13-
const CBLAS_TRANSPOSE TransB, const CBLAS_INDEX M, const CBLAS_INDEX N,
14-
const CBLAS_INDEX K, const void *alpha, const void *A,
15-
const CBLAS_INDEX lda, const void *B, const CBLAS_INDEX ldb,
16-
const void *beta, void *C, const CBLAS_INDEX ldc)
13+
const CBLAS_TRANSPOSE TransB, const CBLAS_INT M, const CBLAS_INT N,
14+
const CBLAS_INT K, const void *alpha, const void *A,
15+
const CBLAS_INT lda, const void *B, const CBLAS_INT ldb,
16+
const void *beta, void *C, const CBLAS_INT ldc)
1717
{
1818
char TA, TB;
1919
#ifdef F77_CHAR

‎CBLAS/src/cblas_cgemv.c

Lines changed: 6 additions & 6 deletions
Original file line numberDiff line numberDiff line change
@@ -10,10 +10,10 @@
1010
#include "cblas.h"
1111
#include "cblas_f77.h"
1212
void cblas_cgemv(const CBLAS_LAYOUT layout,
13-
const CBLAS_TRANSPOSE TransA, const CBLAS_INDEX M, const CBLAS_INDEX N,
14-
const void *alpha, const void *A, const CBLAS_INDEX lda,
15-
const void *X, const CBLAS_INDEX incX, const void *beta,
16-
void *Y, const CBLAS_INDEX incY)
13+
const CBLAS_TRANSPOSE TransA, const CBLAS_INT M, const CBLAS_INT N,
14+
const void *alpha, const void *A, const CBLAS_INT lda,
15+
const void *X, const CBLAS_INT incX, const void *beta,
16+
void *Y, const CBLAS_INT incY)
1717
{
1818
char TA;
1919
#ifdef F77_CHAR
@@ -31,10 +31,10 @@ void cblas_cgemv(const CBLAS_LAYOUT layout,
3131
#define F77_incY incY
3232
#endif
3333

34-
CBLAS_INDEX n=0, i=0, incx=incX;
34+
CBLAS_INT n=0, i=0, incx=incX;
3535
const float *xx= (const float *)X;
3636
float ALPHA[2],BETA[2];
37-
CBLAS_INDEX tincY, tincx;
37+
CBLAS_INT tincY, tincx;
3838
float *x=(float *)X, *y=(float *)Y, *st=0, *tx=0;
3939
const float *stx = x;
4040
extern int CBLAS_CallFromC;

0 commit comments

Comments
 (0)