increased efficiency of computations

NFFT · Apr 16, 2024 · e1ef14c · e1ef14c
1 parent 583def2
commit e1ef14c
Showing 1 changed file with 1 addition and 2 deletions.
diff --git a/applications/fastsum/kernels.c b/applications/fastsum/kernels.c
@@ -441,8 +441,7 @@ C der_laplacian_rbf(R x, int der, const R *param)    /* K(x)=|x|/c EXP(-|x|/c) *
     case  0 : value = (FABS(x)/c)*EXP(-FABS(x)/c); break;
     default:
         value = (POW(K(-1.0),(R)der))*((FABS(x)-(R)der*c)/POW(c,(R)der+1))*EXP(-FABS(x)/c);
-        if (x < K(0.0))
-            value *= POW(K(-1.0),(R)der);
+        value *= 1 - 2 * ((x < K(0.0)) && (der % 2.0));
   }
 
   return value;