integer pvDitry(0:Ndd*Ndmax)
      common/pvDitry/pvDitry
!$omp threadprivate(/pvDitry/)