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