home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Professional / OS2PRO194.ISO / os2 / prgramer / adaptor / examples / overlap / ca.f next >
Encoding:
Text File  |  1993-04-19  |  712 b   |  34 lines
  1.       program host_ca
  2.  
  3. c     N : size of automata
  4. c     M : number of iterations
  5.       integer N, M
  6.       parameter (N=78)
  7.       parameter (M=100)
  8.  
  9.       logical*1 feld (1:N)
  10.       logical*1 hfeld (1:N[1:1])   ! has an overlap
  11.       logical*1 host_feld (1:N)
  12.  
  13. CMF$  Layout host_feld (:host)
  14.       character s (1:N)
  15. CMF$  Layout s (:host)
  16.       integer i, k
  17.  
  18.       feld = .false.
  19.       feld (N/2) = .true.
  20.  
  21.       do k = 1,M
  22.          host_feld = feld        
  23.          hfeld = feld
  24.          forall (i=1:N)
  25.            feld(i) = hfeld(i-1) .ne. hfeld(i+1)
  26.          end forall
  27.          do i=1,N
  28.             s(i) = ' '
  29.             if (host_feld(i)) s(i) = '*'
  30.          end do
  31.          print *, s
  32.       end do
  33.       end
  34.