home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 10 / 10.iso / l / l292 / 1.ddi / RKFDEMO.FOR < prev    next >
Encoding:
Text File  |  1989-10-10  |  463 b   |  18 lines
  1.  
  2.       INTEGER  found
  3.       REAL y1
  4.  
  5.  
  6.  
  7.       !The differential equation y' = exp(2*x) + y is being solved using
  8.       !then initial value conditions y(0) = 1.  The RungeKutta procedure
  9.       !below solves for y given x = 0.1.  The step size used is 0.01.
  10.  
  11.       CALL RungeKutta(0.0, 1.0, .1, .01, .01, .01, y1, found)
  12.  
  13.       IF (found .EQ. 1) THEN
  14.         PRINT *, 'Yest =    ', y1
  15.         PRINT *, 'YActual = ', EXP(0.2)
  16.       END IF
  17.  
  18.       END