24 …ice, integer *pitch, real *rms, real *rc, integer *lframe, integer *ivuv, integer *ipiti, real *rm…
100 	integer *pitch, real *rms, real *rc, integer *lframe, integer *ivuv,   in pitsyn_()
101 	integer *ipiti, real *rmsi, real *rci, integer *nout, real *ratio,  in pitsyn_()
106     real *rmso;  in pitsyn_()
111     real r__1;  in pitsyn_()
117     real alrn, alro, yarc[10], prop;  in pitsyn_()
120     real slope;  in pitsyn_()
122     real uvpit;  in pitsyn_()
126     real *rco;  in pitsyn_()
127     real xxy;  in pitsyn_()
234 	slope = (*pitch - *ipito) / (real) lsamp;  in pitsyn_()
248 	    slope = (*pitch - *ipito) / (real) lsamp;  in pitsyn_()
418 		    prop = (jused - ip / 2) / (real) lsamp;  in pitsyn_()
486 	    uvpit = (real) ((lsamp - istart) / 2);  in pitsyn_()