!
! begin file airy_head
!    version 1.0 
!    edited 12/27/2001
!    revised by DWL April 2001
!    revised by BRF January 2002
!
!  Global constants
      integer, parameter :: &
        n_coeff_asso = 63, &
        n_coeff_phase = 50, &
        n_coeff_zero = 56, &
        n_zeros = 25
      real(prd), parameter :: &
        zero = 0.0_prd, &
        one = 1.0_prd, &
        two = 2.0_prd, &
        three = 3.0_prd, &
        four = 4.0_prd, &
        six = 6.0_prd, &
        fourth = 0.25_prd, &
        half = 0.5_prd, &
        two_third = &
 0.66666666666666666666666666666666666666666666666666666666666666666667_prd, &
        ai0zer = &
 0.35502805388781723926006318600418317639797917419917724058332651030081_prd, &
        ai1zer = &
-0.25881940379280679840518356018920396347909113835493458221000181385610_prd, &
        bi0zer = &
 0.61492662744600073515092236909361355359472818864859650504087875301430_prd, &
        bi1zer = &
 0.44828835735382635791482371039882839086622679921226206108280877837233_prd, &
        pi = &
 3.14159265358979323846264338327950288419716939937510582097494459230782_prd, &
        sqrpi = &
 1.77245385090551602729816748334114518279754945612238712821380778985291_prd, &
        pi_thirds = pi/3, &
        two_pi_third = 2*pi/3, &
        two_sqrpi = 2*sqrpi, &
        three_pi_ate = 3*pi/8
      complex(prd), parameter :: &
        czero  = (0.0_prd,0.0_prd), & ! complex zero
        ciunit = (0.0_prd,1.0_prd), & ! complex imaginary number
        cunit  = (1.0_prd,0.0_prd)    ! complex one
!
!  Global variables
      integer :: &
	iflag = 0, &
        n_asymp = 0, &
        n_asymp_asso = 0, &
        n_asymp_mod = 0, &
        n_asymp_phase = 0, &
        n_asymp_zero = 0, &
        n_parts = 0, &
        n_parts_aux = 0, &
        n_taylor = 0, &
        n_taylor_aux = 0
      real(prd) :: &
        aux_min = 0.0_prd, &
        fstpsz = 0.0_prd, &
        mstpsz = 0.0_prd, &
	r_min  = 0.0_prd, &
	r_uplimit = 0.0_prd, &
	r_lolimit = 0.0_prd, &
	theta_global, &  
	xi_global, &  
	x_global, &  
	r_global
      complex(prd) :: &
	zeta_global, & 
	z_global       
      real(prd), dimension(:,:), allocatable :: &
        m2grid
      real(prd), dimension(:), allocatable :: &
        mcoef, &
        ncoef, &
        theta_grid, &
	ucoef, &
	vcoef
      complex(prd), dimension(n_zeros) :: &    
        bizc, &  ! complex zeros
        dbizc    ! complex zeros
      complex(prd), dimension(:,:), allocatable :: &
        aigrid       
      logical :: &
        big_integrate_aux = .false., &
        is_aux_init_airy = .false., &
        is_init_airy = .false., &
        is_zero_init_airy = .false., &
	arg_local = .false., &  
	mod_local = .false.
!
! stored values of the first 25 zeros, the first 45 coefficients 
!   for the asymptotic expansions of the zeros, the first 50
!   coefficients for the asymptotic expansions for the associated 
!   functions, and the first 50 coefficients for the asymptotic
!   expansions for the phase functions.
    real(prd), dimension(n_zeros) ::  &
      aizr, &
      bizr, &
      daizr, &
      dbizr
      real(prd), dimension(0:n_coeff_zero-1) :: &
        Tcoeff, &
        Ucoeff
      real(prd), dimension(0:n_coeff_asso-1) :: &
        Vcoeff, &
        Wcoeff
    real(prd), dimension(0:n_coeff_phase-1) :: &
      thetacoeff, &
      phicoeff
!
!  what follows is the hard coded coefficients of the 
!   asymptotic series of the zeros of the Airy functions.  
      data Ucoeff(0:18) / &
          1.0_prd, &
 -.14583333333333333333333333333333333333333333333333333333333333333333_prd,&
  .12152777777777777777777777777777777777777777777777777777777777777777_prd,&
 -.87395351080246913580246913580246913580246913580246913580246913580246_prd,&
  .15016855549125514403292181069958847736625514403292181069958847736625e2_prd,&
 -.47694644148817441754543895747599451303155006858710562414266117969821e3_prd,&
  .24241309444872289030901191917459921575147912596472267254160258275484e5_prd,&
 -.18036569459973376725878994930524510053402371646541742563690437490163e7_prd,&
  .18486906478642827292616911910089915509011302335490721407502386011759e9_prd,&
 -.24975761293716812237485135712074343571689388225751805089702927291450e11_prd,&
  .43010597766029133575957465515041682975116407364519869082404185791498e13_prd,&
 -.91966630646216224414462514444769376815822305958737503992528419520874e15_prd,&
  .23905780559290646307566900546728188233693016653754929837863494781017e18_prd,&
 -.74241332478952472290363916933866251290404112455691659500004579531135e20_prd,&
  .27148400107512125552064168030849313000106437718598339998802868110263e23_prd,&
 -.11546167442336934169526883463106999395192635312191589413884964066192e26_prd,&
  .56509197949692565122879784149625473179282442934941884667921655590141e28_prd,&
 -.31534468131244981806142918984101053489460643574011303209334451335403e31_prd,&
  .19903407540014516438638931066554027629203641348823621813687428803681e34_prd/
      data Ucoeff(19:55) / 37*zero /
!
!  the next set of coeffs are for T(x).
      data Tcoeff(0:18)  /  &
 1.0_prd, &
  .10416666666666666666666666666666666666666666666666666666666666666667_prd,&
 -.13888888888888888888888888888888888888888888888888888888888888888889_prd,&
  .92984423225308641975308641975308641975308641975308641975308641975309_prd,&
 -.15509155201673647854203409758965314520870076425631981187536743092299e2_prd,&
  .48552909692595711928032529884381736233588085439937291789143640995492e3_prd,&
 -.24505300371559153682986228639520820590779438516064030467322648392607e5_prd,&
  .18166531815056219864955679723943719999961426573223555390907928630837e7_prd,&
 -.18581460679897715056836004159090076815148668306941218300549412966945e9_prd,&
  .25071304911268777333357715167823935456935326637881744159381973639923e11_prd,&
 -.43138527109842934644759345584413150635257003381911139923300864298731e13_prd,&
  .92185668129464141695987363212833552615161591992359885620965411318628e15_prd,&
 -.23952433840095928791094332571942871169658682388152814639232211028922e18_prd,&
  .74362270472474507345398633000288750016206828627391077277289564070702e20_prd,&
 -.27185882859962273722339835257780075234211548224517714800753203346127e23_prd,&
  .11559853167916871386933427721989223661195069934160109595184381087791e26_prd,&
 -.56567334133206565368102758661503886004417965273912945973100005362259e28_prd,&
  .31562894324838583270281305634852764403638314020995636590825013151460e31_prd,&
 -.19919258451508720424348231287353840437868650493382105342718540790297e34_prd /
      data Tcoeff(19:55) / 37*zero /
