c	$Log:	D10qmf.f,v $
cvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvc
c        Written by M.E. Brewster and G. Beylkin                            c
cvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvc
c
cvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvc
c                                                                           c
c        This file is a part of                                             c
c        Double Precision Fast Wavelet Transform Library                    c
c        Contains proprietary information supplied by GB Consulting.        c
c        Copyright (C), 1992 GB Consulting. All rights reserved             c
c                                                                           c
cvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvc
c                                                                           c
c        Daubechies' Interval QMF's with lf = 10                            c
c                                                                           c
cvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvc
c
         parameter(d10h1 = 1.95388827352498268d-02)
         parameter(d10h2 =-2.11018340246890410d-02)
         parameter(d10h3 =-1.75328089908056224d-01)
         parameter(d10h4 = 1.66021057645108481d-02)
         parameter(d10h5 = 6.33978963456792064d-01)
         parameter(d10h6 = 7.23407690404040792d-01)
         parameter(d10h7 = 1.99397533976855597d-01)
         parameter(d10h8 =-3.91342493023138436d-02)
         parameter(d10h9 = 2.95194909257062613d-02)
         parameter(d10h10= 2.73330683449987688d-02)
c
         parameter(d10g1 = d10h10)
         parameter(d10g2 =-d10h9 )
         parameter(d10g3 = d10h8 )
         parameter(d10g4 =-d10h7 )
         parameter(d10g5 = d10h6 )
         parameter(d10g6 =-d10h5 )
         parameter(d10g7 = d10h4 )
         parameter(d10g8 =-d10h3 )
         parameter(d10g9 = d10h2 )
         parameter(d10g10=-d10h1 )
c
         parameter(d10s1 = d10h10)
         parameter(d10s2 = d10h9 )
         parameter(d10s3 = d10h8 )
         parameter(d10s4 = d10h7 )
         parameter(d10s5 = d10h6 )
         parameter(d10s6 = d10h5 )
         parameter(d10s7 = d10h4 )
         parameter(d10s8 = d10h3 )
         parameter(d10s9 = d10h2 )
         parameter(d10s10= d10h1 )
c
         parameter(d10r1 = d10g10)
         parameter(d10r2 = d10g9 )
         parameter(d10r3 = d10g8 )
         parameter(d10r4 = d10g7 )
         parameter(d10r5 = d10g6 )
         parameter(d10r6 = d10g5 )
         parameter(d10r7 = d10g4 )
         parameter(d10r8 = d10g3 )
         parameter(d10r9 = d10g2 )
         parameter(d10r10= d10g1 )
c
c        left edge coefficients for the wavelets on the interval
c
	 parameter(d10h1l1 = 9.30249065680007d-01)
	 parameter(d10h1l2 = 3.48887812080551d-01)
	 parameter(d10h1l3 = 1.09857844532039d-01)
	 parameter(d10h1l4 = 2.70102595795740d-02)
	 parameter(d10h1l5 = 7.89732960756336d-03)
	 parameter(d10h1l6 = 7.30085203288116d-03)
c
	 parameter(d10g1l1 =-2.80306275083573d-02)
	 parameter(d10g1l2 = 1.89959635129842d-01)
	 parameter(d10g1l3 =-5.12644668992853d-01)
	 parameter(d10g1l4 = 6.99270350676794d-01)
	 parameter(d10g1l5 =-4.47586084001795d-01)
	 parameter(d10g1l6 = 1.04941595034218d-01)
c
	 parameter(d10h2l1 =-3.09950118813468d-01)
	 parameter(d10h2l2 = 5.98721400818387d-01)
	 parameter(d10h2l3 = 6.20841149492764d-01)
	 parameter(d10h2l4 = 3.72016454988282d-01)
	 parameter(d10h2l5 = 1.45106037854354d-01)
	 parameter(d10h2l6 = 6.26326214289376d-03)
	 parameter(d10h2l7 = 1.68707202112498d-02)
	 parameter(d10h2l8 = 1.56211551792677d-02)
