

RETURN 





BESJ735 





END 





BESJ736 





SUBROUTINE J AIRY ( X , RX , C , AI , DAI ) 





AIRY1 



c 







A I RY2 



c 



CDC 6600 ROUTINE 1-2-74 





AIRY3 



c 



JAIRY COMPUTES THE AIRY FUNCTION A I ( X > 





AIRY4 



c 



AND ITS DERIVATIVE DAKX) FOR JBESS 





AIRY5 



c 







AIRY6 



c 



INPUT: X - ARGUMENT, COMPUTED BY JBESS, X UNRESTRICTED 





AIRY7 



c 



RX - RX=SQRT(ABS(X) ) , COMPUTED BY JBESS 





AIRY8 



c 



C - C = 2.*(ABS(X)**1.5>/3. , COMPUTED BY JBESS 





AIRY9 



c 



OUTPUT: AI - VALUE OF FUNCTION AI(X) 





AIRY10 



c 



DAI - VALUE OF THE DERIVATIVE DAKX) 





AIRY11 



c 







AIRY12 



c 



WRITTEN BY D.E. AMOS, S.L. DANIEL & M.K WESTON 





AIRY13 



c 







A T D V 1 A 







H 1 K Y 1 *\ 





DIMENSION AKK14) ,AK2(23> , AK3 ( 14) 





AIRY15 





DIMENSION AJP(19> ,AJN(19) ,A(15) ,B<15) 





AIRY16 





DIMENSION D A K 1 (14) ,DAK2(24) , DAK3 (14) 





AIRY17 





DIMENSION DAJP(19) ,DAJN(19) ,DA(15) ,DB(15) 





AIRY18 





DATA N1,N2,N3,N4/14,23,19,15/ 





AIRY19 





DATA M1,M2,M3,M4/12,21,17,13/ 





AIRY20 





DATA FPI12,C0N1,C0N2,C0N3,C0N4,C0N5/ 





AIRY21 





I 1.3089969389958E+00, 6. 6666666666667E-01 , 5. 0315471619678E+00 , 



AIRY22 





2 3.80004589B6729E-01 , 8. 3333333333333E-01 , 8. 6602540378444E-01 / 



AIRY23 





DATA AKK1) / 2.2042309098779E-01/, 





AIRY24 





1 AKK2) /-1.2529024278770E-01/, AKK3) / 1 . 03881 16335919E- 



■02/, 



AIRY25 





2 AKK4) / 8.2284415200634E-04/, AKK5) 1-2. 3461434589123E- 



-04/, 



AIRY26 





3 AKK6) / 1.6382428017212E-05/, AKK7) / 3. 0690258957319E- 



-07/, 



AIRY27 





4 AKK8) /-1.2962199935933E-07/, AKK9) / B. 2290815882367E- 



-09/, 



AIRY28 





5 AKK10)/ 1.5396396862330E-11/, AK1 ( 1 1 ) /-3. 39 1 654656 1 568E- 



-11/, 



AIRY29 





6 AKK12)/ 2.0325325742363E-12/, AK1 ( 13) /-l . 1067954609788E- 



-14/, 



AIRY30 





7 AK1 (14) /-5. 1616949778508E-15/ 





AIRY31 





DATA AK2U) / 2. 7436615086960E-01 / , 





AIRY32 





1 AK2(2) / 5.3979096973690E-03/, AK2(3) /-l . 57339220621 1 9E- 



-03/, 



AIRY33 





2 AK2(4) / 4.2742752324875E-04/, AK2(5) /- 1 . 1 2 1 249 1 739992E- 



-04/, 



AIRY34 





3 AK2(6) / 2.B876317131890E-05/, AK2(7) 1-1. 3680422537055E- 



-06/, 



AIRY35 





4 AK2(8) / 1.8729020974102E-06/, AK2(9> /-4. 7589279396229E- 



-07/, 



AIRY36 





5 AK2( 10) / 1.2113041695591E-07/, AK2 ( 1 1 ) /-3. 0924537427061E- 



-08/ , 



AIRY37 





6 AK2(12)/ 7.9245470523265E-09/ , AK2 ( 13) 1-2. 0390244716791E- 



-09/, 



AIRY38 





7 AK.2 ( 14) / 5.2686305659574E-10/, AK2 ( 15) / -1 . 3670476763957E- 



-10/, 



AIRY39 





8 AK2(16)/ 3.5614103901371E-11/, AK2 ( 17) /-9. 3138829654B43E- 



-12/, 



AIRY40 





9 AK2U8)/ 2.4446445047364E-12/, AK2 ( 19) /-6. 4384026 199096E- 



-13/, 



AIRY41 





1 AK2(20)/ 1.7010603055935E-13/, AK2 (21 ) /-4. 5076010450328E- 



-14/, 



AIRY42 





2 AK2(22)/ 1. 1977479916481E-14/, AK2 (23) / -3. 1907704086507E- 



-15/ 



AIRY43 





DATA AK3(1) / 2. 8027144734079E-01 / , 





AIRY44 





1 AK3(2) /-1.7812704284438E-03/, AK3(3) / 4. 0342257962900E- 



-05/ , 



AIRY45 





2 AK3(4) /-1.6324996526900E-06/, AK3<5> / 9. 21 1 8 1 43247677E- 



-08/, 



AIRY46 





3 AK3(6) /-6.5229433022916E-09/, AK3(7) / 5. 47 1 38404 57655E- 



- 1 / , 



AIRY47 





4 AK3(B) /-5.2440825180026E-11/, AK3(9) / 5. 604779041 1721E- 



-12/, 



AIRY48 





5 AK3(10)/-6.5637524463931E-13/, A K 3 ( 1 1 ) / 8. 3128576196625E- 



-14/, 



AIRY49 





6 AK3(12)/-1.1270513469106E-14/, AK3(13)/ 1 . 6226797659813E- 



-15/, 



AIRY50 





7 AK3(14)/-2.4648032431243E-16/ 





AIRY51 





DATA AJP(l) / 7.7895296643758E-02/, 





AIRY52 





1 AJP(2) /-1.8435636345680E-01/, AJP(3) / 3. 014 1260521617E- 



- 2 / , 



AIRY53 





Figure A3. (Sheet 17 of 25) 







A21 



