Searched refs:iranksetter (Results 1 – 2 of 2) sorted by relevance
6215 static integer ibelowbot, ibelowtop, iwa, iranksetter, iseg; in crdacc_() local6373 iranksetter = 0; in crdacc_()6375 iranksetter = *icrdot0; in crdacc_()6377 iranksetter = igetbits_(&comtrill_1.icrdot[isetshft[iwa - 1] in crdacc_()6380 if (iranksetter != 0 && irank != iranksetter + 1) { in crdacc_()
3778 iranksetter = 03780 iranksetter = icrdot03782 iranksetter = igetbits(icrdot(isetshft(iwa)),3,27)3784 if (iranksetter.ne.0 .and. irank.ne.iranksetter+1) then