c
	 parameter(d10g2l1 = 6.73638832049647d-02)
	 parameter(d10g2l2 =-3.34247323017128d-01)
	 parameter(d10g2l3 = 5.08631175383699d-01)
	 parameter(d10g2l4 =-1.10494588806689d-02)
	 parameter(d10g2l5 =-6.36731847668189d-01)
	 parameter(d10g2l6 = 4.65621441130433d-01)
	 parameter(d10g2l7 =-3.80020044618953d-02)
	 parameter(d10g2l8 =-3.51873068481518d-02)
c
	 parameter(d10h3l1 = 1.13840147895905d-01)
	 parameter(d10h3l2 =-3.64183181071323d-01)
	 parameter(d10h3l3 = 1.22891616676124d-02)
	 parameter(d10h3l4 = 4.11759020940581d-01)
	 parameter(d10h3l5 = 5.95497344835455d-01)
	 parameter(d10h3l6 = 5.45794427990457d-01)
	 parameter(d10h3l7 = 1.75641618529975d-01)
	 parameter(d10h3l8 =-1.75167127662234d-02)
	 parameter(d10h3l9 = 2.37658104962981d-02)
	 parameter(d10h3l10= 2.20055462407695d-02)
c
	 parameter(d10g3l1 = 1.32731798575127d-01)
	 parameter(d10g3l2 =-4.54456292307280d-01)
	 parameter(d10g3l3 = 2.60414062889921d-01)
	 parameter(d10g3l4 = 4.05012084266653d-01)
	 parameter(d10g3l5 =-8.10804302829188d-03)
	 parameter(d10g3l6 =-6.03127875614836d-01)
	 parameter(d10g3l7 =-3.80390883782336d-02)
	 parameter(d10g3l8 = 4.14939832980376d-01)
	 parameter(d10g3l9 =-5.93866647036237d-02)
	 parameter(d10g3l10=-5.49880676875814d-02)
c
	 parameter(d10h4l1 =-4.09881698078177d-02)
	 parameter(d10h4l2 = 1.43105598180247d-01)
	 parameter(d10h4l3 =-6.77771166568376d-02)
	 parameter(d10h4l4 =-1.74098046608339d-01)
	 parameter(d10h4l5 =-9.55913253619161d-02)
	 parameter(d10h4l6 = 1.51298122028502d-01)
	 parameter(d10h4l7 = 6.35742162858849d-01)
	 parameter(d10h4l8 = 6.82364346487457d-01)
	 parameter(d10h4l9 = 1.96309114076398d-01)
	 parameter(d10h4l10=-3.30199698159135d-02)
	 parameter(d10h4l11= 2.83356203915313d-02)
	 parameter(d10h4l12= 2.62368836477871d-02)
c
	 parameter(d10g4l1 = 2.82879674951203d-02)
	 parameter(d10g4l2 =-1.00335853842818d-01)
	 parameter(d10g4l3 = 8.69568312760546d-02)
	 parameter(d10g4l4 = 7.32261573100512d-02)
	 parameter(d10g4l5 =-9.63150594784019d-02)
	 parameter(d10g4l6 =-2.84763285149986d-01)
	 parameter(d10g4l7 = 7.28483900388855d-01)
	 parameter(d10g4l8 =-5.70843633440164d-01)
	 parameter(d10g4l9 = 5.75777551387549d-03)
	 parameter(d10g4l10= 1.68514280306847d-01)
	 parameter(d10g4l11=-2.15275908907896d-02)
	 parameter(d10g4l12=-1.99331050322670d-02)
c
	 parameter(d10h5l1 = 7.96502953215760d-03)
	 parameter(d10h5l2 =-2.79612200210948d-02)
	 parameter(d10h5l3 = 1.70623859976577d-02)
	 parameter(d10h5l4 = 2.92865547520514d-02)
	 parameter(d10h5l5 = 2.85780699126726d-03)
	 parameter(d10h5l6 =-4.68679327679846d-02)
	 parameter(d10h5l7 =-1.70267747130462d-01)
	 parameter(d10h5l8 = 3.02814787311272d-02)
	 parameter(d10h5l9 = 6.35173346688197d-01)
	 parameter(d10h5l10= 7.20778909411646d-01)
	 parameter(d10h5l11= 1.99546993929864d-01)
	 parameter(d10h5l12=-3.86425641937364d-02)
	 parameter(d10h5l13= 2.94728831510745d-02)
	 parameter(d10h5l14= 2.72899126722730d-02)
