home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / adaptor.zip / adapt.zip / adaptor / examples / dalib / move / simple1.f < prev    next >
Text File  |  1993-04-29  |  408b  |  16 lines
  1.       program simple1
  2.       real ha(1:20), a(1:20), b(5:17)
  3. cmf$  layout ha(:host)
  4.       a = 1
  5.       b = 0
  6.       a(6:13) = b(7:14)
  7.       ha = a
  8.       print 5, ha
  9.   5   format (5f10.5)
  10.       print *, ' '
  11.       print *, ' a(1:20 = 1, b(5:17) = 0, a(6:13) = b(7:14) '
  12.       print *, ' '
  13.       print *, 'Results should be 1 1 1 1 1 | 0 0 0 0 0'
  14.       print *, '                  0 0 0 1 1 | 1 1 1 1 1'
  15.       end
  16.