#
#	Copyright 1993, Center for Computer Vision and Visualization,
#	University of Florida.  All rights reserved.
#

#
# $Log: complex-convolutions.desc,v $
# Revision 1.1  1993/11/29  22:25:25  thoth
# Initial revision
#
# 

convolution complex linear_product complex complex zero=0.0
init:	RTYPE	a = complex(0.,0.);
accum:	a += IVAL * TVAL;
final:	IRESULT = a;
forw_init:	IRESULT = ZERO;
forw_accumvar:	IRESULT += IVAL * TVAL;
end

reduction complex sum complex zero=0
accum:	IRESULT += TVAL;
end