c
	 parameter(d10g5l1 = 1.10905509073046d-02)
	 parameter(d10g5l2 =-3.89333564705931d-02)
	 parameter(d10g5l3 = 2.37577600614166d-02)
	 parameter(d10g5l4 = 4.07787598358343d-02)
	 parameter(d10g5l5 = 3.97922616506802d-03)
	 parameter(d10g5l6 =-6.52591672365906d-02)
	 parameter(d10g5l7 =-3.15818779234613d-02)
	 parameter(d10g5l8 =-1.79774085544713d-01)
	 parameter(d10g5l9 = 7.21451673067893d-01)
	 parameter(d10g5l10=-6.37283890275305d-01)
	 parameter(d10g5l11= 1.63201371503406d-02)
	 parameter(d10g5l12= 1.75560082694546d-01)
	 parameter(d10g5l13=-2.11668822097505d-02)
	 parameter(d10g5l14=-1.95991129909960d-02)
c
c
c        right edge coefficients for the wavelets on the interval
c
	 parameter(d10h1r1 = 6.62999479074170d-01)
	 parameter(d10h1r2 = 5.59085311385321d-01)
	 parameter(d10h1r3 =-3.63889571204652d-01)
	 parameter(d10h1r4 =-3.19029241975975d-01)
	 parameter(d10h1r5 =-8.57751614116672d-02)
	 parameter(d10h1r6 = 7.93892294841697d-02)
c
	 parameter(d10g1r1 = 2.70437739574661d-01)
	 parameter(d10g1r2 =-2.09938969700567d-01)
	 parameter(d10g1r3 = 6.23272337812403d-01)
	 parameter(d10g1r4 =-6.20457764547962d-01)
	 parameter(d10g1r5 = 3.23917798889673d-01)
	 parameter(d10g1r6 =-6.65587928623158d-02)
c
	 parameter(d10h2r1 =-1.61597660220198d-01)
	 parameter(d10h2r2 =7.42992243147382d-01)
	 parameter(d10h2r3 = 5.77152170508202d-01)
	 parameter(d10h2r4 = 2.77336027331370d-01)
	 parameter(d10h2r5 = 1.53000717738627d-02)
	 parameter(d10h2r6 =-1.06394287764035d-01)
	 parameter(d10h2r7 =-1.21676962857340d-02)
	 parameter(d10h2r8 = 1.12664705165880d-02)
c
	 parameter(d10g2r1 =-4.46050908029095d-01)
	 parameter(d10g2r2 = 2.53155113707517d-01)
	 parameter(d10g2r3 =-3.81123571374110d-01)
	 parameter(d10g2r4 =-2.93947638271574d-01)
	 parameter(d10g2r5 = 6.48076320959283d-01)
	 parameter(d10g2r6 =-2.85677543463028d-01)
	 parameter(d10g2r7 =-4.44884300370370d-02)
	 parameter(d10g2r8 = 4.11933018027166d-02)
c
	 parameter(d10h3r1 = 2.57668183832902d-01)
	 parameter(d10h3r2 =-3.99518139189476d-02)
	 parameter(d10h3r3 = 1.29065892145702d-02)
	 parameter(d10h3r4 = 4.16370878236539d-01)
	 parameter(d10h3r5 = 6.46937450413553d-01)
	 parameter(d10h3r6 = 5.60842120165848d-01)
	 parameter(d10h3r7 = 4.99570094064730d-03)
	 parameter(d10h3r8 =-1.56948275028866d-01)
	 parameter(d10h3r9 =-2.00948573005717d-02)
	 parameter(d10h3r10= 1.86064898396069d-02)
c
	 parameter(d10g3r1 = 4.09180552893239d-01)
	 parameter(d10g3r2 =-1.42704684118242d-01)
	 parameter(d10g3r3 =-2.08808790654908d-02)
	 parameter(d10g3r4 = 3.89954048302050d-01)
	 parameter(d10g3r5 = 2.05253683392459d-01)
	 parameter(d10g3r6 =-7.19094049670991d-01)
	 parameter(d10g3r7 = 3.11671496559233d-01)
	 parameter(d10g3r8 = 1.76328660872611d-02)
	 parameter(d10g3r9 = 4.03974382136317d-02)
	 parameter(d10g3r10=-3.74053178097194d-02)
