00001 subroutine xdasinh (x, result) 00002 external dasinh 00003 double precision x, result, dasinh 00004 result = dasinh (x) 00005 return 00006 end