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