anchor.diff:        (cl-test-more:is (nth-particle-in-cell-cpu 0 nbr info 1 0 0) 2)
         (with-memory-blocks ((x 'int 2))
           (kernel-test-neighbor-map1-cpu x nbr info 0 0 0)
  -        (cl-test-more:is (mem-aref x 0) 0)
  -        (cl-test-more:is (mem-aref x 1) 1))
  +        (cl-test-more:is (memory-block-aref x 0) 0)
  +        (cl-test-more:is (memory-block-aref x 1) 1))
         (with-memory-blocks ((x 'int 1))
           (kernel-test-neighbor-map1-cpu x nbr info 1 0 0)
  -        (cl-test-more:is (mem-aref x 0) 2))
  +        (cl-test-more:is (memory-block-aref x 0) 2))
         ;; test to insert particles out of neighbor map
         (clear-particles-in-cell-cpu nbr info -1 0 0)
         (insert-particle-in-cell-cpu 0 nbr info -1 0 0)
  
positive.code:   (let ((zero (float4-zero)))
      (loop for p in particles
            for i from 0
         do (setf (mem-aref x i) p
                  (mem-aref v i) zero))))
  
  (defun run-sph (particles)
    (let ((dev-id 0)
  
negative.code: (defun kernel-test-neighbor-map1-cpu (result nbr info i j k)
    (let ((index 0))
      (do-particles-in-cell-cpu (p nbr info i j k)
        (setf (memory-block-aref result index) p)
        (setf index (+ index 1)))))
  
  ;; test functions of neighbor map for one cell
  