ncx.c#1884 cray_single *csp = (cray_single *) ip;
#1892 csp->exp -= (ieee_single_bias + 22);
#1897 csp->exp  = isp->exp + cs_ieis_bias + 1;
#1898 csp->mant = isp->mant << (48 - 1 - 23);
#1899 csp->mant |= (1 << (48 - 1));
#1901 csp->sign = isp->sign;
#1908 cray_single *csp = (cray_single *) ip;
#1916 csp->exp -= (ieee_single_bias + 22);
#1921 csp->exp  = isp->exp + cs_ieis_bias + 1;
#1922 csp->mant = isp->mant << (48 - 1 - 23);
#1923 csp->mant |= (1 << (48 - 1));
#1925 csp->sign = isp->sign;
#1937 const cray_single *csp = (const cray_single *) ip;
#1938 int ieee_exp = csp->exp - cs_ieis_bias -1;
#1940 isp->sign = csp->sign;
#1953 assert(csp->mant & 0x800000000000);
#1954 isp->mant = (((csp->mant << 1) &
#1962 isp->mant = csp->mant >> rshift;
#1965 if(csp->mant & (1 << (rshift -1)))
#1985 const cray_single *csp = (const cray_single *) ip;
#1986 int ieee_exp = csp->exp - cs_ieis_bias -1;
#1988 isp->sign = csp->sign;
#2001 assert(csp->mant & 0x800000000000);
#2002 isp->mant = (((csp->mant << 1) &
#2010 isp->mant = csp->mant >> rshift;
#2013 if(csp->mant & (1 << (rshift -1)))
#2485 cray_single *csp = (cray_single *) ip;
#2493 csp->exp -= (ieee_double_bias + 51);
#2498 csp->exp  = idp->exp + cs_id_bias + 1;
#2499 csp->mant = idp->mant >> (52 - 48 + 1);
#2500 csp->mant |= (1 << (48 - 1));
#2502 csp->sign = idp->sign;
#2509 const cray_single *csp = (const cray_single *) ip;
#2511 int ieee_exp = csp->exp - cs_id_bias -1;
#2513 idp->sign = csp->sign;
#2526 assert(csp->mant & 0x800000000000);
#2527 idp->mant = (((csp->mant << 1) &
#2534 idp->mant = csp->mant << lshift;
#2542 idp->mant = csp->mant >> rshift;
#2545 if(csp->mant & (1 << (rshift -1)))


HyperKWIC - Version 7.20DA executed at 11:37 on 27 Oct 2017 | Polyhedron Solutions - INTERNAL USE | COMMERCIAL (Any O/S) SN 4AKIed