import qualified Data.Text.Lazy as T
import qualified Data.Text.Lazy.IO as T
import qualified Data.Text.Lazy.Read as T
import qualified Data.Vector.Unboxed as VU

main :: IO ()
main = do
  let
    modulus = 1000000007 :: Int
    modInv :: Int -> Int -> Int -> Int
    modInv modulus maxArg = (invs VU.!) . (`mod` modulus)
      where
        invs :: VU.Vector Int
        invs = VU.constructN (succ maxArg `min` modulus) rec
          where
            rec v = case VU.length v of
              0 -> 0
              1 -> 1
              l -> let (q, r) = modulus `divMod` l in (modulus - (v VU.! r) * q) `mod` modulus
    modComb :: Int -> Int -> Int
    modComb n = go 1
      where
        go :: Int -> Int -> Int
        go c 0 = c
        go c k = go (c * (n - k') `mod` modulus * modInv' k `mod` modulus) k'
          where
            k' = k - 1 :: Int
        modInv' :: Int -> Int
        modInv' = modInv modulus 666666
    f :: Int -> Int -> Int
    f x y
        | (x + y) `mod` 3 /= 0 || 2 * x < y || 2 * y < x
          = 0
        | otherwise
          = modComb (u + v) u
      where
        u = (2 * y - x) `div` 3 :: Int
        v = (2 * x - y) `div` 3 :: Int
  [x, y] <- map unsafeTextToInt . T.words <$> T.getLine :: IO [Int]
  print $ f x y

unsafeTextToInt :: T.Text -> Int
unsafeTextToInt s = case T.signed T.decimal s of
  Right (n, _) -> n
{-# INLINE unsafeTextToInt #-}
