1*29620Ssam /* Amuld.c 1.1 86/07/20 */ 2*29620Ssam 3*29620Ssam 4*29620Ssam #include "../tahoealign/align.h" 5*29620Ssam muld(infop) process_info *infop; 6*29620Ssam /* 7*29620Ssam /* Multiply operand by accumulator to accumulator (double). 8*29620Ssam /* 9*29620Ssam /*******************************************************************/ 10*29620Ssam { 11*29620Ssam register double *operand_pnt; 12*29620Ssam register double *acc_pnt; 13*29620Ssam 14*29620Ssam operand_pnt = (double *)&operand(infop,0)->data; 15*29620Ssam acc_pnt = (double *) &acc_high; 16*29620Ssam *acc_pnt = *acc_pnt * *operand_pnt; 17*29620Ssam } 18