DOUBLE PRECISION FUNCTION DMACH(I)
      IMPLICIT DOUBLE PRECISION (A-H,O-Z)
      IF (I.EQ.7) THEN
         DMACH=1.7976931348623D+308
      ENDIF
      IF (I.EQ.8) THEN
         DMACH=-1.7976931348623D+308
         ENDIF
      IF (I.EQ.1) THEN
         DMACH=0.22251D-307
      ENDIF
      IF (I.EQ.4) THEN
         DMACH=0.22204D-15		
      ENDIF
      RETURN
      END