]>
Commit | Line | Data |
---|---|---|
fe4da5cc | 1 | * |
2 | * $Id$ | |
3 | * | |
4 | * $Log$ | |
5 | * Revision 1.1.1.1 1996/04/01 15:02:14 mclareni | |
6 | * Mathlib gen | |
7 | * | |
8 | * | |
9 | * | |
10 | * d107rd.inc | |
11 | * | |
12 | DIMENSION X(*),W(*),KTBA(97),U(273),V(273) | |
13 | PARAMETER (Z1 = 1, HF = Z1/2) | |
14 | ||
15 | CHARACTER*80 ERRTXT | |
16 | ||
17 | DATA KTBA | |
18 | 1/0,1,2,4,6,9,12,16,20,25,30,36,42,49,56,64,3*0,72,3*0,82,7*0,94, | |
19 | 2 7*0,110,7*0,130,15*0,154,15*0,186,15*0,226,0/ | |
20 | ||
21 | C N=2. | |
22 | DATA U(1) /5.7735026918962576D-1/, V(1) /1/ | |
23 | C N=3. | |
24 | DATA U(2) /7.7459666924148338D-1/, V(2) /5.5555555555555556D-1/ | |
25 | DATA U(3) /0/ , V(3) /8.8888888888888889D-1/ | |
26 | C N=4. | |
27 | DATA U(4) /8.6113631159405258D-1/, V(4) /3.4785484513745386D-1/ | |
28 | DATA U(5) /3.3998104358485626D-1/, V(5) /6.5214515486254614D-1/ | |
29 | C N=5. | |
30 | DATA U(6) /9.0617984593866399D-1/, V(6) /2.3692688505618909D-1/ | |
31 | DATA U(7) /5.3846931010568309D-1/, V(7) /4.7862867049936647D-1/ | |
32 | DATA U(8) /0/, V(8) /5.6888888888888889D-1/ | |
33 | C N=6. | |
34 | DATA U(9) /9.3246951420315203D-1/, V(9) /1.7132449237917035D-1/ | |
35 | DATA U(10) /6.6120938646626451D-1/, V(10) /3.6076157304813861D-1/ | |
36 | DATA U(11) /2.3861918608319691D-1/, V(11) /4.6791393457269105D-1/ | |
37 | C N=7. | |
38 | DATA U(12) /9.4910791234275852D-1/, V(12) /1.2948496616886969D-1/ | |
39 | DATA U(13) /7.4153118559939444D-1/, V(13) /2.7970539148927667D-1/ | |
40 | DATA U(14) /4.0584515137739717D-1/, V(14) /3.8183005050511894D-1/ | |
41 | DATA U(15) /0/ , V(15) /4.1795918367346939D-1/ | |
42 | C N=8. | |
43 | DATA U(16) /9.6028985649753623D-1/, V(16) /1.0122853629037626D-1/ | |
44 | DATA U(17) /7.9666647741362674D-1/, V(17) /2.2238103445337447D-1/ | |
45 | DATA U(18) /5.2553240991632899D-1/, V(18) /3.1370664587788729D-1/ | |
46 | DATA U(19) /1.8343464249564980D-1/, V(19) /3.6268378337836198D-1/ | |
47 | C N=9. | |
48 | DATA U(20) /9.6816023950762609D-1/, V(20) /8.1274388361574412D-2/ | |
49 | DATA U(21) /8.3603110732663579D-1/, V(21) /1.8064816069485740D-1/ | |
50 | DATA U(22) /6.1337143270059040D-1/, V(22) /2.6061069640293546D-1/ | |
51 | DATA U(23) /3.2425342340380893D-1/, V(23) /3.1234707704000284D-1/ | |
52 | DATA U(24) /0/ , V(24) /3.3023935500125976D-1/ | |
53 | C N=10. | |
54 | DATA U(25) /9.7390652851717172D-1/, V(25) /6.6671344308688138D-2/ | |
55 | DATA U(26) /8.6506336668898451D-1/, V(26) /1.4945134915058059D-1/ | |
56 | DATA U(27) /6.7940956829902441D-1/, V(27) /2.1908636251598204D-1/ | |
57 | DATA U(28) /4.3339539412924719D-1/, V(28) /2.6926671930999636D-1/ | |
58 | DATA U(29) /1.4887433898163121D-1/, V(29) /2.9552422471475287D-1/ | |
59 | C N=11. | |
60 | DATA U(30) /9.7822865814605699D-1/, V(30) /5.5668567116173666D-2/ | |
61 | DATA U(31) /8.8706259976809530D-1/, V(31) /1.2558036946490462D-1/ | |
62 | DATA U(32) /7.3015200557404932D-1/, V(32) /1.8629021092773425D-1/ | |
63 | DATA U(33) /5.1909612920681182D-1/, V(33) /2.3319376459199048D-1/ | |
64 | DATA U(34) /2.6954315595234497D-1/, V(34) /2.6280454451024666D-1/ | |
65 | DATA U(35) /0/ , V(35) /2.7292508677790063D-1/ | |
66 | C N=12. | |
67 | DATA U(36) /9.8156063424671925D-1/, V(36) /4.7175336386511827D-2/ | |
68 | DATA U(37) /9.0411725637047486D-1/, V(37) /1.0693932599531843D-1/ | |
69 | DATA U(38) /7.6990267419430469D-1/, V(38) /1.6007832854334623D-1/ | |
70 | DATA U(39) /5.8731795428661745D-1/, V(39) /2.0316742672306592D-1/ | |
71 | DATA U(40) /3.6783149899818019D-1/, V(40) /2.3349253653835481D-1/ | |
72 | DATA U(41) /1.2523340851146892D-1/, V(41) /2.4914704581340279D-1/ | |
73 | C N=13. | |
74 | DATA U(42) /9.8418305471858815D-1/, V(42) /4.0484004765315880D-2/ | |
75 | DATA U(43) /9.1759839922297797D-1/, V(43) /9.2121499837728448D-2/ | |
76 | DATA U(44) /8.0157809073330991D-1/, V(44) /1.3887351021978724D-1/ | |
77 | DATA U(45) /6.4234933944034022D-1/, V(45) /1.7814598076194574D-1/ | |
78 | DATA U(46) /4.4849275103644685D-1/, V(46) /2.0781604753688850D-1/ | |
79 | DATA U(47) /2.3045831595513479D-1/, V(47) /2.2628318026289724D-1/ | |
80 | DATA U(48) /0/ , V(48) /2.3255155323087391D-1/ | |
81 | C N=14. | |
82 | DATA U(49) /9.8628380869681234D-1/, V(49) /3.5119460331751863D-2/ | |
83 | DATA U(50) /9.2843488366357352D-1/, V(50) /8.0158087159760210D-2/ | |
84 | DATA U(51) /8.2720131506976499D-1/, V(51) /1.2151857068790318D-1/ | |
85 | DATA U(52) /6.8729290481168547D-1/, V(52) /1.5720316715819353D-1/ | |
86 | DATA U(53) /5.1524863635815409D-1/, V(53) /1.8553839747793781D-1/ | |
87 | DATA U(54) /3.1911236892788976D-1/, V(54) /2.0519846372129560D-1/ | |
88 | DATA U(55) /1.0805494870734366D-1/, V(55) /2.1526385346315779D-1/ | |
89 | C N=15. | |
90 | DATA U(56) /9.8799251802048543D-1/, V(56) /3.0753241996117268D-2/ | |
91 | DATA U(57) /9.3727339240070590D-1/, V(57) /7.0366047488108125D-2/ | |
92 | DATA U(58) /8.4820658341042722D-1/, V(58) /1.0715922046717194D-1/ | |
93 | DATA U(59) /7.2441773136017005D-1/, V(59) /1.3957067792615431D-1/ | |
94 | DATA U(60) /5.7097217260853885D-1/, V(60) /1.6626920581699393D-1/ | |
95 | DATA U(61) /3.9415134707756337D-1/, V(61) /1.8616100001556221D-1/ | |
96 | DATA U(62) /2.0119409399743452D-1/, V(62) /1.9843148532711158D-1/ | |
97 | DATA U(63) /0/ , V(63) /2.0257824192556127D-1/ | |
98 | C N=16. | |
99 | DATA U(64) /9.8940093499164993D-1/, V(64) /2.7152459411754095D-2/ | |
100 | DATA U(65) /9.4457502307323258D-1/, V(65) /6.2253523938647893D-2/ | |
101 | DATA U(66) /8.6563120238783174D-1/, V(66) /9.5158511682492785D-2/ | |
102 | DATA U(67) /7.5540440835500303D-1/, V(67) /1.2462897125553387D-1/ | |
103 | DATA U(68) /6.1787624440264375D-1/, V(68) /1.4959598881657673D-1/ | |
104 | DATA U(69) /4.5801677765722739D-1/, V(69) /1.6915651939500254D-1/ | |
105 | DATA U(70) /2.8160355077925891D-1/, V(70) /1.8260341504492359D-1/ | |
106 | DATA U(71) /9.5012509837637440D-2/, V(71) /1.8945061045506850D-1/ | |
107 | C N=20. | |
108 | DATA U(72) /9.9312859918509492D-1/, V(72) /1.7614007139152118D-2/ | |
109 | DATA U(73) /9.6397192727791379D-1/, V(73) /4.0601429800386941D-2/ | |
110 | DATA U(74) /9.1223442825132591D-1/, V(74) /6.2672048334109064D-2/ | |
111 | DATA U(75) /8.3911697182221882D-1/, V(75) /8.3276741576704749D-2/ | |
112 | DATA U(76) /7.4633190646015079D-1/, V(76) /1.0193011981724044D-1/ | |
113 | DATA U(77) /6.3605368072651503D-1/, V(77) /1.1819453196151842D-1/ | |
114 | DATA U(78) /5.1086700195082710D-1/, V(78) /1.3168863844917663D-1/ | |
115 | DATA U(79) /3.7370608871541956D-1/, V(79) /1.4209610931838205D-1/ | |
116 | DATA U(80) /2.2778585114164508D-1/, V(80) /1.4917298647260374D-1/ | |
117 | DATA U(81) /7.6526521133497334D-2/, V(81) /1.5275338713072585D-1/ | |
118 | C N=24. | |
119 | DATA U(82) /9.9518721999702136D-1/, V(82) /1.2341229799987200D-2/ | |
120 | DATA U(83) /9.7472855597130950D-1/, V(83) /2.8531388628933663D-2/ | |
121 | DATA U(84) /9.3827455200273276D-1/, V(84) /4.4277438817419806D-2/ | |
122 | DATA U(85) /8.8641552700440103D-1/, V(85) /5.9298584915436781D-2/ | |
123 | DATA U(86) /8.2000198597390292D-1/, V(86) /7.3346481411080306D-2/ | |
124 | DATA U(87) /7.4012419157855436D-1/, V(87) /8.6190161531953276D-2/ | |
125 | DATA U(88) /6.4809365193697557D-1/, V(88) /9.7618652104113888D-2/ | |
126 | DATA U(89) /5.4542147138883954D-1/, V(89) /1.0744427011596563D-1/ | |
127 | DATA U(90) /4.3379350762604514D-1/, V(90) /1.1550566805372560D-1/ | |
128 | DATA U(91) /3.1504267969616337D-1/, V(91) /1.2167047292780339D-1/ | |
129 | DATA U(92) /1.9111886747361631D-1/, V(92) /1.2583745634682830D-1/ | |
130 | DATA U(93) /6.4056892862605626D-2/, V(93) /1.2793819534675216D-1/ | |
131 | C N=32. | |
132 | DATA U(94) /9.9726386184948156D-1/, V(94) /7.0186100094700966D-3/ | |
133 | DATA U(95) /9.8561151154526834D-1/, V(95) /1.6274394730905671D-2/ | |
134 | DATA U(96) /9.6476225558750643D-1/, V(96) /2.5392065309262059D-2/ | |
135 | DATA U(97) /9.3490607593773969D-1/, V(97) /3.4273862913021433D-2/ | |
136 | DATA U(98) /8.9632115576605212D-1/, V(98) /4.2835898022226681D-2/ | |
137 | DATA U(99) /8.4936761373256997D-1/, V(99) /5.0998059262376176D-2/ | |
138 | DATA U(100)/7.9448379596794241D-1/, V(100)/5.8684093478535547D-2/ | |
139 | DATA U(101)/7.3218211874028968D-1/, V(101)/6.5822222776361847D-2/ | |
140 | DATA U(102)/6.6304426693021520D-1/, V(102)/7.2345794108848506D-2/ | |
141 | DATA U(103)/5.8771575724076233D-1/, V(103)/7.8193895787070306D-2/ | |
142 | DATA U(104)/5.0689990893222939D-1/, V(104)/8.3311924226946755D-2/ | |
143 | DATA U(105)/4.2135127613063535D-1/, V(105)/8.7652093004403811D-2/ | |
144 | DATA U(106)/3.3186860228212765D-1/, V(106)/9.1173878695763885D-2/ | |
145 | DATA U(107)/2.3928736225213707D-1/, V(107)/9.3844399080804566D-2/ | |
146 | DATA U(108)/1.4447196158279649D-1/, V(108)/9.5638720079274859D-2/ | |
147 | DATA U(109)/4.8307665687738316D-2/, V(109)/9.6540088514727801D-2/ | |
148 | C N=40. | |
149 | DATA U(110)/9.9823770971055920D-1/, V(110)/4.5212770985331913D-3/ | |
150 | DATA U(111)/9.9072623869945701D-1/, V(111)/1.0498284531152814D-2/ | |
151 | DATA U(112)/9.7725994998377426D-1/, V(112)/1.6421058381907889D-2/ | |
152 | DATA U(113)/9.5791681921379166D-1/, V(113)/2.2245849194166957D-2/ | |
153 | DATA U(114)/9.3281280827867653D-1/, V(114)/2.7937006980023401D-2/ | |
154 | DATA U(115)/9.0209880696887430D-1/, V(115)/3.3460195282547847D-2/ | |
155 | DATA U(116)/8.6595950321225950D-1/, V(116)/3.8782167974472018D-2/ | |
156 | DATA U(117)/8.2461223083331166D-1/, V(117)/4.3870908185673272D-2/ | |
157 | DATA U(118)/7.7830565142651939D-1/, V(118)/4.8695807635072232D-2/ | |
158 | DATA U(119)/7.2731825518992710D-1/, V(119)/5.3227846983936824D-2/ | |
159 | DATA U(120)/6.7195668461417955D-1/, V(120)/5.7439769099391551D-2/ | |
160 | DATA U(121)/6.1255388966798024D-1/, V(121)/6.1306242492928939D-2/ | |
161 | DATA U(122)/5.4946712509512820D-1/, V(122)/6.4804013456601038D-2/ | |
162 | DATA U(123)/4.8307580168617871D-1/, V(123)/6.7912045815233904D-2/ | |
163 | DATA U(124)/4.1377920437160500D-1/, V(124)/7.0611647391286780D-2/ | |
164 | DATA U(125)/3.4199409082575847D-1/, V(125)/7.2886582395804059D-2/ | |
165 | DATA U(126)/2.6815218500725368D-1/, V(126)/7.4723169057968264D-2/ | |
166 | DATA U(127)/1.9269758070137110D-1/, V(127)/7.6110361900626242D-2/ | |
167 | DATA U(128)/1.1608407067525521D-1/, V(128)/7.7039818164247966D-2/ | |
168 | DATA U(129)/3.8772417506050822D-2/, V(129)/7.7505947978424811D-2/ | |
169 | C N=48. | |
170 | DATA U(130)/9.9877100725242612D-1/, V(130)/3.1533460523058386D-3/ | |
171 | DATA U(131)/9.9353017226635076D-1/, V(131)/7.3275539012762621D-3/ | |
172 | DATA U(132)/9.8412458372282686D-1/, V(132)/1.1477234579234539D-2/ | |
173 | DATA U(133)/9.7059159254624725D-1/, V(133)/1.5579315722943849D-2/ | |
174 | DATA U(134)/9.5298770316043086D-1/, V(134)/1.9616160457355528D-2/ | |
175 | DATA U(135)/9.3138669070655433D-1/, V(135)/2.3570760839324379D-2/ | |
176 | DATA U(136)/9.0587913671556967D-1/, V(136)/2.7426509708356948D-2/ | |
177 | DATA U(137)/8.7657202027424789D-1/, V(137)/3.1167227832798089D-2/ | |
178 | DATA U(138)/8.4358826162439353D-1/, V(138)/3.4777222564770439D-2/ | |
179 | DATA U(139)/8.0706620402944263D-1/, V(139)/3.8241351065830706D-2/ | |
180 | DATA U(140)/7.6715903251574034D-1/, V(140)/4.1545082943464749D-2/ | |
181 | DATA U(141)/7.2403413092381465D-1/, V(141)/4.4674560856694280D-2/ | |
182 | DATA U(142)/6.7787237963266391D-1/, V(142)/4.7616658492490475D-2/ | |
183 | DATA U(143)/6.2886739677651362D-1/, V(143)/5.0359035553854475D-2/ | |
184 | DATA U(144)/5.7722472608397270D-1/, V(144)/5.2890189485193667D-2/ | |
185 | DATA U(145)/5.2316097472223303D-1/, V(145)/5.5199503699984163D-2/ | |
186 | DATA U(146)/4.6690290475095840D-1/, V(146)/5.7277292100403216D-2/ | |
187 | DATA U(147)/4.0868648199071673D-1/, V(147)/5.9114839698395636D-2/ | |
188 | DATA U(148)/3.4875588629216074D-1/, V(148)/6.0704439165893880D-2/ | |
189 | DATA U(149)/2.8736248735545558D-1/, V(149)/6.2039423159892664D-2/ | |
190 | DATA U(150)/2.2476379039468906D-1/, V(150)/6.3114192286254026D-2/ | |
191 | DATA U(151)/1.6122235606889172D-1/, V(151)/6.3924238584648187D-2/ | |
192 | DATA U(152)/9.7004699209462699D-2/, V(152)/6.4466164435950082D-2/ | |
193 | DATA U(153)/3.2380170962869362D-2/, V(153)/6.4737696812683923D-2/ | |
194 | C N=64. | |
195 | DATA U(154)/9.9930504173577214D-1/, V(154)/1.7832807216964329D-3/ | |
196 | DATA U(155)/9.9634011677195528D-1/, V(155)/4.1470332605624676D-3/ | |
197 | DATA U(156)/9.9101337147674432D-1/, V(156)/6.5044579689783629D-3/ | |
198 | DATA U(157)/9.8333625388462596D-1/, V(157)/8.8467598263639477D-3/ | |
199 | DATA U(158)/9.7332682778991096D-1/, V(158)/1.1168139460131129D-2/ | |
200 | DATA U(159)/9.6100879965205372D-1/, V(159)/1.3463047896718643D-2/ | |
201 | DATA U(160)/9.4641137485840282D-1/, V(160)/1.5726030476024719D-2/ | |
202 | DATA U(161)/9.2956917213193958D-1/, V(161)/1.7951715775697343D-2/ | |
203 | DATA U(162)/9.1052213707850281D-1/, V(162)/2.0134823153530209D-2/ | |
204 | DATA U(163)/8.8931544599511412D-1/, V(163)/2.2270173808383254D-2/ | |
205 | DATA U(164)/8.6599939815409282D-1/, V(164)/2.4352702568710873D-2/ | |
206 | DATA U(165)/8.4062929625258036D-1/, V(165)/2.6377469715054659D-2/ | |
207 | DATA U(166)/8.1326531512279756D-1/, V(166)/2.8339672614259483D-2/ | |
208 | DATA U(167)/7.8397235894334141D-1/, V(167)/3.0234657072402479D-2/ | |
209 | DATA U(168)/7.5281990726053190D-1/, V(168)/3.2057928354851554D-2/ | |
210 | DATA U(169)/7.1988185017161083D-1/, V(169)/3.3805161837141609D-2/ | |
211 | DATA U(170)/6.8523631305423324D-1/, V(170)/3.5472213256882384D-2/ | |
212 | DATA U(171)/6.4896547125465734D-1/, V(171)/3.7055128540240046D-2/ | |
213 | DATA U(172)/6.1115535517239325D-1/, V(172)/3.8550153178615629D-2/ | |
214 | DATA U(173)/5.7189564620263403D-1/, V(173)/3.9953741132720341D-2/ | |
215 | DATA U(174)/5.3127946401989455D-1/, V(174)/4.1262563242623529D-2/ | |
216 | DATA U(175)/4.8940314570705296D-1/, V(175)/4.2473515123653589D-2/ | |
217 | DATA U(176)/4.4636601725346409D-1/, V(176)/4.3583724529323453D-2/ | |
218 | DATA U(177)/4.0227015796399160D-1/, V(177)/4.4590558163756563D-2/ | |
219 | DATA U(178)/3.5722015833766812D-1/, V(178)/4.5491627927418144D-2/ | |
220 | DATA U(179)/3.1132287199021096D-1/, V(179)/4.6284796581314417D-2/ | |
221 | DATA U(180)/2.6468716220876742D-1/, V(180)/4.6968182816210017D-2/ | |
222 | DATA U(181)/2.1742364374000708D-1/, V(181)/4.7540165714830309D-2/ | |
223 | DATA U(182)/1.6964442042399282D-1/, V(182)/4.7999388596458308D-2/ | |
224 | DATA U(183)/1.2146281929612055D-1/, V(183)/4.8344762234802957D-2/ | |
225 | DATA U(184)/7.2993121787799039D-2/, V(184)/4.8575467441503427D-2/ | |
226 | DATA U(185)/2.4350292663424433D-2/, V(185)/4.8690957009139720D-2/ | |
227 | C N=80. | |
228 | DATA U(186)/9.9955382265163063D-1/, V(186)/1.1449500031869415D-3/ | |
229 | DATA U(187)/9.9764986439823769D-1/, V(187)/2.6635335895126817D-3/ | |
230 | DATA U(188)/9.9422754096568828D-1/, V(188)/4.1803131246948952D-3/ | |
231 | DATA U(189)/9.8929130249975553D-1/, V(189)/5.6909224514031986D-3/ | |
232 | DATA U(190)/9.8284857273862907D-1/, V(190)/7.1929047681173128D-3/ | |
233 | DATA U(191)/9.7490914058572779D-1/, V(191)/8.6839452692608584D-3/ | |
234 | DATA U(192)/9.6548508904379925D-1/, V(192)/1.0161766041103065D-2/ | |
235 | DATA U(193)/9.5459076634363491D-1/, V(193)/1.1624114120797827D-2/ | |
236 | DATA U(194)/9.4224276130987267D-1/, V(194)/1.3068761592401339D-2/ | |
237 | DATA U(195)/9.2845987717244580D-1/, V(195)/1.4493508040509076D-2/ | |
238 | DATA U(196)/9.1326310257175765D-1/, V(196)/1.5896183583725688D-2/ | |
239 | DATA U(197)/8.9667557943877068D-1/, V(197)/1.7274652056269306D-2/ | |
240 | DATA U(198)/8.7872256767821383D-1/, V(198)/1.8626814208299031D-2/ | |
241 | DATA U(199)/8.5943140666311110D-1/, V(199)/1.9950610878141999D-2/ | |
242 | DATA U(200)/8.3883147358025528D-1/, V(200)/2.1244026115782006D-2/ | |
243 | DATA U(201)/8.1695413868146347D-1/, V(201)/2.2505090246332462D-2/ | |
244 | DATA U(202)/7.9383271750460545D-1/, V(202)/2.3731882865930101D-2/ | |
245 | DATA U(203)/7.6950242013504137D-1/, V(203)/2.4922535764115491D-2/ | |
246 | DATA U(204)/7.4400029758359727D-1/, V(204)/2.6075235767565118D-2/ | |
247 | DATA U(205)/7.1736518536209988D-1/, V(205)/2.7188227500486381D-2/ | |
248 | DATA U(206)/6.8963764434202760D-1/, V(206)/2.8259816057276862D-2/ | |
249 | DATA U(207)/6.6085989898611980D-1/, V(207)/2.9288369583267848D-2/ | |
250 | DATA U(208)/6.3107577304687197D-1/, V(208)/3.0272321759557981D-2/ | |
251 | DATA U(209)/6.0033062282975174D-1/, V(209)/3.1210174188114702D-2/ | |
252 | DATA U(210)/5.6867126812270978D-1/, V(210)/3.2100498673487773D-2/ | |
253 | DATA U(211)/5.3614592089713193D-1/, V(211)/3.2941939397645401D-2/ | |
254 | DATA U(212)/5.0280411188878499D-1/, V(212)/3.3733214984611523D-2/ | |
255 | DATA U(213)/4.6869661517054448D-1/, V(213)/3.4473120451753929D-2/ | |
256 | DATA U(214)/4.3387537083175609D-1/, V(214)/3.5160529044747593D-2/ | |
257 | DATA U(215)/3.9839340588196923D-1/, V(215)/3.5794393953416055D-2/ | |
258 | DATA U(216)/3.6230475349948732D-1/, V(216)/3.6373749905835978D-2/ | |
259 | DATA U(217)/3.2566437074770191D-1/, V(217)/3.6897714638276009D-2/ | |
260 | DATA U(218)/2.8852805488451185D-1/, V(218)/3.7365490238730490D-2/ | |
261 | DATA U(219)/2.5095235839227212D-1/, V(219)/3.7776364362001397D-2/ | |
262 | DATA U(220)/2.1299450285766613D-1/, V(220)/3.8129711314477638D-2/ | |
263 | DATA U(221)/1.7471229183264681D-1/, V(221)/3.8424993006959423D-2/ | |
264 | DATA U(222)/1.3616402280914389D-1/, V(222)/3.8661759774076463D-2/ | |
265 | DATA U(223)/9.7408398441584599D-2/, V(223)/3.8839651059051969D-2/ | |
266 | DATA U(224)/5.8504437152420669D-2/, V(224)/3.8958395962769531D-2/ | |
267 | DATA U(225)/1.9511383256793998D-2/, V(225)/3.9017813656306655D-2/ | |
268 | C N=96. | |
269 | DATA U(226)/9.9968950388323077D-1/, V(226)/7.9679206555201243D-4/ | |
270 | DATA U(227)/9.9836437586318168D-1/, V(227)/1.8539607889469217D-3/ | |
271 | DATA U(228)/9.9598184298720929D-1/, V(228)/2.9107318179349464D-3/ | |
272 | DATA U(229)/9.9254390032376262D-1/, V(229)/3.9645543384446867D-3/ | |
273 | DATA U(230)/9.8805412632962380D-1/, V(230)/5.0142027429275177D-3/ | |
274 | DATA U(231)/9.8251726356301468D-1/, V(231)/6.0585455042359617D-3/ | |
275 | DATA U(232)/9.7593917458513647D-1/, V(232)/7.0964707911538653D-3/ | |
276 | DATA U(233)/9.6832682846326421D-1/, V(233)/8.1268769256987592D-3/ | |
277 | DATA U(234)/9.5968829144874254D-1/, V(234)/9.1486712307833866D-3/ | |
278 | DATA U(235)/9.5003271778443764D-1/, V(235)/1.0160770535008416D-2/ | |
279 | DATA U(236)/9.3937033975275522D-1/, V(236)/1.1162102099838499D-2/ | |
280 | DATA U(237)/9.2771245672230869D-1/, V(237)/1.2151604671088320D-2/ | |
281 | DATA U(238)/9.1507142312089807D-1/, V(238)/1.3128229566961573D-2/ | |
282 | DATA U(239)/9.0146063531585234D-1/, V(239)/1.4090941772314861D-2/ | |
283 | DATA U(240)/8.8689451740242042D-1/, V(240)/1.5038721026994938D-2/ | |
284 | DATA U(241)/8.7138850590929650D-1/, V(241)/1.5970562902562291D-2/ | |
285 | DATA U(242)/8.5495903343460146D-1/, V(242)/1.6885479864245172D-2/ | |
286 | DATA U(243)/8.3762351122818712D-1/, V(243)/1.7782502316045261D-2/ | |
287 | DATA U(244)/8.1940031073793168D-1/, V(244)/1.8660679627411467D-2/ | |
288 | DATA U(245)/8.0030874413914082D-1/, V(245)/1.9519081140145022D-2/ | |
289 | DATA U(246)/7.8036904386743322D-1/, V(246)/2.0356797154333325D-2/ | |
290 | DATA U(247)/7.5960234117664750D-1/, V(247)/2.1172939892191299D-2/ | |
291 | DATA U(248)/7.3803064374440013D-1/, V(248)/2.1966644438744349D-2/ | |
292 | DATA U(249)/7.1567681234896763D-1/, V(249)/2.2737069658329374D-2/ | |
293 | DATA U(250)/6.9256453664217156D-1/, V(250)/2.3483399085926220D-2/ | |
294 | DATA U(251)/6.6871831004391615D-1/, V(251)/2.4204841792364691D-2/ | |
295 | DATA U(252)/6.4416340378496712D-1/, V(252)/2.4900633222483610D-2/ | |
296 | DATA U(253)/6.1892584012546857D-1/, V(253)/2.5570036005349361D-2/ | |
297 | DATA U(254)/5.9303236477757208D-1/, V(254)/2.6212340735672414D-2/ | |
298 | DATA U(255)/5.6651041856139717D-1/, V(255)/2.6826866725591762D-2/ | |
299 | DATA U(256)/5.3938810832435744D-1/, V(256)/2.7412962726029243D-2/ | |
300 | DATA U(257)/5.1169417715466767D-1/, V(257)/2.7970007616848334D-2/ | |
301 | DATA U(258)/4.8345797392059636D-1/, V(258)/2.8497411065085386D-2/ | |
302 | DATA U(259)/4.5470942216774301D-1/, V(259)/2.8994614150555237D-2/ | |
303 | DATA U(260)/4.2547898840730055D-1/, V(260)/2.9461089958167906D-2/ | |
304 | DATA U(261)/3.9579764982890860D-1/, V(261)/2.9896344136328386D-2/ | |
305 | DATA U(262)/3.6569686147231364D-1/, V(262)/3.0299915420827594D-2/ | |
306 | DATA U(263)/3.3520852289262542D-1/, V(263)/3.0671376123669149D-2/ | |
307 | DATA U(264)/3.0436494435449635D-1/, V(264)/3.1010332586313837D-2/ | |
308 | DATA U(265)/2.7319881259104914D-1/, V(265)/3.1316425596861356D-2/ | |
309 | DATA U(266)/2.4174315616384001D-1/, V(266)/3.1589330770727167D-2/ | |
310 | DATA U(267)/2.1003131046056720D-1/, V(267)/3.1828758894411006D-2/ | |
311 | DATA U(268)/1.7809688236761860D-1/, V(268)/3.2034456231992663D-2/ | |
312 | DATA U(269)/1.4597371465489694D-1/, V(269)/3.2206204794030251D-2/ | |
313 | DATA U(270)/1.1369585011066592D-1/, V(270)/3.2343822568575928D-2/ | |
314 | DATA U(271)/8.1297495464425559D-2/, V(271)/3.2447163714064269D-2/ | |
315 | DATA U(272)/4.8812985136049731D-2/, V(272)/3.2516118713868836D-2/ | |
316 | DATA U(273)/1.6276744849602970D-2/, V(273)/3.2550614492363166D-2/ | |
317 | ||
318 | IF(KTBA(MIN(MAX(1,N),97)) .EQ. 0) THEN | |
319 | X(1)=0 | |
320 | WRITE(ERRTXT,101) N | |
321 | CALL MTLPRT(NAME(MODE),'D107.1',ERRTXT) | |
322 | RETURN | |
323 | ENDIF | |
324 | ALFA=HF*(B+A) | |
325 | BETA=HF*(B-A) | |
326 | IF(MODE .EQ. 1) THEN | |
327 | SUM=0 | |
328 | J1=MOD(N,2) | |
329 | J2=KTBA(N)+(N-1)/2 | |
330 | DO 1 J = KTBA(N),J2-J1 | |
331 | DELTA=BETA*U(J) | |
332 | SUM=SUM+V(J)*(F(ALFA+DELTA)+F(ALFA-DELTA)) | |
333 | 1 CONTINUE | |
334 | IF(J1 .EQ. 1) SUM=SUM+V(J2)*F(ALFA) | |
335 | X(1)=BETA*SUM | |
336 | ELSE | |
337 | J1=KTBA(N)-1 | |
338 | J2=N+1 | |
339 | DO 2 J=1,J2/2 | |
340 | WTEMP=BETA*V(J1+J) | |
341 | DELTA=BETA*U(J1+J) | |
342 | X(J)=ALFA-DELTA | |
343 | W(J)=WTEMP | |
344 | X(J2-J)=ALFA+DELTA | |
345 | W(J2-J)=WTEMP | |
346 | 2 CONTINUE | |
347 | ENDIF | |
348 | RETURN | |
349 | 101 FORMAT('N = ',I5,' IS NON-PERMISSIBLE') | |
350 | END | |
351 |