Searched refs:ivxbc (Results 1 – 2 of 2) sorted by relevance
33701 static integer ibc, ipbc, ivxbc; in putcb_() local33712 ivxbc = (15 & comcb_1.ibcdata[ibc - 1]) + (igetbits_(&comcb_1.ibcdata[ in putcb_()33715 if (*ivx == ivxbc && *ip == ipbc) { in putcb_()
21510 ivxbc = iand(15,ibcdata(ibc))+16*igetbits(ibcdata(ibc),1,28)21512 if (ivx .eq. ivxbc .and. ip .eq.ipbc) go to 2