integer maxcindex,maxdindex,maxeindex
      common/pvmaxindex/maxcindex,maxdindex,maxeindex
!$omp threadprivate(/pvmaxindex/)