DO 105 1=1, HI 

 J = J-1 

 TEHP1=F1 



F1=TT*F1-F2+AK1 (J) 

 F2=TEHP1 

 105 CONTINUE 



AI=T*F1-F2+AK1 (1) 

 C 



J=N1D 



F1=DAK1 (J) 

 F2=0. 



DO 106 1 = 1, MID 

 J=J-i 

 TEMP1=F1 



F1=TT*F1-F2+DAK1 (J) 

 F2=TEMP1 

 106 CONTINUE 



DAI=-(T*F1-F2 + DAK1 (1) ) 

 RETURN 

 C 



150 CONTINUE 



T=(X+X-C0N2)*C0N3 

 TT = T + T 

 J = N2 



F1=AK2(J) 

 F2 = 0. 



DO 155 1=1, M2 

 J = J- 1 

 TEMP1=F1 



F1=TT*F1-F2+AK2(J> 

 F2=TEMP1 

 155 CONTINUE 



RTRX=SORT(RX) 

 EC=EXP(-C) 



AI=EC*(T#F1-F2+AK2(1) ) /RTRX 

 J=N2D 



F1=DAK2(J) 

 F2=0. 



DO 156 1=1, M2D 

 J=J-1 

 TEMP1=F1 



F1=TT*F1-F2+DAK2(J) 

 F2=TEHP1 

 156 CONTINUE 



DAI=-EC*(T*F1-F2+DAK2(1) ) *RTRX 

 RETURN 

 C 



200 CONTINUE 

 T=10./C-l. 

 TT=T+T 

 J=N1 



F1=AK3(J) 

 F2 = 0. 

 DO 205 1=1, Ml 



J=J-1 



AIRY 164 



AIRY165 



AIRY166 



AIRY167 



AIRY168 



AIRY169 



AIRY170 



AIRY 17 1 



AIRY172 



AIRY173 



AIRY174 



AIRY175 



AIRY176 



AIRY177 



AIRY178 



AIRY179 



AIRY180 



AIRY181 



AIRY182 



AIRY183 



AIRY184 



AIRY185 



AIRY186 



AIRY187 



AIRY188 



AIRY189 



AIRY190 



AIRY191 



AIRY192 



AIRY193 



AIRY194 



AIRY195 



AIRY 196 



AIRY197 



AIRY198 



AIRY199 



AIRY200 



AIRY201 



AIRY202 



AIRY203 



AIRY204 



AIRY205 



AIRY206 



AIRY207 



AIRY208 



AIRY209 



AIRY210 



AIRY211 



AIRY212 



AIRY213 



AIRY214 



AIRY215 



AIRY216 



AIRY217 



AIRY218 



Figure A3. (Sheet 20 of 25) 

 A24 



