/* Amulf.c 1.1 86/07/20 */
#include "../tahoealign/align.h"
mulf(infop
) process_info
*infop
;
/* Multiply operand by accumulator to accumulator (float).
/*******************************************************************/
register float *operand_pnt
;
operand_pnt
= (float *)&operand(infop
,0)->data
;
acc_pnt
= (float *) &acc_high
;
*acc_pnt
= *acc_pnt
* *operand_pnt
;