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