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