integer a,b,g,q
      parameter(a=-1,g=0,q=+1,b=2)