Searched refs:ipbsc (Results 1 – 2 of 2) sorted by relevance
16313 static integer ipbsc, npbsc; in g1etx_() local16332 ipbsc = i_indx("PBS:", charq, (ftnlen)4, (ftnlen)1); in g1etx_()16333 if (bit_test(npbsc,ipbsc)) { in g1etx_()16341 npbsc = bit_set(npbsc,ipbsc); in g1etx_()
10294 ipbsc = index('PBS:',charq)10295 if (btest(nPBSc,ipbsc)) then10298 c else if (.not.notxtup .and. ipbsc.gt.2) then10302 nPBSc = ibset(nPBSc,ipbsc)