home *** CD-ROM | disk | FTP | other *** search
/ Collection of Education / collectionofeducationcarat1997.iso / SCIENCE / GRAD.ZIP / FUNC1.FOR < prev    next >
Text File  |  1988-08-22  |  171b  |  8 lines
  1.       SUBROUTINE ROSENB (X, Y, F)
  2.       IMPLICIT REAL*8 (A-H,O-Z)
  3. C == Rosenbrock's function ==
  4.       F = 100.0 * (Y - X*X)**2 + (1 - X)**2
  5.       RETURN
  6.       END
  7.  
  8.