integer writenohits, showersincol, driftclusters
      real tgtwidth
      common /controlparams/ writenohits, showersincol, driftclusters
     +                       ,tgtwidth(2)