Skip to content

Commit 933896a

Browse files
martin-frbgmartin-frbg
authored
Use blasabs to switch between abs and labs as needed for INTERFACE64
1 parent 61659f8 commit 933896a

File tree

11 files changed

+11
-11
lines changed

11 files changed

+11
-11
lines changed

‎interface/gbmv.c

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -213,7 +213,7 @@ void CNAME(enum CBLAS_ORDER order,
213213
if (trans) lenx = m;
214214
if (trans) leny = n;
215215

216-
if (beta != ONE) SCAL_K(leny, 0, 0, beta, y, abs(incy), NULL, 0, NULL, 0);
216+
if (beta != ONE) SCAL_K(leny, 0, 0, beta, y, blasabs(incy), NULL, 0, NULL, 0);
217217

218218
if (alpha == ZERO) return;
219219

‎interface/gemv.c

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -199,7 +199,7 @@ void CNAME(enum CBLAS_ORDER order,
199199
if (trans) lenx = m;
200200
if (trans) leny = n;
201201

202-
if (beta != ONE) SCAL_K(leny, 0, 0, beta, y, abs(incy), NULL, 0, NULL, 0);
202+
if (beta != ONE) SCAL_K(leny, 0, 0, beta, y, blasabs(incy), NULL, 0, NULL, 0);
203203

204204
if (alpha == ZERO) return;
205205

‎interface/sbmv.c

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -184,7 +184,7 @@ void CNAME(enum CBLAS_ORDER order,
184184

185185
if (n == 0) return;
186186

187-
if (beta != ONE) SCAL_K(n, 0, 0, beta, y, abs(incy), NULL, 0, NULL, 0);
187+
if (beta != ONE) SCAL_K(n, 0, 0, beta, y, blasabs(incy), NULL, 0, NULL, 0);
188188

189189
if (alpha == ZERO) return;
190190

‎interface/spmv.c

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -168,7 +168,7 @@ void CNAME(enum CBLAS_ORDER order,
168168

169169
if (n == 0) return;
170170

171-
if (beta != ONE) SCAL_K(n, 0, 0, beta, y, abs(incy), NULL, 0, NULL, 0);
171+
if (beta != ONE) SCAL_K(n, 0, 0, beta, y, blasabs(incy), NULL, 0, NULL, 0);
172172

173173
if (alpha == ZERO) return;
174174

‎interface/symv.c

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -166,7 +166,7 @@ void CNAME(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, blasint n, FLOAT alpha,
166166

167167
if (n == 0) return;
168168

169-
if (beta != ONE) SCAL_K(n, 0, 0, beta, y, abs(incy), NULL, 0, NULL, 0);
169+
if (beta != ONE) SCAL_K(n, 0, 0, beta, y, blasabs(incy), NULL, 0, NULL, 0);
170170

171171
if (alpha == ZERO) return;
172172

‎interface/zgbmv.c

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -237,7 +237,7 @@ void CNAME(enum CBLAS_ORDER order,
237237
if (trans & 1) lenx = m;
238238
if (trans & 1) leny = n;
239239

240-
if (beta_r != ONE || beta_i != ZERO) SCAL_K(leny, 0, 0, beta_r, beta_i, y, abs(incy), NULL, 0, NULL, 0);
240+
if (beta_r != ONE || beta_i != ZERO) SCAL_K(leny, 0, 0, beta_r, beta_i, y, blasabs(incy), NULL, 0, NULL, 0);
241241

242242
if (alpha_r == ZERO && alpha_i == ZERO) return;
243243

‎interface/zgemv.c

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -225,7 +225,7 @@ void CNAME(enum CBLAS_ORDER order,
225225
if (trans & 1) lenx = m;
226226
if (trans & 1) leny = n;
227227

228-
if (beta_r != ONE || beta_i != ZERO) SCAL_K(leny, 0, 0, beta_r, beta_i, y, abs(incy), NULL, 0, NULL, 0);
228+
if (beta_r != ONE || beta_i != ZERO) SCAL_K(leny, 0, 0, beta_r, beta_i, y, blasabs(incy), NULL, 0, NULL, 0);
229229

230230
if (alpha_r == ZERO && alpha_i == ZERO) return;
231231

‎interface/zhbmv.c

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -190,7 +190,7 @@ void CNAME(enum CBLAS_ORDER order,
190190

191191
if (n == 0) return;
192192

193-
if ((beta_r != ONE) || (beta_i != ZERO)) SCAL_K(n, 0, 0, beta_r, beta_i, y, abs(incy), NULL, 0, NULL, 0);
193+
if ((beta_r != ONE) || (beta_i != ZERO)) SCAL_K(n, 0, 0, beta_r, beta_i, y, blasabs(incy), NULL, 0, NULL, 0);
194194

195195
if ((alpha_r == ZERO) && (alpha_i == ZERO)) return;
196196

‎interface/zhemv.c

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -181,7 +181,7 @@ void CNAME(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, blasint n, void *VALPHA
181181

182182
if (n == 0) return;
183183

184-
if ((beta_r != ONE) || (beta_i != ZERO)) SCAL_K(n, 0, 0, beta_r, beta_i, y, abs(incy), NULL, 0, NULL, 0);
184+
if ((beta_r != ONE) || (beta_i != ZERO)) SCAL_K(n, 0, 0, beta_r, beta_i, y, blasabs(incy), NULL, 0, NULL, 0);
185185

186186
if ((alpha_r == ZERO) && (alpha_i == ZERO)) return;
187187

‎interface/zhpmv.c

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -180,7 +180,7 @@ void CNAME(enum CBLAS_ORDER order,
180180

181181
if (n == 0) return;
182182

183-
if ((beta_r != ONE) || (beta_i != ZERO)) SCAL_K(n, 0, 0, beta_r, beta_i, y, abs(incy), NULL, 0, NULL, 0);
183+
if ((beta_r != ONE) || (beta_i != ZERO)) SCAL_K(n, 0, 0, beta_r, beta_i, y, blasabs(incy), NULL, 0, NULL, 0);
184184

185185
if ((alpha_r == ZERO) && (alpha_i == ZERO)) return;
186186

0 commit comments

Comments
 (0)