integer Pcc,Ncmax
      parameter(Pcc=11)
      parameter(Ncmax=100)