source/unres/machpd.F90

   1       INTEGER FUNCTION MACHPD (X) \r
   2       DOUBLEPRECISION X \r
   3       MACHPD = 0 \r
   4       IF (1.0D0.LT.X) MACHPD = 1 \r
   5       RETURN \r
   6       END FUNCTION MACHPD                           \r