/*****************  cmp_ahmat.c  (in u1.a) ****************************
*									*
* void compress_anti_hermitian( u1_matrix *m2, u1_anti_hermitmat *ah2)	*
* does nothing in u1; copies m2 -> ah2
*/
#include "complex.h"
#include "u1.h"

void compress_anti_hermitian(u1_matrix *m2, u1_anti_hermitmat *ah2) {
  *ah2 = *m2;
}