src-HCD-5D update

[unres.git] / source / unres / src-HCD-5D / machpd.f

C[KA{F 0}{Auxiliary Library}{Auxiliary Library}*)\r
      INTEGER FUNCTION MACHPD(X)\r
C[IX{MACHPD}*)\r
      DOUBLE PRECISION X\r
      MACHPD=0\r
      IF (1.0D0 .LT. X) MACHPD=1\r
      RETURN\r
      END\r