| typedef union | |
| { | |
| double value; | |
| struct | |
| { | |
| unsigned long msw; | |
| unsigned long lsw; | |
| } parts; | |
| } ieee_double_shape_type; | |
| double f (int iy) | |
| { | |
| double z, t; | |
| ieee_double_shape_type u, v; | |
| if (iy == 1) | |
| return 0; | |
| u.parts.msw = iy; | |
| u.parts.lsw = 0; | |
| z = u.value; | |
| v.parts.msw = iy; | |
| v.parts.lsw = 0; | |
| t = v.value; | |
| return 1.0+z+t+t; | |
| } |