T2=DTM-l.D+0 



T2=T2/ETX 



S2 = T2 



RELB=T0L*ABS(T2) 



T1=ETX 



Sl = l. 



FN=1. 



AK = 8. 



DO 504 K=l , 13 



T1=T1+ETX 



FN=FN+AK 



DX = FN 



TRX=DTM-DX 



AP=TRX 



T2=-T2*AP/T1 



S1=S1+T2 



T1=T1+ETX 



AK=AK+8. 



FN=FN+AK 



DX = FN 



TRX=DTM-DX 



AP=TRX 



T2= T2#AP/T1 



S2=S2+T2 



IF(ABS(T2) .LE.RELB) GO TO 505 



AK=AK+8. 



504 CONTINUE 



505 TEMP(IS)=RA*(S1*SB-S2*SA) 

 GO TO (506,507) ,IS 



506 DALPHA=DALPHA+1. 

 IS=2 



TB = SA 

 SA=-SB 

 SB = TB 

 GO TO 503 



FORWARD RECURSION SECTION 



507 IF(KT.EQ.2) SO TO 250 

 S1=TEMP(1) 

 S2=TEMP<2) 



TX=2./X 

 TM=DALPHA*TX 

 IF(IN.EQ.O) GO TO 520 



FORWARD RECUR TO INDEX ALPHA 



DO 510 1 = 1, IN 



S2=TM*S2-S1 

 TM=TM+TX 

 S1 = S 

 110 CONTINUE 



IFfNN.EQ. 1) GO TO 535 

 S = S2 



BESJ570 



BESJ571 



BESJ572 



BESJ573 



BESJ574 



BESJ575 



BESJ576 



BESJ577 



BESJ578 



BESJ579 



BESJ580 



BESJ581 



BESJ582 



BESJ583 



BESJ584 



BESJ585 



BESJ586 



BESJ587 



BESJ588 



BESJ589 



BESJ590 



BESJ591 



3ESJ592 



BESJ593 



BESJ594 



BESJ595 



BESJ596 



BESJ597 



BESJ598 



BESJ599 



BESJ600 



BESJ601 



BESJ602 



BESJ603 



BESJ604 



BESJ605 



BESJ606 



BESJ607 



BESJ60e 



BESJ609 



BESJ610 



BESJ611 



BESJ612 



BESJ613 



BESJ614 



BESJ615 



BESJ616 



BESJ617 



BESJ618 



3ESJ619 



BESJ620 



BESJ621 



BESJ622 



BESJ623 



BESJ624 



Figure A3. (Sheet 14 of 25) 



A18 



