]> gitweb.michael.orlitzky.com - spline3.git/blobdiff - src/FunctionValues.hs
Remove all "otherwise -> error" cases for performance reasons.
[spline3.git] / src / FunctionValues.hs
index 6d98e95a99c4f9019f29e036f947b7b91393e00d..9c789f3decde85e9628d8d00a89793e048e08fdf 100644 (file)
@@ -250,14 +250,6 @@ value_at v3d !i !j !k
           2*(value_at v3d i j 0) - (value_at v3d i j 1)
         else
           2*(value_at v3d i j (k-1)) - (value_at v3d i j (k-2))
-
-  | otherwise =
-      let istr = show i
-          jstr = show j
-          kstr = show k
-          coordstr = "(" ++ istr ++ "," ++ jstr ++ "," ++ kstr ++ ")"
-      in
-        error $ "value_at called outside of domain: " ++ coordstr
   where
     (dim_i, dim_j, dim_k) = dims v3d