[u/mrichter/AliRoot.git] / MINICERN / mathlib / gen / d / d701bd.F

*
* $Id$
*
* $Log$
* Revision 1.1.1.1  1996/04/01 15:02:23  mclareni
* Mathlib gen
*
*
*FCA :          Fri Mar 26 17:27:50 CET 1999 by  Federico Carminati
*               Remove ucopy to reduce dependance on kernlib
#include "gen/pilot.h"
      SUBROUTINE D701BD
      COMMON /TAB/U(126),V(127)
      DIMENSION U01(42),U43(42),U85(42)
      DIMENSION V01(42),V43(42),V85(43)
      DATA U01/
     *  .024541228522912288,  .999698818696204220,  .049067674327418014,
     *  .998795456205172393,  .073564563599667424,  .997290456678690216,
     *  .098017140329560602,  .995184726672196886,  .122410675199216198,
     *  .992479534598709998,  .146730474455361752,  .989176509964780973,
     *  .170961888760301226,  .985277642388941245,  .195090322016128268,
     *  .980785280403230449,  .219101240156869797,  .975702130038528544,
     *  .242980179903263890,  .970031253194543993,  .266712757474898386,
     *  .963776065795439867,  .290284677254462368,  .956940335732208865,
     *  .313681740398891477,  .949528180593036667,  .336889853392220051,
     *  .941544065183020778,  .359895036534988149,  .932992798834738888,
     *  .382683432365089772,  .923879532511286756,  .405241314004989871,
     *  .914209755703530655,  .427555093430282094,  .903989293123443332,
     *  .449611329654606600,  .893224301195515320,  .471396736825997649,
     *  .881921264348355030,  .492898192229784037,  .870086991108711419/
      DATA U43/
     *  .514102744193221727,  .857728610000272070,  .534997619887097211,
     *  .844853565249707073,  .555570233019602225,  .831469612302545237,
     *  .575808191417845301,  .817584813151583697,  .595699304492433343,
     *  .803207531480644910,  .615231590580626845,  .788346427626606262,
     *  .634393284163645498,  .773010453362736961,  .653172842953776764,
     *  .757208846506484548,  .671558954847018401,  .740951125354959091,
     *  .689540544737066925,  .724247082951466921,  .707106781186547524,
     *  .707106781186547524,  .724247082951466921,  .689540544737066925,
     *  .740951125354959091,  .671558954847018401,  .757208846506484548,
     *  .653172842953776764,  .773010453362736961,  .634393284163645498,
     *  .788346427626606262,  .615231590580626845,  .803207531480644910,
     *  .595699304492433343,  .817584813151583697,  .575808191417845301,
     *  .831469612302545237,  .555570233019602225,  .844853565249707073,
     *  .534997619887097211,  .857728610000272070,  .514102744193221727/
      DATA U85/
     *  .870086991108711419,  .492898192229784037,  .881921264348355030,
     *  .471396736825997649,  .893224301195515320,  .449611329654606600,
     *  .903989293123443332,  .427555093430282094,  .914209755703530655,
     *  .405241314004989871,  .923879532511286756,  .382683432365089772,
     *  .932992798834738888,  .359895036534988149,  .941544065183020778,
     *  .336889853392220051,  .949528180593036667,  .313681740398891477,
     *  .956940335732208865,  .290284677254462368,  .963776065795439867,
     *  .266712757474898386,  .970031253194543993,  .242980179903263890,
     *  .975702130038528544,  .219101240156869797,  .980785280403230449,
     *  .195090322016128268,  .985277642388941245,  .170961888760301226,
     *  .989176509964780973,  .146730474455361752,  .992479534598709998,
     *  .122410675199216198,  .995184726672196886,  .098017140329560602,
     *  .997290456678690216,  .073564563599667424,  .998795456205172393,
     *  .049067674327418014,  .999698818696204220,  .024541228522912288/
      DATA V01/
     *20.372344051675948320,10.186939083615717019, 6.792145128642259194,
     * 5.095004061774028406, 4.076924301233411569, 3.398375355836817874,
     * 2.913844188922326923, 2.550574309344581929, 2.268145468484680877,
     * 2.042305539064625322, 1.857621369163487826, 1.703804209234359393,
     * 1.573731095890953903, 1.462314214079109314, 1.365822514386970608,
     * 1.281457723870753089, 1.207080000125038197, 1.141025034002580881,
     * 1.081978909375990251, 1.028890504976705775,  .980908924285583182,
     *  .937337990004204040,  .897602609538944760,  .861223549119166964,
     *  .827798262132060057,  .796986141692815849,  .768497050426247854,
     *  .742082308157083139,  .717527544220716945,  .694646979316414074,
     *  .673278814103143206,  .653281482438188264,  .634530585849559569,
     *  .616916368988285501,  .600341627864708583,  .584719966716442478,
     *  .569974337550752206,  .556035810289858797,  .542842532129007265,
     *  .530338842995173736,  .518474520455194562,  .507204132498527377/
      DATA V43/
     *  .496486480633773341,  .486284118930980347,  .476562937196059577,
     *  .467291798518203777,  .458442223092326185,  .449988111568207852,
     *  .441905502279811730,  .434172357611674059,  .426768375503303231,
     *  .419674822707763519,  .412874386931392637,  .406351045407245220,
     *  .400089947810847103,  .394077311725625112,  .388300329116981475,
     *  .382747082486544543,  .377406469558265608,  .372268135501149225,
     *  .367322411823931352,  .362560261188599264,  .357973227485287329,
     *  .353553390593273762,  .349293325323614557,  .345186064100106210,
     *  .341225062988209739,  .337404170727502873,  .333717600463170676,
     *  .330159903906853078,  .326725947687564127,  .323410891679995065,
     *  .320210169120831946,  .317119468344201623,  .314134715985385547,
     *  .311252061517832408,  .308467863002535298,  .305778673941254995,
     *  .303181231136072966,  .300672443467522640,  .298249381512228152,
     *  .295909267928708288,  .293649468546894677,  .291467484103066937/
      DATA V85/
     *  .289360942567410413,  .287327592016330020,  .285365294006072688,
     *  .283472017408178852,  .281645832670851110,  .279884906473540080,
     *  .278187496744942806,  .276551948017222264,  .274976687091617982,
     *  .273460218992754407,  .272001123190889132,  .270598050073098492,
     *  .269249717645991982,  .267954908453996038,  .266712466698566642,
     *  .265521295544892087,  .264380354603743829,  .263288657577134964,
     *  .262245270057362001,  .261249307469844440,  .260299933150945870,
     *  .259396356552666409,  .258537831566745571,  .257723654961312273,
     *  .256953164923769797,  .256225739704112356,  .255540796353340615,
     *  .254897789552079584,  .254296210524907102,  .253735586036277646,
     *  .253215477464277089,  .252735479948771830,  .252295221610822686,
     *  .251894362840522137,  .251532595650684871,  .251209643094077853,
     *  .250925258742118964,  .250679226223204187,  .250471358819043657,
     *  .250301499117598151,  .250169518721410816,  .250075318010325494,
     *  .250018825957773861/
      DATA IBD/0/
      IF(IBD.NE.0) RETURN
      IBD=1
      DO KK=1,42
         U(KK)    = U01(KK)
         U(42+KK) = U43(KK)
         U(84+KK) = U85(KK)
         V(KK)    = V01(KK)
         V(42+KK) = V43(KK)
         V(85+KK) = V85(KK)
      ENDDO
      V(127)  = V85(43)
*      CALL UCOPY(U01,U    ,42)
*      CALL UCOPY(U43,U(43),42)
*      CALL UCOPY(U85,U(85),42)
*      CALL UCOPY(V01,V    ,42)
*      CALL UCOPY(V43,V(43),42)
*      CALL UCOPY(V85,V(85),43)
*      RETURN
      END
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	*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