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