Swiss glaciers are set to lose an enormous amount of ice due to the heatwave battering Europe, the head of Glacier Monitoring in Switzerland has said.