C PAT17.FOR C NAB/SLA/1736 23-AUG-79/ C RT-11 SOFTWARE DISPATCH AUGUST 1979 C FORTRAN IV/RT-11 V2.1 SEQ 19 M C COMPILER C COMMON SUBEXPRESSTIO OPTIMIZATION -- PATCH 17. DIMENSION D(6,6) C1=E*A/S C2=12.*E*AI/(S*S*S*(1.+AL)) C3=.5*S*C2 C4=E*AI/(S*(1.+AL)) D(1,1)=C1 D(1,2)=0.0 D(1,3)=0.0 D(1,4)=-C1 D(1,5)=0.0 D(1,6)=0.0 D(2,2)=C2 D(2,3)=-C3 D(2,4)=0.0 D(2,5)=-C2 D(2,6)=-C3 D(3,3)=(4.+AL)*C4 D(3,4)=0.0 D(3,5)=C3 D(3,6)=(2.-AL)*C4 D(4,4)=C1 D(4,5)=0.0 D(4,6)=0.0 D(5,5)=C2 D(5,6)=C3 D(6,6)=D(3,3) END