home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / adaptor.zip / adapt.zip / adaptor / examples / dalib / replic / rep1.f < prev    next >
Text File  |  1993-03-23  |  208b  |  18 lines
  1.       program replicate
  2.  
  3.       real a(10), ra(5), x
  4.  
  5. cmf$  layout ra(:serial)
  6.  
  7.       forall (i=1:10) a(i) = i
  8.  
  9.       ra = 0
  10.       ra = a(4:8)
  11.  
  12.       print *, ra
  13.  
  14.       x = sum (a)
  15.       print *, x
  16.  
  17.       end
  18.