Commit 0ef7198e authored by Davis King's avatar Davis King

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

parent e71f6bce
This diff is collapsed.
...@@ -8,8 +8,8 @@ ...@@ -8,8 +8,8 @@
*/ */
#include "cblas.h" #include "cblas.h"
#include "cblas_f77.h" #include "cblas_f77.h"
void cblas_caxpy( const int N, const void *alpha, const void *X, void cblas_caxpy( const CBLAS_INT_TYPE N, const void *alpha, const void *X,
const int incX, void *Y, const int incY) const CBLAS_INT_TYPE incX, void *Y, const CBLAS_INT_TYPE incY)
{ {
#ifdef F77_INT #ifdef F77_INT
F77_INT F77_N=N, F77_incX=incX, F77_incY=incY; F77_INT F77_N=N, F77_incX=incX, F77_incY=incY;
......
...@@ -8,8 +8,8 @@ ...@@ -8,8 +8,8 @@
*/ */
#include "cblas.h" #include "cblas.h"
#include "cblas_f77.h" #include "cblas_f77.h"
void cblas_ccopy( const int N, const void *X, void cblas_ccopy( const CBLAS_INT_TYPE N, const void *X,
const int incX, void *Y, const int incY) const CBLAS_INT_TYPE incX, void *Y, const CBLAS_INT_TYPE incY)
{ {
#ifdef F77_INT #ifdef F77_INT
F77_INT F77_N=N, F77_incX=incX, F77_incY=incY; F77_INT F77_N=N, F77_incX=incX, F77_incY=incY;
......
...@@ -9,8 +9,8 @@ ...@@ -9,8 +9,8 @@
*/ */
#include "cblas.h" #include "cblas.h"
#include "cblas_f77.h" #include "cblas_f77.h"
void cblas_cdotc_sub( const int N, const void *X, const int incX, void cblas_cdotc_sub( const CBLAS_INT_TYPE N, const void *X, const CBLAS_INT_TYPE incX,
const void *Y, const int incY,void *dotc) const void *Y, const CBLAS_INT_TYPE incY,void *dotc)
{ {
#ifdef F77_INT #ifdef F77_INT
F77_INT F77_N=N, F77_incX=incX, F77_incY=incY; F77_INT F77_N=N, F77_incX=incX, F77_incY=incY;
......
...@@ -9,8 +9,8 @@ ...@@ -9,8 +9,8 @@
*/ */
#include "cblas.h" #include "cblas.h"
#include "cblas_f77.h" #include "cblas_f77.h"
void cblas_cdotu_sub( const int N, const void *X, void cblas_cdotu_sub( const CBLAS_INT_TYPE N, const void *X,
const int incX, const void *Y, const int incY,void *dotu) const CBLAS_INT_TYPE incX, const void *Y, const CBLAS_INT_TYPE incY,void *dotu)
{ {
#ifdef F77_INT #ifdef F77_INT
F77_INT F77_N=N, F77_incX=incX, F77_incY=incY; F77_INT F77_N=N, F77_incX=incX, F77_incY=incY;
......
...@@ -10,11 +10,11 @@ ...@@ -10,11 +10,11 @@
#include "cblas.h" #include "cblas.h"
#include "cblas_f77.h" #include "cblas_f77.h"
void cblas_cgbmv(const enum CBLAS_ORDER order, void cblas_cgbmv(const enum CBLAS_ORDER order,
const enum CBLAS_TRANSPOSE TransA, const int M, const int N, const enum CBLAS_TRANSPOSE TransA, const CBLAS_INT_TYPE M, const CBLAS_INT_TYPE N,
const int KL, const int KU, const CBLAS_INT_TYPE KL, const CBLAS_INT_TYPE KU,
const void *alpha, const void *A, const int lda, const void *alpha, const void *A, const CBLAS_INT_TYPE lda,
const void *X, const int incX, const void *beta, const void *X, const CBLAS_INT_TYPE incX, const void *beta,
void *Y, const int incY) void *Y, const CBLAS_INT_TYPE incY)
{ {
char TA; char TA;
#ifdef F77_CHAR #ifdef F77_CHAR
...@@ -34,10 +34,10 @@ void cblas_cgbmv(const enum CBLAS_ORDER order, ...@@ -34,10 +34,10 @@ void cblas_cgbmv(const enum CBLAS_ORDER order,
#define F77_incX incx #define F77_incX incx
#define F77_incY incY #define F77_incY incY
#endif #endif
int n=0, i=0, incx=incX; CBLAS_INT_TYPE n=0, i=0, incx=incX;
const float *xx= (float *)X, *alp= (float *)alpha, *bet = (float *)beta; const float *xx= (float *)X, *alp= (float *)alpha, *bet = (float *)beta;
float ALPHA[2],BETA[2]; float ALPHA[2],BETA[2];
int tincY, tincx; CBLAS_INT_TYPE tincY, tincx;
float *x=(float *)X, *y=(float *)Y, *st=0, *tx=0; float *x=(float *)X, *y=(float *)Y, *st=0, *tx=0;
if (order == CblasColMajor) if (order == CblasColMajor)
......
...@@ -10,10 +10,10 @@ ...@@ -10,10 +10,10 @@
#include "cblas.h" #include "cblas.h"
#include "cblas_f77.h" #include "cblas_f77.h"
void cblas_cgemm(const enum CBLAS_ORDER Order, const enum CBLAS_TRANSPOSE TransA, void cblas_cgemm(const enum CBLAS_ORDER Order, const enum CBLAS_TRANSPOSE TransA,
const enum CBLAS_TRANSPOSE TransB, const int M, const int N, const enum CBLAS_TRANSPOSE TransB, const CBLAS_INT_TYPE M, const CBLAS_INT_TYPE N,
const int K, const void *alpha, const void *A, const CBLAS_INT_TYPE K, const void *alpha, const void *A,
const int lda, const void *B, const int ldb, const CBLAS_INT_TYPE lda, const void *B, const CBLAS_INT_TYPE ldb,
const void *beta, void *C, const int ldc) const void *beta, void *C, const CBLAS_INT_TYPE ldc)
{ {
char TA, TB; char TA, TB;
#ifdef F77_CHAR #ifdef F77_CHAR
......
...@@ -10,10 +10,10 @@ ...@@ -10,10 +10,10 @@
#include "cblas.h" #include "cblas.h"
#include "cblas_f77.h" #include "cblas_f77.h"
void cblas_cgemv(const enum CBLAS_ORDER order, void cblas_cgemv(const enum CBLAS_ORDER order,
const enum CBLAS_TRANSPOSE TransA, const int M, const int N, const enum CBLAS_TRANSPOSE TransA, const CBLAS_INT_TYPE M, const CBLAS_INT_TYPE N,
const void *alpha, const void *A, const int lda, const void *alpha, const void *A, const CBLAS_INT_TYPE lda,
const void *X, const int incX, const void *beta, const void *X, const CBLAS_INT_TYPE incX, const void *beta,
void *Y, const int incY) void *Y, const CBLAS_INT_TYPE incY)
{ {
char TA; char TA;
#ifdef F77_CHAR #ifdef F77_CHAR
...@@ -31,10 +31,10 @@ void cblas_cgemv(const enum CBLAS_ORDER order, ...@@ -31,10 +31,10 @@ void cblas_cgemv(const enum CBLAS_ORDER order,
#define F77_incY incY #define F77_incY incY
#endif #endif
int n=0, i=0, incx=incX; CBLAS_INT_TYPE n=0, i=0, incx=incX;
const float *xx= (const float *)X; const float *xx= (const float *)X;
float ALPHA[2],BETA[2]; float ALPHA[2],BETA[2];
int tincY, tincx; CBLAS_INT_TYPE tincY, tincx;
float *x=(float *)X, *y=(float *)Y, *st=0, *tx=0; float *x=(float *)X, *y=(float *)Y, *st=0, *tx=0;
const float *stx = x; const float *stx = x;
......
...@@ -9,9 +9,9 @@ ...@@ -9,9 +9,9 @@
#include <stdlib.h> #include <stdlib.h>
#include "cblas.h" #include "cblas.h"
#include "cblas_f77.h" #include "cblas_f77.h"
void cblas_cgerc(const enum CBLAS_ORDER order, const int M, const int N, void cblas_cgerc(const enum CBLAS_ORDER order, const CBLAS_INT_TYPE M, const CBLAS_INT_TYPE N,
const void *alpha, const void *X, const int incX, const void *alpha, const void *X, const CBLAS_INT_TYPE incX,
const void *Y, const int incY, void *A, const int lda) const void *Y, const CBLAS_INT_TYPE incY, void *A, const CBLAS_INT_TYPE lda)
{ {
#ifdef F77_INT #ifdef F77_INT
F77_INT F77_M=M, F77_N=N, F77_lda=lda, F77_incX=incX, F77_incY=incY; 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 enum CBLAS_ORDER order, const int M, const int N, ...@@ -23,7 +23,7 @@ void cblas_cgerc(const enum CBLAS_ORDER order, const int M, const int N,
#define F77_lda lda #define F77_lda lda
#endif #endif
int n, i, tincy, incy=incY; CBLAS_INT_TYPE n, i, tincy, incy=incY;
float *y=(float *)Y, *yy=(float *)Y, *ty, *st; float *y=(float *)Y, *yy=(float *)Y, *ty, *st;
......
...@@ -7,9 +7,9 @@ ...@@ -7,9 +7,9 @@
*/ */
#include "cblas.h" #include "cblas.h"
#include "cblas_f77.h" #include "cblas_f77.h"
void cblas_cgeru(const enum CBLAS_ORDER order, const int M, const int N, void cblas_cgeru(const enum CBLAS_ORDER order, const CBLAS_INT_TYPE M, const CBLAS_INT_TYPE N,
const void *alpha, const void *X, const int incX, const void *alpha, const void *X, const CBLAS_INT_TYPE incX,
const void *Y, const int incY, void *A, const int lda) const void *Y, const CBLAS_INT_TYPE incY, void *A, const CBLAS_INT_TYPE lda)
{ {
#ifdef F77_INT #ifdef F77_INT
F77_INT F77_M=M, F77_N=N, F77_lda=lda, F77_incX=incX, F77_incY=incY; F77_INT F77_M=M, F77_N=N, F77_lda=lda, F77_incX=incX, F77_incY=incY;
......
...@@ -10,10 +10,10 @@ ...@@ -10,10 +10,10 @@
#include <stdio.h> #include <stdio.h>
#include <stdlib.h> #include <stdlib.h>
void cblas_chbmv(const enum CBLAS_ORDER order, void cblas_chbmv(const enum CBLAS_ORDER order,
const enum CBLAS_UPLO Uplo,const int N,const int K, const enum CBLAS_UPLO Uplo,const CBLAS_INT_TYPE N,const CBLAS_INT_TYPE K,
const void *alpha, const void *A, const int lda, const void *alpha, const void *A, const CBLAS_INT_TYPE lda,
const void *X, const int incX, const void *beta, const void *X, const CBLAS_INT_TYPE incX, const void *beta,
void *Y, const int incY) void *Y, const CBLAS_INT_TYPE incY)
{ {
char UL; char UL;
#ifdef F77_CHAR #ifdef F77_CHAR
...@@ -30,10 +30,10 @@ void cblas_chbmv(const enum CBLAS_ORDER order, ...@@ -30,10 +30,10 @@ void cblas_chbmv(const enum CBLAS_ORDER order,
#define F77_incX incx #define F77_incX incx
#define F77_incY incY #define F77_incY incY
#endif #endif
int n, i=0, incx=incX; CBLAS_INT_TYPE n, i=0, incx=incX;
const float *xx= (float *)X, *alp= (float *)alpha, *bet = (float *)beta; const float *xx= (float *)X, *alp= (float *)alpha, *bet = (float *)beta;
float ALPHA[2],BETA[2]; float ALPHA[2],BETA[2];
int tincY, tincx; CBLAS_INT_TYPE tincY, tincx;
float *x=(float *)X, *y=(float *)Y, *st=0, *tx; float *x=(float *)X, *y=(float *)Y, *st=0, *tx;
if (order == CblasColMajor) if (order == CblasColMajor)
......
...@@ -10,10 +10,10 @@ ...@@ -10,10 +10,10 @@
#include "cblas.h" #include "cblas.h"
#include "cblas_f77.h" #include "cblas_f77.h"
void cblas_chemm(const enum CBLAS_ORDER Order, const enum CBLAS_SIDE Side, void cblas_chemm(const enum CBLAS_ORDER Order, const enum CBLAS_SIDE Side,
const enum CBLAS_UPLO Uplo, const int M, const int N, const enum CBLAS_UPLO Uplo, const CBLAS_INT_TYPE M, const CBLAS_INT_TYPE N,
const void *alpha, const void *A, const int lda, const void *alpha, const void *A, const CBLAS_INT_TYPE lda,
const void *B, const int ldb, const void *beta, const void *B, const CBLAS_INT_TYPE ldb, const void *beta,
void *C, const int ldc) void *C, const CBLAS_INT_TYPE ldc)
{ {
char SD, UL; char SD, UL;
#ifdef F77_CHAR #ifdef F77_CHAR
......
...@@ -10,10 +10,10 @@ ...@@ -10,10 +10,10 @@
#include "cblas.h" #include "cblas.h"
#include "cblas_f77.h" #include "cblas_f77.h"
void cblas_chemv(const enum CBLAS_ORDER order, void cblas_chemv(const enum CBLAS_ORDER order,
const enum CBLAS_UPLO Uplo, const int N, const enum CBLAS_UPLO Uplo, const CBLAS_INT_TYPE N,
const void *alpha, const void *A, const int lda, const void *alpha, const void *A, const CBLAS_INT_TYPE lda,
const void *X, const int incX, const void *beta, const void *X, const CBLAS_INT_TYPE incX, const void *beta,
void *Y, const int incY) void *Y, const CBLAS_INT_TYPE incY)
{ {
char UL; char UL;
#ifdef F77_CHAR #ifdef F77_CHAR
...@@ -29,10 +29,10 @@ void cblas_chemv(const enum CBLAS_ORDER order, ...@@ -29,10 +29,10 @@ void cblas_chemv(const enum CBLAS_ORDER order,
#define F77_incX incx #define F77_incX incx
#define F77_incY incY #define F77_incY incY
#endif #endif
int n=0, i=0, incx=incX; CBLAS_INT_TYPE n=0, i=0, incx=incX;
const float *xx= (float *)X, *alp= (float *)alpha, *bet = (float *)beta; const float *xx= (float *)X, *alp= (float *)alpha, *bet = (float *)beta;
float ALPHA[2],BETA[2]; float ALPHA[2],BETA[2];
int tincY, tincx; CBLAS_INT_TYPE tincY, tincx;
float *x=(float *)X, *y=(float *)Y, *st=0, *tx; float *x=(float *)X, *y=(float *)Y, *st=0, *tx;
......
...@@ -10,8 +10,8 @@ ...@@ -10,8 +10,8 @@
#include "cblas.h" #include "cblas.h"
#include "cblas_f77.h" #include "cblas_f77.h"
void cblas_cher(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo, void cblas_cher(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
const int N, const float alpha, const void *X, const int incX const CBLAS_INT_TYPE N, const float alpha, const void *X, const CBLAS_INT_TYPE incX
,void *A, const int lda) ,void *A, const CBLAS_INT_TYPE lda)
{ {
char UL; char UL;
#ifdef F77_CHAR #ifdef F77_CHAR
...@@ -27,7 +27,7 @@ void cblas_cher(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo, ...@@ -27,7 +27,7 @@ void cblas_cher(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
#define F77_lda lda #define F77_lda lda
#define F77_incX incx #define F77_incX incx
#endif #endif
int n, i, tincx, incx=incX; CBLAS_INT_TYPE n, i, tincx, incx=incX;
float *x=(float *)X, *xx=(float *)X, *tx, *st; float *x=(float *)X, *xx=(float *)X, *tx, *st;
......
...@@ -10,8 +10,8 @@ ...@@ -10,8 +10,8 @@
#include "cblas.h" #include "cblas.h"
#include "cblas_f77.h" #include "cblas_f77.h"
void cblas_cher2(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo, void cblas_cher2(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
const int N, const void *alpha, const void *X, const int incX, const CBLAS_INT_TYPE N, const void *alpha, const void *X, const CBLAS_INT_TYPE incX,
const void *Y, const int incY, void *A, const int lda) const void *Y, const CBLAS_INT_TYPE incY, void *A, const CBLAS_INT_TYPE lda)
{ {
char UL; char UL;
#ifdef F77_CHAR #ifdef F77_CHAR
...@@ -28,7 +28,7 @@ void cblas_cher2(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo, ...@@ -28,7 +28,7 @@ void cblas_cher2(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
#define F77_incX incx #define F77_incX incx
#define F77_incY incy #define F77_incY incy
#endif #endif
int n, i, j, tincx, tincy, incx=incX, incy=incY; CBLAS_INT_TYPE n, i, j, tincx, tincy, incx=incX, incy=incY;
float *x=(float *)X, *xx=(float *)X, *y=(float *)Y, float *x=(float *)X, *xx=(float *)X, *y=(float *)Y,
*yy=(float *)Y, *tx, *ty, *stx, *sty; *yy=(float *)Y, *tx, *ty, *stx, *sty;
......
...@@ -10,10 +10,10 @@ ...@@ -10,10 +10,10 @@
#include "cblas.h" #include "cblas.h"
#include "cblas_f77.h" #include "cblas_f77.h"
void cblas_cher2k(const enum CBLAS_ORDER Order, const enum CBLAS_UPLO Uplo, void cblas_cher2k(const enum CBLAS_ORDER Order, const enum CBLAS_UPLO Uplo,
const enum CBLAS_TRANSPOSE Trans, const int N, const int K, const enum CBLAS_TRANSPOSE Trans, const CBLAS_INT_TYPE N, const CBLAS_INT_TYPE K,
const void *alpha, const void *A, const int lda, const void *alpha, const void *A, const CBLAS_INT_TYPE lda,
const void *B, const int ldb, const float beta, const void *B, const CBLAS_INT_TYPE ldb, const float beta,
void *C, const int ldc) void *C, const CBLAS_INT_TYPE ldc)
{ {
char UL, TR; char UL, TR;
#ifdef F77_CHAR #ifdef F77_CHAR
......
...@@ -10,9 +10,9 @@ ...@@ -10,9 +10,9 @@
#include "cblas.h" #include "cblas.h"
#include "cblas_f77.h" #include "cblas_f77.h"
void cblas_cherk(const enum CBLAS_ORDER Order, const enum CBLAS_UPLO Uplo, void cblas_cherk(const enum CBLAS_ORDER Order, const enum CBLAS_UPLO Uplo,
const enum CBLAS_TRANSPOSE Trans, const int N, const int K, const enum CBLAS_TRANSPOSE Trans, const CBLAS_INT_TYPE N, const CBLAS_INT_TYPE K,
const float alpha, const void *A, const int lda, const float alpha, const void *A, const CBLAS_INT_TYPE lda,
const float beta, void *C, const int ldc) const float beta, void *C, const CBLAS_INT_TYPE ldc)
{ {
char UL, TR; char UL, TR;
#ifdef F77_CHAR #ifdef F77_CHAR
......
...@@ -10,10 +10,10 @@ ...@@ -10,10 +10,10 @@
#include "cblas.h" #include "cblas.h"
#include "cblas_f77.h" #include "cblas_f77.h"
void cblas_chpmv(const enum CBLAS_ORDER order, void cblas_chpmv(const enum CBLAS_ORDER order,
const enum CBLAS_UPLO Uplo,const int N, const enum CBLAS_UPLO Uplo,const CBLAS_INT_TYPE N,
const void *alpha, const void *AP, const void *alpha, const void *AP,
const void *X, const int incX, const void *beta, const void *X, const CBLAS_INT_TYPE incX, const void *beta,
void *Y, const int incY) void *Y, const CBLAS_INT_TYPE incY)
{ {
char UL; char UL;
#ifdef F77_CHAR #ifdef F77_CHAR
...@@ -28,10 +28,10 @@ void cblas_chpmv(const enum CBLAS_ORDER order, ...@@ -28,10 +28,10 @@ void cblas_chpmv(const enum CBLAS_ORDER order,
#define F77_incX incx #define F77_incX incx
#define F77_incY incY #define F77_incY incY
#endif #endif
int n, i=0, incx=incX; CBLAS_INT_TYPE n, i=0, incx=incX;
const float *xx= (float *)X, *alp= (float *)alpha, *bet = (float *)beta; const float *xx= (float *)X, *alp= (float *)alpha, *bet = (float *)beta;
float ALPHA[2],BETA[2]; float ALPHA[2],BETA[2];
int tincY, tincx; CBLAS_INT_TYPE tincY, tincx;
float *x=(float *)X, *y=(float *)Y, *st=0, *tx; float *x=(float *)X, *y=(float *)Y, *st=0, *tx;
if (order == CblasColMajor) if (order == CblasColMajor)
......
...@@ -10,8 +10,8 @@ ...@@ -10,8 +10,8 @@
#include "cblas.h" #include "cblas.h"
#include "cblas_f77.h" #include "cblas_f77.h"
void cblas_chpr(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo, void cblas_chpr(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
const int N, const float alpha, const void *X, const CBLAS_INT_TYPE N, const float alpha, const void *X,
const int incX, void *A) const CBLAS_INT_TYPE incX, void *A)
{ {
char UL; char UL;
#ifdef F77_CHAR #ifdef F77_CHAR
...@@ -26,7 +26,7 @@ void cblas_chpr(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo, ...@@ -26,7 +26,7 @@ void cblas_chpr(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
#define F77_N N #define F77_N N
#define F77_incX incx #define F77_incX incx
#endif #endif
int n, i, tincx, incx=incX; CBLAS_INT_TYPE n, i, tincx, incx=incX;
float *x=(float *)X, *xx=(float *)X, *tx, *st; float *x=(float *)X, *xx=(float *)X, *tx, *st;
......
...@@ -10,8 +10,8 @@ ...@@ -10,8 +10,8 @@
#include "cblas.h" #include "cblas.h"
#include "cblas_f77.h" #include "cblas_f77.h"
void cblas_chpr2(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo, void cblas_chpr2(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
const int N,const void *alpha, const void *X, const CBLAS_INT_TYPE N,const void *alpha, const void *X,
const int incX,const void *Y, const int incY, void *Ap) const CBLAS_INT_TYPE incX,const void *Y, const CBLAS_INT_TYPE incY, void *Ap)
{ {
char UL; char UL;
...@@ -28,7 +28,7 @@ void cblas_chpr2(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo, ...@@ -28,7 +28,7 @@ void cblas_chpr2(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
#define F77_incX incx #define F77_incX incx
#define F77_incY incy #define F77_incY incy
#endif #endif
int n, i, j, tincx, tincy, incx=incX, incy=incY; CBLAS_INT_TYPE n, i, j, tincx, tincy, incx=incX, incy=incY;
float *x=(float *)X, *xx=(float *)X, *y=(float *)Y, float *x=(float *)X, *xx=(float *)X, *y=(float *)Y,
*yy=(float *)Y, *tx, *ty, *stx, *sty; *yy=(float *)Y, *tx, *ty, *stx, *sty;
......
...@@ -8,8 +8,8 @@ ...@@ -8,8 +8,8 @@
*/ */
#include "cblas.h" #include "cblas.h"
#include "cblas_f77.h" #include "cblas_f77.h"
void cblas_cscal( const int N, const void *alpha, void *X, void cblas_cscal( const CBLAS_INT_TYPE N, const void *alpha, void *X,
const int incX) const CBLAS_INT_TYPE incX)
{ {
#ifdef F77_INT #ifdef F77_INT
F77_INT F77_N=N, F77_incX=incX; F77_INT F77_N=N, F77_incX=incX;
......
...@@ -8,8 +8,8 @@ ...@@ -8,8 +8,8 @@
*/ */
#include "cblas.h" #include "cblas.h"
#include "cblas_f77.h" #include "cblas_f77.h"
void cblas_csscal( const int N, const float alpha, void *X, void cblas_csscal( const CBLAS_INT_TYPE N, const float alpha, void *X,
const int incX) const CBLAS_INT_TYPE incX)
{ {
#ifdef F77_INT #ifdef F77_INT
F77_INT F77_N=N, F77_incX=incX; F77_INT F77_N=N, F77_incX=incX;
......
...@@ -8,8 +8,8 @@ ...@@ -8,8 +8,8 @@
*/ */
#include "cblas.h" #include "cblas.h"
#include "cblas_f77.h" #include "cblas_f77.h"
void cblas_cswap( const int N, void *X, const int incX, void *Y, void cblas_cswap( const CBLAS_INT_TYPE N, void *X, const CBLAS_INT_TYPE incX, void *Y,
const int incY) const CBLAS_INT_TYPE incY)
{ {
#ifdef F77_INT #ifdef F77_INT
F77_INT F77_N=N, F77_incX=incX, F77_incY=incY; F77_INT F77_N=N, F77_incX=incX, F77_incY=incY;
......
...@@ -10,10 +10,10 @@ ...@@ -10,10 +10,10 @@
#include "cblas.h" #include "cblas.h"
#include "cblas_f77.h" #include "cblas_f77.h"
void cblas_csymm(const enum CBLAS_ORDER Order, const enum CBLAS_SIDE Side, void cblas_csymm(const enum CBLAS_ORDER Order, const enum CBLAS_SIDE Side,
const enum CBLAS_UPLO Uplo, const int M, const int N, const enum CBLAS_UPLO Uplo, const CBLAS_INT_TYPE M, const CBLAS_INT_TYPE N,
const void *alpha, const void *A, const int lda, const void *alpha, const void *A, const CBLAS_INT_TYPE lda,
const void *B, const int ldb, const void *beta, const void *B, const CBLAS_INT_TYPE ldb, const void *beta,
void *C, const int ldc) void *C, const CBLAS_INT_TYPE ldc)
{ {
char SD, UL; char SD, UL;
#ifdef F77_CHAR #ifdef F77_CHAR
......
...@@ -10,10 +10,10 @@ ...@@ -10,10 +10,10 @@
#include "cblas.h" #include "cblas.h"
#include "cblas_f77.h" #include "cblas_f77.h"
void cblas_csyr2k(const enum CBLAS_ORDER Order, const enum CBLAS_UPLO Uplo, void cblas_csyr2k(const enum CBLAS_ORDER Order, const enum CBLAS_UPLO Uplo,
const enum CBLAS_TRANSPOSE Trans, const int N, const int K, const enum CBLAS_TRANSPOSE Trans, const CBLAS_INT_TYPE N, const CBLAS_INT_TYPE K,
const void *alpha, const void *A, const int lda, const void *alpha, const void *A, const CBLAS_INT_TYPE lda,
const void *B, const int ldb, const void *beta, const void *B, const CBLAS_INT_TYPE ldb, const void *beta,
void *C, const int ldc) void *C, const CBLAS_INT_TYPE ldc)
{ {
char UL, TR; char UL, TR;
#ifdef F77_CHAR #ifdef F77_CHAR
......
...@@ -10,9 +10,9 @@ ...@@ -10,9 +10,9 @@
#include "cblas.h" #include "cblas.h"
#include "cblas_f77.h" #include "cblas_f77.h"
void cblas_csyrk(const enum CBLAS_ORDER Order, const enum CBLAS_UPLO Uplo, void cblas_csyrk(const enum CBLAS_ORDER Order, const enum CBLAS_UPLO Uplo,
const enum CBLAS_TRANSPOSE Trans, const int N, const int K, const enum CBLAS_TRANSPOSE Trans, const CBLAS_INT_TYPE N, const CBLAS_INT_TYPE K,
const void *alpha, const void *A, const int lda, const void *alpha, const void *A, const CBLAS_INT_TYPE lda,
const void *beta, void *C, const int ldc) const void *beta, void *C, const CBLAS_INT_TYPE ldc)
{ {
char UL, TR; char UL, TR;
#ifdef F77_CHAR #ifdef F77_CHAR
......
...@@ -9,8 +9,8 @@ ...@@ -9,8 +9,8 @@
#include "cblas_f77.h" #include "cblas_f77.h"
void cblas_ctbmv(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo, void cblas_ctbmv(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
const enum CBLAS_TRANSPOSE TransA, const enum CBLAS_DIAG Diag, const enum CBLAS_TRANSPOSE TransA, const enum CBLAS_DIAG Diag,
const int N, const int K, const void *A, const int lda, const CBLAS_INT_TYPE N, const CBLAS_INT_TYPE K, const void *A, const CBLAS_INT_TYPE lda,
void *X, const int incX) void *X, const CBLAS_INT_TYPE incX)
{ {
char TA; char TA;
char UL; char UL;
...@@ -30,7 +30,7 @@ void cblas_ctbmv(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo, ...@@ -30,7 +30,7 @@ void cblas_ctbmv(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
#define F77_lda lda #define F77_lda lda
#define F77_incX incX #define F77_incX incX
#endif #endif
int n, i=0, tincX; CBLAS_INT_TYPE n, i=0, tincX;
float *st=0, *x=(float *)X; float *st=0, *x=(float *)X;
if (order == CblasColMajor) if (order == CblasColMajor)
......
...@@ -9,8 +9,8 @@ ...@@ -9,8 +9,8 @@
#include "cblas_f77.h" #include "cblas_f77.h"
void cblas_ctbsv(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo, void cblas_ctbsv(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
const enum CBLAS_TRANSPOSE TransA, const enum CBLAS_DIAG Diag, const enum CBLAS_TRANSPOSE TransA, const enum CBLAS_DIAG Diag,
const int N, const int K, const void *A, const int lda, const CBLAS_INT_TYPE N, const CBLAS_INT_TYPE K, const void *A, const CBLAS_INT_TYPE lda,
void *X, const int incX) void *X, const CBLAS_INT_TYPE incX)
{ {
char TA; char TA;
char UL; char UL;
...@@ -30,7 +30,7 @@ void cblas_ctbsv(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo, ...@@ -30,7 +30,7 @@ void cblas_ctbsv(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
#define F77_lda lda #define F77_lda lda
#define F77_incX incX #define F77_incX incX
#endif #endif
int n, i=0, tincX; CBLAS_INT_TYPE n, i=0, tincX;
float *st=0,*x=(float *)X; float *st=0,*x=(float *)X;
if (order == CblasColMajor) if (order == CblasColMajor)
......
...@@ -9,7 +9,7 @@ ...@@ -9,7 +9,7 @@
#include "cblas_f77.h" #include "cblas_f77.h"
void cblas_ctpmv(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo, void cblas_ctpmv(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
const enum CBLAS_TRANSPOSE TransA, const enum CBLAS_DIAG Diag, const enum CBLAS_TRANSPOSE TransA, const enum CBLAS_DIAG Diag,
const int N, const void *Ap, void *X, const int incX) const CBLAS_INT_TYPE N, const void *Ap, void *X, const CBLAS_INT_TYPE incX)
{ {
char TA; char TA;
char UL; char UL;
...@@ -27,7 +27,7 @@ void cblas_ctpmv(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo, ...@@ -27,7 +27,7 @@ void cblas_ctpmv(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
#define F77_N N #define F77_N N
#define F77_incX incX #define F77_incX incX
#endif #endif
int n, i=0, tincX; CBLAS_INT_TYPE n, i=0, tincX;
float *st=0,*x=(float *)X; float *st=0,*x=(float *)X;
if (order == CblasColMajor) if (order == CblasColMajor)
......
...@@ -9,7 +9,7 @@ ...@@ -9,7 +9,7 @@
#include "cblas_f77.h" #include "cblas_f77.h"
void cblas_ctpsv(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo, void cblas_ctpsv(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
const enum CBLAS_TRANSPOSE TransA, const enum CBLAS_DIAG Diag, const enum CBLAS_TRANSPOSE TransA, const enum CBLAS_DIAG Diag,
const int N, const void *Ap, void *X, const int incX) const CBLAS_INT_TYPE N, const void *Ap, void *X, const CBLAS_INT_TYPE incX)
{ {
char TA; char TA;
char UL; char UL;
...@@ -27,7 +27,7 @@ void cblas_ctpsv(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo, ...@@ -27,7 +27,7 @@ void cblas_ctpsv(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
#define F77_N N #define F77_N N
#define F77_incX incX #define F77_incX incX
#endif #endif
int n, i=0, tincX; CBLAS_INT_TYPE n, i=0, tincX;
float *st=0, *x=(float*)X; float *st=0, *x=(float*)X;
if (order == CblasColMajor) if (order == CblasColMajor)
......
...@@ -11,9 +11,9 @@ ...@@ -11,9 +11,9 @@
#include "cblas_f77.h" #include "cblas_f77.h"
void cblas_ctrmm(const enum CBLAS_ORDER Order, const enum CBLAS_SIDE Side, void cblas_ctrmm(const enum CBLAS_ORDER Order, const enum CBLAS_SIDE Side,
const enum CBLAS_UPLO Uplo, const enum CBLAS_TRANSPOSE TransA, const enum CBLAS_UPLO Uplo, const enum CBLAS_TRANSPOSE TransA,
const enum CBLAS_DIAG Diag, const int M, const int N, const enum CBLAS_DIAG Diag, const CBLAS_INT_TYPE M, const CBLAS_INT_TYPE N,
const void *alpha, const void *A, const int lda, const void *alpha, const void *A, const CBLAS_INT_TYPE lda,
void *B, const int ldb) void *B, const CBLAS_INT_TYPE ldb)
{ {
char UL, TA, SD, DI; char UL, TA, SD, DI;
#ifdef F77_CHAR #ifdef F77_CHAR
......
...@@ -9,8 +9,8 @@ ...@@ -9,8 +9,8 @@
#include "cblas_f77.h" #include "cblas_f77.h"
void cblas_ctrmv(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo, void cblas_ctrmv(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
const enum CBLAS_TRANSPOSE TransA, const enum CBLAS_DIAG Diag, const enum CBLAS_TRANSPOSE TransA, const enum CBLAS_DIAG Diag,
const int N, const void *A, const int lda, const CBLAS_INT_TYPE N, const void *A, const CBLAS_INT_TYPE lda,
void *X, const int incX) void *X, const CBLAS_INT_TYPE incX)
{ {
char TA; char TA;
...@@ -30,7 +30,7 @@ void cblas_ctrmv(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo, ...@@ -30,7 +30,7 @@ void cblas_ctrmv(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
#define F77_lda lda #define F77_lda lda
#define F77_incX incX #define F77_incX incX
#endif #endif
int n, i=0, tincX; CBLAS_INT_TYPE n, i=0, tincX;
float *st=0,*x=(float *)X; float *st=0,*x=(float *)X;
if (order == CblasColMajor) if (order == CblasColMajor)
......
...@@ -11,9 +11,9 @@ ...@@ -11,9 +11,9 @@
#include "cblas_f77.h" #include "cblas_f77.h"
void cblas_ctrsm(const enum CBLAS_ORDER Order, const enum CBLAS_SIDE Side, void cblas_ctrsm(const enum CBLAS_ORDER Order, const enum CBLAS_SIDE Side,
const enum CBLAS_UPLO Uplo, const enum CBLAS_TRANSPOSE TransA, const enum CBLAS_UPLO Uplo, const enum CBLAS_TRANSPOSE TransA,
const enum CBLAS_DIAG Diag, const int M, const int N, const enum CBLAS_DIAG Diag, const CBLAS_INT_TYPE M, const CBLAS_INT_TYPE N,
const void *alpha, const void *A, const int lda, const void *alpha, const void *A, const CBLAS_INT_TYPE lda,
void *B, const int ldb) void *B, const CBLAS_INT_TYPE ldb)
{ {
char UL, TA, SD, DI; char UL, TA, SD, DI;
#ifdef F77_CHAR #ifdef F77_CHAR
......
...@@ -9,8 +9,8 @@ ...@@ -9,8 +9,8 @@
#include "cblas_f77.h" #include "cblas_f77.h"
void cblas_ctrsv(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo, void cblas_ctrsv(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
const enum CBLAS_TRANSPOSE TransA, const enum CBLAS_DIAG Diag, const enum CBLAS_TRANSPOSE TransA, const enum CBLAS_DIAG Diag,
const int N, const void *A, const int lda, void *X, const CBLAS_INT_TYPE N, const void *A, const CBLAS_INT_TYPE lda, void *X,
const int incX) const CBLAS_INT_TYPE incX)
{ {
char TA; char TA;
char UL; char UL;
...@@ -29,7 +29,7 @@ void cblas_ctrsv(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo, ...@@ -29,7 +29,7 @@ void cblas_ctrsv(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
#define F77_lda lda #define F77_lda lda
#define F77_incX incX #define F77_incX incX
#endif #endif
int n, i=0, tincX; CBLAS_INT_TYPE n, i=0, tincX;
float *st=0,*x=(float *)X; float *st=0,*x=(float *)X;
if (order == CblasColMajor) if (order == CblasColMajor)
......
...@@ -9,7 +9,7 @@ ...@@ -9,7 +9,7 @@
*/ */
#include "cblas.h" #include "cblas.h"
#include "cblas_f77.h" #include "cblas_f77.h"
double cblas_dasum( const int N, const double *X, const int incX) double cblas_dasum( const CBLAS_INT_TYPE N, const double *X, const CBLAS_INT_TYPE incX)
{ {
double asum; double asum;
#ifdef F77_INT #ifdef F77_INT
......
...@@ -8,8 +8,8 @@ ...@@ -8,8 +8,8 @@
*/ */
#include "cblas.h" #include "cblas.h"
#include "cblas_f77.h" #include "cblas_f77.h"
void cblas_daxpy( const int N, const double alpha, const double *X, void cblas_daxpy( const CBLAS_INT_TYPE N, const double alpha, const double *X,
const int incX, double *Y, const int incY) const CBLAS_INT_TYPE incX, double *Y, const CBLAS_INT_TYPE incY)
{ {
#ifdef F77_INT #ifdef F77_INT
F77_INT F77_N=N, F77_incX=incX, F77_incY=incY; F77_INT F77_N=N, F77_incX=incX, F77_incY=incY;
......
...@@ -8,8 +8,8 @@ ...@@ -8,8 +8,8 @@
*/ */
#include "cblas.h" #include "cblas.h"
#include "cblas_f77.h" #include "cblas_f77.h"
void cblas_dcopy( const int N, const double *X, void cblas_dcopy( const CBLAS_INT_TYPE N, const double *X,
const int incX, double *Y, const int incY) const CBLAS_INT_TYPE incX, double *Y, const CBLAS_INT_TYPE incY)
{ {
#ifdef F77_INT #ifdef F77_INT
F77_INT F77_N=N, F77_incX=incX, F77_incY=incY; F77_INT F77_N=N, F77_incX=incX, F77_incY=incY;
......
...@@ -9,8 +9,8 @@ ...@@ -9,8 +9,8 @@
*/ */
#include "cblas.h" #include "cblas.h"
#include "cblas_f77.h" #include "cblas_f77.h"
double cblas_ddot( const int N, const double *X, double cblas_ddot( const CBLAS_INT_TYPE N, const double *X,
const int incX, const double *Y, const int incY) const CBLAS_INT_TYPE incX, const double *Y, const CBLAS_INT_TYPE incY)
{ {
double dot; double dot;
#ifdef F77_INT #ifdef F77_INT
......
...@@ -9,11 +9,11 @@ ...@@ -9,11 +9,11 @@
#include "cblas.h" #include "cblas.h"
#include "cblas_f77.h" #include "cblas_f77.h"
void cblas_dgbmv(const enum CBLAS_ORDER order, void cblas_dgbmv(const enum CBLAS_ORDER order,
const enum CBLAS_TRANSPOSE TransA, const int M, const int N, const enum CBLAS_TRANSPOSE TransA, const CBLAS_INT_TYPE M, const CBLAS_INT_TYPE N,
const int KL, const int KU, const CBLAS_INT_TYPE KL, const CBLAS_INT_TYPE KU,
const double alpha, const double *A, const int lda, const double alpha, const double *A, const CBLAS_INT_TYPE lda,
const double *X, const int incX, const double beta, const double *X, const CBLAS_INT_TYPE incX, const double beta,
double *Y, const int incY) double *Y, const CBLAS_INT_TYPE incY)
{ {
char TA; char TA;
#ifdef F77_CHAR #ifdef F77_CHAR
......
...@@ -10,10 +10,10 @@ ...@@ -10,10 +10,10 @@
#include "cblas.h" #include "cblas.h"
#include "cblas_f77.h" #include "cblas_f77.h"
void cblas_dgemm(const enum CBLAS_ORDER Order, const enum CBLAS_TRANSPOSE TransA, void cblas_dgemm(const enum CBLAS_ORDER Order, const enum CBLAS_TRANSPOSE TransA,
const enum CBLAS_TRANSPOSE TransB, const int M, const int N, const enum CBLAS_TRANSPOSE TransB, const CBLAS_INT_TYPE M, const CBLAS_INT_TYPE N,
const int K, const double alpha, const double *A, const CBLAS_INT_TYPE K, const double alpha, const double *A,
const int lda, const double *B, const int ldb, const CBLAS_INT_TYPE lda, const double *B, const CBLAS_INT_TYPE ldb,
const double beta, double *C, const int ldc) const double beta, double *C, const CBLAS_INT_TYPE ldc)
{ {
char TA, TB; char TA, TB;
#ifdef F77_CHAR #ifdef F77_CHAR
......
...@@ -9,10 +9,10 @@ ...@@ -9,10 +9,10 @@
#include "cblas.h" #include "cblas.h"
#include "cblas_f77.h" #include "cblas_f77.h"
void cblas_dgemv(const enum CBLAS_ORDER order, void cblas_dgemv(const enum CBLAS_ORDER order,
const enum CBLAS_TRANSPOSE TransA, const int M, const int N, const enum CBLAS_TRANSPOSE TransA, const CBLAS_INT_TYPE M, const CBLAS_INT_TYPE N,
const double alpha, const double *A, const int lda, const double alpha, const double *A, const CBLAS_INT_TYPE lda,
const double *X, const int incX, const double beta, const double *X, const CBLAS_INT_TYPE incX, const double beta,
double *Y, const int incY) double *Y, const CBLAS_INT_TYPE incY)
{ {
char TA; char TA;
#ifdef F77_CHAR #ifdef F77_CHAR
......
...@@ -9,9 +9,9 @@ ...@@ -9,9 +9,9 @@
#include "cblas.h" #include "cblas.h"
#include "cblas_f77.h" #include "cblas_f77.h"
void cblas_dger(const enum CBLAS_ORDER order, const int M, const int N, void cblas_dger(const enum CBLAS_ORDER order, const CBLAS_INT_TYPE M, const CBLAS_INT_TYPE N,
const double alpha, const double *X, const int incX, const double alpha, const double *X, const CBLAS_INT_TYPE incX,
const double *Y, const int incY, double *A, const int lda) const double *Y, const CBLAS_INT_TYPE incY, double *A, const CBLAS_INT_TYPE lda)
{ {
#ifdef F77_INT #ifdef F77_INT
F77_INT F77_M=M, F77_N=N, F77_lda=lda, F77_incX=incX, F77_incY=incY; F77_INT F77_M=M, F77_N=N, F77_lda=lda, F77_incX=incX, F77_incY=incY;
......
...@@ -9,7 +9,7 @@ ...@@ -9,7 +9,7 @@
*/ */
#include "cblas.h" #include "cblas.h"
#include "cblas_f77.h" #include "cblas_f77.h"
double cblas_dnrm2( const int N, const double *X, const int incX) double cblas_dnrm2( const CBLAS_INT_TYPE N, const double *X, const CBLAS_INT_TYPE incX)
{ {
double nrm2; double nrm2;
#ifdef F77_INT #ifdef F77_INT
......
...@@ -8,8 +8,8 @@ ...@@ -8,8 +8,8 @@
*/ */
#include "cblas.h" #include "cblas.h"
#include "cblas_f77.h" #include "cblas_f77.h"
void cblas_drot(const int N, double *X, const int incX, void cblas_drot(const CBLAS_INT_TYPE N, double *X, const CBLAS_INT_TYPE incX,
double *Y, const int incY, const double c, const double s) double *Y, const CBLAS_INT_TYPE incY, const double c, const double s)
{ {
#ifdef F77_INT #ifdef F77_INT
F77_INT F77_N=N, F77_incX=incX, F77_incY=incY; F77_INT F77_N=N, F77_incX=incX, F77_incY=incY;
......
#include "cblas.h" #include "cblas.h"
#include "cblas_f77.h" #include "cblas_f77.h"
void cblas_drotm( const int N, double *X, const int incX, double *Y, void cblas_drotm( const CBLAS_INT_TYPE N, double *X, const CBLAS_INT_TYPE incX, double *Y,
const int incY, const double *P) const CBLAS_INT_TYPE incY, const double *P)
{ {
#ifdef F77_INT #ifdef F77_INT
F77_INT F77_N=N, F77_incX=incX, F77_incY=incY; F77_INT F77_N=N, F77_incX=incX, F77_incY=incY;
......
...@@ -10,10 +10,10 @@ ...@@ -10,10 +10,10 @@
#include "cblas.h" #include "cblas.h"
#include "cblas_f77.h" #include "cblas_f77.h"
void cblas_dsbmv(const enum CBLAS_ORDER order, void cblas_dsbmv(const enum CBLAS_ORDER order,
const enum CBLAS_UPLO Uplo, const int N, const int K, const enum CBLAS_UPLO Uplo, const CBLAS_INT_TYPE N, const CBLAS_INT_TYPE K,
const double alpha, const double *A, const int lda, const double alpha, const double *A, const CBLAS_INT_TYPE lda,
const double *X, const int incX, const double beta, const double *X, const CBLAS_INT_TYPE incX, const double beta,
double *Y, const int incY) double *Y, const CBLAS_INT_TYPE incY)
{ {
char UL; char UL;
#ifdef F77_CHAR #ifdef F77_CHAR
......
...@@ -8,8 +8,8 @@ ...@@ -8,8 +8,8 @@
*/ */
#include "cblas.h" #include "cblas.h"
#include "cblas_f77.h" #include "cblas_f77.h"
void cblas_dscal( const int N, const double alpha, double *X, void cblas_dscal( const CBLAS_INT_TYPE N, const double alpha, double *X,
const int incX) const CBLAS_INT_TYPE incX)
{ {
#ifdef F77_INT #ifdef F77_INT
F77_INT F77_N=N, F77_incX=incX; F77_INT F77_N=N, F77_incX=incX;
......
...@@ -9,8 +9,8 @@ ...@@ -9,8 +9,8 @@
*/ */
#include "cblas.h" #include "cblas.h"
#include "cblas_f77.h" #include "cblas_f77.h"
double cblas_dsdot( const int N, const float *X, double cblas_dsdot( const CBLAS_INT_TYPE N, const float *X,
const int incX, const float *Y, const int incY) const CBLAS_INT_TYPE incX, const float *Y, const CBLAS_INT_TYPE incY)
{ {
double dot; double dot;
#ifdef F77_INT #ifdef F77_INT
......
...@@ -11,10 +11,10 @@ ...@@ -11,10 +11,10 @@
#include "cblas.h" #include "cblas.h"
#include "cblas_f77.h" #include "cblas_f77.h"
void cblas_dspmv(const enum CBLAS_ORDER order, void cblas_dspmv(const enum CBLAS_ORDER order,
const enum CBLAS_UPLO Uplo, const int N, const enum CBLAS_UPLO Uplo, const CBLAS_INT_TYPE N,
const double alpha, const double *AP, const double alpha, const double *AP,
const double *X, const int incX, const double beta, const double *X, const CBLAS_INT_TYPE incX, const double beta,
double *Y, const int incY) double *Y, const CBLAS_INT_TYPE incY)
{ {
char UL; char UL;
#ifdef F77_CHAR #ifdef F77_CHAR
......
...@@ -10,8 +10,8 @@ ...@@ -10,8 +10,8 @@
#include "cblas.h" #include "cblas.h"
#include "cblas_f77.h" #include "cblas_f77.h"
void cblas_dspr(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo, void cblas_dspr(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
const int N, const double alpha, const double *X, const CBLAS_INT_TYPE N, const double alpha, const double *X,
const int incX, double *Ap) const CBLAS_INT_TYPE incX, double *Ap)
{ {
char UL; char UL;
#ifdef F77_CHAR #ifdef F77_CHAR
......
...@@ -8,8 +8,8 @@ ...@@ -8,8 +8,8 @@
#include "cblas.h" #include "cblas.h"
#include "cblas_f77.h" #include "cblas_f77.h"
void cblas_dspr2(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo, void cblas_dspr2(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
const int N, const double alpha, const double *X, const CBLAS_INT_TYPE N, const double alpha, const double *X,
const int incX, const double *Y, const int incY, double *A) const CBLAS_INT_TYPE incX, const double *Y, const CBLAS_INT_TYPE incY, double *A)
{ {
char UL; char UL;
#ifdef F77_CHAR #ifdef F77_CHAR
......
...@@ -8,8 +8,8 @@ ...@@ -8,8 +8,8 @@
*/ */
#include "cblas.h" #include "cblas.h"
#include "cblas_f77.h" #include "cblas_f77.h"
void cblas_dswap( const int N, double *X, const int incX, double *Y, void cblas_dswap( const CBLAS_INT_TYPE N, double *X, const CBLAS_INT_TYPE incX, double *Y,
const int incY) const CBLAS_INT_TYPE incY)
{ {
#ifdef F77_INT #ifdef F77_INT
F77_INT F77_N=N, F77_incX=incX, F77_incY=incY; F77_INT F77_N=N, F77_incX=incX, F77_incY=incY;
......
...@@ -10,10 +10,10 @@ ...@@ -10,10 +10,10 @@
#include "cblas.h" #include "cblas.h"
#include "cblas_f77.h" #include "cblas_f77.h"
void cblas_dsymm(const enum CBLAS_ORDER Order, const enum CBLAS_SIDE Side, void cblas_dsymm(const enum CBLAS_ORDER Order, const enum CBLAS_SIDE Side,
const enum CBLAS_UPLO Uplo, const int M, const int N, const enum CBLAS_UPLO Uplo, const CBLAS_INT_TYPE M, const CBLAS_INT_TYPE N,
const double alpha, const double *A, const int lda, const double alpha, const double *A, const CBLAS_INT_TYPE lda,
const double *B, const int ldb, const double beta, const double *B, const CBLAS_INT_TYPE ldb, const double beta,
double *C, const int ldc) double *C, const CBLAS_INT_TYPE ldc)
{ {
char SD, UL; char SD, UL;
#ifdef F77_CHAR #ifdef F77_CHAR
......
...@@ -10,10 +10,10 @@ ...@@ -10,10 +10,10 @@
#include "cblas.h" #include "cblas.h"
#include "cblas_f77.h" #include "cblas_f77.h"
void cblas_dsymv(const enum CBLAS_ORDER order, void cblas_dsymv(const enum CBLAS_ORDER order,
const enum CBLAS_UPLO Uplo, const int N, const enum CBLAS_UPLO Uplo, const CBLAS_INT_TYPE N,
const double alpha, const double *A, const int lda, const double alpha, const double *A, const CBLAS_INT_TYPE lda,
const double *X, const int incX, const double beta, const double *X, const CBLAS_INT_TYPE incX, const double beta,
double *Y, const int incY) double *Y, const CBLAS_INT_TYPE incY)
{ {
char UL; char UL;
#ifdef F77_CHAR #ifdef F77_CHAR
......
...@@ -10,8 +10,8 @@ ...@@ -10,8 +10,8 @@
#include "cblas.h" #include "cblas.h"
#include "cblas_f77.h" #include "cblas_f77.h"
void cblas_dsyr(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo, void cblas_dsyr(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
const int N, const double alpha, const double *X, const CBLAS_INT_TYPE N, const double alpha, const double *X,
const int incX, double *A, const int lda) const CBLAS_INT_TYPE incX, double *A, const CBLAS_INT_TYPE lda)
{ {
char UL; char UL;
#ifdef F77_CHAR #ifdef F77_CHAR
......
...@@ -10,9 +10,9 @@ ...@@ -10,9 +10,9 @@
#include "cblas.h" #include "cblas.h"
#include "cblas_f77.h" #include "cblas_f77.h"
void cblas_dsyr2(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo, void cblas_dsyr2(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
const int N, const double alpha, const double *X, const CBLAS_INT_TYPE N, const double alpha, const double *X,
const int incX, const double *Y, const int incY, double *A, const CBLAS_INT_TYPE incX, const double *Y, const CBLAS_INT_TYPE incY, double *A,
const int lda) const CBLAS_INT_TYPE lda)
{ {
char UL; char UL;
#ifdef F77_CHAR #ifdef F77_CHAR
......
...@@ -10,10 +10,10 @@ ...@@ -10,10 +10,10 @@
#include "cblas.h" #include "cblas.h"
#include "cblas_f77.h" #include "cblas_f77.h"
void cblas_dsyr2k(const enum CBLAS_ORDER Order, const enum CBLAS_UPLO Uplo, void cblas_dsyr2k(const enum CBLAS_ORDER Order, const enum CBLAS_UPLO Uplo,
const enum CBLAS_TRANSPOSE Trans, const int N, const int K, const enum CBLAS_TRANSPOSE Trans, const CBLAS_INT_TYPE N, const CBLAS_INT_TYPE K,
const double alpha, const double *A, const int lda, const double alpha, const double *A, const CBLAS_INT_TYPE lda,
const double *B, const int ldb, const double beta, const double *B, const CBLAS_INT_TYPE ldb, const double beta,
double *C, const int ldc) double *C, const CBLAS_INT_TYPE ldc)
{ {
char UL, TR; char UL, TR;
#ifdef F77_CHAR #ifdef F77_CHAR
......
...@@ -10,9 +10,9 @@ ...@@ -10,9 +10,9 @@
#include "cblas.h" #include "cblas.h"
#include "cblas_f77.h" #include "cblas_f77.h"
void cblas_dsyrk(const enum CBLAS_ORDER Order, const enum CBLAS_UPLO Uplo, void cblas_dsyrk(const enum CBLAS_ORDER Order, const enum CBLAS_UPLO Uplo,
const enum CBLAS_TRANSPOSE Trans, const int N, const int K, const enum CBLAS_TRANSPOSE Trans, const CBLAS_INT_TYPE N, const CBLAS_INT_TYPE K,
const double alpha, const double *A, const int lda, const double alpha, const double *A, const CBLAS_INT_TYPE lda,
const double beta, double *C, const int ldc) const double beta, double *C, const CBLAS_INT_TYPE ldc)
{ {
char UL, TR; char UL, TR;
#ifdef F77_CHAR #ifdef F77_CHAR
......
...@@ -9,8 +9,8 @@ ...@@ -9,8 +9,8 @@
#include "cblas_f77.h" #include "cblas_f77.h"
void cblas_dtbmv(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo, void cblas_dtbmv(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
const enum CBLAS_TRANSPOSE TransA, const enum CBLAS_DIAG Diag, const enum CBLAS_TRANSPOSE TransA, const enum CBLAS_DIAG Diag,
const int N, const int K, const double *A, const int lda, const CBLAS_INT_TYPE N, const CBLAS_INT_TYPE K, const double *A, const CBLAS_INT_TYPE lda,
double *X, const int incX) double *X, const CBLAS_INT_TYPE incX)
{ {
char TA; char TA;
char UL; char UL;
......
...@@ -9,8 +9,8 @@ ...@@ -9,8 +9,8 @@
#include "cblas_f77.h" #include "cblas_f77.h"
void cblas_dtbsv(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo, void cblas_dtbsv(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
const enum CBLAS_TRANSPOSE TransA, const enum CBLAS_DIAG Diag, const enum CBLAS_TRANSPOSE TransA, const enum CBLAS_DIAG Diag,
const int N, const int K, const double *A, const int lda, const CBLAS_INT_TYPE N, const CBLAS_INT_TYPE K, const double *A, const CBLAS_INT_TYPE lda,
double *X, const int incX) double *X, const CBLAS_INT_TYPE incX)
{ {
char TA; char TA;
char UL; char UL;
......
...@@ -9,7 +9,7 @@ ...@@ -9,7 +9,7 @@
#include "cblas_f77.h" #include "cblas_f77.h"
void cblas_dtpmv(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo, void cblas_dtpmv(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
const enum CBLAS_TRANSPOSE TransA, const enum CBLAS_DIAG Diag, const enum CBLAS_TRANSPOSE TransA, const enum CBLAS_DIAG Diag,
const int N, const double *Ap, double *X, const int incX) const CBLAS_INT_TYPE N, const double *Ap, double *X, const CBLAS_INT_TYPE incX)
{ {
char TA; char TA;
char UL; char UL;
......
...@@ -9,7 +9,7 @@ ...@@ -9,7 +9,7 @@
#include "cblas_f77.h" #include "cblas_f77.h"
void cblas_dtpsv(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo, void cblas_dtpsv(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
const enum CBLAS_TRANSPOSE TransA, const enum CBLAS_DIAG Diag, const enum CBLAS_TRANSPOSE TransA, const enum CBLAS_DIAG Diag,
const int N, const double *Ap, double *X, const int incX) const CBLAS_INT_TYPE N, const double *Ap, double *X, const CBLAS_INT_TYPE incX)
{ {
char TA; char TA;
char UL; char UL;
......
...@@ -11,9 +11,9 @@ ...@@ -11,9 +11,9 @@
#include "cblas_f77.h" #include "cblas_f77.h"
void cblas_dtrmm(const enum CBLAS_ORDER Order, const enum CBLAS_SIDE Side, void cblas_dtrmm(const enum CBLAS_ORDER Order, const enum CBLAS_SIDE Side,
const enum CBLAS_UPLO Uplo, const enum CBLAS_TRANSPOSE TransA, const enum CBLAS_UPLO Uplo, const enum CBLAS_TRANSPOSE TransA,
const enum CBLAS_DIAG Diag, const int M, const int N, const enum CBLAS_DIAG Diag, const CBLAS_INT_TYPE M, const CBLAS_INT_TYPE N,
const double alpha, const double *A, const int lda, const double alpha, const double *A, const CBLAS_INT_TYPE lda,
double *B, const int ldb) double *B, const CBLAS_INT_TYPE ldb)
{ {
char UL, TA, SD, DI; char UL, TA, SD, DI;
#ifdef F77_CHAR #ifdef F77_CHAR
......
...@@ -11,8 +11,8 @@ ...@@ -11,8 +11,8 @@
#include "cblas_f77.h" #include "cblas_f77.h"
void cblas_dtrmv(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo, void cblas_dtrmv(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
const enum CBLAS_TRANSPOSE TransA, const enum CBLAS_DIAG Diag, const enum CBLAS_TRANSPOSE TransA, const enum CBLAS_DIAG Diag,
const int N, const double *A, const int lda, const CBLAS_INT_TYPE N, const double *A, const CBLAS_INT_TYPE lda,
double *X, const int incX) double *X, const CBLAS_INT_TYPE incX)
{ {
char TA; char TA;
......
...@@ -11,9 +11,9 @@ ...@@ -11,9 +11,9 @@
#include "cblas_f77.h" #include "cblas_f77.h"
void cblas_dtrsm(const enum CBLAS_ORDER Order, const enum CBLAS_SIDE Side, void cblas_dtrsm(const enum CBLAS_ORDER Order, const enum CBLAS_SIDE Side,
const enum CBLAS_UPLO Uplo, const enum CBLAS_TRANSPOSE TransA, const enum CBLAS_UPLO Uplo, const enum CBLAS_TRANSPOSE TransA,
const enum CBLAS_DIAG Diag, const int M, const int N, const enum CBLAS_DIAG Diag, const CBLAS_INT_TYPE M, const CBLAS_INT_TYPE N,
const double alpha, const double *A, const int lda, const double alpha, const double *A, const CBLAS_INT_TYPE lda,
double *B, const int ldb) double *B, const CBLAS_INT_TYPE ldb)
{ {
char UL, TA, SD, DI; char UL, TA, SD, DI;
......
...@@ -9,8 +9,8 @@ ...@@ -9,8 +9,8 @@
#include "cblas_f77.h" #include "cblas_f77.h"
void cblas_dtrsv(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo, void cblas_dtrsv(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
const enum CBLAS_TRANSPOSE TransA, const enum CBLAS_DIAG Diag, const enum CBLAS_TRANSPOSE TransA, const enum CBLAS_DIAG Diag,
const int N, const double *A, const int lda, double *X, const CBLAS_INT_TYPE N, const double *A, const CBLAS_INT_TYPE lda, double *X,
const int incX) const CBLAS_INT_TYPE incX)
{ {
char TA; char TA;
......
...@@ -9,7 +9,7 @@ ...@@ -9,7 +9,7 @@
*/ */
#include "cblas.h" #include "cblas.h"
#include "cblas_f77.h" #include "cblas_f77.h"
double cblas_dzasum( const int N, const void *X, const int incX) double cblas_dzasum( const CBLAS_INT_TYPE N, const void *X, const CBLAS_INT_TYPE incX)
{ {
double asum; double asum;
#ifdef F77_INT #ifdef F77_INT
......
...@@ -9,7 +9,7 @@ ...@@ -9,7 +9,7 @@
*/ */
#include "cblas.h" #include "cblas.h"
#include "cblas_f77.h" #include "cblas_f77.h"
double cblas_dznrm2( const int N, const void *X, const int incX) double cblas_dznrm2( const CBLAS_INT_TYPE N, const void *X, const CBLAS_INT_TYPE incX)
{ {
double nrm2; double nrm2;
#ifdef F77_INT #ifdef F77_INT
......
...@@ -9,7 +9,7 @@ ...@@ -9,7 +9,7 @@
*/ */
#include "cblas.h" #include "cblas.h"
#include "cblas_f77.h" #include "cblas_f77.h"
CBLAS_INDEX cblas_icamax( const int N, const void *X, const int incX) CBLAS_INDEX cblas_icamax( const CBLAS_INT_TYPE N, const void *X, const CBLAS_INT_TYPE incX)
{ {
F77_INT iamax; F77_INT iamax;
#ifdef F77_INT #ifdef F77_INT
......
...@@ -9,7 +9,7 @@ ...@@ -9,7 +9,7 @@
*/ */
#include "cblas.h" #include "cblas.h"
#include "cblas_f77.h" #include "cblas_f77.h"
CBLAS_INDEX cblas_idamax( const int N, const double *X, const int incX) CBLAS_INDEX cblas_idamax( const CBLAS_INT_TYPE N, const double *X, const CBLAS_INT_TYPE incX)
{ {
F77_INT iamax; F77_INT iamax;
#ifdef F77_INT #ifdef F77_INT
......
...@@ -9,7 +9,7 @@ ...@@ -9,7 +9,7 @@
*/ */
#include "cblas.h" #include "cblas.h"
#include "cblas_f77.h" #include "cblas_f77.h"
CBLAS_INDEX cblas_isamax( const int N, const float *X, const int incX) CBLAS_INDEX cblas_isamax( const CBLAS_INT_TYPE N, const float *X, const CBLAS_INT_TYPE incX)
{ {
F77_INT iamax; F77_INT iamax;
#ifdef F77_INT #ifdef F77_INT
......
...@@ -9,7 +9,7 @@ ...@@ -9,7 +9,7 @@
*/ */
#include "cblas.h" #include "cblas.h"
#include "cblas_f77.h" #include "cblas_f77.h"
CBLAS_INDEX cblas_izamax( const int N, const void *X, const int incX) CBLAS_INDEX cblas_izamax( const CBLAS_INT_TYPE N, const void *X, const CBLAS_INT_TYPE incX)
{ {
F77_INT iamax; F77_INT iamax;
#ifdef F77_INT #ifdef F77_INT
......
...@@ -9,7 +9,7 @@ ...@@ -9,7 +9,7 @@
*/ */
#include "cblas.h" #include "cblas.h"
#include "cblas_f77.h" #include "cblas_f77.h"
float cblas_sasum( const int N, const float *X, const int incX) float cblas_sasum( const CBLAS_INT_TYPE N, const float *X, const CBLAS_INT_TYPE incX)
{ {
float asum; float asum;
#ifdef F77_INT #ifdef F77_INT
......
...@@ -9,8 +9,8 @@ ...@@ -9,8 +9,8 @@
*/ */
#include "cblas.h" #include "cblas.h"
#include "cblas_f77.h" #include "cblas_f77.h"
void cblas_saxpy( const int N, const float alpha, const float *X, void cblas_saxpy( const CBLAS_INT_TYPE N, const float alpha, const float *X,
const int incX, float *Y, const int incY) const CBLAS_INT_TYPE incX, float *Y, const CBLAS_INT_TYPE incY)
{ {
#ifdef F77_INT #ifdef F77_INT
F77_INT F77_N=N, F77_incX=incX, F77_incY=incY; F77_INT F77_N=N, F77_incX=incX, F77_incY=incY;
......
...@@ -9,7 +9,7 @@ ...@@ -9,7 +9,7 @@
*/ */
#include "cblas.h" #include "cblas.h"
#include "cblas_f77.h" #include "cblas_f77.h"
float cblas_scasum( const int N, const void *X, const int incX) float cblas_scasum( const CBLAS_INT_TYPE N, const void *X, const CBLAS_INT_TYPE incX)
{ {
float asum; float asum;
#ifdef F77_INT #ifdef F77_INT
......
...@@ -9,7 +9,7 @@ ...@@ -9,7 +9,7 @@
*/ */
#include "cblas.h" #include "cblas.h"
#include "cblas_f77.h" #include "cblas_f77.h"
float cblas_scnrm2( const int N, const void *X, const int incX) float cblas_scnrm2( const CBLAS_INT_TYPE N, const void *X, const CBLAS_INT_TYPE incX)
{ {
float nrm2; float nrm2;
#ifdef F77_INT #ifdef F77_INT
......
...@@ -8,8 +8,8 @@ ...@@ -8,8 +8,8 @@
*/ */
#include "cblas.h" #include "cblas.h"
#include "cblas_f77.h" #include "cblas_f77.h"
void cblas_scopy( const int N, const float *X, void cblas_scopy( const CBLAS_INT_TYPE N, const float *X,
const int incX, float *Y, const int incY) const CBLAS_INT_TYPE incX, float *Y, const CBLAS_INT_TYPE incY)
{ {
#ifdef F77_INT #ifdef F77_INT
F77_INT F77_N=N, F77_incX=incX, F77_incY=incY; F77_INT F77_N=N, F77_incX=incX, F77_incY=incY;
......
...@@ -9,8 +9,8 @@ ...@@ -9,8 +9,8 @@
*/ */
#include "cblas.h" #include "cblas.h"
#include "cblas_f77.h" #include "cblas_f77.h"
float cblas_sdot( const int N, const float *X, float cblas_sdot( const CBLAS_INT_TYPE N, const float *X,
const int incX, const float *Y, const int incY) const CBLAS_INT_TYPE incX, const float *Y, const CBLAS_INT_TYPE incY)
{ {
float dot; float dot;
#ifdef F77_INT #ifdef F77_INT
......
...@@ -9,8 +9,8 @@ ...@@ -9,8 +9,8 @@
*/ */
#include "cblas.h" #include "cblas.h"
#include "cblas_f77.h" #include "cblas_f77.h"
float cblas_sdsdot( const int N, const float alpha, const float *X, float cblas_sdsdot( const CBLAS_INT_TYPE N, const float alpha, const float *X,
const int incX, const float *Y, const int incY) const CBLAS_INT_TYPE incX, const float *Y, const CBLAS_INT_TYPE incY)
{ {
float dot; float dot;
#ifdef F77_INT #ifdef F77_INT
......
...@@ -10,11 +10,11 @@ ...@@ -10,11 +10,11 @@
#include "cblas.h" #include "cblas.h"
#include "cblas_f77.h" #include "cblas_f77.h"
void cblas_sgbmv(const enum CBLAS_ORDER order, void cblas_sgbmv(const enum CBLAS_ORDER order,
const enum CBLAS_TRANSPOSE TransA, const int M, const int N, const enum CBLAS_TRANSPOSE TransA, const CBLAS_INT_TYPE M, const CBLAS_INT_TYPE N,
const int KL, const int KU, const CBLAS_INT_TYPE KL, const CBLAS_INT_TYPE KU,
const float alpha, const float *A, const int lda, const float alpha, const float *A, const CBLAS_INT_TYPE lda,
const float *X, const int incX, const float beta, const float *X, const CBLAS_INT_TYPE incX, const float beta,
float *Y, const int incY) float *Y, const CBLAS_INT_TYPE incY)
{ {
char TA; char TA;
#ifdef F77_CHAR #ifdef F77_CHAR
......
...@@ -10,10 +10,10 @@ ...@@ -10,10 +10,10 @@
#include "cblas.h" #include "cblas.h"
#include "cblas_f77.h" #include "cblas_f77.h"
void cblas_sgemm(const enum CBLAS_ORDER Order, const enum CBLAS_TRANSPOSE TransA, void cblas_sgemm(const enum CBLAS_ORDER Order, const enum CBLAS_TRANSPOSE TransA,
const enum CBLAS_TRANSPOSE TransB, const int M, const int N, const enum CBLAS_TRANSPOSE TransB, const CBLAS_INT_TYPE M, const CBLAS_INT_TYPE N,
const int K, const float alpha, const float *A, const CBLAS_INT_TYPE K, const float alpha, const float *A,
const int lda, const float *B, const int ldb, const CBLAS_INT_TYPE lda, const float *B, const CBLAS_INT_TYPE ldb,
const float beta, float *C, const int ldc) const float beta, float *C, const CBLAS_INT_TYPE ldc)
{ {
char TA, TB; char TA, TB;
#ifdef F77_CHAR #ifdef F77_CHAR
......
...@@ -9,10 +9,10 @@ ...@@ -9,10 +9,10 @@
#include "cblas.h" #include "cblas.h"
#include "cblas_f77.h" #include "cblas_f77.h"
void cblas_sgemv(const enum CBLAS_ORDER order, void cblas_sgemv(const enum CBLAS_ORDER order,
const enum CBLAS_TRANSPOSE TransA, const int M, const int N, const enum CBLAS_TRANSPOSE TransA, const CBLAS_INT_TYPE M, const CBLAS_INT_TYPE N,
const float alpha, const float *A, const int lda, const float alpha, const float *A, const CBLAS_INT_TYPE lda,
const float *X, const int incX, const float beta, const float *X, const CBLAS_INT_TYPE incX, const float beta,
float *Y, const int incY) float *Y, const CBLAS_INT_TYPE incY)
{ {
char TA; char TA;
#ifdef F77_CHAR #ifdef F77_CHAR
......
...@@ -9,9 +9,9 @@ ...@@ -9,9 +9,9 @@
#include "cblas.h" #include "cblas.h"
#include "cblas_f77.h" #include "cblas_f77.h"
void cblas_sger(const enum CBLAS_ORDER order, const int M, const int N, void cblas_sger(const enum CBLAS_ORDER order, const CBLAS_INT_TYPE M, const CBLAS_INT_TYPE N,
const float alpha, const float *X, const int incX, const float alpha, const float *X, const CBLAS_INT_TYPE incX,
const float *Y, const int incY, float *A, const int lda) const float *Y, const CBLAS_INT_TYPE incY, float *A, const CBLAS_INT_TYPE lda)
{ {
#ifdef F77_INT #ifdef F77_INT
F77_INT F77_M=M, F77_N=N, F77_lda=lda, F77_incX=incX, F77_incY=incY; F77_INT F77_M=M, F77_N=N, F77_lda=lda, F77_incX=incX, F77_incY=incY;
......
...@@ -9,7 +9,7 @@ ...@@ -9,7 +9,7 @@
*/ */
#include "cblas.h" #include "cblas.h"
#include "cblas_f77.h" #include "cblas_f77.h"
float cblas_snrm2( const int N, const float *X, const int incX) float cblas_snrm2( const CBLAS_INT_TYPE N, const float *X, const CBLAS_INT_TYPE incX)
{ {
float nrm2; float nrm2;
#ifdef F77_INT #ifdef F77_INT
......
...@@ -8,8 +8,8 @@ ...@@ -8,8 +8,8 @@
*/ */
#include "cblas.h" #include "cblas.h"
#include "cblas_f77.h" #include "cblas_f77.h"
void cblas_srot( const int N, float *X, const int incX, float *Y, void cblas_srot( const CBLAS_INT_TYPE N, float *X, const CBLAS_INT_TYPE incX, float *Y,
const int incY, const float c, const float s) const CBLAS_INT_TYPE incY, const float c, const float s)
{ {
#ifdef F77_INT #ifdef F77_INT
F77_INT F77_N=N, F77_incX=incX, F77_incY=incY; F77_INT F77_N=N, F77_incX=incX, F77_incY=incY;
......
...@@ -8,8 +8,8 @@ ...@@ -8,8 +8,8 @@
*/ */
#include "cblas.h" #include "cblas.h"
#include "cblas_f77.h" #include "cblas_f77.h"
void cblas_srotm( const int N, float *X, const int incX, float *Y, void cblas_srotm( const CBLAS_INT_TYPE N, float *X, const CBLAS_INT_TYPE incX, float *Y,
const int incY, const float *P) const CBLAS_INT_TYPE incY, const float *P)
{ {
#ifdef F77_INT #ifdef F77_INT
F77_INT F77_N=N, F77_incX=incX, F77_incY=incY; F77_INT F77_N=N, F77_incX=incX, F77_incY=incY;
......
...@@ -9,9 +9,9 @@ ...@@ -9,9 +9,9 @@
#include "cblas.h" #include "cblas.h"
#include "cblas_f77.h" #include "cblas_f77.h"
void cblas_ssbmv(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo, void cblas_ssbmv(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
const int N, const int K, const float alpha, const float *A, const CBLAS_INT_TYPE N, const CBLAS_INT_TYPE K, const float alpha, const float *A,
const int lda, const float *X, const int incX, const CBLAS_INT_TYPE lda, const float *X, const CBLAS_INT_TYPE incX,
const float beta, float *Y, const int incY) const float beta, float *Y, const CBLAS_INT_TYPE incY)
{ {
char UL; char UL;
#ifdef F77_CHAR #ifdef F77_CHAR
......
...@@ -8,8 +8,8 @@ ...@@ -8,8 +8,8 @@
*/ */
#include "cblas.h" #include "cblas.h"
#include "cblas_f77.h" #include "cblas_f77.h"
void cblas_sscal( const int N, const float alpha, float *X, void cblas_sscal( const CBLAS_INT_TYPE N, const float alpha, float *X,
const int incX) const CBLAS_INT_TYPE incX)
{ {
#ifdef F77_INT #ifdef F77_INT
F77_INT F77_N=N, F77_incX=incX; F77_INT F77_N=N, F77_incX=incX;
......
...@@ -9,10 +9,10 @@ ...@@ -9,10 +9,10 @@
#include "cblas.h" #include "cblas.h"
#include "cblas_f77.h" #include "cblas_f77.h"
void cblas_sspmv(const enum CBLAS_ORDER order, void cblas_sspmv(const enum CBLAS_ORDER order,
const enum CBLAS_UPLO Uplo, const int N, const enum CBLAS_UPLO Uplo, const CBLAS_INT_TYPE N,
const float alpha, const float *AP, const float alpha, const float *AP,
const float *X, const int incX, const float beta, const float *X, const CBLAS_INT_TYPE incX, const float beta,
float *Y, const int incY) float *Y, const CBLAS_INT_TYPE incY)
{ {
char UL; char UL;
#ifdef F77_CHAR #ifdef F77_CHAR
......
...@@ -10,8 +10,8 @@ ...@@ -10,8 +10,8 @@
#include "cblas.h" #include "cblas.h"
#include "cblas_f77.h" #include "cblas_f77.h"
void cblas_sspr(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo, void cblas_sspr(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
const int N, const float alpha, const float *X, const CBLAS_INT_TYPE N, const float alpha, const float *X,
const int incX, float *Ap) const CBLAS_INT_TYPE incX, float *Ap)
{ {
char UL; char UL;
#ifdef F77_CHAR #ifdef F77_CHAR
......
...@@ -10,8 +10,8 @@ ...@@ -10,8 +10,8 @@
#include "cblas.h" #include "cblas.h"
#include "cblas_f77.h" #include "cblas_f77.h"
void cblas_sspr2(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo, void cblas_sspr2(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
const int N, const float alpha, const float *X, const CBLAS_INT_TYPE N, const float alpha, const float *X,
const int incX, const float *Y, const int incY, float *A) const CBLAS_INT_TYPE incX, const float *Y, const CBLAS_INT_TYPE incY, float *A)
{ {
char UL; char UL;
#ifdef F77_CHAR #ifdef F77_CHAR
......
...@@ -8,8 +8,8 @@ ...@@ -8,8 +8,8 @@
*/ */
#include "cblas.h" #include "cblas.h"
#include "cblas_f77.h" #include "cblas_f77.h"
void cblas_sswap( const int N, float *X, const int incX, float *Y, void cblas_sswap( const CBLAS_INT_TYPE N, float *X, const CBLAS_INT_TYPE incX, float *Y,
const int incY) const CBLAS_INT_TYPE incY)
{ {
#ifdef F77_INT #ifdef F77_INT
F77_INT F77_N=N, F77_incX=incX, F77_incY=incY; F77_INT F77_N=N, F77_incX=incX, F77_incY=incY;
......
...@@ -10,10 +10,10 @@ ...@@ -10,10 +10,10 @@
#include "cblas.h" #include "cblas.h"
#include "cblas_f77.h" #include "cblas_f77.h"
void cblas_ssymm(const enum CBLAS_ORDER Order, const enum CBLAS_SIDE Side, void cblas_ssymm(const enum CBLAS_ORDER Order, const enum CBLAS_SIDE Side,
const enum CBLAS_UPLO Uplo, const int M, const int N, const enum CBLAS_UPLO Uplo, const CBLAS_INT_TYPE M, const CBLAS_INT_TYPE N,
const float alpha, const float *A, const int lda, const float alpha, const float *A, const CBLAS_INT_TYPE lda,
const float *B, const int ldb, const float beta, const float *B, const CBLAS_INT_TYPE ldb, const float beta,
float *C, const int ldc) float *C, const CBLAS_INT_TYPE ldc)
{ {
char SD, UL; char SD, UL;
#ifdef F77_CHAR #ifdef F77_CHAR
......
...@@ -10,10 +10,10 @@ ...@@ -10,10 +10,10 @@
#include "cblas.h" #include "cblas.h"
#include "cblas_f77.h" #include "cblas_f77.h"
void cblas_ssymv(const enum CBLAS_ORDER order, void cblas_ssymv(const enum CBLAS_ORDER order,
const enum CBLAS_UPLO Uplo, const int N, const enum CBLAS_UPLO Uplo, const CBLAS_INT_TYPE N,
const float alpha, const float *A, const int lda, const float alpha, const float *A, const CBLAS_INT_TYPE lda,
const float *X, const int incX, const float beta, const float *X, const CBLAS_INT_TYPE incX, const float beta,
float *Y, const int incY) float *Y, const CBLAS_INT_TYPE incY)
{ {
char UL; char UL;
#ifdef F77_CHAR #ifdef F77_CHAR
......
...@@ -9,8 +9,8 @@ ...@@ -9,8 +9,8 @@
#include "cblas.h" #include "cblas.h"
#include "cblas_f77.h" #include "cblas_f77.h"
void cblas_ssyr(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo, void cblas_ssyr(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
const int N, const float alpha, const float *X, const CBLAS_INT_TYPE N, const float alpha, const float *X,
const int incX, float *A, const int lda) const CBLAS_INT_TYPE incX, float *A, const CBLAS_INT_TYPE lda)
{ {
char UL; char UL;
#ifdef F77_CHAR #ifdef F77_CHAR
......
...@@ -10,9 +10,9 @@ ...@@ -10,9 +10,9 @@
#include "cblas.h" #include "cblas.h"
#include "cblas_f77.h" #include "cblas_f77.h"
void cblas_ssyr2(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo, void cblas_ssyr2(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
const int N, const float alpha, const float *X, const CBLAS_INT_TYPE N, const float alpha, const float *X,
const int incX, const float *Y, const int incY, float *A, const CBLAS_INT_TYPE incX, const float *Y, const CBLAS_INT_TYPE incY, float *A,
const int lda) const CBLAS_INT_TYPE lda)
{ {
char UL; char UL;
#ifdef F77_CHAR #ifdef F77_CHAR
......
...@@ -10,10 +10,10 @@ ...@@ -10,10 +10,10 @@
#include "cblas.h" #include "cblas.h"
#include "cblas_f77.h" #include "cblas_f77.h"
void cblas_ssyr2k(const enum CBLAS_ORDER Order, const enum CBLAS_UPLO Uplo, void cblas_ssyr2k(const enum CBLAS_ORDER Order, const enum CBLAS_UPLO Uplo,
const enum CBLAS_TRANSPOSE Trans, const int N, const int K, const enum CBLAS_TRANSPOSE Trans, const CBLAS_INT_TYPE N, const CBLAS_INT_TYPE K,
const float alpha, const float *A, const int lda, const float alpha, const float *A, const CBLAS_INT_TYPE lda,
const float *B, const int ldb, const float beta, const float *B, const CBLAS_INT_TYPE ldb, const float beta,
float *C, const int ldc) float *C, const CBLAS_INT_TYPE ldc)
{ {
char UL, TR; char UL, TR;
#ifdef F77_CHAR #ifdef F77_CHAR
......
...@@ -10,9 +10,9 @@ ...@@ -10,9 +10,9 @@
#include "cblas.h" #include "cblas.h"
#include "cblas_f77.h" #include "cblas_f77.h"
void cblas_ssyrk(const enum CBLAS_ORDER Order, const enum CBLAS_UPLO Uplo, void cblas_ssyrk(const enum CBLAS_ORDER Order, const enum CBLAS_UPLO Uplo,
const enum CBLAS_TRANSPOSE Trans, const int N, const int K, const enum CBLAS_TRANSPOSE Trans, const CBLAS_INT_TYPE N, const CBLAS_INT_TYPE K,
const float alpha, const float *A, const int lda, const float alpha, const float *A, const CBLAS_INT_TYPE lda,
const float beta, float *C, const int ldc) const float beta, float *C, const CBLAS_INT_TYPE ldc)
{ {
char UL, TR; char UL, TR;
#ifdef F77_CHAR #ifdef F77_CHAR
......
...@@ -9,8 +9,8 @@ ...@@ -9,8 +9,8 @@
void cblas_stbmv(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo, void cblas_stbmv(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
const enum CBLAS_TRANSPOSE TransA, const enum CBLAS_DIAG Diag, const enum CBLAS_TRANSPOSE TransA, const enum CBLAS_DIAG Diag,
const int N, const int K, const float *A, const int lda, const CBLAS_INT_TYPE N, const CBLAS_INT_TYPE K, const float *A, const CBLAS_INT_TYPE lda,
float *X, const int incX) float *X, const CBLAS_INT_TYPE incX)
{ {
char TA; char TA;
char UL; char UL;
......
...@@ -9,8 +9,8 @@ ...@@ -9,8 +9,8 @@
#include "cblas_f77.h" #include "cblas_f77.h"
void cblas_stbsv(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo, void cblas_stbsv(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
const enum CBLAS_TRANSPOSE TransA, const enum CBLAS_DIAG Diag, const enum CBLAS_TRANSPOSE TransA, const enum CBLAS_DIAG Diag,
const int N, const int K, const float *A, const int lda, const CBLAS_INT_TYPE N, const CBLAS_INT_TYPE K, const float *A, const CBLAS_INT_TYPE lda,
float *X, const int incX) float *X, const CBLAS_INT_TYPE incX)
{ {
char TA; char TA;
char UL; char UL;
......
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment