Specific heat of BaTiO3