complex(dp):: Dv(Ndd*Ndmax,-2:0)
      common/Dv/Dv
!$omp threadprivate(/Dv/)