c
	 parameter(d10h4r1 =-8.95515895321840d-02)
	 parameter(d10h4r2 = 3.89561653183622d-02)
	 parameter(d10h4r3 = 4.75115715828193d-03)
	 parameter(d10h4r4 =-6.59618873714715d-02)
	 parameter(d10h4r5 = 1.52088133739148d-02)
	 parameter(d10h4r6 = 2.46664460098679d-01)
	 parameter(d10h4r7 = 7.19999812263579d-01)
	 parameter(d10h4r8 = 6.13124028928655d-01)
	 parameter(d10h4r9 = 1.53731945575304d-02)
	 parameter(d10h4r10=-1.72194754255047d-01)
	 parameter(d10h4r11=-2.08385887066427d-02)
	 parameter(d10h4r12= 1.92951352299906d-02)
c
	 parameter(d10g4r1 =-1.41483324949638d-01)
	 parameter(d10g4r2 = 6.06705858875298d-02)
	 parameter(d10g4r3 =-1.09436181509877d-02)
	 parameter(d10g4r4 =-1.40164251811285d-01)
	 parameter(d10g4r5 =-7.84452536680027d-02)
	 parameter(d10g4r6 = 5.61275067935274d-02)
	 parameter(d10g4r7 = 5.91307360532963d-01)
	 parameter(d10g4r8 =-7.44306455679074d-01)
	 parameter(d10g4r9 = 1.99057123734330d-01)
	 parameter(d10g4r10= 4.73021348075758d-02)
	 parameter(d10g4r11= 3.05554413572709d-02)
	 parameter(d10g4r12=-2.82922889500404d-02)
c
	 parameter(d10h5r1 = 1.54658349606428d-02)
	 parameter(d10h5r2 =-6.55924748210238d-03)
	 parameter(d10h5r3 = 2.72809354145640d-03)
	 parameter(d10h5r4 = 1.83064574743921d-02)
	 parameter(d10h5r5 = 1.70829644842848d-02)
	 parameter(d10h5r6 = 2.15602605808064d-02)
	 parameter(d10h5r7 =-3.69252446447861d-02)
	 parameter(d10h5r8 = 2.04533466278825d-01)
	 parameter(d10h5r9 = 7.23363577949272d-01)
	 parameter(d10h5r10= 6.32759044322976d-01)
	 parameter(d10h5r11= 1.64999907224673d-02)
	 parameter(d10h5r12=-1.75167447071151d-01)
	 parameter(d10h5r13=-2.10931150790473d-02)
	 parameter(d10h5r14= 1.95308095764775d-02)
c
	 parameter(d10g5r1 = 1.10487608158616d-02)
	 parameter(d10g5r2 =-4.68591296533507d-03)
	 parameter(d10g5r3 = 1.94894443782314d-03)
	 parameter(d10g5r4 = 1.30780957209880d-02)
	 parameter(d10g5r5 = 1.22040348350435d-02)
	 parameter(d10g5r6 = 1.54026059951628d-02)
	 parameter(d10g5r7 =-1.73701426098803d-01)
	 parameter(d10g5r8 =-1.29883848379415d-02)
	 parameter(d10g5r9 = 6.33600040269075d-01)
	 parameter(d10g5r10=-7.24313753146368d-01)
	 parameter(d10g5r11= 1.99277602218598d-01)
	 parameter(d10g5r12= 3.92925281949075d-02)
	 parameter(d10g5r13= 2.95257216673988d-02)
	 parameter(d10g5r14=-2.73388375937964d-02)
