home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 10 Tools
/
10-Tools.zip
/
adaptor.zip
/
adapt.zip
/
adaptor
/
examples
/
simple
/
ca.f
next >
Wrap
Text File
|
1993-03-23
|
678b
|
32 lines
program host_ca
c N : size of automata
c M : number of iterations
integer N, M
parameter (N=78)
parameter (M=100)
logical*1 feld (1:N)
logical*1 hfeld (1:N)
logical*1 host_feld (1:N)
CMF$ Layout host_feld (:host)
character s (1:N)
CMF$ Layout s (:host)
integer i, k
feld = .false.
feld (N/2) = .true.
do k = 1,M
host_feld = feld
hfeld = cshift (feld,1,-1)
feld = cshift (feld, 1, 1)
feld = feld .ne. hfeld
do i=1,N
s(i) = ' '
if (host_feld(i)) s(i) = '*'
end do
print *, s
end do
end