program asinh_test
   use slatec_module
   print *, sinh (0.5)
   print *, asinh (sinh (0.5))
end program asinh_test
