X-Git-Url: http://git.euphorik.ch/?p=master-thesis.git;a=blobdiff_plain;f=Parasitemia%2FParasitemiaCore%2FEEOver.fs;h=0824e98812b4da45e037c3de13928e7c4fe98c21;hp=a7791c90d6067af311ae3ec608f430b1913bc934;hb=829c86a5f0f165438da8f8da2e072889065a4df1;hpb=b63f58aa12ab2584e804785d482867e6fa637389

diff --git a/Parasitemia/ParasitemiaCore/EEOver.fs b/Parasitemia/ParasitemiaCore/EEOver.fs
index a7791c9..0824e98 100644
--- 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]