!
!  the next set of data are the coefficients of the 
!   asymptotic series of the associated functions at the zeros of the 
!   Airy functions.  
      data Wcoeff(0:18)  /  &
          1.0_prd, &
 -.07291666666666666666666666666666666666666666666666666666666666666667_prd,&
  .27229817708333333333333333333333333333333333333333333333333333333333_prd,&
 -.31796569447458526234567901234567901234567901234567901234567901234568e1_prd,&
  .76556611494861021944524819958847736625514403292181069958847736625514e2_prd,&
 -.31342883391504333097748305081340020576131687242798353909465020576132e4_prd,&
  .19526467547467580356141263657907492119681468318299594019758628812127e6_prd,&
 -.17214881804894471760366662537203599796978117784592300195866725359181e8_prd,&
  .20404480428776782808583230846549783277836178166084920127306154826731e10_prd,&
 -.31299949629291202854512623939968839596125044797653615695230422712467e12_prd,&
  .60336461605090016658418262949946148185490712235984520011916410419179e14_prd,&
 -.14278069090774911120088839828530748584551695465524445535742732768897e17_prd,&
  .40694463078143798287130215270391777070050987066122969894115089940327e19_prd,&
 -.13750138163790283482202930118673116996392571046076704729266812849012e22_prd,&
  .54348926796785052801475752640893088472995254326308568359735532603746e24_prd,&
 -.24844792999331365214998636162748338476863223103457160185005725731021e27_prd,&
  .13006474905307843236575513358891917058326565765494198896278465517184e30_prd,&
 -.77308324290748324739057865230742197678773712235823741470353250780808e32_prd,&
  .51777850299807518173142784385934789871927480162907991284189078357799e35_prd/
      data Wcoeff(19:62) / 44*zero /
!
!  the second 50 coeffs are for V(x).
      data Vcoeff(0:18)  /  &
 1.0_prd,&
  .10416666666666666666666666666666666666666666666666666666666666666667_prd,&
 -.33094618055555555555555555555555555555555555555555555555555555555556_prd,&
  .36136956862461419753086419753086419753086419753086419753086419753086e1_prd,&
 -.83984945326395275871729864785420340975896531452087007642563198118754e2_prd,&
  .33685630692930845753622830626592200666274740348814422888496962571037e4_prd,&
 -.20713231106607890252977377856845981926357440760732941802900650637276e6_prd,&
  .18097282066882778449431331373601761112628551971830435479269498473888e8_prd,&
 -.21309444395672364695106172827605375452442300629551305981428785008379e10_prd,&
  .32523869187619483120330380717331928218594181576469626622284133921492e12_prd,&
 -.62446698182714354178599585173443015731252810847722720974668646995208e14_prd,&
  .14729817433919221428748862989469425786509381441758339217882596234826e17_prd,&
 -.41870023262835387031831169307108942313981607413837696274312354570063e19_prd,&
  .14115582971009629114612866526991564864316743141214936159803917741306e22_prd,&
 -.55686486988532093135443555068430236099429127519474369927264196276483e24_prd,&
  .25414120415563205117290897011609704504117958895702715714297261718928e27_prd,&
 -.13285320976148994930374487403381382511677438741525714111410410227917e30_prd,&
  .78865443622886902650543525972805065726220987310540174043394169896799e32_prd,&
 -.52761245869440267730251126474749725416169924433173936574780403898729e35_prd/
      data Vcoeff(19:62) / 44*zero /
! 
! now follows the stored zeros.
! the real zeros of Ai(x)
       data aizr /                 &
  -2.33810741045976703848919725244673544063854014567238785248385443721367_prd, &
  -4.08794944413097061663698870145739106022476469910852975498416087602512_prd, &
  -5.52055982809555105912985551293129357379721428061752510483288757695750_prd, &
  -6.78670809007175899878024638449617696605388247739349361652352909355624_prd, &
  -7.94413358712085312313828055579826853214067439697221480864385428571645_prd, &
  -9.02265085334098038015819083988008925652467753515608251556068568311328_prd, &
 -10.04017434155808593059455673736251809404290256910583310437135385095343_prd, &
 -11.00852430373326289323543964959015101673082538150403750570001348624448_prd, &
 -11.93601556323626251700636490293058431557788623211982397092353864291238_prd, &
 -12.82877675286575720040672940724182447738641559957341994148696682189440_prd, &
 -13.69148903521071792829569677946692054166536980920076805254071472510959_prd, &
 -14.52782995177533498207398144299589337871416486983482524101054549228523_prd, &
 -15.34075513597799685714620851348148670511758332024803704969134367360914_prd, &
 -16.13268515694577143934598044720252179051827239707628246640238983564054_prd, &
 -16.90563399742994262703523877061147659909005109503171855603649023736814_prd, &
 -17.66130010569705750925365030401805595215321866811995330361255823961027_prd, &
 -18.40113259920711541586139792950433675459381460602005817693995569303975_prd, &
 -19.12638047424695214412414868973249468907545838475308007653292923976344_prd, &
 -19.83812989172149970094756361601140419833568249453885876463439190533102_prd, &
 -20.53733290767756635998268141130810174530421801473749208218771674302329_prd, &
 -21.22482994364209695519767672540520133128372022695142223538915255700301_prd, &
 -21.90136759558513070740823704210580626014944052125548559380507316477778_prd, &
 -22.56761291749650283145917485684307040940078566103896133980710912405921_prd, &
 -23.22416500112168106132095039028827471366842731266977699133091665595986_prd, &
 -23.87156445553591856711857620915978417026368251469855098111241320250607_prd/
