integer aa0,aa00,aa0000,aa000000,
     . Naa,Paa,Namax
      parameter(aa0=1)
      parameter(aa00= 2)
      parameter(aa0000=3)
      parameter(aa000000=4)

      parameter(Naa=4)
      parameter(Paa=1)
      parameter(Namax=10)