24 extern int voicin_(integer *vwin, real *inbuf, real *lpbuf, integer *buflim, integer *half, real *m…
66 /* VSTATE when HALF .EQ. 1, rather than a garbage value that could change */
117 /*        Voicing Detection (VOICIN) makes voicing decisions for each half */
119 /*   in the future (2F) for each half frame.  These decisions are carried */
122 /*   decisions for each half frame. */
142 /*   within one half frame.  In this case, the voicing decision transition */
156 /*  HALF      - Present analysis half frame number */
164 /*             Indices 1 through 3 read if (HALF .NE. 1), otherwise untouched.
169 /*              Index (HALF,3) written. */
170 /*              If (HALF .EQ. 1), skip down to "Read (HALF,3)" below. */
179 /*              Finally, read (HALF,3) */
197 /*              On every call when (HALF .EQ. 1), VOICE(*,I+1) is */
199 /*              VOICE(HALF,3) is written on every call. */
224 	lpbuf, integer *buflim, integer *half, real *minamd, real *maxamd,   in voicin_()  argument
381 /*       begins "IF (HALF .EQ. 1) THEN" below.  Also, uninitialized */  in voicin_()
452 /*       MAXMIN is initialized on the first call, assuming that HALF */  in voicin_()
482 /* 	   (half-frame number, future-frame number) */  in voicin_()
488     if (*half == 1) {  in voicin_()
497 	    half, dither, mintau, &zc, &lbe, &fbe, &qs, &rc1, &ar_b__, &  in voicin_()
527     voice[*half + 3] = vdc[snrl * 10 - 1];  in voicin_()
529 	voice[*half + 3] += vdc[i__ + snrl * 10 - 11] * value[i__ - 1];  in voicin_()
532 /*   Voicing decision for current half-frame:  1 = Voiced; 0 = Unvoiced */  in voicin_()
533     if (voice[*half + 3] > 0.f) {  in voicin_()
534 	voibuf[*half + 6] = 1;  in voicin_()
536 	voibuf[*half + 6] = 0;  in voicin_()
538 /*   Skip voicing decision smoothing in first half-frame: */  in voicin_()
541 /*     a consistent value from one call to the next when HALF .EQ. 1. */  in voicin_()
546     if (*half == 1) {  in voicin_()
551 /* 	Unvoiced half-frames:  At least two in a row. */  in voicin_()
554 /* 	Voiced half-frames:    At least two in a row in one frame. */  in voicin_()
563 /* 	If a V/UV or UV/V voicing decision transition occurs within one-half   in voicin_()
678 /*  During unvoiced half-frames, update the low band and full band unvoice  in voicin_()
684 /*   During voiced half-frames, update the low-pass (LBVE) and all-pass */  in voicin_()
686     if (voibuf[*half + 6] == 0) {  in voicin_()