      subroutine xdlamch (cmach, retval)
      character cmach
      double precision retval, dlamch
      retval = dlamch (cmach)
      return
      end
