/*****************  u1vec_copy.c  (in u1.a) ***************************
*									*
* void u1vec_copy(u1_vector *a, u1_vector *b);			*
* Copy an u1 vector:  B <- A   					*
*/
#include "complex.h"
#include "u1.h"

void u1vec_copy(u1_vector *a, u1_vector *b) { *b = *a; }