integer TRscalarselect
      common/TRscalarselect/TRscalarselect
!$omp threadprivate(/TRscalarselect/)