!-----  Ex6_9: Voter Rule    -----
      INTEGER :: voter(0:19), neighbors(0:19), i
      PRINT*,"Input initial bits for 10 members:"
      READ*, voter
      DO i = 0, 5
         PRINT '(I3, ":", 20I2)', i, voter
         neighbors = CSHIFT( voter, 1) + CSHIFT( voter, -1)
         WHERE( neighbors /= 1 ) voter = neighbors/2
      END DO
      END