      SUBROUTINE ROSENB (X, Y, F)
      IMPLICIT REAL*8 (A-H,O-Z)
C == Rosenbrock's function ==
      F = 100.0 * (Y - X*X)**2 + (1 - X)**2
      RETURN
      END

