Searched refs:icrdx (Results 1 – 2 of 2) sorted by relevance
4613 static integer icrdx, multb, ltemp; in beamstrt_() local5417 icrdx = 0; in beamstrt_()5432 icrdx = icrd; in beamstrt_()5463 if (icrdx == 0) { in beamstrt_()5470 comtrill_1.icrdorn[icrdx - 1] = bit_set( in beamstrt_()5471 comtrill_1.icrdorn[icrdx - 1],22); in beamstrt_()
3048 icrdx = 03056 icrdx = icrd3075 if (icrdx .eq. 0) then3081 icrdorn(icrdx) = ibset(icrdorn(icrdx),22)