Djokovic survives Kohlschreiber scare in Monte Carlo