Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
OpenDAS
dlib
Commits
0ef7198e
Commit
0ef7198e
authored
Mar 22, 2018
by
Davis King
Browse files
Added a CBLAS_INT_TYPE macro to control the int type used by cblas.
parent
e71f6bce
Changes
140
Hide whitespace changes
Inline
Side-by-side
Showing
20 changed files
with
53 additions
and
53 deletions
+53
-53
dlib/external/cblas/cblas_dgemv.c
dlib/external/cblas/cblas_dgemv.c
+4
-4
dlib/external/cblas/cblas_dger.c
dlib/external/cblas/cblas_dger.c
+3
-3
dlib/external/cblas/cblas_dnrm2.c
dlib/external/cblas/cblas_dnrm2.c
+1
-1
dlib/external/cblas/cblas_drot.c
dlib/external/cblas/cblas_drot.c
+2
-2
dlib/external/cblas/cblas_drotm.c
dlib/external/cblas/cblas_drotm.c
+2
-2
dlib/external/cblas/cblas_dsbmv.c
dlib/external/cblas/cblas_dsbmv.c
+4
-4
dlib/external/cblas/cblas_dscal.c
dlib/external/cblas/cblas_dscal.c
+2
-2
dlib/external/cblas/cblas_dsdot.c
dlib/external/cblas/cblas_dsdot.c
+2
-2
dlib/external/cblas/cblas_dspmv.c
dlib/external/cblas/cblas_dspmv.c
+3
-3
dlib/external/cblas/cblas_dspr.c
dlib/external/cblas/cblas_dspr.c
+2
-2
dlib/external/cblas/cblas_dspr2.c
dlib/external/cblas/cblas_dspr2.c
+2
-2
dlib/external/cblas/cblas_dswap.c
dlib/external/cblas/cblas_dswap.c
+2
-2
dlib/external/cblas/cblas_dsymm.c
dlib/external/cblas/cblas_dsymm.c
+4
-4
dlib/external/cblas/cblas_dsymv.c
dlib/external/cblas/cblas_dsymv.c
+4
-4
dlib/external/cblas/cblas_dsyr.c
dlib/external/cblas/cblas_dsyr.c
+2
-2
dlib/external/cblas/cblas_dsyr2.c
dlib/external/cblas/cblas_dsyr2.c
+3
-3
dlib/external/cblas/cblas_dsyr2k.c
dlib/external/cblas/cblas_dsyr2k.c
+4
-4
dlib/external/cblas/cblas_dsyrk.c
dlib/external/cblas/cblas_dsyrk.c
+3
-3
dlib/external/cblas/cblas_dtbmv.c
dlib/external/cblas/cblas_dtbmv.c
+2
-2
dlib/external/cblas/cblas_dtbsv.c
dlib/external/cblas/cblas_dtbsv.c
+2
-2
No files found.
dlib/external/cblas/cblas_dgemv.c
View file @
0ef7198e
...
...
@@ -9,10 +9,10 @@
#include "cblas.h"
#include "cblas_f77.h"
void
cblas_dgemv
(
const
enum
CBLAS_ORDER
order
,
const
enum
CBLAS_TRANSPOSE
TransA
,
const
int
M
,
const
int
N
,
const
double
alpha
,
const
double
*
A
,
const
int
lda
,
const
double
*
X
,
const
int
incX
,
const
double
beta
,
double
*
Y
,
const
int
incY
)
const
enum
CBLAS_TRANSPOSE
TransA
,
const
CBLAS_INT_TYPE
M
,
const
CBLAS_INT_TYPE
N
,
const
double
alpha
,
const
double
*
A
,
const
CBLAS_INT_TYPE
lda
,
const
double
*
X
,
const
CBLAS_INT_TYPE
incX
,
const
double
beta
,
double
*
Y
,
const
CBLAS_INT_TYPE
incY
)
{
char
TA
;
#ifdef F77_CHAR
...
...
dlib/external/cblas/cblas_dger.c
View file @
0ef7198e
...
...
@@ -9,9 +9,9 @@
#include "cblas.h"
#include "cblas_f77.h"
void
cblas_dger
(
const
enum
CBLAS_ORDER
order
,
const
int
M
,
const
int
N
,
const
double
alpha
,
const
double
*
X
,
const
int
incX
,
const
double
*
Y
,
const
int
incY
,
double
*
A
,
const
int
lda
)
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
CBLAS_INT_TYPE
incX
,
const
double
*
Y
,
const
CBLAS_INT_TYPE
incY
,
double
*
A
,
const
CBLAS_INT_TYPE
lda
)
{
#ifdef F77_INT
F77_INT
F77_M
=
M
,
F77_N
=
N
,
F77_lda
=
lda
,
F77_incX
=
incX
,
F77_incY
=
incY
;
...
...
dlib/external/cblas/cblas_dnrm2.c
View file @
0ef7198e
...
...
@@ -9,7 +9,7 @@
*/
#include "cblas.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
;
#ifdef F77_INT
...
...
dlib/external/cblas/cblas_drot.c
View file @
0ef7198e
...
...
@@ -8,8 +8,8 @@
*/
#include "cblas.h"
#include "cblas_f77.h"
void
cblas_drot
(
const
int
N
,
double
*
X
,
const
int
incX
,
double
*
Y
,
const
int
incY
,
const
double
c
,
const
double
s
)
void
cblas_drot
(
const
CBLAS_INT_TYPE
N
,
double
*
X
,
const
CBLAS_INT_TYPE
incX
,
double
*
Y
,
const
CBLAS_INT_TYPE
incY
,
const
double
c
,
const
double
s
)
{
#ifdef F77_INT
F77_INT
F77_N
=
N
,
F77_incX
=
incX
,
F77_incY
=
incY
;
...
...
dlib/external/cblas/cblas_drotm.c
View file @
0ef7198e
#include "cblas.h"
#include "cblas_f77.h"
void
cblas_drotm
(
const
int
N
,
double
*
X
,
const
int
incX
,
double
*
Y
,
const
int
incY
,
const
double
*
P
)
void
cblas_drotm
(
const
CBLAS_INT_TYPE
N
,
double
*
X
,
const
CBLAS_INT_TYPE
incX
,
double
*
Y
,
const
CBLAS_INT_TYPE
incY
,
const
double
*
P
)
{
#ifdef F77_INT
F77_INT
F77_N
=
N
,
F77_incX
=
incX
,
F77_incY
=
incY
;
...
...
dlib/external/cblas/cblas_dsbmv.c
View file @
0ef7198e
...
...
@@ -10,10 +10,10 @@
#include "cblas.h"
#include "cblas_f77.h"
void
cblas_dsbmv
(
const
enum
CBLAS_ORDER
order
,
const
enum
CBLAS_UPLO
Uplo
,
const
int
N
,
const
int
K
,
const
double
alpha
,
const
double
*
A
,
const
int
lda
,
const
double
*
X
,
const
int
incX
,
const
double
beta
,
double
*
Y
,
const
int
incY
)
const
enum
CBLAS_UPLO
Uplo
,
const
CBLAS_INT_TYPE
N
,
const
CBLAS_INT_TYPE
K
,
const
double
alpha
,
const
double
*
A
,
const
CBLAS_INT_TYPE
lda
,
const
double
*
X
,
const
CBLAS_INT_TYPE
incX
,
const
double
beta
,
double
*
Y
,
const
CBLAS_INT_TYPE
incY
)
{
char
UL
;
#ifdef F77_CHAR
...
...
dlib/external/cblas/cblas_dscal.c
View file @
0ef7198e
...
...
@@ -8,8 +8,8 @@
*/
#include "cblas.h"
#include "cblas_f77.h"
void
cblas_dscal
(
const
int
N
,
const
double
alpha
,
double
*
X
,
const
int
incX
)
void
cblas_dscal
(
const
CBLAS_INT_TYPE
N
,
const
double
alpha
,
double
*
X
,
const
CBLAS_INT_TYPE
incX
)
{
#ifdef F77_INT
F77_INT
F77_N
=
N
,
F77_incX
=
incX
;
...
...
dlib/external/cblas/cblas_dsdot.c
View file @
0ef7198e
...
...
@@ -9,8 +9,8 @@
*/
#include "cblas.h"
#include "cblas_f77.h"
double
cblas_dsdot
(
const
int
N
,
const
float
*
X
,
const
int
incX
,
const
float
*
Y
,
const
int
incY
)
double
cblas_dsdot
(
const
CBLAS_INT_TYPE
N
,
const
float
*
X
,
const
CBLAS_INT_TYPE
incX
,
const
float
*
Y
,
const
CBLAS_INT_TYPE
incY
)
{
double
dot
;
#ifdef F77_INT
...
...
dlib/external/cblas/cblas_dspmv.c
View file @
0ef7198e
...
...
@@ -11,10 +11,10 @@
#include "cblas.h"
#include "cblas_f77.h"
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
*
X
,
const
int
incX
,
const
double
beta
,
double
*
Y
,
const
int
incY
)
const
double
*
X
,
const
CBLAS_INT_TYPE
incX
,
const
double
beta
,
double
*
Y
,
const
CBLAS_INT_TYPE
incY
)
{
char
UL
;
#ifdef F77_CHAR
...
...
dlib/external/cblas/cblas_dspr.c
View file @
0ef7198e
...
...
@@ -10,8 +10,8 @@
#include "cblas.h"
#include "cblas_f77.h"
void
cblas_dspr
(
const
enum
CBLAS_ORDER
order
,
const
enum
CBLAS_UPLO
Uplo
,
const
int
N
,
const
double
alpha
,
const
double
*
X
,
const
int
incX
,
double
*
Ap
)
const
CBLAS_INT_TYPE
N
,
const
double
alpha
,
const
double
*
X
,
const
CBLAS_INT_TYPE
incX
,
double
*
Ap
)
{
char
UL
;
#ifdef F77_CHAR
...
...
dlib/external/cblas/cblas_dspr2.c
View file @
0ef7198e
...
...
@@ -8,8 +8,8 @@
#include "cblas.h"
#include "cblas_f77.h"
void
cblas_dspr2
(
const
enum
CBLAS_ORDER
order
,
const
enum
CBLAS_UPLO
Uplo
,
const
int
N
,
const
double
alpha
,
const
double
*
X
,
const
int
incX
,
const
double
*
Y
,
const
int
incY
,
double
*
A
)
const
CBLAS_INT_TYPE
N
,
const
double
alpha
,
const
double
*
X
,
const
CBLAS_INT_TYPE
incX
,
const
double
*
Y
,
const
CBLAS_INT_TYPE
incY
,
double
*
A
)
{
char
UL
;
#ifdef F77_CHAR
...
...
dlib/external/cblas/cblas_dswap.c
View file @
0ef7198e
...
...
@@ -8,8 +8,8 @@
*/
#include "cblas.h"
#include "cblas_f77.h"
void
cblas_dswap
(
const
int
N
,
double
*
X
,
const
int
incX
,
double
*
Y
,
const
int
incY
)
void
cblas_dswap
(
const
CBLAS_INT_TYPE
N
,
double
*
X
,
const
CBLAS_INT_TYPE
incX
,
double
*
Y
,
const
CBLAS_INT_TYPE
incY
)
{
#ifdef F77_INT
F77_INT
F77_N
=
N
,
F77_incX
=
incX
,
F77_incY
=
incY
;
...
...
dlib/external/cblas/cblas_dsymm.c
View file @
0ef7198e
...
...
@@ -10,10 +10,10 @@
#include "cblas.h"
#include "cblas_f77.h"
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
double
alpha
,
const
double
*
A
,
const
int
lda
,
const
double
*
B
,
const
int
ldb
,
const
double
beta
,
double
*
C
,
const
int
ldc
)
const
enum
CBLAS_UPLO
Uplo
,
const
CBLAS_INT_TYPE
M
,
const
CBLAS_INT_TYPE
N
,
const
double
alpha
,
const
double
*
A
,
const
CBLAS_INT_TYPE
lda
,
const
double
*
B
,
const
CBLAS_INT_TYPE
ldb
,
const
double
beta
,
double
*
C
,
const
CBLAS_INT_TYPE
ldc
)
{
char
SD
,
UL
;
#ifdef F77_CHAR
...
...
dlib/external/cblas/cblas_dsymv.c
View file @
0ef7198e
...
...
@@ -10,10 +10,10 @@
#include "cblas.h"
#include "cblas_f77.h"
void
cblas_dsymv
(
const
enum
CBLAS_ORDER
order
,
const
enum
CBLAS_UPLO
Uplo
,
const
int
N
,
const
double
alpha
,
const
double
*
A
,
const
int
lda
,
const
double
*
X
,
const
int
incX
,
const
double
beta
,
double
*
Y
,
const
int
incY
)
const
enum
CBLAS_UPLO
Uplo
,
const
CBLAS_INT_TYPE
N
,
const
double
alpha
,
const
double
*
A
,
const
CBLAS_INT_TYPE
lda
,
const
double
*
X
,
const
CBLAS_INT_TYPE
incX
,
const
double
beta
,
double
*
Y
,
const
CBLAS_INT_TYPE
incY
)
{
char
UL
;
#ifdef F77_CHAR
...
...
dlib/external/cblas/cblas_dsyr.c
View file @
0ef7198e
...
...
@@ -10,8 +10,8 @@
#include "cblas.h"
#include "cblas_f77.h"
void
cblas_dsyr
(
const
enum
CBLAS_ORDER
order
,
const
enum
CBLAS_UPLO
Uplo
,
const
int
N
,
const
double
alpha
,
const
double
*
X
,
const
int
incX
,
double
*
A
,
const
int
lda
)
const
CBLAS_INT_TYPE
N
,
const
double
alpha
,
const
double
*
X
,
const
CBLAS_INT_TYPE
incX
,
double
*
A
,
const
CBLAS_INT_TYPE
lda
)
{
char
UL
;
#ifdef F77_CHAR
...
...
dlib/external/cblas/cblas_dsyr2.c
View file @
0ef7198e
...
...
@@ -10,9 +10,9 @@
#include "cblas.h"
#include "cblas_f77.h"
void
cblas_dsyr2
(
const
enum
CBLAS_ORDER
order
,
const
enum
CBLAS_UPLO
Uplo
,
const
int
N
,
const
double
alpha
,
const
double
*
X
,
const
int
incX
,
const
double
*
Y
,
const
int
incY
,
double
*
A
,
const
int
lda
)
const
CBLAS_INT_TYPE
N
,
const
double
alpha
,
const
double
*
X
,
const
CBLAS_INT_TYPE
incX
,
const
double
*
Y
,
const
CBLAS_INT_TYPE
incY
,
double
*
A
,
const
CBLAS_INT_TYPE
lda
)
{
char
UL
;
#ifdef F77_CHAR
...
...
dlib/external/cblas/cblas_dsyr2k.c
View file @
0ef7198e
...
...
@@ -10,10 +10,10 @@
#include "cblas.h"
#include "cblas_f77.h"
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
double
alpha
,
const
double
*
A
,
const
int
lda
,
const
double
*
B
,
const
int
ldb
,
const
double
beta
,
double
*
C
,
const
int
ldc
)
const
enum
CBLAS_TRANSPOSE
Trans
,
const
CBLAS_INT_TYPE
N
,
const
CBLAS_INT_TYPE
K
,
const
double
alpha
,
const
double
*
A
,
const
CBLAS_INT_TYPE
lda
,
const
double
*
B
,
const
CBLAS_INT_TYPE
ldb
,
const
double
beta
,
double
*
C
,
const
CBLAS_INT_TYPE
ldc
)
{
char
UL
,
TR
;
#ifdef F77_CHAR
...
...
dlib/external/cblas/cblas_dsyrk.c
View file @
0ef7198e
...
...
@@ -10,9 +10,9 @@
#include "cblas.h"
#include "cblas_f77.h"
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
double
alpha
,
const
double
*
A
,
const
int
lda
,
const
double
beta
,
double
*
C
,
const
int
ldc
)
const
enum
CBLAS_TRANSPOSE
Trans
,
const
CBLAS_INT_TYPE
N
,
const
CBLAS_INT_TYPE
K
,
const
double
alpha
,
const
double
*
A
,
const
CBLAS_INT_TYPE
lda
,
const
double
beta
,
double
*
C
,
const
CBLAS_INT_TYPE
ldc
)
{
char
UL
,
TR
;
#ifdef F77_CHAR
...
...
dlib/external/cblas/cblas_dtbmv.c
View file @
0ef7198e
...
...
@@ -9,8 +9,8 @@
#include "cblas_f77.h"
void
cblas_dtbmv
(
const
enum
CBLAS_ORDER
order
,
const
enum
CBLAS_UPLO
Uplo
,
const
enum
CBLAS_TRANSPOSE
TransA
,
const
enum
CBLAS_DIAG
Diag
,
const
int
N
,
const
int
K
,
const
double
*
A
,
const
int
lda
,
double
*
X
,
const
int
incX
)
const
CBLAS_INT_TYPE
N
,
const
CBLAS_INT_TYPE
K
,
const
double
*
A
,
const
CBLAS_INT_TYPE
lda
,
double
*
X
,
const
CBLAS_INT_TYPE
incX
)
{
char
TA
;
char
UL
;
...
...
dlib/external/cblas/cblas_dtbsv.c
View file @
0ef7198e
...
...
@@ -9,8 +9,8 @@
#include "cblas_f77.h"
void
cblas_dtbsv
(
const
enum
CBLAS_ORDER
order
,
const
enum
CBLAS_UPLO
Uplo
,
const
enum
CBLAS_TRANSPOSE
TransA
,
const
enum
CBLAS_DIAG
Diag
,
const
int
N
,
const
int
K
,
const
double
*
A
,
const
int
lda
,
double
*
X
,
const
int
incX
)
const
CBLAS_INT_TYPE
N
,
const
CBLAS_INT_TYPE
K
,
const
double
*
A
,
const
CBLAS_INT_TYPE
lda
,
double
*
X
,
const
CBLAS_INT_TYPE
incX
)
{
char
TA
;
char
UL
;
...
...
Prev
1
2
3
4
5
6
7
Next
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment