integer TRscalarselect
      common/TRscalarselect/TRscalarselect