src/seq_mv/vector.c
hypre_Vector *hypre_SeqVectorCloneShallow(hypre_Vector *x) {
  HYPRE_Int size = hypre_VectorSize(x);
  HYPRE_Int num_vectors = hypre_VectorNumVectors(x);
  hypre_Vector *y = hypre_SeqMultiVectorCreate(size, num_vectors);

  hypre_VectorMultiVecStorageMethod(y) = hypre_VectorMultiVecStorageMethod(x);
  hypre_VectorVectorStride(y) = hypre_VectorVectorStride(x);
  hypre_VectorIndexStride(y) = hypre_VectorIndexStride(x);

  hypre_VectorMemoryLocation(y) = hypre_VectorMemoryLocation(x);

  hypre_VectorData(y) = hypre_VectorData(x);
  hypre_SeqVectorSetDataOwner(y, 0);
  hypre_SeqVectorInitialize(y);

  return y;
}
/*--------------------------------------------------------------------------
 * hypre_SeqVectorCloneShallow
 * Returns a complete copy of x - a shallow copy, pointing the data of x
 *--------------------------------------------------------------------------*/
hypre_SeqVectorCloneShallow
Returns a complete copy of x - a shallow copy, pointing the data of x
hypre_SeqVectorCloneShallow Returns a complete copy of x - a shallow copy pointing the data of x
hypre_Vector *hypre_SeqVectorCloneShallow(hypre_Vector *x) {
  HYPRE_Int size = hypre_VectorSize(x);
  HYPRE_Int num_vectors = hypre_VectorNumVectors(x);
  hypre_Vector *y = hypre_SeqMultiVectorCreate(size, num_vectors);
  hypre_VectorMultiVecStorageMethod(y) = hypre_VectorMultiVecStorageMethod(x);
  hypre_VectorVectorStride(y) = hypre_VectorVectorStride(x);
  hypre_VectorIndexStride(y) = hypre_VectorIndexStride(x);
  hypre_VectorMemoryLocation(y) = hypre_VectorMemoryLocation(x);
  hypre_VectorData(y) = hypre_VectorData(x);
  hypre_SeqVectorSetDataOwner(y, 0);
  hypre_SeqVectorInitialize(y);
  return y;
}
hypre_Vector * hypre_SeqVectorCloneShallow ( hypre_Vector * x ) { HYPRE_Int size = hypre_VectorSize ( x ) ; HYPRE_Int num_vectors = hypre_VectorNumVectors ( x ) ; hypre_Vector * y = hypre_SeqMultiVectorCreate ( size , num_vectors ) ; hypre_VectorMultiVecStorageMethod ( y ) = hypre_VectorMultiVecStorageMethod ( x ) ; hypre_VectorVectorStride ( y ) = hypre_VectorVectorStride ( x ) ; hypre_VectorIndexStride ( y ) = hypre_VectorIndexStride ( x ) ; hypre_VectorMemoryLocation ( y ) = hypre_VectorMemoryLocation ( x ) ; hypre_VectorData ( y ) = hypre_VectorData ( x ) ; hypre_SeqVectorSetDataOwner ( y , 0 ) ; hypre_SeqVectorInitialize ( y ) ; return y ; }
hypre_SeqVectorCloneShallow
 Returns a complete copy of x - a shallow copy, pointing the data of x
hypre_SeqVectorCloneShallow Returns a complete copy of x - a shallow copy pointing the data of x