Lines Matching full:irc
16 …integer *voice, integer *pitch, real *rms, real *rc, integer *ipitch, integer *irms, integer *irc);
76 /* IRC - Quantized reflection coefficients */
84 rc, integer *ipitch, integer *irms, integer *irc) in encode_() argument
197 --irc; in encode_()
206 irc[i__] = rc[i__] * 32768.f; in encode_()
208 /* IF(LISTL.GE.3)WRITE(FDEBUG,800)VOICE,PITCH,IRMS,(IRC(I),I=1,ORDER) */ in encode_()
242 i2 = irc[i__]; in encode_()
254 irc[i__] = i2; in encode_()
259 i2 = irc[i__] / 2; in encode_()
274 irc[i__] = i2; in encode_()
282 irc[5] = enctab[(irc[1] & 30) / 2]; in encode_()
283 irc[6] = enctab[(irc[2] & 30) / 2]; in encode_()
284 irc[7] = enctab[(irc[3] & 30) / 2]; in encode_()
285 irc[8] = enctab[(*irms & 30) / 2]; in encode_()
286 irc[9] = enctab[(irc[4] & 30) / 2] / 2; in encode_()
287 irc[10] = enctab[(irc[4] & 30) / 2] & 1; in encode_()
290 /* IF(LISTL.GE.3)WRITE(FDEBUG,801)VOICE,IPITCH,IRMS,(IRC(J),J=1,ORDER) */ in encode_()