End of file
Contents
Index

F 0 Auxiliary Library

      INTEGER FUNCTION MACHPD(X)
      DOUBLE PRECISION X
      MACHPD=0
      IF (1.0D0 .LT. X) MACHPD=1
      RETURN
      END


Begin of file
Contents
Index