From 7aa9b71c9114b522d1a96f0d4d3cb0c92ae9d8b1 Mon Sep 17 00:00:00 2001 From: Martin Kroeker Date: Thu, 16 Mar 2023 10:01:45 +0100 Subject: [PATCH] fix editor glitch --- lapack/getf2/getf2_k.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lapack/getf2/getf2_k.c b/lapack/getf2/getf2_k.c index 168ece57c..d29ed588e 100644 --- a/lapack/getf2/getf2_k.c +++ b/lapack/getf2/getf2_k.c @@ -101,7 +101,7 @@ blasint CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, temp1 = *(b + jp); //if (temp1 != ZERO) { - if (fabs(temp1) >= DBL_MIN + if (fabs(temp1) >= DBL_MIN ) { temp1 = dp1 / temp1; if (jp != j) {