e1 and e2 subroutines for THO changed
e1 and e2 subroutines for THO typos corrected