   (stride [_]
     strd)
   (count [_]
+    n)
+  IFn
+  (invoke [x]
+    n)
+  IFn$L
+  (invokePrim [x]
     n)
   RealChangeable
   (set [x val]

    ord)
  (count [_]
    (* m n))
  RealChangeable
  (set [a val]
    (if (and (= ld (if (column-major? a) m n))

             :refer [->RealBlockVector ->RealGeneralMatrix]]
            [uncomplicate.neanderthal.impl.cblas :refer
             [cblas-single cblas-double]])
  (:import [clojure.lang IFn IFn$L]
           [uncomplicate.clojurecl.core CLBuffer]
           [uncomplicate.neanderthal.protocols
            BLAS Vector RealVector Matrix RealMatrix RealChangeable
            Block DataAccessor]
