logical pvbadpoint
      common/pvbadpoint/pvbadpoint
!$omp threadprivate(/pvbadpoint/)