Index: /trunk/LMDZ.PLUTO.old/libf/phypluto/aeroptproperties.F90 =================================================================== --- /trunk/LMDZ.PLUTO.old/libf/phypluto/aeroptproperties.F90 (revision 3352) +++ /trunk/LMDZ.PLUTO.old/libf/phypluto/aeroptproperties.F90 (revision 3353) @@ -32,5 +32,5 @@ ! ============================================================== -! Local variables +! Local variables ! --------------- @@ -247,5 +247,5 @@ if(nuefftabsize.eq.1)then ! addded by RDW !print*,'Warning: no variance range in aeroptproperties' - nuefftab(1)=nueffrad(1,1,1) ! + nuefftab(1)=nueffrad(1,1,1) ! else do i = 0, nuefftabsize-1 @@ -253,16 +253,23 @@ enddo endif - + ! check that radiustab (table.dat) cover the reffrad used for haze : iaer=1 minrad=min(MINVAL(radiustab(1,1,1:nsize(1,1))),MINVAL(radiustab(1,2,1:nsize(1,2)))) maxrad=min(MAXVAL(radiustab(1,1,1:nsize(1,1))),MAXVAL(radiustab(1,2,1:nsize(1,2)))) - IF ((MINVAL(reffrad).LE.minrad).OR.(MAXVAL(reffrad).GE.maxrad)) then + IF ((MINVAL(reffrad).LT.minrad).OR.(MAXVAL(reffrad).GT.maxrad)) then WRITE(*,*) 'Warning: particle size in grid box #' - WRITE(*,*) ig,' is too large to be used by the ' - WRITE(*,*) 'radiative transfer; please extend the ' - WRITE(*,*) 'interpolation grid to larger grain sizes.' + WRITE(*,*) ig,' is larger than optical properties. ' + WRITE(*,*) 'reffrad=',MINVAL(reffrad),'-',MAXVAL(reffrad) WRITE(*,*) 'radiustab=',minrad,'-',maxrad - WRITE(*,*) 'reffrad=',MINVAL(reffrad),'-',MAXVAL(reffrad) - stop + + ! ensure reffrad is within bounds of radiustab + ! WHERE(reffrad.LT.minrad) + ! reffrad=minrad + ! ENDWHERE + ! WHERE(reffrad.GT.maxrad) + ! reffrad=maxrad + ! ENDWHERE + ! WRITE(*,*) 'Truncated reffrad within radiustab bounds:' + ! WRITE(*,*) 'New reffrad=',MINVAL(reffrad),'-',MAXVAL(reffrad) ENDIF @@ -283,5 +290,5 @@ DO gausind=1,ngau drad=radiusr*radgaus(gausind) - radGAUSa(gausind,iaer,idomain)=radiusm-drad + radGAUSa(gausind,iaer,idomain)=radiusm-drad ! formule 2.33 dans these JB @@ -370,5 +377,5 @@ qsqrefVISb(m,gausind,iaer)= & (1-kint)*QVISsQREF(m,iaer,radius_id) + & - kint*QVISsQREF(m,iaer,radius_id+1) + kint*QVISsQREF(m,iaer,radius_id+1) omegVISb(m,gausind,iaer)= & (1-kint)*omegaVIS(m,iaer,radius_id) + & @@ -420,5 +427,5 @@ grid_i=floor(var_tmp) ! grid_i: get index of reffrad in refftab - + IF (grid_i.GE.refftabsize) THEN WRITE(*,*) 'Warning: particle size in grid box #' @@ -428,5 +435,5 @@ grid_i=refftabsize-1 kx = 1. - stop + stop ELSEIF (grid_i.LE.1) THEN WRITE(*,*) 'Warning: particle size in grid box #' @@ -461,5 +468,5 @@ EXP(-dista(j,1,iaer,idomain,gausind) * & dista(j,1,iaer,idomain,gausind) * & - 0.5e0/sizedistk2)/(radiusm-drad) + 0.5e0/sizedistk2)/(radiusm-drad) dista(j,1,iaer,idomain,gausind) = & dista(j,1,iaer,idomain,gausind) / & @@ -502,5 +509,5 @@ ! Convolution: qextVISgrid(j,1,m,iaer) = & - qextVISgrid(j,1,m,iaer) + & + qextVISgrid(j,1,m,iaer) + & weightgaus(gausind) * & ( & @@ -571,5 +578,5 @@ ( & omegrefVISb(gausind,iaer) * & - qrefVISb(gausind,iaer) * & + qrefVISb(gausind,iaer) * & pi*radGAUSb(gausind,iaer,idomain) * & radGAUSb(gausind,iaer,idomain) * & @@ -584,5 +591,5 @@ qrefVISgrid(j,1,iaer)=qrefVISgrid(j,1,iaer) / & - normd(j,1,iaer,idomain) + normd(j,1,iaer,idomain) qscatrefVISgrid(j,1,iaer)=qscatrefVISgrid(j,1,iaer) / & normd(j,1,iaer,idomain) @@ -699,5 +706,5 @@ ) ENDDO - + qrefIRgrid(j,1,iaer)=qrefIRgrid(j,1,iaer) / & normd(j,1,iaer,idomain) @@ -752,6 +759,6 @@ omegaIR3d(ig,lg,m,iaer) = & k1*omegIRgrid(grid_i,1,m,iaer) + & - k2*omegIRgrid(grid_i+1,1,m,iaer) - gIR3d(ig,lg,m,iaer) = & + k2*omegIRgrid(grid_i+1,1,m,iaer) + gIR3d(ig,lg,m,iaer) = & k1*gIRgrid(grid_i,1,m,iaer) + & k2*gIRgrid(grid_i+1,1,m,iaer) @@ -782,3 +789,3 @@ - + Index: /trunk/LMDZ.PLUTO.old/libf/phypluto/aerosol_mod.F90 =================================================================== --- /trunk/LMDZ.PLUTO.old/libf/phypluto/aerosol_mod.F90 (revision 3352) +++ /trunk/LMDZ.PLUTO.old/libf/phypluto/aerosol_mod.F90 (revision 3353) @@ -62,5 +62,6 @@ IF (firstcall) then firstcall=.false. - file_path=trim(datadir)//'/haze_prop/hazemmr.txt' + ! file_path=trim(datadir)//'/haze_prop/hazemmr.txt' + file_path=trim(datadir)//'/haze_prop/dens_haze.txt' open(224,file=file_path,form='formatted') do ifine=1,Nfine @@ -68,5 +69,5 @@ enddo close(224) - print*, 'TB22 read Haze MMR profile' + print*, 'AF24 read Haze MMR profile ',file_path ENDIF @@ -79,5 +80,5 @@ ! --> kg m-3 --> kg/kg do iaer=1,naerkind - if(iaer.eq.iaero_haze.and.1.eq.2) then !TB22 activate/deactivate mmr or part density + if(iaer.eq.iaero_haze.and.1.eq.1) then !TB22 activate/deactivate mmr or part density !print*, 'Haze profile is fixed' do ig=1,ngrid Index: /trunk/LMDZ.PLUTO.old/libf/phypluto/datafile_mod.F90 =================================================================== --- /trunk/LMDZ.PLUTO.old/libf/phypluto/datafile_mod.F90 (revision 3352) +++ /trunk/LMDZ.PLUTO.old/libf/phypluto/datafile_mod.F90 (revision 3353) @@ -14,5 +14,5 @@ ! aerdir stores aerosol properties files (optprop_*dat files) - character(LEN=7),parameter :: aerdir="optprop" + character(LEN=18),parameter :: aerdir="aerosol_properties" ! Data haze properties Index: /trunk/LMDZ.PLUTO.old/libf/phypluto/radii_mod.F90 =================================================================== --- /trunk/LMDZ.PLUTO.old/libf/phypluto/radii_mod.F90 (revision 3352) +++ /trunk/LMDZ.PLUTO.old/libf/phypluto/radii_mod.F90 (revision 3353) @@ -91,5 +91,6 @@ IF (firstcall) then firstcall=.false. - file_path=trim(datadir)//'/haze_prop/hazerad.txt' + file_path=trim(datadir)//'/haze_prop/rad_haze.txt' + ! file_path=trim(datadir)//'/haze_prop/hazerad.txt' open(223,file=file_path,form='formatted') do ifine=1,Nfine @@ -97,5 +98,5 @@ enddo close(223) - print*, 'TB22 READ HAZERAD' + print*, 'AF24 READ HAZERAD ', file_path ENDIF Index: /trunk/LMDZ.PLUTO/libf/phypluto/aeroptproperties.F90 =================================================================== --- /trunk/LMDZ.PLUTO/libf/phypluto/aeroptproperties.F90 (revision 3352) +++ /trunk/LMDZ.PLUTO/libf/phypluto/aeroptproperties.F90 (revision 3353) @@ -178,5 +178,5 @@ INTEGER :: ngrid,nlayer ! Aerosol effective radius used for radiative transfer (meter) - REAL,INTENT(IN) :: reffrad(ngrid,nlayer,naerkind) + REAL :: reffrad(ngrid,nlayer,naerkind) ! Aerosol effective variance used for radiative transfer (n.u.) REAL,INTENT(IN) :: nueffrad(ngrid,nlayer,naerkind) @@ -324,12 +324,19 @@ minrad=min(MINVAL(radiustab(1,1,1:nsize(1,1))),MINVAL(radiustab(1,2,1:nsize(1,2)))) maxrad=min(MAXVAL(radiustab(1,1,1:nsize(1,1))),MAXVAL(radiustab(1,2,1:nsize(1,2)))) - IF ((MINVAL(reffrad).LE.minrad).OR.(MAXVAL(reffrad).GE.maxrad)) then + IF ((MINVAL(reffrad).LT.minrad).OR.(MAXVAL(reffrad).GT.maxrad)) then WRITE(*,*) 'Warning: particle size in grid box #' - WRITE(*,*) ig,' is too large to be used by the ' - WRITE(*,*) 'radiative transfer; please extend the ' - WRITE(*,*) 'interpolation grid to larger grain sizes.' + WRITE(*,*) ig,' is larger than optical properties. ' + WRITE(*,*) 'reffrad=',MINVAL(reffrad),'-',MAXVAL(reffrad) WRITE(*,*) 'radiustab=',minrad,'-',maxrad - WRITE(*,*) 'reffrad=',MINVAL(reffrad),'-',MAXVAL(reffrad) - stop + + ! ensure reffrad is within bounds of radiustab + WHERE(reffrad.LT.minrad) + reffrad=minrad + ENDWHERE + WHERE(reffrad.GT.maxrad) + reffrad=maxrad + ENDWHERE + WRITE(*,*) 'Truncated reffrad within radiustab bounds:' + WRITE(*,*) 'New reffrad=',MINVAL(reffrad),'-',MAXVAL(reffrad) ENDIF Index: /trunk/LMDZ.PLUTO/libf/phypluto/aerosol_mod.F90 =================================================================== --- /trunk/LMDZ.PLUTO/libf/phypluto/aerosol_mod.F90 (revision 3352) +++ /trunk/LMDZ.PLUTO/libf/phypluto/aerosol_mod.F90 (revision 3353) @@ -67,4 +67,5 @@ parameter(Nfine=701) character(len=100) :: file_path + character(len=100) :: file_name real,save :: levdat(Nfine),densdat(Nfine) @@ -74,5 +75,16 @@ IF (firstcall) then firstcall=.false. - file_path=trim(datadir)//'/haze_prop/'//hazemmr_file + + if (hazemmr_file/='None')then + file_name = hazemmr_file + print*, 'Read Haze MMR file: ',hazemmr_file + else if(hazedens_file/='None')then + file_name = hazedens_file + print*, 'Read Haze density: ',hazedens_file + else + STOP "No filename given for haze profile. Either set hazemmr_file or hazedens_file" + endif + + file_path=trim(datadir)//'/haze_prop/'//file_name open(224,file=file_path,form='formatted') do ifine=1,Nfine @@ -80,5 +92,5 @@ enddo close(224) - print*, 'TB22 read Haze MMR profile' + print*, 'Read Haze profile: ',file_path ENDIF @@ -91,5 +103,5 @@ ! --> kg m-3 --> kg/kg do iaer=1,naerkind - if(iaer.eq.iaero_haze.and.1.eq.2) then !TB22 activate/deactivate mmr or part density + if(iaer.eq.iaero_haze.and.hazedens_file/='None') then !AF24 activate/deactivate mmr or part density !print*, 'Haze profile is fixed' do ig=1,ngrid @@ -97,4 +109,5 @@ !from number density in cm-3 profmmr(ig,l)=profmmr(ig,l)*1.e6*4./3.*pi*reffrad(ig,l,iaer)**3*rho_q(i_haze)/(pplay(ig,l)/(r*pt(ig,l))) + ! print*, profmmr(ig,l) enddo enddo Index: /trunk/LMDZ.PLUTO/libf/phypluto/calc_cpp_mugaz.F90 =================================================================== --- /trunk/LMDZ.PLUTO/libf/phypluto/calc_cpp_mugaz.F90 (revision 3352) +++ /trunk/LMDZ.PLUTO/libf/phypluto/calc_cpp_mugaz.F90 (revision 3353) @@ -11,5 +11,5 @@ ! ! Authors -! ------- +! ------- ! Robin Wordsworth (2009) ! A. Spiga: make the routine OK with latest changes in rcm1d @@ -25,5 +25,5 @@ character(len=20),parameter :: myname="calc_cpp_mugaz" - real cpp_c + real cpp_c real mugaz_c @@ -41,5 +41,5 @@ else ! all values at 300 K from Engineering Toolbox - if(igas.eq.igas_N2)then + if(igas.eq.igas_CO2)then mugaz_c = mugaz_c + 44.01*gfrac(igas) elseif(igas.eq.igas_N2)then @@ -59,5 +59,5 @@ elseif(igas.eq.igas_NH3)then mugaz_c = mugaz_c + 17.03*gfrac(igas) - elseif(igas.eq.igas_C2H6)then + elseif(igas.eq.igas_C2H6)then ! C2H6 http://encyclopedia.airliquide.com/Encyclopedia.asp?GasID=28 mugaz_c = mugaz_c + 30.07*gfrac(igas) @@ -92,7 +92,7 @@ else ! all values at 300 K from Engineering Toolbox - if(igas.eq.igas_N2)then + if(igas.eq.igas_CO2)then !cpp_c = cpp_c + 0.744*gfrac(igas) ! @ ~210 K (better for - !Mars conditions) + !Mars conditions) cpp_c = cpp_c + 0.846*gfrac(igas)*44.01/mugaz_c elseif(igas.eq.igas_N2)then Index: /trunk/LMDZ.PLUTO/libf/phypluto/calc_rayleigh.F90 =================================================================== --- /trunk/LMDZ.PLUTO/libf/phypluto/calc_rayleigh.F90 (revision 3352) +++ /trunk/LMDZ.PLUTO/libf/phypluto/calc_rayleigh.F90 (revision 3353) @@ -2,14 +2,14 @@ !================================================================== -! +! ! Purpose ! ------- -! Average the Rayleigh scattering in each band, weighting the +! Average the Rayleigh scattering in each band, weighting the ! average by the blackbody function at temperature tstellar. -! Works for an arbitrary mix of gases (currently N2, N2 and +! Works for an arbitrary mix of gases (currently N2, N2 and ! H2 are possible). -! +! ! Authors -! ------- +! ------- ! Robin Wordsworth (2010) ! Jeremy Leconte (2012): Added option for variable gas. Improved water rayleigh (Bucholtz 1995). @@ -19,14 +19,14 @@ ! --------- ! setspv.F -! +! ! Calls ! ----- ! none -! +! !================================================================== use radinc_h, only: L_NSPECTV use radcommon_h, only: WAVEV, BWNV, DWNV, tstellar, tauray, taurayvar, scalep - use gases_h, only: ngasmx, vgas, gnom, gfrac, igas_N2, igas_H2, & + use gases_h, only: ngasmx, vgas, gnom, gfrac, igas_CO2, igas_H2, & igas_H2O, igas_He, igas_N2, igas_CH4, igas_CO use comcstfi_mod, only: g, mugaz, pi @@ -37,5 +37,5 @@ integer N,Nfine,ifine,igas parameter(Nfine=500.0) - real*8 :: P0 = 9.423D+6 ! Rayleigh scattering reference pressure in pascals. P0 = 93*101325 Pa + real*8 :: P0 = 9.423D+6 ! Rayleigh scattering reference pressure in pascals. P0 = 93*101325 Pa logical typeknown @@ -70,10 +70,10 @@ if((igas/=vgas).and.(gfrac(igas).lt.5.e-2))then print*,'Ignoring ',trim(gnom(igas)),' in Rayleigh scattering '// & - 'as its mixing ratio is less than 0.05.' + 'as its mixing ratio is less than 0.05.' ! ignore variable gas in Rayleigh calculation ! ignore gases of mixing ratio < 0.05 in Rayleigh calculation tauconsti(igas) = 0.0 else - if(igas.eq.igas_N2) then + if(igas.eq.igas_CO2) then ! Hansen 1974 : equation (2.32) tauconsti(igas) = (8.7/g)*1.527*scalep/P0 @@ -82,5 +82,5 @@ tauconsti(igas) = (9.81/g)*8.569E-3*scalep/(P0/93.0) elseif(igas.eq.igas_H2O)then - ! tauconsti(igas) = (10.0/g)*9.22E-3*scalep/101325.0 + ! tauconsti(igas) = (10.0/g)*9.22E-3*scalep/101325.0 tauconsti(igas) = 1.98017E-10*scalep/(g*mugaz*1E4) elseif(igas.eq.igas_H2)then @@ -103,5 +103,5 @@ ! 16.04*1.6726*1E-27 is CH4 molecular mass tauconsti(igas) = 24.*pi**3/(1E5/(1.380648813E-23*273.15))**2 * 4./9. * 1E24 * (1/( g *16.04*1.6726*1E-27)) * scalep - + elseif(igas.eq.igas_CO)then ! see above for explanation @@ -127,7 +127,7 @@ endif - + do N=1,L_NSPECTV - + tausum = 0.0 tauwei = 0.0 @@ -147,5 +147,5 @@ tauvari(igas) = 0.0 else - if(igas.eq.igas_N2)then + if(igas.eq.igas_CO2)then tauvari(igas) = (1.0+0.013/wl**2)/wl**4 elseif(igas.eq.igas_N2)then @@ -153,12 +153,12 @@ elseif(igas.eq.igas_H2O)then ! tauvari(igas) = 1.0/wl**4 ! to be improved... - tauvari(igas) = (5.7918E6/(2.38E2-1/wl**2)+1.679E5/(57.36E0-1/wl**2))**2/wl**4 + tauvari(igas) = (5.7918E6/(2.38E2-1/wl**2)+1.679E5/(57.36E0-1/wl**2))**2/wl**4 elseif(igas.eq.igas_H2)then - tauvari(igas) = 1.0/wl**4 + tauvari(igas) = 1.0/wl**4 ! below is exo_k formula : this tauvari is consistent with commented tauconsti for H2 above ! tauvari(igas) = (8.14E-49+1.28E-50/wl**2+1.61E-51/wl**4) / wl**4 elseif(igas.eq.igas_He)then - tauvari(igas) = 1.0/wl**4 + tauvari(igas) = 1.0/wl**4 elseif(igas.eq.igas_CH4)then tauvari(igas) = (4.6662E-4+4.02E-6/wl**2)**2 / wl**4 @@ -186,5 +186,5 @@ tauweivar=tauweivar+df tausumvar=tausumvar+tauvarvar*df - + enddo TAURAY(N)=tausum/tauwei Index: /trunk/LMDZ.PLUTO/libf/phypluto/callcorrk_pluto_mod.F90 =================================================================== --- /trunk/LMDZ.PLUTO/libf/phypluto/callcorrk_pluto_mod.F90 (revision 3352) +++ /trunk/LMDZ.PLUTO/libf/phypluto/callcorrk_pluto_mod.F90 (revision 3353) @@ -345,6 +345,4 @@ CALL cooling_hcn_c2h2(ngrid,nlayer,pplay, & pt,dtlw_hcn_c2h2) - ! write(*,*) "Not supported yet" - STOP endif Index: /trunk/LMDZ.PLUTO/libf/phypluto/callkeys_mod.F90 =================================================================== --- /trunk/LMDZ.PLUTO/libf/phypluto/callkeys_mod.F90 (revision 3352) +++ /trunk/LMDZ.PLUTO/libf/phypluto/callkeys_mod.F90 (revision 3353) @@ -197,5 +197,6 @@ logical,save :: oldplutocorrk !$OMP THREADPRIVATE(oldplutocorrk) - + logical,save :: oldplutosedim +!$OMP THREADPRIVATE(oldplutosedim) logical,save :: global1d real,save :: szangle Index: /trunk/LMDZ.PLUTO/libf/phypluto/callsedim_pluto.F90 =================================================================== --- /trunk/LMDZ.PLUTO/libf/phypluto/callsedim_pluto.F90 (revision 3353) +++ /trunk/LMDZ.PLUTO/libf/phypluto/callsedim_pluto.F90 (revision 3353) @@ -0,0 +1,156 @@ + SUBROUTINE callsedim_pluto(ngrid,nlay, ptimestep, & + pplev,zlev,pt,pdt,rice_ch4,rice_co, & + pq, pdqfi, pdqsed,pdqs_sed,nq,pphi) + + use radinc_h, only : naerkind + use tracer_h, only: igcm_ch4_ice,igcm_co_ice,radius,rho_q + use comcstfi_mod, only: g + IMPLICIT NONE +!================================================================== +! +! Purpose +! ------- +! Calculates sedimentation of aerosols depending on their +! density and radius. +! +! Authors +! ------- +! F. Forget (1999) +! Tracer generalisation by E. Millour (2009) +! +!================================================================== + +!----------------------------------------------------------------------- +! declarations: +! ------------- + +! +! arguments: +! ---------- + + INTEGER ngrid ! number of horizontal grid points + INTEGER nlay ! number of atmospheric layers + REAL ptimestep ! physics time step (s) + REAL pplev(ngrid,nlay+1) ! pressure at inter-layers (Pa) + REAL pt(ngrid,nlay) ! temperature at mid-layer (K) + REAL pdt(ngrid,nlay) ! tendency on temperature + REAL zlev(ngrid,nlay+1) ! altitude at layer boundaries + REAL pphi(ngrid,nlay) ! geopotential + + +! Traceurs : + integer nq ! number of tracers + real pq(ngrid,nlay,nq) ! tracers (kg/kg) + real pdqfi(ngrid,nlay,nq) ! tendency before sedimentation (kg/kg.s-1) + real pdqsed(ngrid,nlay,nq) ! tendency due to sedimentation (kg/kg.s-1) + real pdqs_sed(ngrid,nq) ! flux at surface (kg.m-2.s-1) + +! local: +! ------ + + INTEGER l,ig, iq + + real zqi(ngrid,nlay) ! to locally store tracers + real zt(ngrid,nlay) ! to locally store temperature (K) + real masse (ngrid,nlay) ! Layer mass (kg.m-2) + real epaisseur (ngrid,nlay) ! Layer thickness (m) + real wq(ngrid,nlay+1) ! displaced tracer mass (kg.m-2) + real rfall_ch4(ngrid,nlay) + real rfall_co(ngrid,nlay) + real rice_ch4(ngrid,nlay) + real rice_co(ngrid,nlay) + + LOGICAL firstcall + SAVE firstcall + DATA firstcall/.true./ + +! ** un petit test de coherence +! -------------------------- + + IF (firstcall) THEN + IF(ngrid.NE.ngrid) THEN + PRINT*,'STOP dans callsedim' + PRINT*,'probleme de dimensions :' + PRINT*,'ngrid =',ngrid + PRINT*,'ngrid =',ngrid + STOP + ENDIF + + firstcall=.false. + ENDIF ! of IF (firstcall) + +!======================================================================= +! Preliminary calculation of the layer characteristics +! (mass (kg.m-2), thickness (m), etc. + + do l=1,nlay + do ig=1, ngrid + masse(ig,l)=(pplev(ig,l) - pplev(ig,l+1)) /g + epaisseur(ig,l)= zlev(ig,l+1) - zlev(ig,l) + zt(ig,l)=pt(ig,l)+pdt(ig,l)*ptimestep + end do + end do + + do iq=1,nq + if(radius(iq).gt.1.e-12) then ! no sedimentation for gases (defined by radius=0) +! Radius values are defined in initracer +! The value of q is updated after the other parameterisations + + do l=1,nlay + do ig=1,ngrid + ! store locally updated tracers + zqi(ig,l)=pq(ig,l,iq)+pdqfi(ig,l,iq)*ptimestep + +! cf sur Mars: +! On affecte un rayon moyen aux poussieres a chaque altitude du type : +! r(z)=r0*exp(-z/H) avec r0=0.8 micron et H=18 km. +! rfall(ig,l)=max( rice(ig,l)*1.5,rdust(ig,l) ) +! Pluton : choix de rfall a la place de radius + if (iq.eq.igcm_ch4_ice) then + ! TB: rfall_ch4(ig,l)=max( rice_ch4(ig,l)*1.5,2.e-7) + rfall_ch4(ig,l)=max( rice_ch4(ig,l),2.e-7) + rfall_ch4(ig,l)=min(rfall_ch4(ig,l),1.e-4) + endif + if (iq.eq.igcm_co_ice) then + rfall_co(ig,l)=max( rice_co(ig,l),2.e-7) + rfall_co(ig,l)=min(rfall_co(ig,l),1.e-4) + endif + enddo + enddo ! of do l=1,nlay + +!======================================================================= +! Calculate the transport due to sedimentation for each tracer + + if (iq.eq.igcm_ch4_ice) then + !if (iceparty.and.(iq.eq.igcm_ch4_ice)) then + call newsedim_pluto(ngrid,nlay,ngrid*nlay,ptimestep, & + pplev,masse,epaisseur,zt,rfall_ch4,rho_q(iq),zqi,wq,pphi) + else if (iq.eq.igcm_co_ice) then + call newsedim_pluto(ngrid,nlay,ngrid*nlay,ptimestep, & + pplev,masse,epaisseur,zt,rfall_co,rho_q(iq),zqi,wq,pphi) + else if ((radius(iq).gt.0.)) then ! haze tracers + call newsedim_pluto(ngrid,nlay,1,ptimestep, & + pplev,masse,epaisseur,zt,radius(iq),rho_q(iq),zqi,wq,pphi) + endif + +!======================================================================= +! Calculate the tendencies + + do ig=1,ngrid +! Ehouarn: with new way of tracking tracers by name, this is simply + pdqs_sed(ig,iq)=wq(ig,1)/ptimestep + end do + + DO l = 1, nlay + DO ig=1,ngrid + pdqsed(ig,l,iq)=(zqi(ig,l)- & + (pq(ig,l,iq) + pdqfi(ig,l,iq)*ptimestep))/ptimestep + ENDDO + ENDDO + + endif ! of if(radius(iq).gt.1.e-12) + enddo ! of do iq=1,nq + + RETURN + END + Index: /trunk/LMDZ.PLUTO/libf/phypluto/datafile_mod.F90 =================================================================== --- /trunk/LMDZ.PLUTO/libf/phypluto/datafile_mod.F90 (revision 3352) +++ /trunk/LMDZ.PLUTO/libf/phypluto/datafile_mod.F90 (revision 3353) @@ -25,4 +25,6 @@ character(len=300),save :: hazerad_file character(len=300),save :: hazemmr_file + character(len=300),save :: hazedens_file + end module datafile_mod Index: /trunk/LMDZ.PLUTO/libf/phypluto/inifis_mod.F90 =================================================================== --- /trunk/LMDZ.PLUTO/libf/phypluto/inifis_mod.F90 (revision 3352) +++ /trunk/LMDZ.PLUTO/libf/phypluto/inifis_mod.F90 (revision 3353) @@ -13,5 +13,5 @@ use radcommon_h, only: ini_radcommon_h use radii_mod, only: radfixed, Nmix_n2 - use datafile_mod, only: datadir, hazeprop_file, hazerad_file, hazemmr_file + use datafile_mod, only: datadir,hazeprop_file,hazerad_file,hazemmr_file,hazedens_file use comdiurn_h, only: sinlat, coslat, sinlon, coslon use comgeomfi_h, only: totarea, totarea_planet @@ -148,8 +148,11 @@ if (is_master) write(*,*) "Haze mmr datafile" - hazemmr_file="hazemmr.txt" ! default file + hazemmr_file="None" ! default file call getin_p("hazemmr_file",hazemmr_file) if (is_master) write(*,*) trim(rname)//" hazemmr_file = ",trim(hazemmr_file) - + if (is_master) write(*,*) "Haze density datafile" + hazedens_file="None" ! default file + call getin_p("hazedens_file",hazedens_file) + if (is_master) write(*,*) trim(rname)//" hazedens_file = ",trim(hazedens_file) if (is_master) write(*,*) trim(rname)//& @@ -312,16 +315,4 @@ call getin_p("UseTurbDiff",UseTurbDiff) if (is_master) write(*,*) trim(rname)//": UseTurbDiff = ",UseTurbDiff - - if (is_master) write(*,*) trim(rname)//": use vdifc from old Pluto ?" - oldplutovdifc=.true. ! default value - call getin_p("oldplutovdifc",oldplutovdifc) - if (is_master) write(*,*) trim(rname)//": oldplutovdifc = ",oldplutovdifc - - if (is_master) write(*,*) trim(rname)//& - ": call pluto.old correlated-k radiative transfer ?" - oldplutocorrk=.true. ! default value - call getin_p("oldplutocorrk",oldplutocorrk) - if (is_master) write(*,*) trim(rname)//": oldplutocorrk = ",oldplutocorrk - if (is_master) write(*,*) trim(rname)//": call convective adjustment ?" @@ -636,4 +627,22 @@ " thresh_non2 = ",thresh_non2 + ! use Pluto.old routines + if (is_master) write(*,*) trim(rname)//": use vdifc from old Pluto ?" + oldplutovdifc=.true. ! default value + call getin_p("oldplutovdifc",oldplutovdifc) + if (is_master) write(*,*) trim(rname)//": oldplutovdifc = ",oldplutovdifc + + if (is_master) write(*,*) trim(rname)//& + ": call pluto.old correlated-k radiative transfer ?" + oldplutocorrk=.true. ! default value + call getin_p("oldplutocorrk",oldplutocorrk) + if (is_master) write(*,*) trim(rname)//": oldplutocorrk = ",oldplutocorrk + + if (is_master) write(*,*) trim(rname)//& + ": call pluto.old sedimentation ?" + oldplutosedim=.true. ! default value + call getin_p("oldplutosedim",oldplutosedim) + if (is_master) write(*,*) trim(rname)//": oldplutosedim = ",oldplutosedim + !*************************************************************** !! Haze options @@ -707,4 +716,39 @@ if (is_master)write(*,*)trim(rname)//& "nb_monomer = ",nb_monomer + + if (is_master)write(*,*)trim(rname)//& + "fixed gaseous CH4 mixing ratio for rad transfer ?" + ch4fix=.false. ! default value + call getin_p("ch4fix",ch4fix) + if (is_master)write(*,*)trim(rname)//& + " ch4fix = ",ch4fix + if (is_master)write(*,*)trim(rname)//& + "fixed gaseous CH4 mixing ratio for rad transfer ?" + vmrch4fix=0.5 ! default value + call getin_p("vmrch4fix",vmrch4fix) + if (is_master)write(*,*)trim(rname)//& + " vmrch4fix = ",vmrch4fix + vmrch4_proffix=.false. ! default value + call getin_p("vmrch4_proffix",vmrch4_proffix) + if (is_master)write(*,*)trim(rname)//& + " vmrch4_proffix = ",vmrch4_proffix + + if (is_master)write(*,*)trim(rname)//& + "call specific cooling for radiative transfer ?" + cooling=.false. ! default value + call getin_p("cooling",cooling) + if (is_master)write(*,*)trim(rname)//& + " cooling = ",cooling + + if (is_master)write(*,*)trim(rname)//& + "NLTE correction for methane heating rates?" + nlte=.false. ! default value + call getin_p("nlte",nlte) + if (is_master)write(*,*)trim(rname)//& + " nlte = ",nlte + strobel=.false. ! default value + call getin_p("strobel",strobel) + if (is_master)write(*,*)trim(rname)//& + " strobel = ",strobel if (is_master)write(*,*)trim(rname)//& Index: /trunk/LMDZ.PLUTO/libf/phypluto/physiq_mod.F90 =================================================================== --- /trunk/LMDZ.PLUTO/libf/phypluto/physiq_mod.F90 (revision 3352) +++ /trunk/LMDZ.PLUTO/libf/phypluto/physiq_mod.F90 (revision 3353) @@ -55,6 +55,7 @@ n2cond,nearn2cond,noseason_day,conservn2, & convergeps,kbo,triton,paleo,paleoyears, & - carbox, methane, oldplutovdifc, oldplutocorrk, & - aerohaze,haze_proffix,source_haze, & + carbox, methane,& + oldplutovdifc,oldplutocorrk,oldplutosedim, & + aerohaze,haze_proffix,source_haze,& season, sedimentation,generic_condensation, & specOLR, & @@ -979,4 +980,5 @@ cloudfrac,totcloudfrac,.false., & firstcall,lastcall) + albedo_equivalent(1:ngrid)=albedo(1:ngrid,1) else call callcorrk(ngrid,nlayer,pq,nq,qsurf, & @@ -1480,15 +1482,4 @@ end if - ! if (.not. water) then - ! Compute GCS (Generic Condensable Specie) cloud fraction. For now we can not have both water cloud fraction and GCS cloud fraction - ! Water is the priority - ! If you have set water and generic_condensation, then cloudfrac will be water cloudfrac - ! - ! If you have set generic_condensation (and not water) and you have set several GCS - ! then cloudfrac will be only the cloudfrac of the last generic tracer - ! (Because it is rewritten every tracer in the loop) - ! - ! Maybe one should create a cloudfrac_generic(ngrid,nlayer,nq) with 3 dimensions, the last one for tracers - ! Let's loop on tracers cloudfrac(:,:)=0.0 @@ -1507,6 +1498,4 @@ endif !generic_condensation - !Generic Rain !AF24: removed - ! Sedimentation. if (sedimentation) then @@ -1515,11 +1504,14 @@ zdqssed(1:ngrid,1:nq) = 0.0 - ! if(watertest)then !AF24: removed - - call callsedim(ngrid,nlayer,ptimestep, & + if (oldplutosedim)then + call callsedim_pluto(ngrid,nlayer,ptimestep, & + pplev,zzlev,pt,pdt,rice_ch4,rice_co, & + pq,pdq,zdqsed,zdqssed,nq,pphi) + + else + call callsedim(ngrid,nlayer,ptimestep, & pplev,zzlev,pt,pdt,pq,pdq, & zdqsed,zdqssed,nq) - - ! if(watertest)then !AF24: removed + endif ! Whether it falls as rain or snow depends only on the surface temperature @@ -1527,12 +1519,5 @@ dqsurf(1:ngrid,1:nq) = dqsurf(1:ngrid,1:nq) + zdqssed(1:ngrid,1:nq) -!! call writediagfi(ngrid,"callsedim_post_dqsurf"," "," ",2,dqsurf(1:ngrid,igcm_h2o_gas)) - - ! ! Test water conservation !AF24: removed - end if ! end of 'sedimentation' - -!! call writediagfi(ngrid,"mass_redist_pre_dqsurf"," "," ",2,dqsurf(1:ngrid,igcm_h2o_gas)) -!! call writediagfi(ngrid,"mass_redist_pre_qsurf"," "," ",2,qsurf(1:ngrid,igcm_h2o_gas)) ! --------------- @@ -2096,4 +2081,5 @@ !call wstats(ngrid,"ALB_1st","First Band Surface albedo"," ",2,albedo(:,1)) call wstats(ngrid,"p","Pressure","Pa",3,pplay) + call wstats(ngrid,"emis","Emissivity","",2,emis) call wstats(ngrid,"temp","Atmospheric temperature","K",3,zt) call wstats(ngrid,"u","Zonal (East-West) wind","m.s-1",3,zu) @@ -2157,4 +2143,5 @@ endif + call writediagfi(ngrid,"emis","Emissivity","",2,emis) call writediagfi(ngrid,"temp","temperature","K",3,zt) call writediagfi(ngrid,"teta","potential temperature","K",3,zh) Index: /trunk/LMDZ.PLUTO/libf/phypluto/radii_mod.F90 =================================================================== --- /trunk/LMDZ.PLUTO/libf/phypluto/radii_mod.F90 (revision 3352) +++ /trunk/LMDZ.PLUTO/libf/phypluto/radii_mod.F90 (revision 3353) @@ -106,5 +106,5 @@ enddo close(223) - print*, 'TB22 READ HAZERAD' + print*, 'Read hazerad from ',file_path ENDIF Index: /trunk/LMDZ.PLUTO/util/compile =================================================================== --- /trunk/LMDZ.PLUTO/util/compile (revision 3353) +++ /trunk/LMDZ.PLUTO/util/compile (revision 3353) @@ -0,0 +1,59 @@ +source ~/.bashrc +# The following script can be used to compile one of the utilities +# program. Example of use : +# > compile concat +# > compile zrecast + +# pgf90 -Bstatic $1.F90 \ +#-I/distrib/local/netcdf/pgi_7.1-6_32/include \ +#-L/distrib/local/netcdf/pgi_7.1-6_32/lib -lnetcdf -o $1.e + +#pgf90 $1.F90 \ +gfortran $1.F90 \ +-I$NETCDF/include \ +-L$NETCDF/lib -lnetcdff -o $1.e + +# Before running that on you computer you might want to change : +# 1) replace "pgf90" with the name of your favorite compiler +# (you may also add some non-agressive optimization options e.g. -O2) +# 2) replace "/distrib/local/netcdf/pgi_7.1-6_32/lib" with the +# address of the +# directory that contains the NetCDF library (file libnetcdf.a that can +# be obtained for free on +# http://www.unidata.ucar.edu/packages/netcdf/index.html +# (see user manual) +# +# 3) Replace "/distrib/local/netcdf/pgi_7.1-6_32/lib" with the address of the +# directory that contains the NetCDF include file "netcdf.inc" +# that can be obtained at the web address above. +# +# 4) The "-Bstatic" option is here to ensure that the executable will +# work on any Linux machine (only necessary if you want to export the +# executable from a machine to another). + + +#ifort zrecast.F90 \ +#-I/donnees/emlmd/netcdf64-4.0.1_gfortran/include \ +#-L/donnees/emlmd/netcdf64-4.0.1_gfortran/lib -lnetcdf -o zrecast.e + +#ifort $1.F90 \ +#-I/donnees/emlmd/netcdf64-4.0.1_ifort/include \ +#-L/donnees/emlmd/netcdf64-4.0.1_ifort/lib -lnetcdf -o $1.e + + + + +#module purge +##module load comp-intel/2016.2.181 +##module load comp-intel/2015.3.187 +#module load comp-intel/2018.0.128 +#module load mpi-sgi/mpt.2.12r26 +#module load hdf4/4.2.12 +#module load hdf5/1.8.18_mpt +#module load netcdf/4.4.1.1_mpt +#module load szip/2.1.1 + +#ifort zrecast_plut.F90 \ +#-I/nasa/netcdf/4.4.1.1_mpt/include \ +#-L/nasa/netcdf/4.4.1.1_mpt/lib -lnetcdff -lnetcdf -o zrecast_plut.e + Index: /trunk/LMDZ.PLUTO/util/zrecast.def =================================================================== --- /trunk/LMDZ.PLUTO/util/zrecast.def (revision 3353) +++ /trunk/LMDZ.PLUTO/util/zrecast.def (revision 3353) @@ -0,0 +1,42 @@ +diagfi.nc +all + +2 +no +35 +10 +30 +60 +100 +200 +500 +1000 +1500 +2000 +3000 +4000 +6000 +10000 +13000 +16000 +20000 +25000 +30000 +40000 +50000 +70000 +90000 +110000 +130000 +150000 +170000 +190000 +210000 +230000 +260000 +300000 +350000 +400000 +450000 +500000 + Index: /trunk/LMDZ.PLUTO/util/zrecast_P.def =================================================================== --- /trunk/LMDZ.PLUTO/util/zrecast_P.def (revision 3353) +++ /trunk/LMDZ.PLUTO/util/zrecast_P.def (revision 3353) @@ -0,0 +1,10 @@ +diagfi.nc +all + +1 +yes +0.0001 +1 +30 + + Index: /trunk/LMDZ.PLUTO/util/zrecast_S.def =================================================================== --- /trunk/LMDZ.PLUTO/util/zrecast_S.def (revision 3353) +++ /trunk/LMDZ.PLUTO/util/zrecast_S.def (revision 3353) @@ -0,0 +1,34 @@ +diagfi.nc +all + +3 +no +27 +10 +30 +60 +100 +200 +500 +1000 +1500 +2000 +3000 +4000 +6000 +10000 +13000 +16000 +20000 +25000 +30000 +40000 +50000 +70000 +90000 +110000 +130000 +150000 +170000 +190000 + Index: /trunk/LMDZ.PLUTO/util/zrecast_plut.F90 =================================================================== --- /trunk/LMDZ.PLUTO/util/zrecast_plut.F90 (revision 3353) +++ /trunk/LMDZ.PLUTO/util/zrecast_plut.F90 (revision 3353) @@ -0,0 +1,9416 @@ + + +program zrecast + +! This program reads 4D (lon-lat-alt-time) fields from GCM output files +! (ie: diagfi.nc time series or concat.nc or stats.nc files) and, by +! integrating the hydrostatic equation, recasts data along the vertical +! direction. +! The vertical coordinate can be either 1) pressure, 2) above areoid +! altitudes, 3) above local surface altitudes or 4) distance to center of +! the planet. Some interpolation along the vertical direction is also +! done, following instructions given by user (levels may be specified +! or given as minimu,maximum and number of levels). +! For "above areoid altitudes" output, Atmospheric pressure is added to +! output dataset; for "pressure coordinate" outputs, the above areoid +! altitude of pressure is added to output dataset. +! +! Minimal requirements and dependencies: +! The dataset must include the following data: +! - surface pressure +! - atmospheric temperature +! - hybrid coordinates aps() and bps(), or sigma levels() (see section 1.3.2) +! - ground geopotential (in input file; if not found, it is sought +! in a 'diagfi.nc' file. If not found there, it is then sought in +! a 'phisinit.nc' file (see section 1.3.3 of program) +! +! - When integration the hydrostatic equation, we assume that R, the molecular +! Gas Constant, may not be constant, so it is computed as +! R=P/(rho*T) (P=Pressure, rho=density, T=temperature) +! If 'rho' is not available, then we use a constant R (see section 2.2) +! +! WARNING: Asking for many points along the vertical direction quickly +! leads to HUGE output files. +! +! EM 01/2006 : Corrected a bug in vertical (log) interpolation for pressure +! and density +! EM 10/2006 : Modified program so that it can now process 'stats.nc' +! files obtained from British GCM (ie: vertical coordinate +! given as sigma levels and geopotential read from file +! 'phisinit.nc') +! EM 02/2007 : Changed behavior for "altitude above surface" case +! (for MCD RMS computation). Number of levels is then set as +! number of levels in initial file, +! and the new set of above surface levels follow a more elaborate +! distribution (see build_zs.F90 routine). +! EM 08/2009 : User may now specify values of each vertical level, +! or just min,max and number of levels (as before) +! EM 01/2010 : Corrected bug in 'zs_coord_interp' to correctly handle the case +! when interpolating log-wise and the density field is not +! available. +! EM 03/2011 : Add possibility to have outputs as distance to center +! of planet +implicit none + +include "netcdf.inc" ! NetCDF definitions + +character (len=128) :: infile ! input file name (diagfi.nc or stats.nc format) +character (len=128) :: infile2 ! second input file (may be needed for 'phisini') +character (len=128) :: outfile ! output file name + +character (len=64) :: text ! to store some text +character (len=64) :: tmpvarname ! temporarily store a variable name +integer tmpvarid ! temporarily store a variable ID +integer tmpdimid ! temporarily store a dimension ID +integer tmpndims ! temporarily store # of dimensions of a variable +integer infid ! NetCDF input file ID (of diagfi.nc or stats.nc format) +integer infid2 ! NetCDF input file which contains 'phisini' dataset (diagfi.nc) +integer nbvarinfile ! # of variables in input file +integer nbattr ! # of attributes of a given variable in input file +integer nbvar4dinfile ! # of 4D (lon,lat,alt,time) variables in input file +integer outfid ! NetCDF output file ID +integer lon_dimid,lat_dimid,alt_dimid,time_dimid ! NetCDF dimension IDs +integer lon_varid,lat_varid,alt_varid,time_varid +integer gcm_layers_dimid ! NetCDF dimension ID for # of layers in GCM +integer sigma_varid,aps_varid,bps_varid +integer za_varid,p_varid ! above areoid and pressure data IDs + + + +integer ps_varid ! surface pressure data ID +integer,dimension(4) :: datashape ! shape of 4D datasets +integer,dimension(3) :: surfdatashape ! shape of 3D (surface+time) datasets + +real :: miss_val=-9.99e+33 ! special "missing value" to specify missing data +real,parameter :: miss_val_def=-9.99e+33 ! default value for "missing value" +character (len=64), dimension(:), allocatable :: var +! var(): names of variables that will be processed +integer nbvar ! # of variables to process +integer,dimension(:),allocatable :: var_id ! IDs of variables var() (in outfile) +real,dimension(:),allocatable :: lon ! longitude +integer lonlength ! # of grid points along longitude +real,dimension(:),allocatable :: lat ! latitude +integer latlength ! # of grid points along latitude +integer altlength ! # of grid point along altitude (of input datasets) +real,dimension(:),allocatable :: time ! time +integer timelength ! # of points along time +real,dimension(:),allocatable :: aps,bps ! hybrid vertical coordinates +real,dimension(:),allocatable :: sigma ! sigma levels +real,dimension(:,:),allocatable :: phisinit ! Ground geopotential +real,dimension(:,:,:),allocatable :: ps ! GCM surface pressure +real,dimension(:,:,:,:),allocatable :: press ! GCM atmospheric pressure +real,dimension(:,:,:,:),allocatable :: temp ! GCM atmospheric temperature +real,dimension(:,:,:,:),allocatable :: rho ! GCM atmospheric density +real,dimension(:,:,:,:),allocatable :: za_gcm ! GCM above areoid levels (m) +real,dimension(:,:,:,:),allocatable :: zs_gcm ! GCM above surface heights (m) +real,dimension(:,:,:,:),allocatable :: ra_gcm ! radial distance (m) to + ! center of Mars, (of GCM grid points) +real,dimension(:,:,:,:),allocatable :: indata ! to store a GCM 4D dataset +real,dimension(:,:,:,:),allocatable :: outdata ! to store a 4D dataset +integer ierr ! NetCDF routines return code +integer i,j,ilon,ilat,ilev,itim ! for loops + +integer ztype ! Flag for vertical coordinate of output +! ztype=1: pressure ztype=2: above areoid ztype=3: above local surface +! ztype=4: distance to center of planet +integer nblev ! # of levels (along vertical coordinate) for output data +real pmin,pmax ! min and max values for output pressure coordinate +real,dimension(:),allocatable :: plevel ! Pressure levels for output data +real zamin,zamax ! min and max values for output above areoid coordinate +real,dimension(:),allocatable :: zareoid ! Above areoid heights for output data +real,dimension(:),allocatable :: zsurface ! Above surface heights for output +real,dimension(:),allocatable :: zradius ! distance to center of planet +logical :: have_rho ! Flag: true if density 'rho' is available +logical :: have_sigma ! Flag: true if sigma levels are known (false if hybrid + ! coordinates are used) +logical :: auto_vert_levels ! Flag: true if the positions of vertical levels + ! has to be computed; false if these are given + ! by the user +!=============================================================================== +! 1. Input parameters +!=============================================================================== + +!=============================================================================== +! 1.1 Input file +!=============================================================================== + +write(*,*) "" +write(*,*) " Program valid for diagfi.nc, concatnc.nc and stats.nc files" +write(*,*) "Enter input file name:" + +read(*,'(a128)') infile +write(*,*) "" + +! open input file + +ierr = NF_OPEN(infile,NF_NOWRITE,infid) +if (ierr.ne.NF_NOERR) then + write(*,*) 'ERROR: Pb opening file ',trim(infile) + write(*,*) NF_STRERROR(ierr) + stop "" +endif + +!=============================================================================== +! 1.2 Get # and names of variables in input file +!=============================================================================== + +ierr=NF_INQ_NVARS(infid,nbvarinfile) +if (ierr.ne.NF_NOERR) then + write(*,*) 'ERROR: Failed geting number of variables from file' + write(*,*) NF_STRERROR(ierr) + stop +endif + +write(*,*)" The following variables have been found:" +nbvar4dinfile=0 +do i=1,nbvarinfile + ! get name of variable # i + ierr=NF_INQ_VARNAME(infid,i,tmpvarname) + ! check if it is a 4D variable + ierr=NF_INQ_VARNDIMS(infid,i,tmpndims) + if (tmpndims.eq.4) then + nbvar4dinfile=nbvar4dinfile+1 + write(*,*) trim(tmpvarname) + endif +enddo + +allocate(var(nbvar4dinfile),stat=ierr) +if (ierr.ne.0) then + write(*,*) "Error! failed memory allocation of var(nbvar4dinfile)" + stop +endif + +write(*,*) "" +write(*,*) "Which variable do you want to keep?" +write(*,*) "all or list of (separated by s)" +write(*,*) "(an empty line , i.e: just , implies end of list)" +nbvar=0 +read(*,'(a64)') tmpvarname +do while ((tmpvarname.ne.' ').and.(trim(tmpvarname).ne.'all')) + ! check if tmpvarname is valid + ierr=NF_INQ_VARID(infid,tmpvarname,tmpvarid) + if (ierr.eq.NF_NOERR) then ! valid name + ! also check that it is indeed a 4D variable + ierr=NF_INQ_VARNDIMS(infid,tmpvarid,tmpndims) + if (tmpndims.eq.4) then + nbvar=nbvar+1 + var(nbvar)=tmpvarname + else + write(*,*) 'Error: ',trim(tmpvarname),' is not a 4D variable' + write(*,*) ' (we''ll skip that one)' + endif + else ! invalid name + write(*,*) 'Error: ',trim(tmpvarname),' is not a valid name' + write(*,*) ' (we''ll skip that one)' + endif + read(*,'(a64)') tmpvarname +enddo + +! handle "all" case +if (tmpvarname.eq.'all') then + nbvar=0 + do i=1,nbvarinfile + ! look for 4D variables + ierr=NF_INQ_VARNDIMS(infid,i,tmpndims) + if (tmpndims.eq.4) then + nbvar=nbvar+1 + ! get the corresponding name + ierr=NF_INQ_VARNAME(infid,i,tmpvarname) + var(nbvar)=tmpvarname + endif + enddo +endif + +! Check that there is at least 1 variable to process +if (nbvar.eq.0) then + write(*,*) 'No variables to process !?' + write(*,*) 'Might as well stop here' + stop "" +else + write(*,*) "" + write(*,*) 'OK, the following variables will be processed:' + do i=1,nbvar + write(*,*) var(i) + enddo +endif + +!=============================================================================== +! 1.3 Get grids in lon,lat,alt,time, +! as well as hybrid coordinates aps() and bps() (or sigma levels sigma()) +! and phisinit() from input file +!=============================================================================== + +! 1.3.1 longitude, latitude, altitude and time + +! latitude +ierr=NF_INQ_DIMID(infid,"latitude",tmpdimid) +if (ierr.ne.NF_NOERR) then + write(*,*) "Could not get latitude dimension ID" + write(*,*) " looking for lat dimension instead... " + ierr=NF_INQ_DIMID(infid,"lat",tmpdimid) + if (ierr.ne.NF_NOERR) then + stop "Error: Failed to get lat dimension ID" + else + ierr=NF_INQ_VARID(infid,"lat",tmpvarid) + if (ierr.ne.NF_NOERR) then + stop "Error: Failed to get lat ID" + else + ierr=NF_INQ_DIMLEN(infid,tmpdimid,latlength) + if (ierr.ne.NF_NOERR) then + stop "Error: Failed to get lat length" + else + allocate(lat(latlength),stat=ierr) + if (ierr.ne.0) then + write(*,*) "Error: Failed to allocate lat(latlength)" + write(*,*) " latlength=",latlength + stop + endif + ierr=NF_GET_VAR_REAL(infid,tmpvarid,lat) + if (ierr.ne.NF_NOERR) then + stop "Error: Failed reading lat" + endif + endif + endif + endif +else + ierr=NF_INQ_VARID(infid,"latitude",tmpvarid) + if (ierr.ne.NF_NOERR) then + stop "Error: Failed to get latitude ID" + else + ierr=NF_INQ_DIMLEN(infid,tmpdimid,latlength) + if (ierr.ne.NF_NOERR) then + stop "Error: Failed to get latitude length" + else + allocate(lat(latlength),stat=ierr) + if (ierr.ne.0) then + write(*,*) "Error: Failed to allocate lat(latlength)" + write(*,*) " latlength=",latlength + stop + endif + ierr=NF_GET_VAR_REAL(infid,tmpvarid,lat) + if (ierr.ne.NF_NOERR) then + stop "Error: Failed reading latitude" + endif + endif + endif +endif + +! longitude +ierr=NF_INQ_DIMID(infid,"longitude",tmpdimid) +if (ierr.ne.NF_NOERR) then + write(*,*) "Could not get longitude dimension ID" + write(*,*) " looking for lon dimension instead... " + ierr=NF_INQ_DIMID(infid,"lon",tmpdimid) + if (ierr.ne.NF_NOERR) then + stop "Error: Failed to get lon dimension ID" + else + ierr=NF_INQ_VARID(infid,"lon",tmpvarid) + if (ierr.ne.NF_NOERR) then + stop "Error: Failed to get lon ID" + else + ierr=NF_INQ_DIMLEN(infid,tmpdimid,lonlength) + if (ierr.ne.NF_NOERR) then + stop "Error: Failed to get lon length" + else + allocate(lon(lonlength),stat=ierr) + if (ierr.ne.0) then + write(*,*) "Error: Failed to allocate lon(lonlength)" + write(*,*) " lonlength=",lonlength + stop + endif + ierr=NF_GET_VAR_REAL(infid,tmpvarid,lon) + if (ierr.ne.NF_NOERR) then + stop "Error: Failed reading longitude" + endif + endif + endif + endif +else + ierr=NF_INQ_VARID(infid,"longitude",tmpvarid) + if (ierr.ne.NF_NOERR) then + stop "Error: Failed to get longitude ID" + else + ierr=NF_INQ_DIMLEN(infid,tmpdimid,lonlength) + if (ierr.ne.NF_NOERR) then + stop "Error: Failed to get longitude length" + else + allocate(lon(lonlength),stat=ierr) + if (ierr.ne.0) then + write(*,*) "Error: Failed to allocate lon(lonlength)" + write(*,*) " lonlength=",lonlength + stop + endif + ierr=NF_GET_VAR_REAL(infid,tmpvarid,lon) + if (ierr.ne.NF_NOERR) then + stop "Error: Failed reading longitude" + endif + endif + endif +endif + +! time +ierr=NF_INQ_DIMID(infid,"Time",tmpdimid) +if (ierr.ne.NF_NOERR) then + write(*,*) "Could not get Time dimension ID" + write(*,*) " looking for time dimension instead... " + ierr=NF_INQ_DIMID(infid,"time",tmpdimid) + if (ierr.ne.NF_NOERR) then + stop "Error: Failed to get lon dimension ID" + else + ierr=NF_INQ_VARID(infid,"time",tmpvarid) + if (ierr.ne.NF_NOERR) then + stop "Error: Failed to get time ID" + else + ierr=NF_INQ_DIMLEN(infid,tmpdimid,timelength) + if (ierr.ne.NF_NOERR) then + stop "Error: Failed to get time length" + else + allocate(time(timelength),stat=ierr) + if (ierr.ne.0) then + write(*,*) "Error: Failed to allocate time(timelength)" + write(*,*) " timelength=",timelength + stop + endif + ierr=NF_GET_VAR_REAL(infid,tmpvarid,time) + if (ierr.ne.NF_NOERR) then + stop "Error: Failed reading time" + endif + endif + endif + endif +else + ierr=NF_INQ_VARID(infid,"Time",tmpvarid) + if (ierr.ne.NF_NOERR) then + stop "Error: Failed to get Time ID" + else + ierr=NF_INQ_DIMLEN(infid,tmpdimid,timelength) + if (ierr.ne.NF_NOERR) then + stop "Error: Failed to get Time length" + else + allocate(time(timelength),stat=ierr) + if (ierr.ne.0) then + write(*,*) "Error: Failed to allocate time(timelength)" + write(*,*) " timelength=",timelength + stop + endif + ierr=NF_GET_VAR_REAL(infid,tmpvarid,time) + if (ierr.ne.NF_NOERR) then + stop "Error: Failed reading Time" + endif + endif + endif +endif + +! altlength +ierr=NF_INQ_DIMID(infid,"altitude",tmpdimid) +if (ierr.ne.NF_NOERR) then + write(*,*) "Could not get altitude dimension ID" + write(*,*) " looking for sigma dimension instead... " + ierr=NF_INQ_DIMID(infid,"sigma",tmpdimid) + if (ierr.ne.NF_NOERR) then + stop "Error: Failed to get sigma dimension ID" + else + ierr=NF_INQ_DIMLEN(infid,tmpdimid,altlength) + if (ierr.ne.NF_NOERR) then + stop "Error: Failed to get altitude length" + endif + endif +else + ierr=NF_INQ_DIMLEN(infid,tmpdimid,altlength) + if (ierr.ne.NF_NOERR) then + stop "Error: Failed to get altitude length" + endif +endif + +! 1.3.2 Get hybrid coordinates (or sigma levels) + +! start by looking for sigma levels +ierr=NF_INQ_VARID(infid,"sigma",tmpvarid) +if (ierr.ne.NF_NOERR) then + have_sigma=.false. + write(*,*) "Could not find sigma levels... will look for hybrid coordinates" +else + have_sigma=.true. + allocate(sigma(altlength),stat=ierr) + if (ierr.ne.0) then + write(*,*) "Error: Failed to allocate sigma(altlength)" + write(*,*) " altlength=",altlength + stop + endif + ierr=NF_GET_VAR_REAL(infid,tmpvarid,sigma) + if (ierr.ne.NF_NOERR) then + stop "Error: Failed reading sigma" + endif +endif + +! if no sigma levels, look for hybrid coordinates +if (.not.have_sigma) then + ! hybrid coordinate aps + ierr=NF_INQ_VARID(infid,"aps",tmpvarid) + if (ierr.ne.NF_NOERR) then + stop "Error: Failed to get aps ID" + else + allocate(aps(altlength),stat=ierr) + if (ierr.ne.0) then + write(*,*) "Error: Failed to allocate aps(altlength)" + write(*,*) " altlength=",altlength + stop + endif + ierr=NF_GET_VAR_REAL(infid,tmpvarid,aps) + if (ierr.ne.NF_NOERR) then + stop "Error: Failed reading aps" + endif + endif + + ! hybrid coordinate bps + ierr=NF_INQ_VARID(infid,"bps",tmpvarid) + if (ierr.ne.NF_NOERR) then + stop "Error: Failed to get bps ID" + else + allocate(bps(altlength),stat=ierr) + if (ierr.ne.0) then + write(*,*) "Error: Failed to allocate bps(altlength)" + write(*,*) " altlength=",altlength + stop + endif + ierr=NF_GET_VAR_REAL(infid,tmpvarid,bps) + if (ierr.ne.NF_NOERR) then + stop "Error: Failed reading bps" + endif + endif +endif !of if (.not.have_sigma) + +! 1.3.3 ground geopotential phisinit + +allocate(phisinit(lonlength,latlength),stat=ierr) +if (ierr.ne.0) then + write(*,*) "Failed allocation of phisinit(lonlength,latlength) !!!" + write(*,*) "lonlength=",lonlength," latlength=",latlength + stop +endif +! look for 'phisinit' in current file +ierr=NF_INQ_VARID(infid,"phisinit",tmpvarid) +if (ierr.ne.NF_NOERR) then + write(*,*) "Warning: Failed to get phisinit ID from file ",trim(infile) + infile2="diagfi.nc" + write(*,*) " Trying file ",trim(infile2) + ierr=NF_OPEN(infile2,NF_NOWRITE,infid2) + if (ierr.ne.NF_NOERR) then + write(*,*) "Problem: Could not find/open that file" + infile2="phisinit.nc" + write(*,*) " Trying file ",trim(infile2) + ierr=NF_OPEN(infile2,NF_NOWRITE,infid2) + if (ierr.ne.NF_NOERR) then + write(*,*) "Error: Could not open that file either" + stop "Might as well stop here" + endif + endif + + ! Get ID for phisinit + ierr=NF_INQ_VARID(infid2,"phisinit",tmpvarid) + if (ierr.ne.NF_NOERR) then + stop "Error: Failed to get phisinit ID" + endif + ! Get physinit + ierr=NF_GET_VAR_REAL(infid2,tmpvarid,phisinit) + if (ierr.ne.NF_NOERR) then + stop "Error: Failed reading phisinit" + endif + ! Close file + write(*,*) 'OK, got phisinit' + ierr=NF_CLOSE(infid2) +else + ierr=NF_GET_VAR_REAL(infid,tmpvarid,phisinit) + if (ierr.ne.NF_NOERR) then + stop "Error: Failed reading phisinit" + endif +endif + +!=============================================================================== +! 1.4 Choose and build the new vertical coordinate +!=============================================================================== + +write(*,*) "" +write(*,*) "Which vertical coordinate should the output be in?" +ztype=0 +do while ((ztype.lt.1).or.(ztype.gt.4)) + write(*,*) "(1: pressure, 2: altitude above areoid, " + write(*,*) " 3: above local surface, 4: distance to center of Mars)" + read(*,*)ztype +enddo + +text="dummy" ! dummy initialization +auto_vert_levels=.true. ! dummy initialization to get rid of compiler warning +do while ((trim(text).ne."yes").and.(trim(text).ne."no")) + write(*,*) "" + write(*,*) "Automatic generation of vertical levels distribution? (yes/no)" + write(*,*) "(yes: you only provide min, max and number of levels)" + write(*,*) "(no: you provide values for each level)" + read(*,'(a64)') text + if (trim(text).eq."yes") then + auto_vert_levels=.true. + else + auto_vert_levels=.false. + endif +enddo + +if (auto_vert_levels) then + ! ask for # of points and end values for pressure or above areoid cases + write(*,*) "" + if ((ztype.le.2).or.(ztype.le.4)) then + write(*,*) "Enter min and max of vertical coordinate (Pa or m)" + write(*,*) " (in that order and on the same line)" + if (ztype.eq.1) then ! pressure coordinate + read(*,*) pmin,pmax + else ! altitude coordinate + read(*,*) zamin,zamax + endif + endif ! of if ((ztype.le.2).or.(ztype.le.4)) + + ! Build corresponding vertical coordinates + if (ztype.eq.1) then ! pressure coordinate + write(*,*) "Number of levels along vertical coordinate?" + read(*,*) nblev + allocate(plevel(nblev),stat=ierr) + if (ierr.ne.0) then + write(*,*) "Error: Failed to allocate plevel(nblev)" + write(*,*) " nblev=",nblev + stop + endif + if (nblev.eq.1) then ! in case only one level is asked for + plevel(nblev)=pmin + else + do i=1,nblev + ! build exponentially spread layers + plevel(i)=exp(log(pmax)+(log(pmin)-log(pmax))* & + ((real(i)-1.0)/(real(nblev)-1.0))) + enddo + endif + else if (ztype.eq.2) then ! above areoid heights + write(*,*) "Number of levels along vertical coordinate?" + read(*,*) nblev + allocate(zareoid(nblev),stat=ierr) + if (ierr.ne.0) then + write(*,*) "Error: Failed to allocate zareoid(nblev)" + write(*,*) " nblev=",nblev + stop + endif + if (nblev.eq.1) then ! in case only one level is asked for + zareoid(nblev)=zamin + else + do i=1,nblev + zareoid(i)=zamin+(real(i)-1.0)*((zamax-zamin)/(real(nblev)-1.0)) + enddo + endif + else if (ztype.eq.3) then ! above local surface + ! set nblev to # of levels from input data files + nblev=altlength + allocate(zsurface(nblev),stat=ierr) + if (ierr.ne.0) then + write(*,*) "Error: Failed to allocate zsurface(nblev)" + write(*,*) " nblev=",nblev + stop + endif + ! build specific above local surface altitudes + call build_zs(nblev,have_sigma,sigma,aps,bps,zsurface) + else ! distance to center of planet + write(*,*) "Number of levels along vertical coordinate?" + read(*,*) nblev + allocate(zradius(nblev),stat=ierr) + if (ierr.ne.0) then + write(*,*) "Error: Failed to allocate zradius(nblev)" + write(*,*) " nblev=",nblev + stop + endif + if (nblev.eq.1) then ! in case only one level is asked for + zradius(nblev)=zamin + else + do i=1,nblev + zradius(i)=zamin+(real(i)-1.0)*((zamax-zamin)/(real(nblev)-1.0)) + enddo + endif + endif +else ! auto_vert_levels=.false. ; user provides values + ! ask for # of points along the vertical + write(*,*) "" + write(*,*) "Number of levels along vertical coordinate?" + read(*,*) nblev + if (ztype.eq.1) then ! pressure coordinate + allocate(plevel(nblev),stat=ierr) + if (ierr.ne.0) then + write(*,*) "Error: Failed to allocate plevel(nblev)" + write(*,*) " nblev=",nblev + stop + endif + write(*,*) "Enter Pressure (Pa) of levels, ordered" + write(*,*) " from max (near-surface) to min (top of atmosphere)," + write(*,*) " (one value per line)" + do i=1,nblev + read(*,*) plevel(i) + enddo + else if (ztype.eq.2) then ! above areoid heights + allocate(zareoid(nblev),stat=ierr) + if (ierr.ne.0) then + write(*,*) "Error: Failed to allocate zareoid(nblev)" + write(*,*) " nblev=",nblev + stop + endif + write(*,*) "Enter altitude (m) above areoid of levels, ordered" + write(*,*) " from min to max (one value per line)" + do i=1,nblev + read(*,*) zareoid(i) + enddo + else if (ztype.eq.3) then ! above local surface + allocate(zsurface(nblev),stat=ierr) + if (ierr.ne.0) then + write(*,*) "Error: Failed to allocate zsurface(nblev)" + write(*,*) " nblev=",nblev + stop + endif + write(*,*) "Enter altitude (m) above surface of levels, ordered" + write(*,*) " from min to max (one value per line)" + do i=1,nblev + read(*,*) zsurface(i) + enddo + else ! distance to center of planet + allocate(zradius(nblev),stat=ierr) + if (ierr.ne.0) then + write(*,*) "Error: Failed to allocate zradius(nblev)" + write(*,*) " nblev=",nblev + stop + endif + write(*,*) "Enter distance (m) to center of Mars of levels, ordered" + write(*,*) " from min to max (one value per line)" + do i=1,nblev + read(*,*) zradius(i) + enddo + endif +endif ! of if (auto_vert_levels) + +!=============================================================================== +! 1.5 Get output file name +!=============================================================================== +write(*,*) "" +!write(*,*) "Enter output file name" +!read(*,*) outfile +if (ztype.eq.1) then ! pressure coordinate + outfile=infile(1:len_trim(infile)-3)//"_P.nc" +else if (ztype.eq.2) then ! above areoid coordinate + outfile=infile(1:len_trim(infile)-3)//"_A.nc" +else if (ztype.eq.3) then ! above local surface + outfile=infile(1:len_trim(infile)-3)//"_S.nc" +else ! radial distance to center of Mars + outfile=infile(1:len_trim(infile)-3)//"_R.nc" +endif +write(*,*) "Output file name is: "//trim(outfile) + +!=============================================================================== +! 2.1 Build/store GCM fields which will be used later +!=============================================================================== + +!=============================================================================== +! 2.1.1 Surface pressure +!=============================================================================== +ierr=NF_INQ_VARID(infid,"ps",tmpvarid) +if (ierr.ne.NF_NOERR) then + stop "Error: Failed to get ps ID" +else + allocate(ps(lonlength,latlength,timelength),stat=ierr) + if (ierr.ne.0) then + write(*,*) "Error: Failed to allocate ps(lonlength,latlength,timelength)" + write(*,*) " lonlength=",lonlength," latlength=",latlength + write(*,*) " timelength=",timelength + stop + endif + ierr=NF_GET_VAR_REAL(infid,tmpvarid,ps) + if (ierr.ne.NF_NOERR) then + stop "Error: Failed reading surface pressure" + endif +endif + +!=============================================================================== +! 2.1.2 Atmospheric pressure +!=============================================================================== +allocate(press(lonlength,latlength,altlength,timelength),stat=ierr) +if (ierr.ne.0) then + write(*,*) "Error: Failed to allocate press(lonlength,latlength,altlength,timelength)" + write(*,*) " lonlength=",lonlength," latlength=",latlength + write(*,*) " altlength=",altlength," timelength=",timelength + stop +endif + +if (have_sigma) then ! sigma coordinate + do itim=1,timelength + do ilev=1,altlength + do ilat=1,latlength + do ilon=1,lonlength + press(ilon,ilat,ilev,itim)=sigma(ilev)*ps(ilon,ilat,itim) + enddo + enddo + enddo + enddo +else ! hybrid coordinates + do itim=1,timelength + do ilev=1,altlength + do ilat=1,latlength + do ilon=1,lonlength + press(ilon,ilat,ilev,itim)=aps(ilev)+bps(ilev)*ps(ilon,ilat,itim) + enddo + enddo + enddo + enddo +endif + +!=============================================================================== +! 2.1.3 Atmospheric temperature +!=============================================================================== +allocate(temp(lonlength,latlength,altlength,timelength),stat=ierr) +if (ierr.ne.0) then + write(*,*) "Error: Failed to allocate temp(lonlength,latlength,altlength,timelength)" + write(*,*) " lonlength=",lonlength," latlength=",latlength + write(*,*) " altlength=",altlength," timelength=",timelength + stop +endif + +ierr=NF_INQ_VARID(infid,"temp",tmpvarid) +if (ierr.ne.NF_NOERR) then + ! stop "Error: Failed to get temp ID" + ! try "t" for temperature + ierr=NF_INQ_VARID(infid,"t",tmpvarid) + if (ierr.ne.NF_NOERR) then + stop "Error: Failed to get t ID" + else + ierr=NF_GET_VAR_REAL(infid,tmpvarid,temp) + if (ierr.ne.NF_NOERR) then + stop "Error: Failed reading atmospheric temperature" + endif + endif +else + ierr=NF_GET_VAR_REAL(infid,tmpvarid,temp) + if (ierr.ne.NF_NOERR) then + stop "Error: Failed reading atmospheric temperature" + endif +endif + +!=============================================================================== +! 2.1.4 Atmospheric density +!=============================================================================== + +ierr=NF_INQ_VARID(infid,"rho",tmpvarid) +if (ierr.ne.NF_NOERR) then + write(*,*) "Warning: Failed to get rho ID" + have_rho=.false. +else + have_rho=.true. + allocate(rho(lonlength,latlength,altlength,timelength),stat=ierr) + if (ierr.ne.0) then + write(*,*) "Error: Failed to allocate rho(lonlength,latlength,altlength,timelength)" + write(*,*) " lonlength=",lonlength," latlength=",latlength + write(*,*) " altlength=",altlength," timelength=",timelength + stop + endif + ierr=NF_GET_VAR_REAL(infid,tmpvarid,rho) + if (ierr.ne.NF_NOERR) then + stop "Error: Failed reading atmospheric density" + endif +endif + +!=============================================================================== +! 2.2 Build GCM Above areoid (or above surface) altitudes of GCM nodes +!=============================================================================== + +if (have_rho) then + if (ztype.le.2) then ! above areoid altitudes (also needed for ztype=1) + allocate(za_gcm(lonlength,latlength,altlength,timelength),stat=ierr) + if (ierr.ne.0) then + write(*,*) "Error: Failed to allocate za_gcm(lonlength,latlength,altlength,timelength)" + write(*,*) " lonlength=",lonlength," latlength=",latlength + write(*,*) " altlength=",altlength," timelength=",timelength + stop + endif + call build_gcm_za(lonlength,latlength,altlength,timelength, & + phisinit,ps,press,temp,rho,za_gcm) + else if (ztype.eq.3) then! above local surface altitudes + allocate(zs_gcm(lonlength,latlength,altlength,timelength),stat=ierr) + if (ierr.ne.0) then + write(*,*) "Error: Failed to allocate zs_gcm(lonlength,latlength,altlength,timelength)" + write(*,*) " lonlength=",lonlength," latlength=",latlength + write(*,*) " altlength=",altlength," timelength=",timelength + stop + endif + call build_gcm_zs(lonlength,latlength,altlength,timelength, & + phisinit,ps,press,temp,rho,zs_gcm) + else ! radial distance to center of planet + allocate(za_gcm(lonlength,latlength,altlength,timelength),stat=ierr) + if (ierr.ne.0) then + write(*,*) "Error: Failed to allocate za_gcm(lonlength,latlength,altlength,timelength)" + write(*,*) " lonlength=",lonlength," latlength=",latlength + write(*,*) " altlength=",altlength," timelength=",timelength + stop + endif + allocate(ra_gcm(lonlength,latlength,altlength,timelength),stat=ierr) + if (ierr.ne.0) then + write(*,*) "Error: Failed to allocate ra_gcm(lonlength,latlength,altlength,timelength)" + write(*,*) " lonlength=",lonlength," latlength=",latlength + write(*,*) " altlength=",altlength," timelength=",timelength + stop + endif + call build_gcm_za(lonlength,latlength,altlength,timelength, & + phisinit,ps,press,temp,rho,za_gcm) + ! and now convert the altitudes above areoid to radial distances + call build_gcm_ra(lonlength,latlength,altlength,timelength, & + lon,lat,za_gcm,ra_gcm) + ! free za_gcm + deallocate(za_gcm) + endif +else + write(*,*)"Warning: Using constant R to integrate hydrostatic equation" + if (ztype.le.2) then ! above areoid altitudes (also needed for ztype=1) + allocate(za_gcm(lonlength,latlength,altlength,timelength),stat=ierr) + if (ierr.ne.0) then + write(*,*) "Error: Failed to allocate za_gcm(lonlength,latlength,altlength,timelength)" + write(*,*) " lonlength=",lonlength," latlength=",latlength + write(*,*) " altlength=",altlength," timelength=",timelength + stop + endif + call crude_gcm_za(lonlength,latlength,altlength,timelength, & + phisinit,ps,press,temp,za_gcm) + else if (ztype.eq.3) then ! above local surface altitudes + allocate(zs_gcm(lonlength,latlength,altlength,timelength),stat=ierr) + if (ierr.ne.0) then + write(*,*) "Error: Failed to allocate zs_gcm(lonlength,latlength,altlength,timelength)" + write(*,*) " lonlength=",lonlength," latlength=",latlength + write(*,*) " altlength=",altlength," timelength=",timelength + stop + endif + call crude_gcm_zs(lonlength,latlength,altlength,timelength, & + phisinit,ps,press,temp,zs_gcm) + else ! radial distance to center of planet + allocate(za_gcm(lonlength,latlength,altlength,timelength),stat=ierr) + if (ierr.ne.0) then + write(*,*) "Error: Failed to allocate za_gcm(lonlength,latlength,altlength,timelength)" + write(*,*) " lonlength=",lonlength," latlength=",latlength + write(*,*) " altlength=",altlength," timelength=",timelength + stop + endif + allocate(ra_gcm(lonlength,latlength,altlength,timelength),stat=ierr) + if (ierr.ne.0) then + write(*,*) "Error: Failed to allocate ra_gcm(lonlength,latlength,altlength,timelength)" + write(*,*) " lonlength=",lonlength," latlength=",latlength + write(*,*) " altlength=",altlength," timelength=",timelength + stop + endif + call crude_gcm_za(lonlength,latlength,altlength,timelength, & + phisinit,ps,press,temp,za_gcm) + ! and now convert the altitudes above areoid to radial distances + call build_gcm_ra(lonlength,latlength,altlength,timelength, & + lon,lat,za_gcm,ra_gcm) + ! free za_gcm + deallocate(za_gcm) + endif +endif ! of if (have_rho) + +!=============================================================================== +! 3. Create output file and initialize definitions of variables and dimensions +!=============================================================================== + +!=============================================================================== +! 3.1. Output file +!=============================================================================== + +! Create output file +ierr=NF_CREATE(outfile,NF_CLOBBER,outfid) +if (ierr.ne.NF_NOERR) then + write(*,*)"Error: could not create file ",outfile + write(*,*) NF_STRERROR(ierr) + stop +endif + +!=============================================================================== +! 3.2. Define dimensions +!=============================================================================== +! longitude +ierr=NF_DEF_DIM(outfid,"longitude",lonlength,lon_dimid) +if (ierr.ne.NF_NOERR) then + write(*,*) "Error: Could not define longitude dimension" + write(*,*) NF_STRERROR(ierr) + stop +endif + +! latitude +ierr=NF_DEF_DIM(outfid,"latitude",latlength,lat_dimid) +if (ierr.ne.NF_NOERR) then + write(*,*) "Error: Could not define latitude dimension" + write(*,*) NF_STRERROR(ierr) + stop +endif + +! altitude +ierr=NF_DEF_DIM(outfid,"altitude",nblev,alt_dimid) +if (ierr.ne.NF_NOERR) then + write(*,*) "Error: Could not define altitude dimension" + write(*,*) NF_STRERROR(ierr) + stop +endif + +! time +ierr=NF_DEF_DIM(outfid,"Time",timelength,time_dimid) +if (ierr.ne.NF_NOERR) then + write(*,*) "Error: Could not define Time dimension" + write(*,*) NF_STRERROR(ierr) + stop +endif + +! GCM layers (for sigma or aps and bps) +ierr=NF_DEF_DIM(outfid,"GCM_layers",altlength,gcm_layers_dimid) +if (ierr.ne.NF_NOERR) then + write(*,*) "Error: Could not define GCM_layers dimension" + write(*,*) NF_STRERROR(ierr) + stop +endif + + +!=============================================================================== +! 3.3. Define variables and their attributes +!=============================================================================== + +! 3.3.1 Define 1D variables + +! longitude +datashape(1)=lon_dimid +ierr=NF_DEF_VAR(outfid,"longitude",NF_REAL,1,datashape(1),lon_varid) +if (ierr.ne.NF_NOERR) then + write(*,*) "Error: Could not define longitude variable" + write(*,*) NF_STRERROR(ierr) + stop +endif + +! longitude attributes +text='east longitude' +ierr=NF_PUT_ATT_TEXT(outfid,lon_varid,'long_name',len_trim(text),text) +if (ierr.ne.NF_NOERR) then + stop "Error: Problem writing long_name for longitude" +endif +text='degrees_east' +ierr=NF_PUT_ATT_TEXT(outfid,lon_varid,'units',len_trim(text),text) +if (ierr.ne.NF_NOERR) then + stop "Error: Problem writing units for longitude" +endif + +! latitude +datashape(2)=lat_dimid +ierr=NF_DEF_VAR(outfid,"latitude",NF_REAL,1,datashape(2),lat_varid) +if (ierr.ne.NF_NOERR) then + write(*,*) "Error: Could not define latitude variable" + write(*,*) NF_STRERROR(ierr) + stop +endif + +! latitude attributes +text='north latitude' +ierr=NF_PUT_ATT_TEXT(outfid,lat_varid,'long_name',len_trim(text),text) +if (ierr.ne.NF_NOERR) then + stop "Error: Problem writing long_name for latitude" +endif +text='degrees_north' +ierr=NF_PUT_ATT_TEXT(outfid,lat_varid,'units',len_trim(text),text) +if (ierr.ne.NF_NOERR) then + stop "Error: Problem writing units for latitude" +endif + +! altitude +datashape(3)=alt_dimid +ierr=NF_DEF_VAR(outfid,"altitude",NF_REAL,1,datashape(3),alt_varid) +if (ierr.ne.NF_NOERR) then + write(*,*) "Error: Could not define altitude variable" + write(*,*) NF_STRERROR(ierr) + stop +endif + +!altitude attributes +if (ztype.eq.1) then ! pressure vertical coordinate + text='Pressure levels' + ierr=NF_PUT_ATT_TEXT(outfid,alt_varid,'long_name',len_trim(text),text) + if (ierr.ne.NF_NOERR) then + stop "Error: Problem writing long_name for altitude" + endif + text='Pa' + ierr=NF_PUT_ATT_TEXT(outfid,alt_varid,'units',len_trim(text),text) + if (ierr.ne.NF_NOERR) then + stop "Error: Problem writing units for altitude" + endif + text='down' + ierr=NF_PUT_ATT_TEXT(outfid,alt_varid,'positive',len_trim(text),text) + if (ierr.ne.NF_NOERR) then + stop "Error: Problem writing positive for altitude" + endif +else if (ztype.eq.2) then ! above areoid vertical coordinate + text='Altitude above areoid' + ierr=NF_PUT_ATT_TEXT(outfid,alt_varid,'long_name',len_trim(text),text) + if (ierr.ne.NF_NOERR) then + stop "Error: Problem writing long_name for altitude" + endif + text='m' + ierr=NF_PUT_ATT_TEXT(outfid,alt_varid,'units',len_trim(text),text) + if (ierr.ne.NF_NOERR) then + stop "Error: Problem writing units for altitude" + endif + text='up' + ierr=NF_PUT_ATT_TEXT(outfid,alt_varid,'positive',len_trim(text),text) + if (ierr.ne.NF_NOERR) then + stop "Error: Problem writing positive for altitude" + endif +else if (ztype.eq.3) then ! above surface vertical coordinate + text='Altitude above local surface' + ierr=NF_PUT_ATT_TEXT(outfid,alt_varid,'long_name',len_trim(text),text) + if (ierr.ne.NF_NOERR) then + stop "Error: Problem writing long_name for altitude" + endif + text='m' + ierr=NF_PUT_ATT_TEXT(outfid,alt_varid,'units',len_trim(text),text) + if (ierr.ne.NF_NOERR) then + stop "Error: Problem writing units for altitude" + endif + text='up' + ierr=NF_PUT_ATT_TEXT(outfid,alt_varid,'positive',len_trim(text),text) + if (ierr.ne.NF_NOERR) then + stop "Error: Problem writing positive for altitude" + endif +else ! radial distance to center of planet + text='Distance to center of Mars' + ierr=NF_PUT_ATT_TEXT(outfid,alt_varid,'long_name',len_trim(text),text) + if (ierr.ne.NF_NOERR) then + stop "Error: Problem writing long_name for altitude" + endif + text='m' + ierr=NF_PUT_ATT_TEXT(outfid,alt_varid,'units',len_trim(text),text) + if (ierr.ne.NF_NOERR) then + stop "Error: Problem writing units for altitude" + endif + text='up' + ierr=NF_PUT_ATT_TEXT(outfid,alt_varid,'positive',len_trim(text),text) + if (ierr.ne.NF_NOERR) then + stop "Error: Problem writing positive for altitude" + endif +endif ! of if (have_sigma) + +! GCM_layers +!ierr=NF_DEF_VAR(outfid,"gcm_layers",NF_REAL,1,,sigma_varid) + +! sigma levels or hybrid coordinates +if (have_sigma) then + ierr=NF_DEF_VAR(outfid,"sigma",NF_REAL,1,gcm_layers_dimid,sigma_varid) + if (ierr.ne.NF_NOERR) then + write(*,*) "Error: Could not define sigma variable" + write(*,*) NF_STRERROR(ierr) + stop + endif +else ! hybrid coordinates + ierr=NF_DEF_VAR(outfid,"aps",NF_REAL,1,gcm_layers_dimid,aps_varid) + if (ierr.ne.NF_NOERR) then + write(*,*) "Error: Could not define aps variable" + write(*,*) NF_STRERROR(ierr) + stop + endif + ierr=NF_DEF_VAR(outfid,"bps",NF_REAL,1,gcm_layers_dimid,bps_varid) + if (ierr.ne.NF_NOERR) then + write(*,*) "Error: Could not define bps variable" + write(*,*) NF_STRERROR(ierr) + stop + endif +endif + +! sigma levels (or hybrid coordinates) attributes +if (have_sigma) then + text="sigma levels" + ierr=NF_PUT_ATT_TEXT(outfid,sigma_varid,'long_name',len_trim(text),text) + if (ierr.ne.NF_NOERR) then + stop "Error: Problem writing long_name for sigma" + endif +else ! hybrid coordinates + text="hybrid pressure at midlayers" + ierr=NF_PUT_ATT_TEXT(outfid,aps_varid,'long_name',len_trim(text),text) + if (ierr.ne.NF_NOERR) then + stop "Error: Problem writing long_name for aps" + endif + text="hybrid sigma at midlayers" + ierr=NF_PUT_ATT_TEXT(outfid,bps_varid,'long_name',len_trim(text),text) + if (ierr.ne.NF_NOERR) then + stop "Error: Problem writing long_name for bps" + endif +endif ! of if (have_sigma) + +! time +datashape(4)=time_dimid +ierr=NF_DEF_VAR(outfid,"Time",NF_REAL,1,datashape(4),time_varid) +if (ierr.ne.NF_NOERR) then + write(*,*) "Error: Could not define Time variable" + write(*,*) NF_STRERROR(ierr) + stop +endif + +! time attributes +text='Time' +ierr=NF_PUT_ATT_TEXT(outfid,time_varid,'long_name',len_trim(text),text) +if (ierr.ne.NF_NOERR) then + stop "Error: Problem writing long_name for Time" +endif +text='days since 0000-01-1 00:00:00' +ierr=NF_PUT_ATT_TEXT(outfid,time_varid,'units',len_trim(text),text) +if (ierr.ne.NF_NOERR) then + stop "Error: Problem writing units for Time" +endif + +! 3.3.2 Define 3D variables (ie: surface+time variables) + +! Surface pressure +surfdatashape(1)=lon_dimid +surfdatashape(2)=lat_dimid +surfdatashape(3)=time_dimid +ierr=NF_DEF_VAR(outfid,"ps",NF_REAL,3,surfdatashape,ps_varid) +if (ierr.ne.NF_NOERR) then + write(*,*) "Error: Could not define ps variable" + write(*,*) NF_STRERROR(ierr) + stop +endif + +! Surface pressure attributes +text='Surface pressure' +ierr=NF_PUT_ATT_TEXT(outfid,ps_varid,'long_name',len_trim(text),text) +if (ierr.ne.NF_NOERR) then + stop "Error: Problem writing long_name for surface pressure" +endif +text='Pa' +ierr=NF_PUT_ATT_TEXT(outfid,ps_varid,'units',len_trim(text),text) +if (ierr.ne.NF_NOERR) then + stop "Error: Problem writing units for surface pressure" +endif + +! 3.3.3 Define 4D variables + +! add pressure or zareoid +if (ztype.eq.1) then ! pressure vertical coordinate + ! zareoid dataset + ierr=NF_DEF_VAR(outfid,"zareoid",NF_REAL,4,datashape,za_varid) + if (ierr.ne.NF_NOERR) then + write(*,*) "Error: Could not define zareoid variable" + write(*,*) NF_STRERROR(ierr) + stop + endif + ! zareoid attributes + text='altitude above areoid' + ierr=NF_PUT_ATT_TEXT(outfid,za_varid,'long_name',len_trim(text),text) + if (ierr.ne.NF_NOERR) then + stop "Error: Problem writing long_name for zareoid" + endif + text='m' + ierr=NF_PUT_ATT_TEXT(outfid,za_varid,'units',len_trim(text),text) + if (ierr.ne.NF_NOERR) then + stop "Error: Problem writing units for zareoid" + endif + ! zareoid missing value + ierr=NF_PUT_ATT_REAL(outfid,za_varid,'missing_value',NF_REAL,1,miss_val) + if (ierr.ne.NF_NOERR) then + stop "Error: Problem writing missing_value for zareoid" + endif +else ! above areoid or above local surface vertical coordinate + ! pressure dataset + ierr=NF_DEF_VAR(outfid,"pressure",NF_REAL,4,datashape,p_varid) + if (ierr.ne.NF_NOERR) then + write(*,*) "Error: Could not define pressure variable" + write(*,*) NF_STRERROR(ierr) + stop + endif + ! pressure attributes + text='Atmospheric pressure' + ierr=NF_PUT_ATT_TEXT(outfid,p_varid,'long_name',len_trim(text),text) + if (ierr.ne.NF_NOERR) then + stop "Error: Problem writing long_name for pressure" + endif + text='Pa' + ierr=NF_PUT_ATT_TEXT(outfid,p_varid,'units',len_trim(text),text) + if (ierr.ne.NF_NOERR) then + stop "Error: Problem writing units for pressure" + endif + ! pressure missing value + ierr=NF_PUT_ATT_REAL(outfid,p_varid,'missing_value',NF_REAL,1,miss_val) + if (ierr.ne.NF_NOERR) then + stop "Error: Problem writing missing_value for pressure" + endif +endif + +! add zs_gcm +if (ztype.eq.3) then +endif + +! variables requested by user +allocate(var_id(nbvar),stat=ierr) +if (ierr.ne.0) then + write(*,*) "Error: Failed to allocate var_id(nbvar)" + write(*,*) " nbvar=",nbvar + stop +endif +do i=1,nbvar + write(*,*) "" + write(*,*) "Creating ",trim(var(i)) + ! define the variable + ierr=NF_DEF_VAR(outfid,var(i),NF_REAL,4,datashape,var_id(i)) + if (ierr.ne.NF_NOERR) then + write(*,*) 'Error, could not define variable ',trim(var(i)) + write(*,*) NF_STRERROR(ierr) + stop + endif + + ! Get the (input file) ID for the variable and + ! the # of attributes associated to that variable + ierr=NF_INQ_VARID(infid,var(i),tmpvarid) + if (ierr.ne.NF_NOERR) then + write(*,*) 'Error, failed to get ID for variable ',trim(var(i)) + write(*,*) NF_STRERROR(ierr) + stop + endif + ierr=NF_INQ_VARNATTS(infid,tmpvarid,nbattr) + if (ierr.ne.NF_NOERR) then + write(*,*) 'Error, could not get number of attributes for variable ',& + trim(var(i)) + write(*,*) NF_STRERROR(ierr) + stop + endif + ! inititialize j == number of attributes written to output + j=0 + + ! look for a "long_name" attribute + text=' ' + ierr=NF_GET_ATT_TEXT(infid,tmpvarid,'long_name',text) + if (ierr.ne.NF_NOERR) then ! no long_name attribute + ! try to find an equivalent 'title' attribute + text=' ' + ierr=NF_GET_ATT_TEXT(infid,tmpvarid,'title',text) + if (ierr.eq.NF_NOERR) then ! found 'title' attribute + write(*,*) "Found title ",trim(text) + j=j+1 + ! write it as a 'long_name' attribute + ierr=NF_PUT_ATT_TEXT(outfid,var_id(i),'long_name',len_trim(text),text) + if (ierr.ne.NF_NOERR) then + write(*,*) "Error failed to copy title attribute:",trim(text) + stop "" + endif + else ! no 'title' attribute + ! try to find a "Physics_diagnostic" attribute (UK GCM outputs) + text=' ' + ierr=NF_GET_ATT_TEXT(infid,tmpvarid,'Physics_diagnostic',text) + if (ierr.eq.NF_NOERR) then ! found 'Physics_diagnostic' attribute + write(*,*) "Found Physics_diagnostic ",trim(text) + j=j+1 + ! write it as a 'long_name' attribute + ierr=NF_PUT_ATT_TEXT(outfid,var_id(i),'long_name',len_trim(text),text) + if (ierr.ne.NF_NOERR) then + write(*,*) "Error failed to copy Physics_diagnostic attribute:",trim(text) + stop + endif + endif + endif + else ! found long_name; write it to outfile + write(*,*) "Found long_name ",trim(text) + j=j+1 + ierr=NF_PUT_ATT_TEXT(outfid,var_id(i),'long_name',len_trim(text),text) + if (ierr.ne.NF_NOERR) then + write(*,*) "Error failed to copy long_name attribute:",trim(text) + stop "" + endif + endif + + ! look for a "units" attribute + text=' ' + ierr=NF_GET_ATT_TEXT(infid,tmpvarid,'units',text) + if (ierr.eq.NF_NOERR) then ! found 'units' attribute + write(*,*) "Found units ",trim(text) + j=j+1 + ! write it to output + ierr=NF_PUT_ATT_TEXT(outfid,var_id(i),'units',len_trim(text),text) + if (ierr.ne.NF_NOERR) then + write(*,*) "Error failed to copy units attribute:",trim(text) + stop "" + endif + endif + + ! look for a "missing_value" attribute + ierr=NF_GET_ATT_REAL(infid,tmpvarid,"missing_value",miss_val) + if (ierr.eq.NF_NOERR) then ! found 'missing_value' attribute + write(*,*) "Found missing_value ",miss_val + j=j+1 + else ! no 'missing_value' attribute, set miss_val to default + miss_val=miss_val_def + endif + + ! write the missing_value attribute to output + ierr=NF_PUT_ATT_REAL(outfid,var_id(i),'missing_value',NF_REAL,1,miss_val) + if (ierr.ne.NF_NOERR) then + stop "Error, failed to write missing_value attribute" + endif + + ! warn if some attributes were missed + if (j.ne.nbattr) then + write(*,*)'Warning, it seems some attributes of variable ',trim(var(i)) + write(*,*)"were not transfered to the new file" + write(*,*)'nbattr:',nbattr,' j:',j + endif + +enddo ! of do=1,nbvar + + +!=============================================================================== +! 3.4. Write dimensions (and 1D varaiables) +!=============================================================================== +! Switch out of NetCDF define mode +ierr=NF_ENDDEF(outfid) +write(*,*) 'TB16',outfid,ierr,NF_NOERR +if (ierr.ne.NF_NOERR) then + write(*,*) "Error: Could not switch out of define mode" + write(*,*) NF_STRERROR(ierr) + stop +endif + +! Write longitude +ierr=NF_PUT_VAR_REAL(outfid,lon_varid,lon) +if (ierr.ne.NF_NOERR) then + write(*,*) "Error: Could not write longitude data to output file" + write(*,*) NF_STRERROR(ierr) + stop +endif + +! Write latitude +ierr=NF_PUT_VAR_REAL(outfid,lat_varid,lat) +if (ierr.ne.NF_NOERR) then + write(*,*) "Error: Could not write latitude data to output file" + write(*,*) NF_STRERROR(ierr) + stop +endif + +! Write altitude +if (ztype.eq.1) then ! pressure vertical coordinate + ierr=NF_PUT_VAR_REAL(outfid,alt_varid,plevel) + if (ierr.ne.NF_NOERR) then + write(*,*) "Error: Could not write altitude data to output file" + write(*,*) NF_STRERROR(ierr) + stop + endif +else if (ztype.eq.2) then ! above areoid altitude + ierr=NF_PUT_VAR_REAL(outfid,alt_varid,zareoid) + if (ierr.ne.NF_NOERR) then + write(*,*) "Error: Could not write altitude data to output file" + write(*,*) NF_STRERROR(ierr) + stop + endif +else if (ztype.eq.3) then ! above local surface + ierr=NF_PUT_VAR_REAL(outfid,alt_varid,zsurface) + if (ierr.ne.NF_NOERR) then + write(*,*) "Error: Could not write altitude data to output file" + write(*,*) NF_STRERROR(ierr) + stop + endif +else ! radial distance to center of Mars + ierr=NF_PUT_VAR_REAL(outfid,alt_varid,zradius) + if (ierr.ne.NF_NOERR) then + write(*,*) "Error: Could not write altitude data to output file" + write(*,*) NF_STRERROR(ierr) + stop + endif +endif + +! Write sigma levels (or hybrid coordinates) +if (have_sigma) then + ierr=NF_PUT_VAR_REAL(outfid,sigma_varid,sigma) + if (ierr.ne.NF_NOERR) then + write(*,*) "Error: Could not write sigma data to output file" + write(*,*) NF_STRERROR(ierr) + stop + endif +else ! hybrid coordinates + ierr=NF_PUT_VAR_REAL(outfid,aps_varid,aps) + if (ierr.ne.NF_NOERR) then + write(*,*) "Error: Could not write aps data to output file" + write(*,*) NF_STRERROR(ierr) + stop + endif + ierr=NF_PUT_VAR_REAL(outfid,bps_varid,bps) + if (ierr.ne.NF_NOERR) then + write(*,*) "Error: Could not write bps data to output file" + write(*,*) NF_STRERROR(ierr) + stop + endif +endif + +! Write time +ierr=NF_PUT_VAR_REAL(outfid,time_varid,time) +if (ierr.ne.NF_NOERR) then + write(*,*) "Error: Could not write Time data to output file" + write(*,*) NF_STRERROR(ierr) + stop +endif + +!=============================================================================== +! 3.5 Write 3D variables +!=============================================================================== + +! Write surface pressure + +ierr=NF_PUT_VAR_REAL(outfid,ps_varid,ps) +if (ierr.ne.NF_NOERR) then + write(*,*) "Error: Could not write ps data to output file" + write(*,*) NF_STRERROR(ierr) + stop +endif + +!=============================================================================== +! 4. Interpolate and write 4D variables +!=============================================================================== + +! 4.0 Allocations +!indata() to store input (on GCM grid) data +allocate(indata(lonlength,latlength,altlength,timelength),stat=ierr) +if (ierr.ne.0) then + write(*,*) "Error: Failed to allocate indata(lonlength,latlength,altlength,timelength)" + write(*,*) " lonlength=",lonlength," latlength=",latlength + write(*,*) " altlength=",altlength," timelength=",timelength + stop +endif +! outdata() to store output (on new vertical grid) data +allocate(outdata(lonlength,latlength,nblev,timelength),stat=ierr) +if (ierr.ne.0) then + write(*,*) "Error: Failed to allocate outdata(lonlength,latlength,nblev,timelength)" + write(*,*) " lonlength=",lonlength," latlength=",latlength + write(*,*) " nblev=",nblev," timelength=",timelength + stop +endif + +! 4.1 If output is in pressure coordinate +if (ztype.eq.1) then + do i=1,nbvar ! loop on 4D variable to process + ! identify and read a dataset + ierr=NF_INQ_VARID(infid,var(i),tmpvarid) + if (ierr.ne.NF_NOERR) then + write(*,*) 'Error, failed to get ID for variable ',var(i) + stop + endif + ierr=NF_GET_VAR_REAL(infid,tmpvarid,indata) + if (ierr.ne.NF_NOERR) then + write(*,*) 'Error, failed to load variable ',var(i) + stop + endif + + ! interpolate dataset onto new grid + call p_coord_interp(lonlength,latlength,altlength,timelength,nblev, & + miss_val,ps,press,indata,plevel,outdata) + + ! write new dataset to output file + ierr=NF_PUT_VAR_REAL(outfid,var_id(i),outdata) + if (ierr.ne.NF_NOERR) then + write(*,*)'Error, Failed to write variable ',var(i) + write(*,*) NF_STRERROR(ierr) + stop + endif + + enddo ! of do i=1,nbvar + + ! interpolate zareoid onto new grid + call p_coord_interp(lonlength,latlength,altlength,timelength,nblev, & + miss_val,ps,press,za_gcm,plevel,outdata) + ! write result to output file + ierr=NF_PUT_VAR_REAL(outfid,za_varid,outdata) + if (ierr.ne.NF_NOERR) then + write(*,*) "Error, Failed to write zareoid to output file" + write(*,*) NF_STRERROR(ierr) + stop + endif +endif ! of if (ztype.eq.1) + +! 4.2 If output is in above areoid altitude +if (ztype.eq.2) then + do i=1,nbvar ! loop on 4D variable to process + ! identify and read a dataset + ierr=NF_INQ_VARID(infid,var(i),tmpvarid) + if (ierr.ne.NF_NOERR) then + write(*,*) 'Error, failed to get ID for variable ',var(i) + stop + endif + ierr=NF_GET_VAR_REAL(infid,tmpvarid,indata) + if (ierr.ne.NF_NOERR) then + write(*,*) 'Error, failed to load variable ',var(i) + stop + endif + + ! interpolate dataset onto new grid + ! check if variable is "rho" (to set flag for interpolation below) + if (var(i).eq.'rho') then + j=1 + else + j=0 + endif + + call z_coord_interp(lonlength,latlength,altlength,timelength,nblev, & + miss_val,za_gcm,indata,j,zareoid,outdata) + + ! write new dataset to output file + ierr=NF_PUT_VAR_REAL(outfid,var_id(i),outdata) + if (ierr.ne.NF_NOERR) then + write(*,*)'Error, Failed to write variable ',var(i) + write(*,*) NF_STRERROR(ierr) + stop + endif + + enddo ! of do i=1,nbvar + + ! interpolate pressure onto new grid + write(*,*) "" + write(*,*) "Processing pressure" + call z_coord_interp(lonlength,latlength,altlength,timelength,nblev, & + miss_val,za_gcm,press,1,zareoid,outdata) + + ! write result to output file + ierr=NF_PUT_VAR_REAL(outfid,p_varid,outdata) + if (ierr.ne.NF_NOERR) then + write(*,*) "Error, Failed to write pressure to output file" + write(*,*) NF_STRERROR(ierr) + stop + endif +endif ! of if (ztype.eq.2) + +! 4.3 If output is in above local surface altitude +if (ztype.eq.3) then + do i=1,nbvar ! loop on 4D variable to process + write(*,*) " " + write(*,*) "Processing "//trim(var(i)) + ! identify and read a dataset + ierr=NF_INQ_VARID(infid,var(i),tmpvarid) + if (ierr.ne.NF_NOERR) then + write(*,*) 'Error, failed to get ID for variable ',var(i) + stop + endif + ierr=NF_GET_VAR_REAL(infid,tmpvarid,indata) + if (ierr.ne.NF_NOERR) then + write(*,*) 'Error, failed to load variable ',var(i) + stop + endif + + ! interpolate dataset onto new grid + ! check if variable is "rho" (to set flag for interpolation below) + if (var(i).eq.'rho') then + j=1 + else + j=0 + endif + + call zs_coord_interp(lonlength,latlength,altlength,timelength,nblev, & + miss_val,zs_gcm,indata,phisinit,press,temp,rho,& + have_rho,j,zsurface,outdata) + + ! write new dataset to output file + ierr=NF_PUT_VAR_REAL(outfid,var_id(i),outdata) + if (ierr.ne.NF_NOERR) then + write(*,*)'Error, Failed to write variable ',var(i) + write(*,*) NF_STRERROR(ierr) + stop + endif + enddo ! of do i=1,nbvar + + ! interpolate pressure onto new grid + write(*,*) "" + write(*,*) "Processing pressure" + call zs_coord_interp(lonlength,latlength,altlength,timelength,nblev, & + miss_val,zs_gcm,press,phisinit,press,temp,rho,& + have_rho,1,zsurface,outdata) + + ! write result to output file + ierr=NF_PUT_VAR_REAL(outfid,p_varid,outdata) + if (ierr.ne.NF_NOERR) then + write(*,*) "Error, Failed to write pressure to output file" + write(*,*) NF_STRERROR(ierr) + stop + endif + +endif ! of if (ztype.eq.3) + +! 4.4 If output is in radial distance to center of planet +if (ztype.eq.4) then + do i=1,nbvar ! loop on 4D variable to process + ! identify and read a dataset + ierr=NF_INQ_VARID(infid,var(i),tmpvarid) + if (ierr.ne.NF_NOERR) then + write(*,*) 'Error, failed to get ID for variable ',var(i) + stop + endif + ierr=NF_GET_VAR_REAL(infid,tmpvarid,indata) + if (ierr.ne.NF_NOERR) then + write(*,*) 'Error, failed to load variable ',var(i) + stop + endif + + ! interpolate dataset onto new grid + ! check if variable is "rho" (to set flag for interpolation below) + if (var(i).eq.'rho') then + j=1 + else + j=0 + endif + + call z_coord_interp(lonlength,latlength,altlength,timelength,nblev, & + miss_val,ra_gcm,indata,j,zradius,outdata) + + ! write new dataset to output file + ierr=NF_PUT_VAR_REAL(outfid,var_id(i),outdata) + if (ierr.ne.NF_NOERR) then + write(*,*)'Error, Failed to write variable ',var(i) + write(*,*) NF_STRERROR(ierr) + stop + endif + + enddo ! of do i=1,nbvar + + ! interpolate pressure onto new grid + write(*,*) "" + write(*,*) "Processing pressure" + call z_coord_interp(lonlength,latlength,altlength,timelength,nblev, & + miss_val,ra_gcm,press,1,zradius,outdata) + + ! write result to output file + ierr=NF_PUT_VAR_REAL(outfid,p_varid,outdata) + if (ierr.ne.NF_NOERR) then + write(*,*) "Error, Failed to write pressure to output file" + write(*,*) NF_STRERROR(ierr) + stop + endif +endif ! of if (ztype.eq.4) + +! 4.5 Close output file +ierr=NF_CLOSE(outfid) +if (ierr.ne.NF_NOERR) then + write(*,*) 'Error, failed to close output file ',outfile + write(*,*) NF_STRERROR(ierr) +endif + +end program + + +!=============================================================================== + +subroutine build_gcm_zs(lonlength,latlength,altlength,timelength, & + phis,ps,press,temp,rho,zs_gcm) +!============================================================================== +! Purpose: Integrate hydrostatic equation in order to build the "above local +! surface altitudes" corresponding to GCM atmospheric levels +!============================================================================== +implicit none +!============================================================================== +! Arguments: +!============================================================================== +integer,intent(in) :: lonlength ! # of points along longitude +integer,intent(in) :: latlength ! # of points along latitude +integer,intent(in) :: altlength ! # of points along altitude +integer,intent(in) :: timelength ! # of stored time steps +real,dimension(lonlength,latlength),intent(in) :: phis +! phis(:,:) is the ground geopotential +real,dimension(lonlength,latlength,timelength),intent(in) :: ps +! ps(:,:) is the surface pressure +real,dimension(lonlength,latlength,altlength,timelength),intent(in) :: press +! press(:,:,:,:) is atmospheric pressure +real,dimension(lonlength,latlength,altlength,timelength),intent(in) :: temp +! temp(:,:,:,:) is atmospheric temperature +real,dimension(lonlength,latlength,altlength,timelength),intent(in) :: rho +! rho(:,:,:,:) is atmospheric density + +real,dimension(lonlength,latlength,altlength,timelength),intent(out) :: zs_gcm +! zs_gcm(:,:,:,:) are the above local surface altitudes of GCM levels + +!=============================================================================== +! Local variables: +!=============================================================================== +real,dimension(:),allocatable :: sigma ! GCM sigma levels +real,dimension(:,:,:,:),allocatable :: R ! molecular gas constant +!real,dimension(:,:,:,:),allocatable :: zlocal ! local above surface altitude +real :: Rmean ! mean value of R for a given level +real :: Tmean ! "mean" value of temperature for a given level +integer iloop,jloop,kloop,tloop + +! Parameters needed to integrate hydrostatic equation: +real,parameter :: g0=0.62 +!g0: exact mean gravity at radius=3396.km (Lemoine et al. 2001) +real,parameter :: a0=1187.E3 +!a0: 'mean' Mars radius=3396.km +real :: gz +! gz: gravitational acceleration at a given (zareoid) altitude + +!=============================================================================== +! 1. Various initialisations +!=============================================================================== +allocate(sigma(altlength)) +allocate(R(lonlength,latlength,altlength,timelength)) +!allocate(zlocal(lonlength,latlength,altlength,timelength)) + +!============================================================================== +! 2. Compute Molecular Gas Constant (J kg-1 K-1) at every grid point +! --later used to integrate the hydrostatic equation-- +!============================================================================== +do tloop=1,timelength + do kloop=1,altlength + do jloop=1,latlength + do iloop=1,lonlength + R(iloop,jloop,kloop,tloop)=press(iloop,jloop,kloop,tloop)/ & + (rho(iloop,jloop,kloop,tloop)* & + temp(iloop,jloop,kloop,tloop)) + enddo + enddo + enddo +enddo + +!=============================================================================== +! 3. Integrate hydrostatic equation to compute zlocal and za_gcm +!=============================================================================== +do tloop=1,timelength + do jloop=1,latlength + do iloop=1,lonlength + ! handle case of first altitude level + sigma(1)=press(iloop,jloop,1,tloop)/ps(iloop,jloop,tloop) + zs_gcm(iloop,jloop,1,tloop)=-log(sigma(1))*R(iloop,jloop,1,tloop)* & + temp(iloop,jloop,1,tloop)/g0 +! za_gcm(iloop,jloop,1,tloop)=zlocal(iloop,jloop,1,tloop)+ & +! phis(iloop,jloop)/g0 + do kloop=2,altlength + ! compute sigma level of layer + sigma(kloop)=press(iloop,jloop,kloop,tloop)/ps(iloop,jloop,tloop) + + ! compute "mean" temperature of the layer + if(temp(iloop,jloop,kloop,tloop).eq. & + temp(iloop,jloop,kloop-1,tloop)) then + Tmean=temp(iloop,jloop,kloop,tloop) + else + Tmean=(temp(iloop,jloop,kloop,tloop)- & + temp(iloop,jloop,kloop-1,tloop))/ & + log(temp(iloop,jloop,kloop,tloop)/ & + temp(iloop,jloop,kloop-1,tloop)) + endif + + ! compute mean value of R of the layer + Rmean=0.5*(R(iloop,jloop,kloop,tloop)+R(iloop,jloop,kloop-1,tloop)) + + ! compute gravitational acceleration (at altitude zaeroid(kloop-1)) + ! NB: zareoid=zsurface+phis/g0 + gz=g0*(a0**2)/ & + (a0+zs_gcm(iloop,jloop,kloop-1,tloop)+phis(iloop,jloop)/g0)**2 + + ! compute zs_gcm(iloop,jloop,kloop,tloop) + zs_gcm(iloop,jloop,kloop,tloop)=zs_gcm(iloop,jloop,kloop-1,tloop)- & + log(sigma(kloop)/sigma(kloop-1))*Rmean*Tmean/gz + + ! compute za_gcm(kloop) +! za_gcm(iloop,jloop,kloop,tloop)=zlocal(iloop,jloop,kloop,tloop)+ & +! phis(iloop,jloop)/g0 + enddo ! kloop + enddo ! iloop + enddo ! jloop +enddo ! tloop + +! Cleanup +deallocate(sigma) +deallocate(R) +!deallocate(zlocal) + +end subroutine build_gcm_zs + +!=============================================================================== + +!#include"build_gcm_alt.F90" +subroutine build_gcm_za(lonlength,latlength,altlength,timelength, & + phis,ps,press,temp,rho,za_gcm) +!============================================================================== +! Purpose: Integrate hydrostatic equation in order to build the "above areoid +! altitudes" corresponding to GCM atmospheric levels +!============================================================================== +implicit none +!============================================================================== +! Arguments: +!============================================================================== +integer,intent(in) :: lonlength ! # of points along longitude +integer,intent(in) :: latlength ! # of points along latitude +integer,intent(in) :: altlength ! # of points along altitude +integer,intent(in) :: timelength ! # of stored time steps +real,dimension(lonlength,latlength),intent(in) :: phis +! phis(:,:) is the ground geopotential +real,dimension(lonlength,latlength,timelength),intent(in) :: ps +! ps(:,:) is the surface pressure +real,dimension(lonlength,latlength,altlength,timelength),intent(in) :: press +! press(:,:,:,:) is atmospheric pressure +real,dimension(lonlength,latlength,altlength,timelength),intent(in) :: temp +! temp(:,:,:,:) is atmospheric temperature +real,dimension(lonlength,latlength,altlength,timelength),intent(in) :: rho +! rho(:,:,:,:) is atmospheric density + +real,dimension(lonlength,latlength,altlength,timelength),intent(out) :: za_gcm +! za_gcm(:,:,:,:) are the above aroid heights of GCM levels + +!=============================================================================== +! Local variables: +!=============================================================================== +real,dimension(:),allocatable :: sigma ! GCM sigma levels +real,dimension(:,:,:,:),allocatable :: R ! molecular gas constant +real,dimension(:,:,:,:),allocatable :: zlocal ! local above surface altitude +real :: Rmean ! mean value of R for a given level +real :: Tmean ! "mean" value of temperature for a given level +integer iloop,jloop,kloop,tloop + +! Parameters needed to integrate hydrostatic equation: +real,parameter :: g0=0.62 +!g0: exact mean gravity +real,parameter :: a0=1187.E3 +!a0: 'mean' radius +real :: gz +! gz: gravitational acceleration at a given (zareoid) altitude + +!=============================================================================== +! 1. Various initialisations +!=============================================================================== +allocate(sigma(altlength)) +allocate(R(lonlength,latlength,altlength,timelength)) +allocate(zlocal(lonlength,latlength,altlength,timelength)) + +!============================================================================== +! 2. Compute Molecular Gas Constant (J kg-1 K-1) at every grid point +! --later used to integrate the hydrostatic equation-- +!============================================================================== +do tloop=1,timelength + do kloop=1,altlength + do jloop=1,latlength + do iloop=1,lonlength + R(iloop,jloop,kloop,tloop)=press(iloop,jloop,kloop,tloop)/ & + (rho(iloop,jloop,kloop,tloop)* & + temp(iloop,jloop,kloop,tloop)) + enddo + enddo + enddo +enddo + +!=============================================================================== +! 3. Integrate hydrostatic equation to compute zlocal and za_gcm +!=============================================================================== +do tloop=1,timelength + do jloop=1,latlength + do iloop=1,lonlength + ! handle case of first altitude level + sigma(1)=press(iloop,jloop,1,tloop)/ps(iloop,jloop,tloop) + zlocal(iloop,jloop,1,tloop)=-log(sigma(1))*R(iloop,jloop,1,tloop)* & + temp(iloop,jloop,1,tloop)/g0 + za_gcm(iloop,jloop,1,tloop)=zlocal(iloop,jloop,1,tloop)+ & + phis(iloop,jloop)/g0 + do kloop=2,altlength + ! compute sigma level of layer + sigma(kloop)=press(iloop,jloop,kloop,tloop)/ps(iloop,jloop,tloop) + + ! compute "mean" temperature of the layer + if(temp(iloop,jloop,kloop,tloop).eq. & + temp(iloop,jloop,kloop-1,tloop)) then + Tmean=temp(iloop,jloop,kloop,tloop) + else + Tmean=(temp(iloop,jloop,kloop,tloop)- & + temp(iloop,jloop,kloop-1,tloop))/ & + log(temp(iloop,jloop,kloop,tloop)/ & + temp(iloop,jloop,kloop-1,tloop)) + endif + + ! compute mean value of R of the layer + Rmean=0.5*(R(iloop,jloop,kloop,tloop)+R(iloop,jloop,kloop-1,tloop)) + + ! compute gravitational acceleration (at altitude zaeroid(kloop-1)) + gz=g0*(a0**2)/(a0+za_gcm(iloop,jloop,kloop-1,tloop))**2 + + ! compute zlocal(kloop) + zlocal(iloop,jloop,kloop,tloop)=zlocal(iloop,jloop,kloop-1,tloop)- & + log(sigma(kloop)/sigma(kloop-1))*Rmean*Tmean/gz + + ! compute za_gcm(kloop) + za_gcm(iloop,jloop,kloop,tloop)=zlocal(iloop,jloop,kloop,tloop)+ & + phis(iloop,jloop)/g0 + enddo ! kloop + enddo ! iloop + enddo ! jloop +enddo ! tloop + +! Cleanup +deallocate(sigma) +deallocate(R) +deallocate(zlocal) + +end subroutine build_gcm_za + +!=============================================================================== + +subroutine build_zs(altlength,have_sigma,sigma,aps,bps,zsurface) +!============================================================================== +! Build generic above surface altitudes, using either sigma levels +! or hybrid vertical coordinates. +! In order to do so, we need to use scale heights that vary with altitude. +! The scale heights distribution is then set to vary from a min. to a max. +! following a tanh() law over an imposed transition range (see below). +! Similarily, a reference mean surface pressure (610 Pa) is used to +! compute generic above surface altitudes. +!============================================================================== +implicit none +!============================================================================== +! Arguments: +!============================================================================== +integer,intent(in) :: altlength ! # of points along altitude +logical,intent(in) :: have_sigma ! true if sigma(:) are known +! have_sigma is false if aps() and bps(:) are given instead +real,dimension(altlength),intent(in) :: sigma ! sigma levels +real,dimension(altlength),intent(in) :: aps ! hybrid pressure levels +real,dimension(altlength),intent(in) :: bps ! hybrid sigma levels +real,dimension(altlength),intent(out) :: zsurface ! altitudes (m) + +!=============================================================================== +! Local variables +!=============================================================================== +real,dimension(:),allocatable :: H ! scale heights +real,parameter :: H_low=18000 ! scale height at low altitudes +real,parameter :: H_high=40000 ! scale height at high altitudes +real,parameter :: trans_window=10 ! # of levels over which H(:) goes + ! from H_low to H_high +real,parameter :: lev_trans=10+trans_window/2 +! lev_trans: level at which H(lev_trans)=(H_low+H_high)/2 +! N.B.: keep lev_trans and lev_trans as reals to avoid truncation issues + +real,parameter :: P_ref=1 ! reference surface pressure used to build zsurface +integer i + +! 1. Build scale heights +allocate(H(altlength)) +do i=1,altlength + H(i)=H_low+(H_high-H_low)*0.5*(1.0+tanh(6.*(i-lev_trans)/trans_window)) +enddo + +! 2. Compute zsurface(:) +if (have_sigma) then ! use sigma levels + do i=1,altlength + zsurface(i)=-H(i)*log(sigma(i)*P_ref) + enddo +else ! use hybrid coordinates + do i=1,altlength + zsurface(i)=-H(i)*log((aps(i)/P_ref)+bps(i)) + enddo +endif + +! Cleanup +deallocate(H) + +end subroutine build_zs + +!=============================================================================== + +subroutine crude_gcm_zs(lonlength,latlength,altlength,timelength, & + phis,ps,press,temp,zs_gcm) +!============================================================================== +! Purpose: Integrate hydrostatic equation in order to build the "above local +! surface altitudes" corresponding to GCM atmospheric levels +!============================================================================== +implicit none +!============================================================================== +! Arguments: +!============================================================================== +integer,intent(in) :: lonlength ! # of points along longitude +integer,intent(in) :: latlength ! # of points along latitude +integer,intent(in) :: altlength ! # of points along altitude +integer,intent(in) :: timelength ! # of stored time steps +real,dimension(lonlength,latlength),intent(in) :: phis +! phis(:,:) is the ground geopotential +real,dimension(lonlength,latlength,timelength),intent(in) :: ps +! ps(:,:) is the surface pressure +real,dimension(lonlength,latlength,altlength,timelength),intent(in) :: press +! press(:,:,:,:) is atmospheric pressure +real,dimension(lonlength,latlength,altlength,timelength),intent(in) :: temp +! temp(:,:,:,:) is atmospheric temperature + +real,dimension(lonlength,latlength,altlength,timelength),intent(out) :: zs_gcm +! zs_gcm(:,:,:,:) are the above local surface altitudes of GCM levels + +!=============================================================================== +! Local variables: +!=============================================================================== +real,dimension(:),allocatable :: sigma ! GCM sigma levels +real,parameter :: R=296.9 ! molecular gas constant +!real,dimension(:,:,:,:),allocatable :: zlocal ! local above surface altitude +real :: Tmean ! "mean" value of temperature for a given level +integer iloop,jloop,kloop,tloop + +! Parameters needed to integrate hydrostatic equation: +real,parameter :: g0=0.62 +!g0: exact mean gravity at radius=3396.km (Lemoine et al. 2001) +real,parameter :: a0=1187.E3 +!a0: 'mean' Mars radius=3396.km +real :: gz +! gz: gravitational acceleration at a given (zareoid) altitude + +!=============================================================================== +! 1. Various initialisations +!=============================================================================== +allocate(sigma(altlength)) +!allocate(zlocal(lonlength,latlength,altlength,timelength)) + +!=============================================================================== +! 2. Integrate hydrostatic equation to compute zlocal and za_gcm +!=============================================================================== +do tloop=1,timelength + do jloop=1,latlength + do iloop=1,lonlength + ! handle case of first altitude level + sigma(1)=press(iloop,jloop,1,tloop)/ps(iloop,jloop,tloop) + zs_gcm(iloop,jloop,1,tloop)=-log(sigma(1))* & + R*temp(iloop,jloop,1,tloop)/g0 +! za_gcm(iloop,jloop,1,tloop)=zlocal(iloop,jloop,1,tloop)+ & +! phis(iloop,jloop)/g0 + do kloop=2,altlength + ! compute sigma level of layer + sigma(kloop)=press(iloop,jloop,kloop,tloop)/ps(iloop,jloop,tloop) + + ! compute "mean" temperature of the layer + if(temp(iloop,jloop,kloop,tloop).eq. & + temp(iloop,jloop,kloop-1,tloop)) then + Tmean=temp(iloop,jloop,kloop,tloop) + else + Tmean=(temp(iloop,jloop,kloop,tloop)- & + temp(iloop,jloop,kloop-1,tloop))/ & + log(temp(iloop,jloop,kloop,tloop)/ & + temp(iloop,jloop,kloop-1,tloop)) + endif + + ! compute gravitational acceleration (at altitude zaeroid(kloop-1)) + ! NB: zareoid=zsurface+phis/g0 + gz=g0*(a0**2)/ & + (a0+zs_gcm(iloop,jloop,kloop-1,tloop)+phis(iloop,jloop)/g0)**2 + + ! compute zs_gcm(iloop,jloop,kloop,tloop) + zs_gcm(iloop,jloop,kloop,tloop)=zs_gcm(iloop,jloop,kloop-1,tloop)- & + log(sigma(kloop)/sigma(kloop-1))*R*Tmean/gz + + ! compute za_gcm(kloop) +! za_gcm(iloop,jloop,kloop,tloop)=zlocal(iloop,jloop,kloop,tloop)+ & +! phis(iloop,jloop)/g0 + enddo ! kloop + enddo ! iloop + enddo ! jloop +enddo ! tloop + +! Cleanup +deallocate(sigma) +!deallocate(zlocal) + +end subroutine crude_gcm_zs + +!=============================================================================== + +!#include"crude_gcm_alt.F90" +subroutine crude_gcm_za(lonlength,latlength,altlength,timelength, & + phis,ps,press,temp,za_gcm) +!============================================================================== +! Purpose: Integrate hydrostatic equation in order to build the "above areoid +! altitudes" corresponding to GCM atmospheric levels +!============================================================================== +implicit none +!============================================================================== +! Arguments: +!============================================================================== +integer,intent(in) :: lonlength ! # of points along longitude +integer,intent(in) :: latlength ! # of points along latitude +integer,intent(in) :: altlength ! # of points along altitude +integer,intent(in) :: timelength ! # of stored time steps +real,dimension(lonlength,latlength),intent(in) :: phis +! phis(:,:) is the ground geopotential +real,dimension(lonlength,latlength,timelength),intent(in) :: ps +! ps(:,:) is the surface pressure +real,dimension(lonlength,latlength,altlength,timelength),intent(in) :: press +! press(:,:,:,:) is atmospheric pressure +real,dimension(lonlength,latlength,altlength,timelength),intent(in) :: temp +! temp(:,:,:,:) is atmospheric temperature + +real,dimension(lonlength,latlength,altlength,timelength),intent(out) :: za_gcm +! za_gcm(:,:,:,:) are the above aroid heights of GCM levels + +!=============================================================================== +! Local variables: +!=============================================================================== +real,dimension(:),allocatable :: sigma ! GCM sigma levels +real,parameter :: R=296 ! molecular gas constant +real,dimension(:,:,:,:),allocatable :: zlocal ! local above surface altitude +real :: Tmean ! "mean" value of temperature for a given level +integer iloop,jloop,kloop,tloop + +! Parameters needed to integrate hydrostatic equation: +real,parameter :: g0=0.62 +!g0: exact mean gravity at radius=3396.km (Lemoine et al. 2001) +real,parameter :: a0=1187.E3 +!a0: 'mean' Mars radius=3396.km +real :: gz +! gz: gravitational acceleration at a given (zareoid) altitude + +!=============================================================================== +! 1. Various initialisations +!=============================================================================== +allocate(sigma(altlength)) +allocate(zlocal(lonlength,latlength,altlength,timelength)) + +!=============================================================================== +! 2. Integrate hydrostatic equation to compute zlocal and za_gcm +!=============================================================================== +do tloop=1,timelength + do jloop=1,latlength + do iloop=1,lonlength + ! handle case of first altitude level + sigma(1)=press(iloop,jloop,1,tloop)/ps(iloop,jloop,tloop) + zlocal(iloop,jloop,1,tloop)=-log(sigma(1))* & + R*temp(iloop,jloop,1,tloop)/g0 + za_gcm(iloop,jloop,1,tloop)=zlocal(iloop,jloop,1,tloop)+ & + phis(iloop,jloop)/g0 + do kloop=2,altlength + ! compute sigma level of layer + sigma(kloop)=press(iloop,jloop,kloop,tloop)/ps(iloop,jloop,tloop) + + ! compute "mean" temperature of the layer + if(temp(iloop,jloop,kloop,tloop).eq. & + temp(iloop,jloop,kloop-1,tloop)) then + Tmean=temp(iloop,jloop,kloop,tloop) + else + Tmean=(temp(iloop,jloop,kloop,tloop)- & + temp(iloop,jloop,kloop-1,tloop))/ & + log(temp(iloop,jloop,kloop,tloop)/ & + temp(iloop,jloop,kloop-1,tloop)) + endif + + ! compute gravitational acceleration (at altitude zaeroid(kloop-1)) + gz=g0*(a0**2)/(a0+za_gcm(iloop,jloop,kloop-1,tloop))**2 + + ! compute zlocal(kloop) + zlocal(iloop,jloop,kloop,tloop)=zlocal(iloop,jloop,kloop-1,tloop)- & + log(sigma(kloop)/sigma(kloop-1))*R*Tmean/gz + + ! compute za_gcm(kloop) + za_gcm(iloop,jloop,kloop,tloop)=zlocal(iloop,jloop,kloop,tloop)+ & + phis(iloop,jloop)/g0 + enddo ! kloop + enddo ! iloop + enddo ! jloop +enddo ! tloop + +! Cleanup +deallocate(sigma) +deallocate(zlocal) + +end subroutine crude_gcm_za + +!=============================================================================== + +subroutine p_coord_interp(lonlen,latlen,altlen,tlen,newaltlen, & + missing,ps,press,gcmdata,plevels,newdata) +!============================================================================== +! Purpose: +! Recast a 4D (spatio-temporal) GCM dataset, which has a vertical coordinate +! in pseudo-altitude, into a dataset which has a vertical coordinate at given +! pressure levels +!============================================================================== +implicit none +!============================================================================== +! Arguments: +!============================================================================== +integer,intent(in) :: lonlen ! # of points along longitude (GCM dataset) +integer,intent(in) :: latlen ! # of points along latitude (GCM dataset) +integer,intent(in) :: altlen ! # of points along altitude (GCM dataset) +integer,intent(in) :: tlen ! # of stored time steps (GCM dataset) +integer,intent(in) :: newaltlen ! # of points along altitude +real,intent(in) :: missing ! missing value +real,dimension(lonlen,latlen,tlen),intent(in) :: ps ! GCM surface pressure +real,dimension(lonlen,latlen,altlen,tlen),intent(in) :: press ! GCM pressure +real,dimension(lonlen,latlen,altlen,tlen),intent(in) :: gcmdata ! GCM dataset +real,dimension(newaltlen),intent(in) :: plevels +! plevels(:) pressure levels at which gcmdata is to be interpolated + +real,dimension(lonlen,latlen,newaltlen,tlen),intent(out) :: newdata +! newdata(:,:,:,:) gcmdata recasted along vertical coordinate +!============================================================================== +! Local variables: +!============================================================================== +real,dimension(:),allocatable :: lnp +! lnp(:): used to store log(pressure) values +real,dimension(:),allocatable :: q +! q(:): used to store values along vertical direction +real :: x,y +! x,y: temporary variables +integer :: iloop,jloop,kloop,tloop + +allocate(lnp(altlen)) +allocate(q(altlen)) + +do tloop=1,tlen + do jloop=1,latlen + do iloop=1,lonlen + ! build lnp() and q() along vertical coordinate + do kloop=1,altlen + lnp(kloop)=-log(press(iloop,jloop,kloop,tloop)) + q(kloop)=gcmdata(iloop,jloop,kloop,tloop) + enddo + + ! Interpolation + do kloop=1,newaltlen + ! compute, by interpolation, value at pressure level plevels(kloop) + if ((plevels(kloop).le.ps(iloop,jloop,tloop)).and. & + (plevels(kloop).ge.press(iloop,jloop,altlen,tloop))) then + x=-log(plevels(kloop)) + call interpolf(x,y,missing,lnp,q,altlen) + newdata(iloop,jloop,kloop,tloop) = y + else ! if plevels(kloop) is out of range, + ! assign a "missing_value" at this node + newdata(iloop,jloop,kloop,tloop) = missing + endif + enddo + + enddo !iloop + enddo !jloop +enddo !tloop + +! Cleanup +deallocate(lnp) +deallocate(q) + +end subroutine p_coord_interp + +!=============================================================================== + +!#include"za_coord_interp.F90" +subroutine z_coord_interp(lonlen,latlen,altlen,tlen,newaltlen, & + missing,z_gcm,gcmdata,flag,z_new,newdata) +!============================================================================== +! Purpose: +! Recast a 4D (spatio-temporal) GCM dataset 'gcmdata', for which corresponding +! grid values of altitude are known 'z_gcm', onto a new altitude grid 'z_new'. +! "Altitudes" can be above areoid or above local surface altitudes, as long as +! both 'z_gcm' and 'znew' refer to altitudes of a same type. +! Note: If altitudes in 'znew' fall outside of the range of altitudes +! in 'z_gcm' then corresponding 'newdata' value is set to 'missing'. +! 'z_gcm' and 'znew' altitudes must be monotone increasing sequences. +!============================================================================== +implicit none +!============================================================================== +! Arguments: +!============================================================================== +integer,intent(in) :: lonlen ! # of points along longitude (GCM dataset) +integer,intent(in) :: latlen ! # of points along latitude (GCM dataset) +integer,intent(in) :: altlen ! # of points along altitude (GCM dataset) +integer,intent(in) :: tlen ! # of stored time steps (GCM dataset) +integer,intent(in) :: newaltlen ! # of points along altitude +real,intent(in) :: missing ! missing value +real,dimension(lonlen,latlen,altlen,tlen),intent(in) :: z_gcm +!z_gcm(:,:,:,) GCM grid points altitude (above areoid or above surface) +real,dimension(lonlen,latlen,altlen,tlen),intent(in) :: gcmdata ! GCM dataset +integer,intent(in) :: flag ! flag (==1 for 'log' interpolation) +! flag==0 (standard linear interpolation) +real,dimension(newaltlen),intent(in) :: z_new +! z_new(:) altitudes (above areoid or surface) at which data must be recast + +real,dimension(lonlen,latlen,newaltlen,tlen),intent(out) :: newdata +! newdata(:,:,:,:) gcmdata recasted along vertical coordinate + +!============================================================================== +! Local variables: +!============================================================================== +real,dimension(:),allocatable :: za,q +real,dimension(:),allocatable :: logq +! za(:): used to store z_gcm at a given location +! q(:): used to store field values along the vertical direction +real :: x,y ! temporary variables +integer :: iloop,jloop,kloop,tloop + +allocate(za(altlen)) +allocate(q(altlen)) +allocate(logq(altlen)) + +if (flag.eq.0) then + do tloop=1,tlen + do jloop=1,latlen + do iloop=1,lonlen + do kloop=1,altlen + ! extract the vertical coordinates + za(kloop)=z_gcm(iloop,jloop,kloop,tloop) + ! store values along altitude + q(kloop)=gcmdata(iloop,jloop,kloop,tloop) + enddo !kloop + + ! Interpolation + do kloop=1,newaltlen + ! Check if z_new(kloop) is within range + if ((z_new(kloop).ge.z_gcm(iloop,jloop,1,tloop)).and. & + (z_new(kloop).le.z_gcm(iloop,jloop,altlen,tloop))) then + ! z_new(kloop) is within range + x=z_new(kloop) + call interpolf(x,y,missing,za,q,altlen) + newdata(iloop,jloop,kloop,tloop)=y + else ! z_new(kloop) is out of range + newdata(iloop,jloop,kloop,tloop)=missing + endif + enddo !kloop + enddo !iloop + enddo !jloop + enddo !tloop +else ! case when flag=1 (i.e.: rho) + do tloop=1,tlen + do jloop=1,latlen + do iloop=1,lonlen + do kloop=1,altlen + ! extract the vertical coordinates + za(kloop)=z_gcm(iloop,jloop,kloop,tloop) + ! store log values along altitude + logq(kloop)=log(gcmdata(iloop,jloop,kloop,tloop)) + enddo !kloop + + ! Interpolation + do kloop=1,newaltlen + ! Check if z_new(kloop) is within range + if ((z_new(kloop).ge.z_gcm(iloop,jloop,1,tloop)).and. & + (z_new(kloop).le.z_gcm(iloop,jloop,altlen,tloop))) then + ! z_new(kloop) is within range + x=z_new(kloop) + call interpolf(x,y,missing,za,logq,altlen) + newdata(iloop,jloop,kloop,tloop)=exp(y) + else ! z_new(kloop) is out of range + newdata(iloop,jloop,kloop,tloop)=missing + endif + enddo !kloop + enddo !iloop + enddo !jloop + enddo !tloop +endif + +! Cleanup +deallocate(za) +deallocate(q) +deallocate(logq) + +end subroutine z_coord_interp + +!=============================================================================== + +subroutine zs_coord_interp(lonlen,latlen,altlen,tlen,newaltlen, & + missing,z_gcm,gcmdata,phis,press,temp,rho, & + have_rho,flag,z_new,newdata) +!============================================================================== +! Purpose: +! Recast a 4D (spatio-temporal) GCM dataset 'gcmdata', for which corresponding +! grid values of altitude are known 'z_gcm', onto a new altitude grid 'z_new'. +! "Altitudes" must be above local surface altitudes. +! Notes: +! 'z_gcm' and 'znew' altitudes must be monotone increasing sequences. +! If altitudes in 'znew(i)' fall below those in 'z_gcm(:,:,1,:)', then +! 'newdata(:,:,i,:)' is set to constant value 'gcmdata(:,:,1,:)' if +! flag=0, and extrapolated (exponentially) if flag=1. +! If altitudes in 'znew(i)' are above those in 'z_gcm(:,:,altlen,:)', then +! 'newdata(:,:,i,:)' is set to constant value 'gcmdata(:,:,altlen,:)' +! if flag=0, and extrapolated (exponentially) if flag=1. +!============================================================================== +implicit none +!============================================================================== +! Arguments: +!============================================================================== +integer,intent(in) :: lonlen ! # of points along longitude (GCM dataset) +integer,intent(in) :: latlen ! # of points along latitude (GCM dataset) +integer,intent(in) :: altlen ! # of points along altitude (GCM dataset) +integer,intent(in) :: tlen ! # of stored time steps (GCM dataset) +integer,intent(in) :: newaltlen ! # of points along altitude +real,intent(in) :: missing ! missing value +real,dimension(lonlen,latlen,altlen,tlen),intent(in) :: z_gcm +!z_gcm(:,:,:,) GCM grid points altitude (above areoid or above surface) +real,dimension(lonlen,latlen,altlen,tlen),intent(in) :: gcmdata ! GCM dataset +real,dimension(lonlen,latlen),intent(in) :: phis +! phis(:,:) is the ground geopotential +real,dimension(lonlen,latlen,altlen,tlen),intent(in) :: press +! press(:,:,:,:) is atmospheric pressure on GCM levels +real,dimension(lonlen,latlen,altlen,tlen),intent(in) :: temp +! temp(:,:,:,:) is atmospheric temperature on GCM levels +real,dimension(lonlen,latlen,altlen,tlen),intent(in) :: rho +! rho(:,:,:,:) is atmospheric density on GCM levels +logical,intent(in) :: have_rho ! trueif we have density at hand +integer,intent(in) :: flag ! flag (==1 for 'log' interpolation) +! flag==0 (standard linear interpolation) +real,dimension(newaltlen),intent(in) :: z_new +! z_new(:) altitudes (above areoid or surface) at which data must be recast + +real,dimension(lonlen,latlen,newaltlen,tlen),intent(out) :: newdata +! newdata(:,:,:,:) gcmdata recasted along vertical coordinate + +!============================================================================== +! Local variables: +!============================================================================== +real,dimension(:),allocatable :: z,q +real,dimension(:),allocatable :: logq +! z(:): used to store z_gcm at a given location +! q(:): used to store field values along the vertical direction +real,dimension(:,:,:),allocatable :: Rbottom,Rtop +! values of R (gas constant) below and above GCM layers +real :: x,y ! temporary variables +integer :: iloop,jloop,kloop,tloop +real,parameter :: g0=0.62 +!g0: exact mean gravity at radius=3396.km (Lemoine et al. 2001) +real,parameter :: a0=1187.E3 +!a0: 'mean' Mars radius=3396.km +real,parameter :: Rmean=296.9 ! molecular gas constant +real :: gz +! gz: gravitational acceleration at a given (above areoid) altitude + +allocate(z(altlen)) +allocate(q(altlen)) +allocate(logq(altlen)) + +! 1. Build Rbottom and Rtop (only necessary if flag=1) +if (flag.eq.1) then + allocate(Rbottom(lonlen,latlen,tlen)) + allocate(Rtop(lonlen,latlen,tlen)) + if (have_rho) then + do iloop=1,lonlen + do jloop=1,latlen + do tloop=1,tlen + Rbottom(iloop,jloop,tloop)=press(iloop,jloop,1,tloop)/ & + (rho(iloop,jloop,1,tloop)* & + temp(iloop,jloop,1,tloop)) + Rtop(iloop,jloop,tloop)=press(iloop,jloop,altlen,tloop)/ & + (rho(iloop,jloop,altlen,tloop)* & + temp(iloop,jloop,altlen,tloop)) + enddo + enddo + enddo + else ! we don't have density at hand; use mean molecular gas constant value + Rbottom(:,:,:)=Rmean + Rtop(:,:,:)=Rmean + endif +endif ! if (flag.eq.1) + +! 2. Interpolation +if (flag.eq.0) then + do tloop=1,tlen + do jloop=1,latlen + do iloop=1,lonlen + ! preliminary stuff + do kloop=1,altlen + ! extract the vertical coordinates + z(kloop)=z_gcm(iloop,jloop,kloop,tloop) + ! store values along altitude + q(kloop)=gcmdata(iloop,jloop,kloop,tloop) + enddo !kloop + + ! Interpolation + do kloop=1,newaltlen + if (z_new(kloop).lt.z_gcm(iloop,jloop,1,tloop)) then + ! z_new(kloop) is below lowest GCM level + newdata(iloop,jloop,kloop,tloop)=gcmdata(iloop,jloop,1,tloop) + else if (z_new(kloop).gt.z_gcm(iloop,jloop,altlen,tloop)) then + ! z_new(kloop) is above highest GCM level + newdata(iloop,jloop,kloop,tloop)=gcmdata(iloop,jloop,altlen,tloop) + else ! z_new(kloop) is within range + x=z_new(kloop) + call interpolf(x,y,missing,z,q,altlen) + newdata(iloop,jloop,kloop,tloop)=y + endif + enddo !kloop + enddo !iloop + enddo !jloop + enddo !tloop +else ! case when flag=1 (i.e.: rho or pressure) + do tloop=1,tlen + do jloop=1,latlen + do iloop=1,lonlen + ! preliminary stuff + do kloop=1,altlen + ! extract the vertical coordinates + z(kloop)=z_gcm(iloop,jloop,kloop,tloop) + ! store log values along altitude + logq(kloop)=log(gcmdata(iloop,jloop,kloop,tloop)) + enddo !kloop + + ! Interpolation + do kloop=1,newaltlen + if (z_new(kloop).lt.z_gcm(iloop,jloop,1,tloop)) then + ! z_new(kloop) is below lowest GCM level + newdata(iloop,jloop,kloop,tloop)=gcmdata(iloop,jloop,1,tloop)* & + exp(((z_gcm(iloop,jloop,1,tloop)-z_new(kloop))*g0)/ & + (Rbottom(iloop,jloop,tloop)* & + temp(iloop,jloop,1,tloop))) + else if (z_new(kloop).gt.z_gcm(iloop,jloop,altlen,tloop)) then + ! z_new(kloop) is above highest GCM level + ! NB: zareoid=zsurface+phis/g0 + gz=g0*a0*a0/(a0+z_new(kloop)+phis(iloop,jloop)/g0)**2 + newdata(iloop,jloop,kloop,tloop)=gcmdata(iloop,jloop,altlen,tloop)* & + exp(((z_gcm(iloop,jloop,altlen,tloop)-z_new(kloop))*gz)/ & + (Rtop(iloop,jloop,tloop)* & + temp(iloop,jloop,altlen,tloop))) + else ! z_new(kloop) is within range + x=z_new(kloop) + call interpolf(x,y,missing,z,logq,altlen) + newdata(iloop,jloop,kloop,tloop)=exp(y) + endif + enddo !kloop + enddo !iloop + enddo !jloop + enddo !tloop +endif + +! Cleanup +deallocate(z) +deallocate(q) +deallocate(logq) +if (flag.eq.1) then + deallocate(Rbottom) + deallocate(Rtop) +endif + +end subroutine zs_coord_interp + +!=============================================================================== + +subroutine interpolf(x,y,missing,xd,yd,nd) +!============================================================================== +! Purpose: +! Yield y=f(x), where xd() end yd() are arrays of known values, +! using linear interpolation +! If x is not included in the interval spaned by xd(), then y is set +! to a default value 'missing' +! Note: +! Array xd() should contain ordered (either increasing or decreasing) abscissas +!============================================================================== +implicit none +!============================================================================== +! Arguments: +!============================================================================== +real,intent(in) :: x ! abscissa at which interpolation is to be done +real,intent(in) :: missing ! missing value (if no interpolation is performed) +integer :: nd ! size of arrays +real,dimension(nd),intent(in) :: xd ! array of known absissas +real,dimension(nd),intent(in) :: yd ! array of correponding values + +real,intent(out) :: y ! interpolated value +!============================================================================== +! Local variables: +!============================================================================== +integer :: i + +! default: set y to 'missing' +y=missing + + do i=1,nd-1 + if (((x.ge.xd(i)).and.(x.le.xd(i+1))).or.& + ((x.le.xd(i)).and.(x.ge.xd(i+1)))) then + y=yd(i)+(x-xd(i))*(yd(i+1)-yd(i))/(xd(i+1)-xd(i)) + exit + endif + enddo + + +end subroutine interpolf + +!=============================================================================== + +subroutine build_gcm_ra(lonlength,latlength,altlength,timelength, & + lon,lat,za_gcm,ra_gcm) +!============================================================================== +! Purpose: Build, from the "above areoid altitudes" of GCM levels, +! the corresponding "radial distance to center of Mars" values +!============================================================================== +implicit none +!============================================================================== +! Arguments: +!============================================================================== +integer,intent(in) :: lonlength ! # of points along longitude +integer,intent(in) :: latlength ! # of points along latitude +integer,intent(in) :: altlength ! # of points along altitude +integer,intent(in) :: timelength ! # of stored time steps +real,intent(in) :: lon(lonlength) ! GCM longitudes +real,intent(in) :: lat(latlength) ! GCM latitudes +!za_gcm: above areoid altitudes of GCM levels +real,intent(in) :: za_gcm(lonlength,latlength,altlength,timelength) +!ra_gcm: radial distance to center of planet of GCM levels +real,intent(out) :: ra_gcm(lonlength,latlength,altlength,timelength) + +!=============================================================================== +! Local variables: +!=============================================================================== +real :: rareoid(lonlength,latlength) ! radial position (ie: distance to the +! center of Mars) of the reference areoid for GCM longitudes and latitudes +integer :: iloop,jloop,kloop,tloop +double precision :: dlon,dlat,dareoid ! double precision temp variables + +! common data shared with 'areoid_ini' and 'geoid' routines +integer,parameter :: ndeg=90,ndeg2=2*ndeg,nd2p3=ndeg2+3 +! data structure of gravity field + double precision v0,omega,ae,gm + double precision clm(0:ndeg,0:ndeg),slm(0:ndeg,0:ndeg) + common /gmm1/v0,omega,ae,gm,clm,slm + integer lmin,lmax + double precision root(nd2p3) + double precision requator + common /sqr/ lmin,lmax,root,requator + +!=============================================================================== +! 1. Various initialisations +!=============================================================================== +! initalize coefficients of areoid model +call areoid_ini() + +! compute rareoid for GCM longitude/latitude grid +do iloop=1,lonlength + dlon=lon(iloop) ! double precision version of lon + do jloop=1,latlength + dlat=lat(jloop) ! double precision version of lat + call geoid(dlon,dlat,dareoid) + rareoid(iloop,jloop)=dareoid + enddo +enddo + +!=============================================================================== +! 1. Compute ra_gcm +!=============================================================================== +!!! test: +!rareoid(:,:)=0 + +do tloop=1,timelength + do kloop=1,altlength + ra_gcm(:,:,kloop,tloop)=za_gcm(:,:,kloop,tloop)+rareoid(:,:) + enddo +enddo + +end subroutine build_gcm_ra + + + +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Routines corresponding to Lemoine et al. 2001 implementation. +! Based on "areoid.f" program by G. Neumann, which is available at +! ftp://ltpftp.gsfc.nasa.gov/projects/tharsis/MOLA/SOFTWARE/ +! uses the gravity field coefficients file 'mgm1025' available in +! the same ftp directory +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +subroutine areoid_ini() +implicit none +!character(len=250) :: mgm="/u/emlmd/MCD_v4.3/data/mgm1025" + +!character(len=64) :: title ! first line of file +!character(len=6) :: gcoef +! data structure of gravity field + integer ndeg,ndeg2,nd2p3 + parameter (ndeg=90,ndeg2=2*ndeg,nd2p3=ndeg2+3) + double precision c(0:ndeg,0:ndeg),s(0:ndeg,0:ndeg) + double precision v0,omega,ae,gm !,clm,slm + double precision plm(ndeg) + common /gmm1/ v0,omega,ae,gm,c,s + integer lmin,lmax + double precision root(nd2p3) + double precision r + common /sqr/ lmin,lmax, root,r +! +! integer lcmax,mmax + integer k,l,m +! double precision coef + double precision x,xi,sum + + ae= 1187000.d0 + gm =869.6 !stern et al 2015 gravitational parameter mu (km3/s-2) = G*M + omega=1.138594423d-5 ! Pluto = 2*pi / P rad/s +! this value makes the equatorial mean radius equal to 3396 km. + do k=1,nd2p3 + root(k)=sqrt(dble(k)) + enddo +! initialize coefficients c and s +c(:,:)=0 +s(:,:)=0 + +! fill in the values of c() and s() (extracted from mgm1025 file) +c( 2, 0)= -0.87450441550858D-03 +c( 3, 0)= -0.11889205541698D-04 +c( 4, 0)= 0.51231389950069D-05 +c( 5, 0)= -0.17246183479555D-05 +c( 6, 0)= 0.13442413561338D-05 +c( 7, 0)= 0.10568085417745D-05 +c( 8, 0)= 0.14344394468535D-06 +c( 9, 0)= -0.28623030841535D-06 +c(10, 0)= 0.72517371380309D-06 +c(11, 0)= -0.26515503657960D-06 +c(12, 0)= 0.25791004374137D-06 +c(13, 0)= -0.48987732989967D-06 +c(14, 0)= 0.30149567154029D-06 +c(15, 0)= 0.49309755579596D-06 +c(16, 0)= 0.62303904221200D-06 +c(17, 0)= -0.53940568680542D-07 +c(18, 0)= -0.31286409396935D-06 +c(19, 0)= 0.66506982323697D-08 +c(20, 0)= 0.29800506646171D-06 +c(21, 0)= 0.12382554869535D-06 +c(22, 0)= -0.11079454891980D-06 +c(23, 0)= 0.46651763615791D-07 +c(24, 0)= 0.26561879988827D-06 +c(25, 0)= -0.14012911779311D-06 +c(26, 0)= -0.17890980799686D-06 +c(27, 0)= -0.22473934735542D-06 +c(28, 0)= 0.35017911372558D-07 +c(29, 0)= 0.96416933029589D-07 +c(30, 0)= 0.13454167912854D-07 +c(31, 0)= 0.11415389076391D-06 +c(32, 0)= 0.14309722973488D-06 +c(33, 0)= -0.93613803420433D-07 +c(34, 0)= -0.11634597651051D-06 +c(35, 0)= 0.17390073509388D-07 +c(36, 0)= 0.17980990446829D-06 +c(37, 0)= -0.58813753768476D-07 +c(38, 0)= -0.15639701438663D-06 +c(39, 0)= 0.67338858450205D-07 +c(40, 0)= 0.10015015531020D-06 +c(41, 0)= 0.65659089401047D-07 +c(42, 0)= -0.32828754909310D-07 +c(43, 0)= 0.55320735747522D-07 +c(44, 0)= 0.10719796171993D-06 +c(45, 0)= -0.24466821475646D-07 +c(46, 0)= 0.53066022003621D-07 +c(47, 0)= 0.18183459032733D-08 +c(48, 0)= -0.90336249640171D-07 +c(49, 0)= 0.10172719809900D-07 +c(50, 0)= 0.14157647949966D-06 +c(51, 0)= -0.13459597844273D-07 +c(52, 0)= -0.10770557778749D-06 +c(53, 0)= 0.41656444281046D-07 +c(54, 0)= 0.23491811928996D-07 +c(55, 0)= 0.39514870435300D-07 +c(56, 0)= 0.17750185036483D-07 +c(57, 0)= -0.16389790284882D-07 +c(58, 0)= 0.15924966924563D-07 +c(59, 0)= -0.52269191539423D-07 +c(60, 0)= 0.22651535424788D-07 +c(61, 0)= -0.22088875934791D-07 +c(62, 0)= -0.89365975311230D-07 +c(63, 0)= -0.22314891242664D-06 +c(64, 0)= -0.10126090956466D-06 +c(65, 0)= 0.53472579669405D-07 +c(66, 0)= -0.79239790651784D-07 +c(67, 0)= -0.93403592836398D-07 +c(68, 0)= -0.92958885757065D-07 +c(69, 0)= -0.23268566991842D-06 +c(70, 0)= -0.61104272230081D-07 +c(71, 0)= -0.15227130308936D-06 +c(72, 0)= 0.44022260088073D-07 +c(73, 0)= -0.18296622662986D-06 +c(74, 0)= -0.21563284613746D-07 +c(75, 0)= -0.14408830353913D-06 +c(76, 0)= -0.31971691137664D-07 +c(77, 0)= -0.96143919013694D-07 +c(78, 0)= -0.14039664820363D-07 +c(79, 0)= -0.56173045626134D-07 +c(80, 0)= -0.42587385931103D-07 +c( 2, 1)= 0.94588820913966D-10 +c( 3, 1)= 0.38007291643504D-05 +c( 4, 1)= 0.42113282449449D-05 +c( 5, 1)= 0.48295248273193D-06 +c( 6, 1)= 0.17989300452431D-05 +c( 7, 1)= 0.13721377780493D-05 +c( 8, 1)= -0.13172502269848D-06 +c( 9, 1)= 0.41968715869939D-06 +c(10, 1)= 0.92089843305934D-06 +c(11, 1)= -0.81438583356007D-06 +c(12, 1)= -0.11226169861948D-05 +c(13, 1)= -0.56756560374700D-06 +c(14, 1)= 0.75140494090486D-06 +c(15, 1)= 0.23398249720387D-06 +c(16, 1)= -0.23315134603590D-06 +c(17, 1)= -0.37162884465144D-06 +c(18, 1)= -0.18094168688736D-06 +c(19, 1)= 0.46181639714625D-07 +c(20, 1)= 0.18344606355547D-06 +c(21, 1)= -0.14791536512739D-06 +c(22, 1)= -0.40126140681542D-06 +c(23, 1)= 0.24408804946295D-06 +c(24, 1)= 0.18984659529516D-06 +c(25, 1)= -0.77644847446303D-07 +c(26, 1)= -0.18954371508813D-06 +c(27, 1)= 0.58215212507928D-07 +c(28, 1)= 0.15662107285173D-06 +c(29, 1)= 0.69848912908713D-07 +c(30, 1)= -0.14594550925334D-06 +c(31, 1)= -0.60978169516080D-07 +c(32, 1)= -0.69857883539046D-07 +c(33, 1)= -0.40910599890025D-07 +c(34, 1)= 0.69727112840257D-07 +c(35, 1)= 0.69051821175597D-07 +c(36, 1)= -0.89123393751658D-07 +c(37, 1)= -0.10308616478520D-06 +c(38, 1)= -0.17953527802480D-07 +c(39, 1)= 0.13357163900313D-06 +c(40, 1)= 0.32997141656491D-07 +c(41, 1)= -0.42770439863940D-07 +c(42, 1)= -0.33815214882692D-07 +c(43, 1)= 0.10228125797069D-06 +c(44, 1)= 0.83199427365936D-07 +c(45, 1)= -0.26716533044488D-08 +c(46, 1)= -0.21968332747552D-07 +c(47, 1)= 0.26051927992496D-07 +c(48, 1)= -0.20011329156204D-07 +c(49, 1)= -0.46000606601472D-07 +c(50, 1)= -0.50465401285307D-08 +c(51, 1)= -0.21435559836597D-07 +c(52, 1)= -0.79586940432080D-07 +c(53, 1)= -0.21721909216360D-08 +c(54, 1)= 0.11211857004569D-07 +c(55, 1)= -0.14572008323947D-07 +c(56, 1)= -0.76165251339758D-07 +c(57, 1)= -0.33685497326864D-07 +c(58, 1)= 0.29095996986081D-07 +c(59, 1)= 0.11183726327720D-07 +c(60, 1)= -0.29984787445527D-07 +c(61, 1)= 0.32521236160127D-07 +c(62, 1)= 0.81714334232117D-08 +c(63, 1)= -0.44106457563710D-08 +c(64, 1)= -0.11522745649087D-07 +c(65, 1)= 0.24452822525910D-07 +c(66, 1)= 0.39582110377419D-08 +c(67, 1)= -0.16048574963929D-07 +c(68, 1)= -0.10635293597363D-08 +c(69, 1)= -0.25348757056472D-08 +c(70, 1)= -0.13990070916062D-07 +c(71, 1)= -0.21113532040349D-07 +c(72, 1)= 0.21388767403742D-07 +c(73, 1)= -0.45295107975469D-07 +c(74, 1)= 0.11061952017768D-08 +c(75, 1)= -0.20070701321975D-07 +c(76, 1)= -0.81623263977223D-08 +c(77, 1)= -0.48608889440242D-08 +c(78, 1)= 0.48605157923197D-08 +c(79, 1)= -0.72265799247382D-08 +c(80, 1)= 0.12959728064204D-07 +c( 2, 2)= -0.84585751018071D-04 +c( 3, 2)= -0.15933741663502D-04 +c( 4, 2)= -0.95107786023564D-06 +c( 5, 2)= -0.42918839549229D-05 +c( 6, 2)= 0.85990806408567D-06 +c( 7, 2)= 0.28084893201890D-05 +c( 8, 2)= 0.18057628945403D-05 +c( 9, 2)= 0.11356212264308D-05 +c(10, 2)= 0.73405458338506D-08 +c(11, 2)= -0.31264422685096D-06 +c(12, 2)= -0.97454248928457D-07 +c(13, 2)= 0.19140550616679D-06 +c(14, 2)= 0.44883687385942D-06 +c(15, 2)= -0.35213615909880D-06 +c(16, 2)= -0.48079087360350D-06 +c(17, 2)= -0.20190086133281D-06 +c(18, 2)= -0.10432508924443D-06 +c(19, 2)= -0.52238899978893D-07 +c(20, 2)= 0.69247343387462D-07 +c(21, 2)= -0.93994254289733D-07 +c(22, 2)= 0.10295574560935D-06 +c(23, 2)= 0.19547803118600D-06 +c(24, 2)= 0.19407504646311D-07 +c(25, 2)= -0.17219187149635D-06 +c(26, 2)= -0.20135410709838D-06 +c(27, 2)= -0.28273103642271D-08 +c(28, 2)= 0.30690987897186D-06 +c(29, 2)= 0.79628272547828D-07 +c(30, 2)= -0.18900571342100D-06 +c(31, 2)= 0.83337491764168D-07 +c(32, 2)= 0.13315305225107D-06 +c(33, 2)= 0.58675965618782D-07 +c(34, 2)= -0.10511750363253D-06 +c(35, 2)= -0.41561363195631D-07 +c(36, 2)= 0.10803644254118D-06 +c(37, 2)= 0.57900788447265D-07 +c(38, 2)= -0.10674339261125D-07 +c(39, 2)= 0.10267822284623D-08 +c(40, 2)= -0.39409739046749D-07 +c(41, 2)= 0.48560442200681D-07 +c(42, 2)= 0.44295705013232D-08 +c(43, 2)= -0.23863651808965D-07 +c(44, 2)= -0.40529365741889D-07 +c(45, 2)= -0.72544669649420D-07 +c(46, 2)= -0.30840437495884D-07 +c(47, 2)= -0.10134355839673D-07 +c(48, 2)= -0.74066104086251D-07 +c(49, 2)= -0.42575092353871D-07 +c(50, 2)= 0.38002915272366D-07 +c(51, 2)= 0.30850031943561D-08 +c(52, 2)= -0.38896999892434D-07 +c(53, 2)= -0.20811133913029D-08 +c(54, 2)= 0.60282320372300D-07 +c(55, 2)= 0.66842630552045D-08 +c(56, 2)= -0.15054903643693D-07 +c(57, 2)= -0.16272429639032D-07 +c(58, 2)= -0.77062433134402D-08 +c(59, 2)= 0.22152915027638D-07 +c(60, 2)= 0.33331254807163D-07 +c(61, 2)= 0.47393585702229D-07 +c(62, 2)= 0.24590842039888D-07 +c(63, 2)= -0.25081905036699D-07 +c(64, 2)= 0.85705073676948D-08 +c(65, 2)= 0.60565718726133D-09 +c(66, 2)= 0.13996463097736D-07 +c(67, 2)= 0.36801218056836D-07 +c(68, 2)= -0.17804762229462D-07 +c(69, 2)= 0.15279165045386D-07 +c(70, 2)= 0.11881995727714D-07 +c(71, 2)= -0.23621731481701D-07 +c(72, 2)= 0.16890385593438D-07 +c(73, 2)= -0.20283358613253D-07 +c(74, 2)= 0.64980567456639D-08 +c(75, 2)= -0.23260084626746D-07 +c(76, 2)= 0.99374517344100D-08 +c(77, 2)= -0.32363754554167D-07 +c(78, 2)= 0.10856848087610D-07 +c(79, 2)= -0.27919914518472D-07 +c(80, 2)= 0.16116790335365D-07 +c( 3, 3)= 0.35023491711606D-04 +c( 4, 3)= 0.64490745811941D-05 +c( 5, 3)= 0.33076885084810D-05 +c( 6, 3)= 0.95401012517447D-06 +c( 7, 3)= 0.87863220403753D-06 +c( 8, 3)= -0.12040062428688D-05 +c( 9, 3)= -0.99094051068927D-06 +c(10, 3)= -0.29834384339389D-06 +c(11, 3)= -0.12986012000905D-05 +c(12, 3)= -0.14371536216267D-05 +c(13, 3)= 0.21515088011757D-06 +c(14, 3)= 0.42474467046937D-06 +c(15, 3)= -0.55907478206270D-06 +c(16, 3)= -0.53391027929080D-06 +c(17, 3)= -0.45940051707924D-07 +c(18, 3)= -0.29341890127158D-06 +c(19, 3)= -0.52823002208831D-07 +c(20, 3)= 0.42381732878213D-06 +c(21, 3)= -0.15864628605041D-06 +c(22, 3)= -0.37694486993635D-06 +c(23, 3)= 0.10153362064588D-06 +c(24, 3)= 0.33326669401862D-06 +c(25, 3)= 0.10923543811362D-06 +c(26, 3)= -0.15114438271846D-06 +c(27, 3)= 0.12204330344988D-06 +c(28, 3)= 0.19906682949500D-06 +c(29, 3)= 0.10324442774105D-06 +c(30, 3)= -0.35165969895604D-07 +c(31, 3)= -0.37695255894017D-07 +c(32, 3)= -0.15441100504594D-06 +c(33, 3)= -0.12566971141268D-06 +c(34, 3)= 0.86388483626716D-07 +c(35, 3)= 0.73898333015289D-07 +c(36, 3)= -0.11654986577645D-06 +c(37, 3)= -0.12337255642019D-06 +c(38, 3)= -0.93452853607312D-07 +c(39, 3)= 0.15866384390936D-07 +c(40, 3)= 0.22621856963862D-07 +c(41, 3)= -0.82261088157716D-07 +c(42, 3)= -0.11509240581167D-06 +c(43, 3)= -0.51209031157573D-07 +c(44, 3)= 0.87755823722094D-07 +c(45, 3)= -0.32736783199659D-07 +c(46, 3)= -0.44469896535062D-07 +c(47, 3)= 0.53202827198090D-07 +c(48, 3)= 0.31840012781999D-07 +c(49, 3)= -0.39439367510789D-07 +c(50, 3)= -0.24919100537213D-07 +c(51, 3)= 0.21683500372067D-07 +c(52, 3)= -0.33140152676634D-08 +c(53, 3)= -0.18205948135764D-07 +c(54, 3)= 0.43727885184963D-07 +c(55, 3)= 0.14256829781278D-07 +c(56, 3)= -0.33010270260415D-07 +c(57, 3)= 0.13439525530206D-07 +c(58, 3)= 0.19680334210526D-07 +c(59, 3)= 0.49353515402636D-07 +c(60, 3)= -0.32647840865208D-08 +c(61, 3)= 0.81100619477578D-08 +c(62, 3)= 0.43104153603246D-07 +c(63, 3)= 0.41737189429633D-08 +c(64, 3)= -0.76395988054220D-08 +c(65, 3)= 0.18729578607082D-07 +c(66, 3)= 0.17754380139907D-07 +c(67, 3)= -0.84496500704376D-08 +c(68, 3)= 0.16529568807175D-07 +c(69, 3)= 0.16310377740880D-07 +c(70, 3)= 0.35280078353266D-08 +c(71, 3)= 0.18307764248237D-07 +c(72, 3)= 0.31724949328092D-08 +c(73, 3)= 0.11816052480633D-07 +c(74, 3)= 0.17494675215840D-07 +c(75, 3)= 0.26118248858656D-08 +c(76, 3)= 0.30023266822151D-07 +c(77, 3)= -0.65712049623256D-08 +c(78, 3)= 0.24493993741607D-07 +c(79, 3)= -0.81982981193597D-09 +c(80, 3)= 0.14472986941000D-07 +c( 4, 4)= 0.30959206658010D-06 +c( 5, 4)= -0.46336405889077D-05 +c( 6, 4)= 0.10065686648503D-05 +c( 7, 4)= 0.24640560610782D-05 +c( 8, 4)= 0.15844031607287D-05 +c( 9, 4)= 0.29405976756683D-06 +c(10, 4)= -0.12101666736715D-05 +c(11, 4)= -0.15688434008850D-05 +c(12, 4)= -0.10108862643404D-06 +c(13, 4)= 0.17054914228551D-06 +c(14, 4)= 0.22728427855596D-06 +c(15, 4)= -0.71711294666294D-06 +c(16, 4)= -0.77468414495595D-06 +c(17, 4)= 0.45639058452256D-06 +c(18, 4)= 0.87264101737834D-06 +c(19, 4)= 0.13800527907950D-06 +c(20, 4)= -0.35839832070397D-06 +c(21, 4)= -0.39829410795150D-06 +c(22, 4)= 0.19549557765958D-06 +c(23, 4)= 0.44405614702060D-06 +c(24, 4)= 0.57394522076625D-07 +c(25, 4)= -0.61925818643782D-06 +c(26, 4)= -0.37209534817516D-06 +c(27, 4)= 0.34334229006640D-06 +c(28, 4)= 0.40345026906393D-06 +c(29, 4)= -0.18728923925709D-06 +c(30, 4)= -0.26245016435872D-06 +c(31, 4)= -0.31150685284646D-07 +c(32, 4)= 0.20037736081893D-06 +c(33, 4)= 0.91242269592696D-07 +c(34, 4)= -0.29153815376169D-07 +c(35, 4)= -0.17807633359855D-06 +c(36, 4)= -0.15303133769982D-06 +c(37, 4)= 0.10039017742705D-06 +c(38, 4)= 0.17157873926809D-06 +c(39, 4)= -0.14539420941324D-07 +c(40, 4)= -0.89280013487568D-07 +c(41, 4)= 0.37666735858964D-07 +c(42, 4)= 0.13264285074014D-06 +c(43, 4)= 0.51205577350747D-07 +c(44, 4)= 0.42197628209560D-07 +c(45, 4)= 0.37851610019160D-07 +c(46, 4)= -0.75655211066113D-08 +c(47, 4)= 0.90026651213639D-07 +c(48, 4)= 0.93009448368906D-07 +c(49, 4)= -0.23184611520205D-07 +c(50, 4)= -0.20719026291426D-07 +c(51, 4)= 0.34422439963500D-07 +c(52, 4)= 0.21952192711957D-07 +c(53, 4)= -0.21041597028035D-07 +c(54, 4)= -0.24228687045471D-07 +c(55, 4)= 0.37895570193813D-08 +c(56, 4)= -0.19352611895629D-07 +c(57, 4)= 0.16368584240792D-07 +c(58, 4)= 0.69419737541584D-07 +c(59, 4)= -0.69539185815161D-08 +c(60, 4)= -0.18799793363085D-07 +c(61, 4)= 0.14374232953337D-07 +c(62, 4)= -0.24130754111132D-07 +c(63, 4)= -0.36015801612887D-08 +c(64, 4)= 0.40250447914756D-08 +c(65, 4)= 0.10342517649973D-07 +c(66, 4)= -0.37158460287582D-07 +c(67, 4)= -0.35013020730218D-08 +c(68, 4)= -0.26839843046241D-09 +c(69, 4)= 0.76971770252262D-09 +c(70, 4)= 0.17192596869177D-07 +c(71, 4)= 0.26611715724886D-08 +c(72, 4)= 0.51616950532301D-08 +c(73, 4)= 0.17438582702884D-07 +c(74, 4)= 0.11010503509019D-07 +c(75, 4)= 0.61518542523363D-08 +c(76, 4)= 0.39330429681511D-08 +c(77, 4)= 0.70796199616500D-08 +c(78, 4)= -0.78748564738901D-08 +c(79, 4)= 0.77449061439055D-08 +c(80, 4)= -0.25351771157557D-08 +c( 5, 5)= -0.44434141649300D-05 +c( 6, 5)= 0.16548025737626D-05 +c( 7, 5)= -0.19096934491812D-06 +c( 8, 5)= -0.27850787272597D-05 +c( 9, 5)= -0.22656267960896D-05 +c(10, 5)= 0.42032262399202D-06 +c(11, 5)= 0.13520771564056D-05 +c(12, 5)= 0.71777774077014D-06 +c(13, 5)= 0.61450262542325D-08 +c(14, 5)= -0.45276921372495D-06 +c(15, 5)= -0.93462951523554D-06 +c(16, 5)= -0.34377637201001D-06 +c(17, 5)= 0.69789569926980D-06 +c(18, 5)= 0.20629370256866D-06 +c(19, 5)= -0.28358145151180D-06 +c(20, 5)= 0.16848241831807D-06 +c(21, 5)= 0.32529795139056D-06 +c(22, 5)= 0.72679019916679D-07 +c(23, 5)= -0.31654147385163D-06 +c(24, 5)= -0.34631841874185D-06 +c(25, 5)= 0.28611650642088D-06 +c(26, 5)= 0.20360981554297D-06 +c(27, 5)= 0.96293497515718D-07 +c(28, 5)= -0.47930164566393D-07 +c(29, 5)= -0.12691726734393D-06 +c(30, 5)= -0.93858451381326D-07 +c(31, 5)= 0.92431999857506D-07 +c(32, 5)= 0.93351803773724D-07 +c(33, 5)= -0.15400246903553D-06 +c(34, 5)= -0.14119500703571D-06 +c(35, 5)= 0.78736519330474D-07 +c(36, 5)= 0.83329148294896D-07 +c(37, 5)= 0.73174483987068D-07 +c(38, 5)= -0.55893430456265D-07 +c(39, 5)= -0.11157629707788D-06 +c(40, 5)= 0.54238258568734D-07 +c(41, 5)= 0.11263379495700D-06 +c(42, 5)= 0.41202421137030D-07 +c(43, 5)= -0.59032315787153D-07 +c(44, 5)= 0.26883253020711D-07 +c(45, 5)= 0.51890763975186D-07 +c(46, 5)= 0.13952729851129D-07 +c(47, 5)= 0.83317364677177D-08 +c(48, 5)= -0.13102674596668D-07 +c(49, 5)= -0.21274731423140D-07 +c(50, 5)= -0.54059556337886D-07 +c(51, 5)= -0.18854105667823D-07 +c(52, 5)= 0.22621073263953D-07 +c(53, 5)= -0.19805104368574D-07 +c(54, 5)= -0.19550955358517D-07 +c(55, 5)= -0.70267276107722D-08 +c(56, 5)= -0.30278638914856D-07 +c(57, 5)= -0.80729568890359D-08 +c(58, 5)= -0.33069309873432D-08 +c(59, 5)= 0.20020433625436D-07 +c(60, 5)= -0.25864119973521D-07 +c(61, 5)= -0.39757987838197D-07 +c(62, 5)= 0.64985926165149D-08 +c(63, 5)= 0.19392998715642D-07 +c(64, 5)= -0.12325977875120D-07 +c(65, 5)= -0.23164237582529D-07 +c(66, 5)= 0.12950766375034D-07 +c(67, 5)= 0.28954128332616D-09 +c(68, 5)= 0.14496023097164D-07 +c(69, 5)= 0.35344064539468D-07 +c(70, 5)= 0.11948634893181D-07 +c(71, 5)= 0.50615198739125D-08 +c(72, 5)= 0.29805375871243D-08 +c(73, 5)= -0.67955847102354D-08 +c(74, 5)= -0.68758792996420D-08 +c(75, 5)= 0.10638093088951D-07 +c(76, 5)= -0.14851134350421D-07 +c(77, 5)= 0.19291099080097D-07 +c(78, 5)= -0.16916285273421D-07 +c(79, 5)= 0.17689701598385D-07 +c(80, 5)= -0.38699679010122D-08 +c( 6, 6)= 0.27571599805567D-05 +c( 7, 6)= -0.55805315254086D-06 +c( 8, 6)= -0.91195769387441D-06 +c( 9, 6)= 0.80627407047627D-06 +c(10, 6)= 0.66759500742877D-06 +c(11, 6)= -0.24393303094978D-06 +c(12, 6)= -0.40190828647835D-06 +c(13, 6)= 0.43978424085633D-07 +c(14, 6)= -0.66013890282255D-07 +c(15, 6)= -0.62099703560131D-07 +c(16, 6)= 0.14317921213443D-06 +c(17, 6)= 0.63476326900737D-06 +c(18, 6)= 0.22350772799262D-06 +c(19, 6)= -0.27396734006137D-06 +c(20, 6)= 0.20104741582389D-06 +c(21, 6)= 0.62410418046131D-07 +c(22, 6)= -0.26852512844608D-06 +c(23, 6)= 0.38219653909366D-06 +c(24, 6)= 0.31595908792017D-06 +c(25, 6)= -0.15880959481453D-06 +c(26, 6)= -0.32691684424342D-06 +c(27, 6)= 0.27157517394775D-06 +c(28, 6)= 0.45910522899934D-06 +c(29, 6)= -0.90360646208109D-07 +c(30, 6)= -0.14350225793397D-06 +c(31, 6)= 0.58517088199898D-07 +c(32, 6)= 0.82448774379966D-08 +c(33, 6)= -0.14039660982872D-06 +c(34, 6)= -0.10319846464728D-07 +c(35, 6)= 0.16365404957830D-06 +c(36, 6)= -0.11439331698275D-06 +c(37, 6)= -0.17957148759724D-06 +c(38, 6)= 0.99909642061381D-07 +c(39, 6)= 0.73601014779209D-07 +c(40, 6)= -0.11129691323560D-06 +c(41, 6)= -0.50363372367066D-07 +c(42, 6)= 0.48970749788252D-07 +c(43, 6)= -0.21003915377398D-07 +c(44, 6)= -0.99990391085428D-07 +c(45, 6)= 0.33708262897175D-07 +c(46, 6)= 0.12638028137008D-07 +c(47, 6)= -0.91631664850957D-08 +c(48, 6)= -0.88122254176770D-08 +c(49, 6)= 0.40675867295780D-07 +c(50, 6)= 0.52310566613043D-07 +c(51, 6)= -0.13272662627539D-07 +c(52, 6)= -0.73904952552898D-08 +c(53, 6)= -0.14993717253759D-07 +c(54, 6)= -0.44698503381972D-07 +c(55, 6)= 0.17039893002879D-07 +c(56, 6)= 0.15830410793048D-07 +c(57, 6)= -0.14936960045191D-07 +c(58, 6)= 0.60206055639023D-08 +c(59, 6)= 0.46368464974162D-07 +c(60, 6)= 0.40230875207353D-07 +c(61, 6)= -0.15769084210498D-07 +c(62, 6)= -0.21166941664643D-07 +c(63, 6)= 0.18703755701939D-07 +c(64, 6)= -0.27691990214752D-08 +c(65, 6)= -0.33352911189790D-07 +c(66, 6)= -0.35608979285730D-07 +c(67, 6)= -0.70033417115897D-08 +c(68, 6)= -0.19185441063505D-07 +c(69, 6)= -0.32700471757675D-07 +c(70, 6)= 0.12564201099496D-07 +c(71, 6)= -0.15126602104398D-07 +c(72, 6)= 0.13317694048512D-07 +c(73, 6)= 0.13006332176297D-07 +c(74, 6)= -0.71969446649702D-08 +c(75, 6)= 0.28709756345817D-07 +c(76, 6)= -0.19623113496586D-07 +c(77, 6)= 0.18195733917348D-07 +c(78, 6)= -0.21640275443293D-07 +c(79, 6)= 0.11458350447296D-07 +c(80, 6)= -0.12170377130640D-07 +c( 7, 7)= 0.43995886876871D-06 +c( 8, 7)= -0.47261950038642D-06 +c( 9, 7)= -0.61651917619159D-06 +c(10, 7)= 0.31718853806594D-06 +c(11, 7)= 0.65859011010243D-06 +c(12, 7)= 0.40292072266072D-06 +c(13, 7)= -0.76808712383584D-06 +c(14, 7)= -0.44557079395778D-06 +c(15, 7)= 0.92204367511949D-06 +c(16, 7)= 0.38659794764365D-06 +c(17, 7)= 0.33821902436418D-06 +c(18, 7)= -0.19710160923205D-06 +c(19, 7)= -0.48845474893250D-06 +c(20, 7)= 0.68730006673845D-07 +c(21, 7)= 0.24155063400434D-06 +c(22, 7)= 0.26175060260014D-06 +c(23, 7)= -0.29231102856546D-06 +c(24, 7)= -0.40727652556414D-06 +c(25, 7)= 0.11980582758862D-06 +c(26, 7)= 0.12312238978368D-06 +c(27, 7)= 0.24812236262542D-08 +c(28, 7)= -0.17273809020356D-06 +c(29, 7)= -0.25850308737583D-06 +c(30, 7)= -0.84399266886281D-07 +c(31, 7)= 0.24130381448124D-06 +c(32, 7)= 0.16317990329089D-06 +c(33, 7)= -0.89111302464619D-07 +c(34, 7)= -0.17537996827503D-06 +c(35, 7)= 0.36799721551061D-07 +c(36, 7)= 0.10372056536401D-06 +c(37, 7)= 0.19570404665206D-07 +c(38, 7)= -0.55267439226573D-07 +c(39, 7)= -0.79573733294900D-07 +c(40, 7)= 0.23027537491822D-07 +c(41, 7)= 0.69887735189113D-07 +c(42, 7)= 0.72321482138545D-07 +c(43, 7)= -0.10565869255953D-07 +c(44, 7)= -0.10151552325077D-06 +c(45, 7)= 0.35931009870257D-07 +c(46, 7)= 0.75225923562369D-08 +c(47, 7)= -0.22752655202284D-07 +c(48, 7)= 0.89441389869944D-08 +c(49, 7)= 0.37220465089298D-07 +c(50, 7)= -0.85192448435310D-08 +c(51, 7)= -0.40081109799497D-07 +c(52, 7)= 0.23073769709323D-07 +c(53, 7)= 0.45667290438653D-07 +c(54, 7)= -0.17445936216360D-07 +c(55, 7)= -0.15369846125184D-07 +c(56, 7)= 0.18826249672075D-07 +c(57, 7)= -0.31417790708496D-07 +c(58, 7)= -0.24984816683585D-07 +c(59, 7)= 0.37629174651362D-07 +c(60, 7)= 0.56899536588022D-08 +c(61, 7)= -0.10496967073751D-07 +c(62, 7)= 0.28100413921520D-07 +c(63, 7)= 0.45442449578000D-08 +c(64, 7)= -0.11540662509264D-07 +c(65, 7)= -0.25710679867463D-07 +c(66, 7)= -0.19698525852962D-07 +c(67, 7)= -0.13303329727190D-07 +c(68, 7)= 0.10982345162823D-07 +c(69, 7)= -0.21402856717440D-08 +c(70, 7)= -0.64088891211600D-08 +c(71, 7)= -0.13008094605731D-07 +c(72, 7)= -0.86969840430305D-08 +c(73, 7)= -0.22626636302946D-07 +c(74, 7)= 0.54862757485682D-08 +c(75, 7)= -0.83509452181555D-08 +c(76, 7)= -0.12666008338105D-07 +c(77, 7)= -0.76562284824962D-08 +c(78, 7)= -0.17724487244370D-07 +c(79, 7)= -0.36520982438646D-08 +c(80, 7)= -0.16859220330869D-07 +c( 8, 8)= -0.30973350203001D-06 +c( 9, 8)= 0.12047847138462D-05 +c(10, 8)= 0.53865780719934D-06 +c(11, 8)= -0.11785529186851D-05 +c(12, 8)= -0.15982435716482D-05 +c(13, 8)= -0.23194739260953D-06 +c(14, 8)= 0.81535531994532D-06 +c(15, 8)= 0.11565702748603D-05 +c(16, 8)= 0.23447441593593D-06 +c(17, 8)= -0.36982763604740D-06 +c(18, 8)= 0.61118874148442D-07 +c(19, 8)= 0.42698157940794D-06 +c(20, 8)= 0.31067740467773D-06 +c(21, 8)= 0.40705531212846D-07 +c(22, 8)= -0.37201577463817D-06 +c(23, 8)= -0.21605680473365D-06 +c(24, 8)= 0.18543841568708D-06 +c(25, 8)= 0.24648179571309D-06 +c(26, 8)= 0.86142134273613D-07 +c(27, 8)= -0.34810645313143D-06 +c(28, 8)= -0.24819931440283D-06 +c(29, 8)= -0.41746703183486D-07 +c(30, 8)= 0.53557629619836D-07 +c(31, 8)= -0.31189662495483D-08 +c(32, 8)= -0.23684136584399D-06 +c(33, 8)= -0.11135804639784D-06 +c(34, 8)= 0.21017986319691D-07 +c(35, 8)= 0.18144509931141D-06 +c(36, 8)= 0.68093513349118D-07 +c(37, 8)= -0.24994894975000D-06 +c(38, 8)= -0.78471090833385D-07 +c(39, 8)= 0.13239300047411D-06 +c(40, 8)= 0.54880323402336D-07 +c(41, 8)= 0.13430167979081D-07 +c(42, 8)= 0.56339230993143D-07 +c(43, 8)= 0.28565133925337D-08 +c(44, 8)= -0.42488219823149D-07 +c(45, 8)= -0.73817974736043D-08 +c(46, 8)= 0.69193895041098D-07 +c(47, 8)= 0.20359281649319D-07 +c(48, 8)= -0.47559903158974D-07 +c(49, 8)= 0.11527250499104D-07 +c(50, 8)= 0.31827816790805D-07 +c(51, 8)= -0.62623816165509D-07 +c(52, 8)= -0.35933127317171D-07 +c(53, 8)= 0.19711901123882D-07 +c(54, 8)= -0.77427771586048D-08 +c(55, 8)= -0.41303575042150D-07 +c(56, 8)= -0.15072982855835D-07 +c(57, 8)= -0.20451938702364D-08 +c(58, 8)= -0.37398071041519D-07 +c(59, 8)= 0.23820342762430D-07 +c(60, 8)= 0.25502369443082D-07 +c(61, 8)= -0.15910304881318D-07 +c(62, 8)= 0.13795120944057D-07 +c(63, 8)= 0.32525287884179D-07 +c(64, 8)= 0.13809423551226D-08 +c(65, 8)= -0.10812715236635D-09 +c(66, 8)= 0.67634725831510D-09 +c(67, 8)= -0.16676212050011D-07 +c(68, 8)= 0.12322542466311D-07 +c(69, 8)= -0.87952271938768D-08 +c(70, 8)= 0.70662206807584D-08 +c(71, 8)= 0.97306837784429D-08 +c(72, 8)= -0.10409665918863D-07 +c(73, 8)= 0.22526300287359D-07 +c(74, 8)= -0.11929360719090D-07 +c(75, 8)= 0.56724970381373D-08 +c(76, 8)= 0.39296322296042D-08 +c(77, 8)= 0.40729954548785D-09 +c(78, 8)= -0.14579810396259D-07 +c(79, 8)= 0.33817539135385D-08 +c(80, 8)= -0.12114249017571D-07 +c( 9, 9)= -0.11685977561307D-05 +c(10, 9)= -0.14529152650329D-05 +c(11, 9)= -0.41376264440044D-06 +c(12, 9)= 0.70595661731973D-06 +c(13, 9)= 0.11036467020707D-05 +c(14, 9)= 0.20920331569049D-06 +c(15, 9)= -0.30020191696171D-06 +c(16, 9)= -0.35633738393987D-06 +c(17, 9)= -0.19460945904606D-06 +c(18, 9)= 0.69551342431549D-07 +c(19, 9)= 0.21017949476738D-06 +c(20, 9)= 0.58506560488758D-07 +c(21, 9)= -0.17704293895129D-06 +c(22, 9)= -0.79873680455104D-09 +c(23, 9)= 0.23863912649051D-07 +c(24, 9)= 0.11269490152068D-06 +c(25, 9)= 0.80663857082553D-07 +c(26, 9)= -0.52332864057279D-07 +c(27, 9)= -0.40077218712098D-07 +c(28, 9)= 0.92385377802570D-07 +c(29, 9)= 0.89560884551153D-07 +c(30, 9)= -0.74814774016663D-07 +c(31, 9)= -0.13348919881375D-06 +c(32, 9)= -0.46162437050820D-08 +c(33, 9)= 0.86098107102499D-07 +c(34, 9)= 0.35831903511112D-07 +c(35, 9)= -0.38733132408446D-07 +c(36, 9)= -0.43099792134629D-07 +c(37, 9)= -0.10107397896816D-06 +c(38, 9)= -0.34748056946680D-07 +c(39, 9)= 0.10009476196909D-06 +c(40, 9)= 0.60783352459747D-07 +c(41, 9)= -0.70182088303399D-07 +c(42, 9)= -0.18055961756054D-07 +c(43, 9)= 0.57484699400282D-07 +c(44, 9)= 0.10553683342488D-07 +c(45, 9)= -0.42685258985362D-07 +c(46, 9)= 0.49309943027769D-07 +c(47, 9)= 0.22793754906480D-07 +c(48, 9)= -0.23998217097360D-07 +c(49, 9)= 0.10914696187724D-07 +c(50, 9)= 0.32781688335377D-07 +c(51, 9)= -0.62506643838801D-08 +c(52, 9)= -0.64979961127411D-07 +c(53, 9)= 0.51096919194121D-07 +c(54, 9)= 0.29356063667930D-07 +c(55, 9)= -0.17802875815950D-07 +c(56, 9)= -0.33534152808031D-07 +c(57, 9)= -0.11201661074046D-07 +c(58, 9)= -0.17348653702844D-07 +c(59, 9)= 0.30891923032634D-08 +c(60, 9)= 0.31455792355522D-07 +c(61, 9)= -0.15441400708974D-07 +c(62, 9)= -0.48101211929862D-08 +c(63, 9)= -0.67324611707600D-08 +c(64, 9)= -0.23034248154764D-07 +c(65, 9)= -0.87353984493366D-08 +c(66, 9)= 0.29023336917157D-07 +c(67, 9)= -0.12812531346711D-07 +c(68, 9)= -0.74928735796058D-08 +c(69, 9)= 0.18566108048567D-07 +c(70, 9)= -0.88858650319843D-08 +c(71, 9)= -0.44843642059847D-08 +c(72, 9)= 0.14316683400634D-07 +c(73, 9)= -0.50703872752401D-09 +c(74, 9)= 0.80343938717078D-08 +c(75, 9)= 0.24856787548675D-07 +c(76, 9)= 0.10960775781968D-08 +c(77, 9)= 0.25742924795831D-07 +c(78, 9)= 0.84686476194344D-08 +c(79, 9)= 0.76200924005946D-08 +c(80, 9)= 0.12750704377667D-07 +c(10,10)= -0.27418592728775D-06 +c(11,10)= 0.33152053925569D-06 +c(12,10)= 0.48642163810406D-06 +c(13,10)= -0.15737288606159D-06 +c(14,10)= 0.25566932292312D-07 +c(15,10)= -0.15979532465480D-06 +c(16,10)= -0.51356597033173D-06 +c(17,10)= -0.56809357230694D-06 +c(18,10)= 0.66632156103219D-06 +c(19,10)= 0.60140162556967D-06 +c(20,10)= -0.42013699476283D-06 +c(21,10)= -0.28400079019097D-06 +c(22,10)= -0.25361012940757D-06 +c(23,10)= -0.89752221004529D-07 +c(24,10)= -0.12256105013166D-06 +c(25,10)= 0.21528872721283D-06 +c(26,10)= 0.14690117401347D-06 +c(27,10)= -0.31119309740966D-06 +c(28,10)= -0.82984621401518D-07 +c(29,10)= 0.13876448127514D-06 +c(30,10)= 0.67547141689097D-07 +c(31,10)= -0.80968956240002D-07 +c(32,10)= -0.25061516036457D-07 +c(33,10)= 0.48032933510956D-08 +c(34,10)= -0.20507365083276D-07 +c(35,10)= -0.55221010597376D-07 +c(36,10)= 0.75914839445849D-07 +c(37,10)= -0.34872065650435D-08 +c(38,10)= -0.52058651133105D-07 +c(39,10)= 0.84942358720890D-07 +c(40,10)= 0.11866701531355D-07 +c(41,10)= -0.76495579940316D-07 +c(42,10)= -0.17727920207917D-07 +c(43,10)= 0.61463584510654D-07 +c(44,10)= 0.33270487334672D-07 +c(45,10)= -0.87602100996217D-07 +c(46,10)= 0.26372866601973D-07 +c(47,10)= 0.30349490906782D-07 +c(48,10)= -0.27923311429486D-07 +c(49,10)= -0.13302497453275D-07 +c(50,10)= -0.25820559835020D-07 +c(51,10)= -0.23374649723249D-07 +c(52,10)= 0.82265363238744D-08 +c(53,10)= 0.46393708341138D-07 +c(54,10)= -0.15072675889249D-07 +c(55,10)= -0.34347539063150D-07 +c(56,10)= 0.20485320872554D-07 +c(57,10)= 0.42233478341289D-07 +c(58,10)= 0.50401390086354D-07 +c(59,10)= -0.10171279820395D-07 +c(60,10)= -0.35575784347796D-07 +c(61,10)= 0.42127433292415D-07 +c(62,10)= -0.10118118317467D-07 +c(63,10)= 0.91817545738375D-08 +c(64,10)= 0.35421298579918D-07 +c(65,10)= 0.12182613264688D-07 +c(66,10)= -0.64310568888630D-08 +c(67,10)= 0.46161869451084D-08 +c(68,10)= -0.29013715978110D-07 +c(69,10)= 0.19689845799256D-07 +c(70,10)= -0.10549308957055D-08 +c(71,10)= 0.17281557475445D-07 +c(72,10)= -0.11057461689040D-07 +c(73,10)= -0.97301930678866D-08 +c(74,10)= -0.81094277056530D-08 +c(75,10)= -0.37042327999666D-09 +c(76,10)= -0.15641894574580D-07 +c(77,10)= 0.11854403909782D-07 +c(78,10)= -0.54294732577521D-08 +c(79,10)= 0.78724534170822D-08 +c(80,10)= 0.42317866507287D-08 +c(11,11)= -0.44684635932806D-07 +c(12,11)= 0.86209182518877D-06 +c(13,11)= 0.75993437561620D-06 +c(14,11)= -0.92572155775018D-06 +c(15,11)= -0.77135611592181D-06 +c(16,11)= -0.66555587400325D-07 +c(17,11)= 0.35050392061217D-06 +c(18,11)= 0.27473842288581D-06 +c(19,11)= 0.44343867592765D-07 +c(20,11)= -0.16158145338117D-06 +c(21,11)= -0.27987346427304D-06 +c(22,11)= -0.86898719785704D-07 +c(23,11)= 0.33488893134310D-06 +c(24,11)= -0.35108546304128D-08 +c(25,11)= -0.42067068385092D-06 +c(26,11)= -0.46190939130907D-06 +c(27,11)= -0.19330288476283D-06 +c(28,11)= 0.21188939514542D-06 +c(29,11)= 0.29489368172660D-06 +c(30,11)= 0.13455548251108D-06 +c(31,11)= -0.19411432800647D-06 +c(32,11)= -0.59424865170610D-07 +c(33,11)= 0.17417689865144D-06 +c(34,11)= 0.12434837415707D-06 +c(35,11)= -0.56095234006330D-07 +c(36,11)= -0.78614167217231D-07 +c(37,11)= 0.76271352504045D-07 +c(38,11)= 0.44466538643800D-07 +c(39,11)= 0.49697346366543D-07 +c(40,11)= 0.95342048484995D-07 +c(41,11)= -0.22060919870347D-07 +c(42,11)= -0.10627362439600D-06 +c(43,11)= 0.64554255720816D-08 +c(44,11)= 0.58642333698728D-07 +c(45,11)= -0.26890924444448D-07 +c(46,11)= -0.35211105586852D-07 +c(47,11)= -0.10464139564664D-08 +c(48,11)= -0.18663789655521D-07 +c(49,11)= 0.36421059241949D-08 +c(50,11)= 0.39530294301080D-08 +c(51,11)= -0.46538292713927D-08 +c(52,11)= -0.73516296354175D-07 +c(53,11)= 0.71800656224743D-08 +c(54,11)= 0.19838048143693D-07 +c(55,11)= -0.27800604308575D-07 +c(56,11)= -0.23549993100805D-07 +c(57,11)= 0.23355590833905D-07 +c(58,11)= 0.12048348807616D-07 +c(59,11)= -0.35020125986908D-07 +c(60,11)= 0.13173194177869D-07 +c(61,11)= 0.50660334043555D-08 +c(62,11)= -0.93139166850523D-08 +c(63,11)= 0.10367939361458D-07 +c(64,11)= -0.20853446969930D-07 +c(65,11)= 0.15681558651406D-07 +c(66,11)= -0.14422762490918D-07 +c(67,11)= 0.19077120844381D-08 +c(68,11)= -0.14617125298418D-07 +c(69,11)= -0.27984412638652D-07 +c(70,11)= 0.12427476941900D-08 +c(71,11)= 0.14146068560767D-09 +c(72,11)= 0.10794013713742D-07 +c(73,11)= -0.33633551806085D-08 +c(74,11)= 0.73440033006451D-08 +c(75,11)= -0.19989334493278D-07 +c(76,11)= 0.18759121278194D-07 +c(77,11)= -0.19463700567277D-07 +c(78,11)= 0.10058388000952D-07 +c(79,11)= -0.82265261612786D-08 +c(80,11)= 0.23951018907818D-08 +c(12,12)= -0.64231718972073D-08 +c(13,12)= -0.14518332762979D-05 +c(14,12)= -0.44667389507501D-06 +c(15,12)= 0.97595914392990D-06 +c(16,12)= 0.40830279631007D-06 +c(17,12)= 0.20089686057968D-06 +c(18,12)= 0.73988670101664D-07 +c(19,12)= -0.11269182077243D-06 +c(20,12)= -0.47171328165674D-06 +c(21,12)= 0.25397802768283D-06 +c(22,12)= 0.37922079263538D-06 +c(23,12)= 0.74687070585526D-07 +c(24,12)= -0.29603322643162D-06 +c(25,12)= -0.32919144778195D-06 +c(26,12)= 0.22776493253620D-06 +c(27,12)= 0.59673534864034D-07 +c(28,12)= 0.89182305751498D-07 +c(29,12)= -0.14013340779859D-06 +c(30,12)= -0.30325844797736D-06 +c(31,12)= -0.83515417019970D-07 +c(32,12)= 0.69433465327683D-07 +c(33,12)= 0.17567234786505D-06 +c(34,12)= -0.70733077990148D-07 +c(35,12)= -0.15850573423284D-06 +c(36,12)= -0.37550527011772D-07 +c(37,12)= 0.78044879320411D-07 +c(38,12)= -0.10785624108895D-07 +c(39,12)= -0.77044658435730D-07 +c(40,12)= -0.43096549983760D-10 +c(41,12)= -0.79751941321668D-07 +c(42,12)= -0.27619361101061D-07 +c(43,12)= 0.86397321275642D-07 +c(44,12)= 0.39211827033959D-07 +c(45,12)= -0.10868277448053D-06 +c(46,12)= -0.13572773598541D-06 +c(47,12)= 0.67101554496870D-07 +c(48,12)= 0.10473935783814D-06 +c(49,12)= -0.44412396872399D-07 +c(50,12)= -0.58344190655476D-07 +c(51,12)= 0.34682409657115D-07 +c(52,12)= 0.44490481568391D-07 +c(53,12)= -0.60142679556923D-07 +c(54,12)= -0.41393872946390D-07 +c(55,12)= 0.24090662325969D-07 +c(56,12)= 0.19446206959575D-07 +c(57,12)= 0.19876152940267D-07 +c(58,12)= -0.80326007048200D-08 +c(59,12)= -0.11205579119766D-07 +c(60,12)= 0.16730592865468D-07 +c(61,12)= 0.30935461684387D-07 +c(62,12)= 0.63355437631645D-08 +c(63,12)= -0.80774330138626D-08 +c(64,12)= -0.54235063151270D-08 +c(65,12)= -0.90466913004512D-08 +c(66,12)= -0.18000612328190D-07 +c(67,12)= 0.36176316060519D-07 +c(68,12)= -0.14836236343949D-07 +c(69,12)= -0.10115866668775D-07 +c(70,12)= 0.61568005209749D-09 +c(71,12)= -0.63328475344205D-08 +c(72,12)= -0.13228133600474D-07 +c(73,12)= 0.11675415257145D-07 +c(74,12)= -0.88084298812367D-08 +c(75,12)= -0.16421185729936D-08 +c(76,12)= -0.28705724964639D-08 +c(77,12)= 0.76454526940509D-08 +c(78,12)= -0.97983270912013D-08 +c(79,12)= 0.93094685912931D-08 +c(80,12)= -0.14952267692181D-07 +c(13,13)= 0.42601241621664D-06 +c(14,13)= 0.75129408112081D-06 +c(15,13)= 0.17845595134875D-06 +c(16,13)= -0.64644274826991D-07 +c(17,13)= -0.44363357576703D-06 +c(18,13)= -0.29893151037383D-06 +c(19,13)= -0.20081378465993D-06 +c(20,13)= -0.38974995460658D-09 +c(21,13)= 0.26038531389766D-08 +c(22,13)= -0.16993532987053D-06 +c(23,13)= -0.22669233943721D-06 +c(24,13)= 0.77346455693605D-07 +c(25,13)= -0.18200920903674D-07 +c(26,13)= 0.51923621297858D-07 +c(27,13)= -0.69534755150605D-07 +c(28,13)= -0.13011181784465D-06 +c(29,13)= 0.17478512424802D-06 +c(30,13)= 0.97172404864323D-07 +c(31,13)= 0.29060801404821D-07 +c(32,13)= 0.49415299254759D-07 +c(33,13)= -0.63664146670117D-09 +c(34,13)= -0.42098806139770D-07 +c(35,13)= -0.63199371645429D-07 +c(36,13)= 0.14925139462609D-06 +c(37,13)= 0.77616737374773D-07 +c(38,13)= -0.49196687691755D-07 +c(39,13)= -0.21612344963652D-07 +c(40,13)= 0.80541885220445D-08 +c(41,13)= 0.43986031382998D-07 +c(42,13)= 0.53831179685585D-09 +c(43,13)= -0.48153297585660D-07 +c(44,13)= -0.37336817198338D-07 +c(45,13)= -0.72522229447116D-07 +c(46,13)= 0.52595884906078D-07 +c(47,13)= 0.11224855683888D-07 +c(48,13)= -0.84039896860964D-08 +c(49,13)= -0.10002921042261D-07 +c(50,13)= 0.20111357105294D-07 +c(51,13)= -0.37326778289764D-07 +c(52,13)= -0.49297223414475D-07 +c(53,13)= 0.24567721109946D-07 +c(54,13)= 0.36389985182291D-07 +c(55,13)= -0.33801457283125D-07 +c(56,13)= -0.45368225288631D-07 +c(57,13)= 0.97773492056029D-08 +c(58,13)= 0.32131377937284D-07 +c(59,13)= 0.26674049173607D-07 +c(60,13)= 0.88098981589739D-08 +c(61,13)= 0.22112055523099D-07 +c(62,13)= 0.26945186382454D-08 +c(63,13)= -0.37446774164464D-07 +c(64,13)= 0.24823107737634D-07 +c(65,13)= 0.16925015623816D-07 +c(66,13)= -0.16280148223969D-07 +c(67,13)= 0.13036214805850D-08 +c(68,13)= -0.57340326176229D-08 +c(69,13)= 0.29455152151528D-07 +c(70,13)= -0.14619484493505D-07 +c(71,13)= 0.90805605878318D-08 +c(72,13)= 0.70049802313740D-08 +c(73,13)= -0.17737979012555D-07 +c(74,13)= 0.10487531174343D-07 +c(75,13)= -0.24750045534933D-07 +c(76,13)= 0.15308268186489D-07 +c(77,13)= -0.13983560080127D-07 +c(78,13)= 0.15885401503704D-07 +c(79,13)= -0.27785701635593D-08 +c(80,13)= 0.11282900601153D-07 +c(14,14)= 0.47021295278236D-07 +c(15,14)= 0.22219457857795D-06 +c(16,14)= -0.16944993310769D-06 +c(17,14)= -0.35316177030083D-06 +c(18,14)= -0.36574949577333D-06 +c(19,14)= 0.15370674221947D-06 +c(20,14)= 0.28054717681758D-06 +c(21,14)= 0.13450955702606D-06 +c(22,14)= -0.14565214032387D-06 +c(23,14)= -0.83807732025708D-07 +c(24,14)= 0.33039361477979D-08 +c(25,14)= -0.76090567719229D-07 +c(26,14)= 0.12905418648105D-06 +c(27,14)= 0.17337430654230D-06 +c(28,14)= 0.80857002198244D-07 +c(29,14)= 0.70110690240570D-07 +c(30,14)= -0.13733277347911D-06 +c(31,14)= -0.21562170698916D-07 +c(32,14)= 0.21759747165202D-07 +c(33,14)= 0.61333748496406D-07 +c(34,14)= 0.38829485595747D-07 +c(35,14)= -0.64086563137960D-07 +c(36,14)= -0.10153809047224D-06 +c(37,14)= 0.32039980307240D-08 +c(38,14)= 0.36304249021626D-07 +c(39,14)= -0.27257848252935D-07 +c(40,14)= 0.53269190848855D-08 +c(41,14)= -0.51651425829049D-07 +c(42,14)= -0.57946053082766D-07 +c(43,14)= 0.45498065486750D-08 +c(44,14)= 0.47767471675605D-07 +c(45,14)= -0.55594018064780D-08 +c(46,14)= -0.10999591526210D-06 +c(47,14)= 0.18923122289816D-07 +c(48,14)= 0.61960720902588D-07 +c(49,14)= -0.60598476698241D-07 +c(50,14)= -0.67740190638225D-07 +c(51,14)= 0.25780522864084D-07 +c(52,14)= 0.63555181447774D-07 +c(53,14)= -0.12055036245110D-07 +c(54,14)= -0.53230826865350D-07 +c(55,14)= 0.85375653220950D-08 +c(56,14)= -0.18483807864022D-07 +c(57,14)= -0.25455211194517D-09 +c(58,14)= 0.12082251417562D-07 +c(59,14)= 0.93215676397531D-08 +c(60,14)= -0.22104077649682D-07 +c(61,14)= 0.23226932687473D-07 +c(62,14)= 0.36234693962067D-07 +c(63,14)= 0.11914217891800D-07 +c(64,14)= -0.17905878561972D-07 +c(65,14)= 0.11619420494160D-07 +c(66,14)= 0.57319890444538D-08 +c(67,14)= 0.19784210676846D-07 +c(68,14)= -0.17912811632289D-07 +c(69,14)= -0.80003248139404D-08 +c(70,14)= 0.23602690947874D-07 +c(71,14)= -0.94580549890193D-08 +c(72,14)= 0.14153322210681D-07 +c(73,14)= -0.94356315047272D-08 +c(74,14)= 0.28953059753020D-08 +c(75,14)= -0.25026524449757D-07 +c(76,14)= 0.91427701028891D-08 +c(77,14)= -0.23200692086839D-07 +c(78,14)= 0.72605453361048D-08 +c(79,14)= -0.12468131635802D-07 +c(80,14)= 0.48904006092653D-08 +c(15,15)= -0.33826575599910D-06 +c(16,15)= -0.85495972949958D-06 +c(17,15)= -0.36408938792661D-06 +c(18,15)= 0.35819799150966D-06 +c(19,15)= 0.82529172013831D-06 +c(20,15)= 0.78475364933386D-07 +c(21,15)= -0.32932122376644D-06 +c(22,15)= -0.41965832774604D-06 +c(23,15)= -0.27719475994770D-06 +c(24,15)= 0.21532172296135D-06 +c(25,15)= 0.44144073998089D-06 +c(26,15)= 0.94034486508637D-07 +c(27,15)= -0.50527553014782D-07 +c(28,15)= -0.87669846139116D-07 +c(29,15)= 0.41888714845582D-07 +c(30,15)= 0.12166056752935D-06 +c(31,15)= 0.88299403590952D-07 +c(32,15)= 0.46689356080411D-07 +c(33,15)= -0.12797747227092D-06 +c(34,15)= -0.11305342583159D-06 +c(35,15)= 0.79647332221832D-07 +c(36,15)= 0.25153748542570D-06 +c(37,15)= 0.43048298307130D-07 +c(38,15)= -0.69563590983603D-07 +c(39,15)= -0.46081191209894D-07 +c(40,15)= -0.98718472252429D-07 +c(41,15)= 0.94967876174956D-07 +c(42,15)= 0.97997180838959D-07 +c(43,15)= -0.53778195033675D-08 +c(44,15)= -0.42357934669160D-07 +c(45,15)= -0.12123269508550D-07 +c(46,15)= 0.11349722928787D-06 +c(47,15)= 0.11067875281430D-07 +c(48,15)= -0.13053510212507D-07 +c(49,15)= -0.14638954657636D-07 +c(50,15)= 0.49823097696749D-07 +c(51,15)= 0.56629472909396D-07 +c(52,15)= -0.27650738137218D-07 +c(53,15)= -0.10838656591511D-07 +c(54,15)= 0.15888344512037D-07 +c(55,15)= 0.86772124063542D-08 +c(56,15)= -0.80460750479536D-09 +c(57,15)= 0.20227305510350D-08 +c(58,15)= 0.31307506718066D-07 +c(59,15)= -0.21600268000035D-07 +c(60,15)= 0.20834762794785D-07 +c(61,15)= 0.19649645104048D-07 +c(62,15)= -0.10319384192510D-07 +c(63,15)= -0.28311597849162D-07 +c(64,15)= -0.72646727376410D-07 +c(65,15)= 0.23316763995366D-07 +c(66,15)= -0.26509433663467D-08 +c(67,15)= -0.26642380677339D-07 +c(68,15)= 0.30153600914930D-07 +c(69,15)= -0.34775082982131D-07 +c(70,15)= -0.15669476712055D-07 +c(71,15)= 0.58140866847644D-08 +c(72,15)= -0.15813244179083D-07 +c(73,15)= -0.21739180642430D-07 +c(74,15)= 0.51335559578317D-08 +c(75,15)= -0.14775847459000D-07 +c(76,15)= 0.45298066015886D-08 +c(77,15)= 0.12785646702054D-08 +c(78,15)= -0.16274874220888D-07 +c(79,15)= 0.72392959718484D-08 +c(80,15)= -0.23845399951142D-07 +c(16,16)= 0.20940180005886D-06 +c(17,16)= 0.10696458697612D-05 +c(18,16)= 0.41157939324289D-06 +c(19,16)= -0.61844626633270D-08 +c(20,16)= 0.46528363403318D-07 +c(21,16)= -0.28509034304189D-06 +c(22,16)= -0.20032041830870D-06 +c(23,16)= 0.43647221573199D-06 +c(24,16)= 0.60074270247024D-06 +c(25,16)= -0.88444347559313D-07 +c(26,16)= -0.50086802979082D-06 +c(27,16)= -0.10370177302162D-06 +c(28,16)= 0.17209430787186D-06 +c(29,16)= 0.14527833834916D-06 +c(30,16)= 0.67423619085705D-07 +c(31,16)= -0.13012023367532D-06 +c(32,16)= -0.18209698545153D-06 +c(33,16)= 0.29330141545847D-07 +c(34,16)= 0.23040995993151D-06 +c(35,16)= 0.11137405742133D-06 +c(36,16)= -0.14322365665332D-06 +c(37,16)= -0.13393323975087D-06 +c(38,16)= -0.58158427107805D-07 +c(39,16)= 0.66403824552258D-07 +c(40,16)= 0.13326888331571D-06 +c(41,16)= -0.36830244580688D-07 +c(42,16)= -0.14702764073939D-06 +c(43,16)= -0.76430545168527D-07 +c(44,16)= 0.11263069331412D-06 +c(45,16)= 0.63796262698772D-07 +c(46,16)= -0.87686464926144D-07 +c(47,16)= -0.97964463362824D-08 +c(48,16)= 0.79365091027521D-07 +c(49,16)= 0.47651494645736D-07 +c(50,16)= -0.24066271282983D-07 +c(51,16)= 0.56223103817103D-07 +c(52,16)= 0.47985593815186D-07 +c(53,16)= -0.27226622049035D-07 +c(54,16)= -0.31213765163699D-07 +c(55,16)= 0.27525580536844D-07 +c(56,16)= 0.40704550615353D-07 +c(57,16)= 0.14539391121680D-07 +c(58,16)= -0.13130877228086D-07 +c(59,16)= 0.14699653481615D-07 +c(60,16)= -0.91637998362305D-08 +c(61,16)= 0.81179669745568D-08 +c(62,16)= 0.17151092609237D-07 +c(63,16)= -0.74429374406359D-08 +c(64,16)= 0.67003182535719D-09 +c(65,16)= -0.35789700257476D-07 +c(66,16)= -0.22138650131817D-07 +c(67,16)= -0.30092279766274D-07 +c(68,16)= -0.18685560165448D-07 +c(69,16)= -0.26432788454162D-07 +c(70,16)= 0.50424290960415D-08 +c(71,16)= -0.28808648811523D-07 +c(72,16)= -0.11382697449659D-07 +c(73,16)= -0.14815829721152D-08 +c(74,16)= -0.35217346892953D-07 +c(75,16)= -0.11363933421473D-07 +c(76,16)= -0.29903695425997D-07 +c(77,16)= -0.10568165816869D-07 +c(78,16)= -0.19737582568469D-07 +c(79,16)= -0.19551425947931D-07 +c(80,16)= -0.16322989519910D-08 +c(17,17)= 0.54701387168645D-07 +c(18,17)= 0.71135256682422D-07 +c(19,17)= -0.11665317418912D-06 +c(20,17)= -0.48568162906700D-06 +c(21,17)= -0.26328670190302D-06 +c(22,17)= 0.33024327781270D-06 +c(23,17)= 0.31284561172707D-06 +c(24,17)= -0.10503059994605D-06 +c(25,17)= -0.35143134866898D-06 +c(26,17)= -0.24326830441430D-06 +c(27,17)= 0.22100890791401D-06 +c(28,17)= 0.16019813922073D-06 +c(29,17)= -0.28819396574269D-07 +c(30,17)= -0.13171119227208D-06 +c(31,17)= -0.47817763167130D-07 +c(32,17)= 0.12225078912847D-07 +c(33,17)= 0.42623845131959D-07 +c(34,17)= -0.83790307497045D-07 +c(35,17)= -0.14399968540526D-06 +c(36,17)= -0.63350654236970D-08 +c(37,17)= 0.61044104459295D-07 +c(38,17)= 0.61949450540370D-07 +c(39,17)= 0.44177767550151D-07 +c(40,17)= -0.71427176328117D-07 +c(41,17)= 0.16646511539951D-07 +c(42,17)= 0.30889394313482D-07 +c(43,17)= -0.59842571662947D-09 +c(44,17)= 0.13614720720525D-07 +c(45,17)= 0.11726912716675D-07 +c(46,17)= 0.15012106749067D-07 +c(47,17)= 0.25102121647612D-09 +c(48,17)= -0.13071448281777D-07 +c(49,17)= -0.34637835249062D-07 +c(50,17)= -0.32933308128326D-09 +c(51,17)= 0.38939007315884D-07 +c(52,17)= 0.13581147762298D-08 +c(53,17)= -0.93264032646212D-08 +c(54,17)= 0.96767939090607D-08 +c(55,17)= 0.36659358735424D-07 +c(56,17)= 0.37491483020846D-08 +c(57,17)= -0.33698632494570D-08 +c(58,17)= -0.23932301146387D-08 +c(59,17)= 0.42250810294220D-08 +c(60,17)= 0.50024857363612D-08 +c(61,17)= -0.15884841625309D-07 +c(62,17)= 0.16657425735481D-07 +c(63,17)= 0.24035489426911D-07 +c(64,17)= -0.14758055967310D-07 +c(65,17)= 0.22469107130498D-07 +c(66,17)= -0.46668229709955D-07 +c(67,17)= -0.30884264246269D-07 +c(68,17)= -0.28919828125255D-08 +c(69,17)= 0.28658969794463D-08 +c(70,17)= 0.29255472177867D-07 +c(71,17)= 0.37611588847544D-08 +c(72,17)= 0.84076306333866D-08 +c(73,17)= 0.86650572592168D-08 +c(74,17)= 0.15425043157405D-07 +c(75,17)= -0.13780132543492D-07 +c(76,17)= 0.21776929781402D-07 +c(77,17)= -0.18096281174059D-07 +c(78,17)= 0.80052085590603D-08 +c(79,17)= -0.16578597468070D-07 +c(80,17)= -0.13357084307772D-08 +c(18,18)= 0.46656982881352D-06 +c(19,18)= -0.72203974438337D-06 +c(20,18)= 0.35213761763877D-07 +c(21,18)= 0.24334025394976D-06 +c(22,18)= -0.11671446266874D-06 +c(23,18)= -0.13241514416301D-06 +c(24,18)= 0.36035680514514D-06 +c(25,18)= 0.12798344905849D-06 +c(26,18)= -0.27199670154689D-06 +c(27,18)= -0.32523985662353D-07 +c(28,18)= 0.27683282308885D-06 +c(29,18)= 0.28581207181270D-07 +c(30,18)= -0.71344708930735D-07 +c(31,18)= 0.30547665378528D-07 +c(32,18)= 0.76591740848835D-07 +c(33,18)= -0.12586254793145D-06 +c(34,18)= -0.27422892767733D-07 +c(35,18)= 0.11475323877322D-06 +c(36,18)= -0.33482636659461D-07 +c(37,18)= -0.11596384891875D-06 +c(38,18)= -0.25844182306635D-07 +c(39,18)= 0.65617178872133D-07 +c(40,18)= 0.58005502905905D-07 +c(41,18)= -0.11349233087356D-06 +c(42,18)= -0.72573977433579D-07 +c(43,18)= 0.16836709714452D-07 +c(44,18)= 0.58205565043271D-07 +c(45,18)= 0.67135385454244D-07 +c(46,18)= -0.42278595866491D-07 +c(47,18)= -0.69071860661362D-07 +c(48,18)= 0.27022559026842D-07 +c(49,18)= 0.54608578248484D-07 +c(50,18)= -0.51026025277597D-07 +c(51,18)= -0.36922133821202D-07 +c(52,18)= -0.21243464334118D-08 +c(53,18)= -0.63537119606441D-08 +c(54,18)= 0.35311423634546D-07 +c(55,18)= -0.64441967139307D-09 +c(56,18)= -0.63934099899106D-08 +c(57,18)= -0.17517136269818D-07 +c(58,18)= -0.12479573707963D-07 +c(59,18)= 0.79659850821093D-08 +c(60,18)= -0.18721276925731D-07 +c(61,18)= 0.17670204724543D-07 +c(62,18)= 0.43540870673701D-08 +c(63,18)= 0.16298063385003D-07 +c(64,18)= 0.65394780694313D-08 +c(65,18)= -0.14960967688679D-07 +c(66,18)= -0.11950207010582D-07 +c(67,18)= 0.16994741177372D-08 +c(68,18)= 0.61450979011810D-08 +c(69,18)= -0.24717849546371D-07 +c(70,18)= 0.21767138894177D-07 +c(71,18)= -0.29289376420573D-07 +c(72,18)= -0.14163742552877D-07 +c(73,18)= 0.45636403434965D-08 +c(74,18)= -0.48803178398436D-07 +c(75,18)= 0.48548247736960D-08 +c(76,18)= -0.19930049143878D-07 +c(77,18)= -0.55322134805482D-08 +c(78,18)= -0.21643701140752D-07 +c(79,18)= 0.41623489747571D-08 +c(80,18)= -0.20210577532281D-07 +c(19,19)= -0.36488623031146D-06 +c(20,19)= 0.17498191632079D-06 +c(21,19)= 0.18234844161543D-06 +c(22,19)= 0.41049548405926D-06 +c(23,19)= 0.41382769125263D-06 +c(24,19)= -0.28283847306805D-06 +c(25,19)= -0.67171858587578D-06 +c(26,19)= -0.13281287624361D-07 +c(27,19)= 0.73831317520578D-06 +c(28,19)= 0.31697019030015D-06 +c(29,19)= -0.19570027691728D-06 +c(30,19)= -0.25865913112589D-06 +c(31,19)= 0.66189798286727D-07 +c(32,19)= 0.21940030137740D-06 +c(33,19)= 0.21730441828881D-06 +c(34,19)= 0.11070102602743D-07 +c(35,19)= -0.10875568103679D-06 +c(36,19)= -0.98549961802302D-07 +c(37,19)= 0.11773175276404D-06 +c(38,19)= 0.12373075793390D-06 +c(39,19)= -0.80672746880080D-07 +c(40,19)= -0.10499627369546D-06 +c(41,19)= 0.97463003969700D-08 +c(42,19)= 0.77667013884904D-07 +c(43,19)= -0.25448050543306D-08 +c(44,19)= -0.84328415252217D-08 +c(45,19)= 0.19663700560579D-07 +c(46,19)= -0.57579508769271D-07 +c(47,19)= 0.62220402666774D-07 +c(48,19)= 0.80456306652161D-07 +c(49,19)= -0.10942297172432D-07 +c(50,19)= -0.59666734494807D-07 +c(51,19)= -0.29821353916073D-07 +c(52,19)= 0.52731420460540D-07 +c(53,19)= 0.16921809036510D-07 +c(54,19)= -0.66440525931939D-07 +c(55,19)= -0.77889674318441D-08 +c(56,19)= 0.25265777071564D-07 +c(57,19)= -0.19961563366707D-08 +c(58,19)= 0.34843747062013D-08 +c(59,19)= 0.26913236517537D-08 +c(60,19)= -0.21092730784263D-07 +c(61,19)= -0.27368683972922D-07 +c(62,19)= 0.10436698163346D-07 +c(63,19)= 0.34728429204960D-08 +c(64,19)= -0.21415899983517D-07 +c(65,19)= -0.29172479955474D-07 +c(66,19)= 0.20484328937738D-07 +c(67,19)= -0.77003006269710D-08 +c(68,19)= 0.68077110643878D-08 +c(69,19)= 0.27576319284877D-07 +c(70,19)= -0.17063671948984D-07 +c(71,19)= 0.35652582279772D-08 +c(72,19)= 0.51331374560066D-08 +c(73,19)= -0.16726262326640D-07 +c(74,19)= 0.17879784259480D-07 +c(75,19)= 0.68971937496097D-08 +c(76,19)= -0.61963011248938D-08 +c(77,19)= 0.90614875079607D-08 +c(78,19)= -0.43906604006747D-08 +c(79,19)= -0.38438442046203D-08 +c(80,19)= -0.65132030997370D-08 +c(20,20)= -0.47388247284749D-06 +c(21,20)= -0.12339000794407D-06 +c(22,20)= -0.43652709220027D-06 +c(23,20)= -0.49050613929173D-06 +c(24,20)= -0.81235739566793D-07 +c(25,20)= 0.56499626215347D-06 +c(26,20)= 0.12278930428748D-06 +c(27,20)= -0.24818904834720D-06 +c(28,20)= -0.26539606385896D-06 +c(29,20)= -0.12786594632194D-06 +c(30,20)= 0.12291704860035D-06 +c(31,20)= 0.40161300329303D-06 +c(32,20)= 0.15962202179924D-06 +c(33,20)= -0.16312204203802D-06 +c(34,20)= -0.17246098146981D-06 +c(35,20)= 0.14159663364171D-06 +c(36,20)= 0.18338783821004D-06 +c(37,20)= 0.65842534620178D-07 +c(38,20)= 0.17607805933065D-07 +c(39,20)= 0.16630905489238D-08 +c(40,20)= 0.47066879402688D-07 +c(41,20)= 0.31993670191674D-07 +c(42,20)= 0.24112045504797D-07 +c(43,20)= 0.29386948733193D-08 +c(44,20)= -0.63550823151513D-07 +c(45,20)= 0.50430699402188D-08 +c(46,20)= 0.41103919023346D-07 +c(47,20)= -0.24645662834438D-07 +c(48,20)= 0.53048318352021D-08 +c(49,20)= -0.16932289464472D-07 +c(50,20)= -0.41841399284243D-07 +c(51,20)= -0.11495118139598D-07 +c(52,20)= 0.36232278648845D-07 +c(53,20)= 0.15835361411647D-07 +c(54,20)= -0.17140178972305D-07 +c(55,20)= -0.60642737543764D-08 +c(56,20)= 0.13380551924738D-08 +c(57,20)= -0.30162880909350D-08 +c(58,20)= 0.19626397354767D-08 +c(59,20)= 0.41233270172503D-07 +c(60,20)= 0.21408192120022D-07 +c(61,20)= -0.78802683142367D-08 +c(62,20)= -0.17958417108302D-07 +c(63,20)= -0.56071100273366D-07 +c(64,20)= 0.21343376042478D-08 +c(65,20)= 0.54170022859117D-09 +c(66,20)= -0.31859741637542D-07 +c(67,20)= 0.53342732542924D-07 +c(68,20)= -0.21166186689024D-07 +c(69,20)= -0.28514542148274D-08 +c(70,20)= 0.27951518506446D-07 +c(71,20)= -0.10307834534860D-07 +c(72,20)= 0.15107322121888D-07 +c(73,20)= 0.33817694479123D-09 +c(74,20)= 0.26777201832760D-07 +c(75,20)= 0.12375624289778D-07 +c(76,20)= 0.30069089333642D-07 +c(77,20)= 0.34309026025203D-08 +c(78,20)= 0.15330082776951D-07 +c(79,20)= 0.14757179279055D-07 +c(80,20)= -0.38003438288289D-08 +c(21,21)= 0.66801656361563D-06 +c(22,21)= 0.22695041961075D-06 +c(23,21)= 0.44090545303246D-06 +c(24,21)= -0.37895350129349D-07 +c(25,21)= -0.68730646069251D-06 +c(26,21)= -0.26279832988690D-06 +c(27,21)= 0.28469163064165D-06 +c(28,21)= 0.21734973853847D-06 +c(29,21)= -0.17343242283494D-06 +c(30,21)= -0.32809610520172D-07 +c(31,21)= -0.12733505527466D-07 +c(32,21)= -0.67932447668075D-07 +c(33,21)= -0.47019512161784D-07 +c(34,21)= 0.31471635002656D-07 +c(35,21)= 0.49048388496592D-07 +c(36,21)= 0.83329503886604D-07 +c(37,21)= -0.49282623952816D-08 +c(38,21)= -0.12925156961751D-07 +c(39,21)= -0.31963257671986D-07 +c(40,21)= 0.66590167520988D-08 +c(41,21)= 0.98817058942399D-07 +c(42,21)= 0.37605383750701D-07 +c(43,21)= -0.27830621504435D-07 +c(44,21)= -0.40418029820324D-07 +c(45,21)= 0.91859461635090D-09 +c(46,21)= -0.19730249807615D-07 +c(47,21)= 0.11851628452068D-07 +c(48,21)= 0.14639167924279D-07 +c(49,21)= -0.21754507960563D-07 +c(50,21)= -0.24067375212203D-07 +c(51,21)= 0.28599563504452D-08 +c(52,21)= 0.35681365916782D-07 +c(53,21)= 0.97529859432951D-08 +c(54,21)= -0.75983263026241D-07 +c(55,21)= 0.29918164273647D-07 +c(56,21)= 0.31950356789542D-07 +c(57,21)= -0.18132609646459D-07 +c(58,21)= -0.29257205779927D-07 +c(59,21)= -0.37200365621068D-08 +c(60,21)= 0.38205597192254D-07 +c(61,21)= 0.11272521808560D-07 +c(62,21)= -0.11664113135659D-07 +c(63,21)= -0.73057985316199D-08 +c(64,21)= -0.27677612090994D-08 +c(65,21)= 0.36040573095370D-08 +c(66,21)= 0.25787279693229D-07 +c(67,21)= -0.86957805251398D-08 +c(68,21)= -0.55649103460140D-08 +c(69,21)= 0.15265548801377D-07 +c(70,21)= 0.35448812479815D-07 +c(71,21)= -0.68589306764546D-08 +c(72,21)= 0.31834576620702D-07 +c(73,21)= -0.49374229123815D-08 +c(74,21)= 0.16439779910660D-09 +c(75,21)= 0.31044128392424D-07 +c(76,21)= -0.30113345576158D-08 +c(77,21)= 0.39170181976378D-07 +c(78,21)= -0.59917985487534D-08 +c(79,21)= 0.23178362595262D-07 +c(80,21)= -0.12786737597268D-07 +c(22,22)= -0.11411133475898D-06 +c(23,22)= 0.17110677302269D-06 +c(24,22)= -0.10587573763555D-06 +c(25,22)= 0.33521479699086D-06 +c(26,22)= 0.40227056541479D-06 +c(27,22)= -0.23272077782554D-06 +c(28,22)= -0.37341707266588D-06 +c(29,22)= 0.78100415541802D-07 +c(30,22)= 0.20280238119689D-06 +c(31,22)= 0.13784175106419D-06 +c(32,22)= -0.12420910000420D-06 +c(33,22)= -0.63631476345334D-07 +c(34,22)= -0.65546742937671D-07 +c(35,22)= 0.72321494313189D-07 +c(36,22)= 0.51436658429770D-07 +c(37,22)= 0.39640401394404D-07 +c(38,22)= -0.10409129234201D-06 +c(39,22)= -0.65354707774874D-07 +c(40,22)= 0.42634055748588D-07 +c(41,22)= 0.65460387769598D-07 +c(42,22)= -0.18109241916822D-07 +c(43,22)= -0.65632458727538D-07 +c(44,22)= 0.68983050838698D-08 +c(45,22)= 0.55442014524560D-07 +c(46,22)= 0.39443958851056D-07 +c(47,22)= -0.57185005444180D-07 +c(48,22)= -0.34467977713549D-07 +c(49,22)= -0.34596063089222D-07 +c(50,22)= 0.13892672880796D-07 +c(51,22)= 0.44209988486808D-07 +c(52,22)= 0.10896735238304D-07 +c(53,22)= -0.17661974329943D-07 +c(54,22)= -0.53634574743683D-07 +c(55,22)= -0.17248553870907D-07 +c(56,22)= 0.30432449984706D-07 +c(57,22)= -0.15796666457769D-07 +c(58,22)= -0.87713858685771D-08 +c(59,22)= -0.20939165130728D-07 +c(60,22)= 0.19574575636057D-07 +c(61,22)= -0.30975426084544D-07 +c(62,22)= -0.10973232656097D-07 +c(63,22)= 0.40264187905897D-07 +c(64,22)= -0.17368952968311D-07 +c(65,22)= 0.43794519119160D-08 +c(66,22)= 0.13406416109298D-07 +c(67,22)= 0.37085940789819D-07 +c(68,22)= 0.10617163289153D-07 +c(69,22)= 0.46762767510145D-08 +c(70,22)= 0.30719518942792D-07 +c(71,22)= -0.11985554100366D-07 +c(72,22)= 0.32837674655834D-07 +c(73,22)= 0.18015628046874D-07 +c(74,22)= 0.28297092215668D-07 +c(75,22)= 0.25034784697646D-07 +c(76,22)= 0.34219864341146D-07 +c(77,22)= 0.22944444993649D-07 +c(78,22)= 0.35818440943536D-07 +c(79,22)= 0.21635353557979D-07 +c(80,22)= 0.33894259709796D-07 +c(23,23)= -0.55132911635500D-06 +c(24,23)= -0.58926412579959D-06 +c(25,23)= -0.51315458270389D-06 +c(26,23)= -0.26261888686332D-06 +c(27,23)= 0.14576740229800D-06 +c(28,23)= 0.38585456798044D-06 +c(29,23)= 0.66995964161193D-07 +c(30,23)= -0.16251214080634D-06 +c(31,23)= -0.12238386862490D-06 +c(32,23)= -0.42458438711385D-07 +c(33,23)= -0.18067172599805D-07 +c(34,23)= 0.13009099109376D-06 +c(35,23)= 0.31651928110492D-07 +c(36,23)= 0.11978687288709D-09 +c(37,23)= -0.12629933344705D-06 +c(38,23)= -0.37130646665923D-07 +c(39,23)= 0.86734371358331D-07 +c(40,23)= 0.80611044030297D-07 +c(41,23)= -0.44577951142381D-07 +c(42,23)= -0.54936752461265D-07 +c(43,23)= -0.11297736606126D-06 +c(44,23)= -0.83269881447660D-08 +c(45,23)= 0.49991835706267D-07 +c(46,23)= -0.28159240767130D-07 +c(47,23)= -0.68223851181465D-07 +c(48,23)= -0.39901537310458D-07 +c(49,23)= 0.48584499142797D-07 +c(50,23)= 0.14446762547444D-08 +c(51,23)= -0.50994668094026D-07 +c(52,23)= -0.17651577544801D-07 +c(53,23)= 0.15463684721894D-07 +c(54,23)= 0.17832090824119D-07 +c(55,23)= -0.42173396292640D-08 +c(56,23)= 0.95349773671057D-08 +c(57,23)= -0.52830499167672D-07 +c(58,23)= -0.38825709417983D-07 +c(59,23)= 0.17027700586923D-07 +c(60,23)= 0.33326808633737D-07 +c(61,23)= 0.86978868777464D-08 +c(62,23)= -0.23749175485776D-07 +c(63,23)= -0.30714494159292D-07 +c(64,23)= 0.13103887643843D-07 +c(65,23)= 0.16155192522717D-07 +c(66,23)= 0.32984699484048D-07 +c(67,23)= 0.56546884026074D-08 +c(68,23)= 0.82254206219378D-09 +c(69,23)= -0.13077802587556D-07 +c(70,23)= -0.41592406679985D-07 +c(71,23)= 0.13722687204235D-07 +c(72,23)= -0.39592855730196D-07 +c(73,23)= 0.37758246583069D-08 +c(74,23)= -0.24256660738867D-07 +c(75,23)= -0.26000421236925D-07 +c(76,23)= 0.83798077844146D-08 +c(77,23)= -0.48513087131603D-07 +c(78,23)= 0.15559617982592D-07 +c(79,23)= -0.55293533765553D-07 +c(80,23)= 0.20134258862280D-07 +c(24,24)= 0.27360023822351D-06 +c(25,24)= 0.32738384010408D-06 +c(26,24)= 0.72863473401760D-06 +c(27,24)= 0.16093057770313D-06 +c(28,24)= -0.29589926512110D-06 +c(29,24)= -0.10991726774138D-06 +c(30,24)= 0.11254291701804D-06 +c(31,24)= 0.17859073686593D-07 +c(32,24)= -0.30011726079240D-07 +c(33,24)= 0.13915220352998D-06 +c(34,24)= 0.11409795602060D-06 +c(35,24)= -0.13798663590998D-06 +c(36,24)= -0.13157126113546D-06 +c(37,24)= 0.43616254907620D-07 +c(38,24)= 0.53242550915175D-07 +c(39,24)= -0.15872770405754D-07 +c(40,24)= 0.49378347054287D-07 +c(41,24)= -0.23370839834228D-07 +c(42,24)= -0.61613101099447D-07 +c(43,24)= -0.19440049821244D-07 +c(44,24)= 0.10079463392137D-06 +c(45,24)= -0.14693885308818D-07 +c(46,24)= -0.57817890838879D-07 +c(47,24)= -0.57254998897843D-07 +c(48,24)= 0.15034522215740D-07 +c(49,24)= 0.19077209840090D-07 +c(50,24)= -0.95208092046963D-08 +c(51,24)= 0.10282440206743D-07 +c(52,24)= -0.46351326670846D-07 +c(53,24)= -0.10863182835033D-07 +c(54,24)= -0.74793148216455D-09 +c(55,24)= 0.93620343855328D-08 +c(56,24)= 0.29068723779422D-08 +c(57,24)= -0.15419884256602D-07 +c(58,24)= -0.60395360286350D-08 +c(59,24)= 0.39581769608064D-07 +c(60,24)= -0.26508552555905D-08 +c(61,24)= -0.18491414748868D-07 +c(62,24)= -0.17172922202434D-07 +c(63,24)= -0.29424835187963D-08 +c(64,24)= 0.19662057722625D-07 +c(65,24)= 0.24066937436565D-08 +c(66,24)= 0.17953685293943D-07 +c(67,24)= 0.95222343380676D-08 +c(68,24)= 0.21946265479023D-08 +c(69,24)= 0.23364113366357D-08 +c(70,24)= -0.20275669559082D-07 +c(71,24)= -0.29967567672062D-08 +c(72,24)= -0.53160274878373D-08 +c(73,24)= 0.31489670100519D-07 +c(74,24)= -0.14624284525145D-08 +c(75,24)= 0.28207731919307D-07 +c(76,24)= -0.13192466585347D-07 +c(77,24)= 0.35850722943136D-07 +c(78,24)= -0.13251015428247D-07 +c(79,24)= 0.29557122352244D-07 +c(80,24)= -0.19331113253332D-07 +c(25,25)= 0.13827677523287D-06 +c(26,25)= 0.27625280762581D-06 +c(27,25)= -0.96240679400536D-07 +c(28,25)= -0.50080049447013D-07 +c(29,25)= 0.10837288324825D-06 +c(30,25)= -0.18429883698663D-06 +c(31,25)= 0.32165873057388D-08 +c(32,25)= 0.10573172690568D-06 +c(33,25)= 0.50146203682854D-07 +c(34,25)= -0.11281578875297D-06 +c(35,25)= -0.54004629034111D-07 +c(36,25)= 0.28592437724991D-07 +c(37,25)= 0.73009647804798D-07 +c(38,25)= -0.24905250419934D-07 +c(39,25)= -0.42476689752654D-07 +c(40,25)= -0.72060583598888D-07 +c(41,25)= 0.20897240094878D-07 +c(42,25)= 0.16619890321859D-07 +c(43,25)= 0.34629351316775D-07 +c(44,25)= -0.29466152701850D-07 +c(45,25)= 0.55075897055936D-07 +c(46,25)= -0.15017910423017D-08 +c(47,25)= -0.34302255994406D-07 +c(48,25)= 0.61340681274207D-08 +c(49,25)= 0.29036834928664D-07 +c(50,25)= -0.81096146062157D-09 +c(51,25)= -0.42957902037937D-07 +c(52,25)= -0.94697605834800D-08 +c(53,25)= -0.17030074324832D-07 +c(54,25)= 0.77264677944891D-08 +c(55,25)= -0.11146747060136D-07 +c(56,25)= -0.94023525814262D-08 +c(57,25)= 0.49020310280130D-07 +c(58,25)= 0.20124054899184D-07 +c(59,25)= -0.17995425121176D-07 +c(60,25)= -0.56268220366364D-08 +c(61,25)= 0.33779675058183D-07 +c(62,25)= 0.18273518403616D-07 +c(63,25)= -0.27665906223905D-07 +c(64,25)= 0.13771301241879D-07 +c(65,25)= -0.14506820228763D-07 +c(66,25)= 0.15878668828642D-08 +c(67,25)= 0.17622768093748D-07 +c(68,25)= 0.29476695214199D-07 +c(69,25)= 0.26577367028634D-07 +c(70,25)= 0.11677120879497D-07 +c(71,25)= -0.37909563759775D-07 +c(72,25)= 0.25008418617247D-07 +c(73,25)= -0.28380435542435D-08 +c(74,25)= 0.10649666747561D-07 +c(75,25)= 0.24119782709760D-07 +c(76,25)= -0.54017796573998D-08 +c(77,25)= 0.19111003800308D-07 +c(78,25)= -0.31631113712616D-07 +c(79,25)= 0.22478056142447D-07 +c(80,25)= -0.39976017400591D-07 +c(26,26)= -0.15768781906645D-06 +c(27,26)= -0.28716714447585D-06 +c(28,26)= -0.37837486086759D-06 +c(29,26)= -0.12189316103849D-07 +c(30,26)= 0.11694968385426D-06 +c(31,26)= 0.17530693411769D-06 +c(32,26)= 0.32497432436030D-07 +c(33,26)= -0.23119735238602D-07 +c(34,26)= 0.74636012461474D-07 +c(35,26)= 0.15395549829320D-08 +c(36,26)= 0.20013793882874D-08 +c(37,26)= -0.42502753577933D-07 +c(38,26)= 0.43313630950955D-07 +c(39,26)= -0.17243272467394D-07 +c(40,26)= 0.16182982494337D-07 +c(41,26)= -0.24319674509892D-07 +c(42,26)= 0.11703675729424D-07 +c(43,26)= 0.40833570563849D-07 +c(44,26)= -0.33754590797787D-09 +c(45,26)= -0.15309772857120D-07 +c(46,26)= -0.11040468272219D-07 +c(47,26)= 0.39941386102419D-08 +c(48,26)= 0.37957000702940D-07 +c(49,26)= 0.37206048721622D-07 +c(50,26)= 0.33144313356696D-07 +c(51,26)= -0.19472123432831D-08 +c(52,26)= -0.36716371681056D-07 +c(53,26)= 0.12402559308799D-07 +c(54,26)= 0.40800283942106D-07 +c(55,26)= 0.18524878935786D-07 +c(56,26)= -0.27461362896829D-07 +c(57,26)= -0.53435381799615D-07 +c(58,26)= 0.74740768845563D-08 +c(59,26)= 0.21871523310841D-07 +c(60,26)= -0.19021180048423D-07 +c(61,26)= -0.26836181875340D-08 +c(62,26)= -0.18952070737695D-07 +c(63,26)= 0.19662374227625D-07 +c(64,26)= 0.53486771190449D-08 +c(65,26)= -0.27400639652929D-08 +c(66,26)= -0.16533488030242D-07 +c(67,26)= 0.13897698716283D-07 +c(68,26)= -0.52270927859002D-08 +c(69,26)= -0.15466373293019D-07 +c(70,26)= 0.22100777349175D-07 +c(71,26)= -0.18112639846698D-07 +c(72,26)= 0.34923579670438D-07 +c(73,26)= 0.95812667845168D-08 +c(74,26)= 0.14320091388089D-07 +c(75,26)= 0.35129192097712D-08 +c(76,26)= 0.21728683861324D-07 +c(77,26)= -0.12469401072512D-07 +c(78,26)= 0.25525630309300D-07 +c(79,26)= -0.27617997939105D-08 +c(80,26)= 0.16711466880933D-07 +c(27,27)= 0.49922745314867D-06 +c(28,27)= 0.51307032689722D-07 +c(29,27)= 0.47342079945331D-06 +c(30,27)= 0.31273964601630D-06 +c(31,27)= -0.93208680613626D-07 +c(32,27)= -0.49604553155496D-07 +c(33,27)= -0.52592873912420D-07 +c(34,27)= -0.10971440832705D-06 +c(35,27)= -0.94295297611662D-07 +c(36,27)= 0.66563298481375D-07 +c(37,27)= 0.14317673509148D-06 +c(38,27)= -0.17144489535359D-07 +c(39,27)= -0.94722990492321D-07 +c(40,27)= 0.43786436520367D-08 +c(41,27)= 0.12572169813857D-06 +c(42,27)= 0.46379869838391D-07 +c(43,27)= -0.46811398187818D-07 +c(44,27)= -0.67977000624105D-07 +c(45,27)= -0.39846423793425D-07 +c(46,27)= 0.18625166975218D-07 +c(47,27)= 0.20793584765986D-07 +c(48,27)= -0.16229061557653D-07 +c(49,27)= -0.41254092172753D-07 +c(50,27)= -0.11133624841479D-08 +c(51,27)= -0.95346373542353D-08 +c(52,27)= 0.38083286492211D-09 +c(53,27)= -0.32630560970930D-09 +c(54,27)= -0.17581841044420D-08 +c(55,27)= -0.40120425280532D-07 +c(56,27)= -0.53321988305913D-08 +c(57,27)= 0.62440969854788D-07 +c(58,27)= 0.27465497133955D-07 +c(59,27)= -0.29902266610927D-07 +c(60,27)= -0.22972128426252D-07 +c(61,27)= 0.33610641602112D-07 +c(62,27)= 0.24584322369889D-07 +c(63,27)= -0.24389544807378D-07 +c(64,27)= -0.62052229565562D-07 +c(65,27)= 0.20781774132365D-07 +c(66,27)= 0.24924741317856D-07 +c(67,27)= -0.40707642790285D-07 +c(68,27)= 0.21050431435801D-09 +c(69,27)= -0.16447647711241D-07 +c(70,27)= -0.36497401984733D-08 +c(71,27)= 0.11138804780997D-07 +c(72,27)= 0.20916302338556D-07 +c(73,27)= 0.36258873465065D-07 +c(74,27)= 0.14782292380843D-07 +c(75,27)= 0.36989493200005D-07 +c(76,27)= 0.43421887974999D-08 +c(77,27)= 0.41521520832111D-07 +c(78,27)= -0.24515004678780D-08 +c(79,27)= 0.52012055408943D-07 +c(80,27)= -0.22821743159857D-07 +c(28,28)= -0.13689973617542D-06 +c(29,28)= -0.36388931964975D-07 +c(30,28)= -0.22231722481905D-06 +c(31,28)= -0.38150827821589D-06 +c(32,28)= -0.58287455217108D-07 +c(33,28)= -0.74350715266180D-07 +c(34,28)= 0.81814502729351D-07 +c(35,28)= 0.15080464160424D-06 +c(36,28)= -0.75436706016174D-08 +c(37,28)= -0.17476378746928D-06 +c(38,28)= -0.11431195964044D-06 +c(39,28)= 0.19545174111152D-06 +c(40,28)= 0.16305356191226D-06 +c(41,28)= -0.93078528856659D-07 +c(42,28)= -0.12897344777906D-06 +c(43,28)= -0.77923049190565D-07 +c(44,28)= -0.97268960102326D-08 +c(45,28)= 0.74039577562575D-07 +c(46,28)= -0.45808062259145D-08 +c(47,28)= -0.69851857908157D-07 +c(48,28)= -0.38470248635592D-07 +c(49,28)= 0.49105275517028D-07 +c(50,28)= 0.30297015546051D-07 +c(51,28)= -0.34991597752385D-07 +c(52,28)= -0.51839954778737D-07 +c(53,28)= -0.13214778203740D-07 +c(54,28)= 0.22477820102354D-07 +c(55,28)= -0.13908576065961D-07 +c(56,28)= -0.12162546127106D-07 +c(57,28)= -0.15722553589095D-07 +c(58,28)= -0.33487420235316D-07 +c(59,28)= 0.47044156737570D-08 +c(60,28)= 0.28198960167965D-07 +c(61,28)= 0.73303752073192D-08 +c(62,28)= -0.18370041251986D-07 +c(63,28)= 0.12349279004626D-08 +c(64,28)= 0.35007731749392D-08 +c(65,28)= -0.23224498552509D-07 +c(66,28)= 0.13970133302314D-07 +c(67,28)= -0.89120626545945D-09 +c(68,28)= -0.79376188101558D-08 +c(69,28)= 0.35387467400759D-08 +c(70,28)= -0.13220441921215D-07 +c(71,28)= -0.32123127538395D-08 +c(72,28)= 0.44176267253961D-08 +c(73,28)= 0.67659583418974D-08 +c(74,28)= 0.14056659707927D-07 +c(75,28)= 0.20844639281022D-07 +c(76,28)= 0.17272049921388D-07 +c(77,28)= 0.22371913041315D-07 +c(78,28)= 0.87387875836527D-08 +c(79,28)= 0.19380306095852D-07 +c(80,28)= 0.24314259472560D-08 +c(29,29)= -0.15397394928722D-06 +c(30,29)= 0.17163119431251D-07 +c(31,29)= -0.75620640053598D-07 +c(32,29)= 0.42868420782768D-07 +c(33,29)= 0.15799589034123D-06 +c(34,29)= 0.10232700385077D-06 +c(35,29)= -0.12829305964441D-06 +c(36,29)= -0.14293188494881D-06 +c(37,29)= 0.82381952665583D-07 +c(38,29)= 0.12901950578175D-06 +c(39,29)= -0.72815490635225D-07 +c(40,29)= -0.72543507067565D-07 +c(41,29)= -0.30558594101122D-07 +c(42,29)= 0.48650112950610D-08 +c(43,29)= 0.28832565940202D-09 +c(44,29)= -0.20017089623151D-07 +c(45,29)= -0.12708975149658D-07 +c(46,29)= -0.32574403218797D-07 +c(47,29)= 0.34663095824221D-08 +c(48,29)= 0.31860141170627D-08 +c(49,29)= -0.31449739233846D-08 +c(50,29)= -0.28462300498113D-07 +c(51,29)= -0.35729047384193D-07 +c(52,29)= 0.23769432318297D-08 +c(53,29)= 0.46161104813680D-07 +c(54,29)= -0.94831705493119D-08 +c(55,29)= -0.56340321229327D-07 +c(56,29)= -0.45657689848635D-07 +c(57,29)= 0.29094738968036D-07 +c(58,29)= 0.36711216012873D-07 +c(59,29)= 0.15306448205221D-08 +c(60,29)= -0.14249087220871D-07 +c(61,29)= 0.28649671796700D-07 +c(62,29)= -0.11416285183053D-07 +c(63,29)= -0.35195295471856D-07 +c(64,29)= 0.19563969323385D-07 +c(65,29)= 0.21661845663115D-07 +c(66,29)= 0.10551643257578D-08 +c(67,29)= 0.14730370872549D-07 +c(68,29)= -0.13561004099641D-07 +c(69,29)= -0.20476363454595D-07 +c(70,29)= -0.67750299933167D-09 +c(71,29)= -0.35005990687414D-07 +c(72,29)= -0.65643894247056D-08 +c(73,29)= 0.21692423049340D-08 +c(74,29)= -0.22267588946526D-07 +c(75,29)= -0.17568510128030D-07 +c(76,29)= -0.25388068203378D-08 +c(77,29)= -0.22367038245313D-07 +c(78,29)= 0.27866557535431D-08 +c(79,29)= -0.24300705562891D-07 +c(80,29)= 0.11905917970883D-07 +c(30,30)= 0.83186343568163D-07 +c(31,30)= 0.23812610706667D-07 +c(32,30)= 0.16269246219649D-06 +c(33,30)= 0.12954915838060D-06 +c(34,30)= 0.36293181471303D-07 +c(35,30)= 0.10376351794984D-06 +c(36,30)= -0.99078257625299D-07 +c(37,30)= -0.93028550280416D-07 +c(38,30)= -0.12621296536070D-06 +c(39,30)= 0.12295135568984D-06 +c(40,30)= 0.16096277489877D-06 +c(41,30)= -0.27673871698105D-07 +c(42,30)= -0.10023188068847D-06 +c(43,30)= 0.34525964033799D-07 +c(44,30)= 0.10836442675597D-06 +c(45,30)= 0.42389965745143D-07 +c(46,30)= -0.23482682177555D-07 +c(47,30)= -0.58934570584881D-07 +c(48,30)= -0.36157018585747D-07 +c(49,30)= 0.47357700819730D-07 +c(50,30)= 0.63047674075323D-07 +c(51,30)= -0.28469935204260D-08 +c(52,30)= -0.27982829983927D-07 +c(53,30)= -0.32706828381456D-07 +c(54,30)= 0.21802672309297D-07 +c(55,30)= -0.25004109572926D-07 +c(56,30)= 0.10570594075491D-07 +c(57,30)= 0.20347369544623D-07 +c(58,30)= -0.13128767510778D-07 +c(59,30)= -0.20356843497471D-07 +c(60,30)= -0.96912610461841D-09 +c(61,30)= 0.11291487103604D-07 +c(62,30)= 0.67482106273810D-08 +c(63,30)= -0.89895652575622D-08 +c(64,30)= 0.39542250836942D-07 +c(65,30)= 0.90599837235250D-08 +c(66,30)= -0.22073492422253D-07 +c(67,30)= -0.41919069815473D-07 +c(68,30)= 0.28348949353530D-07 +c(69,30)= 0.36447692780697D-07 +c(70,30)= -0.70187849639355D-08 +c(71,30)= 0.16788401195784D-07 +c(72,30)= -0.23089232450709D-07 +c(73,30)= 0.14948522539138D-07 +c(74,30)= -0.93865279422310D-09 +c(75,30)= -0.18807804688485D-07 +c(76,30)= 0.36938784201911D-08 +c(77,30)= -0.15504731737758D-07 +c(78,30)= -0.86966446791838D-08 +c(79,30)= -0.37600224133010D-08 +c(80,30)= -0.10561182421300D-07 +c(31,31)= -0.19971160085949D-06 +c(32,31)= 0.10908816421837D-06 +c(33,31)= -0.16423185813899D-06 +c(34,31)= -0.27831701396602D-06 +c(35,31)= -0.60764412378810D-07 +c(36,31)= -0.11192741536182D-06 +c(37,31)= 0.15141181019967D-06 +c(38,31)= 0.30323807895755D-06 +c(39,31)= 0.43022525943111D-07 +c(40,31)= -0.21100144591716D-06 +c(41,31)= -0.59251904915924D-07 +c(42,31)= 0.94353917088774D-07 +c(43,31)= 0.13777426702155D-06 +c(44,31)= 0.23134424874716D-08 +c(45,31)= -0.90228954967828D-07 +c(46,31)= -0.12517418053937D-07 +c(47,31)= 0.35862897194960D-07 +c(48,31)= 0.94098714309386D-07 +c(49,31)= 0.42723201776514D-07 +c(50,31)= -0.12902144742638D-07 +c(51,31)= -0.17588938173710D-07 +c(52,31)= 0.13165185712010D-07 +c(53,31)= 0.61512672049867D-07 +c(54,31)= 0.21734143962000D-07 +c(55,31)= -0.32452109194103D-07 +c(56,31)= 0.48910497644945D-08 +c(57,31)= 0.33392689067592D-07 +c(58,31)= -0.38347685177227D-08 +c(59,31)= -0.44165074507785D-09 +c(60,31)= -0.17841906031136D-07 +c(61,31)= -0.27569789564735D-07 +c(62,31)= 0.13380484859283D-07 +c(63,31)= -0.75272826765232D-08 +c(64,31)= -0.45360521108785D-08 +c(65,31)= 0.18960524919855D-09 +c(66,31)= 0.56356045681231D-08 +c(67,31)= 0.30023740484481D-07 +c(68,31)= 0.84992532727179D-08 +c(69,31)= -0.59599812310000D-08 +c(70,31)= 0.30639656550984D-09 +c(71,31)= 0.13947996581212D-07 +c(72,31)= 0.16382973370411D-07 +c(73,31)= -0.11097442635374D-08 +c(74,31)= 0.28179014724023D-07 +c(75,31)= 0.42297861194098D-08 +c(76,31)= 0.94844315150209D-08 +c(77,31)= 0.24016512447752D-07 +c(78,31)= -0.59973313546418D-08 +c(79,31)= 0.26764883203518D-07 +c(80,31)= -0.48425109191681D-08 +c(32,32)= 0.87589187448183D-07 +c(33,32)= 0.42337514614445D-07 +c(34,32)= 0.11983455625456D-06 +c(35,32)= 0.22254793177251D-06 +c(36,32)= 0.20223389264696D-06 +c(37,32)= -0.17352387443074D-07 +c(38,32)= -0.12309263008740D-06 +c(39,32)= -0.77038893054049D-07 +c(40,32)= 0.10648215450483D-06 +c(41,32)= 0.89715620444346D-07 +c(42,32)= -0.11317612632298D-07 +c(43,32)= -0.29920121867975D-07 +c(44,32)= -0.26650675104411D-07 +c(45,32)= -0.33637956681839D-07 +c(46,32)= 0.22088137286031D-07 +c(47,32)= 0.60744666629907D-07 +c(48,32)= -0.16552897447257D-07 +c(49,32)= -0.55388812557025D-07 +c(50,32)= 0.30675953304965D-07 +c(51,32)= 0.27637435278865D-07 +c(52,32)= -0.78186216052303D-08 +c(53,32)= 0.15699836962564D-07 +c(54,32)= 0.36391188947904D-07 +c(55,32)= -0.16401826604118D-07 +c(56,32)= -0.70290099949870D-08 +c(57,32)= 0.50425652873629D-07 +c(58,32)= 0.46358498149771D-08 +c(59,32)= -0.23250058492860D-07 +c(60,32)= -0.33095184207838D-07 +c(61,32)= 0.31577510302841D-07 +c(62,32)= -0.17001480715715D-07 +c(63,32)= -0.22013692833670D-07 +c(64,32)= -0.24269775264514D-07 +c(65,32)= -0.39725406675138D-08 +c(66,32)= 0.17237680450052D-07 +c(67,32)= 0.96163156520467D-09 +c(68,32)= -0.29832574133303D-07 +c(69,32)= 0.44200002774657D-07 +c(70,32)= -0.79566261925044D-08 +c(71,32)= -0.13613272106422D-07 +c(72,32)= 0.27937227740734D-08 +c(73,32)= -0.93001102663037D-08 +c(74,32)= -0.22116499900137D-07 +c(75,32)= -0.68369804873006D-08 +c(76,32)= -0.22934832888321D-07 +c(77,32)= -0.24642366270291D-07 +c(78,32)= -0.14311989857057D-07 +c(79,32)= -0.29557459108403D-07 +c(80,32)= -0.61874821463050D-08 +c(33,33)= 0.58475398205840D-07 +c(34,33)= -0.38256469157865D-06 +c(35,33)= -0.82770977697643D-07 +c(36,33)= 0.93631906354654D-07 +c(37,33)= -0.23063691191785D-06 +c(38,33)= 0.79175188405789D-07 +c(39,33)= 0.15217645575778D-06 +c(40,33)= -0.90179486378835D-07 +c(41,33)= -0.14315529062634D-06 +c(42,33)= 0.12455438073450D-06 +c(43,33)= 0.13091780059606D-06 +c(44,33)= -0.10659899187999D-06 +c(45,33)= -0.10237156989509D-06 +c(46,33)= 0.22138057630585D-07 +c(47,33)= 0.46071502629398D-07 +c(48,33)= 0.57083405416726D-08 +c(49,33)= 0.21112663812878D-07 +c(50,33)= -0.40987304628857D-07 +c(51,33)= 0.88179277427948D-08 +c(52,33)= 0.20761917487268D-07 +c(53,33)= -0.21153986027314D-07 +c(54,33)= -0.16223554683602D-07 +c(55,33)= -0.13943481594437D-07 +c(56,33)= 0.14425864738890D-07 +c(57,33)= 0.12394851169921D-07 +c(58,33)= -0.35004298789192D-07 +c(59,33)= 0.20642131984743D-07 +c(60,33)= 0.14431777555028D-07 +c(61,33)= 0.58679802259372D-09 +c(62,33)= -0.63721540402709D-08 +c(63,33)= -0.23478906602072D-07 +c(64,33)= -0.33635494239517D-07 +c(65,33)= -0.50026523423955D-08 +c(66,33)= 0.34255035230904D-07 +c(67,33)= 0.14400063700947D-07 +c(68,33)= 0.26176792756362D-08 +c(69,33)= -0.40449361853318D-08 +c(70,33)= -0.52362825164384D-08 +c(71,33)= 0.10143959437298D-07 +c(72,33)= -0.22030297152042D-07 +c(73,33)= 0.67502982264843D-08 +c(74,33)= 0.98139417034179D-09 +c(75,33)= 0.22460790031195D-08 +c(76,33)= 0.38068505390521D-08 +c(77,33)= -0.15652074355205D-08 +c(78,33)= -0.21939585571664D-08 +c(79,33)= 0.22810602352599D-08 +c(80,33)= -0.45829111183152D-08 +c(34,34)= 0.51278731778469D-08 +c(35,34)= 0.14088901232734D-06 +c(36,34)= -0.90304181898181D-07 +c(37,34)= -0.13093622779341D-06 +c(38,34)= -0.66317165476431D-07 +c(39,34)= -0.37316803541154D-07 +c(40,34)= 0.36525759389135D-07 +c(41,34)= 0.14011876832441D-06 +c(42,34)= -0.72015594055707D-08 +c(43,34)= -0.18591326784172D-06 +c(44,34)= -0.48810626144485D-07 +c(45,34)= 0.44297320015628D-07 +c(46,34)= 0.72841636235943D-07 +c(47,34)= 0.96218257796547D-08 +c(48,34)= -0.29381533458598D-07 +c(49,34)= -0.34294171926132D-07 +c(50,34)= -0.22011655861774D-07 +c(51,34)= -0.71549393377881D-08 +c(52,34)= 0.33432039816191D-07 +c(53,34)= -0.30479096304569D-07 +c(54,34)= -0.13037337002687D-07 +c(55,34)= 0.11644996746542D-07 +c(56,34)= -0.24663480766096D-08 +c(57,34)= -0.15438293532936D-07 +c(58,34)= -0.97851886351454D-08 +c(59,34)= 0.14521584137480D-07 +c(60,34)= 0.53921040095297D-08 +c(61,34)= -0.11477146333923D-08 +c(62,34)= 0.52975867054377D-08 +c(63,34)= 0.56175520709770D-08 +c(64,34)= 0.10829415430945D-07 +c(65,34)= -0.30524661947070D-07 +c(66,34)= 0.77871891153686D-08 +c(67,34)= -0.50818167995811D-09 +c(68,34)= 0.30032772156280D-08 +c(69,34)= -0.99777924570013D-09 +c(70,34)= 0.98682117429245D-09 +c(71,34)= -0.76516873233813D-08 +c(72,34)= -0.96833533366251D-08 +c(73,34)= -0.10819444526080D-07 +c(74,34)= 0.10514207644296D-08 +c(75,34)= 0.30582673848055D-08 +c(76,34)= 0.39220734316602D-08 +c(77,34)= -0.16301991141856D-07 +c(78,34)= 0.23167286395576D-07 +c(79,34)= -0.39324638318927D-07 +c(80,34)= 0.36060892185870D-07 +c(35,35)= 0.10875503401032D-06 +c(36,35)= 0.19141905282068D-06 +c(37,35)= 0.21205540234216D-06 +c(38,35)= 0.12835760211068D-06 +c(39,35)= 0.12759888990090D-06 +c(40,35)= -0.86444568960824D-07 +c(41,35)= -0.19167486373494D-06 +c(42,35)= -0.11961658002801D-06 +c(43,35)= 0.11232157498663D-06 +c(44,35)= 0.81707928150757D-07 +c(45,35)= -0.34076762837328D-07 +c(46,35)= -0.27400516712106D-07 +c(47,35)= 0.34995215911193D-07 +c(48,35)= -0.12038435759851D-07 +c(49,35)= -0.40104793213950D-08 +c(50,35)= -0.16886724287599D-07 +c(51,35)= 0.65342450503192D-07 +c(52,35)= 0.21523009086677D-07 +c(53,35)= -0.62022321859295D-07 +c(54,35)= -0.28373306059328D-07 +c(55,35)= 0.63117998229223D-08 +c(56,35)= 0.16876051399852D-07 +c(57,35)= 0.25868272424565D-07 +c(58,35)= 0.70500786720980D-08 +c(59,35)= -0.12251863005692D-07 +c(60,35)= -0.93566015604113D-08 +c(61,35)= -0.84019414365513D-08 +c(62,35)= 0.26742010109669D-07 +c(63,35)= 0.76057211425958D-08 +c(64,35)= -0.22491965600775D-07 +c(65,35)= -0.25038314711882D-07 +c(66,35)= -0.34041829506929D-07 +c(67,35)= 0.16062129005521D-07 +c(68,35)= -0.10548112606566D-07 +c(69,35)= -0.88880184970768D-08 +c(70,35)= 0.31750901623981D-08 +c(71,35)= 0.42044182945617D-08 +c(72,35)= -0.11988809888886D-07 +c(73,35)= -0.69820172758214D-10 +c(74,35)= 0.91115164241102D-08 +c(75,35)= -0.11609547895818D-07 +c(76,35)= 0.11516958940068D-07 +c(77,35)= -0.21074821878740D-07 +c(78,35)= 0.34835485227049D-07 +c(79,35)= -0.21629803665303D-07 +c(80,35)= 0.34293942445702D-07 +c(36,36)= -0.70916055549077D-07 +c(37,36)= -0.29552977164803D-06 +c(38,36)= -0.10590143858948D-06 +c(39,36)= -0.35195335816752D-07 +c(40,36)= -0.76751593371798D-08 +c(41,36)= 0.30079574120527D-07 +c(42,36)= 0.70733237972441D-07 +c(43,36)= 0.51232856265250D-08 +c(44,36)= 0.12026768299596D-07 +c(45,36)= 0.42192228750503D-07 +c(46,36)= -0.15831748222013D-07 +c(47,36)= -0.33434991659727D-07 +c(48,36)= -0.42199573302386D-07 +c(49,36)= -0.56358286053357D-08 +c(50,36)= 0.23883933279818D-07 +c(51,36)= 0.26370392520937D-08 +c(52,36)= -0.15649192586338D-07 +c(53,36)= 0.95648409726559D-08 +c(54,36)= -0.15123091187138D-07 +c(55,36)= 0.20918159294584D-07 +c(56,36)= -0.70802809683391D-08 +c(57,36)= -0.36492181914188D-07 +c(58,36)= -0.27325960701348D-07 +c(59,36)= 0.37477801504421D-07 +c(60,36)= -0.14643991148462D-07 +c(61,36)= -0.95999339767453D-08 +c(62,36)= -0.14701469821659D-07 +c(63,36)= 0.18978276808263D-07 +c(64,36)= -0.15637269426543D-07 +c(65,36)= 0.54689016064712D-08 +c(66,36)= 0.64229928471165D-08 +c(67,36)= 0.23849761413833D-07 +c(68,36)= -0.22910566563468D-07 +c(69,36)= 0.32871975932697D-07 +c(70,36)= 0.12911775666932D-07 +c(71,36)= -0.34242915583168D-08 +c(72,36)= 0.11392274884802D-07 +c(73,36)= -0.75910173414701D-08 +c(74,36)= -0.91071088434135D-08 +c(75,36)= -0.20378647678455D-07 +c(76,36)= 0.27905963048534D-08 +c(77,36)= -0.16130379168336D-07 +c(78,36)= 0.13527489004341D-07 +c(79,36)= -0.25215869054319D-07 +c(80,36)= 0.35975273158689D-07 +c(37,37)= -0.85045436427460D-07 +c(38,37)= 0.24140798605316D-07 +c(39,37)= -0.62842977823986D-07 +c(40,37)= -0.36861072623085D-07 +c(41,37)= 0.72215177795741D-07 +c(42,37)= 0.12829880604610D-07 +c(43,37)= 0.47597533262804D-07 +c(44,37)= 0.73830430107757D-07 +c(45,37)= -0.11811188081236D-06 +c(46,37)= -0.12248817840432D-06 +c(47,37)= 0.60659863233175D-07 +c(48,37)= 0.84979491220722D-07 +c(49,37)= 0.70853251954797D-08 +c(50,37)= -0.16687012678264D-07 +c(51,37)= 0.14630482125012D-07 +c(52,37)= 0.19236863718465D-07 +c(53,37)= -0.22491318978291D-07 +c(54,37)= -0.95007356401955D-08 +c(55,37)= -0.40253426495364D-08 +c(56,37)= -0.16646635097155D-07 +c(57,37)= 0.82754017205748D-08 +c(58,37)= 0.13998509257893D-07 +c(59,37)= -0.32988321707420D-07 +c(60,37)= -0.41060253450443D-08 +c(61,37)= -0.29000352325951D-07 +c(62,37)= -0.17074531725920D-07 +c(63,37)= 0.11390580203762D-08 +c(64,37)= 0.70220783291552D-08 +c(65,37)= 0.46659847901810D-08 +c(66,37)= -0.17328699515012D-07 +c(67,37)= 0.55327166917024D-09 +c(68,37)= 0.53167674136827D-07 +c(69,37)= -0.66684357806224D-08 +c(70,37)= 0.40490753477360D-07 +c(71,37)= 0.76012426198717D-09 +c(72,37)= 0.15572657080339D-07 +c(73,37)= -0.82052508194241D-08 +c(74,37)= -0.71427980308794D-08 +c(75,37)= 0.15040299820799D-07 +c(76,37)= -0.69944438257929D-08 +c(77,37)= 0.16974340870149D-07 +c(78,37)= -0.24435107865475D-07 +c(79,37)= 0.29149038795301D-07 +c(80,37)= -0.35587716469847D-07 +c(38,38)= 0.13347014331245D-06 +c(39,38)= 0.24047024641936D-06 +c(40,38)= 0.10798059966788D-06 +c(41,38)= 0.39114089924291D-07 +c(42,38)= 0.28125967035620D-07 +c(43,38)= -0.66988229940973D-07 +c(44,38)= -0.11179251119048D-06 +c(45,38)= -0.23819711611369D-07 +c(46,38)= 0.42118175811780D-07 +c(47,38)= 0.44074049448197D-08 +c(48,38)= 0.10270838687362D-07 +c(49,38)= -0.12385049538435D-07 +c(50,38)= -0.89625479508237D-08 +c(51,38)= -0.42945144119609D-07 +c(52,38)= -0.44067169866758D-07 +c(53,38)= 0.26040844656555D-07 +c(54,38)= -0.36358336030660D-09 +c(55,38)= 0.40094057796099D-07 +c(56,38)= 0.19688765599997D-07 +c(57,38)= -0.47801829982398D-07 +c(58,38)= -0.51146761471813D-07 +c(59,38)= 0.47886017097438D-07 +c(60,38)= 0.27525666149222D-07 +c(61,38)= 0.42213139440541D-08 +c(62,38)= -0.17814299187379D-07 +c(63,38)= 0.29031052627425D-07 +c(64,38)= 0.35779061759296D-07 +c(65,38)= -0.27282827507959D-07 +c(66,38)= 0.14753903190742D-07 +c(67,38)= -0.16579971933734D-08 +c(68,38)= -0.57436727657306D-08 +c(69,38)= 0.36564824924530D-07 +c(70,38)= -0.32991506827445D-07 +c(71,38)= 0.16195339671985D-07 +c(72,38)= -0.35675973184680D-07 +c(73,38)= -0.26513674991594D-07 +c(74,38)= -0.31202448371751D-07 +c(75,38)= -0.48994367964207D-07 +c(76,38)= -0.34750817055747D-07 +c(77,38)= -0.67185675417512D-07 +c(78,38)= -0.11320947600947D-07 +c(79,38)= -0.90812483442622D-07 +c(80,38)= 0.36964635550072D-07 +c(39,39)= -0.12498518201365D-07 +c(40,39)= -0.13249419606610D-06 +c(41,39)= -0.51104602604330D-07 +c(42,39)= -0.14888223222037D-07 +c(43,39)= -0.81923363205969D-07 +c(44,39)= 0.47012056247530D-07 +c(45,39)= 0.94195726890302D-07 +c(46,39)= -0.28033365586129D-07 +c(47,39)= 0.72678982196798D-07 +c(48,39)= 0.32175051925217D-07 +c(49,39)= -0.54587681320482D-07 +c(50,39)= -0.35906860360574D-07 +c(51,39)= 0.35743456986384D-07 +c(52,39)= 0.45527074760768D-07 +c(53,39)= 0.33476912203896D-07 +c(54,39)= 0.21777990528633D-07 +c(55,39)= 0.23226980951241D-07 +c(56,39)= -0.43380426291089D-07 +c(57,39)= -0.45781622243592D-08 +c(58,39)= 0.54269052639050D-07 +c(59,39)= 0.13474235123675D-07 +c(60,39)= -0.31128483256094D-07 +c(61,39)= -0.15497264978552D-07 +c(62,39)= -0.10038525100273D-08 +c(63,39)= 0.48634086698810D-08 +c(64,39)= 0.95461834588078D-08 +c(65,39)= 0.15479454147057D-07 +c(66,39)= -0.14549195991840D-08 +c(67,39)= 0.25879413188807D-08 +c(68,39)= -0.41548366603569D-08 +c(69,39)= -0.38736734081212D-07 +c(70,39)= 0.82514376192889D-08 +c(71,39)= 0.14486363767362D-07 +c(72,39)= 0.15291206955104D-07 +c(73,39)= 0.13652057707307D-07 +c(74,39)= 0.88101634633753D-08 +c(75,39)= 0.74584143811033D-10 +c(76,39)= 0.54102488893796D-08 +c(77,39)= 0.11294842282177D-08 +c(78,39)= -0.16518184430928D-07 +c(79,39)= 0.86319238945332D-08 +c(80,39)= -0.21355768760937D-07 +c(40,40)= -0.28282625688147D-06 +c(41,40)= 0.71688952427537D-07 +c(42,40)= -0.41047158588585D-07 +c(43,40)= -0.13949634065030D-08 +c(44,40)= 0.97186473366003D-07 +c(45,40)= 0.12331926439725D-07 +c(46,40)= -0.67038586580410D-07 +c(47,40)= -0.23701097252138D-07 +c(48,40)= -0.27951691934561D-07 +c(49,40)= -0.10094153922806D-08 +c(50,40)= 0.63522211342458D-07 +c(51,40)= 0.81590490393668D-07 +c(52,40)= -0.52115468198460D-07 +c(53,40)= -0.86155361382134D-07 +c(54,40)= 0.84227815420622D-08 +c(55,40)= 0.18715156588866D-07 +c(56,40)= -0.67972245257240D-08 +c(57,40)= -0.24573951818749D-07 +c(58,40)= -0.22061955816573D-08 +c(59,40)= 0.12130463609119D-07 +c(60,40)= 0.21499168174430D-07 +c(61,40)= -0.12609775667312D-07 +c(62,40)= 0.11832773538245D-07 +c(63,40)= -0.77427790428475D-08 +c(64,40)= 0.19520948878565D-07 +c(65,40)= 0.30749231518606D-07 +c(66,40)= -0.10000105914878D-07 +c(67,40)= -0.88965453695869D-08 +c(68,40)= -0.20541193801204D-07 +c(69,40)= 0.75723105050778D-08 +c(70,40)= -0.12781738343996D-07 +c(71,40)= -0.24448621383419D-07 +c(72,40)= 0.11948259811746D-07 +c(73,40)= -0.21398505614222D-07 +c(74,40)= 0.82732733199092D-08 +c(75,40)= 0.13044211664951D-07 +c(76,40)= -0.15609725733120D-07 +c(77,40)= 0.16822678035570D-07 +c(78,40)= -0.23368023000363D-07 +c(79,40)= 0.19885107540687D-07 +c(80,40)= -0.26675411298633D-07 +c(41,41)= 0.66269264403178D-07 +c(42,41)= 0.99485360418763D-07 +c(43,41)= 0.93705529606588D-07 +c(44,41)= -0.19515115240073D-07 +c(45,41)= -0.68356932414673D-07 +c(46,41)= -0.13908385672117D-08 +c(47,41)= -0.28006145007972D-07 +c(48,41)= -0.47709422194968D-08 +c(49,41)= -0.14037285758001D-07 +c(50,41)= -0.15162775455965D-07 +c(51,41)= -0.49284491497797D-07 +c(52,41)= -0.27703139523507D-07 +c(53,41)= 0.62703453874591D-07 +c(54,41)= 0.16410550192500D-07 +c(55,41)= -0.66846435652823D-07 +c(56,41)= -0.82250945164372D-08 +c(57,41)= 0.19896704641883D-08 +c(58,41)= 0.22316449818608D-07 +c(59,41)= -0.27565696280757D-07 +c(60,41)= -0.17661700212443D-07 +c(61,41)= 0.12602239023716D-07 +c(62,41)= -0.36581893103834D-08 +c(63,41)= 0.38730066928903D-09 +c(64,41)= -0.27027514350908D-07 +c(65,41)= 0.28227954080531D-07 +c(66,41)= 0.25878266572920D-07 +c(67,41)= 0.29373762962172D-07 +c(68,41)= -0.82278483119246D-08 +c(69,41)= 0.90009074627914D-08 +c(70,41)= -0.10582409007455D-08 +c(71,41)= -0.93034890642953D-08 +c(72,41)= 0.10047844986013D-07 +c(73,41)= 0.23913638286220D-07 +c(74,41)= -0.90193920166047D-08 +c(75,41)= 0.57658148193283D-08 +c(76,41)= -0.67469936719169D-08 +c(77,41)= -0.32940382954878D-08 +c(78,41)= -0.27510094448350D-07 +c(79,41)= 0.14175735259075D-07 +c(80,41)= -0.44034849277347D-07 +c(42,42)= 0.92084705347499D-07 +c(43,42)= -0.13577783088227D-06 +c(44,42)= 0.66054997633427D-07 +c(45,42)= -0.55789097880559D-07 +c(46,42)= -0.90848449752462D-07 +c(47,42)= -0.25582225100060D-08 +c(48,42)= 0.11413175256446D-06 +c(49,42)= 0.22357274453811D-07 +c(50,42)= -0.62716570436004D-08 +c(51,42)= -0.74847824791414D-09 +c(52,42)= -0.69677744138901D-07 +c(53,42)= -0.49174179537698D-07 +c(54,42)= 0.22202981900828D-07 +c(55,42)= 0.66096468373953D-07 +c(56,42)= -0.27445455755823D-07 +c(57,42)= 0.19616284961736D-08 +c(58,42)= 0.28918259082415D-07 +c(59,42)= -0.22802650617594D-07 +c(60,42)= -0.88137084110375D-08 +c(61,42)= 0.31929626108723D-07 +c(62,42)= -0.14807107399537D-08 +c(63,42)= -0.26965637758467D-07 +c(64,42)= -0.15718904895240D-07 +c(65,42)= 0.30913064719717D-08 +c(66,42)= 0.14991231218581D-07 +c(67,42)= -0.42132291844845D-08 +c(68,42)= -0.46684718650143D-08 +c(69,42)= -0.22935192150385D-07 +c(70,42)= 0.16358324993681D-08 +c(71,42)= -0.13419448164149D-07 +c(72,42)= -0.25778244251830D-08 +c(73,42)= -0.25467697514425D-08 +c(74,42)= 0.18493268392668D-09 +c(75,42)= -0.13303291742363D-07 +c(76,42)= -0.17476449335409D-07 +c(77,42)= -0.29458611799455D-07 +c(78,42)= -0.11589069751728D-07 +c(79,42)= -0.35071126898184D-07 +c(80,42)= 0.22849369637846D-08 +c(43,43)= -0.11442187755961D-06 +c(44,43)= -0.18708421375589D-07 +c(45,43)= 0.61895517531317D-08 +c(46,43)= 0.57517781137047D-07 +c(47,43)= 0.13652878643041D-06 +c(48,43)= 0.19555034319472D-07 +c(49,43)= -0.17818932260147D-07 +c(50,43)= -0.75669723906277D-07 +c(51,43)= -0.40222254874503D-07 +c(52,43)= 0.60811877672993D-07 +c(53,43)= 0.11049247406639D-06 +c(54,43)= 0.48427088590006D-07 +c(55,43)= -0.78582760780145D-07 +c(56,43)= -0.68780516844109D-07 +c(57,43)= -0.21773151329278D-07 +c(58,43)= 0.17147740562778D-07 +c(59,43)= -0.29014997969292D-08 +c(60,43)= 0.76737763879791D-08 +c(61,43)= 0.16512977570143D-07 +c(62,43)= 0.25950586898876D-07 +c(63,43)= 0.21419877306605D-07 +c(64,43)= -0.11142692166081D-07 +c(65,43)= -0.15667713090307D-07 +c(66,43)= -0.22924332340415D-07 +c(67,43)= 0.26159412835283D-08 +c(68,43)= 0.64597941450654D-08 +c(69,43)= -0.74105375701351D-08 +c(70,43)= -0.57090236353885D-08 +c(71,43)= -0.89446579989596D-08 +c(72,43)= 0.14337002102460D-07 +c(73,43)= -0.82877772512053D-08 +c(74,43)= -0.81212139359209D-08 +c(75,43)= 0.14519859525652D-07 +c(76,43)= 0.24246669613919D-08 +c(77,43)= 0.18897270806945D-07 +c(78,43)= 0.24274786938760D-07 +c(79,43)= 0.89619348006897D-08 +c(80,43)= 0.19895050638066D-07 +c(44,44)= 0.15034955386023D-07 +c(45,44)= 0.29116782959401D-07 +c(46,44)= -0.17559317091249D-07 +c(47,44)= -0.18860928689845D-07 +c(48,44)= -0.10326269581702D-07 +c(49,44)= -0.37636204272158D-07 +c(50,44)= 0.12467321887837D-07 +c(51,44)= 0.93317756497594D-07 +c(52,44)= 0.32832347845314D-07 +c(53,44)= -0.42941186913527D-07 +c(54,44)= -0.31413798106672D-07 +c(55,44)= -0.14791229842655D-07 +c(56,44)= 0.88408079487054D-08 +c(57,44)= -0.19625091623408D-07 +c(58,44)= 0.51543244270834D-07 +c(59,44)= -0.12919504987766D-07 +c(60,44)= -0.13264958891254D-07 +c(61,44)= 0.20677079745552D-07 +c(62,44)= -0.65029971790238D-07 +c(63,44)= 0.98131242873875D-08 +c(64,44)= 0.25244962626010D-07 +c(65,44)= -0.13905280467247D-07 +c(66,44)= 0.61066655051075D-07 +c(67,44)= -0.43741884460756D-07 +c(68,44)= -0.19657163308199D-07 +c(69,44)= 0.44381263132876D-07 +c(70,44)= -0.10264324063237D-06 +c(71,44)= 0.14578568501114D-07 +c(72,44)= 0.45166455610180D-07 +c(73,44)= -0.58415182390034D-07 +c(74,44)= 0.33722342847193D-07 +c(75,44)= 0.23189641608263D-07 +c(76,44)= -0.24921693853061D-07 +c(77,44)= -0.38291464174011D-07 +c(78,44)= 0.34358181778215D-07 +c(79,44)= -0.77493084150848D-07 +c(80,44)= 0.34141243790682D-07 +c(45,45)= 0.14265682580741D-06 +c(46,45)= 0.15292837930747D-07 +c(47,45)= -0.21445895294116D-07 +c(48,45)= 0.20341197365456D-07 +c(49,45)= -0.89532491837208D-07 +c(50,45)= -0.57507075673080D-07 +c(51,45)= -0.33405316514918D-07 +c(52,45)= -0.41281866726819D-07 +c(53,45)= 0.49242933525228D-07 +c(54,45)= 0.53303213636083D-07 +c(55,45)= -0.34108191093865D-07 +c(56,45)= -0.62113473636493D-07 +c(57,45)= 0.76198176751553D-07 +c(58,45)= 0.57042231324263D-07 +c(59,45)= -0.20561091210655D-07 +c(60,45)= -0.32671481821249D-07 +c(61,45)= 0.20167512122980D-07 +c(62,45)= 0.30195507431502D-07 +c(63,45)= 0.95719760972733D-08 +c(64,45)= 0.36321603100966D-07 +c(65,45)= 0.56831220959255D-08 +c(66,45)= -0.83012494997678D-08 +c(67,45)= 0.18359905888740D-07 +c(68,45)= 0.28494515715017D-08 +c(69,45)= -0.10647112912967D-07 +c(70,45)= -0.88631691215427D-08 +c(71,45)= -0.21502271205195D-09 +c(72,45)= 0.47858427168376D-08 +c(73,45)= 0.38933163129512D-07 +c(74,45)= 0.25025007992658D-07 +c(75,45)= 0.14841842949944D-07 +c(76,45)= 0.12748094097083D-07 +c(77,45)= 0.17726062828373D-07 +c(78,45)= 0.93737960399375D-08 +c(79,45)= 0.37839699704908D-07 +c(80,45)= 0.47862829358012D-08 +c(46,46)= -0.14124569438264D-06 +c(47,46)= 0.12506343805339D-08 +c(48,46)= -0.39402913988663D-07 +c(49,46)= 0.64742134407597D-07 +c(50,46)= 0.77238528885076D-07 +c(51,46)= 0.48117475078108D-07 +c(52,46)= 0.65934142496894D-08 +c(53,46)= -0.27167517524648D-07 +c(54,46)= -0.52970215357704D-07 +c(55,46)= -0.89538854076998D-08 +c(56,46)= 0.72924442906164D-07 +c(57,46)= 0.35820881327144D-07 +c(58,46)= -0.79457083115507D-07 +c(59,46)= -0.88463103236001D-08 +c(60,46)= 0.48770163670525D-07 +c(61,46)= 0.68898336547070D-08 +c(62,46)= 0.56198496682383D-08 +c(63,46)= 0.76879764196924D-08 +c(64,46)= 0.28406084271576D-07 +c(65,46)= 0.51038041852556D-08 +c(66,46)= -0.18592227300313D-07 +c(67,46)= 0.31702157827593D-07 +c(68,46)= -0.30109462601346D-08 +c(69,46)= -0.21910454839202D-07 +c(70,46)= 0.28039934921293D-07 +c(71,46)= -0.37140052867618D-07 +c(72,46)= 0.11943303499421D-08 +c(73,46)= -0.18540140679958D-07 +c(74,46)= -0.30158913772799D-08 +c(75,46)= 0.85438958070824D-08 +c(76,46)= 0.40976066867798D-08 +c(77,46)= 0.32634408061461D-07 +c(78,46)= -0.90090093293770D-08 +c(79,46)= 0.68672076020273D-07 +c(80,46)= -0.19362365837174D-07 +c(47,47)= 0.14104959906971D-07 +c(48,47)= -0.56545643851864D-07 +c(49,47)= -0.38175920466332D-07 +c(50,47)= -0.76892238928920D-07 +c(51,47)= -0.78104320931309D-08 +c(52,47)= 0.19157556304477D-07 +c(53,47)= 0.20290009300674D-07 +c(54,47)= 0.29724165786259D-07 +c(55,47)= -0.31083742120195D-08 +c(56,47)= -0.43551560493261D-07 +c(57,47)= 0.77487657315157D-08 +c(58,47)= 0.34053742630077D-07 +c(59,47)= -0.34855336573877D-09 +c(60,47)= -0.30695640747836D-07 +c(61,47)= 0.31835869509673D-08 +c(62,47)= 0.36686279312462D-08 +c(63,47)= -0.22215743048625D-07 +c(64,47)= -0.50574708035914D-07 +c(65,47)= -0.20035066392557D-07 +c(66,47)= 0.81522797029569D-08 +c(67,47)= 0.20022103306298D-07 +c(68,47)= 0.15718793088804D-08 +c(69,47)= -0.28678333511384D-08 +c(70,47)= -0.26607709402548D-07 +c(71,47)= 0.41520598257674D-08 +c(72,47)= -0.11803899095500D-07 +c(73,47)= 0.36826455634889D-08 +c(74,47)= 0.58832581399847D-08 +c(75,47)= 0.20245747297436D-07 +c(76,47)= 0.96155820778275D-08 +c(77,47)= 0.17867757804120D-07 +c(78,47)= 0.34855665927062D-07 +c(79,47)= 0.28893007548978D-07 +c(80,47)= 0.38683398105126D-07 +c(48,48)= 0.13183786875222D-06 +c(49,48)= 0.10087023421292D-07 +c(50,48)= 0.81723772372626D-07 +c(51,48)= 0.26523736965109D-07 +c(52,48)= -0.75389297257786D-07 +c(53,48)= -0.63839178227448D-07 +c(54,48)= -0.27153787256252D-07 +c(55,48)= -0.13374928239397D-07 +c(56,48)= 0.25304555690120D-07 +c(57,48)= 0.26820681196692D-08 +c(58,48)= -0.49324278938910D-07 +c(59,48)= -0.31186651188467D-07 +c(60,48)= 0.33338897659264D-07 +c(61,48)= 0.20864299491934D-07 +c(62,48)= 0.95898773671841D-08 +c(63,48)= -0.12398556095698D-07 +c(64,48)= -0.10627481591800D-07 +c(65,48)= -0.92468866785723D-08 +c(66,48)= -0.94963352921816D-08 +c(67,48)= -0.20438806970465D-08 +c(68,48)= -0.17983398277993D-07 +c(69,48)= -0.30340242280293D-07 +c(70,48)= -0.21676501819313D-07 +c(71,48)= -0.35822028310007D-07 +c(72,48)= 0.14350716357890D-07 +c(73,48)= -0.43515657192583D-08 +c(74,48)= -0.12839602474258D-07 +c(75,48)= 0.52903331325952D-08 +c(76,48)= -0.12157397860099D-07 +c(77,48)= 0.87611039507312D-08 +c(78,48)= -0.27391677973795D-07 +c(79,48)= 0.95069694460083D-08 +c(80,48)= -0.25340201833080D-07 +c(49,49)= -0.83893778506803D-07 +c(50,49)= 0.27064741304335D-07 +c(51,49)= 0.59735502015113D-09 +c(52,49)= 0.30218896960283D-07 +c(53,49)= 0.78701606316708D-07 +c(54,49)= -0.46582548862016D-08 +c(55,49)= -0.34068124375426D-09 +c(56,49)= 0.48514433884466D-07 +c(57,49)= -0.16947411657877D-07 +c(58,49)= -0.54934651340397D-08 +c(59,49)= 0.24107767614798D-07 +c(60,49)= -0.25104549570907D-08 +c(61,49)= -0.57972944552729D-07 +c(62,49)= 0.42758974997715D-07 +c(63,49)= -0.64445010884034D-08 +c(64,49)= 0.86496732192467D-08 +c(65,49)= 0.11232181522790D-07 +c(66,49)= -0.37864499506033D-07 +c(67,49)= 0.19317408091003D-07 +c(68,49)= 0.17397051050412D-07 +c(69,49)= 0.80501430900921D-08 +c(70,49)= 0.16955407897328D-07 +c(71,49)= 0.38286819337312D-07 +c(72,49)= -0.10128367419507D-07 +c(73,49)= 0.20312064206339D-07 +c(74,49)= 0.24389096991361D-07 +c(75,49)= 0.19831553378102D-07 +c(76,49)= 0.16471155022668D-07 +c(77,49)= 0.27719829269071D-07 +c(78,49)= 0.27858782388775D-07 +c(79,49)= -0.10207394251253D-07 +c(80,49)= 0.37372005385793D-07 +c(50,50)= -0.78655304961773D-07 +c(51,50)= -0.76718587761635D-07 +c(52,50)= -0.89359338973498D-07 +c(53,50)= -0.63253751970261D-07 +c(54,50)= 0.96908722492314D-08 +c(55,50)= 0.25257480614650D-08 +c(56,50)= 0.65906394738951D-08 +c(57,50)= -0.64046436732057D-08 +c(58,50)= -0.24866048819383D-07 +c(59,50)= -0.56934326330242D-08 +c(60,50)= 0.23431408908595D-08 +c(61,50)= 0.42512188872396D-07 +c(62,50)= 0.84098611284314D-08 +c(63,50)= -0.21477523224098D-07 +c(64,50)= -0.21031569730425D-07 +c(65,50)= 0.41137055754030D-07 +c(66,50)= -0.21919227094243D-07 +c(67,50)= -0.57077805469915D-08 +c(68,50)= -0.11200861055523D-07 +c(69,50)= -0.31850325078367D-07 +c(70,50)= -0.39860295573898D-08 +c(71,50)= -0.39638944627352D-07 +c(72,50)= 0.27386483149971D-07 +c(73,50)= -0.33781222070150D-08 +c(74,50)= 0.99179260059346D-08 +c(75,50)= 0.14836368757641D-08 +c(76,50)= 0.73951694721136D-08 +c(77,50)= 0.63976287061156D-08 +c(78,50)= -0.37047176831862D-08 +c(79,50)= 0.12257327135528D-07 +c(80,50)= -0.65840102450554D-09 +c(51,51)= 0.71649831664665D-07 +c(52,51)= 0.16063833192547D-07 +c(53,51)= 0.31663668748921D-07 +c(54,51)= -0.96481014932878D-09 +c(55,51)= -0.15373391967241D-07 +c(56,51)= 0.31492453053932D-07 +c(57,51)= -0.11570563810668D-09 +c(58,51)= -0.28931597834427D-08 +c(59,51)= 0.41435796906410D-07 +c(60,51)= 0.13070549173929D-07 +c(61,51)= -0.56997555582700D-07 +c(62,51)= -0.31280643852365D-07 +c(63,51)= 0.39321121551819D-07 +c(64,51)= -0.88565493270598D-08 +c(65,51)= -0.22640084711286D-07 +c(66,51)= 0.18325345120306D-07 +c(67,51)= 0.18139330298322D-07 +c(68,51)= 0.20664491841579D-07 +c(69,51)= 0.37650603546457D-07 +c(70,51)= 0.32543754149647D-07 +c(71,51)= 0.26063198733519D-07 +c(72,51)= 0.32848204100458D-07 +c(73,51)= 0.16593720400871D-07 +c(74,51)= 0.22770517219112D-07 +c(75,51)= 0.21571734230323D-07 +c(76,51)= -0.44162812278580D-08 +c(77,51)= 0.28007202452446D-07 +c(78,51)= -0.22122967357936D-07 +c(79,51)= 0.19328668658253D-07 +c(80,51)= -0.29308862022510D-07 +c(52,52)= -0.11917850450220D-07 +c(53,52)= 0.10178324076334D-06 +c(54,52)= 0.58929881779205D-07 +c(55,52)= 0.34829088506542D-07 +c(56,52)= 0.16503415265138D-08 +c(57,52)= -0.32575071175232D-08 +c(58,52)= 0.47579921152148D-08 +c(59,52)= 0.11888762468345D-07 +c(60,52)= -0.17557956528633D-07 +c(61,52)= -0.10272219459391D-07 +c(62,52)= -0.56820460819980D-08 +c(63,52)= -0.35737699480519D-07 +c(64,52)= -0.16699373339017D-07 +c(65,52)= -0.20041144180385D-07 +c(66,52)= 0.46210866588471D-07 +c(67,52)= -0.31160658888733D-07 +c(68,52)= 0.12946214273948D-07 +c(69,52)= -0.23434559023731D-07 +c(70,52)= -0.83481726529725D-08 +c(71,52)= 0.92231887371209D-08 +c(72,52)= 0.31895493452823D-08 +c(73,52)= 0.22255625341153D-07 +c(74,52)= 0.21680626238655D-07 +c(75,52)= 0.26803795127612D-08 +c(76,52)= 0.11705238582242D-07 +c(77,52)= 0.28329758737764D-07 +c(78,52)= 0.21223322726206D-07 +c(79,52)= 0.16061455486414D-07 +c(80,52)= 0.22122360251331D-07 +c(53,53)= -0.68906317081098D-07 +c(54,53)= -0.60139427876214D-07 +c(55,53)= 0.15391096176413D-07 +c(56,53)= -0.33805643074270D-07 +c(57,53)= -0.50938541055426D-07 +c(58,53)= 0.16348008538981D-07 +c(59,53)= 0.49039386929627D-08 +c(60,53)= 0.44413621448349D-08 +c(61,53)= -0.32225383168232D-07 +c(62,53)= -0.89356017798621D-08 +c(63,53)= 0.94239635687397D-08 +c(64,53)= -0.87572493735644D-08 +c(65,53)= 0.13209339403168D-07 +c(66,53)= 0.27687647322889D-09 +c(67,53)= 0.11123610748244D-07 +c(68,53)= 0.38325877465571D-07 +c(69,53)= 0.27840788777681D-07 +c(70,53)= -0.88360645883774D-08 +c(71,53)= 0.13562389883347D-07 +c(72,53)= -0.66732701659572D-08 +c(73,53)= 0.41933879004779D-08 +c(74,53)= 0.27542979980989D-08 +c(75,53)= -0.26217514680132D-08 +c(76,53)= 0.10740428081553D-08 +c(77,53)= -0.25936431338946D-07 +c(78,53)= 0.12336307137725D-08 +c(79,53)= -0.58450093285968D-07 +c(80,53)= 0.23015764407575D-07 +c(54,54)= 0.25146386421733D-07 +c(55,54)= -0.41312492468982D-07 +c(56,54)= 0.13899542785488D-07 +c(57,54)= -0.27243615989484D-07 +c(58,54)= 0.16963677848444D-07 +c(59,54)= 0.30057873584805D-07 +c(60,54)= 0.90897022651945D-08 +c(61,54)= 0.14362518907253D-07 +c(62,54)= 0.21614788154163D-07 +c(63,54)= 0.67266755587643D-08 +c(64,54)= 0.80274054593026D-08 +c(65,54)= -0.14779647252088D-07 +c(66,54)= 0.26377341781642D-08 +c(67,54)= 0.13119241916865D-07 +c(68,54)= -0.36825921062611D-07 +c(69,54)= 0.15505522683942D-07 +c(70,54)= 0.15039615228945D-07 +c(71,54)= -0.16702220423832D-08 +c(72,54)= -0.15348632944715D-07 +c(73,54)= -0.24829612157751D-07 +c(74,54)= 0.78502933547880D-08 +c(75,54)= -0.67078194155254D-08 +c(76,54)= 0.14748767487734D-07 +c(77,54)= -0.13101636965934D-07 +c(78,54)= 0.13844005003076D-07 +c(79,54)= 0.72503899731971D-08 +c(80,54)= 0.25821120091196D-07 +c(55,55)= -0.98051494924926D-08 +c(56,55)= 0.14126817716778D-06 +c(57,55)= -0.13467101173673D-07 +c(58,55)= 0.82297465056759D-08 +c(59,55)= 0.29225038907521D-07 +c(60,55)= -0.64093659413411D-07 +c(61,55)= -0.47913699208843D-07 +c(62,55)= -0.10389687527535D-07 +c(63,55)= 0.49810414202377D-08 +c(64,55)= -0.22994709008642D-07 +c(65,55)= 0.17242577871404D-07 +c(66,55)= 0.21061388375067D-07 +c(67,55)= -0.68768515944441D-08 +c(68,55)= 0.45347017660204D-08 +c(69,55)= 0.47904452762682D-07 +c(70,55)= 0.18448559507244D-07 +c(71,55)= -0.21244351613833D-07 +c(72,55)= -0.13105884046395D-08 +c(73,55)= 0.33496923412302D-08 +c(74,55)= -0.13093431332956D-07 +c(75,55)= -0.55420200956180D-08 +c(76,55)= -0.16499505957784D-07 +c(77,55)= 0.20582488512699D-08 +c(78,55)= -0.44222802265208D-07 +c(79,55)= -0.77237356795639D-08 +c(80,55)= -0.45631690754147D-07 +c(56,56)= -0.40123407345616D-07 +c(57,56)= -0.48078870485104D-07 +c(58,56)= 0.19069834981467D-07 +c(59,56)= 0.26403983071577D-07 +c(60,56)= -0.20851446900971D-07 +c(61,56)= -0.38687964516932D-07 +c(62,56)= 0.40027130893790D-07 +c(63,56)= 0.56000185804383D-07 +c(64,56)= -0.47512071486663D-08 +c(65,56)= 0.29803130463985D-08 +c(66,56)= -0.11097075764010D-07 +c(67,56)= -0.98398333106898D-09 +c(68,56)= -0.89812932768307D-08 +c(69,56)= -0.27444091868882D-07 +c(70,56)= 0.71394078207807D-08 +c(71,56)= 0.80232100103553D-08 +c(72,56)= 0.88993436969500D-08 +c(73,56)= 0.15966538088772D-07 +c(74,56)= 0.38662741665250D-08 +c(75,56)= 0.89148213228963D-08 +c(76,56)= -0.13968865312220D-07 +c(77,56)= -0.44765328926921D-08 +c(78,56)= -0.19401767715379D-07 +c(79,56)= -0.39704639568240D-08 +c(80,56)= -0.22012530731357D-07 +c(57,57)= 0.63662142430206D-07 +c(58,57)= -0.61005760103547D-07 +c(59,57)= -0.34773117369159D-07 +c(60,57)= -0.13499097103984D-07 +c(61,57)= 0.17126155435825D-07 +c(62,57)= 0.64963959932636D-07 +c(63,57)= 0.54259025484029D-07 +c(64,57)= -0.52186134100488D-07 +c(65,57)= -0.22130732676743D-07 +c(66,57)= -0.54542285960446D-08 +c(67,57)= -0.12538641918910D-07 +c(68,57)= 0.14420623833334D-07 +c(69,57)= 0.21102228863191D-07 +c(70,57)= 0.26963740902659D-08 +c(71,57)= -0.16541292896987D-07 +c(72,57)= 0.13496408458053D-07 +c(73,57)= 0.47681230402104D-08 +c(74,57)= 0.96128372730776D-08 +c(75,57)= 0.40469998860768D-08 +c(76,57)= 0.25058187955984D-07 +c(77,57)= 0.48739736631978D-08 +c(78,57)= 0.85817486067055D-08 +c(79,57)= 0.91923573652914D-08 +c(80,57)= 0.21580207304601D-07 +c(58,58)= 0.30404168717792D-07 +c(59,58)= 0.36637732444766D-07 +c(60,58)= -0.48187228617950D-07 +c(61,58)= -0.18450902782091D-07 +c(62,58)= 0.23639019012449D-07 +c(63,58)= -0.31789808240154D-07 +c(64,58)= -0.51495679858299D-07 +c(65,58)= -0.22612778319004D-07 +c(66,58)= 0.33350776016663D-08 +c(67,58)= -0.30328810291125D-08 +c(68,58)= -0.12511875027624D-07 +c(69,58)= -0.18952692994231D-07 +c(70,58)= 0.16125248447427D-07 +c(71,58)= -0.12079424125372D-07 +c(72,58)= 0.11802305307720D-07 +c(73,58)= -0.98850212842383D-08 +c(74,58)= 0.64901372670500D-08 +c(75,58)= -0.65035971316783D-10 +c(76,58)= 0.12462278158387D-08 +c(77,58)= -0.11518357795713D-07 +c(78,58)= 0.17927360960238D-07 +c(79,58)= -0.20106153109405D-07 +c(80,58)= 0.23847471373295D-07 +c(59,59)= -0.54197484848084D-07 +c(60,59)= 0.13195419173402D-07 +c(61,59)= 0.45503356796075D-07 +c(62,59)= -0.18488950216058D-07 +c(63,59)= -0.13960575345108D-07 +c(64,59)= -0.36197787334473D-07 +c(65,59)= -0.33970411942424D-07 +c(66,59)= 0.31570141904188D-07 +c(67,59)= -0.22622266641646D-07 +c(68,59)= -0.23545771401746D-07 +c(69,59)= 0.26108287400461D-07 +c(70,59)= -0.10133573729510D-07 +c(71,59)= -0.25833239151630D-08 +c(72,59)= -0.13609862257131D-07 +c(73,59)= 0.12741460641084D-08 +c(74,59)= -0.48779453360635D-07 +c(75,59)= 0.34181500763575D-08 +c(76,59)= -0.11496318806930D-07 +c(77,59)= 0.18047284149487D-07 +c(78,59)= 0.17360033625305D-07 +c(79,59)= -0.93953597834784D-10 +c(80,59)= 0.38800928176602D-07 +c(60,60)= 0.28593707509687D-07 +c(61,60)= -0.75616956756271D-07 +c(62,60)= -0.55700540200929D-08 +c(63,60)= -0.22091231827130D-07 +c(64,60)= 0.28948480397681D-07 +c(65,60)= 0.62989187973610D-07 +c(66,60)= -0.71384896383999D-08 +c(67,60)= -0.45844593434291D-07 +c(68,60)= -0.19217972358172D-07 +c(69,60)= -0.19635478036358D-07 +c(70,60)= -0.11957403033925D-07 +c(71,60)= -0.12261960577181D-07 +c(72,60)= 0.65877363610953D-08 +c(73,60)= -0.17113095123597D-07 +c(74,60)= -0.27127106512783D-07 +c(75,60)= 0.83263511549959D-08 +c(76,60)= 0.29824364947494D-08 +c(77,60)= 0.19921028326643D-07 +c(78,60)= 0.46332146449539D-07 +c(79,60)= 0.35514037943076D-07 +c(80,60)= 0.48865245673134D-07 +c(61,61)= 0.52319776819198D-07 +c(62,61)= 0.15023349539380D-07 +c(63,61)= -0.70027422021410D-07 +c(64,61)= -0.34638400597222D-07 +c(65,61)= 0.14985893846734D-08 +c(66,61)= -0.29791974365691D-07 +c(67,61)= -0.90679449958987D-08 +c(68,61)= 0.12857956782801D-07 +c(69,61)= 0.53845517212863D-07 +c(70,61)= -0.17458835856659D-07 +c(71,61)= 0.36191908982051D-07 +c(72,61)= 0.25837294831375D-07 +c(73,61)= -0.12606088590518D-07 +c(74,61)= -0.25171077476141D-08 +c(75,61)= -0.35504806941465D-07 +c(76,61)= 0.21289043925316D-10 +c(77,61)= -0.66199539992973D-07 +c(78,61)= -0.93599768844641D-08 +c(79,61)= -0.96226191599110D-07 +c(80,61)= -0.32834066503532D-07 +c(62,62)= -0.60237139592494D-08 +c(63,62)= -0.20625629252480D-08 +c(64,62)= 0.30807889241947D-07 +c(65,62)= 0.19055891691252D-07 +c(66,62)= 0.23197555972264D-07 +c(67,62)= -0.41975845620426D-07 +c(68,62)= -0.49644119375293D-09 +c(69,62)= -0.51833992488221D-08 +c(70,62)= 0.67550663105708D-08 +c(71,62)= 0.10323538786660D-07 +c(72,62)= 0.15241950767748D-07 +c(73,62)= 0.23488887949895D-08 +c(74,62)= -0.74696335029352D-08 +c(75,62)= -0.10698619291426D-07 +c(76,62)= -0.28652339175347D-07 +c(77,62)= 0.24374250151510D-08 +c(78,62)= -0.33061642688537D-07 +c(79,62)= 0.14350862995235D-07 +c(80,62)= -0.51276446311965D-07 +c(63,63)= -0.22756202330126D-07 +c(64,63)= -0.66785580121160D-08 +c(65,63)= 0.14062329305521D-07 +c(66,63)= 0.57591865682234D-07 +c(67,63)= 0.38626292276263D-07 +c(68,63)= 0.15931686122385D-07 +c(69,63)= 0.19912556468545D-07 +c(70,63)= 0.39780213948434D-07 +c(71,63)= -0.64204764298785D-07 +c(72,63)= 0.17881688771298D-07 +c(73,63)= -0.26418452436418D-07 +c(74,63)= 0.18081288199856D-07 +c(75,63)= 0.26357469243573D-07 +c(76,63)= 0.35714299208398D-07 +c(77,63)= 0.31287884421194D-07 +c(78,63)= 0.19831070181322D-07 +c(79,63)= 0.71195365286147D-07 +c(80,63)= -0.17057535049470D-07 +c(64,64)= 0.16001141443898D-07 +c(65,64)= 0.26376404806720D-07 +c(66,64)= -0.44667259109842D-07 +c(67,64)= -0.33013127101211D-07 +c(68,64)= -0.24688575424350D-07 +c(69,64)= -0.16536702551016D-07 +c(70,64)= 0.33616196659677D-07 +c(71,64)= 0.82053664939067D-08 +c(72,64)= 0.53768906241930D-08 +c(73,64)= 0.22133367848765D-07 +c(74,64)= 0.34709204101415D-07 +c(75,64)= 0.11497386113963D-07 +c(76,64)= 0.28299933040159D-07 +c(77,64)= 0.42666219442628D-07 +c(78,64)= 0.89976141970644D-08 +c(79,64)= 0.61504928080787D-07 +c(80,64)= 0.46337885997585D-08 +c(65,65)= -0.37923340594247D-07 +c(66,65)= 0.57908038036215D-07 +c(67,65)= 0.39678249190651D-07 +c(68,65)= -0.32980329401940D-08 +c(69,65)= -0.12573178107348D-07 +c(70,65)= 0.21840245123388D-07 +c(71,65)= -0.15649518181756D-07 +c(72,65)= 0.37446874360709D-07 +c(73,65)= -0.36013087655695D-07 +c(74,65)= 0.26242447015256D-07 +c(75,65)= 0.65993616223791D-08 +c(76,65)= -0.89022251743086D-08 +c(77,65)= 0.25086514838982D-07 +c(78,65)= -0.13654570164780D-07 +c(79,65)= 0.41828803742268D-07 +c(80,65)= -0.21721222732775D-07 +c(66,66)= -0.42645750642653D-07 +c(67,66)= -0.35890545057486D-07 +c(68,66)= 0.48737014786927D-07 +c(69,66)= 0.89928827974056D-08 +c(70,66)= 0.45315771776624D-08 +c(71,66)= -0.67900004779097D-08 +c(72,66)= -0.22716964517560D-07 +c(73,66)= -0.17907817841494D-07 +c(74,66)= -0.22089058870163D-07 +c(75,66)= -0.22542089210875D-07 +c(76,66)= -0.24111771883861D-07 +c(77,66)= -0.32975407909178D-07 +c(78,66)= 0.18032489207429D-07 +c(79,66)= -0.67365391398799D-07 +c(80,66)= 0.27165847045611D-07 +c(67,67)= 0.13746247493082D-07 +c(68,67)= -0.46840571421664D-07 +c(69,67)= -0.46082937833652D-07 +c(70,67)= -0.17875821555122D-07 +c(71,67)= -0.13324915725140D-07 +c(72,67)= -0.34047797587000D-07 +c(73,67)= -0.46711868852491D-07 +c(74,67)= -0.35449274763391D-08 +c(75,67)= -0.20397141981446D-07 +c(76,67)= -0.11108360493265D-07 +c(77,67)= 0.11381321576696D-07 +c(78,67)= -0.63488647439425D-08 +c(79,67)= -0.48538968483360D-07 +c(80,67)= -0.71983453260028D-07 +c(68,68)= 0.16680960733166D-07 +c(69,68)= -0.52083592951271D-08 +c(70,68)= 0.32325341968542D-07 +c(71,68)= -0.16496832468463D-07 +c(72,68)= -0.20643422798399D-09 +c(73,68)= 0.21679139252239D-07 +c(74,68)= 0.39106999354482D-07 +c(75,68)= 0.18143968667046D-07 +c(76,68)= -0.68931580196856D-08 +c(77,68)= 0.33085534802760D-07 +c(78,68)= -0.11037676026853D-07 +c(79,68)= 0.31808918194418D-07 +c(80,68)= -0.10952551120856D-07 +c(69,69)= -0.12245535537515D-07 +c(70,69)= 0.10287607959453D-07 +c(71,69)= 0.48907175215348D-07 +c(72,69)= -0.66055000909424D-08 +c(73,69)= -0.18998722014041D-07 +c(74,69)= 0.50721545495667D-07 +c(75,69)= 0.13625539452155D-07 +c(76,69)= 0.20921948458561D-07 +c(77,69)= -0.80026826707920D-08 +c(78,69)= 0.10498380995640D-08 +c(79,69)= -0.26003036261122D-08 +c(80,69)= -0.18329141763226D-07 +c(70,70)= 0.26129165325730D-08 +c(71,70)= 0.39445680827134D-07 +c(72,70)= -0.36440945745060D-07 +c(73,70)= -0.34304469545119D-07 +c(74,70)= 0.90666251366812D-08 +c(75,70)= 0.98845829432444D-08 +c(76,70)= 0.20848195762778D-07 +c(77,70)= 0.65496386810649D-08 +c(78,70)= 0.13420363140932D-07 +c(79,70)= 0.24097504159691D-07 +c(80,70)= -0.61345329316370D-07 +c(71,71)= -0.23979906811712D-07 +c(72,71)= 0.81589711992019D-09 +c(73,71)= -0.12038754975651D-07 +c(74,71)= -0.33769050389210D-08 +c(75,71)= 0.22626329292769D-07 +c(76,71)= 0.34705206656060D-08 +c(77,71)= -0.47557144208902D-08 +c(78,71)= -0.12837520837664D-07 +c(79,71)= -0.47143600956230D-08 +c(80,71)= -0.13673596061185D-07 +c(72,72)= 0.20935785099319D-07 +c(73,72)= 0.15457694715164D-07 +c(74,72)= 0.43118438437429D-07 +c(75,72)= 0.44347445470690D-08 +c(76,72)= 0.86935013976379D-08 +c(77,72)= 0.14238230603767D-07 +c(78,72)= -0.75862730206882D-08 +c(79,72)= 0.18694963412678D-07 +c(80,72)= -0.22644291755096D-08 +c(73,73)= 0.10665385729218D-07 +c(74,73)= 0.10893726176099D-07 +c(75,73)= -0.39069862760945D-07 +c(76,73)= -0.68738761190501D-07 +c(77,73)= -0.25753617667176D-07 +c(78,73)= -0.42049642957662D-07 +c(79,73)= 0.96057051523230D-08 +c(80,73)= -0.54754957010108D-09 +c(74,74)= 0.35533577546674D-07 +c(75,74)= 0.24381875264283D-08 +c(76,74)= -0.16956003331522D-07 +c(77,74)= 0.14996059285111D-07 +c(78,74)= 0.15017114043667D-07 +c(79,74)= 0.28157653772661D-07 +c(80,74)= -0.10857895553919D-07 +c(75,75)= -0.20557935405623D-07 +c(76,75)= -0.11445288933741D-07 +c(77,75)= -0.13998374279198D-07 +c(78,75)= -0.86094853130988D-07 +c(79,75)= -0.44073733643326D-07 +c(80,75)= -0.97888515027293D-07 +c(76,76)= 0.16947695586139D-07 +c(77,76)= 0.48271839875412D-07 +c(78,76)= 0.87890863155167D-07 +c(79,76)= -0.47066652207509D-07 +c(80,76)= -0.18420259011703D-07 +c(77,77)= 0.22222570253966D-07 +c(78,77)= -0.35567341235073D-07 +c(79,77)= 0.15074521892097D-07 +c(80,77)= -0.65806552524787D-07 +c(78,78)= 0.42469008564636D-07 +c(79,78)= -0.75948714508049D-08 +c(80,78)= -0.16243257517502D-07 +c(79,79)= -0.12617301383201D-07 +c(80,79)= 0.16728015999556D-07 +c(80,80)= 0.54813675815846D-08 +s( 2, 1)= -0.11401847225989D-09 +s( 3, 1)= 0.25155150744332D-04 +s( 4, 1)= 0.37588917182210D-05 +s( 5, 1)= 0.21199078107223D-05 +s( 6, 1)= -0.15154712831579D-05 +s( 7, 1)= -0.22693254012337D-06 +s( 8, 1)= 0.74869335197712D-06 +s( 9, 1)= -0.48887826939649D-06 +s(10, 1)= 0.22250477035440D-06 +s(11, 1)= -0.22078265839368D-06 +s(12, 1)= -0.51290190208753D-07 +s(13, 1)= 0.22519671490044D-06 +s(14, 1)= 0.30949508730742D-06 +s(15, 1)= 0.25961987086161D-06 +s(16, 1)= -0.55346995650064D-06 +s(17, 1)= -0.63687648573341D-06 +s(18, 1)= -0.57862275066301D-06 +s(19, 1)= 0.50580889644975D-06 +s(20, 1)= 0.55159048065934D-06 +s(21, 1)= -0.42466628430160D-06 +s(22, 1)= -0.11861574241659D-06 +s(23, 1)= 0.74492590496240D-07 +s(24, 1)= 0.16898337729283D-06 +s(25, 1)= -0.16782838780194D-07 +s(26, 1)= -0.38583254338416D-06 +s(27, 1)= -0.42826946644146D-07 +s(28, 1)= 0.10245418978571D-06 +s(29, 1)= 0.20097501534675D-06 +s(30, 1)= -0.18646620419890D-08 +s(31, 1)= -0.82686085187458D-07 +s(32, 1)= -0.18316285527029D-06 +s(33, 1)= -0.93637017303617D-07 +s(34, 1)= -0.51407090820137D-07 +s(35, 1)= 0.15318194346565D-06 +s(36, 1)= -0.28160803509340D-07 +s(37, 1)= -0.18555020643732D-06 +s(38, 1)= -0.12915239202711D-07 +s(39, 1)= 0.11449391594282D-06 +s(40, 1)= -0.12753203712807D-07 +s(41, 1)= -0.67949821258339D-07 +s(42, 1)= -0.16396289398253D-07 +s(43, 1)= -0.43771996408463D-07 +s(44, 1)= -0.12376736507648D-08 +s(45, 1)= 0.53832073271757D-07 +s(46, 1)= 0.15683302078249D-07 +s(47, 1)= -0.95298601138481D-07 +s(48, 1)= -0.59657889079683D-07 +s(49, 1)= 0.77816630739978D-07 +s(50, 1)= 0.39362579443894D-07 +s(51, 1)= -0.50147019425721D-07 +s(52, 1)= -0.76175189595045D-08 +s(53, 1)= 0.44470821222391D-07 +s(54, 1)= 0.58422934124297D-07 +s(55, 1)= -0.27531333298184D-07 +s(56, 1)= 0.47425144454705D-07 +s(57, 1)= 0.12692149563230D-07 +s(58, 1)= -0.62104080669803D-07 +s(59, 1)= -0.78129455156601D-09 +s(60, 1)= 0.19250839858214D-07 +s(61, 1)= 0.29756964767289D-07 +s(62, 1)= -0.36635669397708D-07 +s(63, 1)= 0.39026727963702D-07 +s(64, 1)= -0.11666343243320D-08 +s(65, 1)= -0.39507755076019D-08 +s(66, 1)= 0.13315627623450D-07 +s(67, 1)= -0.90964859573059D-08 +s(68, 1)= 0.31922474126431D-07 +s(69, 1)= -0.89309440163424D-08 +s(70, 1)= -0.24655505132494D-08 +s(71, 1)= -0.42602408922089D-08 +s(72, 1)= -0.12030889796115D-07 +s(73, 1)= -0.10741257587395D-07 +s(74, 1)= -0.55499974865562D-08 +s(75, 1)= -0.35174435080564D-08 +s(76, 1)= 0.15678335042096D-07 +s(77, 1)= -0.28372251356007D-08 +s(78, 1)= 0.20084489528831D-07 +s(79, 1)= 0.22045740795526D-08 +s(80, 1)= 0.15356372022802D-07 +s( 2, 2)= 0.48905551075504D-04 +s( 3, 2)= 0.83539192403728D-05 +s( 4, 2)= -0.89701777491190D-05 +s( 5, 2)= -0.11641453008893D-05 +s( 6, 2)= 0.14667268956886D-05 +s( 7, 2)= -0.62842100807606D-06 +s( 8, 2)= 0.50596700143418D-06 +s( 9, 2)= 0.38142891566534D-06 +s(10, 2)= -0.11124225282454D-05 +s(11, 2)= -0.99100594960733D-06 +s(12, 2)= 0.53128493253623D-06 +s(13, 2)= 0.85028075079998D-06 +s(14, 2)= -0.52161616518213D-06 +s(15, 2)= -0.78050858035765D-06 +s(16, 2)= -0.87214358332511D-07 +s(17, 2)= 0.14579826763514D-06 +s(18, 2)= 0.43798807886695D-07 +s(19, 2)= 0.87664275315519D-07 +s(20, 2)= -0.23739329968468D-06 +s(21, 2)= -0.55617022532929D-06 +s(22, 2)= 0.74634801430613D-07 +s(23, 2)= 0.47058080251370D-06 +s(24, 2)= -0.13833943024497D-06 +s(25, 2)= -0.36206673055862D-06 +s(26, 2)= 0.13771086763274D-07 +s(27, 2)= 0.26908130569571D-06 +s(28, 2)= 0.25184065503879D-06 +s(29, 2)= 0.29109346693879D-08 +s(30, 2)= -0.44165883077743D-07 +s(31, 2)= 0.13908167846995D-07 +s(32, 2)= 0.18305835915308D-06 +s(33, 2)= 0.20487537947298D-06 +s(34, 2)= 0.47320171392541D-07 +s(35, 2)= -0.58882619512619D-07 +s(36, 2)= -0.12311353910300D-06 +s(37, 2)= -0.21919769425805D-07 +s(38, 2)= 0.11709291424090D-06 +s(39, 2)= 0.92699311123633D-07 +s(40, 2)= -0.90368996680850D-07 +s(41, 2)= -0.11102320608435D-06 +s(42, 2)= 0.85441307939682D-07 +s(43, 2)= 0.15019286440103D-06 +s(44, 2)= -0.15758773652609D-07 +s(45, 2)= -0.56546577893551D-07 +s(46, 2)= 0.46414838712203D-07 +s(47, 2)= 0.69440803211037D-07 +s(48, 2)= -0.41543319320956D-07 +s(49, 2)= -0.25453153619611D-07 +s(50, 2)= 0.61069806618382D-07 +s(51, 2)= -0.21431871272039D-07 +s(52, 2)= -0.27493738239856D-07 +s(53, 2)= 0.40499074786701D-07 +s(54, 2)= 0.16409989015642D-07 +s(55, 2)= -0.46733116241997D-07 +s(56, 2)= -0.49935750762261D-07 +s(57, 2)= 0.38916218999179D-07 +s(58, 2)= -0.49768112095755D-08 +s(59, 2)= -0.28668365214044D-07 +s(60, 2)= 0.10106627158974D-07 +s(61, 2)= -0.15637139662540D-07 +s(62, 2)= -0.20915792684197D-07 +s(63, 2)= -0.54227075337162D-07 +s(64, 2)= 0.33432699268793D-07 +s(65, 2)= 0.10034791702217D-07 +s(66, 2)= 0.10133225197098D-07 +s(67, 2)= -0.22905770890077D-07 +s(68, 2)= -0.22301580854256D-07 +s(69, 2)= -0.92177350430440D-08 +s(70, 2)= -0.18780903598666D-08 +s(71, 2)= -0.75542782412997D-09 +s(72, 2)= 0.49577307486526D-08 +s(73, 2)= -0.10826784880676D-07 +s(74, 2)= -0.23224199983071D-07 +s(75, 2)= 0.19561774315674D-07 +s(76, 2)= -0.30216464519069D-07 +s(77, 2)= 0.17749568424107D-07 +s(78, 2)= -0.33399757719077D-07 +s(79, 2)= 0.18010662015649D-07 +s(80, 2)= -0.32871462541030D-07 +s( 3, 3)= 0.25551471726737D-04 +s( 4, 3)= -0.19274827646727D-06 +s( 5, 3)= 0.27140581800371D-06 +s( 6, 3)= 0.33222302672742D-06 +s( 7, 3)= -0.39609564442357D-06 +s( 8, 3)= -0.13382050309136D-05 +s( 9, 3)= -0.10048343370863D-05 +s(10, 3)= 0.44208842620839D-06 +s(11, 3)= 0.76239768915178D-06 +s(12, 3)= 0.31335143763597D-06 +s(13, 3)= 0.18130002960504D-06 +s(14, 3)= -0.31104921120362D-06 +s(15, 3)= -0.29856958137367D-06 +s(16, 3)= 0.42481073247226D-06 +s(17, 3)= 0.19122120603783D-06 +s(18, 3)= -0.46117693571270D-06 +s(19, 3)= -0.20023496082877D-06 +s(20, 3)= 0.20997193488831D-06 +s(21, 3)= 0.24698772474013D-06 +s(22, 3)= 0.14526401968646D-07 +s(23, 3)= -0.13094420881434D-06 +s(24, 3)= -0.28724262482356D-06 +s(25, 3)= -0.14705252644312D-06 +s(26, 3)= 0.12595891565708D-06 +s(27, 3)= 0.31207723482287D-06 +s(28, 3)= -0.27650809086232D-06 +s(29, 3)= -0.30671076129865D-06 +s(30, 3)= 0.84155662713398D-08 +s(31, 3)= 0.54069483045578D-07 +s(32, 3)= 0.37773579574019D-07 +s(33, 3)= -0.11854623883255D-06 +s(34, 3)= -0.16136229886968D-06 +s(35, 3)= -0.59238139036980D-07 +s(36, 3)= 0.52705208366376D-07 +s(37, 3)= 0.61587862484921D-07 +s(38, 3)= -0.11594308999457D-07 +s(39, 3)= -0.21618306258924D-07 +s(40, 3)= -0.14792502688220D-07 +s(41, 3)= 0.62343085836212D-07 +s(42, 3)= 0.25134346110112D-07 +s(43, 3)= 0.24424514891413D-07 +s(44, 3)= -0.26996983351598D-07 +s(45, 3)= -0.72534663934446D-08 +s(46, 3)= 0.29618360439917D-07 +s(47, 3)= 0.52654231743027D-08 +s(48, 3)= -0.10583447514475D-07 +s(49, 3)= 0.37626191938029D-07 +s(50, 3)= 0.25596290670976D-07 +s(51, 3)= -0.23932391975686D-07 +s(52, 3)= -0.49857747681036D-07 +s(53, 3)= 0.95895058624665D-08 +s(54, 3)= 0.71293575106710D-07 +s(55, 3)= 0.14572395176144D-07 +s(56, 3)= -0.46910828885870D-07 +s(57, 3)= 0.35071316888314D-07 +s(58, 3)= 0.31409118702607D-07 +s(59, 3)= -0.14417701951018D-07 +s(60, 3)= 0.13876650780031D-07 +s(61, 3)= -0.35334741851824D-08 +s(62, 3)= -0.30324625813371D-07 +s(63, 3)= -0.32787634088217D-07 +s(64, 3)= 0.12694055876807D-07 +s(65, 3)= 0.22406210975383D-07 +s(66, 3)= -0.18141161946838D-07 +s(67, 3)= 0.54521038956287D-09 +s(68, 3)= -0.38138689619787D-08 +s(69, 3)= -0.16093220344950D-07 +s(70, 3)= -0.37036403872396D-07 +s(71, 3)= -0.47186949728098D-08 +s(72, 3)= -0.27956746206030D-07 +s(73, 3)= 0.85634852321390D-09 +s(74, 3)= -0.38325087199963D-07 +s(75, 3)= 0.15398137020464D-07 +s(76, 3)= -0.39023342002934D-07 +s(77, 3)= 0.19635939217429D-07 +s(78, 3)= -0.35504514917566D-07 +s(79, 3)= 0.21761683080775D-07 +s(80, 3)= -0.31625978448866D-07 +s( 4, 4)= -0.12857823170070D-04 +s( 5, 4)= -0.33773263335749D-05 +s( 6, 4)= 0.26339507884398D-05 +s( 7, 4)= -0.42144144853044D-06 +s( 8, 4)= 0.14777413181852D-06 +s( 9, 4)= 0.16194710093435D-05 +s(10, 4)= -0.69313507253819D-07 +s(11, 4)= -0.64233300320774D-06 +s(12, 4)= 0.12301690995295D-06 +s(13, 4)= 0.68736009234055D-06 +s(14, 4)= -0.95770079832859D-06 +s(15, 4)= -0.83528061339268D-06 +s(16, 4)= -0.54260378146251D-07 +s(17, 4)= -0.93929405238052D-08 +s(18, 4)= 0.13191461217734D-06 +s(19, 4)= 0.25226344496632D-06 +s(20, 4)= 0.20621490254119D-06 +s(21, 4)= -0.14043749966466D-06 +s(22, 4)= -0.37858016062249D-06 +s(23, 4)= 0.73495913921712D-07 +s(24, 4)= 0.11779230311764D-06 +s(25, 4)= 0.15527691778753D-06 +s(26, 4)= 0.21058477382704D-06 +s(27, 4)= 0.89681836558224D-07 +s(28, 4)= 0.19622213253189D-07 +s(29, 4)= 0.47678131095151D-07 +s(30, 4)= 0.21380065806948D-06 +s(31, 4)= 0.75620818268705D-08 +s(32, 4)= 0.69970608136749D-07 +s(33, 4)= 0.31985403196957D-07 +s(34, 4)= 0.98787731189489D-07 +s(35, 4)= 0.79432952777437D-07 +s(36, 4)= -0.22350132896334D-07 +s(37, 4)= 0.66789039516572D-08 +s(38, 4)= 0.64998554245920D-07 +s(39, 4)= 0.36097324429760D-07 +s(40, 4)= 0.53798620841362D-07 +s(41, 4)= -0.60633572489982D-08 +s(42, 4)= 0.43908209925831D-07 +s(43, 4)= 0.69304474175146D-07 +s(44, 4)= 0.17136856044562D-07 +s(45, 4)= -0.21172262663520D-07 +s(46, 4)= 0.15964270630663D-07 +s(47, 4)= 0.68319629051684D-07 +s(48, 4)= 0.22307463806329D-07 +s(49, 4)= -0.22098747481583D-07 +s(50, 4)= -0.13416105611403D-07 +s(51, 4)= -0.28727639863575D-08 +s(52, 4)= 0.61362062327015D-08 +s(53, 4)= 0.28029179020574D-07 +s(54, 4)= 0.20493852005795D-07 +s(55, 4)= -0.34076081538132D-07 +s(56, 4)= -0.50027878148709D-07 +s(57, 4)= 0.25275768023372D-07 +s(58, 4)= 0.32984416637604D-07 +s(59, 4)= 0.46748302094913D-08 +s(60, 4)= -0.28731083679469D-07 +s(61, 4)= -0.12185426332213D-08 +s(62, 4)= 0.24196923372757D-07 +s(63, 4)= -0.38300851302597D-07 +s(64, 4)= 0.23385333301277D-07 +s(65, 4)= 0.10699297135166D-07 +s(66, 4)= 0.24635886833335D-07 +s(67, 4)= 0.16525365641931D-08 +s(68, 4)= 0.11620271286385D-08 +s(69, 4)= 0.21844011370929D-07 +s(70, 4)= -0.21954322860600D-07 +s(71, 4)= -0.29656501717783D-08 +s(72, 4)= 0.11819742766063D-07 +s(73, 4)= -0.33898434165158D-07 +s(74, 4)= 0.10552495877755D-07 +s(75, 4)= -0.60657709996744D-08 +s(76, 4)= -0.15629828556566D-07 +s(77, 4)= -0.20599003025979D-08 +s(78, 4)= -0.38749943891530D-08 +s(79, 4)= -0.12713374207514D-07 +s(80, 4)= 0.22321713775651D-09 +s( 5, 5)= 0.37742550130119D-05 +s( 6, 5)= 0.16199010884387D-05 +s( 7, 5)= -0.13557075249867D-05 +s( 8, 5)= -0.16260186706174D-05 +s( 9, 5)= -0.15457469241661D-05 +s(10, 5)= -0.10600209030637D-05 +s(11, 5)= 0.89636346823903D-06 +s(12, 5)= 0.99814527374599D-06 +s(13, 5)= -0.40334461020521D-06 +s(14, 5)= -0.96150455430912D-06 +s(15, 5)= -0.47286535275867D-06 +s(16, 5)= 0.58730941024010D-06 +s(17, 5)= 0.31152083265288D-06 +s(18, 5)= -0.61825374203407D-06 +s(19, 5)= -0.44472448343507D-06 +s(20, 5)= 0.14586438492309D-07 +s(21, 5)= 0.16628168439163D-06 +s(22, 5)= 0.31241402527141D-07 +s(23, 5)= 0.18854458337510D-06 +s(24, 5)= -0.16489726638894D-06 +s(25, 5)= -0.31845421512104D-06 +s(26, 5)= 0.22721950714351D-06 +s(27, 5)= 0.28299545652663D-06 +s(28, 5)= -0.37389057002835D-07 +s(29, 5)= -0.17226603663226D-06 +s(30, 5)= 0.14710390042110D-06 +s(31, 5)= 0.17561089328596D-06 +s(32, 5)= -0.65422322261088D-07 +s(33, 5)= 0.54998698313070D-07 +s(34, 5)= -0.58162952622315D-07 +s(35, 5)= -0.21460608956987D-06 +s(36, 5)= 0.10197746868170D-07 +s(37, 5)= 0.12520063761894D-06 +s(38, 5)= -0.35506011727971D-07 +s(39, 5)= -0.19201531312844D-06 +s(40, 5)= -0.12269200040578D-06 +s(41, 5)= 0.89778390439825D-07 +s(42, 5)= -0.41913786741451D-07 +s(43, 5)= -0.91520006488999D-07 +s(44, 5)= -0.44920044599259D-07 +s(45, 5)= 0.11643541732227D-07 +s(46, 5)= -0.26360725053581D-08 +s(47, 5)= -0.44760884506842D-08 +s(48, 5)= -0.21592819756822D-07 +s(49, 5)= -0.60937408379074D-08 +s(50, 5)= 0.27401279526375D-08 +s(51, 5)= 0.15851055218607D-07 +s(52, 5)= -0.39887968690482D-07 +s(53, 5)= -0.18343774352404D-07 +s(54, 5)= 0.62372930417058D-08 +s(55, 5)= 0.20924085053186D-07 +s(56, 5)= -0.30622186799619D-07 +s(57, 5)= -0.11748953359707D-07 +s(58, 5)= 0.23880590247310D-07 +s(59, 5)= 0.20034896605191D-07 +s(60, 5)= -0.16471279024280D-07 +s(61, 5)= -0.11357411549884D-07 +s(62, 5)= -0.18049010749233D-07 +s(63, 5)= -0.65094139439041D-07 +s(64, 5)= -0.20737977692137D-07 +s(65, 5)= -0.29791542438761D-07 +s(66, 5)= 0.78550958031711D-09 +s(67, 5)= 0.98305589918783D-08 +s(68, 5)= 0.15360752910204D-07 +s(69, 5)= 0.17205978100653D-07 +s(70, 5)= 0.82258548517498D-08 +s(71, 5)= 0.85106428921503D-08 +s(72, 5)= 0.11577667889131D-07 +s(73, 5)= 0.16308111802428D-08 +s(74, 5)= 0.14229372953148D-07 +s(75, 5)= -0.82577367551857D-08 +s(76, 5)= 0.16419910665001D-07 +s(77, 5)= -0.76141933727246D-08 +s(78, 5)= 0.15663078015234D-07 +s(79, 5)= -0.38076118797541D-08 +s(80, 5)= 0.19338680156276D-07 +s( 6, 6)= 0.82048914571916D-06 +s( 7, 6)= -0.18976252698758D-05 +s( 8, 6)= -0.17859907392665D-05 +s( 9, 6)= 0.57635343927424D-06 +s(10, 6)= 0.11141482531981D-05 +s(11, 6)= 0.20520417204917D-07 +s(12, 6)= -0.16241518863413D-05 +s(13, 6)= -0.92898699384914D-06 +s(14, 6)= -0.83030911917673D-07 +s(15, 6)= 0.63029479290680D-06 +s(16, 6)= 0.22377218327274D-06 +s(17, 6)= -0.30803335024641D-06 +s(18, 6)= -0.67899952282254D-06 +s(19, 6)= -0.15250901091529D-06 +s(20, 6)= 0.37831534677241D-06 +s(21, 6)= 0.27709441869198D-06 +s(22, 6)= -0.52996707240534D-06 +s(23, 6)= -0.49676668701636D-06 +s(24, 6)= 0.36332436606584D-07 +s(25, 6)= 0.35015834406465D-06 +s(26, 6)= 0.58170241349480D-07 +s(27, 6)= -0.32085152929534D-06 +s(28, 6)= -0.26174056751663D-06 +s(29, 6)= 0.74912443471519D-08 +s(30, 6)= 0.36062403088968D-06 +s(31, 6)= 0.11445836997106D-06 +s(32, 6)= -0.21026389477025D-06 +s(33, 6)= -0.26176185843027D-06 +s(34, 6)= 0.27649159609722D-07 +s(35, 6)= 0.18659652364132D-06 +s(36, 6)= 0.64867610890407D-08 +s(37, 6)= -0.12178155734875D-06 +s(38, 6)= -0.11711628132855D-06 +s(39, 6)= -0.54345146341479D-08 +s(40, 6)= 0.71059805395230D-07 +s(41, 6)= 0.46535261677561D-07 +s(42, 6)= -0.19077964613060D-07 +s(43, 6)= -0.61725941246726D-07 +s(44, 6)= 0.56827990615115D-07 +s(45, 6)= 0.49360626933475D-07 +s(46, 6)= -0.44437585732807D-07 +s(47, 6)= -0.16590532201585D-07 +s(48, 6)= 0.52118679119891D-07 +s(49, 6)= -0.39270934787392D-07 +s(50, 6)= -0.29200578663369D-07 +s(51, 6)= 0.71930752953130D-08 +s(52, 6)= -0.55013112384309D-08 +s(53, 6)= -0.41179828878416D-07 +s(54, 6)= 0.27775828195230D-07 +s(55, 6)= 0.40970764709541D-07 +s(56, 6)= -0.93882334391395D-08 +s(57, 6)= -0.19406697176474D-07 +s(58, 6)= 0.33469412443438D-07 +s(59, 6)= 0.12935720779420D-07 +s(60, 6)= -0.11381909184848D-07 +s(61, 6)= 0.94081584158453D-08 +s(62, 6)= 0.47789557270427D-07 +s(63, 6)= 0.17622793297102D-07 +s(64, 6)= -0.18345308909856D-07 +s(65, 6)= 0.26940425956765D-08 +s(66, 6)= -0.12905439356089D-07 +s(67, 6)= -0.19649164082368D-07 +s(68, 6)= 0.15817487307388D-07 +s(69, 6)= 0.98315960599906D-08 +s(70, 6)= -0.36651513112467D-08 +s(71, 6)= -0.31455261139310D-08 +s(72, 6)= 0.23442550631311D-07 +s(73, 6)= -0.91447673426722D-08 +s(74, 6)= 0.12777811795930D-07 +s(75, 6)= -0.38604892131951D-08 +s(76, 6)= 0.15707324950716D-07 +s(77, 6)= -0.54637645120108D-08 +s(78, 6)= 0.12652007604582D-07 +s(79, 6)= 0.76513109485040D-08 +s(80, 6)= 0.80948836322871D-08 +s( 7, 7)= -0.17718148905347D-05 +s( 8, 7)= 0.16408397974219D-05 +s( 9, 7)= 0.86647021106569D-06 +s(10, 7)= -0.61835547459555D-06 +s(11, 7)= -0.86232464665112D-06 +s(12, 7)= -0.11248859759827D-06 +s(13, 7)= 0.39634821776235D-06 +s(14, 7)= 0.24045824377199D-06 +s(15, 7)= 0.36039156989872D-06 +s(16, 7)= 0.31060939091896D-06 +s(17, 7)= -0.24009029696849D-06 +s(18, 7)= -0.16932094993760D-06 +s(19, 7)= 0.18821371044436D-06 +s(20, 7)= 0.40126716006775D-07 +s(21, 7)= -0.30263479586734D-06 +s(22, 7)= 0.12697718689314D-07 +s(23, 7)= 0.28287048180980D-06 +s(24, 7)= 0.50713252130312D-06 +s(25, 7)= 0.26061153429560D-06 +s(26, 7)= -0.23148709970149D-06 +s(27, 7)= -0.11121282776403D-06 +s(28, 7)= 0.19604577315001D-06 +s(29, 7)= 0.16686812676659D-06 +s(30, 7)= 0.30214879537025D-07 +s(31, 7)= -0.13377877566804D-06 +s(32, 7)= -0.16610438475314D-06 +s(33, 7)= 0.28746228761159D-06 +s(34, 7)= 0.22764174789091D-06 +s(35, 7)= -0.10676698900774D-06 +s(36, 7)= -0.11823947886321D-06 +s(37, 7)= -0.18761169597968D-07 +s(38, 7)= 0.15498239194539D-06 +s(39, 7)= -0.39950543926411D-08 +s(40, 7)= -0.43229921049524D-07 +s(41, 7)= 0.11412007712194D-06 +s(42, 7)= -0.14466968510796D-07 +s(43, 7)= -0.50395367209663D-07 +s(44, 7)= 0.10038828070189D-07 +s(45, 7)= 0.89846934942603D-07 +s(46, 7)= 0.26646513249887D-07 +s(47, 7)= -0.10731318307303D-06 +s(48, 7)= 0.42121798444175D-08 +s(49, 7)= 0.75577709045872D-07 +s(50, 7)= -0.42621912089417D-07 +s(51, 7)= -0.16964770982555D-07 +s(52, 7)= 0.22999036083795D-07 +s(53, 7)= -0.20887288050776D-07 +s(54, 7)= -0.44108867497604D-07 +s(55, 7)= 0.13930811021967D-08 +s(56, 7)= -0.83764704949305D-08 +s(57, 7)= -0.69153676523682D-08 +s(58, 7)= 0.18007382119490D-08 +s(59, 7)= 0.33336892845039D-08 +s(60, 7)= -0.41896555386511D-08 +s(61, 7)= -0.17039520923528D-07 +s(62, 7)= -0.16712720904900D-07 +s(63, 7)= 0.37298748429177D-07 +s(64, 7)= -0.25654109191059D-07 +s(65, 7)= -0.13749720601388D-07 +s(66, 7)= 0.26676806808541D-07 +s(67, 7)= 0.16476181922272D-07 +s(68, 7)= 0.83007982073902D-08 +s(69, 7)= 0.26847074426587D-07 +s(70, 7)= 0.18339215465452D-07 +s(71, 7)= -0.12096493390590D-07 +s(72, 7)= 0.30873049918127D-07 +s(73, 7)= -0.22948720255903D-08 +s(74, 7)= 0.42303559984739D-09 +s(75, 7)= -0.31468500927299D-09 +s(76, 7)= -0.78036646136261D-08 +s(77, 7)= -0.15461825889251D-07 +s(78, 7)= 0.35576129993784D-08 +s(79, 7)= -0.87002735760482D-08 +s(80, 7)= -0.34389487185570D-09 +s( 8, 8)= -0.24959849099076D-06 +s( 9, 8)= -0.14580693512087D-06 +s(10, 8)= 0.81805036262635D-06 +s(11, 8)= 0.76433996425429D-06 +s(12, 8)= -0.38702672712394D-06 +s(13, 8)= -0.64465263597708D-08 +s(14, 8)= 0.37300526843875D-06 +s(15, 8)= 0.47222387124156D-06 +s(16, 8)= 0.38955608515904D-06 +s(17, 8)= -0.20383440752989D-06 +s(18, 8)= -0.26151194759556D-06 +s(19, 8)= -0.13178247598978D-06 +s(20, 8)= 0.31649702590755D-06 +s(21, 8)= 0.31101517689284D-06 +s(22, 8)= -0.21168255118607D-06 +s(23, 8)= -0.28466023855760D-06 +s(24, 8)= 0.11719052550134D-06 +s(25, 8)= 0.15843866010930D-06 +s(26, 8)= 0.23810692528317D-07 +s(27, 8)= 0.53647006877697D-07 +s(28, 8)= -0.31906307271979D-08 +s(29, 8)= -0.10391985530998D-07 +s(30, 8)= 0.95109571880006D-07 +s(31, 8)= 0.57365947063787D-07 +s(32, 8)= -0.40518346014117D-07 +s(33, 8)= -0.15499078054985D-06 +s(34, 8)= 0.37313770945502D-07 +s(35, 8)= 0.93476114898862D-07 +s(36, 8)= -0.45262218231854D-07 +s(37, 8)= -0.98638451420277D-07 +s(38, 8)= 0.69215062222509D-07 +s(39, 8)= 0.30032636960184D-07 +s(40, 8)= -0.75098783816941D-07 +s(41, 8)= -0.63812778667225D-07 +s(42, 8)= -0.57734182666462D-08 +s(43, 8)= -0.43605753090059D-07 +s(44, 8)= 0.53239834915912D-07 +s(45, 8)= 0.29151322995370D-07 +s(46, 8)= -0.19230450020761D-07 +s(47, 8)= -0.39920862610279D-07 +s(48, 8)= 0.27925566188812D-07 +s(49, 8)= 0.58064949635228D-07 +s(50, 8)= -0.71988778892891D-08 +s(51, 8)= 0.78900516452218D-08 +s(52, 8)= 0.28429706686802D-07 +s(53, 8)= 0.76661527952012D-08 +s(54, 8)= 0.72627505164607D-08 +s(55, 8)= -0.67541296281969D-08 +s(56, 8)= 0.17380975529252D-07 +s(57, 8)= -0.64317567606288D-08 +s(58, 8)= 0.11915145445347D-07 +s(59, 8)= 0.12196090940292D-07 +s(60, 8)= -0.27987670013253D-07 +s(61, 8)= -0.71249626874001D-08 +s(62, 8)= -0.51867829783309D-08 +s(63, 8)= -0.19468386912618D-07 +s(64, 8)= 0.23098695913554D-07 +s(65, 8)= 0.28411589627994D-07 +s(66, 8)= 0.27127785981138D-07 +s(67, 8)= 0.20265388073624D-07 +s(68, 8)= -0.69432862125621D-08 +s(69, 8)= 0.51173112821441D-08 +s(70, 8)= -0.43588065245559D-08 +s(71, 8)= 0.61109017794536D-08 +s(72, 8)= 0.21118182460781D-07 +s(73, 8)= -0.94860333532873D-09 +s(74, 8)= 0.43499469247456D-08 +s(75, 8)= 0.15440798733987D-07 +s(76, 8)= 0.42930395860814D-08 +s(77, 8)= -0.10648979146836D-07 +s(78, 8)= 0.23716172947373D-07 +s(79, 8)= -0.23048343056173D-07 +s(80, 8)= 0.16544765807105D-07 +s( 9, 9)= -0.65627326888320D-06 +s(10, 9)= -0.14595950764968D-05 +s(11, 9)= -0.41836765661321D-06 +s(12, 9)= 0.47512601540373D-06 +s(13, 9)= 0.80247505155953D-06 +s(14, 9)= 0.11498533744602D-05 +s(15, 9)= -0.37235910487197D-06 +s(16, 9)= -0.93489733864836D-06 +s(17, 9)= -0.32805356533853D-06 +s(18, 9)= 0.22858126868659D-06 +s(19, 9)= 0.39400348404035D-06 +s(20, 9)= 0.18072704192137D-06 +s(21, 9)= -0.10183574008031D-06 +s(22, 9)= -0.30654676245482D-07 +s(23, 9)= 0.10420719046342D-06 +s(24, 9)= 0.33274868234587D-06 +s(25, 9)= 0.21290437080171D-06 +s(26, 9)= -0.51156668516244D-06 +s(27, 9)= -0.38743075186968D-06 +s(28, 9)= 0.42432381937433D-06 +s(29, 9)= 0.33265775129990D-06 +s(30, 9)= -0.14915562556088D-07 +s(31, 9)= -0.41861144470828D-07 +s(32, 9)= -0.99150362320510D-07 +s(33, 9)= 0.10711465229193D-06 +s(34, 9)= 0.12194543304261D-06 +s(35, 9)= -0.46902631272439D-07 +s(36, 9)= -0.66049672182928D-07 +s(37, 9)= -0.52095734962230D-07 +s(38, 9)= 0.13573875181403D-06 +s(39, 9)= 0.18417451602229D-07 +s(40, 9)= -0.11934084112825D-06 +s(41, 9)= -0.18995682305052D-07 +s(42, 9)= 0.54219013565157D-07 +s(43, 9)= 0.35057697093395D-07 +s(44, 9)= 0.53305704921528D-09 +s(45, 9)= 0.64794407176129D-07 +s(46, 9)= 0.27331745831916D-07 +s(47, 9)= -0.58988474395239D-07 +s(48, 9)= 0.17461117306505D-07 +s(49, 9)= 0.87270646852327D-07 +s(50, 9)= -0.71342940132626D-08 +s(51, 9)= -0.28435611154970D-07 +s(52, 9)= 0.11805683008097D-07 +s(53, 9)= 0.89143404074597D-08 +s(54, 9)= -0.26555392074377D-07 +s(55, 9)= 0.33828855511918D-07 +s(56, 9)= 0.42546390083977D-07 +s(57, 9)= -0.36734873423041D-07 +s(58, 9)= -0.22395650708275D-07 +s(59, 9)= 0.24315885012474D-07 +s(60, 9)= 0.79944980951610D-08 +s(61, 9)= -0.38296575561497D-07 +s(62, 9)= 0.70571132839722D-08 +s(63, 9)= 0.25038246911884D-07 +s(64, 9)= 0.34757865716423D-07 +s(65, 9)= 0.71465665945082D-08 +s(66, 9)= 0.96220861771692D-08 +s(67, 9)= 0.14907466291611D-07 +s(68, 9)= -0.12459707429573D-07 +s(69, 9)= 0.25196834012392D-09 +s(70, 9)= -0.24635603469987D-07 +s(71, 9)= -0.34947072691407D-08 +s(72, 9)= -0.40986826279927D-07 +s(73, 9)= -0.53285000800155D-08 +s(74, 9)= -0.21864929212364D-07 +s(75, 9)= 0.31655289123553D-08 +s(76, 9)= -0.71972613348107D-08 +s(77, 9)= -0.11715970978303D-07 +s(78, 9)= -0.91581498788497D-08 +s(79, 9)= -0.33289555113209D-08 +s(80, 9)= -0.69618551966212D-08 +s(10,10)= 0.75110049124197D-06 +s(11,10)= 0.19602479146368D-05 +s(12,10)= 0.13735593875557D-05 +s(13,10)= -0.64528317351519D-06 +s(14,10)= -0.15806738741427D-05 +s(15,10)= -0.15651979227771D-06 +s(16,10)= 0.34092895016214D-06 +s(17,10)= 0.26625026138228D-06 +s(18,10)= -0.66632869044241D-07 +s(19,10)= -0.78558502011907D-07 +s(20,10)= -0.27558540599626D-07 +s(21,10)= 0.10612069522761D-06 +s(22,10)= 0.27759528560520D-06 +s(23,10)= -0.14762936279683D-06 +s(24,10)= -0.30649417359411D-06 +s(25,10)= -0.24934120573227D-06 +s(26,10)= 0.45214442081102D-07 +s(27,10)= 0.24920251008875D-07 +s(28,10)= 0.11146872495122D-07 +s(29,10)= -0.26060426643668D-07 +s(30,10)= -0.23781098460740D-06 +s(31,10)= -0.22249872682332D-06 +s(32,10)= 0.10939022689204D-06 +s(33,10)= -0.99274702786069D-08 +s(34,10)= -0.11057200235541D-06 +s(35,10)= -0.71666688130456D-07 +s(36,10)= 0.34024516192873D-07 +s(37,10)= 0.55363294504361D-07 +s(38,10)= 0.35642895088882D-08 +s(39,10)= 0.10576871280035D-07 +s(40,10)= -0.11697411911326D-06 +s(41,10)= -0.73996793185219D-07 +s(42,10)= 0.38678791991800D-07 +s(43,10)= 0.24828811765688D-07 +s(44,10)= -0.42505224541213D-07 +s(45,10)= -0.87400153715382D-07 +s(46,10)= -0.52257551226251D-08 +s(47,10)= -0.15139873000105D-07 +s(48,10)= -0.30765583056167D-07 +s(49,10)= 0.37035367656631D-07 +s(50,10)= -0.25016564928436D-07 +s(51,10)= -0.35771827517194D-07 +s(52,10)= -0.33478355753907D-09 +s(53,10)= 0.20219187490712D-07 +s(54,10)= 0.38102648478186D-08 +s(55,10)= -0.34616352014803D-07 +s(56,10)= -0.51970170086516D-08 +s(57,10)= 0.46109370443295D-07 +s(58,10)= -0.62288697447250D-08 +s(59,10)= 0.16408443629483D-07 +s(60,10)= 0.17080610897797D-07 +s(61,10)= -0.20496638449623D-07 +s(62,10)= 0.88434962009344D-08 +s(63,10)= -0.45568632645146D-07 +s(64,10)= -0.32009339658894D-07 +s(65,10)= 0.22650298617807D-08 +s(66,10)= 0.11883874117333D-07 +s(67,10)= -0.29624723139076D-07 +s(68,10)= 0.91697466414316D-08 +s(69,10)= -0.40427796463915D-08 +s(70,10)= -0.78382603351011D-08 +s(71,10)= 0.62882121043255D-08 +s(72,10)= 0.10388060801758D-07 +s(73,10)= -0.10887005067750D-07 +s(74,10)= 0.93326955954817D-08 +s(75,10)= -0.35375814440110D-08 +s(76,10)= 0.11440477826086D-07 +s(77,10)= 0.11280465372383D-07 +s(78,10)= 0.80737354952143D-09 +s(79,10)= 0.13169751291096D-07 +s(80,10)= -0.89384411088562D-08 +s(11,11)= -0.32243874465540D-06 +s(12,11)= -0.16488455183527D-05 +s(13,11)= -0.82051095635799D-06 +s(14,11)= 0.15963288344652D-06 +s(15,11)= 0.57043780534665D-06 +s(16,11)= -0.31162197414919D-06 +s(17,11)= 0.51284823319059D-07 +s(18,11)= -0.30113265411810D-06 +s(19,11)= -0.39066464008848D-06 +s(20,11)= 0.19716210205580D-07 +s(21,11)= -0.17102747377246D-06 +s(22,11)= -0.16030018161286D-06 +s(23,11)= -0.31284845289221D-06 +s(24,11)= 0.30924886178203D-06 +s(25,11)= 0.40328090713224D-06 +s(26,11)= -0.22008090349919D-06 +s(27,11)= -0.22263962027705D-06 +s(28,11)= 0.28201322279299D-06 +s(29,11)= 0.58131493898922D-07 +s(30,11)= -0.11375026639270D-06 +s(31,11)= 0.18978094742895D-06 +s(32,11)= 0.81541810295914D-07 +s(33,11)= -0.15861779452979D-06 +s(34,11)= -0.21333796420055D-06 +s(35,11)= 0.33398335918711D-07 +s(36,11)= 0.37795393184265D-07 +s(37,11)= -0.47045914061136D-07 +s(38,11)= -0.96238569513032D-07 +s(39,11)= -0.26332968760336D-07 +s(40,11)= -0.57618669052149D-07 +s(41,11)= -0.12609690722743D-07 +s(42,11)= 0.92647921190134D-07 +s(43,11)= 0.15554619277272D-07 +s(44,11)= -0.14729797978674D-06 +s(45,11)= -0.35970928874431D-07 +s(46,11)= 0.63535970160862D-07 +s(47,11)= 0.36411397717139D-07 +s(48,11)= -0.96957422611593D-07 +s(49,11)= -0.30295526388977D-08 +s(50,11)= 0.71644391986672D-07 +s(51,11)= 0.24307941537757D-08 +s(52,11)= -0.40647107856712D-07 +s(53,11)= -0.21995970977921D-07 +s(54,11)= 0.10271836091161D-07 +s(55,11)= 0.19536869823667D-07 +s(56,11)= 0.28264297233668D-07 +s(57,11)= 0.59982895719428D-08 +s(58,11)= 0.52151716282265D-08 +s(59,11)= -0.21249449590778D-07 +s(60,11)= 0.16590631640645D-07 +s(61,11)= 0.30957968332036D-07 +s(62,11)= 0.12664703332618D-07 +s(63,11)= 0.58286283310618D-08 +s(64,11)= -0.15894064666470D-07 +s(65,11)= -0.10004824485461D-07 +s(66,11)= 0.18897384981152D-08 +s(67,11)= 0.92202405384102D-08 +s(68,11)= -0.41312478365989D-07 +s(69,11)= -0.47410459394041D-08 +s(70,11)= -0.13962678469304D-07 +s(71,11)= -0.29120421461712D-07 +s(72,11)= -0.33846955715306D-08 +s(73,11)= -0.21463688511713D-07 +s(74,11)= -0.15861238274070D-07 +s(75,11)= 0.40683442664938D-08 +s(76,11)= -0.18831197923717D-07 +s(77,11)= 0.12897496781262D-07 +s(78,11)= -0.89125352021773D-08 +s(79,11)= -0.13556648439713D-08 +s(80,11)= -0.44640224309969D-08 +s(12,12)= -0.88920779082167D-07 +s(13,12)= -0.42925246963553D-06 +s(14,12)= -0.30381120209259D-06 +s(15,12)= 0.75705454254370D-06 +s(16,12)= 0.66822060944807D-06 +s(17,12)= -0.31080678295820D-08 +s(18,12)= -0.10087201702018D-06 +s(19,12)= -0.21529973577778D-07 +s(20,12)= -0.17140589471271D-06 +s(21,12)= 0.77850994715886D-07 +s(22,12)= -0.69979530788204D-07 +s(23,12)= -0.93144143314537D-08 +s(24,12)= -0.31991542759975D-06 +s(25,12)= -0.23780819412334D-06 +s(26,12)= -0.57158660489078D-07 +s(27,12)= -0.62059213801999D-08 +s(28,12)= -0.15907547414198D-07 +s(29,12)= 0.10171806953978D-06 +s(30,12)= 0.10491439130093D-06 +s(31,12)= -0.45676262519329D-07 +s(32,12)= 0.25768458653127D-07 +s(33,12)= -0.35446527289965D-07 +s(34,12)= -0.47116393079744D-07 +s(35,12)= 0.45383703782855D-07 +s(36,12)= 0.58386526496614D-08 +s(37,12)= -0.85162673042796D-07 +s(38,12)= -0.91882765548383D-07 +s(39,12)= -0.36025149381032D-07 +s(40,12)= 0.14595185410301D-07 +s(41,12)= 0.17593887978747D-07 +s(42,12)= 0.92166455685116D-08 +s(43,12)= 0.14563806235588D-07 +s(44,12)= 0.63545789496187D-08 +s(45,12)= -0.17181064007162D-07 +s(46,12)= 0.67254550365132D-07 +s(47,12)= -0.88853639772640D-08 +s(48,12)= -0.39625401175776D-07 +s(49,12)= 0.33547808860120D-07 +s(50,12)= -0.27539465725800D-07 +s(51,12)= -0.72009659384084D-07 +s(52,12)= -0.65160563283952D-08 +s(53,12)= 0.58297585674734D-07 +s(54,12)= 0.16743434242418D-08 +s(55,12)= -0.31503739387471D-07 +s(56,12)= 0.22844849793649D-07 +s(57,12)= 0.12620994119193D-07 +s(58,12)= -0.28295430174200D-07 +s(59,12)= -0.23511171040329D-07 +s(60,12)= 0.22816487987095D-07 +s(61,12)= 0.17900096358017D-07 +s(62,12)= -0.19359220793239D-07 +s(63,12)= -0.20436015960463D-07 +s(64,12)= 0.29421441916531D-07 +s(65,12)= 0.25063647453935D-09 +s(66,12)= -0.23434053627949D-07 +s(67,12)= 0.47996977707156D-08 +s(68,12)= -0.26536851961145D-07 +s(69,12)= -0.24253678258790D-07 +s(70,12)= -0.29390882380831D-08 +s(71,12)= -0.16333925954900D-08 +s(72,12)= -0.28490175642328D-07 +s(73,12)= 0.60768142527698D-08 +s(74,12)= -0.72357878393461D-08 +s(75,12)= 0.47286146894435D-08 +s(76,12)= -0.29640799063399D-07 +s(77,12)= 0.77994725347343D-08 +s(78,12)= -0.25082417039953D-07 +s(79,12)= 0.44238135506005D-08 +s(80,12)= -0.29369750400863D-07 +s(13,13)= 0.87090151746402D-06 +s(14,13)= 0.20603291432190D-05 +s(15,13)= 0.70781194137062D-06 +s(16,13)= -0.59505211895115D-06 +s(17,13)= -0.79988519244723D-06 +s(18,13)= -0.26781919637356D-06 +s(19,13)= -0.39638127126335D-07 +s(20,13)= 0.34308208665972D-06 +s(21,13)= 0.10176613624133D-06 +s(22,13)= -0.17303916297882D-06 +s(23,13)= -0.97853601308965D-07 +s(24,13)= -0.23487959545685D-07 +s(25,13)= 0.27930133682935D-06 +s(26,13)= -0.81776277087869D-08 +s(27,13)= -0.11040107048514D-06 +s(28,13)= 0.35518665380933D-07 +s(29,13)= 0.28024876055130D-07 +s(30,13)= 0.62729815192089D-07 +s(31,13)= 0.14212575392451D-06 +s(32,13)= 0.18847039668974D-07 +s(33,13)= -0.18720676208875D-07 +s(34,13)= -0.12328174691030D-06 +s(35,13)= 0.13471841102089D-07 +s(36,13)= 0.18504594338397D-06 +s(37,13)= 0.41332784858941D-07 +s(38,13)= -0.90322029947740D-07 +s(39,13)= -0.89696583112129D-07 +s(40,13)= 0.31621240917421D-07 +s(41,13)= -0.10732345514734D-08 +s(42,13)= 0.51671318931160D-08 +s(43,13)= 0.18086307630789D-08 +s(44,13)= -0.49976630665191D-07 +s(45,13)= -0.28555583722465D-07 +s(46,13)= 0.72434265587148D-07 +s(47,13)= 0.11841653994144D-06 +s(48,13)= -0.63007329286238D-07 +s(49,13)= -0.81663659434407D-07 +s(50,13)= 0.92299309105374D-07 +s(51,13)= 0.61277108914371D-07 +s(52,13)= -0.31928594863025D-07 +s(53,13)= -0.42066672979787D-07 +s(54,13)= 0.20881374939344D-07 +s(55,13)= 0.23357346197626D-07 +s(56,13)= 0.55376552249704D-08 +s(57,13)= 0.26637506077608D-07 +s(58,13)= 0.45853451895835D-08 +s(59,13)= -0.37810514693800D-07 +s(60,13)= 0.17827259495442D-07 +s(61,13)= 0.33606099974048D-07 +s(62,13)= 0.11087419305904D-07 +s(63,13)= -0.18858176682939D-07 +s(64,13)= -0.12846138794470D-07 +s(65,13)= 0.62418715082964D-08 +s(66,13)= 0.17820386364416D-07 +s(67,13)= -0.86672830025847D-08 +s(68,13)= 0.42984837759796D-07 +s(69,13)= 0.22895749266152D-07 +s(70,13)= 0.24048612493333D-07 +s(71,13)= 0.35644430659660D-07 +s(72,13)= 0.32707523090933D-07 +s(73,13)= 0.22954078635023D-07 +s(74,13)= 0.23616745111190D-07 +s(75,13)= 0.42243201693742D-07 +s(76,13)= -0.41136165002182D-08 +s(77,13)= 0.48575954733840D-07 +s(78,13)= -0.10767185336948D-07 +s(79,13)= 0.66336704576549D-07 +s(80,13)= -0.44014299099342D-07 +s(14,14)= -0.74240282317235D-06 +s(15,14)= -0.13571091998453D-05 +s(16,14)= -0.93817219005892D-06 +s(17,14)= -0.46937395151752D-06 +s(18,14)= 0.19153934057115D-06 +s(19,14)= 0.51536173249611D-06 +s(20,14)= 0.23375072844855D-06 +s(21,14)= -0.39050845702147D-06 +s(22,14)= -0.51863544921841D-06 +s(23,14)= -0.32332506607369D-06 +s(24,14)= 0.39865595042181D-06 +s(25,14)= 0.26591743031456D-06 +s(26,14)= -0.81802188971568D-07 +s(27,14)= -0.32291096639111D-07 +s(28,14)= 0.12860175423286D-06 +s(29,14)= 0.13830153071439D-06 +s(30,14)= 0.35042509660984D-07 +s(31,14)= -0.11918938957786D-06 +s(32,14)= -0.18345702668221D-06 +s(33,14)= -0.13524513613963D-07 +s(34,14)= 0.77822106322462D-07 +s(35,14)= 0.98718013634759D-07 +s(36,14)= -0.52654027292184D-07 +s(37,14)= -0.21310515155309D-06 +s(38,14)= -0.28779444492386D-07 +s(39,14)= 0.51388765792751D-07 +s(40,14)= 0.51863412740192D-07 +s(41,14)= 0.53744070843108D-07 +s(42,14)= -0.91839891177993D-07 +s(43,14)= -0.25400916794614D-07 +s(44,14)= 0.54614253806952D-07 +s(45,14)= 0.66912389017243D-07 +s(46,14)= 0.44942897130642D-07 +s(47,14)= -0.46320048520030D-07 +s(48,14)= 0.35565097794370D-07 +s(49,14)= 0.12012861482544D-06 +s(50,14)= 0.77541596409904D-07 +s(51,14)= -0.35353777578629D-07 +s(52,14)= -0.33571218394550D-07 +s(53,14)= 0.30101593756227D-07 +s(54,14)= 0.26974668151704D-07 +s(55,14)= -0.15995052196413D-07 +s(56,14)= -0.52692369031442D-08 +s(57,14)= -0.18302276242218D-07 +s(58,14)= -0.21796489423620D-07 +s(59,14)= 0.21371899255291D-08 +s(60,14)= 0.48769586142551D-07 +s(61,14)= -0.13661773678492D-08 +s(62,14)= -0.79691872794417D-08 +s(63,14)= 0.12767619131777D-09 +s(64,14)= 0.23277013161202D-08 +s(65,14)= -0.15345742502274D-07 +s(66,14)= -0.10229721399366D-07 +s(67,14)= 0.40370458826901D-07 +s(68,14)= 0.75088309600281D-08 +s(69,14)= 0.69388818240717D-08 +s(70,14)= 0.18188183034137D-07 +s(71,14)= 0.15492869250359D-07 +s(72,14)= -0.15765666455539D-07 +s(73,14)= 0.63309934038770D-08 +s(74,14)= -0.36176635096533D-08 +s(75,14)= 0.85598158046522D-08 +s(76,14)= -0.20951869182447D-07 +s(77,14)= 0.31145212456406D-07 +s(78,14)= -0.24169629065450D-07 +s(79,14)= 0.20848670628370D-07 +s(80,14)= -0.94467363979311D-08 +s(15,15)= 0.12600108653866D-06 +s(16,15)= 0.32271595745797D-06 +s(17,15)= 0.40586600900225D-06 +s(18,15)= 0.75111672234084D-06 +s(19,15)= 0.50346290834619D-06 +s(20,15)= -0.28657327016529D-06 +s(21,15)= -0.57915871656014D-06 +s(22,15)= 0.25969276409394D-06 +s(23,15)= 0.70089053193120D-06 +s(24,15)= -0.29883118930912D-07 +s(25,15)= -0.14451769473653D-06 +s(26,15)= -0.48198140002715D-07 +s(27,15)= 0.86264490499589D-07 +s(28,15)= 0.12886841925463D-06 +s(29,15)= 0.13684825500462D-06 +s(30,15)= -0.18797149406364D-07 +s(31,15)= 0.15358171628512D-07 +s(32,15)= 0.78329095841779D-07 +s(33,15)= 0.99712503238671D-07 +s(34,15)= 0.67720736038059D-07 +s(35,15)= -0.17093110750896D-06 +s(36,15)= -0.78041032755813D-07 +s(37,15)= 0.43826692760960D-07 +s(38,15)= -0.79099615504350D-07 +s(39,15)= 0.22676114875732D-07 +s(40,15)= -0.34353729658173D-07 +s(41,15)= -0.54211660036877D-07 +s(42,15)= 0.16078659653430D-07 +s(43,15)= 0.81221155568093D-07 +s(44,15)= 0.26945602783787D-07 +s(45,15)= -0.11550748808496D-06 +s(46,15)= 0.64854612383680D-08 +s(47,15)= 0.59305343934151D-07 +s(48,15)= 0.17334533420205D-07 +s(49,15)= -0.26013901667132D-07 +s(50,15)= 0.19676556187785D-07 +s(51,15)= 0.43600441789107D-07 +s(52,15)= -0.17613984985822D-07 +s(53,15)= 0.13042832953335D-08 +s(54,15)= 0.21604516348254D-07 +s(55,15)= 0.83649756938879D-08 +s(56,15)= -0.25031837850356D-07 +s(57,15)= -0.10202997939252D-07 +s(58,15)= 0.20575074324128D-07 +s(59,15)= -0.12508788110162D-07 +s(60,15)= -0.78480710934675D-08 +s(61,15)= 0.26665962449193D-07 +s(62,15)= -0.44229316448830D-07 +s(63,15)= -0.49351437360333D-07 +s(64,15)= 0.37661603535803D-07 +s(65,15)= 0.36167346808350D-07 +s(66,15)= 0.51363730875905D-08 +s(67,15)= 0.36600538010786D-08 +s(68,15)= 0.20002172436516D-07 +s(69,15)= 0.28148380444181D-07 +s(70,15)= 0.21821541647166D-07 +s(71,15)= 0.17456029122273D-08 +s(72,15)= 0.37208080162656D-07 +s(73,15)= -0.15048696636328D-07 +s(74,15)= 0.19767509098502D-07 +s(75,15)= -0.47994233940629D-08 +s(76,15)= 0.14017048848831D-07 +s(77,15)= -0.11215950504154D-07 +s(78,15)= 0.14580230802822D-07 +s(79,15)= -0.20740278485624D-07 +s(80,15)= 0.18176997659370D-07 +s(16,16)= 0.11999639763360D-06 +s(17,16)= 0.56520236837337D-06 +s(18,16)= 0.22241299522815D-06 +s(19,16)= -0.13582747558851D-06 +s(20,16)= -0.27521114384639D-06 +s(21,16)= -0.13714024214610D-07 +s(22,16)= -0.42714935026343D-07 +s(23,16)= 0.13846890751522D-06 +s(24,16)= 0.32611904178744D-06 +s(25,16)= 0.24278245987262D-06 +s(26,16)= -0.11672236873981D-06 +s(27,16)= -0.23027802135381D-06 +s(28,16)= 0.64961121297676D-07 +s(29,16)= 0.23471924216379D-07 +s(30,16)= 0.63772434226171D-07 +s(31,16)= -0.73835040421860D-08 +s(32,16)= -0.61206732178322D-07 +s(33,16)= -0.55020494835377D-07 +s(34,16)= -0.42828380877650D-08 +s(35,16)= 0.75980026207406D-07 +s(36,16)= -0.16217047689604D-07 +s(37,16)= -0.26913462260087D-08 +s(38,16)= 0.18528209966077D-07 +s(39,16)= -0.19324089706529D-07 +s(40,16)= -0.82312570349735D-08 +s(41,16)= -0.54669670503534D-08 +s(42,16)= 0.64355045434192D-08 +s(43,16)= -0.91015210205317D-07 +s(44,16)= -0.43879876041803D-08 +s(45,16)= 0.46355226427945D-07 +s(46,16)= 0.23826788645936D-07 +s(47,16)= -0.26727931830145D-07 +s(48,16)= -0.39825287398680D-07 +s(49,16)= 0.27701521836883D-07 +s(50,16)= 0.37425392830532D-07 +s(51,16)= 0.32479270044008D-08 +s(52,16)= -0.31910867126780D-07 +s(53,16)= -0.87454377854954D-08 +s(54,16)= 0.22758936660709D-07 +s(55,16)= 0.83734593120842D-08 +s(56,16)= 0.84285271391003D-08 +s(57,16)= 0.35171485277021D-08 +s(58,16)= 0.75832095687950D-09 +s(59,16)= 0.43268168776164D-08 +s(60,16)= -0.95942808601991D-08 +s(61,16)= 0.95403421274832D-08 +s(62,16)= 0.76600691821439D-08 +s(63,16)= -0.14954024697104D-07 +s(64,16)= 0.67348966750108D-08 +s(65,16)= -0.98517593621749D-08 +s(66,16)= -0.17651774758307D-07 +s(67,16)= -0.13048185705955D-07 +s(68,16)= -0.10775049205703D-07 +s(69,16)= -0.83608843251429D-08 +s(70,16)= -0.22850830348438D-07 +s(71,16)= 0.22617862998312D-07 +s(72,16)= -0.11615177933685D-07 +s(73,16)= 0.41249820870472D-08 +s(74,16)= -0.10011928436219D-07 +s(75,16)= -0.94657443577397D-08 +s(76,16)= 0.20011823844755D-07 +s(77,16)= -0.33807858449145D-07 +s(78,16)= 0.32016564260843D-07 +s(79,16)= -0.29026097371181D-07 +s(80,16)= 0.22842416845736D-07 +s(17,17)= 0.29248504614490D-06 +s(18,17)= -0.11033089461961D-05 +s(19,17)= -0.43514339734912D-06 +s(20,17)= -0.37811064797666D-06 +s(21,17)= -0.32773850863498D-06 +s(22,17)= 0.23530841179301D-06 +s(23,17)= 0.78411745594169D-06 +s(24,17)= -0.22796960437638D-07 +s(25,17)= -0.81775824768547D-06 +s(26,17)= -0.54832823201304D-07 +s(27,17)= 0.36518698462665D-06 +s(28,17)= 0.38124418820090D-06 +s(29,17)= -0.72547858089236D-07 +s(30,17)= -0.18838459479281D-06 +s(31,17)= 0.47926572910547D-07 +s(32,17)= -0.20450598643054D-07 +s(33,17)= 0.29165593938367D-07 +s(34,17)= 0.69125694047977D-07 +s(35,17)= -0.87708918207654D-07 +s(36,17)= -0.11676243249569D-06 +s(37,17)= 0.11419120111819D-06 +s(38,17)= 0.82080852459118D-07 +s(39,17)= 0.23240081183279D-07 +s(40,17)= -0.37879701407989D-07 +s(41,17)= -0.96433041548023D-07 +s(42,17)= 0.38916730000796D-07 +s(43,17)= 0.10053447126529D-06 +s(44,17)= -0.12019890556586D-07 +s(45,17)= -0.52972547052434D-07 +s(46,17)= -0.68212142440632D-07 +s(47,17)= 0.26895107755749D-07 +s(48,17)= 0.53081409381668D-07 +s(49,17)= -0.22951427108757D-07 +s(50,17)= -0.76202558407981D-07 +s(51,17)= -0.32349951224846D-08 +s(52,17)= 0.11481715329839D-07 +s(53,17)= -0.59524666022700D-08 +s(54,17)= 0.18813501639828D-07 +s(55,17)= -0.22940730979658D-07 +s(56,17)= -0.53348901787942D-08 +s(57,17)= 0.17072079069305D-07 +s(58,17)= 0.12881746245804D-07 +s(59,17)= -0.16563061398827D-07 +s(60,17)= 0.19277069773992D-07 +s(61,17)= -0.39978892742045D-08 +s(62,17)= -0.16038939466946D-08 +s(63,17)= 0.19128554124721D-07 +s(64,17)= 0.11520684868882D-07 +s(65,17)= 0.44875099081015D-09 +s(66,17)= -0.19609303908066D-07 +s(67,17)= 0.18354623733187D-07 +s(68,17)= 0.29301502723368D-07 +s(69,17)= 0.28161118621374D-07 +s(70,17)= 0.69095268314862D-08 +s(71,17)= 0.41547099989174D-08 +s(72,17)= 0.30357091060737D-07 +s(73,17)= -0.18609159497309D-07 +s(74,17)= 0.43833534507557D-07 +s(75,17)= -0.22021390424856D-07 +s(76,17)= 0.21569704607224D-07 +s(77,17)= -0.45260068167049D-08 +s(78,17)= 0.30967907611003D-08 +s(79,17)= -0.15022630097898D-07 +s(80,17)= 0.19496751617350D-07 +s(18,18)= 0.34414061621346D-06 +s(19,18)= 0.59127244706872D-06 +s(20,18)= 0.72378561403062D-06 +s(21,18)= 0.54121452249458D-06 +s(22,18)= 0.52011524184896D-07 +s(23,18)= -0.60360508908718D-06 +s(24,18)= -0.54724968646783D-06 +s(25,18)= 0.46999608659197D-07 +s(26,18)= 0.51981672576762D-06 +s(27,18)= 0.14846896174889D-06 +s(28,18)= -0.33779965470001D-06 +s(29,18)= -0.92157585525228D-07 +s(30,18)= 0.53492902837147D-08 +s(31,18)= 0.15359735482649D-06 +s(32,18)= 0.98521227357963D-08 +s(33,18)= 0.40659583739091D-07 +s(34,18)= -0.97787967430515D-07 +s(35,18)= -0.57606309931337D-07 +s(36,18)= 0.14976973703166D-06 +s(37,18)= 0.14384575033233D-06 +s(38,18)= -0.94105038960809D-07 +s(39,18)= -0.17770816278234D-06 +s(40,18)= 0.62857306993194D-07 +s(41,18)= 0.10564055594076D-06 +s(42,18)= 0.26395600000873D-07 +s(43,18)= -0.22586048098759D-07 +s(44,18)= -0.19626803050804D-07 +s(45,18)= -0.26790029669805D-07 +s(46,18)= 0.48875275415834D-07 +s(47,18)= 0.77336313016548D-07 +s(48,18)= -0.28007132170749D-07 +s(49,18)= -0.56903480123028D-07 +s(50,18)= 0.21859930554090D-07 +s(51,18)= 0.26056945293627D-07 +s(52,18)= -0.17413777591014D-07 +s(53,18)= -0.65354897869392D-07 +s(54,18)= -0.94184192009345D-08 +s(55,18)= 0.51900751533010D-07 +s(56,18)= -0.57408788836675D-08 +s(57,18)= -0.50384189794216D-08 +s(58,18)= 0.32982260089339D-07 +s(59,18)= 0.24308102652917D-07 +s(60,18)= -0.30314024384954D-07 +s(61,18)= 0.46233654698603D-08 +s(62,18)= -0.10034917592270D-07 +s(63,18)= -0.25151953911156D-07 +s(64,18)= -0.27547219768778D-07 +s(65,18)= -0.12825473156738D-07 +s(66,18)= -0.23356444061669D-08 +s(67,18)= 0.16196132089985D-07 +s(68,18)= 0.11747662784129D-07 +s(69,18)= 0.40196515918347D-07 +s(70,18)= 0.84991016936327D-08 +s(71,18)= -0.16844142890715D-07 +s(72,18)= 0.11605574724861D-07 +s(73,18)= -0.14117429773240D-07 +s(74,18)= 0.10821358889875D-07 +s(75,18)= -0.91755950038818D-08 +s(76,18)= 0.49454972151494D-08 +s(77,18)= 0.88031137082583D-08 +s(78,18)= 0.25538539368416D-08 +s(79,18)= 0.33067900513529D-08 +s(80,18)= -0.26856994598150D-08 +s(19,19)= -0.83207181083117D-06 +s(20,19)= -0.19243210368148D-07 +s(21,19)= -0.77247799989911D-06 +s(22,19)= -0.41876045076903D-06 +s(23,19)= 0.89358853172121D-07 +s(24,19)= 0.40011464623022D-06 +s(25,19)= -0.56271728665351D-07 +s(26,19)= -0.16817956463516D-06 +s(27,19)= 0.18805463102992D-06 +s(28,19)= 0.48807625473716D-07 +s(29,19)= -0.27960321578934D-07 +s(30,19)= 0.41704961518042D-07 +s(31,19)= 0.10017377545951D-06 +s(32,19)= -0.99040199940945D-07 +s(33,19)= -0.19747524928826D-06 +s(34,19)= 0.19999031060789D-06 +s(35,19)= 0.73847531274333D-07 +s(36,19)= -0.77229614984630D-07 +s(37,19)= -0.66164882097243D-07 +s(38,19)= -0.57655690293397D-07 +s(39,19)= 0.62929739483183D-07 +s(40,19)= -0.64102977423462D-09 +s(41,19)= 0.17572199930565D-07 +s(42,19)= -0.42606475303314D-07 +s(43,19)= -0.79925299535828D-07 +s(44,19)= -0.24430081199529D-08 +s(45,19)= -0.40069459859954D-08 +s(46,19)= -0.90487367026726D-08 +s(47,19)= -0.46045184562653D-07 +s(48,19)= 0.60516966760385D-08 +s(49,19)= -0.12727570691752D-07 +s(50,19)= -0.61817612034050D-08 +s(51,19)= 0.17609953063319D-07 +s(52,19)= -0.43194132518131D-07 +s(53,19)= -0.52548737695946D-08 +s(54,19)= -0.12007188827659D-07 +s(55,19)= 0.31582175037706D-08 +s(56,19)= -0.11497396834233D-07 +s(57,19)= -0.32165430513135D-09 +s(58,19)= 0.32312688232480D-07 +s(59,19)= 0.16256252932751D-08 +s(60,19)= -0.11796624470980D-07 +s(61,19)= 0.24179493099147D-07 +s(62,19)= -0.12316628846491D-08 +s(63,19)= 0.16770336871055D-07 +s(64,19)= -0.11401084406765D-07 +s(65,19)= 0.16191494603284D-08 +s(66,19)= 0.19016507804866D-08 +s(67,19)= -0.19853183621290D-08 +s(68,19)= -0.13392201323370D-07 +s(69,19)= 0.27863708515734D-07 +s(70,19)= 0.37308575408022D-07 +s(71,19)= 0.14003822138422D-08 +s(72,19)= 0.42743649987506D-07 +s(73,19)= 0.24059852936671D-07 +s(74,19)= 0.72128040264929D-09 +s(75,19)= 0.36498605152585D-07 +s(76,19)= -0.14229114783173D-09 +s(77,19)= 0.22176186379688D-07 +s(78,19)= 0.16909636249029D-07 +s(79,19)= 0.13548014160202D-07 +s(80,19)= 0.16098574863556D-07 +s(20,20)= 0.68495628517140D-07 +s(21,20)= -0.31271698464022D-06 +s(22,20)= 0.57051643647335D-07 +s(23,20)= 0.46838729499973D-08 +s(24,20)= -0.14902251350050D-06 +s(25,20)= 0.11568289451042D-06 +s(26,20)= 0.36424260503754D-06 +s(27,20)= -0.75694899244258D-07 +s(28,20)= -0.42145265720545D-06 +s(29,20)= -0.97179348884585D-07 +s(30,20)= 0.18431388850136D-06 +s(31,20)= 0.16621600245409D-06 +s(32,20)= 0.48973155179554D-07 +s(33,20)= -0.52738506468826D-07 +s(34,20)= -0.89743613430438D-07 +s(35,20)= -0.90198666076864D-07 +s(36,20)= 0.91884351911659D-07 +s(37,20)= 0.93363810701203D-07 +s(38,20)= -0.33630822298069D-07 +s(39,20)= -0.10605986819334D-06 +s(40,20)= -0.10691444909545D-08 +s(41,20)= 0.59276915592852D-07 +s(42,20)= 0.15815236396154D-07 +s(43,20)= -0.61838158769288D-07 +s(44,20)= -0.51267588638259D-07 +s(45,20)= -0.28526483573614D-07 +s(46,20)= 0.46277117704401D-07 +s(47,20)= 0.51681277500150D-07 +s(48,20)= -0.65171325042152D-07 +s(49,20)= -0.21247258261835D-07 +s(50,20)= -0.43771569363668D-08 +s(51,20)= 0.34169491656334D-08 +s(52,20)= -0.97534013510140D-08 +s(53,20)= -0.11347312251366D-07 +s(54,20)= 0.15467152210774D-07 +s(55,20)= 0.40292347301225D-07 +s(56,20)= -0.13079962180250D-07 +s(57,20)= -0.47052245767119D-07 +s(58,20)= -0.82495766579039D-08 +s(59,20)= 0.97114458103715D-08 +s(60,20)= 0.19913011710781D-07 +s(61,20)= 0.36330274198173D-07 +s(62,20)= -0.13478687494604D-07 +s(63,20)= -0.26320561902926D-08 +s(64,20)= -0.16223451913486D-07 +s(65,20)= -0.10574281830612D-07 +s(66,20)= 0.13839348502220D-07 +s(67,20)= 0.11574284005268D-08 +s(68,20)= -0.11394258845984D-07 +s(69,20)= -0.68757042573032D-08 +s(70,20)= 0.26808323992675D-07 +s(71,20)= -0.20990759642604D-07 +s(72,20)= 0.17962079718463D-07 +s(73,20)= 0.14028330809315D-07 +s(74,20)= -0.24187878478030D-08 +s(75,20)= 0.17239582900246D-07 +s(76,20)= -0.18791192207054D-07 +s(77,20)= 0.30074987185535D-07 +s(78,20)= -0.30113578588281D-07 +s(79,20)= 0.39571391512958D-07 +s(80,20)= -0.34183756475334D-07 +s(21,21)= 0.39509696270180D-06 +s(22,21)= 0.58412852268006D-06 +s(23,21)= 0.65443933539251D-06 +s(24,21)= 0.49488306227768D-06 +s(25,21)= 0.13005647364853D-06 +s(26,21)= -0.57736507305760D-06 +s(27,21)= -0.28716704730465D-06 +s(28,21)= 0.15344083253979D-06 +s(29,21)= 0.25221193020450D-06 +s(30,21)= 0.77537550128164D-07 +s(31,21)= 0.27125424267040D-07 +s(32,21)= -0.22822771898708D-06 +s(33,21)= -0.24125249759175D-06 +s(34,21)= 0.14008778097270D-06 +s(35,21)= 0.22976364858201D-06 +s(36,21)= -0.33609303386721D-07 +s(37,21)= -0.11099515652416D-06 +s(38,21)= -0.78867820909184D-07 +s(39,21)= 0.67538516214823D-07 +s(40,21)= 0.80979401970730D-07 +s(41,21)= 0.18693961079579D-07 +s(42,21)= -0.76253978031094D-07 +s(43,21)= -0.10584263309521D-06 +s(44,21)= 0.59555481450139D-07 +s(45,21)= 0.62478998656977D-07 +s(46,21)= -0.10407191719497D-07 +s(47,21)= -0.57007502243515D-07 +s(48,21)= -0.46275770111026D-08 +s(49,21)= 0.56834403221335D-08 +s(50,21)= 0.39607818527299D-07 +s(51,21)= 0.29133654190181D-07 +s(52,21)= -0.21171185313688D-07 +s(53,21)= -0.33129279461783D-07 +s(54,21)= 0.11092356803145D-07 +s(55,21)= -0.36856992077205D-08 +s(56,21)= -0.61171426857546D-07 +s(57,21)= -0.44966367677811D-07 +s(58,21)= 0.28939146376838D-07 +s(59,21)= 0.27997575907820D-07 +s(60,21)= -0.43559182682407D-07 +s(61,21)= -0.18396042855272D-07 +s(62,21)= 0.38422180278898D-07 +s(63,21)= 0.19545978340560D-07 +s(64,21)= 0.11044904958006D-07 +s(65,21)= -0.12556088956423D-07 +s(66,21)= -0.12450193849506D-07 +s(67,21)= -0.90707423538275D-08 +s(68,21)= -0.15648720052535D-07 +s(69,21)= -0.27818304947498D-07 +s(70,21)= 0.52571730877252D-08 +s(71,21)= -0.78485105342175D-08 +s(72,21)= -0.24361309893413D-07 +s(73,21)= 0.18537092819574D-07 +s(74,21)= -0.31528850699925D-07 +s(75,21)= -0.12295009610784D-07 +s(76,21)= -0.26879033180146D-07 +s(77,21)= -0.48641495118474D-08 +s(78,21)= -0.27262229899390D-07 +s(79,21)= -0.31296070040175D-08 +s(80,21)= -0.18355253625983D-07 +s(22,22)= -0.32472175304397D-06 +s(23,22)= -0.18794503883115D-06 +s(24,22)= -0.70495763436332D-06 +s(25,22)= -0.40985566966945D-06 +s(26,22)= 0.82733514635286D-07 +s(27,22)= 0.37746620514078D-06 +s(28,22)= 0.69614132594899D-07 +s(29,22)= -0.13794766607726D-07 +s(30,22)= -0.22551051537638D-08 +s(31,22)= -0.14602895561313D-06 +s(32,22)= -0.75909083967744D-07 +s(33,22)= 0.11406221093765D-06 +s(34,22)= 0.12136146886712D-06 +s(35,22)= -0.98589998891183D-07 +s(36,22)= -0.10003304936051D-06 +s(37,22)= 0.50298676434516D-07 +s(38,22)= 0.60612538803716D-07 +s(39,22)= -0.13103547630008D-07 +s(40,22)= -0.30051950468690D-07 +s(41,22)= -0.26011654021801D-07 +s(42,22)= -0.81220118762205D-07 +s(43,22)= 0.31474978731978D-07 +s(44,22)= 0.28339826075713D-07 +s(45,22)= -0.38700086509404D-08 +s(46,22)= -0.46011104766624D-07 +s(47,22)= -0.27640275048026D-07 +s(48,22)= -0.10239800122767D-07 +s(49,22)= 0.24734785595614D-07 +s(50,22)= 0.14992914812251D-07 +s(51,22)= 0.25393101822446D-07 +s(52,22)= 0.38371746547476D-08 +s(53,22)= -0.19153595362559D-07 +s(54,22)= 0.33803865148579D-07 +s(55,22)= 0.56285859789713D-07 +s(56,22)= -0.38085937147590D-07 +s(57,22)= -0.63827478261483D-07 +s(58,22)= 0.68254911727498D-08 +s(59,22)= 0.31916386181269D-07 +s(60,22)= -0.28390268407220D-07 +s(61,22)= -0.51497624546058D-07 +s(62,22)= -0.10102801384017D-07 +s(63,22)= 0.21202600642596D-07 +s(64,22)= -0.21960804438917D-07 +s(65,22)= -0.38562372640046D-08 +s(66,22)= 0.50321543221399D-08 +s(67,22)= -0.11120594384824D-07 +s(68,22)= -0.34766929179416D-07 +s(69,22)= 0.14560299724971D-07 +s(70,22)= -0.17208788676041D-07 +s(71,22)= -0.22412321730335D-07 +s(72,22)= 0.34117018314396D-08 +s(73,22)= 0.28254216720055D-07 +s(74,22)= 0.17709979587694D-07 +s(75,22)= 0.13675524334921D-07 +s(76,22)= 0.33574552806071D-07 +s(77,22)= -0.49966310691079D-08 +s(78,22)= 0.28734719794092D-07 +s(79,22)= -0.15906431570965D-07 +s(80,22)= 0.35288814115458D-07 +s(23,23)= 0.22719941596897D-06 +s(24,23)= -0.15396408753817D-07 +s(25,23)= 0.42480863281236D-06 +s(26,23)= 0.20336928244053D-06 +s(27,23)= -0.25760860961128D-06 +s(28,23)= 0.13579469239490D-06 +s(29,23)= 0.32187304031659D-06 +s(30,23)= 0.80394556354472D-07 +s(31,23)= -0.17912333490658D-06 +s(32,23)= 0.13220864045900D-06 +s(33,23)= 0.11829940030533D-06 +s(34,23)= -0.47860233500407D-07 +s(35,23)= 0.54187652460546D-07 +s(36,23)= 0.89141708188153D-07 +s(37,23)= 0.20676076210812D-07 +s(38,23)= -0.10261855286854D-06 +s(39,23)= 0.36368105668424D-08 +s(40,23)= 0.80548590305522D-07 +s(41,23)= -0.39402998138252D-07 +s(42,23)= -0.13044776330453D-07 +s(43,23)= 0.35230822511696D-07 +s(44,23)= -0.38126285997105D-08 +s(45,23)= -0.41870291407728D-07 +s(46,23)= -0.40542175855106D-07 +s(47,23)= 0.52512970896453D-07 +s(48,23)= 0.64472339154468D-07 +s(49,23)= -0.13764138097832D-07 +s(50,23)= -0.23262961649640D-07 +s(51,23)= -0.54498090962075D-08 +s(52,23)= -0.40832137320425D-07 +s(53,23)= 0.30883788965682D-07 +s(54,23)= 0.59554143490002D-08 +s(55,23)= 0.15826576402758D-07 +s(56,23)= -0.30546366389131D-08 +s(57,23)= -0.33710759479548D-07 +s(58,23)= 0.42432292031115D-07 +s(59,23)= 0.19055844739369D-07 +s(60,23)= -0.53493171836413D-07 +s(61,23)= -0.86122918322742D-08 +s(62,23)= 0.42435124794369D-07 +s(63,23)= 0.24086226827129D-08 +s(64,23)= -0.19299029335542D-07 +s(65,23)= 0.27344753084321D-07 +s(66,23)= -0.64811007443060D-08 +s(67,23)= 0.40723327050428D-08 +s(68,23)= 0.12308992461489D-08 +s(69,23)= -0.13519766695142D-07 +s(70,23)= 0.15952942060573D-07 +s(71,23)= -0.19862866658780D-07 +s(72,23)= 0.21193483815864D-07 +s(73,23)= 0.77746498722503D-08 +s(74,23)= 0.46649362127192D-08 +s(75,23)= 0.13571741248582D-07 +s(76,23)= 0.77914367333071D-09 +s(77,23)= 0.12620984254097D-07 +s(78,23)= -0.76843752977740D-08 +s(79,23)= 0.14957902201148D-07 +s(80,23)= -0.11704671972042D-08 +s(24,24)= 0.13365654513812D-06 +s(25,24)= 0.10420440793780D-06 +s(26,24)= 0.69892842255922D-07 +s(27,24)= 0.20822951271181D-07 +s(28,24)= 0.17328224754317D-06 +s(29,24)= -0.31771054193579D-06 +s(30,24)= -0.22658020777197D-06 +s(31,24)= 0.11768365987851D-06 +s(32,24)= 0.15392478445121D-06 +s(33,24)= 0.14970977269238D-06 +s(34,24)= -0.18409701453663D-07 +s(35,24)= -0.13423591418765D-07 +s(36,24)= -0.71647913872669D-07 +s(37,24)= -0.15648959767529D-07 +s(38,24)= 0.44608328778969D-07 +s(39,24)= -0.13572564408638D-07 +s(40,24)= 0.44809188076787D-08 +s(41,24)= -0.85562804175540D-07 +s(42,24)= -0.17330890954671D-07 +s(43,24)= -0.75641223117804D-08 +s(44,24)= 0.33642338348812D-07 +s(45,24)= 0.22118487981987D-07 +s(46,24)= -0.76448411311210D-07 +s(47,24)= -0.59672118147122D-07 +s(48,24)= 0.36943136668974D-07 +s(49,24)= 0.27410232206408D-07 +s(50,24)= -0.36602861967874D-07 +s(51,24)= -0.49738771243184D-07 +s(52,24)= 0.24689100919164D-07 +s(53,24)= -0.34229297600612D-08 +s(54,24)= -0.47632654023059D-08 +s(55,24)= 0.22289622363861D-08 +s(56,24)= 0.44689900647894D-08 +s(57,24)= -0.12928420382710D-07 +s(58,24)= -0.42174766304784D-08 +s(59,24)= 0.21273250831510D-07 +s(60,24)= -0.33424298857639D-09 +s(61,24)= -0.12107587705232D-07 +s(62,24)= 0.14317042771814D-09 +s(63,24)= -0.20993014525141D-07 +s(64,24)= -0.26778503005350D-07 +s(65,24)= -0.30292522435917D-07 +s(66,24)= 0.17601994659046D-07 +s(67,24)= 0.33698577624798D-07 +s(68,24)= 0.12250204010052D-07 +s(69,24)= 0.29217190072430D-07 +s(70,24)= -0.10819728157274D-07 +s(71,24)= 0.39233527254074D-07 +s(72,24)= 0.48275080073852D-08 +s(73,24)= -0.19264686446292D-07 +s(74,24)= 0.17623540189089D-07 +s(75,24)= -0.43220085749331D-07 +s(76,24)= 0.10621305199599D-07 +s(77,24)= -0.39080250417911D-07 +s(78,24)= 0.21350367060357D-07 +s(79,24)= -0.46835778642193D-07 +s(80,24)= 0.28507269098269D-07 +s(25,25)= -0.28343383249738D-06 +s(26,25)= -0.41376619591643D-06 +s(27,25)= -0.58673900423947D-06 +s(28,25)= -0.11103774475890D-06 +s(29,25)= 0.28364746018767D-06 +s(30,25)= 0.25965497175507D-06 +s(31,25)= -0.94438231555344D-08 +s(32,25)= -0.12000761429814D-06 +s(33,25)= -0.54415022292270D-07 +s(34,25)= -0.10164908575427D-06 +s(35,25)= -0.47046845571941D-07 +s(36,25)= 0.11550555976001D-06 +s(37,25)= 0.60618145789925D-07 +s(38,25)= -0.41389424022968D-07 +s(39,25)= -0.92966391031709D-07 +s(40,25)= -0.53736514318232D-07 +s(41,25)= -0.54497487858867D-07 +s(42,25)= 0.72148313908372D-07 +s(43,25)= 0.62334082759228D-07 +s(44,25)= -0.29218597413776D-07 +s(45,25)= -0.61029121259232D-07 +s(46,25)= -0.50983851941039D-07 +s(47,25)= 0.18630917759058D-07 +s(48,25)= 0.59003820157533D-07 +s(49,25)= 0.28403235587668D-07 +s(50,25)= -0.22985892903289D-07 +s(51,25)= -0.33488421991056D-07 +s(52,25)= -0.12563713087659D-07 +s(53,25)= 0.28423814410021D-07 +s(54,25)= 0.90493803763162D-08 +s(55,25)= -0.34771934325339D-07 +s(56,25)= -0.86197138185889D-08 +s(57,25)= -0.50852900447310D-08 +s(58,25)= 0.14205254460726D-07 +s(59,25)= -0.38952178709227D-08 +s(60,25)= 0.18170442000334D-07 +s(61,25)= 0.15252783788542D-07 +s(62,25)= -0.86902777480379D-08 +s(63,25)= -0.42928136365090D-07 +s(64,25)= 0.29468803733683D-08 +s(65,25)= -0.93471377774845D-08 +s(66,25)= -0.10127788250041D-07 +s(67,25)= 0.42852726412705D-07 +s(68,25)= -0.18592828646705D-08 +s(69,25)= 0.16988875042302D-07 +s(70,25)= -0.18162904280886D-07 +s(71,25)= -0.29915694799725D-08 +s(72,25)= -0.17528084203899D-07 +s(73,25)= -0.25442757363903D-07 +s(74,25)= -0.25468049336641D-08 +s(75,25)= -0.31969511674933D-07 +s(76,25)= 0.54675379007774D-09 +s(77,25)= -0.24783534205878D-07 +s(78,25)= 0.25779347834228D-08 +s(79,25)= -0.32941556756683D-07 +s(80,25)= 0.92235974771148D-08 +s(26,26)= 0.43338187234426D-06 +s(27,26)= 0.32255747503100D-06 +s(28,26)= 0.51542611412935D-06 +s(29,26)= 0.26605201857376D-06 +s(30,26)= -0.32663208942466D-06 +s(31,26)= -0.30707617643347D-07 +s(32,26)= -0.65448538173474D-07 +s(33,26)= -0.12366214261228D-06 +s(34,26)= -0.10310360826025D-06 +s(35,26)= 0.39829968263619D-07 +s(36,26)= 0.76407885525851D-07 +s(37,26)= -0.88826261416065D-07 +s(38,26)= -0.11340067571691D-06 +s(39,26)= -0.62812841030767D-08 +s(40,26)= 0.12313744577302D-06 +s(41,26)= 0.94051267435214D-07 +s(42,26)= -0.89213215251186D-07 +s(43,26)= -0.85416625541469D-07 +s(44,26)= -0.54529321002864D-07 +s(45,26)= 0.17806700371047D-07 +s(46,26)= 0.32277381280023D-07 +s(47,26)= -0.13854184904487D-07 +s(48,26)= -0.53769740665614D-07 +s(49,26)= -0.26659909255083D-07 +s(50,26)= 0.33559732217126D-08 +s(51,26)= 0.12995541672008D-08 +s(52,26)= 0.40773157036140D-07 +s(53,26)= 0.45692247832734D-07 +s(54,26)= -0.36732719547698D-07 +s(55,26)= -0.92533664791458D-08 +s(56,26)= 0.86132244618483D-08 +s(57,26)= 0.10846602869552D-07 +s(58,26)= -0.17247917928208D-07 +s(59,26)= -0.28413095500352D-07 +s(60,26)= 0.22558628341088D-07 +s(61,26)= -0.41449878368046D-08 +s(62,26)= 0.60769760888392D-09 +s(63,26)= 0.19623277856483D-07 +s(64,26)= -0.14473895347379D-07 +s(65,26)= 0.90417076513148D-08 +s(66,26)= 0.16239691540043D-07 +s(67,26)= -0.14184759836242D-07 +s(68,26)= -0.87303978099637D-08 +s(69,26)= 0.13089690945973D-07 +s(70,26)= 0.62270462211982D-08 +s(71,26)= -0.95019319057695D-08 +s(72,26)= 0.13705009796467D-07 +s(73,26)= -0.15879202025637D-07 +s(74,26)= 0.52592361908252D-08 +s(75,26)= 0.74244869289485D-08 +s(76,26)= -0.12607839461997D-08 +s(77,26)= 0.31095151602912D-08 +s(78,26)= 0.99793715366390D-09 +s(79,26)= 0.51272824362602D-08 +s(80,26)= -0.57770178320492D-08 +s(27,27)= -0.34170443014580D-07 +s(28,27)= 0.42909908753145D-07 +s(29,27)= 0.70641170336061D-07 +s(30,27)= -0.20849406545547D-06 +s(31,27)= -0.13261660576630D-06 +s(32,27)= -0.10992100095684D-06 +s(33,27)= 0.40746677241334D-07 +s(34,27)= 0.11510647196811D-06 +s(35,27)= -0.97357586430325D-08 +s(36,27)= -0.61999880756536D-07 +s(37,27)= -0.62936756411612D-07 +s(38,27)= 0.10171846329650D-06 +s(39,27)= 0.12125582972906D-06 +s(40,27)= -0.16059653639408D-07 +s(41,27)= -0.50701162673004D-07 +s(42,27)= -0.43803028209664D-07 +s(43,27)= 0.98345630252460D-07 +s(44,27)= 0.37100350641786D-07 +s(45,27)= -0.75542753431233D-08 +s(46,27)= -0.31517137838158D-07 +s(47,27)= -0.12291518438071D-07 +s(48,27)= 0.44004759412813D-07 +s(49,27)= 0.24694589785261D-07 +s(50,27)= -0.23941178895794D-07 +s(51,27)= -0.22826126011045D-07 +s(52,27)= -0.66949746661043D-08 +s(53,27)= 0.18135417630152D-07 +s(54,27)= 0.29502084853047D-07 +s(55,27)= -0.41327952897796D-07 +s(56,27)= -0.96129223122568D-08 +s(57,27)= 0.29900387474418D-07 +s(58,27)= 0.79785180422400D-08 +s(59,27)= -0.26146583614980D-07 +s(60,27)= -0.12639543885775D-07 +s(61,27)= 0.34889103817727D-07 +s(62,27)= 0.14741697501236D-07 +s(63,27)= -0.14955246973965D-07 +s(64,27)= 0.12973524043207D-07 +s(65,27)= 0.33743032144455D-07 +s(66,27)= 0.10104936959663D-07 +s(67,27)= -0.28782081297409D-07 +s(68,27)= 0.13625943373120D-08 +s(69,27)= 0.22799370217497D-07 +s(70,27)= -0.91103186516143D-08 +s(71,27)= 0.11806369559136D-07 +s(72,27)= 0.24960924930024D-07 +s(73,27)= 0.13308222061162D-07 +s(74,27)= 0.32700211987723D-07 +s(75,27)= 0.39456678413889D-07 +s(76,27)= 0.28884966557988D-07 +s(77,27)= 0.50691069305749D-07 +s(78,27)= 0.51318087982712D-08 +s(79,27)= 0.56932129094163D-07 +s(80,27)= -0.53130371518947D-08 +s(28,28)= -0.58985837407318D-06 +s(29,28)= -0.22491706106929D-06 +s(30,28)= -0.33657612528292D-06 +s(31,28)= -0.17588007120398D-06 +s(32,28)= 0.27198972538494D-06 +s(33,28)= 0.18609546807248D-06 +s(34,28)= -0.14344940495241D-07 +s(35,28)= 0.78461507290809D-08 +s(36,28)= 0.19337648678170D-06 +s(37,28)= -0.72197020817564D-08 +s(38,28)= -0.13766557518626D-06 +s(39,28)= -0.33989003948112D-07 +s(40,28)= 0.13716997268007D-06 +s(41,28)= 0.43720861794535D-07 +s(42,28)= -0.53775665106866D-07 +s(43,28)= -0.49722185022982D-07 +s(44,28)= 0.15179888848508D-08 +s(45,28)= 0.49797683624109D-07 +s(46,28)= 0.78626078282292D-07 +s(47,28)= 0.29271105990369D-08 +s(48,28)= -0.12095485088284D-07 +s(49,28)= 0.33592775142139D-08 +s(50,28)= 0.14593614729016D-07 +s(51,28)= 0.77588273282151D-08 +s(52,28)= 0.16854138017509D-07 +s(53,28)= 0.51531108406875D-07 +s(54,28)= -0.30953009796593D-07 +s(55,28)= -0.13159235460372D-07 +s(56,28)= 0.12573303530113D-07 +s(57,28)= 0.53297198998565D-07 +s(58,28)= -0.47285470038410D-07 +s(59,28)= -0.53724988753629D-07 +s(60,28)= 0.32119661032479D-07 +s(61,28)= 0.18521465315670D-08 +s(62,28)= -0.22863052872106D-07 +s(63,28)= -0.10582187950961D-08 +s(64,28)= 0.31079660281112D-07 +s(65,28)= 0.11364485225309D-07 +s(66,28)= 0.22983251494080D-07 +s(67,28)= 0.18454123546409D-07 +s(68,28)= -0.17287640656947D-07 +s(69,28)= 0.18760264653712D-07 +s(70,28)= 0.75169808875106D-08 +s(71,28)= -0.10219926273799D-08 +s(72,28)= -0.67842615858714D-08 +s(73,28)= -0.14976962407661D-07 +s(74,28)= -0.30469466429983D-07 +s(75,28)= -0.23386278766646D-07 +s(76,28)= -0.33580736734242D-07 +s(77,28)= -0.18394421066540D-07 +s(78,28)= -0.31594991341127D-07 +s(79,28)= -0.86844378634889D-08 +s(80,28)= -0.37054489276426D-07 +s(29,29)= 0.15934179139910D-06 +s(30,29)= 0.80261183497611D-07 +s(31,29)= 0.20452087491675D-06 +s(32,29)= 0.19302949858415D-06 +s(33,29)= 0.31044324018296D-07 +s(34,29)= 0.68372561049159D-07 +s(35,29)= -0.68406151061339D-07 +s(36,29)= -0.18550487603784D-06 +s(37,29)= -0.98042903845356D-07 +s(38,29)= 0.22138827313363D-06 +s(39,29)= 0.21394124499928D-06 +s(40,29)= -0.15416201266810D-06 +s(41,29)= -0.10576508454304D-06 +s(42,29)= -0.22805079313001D-07 +s(43,29)= 0.14827037599014D-06 +s(44,29)= 0.75196844827512D-07 +s(45,29)= -0.21389377822180D-07 +s(46,29)= -0.87293909692996D-07 +s(47,29)= -0.10737236474157D-06 +s(48,29)= 0.44305518712465D-07 +s(49,29)= 0.86990542087037D-07 +s(50,29)= -0.15392293253890D-07 +s(51,29)= -0.27392242860976D-07 +s(52,29)= 0.40015795231051D-07 +s(53,29)= 0.47976448579178D-08 +s(54,29)= 0.43940406414663D-09 +s(55,29)= -0.63088793315440D-08 +s(56,29)= 0.17116906947311D-07 +s(57,29)= -0.24362425804244D-07 +s(58,29)= -0.31087444982469D-07 +s(59,29)= 0.71810373620219D-08 +s(60,29)= 0.44337931570666D-07 +s(61,29)= 0.30994772588096D-09 +s(62,29)= -0.15456911802245D-07 +s(63,29)= 0.27462379375534D-07 +s(64,29)= -0.18164946905034D-07 +s(65,29)= -0.31507596095268D-07 +s(66,29)= -0.19550489228411D-07 +s(67,29)= 0.28930785623828D-07 +s(68,29)= -0.11451115042695D-07 +s(69,29)= -0.58469224805794D-10 +s(70,29)= 0.13406669034784D-07 +s(71,29)= -0.14069122767834D-07 +s(72,29)= 0.97192394157168D-08 +s(73,29)= 0.28957457754385D-08 +s(74,29)= -0.11911867022075D-07 +s(75,29)= 0.29834427818979D-07 +s(76,29)= -0.15518302956492D-07 +s(77,29)= 0.20382105419020D-07 +s(78,29)= -0.78095369888892D-08 +s(79,29)= 0.23614790722157D-07 +s(80,29)= -0.18284196055722D-07 +s(30,30)= -0.73208354445994D-08 +s(31,30)= 0.20503197108988D-06 +s(32,30)= -0.60664330159172D-07 +s(33,30)= -0.15149502720144D-06 +s(34,30)= -0.22995321782695D-06 +s(35,30)= -0.11486429179361D-06 +s(36,30)= 0.19271900187518D-06 +s(37,30)= 0.30515933963324D-06 +s(38,30)= -0.10739721056435D-06 +s(39,30)= -0.23837351416915D-06 +s(40,30)= -0.43570935938292D-07 +s(41,30)= 0.10306543986188D-06 +s(42,30)= 0.95073214474989D-07 +s(43,30)= -0.31670675362918D-07 +s(44,30)= -0.43072082570833D-07 +s(45,30)= -0.42628687639845D-07 +s(46,30)= -0.46591332486110D-07 +s(47,30)= 0.36297872037229D-07 +s(48,30)= 0.50066873364918D-08 +s(49,30)= -0.20773077169859D-07 +s(50,30)= -0.56230260521248D-07 +s(51,30)= -0.23225006093591D-07 +s(52,30)= 0.13150371355644D-07 +s(53,30)= 0.13647901560827D-08 +s(54,30)= -0.34376051509691D-07 +s(55,30)= 0.35961991143393D-08 +s(56,30)= 0.46380988195390D-07 +s(57,30)= 0.97444094524642D-08 +s(58,30)= -0.18212691120108D-07 +s(59,30)= -0.39712009869295D-07 +s(60,30)= 0.30781051371393D-07 +s(61,30)= 0.51745294237553D-08 +s(62,30)= -0.12859144651056D-07 +s(63,30)= -0.28232237860941D-07 +s(64,30)= -0.58781004111777D-07 +s(65,30)= -0.12682708120815D-07 +s(66,30)= 0.15713937458397D-07 +s(67,30)= 0.13893147215378D-07 +s(68,30)= -0.14738832789576D-07 +s(69,30)= 0.84698454522225D-08 +s(70,30)= 0.63319613781522D-08 +s(71,30)= -0.11737291055526D-08 +s(72,30)= 0.20959946701376D-07 +s(73,30)= 0.17291696084040D-07 +s(74,30)= 0.33146482887149D-07 +s(75,30)= 0.26747011919294D-07 +s(76,30)= 0.32677623283850D-07 +s(77,30)= 0.30887204285341D-07 +s(78,30)= 0.20456256872414D-07 +s(79,30)= 0.22274599354938D-07 +s(80,30)= 0.13660597104178D-07 +s(31,31)= 0.78953381289128D-07 +s(32,31)= 0.55092681530910D-07 +s(33,31)= -0.24066812936350D-07 +s(34,31)= 0.83331006094216D-07 +s(35,31)= 0.20605195393677D-07 +s(36,31)= -0.16601047334463D-06 +s(37,31)= -0.11457522585646D-06 +s(38,31)= 0.55916272890031D-07 +s(39,31)= 0.16616746720778D-06 +s(40,31)= -0.37589902744299D-07 +s(41,31)= -0.11581940689458D-06 +s(42,31)= 0.44661598930658D-07 +s(43,31)= 0.23115976793491D-07 +s(44,31)= 0.52789006379119D-08 +s(45,31)= -0.38801867403663D-07 +s(46,31)= 0.58426457641535D-07 +s(47,31)= -0.73087469795559D-08 +s(48,31)= -0.15876001289290D-07 +s(49,31)= 0.24498735694810D-07 +s(50,31)= -0.12124946374761D-07 +s(51,31)= -0.59637546214590D-07 +s(52,31)= 0.15716912069639D-07 +s(53,31)= 0.27156878636963D-07 +s(54,31)= -0.20598529734341D-07 +s(55,31)= -0.38168653542138D-07 +s(56,31)= 0.18160363777274D-08 +s(57,31)= 0.17309169075534D-08 +s(58,31)= -0.57335222802739D-07 +s(59,31)= 0.18564145366185D-07 +s(60,31)= 0.25766229579466D-07 +s(61,31)= -0.10333355906040D-07 +s(62,31)= -0.18464747507191D-07 +s(63,31)= 0.13195542467325D-07 +s(64,31)= 0.11997271372907D-08 +s(65,31)= 0.30458308482371D-07 +s(66,31)= -0.52514627551796D-08 +s(67,31)= -0.32599509915357D-07 +s(68,31)= 0.31415332439130D-07 +s(69,31)= -0.25740231453981D-07 +s(70,31)= -0.16680113918527D-08 +s(71,31)= 0.11995163703205D-08 +s(72,31)= -0.63110056965274D-08 +s(73,31)= -0.27153087065670D-07 +s(74,31)= -0.19474317437066D-07 +s(75,31)= -0.20038597783690D-07 +s(76,31)= -0.32275924064217D-07 +s(77,31)= -0.16759991878209D-07 +s(78,31)= -0.35136289991141D-07 +s(79,31)= -0.23546381236919D-07 +s(80,31)= -0.36693928431794D-07 +s(32,32)= 0.89374420888902D-07 +s(33,32)= -0.39771492440454D-06 +s(34,32)= 0.11469182814266D-06 +s(35,32)= 0.25395957524143D-06 +s(36,32)= 0.42129618578725D-07 +s(37,32)= 0.98208473981999D-07 +s(38,32)= 0.99469730680367D-08 +s(39,32)= -0.25745403534494D-06 +s(40,32)= -0.41443252825890D-07 +s(41,32)= 0.16820069751870D-06 +s(42,32)= 0.10308232626339D-06 +s(43,32)= -0.70038064535491D-07 +s(44,32)= -0.12196361595307D-06 +s(45,32)= 0.42272108497804D-07 +s(46,32)= 0.59377348437907D-07 +s(47,32)= 0.18906628013296D-07 +s(48,32)= 0.13649977026942D-07 +s(49,32)= -0.34490511565167D-07 +s(50,32)= 0.43027917035399D-09 +s(51,32)= 0.50270922076139D-07 +s(52,32)= 0.46357304116044D-07 +s(53,32)= -0.24282795615853D-08 +s(54,32)= -0.90643338662239D-08 +s(55,32)= -0.23829540610693D-07 +s(56,32)= 0.11711589064585D-07 +s(57,32)= 0.35754022645868D-07 +s(58,32)= -0.48182753078852D-08 +s(59,32)= -0.23753633638613D-07 +s(60,32)= -0.22342169368798D-07 +s(61,32)= 0.24521309772462D-07 +s(62,32)= 0.39161940497231D-07 +s(63,32)= -0.21554336265665D-07 +s(64,32)= -0.28586080845642D-08 +s(65,32)= -0.97613286544951D-08 +s(66,32)= -0.33763392592834D-07 +s(67,32)= -0.38442901236260D-08 +s(68,32)= -0.24250680463403D-08 +s(69,32)= -0.97733825080326D-08 +s(70,32)= 0.21796544995104D-07 +s(71,32)= -0.63533297575582D-09 +s(72,32)= -0.24344198631389D-07 +s(73,32)= -0.14144615871724D-08 +s(74,32)= -0.27606198840908D-07 +s(75,32)= -0.26461670063636D-07 +s(76,32)= -0.14595660921976D-07 +s(77,32)= -0.25425669305366D-07 +s(78,32)= -0.81070748800349D-08 +s(79,32)= -0.15184683821167D-07 +s(80,32)= -0.11268838420761D-07 +s(33,33)= -0.94208598006704D-07 +s(34,33)= 0.29799617179318D-08 +s(35,33)= -0.22242110984293D-06 +s(36,33)= -0.29066411984174D-06 +s(37,33)= -0.20209988882640D-06 +s(38,33)= 0.17897713731673D-07 +s(39,33)= 0.13953494947431D-06 +s(40,33)= 0.11413168482978D-06 +s(41,33)= -0.48813662280767D-07 +s(42,33)= -0.16926140355608D-06 +s(43,33)= -0.49953698561631D-07 +s(44,33)= 0.52300068682533D-07 +s(45,33)= 0.53569128202290D-07 +s(46,33)= 0.16136373991569D-07 +s(47,33)= -0.14485682922362D-07 +s(48,33)= -0.65624463147833D-07 +s(49,33)= -0.19381554421885D-07 +s(50,33)= 0.58309224409575D-07 +s(51,33)= 0.98195847838631D-08 +s(52,33)= -0.26550731825424D-08 +s(53,33)= 0.97682209709751D-08 +s(54,33)= 0.42960391153541D-08 +s(55,33)= 0.12797933236365D-07 +s(56,33)= 0.38541856808679D-07 +s(57,33)= -0.12234250882913D-07 +s(58,33)= 0.15517306753324D-07 +s(59,33)= -0.31018353753256D-07 +s(60,33)= 0.22914717662037D-07 +s(61,33)= 0.15804975374955D-07 +s(62,33)= 0.50757151028676D-08 +s(63,33)= -0.80321210231905D-08 +s(64,33)= -0.12636820680965D-08 +s(65,33)= -0.17081053415114D-07 +s(66,33)= -0.16051416121923D-08 +s(67,33)= -0.28763013588895D-07 +s(68,33)= -0.18131621216844D-07 +s(69,33)= -0.23869942652726D-08 +s(70,33)= -0.61060341390310D-08 +s(71,33)= 0.15176146381324D-07 +s(72,33)= 0.40800040051723D-08 +s(73,33)= -0.14707421372003D-07 +s(74,33)= -0.88115310774511D-08 +s(75,33)= -0.19825518153810D-07 +s(76,33)= 0.64698444424280D-08 +s(77,33)= -0.56801384886818D-08 +s(78,33)= -0.11924496262571D-07 +s(79,33)= 0.18518675387124D-07 +s(80,33)= -0.19178282810397D-07 +s(34,34)= 0.57891361833442D-07 +s(35,34)= 0.35410000719729D-06 +s(36,34)= 0.14032205000435D-06 +s(37,34)= 0.27999725729822D-07 +s(38,34)= 0.18242723452292D-06 +s(39,34)= -0.73527413966796D-07 +s(40,34)= -0.21144239516408D-06 +s(41,34)= -0.56269656280633D-07 +s(42,34)= 0.37385595963484D-07 +s(43,34)= -0.61348664789110D-08 +s(44,34)= -0.35479484011716D-07 +s(45,34)= 0.25877502023238D-07 +s(46,34)= -0.22933272566050D-07 +s(47,34)= -0.10917202035018D-06 +s(48,34)= -0.45419133217149D-07 +s(49,34)= 0.41834613424255D-07 +s(50,34)= 0.45564394341709D-07 +s(51,34)= 0.29839224484537D-07 +s(52,34)= -0.21684207261625D-07 +s(53,34)= -0.52560461950635D-07 +s(54,34)= -0.49734569633855D-08 +s(55,34)= 0.62609322210806D-07 +s(56,34)= 0.23037019399123D-08 +s(57,34)= 0.28567371343927D-08 +s(58,34)= -0.48283994827938D-08 +s(59,34)= 0.85945902364989D-08 +s(60,34)= -0.16766221308052D-07 +s(61,34)= 0.20397296405930D-07 +s(62,34)= -0.16348347560272D-07 +s(63,34)= -0.16633471743895D-07 +s(64,34)= -0.20720067762420D-07 +s(65,34)= -0.21684071991585D-07 +s(66,34)= 0.43792547302982D-08 +s(67,34)= -0.44138759859463D-08 +s(68,34)= 0.70357085654840D-08 +s(69,34)= 0.11822517036222D-07 +s(70,34)= -0.12881206313722D-07 +s(71,34)= -0.19482515896062D-07 +s(72,34)= -0.67663252746500D-08 +s(73,34)= -0.27619766132433D-08 +s(74,34)= 0.65622048076009D-08 +s(75,34)= 0.13198689067665D-07 +s(76,34)= -0.72285366979372D-08 +s(77,34)= 0.11673329617847D-07 +s(78,34)= 0.58468649983396D-09 +s(79,34)= -0.75417288260744D-08 +s(80,34)= 0.13374343775362D-07 +s(35,35)= 0.17574893437826D-07 +s(36,35)= -0.18917698132751D-06 +s(37,35)= 0.10402270997036D-06 +s(38,35)= 0.66196197312449D-07 +s(39,35)= 0.10897013392005D-06 +s(40,35)= 0.71306369032483D-07 +s(41,35)= 0.21379564891250D-07 +s(42,35)= -0.45856563658787D-07 +s(43,35)= 0.22318982455819D-07 +s(44,35)= 0.95498176986744D-07 +s(45,35)= 0.21977868445240D-07 +s(46,35)= -0.72451901992539D-07 +s(47,35)= -0.31058301957535D-07 +s(48,35)= 0.16324095077608D-07 +s(49,35)= 0.10429426214531D-07 +s(50,35)= 0.94221774231592D-08 +s(51,35)= 0.12176235287938D-07 +s(52,35)= -0.29172667049278D-07 +s(53,35)= -0.16589494701342D-07 +s(54,35)= 0.26089459167721D-07 +s(55,35)= 0.78345423397103D-07 +s(56,35)= -0.45583432726474D-08 +s(57,35)= -0.49458722169173D-07 +s(58,35)= -0.24416230031301D-08 +s(59,35)= -0.35624603264824D-08 +s(60,35)= -0.27603732186268D-08 +s(61,35)= 0.91364997384810D-08 +s(62,35)= 0.50467062635717D-09 +s(63,35)= -0.30528611453612D-07 +s(64,35)= -0.83018345618891D-08 +s(65,35)= -0.81366284734688D-08 +s(66,35)= -0.61185123425041D-08 +s(67,35)= -0.14965236741050D-07 +s(68,35)= 0.57111160293270D-08 +s(69,35)= -0.13278372297938D-07 +s(70,35)= -0.24891598456516D-07 +s(71,35)= 0.45291250627892D-08 +s(72,35)= -0.25883497180767D-07 +s(73,35)= -0.19594072388370D-07 +s(74,35)= -0.31778035058203D-08 +s(75,35)= -0.26856121714990D-07 +s(76,35)= -0.80253713217046D-08 +s(77,35)= -0.30881564979065D-08 +s(78,35)= -0.46166508756688D-08 +s(79,35)= -0.12906559027396D-07 +s(80,35)= 0.13935082715953D-07 +s(36,36)= -0.20219346710156D-06 +s(37,36)= -0.18565703689859D-06 +s(38,36)= -0.18586053945669D-06 +s(39,36)= -0.71406867219384D-07 +s(40,36)= -0.63776123497810D-07 +s(41,36)= -0.47554070004202D-07 +s(42,36)= 0.79512097443865D-07 +s(43,36)= 0.11649586191650D-06 +s(44,36)= -0.50904431344214D-07 +s(45,36)= -0.75423388300267D-07 +s(46,36)= 0.58602766101646D-07 +s(47,36)= 0.46850361082441D-07 +s(48,36)= 0.32015762470739D-08 +s(49,36)= -0.25335742724641D-07 +s(50,36)= 0.26346357568252D-07 +s(51,36)= 0.10879802316803D-09 +s(52,36)= -0.66981996635857D-08 +s(53,36)= -0.29306027844671D-08 +s(54,36)= 0.16351763245747D-07 +s(55,36)= 0.25856474578397D-07 +s(56,36)= 0.13700179370321D-08 +s(57,36)= -0.27868568299405D-07 +s(58,36)= 0.84458741057917D-08 +s(59,36)= 0.37746613907334D-07 +s(60,36)= 0.17836526402338D-07 +s(61,36)= -0.29162421924768D-07 +s(62,36)= -0.32836453597881D-07 +s(63,36)= -0.25289019775190D-07 +s(64,36)= 0.12202549479010D-07 +s(65,36)= 0.19022429206720D-07 +s(66,36)= 0.99826883595768D-08 +s(67,36)= -0.12786222890282D-07 +s(68,36)= 0.37875948566872D-07 +s(69,36)= -0.29062152850641D-07 +s(70,36)= 0.39182214734233D-08 +s(71,36)= 0.96862530007850D-09 +s(72,36)= 0.90080155735125D-08 +s(73,36)= 0.80087161731193D-08 +s(74,36)= 0.38858346341065D-08 +s(75,36)= 0.11475665208163D-07 +s(76,36)= 0.19320641646836D-07 +s(77,36)= -0.95972419672990D-10 +s(78,36)= 0.12611076496036D-07 +s(79,36)= 0.15892552740599D-07 +s(80,36)= -0.61614213870784D-08 +s(37,37)= 0.82499963689137D-07 +s(38,37)= 0.32579548514251D-06 +s(39,37)= 0.82129925904680D-07 +s(40,37)= 0.11123696638987D-06 +s(41,37)= 0.10814123499530D-06 +s(42,37)= 0.20875184329936D-07 +s(43,37)= -0.53648197571687D-07 +s(44,37)= -0.30090988672809D-07 +s(45,37)= 0.32274694930966D-07 +s(46,37)= 0.20143534109540D-07 +s(47,37)= 0.74917476342432D-08 +s(48,37)= 0.40429547752282D-09 +s(49,37)= 0.27519728689204D-09 +s(50,37)= -0.19402358295504D-07 +s(51,37)= 0.22498893646525D-07 +s(52,37)= -0.10868384024413D-07 +s(53,37)= -0.16461898658393D-07 +s(54,37)= -0.26565798924259D-07 +s(55,37)= 0.10062120351788D-07 +s(56,37)= -0.35329493726135D-07 +s(57,37)= -0.34725348468397D-07 +s(58,37)= 0.38650836668818D-07 +s(59,37)= 0.47928999771503D-07 +s(60,37)= -0.21037700929038D-07 +s(61,37)= -0.23348386689476D-07 +s(62,37)= -0.33175121606318D-08 +s(63,37)= 0.10813339572817D-07 +s(64,37)= -0.98037281949979D-08 +s(65,37)= 0.16641096036252D-07 +s(66,37)= -0.20239999348763D-08 +s(67,37)= -0.86697474572006D-08 +s(68,37)= 0.47546227967430D-07 +s(69,37)= -0.11331337838453D-08 +s(70,37)= 0.25441637443214D-07 +s(71,37)= 0.82327691620187D-08 +s(72,37)= 0.13909970929050D-07 +s(73,37)= 0.19755954609375D-07 +s(74,37)= 0.12156382486042D-07 +s(75,37)= 0.61724690151772D-07 +s(76,37)= -0.72090808068583D-08 +s(77,37)= 0.72313923016550D-07 +s(78,37)= 0.11118751637188D-07 +s(79,37)= 0.55826430259919D-07 +s(80,37)= 0.16853621311489D-07 +s(38,38)= 0.27223825235871D-07 +s(39,38)= -0.11797781782116D-06 +s(40,38)= -0.27052502411252D-07 +s(41,38)= -0.11205128441237D-06 +s(42,38)= -0.13264118511390D-06 +s(43,38)= 0.18137299951394D-07 +s(44,38)= 0.25366425674263D-07 +s(45,38)= -0.39955814072124D-07 +s(46,38)= 0.40592068927744D-07 +s(47,38)= 0.66094637996260D-07 +s(48,38)= -0.59480576006430D-07 +s(49,38)= -0.84877407686127D-07 +s(50,38)= 0.27760798622301D-07 +s(51,38)= 0.52906318561677D-07 +s(52,38)= -0.28076115668295D-07 +s(53,38)= 0.67679253181968D-08 +s(54,38)= 0.25023820910351D-07 +s(55,38)= -0.11048359651356D-07 +s(56,38)= -0.76902740526226D-08 +s(57,38)= 0.15112418885969D-07 +s(58,38)= -0.49008942050067D-08 +s(59,38)= -0.42835038959172D-07 +s(60,38)= -0.64952785851025D-08 +s(61,38)= -0.45589164370352D-09 +s(62,38)= 0.51483704670460D-07 +s(63,38)= 0.15181653233649D-07 +s(64,38)= -0.12355377536275D-08 +s(65,38)= 0.74811315736456D-08 +s(66,38)= 0.13310719431886D-07 +s(67,38)= 0.35815003168421D-07 +s(68,38)= 0.38129468651773D-07 +s(69,38)= -0.12798508066516D-07 +s(70,38)= 0.20274720379769D-07 +s(71,38)= -0.19832787862815D-07 +s(72,38)= 0.20011499089307D-07 +s(73,38)= 0.18873273793084D-08 +s(74,38)= 0.11229187536925D-07 +s(75,38)= 0.47505456955470D-07 +s(76,38)= 0.73479965358184D-08 +s(77,38)= 0.22438227895970D-07 +s(78,38)= 0.22393204715969D-07 +s(79,38)= 0.33354869887151D-07 +s(80,38)= 0.34794547967602D-08 +s(39,39)= -0.23100635007645D-06 +s(40,39)= -0.27132087150901D-07 +s(41,39)= -0.29897783129876D-07 +s(42,39)= 0.45265121596468D-09 +s(43,39)= 0.42604362762869D-07 +s(44,39)= 0.39685524039415D-07 +s(45,39)= -0.23165310740645D-08 +s(46,39)= 0.48756411069904D-08 +s(47,39)= -0.37235630952126D-07 +s(48,39)= 0.34506784357156D-07 +s(49,39)= 0.63774228923100D-07 +s(50,39)= 0.37698756216119D-07 +s(51,39)= -0.63429968977591D-07 +s(52,39)= -0.34314284304191D-07 +s(53,39)= -0.14510670384084D-08 +s(54,39)= 0.40910022347703D-07 +s(55,39)= -0.10674556987582D-07 +s(56,39)= 0.88658932627125D-09 +s(57,39)= 0.11712834589807D-07 +s(58,39)= 0.27155416083045D-07 +s(59,39)= 0.22173455156329D-07 +s(60,39)= -0.47702136132581D-07 +s(61,39)= -0.81528797843478D-08 +s(62,39)= 0.31748754541902D-07 +s(63,39)= 0.32090501264960D-07 +s(64,39)= -0.25061816495101D-07 +s(65,39)= -0.29457360270732D-08 +s(66,39)= -0.72222793814467D-08 +s(67,39)= -0.26685180842147D-07 +s(68,39)= -0.28893311138220D-07 +s(69,39)= 0.49541153990283D-08 +s(70,39)= 0.20220364716010D-08 +s(71,39)= 0.17994294427792D-08 +s(72,39)= 0.38180894115193D-08 +s(73,39)= -0.81797098238474D-08 +s(74,39)= 0.16597033668737D-07 +s(75,39)= 0.12839057150194D-07 +s(76,39)= 0.19423668585256D-08 +s(77,39)= 0.23922240782047D-08 +s(78,39)= 0.20899374431030D-07 +s(79,39)= 0.10939143624707D-07 +s(80,39)= 0.33971126423981D-07 +s(40,40)= 0.37633854063966D-07 +s(41,40)= 0.15948666943187D-06 +s(42,40)= 0.13930277589366D-06 +s(43,40)= 0.66549248594838D-07 +s(44,40)= 0.30909904541082D-07 +s(45,40)= -0.49584762111330D-07 +s(46,40)= -0.44018295076622D-07 +s(47,40)= 0.30405240826239D-07 +s(48,40)= -0.39008575624906D-07 +s(49,40)= -0.43461828371225D-07 +s(50,40)= -0.22996589710628D-07 +s(51,40)= 0.21230992940219D-08 +s(52,40)= 0.25943906999772D-07 +s(53,40)= -0.36429058564067D-08 +s(54,40)= -0.67648234541438D-08 +s(55,40)= 0.16197265528847D-08 +s(56,40)= 0.15403161449800D-07 +s(57,40)= 0.24091423149443D-07 +s(58,40)= -0.25958650400231D-07 +s(59,40)= -0.30090295714212D-07 +s(60,40)= 0.22328902928061D-07 +s(61,40)= 0.87894198549764D-08 +s(62,40)= 0.16722121284547D-07 +s(63,40)= 0.24822384736756D-08 +s(64,40)= -0.13224757347678D-07 +s(65,40)= -0.15709124253837D-07 +s(66,40)= 0.33822511715929D-08 +s(67,40)= -0.51688211527445D-08 +s(68,40)= 0.10228655575234D-08 +s(69,40)= -0.84616272515865D-08 +s(70,40)= -0.14335359703049D-07 +s(71,40)= 0.10305188346012D-07 +s(72,40)= -0.17198291224937D-07 +s(73,40)= 0.14138217077587D-07 +s(74,40)= 0.88432263233331D-08 +s(75,40)= -0.51690588014883D-09 +s(76,40)= 0.70026887954992D-08 +s(77,40)= -0.63782994128776D-08 +s(78,40)= -0.72332619059323D-09 +s(79,40)= -0.42733879792314D-08 +s(80,40)= -0.53694026424618D-08 +s(41,41)= 0.16361583052024D-06 +s(42,41)= -0.14270106868287D-06 +s(43,41)= -0.21622197626879D-07 +s(44,41)= -0.63359839274286D-07 +s(45,41)= -0.13327859682953D-06 +s(46,41)= -0.69118344660528D-07 +s(47,41)= 0.55641732790067D-07 +s(48,41)= 0.48222948428843D-08 +s(49,41)= 0.94428120484847D-08 +s(50,41)= 0.88766067357840D-08 +s(51,41)= -0.42503796506277D-07 +s(52,41)= -0.72736915711942D-07 +s(53,41)= 0.48149716729819D-07 +s(54,41)= 0.54294075001544D-07 +s(55,41)= -0.29081387916231D-07 +s(56,41)= -0.38764691292697D-07 +s(57,41)= 0.22870772994382D-08 +s(58,41)= 0.54967585178154D-08 +s(59,41)= 0.73958775748365D-08 +s(60,41)= 0.17255365571717D-08 +s(61,41)= -0.31948069897762D-07 +s(62,41)= 0.97542386001343D-08 +s(63,41)= 0.28835943902525D-07 +s(64,41)= 0.10094744488281D-07 +s(65,41)= -0.33852368620708D-08 +s(66,41)= -0.15899017687540D-07 +s(67,41)= -0.77570233005493D-08 +s(68,41)= -0.89675282337751D-08 +s(69,41)= -0.10455947048287D-07 +s(70,41)= 0.12388769941907D-07 +s(71,41)= 0.15698764962763D-07 +s(72,41)= -0.36472860036889D-08 +s(73,41)= 0.79706161045882D-08 +s(74,41)= 0.28522677490986D-08 +s(75,41)= -0.31802752389756D-08 +s(76,41)= -0.48429000222026D-08 +s(77,41)= 0.11117759385866D-07 +s(78,41)= 0.57121298774040D-08 +s(79,41)= 0.55007918672074D-08 +s(80,41)= 0.10741095553646D-07 +s(42,42)= -0.94068189248922D-07 +s(43,42)= -0.78475574428159D-07 +s(44,42)= -0.21291124423595D-07 +s(45,42)= 0.72712292796957D-07 +s(46,42)= 0.15721274969429D-06 +s(47,42)= 0.58508120683539D-07 +s(48,42)= 0.50802973859490D-07 +s(49,42)= -0.12163182901950D-07 +s(50,42)= -0.48060046663381D-07 +s(51,42)= 0.21016277449898D-07 +s(52,42)= 0.70639423628635D-07 +s(53,42)= -0.13442592402474D-07 +s(54,42)= -0.68730543364773D-07 +s(55,42)= -0.26145802044600D-07 +s(56,42)= 0.52023033546749D-07 +s(57,42)= 0.55216866997477D-07 +s(58,42)= -0.89221508510052D-09 +s(59,42)= -0.28969136741613D-07 +s(60,42)= -0.47262881525008D-08 +s(61,42)= 0.49644823278567D-08 +s(62,42)= 0.14674788264441D-07 +s(63,42)= -0.13846385454179D-07 +s(64,42)= -0.14302505306491D-07 +s(65,42)= 0.24585348266529D-08 +s(66,42)= -0.19036969477211D-07 +s(67,42)= 0.19388854163557D-07 +s(68,42)= 0.28229706002095D-07 +s(69,42)= -0.47726239636899D-08 +s(70,42)= -0.14550935657971D-07 +s(71,42)= 0.49995071977586D-08 +s(72,42)= 0.14730620563668D-07 +s(73,42)= -0.19699606456276D-07 +s(74,42)= 0.45987930383571D-08 +s(75,42)= -0.12764967951112D-07 +s(76,42)= -0.65963694759358D-08 +s(77,42)= 0.13145141507264D-08 +s(78,42)= -0.13092518502489D-07 +s(79,42)= 0.22064865780193D-07 +s(80,42)= -0.24244728742283D-07 +s(43,43)= -0.17175615617360D-07 +s(44,43)= 0.10258719927514D-06 +s(45,43)= -0.93605270868609D-07 +s(46,43)= -0.29653575732994D-07 +s(47,43)= 0.27866959534308D-07 +s(48,43)= -0.67860105464752D-08 +s(49,43)= -0.79717452180601D-07 +s(50,43)= 0.17773008164420D-07 +s(51,43)= 0.78598952090166D-08 +s(52,43)= -0.57943976379675D-07 +s(53,43)= 0.23321268480130D-07 +s(54,43)= 0.62760408057170D-07 +s(55,43)= -0.20315736754032D-07 +s(56,43)= -0.50337164678803D-07 +s(57,43)= -0.88098873811898D-08 +s(58,43)= -0.20279041166094D-07 +s(59,43)= -0.18403190307266D-07 +s(60,43)= 0.14374202707386D-07 +s(61,43)= -0.39945112984150D-07 +s(62,43)= -0.25125706256732D-07 +s(63,43)= 0.11054654858016D-07 +s(64,43)= 0.60269555058883D-08 +s(65,43)= -0.13495157784041D-07 +s(66,43)= -0.87315372152658D-08 +s(67,43)= 0.12785861073393D-07 +s(68,43)= 0.17894615605784D-07 +s(69,43)= 0.79559030798355D-08 +s(70,43)= -0.17732617097839D-07 +s(71,43)= -0.25969192658430D-07 +s(72,43)= 0.10460427938408D-07 +s(73,43)= -0.25004808857820D-07 +s(74,43)= -0.63896670164526D-08 +s(75,43)= 0.51701135999391D-08 +s(76,43)= -0.21221841431201D-08 +s(77,43)= 0.11158689146173D-07 +s(78,43)= 0.18183513032212D-07 +s(79,43)= -0.22844797597350D-07 +s(80,43)= 0.14056355185349D-07 +s(44,44)= 0.19649743701830D-06 +s(45,44)= -0.57499258737927D-08 +s(46,44)= 0.52681752369751D-07 +s(47,44)= -0.17819888430494D-08 +s(48,44)= -0.14807072952223D-06 +s(49,44)= -0.48971146987035D-07 +s(50,44)= 0.50108159887150D-07 +s(51,44)= 0.19588526493264D-07 +s(52,44)= 0.32170405238601D-07 +s(53,44)= 0.65214326301844D-08 +s(54,44)= -0.64208210163437D-07 +s(55,44)= -0.22741537933769D-07 +s(56,44)= 0.75815480934254D-07 +s(57,44)= 0.23262449193373D-07 +s(58,44)= 0.17883947143873D-08 +s(59,44)= -0.36630210562996D-07 +s(60,44)= -0.35269048564885D-07 +s(61,44)= 0.46518011697369D-07 +s(62,44)= -0.75934903981466D-09 +s(63,44)= -0.84924522238898D-07 +s(64,44)= 0.70285558573001D-07 +s(65,44)= 0.38084206122098D-07 +s(66,44)= -0.55269253309188D-07 +s(67,44)= 0.47795929245733D-07 +s(68,44)= 0.10429536893844D-07 +s(69,44)= -0.39285221715527D-07 +s(70,44)= -0.15979873468228D-07 +s(71,44)= 0.70623045381242D-08 +s(72,44)= -0.28306028666131D-07 +s(73,44)= -0.20005201856888D-07 +s(74,44)= 0.18800919344200D-07 +s(75,44)= -0.28527082293398D-07 +s(76,44)= 0.38386032796612D-07 +s(77,44)= -0.38906574388033D-08 +s(78,44)= 0.45375767288144D-08 +s(79,44)= 0.56513112459831D-07 +s(80,44)= -0.19255397328033D-07 +s(45,45)= -0.10865082700048D-06 +s(46,45)= 0.22449081799764D-07 +s(47,45)= 0.11452550163554D-07 +s(48,45)= 0.71124305689779D-07 +s(49,45)= 0.52740137523616D-07 +s(50,45)= 0.13691364917273D-07 +s(51,45)= -0.92681462753584D-08 +s(52,45)= -0.41161019223283D-07 +s(53,45)= -0.17672853921607D-07 +s(54,45)= 0.18050146388353D-07 +s(55,45)= 0.25155932496392D-07 +s(56,45)= -0.82071719711664D-08 +s(57,45)= -0.36716978291219D-07 +s(58,45)= -0.15962763701682D-07 +s(59,45)= 0.20212472566845D-07 +s(60,45)= 0.36085656631687D-07 +s(61,45)= -0.62079380929853D-08 +s(62,45)= 0.61419783719518D-08 +s(63,45)= 0.84355508741461D-08 +s(64,45)= -0.75785809211492D-08 +s(65,45)= -0.31540365747449D-08 +s(66,45)= 0.13059243935779D-07 +s(67,45)= 0.26074913879975D-07 +s(68,45)= 0.28232459150081D-08 +s(69,45)= -0.26158484508234D-08 +s(70,45)= -0.23761634344636D-08 +s(71,45)= 0.10813245864093D-07 +s(72,45)= 0.33671248775672D-07 +s(73,45)= 0.25201712831274D-07 +s(74,45)= 0.46237802256802D-08 +s(75,45)= 0.13216404078551D-07 +s(76,45)= 0.14791030326728D-08 +s(77,45)= 0.20800712258151D-07 +s(78,45)= -0.23900170752781D-08 +s(79,45)= 0.13299013133179D-07 +s(80,45)= 0.43964054988728D-08 +s(46,46)= -0.88356225965378D-07 +s(47,46)= -0.64760424058702D-07 +s(48,46)= -0.39826277930573D-07 +s(49,46)= -0.75906935850517D-07 +s(50,46)= 0.98672161286397D-08 +s(51,46)= 0.20659809230718D-07 +s(52,46)= -0.58253254250572D-07 +s(53,46)= -0.39453247431162D-08 +s(54,46)= -0.15453009145983D-07 +s(55,46)= -0.10065623045061D-07 +s(56,46)= 0.64678697152750D-07 +s(57,46)= 0.69102225799176D-07 +s(58,46)= 0.12211266501667D-07 +s(59,46)= -0.31701203022193D-07 +s(60,46)= -0.35969777153588D-07 +s(61,46)= 0.11654300141702D-07 +s(62,46)= -0.41135319043059D-08 +s(63,46)= -0.74714099779694D-08 +s(64,46)= -0.17431396789403D-08 +s(65,46)= -0.32480237129338D-07 +s(66,46)= -0.22636362469650D-08 +s(67,46)= 0.39752977211402D-07 +s(68,46)= -0.41201164173970D-08 +s(69,46)= -0.19071890092420D-08 +s(70,46)= -0.10675912037546D-07 +s(71,46)= -0.16867147025881D-07 +s(72,46)= 0.67612347551718D-08 +s(73,46)= -0.90103490948792D-08 +s(74,46)= 0.57580821456753D-08 +s(75,46)= 0.22528547467380D-07 +s(76,46)= 0.19236683341946D-07 +s(77,46)= 0.32723809997015D-07 +s(78,46)= 0.15739454322480D-07 +s(79,46)= 0.20756800713409D-07 +s(80,46)= 0.21001965327917D-07 +s(47,47)= 0.14713449426786D-06 +s(48,47)= -0.14490673119231D-07 +s(49,47)= 0.58241696161682D-07 +s(50,47)= -0.39377256236389D-07 +s(51,47)= -0.66624987073184D-07 +s(52,47)= -0.15390784582860D-07 +s(53,47)= 0.23609855345167D-07 +s(54,47)= 0.31331887295154D-07 +s(55,47)= 0.53148542810258D-07 +s(56,47)= 0.56560670984931D-08 +s(57,47)= -0.75416563810170D-07 +s(58,47)= -0.68686622162163D-07 +s(59,47)= -0.61226247817557D-08 +s(60,47)= 0.42852299221086D-07 +s(61,47)= 0.18568547550282D-07 +s(62,47)= -0.11500339104735D-07 +s(63,47)= -0.43090253077912D-10 +s(64,47)= 0.80779319148837D-08 +s(65,47)= 0.29102735381094D-07 +s(66,47)= 0.73412240002891D-08 +s(67,47)= -0.14108928666898D-07 +s(68,47)= -0.49923372973142D-08 +s(69,47)= -0.19528244915968D-07 +s(70,47)= -0.18079336718715D-07 +s(71,47)= -0.17072216033032D-07 +s(72,47)= -0.19817637709924D-07 +s(73,47)= -0.80644078505365D-08 +s(74,47)= 0.15869731761828D-08 +s(75,47)= -0.70347199851673D-08 +s(76,47)= 0.26620112804348D-07 +s(77,47)= 0.26024658824095D-07 +s(78,47)= 0.30006950515015D-07 +s(79,47)= 0.41591832853396D-07 +s(80,47)= 0.14920507656653D-07 +s(48,48)= -0.85825814090879D-08 +s(49,48)= 0.40424701944199D-07 +s(50,48)= 0.27571321637424D-07 +s(51,48)= 0.58168004029702D-07 +s(52,48)= 0.39701694424485D-07 +s(53,48)= -0.47797012917057D-07 +s(54,48)= 0.68366852961632D-08 +s(55,48)= -0.29732342377243D-07 +s(56,48)= -0.24298702145464D-07 +s(57,48)= 0.15659575360552D-07 +s(58,48)= -0.10742059006886D-08 +s(59,48)= 0.33194866195169D-07 +s(60,48)= 0.34023828374198D-07 +s(61,48)= 0.17927001976014D-08 +s(62,48)= -0.27907183126808D-07 +s(63,48)= -0.13600043604844D-08 +s(64,48)= 0.33174845311097D-08 +s(65,48)= 0.57892016321730D-08 +s(66,48)= 0.42572312647152D-07 +s(67,48)= 0.26056621586498D-07 +s(68,48)= -0.59818467585085D-08 +s(69,48)= -0.22532828133696D-07 +s(70,48)= -0.99543454356127D-08 +s(71,48)= -0.69725754731765D-08 +s(72,48)= -0.16967058726840D-07 +s(73,48)= -0.21269195383782D-07 +s(74,48)= -0.43940549399126D-08 +s(75,48)= -0.22513525598338D-07 +s(76,48)= -0.11404204479014D-07 +s(77,48)= -0.14328969595887D-07 +s(78,48)= -0.40363436125631D-07 +s(79,48)= 0.36945342616493D-08 +s(80,48)= -0.44130987055631D-07 +s(49,49)= -0.11260526377236D-06 +s(50,49)= -0.10635221628594D-07 +s(51,49)= -0.46731148814368D-07 +s(52,49)= -0.47249561144027D-07 +s(53,49)= 0.47589248753034D-07 +s(54,49)= 0.37343882195670D-07 +s(55,49)= -0.33983604958279D-08 +s(56,49)= 0.26655237671410D-07 +s(57,49)= -0.21709226762108D-07 +s(58,49)= -0.15462558454324D-07 +s(59,49)= 0.11967295783703D-07 +s(60,49)= 0.68721394585310D-07 +s(61,49)= 0.20059662005922D-08 +s(62,49)= -0.58975984561642D-07 +s(63,49)= -0.16660034054480D-09 +s(64,49)= 0.91325709578376D-08 +s(65,49)= 0.11002498982300D-07 +s(66,49)= -0.22791133905585D-07 +s(67,49)= 0.93887282819034D-08 +s(68,49)= 0.66094156933658D-08 +s(69,49)= -0.27007489870657D-08 +s(70,49)= 0.29936712231289D-07 +s(71,49)= 0.17294441517683D-07 +s(72,49)= -0.18010949037563D-07 +s(73,49)= 0.18182500570283D-07 +s(74,49)= -0.26102567975112D-08 +s(75,49)= -0.16396642101500D-07 +s(76,49)= -0.83725776177244D-08 +s(77,49)= -0.57245831551524D-08 +s(78,49)= -0.15982186385015D-07 +s(79,49)= -0.19515174299655D-07 +s(80,49)= 0.99399969558361D-08 +s(50,50)= 0.63310931071963D-07 +s(51,50)= -0.32426966034317D-07 +s(52,50)= 0.27758360215090D-07 +s(53,50)= -0.73657968897853D-08 +s(54,50)= -0.83108567351799D-07 +s(55,50)= 0.35777826327563D-07 +s(56,50)= -0.33090782260912D-07 +s(57,50)= -0.77057505632743D-09 +s(58,50)= 0.32552459967129D-07 +s(59,50)= 0.16367778009434D-07 +s(60,50)= -0.50405170622168D-07 +s(61,50)= -0.41804341485482D-07 +s(62,50)= 0.56537902950171D-08 +s(63,50)= -0.31947010347959D-07 +s(64,50)= -0.40373010107808D-07 +s(65,50)= 0.25315974135676D-07 +s(66,50)= 0.36806906177224D-07 +s(67,50)= -0.21929380770970D-07 +s(68,50)= -0.29828341034869D-07 +s(69,50)= -0.48995486788422D-07 +s(70,50)= -0.34696480864670D-07 +s(71,50)= -0.42692532548816D-07 +s(72,50)= 0.13317126321926D-07 +s(73,50)= -0.28270557313785D-08 +s(74,50)= 0.13636799004785D-07 +s(75,50)= 0.14139798253565D-07 +s(76,50)= 0.23979956644393D-07 +s(77,50)= 0.31689199109142D-08 +s(78,50)= 0.38193030778588D-07 +s(79,50)= 0.12136339665176D-07 +s(80,50)= 0.45078308829265D-07 +s(51,51)= 0.21036377950648D-09 +s(52,51)= 0.71544713892764D-07 +s(53,51)= 0.29826211749575D-07 +s(54,51)= 0.55548242411779D-07 +s(55,51)= 0.13136323014290D-07 +s(56,51)= -0.21254117753256D-07 +s(57,51)= -0.14524205674212D-07 +s(58,51)= -0.88440457924637D-08 +s(59,51)= -0.29418514317947D-07 +s(60,51)= 0.93091893442430D-08 +s(61,51)= 0.21319212441324D-07 +s(62,51)= 0.23212297956107D-08 +s(63,51)= -0.15081366020778D-07 +s(64,51)= 0.26453080769706D-07 +s(65,51)= 0.45639925827969D-07 +s(66,51)= -0.54163027325770D-07 +s(67,51)= -0.99129065883353D-08 +s(68,51)= 0.10400901583623D-07 +s(69,51)= -0.33509274100876D-08 +s(70,51)= -0.38675690405383D-07 +s(71,51)= 0.75392364674283D-08 +s(72,51)= 0.26504284412249D-08 +s(73,51)= 0.18874294804081D-07 +s(74,51)= 0.18106664634767D-07 +s(75,51)= 0.35138122344854D-07 +s(76,51)= 0.18575295478563D-07 +s(77,51)= 0.15983899109469D-07 +s(78,51)= 0.24893470078327D-07 +s(79,51)= 0.33685374825783D-08 +s(80,51)= 0.34671956334330D-07 +s(52,52)= -0.70651930540011D-07 +s(53,52)= -0.41950384236510D-07 +s(54,52)= -0.33194791172937D-07 +s(55,52)= -0.39405376929366D-07 +s(56,52)= -0.25413271840269D-07 +s(57,52)= 0.42567249395159D-07 +s(58,52)= 0.68249763828673D-07 +s(59,52)= 0.39070291708969D-07 +s(60,52)= -0.12569698684176D-07 +s(61,52)= -0.45417003465732D-07 +s(62,52)= 0.37861444823120D-07 +s(63,52)= -0.16508195158349D-07 +s(64,52)= -0.52838568901772D-07 +s(65,52)= -0.13031666041770D-07 +s(66,52)= 0.88823811106077D-08 +s(67,52)= 0.99335228524426D-08 +s(68,52)= -0.38245337922748D-07 +s(69,52)= -0.20037012000485D-07 +s(70,52)= -0.15952667327445D-07 +s(71,52)= -0.30878355546525D-07 +s(72,52)= 0.49328447297288D-08 +s(73,52)= -0.25137219351314D-08 +s(74,52)= -0.26317381627957D-07 +s(75,52)= -0.10197093108605D-07 +s(76,52)= -0.28128754088150D-07 +s(77,52)= 0.20995695694403D-07 +s(78,52)= -0.26561726441059D-07 +s(79,52)= 0.11886220694607D-07 +s(80,52)= 0.17753071244395D-07 +s(53,53)= 0.97962180638267D-08 +s(54,53)= -0.45183423878581D-07 +s(55,53)= -0.48324882271015D-08 +s(56,53)= -0.34896744810624D-07 +s(57,53)= -0.23690015587009D-07 +s(58,53)= 0.38747326759476D-07 +s(59,53)= 0.13113418525450D-07 +s(60,53)= 0.33962232603379D-08 +s(61,53)= -0.15142561871763D-08 +s(62,53)= -0.38150568764116D-08 +s(63,53)= 0.32246974551838D-08 +s(64,53)= 0.16024365607515D-07 +s(65,53)= -0.89546432656164D-08 +s(66,53)= 0.10225322836894D-08 +s(67,53)= -0.17315652243658D-09 +s(68,53)= -0.27938667603040D-07 +s(69,53)= -0.12245001428012D-08 +s(70,53)= 0.25485633978499D-08 +s(71,53)= -0.26784892522196D-07 +s(72,53)= -0.15376969443526D-07 +s(73,53)= 0.11406429223802D-07 +s(74,53)= 0.53529327504560D-08 +s(75,53)= 0.10681455381125D-07 +s(76,53)= 0.83390598556217D-08 +s(77,53)= 0.19510573348420D-07 +s(78,53)= 0.21111791659573D-07 +s(79,53)= 0.27664945312980D-07 +s(80,53)= 0.26483685256207D-07 +s(54,54)= 0.47513077720641D-07 +s(55,54)= 0.69657504196109D-07 +s(56,54)= 0.65192698677921D-08 +s(57,54)= 0.71003456137054D-07 +s(58,54)= 0.23737682516615D-07 +s(59,54)= -0.51609046219115D-07 +s(60,54)= -0.34218740125708D-08 +s(61,54)= 0.29132938123487D-07 +s(62,54)= 0.57302906541253D-08 +s(63,54)= -0.12238570956267D-07 +s(64,54)= -0.19117351656598D-07 +s(65,54)= -0.12367589994689D-07 +s(66,54)= -0.33864393915753D-07 +s(67,54)= 0.80448539923812D-08 +s(68,54)= -0.71081539754366D-09 +s(69,54)= -0.40972477236838D-07 +s(70,54)= 0.10061847376392D-07 +s(71,54)= 0.71702987132682D-08 +s(72,54)= 0.15580346865279D-07 +s(73,54)= 0.12406339655761D-07 +s(74,54)= 0.22252425626581D-07 +s(75,54)= 0.22043889058061D-07 +s(76,54)= 0.27329153380725D-07 +s(77,54)= 0.32570864320265D-07 +s(78,54)= 0.32754415245410D-07 +s(79,54)= 0.37315320924442D-07 +s(80,54)= 0.21477785942637D-07 +s(55,55)= -0.54398801812038D-07 +s(56,55)= -0.66889995585568D-08 +s(57,55)= -0.21058372235604D-07 +s(58,55)= 0.37081685359186D-08 +s(59,55)= 0.71654115252569D-08 +s(60,55)= -0.17916046801929D-07 +s(61,55)= 0.13295320170212D-08 +s(62,55)= 0.21185601523102D-07 +s(63,55)= 0.37634078455465D-08 +s(64,55)= -0.13822363141095D-07 +s(65,55)= 0.47425549068940D-08 +s(66,55)= -0.11252877422222D-07 +s(67,55)= -0.19606476005546D-07 +s(68,55)= -0.11798201001951D-07 +s(69,55)= 0.35865636994739D-08 +s(70,55)= -0.10121100056996D-07 +s(71,55)= -0.74298850862301D-08 +s(72,55)= 0.13196373038602D-07 +s(73,55)= 0.84763716554278D-08 +s(74,55)= 0.16066201576666D-07 +s(75,55)= 0.39494115243290D-07 +s(76,55)= 0.97091141641524D-09 +s(77,55)= 0.37145136854224D-07 +s(78,55)= 0.18199323664616D-07 +s(79,55)= 0.29703556083206D-07 +s(80,55)= 0.26213441306470D-07 +s(56,56)= 0.62867991403506D-07 +s(57,56)= -0.10499416242556D-06 +s(58,56)= -0.82067734075627D-09 +s(59,56)= 0.23715074606582D-08 +s(60,56)= -0.29945665088491D-07 +s(61,56)= 0.64656896720423D-07 +s(62,56)= 0.27965100961512D-07 +s(63,56)= -0.49862906019927D-07 +s(64,56)= -0.68567957419056D-08 +s(65,56)= 0.10491020009097D-07 +s(66,56)= 0.83354258331501D-08 +s(67,56)= 0.24779337805287D-07 +s(68,56)= 0.15281431067374D-07 +s(69,56)= -0.10231918583867D-07 +s(70,56)= -0.41218471396085D-07 +s(71,56)= 0.11789407325687D-07 +s(72,56)= -0.14359946183020D-07 +s(73,56)= -0.17711757980606D-07 +s(74,56)= -0.63020580377855D-08 +s(75,56)= -0.31543715348339D-07 +s(76,56)= -0.24275167790506D-07 +s(77,56)= -0.15141392099067D-07 +s(78,56)= -0.81947242971175D-08 +s(79,56)= -0.10894082730477D-07 +s(80,56)= 0.12019962018137D-07 +s(57,57)= 0.59397751117806D-07 +s(58,57)= 0.59131586715798D-07 +s(59,57)= -0.23803196729421D-07 +s(60,57)= -0.85821146174170D-08 +s(61,57)= 0.22187588995930D-07 +s(62,57)= -0.81106326561042D-09 +s(63,57)= -0.47795036028833D-07 +s(64,57)= 0.29029196654898D-07 +s(65,57)= 0.30446553284565D-08 +s(66,57)= -0.69944760388023D-08 +s(67,57)= -0.37134178308185D-07 +s(68,57)= -0.66037981229570D-08 +s(69,57)= -0.82272540097335D-09 +s(70,57)= -0.30806810457634D-07 +s(71,57)= -0.53033059572942D-08 +s(72,57)= -0.97638239605025D-08 +s(73,57)= -0.13427624432836D-08 +s(74,57)= -0.57168157396985D-08 +s(75,57)= -0.48107615558298D-08 +s(76,57)= 0.10473602200356D-07 +s(77,57)= -0.17519450355493D-07 +s(78,57)= 0.19487549535547D-07 +s(79,57)= -0.19116598372942D-08 +s(80,57)= 0.17285407211804D-07 +s(58,58)= -0.66548671848599D-07 +s(59,58)= 0.63395712510760D-07 +s(60,58)= 0.52290763405760D-07 +s(61,58)= -0.16021621469904D-08 +s(62,58)= 0.51950671773504D-08 +s(63,58)= -0.76078998983895D-07 +s(64,58)= -0.57436902457982D-07 +s(65,58)= 0.17272421765174D-09 +s(66,58)= -0.77008978846624D-08 +s(67,58)= 0.99101754211039D-08 +s(68,58)= -0.92143342790256D-08 +s(69,58)= 0.58096749493959D-08 +s(70,58)= 0.27298999535042D-08 +s(71,58)= 0.11267532846781D-07 +s(72,58)= 0.22042424604763D-07 +s(73,58)= 0.15132827763681D-07 +s(74,58)= 0.24075334526329D-09 +s(75,58)= -0.19292540048521D-07 +s(76,58)= -0.11267257099437D-07 +s(77,58)= -0.11102199313804D-08 +s(78,58)= -0.17385969304236D-07 +s(79,58)= -0.22510357135488D-07 +s(80,58)= 0.12383489683129D-07 +s(59,59)= 0.11992279747726D-07 +s(60,59)= -0.67555608702795D-07 +s(61,59)= 0.35146698133389D-07 +s(62,59)= 0.72605128314059D-08 +s(63,59)= 0.15792666009731D-07 +s(64,59)= 0.46736651429319D-07 +s(65,59)= -0.89443881475131D-08 +s(66,59)= -0.17133916471255D-07 +s(67,59)= 0.16914786297516D-07 +s(68,59)= -0.32717129405300D-07 +s(69,59)= -0.78943031116755D-08 +s(70,59)= -0.27967469760782D-07 +s(71,59)= 0.60310276155845D-08 +s(72,59)= 0.14975836860358D-07 +s(73,59)= -0.11638995483247D-07 +s(74,59)= -0.55780076970927D-08 +s(75,59)= 0.17748789793816D-07 +s(76,59)= 0.14157337242762D-08 +s(77,59)= -0.25127423122844D-07 +s(78,59)= 0.31117970326567D-07 +s(79,59)= -0.71570880714313D-07 +s(80,59)= 0.54507766391812D-07 +s(60,60)= 0.33806073951768D-07 +s(61,60)= 0.10314740165104D-07 +s(62,60)= -0.37478064741543D-07 +s(63,60)= -0.34252775468114D-07 +s(64,60)= 0.48642575011430D-08 +s(65,60)= 0.77230576340196D-08 +s(66,60)= 0.70295432867863D-08 +s(67,60)= 0.55957228805018D-08 +s(68,60)= -0.20126527793621D-07 +s(69,60)= 0.63914199971802D-08 +s(70,60)= 0.34074235087432D-08 +s(71,60)= 0.49656381631242D-08 +s(72,60)= 0.28421693627136D-07 +s(73,60)= 0.98889600397305D-08 +s(74,60)= 0.17917471647633D-07 +s(75,60)= 0.11360752022602D-07 +s(76,60)= 0.96148498384901D-08 +s(77,60)= 0.23931814635793D-08 +s(78,60)= 0.79182961499720D-08 +s(79,60)= -0.13685622855363D-08 +s(80,60)= 0.28073495024369D-07 +s(61,61)= -0.41407423035897D-07 +s(62,61)= 0.55979029634436D-07 +s(63,61)= 0.25829311090826D-07 +s(64,61)= 0.10619620266283D-09 +s(65,61)= -0.17222850065129D-07 +s(66,61)= -0.66553701157538D-07 +s(67,61)= 0.13121462219590D-07 +s(68,61)= -0.17207105471159D-07 +s(69,61)= -0.77984903301220D-08 +s(70,61)= 0.60514850047506D-07 +s(71,61)= 0.20293526490478D-07 +s(72,61)= 0.14539943854966D-07 +s(73,61)= 0.23092662969080D-09 +s(74,61)= 0.30129310624357D-07 +s(75,61)= 0.73560537701318D-08 +s(76,61)= -0.61566914554130D-08 +s(77,61)= -0.37151541335308D-07 +s(78,61)= -0.36254812177093D-07 +s(79,61)= -0.14577961521528D-07 +s(80,61)= -0.68865787626503D-07 +s(62,62)= -0.31215048975304D-07 +s(63,62)= -0.16628989592644D-07 +s(64,62)= -0.63131986269691D-09 +s(65,62)= 0.24720488679536D-07 +s(66,62)= 0.28429277587590D-07 +s(67,62)= 0.33906855794909D-07 +s(68,62)= 0.17720872432398D-07 +s(69,62)= -0.18494273870061D-07 +s(70,62)= 0.12648422962005D-07 +s(71,62)= 0.25810442308041D-07 +s(72,62)= 0.16440552812412D-07 +s(73,62)= 0.47745083076850D-07 +s(74,62)= -0.13048173614386D-07 +s(75,62)= 0.96979252154748D-08 +s(76,62)= 0.37706894171804D-07 +s(77,62)= -0.17925278771155D-07 +s(78,62)= 0.36200148328791D-07 +s(79,62)= -0.15225954817015D-07 +s(80,62)= 0.26744454027209D-07 +s(63,63)= -0.22558645110680D-08 +s(64,63)= -0.49151193940631D-08 +s(65,63)= -0.39402932663715D-07 +s(66,63)= -0.46036703667575D-07 +s(67,63)= -0.20977839121650D-07 +s(68,63)= 0.16002110773293D-07 +s(69,63)= -0.12683397255976D-07 +s(70,63)= 0.17657362300959D-08 +s(71,63)= -0.15143763158202D-07 +s(72,63)= -0.30101354549422D-07 +s(73,63)= 0.10328233855826D-08 +s(74,63)= -0.11458505549840D-07 +s(75,63)= -0.60474192455122D-08 +s(76,63)= -0.16121389244904D-08 +s(77,63)= -0.53676492634261D-09 +s(78,63)= 0.13707435993822D-07 +s(79,63)= -0.14249148783387D-07 +s(80,63)= 0.49464024873434D-07 +s(64,64)= -0.87127007987508D-08 +s(65,64)= 0.45115224024110D-08 +s(66,64)= 0.37998742533734D-07 +s(67,64)= 0.37513599916173D-07 +s(68,64)= -0.56026408905094D-08 +s(69,64)= -0.27550665136848D-07 +s(70,64)= -0.41030973914308D-07 +s(71,64)= 0.61569852234094D-08 +s(72,64)= 0.16205387444015D-07 +s(73,64)= 0.68623221548350D-08 +s(74,64)= -0.19499253018975D-07 +s(75,64)= 0.22039916029745D-07 +s(76,64)= 0.12512336543455D-07 +s(77,64)= 0.10273752680108D-08 +s(78,64)= 0.42106957858973D-07 +s(79,64)= -0.53641252498077D-08 +s(80,64)= 0.31671170597039D-07 +s(65,65)= -0.86154990439638D-08 +s(66,65)= -0.13856725505752D-07 +s(67,65)= 0.61620647865604D-07 +s(68,65)= 0.11049275161977D-07 +s(69,65)= -0.48761580928671D-08 +s(70,65)= 0.29630825455903D-07 +s(71,65)= 0.19096852773588D-08 +s(72,65)= -0.64028481933194D-08 +s(73,65)= 0.26046180016634D-07 +s(74,65)= 0.41200616073616D-08 +s(75,65)= -0.50220689549103D-08 +s(76,65)= 0.40170494053698D-09 +s(77,65)= -0.13684208231148D-07 +s(78,65)= 0.17683956031768D-08 +s(79,65)= -0.34641154618707D-07 +s(80,65)= 0.45758113500030D-07 +s(66,66)= 0.38291404049821D-07 +s(67,66)= -0.53098489196634D-07 +s(68,66)= -0.58400680212276D-07 +s(69,66)= -0.26152182582589D-07 +s(70,66)= -0.14540154170139D-07 +s(71,66)= -0.30976964233253D-07 +s(72,66)= -0.32977526416183D-08 +s(73,66)= -0.14845165931176D-07 +s(74,66)= -0.89271052657336D-08 +s(75,66)= -0.35245788463029D-07 +s(76,66)= -0.50100770484762D-07 +s(77,66)= -0.71556364263464D-08 +s(78,66)= -0.36334712997025D-07 +s(79,66)= -0.58207980725588D-07 +s(80,66)= 0.89675259412812D-08 +s(67,67)= 0.30399187730913D-07 +s(68,67)= -0.36782955347181D-07 +s(69,67)= -0.13394025889653D-07 +s(70,67)= 0.27411801870785D-07 +s(71,67)= -0.30025299874283D-07 +s(72,67)= -0.79953714271451D-08 +s(73,67)= 0.46236008509558D-07 +s(74,67)= -0.26169940270101D-07 +s(75,67)= 0.20961793125776D-07 +s(76,67)= -0.68893632994121D-07 +s(77,67)= -0.27660409661774D-07 +s(78,67)= -0.73197636664678D-07 +s(79,67)= -0.10205753070715D-06 +s(80,67)= 0.14902266951516D-07 +s(68,68)= -0.31480609254161D-07 +s(69,68)= 0.13384874521102D-07 +s(70,68)= 0.77155956538291D-07 +s(71,68)= -0.66866541422553D-08 +s(72,68)= -0.31147076800038D-07 +s(73,68)= 0.13639437365475D-07 +s(74,68)= -0.43860203396215D-07 +s(75,68)= -0.49178247117405D-07 +s(76,68)= -0.26699372673611D-07 +s(77,68)= -0.67382415045807D-08 +s(78,68)= 0.14412917377966D-08 +s(79,68)= 0.48342457723864D-08 +s(80,68)= 0.17390883601169D-07 +s(69,69)= -0.13798990953075D-07 +s(70,69)= 0.39375140480278D-07 +s(71,69)= -0.34762758993926D-07 +s(72,69)= -0.27182018774016D-07 +s(73,69)= -0.38370797062333D-08 +s(74,69)= -0.36338066725225D-08 +s(75,69)= -0.15205391846379D-07 +s(76,69)= 0.12763287796531D-07 +s(77,69)= -0.11792058947694D-08 +s(78,69)= 0.33239509418844D-07 +s(79,69)= -0.10252760607483D-07 +s(80,69)= 0.30007375851130D-07 +s(70,70)= -0.42747259376631D-08 +s(71,70)= 0.58453055678280D-07 +s(72,70)= -0.35390991644398D-07 +s(73,70)= 0.51806667480987D-08 +s(74,70)= 0.88448286469802D-08 +s(75,70)= -0.11810715988298D-07 +s(76,70)= 0.10938269758611D-07 +s(77,70)= 0.23304378325923D-07 +s(78,70)= -0.19234121923198D-07 +s(79,70)= 0.21629308852771D-07 +s(80,70)= -0.14769034041885D-07 +s(71,71)= 0.19811987374229D-07 +s(72,71)= -0.32001567638459D-07 +s(73,71)= 0.16854298985710D-07 +s(74,71)= 0.10196641563199D-07 +s(75,71)= 0.48703440603701D-08 +s(76,71)= 0.11880687702064D-08 +s(77,71)= -0.30652418851886D-07 +s(78,71)= -0.18887828748998D-07 +s(79,71)= -0.30638177018873D-07 +s(80,71)= -0.45786303998232D-07 +s(72,72)= 0.14619987101331D-07 +s(73,72)= -0.28385543652245D-08 +s(74,72)= 0.20754818105081D-07 +s(75,72)= 0.91782741587554D-09 +s(76,72)= -0.11348075853818D-07 +s(77,72)= -0.16743464096756D-07 +s(78,72)= -0.21718438590062D-07 +s(79,72)= 0.19282431527263D-07 +s(80,72)= -0.18371376363970D-07 +s(73,73)= 0.28162386123265D-08 +s(74,73)= -0.11088863947687D-07 +s(75,73)= 0.44883608270606D-08 +s(76,73)= -0.10342902486516D-07 +s(77,73)= -0.20982837873543D-07 +s(78,73)= -0.44623528381893D-08 +s(79,73)= -0.29457122452921D-07 +s(80,73)= 0.16518231847476D-07 +s(74,74)= -0.90679068924709D-07 +s(75,74)= 0.11943656675702D-07 +s(76,74)= -0.12287476815057D-07 +s(77,74)= -0.86534126471312D-08 +s(78,74)= -0.36699382529634D-07 +s(79,74)= 0.39699432381805D-07 +s(80,74)= 0.90511319573331D-08 +s(75,75)= 0.38068956857789D-08 +s(76,75)= -0.11022066868994D-07 +s(77,75)= -0.66351939341889D-08 +s(78,75)= 0.84753383878959D-08 +s(79,75)= 0.34003428729587D-07 +s(80,75)= 0.45474580203248D-08 +s(76,76)= -0.47755842568499D-07 +s(77,76)= -0.31455773211009D-07 +s(78,76)= -0.12677631609515D-06 +s(79,76)= 0.75135393078467D-07 +s(80,76)= 0.29637278271697D-07 +s(77,77)= -0.28273200616638D-07 +s(78,77)= -0.30006709911530D-07 +s(79,77)= -0.46078138454365D-07 +s(80,77)= 0.47083765379289D-07 +s(78,78)= -0.27390694608716D-07 +s(79,78)= 0.10101212031673D-07 +s(80,78)= -0.77640066465978D-07 +s(79,79)= 0.64488227584258D-07 +s(80,79)= -0.72740512544236D-08 +s(80,80)= -0.19642737190084D-07 + +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + + r = 1187000.d0 ! potential surface + xi = ae/r + m=0 + x=0. + sum=0. + call lgndr(lmax,m,x,plm,root) + do l=2, lmax + sum = sum + c(l,m) *xi**l *plm(l-m+1) + enddo + sum = sum+1. +! centrifugal potential + v0=(gm*sum/r + 0.5*omega**2 * r**2) +! write(out,*)'v0=', v0 + return + +end subroutine areoid_ini + +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + + + subroutine geoid(dlon,dlat,rg) +! marsgeoid.f +! calculate radii of surface of constant gravity potential on rotating body +! given spherical harmonic potential of body at lat,lon,elevation +! +! W = V +Phi = gm/r [1+ (R/r)**n [harmonics]] -1/2 omega**2 r**2 + + implicit none + + double precision dlon,dlat + double precision rg + + double precision pi,d2r + parameter (pi=3.141592653589792D0, d2r=pi/180.d0) +! data structure of gravity field + integer ndeg,ndeg1,ndeg2,nd2p3 + parameter (ndeg=90,ndeg1=ndeg+1,ndeg2=2*ndeg,nd2p3=ndeg2+3) + double precision v0,omega,ae,gm + double precision c(0:ndeg,0:ndeg),s(0:ndeg,0:ndeg) + common /gmm1/v0,omega,ae,gm,c,s + integer lmin,lmax + double precision root(nd2p3) + double precision r + common /sqr/ lmin,lmax,root,r + double precision plm(ndeg1) + double precision tol + data tol /0.125d0/ ! tolerence on computed value of rg + + integer i,m,l + double precision rlon,rlat + double precision x,cslt,xi,sum,cslm + double precision diff +! save r + rg = r + + rlon=dlon*d2r + rlat=dlat*d2r + x = sin(rlat) + cslt= cos(rlat) + + do i=1,8 ! usually 3 iterations suffice + + xi = ae/r + sum = 0. + do m=0, lmax + call lgndr(lmax,m,x,plm,root) + do l=m, lmax + cslm = c(l,m)*cos(m*rlon) + s(l,m)*sin(m*rlon) + sum = sum + cslm*xi**l *plm(l-m+1) + enddo + enddo + sum=sum+1. +! centrifugal potential + rg=(gm*sum+0.5*(omega**2)*(r**3)*(cslt**2))/v0 +! write(out,*) i,r,rg + diff = r-rg + r = rg + if( abs(diff).lt. tol) goto 400 + enddo ! do i=1,8 + + 400 continue + + end subroutine geoid + +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + + SUBROUTINE LGNDR(LMAX,M,X,PLM,SQR) +! Return vector of plm's of degree from m to lmax, for order m + implicit none + integer LMAX + integer M + double precision X + double precision PLM(*),SQR(*) + integer IFACT,I,LL + double precision OM, PMM, PMMP1, PLL, SOMX2 +! needs sqrt of integers from 1 to 2*L+3 +! SIGN MODIF. OF NUM.REC. ALGORITHM, TO MATCH GEOPHYS. CONVENTION. +! AND NORMALIZATION TO MEAN SQUARE UNITY. + + PMMP1=0 !dummy initialization to get rid of compiler warnings + + OM = 1. + PMM=SQR(2*M+1) + IF(M.gt.0) then + PMM=SQR(2)*PMM + SOMX2=SQRT((1.-X)*(1.+X)) + IFACT=1 + do I=1,M + OM=-OM + PMM=-PMM*(SQR(IFACT)/SQR(IFACT+1))*SOMX2 + IFACT=IFACT+2 + enddo + ENDIF + PLM(1)=OM*PMM + if(LMAX.gt.M) then + PMMP1=X*SQR(2*M+3)*PMM + PLM(2)=OM*PMMP1 + endif + if (LMAX.gt.M+1) then + DO LL=M+2,LMAX + PLL=SQR(2*LL+1)*SQR(2*LL-1)/(SQR(LL+M)*SQR(LL-M)) & + & * (X*PMMP1-PMM*SQR(LL+M-1)*SQR(LL-M-1)/(SQR(2*LL-1)*SQR(2*LL-3))) + PLM(LL-M+1)=OM*PLL + PMM=PMMP1 + PMMP1=PLL + ENDDO + endif + END SUBROUTINE LGNDR +