120     real slope;  in pitsyn_()  local
234 	slope = (*pitch - *ipito) / (real) lsamp;  in pitsyn_()
248 	    slope = (*pitch - *ipito) / (real) lsamp;  in pitsyn_()
271 		slope = 0.f;  in pitsyn_()
291 		slope = 0.f;  in pitsyn_()
334 /* SLOPE       | 0    0      0        seebelow  0         0 */  in pitsyn_()
347 /* SLOPE       | --   --     --       --        0         0 */  in pitsyn_()
360 /* The only possible non-0 value of SLOPE (in column 111) is */  in pitsyn_()
372 /* definitions of IPITO, SLOPE, UVPIT, and that I is in the range ISTA  in pitsyn_()
398 		r__1 = *ipito + slope * i__;  in pitsyn_()
484 	    slope = 0.f;  in pitsyn_()