!
! the real zeros of Ai'(x)
       data daizr /                 &
  -1.01879297164747108901732478339974382421820544125443456387086141398280_prd, &
  -3.24819758217983653787542377077584338415362303651722056102813298651085_prd, &
  -4.82009921117873563940061626041637941446268823149559840636862039390690_prd, &
  -6.16330735563948654763784353309140759297448387720351451555576295688298_prd, &
  -7.37217725504777017709218227112798901002013456098406544685663881697862_prd, &
  -8.48848673401972213288099541573077295112964359668407460466365614498850_prd, &
  -9.53544905243354747070263342700063969538820217161052760208983694238694_prd, &
 -10.52766039695740728197814249142222864298654636972840675098825728664860_prd, &
 -11.47505663348024529493721652240563873475572084899288324564501046010262_prd, &
 -12.38478837184574732549333923538262410099237019478484289722429657302031_prd, &
 -13.26221896166521038243727842123812965366637123382426125928326035400567_prd, &
 -14.11150197046299528163274595367191475659596057504177550100311260702737_prd, &
 -14.93593719672051746650728205326279421117972255282091467187721012647215_prd, &
 -15.73820137369253830268645323011724506466987051724640138554427300411434_prd, &
 -16.52050382543379354220519308946062809031267401323065118962585800030048_prd, &
 -17.28469505021643735664373842332082107165009909874506202863636173764009_prd, &
 -18.03234462250439339526520862299153702097903336787137198226440397831148_prd, &
 -18.76479843766595474015165121077601065287558788488499214751351991943185_prd, &
 -19.48322165656723117752471804759502558594797583425851677835534147425693_prd, &
 -20.18863150946337315365453214288926902260240432967877744616116532852433_prd, &
 -20.88192275551673770086895619234965436951497044315845023182432979152615_prd, &
 -21.56388772319897495770118028517312743827608287640899482894099397157279_prd, &
 -22.23523228534891333075485328085016555368139534299890933471263856691166_prd, &
 -22.89658873887461900146658726220533486755445824339047035924534481515681_prd, &
 -23.54852629592880157396398563890195889083567420203896865761957496760415_prd/
!
! the real zeros of Bi(x)
       data bizr /                 &
  -1.17371322270912792491997996247390210454364638917570309757920761150430_prd, &
  -3.27109330283635271568022824016641380630093596910028480148503239626113_prd, &
  -4.83073784166201593266770933990517817696614261732301026576850194149303_prd, &
  -6.16985212831025125983336452055593667996554943427563109765876409289291_prd, &
  -7.37676207936776371359995933044254122209152229939709572992390169564234_prd, &
  -8.49194884650938801344803949280977672860508755505545790582286779923401_prd, &
  -9.53819437934623888663298854515601962083907207638247038808917424104129_prd, &
 -10.52991350670535792440055559845314799952957759462139619609904123067107_prd, &
 -11.47695355127877943792346492473281967194825381488769633431302780799070_prd, &
 -12.38641713858273874556190150286328094825979838468560971551502681648386_prd, &
 -13.26363952294180555411074332439549077524115196098126631023507247982663_prd, &
 -14.11275680906865779158730978222401847168404282855088116185500171775926_prd, &
 -14.93705741215416404020321431049090463961217635177820922699751842280182_prd, &
 -15.73921035119048277089497847974818338071801627678405270593898207072179_prd, &
 -16.52141955063437905391794996521054571671103103705808118179905226958795_prd, &
 -17.28553162458124253293423669225353924252797536027103490380471228329517_prd, &
 -18.03311328722500157217111254333919200080872914164059812874417048491807_prd, &
 -18.76550828448008104134297892361051284402671895514206863403515927768504_prd, &
 -19.48388013298923401366599865924135751220629777936103551104169553178148_prd, &
 -20.18924478539620242022532322582753607646497835839342208483158243219733_prd, &
 -20.88249599419317576784241835353106077909763612165974937464360562852603_prd, &
 -21.56442528471297765275553097792876056885144913635808007380299667653380_prd, &
 -22.23573788180338516651471705596359912920512830316306238465359314928271_prd, &
 -22.89706555421979347392720167028728219215245475061019081243083088117395_prd, &
 -23.54897707964244826910809088370627200288704237097332714530518718245203_prd/
!
! the real zeros of Bi'(x)
       data dbizr /                 &
  -2.29443968261412324662245867376910282907848946700969989589640271599098_prd, &
  -4.07315508907182821555236851509270995079318027043612840965664763255332_prd, &
  -5.51239572966359949625959252047918324308288262563228155846581341204411_prd, &
  -6.78129444599030539002866629612268711724774958242124874315576274421256_prd, &
  -7.94017868916857892668015506404469358236295026378631200761623213008077_prd, &
  -9.01958335879423906741485643920410500793021840458929511999436467689141_prd, &
 -10.03769633490854580175763552931088600719650708912364209574799165928857_prd, &
 -11.00646266771228994042178673901908858144008056513455219417559368827981_prd, &
 -11.93426164501484466280156966627884018620779786420344917372782764148357_prd, &
 -12.82725830917721764018582515874172632262398632000325301764491321749451_prd, &
 -13.69015582683504910123087530032843814837512065755814073750827235404234_prd, &
 -14.52664576348571140952971574483676917698490608428973245022236766674096_prd, &
 -15.33969308224240410861550731532421181298426399724957048054681874323756_prd, &
 -16.13172478238590057788823351351896352801125898819864759735671923382317_prd, &
 -16.90475941188964995823127191076849074551409618145881961325073707696760_prd, &
 -17.66049874311497610219306321601848781394657665773696300832840696681477_prd, &
 -18.40039436718170327981549177420453616844392469219826273367311029445693_prd, &
 -19.12569715641263806611390647390670371376640167393442425682883753076962_prd, &
 -19.83749471841591050293338761137287048759231913849216259169928462093709_prd, &
 -20.53674024145327398011335618110930387074716842210354620328691065812538_prd, &
 -21.22427504488926656905931114462097972114007365699962254630891208179793_prd, &
 -21.90084644513920828138642436184221845938113289053710021975475917896781_prd, &
 -22.56712208049720046972298553127734852587993691855079121202853774320013_prd, &
 -23.22370152120896211611253695016184095318132604851766457576200217045542_prd, &
 -23.87112577167797359456463262632343377384840108602012722903210953550931_prd/ 
