C PAT08B.FOR C NAB/1736/SLA 30-JUL-79/31-JUL-79 C RT-11 SOFTWARE DISPATCH JUNE 1979 C FORTRAN IV/RT-11 V2.1 SEQ 9 M C COMPILER C REGISTER ALLOCATION -- PATCH 8. K=J L=2*K/L END