/* Asubf.c 1.1 86/07/20 */
#include "../tahoealign/align.h"
subf(infop
) process_info
*infop
;
/* Subtract operand from 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
;