B2(45)/ 4.5853948516536E-05/, 82(46) 

 B2(47)/ 3.5048173003133E-05/, B2(48) 



B2(49)/ 2.6495611995052E-05/ 

 B 2 ( 5 1 ) / 1.9789305666402E-05/ 



DATA B3 



i B3 



B3 



B3 



B3 



(1) 



(3) 



(5) 



(7) 



(9) 



(11) 



(13) 



(15) 



(17) 



(19) 



(21) 



(23) 



(25) 



/ 6 

 / 3 

 1-2 



/-3 



1-2 



/-l 

 /-9 



/-5 



; _t 

 / 1 

 / 1 



364658 

 226148 

 847376 

 976036 

 533824 

 043211 

 276542 

 550589 

 629261 

 220700 

 064897 

 136986 

 564777 



1057258E- 

 6257314E- 

 7287937E- 

 4659456E- 

 7091604E- 

 2478904E- 

 14122S2E- 

 1859909E- 

 4771764E- 

 2889563E- 

 6 1 3 5 5 5 E - 

 8667510E- 

 8542887E- 



04/ 

 04/ 

 06/ 

 04/ 

 04/ 

 04/ 

 04/ 

 04/ 

 05/ 

 05/ 

 05/ 

 06/ 

 05/ 



B2(50) 

 B2(52) 



B3(2) 



B3(4) 



B3(6) 



B3(8) 



B3(10) 



B3(12) 



B3(14) 



B3(16) 



B3(18) 



B3(20) 



B3(22) 



B3(24) 



B3(26 



/ 4.0144551389149E-05/ 



/ 3.0515799503435E-05/ 



/ 2.2936363369100E-05/ 



/ 1.7009198463641E-05/ 



/ a 

 / 2 

 /-l 

 /-3 

 /-3 

 1-2 

 /-l 

 l-\ 

 1-1 

 /-3 

 /-8 

 / 9 



(26)/ 



727908 

 859981 

 879060 

 459961 

 357156 

 667227 

 899226 

 237782 

 251783 

 503477 

 701060 

 164264 

 082236 



0514619E- 

 5419430E- 

 0363697E- 

 2683267E- 

 3577505E- 

 2304761E- 

 1185456E- 

 4076187E- 

 2771442E- 

 5051190E- 

 9684977E- 

 7412278E- 

 2948247E- 



04/ 



04/, 



04/ 



04/, 



04/ 



04/ , 



04/ 



04/ , 



05/ 



05/, 



06/ 



06/ , 



05/ 



DATA GAMA(l) 

 SAMA(2) /2 

 \ SAMA(4) /l 

 i GAMA(6) /6 

 \ GAMA(8) /5 

 i GAMA(10)/3, 

 i GAMA(12)/3 

 ' GAMA ( 14) /2 

 I GAMA(16>/2 

 ' GAMA (18) /2 

 GAMA(20)/1 

 ! GAMA(22)/1. 

 ! GAHA(24)/1 

 I GAMA(26)/1, 



/6. 

 519 

 107 

 971 

 046 

 937 

 218 

 715 

 345 

 062 

 838 

 656 

 507 

 381 



299605 

 842099 

 130624 

 613169 

 988735 

 206615 

 188575 

 816771 

 707553 

 108282 

 106338 

 858377 

 295014 

 848057 



2494744E- 

 7898E-01/ 

 1616E-01/ 

 5868E-02/ 

 3631E-02/ 

 4351E-02/ 

 0210E-02/ 

 1293E-02/ 

 0608E-02/ 

 3565E-02/ 

 0068E-02/ 

 8661E-02/ 

 9410E-02/ 

 3534E-02/ 



01/, 

 GAMA 

 GAMA 

 GAMA 

 GAMA 

 GAMA 

 GAMA 

 GAMA 

 GAMA 

 GAMA 

 GAMA 

 GAMA 

 GAMA 



(3) 



(5) 



(7) 



(9) 



(11) 



(13) 



(15) 



(17) 



(19) 



(21) 



(23) 



(25) 



790 



309 

 08 5 

 600 

 283 

 646 

 768 

 508 

 388 

 293 

 865 

 193 



300415 

 395527 

 671893 

 580689 

 195924 

 240791 

 272973 

 390134 

 240897 

 213231 

 285987 

 250839 



66E-01/, 

 40E-02/, 

 71E-02/, 

 16E-02/, 

 46E-02/, 

 16E-02/, 

 86E-02/, 

 91E-02/, 

 88E-02/, 

 96E-02/, 

 92E-02/, 

 96E-02/, 



TEST INPUT ARGUMENTS 



NZ=0 

 KT=1 



IF(N-l) 92,108,109 



108 KT=2 



109 NN=N 



IF ( X ) 93,110,120 



110 IF(ALPHA) 91,114,116 

 114 Y(l)=l. 



IF(N.EQ.l) RETURN 

 11 = 2 



GO TO 118 

 116 11=1 



118 DO 119 1 = 11 ,N 



119 Y(I>=0. 

 RETURN 



120 CONTINUE 

 IF(ALPHA.LT.O. ) GO TO 91 



BESJ213D 



BESJ213E 



BESJ213F 



BESJ213G 



BESJ214 



BESJ215A 



BESJ215B 



BESJ215C 



BESJ215D 



BESJ215E 



BESJ215F 



BESJ215G 



BESJ215H 



BESJ215I 



BESJ215J 



BESJ215K 



BESJ215L 



BESJ215M 



BESJ216 



BESJ217A 



BESJ217B 



BESJ217C 



BESJ217D 



BESJ217E 



BESJ217F 



BESJ217G 



BESJ217H 



BESJ217I 



BESJ217J 



BESJ217K 



BESJ217L 



BESJ217M 



BESJ217N 



BESJ218 



BESJ219 



BESJ220 



BESJ221 



BESJ222 



BESJ223 



BESJ224 



BESJ225 



BESJ226 



BESJ227 



BESJ228 



BESJ229 



BESJ230 



BESJ231 



BESJ232 



BESJ233 



BESJ234 



BESJ235 



BESJ236 



BESJ237 



BESJ238 



BESJ239 



Figure A3. (Sheet 7 of 25) 



All 



