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