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