TEMP 1=F1 



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



F2=TEMP1 

 205 CONTINUE 



RTRX=SQRT(RX) 



EC=EXP(-C) 



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



J=N1D 



F1=DAK3(J) 



F2=0. 



DO 206 1=1, MID 



J=J-1 



TEMP1=F1 



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



F2=TEMP1 

 206 CONTINUE 



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



RETURN 

 C 



300 CONTINUE 



IF (C. GT. 5. ) 60 TO 350 



T=.4*C-1. 



TT=T+T 



J=N3 



F1=AJP(J) 



E1=AJN<J) 



F2 = 0. 



E2=0. 



DO 305 1= 1 , M3 



J=J-1 



TEMPI =F1 



TEMP2=E1 



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



E1=TT*E1-E2+AJN(J) 



F2=TEMP1 



E2=TEMP2 

 305 CONTINUE 



AI = (T*E1-E2+AJN(1) ) -X* (T*F 1-F2 + AJP ( 1 ) ) 



J = N3D 



F1=DAJP(J) 



E1 = DAJN (J) 



F2=0. 



E2=0. 



DO 306 1=1, M3D 



J = J-1 



TEMP1=F1 



TEMP2=E1 



Fl = TT*F1-F2+DAJP(J) 



El= TT*E1-E2+DAJN(J) 



F2=TEMP1 



E2=TEMP2 

 306 CONTINUE 



DAI = X*X*(T*F1-F2 + DAJP(1) ) + (T*E 1 -E2 + DAJN ( 1 ) ) 



RETURN 



AIRY219 

 AIRY220 

 AIRY221 

 AIRY222 

 AIRY223 

 AIRY224 

 AIRY225 

 AIRY226 

 AIRY227 

 AIRY228 

 AIRY229 

 AIRY230 

 AIRY231 

 AIRY232 

 AIRY233 

 AIRY234 

 AIRY235 

 AIRY236 

 AIRY237 

 AIRY238 

 AIRY239 

 AIRY240 

 AIRY241 

 AIRY242 

 AIRY243 

 AIRY244 

 AIRY245 

 AIRY246 

 AIRY247 

 AIRY248 

 AIRY249 

 AIRY250 

 AIRY251 

 AIRY252 

 AIRY253 

 AIRY254 

 AIRY255 

 AIRY256 

 AIRY257 

 AIRY258 

 AIRY259 

 AIRY260 

 AIRY261 

 AIRY262 

 AIRY263 

 AIRY264 

 AIRY265 

 AIRY266 

 AIRY267 

 AIRY268 

 AIRY269 

 AIRY270 

 AIRY271 

 AIRY272 

 AIRY273 



Figure A3. (Sheet 21 of 25) 



A25 



