Lines Matching refs:ibelowtop
6215 static integer ibelowbot, ibelowtop, iwa, iranksetter, iseg; in crdacc_() local
6445 for (ibelowtop = nsegrb; ibelowtop >= 1; --ibelowtop) { in crdacc_()
6446 if (segrb[(ibelowtop << 1) - 1] < nolev + segal[iacctype + (( in crdacc_()
6448 for (ibelowbot = ibelowtop; ibelowbot >= 1; --ibelowbot) { in crdacc_()
6467 netgain = nsegal[iacctype - 1] - ibelowtop + ibelowbot; in crdacc_()
6472 i__2 = ibelowtop + 1; in crdacc_()
6482 segrb[(ibelowtop + netgain << 1) - 2] = segrb[(ibelowtop << 1) - in crdacc_()
6484 segrb[(ibelowtop + netgain << 1) - 1] = nolev + segal[iacctype + ( in crdacc_()
6486 ksegrb[ibelowtop + netgain - 1] = ksegrb[ibelowtop - 1]; in crdacc_()
6492 segrb[(ibelowtop + netgain << 1) - 2] = segrb[(ibelowtop << 1) - in crdacc_()
6494 segrb[(ibelowtop + netgain << 1) - 1] = nolev + segal[iacctype + ( in crdacc_()
6496 ksegrb[ibelowtop + netgain - 1] = ksegrb[ibelowtop - 1]; in crdacc_()
6498 for (isegrb = ibelowtop + 1; isegrb <= i__2; ++isegrb) { in crdacc_()