File : sumentropies.adb

with Messages, Lattice.Ops;
use Messages, Lattice.Ops;

procedure SumEntropies is       -- compute and show entropy sums

  LP: constant Positive :=  2;  -- layer period: set 2 for AB, 3 for ABC
  NP: constant Positive :=  3;  -- size of polymers

  N1: constant Positive := 12;  -- lattice patch depth:  -N1 .. N1
  N2: constant Positive := 12;  -- lattice patch width:  -N2 .. N1
  N3: constant Positive :=  8;  -- lattice patch height: -N3 .. N3

begin
  Verbose := 1;

  InitPatch(N1,N2,N3,LP);
  EntropySums(NP);

end SumEntropies;