home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / adaptor.zip / adapt.zip / adaptor / examples / dalib / reduct / real.f < prev   
Text File  |  1993-03-23  |  922b  |  51 lines
  1.       program test
  2.  
  3.       integer k
  4.       parameter (k = 3)
  5.  
  6.       real a(k)
  7.  
  8.       a(1) = 7.0
  9.       a(2) = 3.0
  10.       a(3) = 10.0
  11.  
  12.       call sumtest (a, k, 20.0)
  13.       call prodtest (a, k, 210.0)
  14.       call mintest (a, k, 3.0)
  15.       call maxtest (a, k, 10.0)
  16.  
  17.       end
  18.  
  19.       subroutine sumtest (a, N, result)
  20.       real a(n), s, result
  21.  
  22.       s = sum (a)
  23.       print *, 'SUM: Result is ', s, ' should be ', result
  24.  
  25.       end
  26.  
  27.       subroutine prodtest (a, N, result)
  28.       real a(n), s, result
  29.  
  30.       s = product (a)
  31.       print *, 'PRODUCT: Result is ', s, ' should be ', result
  32.  
  33.       end
  34.  
  35.       subroutine mintest (a, N, result)
  36.       real a(n), s, result
  37.  
  38.       s = minval (a)
  39.       print *, 'MINVAL: Result is ', s, ' should be ', result
  40.  
  41.       end
  42.  
  43.       subroutine maxtest (a, N, result)
  44.       real a(n), s, result
  45.  
  46.       s = maxval (a)
  47.       print *, 'MAXVAL: Result is ', s, ' should be ', result
  48.  
  49.       end
  50.  
  51.