Add .into_shape_clone()

Author: bluss

src/impl_methods.rs

@@ -1921,6 +1921,39 @@ where
         }
     }
 
+    pub fn into_shape_clone<E>(self, shape: E) -> Result<ArrayBase<S, E::Dim>, ShapeError>
+    where
+        S: DataOwned,
+        A: Clone,
+        E: ShapeArg,
+    {
+        let (shape, order) = shape.into_shape_and_order();
+        let order = order.unwrap_or(Order::RowMajor);
+
+        if size_of_shape_checked(&shape) != Ok(self.dim.size()) {
+            return Err(error::incompatible_shapes(&self.dim, &shape));
+        }
+        let layout = self.layout_impl();
+
+        unsafe {
+            if layout.is(Layout::CORDER) && order == Order::RowMajor {
+                // safe because arrays are contiguous and len is unchanged
+                Ok(self.with_strides_dim(shape.default_strides(), shape))
+            } else if layout.is(Layout::FORDER) && order == Order::ColumnMajor {
+                // safe because arrays are contiguous and len is unchanged
+                Ok(self.with_strides_dim(shape.fortran_strides(), shape))
+            } else {
+                let (shape, view) = match order {
+                    Order::RowMajor => (shape.set_f(false), self.view()),
+                    Order::ColumnMajor => (shape.set_f(true), self.t()),
+                };
+
+                Ok(ArrayBase::from_shape_trusted_iter_unchecked(
+                            shape, view.into_iter(), A::clone))
+            }
+        }
+    }
+
     /// *Note: Reshape is for `ArcArray` only. Use `.into_shape()` for
     /// other arrays and array views.*
     ///