117     real sbar;  in dyptrk_()  local
263     sbar = s[0];  in dyptrk_()
266 	sbar += alpha;  in dyptrk_()
267 	if (sbar < s[i__ - 1]) {  in dyptrk_()
268 	    s[i__ - 1] = sbar;  in dyptrk_()
271 	    sbar = s[i__ - 1];  in dyptrk_()
278     sbar = s[i__];  in dyptrk_()
280 	sbar += alpha;  in dyptrk_()
281 	if (sbar < s[i__ - 1]) {  in dyptrk_()
282 	    s[i__ - 1] = sbar;  in dyptrk_()
287 	    sbar = s[i__ - 1];  in dyptrk_()