integer Pbb,Nbmax
      parameter(Pbb =6)
      parameter(Nbmax =50)