/****************** det_u1.c (in u1.a) ****************************** * * complex det_u1( u1_matrix *a ) * determinant of an u1_matrix */ #include "complex.h" #include "u1.h" complex det_u1(u1_matrix *a) { return(cmplx(a->e[0],a->e[1])); }