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