Searched refs:ipleft (Results 1 – 2 of 2) sorted by relevance
3835 static integer ipleft; in beamid_() local4116 ipleft = ip - 1; in beamid_()4117 if (bit_test(all_1.irest[commvl_1.ivx + ipleft * 24 - 25],0)) { in beamid_()4118 --ipleft; in beamid_()4120 if (! bit_test(all_1.islur[commvl_1.ivx + ipleft * 24 - 25],20)) { in beamid_()4121 multl = (15 & all_1.mult[commvl_1.ivx + ipleft * 24 - 25]) - 8; in beamid_()
2236 ipleft = ip-12237 if (btest(irest(ivx,ipleft),0)) ipleft = ipleft-12238 if (.not.btest(islur(ivx,ipleft),20)) then2239 multl = iand(15,mult(ivx,ipleft))-8