parameter (nx=90,ny=90) ; integer m(nx,ny)
	m=0
	do ic=9,81,9 ; do jc=9,81,9
	   call cellularinit(m,nx,ny,1,ic,jc)
	enddo ; enddo
	call cellularplot(m,nx,ny)
	call displayexample('example34','cellularplot routine',' ')
	call cellularplotrule(0,'example34')
	end