Fix gridder hint.

SKA-ScienceDataProcessor · Feb 24, 2016 · d789a84 · d789a84
1 parent 42ad3e8
commit d789a84
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/MS6/programs/continuum.hs b/MS6/programs/continuum.hs
@@ -177,7 +177,7 @@ continuumGridStrat cfg [ddomss,ddoms,ddom] tdom [uvdoms,uvdom] [_lmdoms,lmdom]
           bind createGrid $ rkern $ gridInit gcfpar uvdom
           let (gridkern, gridhint) = selectGridKernel (cfgGridderType cfg)
               binSize (_,_,s) = s
-              hint (visRegs:_) = [setDblOpts (8 * ops) gridhint]
+              hint (visRegs:_) = [setDblOpts (8 * ops * gcfsiz * gcfsiz) gridhint]
                 where wBinReg = (!!5) -- d, l, m, u, v, w - we want region six
                       ops = sum $ map binSize $ concatMap (regionBins . wBinReg) visRegs
           bindRule grid $ rkern $ hintsByPars hint $ gridkern gpar gcfpar uvdoms wdom uvdom