RUNT VERSION FEB T, 8 I7I12 0<*/Zl/7(> 



271 





IF{X.LT.C.)TM«T4-TP 



300 





S»TH+SUM2 



302 





A<i«E*(Cl*C+Sl*S) 



306 





*10-fc*(-Cl*S+Sl*C) 



313 





60 TO 9 





C... 



LAGUERBE OU40RATURL-FIVE POINT 



SI*. 



13 



DO 14 1=1,5 



316 





A«XN«I)+AA 



321 





TER.1«CN(I(/(A*A*8B*98> 



330 





SUM1=TERM+A+SUMI 



333 



14 



SUM2»TERM+SUM2 



337 





F = l, 



3^0 





IF(X.LT.0.)P«-1. 



343 





A9=F*PIE*Sl*E-iUMl 



347 





AlC— F*PIE*C1*E+8B*SUM2 



353 



tf 



RETURN 



354 





END 



Table D-2. Continued 



132 



