lineSearch3 :: IntArray -> Int -> Elem -> Elem -> Elem -> IO Int
lineSearch3 !vec !start !x1 !x2 !x3 =
    -- liftM fromEnum $! unsafeIOToST c
    liftM fromEnum $! c
  where
    c = c_lineSearch_3 (M.toPtr vec) (fI start) (fI x1) (fI x2) (fI x3)
#endif


lineSearch3 :: IntArray -> Int -> Elem -> Elem -> Elem -> IO Int
lineSearch3 !vec !start !x1 !x2 !x3 =
    -- liftM fromEnum $! unsafeIOToST c
    liftM fromEnum $! c
  where
    c = c_lineSearch_3 (M.toPtr vec) (fI start) (fI x1) (fI x2) (fI x3)
#endif


lineSearch3 !vec !start !x1 !x2 !x3 =
    -- liftM fromEnum $! unsafeIOToST c
    liftM fromEnum $! c
  where
    c = c_lineSearch_3 (M.toPtr vec) (fI start) (fI x1) (fI x2) (fI x3)
#endif

