         wgs-sd 32
         wgs-fd 32
         wgs 1024
-        grid-dim-x (count-blocks wgs-sd cnt-sd)
-        grid-dim-y (count-blocks wgs-fd cnt-fd)
+        grid-dim-x (blocks-count wgs-sd cnt-sd)
+        grid-dim-y (blocks-count wgs-fd cnt-fd)
         acc-count (* grid-dim-x grid-dim-y)]
     (if (< 0 (.dim a))
       (with-release [sum-kernel (function modl sum-kernel-name)

        wgs-sd 32
        wgs-fd 32
        wgs 1024
        grid-dim-x (count-blocks wgs-sd cnt-sd)
        grid-dim-y (count-blocks wgs-fd cnt-fd)
        acc-count (* grid-dim-x grid-dim-y)]
    (if (< 0 (.dim a))
      (with-release [sum-kernel (function modl "ge_sum")

            [uncomplicate.clojurecuda
             [protocols :refer [cu-ptr ptr]]
             [core :refer :all :as cuda :exclude [device]]
             [toolbox :refer [launch-reduce! read-int]]
             [nvrtc :refer [program compile!]]
             [utils :refer [error]]]
            [uncomplicate.neanderthal
