00001 subroutine xatanh (x, result) 00002 external atanh 00003 real x, result, atanh 00004 result = atanh (x) 00005 return 00006 end