' *** ARCOTH.LST *** 2nd GFA-Manual, page 6-8 DEFFN arcoth(x#)=LOG((x#+1)/(x#-1))/2 ' *** '