Dexponentmantissap1
(Dexponentmantissap1(dbl_valueA) || Dmantissap2(dbl_valueB))
(Dexponentmantissap1(dbl_valueA)==0 && Dmantissap2(dbl_valueB)==0)
dest = Dexponentmantissap1(src)
#define Dbl_exponentmantissap1(object) Dexponentmantissap1(object)
Dallp2(srcdstB) = Dexponentmantissap1(srcdstA) >> ((varamount)-32); \
Variable_shift_double(Dexponentmantissap1(srcdstA), Dallp2(srcdstB), \
(Dexponentmantissap1(srcdstA)>>(varamount))); \