TR No. 22 
WRITE%619s6060 MlsN2»YO4 
WRITE%6196070SUMX 
WRITE%61260340 
DO 913 I#1>5N 
913 X%1lo#xX%IO-SUMX 
16 M#M1-1 
M2#M161 
DO 22 L#l»M2 
SUM1# 0 
SUM2#0.0 
SUM3 #00 
DO 23 ILO 
LZ#I-L&1 
SUM1L#SUMIEX%LZO*X%IO 
SUM2#SUM26EX%LZuU 
23 SUM3#SUM3&EX%10 
ZZ#N-LE1 
CORR RI 6/44 
GOERZHECOBRR72 
A%LU#COEF*SUM1—-COEF 2*SUM2* SUM3 
IF%CODED 25224925 
25 SUM4#0.0 
SUM5#0.0 
SUM6#0.20 
SUM7#0.0 
SUM8#0.0 
DO 26 I#L»N 
LZ#I-L6&1 
SUM4#SUM4EY%LZO*Y%IO 
SUM5#SUM5&Y%LZuo 
SUM6#SUM66Y%Iu 
SUM7#SUM7EX%LZoO*Y%IoO 
26 SUMB#SUM8EY%LZuU*xX*#@1oO 
B%SYLOXHCOEF*SUM4—COEF 2*SUM5*SUM6 
C%LOHCOEF*SUM/-COEF 2*SUM2*SUM6 
%®LOF#COEF*SUM8—COEF 2*SUM5*SUM3 
E%LO#%DSLO&C%LOO/2. 
FSLuU#¥%D%LO-C%¥LOO/2. 
24 CONTINUE 
22 CONTINUE 
