integer b12,b12m,b12zm,b34,b56,b134,b234,b1,rat
      parameter(b12=1,b34=2,b56=3,b134=4,b234=5,b12m=6,b1=6,
     & rat=7,b12zm=8)