integer writenohits, showersincol
      common /controlparams/ writenohits, showersincol