@@ -19,98 +19,66 @@ namespace hipo {
1919
2020void callAndTime_daxpy (Int n, double da, const double * dx, Int incx, double * dy,
2121 Int incy, DataCollector& data) {
22- #if HIPO_TIMING_LEVEL >= 3
23- Clock clock;
24- #endif
22+ HIPO_CLOCK_CREATE;
2523 cblas_daxpy (n, da, dx, incx, dy, incy);
26- #if HIPO_TIMING_LEVEL >= 3
27- data.sumTime (kTimeBlas_axpy , clock.stop ());
28- #endif
24+ HIPO_CLOCK_STOP (3 , data, kTimeBlas_axpy );
2925}
3026
3127void callAndTime_dcopy (Int n, const double * dx, Int incx, double * dy, Int incy,
3228 DataCollector& data) {
33- #if HIPO_TIMING_LEVEL >= 3
34- Clock clock;
35- #endif
29+ HIPO_CLOCK_CREATE;
3630 cblas_dcopy (n, dx, incx, dy, incy);
37- #if HIPO_TIMING_LEVEL >= 3
38- data.sumTime (kTimeBlas_copy , clock.stop ());
39- #endif
31+ HIPO_CLOCK_STOP (3 , data, kTimeBlas_copy );
4032}
4133
4234void callAndTime_dscal (Int n, const double da, double * dx, Int incx,
4335 DataCollector& data) {
44- #if HIPO_TIMING_LEVEL >= 3
45- Clock clock;
46- #endif
36+ HIPO_CLOCK_CREATE;
4737 cblas_dscal (n, da, dx, incx);
48- #if HIPO_TIMING_LEVEL >= 3
49- data.sumTime (kTimeBlas_scal , clock.stop ());
50- #endif
38+ HIPO_CLOCK_STOP (3 , data, kTimeBlas_scal );
5139}
5240
5341void callAndTime_dswap (Int n, double * dx, Int incx, double * dy, Int incy,
5442 DataCollector& data) {
55- #if HIPO_TIMING_LEVEL >= 3
56- Clock clock;
57- #endif
43+ HIPO_CLOCK_CREATE;
5844 cblas_dswap (n, dx, incx, dy, incy);
59- #if HIPO_TIMING_LEVEL >= 3
60- data.sumTime (kTimeBlas_swap , clock.stop ());
61- #endif
45+ HIPO_CLOCK_STOP (3 , data, kTimeBlas_swap );
6246}
6347
6448// level 2
6549
6650void callAndTime_dgemv (char trans, Int m, Int n, double alpha, const double * A,
6751 Int lda, const double * x, Int incx, double beta,
6852 double * y, Int incy, DataCollector& data) {
69- #if HIPO_TIMING_LEVEL >= 3
70- Clock clock;
71- #endif
53+ HIPO_CLOCK_CREATE;
7254 cblas_dgemv (CblasColMajor, TRANS (trans), m, n, alpha, A, lda, x, incx, beta,
7355 y, incy);
74- #if HIPO_TIMING_LEVEL >= 3
75- data.sumTime (kTimeBlas_gemv , clock.stop ());
76- #endif
56+ HIPO_CLOCK_STOP (3 , data, kTimeBlas_gemv );
7757}
7858
7959void callAndTime_dtpsv (char uplo, char trans, char diag, Int n,
8060 const double * ap, double * x, Int incx,
8161 DataCollector& data) {
82- #if HIPO_TIMING_LEVEL >= 3
83- Clock clock;
84- #endif
62+ HIPO_CLOCK_CREATE;
8563 cblas_dtpsv (CblasColMajor, UPLO (uplo), TRANS (trans), DIAG (diag), n, ap, x,
8664 incx);
87- #if HIPO_TIMING_LEVEL >= 3
88- data.sumTime (kTimeBlas_tpsv , clock.stop ());
89- #endif
65+ HIPO_CLOCK_STOP (3 , data, kTimeBlas_tpsv );
9066}
9167
9268void callAndTime_dtrsv (char uplo, char trans, char diag, Int n, const double * A,
9369 Int lda, double * x, Int incx, DataCollector& data) {
94- #if HIPO_TIMING_LEVEL >= 3
95- Clock clock;
96- #endif
70+ HIPO_CLOCK_CREATE;
9771 cblas_dtrsv (CblasColMajor, UPLO (uplo), TRANS (trans), DIAG (diag), n, A, lda, x,
9872 incx);
99- #if HIPO_TIMING_LEVEL >= 3
100- data.sumTime (kTimeBlas_trsv , clock.stop ());
101- #endif
73+ HIPO_CLOCK_STOP (3 , data, kTimeBlas_trsv );
10274}
10375
10476void callAndTime_dger (Int m, Int n, double alpha, const double * x, Int incx,
10577 const double * y, Int incy, double * A, Int lda,
10678 DataCollector& data) {
107- #if HIPO_TIMING_LEVEL >= 3
108- Clock clock;
109- #endif
79+ HIPO_CLOCK_CREATE;
11080 cblas_dger (CblasColMajor, m, n, alpha, x, incx, y, incy, A, lda);
111- #if HIPO_TIMING_LEVEL >= 3
112- data.sumTime (kTimeBlas_ger , clock.stop ());
113- #endif
81+ HIPO_CLOCK_STOP (3 , data, kTimeBlas_ger );
11482}
11583
11684// level 3
@@ -119,40 +87,28 @@ void callAndTime_dgemm(char transa, char transb, Int m, Int n, Int k,
11987 double alpha, const double * A, Int lda, const double * B,
12088 Int ldb, double beta, double * C, Int ldc,
12189 DataCollector& data) {
122- #if HIPO_TIMING_LEVEL >= 3
123- Clock clock;
124- #endif
90+ HIPO_CLOCK_CREATE;
12591 cblas_dgemm (CblasColMajor, TRANS (transa), TRANS (transb), m, n, k, alpha, A,
12692 lda, B, ldb, beta, C, ldc);
127- #if HIPO_TIMING_LEVEL >= 3
128- data.sumTime (kTimeBlas_gemm , clock.stop ());
129- #endif
93+ HIPO_CLOCK_STOP (3 , data, kTimeBlas_gemm );
13094}
13195
13296void callAndTime_dsyrk (char uplo, char trans, Int n, Int k, double alpha,
13397 const double * A, Int lda, double beta, double * C,
13498 Int ldc, DataCollector& data) {
135- #if HIPO_TIMING_LEVEL >= 3
136- Clock clock;
137- #endif
99+ HIPO_CLOCK_CREATE;
138100 cblas_dsyrk (CblasColMajor, UPLO (uplo), TRANS (trans), n, k, alpha, A, lda,
139101 beta, C, ldc);
140- #if HIPO_TIMING_LEVEL >= 3
141- data.sumTime (kTimeBlas_syrk , clock.stop ());
142- #endif
102+ HIPO_CLOCK_STOP (3 , data, kTimeBlas_syrk );
143103}
144104
145105void callAndTime_dtrsm (char side, char uplo, char trans, char diag, Int m,
146106 Int n, double alpha, const double * A, Int lda, double * B,
147107 Int ldb, DataCollector& data) {
148- #if HIPO_TIMING_LEVEL >= 3
149- Clock clock;
150- #endif
108+ HIPO_CLOCK_CREATE;
151109 cblas_dtrsm (CblasColMajor, SIDE (side), UPLO (uplo), TRANS (trans), DIAG (diag),
152110 m, n, alpha, A, lda, B, ldb);
153- #if HIPO_TIMING_LEVEL >= 3
154- data.sumTime (kTimeBlas_trsm , clock.stop ());
155- #endif
111+ HIPO_CLOCK_STOP (3 , data, kTimeBlas_trsm );
156112}
157113
158114} // namespace hipo
0 commit comments