integer Pdd,Ndmax
      parameter(Pdd=16)
      parameter(Ndmax=100)