Searched refs:ibmchk (Results 1 – 2 of 2) sorted by relevance
24201 static integer ibmchk; in make2bar_() local24664 for (ibmchk = 1; ibmchk <= i__1; ++ibmchk) { in make2bar_()24665 if (ip - 1 < all_1.ibm1[commvl_1.ivx + ibmchk * 24 - 25]) { in make2bar_()24671 } else if (ip - 1 <= all_1.ibm2[commvl_1.ivx + ibmchk * 24 - in make2bar_()24673 all_1.ibm1[commvl_1.ivx + ibmchk * 24 - 25] * 24 - 25] in make2bar_()
16076 do 116 ibmchk = 1 , numbms(ivx)16077 if (ip-1 .lt. ibm1(ivx,ibmchk)) then16082 c else if (ip-1.le.ibm2(ivx,ibmchk)) then16083 else if (ip-1.le.ibm2(ivx,ibmchk) .and. 16084 * .not.btest(islur(ivx,ibm1(ivx,ibmchk)),18)) then