integer q4,a7,u1,u2,b1,b2
      parameter(q4=3,a7=5,u1=6,u2=8,b1=11,b2=12)
      integer p1,p2,p4,p7,p9,p10
      parameter(p1=1,p2=2,p4=4,p7=7,p9=9,p10=10)