+ extent,
+ fromListUnboxed,
+ unsafeIndex )
+
+import ScaleFactor ( ScaleFactor )
+
+
+type Values sh = Array U sh Double
+type Values2D = Values DIM2
+type Values3D = Values DIM3
+
+
+empty3d :: Values3D
+empty3d = Data.Array.Repa.fromListUnboxed (Z :. 0 :. 0 :. 0) []
+