home *** CD-ROM | disk | FTP | other *** search
/ BURKS 2 / BURKS_AUG97.ISO / BURKS / LANGUAGE / FORTRAN / F77TO90 / code / intv.f90 < prev    next >
Text File  |  1996-08-30  |  352b  |  16 lines
  1.     USE INTERVAL_ARITHMETICS
  2.     IMPLICIT NONE
  3.     TYPE (INTERVAL) :: A, B, C, D, E, F
  4.     A%LOWER = 6.9            
  5.     A%UPPER = 7.1
  6.     B%LOWER = 10.9           
  7.     B%UPPER = 11.1
  8.     WRITE (*,*) A, B
  9.     C = A + B                
  10.     D = A - B
  11.     E = A * B                
  12.     F = A / B
  13.     WRITE (*,*) C, D         
  14.     WRITE (*,*) E, F
  15.     END
  16.