]>
Commit | Line | Data |
---|---|---|
fe4da5cc | 1 | * |
2 | * $Id$ | |
3 | * | |
4 | * $Log$ | |
5 | * Revision 1.1.1.1 1996/04/01 15:02:23 mclareni | |
6 | * Mathlib gen | |
7 | * | |
8 | * | |
9 | #include "gen/pilot.h" | |
10 | SUBROUTINE D701BD | |
11 | COMMON /TAB/U(126),V(127) | |
12 | DIMENSION U01(42),U43(42),U85(42) | |
13 | DIMENSION V01(42),V43(42),V85(43) | |
14 | DATA U01/ | |
15 | * .024541228522912288, .999698818696204220, .049067674327418014, | |
16 | * .998795456205172393, .073564563599667424, .997290456678690216, | |
17 | * .098017140329560602, .995184726672196886, .122410675199216198, | |
18 | * .992479534598709998, .146730474455361752, .989176509964780973, | |
19 | * .170961888760301226, .985277642388941245, .195090322016128268, | |
20 | * .980785280403230449, .219101240156869797, .975702130038528544, | |
21 | * .242980179903263890, .970031253194543993, .266712757474898386, | |
22 | * .963776065795439867, .290284677254462368, .956940335732208865, | |
23 | * .313681740398891477, .949528180593036667, .336889853392220051, | |
24 | * .941544065183020778, .359895036534988149, .932992798834738888, | |
25 | * .382683432365089772, .923879532511286756, .405241314004989871, | |
26 | * .914209755703530655, .427555093430282094, .903989293123443332, | |
27 | * .449611329654606600, .893224301195515320, .471396736825997649, | |
28 | * .881921264348355030, .492898192229784037, .870086991108711419/ | |
29 | DATA U43/ | |
30 | * .514102744193221727, .857728610000272070, .534997619887097211, | |
31 | * .844853565249707073, .555570233019602225, .831469612302545237, | |
32 | * .575808191417845301, .817584813151583697, .595699304492433343, | |
33 | * .803207531480644910, .615231590580626845, .788346427626606262, | |
34 | * .634393284163645498, .773010453362736961, .653172842953776764, | |
35 | * .757208846506484548, .671558954847018401, .740951125354959091, | |
36 | * .689540544737066925, .724247082951466921, .707106781186547524, | |
37 | * .707106781186547524, .724247082951466921, .689540544737066925, | |
38 | * .740951125354959091, .671558954847018401, .757208846506484548, | |
39 | * .653172842953776764, .773010453362736961, .634393284163645498, | |
40 | * .788346427626606262, .615231590580626845, .803207531480644910, | |
41 | * .595699304492433343, .817584813151583697, .575808191417845301, | |
42 | * .831469612302545237, .555570233019602225, .844853565249707073, | |
43 | * .534997619887097211, .857728610000272070, .514102744193221727/ | |
44 | DATA U85/ | |
45 | * .870086991108711419, .492898192229784037, .881921264348355030, | |
46 | * .471396736825997649, .893224301195515320, .449611329654606600, | |
47 | * .903989293123443332, .427555093430282094, .914209755703530655, | |
48 | * .405241314004989871, .923879532511286756, .382683432365089772, | |
49 | * .932992798834738888, .359895036534988149, .941544065183020778, | |
50 | * .336889853392220051, .949528180593036667, .313681740398891477, | |
51 | * .956940335732208865, .290284677254462368, .963776065795439867, | |
52 | * .266712757474898386, .970031253194543993, .242980179903263890, | |
53 | * .975702130038528544, .219101240156869797, .980785280403230449, | |
54 | * .195090322016128268, .985277642388941245, .170961888760301226, | |
55 | * .989176509964780973, .146730474455361752, .992479534598709998, | |
56 | * .122410675199216198, .995184726672196886, .098017140329560602, | |
57 | * .997290456678690216, .073564563599667424, .998795456205172393, | |
58 | * .049067674327418014, .999698818696204220, .024541228522912288/ | |
59 | DATA V01/ | |
60 | *20.372344051675948320,10.186939083615717019, 6.792145128642259194, | |
61 | * 5.095004061774028406, 4.076924301233411569, 3.398375355836817874, | |
62 | * 2.913844188922326923, 2.550574309344581929, 2.268145468484680877, | |
63 | * 2.042305539064625322, 1.857621369163487826, 1.703804209234359393, | |
64 | * 1.573731095890953903, 1.462314214079109314, 1.365822514386970608, | |
65 | * 1.281457723870753089, 1.207080000125038197, 1.141025034002580881, | |
66 | * 1.081978909375990251, 1.028890504976705775, .980908924285583182, | |
67 | * .937337990004204040, .897602609538944760, .861223549119166964, | |
68 | * .827798262132060057, .796986141692815849, .768497050426247854, | |
69 | * .742082308157083139, .717527544220716945, .694646979316414074, | |
70 | * .673278814103143206, .653281482438188264, .634530585849559569, | |
71 | * .616916368988285501, .600341627864708583, .584719966716442478, | |
72 | * .569974337550752206, .556035810289858797, .542842532129007265, | |
73 | * .530338842995173736, .518474520455194562, .507204132498527377/ | |
74 | DATA V43/ | |
75 | * .496486480633773341, .486284118930980347, .476562937196059577, | |
76 | * .467291798518203777, .458442223092326185, .449988111568207852, | |
77 | * .441905502279811730, .434172357611674059, .426768375503303231, | |
78 | * .419674822707763519, .412874386931392637, .406351045407245220, | |
79 | * .400089947810847103, .394077311725625112, .388300329116981475, | |
80 | * .382747082486544543, .377406469558265608, .372268135501149225, | |
81 | * .367322411823931352, .362560261188599264, .357973227485287329, | |
82 | * .353553390593273762, .349293325323614557, .345186064100106210, | |
83 | * .341225062988209739, .337404170727502873, .333717600463170676, | |
84 | * .330159903906853078, .326725947687564127, .323410891679995065, | |
85 | * .320210169120831946, .317119468344201623, .314134715985385547, | |
86 | * .311252061517832408, .308467863002535298, .305778673941254995, | |
87 | * .303181231136072966, .300672443467522640, .298249381512228152, | |
88 | * .295909267928708288, .293649468546894677, .291467484103066937/ | |
89 | DATA V85/ | |
90 | * .289360942567410413, .287327592016330020, .285365294006072688, | |
91 | * .283472017408178852, .281645832670851110, .279884906473540080, | |
92 | * .278187496744942806, .276551948017222264, .274976687091617982, | |
93 | * .273460218992754407, .272001123190889132, .270598050073098492, | |
94 | * .269249717645991982, .267954908453996038, .266712466698566642, | |
95 | * .265521295544892087, .264380354603743829, .263288657577134964, | |
96 | * .262245270057362001, .261249307469844440, .260299933150945870, | |
97 | * .259396356552666409, .258537831566745571, .257723654961312273, | |
98 | * .256953164923769797, .256225739704112356, .255540796353340615, | |
99 | * .254897789552079584, .254296210524907102, .253735586036277646, | |
100 | * .253215477464277089, .252735479948771830, .252295221610822686, | |
101 | * .251894362840522137, .251532595650684871, .251209643094077853, | |
102 | * .250925258742118964, .250679226223204187, .250471358819043657, | |
103 | * .250301499117598151, .250169518721410816, .250075318010325494, | |
104 | * .250018825957773861/ | |
105 | DATA IBD/0/ | |
106 | IF(IBD.NE.0) RETURN | |
107 | IBD=1 | |
108 | CALL UCOPY(U01,U ,42) | |
109 | CALL UCOPY(U43,U(43),42) | |
110 | CALL UCOPY(U85,U(85),42) | |
111 | CALL UCOPY(V01,V ,42) | |
112 | CALL UCOPY(V43,V(43),42) | |
113 | CALL UCOPY(V85,V(85),43) | |
114 | RETURN | |
115 | END |