main :: IO ()
main = do
  n <- readLn :: IO Integer
  print $ (if even n
    then calc n (n`div`2)
    else calc n (n`div`2) `max` calc n (n`div`2+1)) `mod` (10^6+7)

calc :: Integer -> Integer -> Integer
calc n k = k+(n-k)*(k+1)