correct energy
start with potential fitting, MakeVD() and MakeTensorA() revised, added ToOtherSpin(), may be useful