forked from quickwritereader/blas-tests
-
Notifications
You must be signed in to change notification settings - Fork 0
/
bl_test.h
127 lines (99 loc) · 3.48 KB
/
bl_test.h
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
#include <stdio.h>
#include <stdlib.h>
#include <sys/time.h>
#include <time.h>
#include <unistd.h>
#include <math.h>
#include <float.h>
#include <cblas.h>
#ifndef BL_TEST_H
#define BL_TEST_H
#ifdef __cplusplus
extern "C" {
#endif
#define MIN(a,b) (((a)<(b))?(a):(b))
#define MAX(a,b) (((a)>(b))?(a):(b))
#ifdef XDOUBLE
#define FLOAT xdouble
#ifdef QUAD_PRECISION
#define XFLOAT xidouble
#endif
#ifdef QUAD_PRECISION
#define SIZE 32
#define BASE_SHIFT 5
#define ZBASE_SHIFT 6
#else
#define SIZE 16
#define BASE_SHIFT 4
#define ZBASE_SHIFT 5
#endif
#elif defined(DOUBLE)
#define FLOAT double
#define SIZE 8
#define BASE_SHIFT 3
#define ZBASE_SHIFT 4
#else
#define FLOAT float
#define SIZE 4
#define BASE_SHIFT 2
#define ZBASE_SHIFT 3
#endif
#ifndef XFLOAT
#define XFLOAT FLOAT
#endif
#ifndef COMPLEX
#define COMPSIZE 1
#else
#define COMPSIZE 2
#endif
#ifdef DOUBLE
#define ABS fabs
#define FLOAT_MIN_NORMAL DBL_MIN
#define FLOAT_MAX_VALUE DBL_MAX
#define EPL DBL_EPSILON
#else
#define ABS fabsf
#define FLOAT_MIN_NORMAL FLT_MIN
#define FLOAT_MAX_VALUE FLT_MAX
#define EPL FLT_EPSILON
#endif
#define CABS1(x,i) ABS(x[i])+ABS(x[i+1])
#define A(I,J) a[(I)-1 + ((J)-1)* ( *lda)]
#define B(I,J) b[(I)-1 + ((J)-1)* ( *ldb)]
#define C(I,J) c[(I)-1 + ((J)-1)* ( *ldc)]
#define STRINGIZE(x) #x
// #define LOG(format, ...) fprintf (stderr, format , ##__VA_ARGS__)
#define LOG(format, ...)
#define ERROR_LOG(format, ...) fprintf (stderr,"Error: " format "\n", ##__VA_ARGS__)
#define PASS_LOG(format, ...) fprintf (stderr,"Passed: " format "\n", ##__VA_ARGS__)
typedef struct __attribute__((__packed__)) {
FLOAT real, imag;
}
COMPLEX_FLOAT;
void compare_aggregate(BLASLONG aggregated_N, FLOAT *x, FLOAT *y, const char * str);
void compare_aggregate_real(BLASLONG aggregated_N, FLOAT x, FLOAT y, const char * str);
void compare_vals_ds(BLASLONG aggregated_N, BLASLONG n, FLOAT *x, BLASLONG inc_x, FLOAT *y, BLASLONG inc_y, const char * str);
void compare_vals_zc(BLASLONG aggregated_N, BLASLONG n, FLOAT *x, BLASLONG inc_x, FLOAT *y, BLASLONG inc_y, const char * str);
void compare_vals(BLASLONG n, FLOAT *x, BLASLONG inc_x, FLOAT *y, BLASLONG inc_y, const char * str);
void compare_vals_aggregated(BLASLONG aggregated_N, BLASLONG n, FLOAT *x, BLASLONG inc_x, FLOAT *y, BLASLONG inc_y, const char * str);
/*Reference functions*/
FLOAT ref_dot(BLASLONG n, FLOAT *x, BLASLONG inc_x, FLOAT *y, BLASLONG inc_y);
COMPLEX_FLOAT ref_zcdot(BLASLONG n, FLOAT *x, BLASLONG inc_x, FLOAT *y, BLASLONG inc_y);
FLOAT ref_asum(BLASLONG n, FLOAT *x, BLASLONG inc_x);
int ref_rot(BLASLONG n, FLOAT *x, BLASLONG inc_x, FLOAT *y, BLASLONG inc_y, FLOAT c, FLOAT s);
void ref_axpy(BLASLONG n, FLOAT *alpha, FLOAT *x, BLASLONG inc_x, FLOAT *y, BLASLONG inc_y);
void ref_scal(BLASLONG n, FLOAT *alpha, FLOAT *x, BLASLONG inc_x);
unsigned char lsame_(char *ca, char *cb);
int ref_gemm(char *transa, char *transb, int *m, int *
n, int *k, FLOAT *alpha, FLOAT *a, int *lda, FLOAT *b, int *
ldb, FLOAT *beta, FLOAT *c, int *ldc);
int ref_trmm(char* side, char* uplo, char* transa, char* diag,
int* m, int* n, FLOAT* alpha, FLOAT* a, int* lda, FLOAT* b,
int* ldb);
int ref_zgemm(char *transa, char *transb, int *m, int *n, int *k, COMPLEX_FLOAT *alpha, COMPLEX_FLOAT *a, int *lda,
COMPLEX_FLOAT *b, int *ldb, COMPLEX_FLOAT *beta, COMPLEX_FLOAT *c,
int *ldc);
#ifdef __cplusplus
}
#endif
#endif /* BL_TEST_H */