*DECK QTEST
      PROGRAM QTEST 
      REAL X,MIN,MAX,EPS,ACC,DERIV,ERROR
      INTEGER I,ORDER,FAIL
      EXTERNAL F
      ORDER = 1
      EPS=0.
      ACC=0.
      MIN=-3.
      MAX=3.
      DO 10 I=-1,2
      X=FLOAT(I)
      CALL DIFF(ORDER,X,MIN,MAX,F,EPS,ACC,DERIV,ERROR,FAIL) 
      WRITE(6,100)DERIV,ERROR,FAIL
   10 CONTINUE
  100 FORMAT(2(1X,E10.4),1X,I2)
      STOP
      END 
C
      REAL FUNCTION F(X)
      REAL X
      F=EXP(4*X)
      RETURN
      END