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

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

parent e71f6bce
...@@ -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
......
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