real*8          epmac, dops
      common /machnc/ epmac, dops