Lines Matching refs:i__
118 integer iptr, i__, j; in dyptrk_() local
261 i__ = 1; in dyptrk_()
265 for (i__ = 1; i__ <= i__1; ++i__) { in dyptrk_()
267 if (sbar < s[i__ - 1]) { in dyptrk_()
268 s[i__ - 1] = sbar; in dyptrk_()
269 p[i__ + iptr * 60 - 61] = pbar; in dyptrk_()
271 sbar = s[i__ - 1]; in dyptrk_()
272 p[i__ + iptr * 60 - 61] = i__; in dyptrk_()
273 pbar = i__; in dyptrk_()
277 i__ = pbar - 1; in dyptrk_()
278 sbar = s[i__]; in dyptrk_()
279 while(i__ >= 1) { in dyptrk_()
281 if (sbar < s[i__ - 1]) { in dyptrk_()
282 s[i__ - 1] = sbar; in dyptrk_()
283 p[i__ + iptr * 60 - 61] = pbar; in dyptrk_()
285 pbar = p[i__ + iptr * 60 - 61]; in dyptrk_()
286 i__ = pbar; in dyptrk_()
287 sbar = s[i__ - 1]; in dyptrk_()
289 --i__; in dyptrk_()
298 for (i__ = 2; i__ <= i__1; ++i__) { in dyptrk_()
299 s[i__ - 1] += amdf[i__] / 2; in dyptrk_()
300 if (s[i__ - 1] > maxsc) { in dyptrk_()
301 maxsc = s[i__ - 1]; in dyptrk_()
303 if (s[i__ - 1] < minsc) { in dyptrk_()
304 *midx = i__; in dyptrk_()
305 minsc = s[i__ - 1]; in dyptrk_()
310 for (i__ = 1; i__ <= i__1; ++i__) { in dyptrk_()
311 s[i__ - 1] -= minsc; in dyptrk_()
316 for (i__ = 20; i__ <= 40; i__ += 10) { in dyptrk_()
317 if (*midx > i__) { in dyptrk_()
318 if (s[*midx - i__ - 1] < maxsc / 4) { in dyptrk_()
319 j = i__; in dyptrk_()
327 for (i__ = 1; i__ <= 2; ++i__) { in dyptrk_()