168     integer ipit, iout, i__, icorf, index, ivoic, ixcor, i1, i2, i4;  in decode_()  local
337     for (i__ = 1; i__ <= i__1; ++i__) {  in decode_()
338 	drc[i__ * 3 - 3] = irc[i__];  in decode_()
390 	for (i__ = 1; i__ <= 4; ++i__) {  in decode_()
391 	    if (i__ == 1) {  in decode_()
394 		i1 = drc[(9 - i__) * 3 - 2] & 15;  in decode_()
396 	    i2 = drc[(5 - i__) * 3 - 2] & 31;  in decode_()
406 		iout = drc[(5 - i__) * 3 - 1];  in decode_()
408 	    drc[(5 - i__) * 3 - 2] = iout;  in decode_()
416     for (i__ = 1; i__ <= i__1; ++i__) {  in decode_()
417 	irc[i__] = drc[i__ * 3 - 2];  in decode_()
433 	for (i__ = 1; i__ <= 6; ++i__) {  in decode_()
434 	    if ((i__1 = drc[i__ * 3 - 2] - drc[i__ * 3 - 3], (real) abs(i__1))  in decode_()
435 		     >= corth[ixcor + ((i__ + 2) << 2) - 5] && (i__2 = drc[i__ *  in decode_()
436 		     3 - 2] - drc[i__ * 3 - 1], (real) abs(i__2)) >= corth[  in decode_()
437 		    ixcor + ((i__ + 2) << 2) - 5]) {  in decode_()
438 		irc[i__] = median_(&drc[i__ * 3 - 1], &drc[i__ * 3 - 2], &drc[  in decode_()
439 			i__ * 3 - 3]);  in decode_()
457 	for (i__ = 5; i__ <= i__1; ++i__) {  in decode_()
458 	    irc[i__] = zrc[i__ - 1];  in decode_()
469     for (i__ = 1; i__ <= i__1; ++i__) {  in decode_()
470 	drc[i__ * 3 - 1] = drc[i__ * 3 - 2];  in decode_()
471 	drc[i__ * 3 - 2] = drc[i__ * 3 - 3];  in decode_()
480     for (i__ = 1; i__ <= 2; ++i__) {  in decode_()
481 	i2 = irc[i__];  in decode_()
494 	ishift = 15 - nbit[i__ - 1];  in decode_()
495 	irc[i__] = i2 * pow_ii(&c__2, &ishift);  in decode_()
499     for (i__ = 3; i__ <= i__1; ++i__) {  in decode_()
500 	i2 = irc[i__];  in decode_()
501 	ishift = 15 - nbit[i__ - 1];  in decode_()
503 	i2 += qb[i__ - 3];  in decode_()
504 	irc[i__] = i2 * descl[i__ - 3] + deadd[i__ - 3];  in decode_()
511     for (i__ = 1; i__ <= i__1; ++i__) {  in decode_()
512 	rc[i__] = irc[i__] / 16384.f;  in decode_()