24 …er *order, integer *voice, integer *pitch, real *rms, real *rc, integer *lframe, integer *ivuv, in…
55 /* each with identical values of LFRAME, will always be in the range */
56 /* N*LFRAME-MAXPIT+1 to N*LFRAME. */
70 /*  LFRAME - Length of speech buffer */
91 /*           This is at least 0, at least 1 if MAXPIT .LT. LFRAME (this */
93 /*           (LFRAME+MAXPIT-1)/PITCH, which is currently 16 with */
94 /*           LFRAME=180, MAXPIT=156, and PITCH .GE. 20, as SYNTHS */
100 	integer *pitch, real *rms, real *rc, integer *lframe, integer *ivuv,   in pitsyn_()  argument
147 /*          LFRAME, then the total length of all pitch periods returned */  in pitsyn_()
148 /*          is always N*LFRAME-JSAMP, and JSAMP is always in the range 0   in pitsyn_()
156 /*          LFRAME+JSAMP. */  in pitsyn_()
206 	    *pitch = *lframe / 4;  in pitsyn_()
208 	*nout = *lframe / *pitch;  in pitsyn_()
209 	*jsamp = *lframe - *nout * *pitch;  in pitsyn_()
213 /*          to 156.  LFRAME = MAXFRM = 180, so NOUT is somewhere in th  in pitsyn_()
217 /*          JSAMP is "LFRAME mod PITCH", so it is in the range 0 to */  in pitsyn_()
233 	lsamp = *lframe + *jsamp;  in pitsyn_()
241 		*pitch = *lframe / 4;  in pitsyn_()
254 		    nl = lsamp - *lframe / 4;  in pitsyn_()
257 		    nl = lsamp - *lframe * 3 / 4;  in pitsyn_()
280 		    lsamp = *lframe / 4 + *jsamp;  in pitsyn_()
283 		    lsamp = *lframe * 3 / 4 + *jsamp;  in pitsyn_()
314 /* Note that all of the 180 values in the table are really LFRAME, but  in pitsyn_()
317 /* concrete.  If LFRAME is ever changed, keep this in mind.  Similarly  in pitsyn_()
319 /* 135's are 3*LFRAME/4, and 45's are LFRAME/4.  If LFRAME is not a */  in pitsyn_()
320 /* multiple of 4, then the 135 for NL-JSAMP is actually LFRAME-LFRAME/  in pitsyn_()
322 /* and the 45 for NL-JSAMP is actually LFRAME-3*LFRAME/4. */  in pitsyn_()
483 	    lsamp = *lframe + *jsamp;  in pitsyn_()
500 /*       Given that the maximum pitch period MAXPIT .LT. LFRAME (this is   in pitsyn_()
503 /*       LFRAME=180), NOUT will always be .GE. 1 at this point. */  in pitsyn_()