Searched refs:ibitt (Results 1 – 2 of 2) sorted by relevance
34215 static integer ibitt, ihorn, lform, lnote; in putorn_() local34552 ibitt = ibit; in putorn_()34560 ibitt = iclracc + 6; in putorn_()34562 ibitt = 21; in putorn_()34564 ibitt = *ip + (*ivx % 16 << 8) + (*nolev << 12) + (ibitt << 19); in putorn_()34566 if (ibitt == (33554431 & comtrill_1.kudorn[iudorn - 1]) && *ivx == in putorn_()
21988 ibitt = ibit21996 ibitt = iclracc+621998 ibitt = 2122000 ibitt=ip+ishft(mod(ivx,16),8)+ishft(nolev,12)+ishft(ibitt,19)22001 c if (ibitt .eq. iand(33554431,kudorn(iudorn))) go to 422002 if (ibitt .eq. iand(33554431,kudorn(iudorn))