c
c        left edge coefficients for the preconditioner
c
c
	 parameter(d10pc1l1 = 3.74381897097732d+00)
	 parameter(d10pc1l2 =-6.86130506327951d+00)
	 parameter(d10pc2l2 = 1.74974693172980d+00)
	 parameter(d10pc1l3 = 7.18328617252243d+00)
	 parameter(d10pc2l3 =-1.11238615878396d+00)
	 parameter(d10pc3l3 = 1.24209906202460d+00)
	 parameter(d10pc1l4 =-3.71175122969780d+00)
	 parameter(d10pc2l4 = 5.61103164726066d-01)
	 parameter(d10pc3l4 =-2.15159187915299d-01)
	 parameter(d10pc4l4 = 1.04178029341927d+00)
	 parameter(d10pc1l5 = 7.59539231052448d-01)
	 parameter(d10pc2l5 =-1.13629434132728d-01)
	 parameter(d10pc3l5 = 4.30374372338994d-02)
	 parameter(d10pc4l5 =-1.64111182604512d-02)
	 parameter(d10pc5l5 = 1.00158137819069d+00)
c
	 parameter(d10ipc1l1 = 2.67106932186668d-01)
	 parameter(d10ipc1l2 = 1.04740983568271d+00)
	 parameter(d10ipc2l2 = 5.71511217917324d-01)
	 parameter(d10ipc1l3 =-6.06699861398676d-01)
	 parameter(d10ipc2l3 = 5.11828072202827d-01)
	 parameter(d10ipc3l3 = 8.05088765118311d-01)
	 parameter(d10ipc1l4 = 2.62236157351734d-01)
	 parameter(d10ipc2l4 =-2.02108104763034d-01)
	 parameter(d10ipc3l4 = 1.66275217525998d-01)
	 parameter(d10ipc4l4 = 9.59895293006420d-01)
	 parameter(d10ipc1l5 =-5.33628243463184d-02)
	 parameter(d10ipc2l5 = 3.95333905102562d-02)
	 parameter(d10ipc3l5 =-3.18697967363948d-02)
	 parameter(d10ipc4l5 = 1.57280831235459d-02)
	 parameter(d10ipc5l5 = 9.98421118617894d-01)
c
c
c        right edge coefficients for the preconditioner
c
c
	 parameter(d10pc1r1 = 2.46115031751830d-01)
	 parameter(d10pc1r2 = 1.15711698564669d-01)
	 parameter(d10pc2r2 = 1.73425055402063d+00)
	 parameter(d10pc1r3 =-6.83530895889678d-01)
	 parameter(d10pc2r3 =-9.33296176984899d-01)
	 parameter(d10pc3r3 = 1.05011116571047d+00)
	 parameter(d10pc1r4 = 3.27228705645128d-01)
	 parameter(d10pc2r4 = 4.46292264406114d-01)
	 parameter(d10pc3r4 =-5.14911825079710d-02)
	 parameter(d10pc4r4 = 1.01263258859571d+00)
	 parameter(d10pc1r5 =-6.65120199198912d-02)
	 parameter(d10pc2r5 =-8.65341182880006d-02)
	 parameter(d10pc3r5 = 9.18603419630151d-03)
	 parameter(d10pc4r5 =-4.57299142923616d-03)
	 parameter(d10pc5r5 = 1.00041335505017d+00)
c
	 parameter(d10ipc1r1 = 4.06314069027832d+00)
	 parameter(d10ipc1r2 =-2.71098607804586d-01)
	 parameter(d10ipc2r2 = 5.76617950434920d-01)
	 parameter(d10ipc1r3 = 2.40380921975432d+00)
	 parameter(d10ipc2r3 = 5.12474627729226d-01)
	 parameter(d10ipc3r3 = 9.52280132478573d-01)
	 parameter(d10ipc1r4 =-1.07127905061306d+00)
	 parameter(d10ipc2r4 =-2.28071078109366d-01)
	 parameter(d10ipc3r4 = 4.84223307173709d-02)
	 parameter(d10ipc4r4 = 9.87525002910254d-01)
	 parameter(d10ipc1r5 = 2.19717170720690d-01)
	 parameter(d10ipc2r5 = 4.41283087301426d-02)
	 parameter(d10ipc3r5 =-8.52272004867925d-03)
	 parameter(d10ipc4r5 = 4.51407745775100d-03)
	 parameter(d10ipc5r5 = 9.99586815741634d-01)
c