! 
! the complex zeros of Bi(z) in upper half complex plane 
       data bizc(1:10) /  &
 ( 0.97754488673162068594699270603101291142795187683490068888647838406443_prd,  &
   2.14129070603874457574913922659732897573219215679089642486333363968462_prd ),&
 ( 1.89677501389533634662721727829884659615177393761103648449500365404271_prd,  &
   3.62729176435891941044049914398672742135138471558722329404568929501847_prd ),&
 ( 2.63315773935494659570801882716408027064344210717059360176219749413806_prd,  &
   4.85546817997984498317462803408683616985194839172584257833996797129166_prd ),&
 ( 3.27853123615674637108428003742990269304233294063643810889158089478166_prd,  &
   5.94450428117905212809591786731140536872984124248655143010029596308279_prd ),&
 ( 3.86585273173334614251511337081452708596976194632193282962879173253901_prd,  &
   6.94169220958211125352971091861420315862502036505329040289270784633450_prd ),&
 ( 4.41161187480932549691994423741928993680626265689626333136555188876233_prd,  &
   7.87183965948658196641675823684140806420708760005728700488878495074197_prd ),&
 ( 4.92552935386139721563708520907097320258698061300099737722695463508780_prd,  &
   8.74998254125672034599585620155415722642063525723209180381922538805753_prd ),&
 ( 5.41393680880765209985945724430184554308272025802972651933170020359738_prd,  &
   9.58609690055480830302647362820501805743586542389874387303025339162157_prd ),&
 ( 5.88124675398118307316367004091001520511362531706460173192832604227755_prd,  &
  10.38722739030382930057781919481935780886769028619723636729641393497882_prd ),&
 ( 6.33068856706306813563172144477503542412410562601369891961334059189483_prd,  &
  11.15858122676025326996998168923801510296971883724967951816234142038045_prd ) /
       data bizc(11:20) /  &
 ( 6.76471521144954609083399562153578384959795677911006057480597886621212_prd,  &
  11.90414448594906222072272411594785648949550936704795271500663482128814_prd ),&
 ( 7.18524510851662117145512900549280668366932915483005252325615401580719_prd,  &
  12.62705408396200199225079630995220617488806584833153727277631175242449_prd ),&
 ( 7.59381439189641479433066378186480796937054378758561448826440279962457_prd,  &
  13.32983471285135517036416811676054372969934205799065028150167463568813_prd ),&
 ( 7.99167720544561504522079912457128011957657180816119083579125507265861_prd,  &
  14.01455643395353374169097997561315710183878207886644322747150624317981_prd ),&
 ( 8.37987427934857338983294059811360130455426039105626127581824088547107_prd,  &
  14.68294329580687780615451873066104265705853564957606800569369647237208_prd ),&
 ( 8.75928129548526042699156226353757020010251201662833861031173538511019_prd,  &
  15.33645046170969719696146138518801429832622098668132657334102587762053_prd ),&
 ( 9.13064390781380346430825266662829937041678699009428928404896199007373_prd,  &
  15.97632038201882754684149702154344284440620400452420536075074952023654_prd ),&
 ( 9.49460367918717573757647043022916164116961674089630284237584546194107_prd,  &
  16.60362460689876200031647099108460856282007525233639325310907992053669_prd ),&
 ( 9.85171767110785905414362066323798900771136815515095852131622183049713_prd,  &
  17.21929550678326657471985928759224748750728709435044879861903190323442_prd ),&
 (10.20247349615153585381393106348151306984924659387653537868799157421065_prd,  &
  17.82415074109532567681143632039537948506451838046048127526573110371406_prd ) /
       data bizc(21:25) /  &
 (10.54730106104828820929581975439272426046752560015739777627890446398335_prd,  &
  18.41891241378788807771014119921099424202856244191869291450744037059967_prd ),&
 (10.88658185276360171020167400751349315297399389674160016524066373525175_prd,  &
  19.00422226814517965597246929483653836545986628099335717542098425442790_prd ),&
 (11.22065637121487978490697787477242008976642909239915124343495431079782_prd,  &
  19.58065388303882246532112096834251855905705006234152403408347378498074_prd ),&
 (11.54983014388919569873370603964904591527739018815080309763753398354921_prd,  &
  20.14872256730936655594126504241030771102838585784429195801964986472933_prd ),&
 (11.87437864134722050579925598219404690296309944637104360607741548188520_prd,  &
  20.70889346473131214175517609801909093363721604975867261189535114023168_prd ) /
!
! the complex zeros of Bi'(z) in upper half complex plane
       data dbizc(1:10) /                   &
 ( 0.21494707453743056760883287056250605187305224890138110720402076192263_prd,  &
   1.10060014330279788064719413742209192726369794831163048836404502078255_prd ),&
 ( 1.45816830922350739202821116056490933729951849260075434667616008817736_prd,  &
   2.91224936745844541923508257303691682899459230703577503871294374301562_prd ),&
 ( 2.27376076301348229979236177702212807123422671446087248798600277076873_prd,  &
   4.25452854921709786216701510112105958142147276518704610066771560830131_prd ),&
 ( 2.96105265783122604010312815478360930889882922797417247802418355700948_prd,  &
   5.40812896573005040310482366111553738384473168479697682273157331450683_prd ),&
 ( 3.57576947588239351634900591383787344574637462648477739545407286050269_prd,  &
   6.44882619664101667688766917305374968697692482658875449823132377110174_prd ),&
 ( 4.14140155009212801911513214050461357041551762168926679027184324265196_prd,  &
   7.41110342737289435155363610290071245471864460472101786854840838238931_prd ),&
 ( 4.67067019317851843587991658526182217779452060404735436259995520458139_prd,  &
   8.31435754027842112221325052343261560126706456395060377346876375645051_prd ),&
 ( 5.17144623057547702848684803654329091601603941065180958532011916973726_prd,  &
   9.17087255347546656390403896670854259095596858721013207891817710397333_prd ),&
 ( 5.64902779025260692772106205587541053902993530776471545880519832872898_prd,  &
   9.98904997303294846428882639497607244557317263335698186901433176286389_prd ),&
 ( 6.10719645778672314912565520434373606154087248897125587950087368586402_prd,  &
  10.77495654079679678728726857870537776563201114764383107437207137807667_prd ) /
       data dbizc(11:20) /                   &
 ( 6.54877066739736118676003806957370783043553142483036682383197139988049_prd,  &
  11.53315414598333046084793206006732808588154690786958448199022839129188_prd ),&
 ( 6.97592212792084487364430796442826835395571509025540741290291051849993_prd,  &
  12.26718263018804966430344819184555616181575729948779604216931474582405_prd ),&
 ( 7.39036907848466049228107321930774095776397818857316494262577487277162_prd,  &
  12.97985865379078415461882350476384435335059481487043374296045769473536_prd ),&
 ( 7.79350057516810578045134261640077023829274762550868956525380065099566_prd,  &
  13.67346999233605232897265431533977335746270196819866020912761759222910_prd ),&
 ( 8.18645982214873789501772438998924405082262072688599000055406755107824_prd,  &
  14.34990697064684323397347337125976171582065678522309064630023625752993_prd ),&
 ( 8.57020199560005738297958938286472624011678392077178524442698505383515_prd,  &
  15.01075434722730594102247347049141443546551439677981436949704284282558_prd ),&
 ( 8.94553554174992509923121042304493111410594720693234230010453783795201_prd,  &
  15.65735735534456505989719663535512163903202778433978793833497105463328_prd ),&
 ( 9.31315240559377120279006194179236218678382103286005699284034696552073_prd,  &
  16.29087030713368404673157848639547747437192335235981600587878627241399_prd ),&
 ( 9.67365063100573605685580820643318437333429764070748529694125424618393_prd,  &
  16.91229310481033620812543730559457811485843222338184756713409814473519_prd ),&
 (10.02755157233877751003651949722784369505767870153629086749814687666235_prd,  &
  17.52249916285219769188573833900744788846491409677167422613709212335609_prd ) /
       data dbizc(21:25) /  &
 (10.37531321693404033189804291399040740722048977783034198713300877988027_prd,  &
  18.12225710100791573570080366782397788632586761581476795682060835313086_prd ),&
 (10.71734064688710698783676365059067829058738257679452688582483678994761_prd,  &
  18.71224783545241969047143044519901088119172969586176757125107451219527_prd ),&
 (11.05399436066789932335321274509712390948071324132825401515346039829534_prd,  &
  19.29307821395942947173251780131670821566064914355268076696448955332805_prd ),&
 (11.38559696930207684941841365020489192373274968894013891384043192965540_prd,  &
  19.86529201713763010184485681506434978210283080939980848299152471421751_prd ),&
 (11.71243864112622080163738620993012206688392259049239134593136924664076_prd,  &
  20.42937892542195221143659467613817502213630344239089786009258668146871_prd ) /
