home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Professional / OS2PRO194.ISO / os2 / prgramer / adaptor / examples / dalib / hostnode / test2.f < prev    next >
Encoding:
Text File  |  1993-03-23  |  328 b   |  20 lines
  1.       program test2
  2.  
  3.       real a(5,5), ha(5,5)
  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.       do i = 1, 5
  15.          print '(5f10.5)', ha(i,:)
  16.       end do
  17. c 
  18.       print * , 'results should all be 5 '
  19.       end
  20.