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