/*****************  u1mat_copy.c  (in u1.a) ***************************
*									*
* void u1mat_copy(u1_matrix *a, u1_matrix *b);			*
* Copy an u1 matrix:  B <- A   					*
*/

#include "complex.h"
#include "u1.h"

void u1mat_copy(u1_matrix *a, u1_matrix *b) {
  *b = *a;
}