24 …r *lframe, integer *ivuv, integer *ipiti, real *rmsi, real *rci, integer *nout, real *ratio, struc…
101 	integer *ipiti, real *rmsi, real *rci, integer *nout, real *ratio,  in pitsyn_()  argument
208 	*nout = *lframe / *pitch;  in pitsyn_()
209 	*jsamp = *lframe - *nout * *pitch;  in pitsyn_()
220 	i__1 = *nout;  in pitsyn_()
235 	*nout = 0;  in pitsyn_()
272 		*nout = 2;  in pitsyn_()
404 		    ++(*nout);  in pitsyn_()
414 		    ipiti[*nout] = ip;  in pitsyn_()
416 		    ivuv[*nout] = ivoice;  in pitsyn_()
425 			rci[j + *nout * rci_dim1] = (xxy - 1) / (xxy + 1);  in pitsyn_()
427 		    rmsi[*nout] = log(*rmso) + prop * (log(*rms) - log(*rmso));  in pitsyn_()
428 		    rmsi[*nout] = exp(rmsi[*nout]);  in pitsyn_()
504     if (*nout != 0) {  in pitsyn_()