FACT++  1.0
_DIM_PROTO ( double  _swapd_by_addr,
(double *d)   
)