!
!  what follows is the hard coded coefficients of the 
!   asymptotic series for the phase function theta(x) of the 
!   Airy functions.  
      data thetacoeff(0:19)  /  &
 1.0000000000000000000000000000000000000000000000000000000000000000000e+00_prd, &
 1.5625000000000000000000000000000000000000000000000000000000000000000e-01_prd, &
 1.7985026041666666666666666666666666666666666666666666666666666666670e-01_prd, &
 1.2638092041015625000000000000000000000000000000000000000000000000000e+00_prd, &
 2.1832866753850664411272321428571428571428571428571428571428571428570e+01_prd, &
 6.9682822536884082688225640190972222222222222222222222222222222222220e+02_prd, &
 3.5553981581391285131262107328935102982954545454545454545454545454550e+04_prd, &
 2.6532584171176254655550180289607781630295973557692307692307692307690e+06_prd, &
 2.7258321302415599342250374093055143021047115325927734375000000000000e+08_prd, &
 3.6894027011098001901607477714297461341843967709471197689280790441180e+10_prd, &
 6.3630204766133750347903292605201682576982217429567275470808932655740e+12_prd, &
 1.3622439180500760352059703427764362988546306819701147192279763874550e+15_prd, &
 3.5446828581078074793552458265811520091905839784775414983950826274890e+17_prd, &
 1.1017990287911060069986723262330428844182307035279722983583949869060e+20_prd, &
 4.0320823577747335533970347823492793114462319968284659862713417937250e+22_prd, &
 1.7159646692716793386038283530387825075493716774249119449042189710410e+25_prd, &
 8.4031035110193005527486652122292612450561213930864781736528036247480e+27_prd, &
 4.6916652616593043608874014133910554079508141416060179915669243125790e+30_prd, &
 2.9625489083114947131526274616960212993262723579957461622065841493850e+33_prd, &
 2.1006649445213587744194779196040385627926101231259943031483704675450e+36_prd /
      data thetacoeff(20:39) / 20*zero /
!
!  the second 50 coeffs are for phi(x).
      data phicoeff(0:19)  /  &
 1.0000000000000000000000000000000000000000000000000000000000000000000e+00_prd, &
-2.1875000000000000000000000000000000000000000000000000000000000000000e-01_prd, &
-2.3811848958333333333333333333333333333333333333333333333333333333330e-01_prd, &
-1.5114471435546875000000000000000000000000000000000000000000000000000e+00_prd, &
-2.4620345711708068847656250000000000000000000000000000000000000000000e+01_prd, &
-7.6086294204038050439622667100694444444444444444444444444444444444440e+02_prd, &
-3.8092128868188640229742635380138050426136363636363636363636363636360e+04_prd, &
-2.8082562244080195275903231679246975825383112980769230769230769230770e+06_prd, &
-2.8607946453262385636628692964222864247858524322509765625000000000000e+08_prd, &
-3.8480790905747179385766298433031973967017085455796297858743106617650e+10_prd, &
-6.6050619870875374085141895250268697180548303405980971690855528178970e+12_prd, &
-1.4087107203786266895474229097071387064564936449547379500775908430420e+15_prd, &
-3.6542984737250173263822582147634056560257268026887776125454859973850e+17_prd, &
-1.1329639450011994200743048058647230246736432348623124181236088148240e+20_prd, &
-4.1371744404875883016541729567285839631712496380598048629271123618470e+22_prd, &
-1.7574349642737663059031534378525691263268308654379228784525651291710e+25_prd, &
-8.5924160506996514557379617019132398803302175426817653569682851557100e+27_prd, &
-4.7906551025465751515669729015000637241952562513029744187686495732900e+30_prd, &
-3.0213269421511401499687820977552075015245020527256257041378966249360e+33_prd, &
-2.1399970937320017557354494737300168515390960226867407271664411223300e+36_prd /
      data phicoeff(20:39) / 20*zero /
