/*			    -*- Mode: C -*-
// File: c_m_mat.c
// Created: Tue Feb 18 1997
// Author: J. E. Hetrick <hetrick@jdub.wustl.edu>
//
// Description: multiply a U(1) matrix z by a complex number c:
//    where: A = a->e[0] + i a->e[1]
             b <- z * A                    
//
// $Id$
// $Log$
*/
#include "complex.h"
#include "u1.h"

void c_mult_u1mat(u1_matrix *a, complex z, u1_matrix *b);

  b->e[0] = z.real*a->e[0] - z.imag*a->e[1];
  b->e[1] = z.imag*a->e[0] + z.real*a->e[1];
}