This website works better with JavaScript.
Home
Issues
Pull Requests
Milestones
AI流水线
Repositories
Datasets
Forum
实训
竞赛
大数据
Register
Sign In
OSchip
/
OpenBLAS
Not watched
Unwatch
Watch all
Watch but not notify
1
Star
0
Fork
0
Code
Releases
66
Wiki
evaluate
Activity
Issues
0
Pull Requests
0
Datasets
Model
Cloudbrain
HPC
Browse Source
Update nrm2.c
tags/v0.3.30
Martin Kroeker
GitHub
7 months ago
parent
0fd5448b2c
commit
60d0be0e97
No known key found for this signature in database
GPG Key ID:
B5690EEEBB952194
1 changed files
with
1 additions
and
7 deletions
Split View
Diff Options
Show Stats
Download Patch File
Download Diff File
+1
-7
interface/nrm2.c
+ 1
- 7
interface/nrm2.c
View File
@@ -128,19 +128,13 @@ FLOAT CNAME(blasint n, FLOAT *x, blasint incx){
if (n <= 0) return 0.;
if (n == 1)
#ifndef COMPLEX
if (n == 1)
#ifdef DOUBLE
return fabs(x[0]);
#else
return fabsf(x[0]);
#endif
#else
#ifdef DOUBLE
return fabs(x[0]+fabs(x[1]));
#else
return fabsf(x[0]+fabsf(x[1]));
#endif
#endif
if (incx == 0)
Write
Preview
Loading…
Cancel
Save