C PAT20B.FOR C NAB/SLA/1736 23-AUG-79/ C RT-11 SOFTWARE DISPATCH AUGUST 1979 C FORTRAN IV/RT-11 V2.1 SEQ 22 M C COMPILER C BYTE COMPARISON AND COMMON SUBEXPRESSION OPTIMIZATION -- PATCH 20. INTEGER K(128) M=((I1-1))*4+I2 K((I1-1)*32+16)=M K((I1-1)*32+19)=I2 END