A simple implementation of Tate's algorithms for elliptic surfaces in char 0.

I wrote this together with Julian Rueth a long time ago and was reminded about it by the new version of arXiv:1209.1414v2. I should compare with the paper and make the implementation work in a more general setting.