<!-- hamlet
<!-- copytar
examples/                                                                                              755    1107     770            0  5550624512   5711                                                                                                                                                                                                                                                                                                                                                                      examples/.solve.f                                                                                      644    1107     770         1204  5550624505   7352                                                                                                                                                                                                                                                                                                                                                                      C This function requires that "B" be nonzero.  It returns the value of x that
C is the solution of the equation:
C
C                2
C         Ax    x
C        e   = ---  
C               B

      REAL FUNCTION SOLVE (A, B)
      IMPLICIT NONE
      REAL A, B

      INTEGER I, TRIALS
      REAL X, E, EPSILON
      PARAMETER (E=2.718281828, EPSILON=.000001, TRIALS=200)

      X = 0
      DO I = 1, 200
         IF (ABS(E**(A*X) - X*X/B) .LT. EPSILON) THEN
            SOLVE = X
            RETURN
         ELSE
            X = X - (E**(A*X) - X*X/B) / (A*E**(A*X) - 2*X)
         ENDIF
      ENDDO

      SOLVE = X

      RETURN
      END


                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            