!
! the following lines contain data statement for the coefficients of the asymptotic
!   expansions for the zeros and associated function values needed to produce 
!   accurate answer for precisions greater than quad, i.e. 2^{-112}.  enough 
!   coefficients are stored so to ensure octal precision, i.e. 2^{-224}.  
!      data Ucoeff(19:39) /  &
! -.14107259800787276308427861823522682542378736666070937012298625588832e37_prd,&
!  .11157559226376058388241181162252207780072675866049674911684381382474e40_prd,&
! -.97911168966451866992095894172730381052056195537079932657057595139361e42_prd,&
!  .94842188231979773651687611788221221444304429864017500587580906466991e45_prd,&
! -.10093854348840004363421701540951189641241176805162426458768970023668e49_prd,&
!  .11753309898206889209788907835323816047837770192802898892767943766799e52_prd,&
! -.14915259567389695154010536894836306258744098712656167509641682302319e55_prd,&
!  .20555467603941926152452307773581023553674196606652536651923229197765e58_prd,&
! -.30664114828091931546036143434946049203640895201650759126568923937596e61_prd,&
!  .49366102338787427090349132178175476785656098771026760487567560730389e64_prd,&
! -.85527872283563506905396193884078691515189421163063772903051195883576e67_prd,&
!  .15905160493853017875103784933898084128023076207249471188546554365590e71_prd,&
! -.31671480020251898031362069511376069683729168870885141394131419726417e74_prd,&
!  .67377747797473203058970344907089937116595231663364594832661747001111e77_prd,&
! -.15281403392070465160928233963603155027184060115379663405333917341838e81_prd,&
!  .36876222351784858824732282512073352215729923468181255970009084742092e84_prd,&
! -.94505207024597841792499304832642666053323686278446400296025689886898e87_prd,&
!  .25676049507927905036477828913103335013957477586456812093463169718887e91_prd,&
! -.73831918349991133688096513080694039594126308972102658977041222126047e94_prd,&
!  .22434873650609465989916612597264280685508533191672309973604370953703e98_prd,&
! -.71932175167133289253941392314260564935469329383000953020665385234810e101_prd/
!      data Ucoeff(40:55) /  &
!  .24301499022274266015249236229059102519443259535429498372071300028184e105_prd,&
! -.86392200099184256673341753224207184715009085434527689795095151266352e108_prd,&
!  .32277334408133278730034141082298966934072100188969252542528864933608e112_prd,&
! -.12658410453063860217634140848993855557208179826387248492220322139142e116_prd,&
!  .52049980681802453665831970426777630104007284760271492623690409070701e119_prd,&
! -.22415396118038146187210801469410795705798174092757295000371600948203e123_prd,&
!  .10099567175653350699936345320055405124203719932677954083892691964047e127_prd,&
! -.47561519985327666244537756889291936086598881976270611582042240452110e130_prd,&
!  .23387844301594890965483902208040384641369089913587515033974449393995e134_prd,&
! -.11997993650041033217582177048624365958249639549393416213721216792541e138_prd,&
!  .64154920040257821156504337755375966474958297697150253844482194020056e141_prd,&
! -.35726348720185093488728179482093361120107194523287613890849925654197e145_prd,&
!  .20703014851226170160468376381877508456518993988984763894602747782221e149_prd,&
! -.12474625649281036421622524359179945285093096496161906265837264044813e153_prd,&
!  .78099095291498984417321166641290057395110783507772223491883388065302e156_prd,&
! -.50766451666920499286704685800242398987056663490773056939748373429556e160_prd/
!      data Tcoeff(19:39)  / &
!  .14117258064737679737776630556275250408926431644493704674703400857145e37_prd,&
! -.11164642174072109561223350471691552374391433806310651183802082896951e40_prd,&
!  .97967164158278846547438620160557824503041359438794841332630872374930e42_prd,&
! -.94891307580284755277548004980034901717550001626170852847573583227890e45_prd,&
!  .10098610809248076249074036492916612325284053264374591096020664351942e49_prd,&
! -.11758370710196329175686452122768747739546685071872150784191369967919e52_prd,&
!  .14921150984686502643918601323682722977762625135098393735932060011458e55_prd,&
! -.20562942407939128973788970107145954697239949579275764596681522368340e58_prd,&
!  .30674414339703027984557756338766648623061371604751170077497853041336e61_prd,&
! -.49381464389065703514414376124090604029319195122151949195423702788440e64_prd,&
!  .85552600050674514166037335169011816701693895322935495541549028524886e67_prd,&
! -.15909444082473299698105131270096108507658923102224119263418369560478e71_prd,&
!  .31679445060129872330154447996576899972397808928310935503731008478804e74_prd,&
! -.67393606698205551356590737775952562838503676308476217226185171949385e77_prd,&
!  .15284776889635128629958626667274826956672953066901360901017230535376e81_prd,&
! -.36883872857780404454641197328305961049114361355619869034021470060729e84_prd,&
!  .94523667365207400774723728448041810267457304315127521834562030560915e87_prd,&
! -.25680780131046747934900503749660107326570832650658319996932836021029e91_prd,&
!  .73844770114739079149892403045167309500572883020991309765436811625919e84_prd,&
! -.22438568978657876605574244940414470180612253866038210914591946322219e98_prd,&
!  .71943403333451861202742470176857110279884665218133554269689930563214e101_prd /
!      data Tcoeff(40:55)  /  &
! -.24305098890695512130164302767376074435501301582956470312823055101950e105_prd,&
!  .86404361298136368246708141865214768397985490481404698406775721925269e108_prd,&
! -.32281657547773530130641638261260703492461229074644634987917760718557e112_prd,&
!  .12660025574379689825390757955090645221822260387369027230864689425729e116_prd,&
! -.52056314573696814753098687759946586496965657569199355992702143018080e119_prd,&
!  .22418000454826808504041968248387029081392043348043423531235015542335e123_prd,&
! -.10100688701029413642642584650224102377826199264338678362250408468416e127_prd,&
!  .47566573022411084112382308739209248802018314978025349360661979655957e130_prd,&
! -.23390223843342824573557767032239217008469637672278461668515561594488e134_prd,&
!  .11999163732445825923983675048550329573712483824248289866948173690662e138_prd,&
! -.64160922430691576929378390179082298613977749760199117434017886679318e141_prd,&
!  .35729558206957913592353331316564747010295288658097259740502832900235e145_prd,&
! -.20704802099398561273399136516817367415999088767761277008018247421227e149_prd,&
!  .12475661318287886645565405796047851203309187211403798809514130671614e153_prd,&
! -.78105335607384790780096263667849118744101236336911720704817696289821e156_prd,&
!  .50770358431057167077679014158662551964839528596933932658427521736419e160_prd /
!      data Wcoeffs(19:39) /  &
! -.38814345591742149734668498349356519681026833217761869126091260492675e38_prd,&
!  .32371427083820730592997422984643403177773522701009254386004811466743e41_prd,&
! -.29874986827080478884190074254990568828103267869569100228461781316986e44_prd,&
!  .30360634740053951327896972827621158563037858664706363711081949353786e47_prd,&
! -.33825714675286665024140203614169399088635995626398761088900799825628e50_prd,&
!  .41149164273551406585781481488408987782456057258383260258549416260778e53_prd,&
! -.54455986340331835374641221522823255837698570580066433295851004024933e56_prd,&
!  .78130992767230544018414009790655958914552920815980627216875258213508e59_prd,&
! -.12115223587091684946329431505204521385450149548831782255139272257958e63_prd,&
!  .20244592837085139181461609232296606192823980799932370000660702095961e66_prd,&
! -.36356845070938164932191419587043625426144667669878108642458711480165e69_prd,&
!  .69996165929353579451877926547331080690884165497387913985052720353445e72_prd,&
! -.14413113297034043325245482652689576895508908029906780419542674771067e76_prd,&
!  .31672871590345335266091698496695051388432534498125701861139662564097e79_prd,&
! -.74126513717880415662859852045921163300483589588651650409246140259593e82_prd,&
!  .18440849873059519808034797163033300858530685710495395519130980839380e86_prd,&
! -.48676991919685415796644648701954794143568660492618142404503177084697e89_prd,&
!  .13610103187692986437476716347372662183718353515873683134697916324211e93_prd,&
! -.40243417887979252089715153133466607795716506887314640636278752867259e96_prd,&
!  .12565013777935480241848586316006283152879014921176384532124033031005e100_prd,&
! -.41365634264582272778566733965611481020861148242111761647744907714320e103_prd/
!      data Wcoeffs(40:59)  /  &
!  .14339409364180527062863367710702909293538014155644831937447023847458e107_prd,&
! -.52272565695840736902310970199322716034896043916911897826711471370477e110_prd,&
!  .20013873237902089546233112757343855340672136637249651667006730957441e114_prd,&
! -.80388278212226250229539050402383177921686252031963455625680997914909e117_prd,&
!  .33835447680016009318131920319518924659697918603232614321420856900811e121_prd,&
! -.14907484080694089485057416124301611758212349344388791192461825578970e125_prd,&
!  .68682543761177567812666841466566465804229617540851105036999084022986e128_prd,&
! -.33057783816698691465421284889296141763433202701355488119536813033424e132_prd,&
!  .16606585680890010392955925191610451146159841700201344759512414035539e136_prd,&
! -.86991562451838247539863941467506400498257953847383079314747693710280e139_prd,&
!  .47477840071035479070316437198311566899770847203711441099978992848440e143_prd,&
! -.26975139028563609163677868450212082245025416175786556168506457211935e147_prd,&
!  .15942313127360607223331447173078019238938649855332049699892015189284e151_prd,&
! -.97931671254977175938624414519464954227804198086876729834671618925574e154_prd,&
!  .62482875317012139806026314897328136965964374299906322451833626941862e158_prd,&
! -.41376954055676364528233672305143910272597687609280824732944653664345e162_prd,&
!  .28419769324142769069351633035666203091678626692459848096036450446153e166_prd,&
! -.20233105203250752333992061204250782338499709868648694329341733953856e170_prd,&
!  .14921413227682859768600979116852113769192082397308681022730906838764e174_prd,&
! -.11391942318647607278195227387147815982946299255584776067390546283266e178_prd/
!      data Wcoeffs(60:62)  /  &
!  .89984973907118798973274600559964730505886269200285584307716001979151e181_prd,&
! -.73498618581016154263237896162942608870795994021129309881094563967910e185_prd,&
!  .62042034816474031028845699860660079271705962703651243271640215253005e189_prd/
!      data Vcoeff(19:39)  / &
!  .39511749687738754978707186616441860115896523182485334297380695925561e38_prd,&
! -.32923290247609366681382018551721673465195880594473426214142086973247e41_prd,&
!  .30359489943433278235144569435560837233966593957760177297566358869186e44_prd,&
! -.30830152332406270164377583091160563455014524379537218769617073966086e47_prd,&
!  .34325609828559626619691428942715725232658096603901061837756302968756e50_prd,&
! -.41731456300646629062922610457970573676170714541136141310758967872890e53_prd,&
!  .55195180893208079575182955709289525687994646475016335125669817883713e56_prd,&
! -.79150035232067397162841508858543292745122889767009874931157993833688e59_prd,&
!  .12267286410014702060147710311493346807399372162743542592030229492395e63_prd,&
! -.20489465757544862177181168685362400780928284026545992418550424591155e66_prd,&
!  .36781201995018744410586705497584162101937619239291503710300378853588e69_prd,&
! -.70785510224402391504410638973731615282432843867153838660600966190695e72_prd,&
!  .14570328765817175201745344397239061049289639510667166652366926788623e76_prd,&
! -.32007402423228767995646231438096527047320321247086611792310326968654e79_prd,&
!  .74885388950666402410596485880458556983033741343261318201018549562040e82_prd,&
! -.18624012221973572482406403572483861757301929301481060378790454939360e86_prd,&
!  .49146479067201303283191057797168315897937697549653670834510914285792e89_prd,&
! -.13737679563804852903349620097905514534829657189061129536765282302984e93_prd,&
!  .40610325317648937486635390453257288210644048252427882240862813659530e96_prd,&
! -.12676520941322158498322311515387022465292939801517893359670714044848e100_prd,&
!  .41723208208662814474860048359114616247849879135056450584779419025583e103_prd/
!      data Vcoeff(40:59)  /  &
! -.14460228643992977278971715293625872465630777893677611595013226813385e107_prd,&
!  .52702137141948184886975471002292506399568818205669740583669405862891e110_prd,&
! -.20174387491029824961205653853719597884391823201956355101548772468333e114_prd,&
!  .81017853587955248434572097165582819569986494473379223283336066657050e117_prd,&
! -.34094352097537082769224279460429788581422930094799330429529116973719e121_prd,&
!  .15018993996821870455724263440162625429659710408567120834504368444388e125_prd,&
! -.69185020550260382163148603962436395586032754664208939252674040930507e128_prd,&
!  .33294437491009899625612070497418754367170356692121410097534665436023e132_prd,&
! -.16722968863179740044484559468409527225906823206213932532120401016256e136_prd,&
!  .87588665788890625267255395566168013064348940579513872897521595626651e139_prd,&
! -.47797148292096096604328686586996148973995999656389939085032677629810e143_prd,&
!  .27152969647873325149100043985011418074992909890944936124651916757659e147_prd,&
! -.16045372590074827247546573056862140802796751223989742959748936578369e151_prd,&
!  .98552707357503715509221245702668173028253308928381456246148353572071e154_prd,&
! -.62871713691259881989197991638799674760450888458950498498758525415788e158_prd,&
!  .41629728127968126225313221039832645027885966270218693567128257568167e162_prd,&
! -.28590262269286840162369262442491958517609091260359713489594756877926e166_prd,&
!  .20352339449544412644852790819518468781704630082369339335234743302728e170_prd,&
! -.15007817824859664648921028573280959268038609339370901503470055457741e174_prd,&
!  .11456782500469922643539779328058943363839320875262498410359460045474e178_prd/
!      data Vcoeff(60:62)  /  &
! -.90488547197595729727818007599162028667196587795950750687627446320423e181_prd,&
!  .73903139126156436722227750117680141015843739487204686022681600834281e185_prd,&
! -.62377953850258650978985595488693003161283350731492126115310176459383e189_prd/
!      data thetacoeff(20:39)  /  &
! 1.6620414565199836046517241168226679575433914398847140159409431569400e+39_prd, &
! 1.4589768148863538676908338329952770803471443409116858702096237708490e+42_prd, &
! 1.4136706205926967227550391181089542632840298521113599879861436872780e+45_prd, &
! 1.5049528873233485453201090242148583430669331596967888813309286983220e+48_prd, &
! 1.7528120867435543022238293679384047783034582054789241354396665814190e+51_prd, &
! 2.2248798784215759381108095700088082121325362980595660350417563574900e+54_prd, &
! 3.0668742919686650506786294155949844120360694119732382794844730546530e+57_prd, &
! 4.5759897594438856162245163173704124179167067431675218696740068750570e+60_prd, &
! 7.3682324048945997036117127108954093722721949946103451048231900538500e+63_prd, &
! 1.2767812907658639911193679647694549374414268530237897473653855408160e+67_prd, &
! 2.3747413389528063711999564032375036732632838473204649286532194299650e+70_prd, &
! 4.7294599973899606439620494750909194373558101517093261954177214594550e+73_prd, &
! 1.0062840158864202353776785670460809939692662665374140432947800580520e+77_prd, &
! 2.2825722023880581733954080677391959965131449243240891757158807086650e+80_prd, &
! 5.5088575969201769653275088819145994402997486982906377742850251255490e+83_prd, &
! 1.4119574904108397754635319483178352586648916671672757537207984396580e+87_prd, &
! 3.8365603338945820651443721086714857583386907373667502273506193817610e+90_prd, &
! 1.1033246832978464491034681560090717113928219873397757024970797143410e+94_prd, &
! 3.3529399615471696053962311884989125864086206752781566570555462826900e+97_prd, &
! 1.0751426905865614366516033970490417988024797993593296124425204481830e+101_prd /
!      data thetacoeff(40:49)  /  &
! 3.6325759548575941054331531628741592937638711725735797561598681234640e+104_prd, &
! 1.2914958421278365429073565165388490025468863490549642689956743754280e+108_prd, &
! 4.8255989348832298734268326774116915672615870738562487397862875989870e+111_prd, &
! 1.8926320413720882742332339252335781415823127647556584051535791102430e+115_prd, &
! 7.7828653867243241612219242316942961428397330907284697950596299672640e+118_prd, &
! 3.3519372264089624493413195232679066342813817418642368984048705399450e+122_prd, &
! 1.5103632391716812602137633280398852067548262843999179493462357088140e+126_prd, &
! 7.1131556794721283742180920205235953698098271487901179565894695165920e+129_prd, &
! 3.4980302564753714551386271025304835533159465936045523336850630596900e+133_prd, &
! 1.7946000747753342325010185977181141233793656634866192538659890317680e+137_prd /
!      data phicoeff(20:39)  /  &
!-1.6915031381769804103850733555848209612224387842573724614493225104370e+39_prd, &
!-1.4835311087410397492083286676216470036366696291606158301927652269280e+42_prd, &
!-1.4363173833472507948203636105983791470914532060599594653238608453020e+45_prd, &
!-1.5279550958145288037798152480016932257564787055599234667936240458810e+48_prd, &
!-1.7784267946552010527555830684846510215218772178165602333517334638230e+51_prd, &
!-2.2560262434454646323482238905021187368735965582739309243375596398990e+54_prd, &
!-3.1080758268011686600204807563047338098476704125999060010703485766130e+57_prd, &
!-4.6350816361828754091843816015741307407256970145816581103438065469270e+60_prd, &
!-7.4598303934675995061007145208437781401846859095965526853293166387510e+63_prd, &
!-1.2920824883839973738038478102778590132033803794125290485499782279180e+67_prd, &
!-2.4022123670554103535271126405427971447224944735511581081191319646570e+70_prd, &
!-4.7823342996246230871145477576426171365849607028316240761103920136300e+73_prd, &
!-1.0171687597738396277948309273735238244126224786530205309841241554100e+77_prd, &
!-2.3064858246307166204738030138103766616236470199051511300921739815190e+80_prd, &
!-5.5648121928700061582464391625164386860081156002157737088990604346560e+83_prd, &
!-1.4258747425358444009570638240678952414106824061428143662684567461640e+87_prd, &
!-3.8732895967824595508759346648192032120618162030750584346035466479860e+90_prd, &
!-1.1135923286968508441850331229673794325234269780229843580847122796070e+94_prd, &
!-3.3832949359638733345296896827515103441106509123369820515812386269470e+97_prd, &
!-1.0846187498103346877861073639932215030464972161028749862302896323670e+101_prd /
!     data  phicoeff(40:49)  /  &
!-3.6637675896351569613989314774169363221116993261202308931493480926110e+104_prd, &
!-1.3023068683764358850217284313843312241882676687996376761813939376260e+108_prd, &
!-4.8650038107772889723933269035595710492136466820336895421677762354480e+111_prd, &
!-1.9077172322290849802626455124991995446193522466030919121989161940300e+115_prd, &
!-7.8434494940022838542204878691135615680589924478607909220870915929650e+118_prd, &
!-3.3774340943788767024750346018657171672375785744278296573692058467690e+122_prd, &
!-1.5215955884734982790544475883850926084837078168255872870631652278060e+126_prd, &
!-7.1649004190192480023524589812450546706749489342612772092982680431290e+129_prd, &
!-3.5229331179784842655076831037707769835979262101176203206020619820250e+133_prd, &
!-1.8071088131997102426584141687123445370794488782743819670027768650070e+137_prd /
!
!
! end file airy_head
