-#if defined(vax)||defined(tahoe) /* VAX D format */
-#ifdef vax
-#define _0x(A,B) 0x/**/A/**/B
-#else /* vax */
-#define _0x(A,B) 0x/**/B/**/A
-#endif /* vax */
-/* static double */
-/* r2p1hi = 2.4142135623730950345E0 , Hex 2^ 2 * .9A827999FCEF32 */
-/* r2p1lo = 1.4349369327986523769E-17 , Hex 2^-55 * .84597D89B3754B */
-/* sqrt2 = 1.4142135623730950622E0 ; Hex 2^ 1 * .B504F333F9DE65 */
-static long r2p1hix[] = { _0x(8279,411a), _0x(ef32,99fc)};
-static long r2p1lox[] = { _0x(597d,2484), _0x(754b,89b3)};
-static long sqrt2x[] = { _0x(04f3,40b5), _0x(de65,33f9)};
-#define r2p1hi (*(double*)r2p1hix)
-#define r2p1lo (*(double*)r2p1lox)
-#define sqrt2 (*(double*)sqrt2x)
-#else /* defined(vax)||defined(tahoe) */
-static double
-r2p1hi = 2.4142135623730949234E0 , /*Hex 2^1 * 1.3504F333F9DE6 */
-r2p1lo = 1.2537167179050217666E-16 , /*Hex 2^-53 * 1.21165F626CDD5 */
-sqrt2 = 1.4142135623730951455E0 ; /*Hex 2^ 0 * 1.6A09E667F3BCD */
-#endif /* defined(vax)||defined(tahoe) */
+ic(r2p1hi, 2.4142135623730949234E0 , 1, 1.3504F333F9DE6)
+ic(r2p1lo, 1.2537167179050217666E-16 , -53, 1.21165F626CDD5)
+ic(sqrt2, 1.4142135623730951455E0 , 0, 1.6A09E667F3BCD)
+
+#ifdef vccast
+#define r2p1hi vccast(r2p1hi)
+#define r2p1lo vccast(r2p1lo)
+#define sqrt2 vccast(sqrt2)
+#endif