158     integer *drms;  in decode_()  local
298     drms = &(st->drms[0]);  in decode_()
335     drms[0] = *irms;  in decode_()
383 	lsb = drms[1] & 1;  in decode_()
384 	index = (drc[22] << 4) + drms[1] / 2;  in decode_()
386 	drms[1] = drms[2];  in decode_()
388 	    drms[1] = (iout << 1) + lsb;  in decode_()
414     *irms = drms[1];  in decode_()
428 	if ((i__1 = drms[1] - drms[0], (real) abs(i__1)) >= corth[ixcor + 3]   in decode_()
429 		&& (i__2 = drms[1] - drms[2], (real) abs(i__2)) >= corth[  in decode_()
431 	    *irms = median_(&drms[2], &drms[1], drms);  in decode_()
466     drms[2] = drms[1];  in decode_()
467     drms[1] = drms[0];  in decode_()