Variable_shift_double
else Variable_shift_double(Dallp1(srcA),Dallp2(srcB),30-exp,dest); \
else Variable_shift_double(Dallp1(dbl_valueA),Dallp2(dbl_valueB), \
else Variable_shift_double(Dallp1(dbl_valueA),Dallp2(dbl_valueB), \
Variable_shift_double(Dallp1(dbl_valueA),Dallp2(dbl_valueB), \
Variable_shift_double(Dallp1(srcdstA),Dallp2(srcdstB), \
Variable_shift_double(Dallp1(srcdstA),Dallp2(srcdstB),shift, \
Variable_shift_double(opndp1,opndp2,1-exponent,opndp2); \
Variable_shift_double(Dextallp3(srcdstC), \
Variable_shift_double(Dextallp2(srcdstB), \
Variable_shift_double(Dallp1(srcdstA), Dallp2(srcdstB), \
Variable_shift_double(Dextallp1(srcdstA), \
Variable_shift_double(Dextallp2(srcdstB), \
Variable_shift_double(Dextallp1(srcdstA), \
Variable_shift_double(Dextallp1(srcdstA), \
Variable_shift_double(Dexponentmantissap1(srcdstA), Dallp2(srcdstB), \
Variable_shift_double(srcp1,srcp2,(31-dst_exponent),
Variable_shift_double(srcp1,srcp2,(31-dst_exponent),
Variable_shift_double(srcp1,srcp2,(32-dst_exponent),
Variable_shift_double(srcp1,srcp2,(32-dst_exponent),
Variable_shift_double(Sextallp1(srcdstA), \
Variable_shift_double(opndp1,opndp2,1-exponent,opndp2); \