Browse Source

workaround fault with ssq=inf,scale=0

tags/v0.3.21
Martin Kroeker GitHub 3 years ago
parent
commit
9e29598575
No known key found for this signature in database GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 1 additions and 0 deletions
  1. +1
    -0
      kernel/arm64/dznrm2_thunderx2t99.c

+ 1
- 0
kernel/arm64/dznrm2_thunderx2t99.c View File

@@ -404,6 +404,7 @@ FLOAT CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x)
#else
nrm2_compute(n, x, inc_x, &ssq, &scale);
#endif
if (fabs(scale) <1.e-300) return 0.;
ssq = sqrt(ssq) * scale;

return ssq;


Loading…
Cancel
Save