Searched refs:ibarb4 (Results 1 – 2 of 2) sorted by relevance
28669 static integer ivnow, ibarb4; in pmxa_() local29318 ibarb4 = lastbar[isyst - 1]; in pmxa_()29327 celskb4 = celsk[ibarb4]; in pmxa_()29351 diff1 = (r__1 = elsstarg - elsk[ibarb4], dabs(r__1)); in pmxa_()29353 for (a1ll_2.ibar = ibarb4 + 2; a1ll_2.ibar <= i__2; ++a1ll_2.ibar) in pmxa_()29365 nbarss[isyst] = a1ll_2.ibar - ibarb4; in pmxa_()29370 lastbar[isyst] = nbarss[isyst] + ibarb4; in pmxa_()29433 for (ibars = ibarb4 + 1; ibars <= i__2; ++ibars) { in pmxa_()
19014 ibarb4 = lastbar(isyst-1)19020 celskb4 = celsk(ibarb4)19042 diff1 = abs(elsstarg-elsk(ibarb4+1))19043 do 23 ibar = ibarb4+2 , ibarcnt19050 nbarss(isyst) = ibar-ibarb419055 lastbar(isyst) = nbarss(isyst)+ibarb419107 do 26 ibars = ibarb4+1 , lastbar(isyst)