Searched refs:iirpt (Results 1 – 2 of 2) sorted by relevance
24172 static integer iirpt, lclow; in make2bar_() local25009 iirpt = all_1.islur[all_1.ipo[istart[ib] - 1] * 24 - 24] & in make2bar_()25011 if (iirpt > 0) { in make2bar_()25026 if (iirpt == 96) { in make2bar_()25037 } else if (bit_test(iirpt,5)) { in make2bar_()25048 } else if (bit_test(iirpt,6)) { in make2bar_()25059 } else if (bit_test(iirpt,8)) { in make2bar_()
16343 iirpt = iand(islur(1,ipo(istart(ib))),67109216)16344 if (iirpt .gt. 0) then16349 if (iirpt .eq. 96) then16352 else if (btest(iirpt,5)) then16355 else if (btest(iirpt,6)) then16358 else if (btest(iirpt,8)) then