home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / adaptor.zip / adapt.zip / adaptor / examples / dalib / hostnode / test1.f < prev    next >
Text File  |  1993-03-23  |  287b  |  18 lines
  1.       program test1
  2.  
  3.       real a(15), ha(15)
  4. cmf$  layout ha(:host)
  5.  
  6.       ha = 4.0
  7. c     move ha to nodes
  8.       a = ha
  9.       a = a + 1.0
  10. c     move from nodes to host
  11.       ha = a
  12. c
  13. c     print results
  14.       print '(5f10.5)', ha
  15. c 
  16.       print * , 'results should all be 5 '
  17.       end
  18.