00001 subroutine xdlamch (cmach, retval) 00002 character cmach 00003 double precision retval, dlamch 00004 retval = dlamch (cmach) 00005 return 00006 end