*
* $Id$
*
* $Log$
* Revision 1.1.1.1  1996/04/01 15:02:23  mclareni
* Mathlib gen
*
*
#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
      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