Micro optimization to improve analysis speed by ~20%

[master-thesis.git] / Parasitemia / ParasitemiaCore / EEOver.fs

diff --git a/Parasitemia/ParasitemiaCore/EEOver.fs b/Parasitemia/ParasitemiaCore/EEOver.fs
index a7791c9..0824e98 100644 (file)
--- a/Parasitemia/ParasitemiaCore/EEOver.fs
+++ b/Parasitemia/ParasitemiaCore/EEOver.fs
@@ -404,7 +404,7 @@ let private cubicroots (p : float[]) (r : float[,]) =
         for k = 1 to 3 do
             r.[2, k] <- 0.0
 
-let private biquadroots (p : float[]) (r : float[,]) =
+let inline private biquadroots (p : float[]) (r : float[,]) =
     if p.[0] <> 1.0 then
         for k = 1 to 4 do
             p.[k] <- p.[k] / p.[0]