lsqr++/Lsqr.cpp
void dvec_copy(dvec *orig, dvec *copy)
{
  long   indx;

  for(indx = 0; indx < orig->length; indx++)
    copy->elements[indx] = orig->elements[indx];

  return;
}
/*-------------------------------------------------------------------------*/
/*                                                                         */
/*  Define the function 'dvec_copy()'.  This function takes two vectors    */
/*  as arguements and copies the contents of the first into the second.    */
/*  Note  that this is a version of the BLAS function 'dcopy()' rewritten  */
/*  to use the current data structures.                                    */
/*                                                                         */
/*-------------------------------------------------------------------------*/
Define the function 'dvec_copy()'.  This function takes two vectors
as arguements and copies the contents of the first into the second.
Note  that this is a version of the BLAS function 'dcopy()' rewritten
to use the current data structures.
Define the function ' dvec_copy () ' . This function takes two vectors as arguements and copies the contents of the first into the second . Note that this is a version of the BLAS function ' dcopy () ' rewritten to use the current data structures .
void dvec_copy(dvec *orig, dvec *copy)
{
  long   indx;
  for(indx = 0; indx < orig->length; indx++)
    copy->elements[indx] = orig->elements[indx];
  return;
}
void dvec_copy ( dvec * orig , dvec * copy ) { long indx ; for ( indx = 0 ; indx < orig -> length ; indx ++ ) copy -> elements [ indx ] = orig -> elements [ indx ] ; return ; }
Define the function 'dvec_copy()'.
Define the function ' dvec_copy () ' .