home *** CD-ROM | disk | FTP | other *** search
/ BURKS 2 / BURKS_AUG97.ISO / BURKS / LANGUAGE / FORTRAN / F77TO90 / code / epsilon.f90 next >
Text File  |  1996-03-08  |  284b  |  15 lines
  1.             PROGRAM EPSILON
  2.             IMPLICIT NONE
  3.             REAL :: A, B, C, D, E
  4.  
  5.             A = 1.0/3.0
  6.             B = 4.0*A - 1.0
  7.             C = 3.0*B - 1.0
  8.             D = 0.5*C
  9.  
  10.             E = ABS(D)
  11.  
  12.             WRITE(*,*) ' mu = ', E
  13.  
  14.             END PROGRAM EPSILON
  15.