Prompt charm production in pp collisions at root s=7 TeV